Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50370/pdp.lst
There are no other files named pdp.lst in the archive.
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1
PDP 8 17-DEC-75 12:37
1 00100 DEFINE WA
2 00150 <MOVE 1,[0,,000777]
3 00200 SOJG 1,.-1>
4 00250 DEFINE CLR
5 00300 <CLRBFI>
6 00350 DEFINE T
7 00400 <MOVE 2,[0,,0]
8 00450 >
9 00500 EXTERNAL START,FINISH,OPEN1,OPEN2,LOK1,ENT1,IN7,OUT7,CLOS1,CLOS2,REL
10 00550 ENTRY PD8
11 00600 AM1:DEFINE Z6
12 00650 <MOVE 1,[0,,0]
13 00700 MOVE 2,[0,,6]
14 00750 MOVEM 1,(2)
15 00800 SOJG 2,.-1
16 00850 T>
17 00900 DEFINE Z17
18 00950 <MOVE 1,[0,,0]
19 01000 MOVE 2,[0,,17]
20 01050 MOVEM 1,(2)
21 01100 SOJ 2,
22 01150 CAIE 2,6
23 01200 JUMPA .-3>
24 01250 DEFINE CR
25 01300 <OUTCHR [15]
26 01350 OUTCHR [12]>
27 01400 DEFINE BL
28 01450 <OUTCHR [40]
29 01500 >
30 01550 DEFINE IN
31 01600 <INCHRW 1
32 01650 >
33 01700 DEFINE OUT
34 01750 <OUTCHR 1>
35 01800 AM7:DEFINE BL4
36 01850 <OUTCHR [40]
37 01900 OUTCHR [40]
38 01950 OUTCHR [40]
39 02000 OUTCHR [40]
40 02050 >
41 02100 AM8:DEFINE SPACE
42 02150 <OUTCHR [40]
43 02200 >
44 02250 DEFINE NUMB(A)
45 02300 <MOVE 12,A
46 02350 MOVE 11,[0,,0]
47 02400 ASHC 11,2
48 02450 ADDI 11,60
49 02500 OUTCHR 11
50 02550 MOVE 17,[0,,13]
51 02600 MOVE 11,[0,,0]
52 02650 ASHC 11,3
53 02700 ADDI 11,60
54 02750 OUTCHR 11
55 02800 SOJG 17,.-4
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-1
PDP 8 17-DEC-75 12:37
56 02850 OUTCHR [40]
57 02900 >
58 02950 AM10:DEFINE NUIN
59 03000 <MOVE 2,[0,,0]
60 03050 MOVE 1,[0,,0]
61 03100 INCHRW 1
62 03150 SUBI 1,60
63 03200 IMULI 2,10
64 03250 ADD 2,1
65 03300 INCHRW 1
66 03350 CAIE 1,15
67 03400 JUMPA .-5
68 03450 >
69 000000' 324 00 0 00 012414' 03500 A:JUMPA M1+1
70 000001' 051 01 0 00 014254' 03550 H:CR^OUTCHR [
71 000002' 051 01 0 00 014255' OUTCHR [^
72 000003' 200 12 0 00 000002 03600 NUMB(2)^MOVE 12,2
73 000004' 200 11 0 00 014256' MOVE 11,[
74 000005' 244 11 0 00 000002 ASHC 11,2
75 000006' 271 11 0 00 000060 ADDI 11,60
76 000007' 051 01 0 00 000011 OUTCHR 11
77 000010' 200 17 0 00 014257' MOVE 17,[
78 000011' 200 11 0 00 014256' MOVE 11,[
79 000012' 244 11 0 00 000003 ASHC 11,3
80 000013' 271 11 0 00 000060 ADDI 11,60
81 000014' 051 01 0 00 000011 OUTCHR 11
82 000015' 367 17 0 00 000011' SOJG 17,.-4
83 000016' 051 01 0 00 014260' OUTCHR [
84 000017' 051 01 0 00 014254' 03650 CR^OUTCHR [
85 000020' 051 01 0 00 014255' OUTCHR [^
86 000021' 200 01 0 00 014256' 03700 Z17^MOVE 1,[
87 000022' 200 02 0 00 014261' MOVE 2,[
88 000023' 202 01 0 02 000000 MOVEM 1,(2)
89 000024' 360 02 0 00 000000 SOJ 2,
90 000025' 302 02 0 00 000006 CAIE 2,6
91 000026' 324 00 0 00 000023' JUMPA .-3^
92 000027' 200 01 0 00 014256' 03750 Z6^MOVE 1,[
93 000030' 200 02 0 00 014262' MOVE 2,[
94 000031' 202 01 0 02 000000 MOVEM 1,(2)
95 000032' 367 02 0 00 000031' SOJG 2,.-1
96 000033' 200 02 0 00 014256' T^^MOVE 2,[
97 000034' 051 00 0 00 000001 03800 IN^INCHRW 1
98 000035' 200 02 0 00 014256' 03850 V:NUIN^MOVE 2,[
99 000036' 200 01 0 00 014256' MOVE 1,[
100 000037' 051 00 0 00 000001 INCHRW 1
101 000040' 275 01 0 00 000060 SUBI 1,60
102 000041' 221 02 0 00 000010 IMULI 2,10
103 000042' 270 02 0 00 000001 ADD 2,1
104 000043' 051 00 0 00 000001 INCHRW 1
105 000044' 302 01 0 00 000015 CAIE 1,15
106 000045' 324 00 0 00 000040' JUMPA .-5
107 000046' 051 01 0 00 014260' 03900 BL^OUTCHR [
108 000047' 266 16 0 00 000166' 03950 V2:JSA 16,MN
109 000050' 320 00 0 00 000002 04000 ARG 2
110 000051' 051 01 0 00 014254' 04050 CR^OUTCHR [
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-2
PDP 8 17-DEC-75 12:37
111 000052' 051 01 0 00 014255' OUTCHR [^
112 000053' 200 12 0 00 000002 04100 NUMB(2)^MOVE 12,2
113 000054' 200 11 0 00 014256' MOVE 11,[
114 000055' 244 11 0 00 000002 ASHC 11,2
115 000056' 271 11 0 00 000060 ADDI 11,60
116 000057' 051 01 0 00 000011 OUTCHR 11
117 000060' 200 17 0 00 014257' MOVE 17,[
118 000061' 200 11 0 00 014256' MOVE 11,[
119 000062' 244 11 0 00 000003 ASHC 11,3
120 000063' 271 11 0 00 000060 ADDI 11,60
121 000064' 051 01 0 00 000011 OUTCHR 11
122 000065' 367 17 0 00 000061' SOJG 17,.-4
123 000066' 051 01 0 00 014260' OUTCHR [
124 000067' 200 01 0 00 014256' 04150 Z17^MOVE 1,[
125 000070' 200 02 0 00 014261' MOVE 2,[
126 000071' 202 01 0 02 000000 MOVEM 1,(2)
127 000072' 360 02 0 00 000000 SOJ 2,
128 000073' 302 02 0 00 000006 CAIE 2,6
129 000074' 324 00 0 00 000071' JUMPA .-3^
130 000075' 200 01 0 00 014256' 04200 Z6^MOVE 1,[
131 000076' 200 02 0 00 014262' MOVE 2,[
132 000077' 202 01 0 02 000000 MOVEM 1,(2)
133 000100' 367 02 0 00 000077' SOJG 2,.-1
134 000101' 200 02 0 00 014256' T^^MOVE 2,[
135 000102' 051 00 0 00 000001 04250 IN^INCHRW 1
136 000103' 051 01 0 00 014254' 04300 CR^OUTCHR [
137 000104' 051 01 0 00 014255' OUTCHR [^
138 000105' 051 00 0 00 000001 04350 IN^INCHRW 1
139 000106' 051 00 0 00 000001 04400 IN^INCHRW 1
140 000107' 266 16 0 00 000200' 04450 JSA 16,RUPT
141 000110' 320 00 0 00 000001 04500 ARG 1
142 000111' 051 01 0 00 014254' 04550 ZT:CR^OUTCHR [
143 000112' 051 01 0 00 014255' OUTCHR [^
144 000113' 051 11 0 00 000000 04600 CLR^CLRBFI^
145 000114' 200 02 0 00 014256' 04650 NUIN^MOVE 2,[
146 000115' 200 01 0 00 014256' MOVE 1,[
147 000116' 051 00 0 00 000001 INCHRW 1
148 000117' 275 01 0 00 000060 SUBI 1,60
149 000120' 221 02 0 00 000010 IMULI 2,10
150 000121' 270 02 0 00 000001 ADD 2,1
151 000122' 051 00 0 00 000001 INCHRW 1
152 000123' 302 01 0 00 000015 CAIE 1,15
153 000124' 324 00 0 00 000117' JUMPA .-5
154 000125' 202 02 0 00 000003 04700 MOVEM 2,3
155 000126' 051 01 0 00 014254' 04750 CR^OUTCHR [
156 000127' 051 01 0 00 014255' OUTCHR [^
157 000130' 051 11 0 00 000000 04800 CLR^CLRBFI^
158 000131' 200 02 0 00 014256' 04850 NUIN^MOVE 2,[
159 000132' 200 01 0 00 014256' MOVE 1,[
160 000133' 051 00 0 00 000001 INCHRW 1
161 000134' 275 01 0 00 000060 SUBI 1,60
162 000135' 221 02 0 00 000010 IMULI 2,10
163 000136' 270 02 0 00 000001 ADD 2,1
164 000137' 051 00 0 00 000001 INCHRW 1
165 000140' 302 01 0 00 000015 CAIE 1,15
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-3
PDP 8 17-DEC-75 12:37
166 000141' 324 00 0 00 000134' JUMPA .-5
167 000142' 266 16 0 00 000363' 04900 JSA 16,LIM
168 000143' 320 00 0 00 000003 04950 ARG 3
169 000144' 320 00 0 00 000002 05000 ARG 2
170 000145' 051 01 0 00 014254' 05050 CR^OUTCHR [
171 000146' 051 01 0 00 014255' OUTCHR [^
172 000147' 200 12 0 00 000003 05100 NUMB(3)^MOVE 12,3
173 000150' 200 11 0 00 014256' MOVE 11,[
174 000151' 244 11 0 00 000002 ASHC 11,2
175 000152' 271 11 0 00 000060 ADDI 11,60
176 000153' 051 01 0 00 000011 OUTCHR 11
177 000154' 200 17 0 00 014257' MOVE 17,[
178 000155' 200 11 0 00 014256' MOVE 11,[
179 000156' 244 11 0 00 000003 ASHC 11,3
180 000157' 271 11 0 00 000060 ADDI 11,60
181 000160' 051 01 0 00 000011 OUTCHR 11
182 000161' 367 17 0 00 000155' SOJG 17,.-4
183 000162' 051 01 0 00 014260' OUTCHR [
184 000163' 051 01 0 00 014254' 05150 CR^OUTCHR [
185 000164' 051 01 0 00 014255' OUTCHR [^
186 000165' 324 00 0 00 012350' 05200 JUMPA IN1
187 000166' 000000 000000 05250 MN:0
188 000167' 200 06 1 16 000000 05300 MOVE 6,@(16)
189 000170' 244 05 0 00 000027 05350 ASHC 5,27
190 000171' 240 06 0 00 777751 05400 ASH 6,-27
191 000172' 200 05 0 00 014263' 05450 MOVE 5,[0,,7777]
192 000173' 656 06 0 00 000005 05500 TDCN 6,5
193 000174' 340 06 0 00 000000 05550 HJ:AOJ 6,
194 000175' 340 06 0 00 000000 05600 AOJ 6,
195 000176' 202 06 1 16 000000 05650 MOVEM 6,@(16)
196 000177' 267 16 0 16 000001 05700 JRA 16,1(16)
197 000200' 000000 000000 05750 RUPT:0
198 000201' 200 01 1 16 000000 05800 MOVE 1,@(16)
199 000202' 302 01 0 00 000041 05850 CAIE 1,41
200 000203' 267 16 0 16 000001 05900 JRA 16,1(16)
201 000204' 051 03 0 00 014264' 05950 M200:OUTSTR [ASCIZ/!!!!...INTERUPTION...!!!/]
202 000205' 051 01 0 00 014254' 06000 CR^OUTCHR [
203 000206' 051 01 0 00 014255' OUTCHR [^
204 000207' 051 03 0 00 014271' 06050 M201:OUTSTR [ASCIZ/INPUT LOW LC TO TRANSLATE/]
205 000210' 051 01 0 00 014254' 06100 CR^OUTCHR [
206 000211' 051 01 0 00 014255' OUTCHR [^
207 000212' 200 02 0 00 014256' 06150 NUIN^MOVE 2,[
208 000213' 200 01 0 00 014256' MOVE 1,[
209 000214' 051 00 0 00 000001 INCHRW 1
210 000215' 275 01 0 00 000060 SUBI 1,60
211 000216' 221 02 0 00 000010 IMULI 2,10
212 000217' 270 02 0 00 000001 ADD 2,1
213 000220' 051 00 0 00 000001 INCHRW 1
214 000221' 302 01 0 00 000015 CAIE 1,15
215 000222' 324 00 0 00 000215' JUMPA .-5
216 000223' 202 02 0 00 000003 06200 MOVEM 2,3
217 000224' 051 01 0 00 014254' 06250 CR^OUTCHR [
218 000225' 051 01 0 00 014255' OUTCHR [^
219 000226' 051 03 0 00 014277' 06300 M203:OUTSTR [ASCIZ/ UP LC TO TRANS./]
220 000227' 051 01 0 00 014254' 06350 CR^OUTCHR [
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-4
PDP 8 17-DEC-75 12:37
221 000230' 051 01 0 00 014255' OUTCHR [^
222 000231' 051 00 0 00 000001 06400 IN^INCHRW 1
223 000232' 200 02 0 00 014256' 06450 NUIN^MOVE 2,[
224 000233' 200 01 0 00 014256' MOVE 1,[
225 000234' 051 00 0 00 000001 INCHRW 1
226 000235' 275 01 0 00 000060 SUBI 1,60
227 000236' 221 02 0 00 000010 IMULI 2,10
228 000237' 270 02 0 00 000001 ADD 2,1
229 000240' 051 00 0 00 000001 INCHRW 1
230 000241' 302 01 0 00 000015 CAIE 1,15
231 000242' 324 00 0 00 000235' JUMPA .-5
232 000243' 266 16 0 00 000251' 06500 JSA 16,TRANS
233 000244' 320 00 0 00 000003 06550 ARG 3
234 000245' 320 00 0 00 000002 06600 ARG 2
235 000246' 051 01 0 00 014254' 06650 CR^OUTCHR [
236 000247' 051 01 0 00 014255' OUTCHR [^
237 000250' 267 16 0 16 000001 06700 JRA 16,1(16)
238 000251' 000000 000000 06750 TRANS:0
239 000252' 051 01 0 00 014254' 06800 CR^OUTCHR [
240 000253' 051 01 0 00 014255' OUTCHR [^
241 000254' 200 06 1 16 000000 06850 MOVE 6,@(16)
242 000255' 200 07 1 16 000001 06900 MOVE 7,@1(16)
243 000256' 200 10 0 00 014303' 06950 MOVE 10,[0,,PD8]
244 000257' 270 06 0 00 000006 07000 ADD 6,6
245 000260' 270 07 0 00 000007 07050 ADD 7,7
246 000261' 270 06 0 00 000010 07100 ADD 6,10
247 000262' 270 07 0 00 000010 07150 ADD 7,10
248 000263' 200 10 0 00 014304' 07200 A76:MOVE 10,[0,,3]
249 000264' 315 07 0 00 000006 07250 CAMGE 7,6
250 000265' 324 00 0 00 000347' 07300 JUMPA OUT1
251 000266' 051 01 0 00 014254' 07350 CR^OUTCHR [
252 000267' 051 01 0 00 014255' OUTCHR [^
253 000270' 051 01 0 00 014260' 07400 BL4^OUTCHR [
254 000271' 051 01 0 00 014260' OUTCHR [
255 000272' 051 01 0 00 014260' OUTCHR [
256 000273' 051 01 0 00 014260' OUTCHR [
257 000274' 200 12 1 00 000006 07450 MOVE 12,@6
258 000275' 200 12 0 00 000012 07500 NUMB (12)^MOVE 12,12
259 000276' 200 11 0 00 014256' MOVE 11,[
260 000277' 244 11 0 00 000002 ASHC 11,2
261 000300' 271 11 0 00 000060 ADDI 11,60
262 000301' 051 01 0 00 000011 OUTCHR 11
263 000302' 200 17 0 00 014257' MOVE 17,[
264 000303' 200 11 0 00 014256' MOVE 11,[
265 000304' 244 11 0 00 000003 ASHC 11,3
266 000305' 271 11 0 00 000060 ADDI 11,60
267 000306' 051 01 0 00 000011 OUTCHR 11
268 000307' 367 17 0 00 000303' SOJG 17,.-4
269 000310' 051 01 0 00 014260' OUTCHR [
270 000311' 051 01 0 00 014260' 07550 Y:BL^OUTCHR [
271 000312' 051 01 0 00 014260' 07600 BL^OUTCHR [
272 000313' 200 12 0 06 000000 07650 MOVE 12,(6)
273 000314' 200 11 0 00 014256' 07700 AS12:MOVE 11,[0,,0]
274 000315' 244 11 0 00 000010 07750 AS1:ASHC 11,10
275 000316' 051 01 0 00 000011 07800 OUTCHR 11
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-5
PDP 8 17-DEC-75 12:37
276 000317' 200 11 0 00 014256' 07850 AS45:MOVE 11,[0,,0]
277 000320' 244 11 0 00 000011 07900 AS43:ASHC 11,11
278 000321' 051 01 0 00 000011 07950 OUTCHR 11
279 000322' 367 10 0 00 000317' 08000 SOJG 10,AS45
280 000323' 051 01 0 00 014260' 08050 BL^OUTCHR [
281 000324' 051 01 0 00 014260' 08100 BL^OUTCHR [
282 000325' 340 06 0 00 000000 08150 AOJ 6,
283 000326' 200 12 1 00 000006 08200 MOVE 12,@6
284 000327' 200 12 0 00 000012 08250 NUMB(12)^MOVE 12,12
285 000330' 200 11 0 00 014256' MOVE 11,[
286 000331' 244 11 0 00 000002 ASHC 11,2
287 000332' 271 11 0 00 000060 ADDI 11,60
288 000333' 051 01 0 00 000011 OUTCHR 11
289 000334' 200 17 0 00 014257' MOVE 17,[
290 000335' 200 11 0 00 014256' MOVE 11,[
291 000336' 244 11 0 00 000003 ASHC 11,3
292 000337' 271 11 0 00 000060 ADDI 11,60
293 000340' 051 01 0 00 000011 OUTCHR 11
294 000341' 367 17 0 00 000335' SOJG 17,.-4
295 000342' 051 01 0 00 014260' OUTCHR [
296 000343' 051 01 0 00 014254' 08300 CR^OUTCHR [
297 000344' 051 01 0 00 014255' OUTCHR [^
298 000345' 340 06 0 00 000000 08350 YZ:AOJ 6,
299 000346' 324 00 0 00 000263' 08400 JUMPA A76
300 000347' 200 10 0 00 014303' 08450 OUT1:MOVE 10,[0,,PD8]
301 000350' 267 16 0 16 000002 08500 JRA 16,2(16)
302 000351' 000000 000000 08550 EXAM:0
303 000352' 200 14 1 16 000000 08600 MOVE 14,@(16)
304 000353' 266 16 0 00 000251' 08650 KT:JSA 16,TRANS
305 000354' 320 00 0 00 000014 08700 ARG 14
306 000355' 320 00 0 00 000014 08750 ARG 14
307 000356' 200 14 1 16 000001 08800 MOVE 14,@1(16)
308 000357' 266 16 0 00 000251' 08850 JSA 16,TRANS
309 000360' 320 00 0 00 000014 08900 ARG 14
310 000361' 320 00 0 00 000014 08950 ARG 14
311 000362' 267 16 0 16 000002 09000 JRA 16,2(16)
312 09050
313 09100
314 09150
315 000363' 000000 000000 09200 LIM:0
316 000364' 200 17 1 16 000000 09250 MOVE 17,@(16)
317 000365' 305 17 0 00 000200 09300 SX:CAIGE 17,200
318 000366' 324 00 0 00 000407' 09350 JUMPA L
319 000367' 275 17 0 00 000200 09400 SUBI 17,200
320 000370' 301 17 0 00 000200 09450 CAIL 17,200
321 000371' 324 00 0 00 000367' 09500 JUMPA .-2
322 000372' 202 17 0 00 000015 09550 AX:MOVEM 17,15
323 000373' 200 17 1 16 000000 09600 MOVE 17,@(16)
324 000374' 274 17 0 00 000015 09650 SUB 17,15
325 000375' 200 15 1 16 000001 09700 L1:MOVE 15,@1(16)
326 000376' 274 15 0 00 000017 09750 SUB 15,17
327 000377' 305 15 0 00 000000 09800 CAIGE 15,0
328 000400' 324 00 0 00 000411' 09850 JUMPA PZ
329 000401' 301 15 0 00 000200 09900 CAIL 15,200
330 000402' 324 00 0 00 000416' 09950 JUMPA ER
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-6
PDP 8 17-DEC-75 12:37
331 000403' 200 17 0 00 014305' 10000 MOVE 17,[0,,1]
332 000404' 202 15 1 16 000000 10050 OKA:MOVEM 15,@(16)
333 000405' 202 17 1 16 000001 10100 MOVEM 17,@1(16)
334 000406' 267 16 0 16 000002 10150 J0:JRA 16,2(16)
335 000407' 200 17 0 00 014256' 10200 L:MOVE 17,[0,,0]
336 000410' 324 00 0 00 000375' 10250 JUMPA L1
337 000411' 200 17 1 16 000001 10300 PZ:MOVE 17,@1(16)
338 000412' 202 17 1 16 000000 10350 MOVEM 17,@(16)
339 000413' 200 17 0 00 014256' 10400 MOVE 17,[0,,0]
340 000414' 202 17 1 16 000001 10450 MOVEM 17,@1(16)
341 000415' 267 16 0 16 000002 10500 JRA 16,2(16)
342 000416' 051 01 0 00 014254' 10550 ER:CR^OUTCHR [
343 000417' 051 01 0 00 014255' OUTCHR [^
344 000420' 051 03 0 00 014306' 10600 OUTSTR [ASCIZ/OUT OF PAGE ADRESS/]
345 000421' 051 01 0 00 014254' 10650 CR^OUTCHR [
346 000422' 051 01 0 00 014255' OUTCHR [^
347 000423' 200 17 1 16 000000 10700 MOVE 17,@(16)
348 000424' 200 15 1 16 000001 10750 MOVE 15,@1(16)
349 000425' 266 16 0 00 000351' 10800 KU:JSA 16,EXAM
350 000426' 320 00 0 00 000017 10850 ARG 17
351 000427' 320 00 0 00 000015 10900 ARG 15
352 000430' 200 17 0 00 014256' 10950 MOVE 17,[0,,0]
353 000431' 202 17 1 16 000000 11000 MOVEM 17,@(16)
354 000432' 202 17 1 16 000001 11050 MOVEM 17,@1(16)
355 000433' 267 16 0 16 000002 11100 JRA 16,2(16)
356 000434' 000101 116104 11150 COM:101116104; AND
357 000435' 000000 000000 11200 COMA:0000
358 000436' 000124 101104 11250 C01:124101104; TAD
359 000437' 000000 001000 11300 C01A:1000
360 000440' 000111 123132 11350 C02:111123132; ISZ
361 000441' 000000 002000 11400 C02A:2000
362 000442' 000104 103101 11450 C03:104103101; DCA
363 000443' 000000 003000 11500 C03A:3000
364 000444' 000112 115123 11550 C04:112115123; JMS
365 000445' 000000 004000 11600 C04A:4000
366 000446' 000112 115120 11650 C05:112115120; JMP
367 000447' 000000 005000 11700 C05A:5000
368 000450' 000111 117124 11750 C06:111117124; IOT
369 000451' 000000 006000 11800 C06A:6000
370 000452' 000117 120122 11850 C07:117120122; OPR
371 000453' 000000 007000 11900 C07A:7000
372 000454' 000116 117120 11950 C08:116117120; NOP
373 000455' 000000 007000 12000 C08A:7000
374 000456' 000103 114101 12050 C09:103114101; CLA
375 000457' 000000 007200 12100 C09A:7200
376 000460' 000103 114114 12150 C10:103114114; CLL
377 000461' 000000 007100 12200 C10A:7100
378 000462' 000103 115101 12250 C11:103115101; CMA
379 000463' 000000 007040 12300 C11A:7040
380 000464' 000102 115114 12350 C12:102115114; CML
381 000465' 000000 007020 12400 C12A:7020
382 000466' 000122 101122 12450 C13:122101122; RAR
383 000467' 000000 007010 12500 C13A:7010
384 000470' 000122 101114 12550 C14:122101114; RAL
385 000471' 000000 007004 12600 C14A:7004
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-7
PDP 8 17-DEC-75 12:37
386 000472' 000122 124122 12650 C15:122124122; RTR
387 000473' 000000 007012 12700 C15A:7012
388 000474' 000122 124114 12750 C16:122124114; RTL
389 000475' 000000 007006 12800 C16A:7006
390 000476' 000111 101103 12850 C17:111101103; IAC
391 000477' 000000 007001 12900 C17A:7001
392 000500' 000102 123127 12950 C18:102123127; BSW
393 000501' 000000 007002 13000 C18A:7002
394 000502' 000123 115101 13050 C19:123115101; SMA
395 000503' 000000 007500 13100 C19A:7500
396 000504' 000123 132101 13150 C20:123132101; SZA
397 000505' 000000 007440 13200 C20A:7440
398 000506' 000123 120101 13250 C21:123120101; SPA
399 000507' 000000 007510 13300 C21A:7510
400 000510' 000123 116101 13350 C22:123116101; SNA
401 000511' 000000 007450 13400 C22A:7450
402 000512' 000123 116114 13450 C23:123116114; SNL
403 000513' 000000 007420 13500 C23A:7420
404 000514' 000123 132114 13550 C24:123132114; SZL
405 000515' 000000 007430 13600 C24A:7430
406 000516' 000123 113120 13650 C25:123113120; SKP
407 000517' 000000 007410 13700 C25A:7410
408 000520' 000117 123122 13750 C26:117123122; OSR
409 000521' 000000 007404 13800 C26A:7404
410 000522' 000110 114124 13850 C27:110114124; HLT
411 000523' 000000 007402 13900 C27A:7402
412 000524' 000103 114101 13950 C28:103114101; CLA
413 000525' 000000 007600 14000 C28A:7600
414 000526' 000113 103106 14050 C29:113103106; KCF
415 000527' 000000 006030 14100 C29A:6030
416 000530' 000113 123106 14150 C30:113123106; KSF
417 000531' 000000 006031 14200 C30A:6031
418 000532' 000113 103103 14250 C31:113103103; KCC
419 000533' 000000 006032 14300 C31A:6032
420 000534' 000113 122123 14350 C32:113122123; KRS
421 000535' 000000 006034 14400 C32A:6034
422 000536' 000113 111105 14450 C33:113111105; KIE
423 000537' 000000 006035 14500 C33A:6035
424 000540' 000113 122102 14550 C34:113122102; KRB
425 000541' 000000 006036 14600 C34A:6036
426 000542' 000123 120106 14650 C35:123120106; SPF
427 000543' 000000 006040 14700 C35A:6040
428 000544' 000124 123106 14750 C36:124123106; TSF
429 000545' 000000 006041 14800 C36A:6041
430 000546' 000124 103106 14850 C37:124103106; TCF
431 000547' 000000 006042 14900 C37A:6042
432 000550' 000124 120103 14950 C38:124120103; TPC
433 000551' 000000 006044 15000 C38A:6044
434 000552' 000123 120111 15050 C39:123120111; SPI
435 000553' 000000 006045 15100 C39A:6045
436 000554' 000124 114123 15150 C40:124114123; TLS
437 000555' 000000 006046 15200 C40A:6046
438 000556' 123113 117116 15250 C41:123113117116; SKON
439 000557' 000000 006000 15300 C41A:6000
440 000560' 000111 117116 15350 C42:111117116; ION
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-8
PDP 8 17-DEC-75 12:37
441 000561' 000000 006001 15400 C42A:6001
442 000562' 000111 117106 15450 C43:111117106; IOF
443 000563' 000000 006002 15500 C43A:6002
444 000564' 000123 122121 15550 C44:123122121; SRQ
445 000565' 000000 006003 15600 C44A:6003
446 000566' 000107 124106 15650 C45:107124106; GTF
447 000567' 000000 006004 15700 C45A:6004
448 000570' 000122 124106 15750 C46:122124106; RTF
449 000571' 000000 006005 15800 C46A:6005
450 000572' 000123 107124 15850 C47:123107124; SGT
451 000573' 000000 006006 15900 C47A:6006
452 000574' 000103 101106 15950 C48:103101106; CAF
453 000575' 000000 006007 16000 C48A:6007
454 000576' 000116 117120 16050 C49:116117120; NOP
455 000577' 000000 007000 16100 C49A:7000
456 000600' 101102 103104 16150 PD8:101102103104
457 000601' 000000 001000 16200 PD81:1000
458 000602' 103104 105106 16250 PD82:103104105106
459 000603' 000000 003000 16300 PD83:3000
460 000604' 102102 102102 16350 PD84:102102102102
461 000605' 000000 003400 16400 PD85:3400
462 000606' 101101 101061 16450 PD86:101101101061
463 000607' 000000 002000 16500 PD87:2000
464 000610' 103103 103062 16550 PD88:103103103062
465 000611' 000000 001010 16600 PD89:1010
466 000612' 101060 060060 16650 PD90:101060060060
467 000613' 000000 000000 16700 PD91:0000
468 000614' 16750 PD92:BLOCK 11000
469 011614' 000000 000000 16775 LMAX:0
470 011615' 16800 LAB:BLOCK 502
471 012317' 000000 000000 16850 LC:0
472 012320' 000000 000000 16900 ALC:0
473 012321' 000000 000000 16950 PD:0
474 012322' 000000 000000 17000 PD1:0
475 012323' 000000 010000 17050 CELL:10000
476 012324' 000000 000000 17100 ZER:0
477 012325' 000000 000000 17150 X1:0
478 012326' 000000 000000 17200 X2:0
479 012327' 000000 000000 17250 X3:0
480 012330' 000000 000000 17300 X4:0
481 012331' 000000 000000 17350 X5:0
482 012332' 000000 000000 17400 X6:0
483 012333' 000000 000000 17450 X7:0
484 012334' 000000 000000 17500 X8:0
485 012335' 000000 000000 17550 X9:0
486 012336' 000000 000000 17600 X10:0
487 012337' 000000 000000 17650 X11:0
488 012340' 000000 000000 17700 X12:0
489 012341' 000000 000000 17750 X13:0
490 012342' 000000 000000 17800 X22:0
491 012343' 000000 000000 17850 STA:0
492 012344' 000000 005000 17900 F500:5000
493 012345' 051 01 0 00 014254' 17950 CR^OUTCHR [
494 012346' 051 01 0 00 014255' OUTCHR [^
495 012347' 051 11 0 00 000000 18000 CLR^CLRBFI^
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-9
PDP 8 17-DEC-75 12:37
496 012350' 200 10 0 00 014312' 18050 IN1:MOVE 10,[0,,LAB]
497 012351' 202 10 0 00 012335' 18100 MOVEM 10,X9
498 012352' 200 10 0 00 014313' 18150 MOVE 10,[0,,LC]
499 012353' 202 10 0 00 012320' 18200 MOVEM 10,ALC
500 012354' 200 01 0 00 014256' 18250 Z17^MOVE 1,[
501 012355' 200 02 0 00 014261' MOVE 2,[
502 012356' 202 01 0 02 000000 MOVEM 1,(2)
503 012357' 360 02 0 00 000000 SOJ 2,
504 012360' 302 02 0 00 000006 CAIE 2,6
505 012361' 324 00 0 00 012356' JUMPA .-3^
506 012362' 200 01 0 00 014256' 18300 Z6^MOVE 1,[
507 012363' 200 02 0 00 014262' MOVE 2,[
508 012364' 202 01 0 02 000000 MOVEM 1,(2)
509 012365' 367 02 0 00 012364' SOJG 2,.-1
510 012366' 200 02 0 00 014256' T^^MOVE 2,[
511 012367' 051 03 0 00 014314' 18350 M0:OUTSTR [ASCIZ/INITIALIZATION WILL BE DONE NOW/]
512 012370' 051 01 0 00 014254' 18400 CR^OUTCHR [
513 012371' 051 01 0 00 014255' OUTCHR [^
514 012372' 051 11 0 00 000000 18450 CLR^CLRBFI^
515 012373' 200 01 0 00 014256' 18500 A1:Z6^MOVE 1,[
516 012374' 200 02 0 00 014262' MOVE 2,[
517 012375' 202 01 0 02 000000 MOVEM 1,(2)
518 012376' 367 02 0 00 012375' SOJG 2,.-1
519 012377' 200 02 0 00 014256' T^^MOVE 2,[
520 012400' 202 01 0 02 000600' 18550 AH:MOVEM 1,PD8(2)
521 012401' 340 02 0 00 000000 18600 AOJ 2,
522 012402' 202 03 0 02 000600' 18650 MOVEM 3,PD8(2)
523 012403' 340 02 0 00 000000 18700 AOJ 2,
524 012404' 315 02 0 00 012344' 18750 CAMGE 2,F500
525 012405' 344 01 0 00 012400' 18800 AOJA 1,AH
526 012406' 200 10 0 00 014312' 18805 MOVE 10,[0,,LAB]
527 012407' 200 02 0 00 011614' 18810 MOVE 2,LMAX
528 012410' 270 02 0 00 000002 18815 ADD 2,2
529 012411' 270 10 0 00 000002 18820 ADD 10,2
530 012412' 202 10 0 00 012335' 18825 MOVEM 10,X9
531 012413' 051 03 0 00 014323' 18850 M1:OUTSTR [ASCIZ/PD8 TABLE NUMBERED/]
532 012414' 051 01 0 00 014254' 18900 CR^OUTCHR [
533 012415' 051 01 0 00 014255' OUTCHR [^
534 012416' 051 03 0 00 014327' 18950 M2:OUTSTR [ASCIZ/INPUT PROGRAM /]
535 012417' 051 01 0 00 014254' 19000 CR^OUTCHR [
536 012420' 051 01 0 00 014255' OUTCHR [^
537 012421' 051 11 0 00 000000 19050 CLR^CLRBFI^
538 012422' 200 01 0 00 014256' 19100 A31:Z6^MOVE 1,[
539 012423' 200 02 0 00 014262' MOVE 2,[
540 012424' 202 01 0 02 000000 MOVEM 1,(2)
541 012425' 367 02 0 00 012424' SOJG 2,.-1
542 012426' 200 02 0 00 014256' T^^MOVE 2,[
543 012427' 051 01 0 00 014260' 19150 A3:BL^OUTCHR [
544 012430' 051 11 0 00 000000 19200 CLR^CLRBFI^
545 012431' 051 00 0 00 000001 19250 IN^INCHRW 1
546 012432' 302 01 0 00 000052 19300 CAIE 1,52
547 012433' 324 00 0 00 012427' 19350 JUMPA A3
548 012434' 051 01 0 00 014260' 19400 BL^OUTCHR [
549 012435' 051 11 0 00 000000 19450 CLR^CLRBFI^
550 012436' 200 02 0 00 014256' 19500 A4:NUIN^MOVE 2,[
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-10
PDP 8 17-DEC-75 12:37
551 012437' 200 01 0 00 014256' MOVE 1,[
552 012440' 051 00 0 00 000001 INCHRW 1
553 012441' 275 01 0 00 000060 SUBI 1,60
554 012442' 221 02 0 00 000010 IMULI 2,10
555 012443' 270 02 0 00 000001 ADD 2,1
556 012444' 051 00 0 00 000001 INCHRW 1
557 012445' 302 01 0 00 000015 CAIE 1,15
558 012446' 324 00 0 00 012441' JUMPA .-5
559 012447' 202 02 0 00 012317' 19550 MOVEM 2,LC
560 012450' 202 02 0 00 012325' 19600 MOVEM 2,X1
561 012451' 051 01 0 00 014254' 19650 CR^OUTCHR [
562 012452' 051 01 0 00 014255' OUTCHR [^
563 012453' 051 03 0 00 014333' 19700 OUTSTR [ASCIZ/LC VALUE (*) KNOWN IS IN LC/]
564 012454' 051 01 0 00 014254' 19750 CR^OUTCHR [
565 012455' 051 01 0 00 014255' OUTCHR [^
566 012456' 051 11 0 00 000000 19800 CLR^CLRBFI^
567 012457' 200 02 0 00 012317' 19850 MOVE 2,LC
568 012460' 270 02 0 00 000002 19900 ADD 2,2
569 012461' 301 02 0 00 012323' 19950 CAIL 2,CELL
570 012462' 324 00 0 00 012471' 20000 JUMPA INVAL
571 012463' 200 01 0 00 014256' 20050 Z6^MOVE 1,[
572 012464' 200 02 0 00 014262' MOVE 2,[
573 012465' 202 01 0 02 000000 MOVEM 1,(2)
574 012466' 367 02 0 00 012465' SOJG 2,.-1
575 012467' 200 02 0 00 014256' T^^MOVE 2,[
576 012470' 324 00 0 00 012477' 20100 JUMPA A60
577 012471' 051 01 0 00 014254' 20150 INVAL:CR^OUTCHR [
578 012472' 051 01 0 00 014255' OUTCHR [^
579 012473' 051 03 0 00 014341' 20200 MZ5:OUTSTR [ASCIZ/TOO HIGH !!!!!/]
580 012474' 051 01 0 00 014254' 20250 CR^OUTCHR [
581 012475' 051 01 0 00 014255' OUTCHR [^
582 012476' 324 00 0 00 012422' 20300 JUMPA A31
583 012477' 200 01 0 00 014256' 20350 A60:Z6^MOVE 1,[
584 012500' 200 02 0 00 014262' MOVE 2,[
585 012501' 202 01 0 02 000000 MOVEM 1,(2)
586 012502' 367 02 0 00 012501' SOJG 2,.-1
587 012503' 200 02 0 00 014256' T^^MOVE 2,[
588 012504' 051 01 0 00 014254' 20400 A61:CR^OUTCHR [
589 012505' 051 01 0 00 014255' OUTCHR [^
590 012506' 051 11 0 00 000000 20450 CLR^CLRBFI^
591 012507' 200 01 0 00 014256' 20500 Z6^MOVE 1,[
592 012510' 200 02 0 00 014262' MOVE 2,[
593 012511' 202 01 0 02 000000 MOVEM 1,(2)
594 012512' 367 02 0 00 012511' SOJG 2,.-1
595 012513' 200 02 0 00 014256' T^^MOVE 2,[
596 012514' 051 00 0 00 000001 20550 A6:IN^INCHRW 1
597 012515' 202 01 0 00 012342' 20600 MOVEM 1,X22
598 012516' 266 16 0 00 000200' 20650 JSA 16,RUPT
599 012517' 320 00 0 00 000001 20700 ARG 1
600 012520' 051 01 0 00 000005 20750 OUTCHR 5
601 012521' 051 11 0 00 000000 20800 CLR^CLRBFI^
602 012522' 200 01 0 00 012342' 20850 MOVE 1,X22
603 012523' 306 01 0 00 000041 20900 CAIN 1,41
604 012524' 324 00 0 00 012504' 20950 JUMPA A61
605 012525' 306 01 0 00 000100 21000 CAIN 1,100
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-11
PDP 8 17-DEC-75 12:37
606 012526' 324 00 0 00 013036' 21050 JUMPA COMP
607 012527' 306 01 0 00 000052 21100 CAIN 1,52
608 012530' 324 00 0 00 012436' 21150 JUMPA A4
609 012531' 306 01 0 00 000011 21200 TAB1:CAIN 1,11
610 012532' 324 00 0 00 012554' 21250 JUMPA LBEN
611 012533' 200 10 0 00 012335' 21300 LABL:MOVE 10,X9
612 012534' 200 13 0 00 014344' 21350 MOVE 13,[0,,2]
613 012535' 240 02 0 00 000011 21400 A7:ASH 2,11 ;CHECK !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
614 012536' 270 02 0 00 000001 21450 ADD 2,1
615 012537' 362 13 0 00 012543' 21500 SOJE 13,A8
616 012540' 200 01 0 00 014256' 21550 MOVE 1,[0,,0]
617 012541' 051 00 0 00 000001 21600 IN^INCHRW 1
618 012542' 324 00 0 00 012535' 21650 JUMPA A7
619 012543' 202 02 0 10 000000 21700 A8:MOVEM 2,(10)
620 012544' 202 02 0 00 012326' 21750 MOVEM 2,X2
621 012545' 340 10 0 00 000000 21800 AOJ 10,
622 012546' 200 02 0 00 012317' 21850 MOVE 2,LC
623 012547' 202 02 0 10 000000 21900 MOVEM 2,(10)
624 012550' 340 10 0 00 000000 21950 AOJ 10,
625 012551' 202 10 0 00 012335' 22000 MOVEM 10,X9
626 012552' 350 00 0 00 011614' 22020 AOS ,LMAX
627 012553' 324 00 0 00 012560' 22050 JUMPA GAS
628 012554' 051 01 0 00 014260' 22100 LBEN:BL4^OUTCHR [
629 012555' 051 01 0 00 014260' OUTCHR [
630 012556' 051 01 0 00 014260' OUTCHR [
631 012557' 051 01 0 00 014260' OUTCHR [
632 012560' 051 01 0 00 014260' 22150 GAS:BL4^OUTCHR [
633 012561' 051 01 0 00 014260' OUTCHR [
634 012562' 051 01 0 00 014260' OUTCHR [
635 012563' 051 01 0 00 014260' OUTCHR [
636 012564' 051 11 0 00 000000 22200 CLR^CLRBFI^
637 012565' 200 01 0 00 014256' 22250 Z17^MOVE 1,[
638 012566' 200 02 0 00 014261' MOVE 2,[
639 012567' 202 01 0 02 000000 MOVEM 1,(2)
640 012570' 360 02 0 00 000000 SOJ 2,
641 012571' 302 02 0 00 000006 CAIE 2,6
642 012572' 324 00 0 00 012567' JUMPA .-3^
643 012573' 200 01 0 00 014256' 22300 Z6^MOVE 1,[
644 012574' 200 02 0 00 014262' MOVE 2,[
645 012575' 202 01 0 02 000000 MOVEM 1,(2)
646 012576' 367 02 0 00 012575' SOJG 2,.-1
647 012577' 200 02 0 00 014256' T^^MOVE 2,[
648 012600' 051 01 0 00 014260' 22350 A98:BL^OUTCHR [
649 012601' 051 11 0 00 000000 22400 CLR^CLRBFI^
650 012602' 051 00 0 00 000001 22450 A9:INCHRW 1
651 012603' 306 01 0 00 000072 22500 CAIN 1,72
652 012604' 324 00 0 00 012762' 22550 JUMPA COMN
653 012605' 306 01 0 00 000054 22600 CAIN 1,54
654 012606' 324 00 0 00 012610' 22650 JUMPA NUMER
655 012607' 324 00 0 00 012600' 22700 JUMPA A98
656 012610' 051 11 0 00 000000 22750 NUMER:CLR^CLRBFI^
657 012611' 051 00 0 00 000001 22800 IN^INCHRW 1
658 012612' 306 01 0 00 000055 22850 CAIN 1,55
659 012613' 324 00 0 00 012642' 22900 JUMPA MINUS
660 012614' 200 01 0 00 014256' 22950 Z6^MOVE 1,[
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-12
PDP 8 17-DEC-75 12:37
661 012615' 200 02 0 00 014262' MOVE 2,[
662 012616' 202 01 0 02 000000 MOVEM 1,(2)
663 012617' 367 02 0 00 012616' SOJG 2,.-1
664 012620' 200 02 0 00 014256' T^^MOVE 2,[
665 012621' 051 11 0 00 000000 23000 PLUS:CLR^CLRBFI^
666 012622' 051 00 0 00 000001 23050 IN^INCHRW 1
667 012623' 306 01 0 00 000015 23100 CAIN 1,15
668 012624' 324 00 0 00 012633' 23150 JUMPA PUT1
669 012625' 305 01 0 00 000060 23200 CAIGE 1,60
670 012626' 324 00 0 00 012621' 23250 JUMPA PLUS
671 012627' 275 01 0 00 000060 23300 SUBI 1,60
672 012630' 221 02 0 00 000010 23350 IMULI 2,10
673 012631' 270 02 0 00 000001 23400 ADD 2,1
674 012632' 324 00 0 00 012621' 23450 JUMPA PLUS
675 012633' 202 02 0 00 012330' 23500 PUT1:MOVEM 2,X4
676 012634' 200 01 0 00 014256' 23550 Z6^MOVE 1,[
677 012635' 200 02 0 00 014262' MOVE 2,[
678 012636' 202 01 0 02 000000 MOVEM 1,(2)
679 012637' 367 02 0 00 012636' SOJG 2,.-1
680 012640' 200 02 0 00 014256' T^^MOVE 2,[
681 012641' 324 00 0 00 012653' 23600 JUMPA A10
682 012642' 200 17 0 00 014262' 23650 MINUS:MOVE 17,[0,,6]
683 012643' 051 03 0 00 014345' 23700 M8:OUTSTR [ASCIZ/(MINUS)/]
684 012644' 051 11 0 00 000000 23750 CLR^CLRBFI^
685 012645' 200 01 0 00 014256' 23800 Z6^MOVE 1,[
686 012646' 200 02 0 00 014262' MOVE 2,[
687 012647' 202 01 0 02 000000 MOVEM 1,(2)
688 012650' 367 02 0 00 012647' SOJG 2,.-1
689 012651' 200 02 0 00 014256' T^^MOVE 2,[
690 012652' 324 00 0 00 012621' 23850 JUMPA PLUS
691 012653' 302 17 0 00 000006 23900 A10:CAIE 17,6
692 012654' 324 00 0 00 012662' 23950 JUMPA PUT
693 012655' 200 17 0 00 014256' 24000 MOVE 17,[0,,0]
694 012656' 200 06 0 00 012330' 24050 MOVE 6,X4
695 012657' 266 16 0 00 000166' 24100 JSA 16,MN
696 012660' 320 00 0 00 000006 24150 ARG 6
697 012661' 202 06 0 00 012330' 24200 MOVEM 6,X4
698 012662' 051 01 0 00 014260' 24250 PUT:BL^OUTCHR [
699 012663' 051 11 0 00 000000 24300 CLR^CLRBFI^
700 012664' 051 11 0 00 000000 24350 CLR^CLRBFI^
701 012665' 200 01 0 00 014256' 24400 Z17^MOVE 1,[
702 012666' 200 02 0 00 014261' MOVE 2,[
703 012667' 202 01 0 02 000000 MOVEM 1,(2)
704 012670' 360 02 0 00 000000 SOJ 2,
705 012671' 302 02 0 00 000006 CAIE 2,6
706 012672' 324 00 0 00 012667' JUMPA .-3^
707 012673' 200 01 0 00 014256' 24450 Z6^MOVE 1,[
708 012674' 200 02 0 00 014262' MOVE 2,[
709 012675' 202 01 0 02 000000 MOVEM 1,(2)
710 012676' 367 02 0 00 012675' SOJG 2,.-1
711 012677' 200 02 0 00 014256' T^^MOVE 2,[
712 012700' 200 01 0 00 014303' 24500 MOVE 1,[0,,PD8]
713 012701' 200 02 0 00 012317' 24550 MOVE 2,LC
714 012702' 270 02 0 00 000002 24600 ADD 2,2
715 012703' 340 02 0 00 000000 24650 AOJ 2,
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-13
PDP 8 17-DEC-75 12:37
716 012704' 270 02 0 00 000001 24700 ADD 2,1
717 012705' 200 03 0 00 012330' 24750 MOVE 3,X4
718 012706' 202 03 0 02 000000 24800 MOVEM 3,(2)
719 012707' 200 01 0 00 014256' 24850 Z17^MOVE 1,[
720 012710' 200 02 0 00 014261' MOVE 2,[
721 012711' 202 01 0 02 000000 MOVEM 1,(2)
722 012712' 360 02 0 00 000000 SOJ 2,
723 012713' 302 02 0 00 000006 CAIE 2,6
724 012714' 324 00 0 00 012711' JUMPA .-3^
725 012715' 200 01 0 00 014256' 24900 Z6^MOVE 1,[
726 012716' 200 02 0 00 014262' MOVE 2,[
727 012717' 202 01 0 02 000000 MOVEM 1,(2)
728 012720' 367 02 0 00 012717' SOJG 2,.-1
729 012721' 200 02 0 00 014256' T^^MOVE 2,[
730 012722' 051 01 0 00 014260' 24950 BL^OUTCHR [
731 012723' 051 11 0 00 000000 25000 CLR^CLRBFI^
732 012724' 051 00 0 00 000001 25050 A11:IN^INCHRW 1
733 012725' 306 01 0 00 000100 25100 CAIN 1,100
734 012726' 324 00 0 00 013036' 25150 JUMPA COMP
735 012727' 302 01 0 00 000015 25200 CAIE 1,15
736 012730' 324 00 0 00 013233' 25250 JUMPA OPR
737 012731' 051 01 0 00 014260' 25300 BL^OUTCHR [
738 012732' 051 11 0 00 000000 25350 CLR^CLRBFI^
739 012733' 200 02 0 00 012317' 25400 LC1:MOVE 2,LC
740 012734' 340 02 0 00 000000 25450 AOJ 2,
741 012735' 202 02 0 00 012317' 25500 MOVEM 2,LC
742 012736' 202 02 0 00 012325' 25550 MOVEM 2,X1
743 012737' 051 01 0 00 014260' 25600 BL4^OUTCHR [
744 012740' 051 01 0 00 014260' OUTCHR [
745 012741' 051 01 0 00 014260' OUTCHR [
746 012742' 051 01 0 00 014260' OUTCHR [
747 25650
748 012743' 051 01 0 00 014254' 25700 CR^OUTCHR [
749 012744' 051 01 0 00 014255' OUTCHR [^
750 012745' 051 11 0 00 000000 25750 CLR^CLRBFI^
751 012746' 200 01 0 00 014256' 25800 Z17^MOVE 1,[
752 012747' 200 02 0 00 014261' MOVE 2,[
753 012750' 202 01 0 02 000000 MOVEM 1,(2)
754 012751' 360 02 0 00 000000 SOJ 2,
755 012752' 302 02 0 00 000006 CAIE 2,6
756 012753' 324 00 0 00 012750' JUMPA .-3^
757 012754' 200 01 0 00 014256' 25850 Z6^MOVE 1,[
758 012755' 200 02 0 00 014262' MOVE 2,[
759 012756' 202 01 0 02 000000 MOVEM 1,(2)
760 012757' 367 02 0 00 012756' SOJG 2,.-1
761 012760' 200 02 0 00 014256' T^^MOVE 2,[
762 012761' 324 00 0 00 012514' 25900 JUMPA A6
763 012762' 051 01 0 00 014260' 25950 COMN:BL^OUTCHR [
764 012763' 051 11 0 00 000000 26000 CLR^CLRBFI^
765 012764' 200 01 0 00 014256' 26050 Z17^MOVE 1,[
766 012765' 200 02 0 00 014261' MOVE 2,[
767 012766' 202 01 0 02 000000 MOVEM 1,(2)
768 012767' 360 02 0 00 000000 SOJ 2,
769 012770' 302 02 0 00 000006 CAIE 2,6
770 012771' 324 00 0 00 012766' JUMPA .-3^
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-14
PDP 8 17-DEC-75 12:37
771 012772' 200 01 0 00 014256' 26100 Z6^MOVE 1,[
772 012773' 200 02 0 00 014262' MOVE 2,[
773 012774' 202 01 0 02 000000 MOVEM 1,(2)
774 012775' 367 02 0 00 012774' SOJG 2,.-1
775 012776' 200 02 0 00 014256' T^^MOVE 2,[
776 012777' 200 03 0 00 014304' 26150 MOVE 3,[0,,3]
777 013000' 051 00 0 00 000001 26200 A20:IN^INCHRW 1
778 013001' 240 02 0 00 000011 26250 ASH 2,11
779 013002' 270 02 0 00 000001 26300 ADD 2,1
780 013003' 367 03 0 00 013000' 26350 SOJG 3,A20
781 013004' 200 04 0 00 014347' 26400 MOVE 4,[0,,COM]
782 013005' 200 03 0 00 014350' 26450 MOVE 3,[0,,60]
783 013006' 316 02 0 04 000000 26500 CN:CAMN 2,(4)
784 013007' 324 00 0 00 013017' 26550 JUMPA FIND
785 013010' 340 04 0 00 000000 26600 AOJ 4,
786 013011' 340 04 0 00 000000 26650 AOJ 4,
787 013012' 367 03 0 00 013006' 26700 SOJG 3,CN
788 013013' 051 01 0 00 014260' 26750 NOFND:BL^OUTCHR [
789 013014' 051 03 0 00 014351' 26800 MNOF:OUTSTR [ASCIZ/NO SUCH COMMAND,TRY AGAIN/]
790 013015' 051 11 0 00 000000 26850 CLR^CLRBFI^
791 013016' 324 00 0 00 012762' 26900 JUMPA COMN
792 013017' 340 04 0 00 000000 26950 FIND:AOJ 4,
793 013020' 200 01 0 04 000000 27000 MOVE 1,(4)
794 013021' 202 01 0 00 012330' 27050 MOVEM 1,X4
795 013022' 200 01 0 00 014256' 27100 Z17^MOVE 1,[
796 013023' 200 02 0 00 014261' MOVE 2,[
797 013024' 202 01 0 02 000000 MOVEM 1,(2)
798 013025' 360 02 0 00 000000 SOJ 2,
799 013026' 302 02 0 00 000006 CAIE 2,6
800 013027' 324 00 0 00 013024' JUMPA .-3^
801 013030' 200 01 0 00 014256' 27150 Z6^MOVE 1,[
802 013031' 200 02 0 00 014262' MOVE 2,[
803 013032' 202 01 0 02 000000 MOVEM 1,(2)
804 013033' 367 02 0 00 013032' SOJG 2,.-1
805 013034' 200 02 0 00 014256' T^^MOVE 2,[
806 013035' 324 00 0 00 012662' 27200 JUMPA PUT
807 013036' 051 01 0 00 014254' 27250 COMP:CR^OUTCHR [
808 013037' 051 01 0 00 014255' OUTCHR [^
809 013040' 051 03 0 00 014357' 27300 M50:OUTSTR [ASCIZ/COMPILATION STARTS/]
810 013041' 051 01 0 00 014254' 27350 CR^OUTCHR [
811 013042' 051 01 0 00 014255' OUTCHR [^
812 013043' 051 11 0 00 000000 27400 CLR^CLRBFI^
813 013044' 200 01 0 00 014256' 27450 Z17^MOVE 1,[
814 013045' 200 02 0 00 014261' MOVE 2,[
815 013046' 202 01 0 02 000000 MOVEM 1,(2)
816 013047' 360 02 0 00 000000 SOJ 2,
817 013050' 302 02 0 00 000006 CAIE 2,6
818 013051' 324 00 0 00 013046' JUMPA .-3^
819 013052' 200 01 0 00 014256' 27500 Z6^MOVE 1,[
820 013053' 200 02 0 00 014262' MOVE 2,[
821 013054' 202 01 0 02 000000 MOVEM 1,(2)
822 013055' 367 02 0 00 013054' SOJG 2,.-1
823 013056' 200 02 0 00 014256' T^^MOVE 2,[
824 013057' 202 01 0 00 012333' 27550 MOVEM 1,X7
825 013060' 200 13 0 00 014303' 27600 MOVE 13,[0,,PD8]
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-15
PDP 8 17-DEC-75 12:37
826 013061' 200 10 0 00 012335' 27650 MOVE 10,X9
827 013062' 200 04 0 00 014312' 27700 MOVE 4,[0,,LAB]
828 013063' 200 01 0 00 014303' 27750 MOVE 1,[0,,PD8]
829 013064' 200 03 0 01 000000 27800 K9:MOVE 3,(1)
830 013065' 240 03 0 00 777765 27850 ASH 3,-13
831 013066' 327 03 0 00 013100' 27900 JUMPG 3,POD
832 013067' 250 11 0 00 012333' 27950 AJ1:EXCH 11,X7
833 013070' 340 11 0 00 000000 28000 AOJ 11,
834 013071' 250 11 0 00 012333' 28050 EXCH 11,X7
835 013072' 340 01 0 00 000000 28100 AJ:AOJ 1,
836 013073' 340 01 0 00 000000 28150 AOJ 1,
837 013074' 200 03 0 00 014256' 28200 MOVE 3,[0,,0]
838 013075' 305 01 0 00 004777 28250 CAIGE 1,4777
839 013076' 324 00 0 00 013064' 28300 JUMPA K9
840 013077' 324 00 0 00 013145' 28350 JUMPA ENCO
841 013100' 200 04 0 00 014312' 28400 POD:MOVE 4,[0,,LAB]
842 013101' 200 03 0 01 000000 28450 POD1:MOVE 3,(1)
843 013102' 316 03 0 04 000000 28500 CAMN 3,(4)
844 013103' 324 00 0 00 013111' 28550 JUMPA SET
845 013104' 340 04 0 00 000000 28600 AOJ 4,
846 013105' 340 04 0 00 000000 28650 AOJ 4,
847 013106' 311 04 0 00 012335' 28700 CAML 4,X9
848 013107' 324 00 0 00 013130' 28750 JUMPA NOLAB
849 013110' 324 00 0 00 013101' 28800 JUMPA POD1
850 013111' 340 04 0 00 000000 28850 SET:AOJ 4,
851 013112' 200 05 0 04 000000 28900 MOVE 5,(4)
852 013113' 200 13 0 00 012333' 28950 MOVE 13,X7
853 013114' 266 16 0 00 000363' 29000 JSA 16,LIM
854 013115' 320 00 0 00 000013 29050 ARG 13
855 013116' 320 00 0 00 000005 29100 ARG 5
856 013117' 240 05 0 00 000007 29150 ASH 5,7
857 013120' 270 05 0 00 000013 29200 ADD 5,13
858 013121' 340 01 0 00 000000 29250 AOJ 1,
859 013122' 270 05 0 01 000000 29300 ADD 5,(1)
860 013123' 202 05 0 01 000000 29350 MOVEM 5,(1)
861 013124' 360 01 0 00 000000 29400 SOJ 1,
862 013125' 200 13 0 00 012333' 29450 MOVE 13,X7
863 013126' 202 13 0 01 000000 29500 MOVEM 13,(1)
864 013127' 324 00 0 00 013067' 29550 JUMPA AJ1
865 013130' 051 01 0 00 014254' 29600 NOLAB:CR^OUTCHR [
866 013131' 051 01 0 00 014255' OUTCHR [^
867 013132' 051 03 0 00 014363' 29650 OUTSTR [ASCIZ/LABEL NOT FOUND/]
868 013133' 051 01 0 00 014254' 29700 CR^OUTCHR [
869 013134' 051 01 0 00 014255' OUTCHR [^
870 013135' 051 11 0 00 000000 29750 CLR^CLRBFI^
871 013136' 200 15 0 00 012333' 29800 MOVE 15,X7
872 013137' 266 16 0 00 000251' 29850 JSA 16,TRANS
873 013140' 320 00 0 00 000015 29900 ARG 15
874 013141' 320 00 0 00 000015 29950 ARG 15
875 013142' 051 01 0 00 014254' 30000 CR^OUTCHR [
876 013143' 051 01 0 00 014255' OUTCHR [^
877 013144' 324 00 0 00 013067' 30050 JUMPA AJ1
878 013145' 051 11 0 00 000000 30100 ENCO:CLR^CLRBFI^
879 013146' 200 01 0 00 014256' 30150 Z17^MOVE 1,[
880 013147' 200 02 0 00 014261' MOVE 2,[
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-16
PDP 8 17-DEC-75 12:37
881 013150' 202 01 0 02 000000 MOVEM 1,(2)
882 013151' 360 02 0 00 000000 SOJ 2,
883 013152' 302 02 0 00 000006 CAIE 2,6
884 013153' 324 00 0 00 013150' JUMPA .-3^
885 013154' 200 01 0 00 014256' 30200 Z6^MOVE 1,[
886 013155' 200 02 0 00 014262' MOVE 2,[
887 013156' 202 01 0 02 000000 MOVEM 1,(2)
888 013157' 367 02 0 00 013156' SOJG 2,.-1
889 013160' 200 02 0 00 014256' T^^MOVE 2,[
890 013161' 051 01 0 00 014254' 30250 ENCO1:CR^OUTCHR [
891 013162' 051 01 0 00 014255' OUTCHR [^
892 013163' 051 03 0 00 014367' 30300 OUTSTR [ASCIZ/!!! TO INTERRUPT, ANYTHING TO CONTINUE/]
893 013164' 051 11 0 00 000000 30350 CLR^CLRBFI^
894 013165' 051 00 0 00 000001 30400 IN^INCHRW 1
895 013166' 266 16 0 00 000200' 30450 JSA 16,RUPT
896 013167' 320 00 0 00 000001 30500 ARG 1
897 013170' 324 00 0 00 013311' 30550 JUMPA CENT
898 013171' 051 03 0 00 014377' 30600 EX:OUTSTR [ASCIZ/START EXEC. AT LABEL:/]
899 013172' 051 01 0 00 014260' 30650 BL^OUTCHR [
900 013173' 200 01 0 00 014256' 30700 Z17^MOVE 1,[
901 013174' 200 02 0 00 014261' MOVE 2,[
902 013175' 202 01 0 02 000000 MOVEM 1,(2)
903 013176' 360 02 0 00 000000 SOJ 2,
904 013177' 302 02 0 00 000006 CAIE 2,6
905 013200' 324 00 0 00 013175' JUMPA .-3^
906 013201' 200 01 0 00 014256' 30750 Z6^MOVE 1,[
907 013202' 200 02 0 00 014262' MOVE 2,[
908 013203' 202 01 0 02 000000 MOVEM 1,(2)
909 013204' 367 02 0 00 013203' SOJG 2,.-1
910 013205' 200 02 0 00 014256' T^^MOVE 2,[
911 013206' 051 11 0 00 000000 30800 CLR^CLRBFI^
912 013207' 200 03 0 00 014344' 30850 EX1:MOVE 3,[0,,2]
913 013210' 051 00 0 00 000001 30900 KOP:IN^INCHRW 1
914 013211' 240 02 0 00 000011 30950 ASH 2,11
915 013212' 270 02 0 00 000001 31000 ADD 2,1
916 013213' 367 03 0 00 013210' 31050 SOJG 3,KOP
917 013214' 202 02 0 00 012337' 31100 MOVEM 2,X11
918 013215' 200 01 0 00 014312' 31150 MOVE 1,[0,,LAB]
919 013216' 316 02 0 01 000000 31200 EX12:CAMN 2,(1)
920 013217' 324 00 0 00 013226' 31250 JUMPA STR
921 013220' 340 01 0 00 000000 31300 AOJ 1,
922 013221' 340 01 0 00 000000 31350 AOJ 1,
923 013222' 315 01 0 00 012335' 31400 CAMGE 1,X9
924 013223' 324 00 0 00 013216' 31450 JUMPA EX12
925 013224' 051 03 0 00 014404' 31500 OUTSTR [ASCIZ/ NO SUCH LABEL /]
926 013225' 324 00 0 00 013311' 31550 JUMPA CENT
927 013226' 340 01 0 00 000000 31600 STR:AOJ 1,
928 013227' 200 02 0 01 000000 31650 MOVE 2,(1)
929 013230' 202 02 0 00 012343' 31700 MOVEM 2,STA
930 013231' 202 02 0 00 012337' 31750 MOVEM 2,X11
931 013232' 324 00 0 00 013404' 31800 JUMPA ST12
932 013233' 051 11 0 00 000000 31850 OPR:CLR^CLRBFI^
933 013234' 202 01 0 00 000002 31900 MOVEM 1,2
934 013235' 051 11 0 00 000000 31950 CLR^CLRBFI^
935 013236' 306 02 0 00 000111 32000 CAIN 2,111
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-17
PDP 8 17-DEC-75 12:37
936 013237' 324 00 0 00 013257' 32050 JUMPA I1
937 013240' 200 03 0 00 014305' 32100 OPR1:MOVE 3,[0,,1]
938 013241' 240 02 0 00 000011 32150 Q97:ASH 2,11
939 013242' 051 00 0 00 000001 32200 IN^INCHRW 1
940 013243' 270 02 0 00 000001 32250 ADD 2,1
941 013244' 367 03 0 00 013241' 32300 SOJG 3,Q97
942 013245' 202 02 0 00 012331' 32350 MOVEM 2,X5
943 013246' 200 01 0 00 014303' 32400 MOVE 1,[0,,PD8]
944 013247' 200 03 0 00 012317' 32450 MOVE 3,LC
945 013250' 270 03 0 00 000003 32500 ADD 3,3
946 013251' 270 01 0 00 000003 32550 ADD 1,3
947 013252' 200 02 0 00 012331' 32600 MOVE 2,X5
948 013253' 202 02 0 01 000000 32650 MOVEM 2,(1)
949 013254' 051 01 0 00 014260' 32700 BL^OUTCHR [
950 013255' 051 11 0 00 000000 32750 CLR^CLRBFI^
951 013256' 324 00 0 00 012733' 32800 JUMPA LC1
952 013257' 051 01 0 00 014260' 32850 I1:BL^OUTCHR [
953 013260' 200 17 0 00 014411' 32900 MOVE 17,[0,,400]
954 013261' 200 01 0 00 014303' 32950 MOVE 1,[0,,PD8]
955 013262' 200 02 0 00 012317' 33000 MOVE 2,LC
956 013263' 270 02 0 00 000002 33050 ADD 2,2
957 013264' 340 02 0 00 000000 33100 AOJ 2,
958 013265' 270 02 0 00 000001 33150 ADD 2,1
959 013266' 200 03 0 02 000000 33200 MOVE 3,(2)
960 013267' 270 03 0 00 000017 33250 ADD 3,17
961 013270' 202 03 0 02 000000 33300 MOVEM 3,(2)
962 013271' 051 11 0 00 000000 33350 CLR^CLRBFI^
963 013272' 200 01 0 00 014256' 33400 Z17^MOVE 1,[
964 013273' 200 02 0 00 014261' MOVE 2,[
965 013274' 202 01 0 02 000000 MOVEM 1,(2)
966 013275' 360 02 0 00 000000 SOJ 2,
967 013276' 302 02 0 00 000006 CAIE 2,6
968 013277' 324 00 0 00 013274' JUMPA .-3^
969 013300' 200 01 0 00 014256' 33450 Z6^MOVE 1,[
970 013301' 200 02 0 00 014262' MOVE 2,[
971 013302' 202 01 0 02 000000 MOVEM 1,(2)
972 013303' 367 02 0 00 013302' SOJG 2,.-1
973 013304' 200 02 0 00 014256' T^^MOVE 2,[
974 013305' 051 00 0 00 000001 33500 IN^INCHRW 1
975 013306' 202 01 0 00 000002 33550 MOVEM 1,2
976 013307' 324 00 0 00 013240' 33600 JUMPA OPR1
977 33642 DEFINE MAP(AC,W)
978 33644 <MOVE 12,[0,,0]
979 33646 LDB 12,[POINT W,AC,35]
980 33648 MOVE AC,12>
981 33650 DEFINE LOC(%AK,%ZP,%YU)
982 33700 <MOVE 3,PD8(2)
983 33750 MOVE 6,[0,,0]
984 33800 MOVE 5,[0,,0]
985 33850 LDB 5,[POINT 7,3,35]
986 33900 LDB 6,[POINT 1,3,28]
987 33950 SOJL 6,%ZP
988 34000 MOVE 10,STA
989 34050 CAIGE 10,200
990 34100 JUMPA %AK
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-18
PDP 8 17-DEC-75 12:37
991 34150 SUBI 10,200
992 34200 JUMPA .-3
993 34250 %AK:MOVE 11,STA
994 34300 SUB 11,10
995 34350 ADD 5,11
996 34400 %ZP:IMULI 5,2
997 34450 MOVE 4,5
998 34500 SETZ 6
999 34550 LDB 6,[POINT 1,PD8(2),27]
1000 34600 SOJL 6,%YU
1001 34650 AOJ 5,
1002 34700 MOVE 4,PD8(5)
1003 34750 IMULI 4,2
1004 34800 %YU:AOJ 4,>
1005 34850 DEFINE DEBUG
1006 34900 <
1007 34950 MOVEM 2,X1
1008 35000 MOVEM 4,X2
1009 35050 MOVEM 15,X3
1010 35100 OUTSTR [ASCIZ/! TO DEBUG ANYTHING TO CONTINUE/]
1011 35150 CLR
1012 35200 IN
1013 35250 JSA 16,RUPT
1014 35300 ARG 1
1015 35350 CLR
1016 35400 MOVE 2,X1
1017 35450 MOVE 4,X2
1018 35500 MOVE 15,X3
1019 35550 OUTSTR [ASCIZ/END OF DEBUG/]
1020 35600 >
1021 35650 DEFINE ACUM
1022 35700 <LSH 15,27
1023 35750 LSH 15,-27
1024 35800 >
1025 35850 DEFINE TYPE(A)
1026 35900 <CLR
1027 35950 NUMB(A)
1028 36000 CR>
1029 013310' 051 11 0 00 000000 36100 CENTO:CLR^CLRBFI^
1030 013311' 051 03 0 00 014412' 36150 CENT:OUTSTR[ASCIZ/CENT/]
1031 013312' 051 01 0 00 014254' 36200 CR^OUTCHR [
1032 013313' 051 01 0 00 014255' OUTCHR [^
1033 013314' 051 11 0 00 000000 36250 CLR^CLRBFI^
1034 013315' 051 00 0 00 000001 36300 IN^INCHRW 1
1035 013316' 202 01 0 00 000000 36350 MOVEM 1,0
1036 013317' 266 16 0 00 000200' 36400 JSA 16,RUPT
1037 013320' 320 00 0 00 000001 36450 ARG 1
1038 013321' 200 01 0 00 000000 36500 MOVE 1,0
1039 013322' 306 01 0 00 000064 36550 CAIN 1,64
1040 013323' 324 00 0 00 012350' 36600 JUMPA IN1
1041 013324' 306 01 0 00 000065 36650 CAIN 1,65
1042 013325' 324 00 0 00 012416' 36700 JUMPA M2
1043 013326' 306 01 0 00 000061 36750 CAIN 1,61
1044 013327' 266 16 0 00 000000* 36800 JSA 16,START
1045 013330' 306 01 0 00 000062 36850 CAIN 1,62
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-19
PDP 8 17-DEC-75 12:37
1046 013331' 266 16 0 00 000000* 36900 JSA 16,FINISH
1047 013332' 306 01 0 00 000063 36950 CAIN 1,63
1048 013333' 324 00 0 00 013347' 37000 JUMPA RD
1049 013334' 306 01 0 00 000066 37050 CAIN 1,66
1050 013335' 324 00 0 00 013354' 37100 JUMPA RITE
1051 013336' 306 01 0 00 000077 37150 CAIN 1,77
1052 013337' 324 00 0 00 013361' 37200 JUMPA RELI
1053 013340' 306 01 0 00 000102 37250 CAIN 1,102
1054 013341' 324 00 0 00 013036' 37300 JUMPA COMP
1055 013342' 306 01 0 00 000103 37350 CAIN 1,103
1056 013343' 324 00 0 00 013171' 37400 JUMPA EX
1057 013344' 306 01 0 00 000104 37450 CAIN 1,104
1058 013345' 324 00 0 00 013171' 37500 JUMPA EX
1059 013346' 324 00 0 00 013311' 37550 JUMPA CENT
1060 013347' 266 16 0 00 000000* 37600 RD:JSA 16,OPEN1
1061 013350' 266 16 0 00 000000* 37650 JSA 16,LOK1
1062 013351' 266 16 0 00 000000* 37700 JSA 16,IN7
1063 013352' 266 16 0 00 000000* 37750 JSA 16,CLOS1
1064 013353' 324 00 0 00 013311' 37800 JUMPA CENT
1065 013354' 266 16 0 00 000000* 37850 RITE:JSA 16,OPEN2
1066 013355' 266 16 0 00 000000* 37900 JSA 16,ENT1
1067 013356' 266 16 0 00 000000* 37950 JSA 16,OUT7
1068 013357' 266 16 0 00 000000* 38000 JSA 16,CLOS2
1069 013360' 324 00 0 00 013311' 38050 JUMPA CENT
1070 013361' 266 16 0 00 000000* 38100 RELI:JSA 16,REL
1071 013362' 324 00 0 00 013311' 38150 JUMPA CENT
1072 013363' 051 03 0 00 014413' 38200 BEN:OUTSTR [ASCIZ/TYPE 1,2,3,4,5,6,7,A,B,C,D/]
1073 013364' 051 01 0 00 014254' 38205 CR^OUTCHR [
1074 013365' 051 01 0 00 014255' OUTCHR [^
1075 013366' 051 03 0 00 014421' 38210 OUTSTR [ASCIZ/B: COMPILE, C OR D: EXECUTE, /]
1076 013367' 051 03 0 00 014427' 38220 OUTSTR [ASCIZ/3: COPY FROM DISK, 6: WRITE ON DISK/]
1077 013370' 051 01 0 00 014254' 38225 CR^OUTCHR [
1078 013371' 051 01 0 00 014255' OUTCHR [^
1079 38230 OUTSTR [ASCIZ/4: TO START WRITING PROGRAM WITH * (DESTROYS OTHER PROGRAMS ON FILE)/
1080 013372' 051 03 0 00 014437' ]
1081 013373' 051 01 0 00 014254' 38240 CR^OUTCHR [
1082 013374' 051 01 0 00 014255' OUTCHR [^
1083 013375' 051 03 0 00 014455' 38242 OUTSTR [ASCIZ/5: START PROGRAM INPUT (PRESERVES OTHER PROGRAMS ON FILE/]
1084 013376' 051 01 0 00 014254' 38244 CR^OUTCHR [
1085 013377' 051 01 0 00 014255' OUTCHR [^
1086 38246 OUTSTR [ASCIZ/UPPER CASE 1(!): INTERRUPT FACILITY TO EXAMINE COMPILATION ANYWHERE/]
1087 013400' 051 03 0 00 014471'
1088 013401' 051 01 0 00 014254' 38248 CR^OUTCHR [
1089 013402' 051 01 0 00 014255' OUTCHR [^
1090 013403' 324 00 0 00 013311' 38250 JUMPA CENT
1091 38300 DEFINE CMA(%TMSK)
1092 38350 <TDCN 15,%TMSK
1093 38400 ARG 16
1094 38410 JUMPA BAK2
1095 38420 %TMSK:7777
1096 38430 >
1097 013404' 200 01 0 00 014256' 38450 ST12:Z17^MOVE 1,[
1098 013405' 200 02 0 00 014261' MOVE 2,[
1099 013406' 202 01 0 02 000000 MOVEM 1,(2)
1100 013407' 360 02 0 00 000000 SOJ 2,
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-20
PDP 8 17-DEC-75 12:37
1101 013410' 302 02 0 00 000006 CAIE 2,6
1102 013411' 324 00 0 00 013406' JUMPA .-3^
1103 013412' 200 01 0 00 014256' 38500 Z6^MOVE 1,[
1104 013413' 200 02 0 00 014262' MOVE 2,[
1105 013414' 202 01 0 02 000000 MOVEM 1,(2)
1106 013415' 367 02 0 00 013414' SOJG 2,.-1
1107 013416' 200 02 0 00 014256' T^^MOVE 2,[
1108 013417' 051 11 0 00 000000 38550 ST:CLR^CLRBFI^
1109 013420' 051 01 0 00 014254' 38580 CR^OUTCHR [
1110 013421' 051 01 0 00 014255' OUTCHR [^
1111 013422' 051 11 0 00 000000 38590 CLR^CLRBFI^
1112 013423' 200 02 0 00 012343' 38600 MOVE 2,STA
1113 013424' 270 02 0 00 000002 38650 ADD 2,2
1114 013425' 340 02 0 00 000000 38700 AOJ 2,
1115 013426' 135 01 0 00 014507' 38750 BEG:LDB 1,[POINT 3,PD8(2),26]
1116 013427' 306 01 0 00 000007 38800 CAIN 1,7
1117 013430' 324 00 0 00 013476' 38850 JUMPA OPM
1118 013431' 306 01 0 00 000006 38900 CAIN 1,6
1119 013432' 324 00 0 00 013513' 38950 JUMPA TTY
1120 013433' 200 17 0 00 014256' 39000 ME:MOVE 17,[0,,0]
1121 013434' 312 01 0 17 013524' 39050 CAME 1,MRI(17)
1122 013435' 344 17 0 00 013434' 39100 AOJA 17,.-1
1123 013436' 202 17 0 00 012337' 39150 MOVEM 17,X11
1124 013437' 200 03 0 02 000600' 39200 LOC^MOVE 3,PD8(2)
1125 013440' 200 06 0 00 014256' MOVE 6,[
1126 013441' 200 05 0 00 014256' MOVE 5,[
1127 013442' 135 05 0 00 014510' LDB 5,[
1128 013443' 135 06 0 00 014511' LDB 6,[
1129 013444' 361 06 0 00 013455' SOJL 6,..0001
1130 013445' 200 10 0 00 012343' MOVE 10,STA
1131 013446' 305 10 0 00 000200 CAIGE 10,200
1132 013447' 324 00 0 00 013452' JUMPA ..0002
1133 013450' 275 10 0 00 000200 SUBI 10,200
1134 013451' 324 00 0 00 013446' JUMPA .-3
1135 013452' 200 11 0 00 012343' ..0002:MOVE 11,STA
1136 013453' 274 11 0 00 000010 SUB 11,10
1137 013454' 270 05 0 00 000011 ADD 5,11
1138 013455' 221 05 0 00 000002 ..0001:IMULI 5,2
1139 013456' 200 04 0 00 000005 MOVE 4,5
1140 013457' 400 00 0 00 000006 SETZ 6
1141 013460' 135 06 0 00 014512' LDB 6,[
1142 013461' 361 06 0 00 013465' SOJL 6,..0003
1143 013462' 340 05 0 00 000000 AOJ 5,
1144 013463' 200 04 0 05 000600' MOVE 4,PD8(5)
1145 013464' 221 04 0 00 000002 IMULI 4,2
1146 013465' 340 04 0 00 000000 ..0003:AOJ 4,^
1147 013466' 200 10 0 00 014513' 39250 MOVE 10,[0,,MEM]
1148 013467' 200 17 0 00 012337' 39300 MOVE 17,X11
1149 013470' 270 10 0 00 000017 39350 ADD 10,17
1150 013471' 324 01 0 10 000000 39400 JUMPA 1,(10)
1151 013472' 242 15 0 00 000027 39450 BAC:ACUM^LSH 15,27
1152 013473' 242 15 0 00 777751 LSH 15,-27
1153 013474' 271 02 0 00 000002 39500 ADDI 2,2
1154 013475' 324 00 0 00 013426' 39550 JUMPA BEG
1155 013476' 200 17 0 00 014256' 39600 OPM:MOVE 17,[0,,0]
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-21
PDP 8 17-DEC-75 12:37
1156 013477' 200 03 0 00 014256' 39650 MOVE 3,[0,,0]
1157 013500' 200 03 0 02 000600' 39700 MOVE 3,PD8(2)
1158 013501' 312 03 0 17 013532' 39750 CAME 3,OMI(17)
1159 013502' 344 17 0 00 013501' 39800 AOJA 17,.-1
1160 013503' 200 10 0 00 014514' 39850 MOVE 10,[0,,OPER]
1161 013504' 270 10 0 00 000017 39900 ADD 10,17
1162 013505' 324 01 0 10 000000 39950 JUMPA 1,(10)
1163 013506' 242 15 0 00 000027 40000 BAK2:ACUM^LSH 15,27
1164 013507' 242 15 0 00 777751 LSH 15,-27
1165 013510' 271 02 0 00 000002 40050 FD:ADDI 2,2
1166 013511' 324 00 0 00 013512' 40100 GH:JUMPA .+1
1167 013512' 324 00 0 00 013426' 40150 JUMPA BEG
1168 013513' 200 17 0 00 014256' 40200 TTY:MOVE 17,[0,,0]
1169 013514' 200 03 0 02 000600' 40300 MOVE 3,PD8(2)
1170 013515' 312 03 0 17 013556' 40350 CAME 3,IOT(17)
1171 013516' 344 17 0 00 013515' 40400 AOJA 17,.-1
1172 013517' 200 10 0 00 014515' 40450 MOVE 10,[0,,TRN]
1173 013520' 270 10 0 00 000017 40500 ADD 10,17
1174 013521' 324 01 0 10 000000 40550 JUMPA 1,(10)
1175 013522' 271 02 0 00 000002 40600 BAC3:ADDI 2,2
1176 013523' 324 00 0 00 013426' 40700 JUMPA BEG
1177 013524' 000000 000000 40750 MRI:0
1178 013525' 000000 000001 40800 1
1179 013526' 000000 000002 40850 2
1180 013527' 000000 000003 40900 3
1181 013530' 000000 000004 40950 4
1182 013531' 000000 000005 41000 5
1183 013532' 000000 007010 41050 OMI:7010
1184 013533' 000000 007004 41100 7004
1185 013534' 000000 007200 41150 7200
1186 013535' 000000 007100 41200 7100
1187 013536' 000000 007402 41250 7402
1188 013537' 000000 007450 41300 7450
1189 013540' 000000 007420 41350 7420
1190 013541' 000000 007510 41400 7510
1191 013542' 000000 007000 41450 7000
1192 013543' 000000 007040 41500 7040
1193 013544' 000000 007020 41550 7020
1194 013545' 000000 007001 41600 7001
1195 013546' 000000 007002 41650 7002
1196 013547' 000000 007012 41700 7012
1197 013550' 000000 007006 41750 7006
1198 013551' 000000 007500 41800 7500
1199 013552' 000000 007440 41850 7440
1200 013553' 000000 007430 41900 7430
1201 013554' 000000 007410 41950 7410
1202 013555' 000000 007404 42000 7404
1203 013556' 000000 006030 42050 IOT:6030
1204 013557' 000000 006031 42100 6031
1205 013560' 000000 006032 42150 6032
1206 013561' 000000 006034 42200 6034
1207 013562' 000000 006035 42250 6035
1208 013563' 000000 006036 42300 6036
1209 013564' 000000 006040 42350 6040
1210 013565' 000000 006041 42400 6041
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-22
PDP 8 17-DEC-75 12:37
1211 013566' 000000 006042 42450 6042
1212 013567' 000000 006044 42500 6044
1213 013570' 000000 006045 42550 6045
1214 013571' 000000 006046 42600 6046
1215 42650 DEFINE AND(%A)
1216 42700 <MOVEI 7,13
1217 42750 MOVE 3,[0,,0]
1218 42800 MOVE 5,[0,,0]
1219 42850 MOVE 6,[0,,0]
1220 42900 %A:ILDB 3,[POINT 1,15,23]
1221 42950 ILDB 5,[POINT 1,PD8(4),23]
1222 43000 ADD 3,5
1223 43050 CAIN 3,2
1224 43100 AOJ 6,
1225 43150 LSH 6,1
1226 43200 MOVE 3,[0,,0]
1227 43250 SOJG 7,%A
1228 43300 MOVE 15,6
1229 43350 JUMPA BAC>
1230 43400 DEFINE ISZ(%T)
1231 43450 <MOVE 3,PD8(4)
1232 43500 AOJ 3,
1233 43550 MOVEM 3,PD8(4)
1234 43600 CAIN 3,10000
1235 43650 JUMPA %T
1236 43700 CAIN 3,0
1237 43750 %T:ADDI 2,2
1238 43800 JUMPA BAC>
1239 43900 DEFINE DCA
1240 43950 <MOVE 3,15
1241 44000 MAP(15,12)
1242 44005 MOVEM 15,PD8(4)
1243 44010 MOVE 15,[0,,0]
1244 44015 LDB 15,[POINT 1,3,23]
1245 44020 ROT 15,14
1246 44025 JUMPA BAC>
1247 44050 DEFINE JMS
1248 44100 <ADDI 2,2
1249 44150 MOVE 3,2
1250 44200 MOVE 5,4
1251 44250 IDIVI 3,2
1252 44300 MOVE 4,5
1253 44350 MOVEM 3,PD8(4)
1254 44400 MOVE 2,4
1255 44450 JUMPA BAC>
1256 44500 DEFINE JMP
1257 44550 <MOVE 2,4
1258 44600 JUMPA GH>
1259 44650 DEFINE ROTR
1260 44700 <MAP(15,13)
1261 44750 ARG 16
1262 44800 ROT 15,-1
1263 44820 MOVE 3,[0,,0]
1264 44850 LDB 3,[POINT 1,15,0]
1265 44900 DPB 3,[POINT 1,15,23]
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-23
PDP 8 17-DEC-75 12:37
1266 44950 MAP(15,13)
1267 45100 >
1268 45150 DEFINE ROTL
1269 45180 <LSH 15,27
1270 45190 LSH 15,-27
1271 45200 ROT 15,1
1272 45220 MOVE 3,[0,,0]
1273 45250 LDB 3,[POINT 1,15,22]
1274 45300 DPB 3,[POINT 1,15,35]
1275 45350 MAP(15,13)
1276 45500 >
1277 45505 DEFINE RAR
1278 45510 <ROTR
1279 45515 JUMPA BAK2>
1280 45520 DEFINE RAL
1281 45525 <ROTL
1282 45530 JUMPA BAK2>
1283 45550 DEFINE CLA
1284 45600 <MOVE 3,15
1285 45650 MOVE 15,[0,,0]
1286 45700 LDB 15,[POINT 1,3,23]
1287 45730 ROT 15,14
1288 45740 JUMPA BAK2>
1289 45750 DEFINE CLL
1290 45800 <MOVE 3,[0,,0]
1291 45850 DPB 3,[POINT 24,15,23]
1292 45900 JUMPA BAK2>
1293 45950 DEFINE SNA(%B)
1294 46000 <CAIN 15,0
1295 46050 JUMPA %B
1296 46100 CAIN 15,10000
1297 46150 JUMPA %B
1298 46200 ADDI 2,2
1299 46250 %B:JUMPA BAK2>
1300 46300 DEFINE SNL
1301 46350 <MOVE 3,[0,,0]
1302 46400 LDB 3,[POINT 1,15,23]
1303 46450 CAIE 3,0
1304 46500 ADDI 2,2
1305 46550 JUMPA BAK2>
1306 46600 DEFINE TAD
1307 46650 <ADD 15,PD8(4)
1308 46700 JUMPA BAC>
1309 46750 DEFINE HLT(%ENQ)
1310 46800 <CR
1311 46850 OUTSTR [ASCIZ/AC AT END OF EXECUTION: /]
1312 46870 TYPE(15)
1313 46900 %ENQ:CLR
1314 46950 DEBUG
1315 46960 OUTCHR [15]
1316 46970 OUTCHR [12]
1317 46980 OUTSTR [ASCIZ/UPPERCASE L(\) TO EXIT, ANYTHING TO DEBUG AGAIN/]
1318 46990 OUTCHR [15]
1319 46995 OUTCHR [12]
1320 47000 CLRBFI
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-24
PDP 8 17-DEC-75 12:37
1321 47050 IN
1322 47100 CAIN 1,134
1323 47150 JUMPA OVER
1324 47200 JUMPA %ENQ>
1325 013572' 324 00 0 00 013600' 47250 MEM:JUMPA ANDS
1326 013573' 324 00 0 00 013616' 47300 JUMPA TADS
1327 013574' 324 00 0 00 013620' 47350 JUMPA ISZS
1328 013575' 324 00 0 00 013630' 47400 JUMPA DCAS
1329 013576' 324 00 0 00 013641' 47450 JUMPA JMSS
1330 013577' 324 00 0 00 013651' 47500 JUMPA JMPS
1331 013600' 201 07 0 00 000013 49150 ANDS:AND^MOVEI 7,13
1332 013601' 200 03 0 00 014256' MOVE 3,[
1333 013602' 200 05 0 00 014256' MOVE 5,[
1334 013603' 200 06 0 00 014256' MOVE 6,[
1335 013604' 134 03 0 00 014516' ..0004:ILDB 3,[
1336 013605' 134 05 0 00 014517' ILDB 5,[
1337 013606' 270 03 0 00 000005 ADD 3,5
1338 013607' 306 03 0 00 000002 CAIN 3,2
1339 013610' 340 06 0 00 000000 AOJ 6,
1340 013611' 242 06 0 00 000001 LSH 6,1
1341 013612' 200 03 0 00 014256' MOVE 3,[
1342 013613' 367 07 0 00 013604' SOJG 7,..0004
1343 013614' 200 15 0 00 000006 MOVE 15,6
1344 013615' 324 00 0 00 013472' JUMPA BAC^
1345 013616' 270 15 0 04 000600' 49200 TADS:TAD^ADD 15,PD8(4)
1346 013617' 324 00 0 00 013472' JUMPA BAC^
1347 013620' 200 03 0 04 000600' 49250 ISZS:ISZ^MOVE 3,PD8(4)
1348 013621' 340 03 0 00 000000 AOJ 3,
1349 013622' 202 03 0 04 000600' MOVEM 3,PD8(4)
1350 013623' 306 03 0 00 010000 CAIN 3,10000
1351 013624' 324 00 0 00 013626' JUMPA ..0005
1352 013625' 306 03 0 00 000000 CAIN 3,0
1353 013626' 271 02 0 00 000002 ..0005:ADDI 2,2
1354 013627' 324 00 0 00 013472' JUMPA BAC^
1355 013630' 200 03 0 00 000015 49300 DCAS:DCA^MOVE 3,15
1356 013631' 200 12 0 00 014256' MAP(15,12)^MOVE 12,[
1357 013632' 135 12 0 00 014520' LDB 12,[
1358 013633' 200 15 0 00 000012 MOVE 15,12^
1359 013634' 202 15 0 04 000600' MOVEM 15,PD8(4)
1360 013635' 200 15 0 00 014256' MOVE 15,[
1361 013636' 135 15 0 00 014521' LDB 15,[
1362 013637' 241 15 0 00 000014 ROT 15,14
1363 013640' 324 00 0 00 013472' JUMPA BAC^
1364 013641' 271 02 0 00 000002 49350 JMSS:JMS^ADDI 2,2
1365 013642' 200 03 0 00 000002 MOVE 3,2
1366 013643' 200 05 0 00 000004 MOVE 5,4
1367 013644' 231 03 0 00 000002 IDIVI 3,2
1368 013645' 200 04 0 00 000005 MOVE 4,5
1369 013646' 202 03 0 04 000600' MOVEM 3,PD8(4)
1370 013647' 200 02 0 00 000004 MOVE 2,4
1371 013650' 324 00 0 00 013472' JUMPA BAC^
1372 013651' 200 02 0 00 000004 49400 JMPS:JMP^MOVE 2,4
1373 013652' 324 00 0 00 013511' JUMPA GH^
1374 013653' 200 12 0 00 014256' 49450 RARS:RAR^ROTR^MAP(15,13)^MOVE 12,[
1375 013654' 135 12 0 00 014522' LDB 12,[
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-25
PDP 8 17-DEC-75 12:37
1376 013655' 200 15 0 00 000012 MOVE 15,12^
1377 013656' 320 00 0 00 000016 ARG 16
1378 013657' 241 15 0 00 777777 ROT 15,-1
1379 013660' 200 03 0 00 014256' MOVE 3,[
1380 013661' 135 03 0 00 014523' LDB 3,[
1381 013662' 137 03 0 00 014516' DPB 3,[
1382 013663' 200 12 0 00 014256' MAP(15,13)^MOVE 12,[
1383 013664' 135 12 0 00 014522' LDB 12,[
1384 013665' 200 15 0 00 000012 MOVE 15,12^
1385 013666' 324 00 0 00 013506' JUMPA BAK2^
1386 013667' 242 15 0 00 000027 49500 RALS:RAL^ROTL^LSH 15,27
1387 013670' 242 15 0 00 777751 LSH 15,-27
1388 013671' 241 15 0 00 000001 ROT 15,1
1389 013672' 200 03 0 00 014256' MOVE 3,[
1390 013673' 135 03 0 00 014524' LDB 3,[
1391 013674' 137 03 0 00 014525' DPB 3,[
1392 013675' 200 12 0 00 014256' MAP(15,13)^MOVE 12,[
1393 013676' 135 12 0 00 014522' LDB 12,[
1394 013677' 200 15 0 00 000012 MOVE 15,12^
1395 013700' 324 00 0 00 013506' JUMPA BAK2^
1396 013701' 200 03 0 00 000015 49550 CLAS:CLA^MOVE 3,15
1397 013702' 200 15 0 00 014256' MOVE 15,[
1398 013703' 135 15 0 00 014521' LDB 15,[
1399 013704' 241 15 0 00 000014 ROT 15,14
1400 013705' 324 00 0 00 013506' JUMPA BAK2^
1401 013706' 200 03 0 00 014256' 49650 CLLS:CLL^MOVE 3,[
1402 013707' 137 03 0 00 014526' DPB 3,[
1403 013710' 324 00 0 00 013506' JUMPA BAK2^
1404 013711' 051 01 0 00 014254' 49700 HLTS:HLT^CR^OUTCHR [
1405 013712' 051 01 0 00 014255' OUTCHR [^
1406 013713' 051 03 0 00 014527' OUTSTR [
1407 013714' 051 11 0 00 000000 TYPE(15)^CLR^CLRBFI^
1408 013715' 200 12 0 00 000015 NUMB(15)^MOVE 12,15
1409 013716' 200 11 0 00 014256' MOVE 11,[
1410 013717' 244 11 0 00 000002 ASHC 11,2
1411 013720' 271 11 0 00 000060 ADDI 11,60
1412 013721' 051 01 0 00 000011 OUTCHR 11
1413 013722' 200 17 0 00 014257' MOVE 17,[
1414 013723' 200 11 0 00 014256' MOVE 11,[
1415 013724' 244 11 0 00 000003 ASHC 11,3
1416 013725' 271 11 0 00 000060 ADDI 11,60
1417 013726' 051 01 0 00 000011 OUTCHR 11
1418 013727' 367 17 0 00 013723' SOJG 17,.-4
1419 013730' 051 01 0 00 014260' OUTCHR [
1420 013731' 051 01 0 00 014254' CR^^OUTCHR [
1421 013732' 051 01 0 00 014255' OUTCHR [^
1422 013733' 051 11 0 00 000000 ..0006:CLR^CLRBFI^
1423 013734' 202 02 0 00 012325' MOVEM 2,X1
1424 013735' 202 04 0 00 012326' MOVEM 4,X2
1425 013736' 202 15 0 00 012327' MOVEM 15,X3
1426 013737' 051 03 0 00 014534' OUTSTR [
1427 013740' 051 11 0 00 000000 CLR^CLRBFI^
1428 013741' 051 00 0 00 000001 IN^INCHRW 1
1429 013742' 266 16 0 00 000200' JSA 16,RUPT
1430 013743' 320 00 0 00 000001 ARG 1
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-26
PDP 8 17-DEC-75 12:37
1431 013744' 051 11 0 00 000000 CLR^CLRBFI^
1432 013745' 200 02 0 00 012325' MOVE 2,X1
1433 013746' 200 04 0 00 012326' MOVE 4,X2
1434 013747' 200 15 0 00 012327' MOVE 15,X3
1435 013750' 051 03 0 00 014543' OUTSTR [
1436 013751' 051 01 0 00 014254' OUTCHR [
1437 013752' 051 01 0 00 014255' OUTCHR [
1438 013753' 051 03 0 00 014546' OUTSTR [
1439 013754' 051 01 0 00 014254' OUTCHR [
1440 013755' 051 01 0 00 014255' OUTCHR [
1441 013756' 051 11 0 00 000000 CLRBFI
1442 013757' 051 00 0 00 000001 IN^INCHRW 1
1443 013760' 306 01 0 00 000134 CAIN 1,134
1444 013761' 324 00 0 00 014253' JUMPA OVER
1445 013762' 324 00 0 00 013733' JUMPA ..0006^
1446 013763' 306 15 0 00 000000 49750 SNAS:SNA^CAIN 15,0
1447 013764' 324 00 0 00 013770' JUMPA ..0007
1448 013765' 306 15 0 00 010000 CAIN 15,10000
1449 013766' 324 00 0 00 013770' JUMPA ..0007
1450 013767' 271 02 0 00 000002 ADDI 2,2
1451 013770' 324 00 0 00 013506' ..0007:JUMPA BAK2^
1452 013771' 200 03 0 00 014256' 49800 SNLS:SNL^MOVE 3,[
1453 013772' 135 03 0 00 014516' LDB 3,[
1454 013773' 302 03 0 00 000000 CAIE 3,0
1455 013774' 271 02 0 00 000002 ADDI 2,2
1456 013775' 324 00 0 00 013506' JUMPA BAK2^
1457 49850 DEFINE SPA(%R)
1458 49900 <MOVEM 15,X3
1459 50000 ACUM
1460 50050 CAIL 15,4000
1461 50100 JUMPA %R
1462 50150 ADDI 2,2
1463 50200 %R:MOVE 15,X3
1464 50250 JUMPA BAK2>
1465 50500 DEFINE ZERO
1466 50550 <MOVE 3,[0,,0]
1467 50600 DPB 3,[POINT 23,15,22]>
1468 50650 DEFINE CML
1469 50700 <MOVE 5,[0,,0]
1470 50750 MOVE 3,[0,,0]
1471 50800 LDB 3,[POINT 1,15,23]
1472 50850 CAIN 3,0
1473 50900 MOVEI 5,1
1474 50950 DPB 5,[POINT 1,15,23]
1475 51000 JUMPA BAK2>
1476 51050 DEFINE RTR
1477 51100 <ROTR
1478 51150 ROTR
1479 51200 JUMPA BAK2>
1480 51250 DEFINE RTL
1481 51300 <ROTL
1482 51350 ROTL
1483 51400 JUMPA BAK2>
1484 51450 DEFINE IAC
1485 51500 <ZERO
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-27
PDP 8 17-DEC-75 12:37
1486 51550 AOJ 15,
1487 51600 JUMPA BAK2>
1488 51650 DEFINE SMA
1489 51700 <ZERO
1490 51750 CAIL 15,4000
1491 51800 ADDI 2,2
1492 51850 JUMPA BAK2>
1493 51900 DEFINE SZA
1494 51920 <ZERO
1495 51950 CAIE 15,0
1496 52000 CAIN 15,10000
1497 52050 ADDI 2,2
1498 52100 JUMPA BAK2>
1499 52150 DEFINE SZL
1500 52200 <MOVE 3,[0,,0]
1501 52250 LDB 3,[POINT 1,15,23]
1502 52300 CAIN 3,0
1503 52350 ADDI 2,2
1504 52400 JUMPA BAK2>
1505 52450 DEFINE SKP
1506 52500 <ADDI 2,2
1507 52550 JUMPA BAK2>
1508 52570 DEFINE CLEAR
1509 52575 <MOVE 3,15
1510 52580 MOVE 15,[0,,0]
1511 52585 LDB 15,[POINT 1,3,23]
1512 52590 ROT 15,14>
1513 52600 DEFINE KCF
1514 52650 <JUMPA BAC3>
1515 52700 DEFINE KSF
1516 52750 <CLR
1517 52800 ADDI 2,2
1518 52850 JUMPA BAC3>
1519 52900 DEFINE KCC
1520 52950 <CLEAR
1521 53000 CLR
1522 53050 JUMPA BAC3>
1523 53100 DEFINE KRS
1524 53130 <CR
1525 53140 OUTSTR [ASCIZ/ENTER CHARACTER: /]
1526 53150 INCHRW 15
1527 53160 ADDI 15,200
1528 53170 CR
1529 53200 CLR
1530 53250 JUMPA BAC3>
1531 53300 DEFINE KRB
1532 53350 <CLEAR
1533 53400 CLR
1534 53450 KRS>
1535 53500 DEFINE TFL
1536 53550 <JUMPA BAC3>
1537 53600 DEFINE TSF
1538 53650 <CLR
1539 53700 ADDI 2,2
1540 53750 JUMPA BAC3>
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-28
PDP 8 17-DEC-75 12:37
1541 53800 DEFINE TCF
1542 53850 <CLR
1543 53900 JUMPA BAC3>
1544 53950 DEFINE TPC
1545 54000 <MOVE 5,[0,,0]
1546 54050 MOVE 5,15
1547 54100 MAP(5,7)
1548 54150 OUTCHR 5
1549 54200 JUMPA BAC3
1550 54250 >
1551 54300 DEFINE TLS<TPC>
1552 013776' 202 15 0 00 012327' 54350 SPAS:SPA^MOVEM 15,X3
1553 013777' 242 15 0 00 000027 ACUM^LSH 15,27
1554 014000' 242 15 0 00 777751 LSH 15,-27
1555 014001' 301 15 0 00 004000 CAIL 15,4000
1556 014002' 324 00 0 00 014004' JUMPA ..0010
1557 014003' 271 02 0 00 000002 ADDI 2,2
1558 014004' 200 15 0 00 012327' ..0010:MOVE 15,X3
1559 014005' 324 00 0 00 013506' JUMPA BAK2^
1560 014006' 324 00 0 00 013472' 54400 NOPS:JUMPA BAC
1561 014007' 656 15 0 00 014012' 54450 CMAS:CMA^TDCN 15,..0011
1562 014010' 320 00 0 00 000016 ARG 16
1563 014011' 324 00 0 00 013506' JUMPA BAK2
1564 014012' 000000 007777 ..0011:7777
1565 014013' 200 05 0 00 014256' 54500 CMLS:CML^MOVE 5,[
1566 014014' 200 03 0 00 014256' MOVE 3,[
1567 014015' 135 03 0 00 014516' LDB 3,[
1568 014016' 306 03 0 00 000000 CAIN 3,0
1569 014017' 201 05 0 00 000001 MOVEI 5,1
1570 014020' 137 05 0 00 014516' DPB 5,[
1571 014021' 324 00 0 00 013506' JUMPA BAK2^
1572 014022' 200 03 0 00 014256' 54550 IACS:IAC^ZERO^MOVE 3,[
1573 014023' 137 03 0 00 014560' DPB 3,[^
1574 014024' 340 15 0 00 000000 AOJ 15,
1575 014025' 324 00 0 00 013506' JUMPA BAK2^
1576 014026' 000000 000000 54600 BSWS:0
1577 014027' 200 12 0 00 014256' 54650 RTRS:RTR^ROTR^MAP(15,13)^MOVE 12,[
1578 014030' 135 12 0 00 014522' LDB 12,[
1579 014031' 200 15 0 00 000012 MOVE 15,12^
1580 014032' 320 00 0 00 000016 ARG 16
1581 014033' 241 15 0 00 777777 ROT 15,-1
1582 014034' 200 03 0 00 014256' MOVE 3,[
1583 014035' 135 03 0 00 014523' LDB 3,[
1584 014036' 137 03 0 00 014516' DPB 3,[
1585 014037' 200 12 0 00 014256' MAP(15,13)^MOVE 12,[
1586 014040' 135 12 0 00 014522' LDB 12,[
1587 014041' 200 15 0 00 000012 MOVE 15,12^
1588 014042' 200 12 0 00 014256' ROTR^MAP(15,13)^MOVE 12,[
1589 014043' 135 12 0 00 014522' LDB 12,[
1590 014044' 200 15 0 00 000012 MOVE 15,12^
1591 014045' 320 00 0 00 000016 ARG 16
1592 014046' 241 15 0 00 777777 ROT 15,-1
1593 014047' 200 03 0 00 014256' MOVE 3,[
1594 014050' 135 03 0 00 014523' LDB 3,[
1595 014051' 137 03 0 00 014516' DPB 3,[
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-29
PDP 8 17-DEC-75 12:37
1596 014052' 200 12 0 00 014256' MAP(15,13)^MOVE 12,[
1597 014053' 135 12 0 00 014522' LDB 12,[
1598 014054' 200 15 0 00 000012 MOVE 15,12^
1599 014055' 324 00 0 00 013506' JUMPA BAK2^
1600 014056' 242 15 0 00 000027 54700 RTLS:RTL^ROTL^LSH 15,27
1601 014057' 242 15 0 00 777751 LSH 15,-27
1602 014060' 241 15 0 00 000001 ROT 15,1
1603 014061' 200 03 0 00 014256' MOVE 3,[
1604 014062' 135 03 0 00 014524' LDB 3,[
1605 014063' 137 03 0 00 014525' DPB 3,[
1606 014064' 200 12 0 00 014256' MAP(15,13)^MOVE 12,[
1607 014065' 135 12 0 00 014522' LDB 12,[
1608 014066' 200 15 0 00 000012 MOVE 15,12^
1609 014067' 242 15 0 00 000027 ROTL^LSH 15,27
1610 014070' 242 15 0 00 777751 LSH 15,-27
1611 014071' 241 15 0 00 000001 ROT 15,1
1612 014072' 200 03 0 00 014256' MOVE 3,[
1613 014073' 135 03 0 00 014524' LDB 3,[
1614 014074' 137 03 0 00 014525' DPB 3,[
1615 014075' 200 12 0 00 014256' MAP(15,13)^MOVE 12,[
1616 014076' 135 12 0 00 014522' LDB 12,[
1617 014077' 200 15 0 00 000012 MOVE 15,12^
1618 014100' 324 00 0 00 013506' JUMPA BAK2^
1619 014101' 200 03 0 00 014256' 54750 SMAS:SMA^ZERO^MOVE 3,[
1620 014102' 137 03 0 00 014560' DPB 3,[^
1621 014103' 301 15 0 00 004000 CAIL 15,4000
1622 014104' 271 02 0 00 000002 ADDI 2,2
1623 014105' 324 00 0 00 013506' JUMPA BAK2^
1624 014106' 200 03 0 00 014256' 54800 SZAS:SZA^ZERO^MOVE 3,[
1625 014107' 137 03 0 00 014560' DPB 3,[^
1626 014110' 302 15 0 00 000000 CAIE 15,0
1627 014111' 306 15 0 00 010000 CAIN 15,10000
1628 014112' 271 02 0 00 000002 ADDI 2,2
1629 014113' 324 00 0 00 013506' JUMPA BAK2^
1630 014114' 200 03 0 00 014256' 54850 SZLS:SZL^MOVE 3,[
1631 014115' 135 03 0 00 014516' LDB 3,[
1632 014116' 306 03 0 00 000000 CAIN 3,0
1633 014117' 271 02 0 00 000002 ADDI 2,2
1634 014120' 324 00 0 00 013506' JUMPA BAK2^
1635 014121' 271 02 0 00 000002 54900 SKPS:SKP^ADDI 2,2
1636 014122' 324 00 0 00 013506' JUMPA BAK2^
1637 014123' 000000 000000 54950 OSRS:0
1638 014124' 324 00 0 00 013522' 55000 KCFS:KCF^JUMPA BAC3^
1639 014125' 051 11 0 00 000000 55050 KSFS:KSF^CLR^CLRBFI^
1640 014126' 271 02 0 00 000002 ADDI 2,2
1641 014127' 324 00 0 00 013522' JUMPA BAC3^
1642 014130' 200 03 0 00 000015 55100 KCCS:KCC^CLEAR^MOVE 3,15
1643 014131' 200 15 0 00 014256' MOVE 15,[
1644 014132' 135 15 0 00 014521' LDB 15,[
1645 014133' 241 15 0 00 000014 ROT 15,14^
1646 014134' 051 11 0 00 000000 CLR^CLRBFI^
1647 014135' 324 00 0 00 013522' JUMPA BAC3^
1648 014136' 051 01 0 00 014254' 55150 KRSS:KRS^CR^OUTCHR [
1649 014137' 051 01 0 00 014255' OUTCHR [^
1650 014140' 051 03 0 00 014561' OUTSTR [
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-30
PDP 8 17-DEC-75 12:37
1651 014141' 051 00 0 00 000015 INCHRW 15
1652 014142' 271 15 0 00 000200 ADDI 15,200
1653 014143' 051 01 0 00 014254' CR^OUTCHR [
1654 014144' 051 01 0 00 014255' OUTCHR [^
1655 014145' 051 11 0 00 000000 CLR^CLRBFI^
1656 014146' 324 00 0 00 013522' JUMPA BAC3^
1657 014147' 000000 000000 55200 KIES:0
1658 014150' 200 03 0 00 000015 55250 KRBS:KRB^CLEAR^MOVE 3,15
1659 014151' 200 15 0 00 014256' MOVE 15,[
1660 014152' 135 15 0 00 014521' LDB 15,[
1661 014153' 241 15 0 00 000014 ROT 15,14^
1662 014154' 051 11 0 00 000000 CLR^CLRBFI^
1663 014155' 051 01 0 00 014254' KRS^^CR^OUTCHR [
1664 014156' 051 01 0 00 014255' OUTCHR [^
1665 014157' 051 03 0 00 014561' OUTSTR [
1666 014160' 051 00 0 00 000015 INCHRW 15
1667 014161' 271 15 0 00 000200 ADDI 15,200
1668 014162' 051 01 0 00 014254' CR^OUTCHR [
1669 014163' 051 01 0 00 014255' OUTCHR [^
1670 014164' 051 11 0 00 000000 CLR^CLRBFI^
1671 014165' 324 00 0 00 013522' JUMPA BAC3^
1672 014166' 000000 000000 55300 SPFS:0
1673 014167' 051 11 0 00 000000 55350 TSFS:TSF^CLR^CLRBFI^
1674 014170' 271 02 0 00 000002 ADDI 2,2
1675 014171' 324 00 0 00 013522' JUMPA BAC3^
1676 014172' 051 11 0 00 000000 55400 TCFS:TCF^CLR^CLRBFI^
1677 014173' 324 00 0 00 013522' JUMPA BAC3^
1678 014174' 200 05 0 00 014256' 55450 TPCS:TPC^MOVE 5,[
1679 014175' 200 05 0 00 000015 MOVE 5,15
1680 014176' 200 12 0 00 014256' MAP(5,7)^MOVE 12,[
1681 014177' 135 12 0 00 014565' LDB 12,[
1682 014200' 200 05 0 00 000012 MOVE 5,12^
1683 014201' 051 01 0 00 000005 OUTCHR 5
1684 014202' 324 00 0 00 013522' JUMPA BAC3
1685 014203' 000000 000000 55500 SPIS:0
1686 014204' 200 05 0 00 014256' 55550 TLSS:TLS^TPC^^MOVE 5,[
1687 014205' 200 05 0 00 000015 MOVE 5,15
1688 014206' 200 12 0 00 014256' MAP(5,7)^MOVE 12,[
1689 014207' 135 12 0 00 014565' LDB 12,[
1690 014210' 200 05 0 00 000012 MOVE 5,12^
1691 014211' 051 01 0 00 000005 OUTCHR 5
1692 014212' 324 00 0 00 013522' JUMPA BAC3
1693 014213' 324 00 0 00 013653' 55600 OPER:JUMPA RARS
1694 014214' 324 00 0 00 013667' 55650 JUMPA RALS
1695 014215' 324 00 0 00 013701' 55700 JUMPA CLAS
1696 014216' 324 00 0 00 013706' 55750 JUMPA CLLS
1697 014217' 324 00 0 00 013711' 55800 JUMPA HLTS
1698 014220' 324 00 0 00 013763' 55850 JUMPA SNAS
1699 014221' 324 00 0 00 013771' 55900 JUMPA SNLS
1700 014222' 324 00 0 00 013776' 55950 JUMPA SPAS
1701 014223' 324 00 0 00 014006' 56000 JUMPA NOPS
1702 014224' 324 00 0 00 014007' 56050 JUMPA CMAS
1703 014225' 324 00 0 00 014013' 56100 JUMPA CMLS
1704 014226' 324 00 0 00 014022' 56150 JUMPA IACS
1705 014227' 324 00 0 00 014026' 56200 JUMPA BSWS
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1-31
PDP 8 17-DEC-75 12:37
1706 014230' 324 00 0 00 014027' 56250 JUMPA RTRS
1707 014231' 324 00 0 00 014056' 56300 JUMPA RTLS
1708 014232' 324 00 0 00 014101' 56350 JUMPA SMAS
1709 014233' 324 00 0 00 014106' 56400 JUMPA SZAS
1710 014234' 324 00 0 00 014114' 56450 JUMPA SZLS
1711 014235' 324 00 0 00 014121' 56500 JUMPA SKPS
1712 014236' 324 00 0 00 014123' 56550 JUMPA OSRS
1713 014237' 324 00 0 00 014124' 56600 TRN:JUMPA KCFS
1714 014240' 324 00 0 00 014125' 56650 JUMPA KSFS
1715 014241' 324 00 0 00 014130' 56700 JUMPA KCCS
1716 014242' 324 00 0 00 014136' 56750 JUMPA KRSS
1717 014243' 324 00 0 00 014147' 56800 JUMPA KIES
1718 014244' 324 00 0 00 014150' 56850 JUMPA KRBS
1719 014245' 324 00 0 00 014166' 56900 JUMPA SPFS
1720 014246' 324 00 0 00 014167' 56950 JUMPA TSFS
1721 014247' 324 00 0 00 014172' 57000 JUMPA TCFS
1722 014250' 324 00 0 00 014174' 57050 JUMPA TPCS
1723 014251' 324 00 0 00 014203' 57100 JUMPA SPIS
1724 014252' 324 00 0 00 014204' 57150 JUMPA TLSS
1725 014253' 324 00 0 00 013311' 57200 OVER:JUMPA CENT
1726 013363' 57250 END BEN
NO ERRORS DETECTED
PROGRAM BREAK IS 014566
CPU TIME USED 00:21.283
5K CORE USED
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE S-1
PDP 8 17-DEC-75 12:37 SYMBOL TABLE
A 000000' C10A 000461' C38 000550' HJ 000174'
A1 012373' C11 000462' C38A 000551' HLTS 013711'
A10 012653' C11A 000463' C39 000552' I1 013257'
A11 012724' C12 000464' C39A 000553' IACS 014022'
A20 013000' C12A 000465' C40 000554' IN1 012350'
A3 012427' C13 000466' C40A 000555' IN7 013351' EXT
A31 012422' C13A 000467' C41 000556' INCHRW 051000 000000
A4 012436' C14 000470' C41A 000557' INVAL 012471'
A6 012514' C14A 000471' C42 000560' IOT 013556'
A60 012477' C15 000472' C42A 000561' ISZS 013620'
A61 012504' C15A 000473' C43 000562' J0 000406'
A7 012535' C16 000474' C43A 000563' JMPS 013651'
A76 000263' C16A 000475' C44 000564' JMSS 013641'
A8 012543' C17 000476' C44A 000565' K9 013064'
A9 012602' C17A 000477' C45 000566' KCCS 014130'
A98 012600' C18 000500' C45A 000567' KCFS 014124'
AH 012400' C18A 000501' C46 000570' KIES 014147'
AJ 013072' C19 000502' C46A 000571' KOP 013210'
AJ1 013067' C19A 000503' C47 000572' KRBS 014150'
ALC 012320' C20 000504' C47A 000573' KRSS 014136'
AM1 000000' C20A 000505' C48 000574' KSFS 014125'
AM10 000000' C21 000506' C48A 000575' KT 000353'
AM7 000000' C21A 000507' C49 000576' KU 000425'
AM8 000000' C22 000510' C49A 000577' L 000407'
ANDS 013600' C22A 000511' CELL 012323' L1 000375'
AS1 000315' C23 000512' CENT 013311' LAB 011615'
AS12 000314' C23A 000513' CENTO 013310' LABL 012533'
AS43 000320' C24 000514' CLAS 013701' LBEN 012554'
AS45 000317' C24A 000515' CLLS 013706' LC 012317'
AX 000372' C25 000516' CLOS1 013352' EXT LC1 012733'
BAC 013472' C25A 000517' CLOS2 013357' EXT LIM 000363'
BAC3 013522' C26 000520' CLRBFI 051440 000000 LMAX 011614'
BAK2 013506' C26A 000521' CMAS 014007' LOK1 013350' EXT
BEG 013426' C27 000522' CMLS 014013' M0 012367'
BEN 013363' C27A 000523' CN 013006' M1 012413'
BSWS 014026' C28 000524' COM 000434' M2 012416'
C01 000436' C28A 000525' COMA 000435' M200 000204'
C01A 000437' C29 000526' COMN 012762' M201 000207'
C02 000440' C29A 000527' COMP 013036' M203 000226'
C02A 000441' C30 000530' DCAS 013630' M50 013040'
C03 000442' C30A 000531' ENCO 013145' M8 012643'
C03A 000443' C31 000532' ENCO1 013161' ME 013433'
C04 000444' C31A 000533' ENT1 013355' EXT MEM 013572'
C04A 000445' C32 000534' ER 000416' MINUS 012642'
C05 000446' C32A 000535' EX 013171' MN 000166'
C05A 000447' C33 000536' EX1 013207' MNOF 013014'
C06 000450' C33A 000537' EX12 013216' MRI 013524'
C06A 000451' C34 000540' EXAM 000351' MZ5 012473'
C07 000452' C34A 000541' F500 012344' NOFND 013013'
C07A 000453' C35 000542' FD 013510' NOLAB 013130'
C08 000454' C35A 000543' FIND 013017' NOPS 014006'
C08A 000455' C36 000544' FINISH 013331' EXT NUMER 012610'
C09 000456' C36A 000545' GAS 012560' OKA 000404'
C09A 000457' C37 000546' GH 013511' OMI 013532'
C10 000460' C37A 000547' H 000001' OPEN1 013347' EXT
.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE S-2
PDP 8 17-DEC-75 12:37 SYMBOL TABLE
OPEN2 013354' EXT SX 000365'
OPER 014213' SZAS 014106'
OPM 013476' SZLS 014114'
OPR 013233' TAB1 012531'
OPR1 013240' TADS 013616'
OSRS 014123' TCFS 014172'
OUT1 000347' TLSS 014204'
OUT7 013356' EXT TPCS 014174'
OUTCHR 051040 000000 TRANS 000251'
OUTSTR 051140 000000 TRN 014237'
OVER 014253' TSFS 014167'
PD 012321' TTY 013513'
PD1 012322' V 000035'
PD8 000600' ENT V2 000047'
PD81 000601' X1 012325'
PD82 000602' X10 012336'
PD83 000603' X11 012337'
PD84 000604' X12 012340'
PD85 000605' X13 012341'
PD86 000606' X2 012326'
PD87 000607' X22 012342'
PD88 000610' X3 012327'
PD89 000611' X4 012330'
PD90 000612' X5 012331'
PD91 000613' X6 012332'
PD92 000614' X7 012333'
PLUS 012621' X8 012334'
POD 013100' X9 012335'
POD1 013101' Y 000311'
PUT 012662' YZ 000345'
PUT1 012633' ZER 012324'
PZ 000411' ZT 000111'
Q97 013241' ..0001 013455'
RALS 013667' ..0002 013452'
RARS 013653' ..0003 013465'
RD 013347' ..0004 013604'
REL 013361' EXT ..0005 013626'
RELI 013361' ..0006 013733'
RITE 013354' ..0007 013770'
RTLS 014056' ..0010 014004'
RTRS 014027' ..0011 014012'
RUPT 000200'
SET 013111'
SKPS 014121'
SMAS 014101'
SNAS 013763'
SNLS 013771'
SPAS 013776'
SPFS 014166'
SPIS 014203'
ST 013417'
ST12 013404'
STA 012343'
START 013327' EXT
STR 013226'
A 69#
A1 515#
A10 681 691#
A11 732#
A20 777# 780
A3 543# 547
A31 538# 582
A4 550# 608
A6 596# 762
A60 576 583#
A61 588# 604
A7 613# 618
A76 248# 299
A8 615 619#
A9 650#
A98 648# 655
AH 520# 525
AJ 835#
AJ1 832# 864 877
ALC 472# 499
AM1 11#
AM10 58#
AM7 35#
AM8 41#
ANDS 1325 1331#
AS1 274#
AS12 273#
AS43 277#
AS45 276# 279
AX 322#
BAC 1151# 1344 1346 1354 1363 1371 1560
BAC3 1175# 1638 1641 1647 1656 1671 1675 1677 1684 1692
BAK2 1163# 1385 1395 1400 1403 1451 1456 1559 1563 1571 1575 1599 1618 1623
1629 1634 1636
BEG 1115# 1154 1167 1176
BEN 1072# 1726
BSWS 1576# 1705
C01 358#
C01A 359#
C02 360#
C02A 361#
C03 362#
C03A 363#
C04 364#
C04A 365#
C05 366#
C05A 367#
C06 368#
C06A 369#
C07 370#
C07A 371#
C08 372#
C08A 373#
C09 374#
C09A 375#
C10 376#
C10A 377#
C11 378#
C11A 379#
C12 380#
C12A 381#
C13 382#
C13A 383#
C14 384#
C14A 385#
C15 386#
C15A 387#
C16 388#
C16A 389#
C17 390#
C17A 391#
C18 392#
C18A 393#
C19 394#
C19A 395#
C20 396#
C20A 397#
C21 398#
C21A 399#
C22 400#
C22A 401#
C23 402#
C23A 403#
C24 404#
C24A 405#
C25 406#
C25A 407#
C26 408#
C26A 409#
C27 410#
C27A 411#
C28 412#
C28A 413#
C29 414#
C29A 415#
C30 416#
C30A 417#
C31 418#
C31A 419#
C32 420#
C32A 421#
C33 422#
C33A 423#
C34 424#
C34A 425#
C35 426#
C35A 427#
C36 428#
C36A 429#
C37 430#
C37A 431#
C38 432#
C38A 433#
C39 434#
C39A 435#
C40 436#
C40A 437#
C41 438#
C41A 439#
C42 440#
C42A 441#
C43 442#
C43A 443#
C44 444#
C44A 445#
C45 446#
C45A 447#
C46 448#
C46A 449#
C47 450#
C47A 451#
C48 452#
C48A 453#
C49 454#
C49A 455#
CELL 475# 569
CENT 897 926 1030# 1059 1064 1069 1071 1090 1725
CENTO 1029#
CLAS 1396# 1695
CLLS 1401# 1696
CLOS1 9# 1063
CLOS2 9# 1068
CMAS 1561# 1702
CMLS 1565# 1703
CN 783# 787
COM 356# 781
COMA 357#
COMN 652 763# 791
COMP 606 734 807# 1054
DCAS 1328 1355#
ENCO 840 878#
ENCO1 890#
ENT1 9# 1066
ER 330 342#
EX 898# 1056 1058
EX1 912#
EX12 919# 924
EXAM 302# 349
F500 492# 524
FD 1165#
FIND 784 792#
FINISH 9# 1046
GAS 627 632#
GH 1166# 1373
H 70#
HJ 193#
HLTS 1404# 1697
I1 936 952#
IACS 1572# 1704
IN1 186 496# 1040
IN7 9# 1062
INVAL 570 577#
IOT 1170 1203#
ISZS 1327 1347#
J0 334#
JMPS 1330 1372#
JMSS 1329 1364#
K9 829# 839
KCCS 1642# 1715
KCFS 1638# 1713
KIES 1657# 1717
KOP 913# 916
KRBS 1658# 1718
KRSS 1648# 1716
KSFS 1639# 1714
KT 304#
KU 349#
L 318 335#
L1 325# 336
LAB 470# 496 526 827 841 918
LABL 611#
LBEN 610 628#
LC 471# 498 559 567 622 713 739 741 944 955
LC1 739# 951
LIM 167 315# 853
LMAX 469# 527 626
LOK1 9# 1061
M0 511#
M1 69 531#
M2 534# 1042
M200 201#
M201 204#
M203 219#
M50 809#
M8 683#
ME 1120#
MEM 1147 1325#
MINUS 659 682#
MN 108 187# 695
MNOF 789#
MRI 1121 1177#
MZ5 579#
NOFND 788#
NOLAB 848 865#
NOPS 1560# 1701
NUMER 654 656#
OKA 332#
OMI 1158 1183#
OPEN1 9# 1060
OPEN2 9# 1065
OPER 1160 1693#
OPM 1117 1155#
OPR 736 932#
OPR1 937# 976
OSRS 1637# 1712
OUT1 250 300#
OUT7 9# 1067
OVER 1444 1725#
PD 473#
PD1 474#
PD8 10 243 300 456# 520 522 712 825 828 943 954 1115 1124 1141
1144 1157 1169 1336 1345 1347 1349 1359 1369
PD81 457#
PD82 458#
PD83 459#
PD84 460#
PD85 461#
PD86 462#
PD87 463#
PD88 464#
PD89 465#
PD90 466#
PD91 467#
PD92 468#
PLUS 665# 670 674 690
POD 831 841#
POD1 842# 849
PUT 692 698# 806
PUT1 668 675#
PZ 328 337#
Q97 938# 941
RALS 1386# 1694
RARS 1374# 1693
RD 1048 1060#
REL 9# 1070
RELI 1052 1070#
RITE 1050 1065#
RTLS 1600# 1707
RTRS 1577# 1706
RUPT 140 197# 598 895 1036 1429
SET 844 850#
SKPS 1635# 1711
SMAS 1619# 1708
SNAS 1446# 1698
SNLS 1452# 1699
SPAS 1552# 1700
SPFS 1672# 1719
SPIS 1685# 1723
ST 1108#
ST12 931 1097#
STA 491# 929 1112 1130 1135
START 9# 1044
STR 920 927#
SX 317#
SZAS 1624# 1709
SZLS 1630# 1710
TAB1 609#
TADS 1326 1345#
TCFS 1676# 1721
TLSS 1686# 1724
TPCS 1678# 1722
TRANS 232 238# 304 308 872
TRN 1172 1713#
TSFS 1673# 1720
TTY 1119 1168#
V 98#
V2 108#
X1 477# 560 742 1423 1432
X10 486#
X11 487# 917 930 1123 1148
X12 488#
X13 489#
X2 478# 620 1424 1433
X22 490# 597 602
X3 479# 1425 1434 1552 1558
X4 480# 675 694 697 717 794
X5 481# 942 947
X6 482#
X7 483# 824 832 834 852 862 871
X8 484#
X9 485# 497 530 611 625 826 847 923
Y 270#
YZ 298#
ZER 476#
ZT 142#
..0001 1129 1138#
..0002 1132 1135#
..0003 1142 1146#
..0004 1335# 1342
..0005 1351 1353#
..0006 1422# 1445
..0007 1447 1449 1451#
..0010 1556 1558#
..0011 1561 1564#
ACUM 1022# 1151 1163 1553
AND 1216# 1331
BL 28# 107 270 271 280 281 543 548 648 698 730 737 763 788
899 949 952
BL4 36# 253 628 632 743
CLA 1284# 1396
CLEAR 1509# 1642 1658
CLL 1290# 1401
CLR 5# 144 157 495 514 537 544 549 566 590 601 636 649 656
665 684 699 700 731 738 750 764 790 812 870 878 893 911
932 934 950 962 1029 1033 1108 1111 1407 1422 1427 1431 1639 1646
1655 1662 1670 1673 1676
CLRBFI 144 157 495 514 537 544 549 566 590 601 636 649 656 665
684 699 700 731 738 750 764 790 812 870 878 893 911 932
934 950 962 1029 1033 1108 1111 1407 1422 1427 1431 1441 1639 1646
1655 1662 1670 1673 1676
CMA 1092# 1561
CML 1469# 1565
CR 25# 70 84 110 136 142 155 170 184 202 205 217 220 235
239 251 296 342 345 493 512 532 535 561 564 577 580 588
748 807 810 865 868 875 890 1031 1073 1077 1081 1084 1088 1109
1404 1420 1648 1653 1663 1668
DCA 1240# 1355
DEBUG 1006# 1423
HLT 1310# 1404
IAC 1485# 1572
IN 31# 97 135 138 139 222 545 596 617 657 666 732 777 894
913 939 974 1034 1428 1442
INCHRW 97 100 104 135 138 139 147 151 160 164 209 213 222 225
229 545 552 556 596 617 650 657 666 732 777 894 913 939
974 1034 1428 1442 1651 1666
ISZ 1231# 1347
JMP 1257# 1372
JMS 1248# 1364
KCC 1520# 1642
KCF 1514# 1638
KRB 1532# 1658
KRS 1524# 1648 1663
KSF 1516# 1639
LOC 982# 1124
MAP 978# 1356 1374 1382 1392 1577 1585 1588 1596 1606 1615 1680 1688
NUIN 59# 98 145 158 207 223 550
NUMB 45# 72 112 172 258 284 1408
OUT 34#
OUTCHR 70 71 76 81 83 84 85 107 110 111 116 121 123 136
137 142 143 155 156 170 171 176 181 183 184 185 202 203
205 206 217 218 220 221 235 236 239 240 251 252 253 254
255 256 262 267 269 270 271 275 278 280 281 288 293 295
296 297 342 343 345 346 493 494 512 513 532 533 535 536
543 548 561 562 564 565 577 578 580 581 588 589 600 628
629 630 631 632 633 634 635 648 698 730 737 743 744 745
746 748 749 763 788 807 808 810 811 865 866 868 869 875
876 890 891 899 949 952 1031 1032 1073 1074 1077 1078 1081 1082
1084 1085 1088 1089 1109 1110 1404 1405 1412 1417 1419 1420 1421 1436
1437 1439 1440 1648 1649 1653 1654 1663 1664 1668 1669 1683 1691
OUTSTR 201 204 219 344 511 531 534 563 579 683 789 809 867 892
898 925 1030 1072 1075 1076 1079 1083 1086 1406 1426 1435 1438 1650
1665
RAL 1281# 1386
RAR 1278# 1374
ROTL 1269# 1386 1600 1609
ROTR 1260# 1374 1577 1588
RTL 1481# 1600
RTR 1477# 1577
SKP 1506# 1635
SMA 1489# 1619
SNA 1294# 1446
SNL 1301# 1452
SPA 1458# 1552
SPACE 42#
SZA 1494# 1624
SZL 1500# 1630
T 7# 96 134 510 519 542 575 587 595 647 664 680 689 711
729 761 775 805 823 889 910 973 1107
TAD 1307# 1345
TCF 1542# 1676
TFL 1536#
TLS 1551# 1686
TPC 1545# 1678 1686
TSF 1538# 1673
TYPE 1026# 1407
WA 2#
Z17 18# 86 124 500 637 701 719 751 765 795 813 879 900 963
1097
Z6 12# 92 130 506 515 538 571 583 591 643 660 676 685 707
725 757 771 801 819 885 906 969 1103
ZERO 1466# 1572 1619 1624