.MAIN MACRO %50(272) 13:09 17-DEC-75 PAGE 1 PDP 8 17-DEC-75 12:37 1 00100 DEFINE WA 2 00150 4 00250 DEFINE CLR 5 00300 6 00350 DEFINE T 7 00400 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 17 00900 DEFINE Z17 18 00950 24 01250 DEFINE CR 25 01300 27 01400 DEFINE BL 28 01450 30 01550 DEFINE IN 31 01600 33 01700 DEFINE OUT 34 01750 35 01800 AM7:DEFINE BL4 36 01850 41 02100 AM8:DEFINE SPACE 42 02150 44 02250 DEFINE NUMB(A) 45 02300 58 02950 AM10:DEFINE NUIN 59 03000 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 981 33650 DEFINE LOC(%AK,%ZP,%YU) 982 33700 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 1025 35850 DEFINE TYPE(A) 1026 35900 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 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 1230 43400 DEFINE ISZ(%T) 1231 43450 1239 43900 DEFINE DCA 1240 43950 1247 44050 DEFINE JMS 1248 44100 1256 44500 DEFINE JMP 1257 44550 1259 44650 DEFINE ROTR 1260 44700 1268 45150 DEFINE ROTL 1269 45180 1277 45505 DEFINE RAR 1278 45510 1280 45520 DEFINE RAL 1281 45525 1283 45550 DEFINE CLA 1284 45600 1289 45750 DEFINE CLL 1290 45800 1293 45950 DEFINE SNA(%B) 1294 46000 1300 46300 DEFINE SNL 1301 46350 1306 46600 DEFINE TAD 1307 46650 1309 46750 DEFINE HLT(%ENQ) 1310 46800 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 1465 50500 DEFINE ZERO 1466 50550 1468 50650 DEFINE CML 1469 50700 1476 51050 DEFINE RTR 1477 51100 1480 51250 DEFINE RTL 1481 51300 1484 51450 DEFINE IAC 1485 51500 1488 51650 DEFINE SMA 1489 51700 1493 51900 DEFINE SZA 1494 51920 1499 52150 DEFINE SZL 1500 52200 1505 52450 DEFINE SKP 1506 52500 1508 52570 DEFINE CLEAR 1509 52575 1513 52600 DEFINE KCF 1514 52650 1515 52700 DEFINE KSF 1516 52750 1519 52900 DEFINE KCC 1520 52950 1523 53100 DEFINE KRS 1524 53130 1531 53300 DEFINE KRB 1532 53350 1535 53500 DEFINE TFL 1536 53550 1537 53600 DEFINE TSF 1538 53650 .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 1544 53950 DEFINE TPC 1545 54000 1551 54300 DEFINE TLS 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