Commit | Line | Data |
---|---|---|
69f28986 KT |
1 | " dmabs |
2 | ||
3 | lac o17 | |
4 | sys creat; punout | |
5 | spa | |
6 | sys save | |
7 | dac fo | |
8 | lac 017777 | |
9 | tad d1 | |
10 | dac name | |
11 | jms space | |
12 | 100 | |
13 | ||
14 | loop: | |
15 | dzm oldsum | |
16 | lac initcmd | |
17 | dac comand | |
18 | lac i 017777 | |
19 | sad d4 | |
20 | jmp stop | |
21 | tad dm4 | |
22 | dac i 017777 | |
23 | lac name | |
24 | tad d4 | |
25 | dac name | |
26 | ||
27 | dump1: | |
28 | lac comand | |
29 | xor dactra | |
30 | dac tracmd | |
31 | ||
32 | dump2: | |
33 | sys open; name: 0; 0 | |
34 | spa | |
35 | jmp opnerr | |
36 | dac fi | |
37 | -bootsiz | |
38 | dac c1 | |
39 | law boot-1 | |
40 | dac 8 | |
41 | 1: | |
42 | lac i 8 | |
43 | jms put | |
44 | isz c1 | |
45 | jmp 1b | |
46 | lac bootcmd | |
47 | lrs 12 | |
48 | jms put1 | |
49 | lac bootcmd | |
50 | lrs 6 | |
51 | jms put1 | |
52 | lac bootcmd | |
53 | and o77 | |
54 | xor o300 | |
55 | jms put2 | |
56 | ||
57 | jms space | |
58 | 3 | |
59 | ||
60 | dump3: | |
61 | -1 | |
62 | tad bufp | |
63 | dac 8 | |
64 | -64 | |
65 | dac c1 | |
66 | 1: | |
67 | dzm i 8 | |
68 | isz c1 | |
69 | jmp 1b | |
70 | lac fi | |
71 | sys read; bufp: buf; 64 | |
72 | sna | |
73 | jmp done | |
74 | dac count | |
75 | -1 | |
76 | tad bufp | |
77 | dac 8 | |
78 | -64 | |
79 | dac c1 | |
80 | cla | |
81 | 1: | |
82 | add i 8 | |
83 | isz c1 | |
84 | jmp 1b | |
85 | sna | |
86 | jmp dump4 | |
87 | dac newsum | |
88 | lac comand | |
89 | jms put | |
90 | lac count | |
91 | jms put | |
92 | lac oldsum | |
93 | add comand | |
94 | add count | |
95 | jms put | |
96 | lac newsum | |
97 | dac oldsum | |
98 | jms space | |
99 | 3 | |
100 | -1 | |
101 | tad bufp | |
102 | dac 8 | |
103 | -1 | |
104 | tad count | |
105 | cma | |
106 | dac c1 | |
107 | 1: | |
108 | lac i 8 | |
109 | jms put | |
110 | isz c1 | |
111 | jmp 1b | |
112 | jms space | |
113 | 10 | |
114 | ||
115 | dump4: | |
116 | lac comand | |
117 | tad count | |
118 | dac comand | |
119 | jmp dump3 | |
120 | ||
121 | done: | |
122 | lac tracmd | |
123 | jms put | |
124 | cla | |
125 | jms put | |
126 | lac oldsum | |
127 | add tracmd | |
128 | jms put | |
129 | jms space | |
130 | 20 | |
131 | lac fi | |
132 | sys close | |
133 | jmp loop | |
134 | ||
135 | stop: | |
136 | cla | |
137 | jms put | |
138 | jms space | |
139 | 100 | |
140 | sys exit | |
141 | ||
142 | space: 0 | |
143 | -1 | |
144 | tad i space | |
145 | cma | |
146 | dac c1 | |
147 | isz space | |
148 | 1: | |
149 | lac o400 | |
150 | jms put2 | |
151 | isz c1 | |
152 | jmp 1b | |
153 | jmp i space | |
154 | ||
155 | put: 0 | |
156 | dac 1f | |
157 | lrs 12 | |
158 | jms put1 | |
159 | lac 1f | |
160 | lrs 6 | |
161 | jms put1 | |
162 | lac 1f | |
163 | jms put1 | |
164 | jmp i put | |
165 | 1:0 | |
166 | ||
167 | put1:0 | |
168 | and o77 | |
169 | xor o200 | |
170 | jms put2 | |
171 | jmp i put1 | |
172 | ||
173 | put2: 0 | |
174 | dac 1f | |
175 | lac fo | |
176 | sys write; 1f; 1 | |
177 | jmp i put2 | |
178 | 1: 0 | |
179 | ||
180 | boot: | |
181 | org = 017740 | |
182 | 2: | |
183 | jms get1-boot+org | |
184 | dac cmd-boot+org | |
185 | jms get1-boot+org | |
186 | cma | |
187 | dac cnt-boot+org | |
188 | jms get2-boot+org | |
189 | xor sum-boot+org | |
190 | dzm sum-boot+org | |
191 | cla cll sza | |
192 | hlt | |
193 | isz cnt-boot+org | |
194 | 1: | |
195 | jms get1-boot+org | |
196 | cmd: 0 | |
197 | isz cmd-boot+org | |
198 | isz cnt-boot+org | |
199 | jmp 1b-boot+org | |
200 | jmp 2b-boot+org | |
201 | get1: 0 | |
202 | jms get2-boot+org | |
203 | dac get2-boot+org | |
204 | add sum-boot+org | |
205 | dac sum-boot+org | |
206 | lac get2-boot+org | |
207 | jmp i get1-boot+org | |
208 | get2: 0 | |
209 | iot 0144 | |
210 | 1: | |
211 | iot 0101 | |
212 | jmp 1b-boot+org | |
213 | iot 0112 | |
214 | jmp i get2-boot+org | |
215 | sum: 0 | |
216 | cnt = sum+1 | |
217 | bootsiz = .-boot | |
218 | bootcmd: jmp org | |
219 | ||
220 | opnerr: | |
221 | lac name | |
222 | dac 1f | |
223 | lac d1 | |
224 | sys write; 1: 0; 4 | |
225 | lac d1 | |
226 | sys write; mes; 2 | |
227 | jmp loop | |
228 | mes: | |
229 | 040;077012 | |
230 | ||
231 | comand: 0 | |
232 | tracmd: 0 | |
233 | d1: 1 | |
234 | .17777: 017777 | |
235 | o77: 077 | |
236 | o200: 0200 | |
237 | o300: 0300 | |
238 | d4: 4 | |
239 | d64: 64 | |
240 | dm4: -4 | |
241 | o400: 0400 | |
242 | punout: <pp>;<to>;<ut>;040040 | |
243 | o17: 017 | |
244 | ||
245 | fi: 0 | |
246 | fo: 0 | |
247 | count: 0 | |
248 | oldsum: 0 | |
249 | newsum: 0 | |
250 | daccmd: dac | |
251 | dactra: dac jmp | |
252 | initcmd: dac 0 | |
253 | c1: 0 | |
254 | buf: | |
255 | ||
256 | iot = 0700000 |