/7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 1 /7 CASSETTE ODT (CODT) / DEC-8E-OODTA-A / COPYRIGHT 1973 / DIGITAL EQUIPMENT CORPORATION / MAYNARD, MASS. 01754 1000 START=1000 0004 ZPAT=4 0020 FLD=20 /FIELD OF CODT 6000 SKON=6000 /SKIP IF INTERRUPTS ON [8/E] THEN TURN OFF /THIS IS A 4-PAGE, /PAGEWISE-RELOCATABLE, /OCTAL DEBUGGING SYSTEM CALLED / CODT /PRONOUNCED "COH-DEE-TEE" 0002 FIELD FLD%10 1000 *START 21000 0277 L277, "? 21001 5211 JMP READ3 21002 1777 READ, TAD I (TRAD 21003 7450 SNA 21004 5213 JMP READ5 /NO BREAKPOINT IN PROGRESS 21005 3336 DCA TEM4 /GET THE TRAP ADDRESS. 21006 1776 TAD I (KEEP 21007 4775 JMS I (SETD2F 21010 3736 DCA I TEM4 /RESTORE CONTENT. 21011 6221 READ3, CDF FLD 21012 4774 READ4, JMS I (CRLF 21013 3336 READ5, DCA WORD /CLEAR THE INPUT 21014 1373 TAD (-5 21015 3340 DCA TOTE /SET THE LETTER COUNT. 21016 6031 REA, KSF 21017 5216 JMP .-1 /WAIT FOR COMMAND. 21020 6036 KRB 21021 0372 AND (177 21022 1273 TAD L200 21023 4355 JMS TYPN 21024 1371 TAD (TABL1-1 /C0MPUTE ADDRESS OF COMMAND. 21025 3276 DCA SPNTR 21026 2276 GETC, ISZ SPNTR 21027 1676 TAD I SPNTR /SEARCH FOR LEGAL CHARACTER. 21030 2276 ISZ SPNTR 21031 7510 FM270, SPA /TEST FOR END OF LIST 21032 5253 JMP SEX /NOT SATISFIED. 21033 7141 CIA CLL /COMPARE THE CHARACTER. 21034 1335 TAD SCHAR 21035 7640 SZA CLA /FOUND 21036 5226 JMP GETC /NO, CONTINUE /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 1-1 21037 1676 TAD I SPNTR /GET ADDRESS OF ROUTINE 21040 3276 DCA SPNTR 21041 5676 JMP I SPNTR /GO PROCESS. (WITH L ON) /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 2 21042 1336 EXAM, TAD WORD /LOAD ADDRESS. 21043 7440 SZA /IF ZERO, USE LAST. 21044 3337 DCA CAD 21045 4775 EX2, JMS I (SETD2F 21046 1737 TAD I CAD /GET CONTENTS OF CURRENT LOCATION 21047 6221 CDF FLD 21050 4770 JMS I (PNUM /PRINT THESE CONTENTS 21051 3341 OPN, DCA SHUT /SIGNALS OPEN REG. 21052 5213 JMP READ5 /PROCESS OCTAL DIGITS. 21053 7200 SEX, CLA 21054 1335 TAD SCHAR /GET CHAR JUST TYPED 21055 1231 TAD FM270 /(-8) 21056 7100 CLL 21057 1367 TAD (10 21060 7420 SNL 21061 5272 JMP NO 21062 3276 DCA TEM9 /SAVE 21063 1336 TAD WORD /ASSEMBLE AN ADDRESS. 21064 7104 RAL CLL 21065 7006 RTL 21066 1276 TAD TEM9 21067 3336 DCA WORD 21070 2340 ISZ TOTE /ALLOW THIS MANY OCTAL DIGITS? 21071 5216 JMP REA /YES. LESS THAN 5 /TYPE ERROR INDICATOR (?) 21072 7240 NO, STA /5 DIGITS TYPED OR BAD CHARACTER 21073 0200 L200, AND L277 /TYPE QUESTION MARK 21074 4355 JMS TYPN 21075 5212 JMP READ4 /TO OPEN LOCATION ZERO, /OPEN 7777 AND TYPE LINEFEED. /THE ADDRESS OF THE LAST REGISTER /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 3 /EXAMINED REMAINS THE SAME AND MAY BE OPENED BY "/" /ROUTINE TO HANDLE REG. MODIFICATION AND INCREMENTAL EXAMINE SPNTR, TEM9, 21076 0000 CRL, 0 21077 4775 JMS I (SETD2F 21100 1340 TAD TOTE 21101 1333 TAD L5 /WAS A NUMBER TYPED IN? 21102 7650 SNA CLA 21103 5676 JMP I CRL /NO MOD. INFO AVAILABLE 21104 1336 TAD WORD /YES, A NUMBER CAME IN; USE IT TO MODIFY LOC 21105 2341 ISZ SHUT /TEST FOR OPEN AND THEN CLOSE IT. 21106 3737 DCA I CAD /MODIFY REGISTER 21107 7200 CLA /FIX BUG IN OLD ODT 21110 5676 JMP I CRL /RETURN WITH DF=F 21111 4276 CRL1, JMS CRL /CARRIAGE RETURN TO CLOSE. 21112 5211 JMP READ3 21113 1320 CRL2, TAD L215 /USER TYPED LF 21114 4355 JMS TYPN /SO NOW WE DO CR 21115 4276 JMS CRL /CLOSE PREVIOUS LOCATION IF OPEN /WARNING: DF=F 21116 4355 JMS TYPN /TIME FOR CAR TO RET. ??? 21117 2337 ISZ CAD /LINE FEED - EXAMINE NEXT 21120 0215 L215, 215 21121 5766 JMP I (UPAR3 /GO PRINT ADDRESS 21122 4276 OPIN, JMS CRL /CLOSE FIRST. 21123 1737 TAD I CAD /OPEN LOCATION INDIRECTLY 21124 3337 DCA CAD 21125 6221 UPAR2, CDF FLD 21126 4774 JMS I (CRLF 21127 5766 JMP I (UPAR3 21130 4276 PUNC, JMS CRL /SEMI-COLON 21131 6221 CDF FLD 21132 2337 ISZ CAD /GOTO NEXT LOC 21133 0005 L5, 5 21134 5251 JMP OPN /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 4 /TYPE A CAR. RET. AND LINE FEED 21135 0000 SCHAR, 0 TEM4, 21136 0000 WORD, 0 /OCTAL NUMBER USER TYPED IN 21137 0000 CAD, 0 /CURRENT ADDRESS. 21140 0000 TOTE, 0 21141 7777 SHUT, 7777 /-1 MEANS REGISTER CLOSED /MEMORY REFERENCE OPENER. 21142 4276 UPAR1, JMS CRL /CLOSE PREVIOUS LOCATION IF OPEN 21143 1737 TAD I CAD 21144 0372 AND (177 21145 3276 DCA TEM9 /SAVE LOWER BITS. 21146 1737 TAD I CAD 21147 0273 AND L200 21150 7041 CIA /0 OR 7600 21151 0337 AND CAD /ISOLATE PAGE OF ADDRESS 21152 1276 TAD TEM9 21153 3337 DCA CAD 21154 5325 JMP UPAR2 /TYPE A CHARACTER 21155 0000 TYPN, 0 /MUST PRESERVE THE LINK 21156 6046 TLS 21157 6041 TSF 21160 5357 JMP .-1 21161 3335 DCA SCHAR /HERB'S FUDGE 21162 5755 JMP I TYPN 21166 1634 21167 0010 21170 1400 21171 1514 21172 0177 21173 7773 21174 1505 21175 1427 21176 1342 21177 1341 1200 PAGE /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 5 1200 *START+200 21200 0177 SP177, 177 /FIRST IN THIS PAGE. /THE TRAP IS SPRUNG /UPON ENTRY HERE, /'F' AND 'TF' ARE ALREADY SET TO FIELD OF TRAP /'TRAD' IS SET TO ADRESS OF TRAP /AND 'KEEP' CONTAINS THE ORIGINAL CONTENTS OF THIS TRAPPED LOCATION /THE DATA FIELD=F IN THIS ROUTINE 21201 3337 BURP, DCA SAC /SAVE C(AC) 21202 7004 RAL 21203 3340 DCA LINK /SAVE C(L) 21204 6214 RDF 21205 3347 DCA D 21206 6221 CDF FLD 21207 4777 JMS I (SETD2F 21210 1342 TAD KEEP 21211 3741 DCA I TRAD /REPLACE INSTRUCTION 21212 7201 CLA IAC 21213 1341 TAD TRAD 21214 3343 DCA GAME /SAVE CONTINUE ADDRESS 21215 7132 STL RTR /2000 21216 1342 TAD KEEP 21217 7200 CLA 21220 1342 TAD KEEP 21221 7430 SZL 21222 5253 JMP LIP4 /IOT'S AND OPR'S JUST EXECUTE 21223 0230 AND SP200 21224 7041 CIA /FORM 0 OR 7600 (AS PER Z OR I) 21225 0341 AND TRAD /GET PAGE OF TRAPPED LOCATION 21226 3344 DCA FROG /SAVE INITIAL ADDRESS OF TRAPPED PAGE 21227 1342 TAD KEEP 21230 0200 SP200, AND SP177 /ISOLATE PAGE ADDRESS 21231 1344 TAD FROG 21232 3344 DCA FROG /SAVE ABSOLUTE ADDRESS OF MEMORY REFERENCE 21233 1342 TAD KEEP 21234 0376 AND (400 21235 7650 SNA CLA /INDIRECT REFERENCES HERE. 21236 5241 JMP LIP /DIRECT REFERENCE /ASSUME NOT ON JMP OR JMS IND OFF PAGE 21237 1744 TAD I FROG 21240 3344 DCA FROG 21241 7330 LIP, STL CLA RAR /4000 21242 1342 TAD KEEP 21243 0335 AND L7000 /ISOLATE OP CODE + 4000 21244 7440 SZA 21245 5252 JMP LIP3 21246 1343 TAD GAME 21247 3744 DCA I FROG 21250 2344 ISZ FROG 21251 1375 TAD (1000 /JMS'ES NEED SPECIAL ATTENTION 21252 1374 LIP3, TAD (JMS I FROG /FORM INSTRUCTION BACK /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 5-1 21253 3332 LIP4, DCA THE /STORE INST TO EXEC BEFORE RETURNING TO PROG 21254 6221 CDF FLD 21255 2345 ISZ EMP /TEST N-CONTINUE 21256 5310 JMP XCONT /IGNORE THIS BREAK 21257 6000 SKON /DETERMINE IF INTERRUPTS WERE ON 21260 7201 CLA IAC /FORM 'IOF' 21261 1373 TAD (ION /FORM 'ION' 21262 3307 DCA RESION 21263 5772 JMP I (PRIN /GO PRINT L;AC, ETC. /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 6 /START AT A LOCATION 21264 1771 JUMP, TAD I (WORD 21265 3343 DCA GAME 21266 1333 TAD JPIGAM /(JMP I GAME) 21267 3332 DCA THE 21270 3337 DCA SAC /CLEAR THE AC. 21271 1346 TAD F 21272 3347 DCA D /SET D=F 21273 5277 JMP CON 21274 1350 CONTIN, TAD TF 21275 3346 DCA F 21276 1771 TAD I (WORD 21277 7040 CON, CMA 21300 3345 DCA EMP /(PUNN)-EMP COUNTER. 21301 4770 JMS I (CRLF 21302 6042 TTYFLG, TCF /RESTORE TTY FLAG TO FORMER STATE 21303 4777 JMS I (SETD2F 21304 1741 TAD I TRAD /SAVE TRAP CONTENTS. 21305 6221 CDF FLD 21306 3342 DCA KEEP 21307 6002 RESION, IOF 21310 1341 XCONT, TAD TRAD 21311 7650 SNA CLA /WAS A BREAKPOINT IN PROGRESS? 21312 5317 JMP THERE /NO 21313 4777 JMS I (SETD2F /YES, GO MAKE IT 21314 1367 TAD (JMP Z ZPAT /FORM TRAP INSTRUCTION 21315 3741 DCA I TRAD /INSERT TRAP INSTRUCTION 21316 4766 JMS I (SETZ 21317 1347 THERE, TAD D /MUST BE ON THIS PAGE 21320 1365 TAD (CDF 21321 3330 DCA NEWDF /GET DATA FIELD TO START-UP PROG WITH 21322 1346 TAD F 21323 1364 TAD (CIF 21324 3331 DCA NEWIF /GET INSTRUCTION FIELD OF PROGRAM 21325 1340 TAD LINK 21326 7110 RAR CLL /RESTORE LINK. 21327 1337 TAD SAC /AND C(AC) TEM5, 21330 7402 NEWDF, HLT TEM6, 21331 7402 NEWIF, HLT 21332 7402 THE, HLT /ODT EXECUTION OF TRAPPED INST. AFTER PROCEED 21333 5743 JPIGAM, JMP I GAME 21334 2343 ISZ GAME /IMITATE SKIP CONDITION. 21335 7000 L7000, NOP /PERFECTIONIST 21336 5743 JMP I GAME /EXEC INSTR DOESN'T CONSIDER IF USING AUTO-INDEX REGISTER /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 7 /VARIABLES MAY BE SCANNED VIA "A". 21337 0000 SAC, 0 /AC 21340 0000 LINK, 0 /LINK BIT 21341 0000 TRAD, 0 /ADDRESS OF TRAP. 21342 0000 KEEP, 0 /CONTENT OF TRAP 21343 0000 GAME, 0 /ADDRESS FOR CONTINUE 21344 0777 FROG, START-1 /MEMORY REFERENCE. 21345 0000 EMP, 0 /COUNTS # OF TIMES THRU A CONTINUE LOOP 21346 0020 F, FLD /USER FIELD^10 21347 0020 D, FLD /DATA FIELD^10 21350 0020 TF, FLD /FIELD OF TRAP 21364 6202 21365 6201 21366 1651 21367 5004 21370 1505 21371 1136 21372 1600 21373 6001 21374 4744 21375 1000 21376 0400 21377 1427 1400 PAGE /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 8 1400 *START+400 /ROUTINE TO PRINT OCTAL CONTENTS OF AC 21400 0000 PNUM, 0 /DATA FIELD COULD BE F HERE 21401 3234 DCA TEM2 21402 1355 TAD M4 21403 3227 DCA TEM3 21404 1234 TAD TEM2 21405 7004 RAL 21406 7004 PN2, RAL 21407 7006 RTL 21410 3234 DCA TEM2 21411 1234 TAD TEM2 21412 0377 AND (7 /ONLY 7-DIGITS GUARANTEED. 21413 1312 TAD TP260 /IN CASE BIT 8 CAME THROUGH. 21414 4776 JMS I (TYPN 21415 1234 TAD TEM2 21416 2227 ISZ TEM3 21417 5206 JMP PN2 21420 7600 L7600, 7600 21421 1267 TAD TP240 21422 4776 JMS I (TYPN 21423 5600 JMP I PNUM /SEARCH VARIABLES. 21424 7777 MASK, 7777 21425 0001 LIMLO, 0001 21426 1000 LIMHI, START TEM3, /MUST BE ENTERED WITH DF=FLD 21427 0000 SETD2F, 0 /SET DATA FIELD TO FIELD OF USER EXEC (F) 21430 3305 DCA TEM7 /PRESERVE AC AROUND CALL 21431 1775 TAD I (F 21432 1374 TAD (CDF 21433 3234 DCA .+1 21434 7402 TEM2, HLT 21435 1305 TAD TEM7 21436 5627 JMP I SETD2F /RETURN /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 9 /WORD SEARCH ROUTINE 21437 4305 WSER, JMS CRLF 21440 1225 TAD LIMLO 21441 3360 DCA CKT 21442 4227 WSER1, JMS SETD2F 21443 1760 TAD I CKT 21444 6221 CDF FLD 21445 0224 AND MASK 21446 7041 CIA 21447 1773 TAD I (WORD 21450 7640 SZA CLA 21451 5263 JMP WSER2 21452 1360 TAD CKT 21453 4200 JMS PNUM 21454 1321 TAD TP257 /(SLASH) 21455 4776 JMS I (TYPN 21456 4227 JMS SETD2F 21457 1760 TAD I CKT 21460 6221 CDF FLD 21461 4200 JMS PNUM 21462 4305 JMS CRLF 21463 1360 WSER2, TAD CKT 21464 2360 ISZ CKT 21465 7041 CIA 21466 1226 TAD LIMHI 21467 7640 TP240, SZA CLA 21470 5242 JMP WSER1 21471 5772 JMP I (READ4 /ROUTINES TO TYPE MASK AND LIMITS 21472 7001 OPEND, IAC /DF-IF 21473 1371 OPENF, TAD (F-LINK 21474 7001 OPENL, IAC /LINK-SAC 21475 1370 ACX, TAD (SAC-MASK 21476 1367 MASKER, TAD (MASK 21477 3773 DCA I (WORD /WORD 21500 6224 RIF 21501 3775 DCA I (F /SPECIAL EXAMINES FORCE F TO FIELD OF CODT 21502 1321 TAD TP257 21503 4776 JMS I (TYPN 21504 5722 JMP I PEXAM /EXAM TEM7, 21505 0000 CRLF, 0 21506 1317 TAD CR /TYPE CARRIAGE RETURN 21507 4776 JMS I (TYPN 21510 1315 TAD LF /TYPE LINE FEED 21511 4776 JMS I (TYPN 21512 7260 TP260, STA CML /MINUS ONE 21513 3766 DCA I (SHUT /SIGNALS CLOSED REGISTER 21514 5705 JMP I CRLF /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 10 /COMMAND LIST TABL1, 21515 0212 LF, 212;CRL2 /LF 21516 1113 21517 0215 CR, 215;CRL1 /CR 21520 1111 21521 0257 TP257, "/;PEXAM,EXAM /SLASH 21522 1042 21523 0302 "B;TRAP /BREAK 21524 1626 21525 0307 "G;JUMP /GO 21526 1264 21527 0273 ";;PUNC /SEMICOLON 21530 1130 21531 0303 "C;CONTIN /CONTINUE 21532 1274 21533 0327 "W;WSER /WORD SEARCH 21534 1437 21535 0336 "^;UPAR1 /OPENS INDIRECT (I.E. MEMORY REFERENCE) 21536 1142 21537 0315 "M;MASKER /MASK+UPPER+LOWER 21540 1476 21541 0301 "A;ACX /AC 21542 1475 21543 0337 "_;OPIN /OPEN INDIRECTLY 21544 1122 21545 0203 203;CTRLC /^C RETURN TO MONITOR VIA 7600 21546 1556 21547 0306 "F;OPENF 21550 1473 21551 0304 "D;OPEND /DATA FIELD 21552 1472 21553 0314 "L;OPENL /LINK 21554 1474 21555 7774 M4, -4 /LOC AFTER TABLE MUST BE NEGATIVE 21556 6203 CTRLC, CIF CDF 0 21557 5620 JMP I L7600 21560 0000 CKT, 0 21566 1141 21567 1424 21570 7713 21571 0006 21572 1012 21573 1136 21574 6201 21575 1346 21576 1155 21577 0007 1600 PAGE /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 11 1600 *START+600 PRIN, 21600 0260 L260, 260 21601 0273 L273, 273 21602 0257 L257, 257 21603 4777 JMS I (SETD2F /WASTE SOME TIME 21604 6221 CDF FLD 21605 6041 TSF /WHAT IS STATE OF USER'S TTY FLAG? 21606 1376 TAD (TCF 21607 3775 DCA I (TTYFLG /PREPARE TO RESTORE IT LATER 21610 2233 ISZ ZERO 21611 5200 JMP PRIN 21612 1774 TAD I (TRAD 21613 4773 JMS I (PNUM /(PRINT TRAP ADDRESS) 21614 1236 TAD LPAR /LEFT PAREN. 21615 4772 JMS I (TYPN 21616 1771 TAD I (LINK 21617 1200 TAD L260 21620 4772 JMS I (TYPN /PRINT LINK; 21621 1201 TAD L273 21622 4772 JMS I (TYPN 21623 1770 TAD I (SAC 21624 4773 JMS I (PNUM 21625 5767 JMP I (READ /RESORE LOCATION /SET A BREAK POINT 21626 1766 TRAP, TAD I (WORD /GET ADDRESS OF TRAP 21627 3774 DCA I (TRAD /SET IT 21630 1765 TAD I (F 21631 3764 DCA I (TF /SAVE FIELD OF TRAP 21632 5763 JMP I (READ3 /IF NO TRAP IS SET, /LOC 'TRAD' WILL CONTAIN A ZERO 21633 0000 ZERO, 0 /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 12 21634 6221 UPAR3, CDF FLD 21635 1765 TAD I (F 21636 7450 LPAR, SNA 21637 5244 JMP FIELD0 21640 7112 CLL RTR 21641 7010 RAR 21642 1200 TAD L260 21643 4772 JMS I (TYPN 21644 1762 FIELD0, TAD I (CAD 21645 4773 JMS I (PNUM /PRINT ADDRESS OF NEXT LOCATION 21646 1202 TAD L257 21647 4772 JMS I (TYPN /PRINT A SLASH 21650 5761 JMP I (EX2 /GO PRINT CONTENTS /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 13 21651 0000 SETZ, 0 21652 1360 TAD (CIF FLD 21653 3757 DCA I (ZPAT 21654 1356 TAD (JMP I ZPAT+2 21655 3755 DCA I (ZPAT+1 21656 1354 TAD (BURP 21657 3753 DCA I (ZPAT+2 21660 5651 JMP I SETZ 21753 0006 21754 1201 21755 0005 21756 5406 21757 0004 21760 6222 21761 1045 21762 1137 21763 1011 21764 1350 21765 1346 21766 1136 21767 1002 21770 1337 21771 1340 21772 1155 21773 1400 21774 1341 21775 1302 21776 6042 21777 1427 1000 *START /STARTING ADDRESS /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 14 /CODT NORMALLY RUNS WITH DF=FLD BUT SOME ROUTINES /RUN WITH DF=F /THE STARTING LOCATION IS 'READ3', BUT YOU CAN START /AT LOCATION 'READ' IF YOU WANT TO RECOVER FROM A 'BOMB' /READ: READS A COMMAND LINE / RESTORES BP LOC IN CASE CODT WAS MANUALLY STARTED / IF FIRST CHAR IS IN TABLE, BRANCH TO APPROPRIATE ROUTINE / OTHERWISE ASSUMES DIGIT, GOES TO 'SEX' /SEX: BALKS IF NOT NUMBER / PUTS 4 DIGIT NUMBER IN 'WORD' / EVENTUALLY FINDS A LETTER AND BRANCHES THRU DISPATCH TABLE /'/' SENDS YOU TO 'EXAM' /EXAM: PUTS C(WORD) IN 'CAD' **SLOPPY NOTATION** / PRINTS C(CAD) IN FIELD F / SIGNALS OPEN REGISTER / GOES TO 'READ5' /CRL: IF NUMBER PRECEEDED, USE IT TO MODIFY PREVIOUS / LOCATION IF ONE WAS OPEN. / RETURNS WITH DF=F /CR SENDS TO CRL1 /CRL1: CALLS CRL / THEN GOES TO 'READ' /LF SENDS TO CRL2 /CRL2: TYPE CR / CALL CRL / BUMP 'CAD' / PRINT NEW CAD THEN / / THEN PRINT C(CAD) IN FIELD F / OPEN REGISTER /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 15 /_ SENDS TO 'OPIN' /OPIN: CALLS CRL TO CLOSE / SETS CAD TO C(CAD) FROM FIELD F / PRINTS CR/LF / THEN GOES TO 'UPAR3' /^ SENDS TO UPAR1 /UPAR1: CALLS CRL TO CLOSE / OPENS LOCATION (IN FIELD F) REFERENCED BY MRI /B SENDS TO 'TRAP' /TRAP: STORES WORD IN 'TRAD' / SAVES F IN TF / GOES TO 'READ5' /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 16 /BURP: COMES HERE UPON BEING TRAPPED / SAVE AC,L IN SAC, LINK / SAVE USER'S DF IN D / SET PROG DF TO F / 'GAME' IS SET UP AS CONTINUE ADDRESS (TRAD+1) / EXECUTE THE INSTRUCTION (TRICKY) / NOT ALL INSTRUCTIONS CAN BE SO EXECUTED / CIF'S, INST BETWEEN CIF AND JMP / INDIRECT REFERENCES TO AUTO-INDEX REGISTERS (NO ROOM) / 2-WORD INSTRUCTIONS / ETC. / INCREMENT CONTINUE COUNTER / IF NOT 0, GOTO 'XCONT' / FORM 'ION' OR 'IOF' DEPENDING ON WHETEHER ION OR IOF / THEN IOF / PRINT TRAD ( AC / GOTO 'READ' WHICH RESTORES TRAP LOCATION /G SENDS TO 'JUMP' /JUMP: MOVE 'WORD' TO 'GAME' / STORE 'JMP I GAME' IN 'THE' / CLEAR AC / SET D=F / SET CONTINUE COUNTER TO -1 / DO CR/LF / CLEAR TTY FLAG / GET CONTENTS OF TRAP LOCATION, STORE IN 'KEEP' / RESTORE INTERRUPTS IF NECESSARY /XCONT: IF BREAKPOINT IN PROGRESS, REPLACE LOC BY 'JMP Z ZPAT' / CHANGE DF AND IF TO D,F RESP. / SET LOCATION 4,5,6 OF BREAKPOINT FIELD / RESTORE L,AC / EXECUTE THE INSTRUCTION AT LOCATION 'THE' / CONTINUE $ /7 CASSETTE ODT (CODT) PAL8-V10D NO DATE PAGE 17 ACX 1475 PNUM 1400 BURP 1201 PN2 1406 CAD 1137 PRIN 1600 CKT 1560 PUNC 1130 CON 1277 REA 1016 CONTIN 1274 READ 1002 CR 1517 READ3 1011 CRL 1076 READ4 1012 CRLF 1505 READ5 1013 CRL1 1111 RESION 1307 CRL2 1113 SAC 1337 CTRLC 1556 SCHAR 1135 D 1347 SETD2F 1427 EMP 1345 SETZ 1651 EXAM 1042 SEX 1053 EX2 1045 SHUT 1141 F 1346 SPNTR 1076 FIELD0 1644 SP177 1200 FLD 0020 SP200 1230 FM270 1031 START 1000 FROG 1344 TABL1 1515 GAME 1343 TEM2 1434 GETC 1026 TEM3 1427 JPIGAM 1333 TEM4 1136 JUMP 1264 TEM5 1330 KEEP 1342 TEM6 1331 LF 1515 TEM7 1505 LIMHI 1426 TEM9 1076 LIMLO 1425 TF 1350 LINK 1340 THE 1332 LIP 1241 THERE 1317 LIP3 1252 TOTE 1140 LIP4 1253 TP240 1467 LPAR 1636 TP257 1521 L200 1073 TP260 1512 L215 1120 TRAD 1341 L257 1602 TRAP 1626 L260 1600 TTYFLG 1302 L273 1601 TYPN 1155 L277 1000 UPAR1 1142 L5 1133 UPAR2 1125 L7000 1335 UPAR3 1634 L7600 1420 WORD 1136 MASK 1424 WSER 1437 MASKER 1476 WSER1 1442 M4 1555 WSER2 1463 NEWDF 1330 XCONT 1310 NEWIF 1331 ZERO 1633 NO 1072 ZPAT 0004 OPEND 1472 OPENF 1473 OPENL 1474 OPIN 1122 OPN 1051 PEXAM 1522 ERRORS DETECTED: 0 LINKS GENERATED: 0