Commit | Line | Data |
---|---|---|
69f28986 KT |
1 | " s9 -- cold boot |
2 | ||
3 | . = coldentry+4 | |
4 | ||
5 | " zero i-list | |
6 | ||
7 | dzm ii | |
8 | jms copyz; dskbuf; 64 | |
9 | 1: | |
10 | lac ii | |
11 | jms dskio; 07000 | |
12 | isz ii | |
13 | -710 | |
14 | tad ii | |
15 | sza | |
16 | jmp 1b | |
17 | ||
18 | " free rest of disk | |
19 | ||
20 | 1: | |
21 | lac ii | |
22 | jms free | |
23 | isz ii | |
24 | -6400 | |
25 | tad ii | |
26 | sza | |
27 | jmp 1b | |
28 | ||
29 | " read in tapes | |
30 | ||
31 | dzm ii | |
32 | 1: | |
33 | dzm sum | |
34 | jms getw " count | |
35 | sza | |
36 | jmp .+3 | |
37 | hlt | |
38 | jmp 1b " 0 count means pause | |
39 | dac xx | |
40 | isz ii | |
41 | lac ii | |
42 | jms iget | |
43 | jms copyz; inode; 12 | |
44 | jms getw " flags | |
45 | dac i.flags | |
46 | -1 | |
47 | dac i.uid | |
48 | jms getw " number links | |
49 | dac i.nlks | |
50 | -2 | |
51 | tad xx | |
52 | dac i.size | |
53 | lac ii | |
54 | dac i.uniq | |
55 | law 4096-1 | |
56 | dac 8 | |
57 | -1 | |
58 | tad i.size | |
59 | cma | |
60 | sna | |
61 | jmp 3f | |
62 | dac xx | |
63 | ||
64 | 2: | |
65 | jms getw | |
66 | dac 8 i | |
67 | isz xx | |
68 | jmp 2b | |
69 | 3: | |
70 | lac sum | |
71 | dac xx | |
72 | jms getw " checksum | |
73 | sad xx | |
74 | skp | |
75 | jms halt | |
76 | lac i.size | |
77 | dac .+4 | |
78 | cla | |
79 | jms iwrite; 4096; .. | |
80 | jms iput | |
81 | cla | |
82 | jmp 1b | |
83 | ||
84 | getw: 0 | |
85 | jms getc | |
86 | alss 12 | |
87 | lmq | |
88 | jms getc | |
89 | alss 6 | |
90 | omq | |
91 | lmq | |
92 | jms getc | |
93 | omq | |
94 | lmq | |
95 | add sum | |
96 | dac sum | |
97 | lacq | |
98 | jmp getw i | |
99 | ||
100 | getc: 0 | |
101 | iof | |
102 | rsa | |
103 | rsf | |
104 | jmp .-1 | |
105 | rrb | |
106 | sna | |
107 | jmp getc+1 | |
108 | and o77 | |
109 | ion | |
110 | jmp getc i | |
111 | xx: 0 | |
112 | sum: 0 |