/1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 1 /1.3 CASSETTE MONITOR SYSTEM CAPS-8 MONITOR / DEC-8E-OMONA-A / COPYRIGHT 1973 / DIGITAL EQUIPMENT CORPORATION / MAYNARD, MASS. 01754 / STANLEY RABINOWITZ / RELEASED VERSION 1.3 - APRIL 9, 1973 4400 FIXMRI CALL=4400 2000 FIXMRI INCR=2000 5400 FIXMRI EXIT=5400 0001 VERSION=1 0003 SUBVERSION=3 6661 LSF=6661 6662 LCF=6662 6663 LSE=6663 6665 LIE=6665 6666 LLS=6666 6667 LIF=6667 6700 KCLR=6700 /CLEAR ALL /CLEAR STATUS A AND B REGISTERS. 6701 KSDR=6701 /SKIP ON DATA FLAG 6702 KSEN=6702 /SKIP ON ERROR 6703 KSBF=6703 /SKIP ON READY FLAG 6704 KLSA=6704 /LOAD STATUS A FROM AC 4-11 /CLEAR AC, THEN /LOAD 8 BIT COMPLEMENT OF STATUS A /BACK INTO AC 6705 KSAF=6705 /SKIP ON ANY FLAG OR ERROR 6706 KGOA=6706 /ASSERT THE CONTENTS OF STATUS A, /TRANSFER DATA IF READ OR WRITE 6707 KRSB=6707 /READ STATUS B INTO AC 4-11 0040 TTYDVC=040 0030 KBDDVC=030 0000 VT05=0 0000 OS8=0 0000 F0=0 0010 F1=10 0000 READ=0 4000 WRITE=4000 0010 REWIND=10 0030 BACKFIL=30 0040 WRGAP=40 0050 BACKBLOCK=50 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 1-1 0070 SKPFIL=70 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 2 6007 CAF=6007 / 8/E ONLY 7002 BSW=7002 /BYTE SWAP (8/E) 7421 MQL=7421 7501 MQA=7501 7621 CAM=7621 7521 SWP=7521 6000 SKON=6000 6032 KKCC=6002+KBDDVC 6031 KKSF=6001+KBDDVC 6036 KKRB=6006+KBDDVC 6041 TTSF=6001+TTYDVC 6042 TTCF=6002+TTYDVC 6046 TTLS=6006+TTYDVC 6040 TTFL=6000+TTYDVC /SET TELEPRINTER FLAG 6020 PCE=6020 /CLEAR INTERRUPT ENABLE ON H.S. RDR/PUN 6014 RCF=6014 6016 RCC=6016 0010 X0=10 0011 X1=11 0012 X2=12 0013 X3=13 / FORMAT OF HEADER RECORD / BYTES FUNCTION COMMENTS / 0-5 FILENAME (BYTE 0 IS 0 MEANS SENTINEL FILE) / 6-10 FILENAME EXTENSION / 11 FILE TYPE 1 MEANS ASCII / - MEANS BINARY / 13 MEANS BAD FILE / 12,13 RECORD SIZE ALWAYS 30 OR 200 / 14,15 SHOULD BE ZERO / 16-23 CREATION DATE (IN ASCII) SPACES IF NONE / 24 VERSION NUMBER 0 MEANS NONE / 25-37 UNUSED 0030 HSIZE=30 /TEMP 0040 HSIZE=40 /SIZE OF HEADER /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 3 / STATUS A /AC BIT FUNCTION /11 ENABLE INTERRUPTS /6-8 FUNCTION REGISTER /5 DRIVE 0=A, 1=B /4 SELECT ENABLE / FUNCTION REGISTER /000 READ /001 REWIND /2 WRITE /3 BACKSPACE TO FILE GAP /4 WRITE GAP /5 BACKSPACE BLOCK GAP /6 READ/WRITE CRC CHARACTER /7 SPACE FORWARD FILE GAP / STATUS REGISTER B /AC BIT FUNCTION /11 READY FLAG /10 WRITE LOCK OUT /9 REWIND /8 DRIVE EMPTY /7 END OF FILE FLAG /6 EOT/BOT /5 TIMING ERROR /4 CRC/BLOCK ERROR /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 4 0001 *1 00001 5402 JMP I .+1 00002 7655 INTRPT /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 5 / SPECIAL (TEST) MONITOR SYSTEM 0200 *200 00200 6211 CDF 10 00201 3777 DCA I (CINUSE 00202 6032 KKCC 00203 6042 TTCF 00204 6201 CDF 0 00205 3776 DCA I (TTCHCT 00206 3775 DCA I (LPCHCT 00207 1374 TAD (MONRES 00210 3773' DCA CTRLCJ 00211 6001 ION 00212 5772' START, JMP ABSLD /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 6 00213 1726 MVLUP, TAD I SPTR 00214 6211 CDF 10 00215 3725 DCA I RPTR /SET NAME TO "BBBBBB.BIN" 00216 6201 CDF 0 00217 2325 INCR RPTR 00220 2326 INCR SPTR 00221 2324 ISZ RKNT 00222 5213 JMP MVLUP 00223 1371 TAD (SINCH 00224 3325 DCA RPTR 00225 4770 GNL, CALL (KBDCHR 00226 1367 TAD (-15 00227 7450 SNA 00230 5241 JMP NGL 00231 1366 TAD (15 00232 6211 CDF 10 00233 3725 DCA I RPTR 00234 1725 TAD I RPTR 00235 6201 CDF 0 00236 4765 CALL (TTOCHR 00237 2325 INCR RPTR 00240 5225 JMP GNL 00241 4764 NGL, CALL (CRLF1 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 7 00242 6212 CIF 10 00243 1363 TAD (260 00244 4762 CALL (ENTER 00245 7402 HLT 00246 3761 DCA I (KBDFLG 00247 1360 TAD ("^ 00250 4765 CALL (TTOCHR 00251 4770 CALL (KBDCHR 00252 7200 CLA 00253 3322 DCA TSUM 00254 7201 CLA IAC 00255 3323 DCA LDRFLG 00256 6020 PCE /CLEAR INTERRUPT ENABLE FOR RDR PUNCH 00257 6014 RCF /INITIATE I/O 00260 1357 TAD (RBUFR 00261 3325 DCA RPTR 00262 1356 TAD (-202 00263 3324 DCA RKNT 00264 6011 RLOOP, RSF 00265 5264 JMP .-1 00266 6016 RCC /FETCH CHAR READ AND READ NEXT CHAR 00267 3725 DCA I RPTR 00270 1725 TAD I RPTR 00271 0355 AND (200 00272 7650 SNA CLA 00273 1725 TAD I RPTR 00274 1322 TAD TSUM 00275 3322 DCA TSUM 00276 1725 TAD I RPTR 00277 1354 TAD (-200 00300 7650 SNA CLA 00301 4753 JMS I (LDR /ON LEADER 00302 3323 DCA LDRFLG 00303 2325 INCR RPTR 00304 2324 ISZ RKNT 00305 5264 JMP RLOOP 00306 4752 JMS I (SEND 00307 1357 TAD (RBUFR 00310 3325 DCA RPTR 00311 1354 TAD (-200 00312 3324 DCA RKNT 00313 1751 TAD I (RBUFR+200 00314 3725 DCA I RPTR 00315 2325 INCR RPTR 00316 1750 TAD I (RBUFR+201 00317 3725 DCA I RPTR 00320 2325 INCR RPTR 00321 5264 JMP RLOOP /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 8 00322 0000 TSUM, 0 00323 0001 LDRFLG, 1 /0 MEANS AM PROCESSING DATA 00324 0000 RKNT, 0 00325 0000 RPTR, 0 00326 0000 SPTR, 0 00350 1001 00351 1000 00352 0450 00353 0400 00354 7600 00355 0200 00356 7576 00357 0600 00360 0336 00361 7601 00362 6404 00363 0260 00364 0442 00365 7402 00366 0015 00367 7763 00370 7626 00371 7403 00372 0473 00373 7604 00374 7415 00375 7406 00376 7413 00377 6273 0400 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 9 00400 0000 LDR, 0 00401 1777 TAD I (LDRFLG 00402 7640 SZA CLA 00403 5776 JMP I (RLOOP /STILL ON BOT (POS) 00404 7344 CLL STA RAL /-2 00405 1775 TAD I (RPTR 00406 3237 DCA RPT 00407 1237 TAD RPT 00410 3240 DCA RP 00411 1637 TAD I RPT 00412 7002 BSW 00413 3241 DCA CS 00414 1637 TAD I RPT 00415 2237 INCR RPT 00416 1637 TAD I RPT 00417 7041 CIA 00420 1774 TAD I (TSUM 00421 3774 DCA I (TSUM 00422 1373 TAD (200 /LEADER 00423 3640 DCA I RP 00424 1637 TAD I RPT 00425 1241 TAD CS 00426 7041 CIA 00427 1774 TAD I (TSUM 00430 7440 SZA 00431 7402 HLT /CHECKSUM ERROR 00432 4250 JMS SEND 00433 6212 CIF 10 00434 4772 CALL (CLOSE 00435 7402 HLT 00436 5771 JMP I (START 00437 0000 RPT, 0 00440 0000 RP, 0 00441 0000 CS, 0 00442 0000 CRLF1, 0 00443 1370 TAD (215 00444 4767' JMS TTOCHR 00445 1371 TAD (212 00446 4767' JMS TTOCHR IFNZRO VT05 < JMS TTOCHR JMS TTOCHR JMS TTOCHR > 00447 5642 EXIT CRLF1 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 10 00450 0000 SEND, 0 00451 6212 CIF 10 00452 4766 CALL (HANDLER 00453 4000 WRITE+F0 00454 0600 RBUFR 00455 7402 HLT 00456 6212 CIF 10 00457 4765 CALL (WAIT 00460 7402 HLT 00461 5650 EXIT SEND 00462 0040 SIN, 40;40;40;40;40;40;102;111;116 /BIN 00463 0040 00464 0040 00465 0040 00466 0040 00467 0040 00470 0102 00471 0111 00472 0116 /HAVE TO DOUBLE BUFFER /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 11 00473 4764 ABSLD, CALL (CRLF1 00474 1363 TAD ("* 00475 4767 CALL (TTOCHR 00476 1362 TAD (SIN 00477 3761' DCA SPTR 00500 1360 TAD (SINCH 00501 3775' DCA RPTR 00502 1357 TAD (-11 00503 3756' DCA RKNT 00504 5755 JMP I (MVLUP 00555 0213 00556 0324 00557 7767 00560 7403 00561 0326 00562 0462 00563 0252 00564 0442 00565 6200 00566 6600 00567 7402 00570 0215 00571 0212 00572 6400 00573 0200 00574 0322 00575 0325 00576 0264 00577 0323 0600 PAGE 00600 0000 RBUFR, 0 1000 PAGE 01000 0000 0;0 01001 0000 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 12 7400 *7400 07400 0000 LPOCHR,0 /ENTRY POINT FOR LPT OUT ROUTINE 07401 5240 JMP LPJAM 07402 0000 TTOCHR, 0 /ENTRY POINT FOR TTY OUTPUT ROUTINE 07403 5276 JMP TTJAM 07404 7732 LPPUTP, LPBUFR+1 /NEXT LOCATION FREE IN BUFFER 07405 7731 LPGETP, LPBUFR /PREVIOUS LOCATION WHICH WAS /OUTPUT IN BUFFER (ALWAYS POS) 07406 0000 LPCHCT, 0 07407 0000 ECHO, 0 /-1 MEANS CTRL/O IS ON (NO ECHO) 07410 0030 TTSIZ, TTSIZE 07411 7735 TTPUTP, TTBUFR+1 07412 7734 TTGETP, TTBUFR 07413 0000 TTCHCT, 0 07414 0001 LPSIZ, LPSIZE-1 07415 6213 MONRES, CIF CDF 10 /RESTART MONITOR 07416 5777 JMP I (MON /ABOVE LOCATIONS MAY NOT CHANGE 07417 1206 LPIO, TAD LPCHCT /CHAR COUNT=0? 07420 7700 SMA CLA /IGNORE PRINTER FIDDLING BY OPERATOR 07421 5224 JMP LPTLCF 07422 2206 ISZ LPCHCT 07423 5226 JMP LPMORE 07424 6662 LPTLCF, LCF 07425 5776 JMP I (DISMIS 07426 2205 LPMORE, INCR LPGETP 07427 1605 TAD I LPGETP 07430 7510 SPA 07431 3205 DCA LPGETP 07432 7200 CLA 07433 1605 TAD I LPGETP /GET NEXT CHAR FROM BUFFER 07434 6666 LLS /AND PRINT IT 07435 7000 NOP 07436 7200 CLA 07437 5776 JMP I (DISMIS /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 13 /LPOCHR,0 /OUTPUT CHAR ON LP08 07440 7421 LPJAM, MQL 07441 6214 RDF 07442 1302 TAD KCIFCDF 07443 3274 DCA LPRET 07444 6201 CDF 0 07445 7501 MQA 07446 0375 AND (777 /PROTECTION 07447 3604 DCA I LPPUTP 07450 7201 LPFULP, CLA IAC /FOR BENEFIT OF LS8E 07451 6665 LIE /ENABLE LP08 INTERUPT 07452 1206 TAD LPCHCT /AC STILL = 1 07453 1214 TAD LPSIZ 07454 7650 SNA CLA /IS LPT BUFFER FULL? 07455 5250 JMP LPFULP /YES - WAIT 07456 6002 IOF /NO; KILL INTERUPTS FOR DELICATE MANEUVERS [STUFF] 07457 7340 CLL STA 07460 1206 TAD LPCHCT 07461 3206 DCA LPCHCT /BUMP COUNT 07462 1604 TAD I LPPUTP 07463 7420 SNL /LINK OFF MEANS PRINTER QUIET 07464 6666 LLS /START LPT 07465 6001 ION /NO NEED TO TIPTOE ANY LONGER 07466 7630 SZL CLA /DID WE OUTPUT CHAR? 07467 2204 INCR LPPUTP /NO 07470 1604 TAD I LPPUTP /LOOK AT NEXT WORD 07471 7510 SPA 07472 3204 DCA LPPUTP /NEW POINTER 07473 7200 CLA 07474 7402 LPRET, HLT 07475 5600 EXIT LPOCHR /RETURN /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 14 /TTOCHR, 0 /OUTPUT CHAR ON TTY 07476 7421 TTJAM, MQL 07477 6214 RDF 07500 1302 TAD KCIFCDF 07501 3330 DCA TTRET 07502 6203 KCIFCDF,CIF CDF 0 07503 7501 MQA 07504 0375 AND (777 /PROTECTION 07505 3611 DCA I TTPUTP 07506 1213 TTFULP, TAD TTCHCT 07507 1210 TAD TTSIZ 07510 7650 SNA CLA /IS TTY BUFFER STILL FULL? 07511 5306 JMP TTFULP /YES, WAIT 07512 6002 IOF /NO, KILL INTERUPTS 07513 7340 CLL STA 07514 1213 TAD TTCHCT 07515 3213 DCA TTCHCT /BUMP COUNT 07516 1611 TAD I TTPUTP 07517 7420 SNL 07520 4352 JMS TTTLS /START TTY 07521 6001 ION 07522 7630 SZL CLA /DID WE OUTPUT? 07523 2211 INCR TTPUTP /NO 07524 1611 TAD I TTPUTP 07525 7510 SPA 07526 3211 DCA TTPUTP 07527 7200 CLA 07530 7402 TTRET, HLT 07531 5602 EXIT TTOCHR 07532 1213 TTYIO, TAD TTCHCT 07533 7700 SMA CLA 07534 5337 JMP TTYCF /1.3 07535 2213 ISZ TTCHCT 07536 5341 JMP TTMORE 07537 6042 TTYCF, TTCF 07540 5776 JMP I (DISMIS 07541 2212 TTMORE, INCR TTGETP 07542 1612 TAD I TTGETP 07543 7510 SPA 07544 3212 DCA TTGETP 07545 7200 CLA 07546 1612 TAD I TTGETP 07547 4352 JMS TTTLS 07550 7200 CLA 07551 5776 JMP I (DISMIS /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 15 / THIS ROUTINE MUST PRESERVE THE LINK 07552 0000 TTTLS, 0 /TURN ON ECHO IF BIT 3 IS ON 07553 7421 MQL /THEN OUTPUT CHAR IF ECHO IS ON 07554 7501 MQA /ELSE TURN TTY FLAG ON 07555 0374 AND (400 07556 7640 SZA CLA 07557 3207 DCA ECHO /SPECIAL CHAR FORCED ECHO ON 07560 1207 TAD ECHO /IS ECHO ON? 07561 7640 SZA CLA 07562 5366 JMP SIMTLS /NO 07563 7501 MQA 07564 6046 TTLS /YES, ECHO CHAR 07565 5752 EXIT TTTLS 07566 6040 SIMTLS, TTFL /SET TELEPRINTER FLAG 07567 5752 EXIT TTTLS 07574 0400 07575 0777 07576 7643 07577 5201 7600 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 16 07600 5205 JMP MONSTART 07601 0000 KBDFLG, 0 /NON-ZERO MEANS READ A CHARACTER 07602 0000 KBDIN, 0 07603 0001 BREAK, 1 /ZEROED IF BREAK HIT 07604 0000 CTRLCJ, 0 /IF NON-ZERO, JUMP THERE IN FIELD 0 ON ^C 07605 7200 MONSTART,CLA 07606 6211 CDF 10 /SAVE USER THE BOTHER 07607 6700 KCLR /??? 07610 3777' DCA CINUSE /TEMP 07611 6201 CDF 0 07612 1243 TAD DISMIS 07613 6212 CIF 10 07614 4617 CALL PLOOKUP 07615 6211 CDF 10 07616 6747 DMON 07617 7002 PLOOKUP,LOOKUP /MONITOR I/O ERROR 07620 5217 JMP .-1 07621 6212 CIF 10 07622 7240 STA 07623 4776' JMS BIN 07624 7775 M3, -3 07625 7263 PCASINO,CASINO IFNZRO .-7626 07626 0000 KBDCHR, 0 07627 6214 RDF 07630 1244 TAD KCIDF 07631 3240 DCA KRET 07632 6201 CDF 0 07633 1201 TAD KBDFLG 07634 7650 SNA CLA 07635 5233 JMP .-2 07636 3201 DCA KBDFLG 07637 1202 TAD KBDIN 07640 7402 KRET, HLT 07641 5626 EXIT KBDCHR 07642 3203 GOTBRK, DCA BREAK 07643 7300 DISMIS, CLA CLL /MUST END IN 00 07644 6203 KCIDF, CIF CDF 0 07645 1367 TAD SAVEMQ 07646 7421 MQL /RESTORE MQ 07647 1365 TAD SAVELNK /RESTORE LINK 07650 7004 RAL 07651 1366 TAD SAVEAC /RESTORE AC 07652 6244 RMF /RESTORE DATA AND INSTRUCTION FIELD 07653 6001 ION 07654 5400 JMP I 0 /RESUME PROCESSING /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 17 07655 3366 INTRPT, DCA SAVEAC /SAVE AC 07656 7010 RAR /GET LINK INTO AC 0 07657 3365 DCA SAVELNK /SAVE LINK 07660 7501 MQA 07661 3367 DCA SAVEMQ /SAVE MQ 07662 6213 CIF CDF 10 07663 4625 JMS I PCASINO 07664 6663 LSE 07665 7410 SKP 07666 6667 LIF 07667 6661 LSF /LPT? 07670 7410 SKP 07671 5775 JMP I (LPIO 07672 6041 TTSF 07673 7410 SKP 07674 5774' JMP TTYIO 07675 6031 KBDIO, KKSF 07676 5243 JMP DISMIS 07677 6036 KKRB 07700 0370 AND L177 07701 3202 DCA KBDIN /SAVE CHARACTER 07702 1202 TAD KBDIN 07703 7450 SNA 07704 5242 JMP GOTBRK 07705 1224 TAD M3 07706 7450 SNA 07707 5321 JMP CTRLC /^C TYPED 07710 1373 TAD (3-17 07711 7640 SZA CLA 07712 5317 JMP NOTSPEC 07713 1772' TAD ECHO 07714 7040 CMA /COMPLEMENT ECHO SWITCH ON CTRL/O 07715 3772' DCA ECHO 07716 5243 JMP DISMIS 07717 2201 NOTSPEC,INCR KBDFLG /NOTE THAT WE GOT INPUT 07720 5243 JMP DISMIS /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 18 07721 6001 CTRLC, ION 07722 6212 CIF 10 07723 4771 CALL (WAIT /WAIT FOR CASSETTES TO QUIET DOWN 07724 7200 CLA /*** IIGNORE ERRORS! 07725 1204 TAD CTRLCJ 07726 7650 SNA CLA /JUMP ANY PLACE SPECIAL? 07727 5200 JMP 7600 /NO, GO TO 7600 THEN 07730 5604 JMP I CTRLCJ /YES, GO TO USER'S CTRL/C LOCATION 0002 LPSIZE=2 0030 TTSIZE=30 IFZERO .-7732&4000 7731 *7731 07731 0000 LPBUFR, ZBLOCK LPSIZE 07733 7731 LPBUFR 07734 0000 TTBUFR, ZBLOCK TTSIZE 07764 7734 TTBUFR 07765 0000 SAVELNK,0 07766 0000 SAVEAC, 0 07767 0000 SAVEMQ, 0 07770 0177 L177, 177 07771 6200 07772 7407 07773 7764 07774 7532 07775 7417 07776 7452 07777 6273 0000 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 19 0001 FIELD 1 0100 LNKNT=100 0101 LNPTR=101 0102 HCHAR=102 0103 SETPTR=103 0104 SETKNT=104 0105 NMKNT=105 0106 U=106 0107 PRKNT=107 0110 STPTR=110 0111 OPTKNT=111 0112 WORD=112 0113 TEMDIG=113 0115 QKNT=115 0116 REMTEM=116 0121 DOTFLG=121 /1 IF FOUND DOT 0122 SAVPTR=122 0123 FTEMP=123 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 20 4200 *4200 14200 0000 FILTBL, 0 4237 *.+36 14237 0000 LNBFR, 0 4352 *.+112 /GETS DIGIT FROM LNPTR, LEAVES AS CHAR IN AC /ADVANCES SCAN, AND TAKES RETURN 2 /IF NOT DIGIT, RETURN 1 WITH AC=0 14352 0000 GETDIG, 0 14353 1501 TAD I LNPTR 14354 1377 TAD (-72 14355 7100 CLL 14356 1376 TAD (12 14357 7620 SNL CLA 14360 5752 EXIT GETDIG /NOT A DIGIT 14361 1501 TAD I LNPTR 14362 2101 INCR LNPTR 14363 2352 INCR GETDIG 14364 5752 EXIT GETDIG 14365 4775' WLO, JMS ERROR 14366 2516 TEXT /UNLOCK UNIT ?/ 14367 1417 14370 0313 14371 4025 14372 1611 14373 2440 14374 7700 14375 4452 14376 0012 14377 7706 4400 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 21 /ASSUMES UNIT NUMBER IN 'U' /ENTERED WITH ERROR IN AC 14400 0377 OUTERR, AND (376 14401 1376 TAD (-2 14402 7650 SNA CLA /WAS IT WRITE LOCK OUT? 14403 5775' JMP WLO /YES 14404 4252 JMS ERROR 14405 1725 TEXT /OUTPUT ERROR ON UNIT ?/ 14406 2420 14407 2524 14410 4005 14411 2222 14412 1722 14413 4017 14414 1640 14415 2516 14416 1124 14417 4077 14420 0000 14421 7200 INERR, CLA 14422 4252 JMS ERROR 14423 1116 TEXT /INPUT ERROR ON UNIT ?/ 14424 2025 14425 2440 14426 0522 14427 2217 14430 2240 14431 1716 14432 4025 14433 1611 14434 2440 14435 7700 14436 7200 NRERR, CLA 14437 4252 JMS ERROR 14440 2516 TEXT /UNIT ? IS NOT READY/ 14441 1124 14442 4077 14443 4011 14444 2340 14445 1617 14446 2440 14447 2205 14450 0104 14451 3100 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 22 14452 0000 ERROR, 0 14453 1336 TAD K400 14454 4774' JMS CRLF 14455 1652 ERLUP, TAD I ERROR 14456 7002 BSW 14457 4264 JMS EPRIN 14460 1652 TAD I ERROR 14461 4264 JMS EPRIN 14462 2252 INCR ERROR 14463 5255 JMP ERLUP 14464 0000 EPRIN, 0 14465 0373 AND (77 14466 7450 SNA 14467 5772' JMP MON /RESTART MONITOR AFTER ERROR 14470 1371 TAD (-77 14471 7450 SNA 14472 5300 JMP PUTU 14473 1370 TAD (77+40 14474 0373 AND (77 14475 1304 TAD K40 14476 4767' ECIF, JMS TOCHR 14477 5664 EXIT EPRIN 14500 1106 PUTU, TAD U 14501 5276 JMP ECIF /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 23 14502 0000 VNO, 0 14503 4766' JMS PRINT 14504 0040 K40, 40 14505 0040 40 14506 0126 126 /V 14507 0000 0 14510 3115 DCA QKNT 14511 1765' TAD INCH+24 /GET VERSION NUMBER FROM INCH 14512 2115 VLUP, INCR QKNT 14513 1364 TAD (-12 14514 7500 SMA 14515 5312 JMP VLUP 14516 1363 TAD (12+60 14517 3116 DCA REMTEM 14520 7240 STA 14521 1115 TAD QKNT 14522 1364 TAD (-12 14523 7550 SPA SNA 14524 1334 TAD K12 14525 7450 SNA 14526 5331 JMP ONEDIG 14527 1335 TAD K60 14530 4762' JMS XTO 14531 1116 ONEDIG, TAD REMTEM /GET UNITS DIGIT 14532 4762' JMS XTO 14533 5702 EXIT VNO /RETURN 14534 0012 K12, 12 14535 0060 K60, 60 14536 0400 K400, 400 14537 0000 DEFBIN, 0 /SET EXTENSION TO .BIN 14540 1761' TAD FILPTR 14541 1360 TAD (6 14542 3012 DCA X2 /POINT TO BEFORE EXTENSION 14543 1357 TAD (102 14544 3412 DCA I X2 14545 1356 TAD (111 14546 3412 DCA I X2 14547 1355 TAD (116 14550 3412 DCA I X2 14551 5737 EXIT DEFBIN 14555 0116 14556 0111 14557 0102 14560 0006 14561 5644 14562 6027 14563 0072 14564 7766 14565 7624 14566 6001 14567 5271 14570 0137 14571 7701 14572 5201 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 23-1 14573 0077 14574 5000 14575 4365 14576 7776 14577 0376 4600 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 24 14600 0000 OPTION, 0 14601 3777' DCA OPT1 14602 3776' DCA OPT2 14603 3775' DCA OPT3 14604 1501 TAD I LNPTR 14605 7450 SNA 14606 5600 EXIT OPTION /END OF LINE 14607 1374 TAD (-57 14610 7640 SZA CLA /LOOK FOR SLASH 14611 5773' JMP BADC /NOT THERE - BAD 14612 2101 INCR LNPTR 14613 1501 OPTLUP, TAD I LNPTR 14614 7650 SNA CLA 14615 5600 EXIT OPTION /END-OF-LINE 14616 4772' JMS GETLET /CHECK FOR A-Z 14617 5241 JMP NOTAZ /NOT A-Z 14620 1371 TAD (-101 14621 7040 GOTOPT, CMA 14622 3111 DCA OPTKNT 14623 1370 TAD (OPT1-1 14624 3112 DCA WORD 14625 2112 NXTWD, INCR WORD 14626 1512 TAD I WORD 14627 7421 MQL 14630 7120 STL 14631 7010 BITLUP, RAR 14632 7430 SZL 14633 5225 JMP NXTWD 14634 2111 ISZ OPTKNT 14635 5231 JMP BITLUP 14636 7501 MQA /OR IN BIT 14637 3512 DCA I WORD 14640 5213 JMP OPTLUP 14641 4767' NOTAZ, JMS GETDIG 14642 5773' JMP BADC 14643 1366 TAD (-60+32 /ADD IN DIGIT BASE 14644 5221 JMP GOTOPT /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 25 14645 0000 GETSLS, 0 14646 1501 TAD I LNPTR 14647 1374 TAD (-57 14650 7640 SZA CLA 14651 5773' JMP BADC 14652 1501 TAD I LNPTR 14653 2101 INCR LNPTR 14654 3410 DCA I X0 /SET SLASH 14655 5645 EXIT GETSLS /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 26 14656 4765' ZERO, JMS COMN 14657 4764' JMS GETNAM 14660 7240 STA 14661 3113 DCA TEMDIG 14662 4200 JMS OPTION 14663 1106 TAD U 14664 4707 CALL QUTIL 14665 0010 L10, REWIND 14666 5763' JMP OUTERR 14667 1113 TAD TEMDIG 14670 7710 M70, SPA CLA 14671 5313 JMP HZERO 14672 4762 CALL (LOOKUP 14673 6211 CDF 10 14674 4201 FILTBL+1 14675 5761' JMP INERR 14676 5760' JMP NFERR 14677 4707 CALL QUTIL 14700 0070 SKPFIL 14701 5761' JMP INERR / TAD (40 / DCA I (BSIZE /PREVENT ROCKING ON CRC ERROR 14702 4757 CALL (HANDLER 14703 0010 READ+F1 14704 7600 BINBUF 14705 5761' JMP INERR 14706 4756 CALL (WAIT 14707 7200 QUTIL, CLA 14710 4755' JMS BACK 14711 5761' JMP INERR 14712 4754' JMS PATCH1 14713 4753 HZERO, CALL (CLOSE 14714 5763' JMP OUTERR 14715 5752' JMP MON 14716 0000 GETUNIT,0 14717 1501 TAD I LNPTR 14720 1270 TAD M70 14721 7100 CLL 14722 1265 TAD L10 14723 7420 SNL 14724 5327 JMP DEF 14725 2101 INCR LNPTR 14726 7410 SKP 14727 7200 DEF, CLA 14730 1351 TAD (60 14731 3106 DCA U 14732 5716 EXIT GETUNIT 14733 4750' DATE, JMS SPACE 14734 1347 TAD (DATWD-1 14735 3010 DCA X0 14736 4746' JMS GETNUM /GET MONTH 14737 4245 JMS GETSLS /CHECK FOR SLASH 14740 4746' JMS GETNUM /GET DAY 14741 4245 JMS GETSLS /CHECK FOR SLASH /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 26-1 14742 4746' JMS GETNUM /GET YEAR 14743 4200 JMS OPTION 14744 5752' JMP MON 14746 5107 14747 7530 14750 5654 14751 0060 14752 5201 14753 6400 14754 5135 14755 6402 14756 6200 14757 6600 14760 5523 14761 4421 14762 7002 14763 4400 14764 5667 14765 5127 14766 7752 14767 4352 14770 7377 14771 7677 14772 5053 14773 5463 14774 7721 14775 7402 14776 7401 14777 7400 5000 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 27 15000 0000 CRLF, 0 /MAY BE ENTERED WITH 400 IN AC 15001 1377 TAD (215 15002 4776' JMS TOCHR 15003 1375 TAD (212 15004 4776' JMS TOCHR IFNZRO VT05 < JMS TOCHR JMS TOCHR JMS TOCHR > 15005 5600 EXIT CRLF 15006 4327 KILL, JMS COMN /3.1 JMS SETBIN 15007 4774' JMS GETNAM 15010 5773' JMP BADC /NO FILENAME 15011 4772' JMS OPTION 15012 3237 DCA SETBIN 15013 1106 TAD U 15014 4771 CALL (LOOKUP 15015 6211 CDF 10 15016 4201 FILTBL+1 15017 5770' JMP INERR 15020 5233 JMP MBNF 15021 2237 INCR SETBIN 15022 4767 CALL (DELET /FOUND 15023 5766' JMP OUTERR 15024 4765' WIND, JMS SPACE 15025 4764' JMS GETUNIT 15026 1106 TAD U 15027 4763 CALL (UTIL 15030 0010 REWIND 15031 5762' JMP NRERR 15032 5761' JMP ENDIR 15033 1237 MBNF, TAD SETBIN 15034 7650 SNA CLA /WAS ANYTHING DELETED? 15035 5760' JMP NFERR /NO 15036 5761' JMP ENDIR /YES, OK /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 28 15037 0000 SETBIN, 0 /SET NAMES TO BLANKS 15040 1357 TAD (-12 15041 3104 DCA SETKNT 15042 1356 MOVLUP, TAD (40 15043 3503 DCA I SETPTR 15044 2103 INCR SETPTR 15045 2104 ISZ SETKNT 15046 5242 JMP MOVLUP 15047 1103 TAD SETPTR 15050 1357 TAD (-12 15051 3103 DCA SETPTR 15052 5637 EXIT SETBIN 15053 0000 GETLET, 0 15054 1501 TAD I LNPTR 15055 1355 TAD (-133 15056 7100 CLL 15057 1354 TAD (133-101 15060 7620 SNL CLA 15061 5653 EXIT GETLET /NOT A LETTER 15062 2253 INCR GETLET 15063 1501 TAD I LNPTR 15064 2101 INCR LNPTR 15065 5653 EXIT GETLET 15066 4765' DIR, JMS SPACE 15067 4764' JMS GETUNIT 15070 4772' JMS OPTION 15071 1106 TAD U 15072 4763 CALL (UTIL 15073 0010 REWIND 15074 5762' JMP NRERR 15075 5753' JMP PRNTDIR 15076 1352 VRSN, TAD (TTOCHR 15077 3751' DCA XTOCHR 15100 4750' JMS PRINT 15101 0126 126 15102 0061 60+VERSION 15103 0056 56 15104 0063 60+SUBVERSION 15105 0000 0 15106 5747' JMP MON /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 29 /GETS 1 OR 2-DIGIT NUMBER FROM LNPTR /STORES VIA X0 15107 0000 GETNUM, 0 15110 4746' JMS GETDIG 15111 5773' JMP BADC 15112 3113 DCA TEMDIG 15113 4746' JMS GETDIG 15114 5323 JMP NODIG 15115 7421 MQL 15116 1113 TAD TEMDIG 15117 3410 DCA I X0 /SET DIGIT 1 15120 7501 MQA 15121 3410 LDIG, DCA I X0 /SET DIGIT 2 15122 5707 EXIT GETNUM 15123 1345 NODIG, TAD (60 15124 3410 DCA I X0 15125 1113 TAD TEMDIG 15126 5321 JMP LDIG 15127 0000 COMN, 0 15130 1344 TAD (FILTBL 15131 3103 DCA SETPTR 15132 4765' JMS SPACE 15133 4237 JMS SETBIN /3.1 15134 5727 EXIT COMN 15135 0000 PATCH1, 0 15136 4743 CALL (HANDLER 15137 4010 WRITE+F1 15140 7140 ZER 15141 5766' JMP OUTERR 15142 5735 EXIT PATCH1 15143 6600 15144 4200 15145 0060 15146 4352 15147 5201 15150 6001 15151 6000 15152 7402 15153 6033 15154 0032 15155 7645 15156 0040 15157 7766 15160 5523 15161 6145 15162 4436 15163 7200 15164 4716 15165 5654 15166 4400 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 29-1 15167 7104 15170 4421 15171 7002 15172 4600 15173 5463 15174 5667 15175 0212 15176 5271 15177 0215 5200 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 30 5200 *5200 15200 4312 STRT, JMS RECOVER /TURN ON ECHO AND RESTORE BUFFERS 15201 6211 MON, CDF 10 15202 6001 ION 15203 1377 TAD (400 15204 4776' JMS CRLF 15205 1375 TAD (". 15206 4271 JMS TOCHR 15207 1374 TAD (-111 15210 3100 DCA LNKNT /SET UP FOR 64 CHARS IFZERO VT05 < 15211 3306 DCA ROFLAG > 15212 1373 TAD (LNBFR 15213 3101 DCA LNPTR 15214 6202 INPLUP, CIF 0 15215 4772 CALL (KBDCHR 15216 3102 DCA HCHAR 15217 1102 TAD HCHAR 15220 1371 TAD (-177 /RUB OUT 15221 7650 SNA CLA /IS IT A RUBOUT? 15222 5246 JMP RO /YES IFZERO VT05 < 15223 1306 TAD ROFLAG 15224 7440 SZA 15225 4275 JMS PRSLSH > 15226 1102 TAD HCHAR /NO 15227 1370 TAD (-15 15230 7450 SNA /IS IT A CR? 15231 5767' JMP CR /YES 15232 1366 TAD (15-25 15233 7650 SNA CLA /IS IT ^U? 15234 5201 JMP MON /YES 15235 2100 ISZ LNKNT /NO, IT'S A CHAR 15236 7410 SKP 15237 5266 JMP EOL /AT END OF LINE 15240 1102 TAD HCHAR 15241 3501 DCA I LNPTR /INSERT IN LINE BUFFER 15242 1501 TAD I LNPTR 15243 4271 JMS TOCHR 15244 2101 INCR LNPTR 15245 5214 JMP INPLUP /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 31 RO, IFZERO VT05 < 15246 1306 TAD ROFLAG 15247 7650 SNA CLA 15250 4275 JMS PRSLSH > 15251 7240 STA 15252 1101 TAD LNPTR 15253 1365 TAD (-LNBFR 15254 7510 SPA 15255 5307 JMP WALL /AT BEGIN 15256 1373 TAD (LNBFR 15257 3101 DCA LNPTR 15260 7240 STA 15261 1100 TAD LNKNT 15262 3100 DCA LNKNT IFZERO VT05 < 15263 1501 TAD I LNPTR 15264 4271 JMS TOCHR > IFNZRO VT05 < TAD (210 JMS TOCHR TAD (240 JMS TOCHR TAD (210 JMS TOCHR > 15265 5214 JMP INPLUP /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 32 15266 7240 EOL, STA /DON'T ACCEPT CHARACTER 15267 3100 DCA LNKNT 15270 5214 JMP INPLUP 15271 0000 TOCHR, 0 15272 6202 CIF 0 15273 4764 CALL (TTOCHR 15274 5671 EXIT TOCHR IFZERO VT05 < 15275 0000 PRSLSH, 0 15276 7041 CIA 15277 7104 CLL RAL /CHANGE [ TO ] IF AC=-1 15300 1363 TAD ("[ 15301 4271 JMS TOCHR 15302 1306 TAD ROFLAG 15303 7040 CMA 15304 3306 DCA ROFLAG 15305 5675 EXIT PRSLSH 15306 0000 ROFLAG, 0 > /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 33 15307 7240 WALL, STA 15310 4275 IFZERO VT05 IFNZRO VT05 15311 5201 JMP MON 15312 0000 RECOVER,0 15313 4762' JMS SUPWAIT 15314 6201 CDF 0 / DCA I (TTCHCT 15315 1361 TAD (TTBUFR 15316 3760 DCA I (TTGETP 15317 1357 TAD (TTBUFR+1 15320 3756 DCA I (TTPUTP 15321 3755 DCA I (ECHO 15322 1354 TAD (TTSIZE 15323 3753 DCA I (TTSIZ / DCA I (LPCHCT 15324 1352 TAD (LPBUFR 15325 3751 DCA I (LPGETP 15326 1350 TAD (LPBUFR+1 15327 3747 DCA I (LPPUTP 15330 1346 TAD (LPSIZE-1 15331 3745 DCA I (LPSIZ 15332 1344 TAD (MONRES 15333 3743' DCA CTRLCJ 15334 7201 CLA IAC 15335 3742' DCA BREAK 15336 6211 CDF 10 15337 3741' DCA CINUSE 15340 5712 EXIT RECOVER 15341 6273 15342 7603 15343 7604 15344 7415 15345 7414 15346 0001 15347 7404 15350 7732 15351 7405 15352 7731 15353 7410 15354 0030 15355 7407 15356 7411 15357 7735 15360 7412 15361 7734 15362 5420 15363 0333 15364 7402 15365 3541 15366 7770 15367 5435 15370 7763 15371 7601 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 33-1 15372 7626 15373 4237 15374 7667 15375 0256 15376 5000 15377 0400 5400 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 34 /BRANCH HERE IF SYSTEM HAD BOMBED 15400 6201 CDF 0 15401 6007 CAF 15402 1377 TAD (INTRPT 15403 3776 DCA I (2 15404 1375 TAD (JMP I Z 2 15405 3774 DCA I (1 15406 3773' DCA TTCHCT 15407 3772' DCA LPCHCT 15410 6211 CDF 10 15411 3771' DCA CINUSE 15412 1232 TAD SUPCLA 15413 4770 CALL (FIXDVC 15414 5415 .+1 /WHO CARES IF NOT READY? 15415 7402 HLT 15416 3771' DCA CINUSE 15417 5767' JMP STRT 15420 0000 SUPWAIT,0 15421 6201 CDF 0 15422 1773' TAD TTCHCT 15423 7640 SZA CLA 15424 5222 JMP .-2 15425 1772' TAD LPCHCT 15426 7640 SZA CLA 15427 5225 JMP .-2 15430 6211 CDF 10 15431 4766 CALL (WAIT 15432 7200 SUPCLA, CLA 15433 6007 CAF 15434 5620 EXIT SUPWAIT /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 35 15435 3501 CR, DCA I LNPTR 15436 4765' JMS CRLF 15437 1364 TAD (LNBFR 15440 3101 DCA LNPTR 15441 1501 TAD I LNPTR /GET FIRST CHAR 15442 7450 SNA 15443 5763' JMP MON /NULL LINE IS OK 15444 1362 TAD (-122 15445 7450 SNA /IS IT R FOR RUN OR REWIND? 15446 5273 JMP R /YES 15447 1361 TAD (122-104 /NO 15450 7450 SNA /IS IT D FOR DELETE, DIRECTORY, OR DATE 15451 5307 JMP D /YES 15452 1360 TAD (104-126 /NO 15453 7450 SNA /IS IT V FOR VERSION? 15454 5757' JMP VRSN 15455 1356 TAD (126-132 15456 7450 SNA 15457 5755' JMP ZERO 15460 1361 TAD (132-114 15461 7650 SNA CLA /IS IT L? 15462 5754' JMP LOAD /YES 15463 7200 BADC, CLA 15464 4753' JMS ERROR 15465 0201 TEXT /BAD COMMAND/ 15466 0440 15467 0317 15470 1515 15471 0116 15472 0400 15473 2101 R, INCR LNPTR /POINT TO SECOND CHARACTER 15474 1501 TAD I LNPTR /GET IT 15475 1352 TAD (-40 15476 7450 SNA /IS IT SPACE? 15477 5751' JMP RUN /YES 15500 1350 TAD (40-125 /NO 15501 7450 SNA /IS IT "U"? 15502 5751' JMP RUN /YES 15503 1347 TAD (125-105 /NO 15504 7650 SNA CLA /IS IT "E"? 15505 5746' JMP WIND /YES 15506 5263 JMP BADC /NO, BAD COMMAND 15507 2101 D, INCR LNPTR /POINT TO SECOND CHAR 15510 1501 TAD I LNPTR /GRAB IT 15511 1345 TAD (-111 15512 7450 SNA /IS IT "I"? 15513 5744' JMP DIR /YES 15514 1343 TAD (111-105 /NO 15515 7450 SNA /IS IT "E"? 15516 5742' JMP KILL /YES... KILL 15517 1343 TAD (105-101 /NO 15520 7650 SNA CLA /IS IT "A"? 15521 5741' JMP DATE /YES /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 35-1 15522 5263 JMP BADC /NO, BAD COMMAND 15523 4740 NFERR, CALL (UTIL 15524 0010 REWIND 15525 7200 CLA 15526 4753' JMS ERROR 15527 0611 TEXT /FILE NOT FOUND/ 15530 1405 15531 4016 15532 1724 15533 4006 15534 1725 15535 1604 15536 0000 15540 7200 15541 4733 15542 5006 15543 0004 15544 5066 15545 7667 15546 5024 15547 0020 15550 7713 15551 5601 15552 7740 15553 4452 15554 5600 15555 4656 15556 7774 15557 5076 15560 7756 15561 0016 15562 7656 15563 5201 15564 4237 15565 5000 15566 6200 15567 5200 15570 6220 15571 6273 15572 7406 15573 7413 15574 0001 15575 5402 15576 0002 15577 7655 5600 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 36 /FILTBL CONAISTS OF ENTRIES /UNIT, FILENAME /... /UNIT IS CHARACTER, LAST ONE IS NEGATIVE 15600 7201 LOAD, CLA IAC 15601 3777' RUN, DCA LOADFLG 15602 4776' JMS COMN 15603 1103 RULUP, TAD SETPTR 15604 3244 DCA FILPTR /SAVE 15605 4775' JMS SETBIN 15606 4267 JMS GETNAM /GET UNIT AND FILE NAME 15607 5774' JMP BADC /NO FILE NAME 15610 1121 TAD DOTFLG 15611 7640 SZA CLA /DID GUY TYPE AN EXTENSION? 15612 5214 JMP NODEF /YES 15613 4773' JMS DEFBIN / SET EXTENSION TO .BIN 15614 1501 NODEF, TAD I LNPTR 15615 1372 TAD (-54 15616 7640 SZA CLA /IS IT ,? 15617 7330 STL CLA RAR /NO, MARK UNIT AS BEING LAST ONE 15620 1644 TAD I FILPTR 15621 3644 DCA I FILPTR 15622 1644 TAD I FILPTR 15623 7710 SPA CLA /MORE FILES? 15624 5232 JMP GOLOAD /NO 15625 1244 TAD FILPTR /YES 15626 1371 TAD (12 15627 3103 DCA SETPTR 15630 2101 INCR LNPTR /SKIP OVER COMMA 15631 5203 JMP RULUP 15632 4770' GOLOAD, JMS OPTION 15633 4767' JMS CRLF 15634 1366 TAD (FILTBL 15635 3244 GOLUP, DCA FILPTR 15636 1644 TAD I FILPTR 15637 3123 DCA FTEMP 15640 2244 INCR FILPTR 15641 1123 TAD FTEMP 15642 4765 CALL (LOOKUP 15643 6211 CDF 10 15644 4200 FILPTR, FILTBL 15645 5764' JMP INERR 15646 5763' JMP NFERR 15647 1123 TAD FTEMP /MORE TO LOAD IF AC IS POSITIVE 15650 4762' JMS BIN /BINARY LOAD 15651 1244 TAD FILPTR 15652 1361 TAD (11 15653 5235 JMP GOLUP /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 37 15654 0000 SPACE, 0 15655 4760' GETL, JMS GETLET /SPAN OVER LETTERS 15656 5262 JMP GOTSP1 15657 7200 CLA 15660 5255 JMP GETL 15661 2101 GOTSP, INCR LNPTR 15662 1501 GOTSP1, TAD I LNPTR 15663 1357 TAD (-40 15664 7650 SNA CLA 15665 5261 JMP GOTSP /SPAN OVER SPACES 15666 5654 EXIT SPACE /TAKES RETURN 1 ON UNIT BUT NO FILENAME 15667 0000 GETNAM, 0 15670 3121 DCA DOTFLG 15671 4756' JMS GETUNIT 15672 1106 TAD U 15673 3503 DCA I SETPTR /INSERT UNIT IN TABLE 15674 2103 INCR SETPTR 15675 1103 TAD SETPTR 15676 3122 DCA SAVPTR 15677 1501 TAD I LNPTR 15700 1355 TAD (-72 15701 7650 SNA CLA /IS IT :? 15702 2101 INCR LNPTR /YES, PASS BY IT 15703 1345 TAD JMPBAD 15704 3322 DCA NOTLOD /DON'T ALLOW NULL NAME 15705 1354 TAD (-7 15706 3105 PREGET, DCA NMKNT /DON'T ALLOW MORE THAN 6 CHARS NAMES 15707 4760' MOVL, JMS GETLET 15710 5317 JMP NOTLET 15711 3503 SETNAM, DCA I SETPTR 15712 3322 DCA NOTLOD 15713 2103 INCR SETPTR 15714 2105 ISZ NMKNT 15715 5307 JMP MOVL 15716 5774' JMP BADC 15717 4753' NOTLET, JMS GETDIG 15720 5322 JMP NOTLOD 15721 5311 JMP SETNAM /IT'S A DIGIT 15722 5667 NOTLOD, EXIT GETNAM /REPLACE BY 0 15723 1501 TAD I LNPTR 15724 1352 TAD (-57 15725 7450 SNA 15726 5344 JMP GETLV /IT'S A SLASH / TAD (57-56 15727 7001 IAC 15730 7640 SZA CLA 15731 5344 JMP GETLV /IT'S NOTHING 15732 1121 TAD DOTFLG 15733 7640 SZA CLA 15734 5344 JMP GETLV /TWO DOTS 15735 2121 INCR DOTFLG /NOTE FACT THAT GOT EXTENSION /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 37-1 15736 2101 INCR LNPTR /PASS DOT 15737 1122 TAD SAVPTR 15740 1351 TAD (6 15741 3103 DCA SETPTR 15742 1350 TAD (-4 /DON'T ALLOW MORE THAN 3 CHAR EXTENSIONS 15743 5306 JMP PREGET 15744 2267 GETLV, INCR GETNAM 15745 5667 JMPBAD, EXIT GETNAM 15750 7774 15751 0006 15752 7721 15753 4352 15754 7771 15755 7706 15756 4716 15757 7740 15760 5053 15761 0011 15762 7452 15763 5523 15764 4421 15765 7002 15766 4200 15767 5000 15770 4600 15771 0012 15772 7724 15773 4537 15774 5463 15775 5037 15776 5127 15777 7451 6000 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 38 16000 7402 XTOCHR, TTOCHR /OUTPUT DEVICE FOR 'PRINT' 16001 0000 PRINT, 0 16002 1601 TAD I PRINT /GET ARGUMENT 16003 7450 SNA /ARE WE AT END OF ARGUMENT LIST? 16004 5225 JMP PREND /YES 16005 7500 SMA /IS IT A COUNT? 16006 5222 JMP PRCHAR /NO, IT'S A CHARACTER TO PRINT 16007 3107 DCA PRKNT /YES, SAVE COUNT 16010 2201 INCR PRINT /POINT TO POINTER TO STRING TO BE PRINTED 16011 1601 TAD I PRINT /GET SAID POINTER 16012 3110 DCA STPTR /SAVE IT 16013 1510 PRLUP, TAD I STPTR /GET CHAR IN STRING 16014 6202 CIF 0 16015 4600 JMS I XTOCHR /PRINT IT 16016 2110 INCR STPTR /POINT TO NEXT CHAR 16017 2107 ISZ PRKNT /DONE? 16020 5213 JMP PRLUP /NO, KEEP PRINTING 16021 5223 JMP PRLV /YES 16022 4227 PRCHAR, JMS XTO /PRINT CHAR 16023 2201 PRLV, INCR PRINT /POINT TO NEXT ARGUMENT 16024 5202 JMP PRINT+1 /KEEP GOING 16025 2201 PREND, INCR PRINT /POINT TO RETURN 16026 5601 EXIT PRINT /AND SWOOP THERE WITHOUT HASTE 16027 0000 XTO, 0 16030 6202 CIF 0 16031 4600 JMS I XTOCHR 16032 5627 EXIT XTO /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 39 16033 1777' PRNTDIR,TAD OPT1 16034 7010 RAR /MOVE 'L' BIT TO LINK 16035 7630 SZL CLA 16036 1327 TAD M2 /CHANGE TTOCHR TO LPOCHR 16037 1376 TAD (TTOCHR /NO 16040 3200 DCA XTOCHR /SET PRINT DEVICE 16041 1375 TAD (HSIZE 16042 3774 DCA I (BSIZE /SET LENGTH OF HEADER 16043 1773' TAD DATWD+1 16044 1372 TAD (-40 16045 7650 SNA CLA 16046 5262 JMP DL2 /NO DATE TODAY 16047 4201 JMS PRINT 16050 0014 14 /FORM FEED 16051 0015 15 16052 0012 12 16053 7770 -10;DATWD 16054 7531 16055 0000 0 16056 5262 JMP DL2 /HANDLE FIRST FILE SPECIALLY 16057 4771 DLOOP, CALL (UTIL 16060 0070 SKPFIL /SKIP TO NEXT FILE 16061 5770' JMP NRERR 16062 4767 DL2, CALL (WAIT 16063 5766' JMP INERR 16064 4201 JMS PRINT 16065 0015 15 16066 0012 12 16067 0000 0 16070 4765 CALL (HANDLER 16071 0010 READ+F1 16072 7600 INCH /READ HEADER INTO INCH 16073 5770' JMP NRERR 16074 4767 CALL (WAIT 16075 5766' JMP INERR 16076 1764 TAD I (INCH 16077 7650 SNA CLA /SENTINEL? 16100 5345 JMP ENDIR /YES 16101 4201 JMS PRINT /NO 16102 7772 -6;INCH 16103 7600 16104 0056 56 16105 7775 -3;INCH+6 16106 7606 16107 0000 0 16110 7203 CLA IAC BSW /100 16111 0777' AND OPT1 16112 7640 SZA CLA /IS F OPTION SPECIFIED? 16113 5257 JMP DLOOP /YES 16114 1363 TAD (57 16115 3335 DCA SLASH 16116 1762' TAD INCH+17 16117 1372 TAD (-40 16120 7640 SZA CLA /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 39-1 16121 5324 JMP DTOK /DATE IS OKAY 16122 1325 TAD L40 /NO DATE 16123 3335 DCA SLASH 16124 4201 DTOK, JMS PRINT /NO 16125 0040 L40, 40 16126 0040 40 16127 7776 M2, -2;INCH+20 16130 7620 16131 7777 -1;SLASH 16132 6135 16133 7776 -2;INCH+16 16134 7616 16135 0040 SLASH, 40 16136 7776 -2;INCH+22 16137 7622 16140 0000 0 16141 1761' TAD INCH+24 16142 7640 SZA CLA /IS VERSION 0? 16143 4760' JMS VNO 16144 5257 JMP DLOOP 16145 4771 ENDIR, CALL (UTIL 16146 0010 REWIND 16147 7200 CLA 16150 4767 CALL (WAIT 16151 7200 CLA 16152 5757' JMP MON 16157 5201 16160 4502 16161 7624 16162 7617 16163 0057 16164 7600 16165 6600 16166 4421 16167 6200 16170 4436 16171 7200 16172 7740 16173 7532 16174 7000 16175 0040 16176 7402 16177 7400 6200 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 40 16200 7555 WAIT, TB 16201 6214 RDF 16202 1377 TAD (CIF CDF 16203 3216 DCA WAITEND 16204 1273 CWAIT, TAD CINUSE 16205 7450 SNA 16206 5215 JMP WLV /ZERO MEANS READY 16207 7700 SMA CLA 16210 5204 JMP CWAIT /1 MEANS IN USE 16211 3273 DCA CINUSE /-1 MEANS HAD ERROR 16212 7130 STL RAR /4000 16213 1274 TAD BSTATE /LEAVE WITH STATUS B REGISTER IN AC 16214 7410 SKP /TAKE ERROR RETURN 16215 2200 WLV, INCR WAIT 16216 6211 WAITEND,CDF 10 16217 5600 EXIT WAIT /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 41 / FIXDVC /THIS ROUTINE LEAVES WITH INTERRUPTS OFF AND DEVICE SELECTED /AND READY. /THE NEW UNIT NUMBER (0-17) IS IN THE AC. /THE UNIT NUMBER IS IN BITS 8-11 OF THE AC. /THE UNIT 0 MUST ALSO HAVE ONE OF THE BITS 0-7 ON. /IF THE AC IS ZERO (0), THIS MEANS USE THE OLD UNIT. /THE INITIAL UNIT IS ZERO. /RETURN 1 IS MADE IF THE UNIT IS NOT READY. /CINUSE IS SET TO 1. /IF CASSETTES WERE ALREADY IN USE, THIS ROUTINE DOES A WAIT. /THE DATA FIELD IS INTERROGATED /AND A RETURN CIF CDF IS BUILD /AND STORED IN LOCATION RETCIF 16220 0000 FIXDVC, 0 16221 3270 DCA DVC 16222 6214 RDF 16223 1377 TAD (CIF CDF 16224 3267 DCA TMP 16225 6211 CDF 10 16226 1620 TAD I FIXDVC 16227 3272 DCA ERRET 16230 2220 INCR FIXDVC 16231 4776 CALL (WAIT 16232 5275 JMP PRERR /ERROR ON PREVIOUS OPERATION 16233 6002 IOF 16234 1267 TAD TMP 16235 3672 DCA I ERRET 16236 1270 TAD DVC 16237 7450 SNA /0 MEANS USE OLD UNIT 16240 5303 JMP CHECKR /0 MEANS USE OLD UNIT 16241 7010 RAR /MOVE UNIT TO LINK; DEVICE TO AC 16242 0375 AND (7 /MASK OFF DEVICE CODE 16243 3270 DCA DVC /SAVE DEVICE CODE 16244 7430 SZL 16245 1374 TAD (100 16246 3353 DCA ABUNIT /SET UNIT IN BIT 5 16247 1270 TAD DVC 16250 7106 CLL RTL 16251 7004 RAL /UGLY 16252 3270 DCA DVC /MOVE TO BITS 6-8 16253 1373 TAD (IOTBL 16254 3271 DCA IOTPTR 16255 1671 IOTLOOP,TAD I IOTPTR 16256 7450 SNA /END OF TABLE? 16257 5303 JMP CHECKR /YES 16260 3267 DCA TMP 16261 1667 TAD I TMP 16262 0372 AND (7707 /MASK OUT OLD DVC 16263 1270 TAD DVC /INSERT NEW ONE 16264 3667 DCA I TMP /REPLACE 16265 2271 INCR IOTPTR /POINT TO NEXT ONE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 41-1 16266 5255 JMP IOTLOOP /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 42 16267 0000 TMP, 0 16270 0000 DVC, 0 /DEVICE CODE 16271 0000 IOTPTR, 0 16272 0000 ERRET, 0 /ERROR RETURN LOCATION 16273 0000 CINUSE, 0 /0 MEANS READY /1 MEANS IN USE /-1 MEANS HAD ERROR 16274 0000 BSTATE, 0 /STATUS OF REGISTER B 16275 7421 PRERR, MQL /SAVE ERROR BITS 16276 1267 TAD TMP 16277 3672 DCA I ERRET 16300 7330 STL CLA RAR /4000 16301 7501 MQA /RETRIEVE ERROR 16302 5672 JMP I ERRET /TAKE ERROR RETURN /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 43 16303 4336 CHECKR, JMS CLEAR 16304 1371 TAD (200 16305 4346 JMS LOADA /SELECT DRIVE 16306 4331 JMS CHECKB 16307 0370 AND (7735 /IGNORE EOT/BOT FLAG /AND WLO 16310 1367 TAD (-1 16311 7640 SZA CLA 16312 5354 JMP ERRETT /NOT READY 16313 2273 INCR CINUSE /?? 16314 5620 EXIT FIXDVC 16315 7402 HLT 16316 6700 ERRCOV, KCLR 16317 1366 TAD (251 16320 4346 JMS LOADA 16321 4342 JMS GO /BACKSPACE BLOCK 16322 4765' JMS CRET /WAIT 16323 4331 JMS CHECKB 16324 0364 AND (334 /KILL WRITE-LOCK BIT AND BOT 16325 7640 SZA CLA 16326 5763 JMP I (ERRR 16327 4762' JMS SETUP /RE-SET UP OPERATION 16330 5761' JMP CRET+1 /GO AWAY /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 44 16331 0000 CHECKB, 0 16332 6707 IOT7, KRSB /READ STATUS B INTO AC 4-11 16333 3274 DCA BSTATE /SAVE STATUS B 16334 1274 TAD BSTATE 16335 5731 EXIT CHECKB 16336 0000 CLEAR, 0 16337 3273 DCA CINUSE /LEAVE STATUS CONDITION IN AC; -1 MEANS ERROR 16340 6700 IOT0, KCLR /CLEAR STATUS A AND B 16341 5736 EXIT CLEAR 16342 0000 GO, 0 16343 6706 IOT6, KGOA /ASSERT CONTENTS OF STATUS A 16344 7200 CLA 16345 5742 EXIT GO 16346 0000 LOADA, 0 16347 1353 TAD ABUNIT 16350 6704 IOT4, KLSA /LOAD STATUS REGISTER A 16351 7200 CLA 16352 5746 EXIT LOADA 16353 0000 ABUNIT, 0 16354 4336 ERRETT, JMS CLEAR 16355 5672 JMP I ERRET 16361 7270 16362 6640 16363 6721 16364 0334 16365 7267 16366 0251 16367 7777 16370 7735 16371 0200 16372 7707 16373 7117 16374 0100 16375 0007 16376 6200 16377 6203 6400 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 45 16400 0000 CLOSE, 0 16401 5331 JMP CLFIX 16402 0000 BACK, 0 16403 5257 JMP BAKFIX / ENTER / TAD UNIT / CDF FROMFLD / CIF 10 / JMS I (ENTER / / / ENTER FILENAME AS SPECIFIED IN SINCH / USER MUST SET SINCH BUT ONLY FIRST 25 (OCTAL) LOCATIONS. 16404 0000 ENTER, 0 16405 7421 MQL 16406 6214 RDF 16407 1377 TAD (CDF CIF 16410 3247 DCA ERET 16411 6211 CDF 10 16412 7501 MQA 16413 4776 JMS I (LOOKUP 16414 6211 CDF 10 16415 7403 SINCH 16416 5247 JMP ERET /ERROR WHILE READING 16417 5222 JMP NTF 16420 4775' JMS DELET 16421 5247 JMP ERET /ERROR WHILE DELETING 16422 4202 NTF, JMS BACK 16423 5247 JMP ERET /ERROR BACKING UP 16424 1374 TAD (SINCH+16 16425 3315 DCA ODPTR 16426 1373 TAD (DATWD+3 16427 4317 JMS PUTD 16430 1372 TAD (DATWD 16431 4317 JMS PUTD 16432 1371 TAD (DATWD+6 16433 4317 JMS PUTD / DCA SINCH+12 /ZERO HIGH-ORDER RECORD SIZE 16434 1370 TAD (200 16435 3767' DCA SINCH+13 / / DCA SINCH+15 /ZERO CONTINUATION BYTE 16436 4766 CALL (HANDLER /WRITE NEW HEADER 16437 4010 WRITE+F1 16440 7403 SINCH 16441 5247 JMP ERET /CASSETTE NOT READY 16442 4765 CALL (WAIT 16443 5247 JMP ERET /ERROR WHILE WRITING 16444 1370 TAD (200 16445 3764 DCA I (BSIZE 16446 2204 INCR ENTER /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 45-1 16447 7402 ERET, HLT 16450 5604 EXIT ENTER 16451 0000 RDOR, 0 16452 0363 AND (374 16453 1275 TAD MM200 16454 7640 SZA CLA /WAS ERROR JUST CRC? 16455 5602 EXIT BACK /NO 16456 5651 EXIT RDOR /YES, OK CONTINUE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 46 16457 4762 BAKFIX, CALL (UTIL 16460 0030 BACKFIL /GO BACK TO FILE GAP 16461 5602 EXIT BACK 16462 4765 CALL (WAIT 16463 5602 EXIT BACK 16464 4762 CALL (UTIL 16465 0050 BACKBLOCK /BACK TO LAST RECORD 16466 5602 EXIT BACK 16467 4765 CALL (WAIT 16470 5310 JMP BKERR 16471 1370 TAD (200 16472 3764' DCA BSIZE 16473 4766 CALL (HANDLER /READ LAST RECORD OF PREV FILE 16474 0010 READ+F1 /DON'T STORE IN BUFFER 16475 7600 MM200, BINBUF 16476 5602 EXIT BACK /ERROR READING LAST BLOCK 16477 4765 CALL (WAIT 16500 4251 JMS RDOR 16501 4762 NEWGAP, CALL (UTIL 16502 0040 R40, WRGAP /WRITE A NEW GAP 16503 5602 EXIT BACK 16504 1302 TAD R40 16505 3764' DCA BSIZE 16506 2202 INCR BACK 16507 5602 EXIT BACK 16510 0363 BKERR, AND (374 16511 1361 TAD (-40 16512 7640 SZA CLA /WAS ERROR CLEAR LEADER? 16513 5602 EXIT BACK 16514 5301 JMP NEWGAP 16515 0000 ODPTR, 0 16516 0000 DPTR, 0 16517 0000 PUTD, 0 16520 3316 DCA DPTR 16521 1716 TAD I DPTR 16522 3715 DCA I ODPTR 16523 2315 INCR ODPTR 16524 2316 INCR DPTR 16525 1716 TAD I DPTR 16526 3715 DCA I ODPTR 16527 2315 INCR ODPTR 16530 5717 EXIT PUTD /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 47 16531 7421 CLFIX, MQL 16532 6214 RDF 16533 1377 TAD (CDF CIF 16534 3356 DCA CLRET 16535 6211 CDF 10 16536 7501 MQA 16537 4762 CALL (UTIL 16540 0040 WRGAP 16541 5356 JMP CLRET /ERROR WHILE WRITING GAP 16542 1302 TAD R40 16543 3764 DCA I (BSIZE 16544 4766 CALL (HANDLER 16545 4010 WRITE+F1 /WRITE SENTINEL 16546 7140 ZER 16547 5356 JMP CLRET 16550 4765 CALL (WAIT 16551 5356 JMP CLRET 16552 4762 CALL (UTIL 16553 0010 REWIND 16554 5356 JMP CLRET 16555 2200 INCR CLOSE /SKIP ERROR RETURN 16556 7402 CLRET, HLT 16557 5600 EXIT CLOSE 16561 7740 16562 7200 16563 0374 16564 7000 16565 6200 16566 6600 16567 7416 16570 0200 16571 7537 16572 7531 16573 7534 16574 7421 16575 7104 16576 7002 16577 6203 6600 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 48 16600 0000 HANDLER,0 16601 7421 MQL 16602 1600 TAD I HANDLER /GET FUNCTION CONTROL WORD 16603 0335 AND L70 /ISOLATE FIELD OF BUFFER 16604 1377 TAD (CDF 16605 3257 DCA WCDF 16606 1600 TAD I HANDLER /RETRIEVE FUNCTION CONTROL WORD 16607 7004 RAL /READ/WRITE BIT TO LINK 16610 7204 CLA RAL 16611 3240 DCA RWO /RW=1 IF WRITE 16612 2200 INCR HANDLER /POINT TO BUFFER ADDRESS 16613 1600 TAD I HANDLER /GET BUFFER ADDRESS 16614 3346 DCA BUFFER /SAVE IT 16615 2200 INCR HANDLER /POINT TO ERROR RETURN 16616 7501 MQA 16617 4776' JMS FIXDVC 16620 6633 LV 16621 1257 TAD WCDF 16622 3333 DCA BFIELD 16623 1257 TAD WCDF 16624 3275 DCA BFLD 16625 1240 TAD RWO 16626 3236 DCA RW 16627 2200 INCR HANDLER /POINT TO GOOD RETURN 16630 7346 STA CLL RTL /TAD (-3 16631 3237 DCA ERKNT 16632 4240 JMS SETUP /SET UP READ OR WRITE 16633 7402 LV, HLT 16634 6001 ION 16635 5600 EXIT HANDLER 16636 0000 RW, 0 /1 IF WRITE 16637 7775 ERKNT, -3 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 49 RWO, 16640 0000 SETUP, 0 16641 1236 TAD RW 16642 1375 TAD (WRITEX 16643 3774' DCA CRET /SET RETURN ADDRESS 16644 1346 TAD BUFFER 16645 3345 DCA BPTR 16646 1773 TAD I (BSIZE 16647 7040 CMA /WANT TO READ ONE MORE 16650 1236 TAD RW 16651 3344 DCA BKNT 16652 1236 TAD RW 16653 7106 CLL RTL 16654 7006 RTL /WRITE FN CODE=20 16655 1372 TAD (201 /SELECT AND INTERRUPT ENABLE 16656 4771' JMS LOADA 16657 7402 WCDF, HLT 16660 1236 TAD RW 16661 7640 SZA CLA 16662 1745 TAD I BPTR 16663 4770' JMS GO 16664 5640 JMP I SETUP /BE CAREFUL ABOUT DATA FIELDS /HANDLER IS ALL SCREWED UP IF YOU MAKE TWO SUCCESSIVE /CALLS TO IT WITH NO WAIT IN BETWEEN AND THE FIRST /CALL GETS AN ERROR. /NAMELY LOCATIONS RWO BUFFER AND WCDF /ARE IMPROPERLY SET UP. /UNFORTUNATELY, THERE'S NO ROOM ON THIS PAGE... /OR ANY OTHER PAGE FOR THAT MATTER. /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 50 16665 4767' READX, JMS CHK 16666 0366 AND (374 16667 7440 SZA 16670 5315 JMP ERRX 16671 6706 IOT6C, KGOA /GET CHAR JUST READ 16672 2344 ISZ BKNT 16673 7410 SKP 16674 5302 JMP RWCRC 16675 7402 BFLD, HLT 16676 3745 DCA I BPTR 16677 2345 INCR BPTR 16700 0261 L261, 261 16701 5765' JMP CRET+1 /CRET ALREADY SET UP /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 51 16702 7200 RWCRC, CLA 16703 1300 TAD L261 /ENABLE, ENABLE INTER, READ CRC 16704 4771' JMS LOADA 16705 4770' JMS GO 16706 4774' JMS CRET 16707 4767' JMS CHK 16710 4770' CRCMN, JMS GO 16711 4774' JMS CRET 16712 4764' JMS CHECKB 16713 0363 AND (7775 /IGNORE WLO 16714 1362 TAD (-1 16715 7650 ERRX, SNA CLA /ERRORS? 16716 5322 JMP ERRR+1 /NO - CLEAN BILL OF HEALTH 16717 2237 ISZ ERKNT /TRY 3 TIMES 16720 5761 JMP I (ERRCOV 16721 7240 ERRR, STA /ERROR WHILE READING CRC 16722 4760' JMS CLEAR 16723 5765' JMP CRET+1 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 52 16724 5265 WRITEX, JMP READX 16725 4767' JMS CHK 16726 7440 SZA 16727 5321 JMP ERRR /ERROR WHILE WRITING 16730 2344 ISZ BKNT 16731 7410 SKP 16732 5341 JMP WCRC 16733 7402 BFIELD, HLT 16734 2345 INCR BPTR 16735 0070 L70, 70 16736 1745 TAD I BPTR 16737 4770' JMS GO 16740 5765' JMP CRET+1 16741 1300 WCRC, TAD L261 16742 4771' JMS LOADA 16743 5310 JMP CRCMN /0 MEANS BYTE MODE (CHAR MODE) 16744 0000 BKNT, 0 /NUMBER OF CHARS EXPECTED 16745 0000 BPTR, 0 /NEXT LOCATION IN BUFFER TO STORE INTO 16746 0000 BUFFER, 0 16747 0115 DMON, 115;117;116;124;117;122;102;111;116 / MONTOR.BIN 16750 0117 16751 0116 16752 0124 16753 0117 16754 0122 16755 0102 16756 0111 16757 0116 16760 6336 16761 6316 16762 7777 16763 7775 16764 6331 16765 7270 16766 0374 16767 7247 16770 6342 16771 6346 16772 0201 16773 7000 16774 7267 16775 6724 16776 6220 16777 6201 7000 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 53 17000 0200 BSIZE, 200 17001 0000 FILNUM, 0 /FILE NUMBER OF FILE FOUND / LOOKUP / TAD UNIT / CDF FROMFLD / CIF 10 / JMS I (LOOKUP / CDF FILENAMEFLD / PTR TO FILENAME / I/O ERROR RETURN / / 17002 0000 LOOKUP, 0 17003 7421 MQL /SAVE UNIT NUMBER 17004 6214 RDF 17005 1377 TAD (CIF CDF 17006 3276 DCA LRET 17007 1602 TAD I LOOKUP /GET CDF TO FILENAME 17010 3257 DCA FLCDF 17011 2202 INCR LOOKUP 17012 1602 TAD I LOOKUP /GET PTR TO FILE 17013 3300 DCA PNAME /SAVE IT 17014 2202 INCR LOOKUP /POINT TO ERROR RETURN 17015 6211 CDF 10 17016 7501 MQA 17017 4776 CALL (UTIL 17020 0010 REWIND 17021 5273 JMP ERRIT 17022 4775 CALL (WAIT 17023 5273 JMP ERRIT 17024 1374 TAD (HSIZE /SET LENGTH OF RECORD HEADER 17025 3773 DCA I (BSIZE 17026 3201 DCA FILNUM 17027 5235 JMP FL2 17030 4776 FLOOP, CALL (UTIL 17031 0070 SKPFIL 17032 5273 JMP ERRIT 17033 4775 CALL (WAIT 17034 5273 JMP ERRIT 17035 2201 FL2, INCR FILNUM 17036 4772 CALL (HANDLER 17037 0010 READ+F1 17040 7600 INCH 17041 5273 JMP ERRIT 17042 1371 TAD (INCH 17043 3301 DCA P1 17044 4775 CALL (WAIT 17045 5273 JMP ERRIT /TAKE ERROR RETURN 17046 1701 TAD I P1 17047 7650 SNA CLA /SENTINEL FILE? 17050 5272 JMP NFNDRET /YES, NOT FOUND /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 53-1 17051 1300 TAD PNAME /NO, IS THIS THE ONE WANTED? 17052 3302 DCA P2 17053 1353 TAD M11 17054 3303 DCA SCNT /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 54 17055 1701 SLOOP, TAD I P1 17056 7041 CIA 17057 7402 FLCDF, HLT 17060 1702 TAD I P2 17061 0354 AND Q177 /ONLY LAST 7 BITS NEED MATCH 17062 6211 CDF 10 17063 7640 SZA CLA 17064 5230 JMP FLOOP /FILE KEY NOT ONE DESIRED 17065 2301 INCR P1 17066 2302 INCR P2 17067 2303 ISZ SCNT 17070 5255 JMP SLOOP 17071 2202 INCR LOOKUP /SKIP NOT FOUND RETURN 17072 2202 NFNDRET,INCR LOOKUP /SKIP ERROR RETURN 17073 7200 ERRIT, CLA 17074 1355 TAD Q200 17075 3773 DCA I (BSIZE /BE NICE TO USER 17076 7402 LRET, HLT /RETURN TO USER'S FIELD 17077 5602 EXIT LOOKUP /BYE-BYE 17100 0000 PNAME, 0 /POINTER TO USER'S NAME /END OF CASSETTE IS SIGNALLED BY SENTINEL ONLY. /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 55 17101 0000 P1, 0 17102 0000 P2, 0 17103 0000 SCNT, 0 17104 0000 DELET, 0 17105 4770' JMS BACK 17106 5704 EXIT DELET 17107 4772 CALL (HANDLER /WRITE EMPTY HEADER 17110 4010 WRITE+F1 17111 7141 EMPTINCH 17112 5704 EXIT DELET /ERROR WHILE DELETING 17113 7344 CLL STA RAL /-2 17114 1202 TAD LOOKUP 17115 3202 DCA LOOKUP 17116 5230 JMP FLOOP /JUMP INTO LOOKUP TO CONTINUE 17117 6340 IOTBL, IOT0 17120 7252 IOT1 / IOT2 / IOT3 17121 6350 IOT4 17122 7264 IOT5 17123 6343 IOT6 / IOT6B 17124 6671 IOT6C 17125 6332 IOT7 17126 6316 ERRCOV 17127 7304 NIOT1 17130 7323 NIOT2 17131 7333 NIOT3 17132 7334 NIOT4 17133 7336 NIOT5 17134 7345 NIOT6 17135 7346 NIOT7 17136 7347 NIOT8 17137 7327 NIOT9 17140 0000 ZER, 0 17141 0052 EMPTINCH,52;105;115;120;124;131;40;40;40;14 17142 0105 17143 0115 17144 0120 17145 0124 17146 0131 17147 0040 17150 0040 17151 0040 17152 0014 17153 7767 M11, -11 17154 0177 Q177, 177 17155 0200 Q200, 200 17156 0000 0;40;40;40;40;40;40;0 17157 0040 17160 0040 17161 0040 17162 0040 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 55-1 17163 0040 17164 0040 17165 0000 17170 6402 17171 7600 17172 6600 17173 7000 17174 0040 17175 6200 17176 7200 17177 6203 7200 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 56 17200 0000 UTIL, 0 17201 7421 MQL 17202 3245 DCA REWSW /ZERO REWIND SWITCH 17203 1600 TAD I UTIL 17204 1377 TAD (-10 17205 7450 SNA 17206 2245 INCR REWSW 17207 2200 INCR UTIL 17210 1376 TAD (211 17211 3244 DCA TEMPFN 17212 7501 MQA 17213 4775' JMS FIXDVC 17214 7225 UTEND 17215 1245 TAD REWSW 17216 3246 DCA RWSW 17217 2200 INCR UTIL 17220 1374 TAD (UT 17221 3267 DCA CRET /SET RETURN ADDRESS 17222 1244 TAD TEMPFN 17223 4773' JMS LOADA 17224 4772' JMS GO /INITIATE UTIL 17225 7402 UTEND, HLT 17226 6001 ION 17227 5600 EXIT UTIL 17230 4771' UT, JMS CHECKB /LOOK AT STATUS B 17231 0370 AND (50 /CHECK FOR CL, EMPTY, OR WLO /GIVE NO ERROR ON WLO ************ /BAD FOR WRGAP 17232 7450 SNA 17233 5242 JMP OK /NO ERRORS 17234 1367 TAD (-40 17235 7640 SZA CLA 17236 5241 JMP NOTOK /ERROR NOT CL 17237 1246 TAD RWSW 17240 7650 SNA CLA /CL OK IF DID REWIND 17241 7240 NOTOK, STA 17242 4766' OK, JMS CLEAR 17243 5270 JMP CRET+1 17244 0000 TEMPFN, 0 17245 0000 REWSW, 0 /1 MEANS OPERATION IS REWIND 17246 0000 RWSW, 0 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 57 17247 0000 CHK, 0 17250 4771' JMS CHECKB 17251 0365 AND (376 17252 6701 IOT1, KSDR 17253 7410 SKP /DATA FLAG NOT UP - SIMULATE BIGGIE ERROR 17254 5647 EXIT CHK 17255 0364 AND (374 17256 1363 TAD (-20 17257 7650 SNA CLA /IS IT END OF FILE? 17260 5762' JMP ERRR /YES, DON'T RETRY 17261 1761' TAD BSTATE 17262 5647 EXIT CHK /IS THIS ALLOWED TO MOVE? 17263 0000 CASINO, 0 17264 6705 IOT5, KSAF 17265 5273 UNDEF, JMP PDIS /******************** UNDEFINED INTERRUPT 17266 5667 JMP I CRET 17267 7265 CRET, UNDEF 17270 6202 CIF 0 /MUST BE AT CRET+1 17271 5672 JMP I .+1 17272 7643 DISMIS 17273 6203 PDIS, CIF CDF 0 17274 5663 JMP I CASINO /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 58 /SET UNIT AND DEVICE CODE (+200) /POSITION TAPE /CHANGE DEVICE CODES 17275 0000 NIHANDL,0 17276 6002 IOF 17277 7346 CLL STA RTL /-3 17300 3355 DCA ERKNTT 17301 7200 ERETRY, CLA 17302 1353 TAD UNIT 17303 1360 TAD (200 17304 6704 NIOT1, KLSA /READ SELECT 17305 4332 JMS CWAITY 17306 7200 CLA 17307 1326 TAD ABINBUF 17310 3352 DCA WDCNT 17311 1326 TAD ABINBUF 17312 3354 DCA BFPTR 17313 4332 REED, JMS CWAITY 17314 3754 DCA I BFPTR 17315 2354 INCR BFPTR 17316 0260 LL260, 260 17317 2352 ISZ WDCNT 17320 5313 JMP REED 17321 1353 TAD UNIT 17322 1316 TAD LL260 17323 6704 NIOT2, KLSA 17324 4332 JMS CWAITY 17325 4332 JMS CWAITY 17326 7600 ABINBUF,7600 /CLA 17327 6700 NIOT9, KCLR /? 17330 6001 ION 17331 5675 EXIT NIHANDL 17332 0000 CWAITY, 0 17333 6706 NIOT3, KGOA 17334 6705 NIOT4, KSAF 17335 5334 JMP .-1 17336 6702 NIOT5, KSEN /ERROR? 17337 5732 EXIT CWAITY /NO 17340 2355 ISZ ERKNTT 17341 7610 SKP CLA 17342 5757' JMP INERR /ERROR 17343 1353 TAD UNIT 17344 1356 TAD (250 17345 6704 NIOT6, KLSA 17346 6706 NIOT7, KGOA 17347 6703 NIOT8, KSBF 17350 5347 JMP .-1 17351 5301 JMP ERETRY 17352 0000 WDCNT, 0 17353 0000 UNIT, 0 17354 0000 BFPTR, 0 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 58-1 17355 0000 ERKNTT, 0 17356 0250 17357 4421 17360 0200 17361 6274 17362 6721 17363 7760 17364 0374 17365 0376 17366 6336 17367 7740 17370 0050 17371 6331 17372 6342 17373 6346 17374 7230 17375 6220 17376 0211 17377 7770 7400 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 59 /012345678901 /ABCDEFGHIJKL /012345678901 /MNOPQRSTUVWX /012345678901 /YZ0123456789 17400 0000 OPT1, 0 17401 0000 OPT2, 0 17402 0000 OPT3, 0 17403 0000 SINCH, ZBLOCK 25 17430 0001 VRSNO, VERSION /MONITOR VERSION NUMBER 17431 1363 PROGSTRT,TAD BINTEM 17432 7700 SMA CLA 17433 5652 EXIT BIN 17434 1330 TAD LSTORG 17435 7650 SNA CLA /WANT TO SELF-START? 17436 7402 HLT /NO, SO HALT AFTER LOADING 17437 1251 TAD LOADFLG 17440 7640 SZA CLA 17441 7402 HLT 17442 7326 STL CLA RTL /2 17443 1311 TAD FLD /GET DATA FIELD 17444 3245 DCA .+1 /CHANGE TO CIF CDF 17445 7402 HLT 17446 6002 IOF 17447 5725 JMP I ORG /GO TO START OF USER'S PROGRAM 17450 5400 PSTRT, 5400 17451 0000 LOADFLG,0 /NON-ZERO MEANS HALT AFTER LOADING /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 60 17452 0000 BIN, 0 /NEGATIVE NUMBER MEANS START AFTER LOADING 17453 3363 DCA BINTEM 17454 7240 STA 17455 3361 DCA GRKNT 17456 6201 CDF0, CDF 0 17457 3777 DCA I (CTRLCJ 17460 6211 CDF 10 17461 1315 TAD PSTA 17462 3266 DCA BINLDR /7600 KLUDGE 17463 1256 ITSFLD, TAD CDF0 17464 3311 DCA FLD 17465 3325 ITSORG, DCA ORG /ASSUMES ORIGIN ALWAYS APPEARS /AFTER FIELD SETTING 17466 5650 BINLDR, JMP I PSTRT 17467 3327 DCA ORGSW 17470 4341 JMS GETBYT 17471 7002 BSW 17472 7112 CLL RTR 17473 7430 SZL 17474 5317 JMP SPEC /BIT 4=1 17475 7510 SPA /BIT 4=0 (TWO WORD COMMAND) 17476 2327 ISZ ORGSW /IS ORIGIN 17477 7000 N7000, NOP 17500 7004 RAL 17501 7104 CLL RAL 17502 3326 DCA TEM 17503 4341 JMS GETBYT 17504 1326 TAD TEM /COMBINE 17505 2330 INCR LSTORG 17506 7000 NOP 17507 2327 ISZ ORGSW 17510 5265 JMP ITSORG /ORIGIN 17511 6211 FLD, CDF 10 17512 3725 DCA I ORG 17513 3330 DCA LSTORG 17514 2325 ISZ ORG 17515 7240 PSTA, STA 17516 5266 JMP BINLDR 17517 7500 SPEC, SMA 17520 5231 JMP PROGSTRT 17521 7006 RTL 17522 0277 AND N7000 17523 7002 BSW 17524 5263 JMP ITSFLD 17525 7525 ORG, . 17526 0000 TEM, 0 17527 0000 ORGSW, 0 17530 0000 LSTORG, 0 /SET TO 1 ON ORIGIN, BUT 0 IF DATA 17531 0040 DATWD, 40;40;40;40;40;40;40;40 /THE DATE 17532 0040 17533 0040 17534 0040 17535 0040 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 60-1 17536 0040 17537 0040 17540 0040 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 61 17541 0000 GETBYT, 0 /DF IS RANDOM ON ENTRY 17542 6211 CDF 10 17543 2361 ISZ GRKNT 17544 5355 JMP TB 17545 1376 TAD (-200 17546 3361 DCA GRKNT 17547 1351 TAD PBINBUF 17550 3362 DCA GRPTR / CALL (HANDLER / READ+F1 17551 7600 PBINBUF,BINBUF / HLT /********* / JMS WAIT / HLT 17552 1775' TAD ABUNIT 17553 3774' DCA UNIT 17554 4773' JMS NIHANDL 17555 1762 TB, TAD I GRPTR 17556 2362 INCR GRPTR 17557 7000 NOP 17560 5741 EXIT GETBYT 17561 0000 GRKNT, 0 17562 0000 GRPTR, 0 / 00 DATA / 01 ORIGIN / 11 FIELD / 10 LEADER/TRAILER 17563 0000 BINTEM, 0 17573 7275 17574 7353 17575 6353 17576 7600 17577 7604 7600 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 62 INCH, 17600 0000 BINBUF, 0 0000 PAGE /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 63 IFNZRO OS8 < FIELD 6 *20 MOVE, 0 TAD I MOVE DCA MVKNT INCR MOVE TAD I MOVE DCA FFLD INCR MOVE STA TAD I MOVE DCA 10 INCR MOVE TAD I MOVE DCA TFLD INCR MOVE STA TAD I MOVE DCA 11 INCR MOVE FFLD, HLT TAD I 10 TFLD, HLT DCA I 11 ISZ MVKNT JMP FFLD CDF 60 EXIT MOVE MVKNT, 0 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 64 *200 CDF 60 JMS MOVE -200 CDF 0 7600 CDF 30 7600 JMS MOVE -200 CDF 10 7600 CDF 30 7400 JMS MOVE -400 CDF 20 7400 CDF 0 7400 JMS MOVE -2 CDF 20 1 CDF 0 1 CIF CDF 10 JMP I .+1 MON /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 65 *400 CDF 60 JMS MOVE -200 CDF 30 7600 CDF 0 7600 JMS MOVE -200 CDF 30 7400 CDF 10 7600 CIF CDF 0 JMP I .+1 7605 > 0001 FIELD 1 5400 *5400 $ /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 66 ABINBU 7326 DL2 6062 GRPTR 7562 LNBFR 4237 ABSLD 0473 DMON 6747 HANDLE 6600 LNKNT 0100 ABUNIT 6353 DOTFLG 0121 HCHAR 0102 LNPTR 0101 BACK 6402 DPTR 6516 HSIZE 0040 LOAD 5600 BACKBL 0050 DTOK 6124 HZERO 4713 LOADA 6346 BACKFI 0030 DVC 6270 INCH 7600 LOADFL 7451 BADC 5463 ECHO 7407 INCR 2000 LOOKUP 7002 BAKFIX 6457 ECIF 4476 INERR 4421 LPBUFR 7731 BFIELD 6733 EMPTIN 7141 INPLUP 5214 LPCHCT 7406 BFLD 6675 ENDIR 6145 INTRPT 7655 LPFULP 7450 BFPTR 7354 ENTER 6404 IOTBL 7117 LPGETP 7405 BIN 7452 EOL 5266 IOTLOO 6255 LPIO 7417 BINBUF 7600 EPRIN 4464 IOTPTR 6271 LPJAM 7440 BINLDR 7466 ERET 6447 IOT0 6340 LPMORE 7426 BINTEM 7563 ERETRY 7301 IOT1 7252 LPOCHR 7400 BITLUP 4631 ERKNT 6637 IOT4 6350 LPPUTP 7404 BKERR 6510 ERKNTT 7355 IOT5 7264 LPRET 7474 BKNT 6744 ERLUP 4455 IOT6 6343 LPSIZ 7414 BPTR 6745 ERRCOV 6316 IOT6C 6671 LPSIZE 0002 BREAK 7603 ERRET 6272 IOT7 6332 LPTLCF 7424 BSIZE 7000 ERRETT 6354 ITSFLD 7463 LRET 7076 BSTATE 6274 ERRIT 7073 ITSORG 7465 LSE 6663 BUFFER 6746 ERROR 4452 JMPBAD 5745 LSF 6661 CALL 4400 ERRR 6721 KBDCHR 7626 LSTORG 7530 CAM 7621 ERRX 6715 KBDDVC 0030 LV 6633 CASINO 7263 EXIT 5400 KBDFLG 7601 L10 4665 CDF0 7456 FILNUM 7001 KBDIN 7602 L177 7770 CHECKB 6331 FILPTR 5644 KBDIO 7675 L261 6700 CHECKR 6303 FILTBL 4200 KCIDF 7644 L40 6125 CHK 7247 FIXDVC 6220 KCIFCD 7502 L70 6735 CINUSE 6273 FLCDF 7057 KCLR 6700 MBNF 5033 CLEAR 6336 FLD 7511 KGOA 6706 MM200 6475 CLFIX 6531 FLOOP 7030 KILL 5006 MON 5201 CLOSE 6400 FL2 7035 KKCC 6032 MONRES 7415 CLRET 6556 FTEMP 0123 KKRB 6036 MONSTA 7605 COMN 5127 F0 0000 KKSF 6031 MOVL 5707 CR 5435 F1 0010 KLSA 6704 MOVLUP 5042 CRCMN 6710 GETBYT 7541 KRET 7640 MVLUP 0213 CRET 7267 GETDIG 4352 KRSB 6707 M11 7153 CRLF 5000 GETL 5655 KSAF 6705 M2 6127 CRLF1 0442 GETLET 5053 KSBF 6703 M3 7624 CS 0441 GETLV 5744 KSDR 6701 M70 4670 CTRLC 7721 GETNAM 5667 KSEN 6702 NEWGAP 6501 CTRLCJ 7604 GETNUM 5107 K12 4534 NFERR 5523 CWAIT 6204 GETSLS 4645 K40 4504 NFNDRE 7072 CWAITY 7332 GETUNI 4716 K400 4536 NGL 0241 D 5507 GNL 0225 K60 4535 NIHAND 7275 DATE 4733 GO 6342 LCF 6662 NIOT1 7304 DATWD 7531 GOLOAD 5632 LDIG 5121 NIOT2 7323 DEF 4727 GOLUP 5635 LDR 0400 NIOT3 7333 DEFBIN 4537 GOTBRK 7642 LDRFLG 0323 NIOT4 7334 DELET 7104 GOTOPT 4621 LIE 6665 NIOT5 7336 DIR 5066 GOTSP 5661 LIF 6667 NIOT6 7345 DISMIS 7643 GOTSP1 5662 LLS 6666 NIOT7 7346 DLOOP 6057 GRKNT 7561 LL260 7316 NIOT8 7347 /1.3 CASSETTE MONITOR SYSTEM PAL8-V10D NO DATE PAGE 66-1 NIOT9 7327 RCC 6016 TOCHR 5271 NMKNT 0105 RCF 6014 TSUM 0322 NODEF 5614 RDOR 6451 TTBUFR 7734 NODIG 5123 READ 0000 TTCF 6042 NOTAZ 4641 READX 6665 TTCHCT 7413 NOTLET 5717 RECOVE 5312 TTFL 6040 NOTLOD 5722 REED 7313 TTFULP 7506 NOTOK 7241 REMTEM 0116 TTGETP 7412 NOTSPE 7717 REWIND 0010 TTJAM 7476 NRERR 4436 REWSW 7245 TTLS 6046 NTF 6422 RKNT 0324 TTMORE 7541 NXTWD 4625 RLOOP 0264 TTOCHR 7402 N7000 7477 RO 5246 TTPUTP 7411 ODPTR 6515 ROFLAG 5306 TTRET 7530 OK 7242 RP 0440 TTSF 6041 ONEDIG 4531 RPT 0437 TTSIZ 7410 OPTION 4600 RPTR 0325 TTSIZE 0030 OPTKNT 0111 RULUP 5603 TTTLS 7552 OPTLUP 4613 RUN 5601 TTYCF 7537 OPT1 7400 RW 6636 TTYDVC 0040 OPT2 7401 RWCRC 6702 TTYIO 7532 OPT3 7402 RWO 6640 U 0106 ORG 7525 RWSW 7246 UNDEF 7265 ORGSW 7527 R40 6502 UNIT 7353 OS8 0000 SAVEAC 7766 UT 7230 OUTERR 4400 SAVELN 7765 UTEND 7225 PATCH1 5135 SAVEMQ 7767 UTIL 7200 PBINBU 7551 SAVPTR 0122 VERSIO 0001 PCASIN 7625 SCNT 7103 VLUP 4512 PDIS 7273 SEND 0450 VNO 4502 PLOOKU 7617 SETBIN 5037 VRSN 5076 PNAME 7100 SETKNT 0104 VRSNO 7430 PRCHAR 6022 SETNAM 5711 VT05 0000 PREGET 5706 SETPTR 0103 WAIT 6200 PREND 6025 SETUP 6640 WAITEN 6216 PRERR 6275 SIMTLS 7566 WALL 5307 PRINT 6001 SIN 0462 WCDF 6657 PRKNT 0107 SINCH 7403 WCRC 6741 PRLUP 6013 SKPFIL 0070 WDCNT 7352 PRLV 6023 SLASH 6135 WIND 5024 PRNTDI 6033 SLOOP 7055 WLO 4365 PROGST 7431 SPACE 5654 WLV 6215 PRSLSH 5275 SPEC 7517 WORD 0112 PSTA 7515 SPTR 0326 WRGAP 0040 PSTRT 7450 START 0212 WRITE 4000 PUTD 6517 STPTR 0110 WRITEX 6724 PUTU 4500 STRT 5200 XTO 6027 P1 7101 SUBVER 0003 XTOCHR 6000 P2 7102 SUPCLA 5432 X0 0010 QKNT 0115 SUPWAI 5420 X1 0011 QUTIL 4707 TB 7555 X2 0012 Q177 7154 TEM 7526 X3 0013 Q200 7155 TEMDIG 0113 ZER 7140 R 5473 TEMPFN 7244 ZERO 4656 RBUFR 0600 TMP 6267 ERRORS DETECTED: 0 LINKS GENERATED: 164