1 /OCTAL DEBUGGING PROGRAM -JAMES ROTHMAN 6/15/67 2 3 000200 6046 TLS 4 000201 4752 END, JMS I CRLF 5 000202 4753 JMS I READ /READ A NUMBER 6 000203 4754 JMS I TYPE 7 000204 1355 TAD N14 /RESET CONSTANTS 8 000205 3357 DCA CNT 9 000206 1360 TAD RTABA 10 000207 3361 DCA TABA 11 000210 1362 TAD RTABB 12 000211 3363 DCA TABB 13 000212 1763 LOOP1, TAD I TABB 14 000213 3337 DCA CHECK 15 000214 6034 KRS 16 000215 1761 TAD I TABA /IDENTIFY REQUEST 17 000216 7650 SNA CLA 18 000217 5737 JMP I CHECK /ENTER REQUESTED ROUTINE 19 000220 2361 ISZ TABA 20 000221 2363 ISZ TABB 21 000222 2357 ISZ CNT 22 000223 5212 JMP LOOP1 23 000224 5202 JMP END+1 /CAN'T IDENTIFY-READ AGAIN 24 000225 4764 O, JMS I OCTRD /OPEN INSTRUCTION 25 000226 3365 DCA CURLOC 26 000227 1765 TAD I CURLOC 27 000230 4304 JMS OCTPNT /TYPE CONTENTS 28 000231 5201 JMP END 29 000232 4764 II, JMS I OCTRD /INSERT INSTRUCTION 30 000233 3765 DCA I CURLOC 31 000234 2365 ISZ CURLOC 32 000235 5201 JMP END 33 000236 2365 N, ISZ CURLOC /NEXT REGISTER REQUESTED 34 000237 1365 TAD CURLOC 35 000240 4304 JMS OCTPNT 36 000241 5227 JMP II-3 37 38 000242 4764 D, JMS I OCTRD /OCTAL DUMP REQUESTED 39 000243 3361 DCA INIT /RECORD FIRST AND LAST 40 000244 4764 JMS I OCTRD /OF REQUESTED REGISTERS 41 000245 7041 CIA 42 000246 3363 DCA FIN 43 000247 4752 LOOP2, JMS I CRLF 44 000250 1361 TAD INIT 45 000251 4304 JMS OCTPNT 46 000252 1366 TAD HYPH 47 000253 4754 JMS I TYPE 48 000254 1367 TAD N4 49 000255 3357 DCA CNT 50 000256 1761 LOOP3, TAD I INIT /OUTPUT 4 SEQUENTIAL REGISTER 51 000257 4304 JMS OCTPNT 52 000260 1361 TAD INIT /FINISHED? 53 000261 1363 TAD FIN 54 000262 7650 SNA CLA 55 000263 5201 JMP END 56 000264 2361 ISZ INIT 57 000265 2357 ISZ CNT 58 000266 5256 JMP LOOP3 59 000267 5247 JMP LOOP2 60 000270 4764 S, JMS I OCTRD /START REQUESTED 61 000271 3361 DCA LOCJMP 62 000272 4752 JMS I CRLF 63 000273 7402 GO, HLT 64 000274 5761 JMP I LOCJMP 65 000275 4764 R, JMS I OCTRD /RUN WITH PRESET AC 66 000276 3361 DCA LOCJMP /AND LINK REQUESTED 67 000277 4752 JMS I CRLF 68 000300 1370 TAD LINK 69 000301 7110 CLL RAR 70 000302 1371 TAD AC 71 000303 5273 JMP GO 72 000304 0000 OCTPNT, 0 /OCTAL PRINT SUB-ROUTINE 73 000305 3373 DCA TEMP4 74 000306 1374 TAD R240 75 000307 4754 JMS I TYPE 76 000310 1367 TAD N4 77 000311 3372 DCA TEMP3 78 000312 1373 LOOP6, TAD TEMP4 79 000313 7104 CLL RAL 80 000314 7006 RTL 81 000315 3373 DCA TEMP4 82 000316 1373 TAD TEMP4 83 000317 7004 RAL 84 000320 0356 AND M7 85 000321 1375 TAD R260 86 000322 4754 JMS I TYPE 87 88 000323 2372 ISZ TEMP3 89 000324 5312 JMP LOOP6 90 000325 5704 JMP I OCTPNT 91 000326 5776 J, JMP I M6000 /JUMP TO SINGLE-STEPPER 92 000327 1371 A, TAD AC /AC REFERENCED 93 000330 4337 JMS CHECK 94 000331 3371 DCA AC /RE-INSERT AC 95 000332 5201 JMP END 96 000333 1370 L, TAD LINK /LINK REFERENCED 97 000334 4337 JMS CHECK 98 000335 3370 DCA LINK /RE-INSERT LINK 99 000336 5201 JMP END 100 000337 0000 CHECK, 0 /CHECK FOR INSERT REQUEST 101 000340 4304 JMS OCTPNT 102 000341 4752 JMS I CRLF 103 000342 4753 JMS I READ 104 000343 4754 JMS I TYPE 105 000344 6034 KRS 106 000345 1377 TAD N311 107 000346 7640 SZA CLA 108 000347 5204 JMP END+3 /CONTINUE AS USUAL 109 000350 4764 JMS I OCTRD 110 000351 5737 JMP I CHECK 111 000352 0666 CRLF, LF /CONSTANTS AND VARIABLES 112 000353 0674 READ, RD 113 000354 0701 TYPE, TYP 114 000355 7764 N14, -14 115 000356 0007 M7, 7 116 000357 0000 CNT, 0 117 000360 0377 RTABA, LETTER 118 000361 0377 TABA, LETTER 119 000362 0751 RTABB, LOCS 120 000363 0751 TABB, LOCS 121 000364 0513 OCTRD, RDOCT 122 000365 0000 CURLOC, 0 123 000366 0255 HYPH, 255 124 000367 7774 N4, -4 125 000370 0000 LINK, 0 126 000371 0000 AC, 0 127 000372 0000 TEMP3, 0 128 000373 0000 TEMP4, 0 129 000374 0240 R240, 240 130 000375 0260 R260, 260 131 000376 6000 M6000, 6000 132 000377 7467 LETTER, -311;-317;-316;-302;-301;-314;-304 000400 7461 000401 7462 000402 7476 000403 7477 000404 7464 000405 7474 133 000406 7455 -323;-322;-303;-312;-320 000407 7456 000410 7475 000411 7466 000412 7460 134 000413 3350 P, DCA CHK /MEMORY PUNCH REQUESTED 135 000414 7402 HLT 136 000415 7604 LAS 137 000416 0375 AND M1 138 000417 7640 SZA CLA 139 000420 1360 TAD HTYPE 140 000421 1365 TAD TYPE2 141 000422 3373 DCA LOCPNT 142 000423 1373 TAD LOCPNT 143 000424 3774 DCA I LDRCAL 144 000425 7402 HLT 145 000426 7604 LAS 146 000427 7041 CIA 147 000430 3351 DCA CNT2 148 000431 4752 JMS I LEADER 149 150 000432 7402 LOOP4, HLT /RECORD FIRST AND LAST REGISTERS 151 000433 7604 LAS 152 000434 3353 DCA INIT2 153 000435 7402 HLT 154 000436 7604 LAS 155 000437 3354 DCA FIN2 156 000440 1355 TAD M177 157 000441 3356 DCA M77 158 000442 7120 STL 159 000443 1353 TAD INIT2 160 000444 4266 JMS PRINT 161 000445 1357 TAD R77 162 000446 3356 DCA M77 163 000447 1753 LOOP5, TAD I INIT2 164 000450 4266 JMS PRINT 165 000451 1353 TAD INIT2 166 000452 7041 CIA 167 000453 1354 TAD FIN2 168 000454 7650 SNA CLA 169 000455 5260 JMP DONE 170 000456 2353 ISZ INIT2 171 000457 5247 JMP LOOP5 172 000460 2351 DONE, ISZ CNT2 173 000461 5232 JMP LOOP4 174 000462 1350 TAD CHK 175 000463 4266 JMS PRINT 176 000464 4752 JMS I LEADER 177 000465 5761 JMP I ENDIT 178 000466 0000 PRINT, 0 /BINARY FORMAT PRINT 179 000467 3362 DCA TEMP1 180 000470 1362 TAD TEMP1 181 000471 7012 RTR;RTR;RTR 000472 7012 000473 7012 182 000474 0356 AND M77 183 000475 4304 JMS SUM 184 000476 4773 JMS I LOCPNT 185 000477 1362 TAD TEMP1 186 000500 0357 AND R77 187 000501 4304 JMS SUM 188 000502 4773 JMS I LOCPNT 189 000503 5666 JMP I PRINT 190 000504 0000 SUM, 0 191 000505 3363 DCA TEMP2 192 000506 1363 TAD TEMP2 193 000507 1350 TAD CHK 194 000510 3350 DCA CHK 195 000511 1363 TAD TEMP2 196 000512 5704 JMP I SUM 197 198 000513 0000 RDOCT, 0 /OCTAL READ SUB-ROUTINE 199 000514 1364 TAD M240 200 000515 4765 JMS I TYPE2 201 000516 3363 DCA TEMP2 202 000517 1366 TAD MN4 203 000520 3362 DCA TEMP1 204 000521 4767 BACK, JMS I READ2 205 000522 4765 JMS I TYPE2 206 000523 6034 KRS 207 000524 1370 TAD N375 208 000525 7650 SNA CLA 209 000526 5346 JMP TERM 210 000527 6034 KRS 211 000530 0371 AND M270 212 000531 1372 TAD N260 213 000532 7640 SZA CLA 214 000533 5321 JMP BACK 215 000534 1363 TAD TEMP2 216 000535 7104 CLL RAL 217 000536 7006 RTL 218 000537 3363 DCA TEMP2 219 000540 6034 KRS 220 000541 1372 TAD N260 221 000542 1363 TAD TEMP2 222 000543 3363 DCA TEMP2 223 000544 2362 ISZ TEMP1 224 000545 5321 JMP BACK 225 000546 1363 TERM, TAD TEMP2 226 000547 5713 JMP I RDOCT 227 000550 0000 CHK, 0 /CONSTANTS AND VARIABLES 228 000551 0000 CNT2, 0 229 000552 0715 LEADER, LDR 230 000553 0000 INIT2, 0 231 000554 0000 FIN2, 0 232 000555 0177 M177, 177 233 000556 0077 M77, 77 234 000557 0077 R77, 77 235 000560 0006 HTYPE, HITYPE-TYP 236 000561 0201 ENDIT, END 237 000562 0000 TEMP1, 0 238 000563 0000 TEMP2, 0 239 000564 0240 M240, 240 240 000565 0701 TYPE2, TYP 241 000566 7774 MN4, -4 242 000567 0674 READ2, RD 243 000570 7403 N375, -375 244 000571 0270 M270, 270 245 000572 7520 N260, -260 246 000573 0000 LOCPNT, 0 247 000574 0746 LDRCAL, JMSLOC 248 000575 0001 M1, 1 249 000576 0000 ADDR, 0;0;0;0;0;0;0 000577 0000 000600 0000 000601 0000 000602 0000 000603 0000 000604 0000 250 000605 4243 B, JMS RESET 251 000606 1350 TAD BRPNTR 252 000607 3002 DCA 2 253 000610 4253 JMS FIND 254 000611 4731 JMS I RDOCT2 255 000612 3726 DCA I TABC 256 000613 1726 TAD I TABC 257 000614 3333 DCA TEMP5 258 000615 1733 TAD I TEMP5 259 000616 3730 DCA I TABD 260 000617 1334 TAD BRINST 261 000620 3733 DCA I TEMP5 262 000621 5735 JMP I END2 263 000622 0000 PNTHIT, 0 /FOUND BREAK-POINT 264 000623 3736 DCA I ACC 265 000624 7004 RAL 266 000625 3737 DCA I LINK2 267 000626 7240 STA 268 000627 1222 TAD PNTHIT 269 000630 3222 DCA PNTHIT 270 000631 5735 JMP I END2 271 000632 4243 C, JMS RESET 272 000633 1222 TAD PNTHIT 273 000634 7041 CIA 274 000635 4253 JMS FIND 275 000636 1730 TAD I TABD 276 000637 3622 DCA I PNTHIT 277 000640 3726 DCA I TABC 278 000641 1222 TAD PNTHIT 279 000642 5740 JMP I RPLUS1 280 000643 0000 RESET, 0 281 000644 1325 TAD RTABC 282 000645 3326 DCA TABC 283 000646 1327 TAD RTABD 284 000647 3330 DCA TABD 285 000650 1341 TAD RN4 286 000651 3332 DCA CNT4 287 000652 5643 JMP I RESET 288 000653 0000 FIND, 0 289 000654 3243 DCA RESET 290 000655 1243 TAD RESET 291 000656 1726 TAD I TABC 292 000657 7650 SNA CLA 293 000660 5653 JMP I FIND 294 295 000661 2326 ISZ TABC 296 000662 2330 ISZ TABD 297 000663 2332 ISZ CNT4 298 000664 5255 JMP .-7 299 000665 7402 HLT 300 000666 0000 LF, 0 301 000667 1342 TAD M215 302 000670 4301 JMS TYP 303 000671 1343 TAD M212 304 000672 4301 JMS TYP 305 000673 5666 JMP I LF 306 000674 0000 RD, 0 307 000675 6031 KSF 308 000676 5275 JMP .-1 309 000677 6036 KRB 310 000700 5674 JMP I RD 311 000701 0000 TYP, 0 312 000702 6041 TSF 313 000703 5302 JMP .-1 314 000704 6046 TLS 315 000705 7300 CLA CLL 316 000706 5701 JMP I TYP 317 000707 0000 HITYPE, 0 318 000710 6021 PSF 319 000711 5310 JMP .-1 320 000712 6026 PLS 321 000713 7300 CLA CLL 322 000714 5707 JMP I HITYPE 323 000715 0000 LDR, 0 324 000716 1344 TAD N75 325 000717 3347 DCA LEADCT 326 000720 1345 TAD M200 327 000721 4746 JMS I JMSLOC 328 000722 2347 ISZ LEADCT 329 000723 5320 JMP .-3 330 000724 5715 JMP I LDR 331 000725 0576 RTABC, ADDR 332 000726 0576 TABC, ADDR 333 000727 0765 RTABD, INST 334 000730 0765 TABD, INST 335 000731 0513 RDOCT2, RDOCT 336 000732 0000 CNT4, 0 337 000733 0000 TEMP5, 0 338 000734 4402 BRINST, JMS I 2 339 000735 0201 END2, END 340 000736 0371 ACC, AC 341 000737 0370 LINK2, LINK 342 000740 0276 RPLUS1, R+1 343 000741 7771 RN4, -7 344 000742 0215 M215, 215 345 000743 0212 M212, 212 346 000744 7634 N75, -144 347 000745 0200 M200, 200 348 000746 0000 JMSLOC, 0 349 000747 0000 LEADCT, 0 350 000750 0622 BRPNTR, PNTHIT 351 000751 0232 LOCS, II;O;N;B;A;L;D;S;R;C;J;P 000752 0225 000753 0236 000754 0605 000755 0327 000756 0333 000757 0242 000760 0270 000761 0275 000762 0632 000763 0326 000764 0413 352 000765 0000 INST, 0;0;0;0;0;0;0 000766 0000 000767 0000 000770 0000 000771 0000 000772 0000 000773 0000 353 FIN=TABB 354 INIT=TABA 355 LOCJMP=TABA 356 N311=LETTER 357 $