|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 27020 (0x698c)
Notes: pts_type(SC)
Names: »DRTC01.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRTC01.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRTC01.SC«
IDENT DRTC01 REL 11.0 81-01-26 870105041100 * * ******************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRTC01 = DRIVER TAPE CASSETTE RECORDER * * * * * * ******************************************************* * * * THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS * CONNECTED TO CPU VIA CHCR-DCR * * ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT * AT REWIND AND UNLOAD * * DATA IS RECORDED IN BLOCKS WITH LENGTHS FROM 2 TO * 256 CHARACTERS * EJECT DRTC01 * * * THE DRIVER CONSISTS OF THE FOLLOWING PARTS: * * T C D A : ACTIVATION PART * * I H T C : INTERRUPT HANDLER * * R C O V E R : RECOVERY ROUTINE * * D W T C 0 1 : DEVICE WORK TABLE 01 * * D W T C 0 2 : DEVICE WORK TABLE 02 * * AND O R D E R P R O C E S S O R S * * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER /00: TEST STATUS * /02: READ * /05: WRITE * /06: WRITE * /22: WRITE TAPE MARK * /26: LOCK * /31: REWIND * /33: REVERSE * /24: ERASE * /37: LOAD * /38: UNLOAD * EJECT DRTC01 * * * THE FOLLOWING RETURN CODES ARE USED: * * BIT 0 REQUEST ERROR * 2 BOT/EOT * 3 TAPE MARK DETECTED * 6 WRITE PROTECTED * 7 B-SIDE * 9 REWIND TIME-OUT (+BOT MISSING) * 11 SEQUENCE ERROR * -READ SEQUENCE ERROR * -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY * -POWER RECOVERY WHEN SEQ. COUNTER NOT USED * -POWER RECOVERY NOT SUCCESSFULL * 12 INCORRECT LENGTH * 13 CRC ERRROR (+NO DATA/ERASED) * 14 THROUGHPUT ERROR * 15 NOT OPERABEL * EJECT DRTC01 * * * NORMAL USAGE OF REGISTERS: * * REGISTER A1: RETURN CODE * A2: SST STATUS * A3: DWT STATUS AFTER SST * A4: RETRY COUNTER * A5: SEQUENCE CHARACTER AFTER READ/WRITE * A6: DWT ADDRESS * A8: SUBROUTINE STACK * * * SYSTEM ADAPTATION: * * BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE * REDUCED TO HANDLE: * * -ONLY ONE CASSETTE RECORDER * -ORDERS REVERSE, ERASE AND LOCK EXCLUDED * EJECT DRTC01 * * *********** * ENTRIES * *********** * * ENTRY IHTC INTERRUPT ADDRESS ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01 ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02 ENTRY TCDRON POWER UP RECOVERY * * ******************************** * EXTERNAL TOSS MODULE ENTRIES * ******************************** * * EXTRN TDISP DISPATCHER MAIN ENTRY EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE EXTRN SWLXY SWITCH TO LEVEL XY EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE EXTRN DISEND GO TO DISPATCHER VIA TENDIO EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY EXTRN INTSAV SAVE AREA LAST INTERRUPT EXTRN INIFLG INIT FLAG AT PGM LOADING EXTRN ECBRL REQUESTED LENGTH IN ECB EXTRN ECBEL EFFECTIVE LENGTH IN ECB EXTRN ECBCW CONTROL WORD IN ECB EXTRN PFPOST PWF POST PROCESSING FLAG EJECT DRTC01 * * ****************** * DWT PARAMETERS * ****************** * * EXTRN DWTST DWT SOFTWARE STATUS: * BIT # 0 - DEVICE AND CONTROLLER READY * BIT #11 - TAPE MARK ENCOUNTERED ON LAST * BIT #12 - REPOSITIONING AT RECOVERY * BIT #13 - WRITE PROTECTED * BIT #14 - A-SIDE BIT #15 - DEVICE LOCKED (OPERABLE) EXTRN DWTOR DWT ORDER EXTRN DWTECB DWT ECB ADDRESS * * ************************ * * * STATUS MASKS * * * ************************ * * BUSY EQU /7FFF BUSY MASK FREE EQU /7FE0 UNLOAD MASK NOTPMK EQU /FFEF NO TAPE MARK MASK EJECT DRTC01 * ************************ * CONDITIONAL ASSEMBLY * ************************ * * THE DRIVER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE * RECORDER BY SETTING X:A=1 * X:A EQU 1 DBCAS EQU X:A * * ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED * BY SETTING X:B=0 * X:B EQU 0 REVER EQU X:B * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * MMU BUFFER SIZE * X:C EQU 129 DVBLEN EQU X:C * * MMU DEVICE INDEX * DEVIND EQU 2 * EJECT DRTC01 * * CONSTANTS AND WORK AREAS * DATA DVBLEN+DVBLEN DEVICE DEPENDENT BUFFER SIZE DATA DEVIND DEVICE INDEX TCAD DATA TCDA ACTIVATION ENTRY DATA 0 ABORT ROUTINE ADDRESS RES 4 SUBROUTINE STACK STB EQU *-2 * * TAB DATA /0031,/2237,/3802,/0506 IFT REVER=1 DATA /2633,/24FF XIF TABL EQU *-TAB EJECT DRTC01 * * *************************** * CHANNEL UNIT PARAMETERS * *************************** * * * DEVICE ADDRESS: * CHCRDA EQU /0E * * ************* * CONSTANTS * ************* * * RTRIES EQU 3 MAX NO OF RETRIES * PSUBS EQU 5 POWER UP BACKSPACE NUMBER * PREAD EQU 4 POWER UP READ NUMBER * PINT EQU 10 POWER UP RECOVERY BLOCK COUNT INTERVAL * IFT REVER=1 PERAS EQU 6 NO OF ERASE FOR ORDER /24 XIF EJECT DRTC01 * * * T C D A * * ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING * * TCDA EQU * LDK A1,0 LDK A4,TABL-1 * TCDA10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER RF(E) TCDA20 VALID ORDER SUK A4,1 RB(NN) TCDA10 TRY NEXT * TCDA15 EQU * ABL DISIOE ILLEGAL ORDER * TCDA20 ADR A4,A4 DOUBLE TO GET INDEX ST A4,TCDAX SAVE INDEX LD A5,ECBRL,A8 GET REQUESTED LENGTH LD A3,SEKBYT,A6 SEQUENCE COUNTER ? RF(NE) TCDA21 NO ADK A5,1 COMPENSATE FOR SEQUENCE CHARACTER * TCDA21 EQU * LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS ANK A2,2 RF(NZ) TCDR10 YES * ADK A5,1 NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES SUK A7,/37 LOAD ? RF(NE) TCDA22 NO LD A3,ECBCW,A8 GET CONTROL WORD ANK A3,1 ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT * TCDA22 LD A3,2,A8 GET BUFFER ADDRESS ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES SUK A4,14 RF(Z) TCDA23 WRITE ADK A4,2 RF(NZ) TCDA25 NOT WRITE * TCDA23 ADK A5,3 CHECK REQUESTED LENGTH RB(P) TCDA15 LESS THAN 2 CHARACTERS ADK A5,254 RB(N) TCDA15 MORE THAN 256 CHARACTERS * =REL 11.0 LD A4,SEKBYT,A6 SEQ. COUNTING ? RF(NZ) TCDA25 NO LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER ST A2,SEQCHR SAVE IT =REL 11.0 * TCDA25 ST A6,TCDADT SAVE ACTIVE DWT EJECT DRTC01 * * * SELECT RECORDER * * TCDA30 LDKL A8,STB LOAD STACK BASE CF A8,SELECT SELECT CASSETT CF A15,SWLXY SWITCH TO LEVEL XY LDR A1,A2 SAVE STATUS LDK A4,RTRIES PRESET NUMBER OF RETRIES LDKL A2,0 GET FUNCTION INDEX TCDAX EQU *-2 **ORDER INDEX** ABI TCDFUN,A2 BRANCH TO FUNCTION TCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE IFT REVER=1 DATA OLOCK,REVERS,ERTAPE XIF * EJECT DRTC01 * * * RECOVERY AFTER POWER ON * * TCDRON EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LD A1,INIFLG CHECK IF PGM LOADING ABL(NZ) TDISP YES SKIP RECOVERY LDKL A8,STB LOAD STACK BASE LDKL A6,DWTC01 FIRST DWT CF A8,RCOVER RECOVERY IFT DBCAS=2 LDR* A6,A6 GET OTHER DWT CF A8,RCOVER RECOVERY XIF LDKL A4,0 GET ACTIVE DWT TCDADT EQU *-2 **ACTIVATED DWT ADDRESS** RF(Z) ENDIO NO REQUEST GOING ON LDR A6,A4 PUT DWT ADDRESS IN A6 LD A3,SEKBYT,A6 SEQ. COUNTING RB(Z) TCDA30 YES; REACTIVATE ORDER * TCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR ST A3,SEKBYT,A6 ORK A1,/10 IND SEQUENCE ERROR, BIT #11 RF ENDIO * EJECT DRTC01 * * R E A D * READ CF A8,READR READ RECORD ANKL A1,/400 SAVE EOT BIT ORR A1,A2 ANK A2,/0E RF(Z) READ20 STATUS OK * READ15 SUK A4,1 RECOVERABLE ERROR RF(Z) READ20 3 TRIALS DONE CF A8,BKSP BACKSPACE ONE BLOCK RB READ READ AGAIN * READ20 LDR A2,A1 SLL A2,3 CHECK IF TAPE MARK RF(NN) READ30 NOT TAPE MARK * READ25 ORK A3,/10 INDICATE TAPE MARK LDK A7,0 RESET EFFECTIVE LENGTH RF READ35 * READ30 LDR A2,A1 LDKL A7,0 GET EFFECTIVE LENGTH EFFLEN EQU *-2 **EFFECTIVE LENGTH** ANKL A2,/801 NO DATA,NOT OP RF(NZ) READ32 LDR A7,A7 RF(NZ) READ32 NOT EQUAL ZERO LDR A4,A4 THIRD TRIAL DONE RB(NZ) READ15 NO; READ SAME BLOCK AGAIN LDK A4,1 SET NO OF RETRIES TO ONE RB READ TRY NEXT BLOCK * READ32 EQU * ANKL A3,NOTPMK NOT TAPE MARK LD A2,SEKBYT,A6 SEQ. COUNTING ? RF(NE) READ35 NO SUK A7,1 DECREMENT EFF. LENGTH COUNTER CC A5,DWTBKC+1,A6 CHECK SEQUENCE COUNTER RF(E) READ35 OK ORK A1,/10 SEQUENCE ERROR * READ35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER * READ40 LD A8,DWTECB,A6 GET ECB ADDRESS ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH LDK A2,RTRIES SUR A2,A4 GET NUMBER OF RETRIES PERFORMED ST A2,ECBCW,A8 SAVE IT IN CONTROL WORD * READ50 EQU * ST A3,DWTST,A6 SAVE STATUS EJECT DRTC01 * * * END OF I/O OPERATION * * ENDIO EQU * CM TCDADT INDICATE NONE ACTIVE DWT * * MODIFY RETURN CODE * ANKL A1,/BFFF SKIP BIT 1 (LEADER) RF(Z) ENDIO5 NO ERRORS LDKL A2,/2000 TM A1,A2 RF(Z) ENDIO2 XRR A1,A2 RESET BIT 2 ORK A1,/40 SET BIT 9 INSTEAD * ENDIO2 EQU * SRL A2,2 TM A1,A2 RF(Z) ENDIO3 XRR A1,A2 RESET BIT 4 ORK A1,4 SET BIT 13 INSTEAD * ENDIO3 EQU * SRL A2,1 TM A1,A2 RF(Z) ENDIO4 XRR A1,A2 RESET BIT 5 ORKL A1,/2000 SET BIT 2 INSTEAD * EJECT DRTC01 * * ENDIO4 EQU * SRL A2,1 TM A1,A2 RF(Z) ENDIO5 NOT WRITE PROTECTED LD A7,DWTOR,A6 ORDER CODE ANK A7,/3F SUK A7,/05 RF(N) ENDIO5 NO WRITE ORDER SUK A7,/24-/05 RF(P) ENDIO5 NO WRITE ORDER ORK A1,/40 SET BIT 9 * ENDIO5 EQU * IFT DBCAS=2 CF A15,SWLXY SWITCH TO LEVEL XY LDR* A6,A6 GET OTHER DWT CF A15,TENDIO PERFORM TENDIO FOR THIS LDR* A6,A6 GET FIRST DWT XIF CF A15,SWLXY SWITCH TO LEVEL XY ABL DISEND GO TO DISPATCHER VIA TENDIO * EJECT DRTC01 * * * WRITE TAPE MARK * TM LDKL A3,-1 ST A3,HELPME * * W R I T E * * WRITE ONE BLOCK * * WRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER RF(NZ) WRIT10 NOT FIRST BLOCK CF A8,ERASE MAKE ONE BLANK BLOCK SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK * WRIT10 CF A8,WRITER WRITE RECORD ANKL A1,/400 SAVE EOT-BIT ORR A1,A2 ANK A2,/0E RF(Z) WRIT30 STATUS OK * WRIT12 ST A4,WRITA4 STORE RETRY COUNTER LD A2,SEKBYT,A6 RF(Z) WRIT15 SEQ. COUNTING * EJECT DRTC01 * * CF A8,BKSP BACKSPACE ONE BLOCK LDK A4,0 ONE ERASE RF WRIT20 * WRIT15 CF A8,REPOS POSITION TAPE CM SEKBYT,A6 RESET SEQ. INDICATOR LD A4,WRITA4 GET NO ... LDR A2,A2 RF(NZ) WRIT40 POSITIONING NOT OK SUK A4,RTRIES ... OF ERASE * WRIT20 CF A8,ERASE ERASE ORR A1,A2 SAVE EOT ADK A4,1 COUNT ERASE RB(NG) WRIT20 NOT READY LDKL A4,0 GET RETRY COUNTER WRITA4 EQU *-2 **RETRY COUNTER** SUK A4,1 RB(NZ) WRIT10 TRY AGAIN ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 RF WRIT50 GIVE UP * EJECT DRTC01 * * WRIT30 LD A2,TCDAX GET ORDER SUK A2,4 TAPE MARK WRITTEN? RB(NZ) READ30 NO LDR A2,A1 CHECK IF SLL A2,3 TAPE MARK OK ABL(N) READ25 YES RB WRIT12 NO * WRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR * WRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH RB READ40 * EJECT DRTC01 * * * L O A D * * LOAD CASSETTE * * LOAD CF A8,LOCK LOCK CASSETTE RF(Z) REWIND CASSETTE LOCKED LOAD10 LDR A1,A2 NO CASSETTE RB READ50 * * * R E W I N D * * REWIND TAPE * * REWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER CF A8,SBOT SEARCH BEGINNING OF TAPE REW010 EQU * LDR A1,A2 SRL A1,7 ANK A1,6 ORK A3,1 PREPARE STATUS ORR A3,A1 AND FORM STATUS WORD RB LOAD10 * EJECT DRTC01 * * * U N L O A D * * UNLOAD CASSETTE * * UNLOAD EQU * LDKL A3,FREE ANS A3,DWTST,A6 RESET STATUS CF A8,UNLD UNLOAD CASSETTE UNLO10 LDR A1,A2 SAVE RETURN CODE ANKL A1,/FFFE SKIP BIT 15 RB ENDIO IFT REVER=1 * * * R E V E R S * * BACKSPACE ONE BLOCK * * REVERS CF A8,BKSP BACKSPACE LDKL A4,-1 DECREMENT BLOCK SEQ. ADS A4,DWTBKC,A6 COUNTER BY ONE RB UNLO10 * EJECT DRTC01 * * * E R T A P E * * ERASE TAPE * * ERTAPE LDK A4,PERAS SET NO OF ERASE ERT10 CF A8,ERASE ERASE ONE BLOCK ANKL A1,/400 SAVE EOT BIT ORR A1,A2 RETURN CODE SUK A4,1 RB(NZ) ERT10 ERASE NOT READY ABL READ50 * * * O L O C K * * ORDER LOCK CASSETTE * * OLOCK CF A8,LOCK LOCK CASSETTE RB(Z) REW010 CASSETTE LOCKED RB LOAD10 XIF * EJECT DRTC01 * * * CASSETTE COMMANDS * * * SELECT * SELECT EQU * LDKL A2,BUSY LOAD BUSY MASK ANS A2,DWTST,A6 SET DWT BUSY IFT DBCAS=1 LDK A3,0 SELECT CODE XIF IFT DBCAS=2 LDR* A3,A6 GET OTHER DWT ANS A2,DWTST,A3 SET DWT BUSY ANK A3,1 GET SELECT CODE XIF * CRCOM LD A2,PFPOST RF(NZ) EXIT PFINIT PENDING CIO A3,1,CHCRDA RF(Z) EXIT LDK A1,1 NOT OPERABLE ABL ENDIO * * READ SEQUENCE CHAR TO A5 * READSQ EQU * LDK A3,/A ST A3,REQLEN MAKE REQUESTED LENGTH > 0 RB CRCOM * EJECT DRTC01 * * READ ONE RECORD * READR LDK A3,/A READR1 CM EFFLEN RESET EFFECTIVE LENGTH LDKL A2,0 GET BUFFER ADDRESS BUFADR EQU *-2 **BUFADR** ST A2,TCDBA LDKL A2,0 GET REQUESTED LENGTH HELPME EQU *-2 **HELPME** ST A2,REQLEN RB CRCOM * * WRITE ONE RECORD * WRITER LDK A3,/B RB READR1 * * ERASE ONE BLOCK * ERASE LDK A3,9 RB CRCOM * * LOCK CASSETTE * LOCK LDK A3,2 RB CRCOM * EJECT DRTC01 * * SEARCH BEGINNING OF TAPE * SBOT LDK A3,8 RB CRCOM * * REWIND TAPE AND UNLOCK CASSETTE * UNLD LDK A3,/F RB CRCOM * * BACKSPACE ONE BLOCK * BKSP LDK A3,/E RB CRCOM * EJECT DRTC01 * * * I H T C * * INTERRUPT HANDLER : PROCESS OF INTERRUPT * * IHTC EQU * ST P,INTSAV SAVE LAST INTERRUPT STR A5,A15 SAVE A5 ON STACK SST A5,CHCRDA RF(A) SST SST ACCEPTED IM REQLEN INCREMENT COUNTER RF(Z) CIOHLT RF(P) INRSQ GET SEQUENCE COUNTER STR A3,A15 SAVE A3 ON STACK LDKL A3,0 GET BUFFER ADDRESS TCDBA EQU *-2 **BUFFER ADDRESS** IM TCDBA INCREMENT BUFFER ADDRESS LD A5,REQLEN GET REMAINING LENGTH =REL 11.0 ADK A5,1 * =REL 11.0 RF(NZ) IHTC01 NOT SEQUENCE CHARACTER =REL 11.0 LD A5,TCDADT GET ACTIVE DWT =REL 11.0 LD A5,SEKBYT,A5 SEQUENCE COUNTING? =REL 11.0 RF(NZ) IHTC01 NO! =REL 11.0 LDKL A3,SEQCHR+1 GET ADDRESS TO SEQUENCE CHAR. =REL 11.0 IHTC01 EQU * * =REL 11.0 LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE SUK A5,10 RF(NZ) IHTC05 WRITE * IHTC02 INR A5,0,CHCRDA READ CHAR. SCR A5,A3 STORE CHARACTER IN BUFFER RF EXIT2 * IHTC05 EQU * LCR A5,A3 GET CHAR FROM BUFFER OTR A5,0,CHCRDA OUTPUT IT EJECT DRTC01 * * EXIT2 ST A5,TCDA5 IM EFFLEN INCREMENT EFFECTIVE LENGTH LDR* A3,A15 RESTORE A3 AND A5 FROM STACK * EXIT3 LDR* A5,A15 RTN A15 * INRSQ INR A5,0,CHCRDA READ CHAR TO A5 ST A5,TCDA5 RB EXIT3 * SST ST A5,TCDA2 SAVE STATUS LDR* A5,A15 RESTORE A5 IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDKL A1,0 TCDA1 EQU *-2 LDKL A4,0 TCDA4 EQU *-2 LDKL A5,0 TCDA5 EQU *-2 LDKL A6,0 TCDA6 EQU *-2 LDKL A8,0 TCDA8 EQU *-2 EJECT DRTC01 * * LDKL A2,0 RESTORE STATUS TCDA2 EQU *-2 LDR A3,A2 GET STATUS SLL A3,9 SHIFT ST A3,2,A8 SAVE ON STACK LD A3,DWTST,A6 PUT DWT STATUS IN A3 * IHTRTN EQU * RTN A8 * CIOHLT EQU * CIO A1,0,CHCRDA CIO-HALT RB EXIT3 * EXIT ST A1,TCDA1 ST A4,TCDA4 ST A5,TCDA5 ST A6,TCDA6 ST A8,TCDA8 ABL TDISP GO TO DISPATCHER * EJECT DRTC01 * * * R C O V E R * * RECOVERY ROUTINE : POSITIONING OF TAPE AT POWER ON * * RCOVER EQU * CF A8,SELECT SELECT ANK A3,1 RB(Z) IHTRTN NOT LOCKED: RETURN FROM RECOVERY CF A8,LOCK RF(NZ) REPER NO CASSETTE LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ RF(NZ) RC0050 YES CF A8,SBOT SEARCH BEGINNING OF TAPE SLL A2,5 RF(NN) REPER BOT NOT FOUND RF REPOK * RC0050 LD A1,SEKBYT,A6 SEQ. COUNTING RF(NZ) REPER NO * EJECT DRTC01 * * * R E P O S * * REPOSITIONING OF TAPE AT POWER ON * AND WRITE RECOVERY * * EXIT: A2 EQ ZERO SUCCESS * A2 NOT EQ ZERO NO SUCCESS * * REPOS EQU * LDK A4,8 SET REPOSITIONING BIT ORS A4,DWTST,A6 STORE IN DWT * REP005 EQU * LDK A4,PSUBS SET NO OF BACKSPACES * REP010 CF A8,BKSP BACKSPACE SLL A2,4 RF(NN) REP015 DATA FOUND LD A2,DWTBKC,A6 GET BLOCK COUNTER SUK A2,8 GREATER 8 ? RF(G) REPER YES CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE SLL A2,5 RF(NN) REPER BOT NOT FOUND LDKL A5,-1 RESET SEQ. COUNTER RF REP020 READ SEQ. CHAR * EJECT DRTC01 * * REP015 EQU * SUK A4,1 RB(NZ) REP010 BACKSPACE AGAIN LDK A4,PREAD SET NO OF MAX READ * REP017 CF A8,READSQ READ SEQ. CHAR LDKL A7,/180F SET READ MASK TM A2,A7 RF(Z) REP020 READ OK SUK A4,1 COUNT READ RB(P) REP017 NOT ALL READ DONE RF REP060 GIVE UP * REP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR SUR A4,A5 CALCULATE SUK A4,1 NO OF BLOCKS TO ANK A4,/FF READ FORWARD. CWK A4,PINT TOO MANY BLOCKS RF(G) REPER YES * EJECT DRTC01 * * REP030 SUK A4,1 POSITION TAPE RF(N) REP040 READY CF A8,READSQ READ NEXT BLOCK RB REP030 * REP040 LDK A4,RTRIES SET NO OF RETRY REP042 LDKL A7,/80F SET READ MASK TM A2,A7 CORRECT READ RF(Z) REP045 YES SUK A4,1 COUNT RETRY RF(NP) REP060 GIVE UP CF A8,BKSP BACKSPACE CF A8,READSQ READ SEQ NUMBER RB REP042 * EJECT DRTC01 * * REP045 SLC A2,3 RF(NN) REP050 NOT TAPE MARK ANK A3,/10 RF(Z) REP060 SHOULD NOT BE TAPE MARK RF REPOK * REP050 ADK A5,1 CHECK SEQ. NUMBER CC A5,DWTBKC+1,A6 RF(E) REPOK EQUAL * REP060 LD A7,DWTST,A6 ANK A7,8 TRY POSITIONING AGAIN? RF(Z) REPER NO XRS A7,DWTST,A6 RESET REPOSITIONING BIT RB REP005 YES * * REPER LDK A2,2 IND RECOVERY/SEQUENCE ERROR STATUS ORS A2,SEKBYT,A6 SAVE IN DWT RTN A8 * REPOK LDK A2,0 IND RECOVERY CORRECT RTN A8 * EJECT DRTC01 * * * D W T C 0 2 * * DEVICE WORK TABLE FOR CASSETTE RECORDER 02 * * DWTC02 EQU * TABLE ENTRY IFT DBCAS=2 DATA DWTC01+1 DWT NO. 1 DATA /8000 STATUS./8000 MEANS DEVICE READY DATA 0 ECB ADDRESS DATA 0 ORDER DATA TCAD POINTER TO ADDRESS BLOCK DATA 0 TTAB ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE IFT MMUPAG=1 DATA 0 SAVE AREA USER ECB ADDRESS DATA ECBTC2 MMU ECB ADDRESS XIF IFT DBCAS=2 DATA 0 BLOCK COUNTER DATA 0 SEQ. INDICATOR IFT MMUPAG=1 ECBTC2 EQU * DATA 0 DATA TCBUF2 DATA 0,0,0,0 TCBUF2 RES DVBLEN+1 XIF * EJECT DRTC01 * * * D W T C 0 1 * * DEVICE WORK TABLE FOR CASSETTE RECORDER 01 * * DWTC01 EQU * TABLE ENTRY DATA DWTC02 DWT NO. 2 DATA /8000 STATUS./8000 MEANS DEVICE READY DATA 0 ECB ADDRESS DATA 0 ORDER DATA TCAD POINTER TO ADDRESS BLOCK DATA 0 TTAB ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE IFT MMUPAG=1 DATA 0 SAVE AREA USER ECB ADDRESS DATA ECBTC1 MMU ECB ADDRESS XIF DWTBKC EQU *-DWTC01 BLOCK COUNTER DATA 0 SEKBYT EQU *-DWTC01 DATA 0 SEQ. INDICATOR * IFT MMUPAG=1 ECBTC1 EQU * DATA 0 DATA TCBUF1 DATA 0,0,0,0 TCBUF1 RES DVBLEN+1 XIF * REQLEN DATA 0 REQUESTED LENGTH SEQCHR DATA 0 SEQUENCE CHARACTER =REL 11.0 * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRTC01 REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0092 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0056}
0x0092…009c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0096}
0x009c…00c4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a0}
0x00c4…00ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…0100 Head {h00=0x002e, h01=0x0050, text=»* DRTC01 = DRIVER TAPE CASSETTE RECORDER«, t00=0x0000, t01=0x00d2}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012c}
0x0132…013c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…017c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0140}
0x017c…0186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…0190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…01d2 (1, 0, 400) Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS«, t00=0x0001, t01=0x0004}
0x01d2…01fc Head {h00=0x0026, h01=0x0050, text=»* CONNECTED TO CPU VIA CHCR-DCR «, t00=0x0001, t01=0x0046}
0x01fc…0206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0206…0248 Head {h00=0x003e, h01=0x0050, text=»* ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT«, t00=0x0001, t01=0x007a}
0x0248…0268 Head {h00=0x001c, h01=0x0050, text=»* AT REWIND AND UNLOAD«, t00=0x0001, t01=0x00bc}
0x0268…0272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00dc}
0x0272…02b0 Head {h00=0x003a, h01=0x0050, text=»* DATA IS RECORDED IN BLOCKS WITH LENGTHS FROM 2 TO «, t00=0x0001, t01=0x00e6}
0x02b0…02ca Head {h00=0x0016, h01=0x0050, text=»* 256 CHARACTERS«, t00=0x0001, t01=0x0124}
0x02ca…02d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…02ec Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0001, t01=0x0148}
0x02ec…02f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0160}
0x02f6…0300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016a}
0x0300…0338 Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0001, t01=0x0174}
0x0338…0342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0342…0368 Head {h00=0x0022, h01=0x0050, text=»* T C D A : ACTIVATION PART «, t00=0x0002, t01=0x0026}
0x0368…0372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004c}
0x0372…039a Head {h00=0x0024, h01=0x0050, text=»* I H T C : INTERRUPT HANDLER «, t00=0x0002, t01=0x0056}
0x039a…03a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007e}
0x03a4…03ce Head {h00=0x0026, h01=0x0050, text=»* R C O V E R : RECOVERY ROUTINE«, t00=0x0002, t01=0x0088}
0x03ce…03d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b2}
0x03d8…0406 Head {h00=0x002a, h01=0x0050, text=»* D W T C 0 1 : DEVICE WORK TABLE 01«, t00=0x0002, t01=0x00bc}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…043e Head {h00=0x002a, h01=0x0050, text=»* D W T C 0 2 : DEVICE WORK TABLE 02«, t00=0x0002, t01=0x00f4}
0x043e…0448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0122}
0x0448…0478 Head {h00=0x002c, h01=0x0050, text=»* AND O R D E R P R O C E S S O R S «, t00=0x0002, t01=0x012c}
0x0478…0482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015c}
0x0482…048c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0166}
0x048c…04ba Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x0170}
0x04ba…04c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000e}
0x04c4…04e6 Head {h00=0x001e, h01=0x0050, text=»* ORDER /00: TEST STATUS«, t00=0x0003, t01=0x0018}
0x04e6…0502 Head {h00=0x0018, h01=0x0050, text=»* /02: READ «, t00=0x0003, t01=0x003a}
0x0502…0522 Head {h00=0x001c, h01=0x0050, text=»* /05: WRITE «, t00=0x0003, t01=0x0056}
0x0522…0542 Head {h00=0x001c, h01=0x0050, text=»* /06: WRITE «, t00=0x0003, t01=0x0076}
0x0542…0568 Head {h00=0x0022, h01=0x0050, text=»* /22: WRITE TAPE MARK«, t00=0x0003, t01=0x0096}
0x0568…0586 Head {h00=0x001a, h01=0x0050, text=»* /26: LOCK«, t00=0x0003, t01=0x00bc}
0x0586…05a4 Head {h00=0x001a, h01=0x0050, text=»* /31: REWIND «, t00=0x0003, t01=0x00da}
0x05a4…05c6 Head {h00=0x001e, h01=0x0050, text=»* /33: REVERSE «, t00=0x0003, t01=0x00f8}
0x05c6…05e6 Head {h00=0x001c, h01=0x0050, text=»* /24: ERASE «, t00=0x0003, t01=0x011a}
0x05e6…0602 Head {h00=0x0018, h01=0x0050, text=»* /37: LOAD «, t00=0x0003, t01=0x013a}
0x0602…0620 Head {h00=0x001a, h01=0x0050, text=»* /38: UNLOAD «, t00=0x0003, t01=0x0156}
0x0620…062a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0174}
0x062a…0642 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0003, t01=0x017e}
0x0642…064c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064c…0656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0656…0686 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0004, t01=0x001c}
0x0686…0690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004c}
0x0690…06ae Head {h00=0x001a, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x0004, t01=0x0056}
0x06ae…06c6 Head {h00=0x0014, h01=0x0050, text=»* 2 BOT/EOT«, t00=0x0004, t01=0x0074}
0x06c6…06ea Head {h00=0x0020, h01=0x0050, text=»* 3 TAPE MARK DETECTED «, t00=0x0004, t01=0x008c}
0x06ea…070a Head {h00=0x001c, h01=0x0050, text=»* 6 WRITE PROTECTED«, t00=0x0004, t01=0x00b0}
0x070a…0722 Head {h00=0x0014, h01=0x0050, text=»* 7 B-SIDE «, t00=0x0004, t01=0x00d0}
0x0722…0752 Head {h00=0x002c, h01=0x0050, text=»* 9 REWIND TIME-OUT (+BOT MISSING) «, t00=0x0004, t01=0x00e8}
0x0752…0772 Head {h00=0x001c, h01=0x0050, text=»* 11 SEQUENCE ERROR «, t00=0x0004, t01=0x0118}
0x0772…0796 Head {h00=0x0020, h01=0x0050, text=»* -READ SEQUENCE ERROR«, t00=0x0004, t01=0x0138}
0x0796…07d8 Head {h00=0x003e, h01=0x0050, text=»* -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY «, t00=0x0004, t01=0x015c}
0x07d8…0812 Head {h00=0x0036, h01=0x0050, text=»* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED«, t00=0x0005, t01=0x000e}
0x0812…0842 Head {h00=0x002c, h01=0x0050, text=»* -POWER RECOVERY NOT SUCCESSFULL «, t00=0x0005, t01=0x0048}
0x0842…0864 Head {h00=0x001e, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x0005, t01=0x0078}
0x0864…0892 Head {h00=0x002a, h01=0x0050, text=»* 13 CRC ERRROR (+NO DATA/ERASED) «, t00=0x0005, t01=0x009a}
0x0892…08b4 Head {h00=0x001e, h01=0x0050, text=»* 14 THROUGHPUT ERROR «, t00=0x0005, t01=0x00c8}
0x08b4…08d2 Head {h00=0x001a, h01=0x0050, text=»* 15 NOT OPERABEL «, t00=0x0005, t01=0x00ea}
0x08d2…08dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0108}
0x08dc…08f4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0005, t01=0x0112}
0x08f4…08fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012a}
0x08fe…0908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0134}
0x0908…092e Head {h00=0x0022, h01=0x0050, text=»* NORMAL USAGE OF REGISTERS:«, t00=0x0005, t01=0x013e}
0x092e…0938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0164}
0x0938…095c Head {h00=0x0020, h01=0x0050, text=»* REGISTER A1: RETURN CODE«, t00=0x0005, t01=0x016e}
0x095c…0980 (6, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* A2: SST STATUS «, t00=0x0006, t01=0x0004}
0x0980…09ae Head {h00=0x002a, h01=0x0050, text=»* A3: DWT STATUS AFTER SST «, t00=0x0006, t01=0x0028}
0x09ae…09d4 Head {h00=0x0022, h01=0x0050, text=»* A4: RETRY COUNTER«, t00=0x0006, t01=0x0056}
0x09d4…0a12 Head {h00=0x003a, h01=0x0050, text=»* A5: SEQUENCE CHARACTER AFTER READ/WRITE «, t00=0x0006, t01=0x007c}
0x0a12…0a36 Head {h00=0x0020, h01=0x0050, text=»* A6: DWT ADDRESS«, t00=0x0006, t01=0x00ba}
0x0a36…0a60 Head {h00=0x0026, h01=0x0050, text=»* A8: SUBROUTINE STACK «, t00=0x0006, t01=0x00de}
0x0a60…0a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0108}
0x0a6a…0a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0112}
0x0a74…0a92 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0006, t01=0x011c}
0x0a92…0a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013a}
0x0a9c…0ada Head {h00=0x003a, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE«, t00=0x0006, t01=0x0144}
0x0ada…0af8 Head {h00=0x001a, h01=0x0050, text=»* REDUCED TO HANDLE:«, t00=0x0006, t01=0x0182}
0x0af8…0b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0010}
0x0b02…0b28 Head {h00=0x0022, h01=0x0050, text=»* -ONLY ONE CASSETTE RECORDER«, t00=0x0007, t01=0x001a}
0x0b28…0b5c Head {h00=0x0030, h01=0x0050, text=»* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED «, t00=0x0007, t01=0x0040}
0x0b5c…0b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0074}
0x0b66…0b7e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0007, t01=0x007e}
0x0b7e…0b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0096}
0x0b88…0b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a0}
0x0b92…0ba6 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x00aa}
0x0ba6…0bba Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x00be}
0x0bba…0bce Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x00d2}
0x0bce…0bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e6}
0x0bd8…0be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f0}
0x0be2…0c08 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHTC INTERRUPT ADDRESS «, t00=0x0007, t01=0x00fa}
0x0c08…0c3a Head {h00=0x002e, h01=0x0050, text=» ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01«, t00=0x0007, t01=0x0120}
0x0c3a…0c6c Head {h00=0x002e, h01=0x0050, text=» ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02«, t00=0x0007, t01=0x0152}
0x0c6c…0c94 Head {h00=0x0024, h01=0x0050, text=» ENTRY TCDRON POWER UP RECOVERY «, t00=0x0007, t01=0x0184}
0x0c94…0c9c Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x001c}
0x0c9c…0ca4 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0024}
0x0ca4…0cac Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x002c}
0x0cac…0cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0034}
0x0cb6…0cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cc0…0ce8 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x0048}
0x0ce8…0d10 Head {h00=0x0024, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0008, t01=0x0070}
0x0d10…0d38 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x0098}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d42…0d4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ca}
0x0d4c…0d76 Head {h00=0x0026, h01=0x0050, text=» EXTRN TDISP DISPATCHER MAIN ENTRY«, t00=0x0008, t01=0x00d4}
0x0d76…0dae Head {h00=0x0034, h01=0x0050, text=» EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE«, t00=0x0008, t01=0x00fe}
0x0dae…0dd6 Head {h00=0x0024, h01=0x0050, text=» EXTRN SWLXY SWITCH TO LEVEL XY «, t00=0x0008, t01=0x0136}
0x0dd6…0e08 Head {h00=0x002e, h01=0x0050, text=» EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN«, t00=0x0008, t01=0x015e}
0x0e08…0e38 Head {h00=0x002c, h01=0x0050, text=» EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE «, t00=0x0008, t01=0x0190}
0x0e38…0e6a Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND GO TO DISPATCHER VIA TENDIO «, t00=0x0009, t01=0x0030}
0x0e6a…0ea2 Head {h00=0x0034, h01=0x0050, text=» EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY«, t00=0x0009, t01=0x0062}
0x0ea2…0ed0 Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0009, t01=0x009a}
0x0ed0…0efe Head {h00=0x002a, h01=0x0050, text=» EXTRN INIFLG INIT FLAG AT PGM LOADING«, t00=0x0009, t01=0x00c8}
0x0efe…0f2a Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH IN ECB«, t00=0x0009, t01=0x00f6}
0x0f2a…0f56 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH IN ECB«, t00=0x0009, t01=0x0122}
0x0f56…0f7e Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD IN ECB«, t00=0x0009, t01=0x014e}
0x0f7e…0fac Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0009, t01=0x0176}
0x0fac…0fc4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000a, t01=0x0014}
0x0fc4…0fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002c}
0x0fce…0fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0036}
0x0fd8…0ff2 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000a, t01=0x0040}
0x0ff2…100c Head {h00=0x0016, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x000a, t01=0x005a}
0x100c…1026 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000a, t01=0x0074}
0x1026…1030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008e}
0x1030…103a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0098}
0x103a…1064 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTST DWT SOFTWARE STATUS: «, t00=0x000a, t01=0x00a2}
0x1064…1096 Head {h00=0x002e, h01=0x0050, text=»* BIT # 0 - DEVICE AND CONTROLLER READY «, t00=0x000a, t01=0x00cc}
0x1096…10ca Head {h00=0x0030, h01=0x0050, text=»* BIT #11 - TAPE MARK ENCOUNTERED ON LAST «, t00=0x000a, t01=0x00fe}
0x10ca…10fa Head {h00=0x002c, h01=0x0050, text=»* BIT #12 - REPOSITIONING AT RECOVERY «, t00=0x000a, t01=0x0132}
0x10fa…1120 Head {h00=0x0022, h01=0x0050, text=»* BIT #13 - WRITE PROTECTED «, t00=0x000a, t01=0x0162}
0x1120…113c Head {h00=0x0018, h01=0x0050, text=»* BIT #14 - A-SIDE«, t00=0x000a, t01=0x0188}
0x113c…116a Head {h00=0x002a, h01=0x0050, text=» BIT #15 - DEVICE LOCKED (OPERABLE) «, t00=0x000b, t01=0x0014}
0x116a…1188 Head {h00=0x001a, h01=0x0050, text=» EXTRN DWTOR DWT ORDER«, t00=0x000b, t01=0x0042}
0x1188…11ae Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTECB DWT ECB ADDRESS «, t00=0x000b, t01=0x0060}
0x11ae…11b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0086}
0x11b8…11c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0090}
0x11c2…11e2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x009a}
0x11e2…1202 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x00ba}
0x1202…1222 Head {h00=0x001c, h01=0x0050, text=»* STATUS MASKS *«, t00=0x000b, t01=0x00da}
0x1222…1242 Head {h00=0x001c, h01=0x0050, text=»* *«, t00=0x000b, t01=0x00fa}
0x1242…1262 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x011a}
0x1262…126c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x013a}
0x126c…1276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0144}
0x1276…1296 Head {h00=0x001c, h01=0x0050, text=»BUSY EQU /7FFF BUSY MASK«, t00=0x000b, t01=0x014e}
0x1296…12b8 Head {h00=0x001e, h01=0x0050, text=»FREE EQU /7FE0 UNLOAD MASK«, t00=0x000b, t01=0x016e}
0x12b8…12e2 Head {h00=0x0026, h01=0x0050, text=»NOTPMK EQU /FFEF NO TAPE MARK MASK«, t00=0x000b, t01=0x0190}
0x12e2…12fa Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000c, t01=0x002a}
0x12fa…1304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0042}
0x1304…1324 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000c, t01=0x004c}
0x1324…1344 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000c, t01=0x006c}
0x1344…1364 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000c, t01=0x008c}
0x1364…136e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ac}
0x136e…13b0 Head {h00=0x003e, h01=0x0050, text=»* THE DRIVER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE «, t00=0x000c, t01=0x00b6}
0x13b0…13d6 Head {h00=0x0022, h01=0x0050, text=»* RECORDER BY SETTING X:A=1 «, t00=0x000c, t01=0x00f8}
0x13d6…13e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011e}
0x13e0…13f2 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000c, t01=0x0128}
0x13f2…1408 Head {h00=0x0012, h01=0x0050, text=»DBCAS EQU X:A «, t00=0x000c, t01=0x013a}
0x1408…1412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0150}
0x1412…144c Head {h00=0x0036, h01=0x0050, text=»* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED«, t00=0x000c, t01=0x015a}
0x144c…1468 (13, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B=0«, t00=0x000d, t01=0x0004}
0x1468…1472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0020}
0x1472…1484 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000d, t01=0x002a}
0x1484…149a Head {h00=0x0012, h01=0x0050, text=»REVER EQU X:B «, t00=0x000d, t01=0x003c}
0x149a…14a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0052}
0x14a4…14d6 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000d, t01=0x005c}
0x14d6…1504 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000d, t01=0x008e}
0x1504…150e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00bc}
0x150e…1522 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000d, t01=0x00c6}
0x1522…152c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00da}
0x152c…1536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e4}
0x1536…1570 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000d, t01=0x00ee}
0x1570…15a2 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000d, t01=0x0128}
0x15a2…15ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015a}
0x15ac…15c0 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000d, t01=0x0164}
0x15c0…15ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0178}
0x15ca…15e6 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000d, t01=0x0182}
0x15e6…15f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000e}
0x15f0…1604 Head {h00=0x0010, h01=0x0050, text=»X:C EQU 129 «, t00=0x000e, t01=0x0018}
0x1604…161a Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:C«, t00=0x000e, t01=0x002c}
0x161a…1624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0042}
0x1624…1640 Head {h00=0x0018, h01=0x0050, text=»* MMU DEVICE INDEX«, t00=0x000e, t01=0x004c}
0x1640…164a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0068}
0x164a…165e Head {h00=0x0010, h01=0x0050, text=»DEVIND EQU 2«, t00=0x000e, t01=0x0072}
0x165e…1668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0086}
0x1668…1680 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000e, t01=0x0090}
0x1680…168a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a8}
0x168a…16ac Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS AND WORK AREAS«, t00=0x000e, t01=0x00b2}
0x16ac…16b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d4}
0x16b6…16ee Head {h00=0x0034, h01=0x0050, text=» DATA DVBLEN+DVBLEN DEVICE DEPENDENT BUFFER SIZE«, t00=0x000e, t01=0x00de}
0x16ee…1710 Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000e, t01=0x0116}
0x1710…1738 Head {h00=0x0024, h01=0x0050, text=»TCAD DATA TCDA ACTIVATION ENTRY «, t00=0x000e, t01=0x0138}
0x1738…175e Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x0160}
0x175e…177e Head {h00=0x001c, h01=0x0050, text=» RES 4 SUBROUTINE STACK «, t00=0x000e, t01=0x0186}
0x177e…1792 Head {h00=0x0010, h01=0x0050, text=»STB EQU *-2 «, t00=0x000f, t01=0x0016}
0x1792…179c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002a}
0x179c…17a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0034}
0x17a6…17ce Head {h00=0x0024, h01=0x0050, text=»TAB DATA /0031,/2237,/3802,/0506«, t00=0x000f, t01=0x003e}
0x17ce…17e2 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x000f, t01=0x0066}
0x17e2…17fc Head {h00=0x0016, h01=0x0050, text=» DATA /2633,/24FF «, t00=0x000f, t01=0x007a}
0x17fc…1808 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0094}
0x1808…181e Head {h00=0x0012, h01=0x0050, text=»TABL EQU *-TAB«, t00=0x000f, t01=0x00a0}
0x181e…1836 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000f, t01=0x00b6}
0x1836…1840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ce}
0x1840…184a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d8}
0x184a…186e Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000f, t01=0x00e2}
0x186e…1892 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL UNIT PARAMETERS * «, t00=0x000f, t01=0x0106}
0x1892…18b6 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000f, t01=0x012a}
0x18b6…18c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014e}
0x18c0…18ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0158}
0x18ca…18e4 Head {h00=0x0016, h01=0x0050, text=»* DEVICE ADDRESS:«, t00=0x000f, t01=0x0162}
0x18e4…18ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017c}
0x18ee…1904 Head {h00=0x0012, h01=0x0050, text=»CHCRDA EQU /0E«, t00=0x000f, t01=0x0186}
0x1904…190e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000c}
0x190e…1918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0016}
0x1918…192e Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0010, t01=0x0020}
0x192e…1944 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0010, t01=0x0036}
0x1944…195a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0010, t01=0x004c}
0x195a…1964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0062}
0x1964…196e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006c}
0x196e…1994 Head {h00=0x0022, h01=0x0050, text=»RTRIES EQU 3 MAX NO OF RETRIES«, t00=0x0010, t01=0x0076}
0x1994…199e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009c}
0x199e…19cc Head {h00=0x002a, h01=0x0050, text=»PSUBS EQU 5 POWER UP BACKSPACE NUMBER «, t00=0x0010, t01=0x00a6}
0x19cc…19d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d4}
0x19d6…19fe Head {h00=0x0024, h01=0x0050, text=»PREAD EQU 4 POWER UP READ NUMBER«, t00=0x0010, t01=0x00de}
0x19fe…1a08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0106}
0x1a08…1a42 Head {h00=0x0036, h01=0x0050, text=»PINT EQU 10 POWER UP RECOVERY BLOCK COUNT INTERVAL«, t00=0x0010, t01=0x0110}
0x1a42…1a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014a}
0x1a4c…1a60 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0010, t01=0x0154}
0x1a60…1a8e Head {h00=0x002a, h01=0x0050, text=»PERAS EQU 6 NO OF ERASE FOR ORDER /24 «, t00=0x0010, t01=0x0168}
0x1a8e…1a9a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0008}
0x1a9a…1ab2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0011, t01=0x0014}
0x1ab2…1abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002c}
0x1abc…1ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0036}
0x1ac6…1ada Head {h00=0x0010, h01=0x0050, text=»* T C D A «, t00=0x0011, t01=0x0040}
0x1ada…1ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0054}
0x1ae4…1b30 Head {h00=0x0048, h01=0x0050, text=»* ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING «, t00=0x0011, t01=0x005e}
0x1b30…1b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00aa}
0x1b3a…1b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b4}
0x1b44…1b56 Head {h00=0x000e, h01=0x0050, text=»TCDA EQU *«, t00=0x0011, t01=0x00be}
0x1b56…1b68 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0011, t01=0x00d0}
0x1b68…1b7e Head {h00=0x0012, h01=0x0050, text=» LDK A4,TABL-1«, t00=0x0011, t01=0x00e2}
0x1b7e…1b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f8}
0x1b88…1bbc Head {h00=0x0030, h01=0x0050, text=»TCDA10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER«, t00=0x0011, t01=0x0102}
0x1bbc…1bde Head {h00=0x001e, h01=0x0050, text=» RF(E) TCDA20 VALID ORDER «, t00=0x0011, t01=0x0136}
0x1bde…1bf0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0011, t01=0x0158}
0x1bf0…1c10 Head {h00=0x001c, h01=0x0050, text=» RB(NN) TCDA10 TRY NEXT «, t00=0x0011, t01=0x016a}
0x1c10…1c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018a}
0x1c1a…1c2e (18, 0, 400) Head {h00=0x0010, h01=0x0050, text=»TCDA15 EQU *«, t00=0x0012, t01=0x0004}
0x1c2e…1c50 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0012, t01=0x0018}
0x1c50…1c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003a}
0x1c5a…1c86 Head {h00=0x0028, h01=0x0050, text=»TCDA20 ADR A4,A4 DOUBLE TO GET INDEX«, t00=0x0012, t01=0x0044}
0x1c86…1ca6 Head {h00=0x001c, h01=0x0050, text=» ST A4,TCDAX SAVE INDEX «, t00=0x0012, t01=0x0070}
0x1ca6…1cd2 Head {h00=0x0028, h01=0x0050, text=» LD A5,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0012, t01=0x0090}
0x1cd2…1cfe Head {h00=0x0028, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQUENCE COUNTER ? «, t00=0x0012, t01=0x00bc}
0x1cfe…1d18 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA21 NO «, t00=0x0012, t01=0x00e8}
0x1d18…1d4c Head {h00=0x0030, h01=0x0050, text=» ADK A5,1 COMPENSATE FOR SEQUENCE CHARACTER «, t00=0x0012, t01=0x0102}
0x1d4c…1d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0136}
0x1d56…1d6a Head {h00=0x0010, h01=0x0050, text=»TCDA21 EQU *«, t00=0x0012, t01=0x0140}
0x1d6a…1d9c Head {h00=0x002e, h01=0x0050, text=» LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS «, t00=0x0012, t01=0x0154}
0x1d9c…1dae Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0012, t01=0x0186}
0x1dae…1dc8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDR10 YES«, t00=0x0013, t01=0x0008}
0x1dc8…1dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0022}
0x1dd2…1de4 Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0013, t01=0x002c}
0x1de4…1e16 Head {h00=0x002e, h01=0x0050, text=» NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE «, t00=0x0013, t01=0x003e}
0x1e16…1e4a Head {h00=0x0030, h01=0x0050, text=» ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES «, t00=0x0013, t01=0x0070}
0x1e4a…1e64 Head {h00=0x0016, h01=0x0050, text=» SUK A7,/37 LOAD ?«, t00=0x0013, t01=0x00a4}
0x1e64…1e7e Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA22 NO «, t00=0x0013, t01=0x00be}
0x1e7e…1ea6 Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBCW,A8 GET CONTROL WORD«, t00=0x0013, t01=0x00d8}
0x1ea6…1eb8 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0013, t01=0x0100}
0x1eb8…1eee Head {h00=0x0032, h01=0x0050, text=» ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT «, t00=0x0013, t01=0x0112}
0x1eee…1ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0148}
0x1ef8…1f24 Head {h00=0x0028, h01=0x0050, text=»TCDA22 LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0013, t01=0x0152}
0x1f24…1f58 Head {h00=0x0030, h01=0x0050, text=» ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES «, t00=0x0013, t01=0x017e}
0x1f58…1f6a Head {h00=0x000e, h01=0x0050, text=» SUK A4,14«, t00=0x0014, t01=0x0022}
0x1f6a…1f86 Head {h00=0x0018, h01=0x0050, text=» RF(Z) TCDA23 WRITE «, t00=0x0014, t01=0x0034}
0x1f86…1f98 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0014, t01=0x0050}
0x1f98…1fb8 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) TCDA25 NOT WRITE«, t00=0x0014, t01=0x0062}
0x1fb8…1fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0082}
0x1fc2…1ff0 Head {h00=0x002a, h01=0x0050, text=»TCDA23 ADK A5,3 CHECK REQUESTED LENGTH«, t00=0x0014, t01=0x008c}
0x1ff0…201c Head {h00=0x0028, h01=0x0050, text=» RB(P) TCDA15 LESS THAN 2 CHARACTERS«, t00=0x0014, t01=0x00ba}
0x201c…2030 Head {h00=0x0010, h01=0x0050, text=» ADK A5,254 «, t00=0x0014, t01=0x00e6}
0x2030…205e Head {h00=0x002a, h01=0x0050, text=» RB(N) TCDA15 MORE THAN 256 CHARACTERS«, t00=0x0014, t01=0x00fa}
0x205e…2074 Head {h00=0x0012, h01=0x0050, text=»* =REL 11.0 «, t00=0x0014, t01=0x0128}
0x2074…209c Head {h00=0x0024, h01=0x0050, text=» LD A4,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x0014, t01=0x013e}
0x209c…20b6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDA25 NO «, t00=0x0014, t01=0x0166}
0x20b6…20e6 Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER «, t00=0x0014, t01=0x0180}
0x20e6…210e Head {h00=0x0024, h01=0x0050, text=» ST A2,SEQCHR SAVE IT =REL 11.0 «, t00=0x0015, t01=0x0020}
0x210e…2118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0048}
0x2118…2144 Head {h00=0x0028, h01=0x0050, text=»TCDA25 ST A6,TCDADT SAVE ACTIVE DWT «, t00=0x0015, t01=0x0052}
0x2144…215c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0015, t01=0x007e}
0x215c…2166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0096}
0x2166…2170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x2170…218a Head {h00=0x0016, h01=0x0050, text=»* SELECT RECORDER «, t00=0x0015, t01=0x00aa}
0x218a…2194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c4}
0x2194…219e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ce}
0x219e…21c8 Head {h00=0x0026, h01=0x0050, text=»TCDA30 LDKL A8,STB LOAD STACK BASE«, t00=0x0015, t01=0x00d8}
0x21c8…21ec Head {h00=0x0020, h01=0x0050, text=» CF A8,SELECT SELECT CASSETT«, t00=0x0015, t01=0x0102}
0x21ec…2214 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x0015, t01=0x0126}
0x2214…2232 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 SAVE STATUS«, t00=0x0015, t01=0x014e}
0x2232…2262 Head {h00=0x002c, h01=0x0050, text=» LDK A4,RTRIES PRESET NUMBER OF RETRIES «, t00=0x0015, t01=0x016c}
0x2262…2288 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET FUNCTION INDEX «, t00=0x0016, t01=0x000c}
0x2288…22ae Head {h00=0x0022, h01=0x0050, text=»TCDAX EQU *-2 **ORDER INDEX** «, t00=0x0016, t01=0x0032}
0x22ae…22d8 Head {h00=0x0026, h01=0x0050, text=» ABI TCDFUN,A2 BRANCH TO FUNCTION «, t00=0x0016, t01=0x0058}
0x22d8…2318 Head {h00=0x003c, h01=0x0050, text=»TCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE«, t00=0x0016, t01=0x0082}
0x2318…232c Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0016, t01=0x00c2}
0x232c…234e Head {h00=0x001e, h01=0x0050, text=» DATA OLOCK,REVERS,ERTAPE «, t00=0x0016, t01=0x00d6}
0x234e…235a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00f8}
0x235a…2364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0104}
0x2364…237c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0016, t01=0x010e}
0x237c…2386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0126}
0x2386…2390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0130}
0x2390…23b2 Head {h00=0x001e, h01=0x0050, text=»* RECOVERY AFTER POWER ON «, t00=0x0016, t01=0x013a}
0x23b2…23bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015c}
0x23bc…23c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0166}
0x23c6…23da Head {h00=0x0010, h01=0x0050, text=»TCDRON EQU *«, t00=0x0016, t01=0x0170}
0x23da…23f0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0016, t01=0x0184}
0x23f0…241a Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0017, t01=0x000a}
0x241a…2426 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0034}
0x2426…2430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0040}
0x2430…2446 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0017, t01=0x004a}
0x2446…246c Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0017, t01=0x0060}
0x246c…2478 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0086}
0x2478…2482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0092}
0x2482…24ac Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG CHECK IF PGM LOADING«, t00=0x0017, t01=0x009c}
0x24ac…24d4 Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) TDISP YES SKIP RECOVERY«, t00=0x0017, t01=0x00c6}
0x24d4…24f8 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,STB LOAD STACK BASE«, t00=0x0017, t01=0x00ee}
0x24f8…251a Head {h00=0x001e, h01=0x0050, text=» LDKL A6,DWTC01 FIRST DWT «, t00=0x0017, t01=0x0112}
0x251a…2538 Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0017, t01=0x0134}
0x2538…254c Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0017, t01=0x0152}
0x254c…256e Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x0017, t01=0x0166}
0x256e…258c Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0017, t01=0x0188}
0x258c…2598 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0016}
0x2598…25ba Head {h00=0x001e, h01=0x0050, text=» LDKL A4,0 GET ACTIVE DWT «, t00=0x0018, t01=0x0022}
0x25ba…25ea Head {h00=0x002c, h01=0x0050, text=»TCDADT EQU *-2 **ACTIVATED DWT ADDRESS**«, t00=0x0018, t01=0x0044}
0x25ea…2612 Head {h00=0x0024, h01=0x0050, text=» RF(Z) ENDIO NO REQUEST GOING ON«, t00=0x0018, t01=0x0074}
0x2612…263a Head {h00=0x0024, h01=0x0050, text=» LDR A6,A4 PUT DWT ADDRESS IN A6«, t00=0x0018, t01=0x009c}
0x263a…2660 Head {h00=0x0022, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQ. COUNTING«, t00=0x0018, t01=0x00c4}
0x2660…268c Head {h00=0x0028, h01=0x0050, text=» RB(Z) TCDA30 YES; REACTIVATE ORDER «, t00=0x0018, t01=0x00ea}
0x268c…2696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0116}
0x2696…26c4 Head {h00=0x002a, h01=0x0050, text=»TCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR«, t00=0x0018, t01=0x0120}
0x26c4…26dc Head {h00=0x0014, h01=0x0050, text=» ST A3,SEKBYT,A6«, t00=0x0018, t01=0x014e}
0x26dc…270c Head {h00=0x002c, h01=0x0050, text=» ORK A1,/10 IND SEQUENCE ERROR, BIT #11 «, t00=0x0018, t01=0x0166}
0x270c…271e Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0019, t01=0x0008}
0x271e…2728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001a}
0x2728…2740 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0019, t01=0x0024}
0x2740…274a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x003c}
0x274a…275e Head {h00=0x0010, h01=0x0050, text=»* R E A D «, t00=0x0019, t01=0x0046}
0x275e…2768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x005a}
0x2768…278c Head {h00=0x0020, h01=0x0050, text=»READ CF A8,READR READ RECORD«, t00=0x0019, t01=0x0064}
0x278c…27ae Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0019, t01=0x0088}
0x27ae…27c0 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0019, t01=0x00aa}
0x27c0…27d4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x0019, t01=0x00bc}
0x27d4…27f4 Head {h00=0x001c, h01=0x0050, text=» RF(Z) READ20 STATUS OK «, t00=0x0019, t01=0x00d0}
0x27f4…27fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f0}
0x27fe…2828 Head {h00=0x0026, h01=0x0050, text=»READ15 SUK A4,1 RECOVERABLE ERROR «, t00=0x0019, t01=0x00fa}
0x2828…284c Head {h00=0x0020, h01=0x0050, text=» RF(Z) READ20 3 TRIALS DONE «, t00=0x0019, t01=0x0124}
0x284c…2874 Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x0019, t01=0x0148}
0x2874…2890 Head {h00=0x0018, h01=0x0050, text=» RB READ READ AGAIN«, t00=0x0019, t01=0x0170}
0x2890…289a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x018c}
0x289a…28b2 Head {h00=0x0014, h01=0x0050, text=»READ20 LDR A2,A1«, t00=0x001a, t01=0x0008}
0x28b2…28d6 Head {h00=0x0020, h01=0x0050, text=» SLL A2,3 CHECK IF TAPE MARK«, t00=0x001a, t01=0x0020}
0x28d6…28fa Head {h00=0x0020, h01=0x0050, text=» RF(NN) READ30 NOT TAPE MARK«, t00=0x001a, t01=0x0044}
0x28fa…2904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0068}
0x2904…2930 Head {h00=0x0028, h01=0x0050, text=»READ25 ORK A3,/10 INDICATE TAPE MARK«, t00=0x001a, t01=0x0072}
0x2930…2958 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 RESET EFFECTIVE LENGTH«, t00=0x001a, t01=0x009e}
0x2958…296c Head {h00=0x0010, h01=0x0050, text=» RF READ35 «, t00=0x001a, t01=0x00c6}
0x296c…2976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00da}
0x2976…298e Head {h00=0x0014, h01=0x0050, text=»READ30 LDR A2,A1«, t00=0x001a, t01=0x00e4}
0x298e…29b6 Head {h00=0x0024, h01=0x0050, text=» LDKL A7,0 GET EFFECTIVE LENGTH «, t00=0x001a, t01=0x00fc}
0x29b6…29e2 Head {h00=0x0028, h01=0x0050, text=»EFFLEN EQU *-2 **EFFECTIVE LENGTH** «, t00=0x001a, t01=0x0124}
0x29e2…2a06 Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/801 NO DATA,NOT OP«, t00=0x001a, t01=0x0150}
0x2a06…2a1c Head {h00=0x0012, h01=0x0050, text=» RF(NZ) READ32«, t00=0x001a, t01=0x0174}
0x2a1c…2a2e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x001a, t01=0x018a}
0x2a2e…2a54 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) READ32 NOT EQUAL ZERO «, t00=0x001b, t01=0x000c}
0x2a54…2a78 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 THIRD TRIAL DONE «, t00=0x001b, t01=0x0032}
0x2a78…2aa8 Head {h00=0x002c, h01=0x0050, text=» RB(NZ) READ15 NO; READ SAME BLOCK AGAIN«, t00=0x001b, t01=0x0056}
0x2aa8…2ad2 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 SET NO OF RETRIES TO ONE«, t00=0x001b, t01=0x0086}
0x2ad2…2af2 Head {h00=0x001c, h01=0x0050, text=» RB READ TRY NEXT BLOCK«, t00=0x001b, t01=0x00b0}
0x2af2…2afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d0}
0x2afc…2b10 Head {h00=0x0010, h01=0x0050, text=»READ32 EQU *«, t00=0x001b, t01=0x00da}
0x2b10…2b36 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,NOTPMK NOT TAPE MARK «, t00=0x001b, t01=0x00ee}
0x2b36…2b5e Head {h00=0x0024, h01=0x0050, text=» LD A2,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x001b, t01=0x0114}
0x2b5e…2b78 Head {h00=0x0016, h01=0x0050, text=» RF(NE) READ35 NO «, t00=0x001b, t01=0x013c}
0x2b78…2ba8 Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 DECREMENT EFF. LENGTH COUNTER «, t00=0x001b, t01=0x0156}
0x2ba8…2bda Head {h00=0x002e, h01=0x0050, text=» CC A5,DWTBKC+1,A6 CHECK SEQUENCE COUNTER «, t00=0x001b, t01=0x0186}
0x2bda…2bf2 Head {h00=0x0014, h01=0x0050, text=» RF(E) READ35 OK«, t00=0x001c, t01=0x0028}
0x2bf2…2c14 Head {h00=0x001e, h01=0x0050, text=» ORK A1,/10 SEQUENCE ERROR«, t00=0x001c, t01=0x0040}
0x2c14…2c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0062}
0x2c1e…2c54 Head {h00=0x0032, h01=0x0050, text=»READ35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER«, t00=0x001c, t01=0x006c}
0x2c54…2c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a2}
0x2c5e…2c8c Head {h00=0x002a, h01=0x0050, text=»READ40 LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x001c, t01=0x00ac}
0x2c8c…2cba Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH «, t00=0x001c, t01=0x00da}
0x2cba…2cd0 Head {h00=0x0012, h01=0x0050, text=» LDK A2,RTRIES«, t00=0x001c, t01=0x0108}
0x2cd0…2d02 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 GET NUMBER OF RETRIES PERFORMED«, t00=0x001c, t01=0x011e}
0x2d02…2d32 Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBCW,A8 SAVE IT IN CONTROL WORD «, t00=0x001c, t01=0x0150}
0x2d32…2d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0180}
0x2d3c…2d50 Head {h00=0x0010, h01=0x0050, text=»READ50 EQU *«, t00=0x001c, t01=0x018a}
0x2d50…2d74 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTST,A6 SAVE STATUS «, t00=0x001d, t01=0x000e}
0x2d74…2d8c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001d, t01=0x0032}
0x2d8c…2d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004a}
0x2d96…2da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0054}
0x2da0…2dbe Head {h00=0x001a, h01=0x0050, text=»* END OF I/O OPERATION«, t00=0x001d, t01=0x005e}
0x2dbe…2dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007c}
0x2dc8…2dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0086}
0x2dd2…2de6 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x001d, t01=0x0090}
0x2de6…2e12 Head {h00=0x0028, h01=0x0050, text=» CM TCDADT INDICATE NONE ACTIVE DWT «, t00=0x001d, t01=0x00a4}
0x2e12…2e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d0}
0x2e1c…2e38 Head {h00=0x0018, h01=0x0050, text=»* MODIFY RETURN CODE«, t00=0x001d, t01=0x00da}
0x2e38…2e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f6}
0x2e42…2e6c Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/BFFF SKIP BIT 1 (LEADER)«, t00=0x001d, t01=0x0100}
0x2e6c…2e8c Head {h00=0x001c, h01=0x0050, text=» RF(Z) ENDIO5 NO ERRORS «, t00=0x001d, t01=0x012a}
0x2e8c…2ea2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/2000«, t00=0x001d, t01=0x014a}
0x2ea2…2eb4 Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001d, t01=0x0160}
0x2eb4…2eca Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENDIO2 «, t00=0x001d, t01=0x0172}
0x2eca…2ee8 Head {h00=0x001a, h01=0x0050, text=» XRR A1,A2 RESET BIT 2«, t00=0x001d, t01=0x0188}
0x2ee8…2f0e Head {h00=0x0022, h01=0x0050, text=» ORK A1,/40 SET BIT 9 INSTEAD «, t00=0x001e, t01=0x0016}
0x2f0e…2f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x003c}
0x2f18…2f2c Head {h00=0x0010, h01=0x0050, text=»ENDIO2 EQU *«, t00=0x001e, t01=0x0046}
0x2f2c…2f3e Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x001e, t01=0x005a}
0x2f3e…2f50 Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001e, t01=0x006c}
0x2f50…2f66 Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENDIO3 «, t00=0x001e, t01=0x007e}
0x2f66…2f84 Head {h00=0x001a, h01=0x0050, text=» XRR A1,A2 RESET BIT 4«, t00=0x001e, t01=0x0094}
0x2f84…2fa8 Head {h00=0x0020, h01=0x0050, text=» ORK A1,4 SET BIT 13 INSTEAD«, t00=0x001e, t01=0x00b2}
0x2fa8…2fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d6}
0x2fb2…2fc6 Head {h00=0x0010, h01=0x0050, text=»ENDIO3 EQU *«, t00=0x001e, t01=0x00e0}
0x2fc6…2fd8 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x001e, t01=0x00f4}
0x2fd8…2fea Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001e, t01=0x0106}
0x2fea…3000 Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENDIO4 «, t00=0x001e, t01=0x0118}
0x3000…301e Head {h00=0x001a, h01=0x0050, text=» XRR A1,A2 RESET BIT 5«, t00=0x001e, t01=0x012e}
0x301e…3046 Head {h00=0x0024, h01=0x0050, text=» ORKL A1,/2000 SET BIT 2 INSTEAD«, t00=0x001e, t01=0x014c}
0x3046…3050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0174}
0x3050…3068 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001e, t01=0x017e}
0x3068…3072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0008}
0x3072…307c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0012}
0x307c…3090 Head {h00=0x0010, h01=0x0050, text=»ENDIO4 EQU *«, t00=0x001f, t01=0x001c}
0x3090…30a2 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x001f, t01=0x0030}
0x30a2…30b4 Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001f, t01=0x0042}
0x30b4…30de Head {h00=0x0026, h01=0x0050, text=» RF(Z) ENDIO5 NOT WRITE PROTECTED «, t00=0x001f, t01=0x0054}
0x30de…3100 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 ORDER CODE«, t00=0x001f, t01=0x007e}
0x3100…3114 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x001f, t01=0x00a0}
0x3114…3128 Head {h00=0x0010, h01=0x0050, text=» SUK A7,/05 «, t00=0x001f, t01=0x00b4}
0x3128…314c Head {h00=0x0020, h01=0x0050, text=» RF(N) ENDIO5 NO WRITE ORDER«, t00=0x001f, t01=0x00c8}
0x314c…3164 Head {h00=0x0014, h01=0x0050, text=» SUK A7,/24-/05 «, t00=0x001f, t01=0x00ec}
0x3164…3188 Head {h00=0x0020, h01=0x0050, text=» RF(P) ENDIO5 NO WRITE ORDER«, t00=0x001f, t01=0x0104}
0x3188…31a6 Head {h00=0x001a, h01=0x0050, text=» ORK A1,/40 SET BIT 9 «, t00=0x001f, t01=0x0128}
0x31a6…31b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0146}
0x31b0…31c4 Head {h00=0x0010, h01=0x0050, text=»ENDIO5 EQU *«, t00=0x001f, t01=0x0150}
0x31c4…31d8 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x001f, t01=0x0164}
0x31d8…3200 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x001f, t01=0x0178}
0x3200…3222 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x0020, t01=0x0010}
0x3222…3250 Head {h00=0x002a, h01=0x0050, text=» CF A15,TENDIO PERFORM TENDIO FOR THIS«, t00=0x0020, t01=0x0032}
0x3250…3272 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET FIRST DWT «, t00=0x0020, t01=0x0060}
0x3272…327e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0082}
0x327e…32a6 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x0020, t01=0x008e}
0x32a6…32d6 Head {h00=0x002c, h01=0x0050, text=» ABL DISEND GO TO DISPATCHER VIA TENDIO «, t00=0x0020, t01=0x00b6}
0x32d6…32e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e6}
0x32e0…32f8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0020, t01=0x00f0}
0x32f8…3302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0108}
0x3302…330c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0112}
0x330c…3328 Head {h00=0x0018, h01=0x0050, text=»* WRITE TAPE MARK «, t00=0x0020, t01=0x011c}
0x3328…3332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0138}
0x3332…3348 Head {h00=0x0012, h01=0x0050, text=»TM LDKL A3,-1 «, t00=0x0020, t01=0x0142}
0x3348…335e Head {h00=0x0012, h01=0x0050, text=» ST A3,HELPME «, t00=0x0020, t01=0x0158}
0x335e…3368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016e}
0x3368…337e Head {h00=0x0012, h01=0x0050, text=»* W R I T E «, t00=0x0020, t01=0x0178}
0x337e…3388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x018e}
0x3388…33a4 Head {h00=0x0018, h01=0x0050, text=»* WRITE ONE BLOCK «, t00=0x0021, t01=0x0008}
0x33a4…33ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0024}
0x33ae…33b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x002e}
0x33b8…33e8 Head {h00=0x002c, h01=0x0050, text=»WRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER «, t00=0x0021, t01=0x0038}
0x33e8…340e Head {h00=0x0022, h01=0x0050, text=» RF(NZ) WRIT10 NOT FIRST BLOCK«, t00=0x0021, t01=0x0068}
0x340e…3438 Head {h00=0x0026, h01=0x0050, text=» CF A8,ERASE MAKE ONE BLANK BLOCK «, t00=0x0021, t01=0x008e}
0x3438…3466 Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK«, t00=0x0021, t01=0x00b8}
0x3466…3470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e6}
0x3470…3498 Head {h00=0x0024, h01=0x0050, text=»WRIT10 CF A8,WRITER WRITE RECORD«, t00=0x0021, t01=0x00f0}
0x3498…34ba Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT-BIT«, t00=0x0021, t01=0x0118}
0x34ba…34cc Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0021, t01=0x013a}
0x34cc…34e0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x0021, t01=0x014c}
0x34e0…3500 Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRIT30 STATUS OK «, t00=0x0021, t01=0x0160}
0x3500…350a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0180}
0x350a…353a Head {h00=0x002c, h01=0x0050, text=»WRIT12 ST A4,WRITA4 STORE RETRY COUNTER «, t00=0x0021, t01=0x018a}
0x353a…3552 Head {h00=0x0014, h01=0x0050, text=» LD A2,SEKBYT,A6«, t00=0x0022, t01=0x002a}
0x3552…3576 Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRIT15 SEQ. COUNTING «, t00=0x0022, t01=0x0042}
0x3576…3580 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0066}
0x3580…3598 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0022, t01=0x0070}
0x3598…35a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0088}
0x35a2…35ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0092}
0x35ac…35d4 Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x0022, t01=0x009c}
0x35d4…35f0 Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ONE ERASE «, t00=0x0022, t01=0x00c4}
0x35f0…3602 Head {h00=0x000e, h01=0x0050, text=» RF WRIT20«, t00=0x0022, t01=0x00e0}
0x3602…360c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f2}
0x360c…3634 Head {h00=0x0024, h01=0x0050, text=»WRIT15 CF A8,REPOS POSITION TAPE«, t00=0x0022, t01=0x00fc}
0x3634…365e Head {h00=0x0026, h01=0x0050, text=» CM SEKBYT,A6 RESET SEQ. INDICATOR«, t00=0x0022, t01=0x0124}
0x365e…367e Head {h00=0x001c, h01=0x0050, text=» LD A4,WRITA4 GET NO ...«, t00=0x0022, t01=0x014e}
0x367e…3690 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0022, t01=0x016e}
0x3690…36ba Head {h00=0x0026, h01=0x0050, text=» RF(NZ) WRIT40 POSITIONING NOT OK «, t00=0x0022, t01=0x0180}
0x36ba…36de Head {h00=0x0020, h01=0x0050, text=» SUK A4,RTRIES ... OF ERASE «, t00=0x0023, t01=0x001a}
0x36de…36e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x003e}
0x36e8…3708 Head {h00=0x001c, h01=0x0050, text=»WRIT20 CF A8,ERASE ERASE«, t00=0x0023, t01=0x0048}
0x3708…3724 Head {h00=0x0018, h01=0x0050, text=» ORR A1,A2 SAVE EOT «, t00=0x0023, t01=0x0068}
0x3724…3742 Head {h00=0x001a, h01=0x0050, text=» ADK A4,1 COUNT ERASE «, t00=0x0023, t01=0x0084}
0x3742…3762 Head {h00=0x001c, h01=0x0050, text=» RB(NG) WRIT20 NOT READY«, t00=0x0023, t01=0x00a2}
0x3762…3786 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,0 GET RETRY COUNTER«, t00=0x0023, t01=0x00c2}
0x3786…37ae Head {h00=0x0024, h01=0x0050, text=»WRITA4 EQU *-2 **RETRY COUNTER**«, t00=0x0023, t01=0x00e6}
0x37ae…37c0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x010e}
0x37c0…37e0 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) WRIT10 TRY AGAIN«, t00=0x0023, t01=0x0120}
0x37e0…3812 Head {h00=0x002e, h01=0x0050, text=» ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 «, t00=0x0023, t01=0x0140}
0x3812…382c Head {h00=0x0016, h01=0x0050, text=» RF WRIT50 GIVE UP«, t00=0x0023, t01=0x0172}
0x382c…3836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x018c}
0x3836…384e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0024, t01=0x0008}
0x384e…3858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0020}
0x3858…3862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002a}
0x3862…3886 Head {h00=0x0020, h01=0x0050, text=»WRIT30 LD A2,TCDAX GET ORDER«, t00=0x0024, t01=0x0034}
0x3886…38aa Head {h00=0x0020, h01=0x0050, text=» SUK A2,4 TAPE MARK WRITTEN?«, t00=0x0024, t01=0x0058}
0x38aa…38c4 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) READ30 NO «, t00=0x0024, t01=0x007c}
0x38c4…38e0 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A1 CHECK IF «, t00=0x0024, t01=0x0096}
0x38e0…38fe Head {h00=0x001a, h01=0x0050, text=» SLL A2,3 TAPE MARK OK«, t00=0x0024, t01=0x00b2}
0x38fe…3918 Head {h00=0x0016, h01=0x0050, text=» ABL(N) READ25 YES«, t00=0x0024, t01=0x00d0}
0x3918…392e Head {h00=0x0012, h01=0x0050, text=» RB WRIT12 NO «, t00=0x0024, t01=0x00ea}
0x392e…3938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0100}
0x3938…3976 Head {h00=0x003a, h01=0x0050, text=»WRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR «, t00=0x0024, t01=0x010a}
0x3976…3980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0148}
0x3980…39b0 Head {h00=0x002c, h01=0x0050, text=»WRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH«, t00=0x0024, t01=0x0152}
0x39b0…39c2 Head {h00=0x000e, h01=0x0050, text=» RB READ40«, t00=0x0024, t01=0x0182}
0x39c2…39cc (37, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0004}
0x39cc…39e4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0025, t01=0x000e}
0x39e4…39ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0026}
0x39ee…39f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0030}
0x39f8…3a0c Head {h00=0x0010, h01=0x0050, text=»* L O A D «, t00=0x0025, t01=0x003a}
0x3a0c…3a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x004e}
0x3a16…3a30 Head {h00=0x0016, h01=0x0050, text=»* LOAD CASSETTE «, t00=0x0025, t01=0x0058}
0x3a30…3a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0072}
0x3a3a…3a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x007c}
0x3a44…3a6a Head {h00=0x0022, h01=0x0050, text=»LOAD CF A8,LOCK LOCK CASSETTE «, t00=0x0025, t01=0x0086}
0x3a6a…3a90 Head {h00=0x0022, h01=0x0050, text=» RF(Z) REWIND CASSETTE LOCKED «, t00=0x0025, t01=0x00ac}
0x3a90…3ab4 Head {h00=0x0020, h01=0x0050, text=»LOAD10 LDR A1,A2 NO CASSETTE«, t00=0x0025, t01=0x00d2}
0x3ab4…3ac6 Head {h00=0x000e, h01=0x0050, text=» RB READ50«, t00=0x0025, t01=0x00f6}
0x3ac6…3ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0108}
0x3ad0…3ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0112}
0x3ada…3af2 Head {h00=0x0014, h01=0x0050, text=»* R E W I N D «, t00=0x0025, t01=0x011c}
0x3af2…3afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0134}
0x3afc…3b14 Head {h00=0x0014, h01=0x0050, text=»* REWIND TAPE «, t00=0x0025, t01=0x013e}
0x3b14…3b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0156}
0x3b1e…3b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0160}
0x3b28…3b58 Head {h00=0x002c, h01=0x0050, text=»REWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER «, t00=0x0025, t01=0x016a}
0x3b58…3b84 Head {h00=0x0028, h01=0x0050, text=» CF A8,SBOT SEARCH BEGINNING OF TAPE«, t00=0x0026, t01=0x000a}
0x3b84…3b98 Head {h00=0x0010, h01=0x0050, text=»REW010 EQU *«, t00=0x0026, t01=0x0036}
0x3b98…3baa Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0026, t01=0x004a}
0x3baa…3bbc Head {h00=0x000e, h01=0x0050, text=» SRL A1,7 «, t00=0x0026, t01=0x005c}
0x3bbc…3bce Head {h00=0x000e, h01=0x0050, text=» ANK A1,6 «, t00=0x0026, t01=0x006e}
0x3bce…3bee Head {h00=0x001c, h01=0x0050, text=» ORK A3,1 PREPARE STATUS«, t00=0x0026, t01=0x0080}
0x3bee…3c16 Head {h00=0x0024, h01=0x0050, text=» ORR A3,A1 AND FORM STATUS WORD «, t00=0x0026, t01=0x00a0}
0x3c16…3c28 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0026, t01=0x00c8}
0x3c28…3c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00da}
0x3c32…3c4a Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0026, t01=0x00e4}
0x3c4a…3c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00fc}
0x3c54…3c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0106}
0x3c5e…3c76 Head {h00=0x0014, h01=0x0050, text=»* U N L O A D «, t00=0x0026, t01=0x0110}
0x3c76…3c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0128}
0x3c80…3c9c Head {h00=0x0018, h01=0x0050, text=»* UNLOAD CASSETTE «, t00=0x0026, t01=0x0132}
0x3c9c…3ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x014e}
0x3ca6…3cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0158}
0x3cb0…3cc4 Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0026, t01=0x0162}
0x3cc4…3cda Head {h00=0x0012, h01=0x0050, text=» LDKL A3,FREE «, t00=0x0026, t01=0x0176}
0x3cda…3d00 Head {h00=0x0022, h01=0x0050, text=» ANS A3,DWTST,A6 RESET STATUS «, t00=0x0026, t01=0x018c}
0x3d00…3d24 Head {h00=0x0020, h01=0x0050, text=» CF A8,UNLD UNLOAD CASSETTE «, t00=0x0027, t01=0x0022}
0x3d24…3d4e Head {h00=0x0026, h01=0x0050, text=»UNLO10 LDR A1,A2 SAVE RETURN CODE «, t00=0x0027, t01=0x0046}
0x3d4e…3d70 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/FFFE SKIP BIT 15«, t00=0x0027, t01=0x0070}
0x3d70…3d82 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x0027, t01=0x0092}
0x3d82…3d96 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0027, t01=0x00a4}
0x3d96…3da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b8}
0x3da0…3daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c2}
0x3daa…3dc2 Head {h00=0x0014, h01=0x0050, text=»* R E V E R S «, t00=0x0027, t01=0x00cc}
0x3dc2…3dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00e4}
0x3dcc…3dec Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x0027, t01=0x00ee}
0x3dec…3df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x010e}
0x3df6…3e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0118}
0x3e00…3e24 Head {h00=0x0020, h01=0x0050, text=»REVERS CF A8,BKSP BACKSPACE «, t00=0x0027, t01=0x0122}
0x3e24…3e4c Head {h00=0x0024, h01=0x0050, text=» LDKL A4,-1 DECREMENT BLOCK SEQ.«, t00=0x0027, t01=0x0146}
0x3e4c…3e74 Head {h00=0x0024, h01=0x0050, text=» ADS A4,DWTBKC,A6 COUNTER BY ONE«, t00=0x0027, t01=0x016e}
0x3e74…3e86 Head {h00=0x000e, h01=0x0050, text=» RB UNLO10«, t00=0x0028, t01=0x0008}
0x3e86…3e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x001a}
0x3e90…3ea8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0028, t01=0x0024}
0x3ea8…3eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x003c}
0x3eb2…3ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0046}
0x3ebc…3ed4 Head {h00=0x0014, h01=0x0050, text=»* E R T A P E «, t00=0x0028, t01=0x0050}
0x3ed4…3ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0068}
0x3ede…3ef4 Head {h00=0x0012, h01=0x0050, text=»* ERASE TAPE«, t00=0x0028, t01=0x0072}
0x3ef4…3efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0088}
0x3efe…3f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0092}
0x3f08…3f34 Head {h00=0x0028, h01=0x0050, text=»ERTAPE LDK A4,PERAS SET NO OF ERASE «, t00=0x0028, t01=0x009c}
0x3f34…3f5e Head {h00=0x0026, h01=0x0050, text=»ERT10 CF A8,ERASE ERASE ONE BLOCK «, t00=0x0028, t01=0x00c8}
0x3f5e…3f80 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0028, t01=0x00f2}
0x3f80…3f9e Head {h00=0x001a, h01=0x0050, text=» ORR A1,A2 RETURN CODE«, t00=0x0028, t01=0x0114}
0x3f9e…3fb0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0028, t01=0x0132}
0x3fb0…3fd6 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ERT10 ERASE NOT READY «, t00=0x0028, t01=0x0144}
0x3fd6…3fea Head {h00=0x0010, h01=0x0050, text=» ABL READ50 «, t00=0x0028, t01=0x016a}
0x3fea…3ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x017e}
0x3ff4…3ffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0188}
0x3ffe…4014 (41, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* O L O C K «, t00=0x0029, t01=0x0004}
0x4014…401e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x001a}
0x401e…403e Head {h00=0x001c, h01=0x0050, text=»* ORDER LOCK CASSETTE «, t00=0x0029, t01=0x0024}
0x403e…4048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0044}
0x4048…4052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004e}
0x4052…4078 Head {h00=0x0022, h01=0x0050, text=»OLOCK CF A8,LOCK LOCK CASSETTE«, t00=0x0029, t01=0x0058}
0x4078…409e Head {h00=0x0022, h01=0x0050, text=» RB(Z) REW010 CASSETTE LOCKED «, t00=0x0029, t01=0x007e}
0x409e…40b0 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0029, t01=0x00a4}
0x40b0…40bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00b6}
0x40bc…40c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c2}
0x40c6…40de Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0029, t01=0x00cc}
0x40de…40e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e4}
0x40e8…40f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ee}
0x40f2…410e Head {h00=0x0018, h01=0x0050, text=»* CASSETTE COMMANDS «, t00=0x0029, t01=0x00f8}
0x410e…4118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0114}
0x4118…4122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x011e}
0x4122…4132 Head {h00=0x000c, h01=0x0050, text=»* SELECT«, t00=0x0029, t01=0x0128}
0x4132…413c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0138}
0x413c…4150 Head {h00=0x0010, h01=0x0050, text=»SELECT EQU *«, t00=0x0029, t01=0x0142}
0x4150…4174 Head {h00=0x0020, h01=0x0050, text=» LDKL A2,BUSY LOAD BUSY MASK«, t00=0x0029, t01=0x0156}
0x4174…419a Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A6 SET DWT BUSY «, t00=0x0029, t01=0x017a}
0x419a…41ae Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=1«, t00=0x002a, t01=0x0010}
0x41ae…41cc Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SELECT CODE «, t00=0x002a, t01=0x0024}
0x41cc…41d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0042}
0x41d8…41ec Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x002a, t01=0x004e}
0x41ec…420e Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 GET OTHER DWT «, t00=0x002a, t01=0x0062}
0x420e…4234 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A3 SET DWT BUSY «, t00=0x002a, t01=0x0084}
0x4234…4256 Head {h00=0x001e, h01=0x0050, text=» ANK A3,1 GET SELECT CODE «, t00=0x002a, t01=0x00aa}
0x4256…4262 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00cc}
0x4262…426c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d8}
0x426c…4286 Head {h00=0x0016, h01=0x0050, text=»CRCOM LD A2,PFPOST«, t00=0x002a, t01=0x00e2}
0x4286…42aa Head {h00=0x0020, h01=0x0050, text=» RF(NZ) EXIT PFINIT PENDING «, t00=0x002a, t01=0x00fc}
0x42aa…42c2 Head {h00=0x0014, h01=0x0050, text=» CIO A3,1,CHCRDA«, t00=0x002a, t01=0x0120}
0x42c2…42d6 Head {h00=0x0010, h01=0x0050, text=» RF(Z) EXIT «, t00=0x002a, t01=0x0138}
0x42d6…42f4 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x002a, t01=0x014c}
0x42f4…4306 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x002a, t01=0x016a}
0x4306…4310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x017c}
0x4310…4332 Head {h00=0x001e, h01=0x0050, text=»* READ SEQUENCE CHAR TO A5«, t00=0x002a, t01=0x0186}
0x4332…433c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0018}
0x433c…4350 Head {h00=0x0010, h01=0x0050, text=»READSQ EQU *«, t00=0x002b, t01=0x0022}
0x4350…4362 Head {h00=0x000e, h01=0x0050, text=» LDK A3,/A«, t00=0x002b, t01=0x0036}
0x4362…4392 Head {h00=0x002c, h01=0x0050, text=» ST A3,REQLEN MAKE REQUESTED LENGTH > 0 «, t00=0x002b, t01=0x0048}
0x4392…43a4 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002b, t01=0x0078}
0x43a4…43ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x008a}
0x43ae…43c6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002b, t01=0x0094}
0x43c6…43d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ac}
0x43d0…43ea Head {h00=0x0016, h01=0x0050, text=»* READ ONE RECORD «, t00=0x002b, t01=0x00b6}
0x43ea…43f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d0}
0x43f4…440c Head {h00=0x0014, h01=0x0050, text=»READR LDK A3,/A «, t00=0x002b, t01=0x00da}
0x440c…443c Head {h00=0x002c, h01=0x0050, text=»READR1 CM EFFLEN RESET EFFECTIVE LENGTH «, t00=0x002b, t01=0x00f2}
0x443c…4462 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET BUFFER ADDRESS «, t00=0x002b, t01=0x0122}
0x4462…4484 Head {h00=0x001e, h01=0x0050, text=»BUFADR EQU *-2 **BUFADR** «, t00=0x002b, t01=0x0148}
0x4484…4498 Head {h00=0x0010, h01=0x0050, text=» ST A2,TCDBA«, t00=0x002b, t01=0x016a}
0x4498…44c0 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,0 GET REQUESTED LENGTH «, t00=0x002b, t01=0x017e}
0x44c0…44e2 Head {h00=0x001e, h01=0x0050, text=»HELPME EQU *-2 **HELPME** «, t00=0x002c, t01=0x0016}
0x44e2…44f8 Head {h00=0x0012, h01=0x0050, text=» ST A2,REQLEN «, t00=0x002c, t01=0x0038}
0x44f8…450a Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002c, t01=0x004e}
0x450a…4514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0060}
0x4514…452e Head {h00=0x0016, h01=0x0050, text=»* WRITE ONE RECORD«, t00=0x002c, t01=0x006a}
0x452e…4538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0084}
0x4538…4550 Head {h00=0x0014, h01=0x0050, text=»WRITER LDK A3,/B«, t00=0x002c, t01=0x008e}
0x4550…4562 Head {h00=0x000e, h01=0x0050, text=» RB READR1«, t00=0x002c, t01=0x00a6}
0x4562…456c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b8}
0x456c…4586 Head {h00=0x0016, h01=0x0050, text=»* ERASE ONE BLOCK «, t00=0x002c, t01=0x00c2}
0x4586…4590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00dc}
0x4590…45a6 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,9«, t00=0x002c, t01=0x00e6}
0x45a6…45b8 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002c, t01=0x00fc}
0x45b8…45c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x010e}
0x45c2…45da Head {h00=0x0014, h01=0x0050, text=»* LOCK CASSETTE «, t00=0x002c, t01=0x0118}
0x45da…45e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0130}
0x45e4…45fa Head {h00=0x0012, h01=0x0050, text=»LOCK LDK A3,2 «, t00=0x002c, t01=0x013a}
0x45fa…460c Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002c, t01=0x0150}
0x460c…4616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0162}
0x4616…462e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002c, t01=0x016c}
0x462e…4638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0184}
0x4638…465a Head {h00=0x001e, h01=0x0050, text=»* SEARCH BEGINNING OF TAPE«, t00=0x002c, t01=0x018e}
0x465a…4664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0020}
0x4664…467a Head {h00=0x0012, h01=0x0050, text=»SBOT LDK A3,8 «, t00=0x002d, t01=0x002a}
0x467a…468c Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002d, t01=0x0040}
0x468c…4696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0052}
0x4696…46c0 Head {h00=0x0026, h01=0x0050, text=»* REWIND TAPE AND UNLOCK CASSETTE «, t00=0x002d, t01=0x005c}
0x46c0…46ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0086}
0x46ca…46e0 Head {h00=0x0012, h01=0x0050, text=»UNLD LDK A3,/F«, t00=0x002d, t01=0x0090}
0x46e0…46f2 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002d, t01=0x00a6}
0x46f2…46fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b8}
0x46fc…471a Head {h00=0x001a, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x002d, t01=0x00c2}
0x471a…4724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00e0}
0x4724…473a Head {h00=0x0012, h01=0x0050, text=»BKSP LDK A3,/E«, t00=0x002d, t01=0x00ea}
0x473a…474c Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002d, t01=0x0100}
0x474c…4756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0112}
0x4756…476e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002d, t01=0x011c}
0x476e…4778 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0134}
0x4778…4782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x013e}
0x4782…4796 Head {h00=0x0010, h01=0x0050, text=»* I H T C «, t00=0x002d, t01=0x0148}
0x4796…47a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x015c}
0x47a0…47d4 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER : PROCESS OF INTERRUPT«, t00=0x002d, t01=0x0166}
0x47d4…47de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x000a}
0x47de…47e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0014}
0x47e8…47fa Head {h00=0x000e, h01=0x0050, text=»IHTC EQU *«, t00=0x002e, t01=0x001e}
0x47fa…4822 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x002e, t01=0x0030}
0x4822…4846 Head {h00=0x0020, h01=0x0050, text=» STR A5,A15 SAVE A5 ON STACK«, t00=0x002e, t01=0x0058}
0x4846…485c Head {h00=0x0012, h01=0x0050, text=» SST A5,CHCRDA«, t00=0x002e, t01=0x007c}
0x485c…487c Head {h00=0x001c, h01=0x0050, text=» RF(A) SST SST ACCEPTED «, t00=0x002e, t01=0x0092}
0x487c…48a0 Head {h00=0x0020, h01=0x0050, text=» IM REQLEN INCREMENT COUNTER«, t00=0x002e, t01=0x00b2}
0x48a0…48b6 Head {h00=0x0012, h01=0x0050, text=» RF(Z) CIOHLT «, t00=0x002e, t01=0x00d6}
0x48b6…48e0 Head {h00=0x0026, h01=0x0050, text=» RF(P) INRSQ GET SEQUENCE COUNTER «, t00=0x002e, t01=0x00ec}
0x48e0…4904 Head {h00=0x0020, h01=0x0050, text=» STR A3,A15 SAVE A3 ON STACK«, t00=0x002e, t01=0x0116}
0x4904…492a Head {h00=0x0022, h01=0x0050, text=» LDKL A3,0 GET BUFFER ADDRESS «, t00=0x002e, t01=0x013a}
0x492a…4952 Head {h00=0x0024, h01=0x0050, text=»TCDBA EQU *-2 **BUFFER ADDRESS**«, t00=0x002e, t01=0x0160}
0x4952…497c Head {h00=0x0026, h01=0x0050, text=» IM TCDBA INCREMENT BUFFER ADDRESS«, t00=0x002e, t01=0x0188}
0x497c…49b0 Head {h00=0x0030, h01=0x0050, text=» LD A5,REQLEN GET REMAINING LENGTH =REL 11.0«, t00=0x002f, t01=0x0022}
0x49b0…49ce Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 * =REL 11.0 «, t00=0x002f, t01=0x0056}
0x49ce…4a06 Head {h00=0x0034, h01=0x0050, text=» RF(NZ) IHTC01 NOT SEQUENCE CHARACTER =REL 11.0 «, t00=0x002f, t01=0x0074}
0x4a06…4a34 Head {h00=0x002a, h01=0x0050, text=» LD A5,TCDADT GET ACTIVE DWT =REL 11.0«, t00=0x002f, t01=0x00ac}
0x4a34…4a6a Head {h00=0x0032, h01=0x0050, text=» LD A5,SEKBYT,A5 SEQUENCE COUNTING? =REL 11.0 «, t00=0x002f, t01=0x00da}
0x4a6a…4a8e Head {h00=0x0020, h01=0x0050, text=» RF(NZ) IHTC01 NO! =REL 11.0«, t00=0x002f, t01=0x0110}
0x4a8e…4ad0 Head {h00=0x003e, h01=0x0050, text=» LDKL A3,SEQCHR+1 GET ADDRESS TO SEQUENCE CHAR. =REL 11.0 «, t00=0x002f, t01=0x0134}
0x4ad0…4af0 Head {h00=0x001c, h01=0x0050, text=»IHTC01 EQU * * =REL 11.0«, t00=0x002f, t01=0x0176}
0x4af0…4b28 Head {h00=0x0034, h01=0x0050, text=» LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE «, t00=0x0030, t01=0x0008}
0x4b28…4b3a Head {h00=0x000e, h01=0x0050, text=» SUK A5,10«, t00=0x0030, t01=0x0040}
0x4b3a…4b56 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IHTC05 WRITE«, t00=0x0030, t01=0x0052}
0x4b56…4b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x006e}
0x4b60…4b8a Head {h00=0x0026, h01=0x0050, text=»IHTC02 INR A5,0,CHCRDA READ CHAR. «, t00=0x0030, t01=0x0078}
0x4b8a…4bb6 Head {h00=0x0028, h01=0x0050, text=» SCR A5,A3 STORE CHARACTER IN BUFFER«, t00=0x0030, t01=0x00a2}
0x4bb6…4bc8 Head {h00=0x000e, h01=0x0050, text=» RF EXIT2 «, t00=0x0030, t01=0x00ce}
0x4bc8…4bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e0}
0x4bd2…4be6 Head {h00=0x0010, h01=0x0050, text=»IHTC05 EQU *«, t00=0x0030, t01=0x00ea}
0x4be6…4c0e Head {h00=0x0024, h01=0x0050, text=» LCR A5,A3 GET CHAR FROM BUFFER «, t00=0x0030, t01=0x00fe}
0x4c0e…4c30 Head {h00=0x001e, h01=0x0050, text=» OTR A5,0,CHCRDA OUTPUT IT«, t00=0x0030, t01=0x0126}
0x4c30…4c48 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0030, t01=0x0148}
0x4c48…4c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0160}
0x4c52…4c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x016a}
0x4c5c…4c76 Head {h00=0x0016, h01=0x0050, text=»EXIT2 ST A5,TCDA5 «, t00=0x0030, t01=0x0174}
0x4c76…4ca4 Head {h00=0x002a, h01=0x0050, text=» IM EFFLEN INCREMENT EFFECTIVE LENGTH«, t00=0x0030, t01=0x018e}
0x4ca4…4cd6 Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A15 RESTORE A3 AND A5 FROM STACK «, t00=0x0031, t01=0x002c}
0x4cd6…4ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x005e}
0x4ce0…4cfa Head {h00=0x0016, h01=0x0050, text=»EXIT3 LDR* A5,A15 «, t00=0x0031, t01=0x0068}
0x4cfa…4d0a Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0031, t01=0x0082}
0x4d0a…4d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0092}
0x4d14…4d42 Head {h00=0x002a, h01=0x0050, text=»INRSQ INR A5,0,CHCRDA READ CHAR TO A5 «, t00=0x0031, t01=0x009c}
0x4d42…4d56 Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x0031, t01=0x00ca}
0x4d56…4d68 Head {h00=0x000e, h01=0x0050, text=» RB EXIT3 «, t00=0x0031, t01=0x00de}
0x4d68…4d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f0}
0x4d72…4d96 Head {h00=0x0020, h01=0x0050, text=»SST ST A5,TCDA2 SAVE STATUS «, t00=0x0031, t01=0x00fa}
0x4d96…4db6 Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A15 RESTORE A5 «, t00=0x0031, t01=0x011e}
0x4db6…4dcc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0031, t01=0x013e}
0x4dcc…4df6 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0031, t01=0x0154}
0x4df6…4e02 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x017e}
0x4e02…4e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x018a}
0x4e0c…4e22 (50, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0032, t01=0x0004}
0x4e22…4e48 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0032, t01=0x001a}
0x4e48…4e54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0040}
0x4e54…4e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x004c}
0x4e5e…4e70 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,0«, t00=0x0032, t01=0x0056}
0x4e70…4e86 Head {h00=0x0012, h01=0x0050, text=»TCDA1 EQU *-2 «, t00=0x0032, t01=0x0068}
0x4e86…4e98 Head {h00=0x000e, h01=0x0050, text=» LDKL A4,0«, t00=0x0032, t01=0x007e}
0x4e98…4eae Head {h00=0x0012, h01=0x0050, text=»TCDA4 EQU *-2 «, t00=0x0032, t01=0x0090}
0x4eae…4ec0 Head {h00=0x000e, h01=0x0050, text=» LDKL A5,0«, t00=0x0032, t01=0x00a6}
0x4ec0…4ed6 Head {h00=0x0012, h01=0x0050, text=»TCDA5 EQU *-2 «, t00=0x0032, t01=0x00b8}
0x4ed6…4ee8 Head {h00=0x000e, h01=0x0050, text=» LDKL A6,0«, t00=0x0032, t01=0x00ce}
0x4ee8…4efe Head {h00=0x0012, h01=0x0050, text=»TCDA6 EQU *-2 «, t00=0x0032, t01=0x00e0}
0x4efe…4f10 Head {h00=0x000e, h01=0x0050, text=» LDKL A8,0«, t00=0x0032, t01=0x00f6}
0x4f10…4f26 Head {h00=0x0012, h01=0x0050, text=»TCDA8 EQU *-2 «, t00=0x0032, t01=0x0108}
0x4f26…4f3e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0032, t01=0x011e}
0x4f3e…4f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0136}
0x4f48…4f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0140}
0x4f52…4f74 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,0 RESTORE STATUS «, t00=0x0032, t01=0x014a}
0x4f74…4f8a Head {h00=0x0012, h01=0x0050, text=»TCDA2 EQU *-2 «, t00=0x0032, t01=0x016c}
0x4f8a…4fa8 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 GET STATUS«, t00=0x0032, t01=0x0182}
0x4fa8…4fc0 Head {h00=0x0014, h01=0x0050, text=» SLL A3,9 SHIFT «, t00=0x0033, t01=0x0010}
0x4fc0…4fe2 Head {h00=0x001e, h01=0x0050, text=» ST A3,2,A8 SAVE ON STACK «, t00=0x0033, t01=0x0028}
0x4fe2…500e Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 PUT DWT STATUS IN A3«, t00=0x0033, t01=0x004a}
0x500e…5018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0076}
0x5018…502c Head {h00=0x0010, h01=0x0050, text=»IHTRTN EQU *«, t00=0x0033, t01=0x0080}
0x502c…503c Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0033, t01=0x0094}
0x503c…5046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00a4}
0x5046…505a Head {h00=0x0010, h01=0x0050, text=»CIOHLT EQU *«, t00=0x0033, t01=0x00ae}
0x505a…507c Head {h00=0x001e, h01=0x0050, text=» CIO A1,0,CHCRDA CIO-HALT«, t00=0x0033, t01=0x00c2}
0x507c…508e Head {h00=0x000e, h01=0x0050, text=» RB EXIT3 «, t00=0x0033, t01=0x00e4}
0x508e…5098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f6}
0x5098…50b0 Head {h00=0x0014, h01=0x0050, text=»EXIT ST A1,TCDA1«, t00=0x0033, t01=0x0100}
0x50b0…50c4 Head {h00=0x0010, h01=0x0050, text=» ST A4,TCDA4«, t00=0x0033, t01=0x0118}
0x50c4…50d8 Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x0033, t01=0x012c}
0x50d8…50ec Head {h00=0x0010, h01=0x0050, text=» ST A6,TCDA6«, t00=0x0033, t01=0x0140}
0x50ec…5100 Head {h00=0x0010, h01=0x0050, text=» ST A8,TCDA8«, t00=0x0033, t01=0x0154}
0x5100…5124 Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER«, t00=0x0033, t01=0x0168}
0x5124…512e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x018c}
0x512e…5146 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0034, t01=0x0008}
0x5146…5150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0020}
0x5150…515a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x002a}
0x515a…5172 Head {h00=0x0014, h01=0x0050, text=»* R C O V E R «, t00=0x0034, t01=0x0034}
0x5172…517c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x004c}
0x517c…51ba Head {h00=0x003a, h01=0x0050, text=»* RECOVERY ROUTINE : POSITIONING OF TAPE AT POWER ON«, t00=0x0034, t01=0x0056}
0x51ba…51c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0094}
0x51c4…51ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x009e}
0x51ce…51e2 Head {h00=0x0010, h01=0x0050, text=»RCOVER EQU *«, t00=0x0034, t01=0x00a8}
0x51e2…51fe Head {h00=0x0018, h01=0x0050, text=» CF A8,SELECT SELECT«, t00=0x0034, t01=0x00bc}
0x51fe…5210 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x00d8}
0x5210…5246 Head {h00=0x0032, h01=0x0050, text=» RB(Z) IHTRTN NOT LOCKED: RETURN FROM RECOVERY«, t00=0x0034, t01=0x00ea}
0x5246…525a Head {h00=0x0010, h01=0x0050, text=» CF A8,LOCK «, t00=0x0034, t01=0x0120}
0x525a…527c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) REPER NO CASSETTE «, t00=0x0034, t01=0x0134}
0x527c…52ac Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ «, t00=0x0034, t01=0x0156}
0x52ac…52c6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RC0050 YES«, t00=0x0034, t01=0x0186}
0x52c6…52f2 Head {h00=0x0028, h01=0x0050, text=» CF A8,SBOT SEARCH BEGINNING OF TAPE«, t00=0x0035, t01=0x0010}
0x52f2…5304 Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0035, t01=0x003c}
0x5304…5328 Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x0035, t01=0x004e}
0x5328…533a Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x0035, t01=0x0072}
0x533a…5344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0084}
0x5344…5370 Head {h00=0x0028, h01=0x0050, text=»RC0050 LD A1,SEKBYT,A6 SEQ. COUNTING«, t00=0x0035, t01=0x008e}
0x5370…5388 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REPER NO«, t00=0x0035, t01=0x00ba}
0x5388…5392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d2}
0x5392…53aa Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0035, t01=0x00dc}
0x53aa…53b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00f4}
0x53b4…53be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00fe}
0x53be…53d4 Head {h00=0x0012, h01=0x0050, text=»* R E P O S «, t00=0x0035, t01=0x0108}
0x53d4…53de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x011e}
0x53de…540c Head {h00=0x002a, h01=0x0050, text=»* REPOSITIONING OF TAPE AT POWER ON «, t00=0x0035, t01=0x0128}
0x540c…542a Head {h00=0x001a, h01=0x0050, text=»* AND WRITE RECOVERY«, t00=0x0035, t01=0x0156}
0x542a…5434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0174}
0x5434…546c Head {h00=0x0034, h01=0x0050, text=»* EXIT: A2 EQ ZERO SUCCESS«, t00=0x0035, t01=0x017e}
0x546c…54a8 Head {h00=0x0038, h01=0x0050, text=»* A2 NOT EQ ZERO NO SUCCESS «, t00=0x0036, t01=0x0026}
0x54a8…54b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0062}
0x54b2…54bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x006c}
0x54bc…54d0 Head {h00=0x0010, h01=0x0050, text=»REPOS EQU * «, t00=0x0036, t01=0x0076}
0x54d0…54f8 Head {h00=0x0024, h01=0x0050, text=» LDK A4,8 SET REPOSITIONING BIT «, t00=0x0036, t01=0x008a}
0x54f8…551e Head {h00=0x0022, h01=0x0050, text=» ORS A4,DWTST,A6 STORE IN DWT «, t00=0x0036, t01=0x00b2}
0x551e…5528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00d8}
0x5528…553c Head {h00=0x0010, h01=0x0050, text=»REP005 EQU *«, t00=0x0036, t01=0x00e2}
0x553c…5566 Head {h00=0x0026, h01=0x0050, text=» LDK A4,PSUBS SET NO OF BACKSPACES«, t00=0x0036, t01=0x00f6}
0x5566…5570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0120}
0x5570…5594 Head {h00=0x0020, h01=0x0050, text=»REP010 CF A8,BKSP BACKSPACE «, t00=0x0036, t01=0x012a}
0x5594…55a6 Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0036, t01=0x014e}
0x55a6…55c8 Head {h00=0x001e, h01=0x0050, text=» RF(NN) REP015 DATA FOUND «, t00=0x0036, t01=0x0160}
0x55c8…55f2 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTBKC,A6 GET BLOCK COUNTER«, t00=0x0036, t01=0x0182}
0x55f2…5610 Head {h00=0x001a, h01=0x0050, text=» SUK A2,8 GREATER 8 ? «, t00=0x0037, t01=0x001c}
0x5610…5628 Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x0037, t01=0x003a}
0x5628…565a Head {h00=0x002e, h01=0x0050, text=» CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE «, t00=0x0037, t01=0x0052}
0x565a…566c Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0037, t01=0x0084}
0x566c…5690 Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x0037, t01=0x0096}
0x5690…56b6 Head {h00=0x0022, h01=0x0050, text=» LDKL A5,-1 RESET SEQ. COUNTER«, t00=0x0037, t01=0x00ba}
0x56b6…56d8 Head {h00=0x001e, h01=0x0050, text=» RF REP020 READ SEQ. CHAR «, t00=0x0037, t01=0x00e0}
0x56d8…56e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0102}
0x56e2…56fa Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0037, t01=0x010c}
0x56fa…5704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0124}
0x5704…570e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x012e}
0x570e…5722 Head {h00=0x0010, h01=0x0050, text=»REP015 EQU *«, t00=0x0037, t01=0x0138}
0x5722…5734 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0037, t01=0x014c}
0x5734…575a Head {h00=0x0022, h01=0x0050, text=» RB(NZ) REP010 BACKSPACE AGAIN«, t00=0x0037, t01=0x015e}
0x575a…5782 Head {h00=0x0024, h01=0x0050, text=» LDK A4,PREAD SET NO OF MAX READ«, t00=0x0037, t01=0x0184}
0x5782…578c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x001c}
0x578c…57b6 Head {h00=0x0026, h01=0x0050, text=»REP017 CF A8,READSQ READ SEQ. CHAR«, t00=0x0038, t01=0x0026}
0x57b6…57da Head {h00=0x0020, h01=0x0050, text=» LDKL A7,/180F SET READ MASK«, t00=0x0038, t01=0x0050}
0x57da…57ec Head {h00=0x000e, h01=0x0050, text=» TM A2,A7 «, t00=0x0038, t01=0x0074}
0x57ec…580a Head {h00=0x001a, h01=0x0050, text=» RF(Z) REP020 READ OK «, t00=0x0038, t01=0x0086}
0x580a…5826 Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 COUNT READ«, t00=0x0038, t01=0x00a4}
0x5826…584e Head {h00=0x0024, h01=0x0050, text=» RB(P) REP017 NOT ALL READ DONE «, t00=0x0038, t01=0x00c0}
0x584e…5868 Head {h00=0x0016, h01=0x0050, text=» RF REP060 GIVE UP«, t00=0x0038, t01=0x00e8}
0x5868…5872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0102}
0x5872…58a0 Head {h00=0x002a, h01=0x0050, text=»REP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR«, t00=0x0038, t01=0x010c}
0x58a0…58bc Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 CALCULATE«, t00=0x0038, t01=0x013a}
0x58bc…58de Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 NO OF BLOCKS TO «, t00=0x0038, t01=0x0156}
0x58de…5900 Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF READ FORWARD. «, t00=0x0038, t01=0x0178}
0x5900…5924 Head {h00=0x0020, h01=0x0050, text=» CWK A4,PINT TOO MANY BLOCKS«, t00=0x0039, t01=0x000a}
0x5924…593c Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x0039, t01=0x002e}
0x593c…5946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0046}
0x5946…595e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0039, t01=0x0050}
0x595e…5968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0068}
0x5968…5972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0072}
0x5972…5998 Head {h00=0x0022, h01=0x0050, text=»REP030 SUK A4,1 POSITION TAPE «, t00=0x0039, t01=0x007c}
0x5998…59b4 Head {h00=0x0018, h01=0x0050, text=» RF(N) REP040 READY «, t00=0x0039, t01=0x00a2}
0x59b4…59da Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ NEXT BLOCK «, t00=0x0039, t01=0x00be}
0x59da…59ec Head {h00=0x000e, h01=0x0050, text=» RB REP030«, t00=0x0039, t01=0x00e4}
0x59ec…59f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f6}
0x59f6…5a22 Head {h00=0x0028, h01=0x0050, text=»REP040 LDK A4,RTRIES SET NO OF RETRY«, t00=0x0039, t01=0x0100}
0x5a22…5a4c Head {h00=0x0026, h01=0x0050, text=»REP042 LDKL A7,/80F SET READ MASK «, t00=0x0039, t01=0x012c}
0x5a4c…5a6a Head {h00=0x001a, h01=0x0050, text=» TM A2,A7 CORRECT READ«, t00=0x0039, t01=0x0156}
0x5a6a…5a84 Head {h00=0x0016, h01=0x0050, text=» RF(Z) REP045 YES «, t00=0x0039, t01=0x0174}
0x5a84…5aa2 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 COUNT RETRY «, t00=0x0039, t01=0x018e}
0x5aa2…5ac0 Head {h00=0x001a, h01=0x0050, text=» RF(NP) REP060 GIVE UP«, t00=0x003a, t01=0x001c}
0x5ac0…5ade Head {h00=0x001a, h01=0x0050, text=» CF A8,BKSP BACKSPACE «, t00=0x003a, t01=0x003a}
0x5ade…5b04 Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ SEQ NUMBER «, t00=0x003a, t01=0x0058}
0x5b04…5b16 Head {h00=0x000e, h01=0x0050, text=» RB REP042«, t00=0x003a, t01=0x007e}
0x5b16…5b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0090}
0x5b20…5b38 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x003a, t01=0x009a}
0x5b38…5b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b2}
0x5b42…5b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00bc}
0x5b4c…5b64 Head {h00=0x0014, h01=0x0050, text=»REP045 SLC A2,3 «, t00=0x003a, t01=0x00c6}
0x5b64…5b88 Head {h00=0x0020, h01=0x0050, text=» RF(NN) REP050 NOT TAPE MARK«, t00=0x003a, t01=0x00de}
0x5b88…5b9c Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x003a, t01=0x0102}
0x5b9c…5bca Head {h00=0x002a, h01=0x0050, text=» RF(Z) REP060 SHOULD NOT BE TAPE MARK «, t00=0x003a, t01=0x0116}
0x5bca…5bdc Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x003a, t01=0x0144}
0x5bdc…5be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0156}
0x5be6…5c10 Head {h00=0x0026, h01=0x0050, text=»REP050 ADK A5,1 CHECK SEQ. NUMBER «, t00=0x003a, t01=0x0160}
0x5c10…5c2a Head {h00=0x0016, h01=0x0050, text=» CC A5,DWTBKC+1,A6«, t00=0x003a, t01=0x018a}
0x5c2a…5c44 Head {h00=0x0016, h01=0x0050, text=» RF(E) REPOK EQUAL«, t00=0x003b, t01=0x0014}
0x5c44…5c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x002e}
0x5c4e…5c6c Head {h00=0x001a, h01=0x0050, text=»REP060 LD A7,DWTST,A6 «, t00=0x003b, t01=0x0038}
0x5c6c…5c94 Head {h00=0x0024, h01=0x0050, text=» ANK A7,8 TRY POSITIONING AGAIN?«, t00=0x003b, t01=0x0056}
0x5c94…5cac Head {h00=0x0014, h01=0x0050, text=» RF(Z) REPER NO «, t00=0x003b, t01=0x007e}
0x5cac…5cdc Head {h00=0x002c, h01=0x0050, text=» XRS A7,DWTST,A6 RESET REPOSITIONING BIT«, t00=0x003b, t01=0x0096}
0x5cdc…5cf2 Head {h00=0x0012, h01=0x0050, text=» RB REP005 YES«, t00=0x003b, t01=0x00c6}
0x5cf2…5cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00dc}
0x5cfc…5d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00e6}
0x5d06…5d40 Head {h00=0x0036, h01=0x0050, text=»REPER LDK A2,2 IND RECOVERY/SEQUENCE ERROR STATUS «, t00=0x003b, t01=0x00f0}
0x5d40…5d66 Head {h00=0x0022, h01=0x0050, text=» ORS A2,SEKBYT,A6 SAVE IN DWT «, t00=0x003b, t01=0x012a}
0x5d66…5d76 Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x003b, t01=0x0150}
0x5d76…5d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0160}
0x5d80…5dac Head {h00=0x0028, h01=0x0050, text=»REPOK LDK A2,0 IND RECOVERY CORRECT «, t00=0x003b, t01=0x016a}
0x5dac…5dbc Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x003c, t01=0x0008}
0x5dbc…5dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0018}
0x5dc6…5dde Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x003c, t01=0x0022}
0x5dde…5de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x003a}
0x5de8…5df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0044}
0x5df2…5e0a Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 2 «, t00=0x003c, t01=0x004e}
0x5e0a…5e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0066}
0x5e14…5e4a Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 02«, t00=0x003c, t01=0x0070}
0x5e4a…5e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00a6}
0x5e54…5e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00b0}
0x5e5e…5e7e Head {h00=0x001c, h01=0x0050, text=»DWTC02 EQU * TABLE ENTRY«, t00=0x003c, t01=0x00ba}
0x5e7e…5e92 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x003c, t01=0x00da}
0x5e92…5eb2 Head {h00=0x001c, h01=0x0050, text=» DATA DWTC01+1 DWT NO. 1«, t00=0x003c, t01=0x00ee}
0x5eb2…5ee6 Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x003c, t01=0x010e}
0x5ee6…5f02 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003c, t01=0x0142}
0x5f02…5f18 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003c, t01=0x015e}
0x5f18…5f44 Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x003c, t01=0x0174}
0x5f44…5f60 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003d, t01=0x0010}
0x5f60…5f88 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003d, t01=0x002c}
0x5f88…5fa6 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003d, t01=0x0054}
0x5fa6…5fbc Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x0072}
0x5fbc…5fe6 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003d, t01=0x0088}
0x5fe6…600a Head {h00=0x0020, h01=0x0050, text=» DATA ECBTC2 MMU ECB ADDRESS«, t00=0x003d, t01=0x00b2}
0x600a…6016 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003d, t01=0x00d6}
0x6016…602a Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x003d, t01=0x00e2}
0x602a…6048 Head {h00=0x001a, h01=0x0050, text=» DATA 0 BLOCK COUNTER «, t00=0x003d, t01=0x00f6}
0x6048…6066 Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x003d, t01=0x0114}
0x6066…607c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x0132}
0x607c…6090 Head {h00=0x0010, h01=0x0050, text=»ECBTC2 EQU *«, t00=0x003d, t01=0x0148}
0x6090…60a0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003d, t01=0x015c}
0x60a0…60b4 Head {h00=0x0010, h01=0x0050, text=» DATA TCBUF2«, t00=0x003d, t01=0x016c}
0x60b4…60ca Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x003d, t01=0x0180}
0x60ca…60e6 Head {h00=0x0018, h01=0x0050, text=»TCBUF2 RES DVBLEN+1 «, t00=0x003e, t01=0x0008}
0x60e6…60f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0024}
0x60f2…60fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0030}
0x60fc…6114 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x003e, t01=0x003a}
0x6114…611e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0052}
0x611e…6128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x005c}
0x6128…6140 Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 1 «, t00=0x003e, t01=0x0066}
0x6140…614a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x007e}
0x614a…6180 Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 01«, t00=0x003e, t01=0x0088}
0x6180…618a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00be}
0x618a…6194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00c8}
0x6194…61b6 Head {h00=0x001e, h01=0x0050, text=»DWTC01 EQU * TABLE ENTRY «, t00=0x003e, t01=0x00d2}
0x61b6…61d4 Head {h00=0x001a, h01=0x0050, text=» DATA DWTC02 DWT NO. 2«, t00=0x003e, t01=0x00f4}
0x61d4…6208 Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x003e, t01=0x0112}
0x6208…6224 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003e, t01=0x0146}
0x6224…623a Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003e, t01=0x0162}
0x623a…6266 Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x003e, t01=0x0178}
0x6266…6282 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003f, t01=0x0014}
0x6282…62aa Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003f, t01=0x0030}
0x62aa…62c8 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003f, t01=0x0058}
0x62c8…62de Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003f, t01=0x0076}
0x62de…6308 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003f, t01=0x008c}
0x6308…632c Head {h00=0x0020, h01=0x0050, text=» DATA ECBTC1 MMU ECB ADDRESS«, t00=0x003f, t01=0x00b6}
0x632c…6338 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003f, t01=0x00da}
0x6338…6362 Head {h00=0x0026, h01=0x0050, text=»DWTBKC EQU *-DWTC01 BLOCK COUNTER «, t00=0x003f, t01=0x00e6}
0x6362…6372 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003f, t01=0x0110}
0x6372…638e Head {h00=0x0018, h01=0x0050, text=»SEKBYT EQU *-DWTC01 «, t00=0x003f, t01=0x0120}
0x638e…63ac Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x003f, t01=0x013c}
0x63ac…63b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x015a}
0x63b6…63cc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1«, t00=0x003f, t01=0x0164}
0x63cc…63e0 Head {h00=0x0010, h01=0x0050, text=»ECBTC1 EQU *«, t00=0x003f, t01=0x017a}
0x63e0…63f0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003f, t01=0x018e}
0x63f0…6404 Head {h00=0x0010, h01=0x0050, text=» DATA TCBUF1«, t00=0x0040, t01=0x000e}
0x6404…641a Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0040, t01=0x0022}
0x641a…6436 Head {h00=0x0018, h01=0x0050, text=»TCBUF1 RES DVBLEN+1 «, t00=0x0040, t01=0x0038}
0x6436…6442 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0054}
0x6442…644c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0060}
0x644c…6472 Head {h00=0x0022, h01=0x0050, text=»REQLEN DATA 0 REQUESTED LENGTH«, t00=0x0040, t01=0x006a}
0x6472…64a4 Head {h00=0x002e, h01=0x0050, text=»SEQCHR DATA 0 SEQUENCE CHARACTER =REL 11.0«, t00=0x0040, t01=0x0090}
0x64a4…64ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00c2}
0x64ae…64b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00cc}
0x64b8…64c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d6}
0x64c2…64ce Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0040, t01=0x00e0}
0x64ce…64d2 Head {h00=0x4004, h01=0x0000}
0x64d2…64d6 00 40 00 ec ┆ @ ┆
0x64d6…64de (65, 1, 8) 20 04 00 00 00 41 00 04 ┆ A ┆
0x64de…652e (66, 0, 400) 00 30 00 50 5c 44 41 54 41 5c 30 5c 44 57 54 20 4f 46 20 47 4f 49 4e 47 20 4c 52 43 2d 50 52 4f 43 45 53 53 20 54 45 52 4d 49 4e 41 4c 20 31 20 00 2a 00 04 00 30 00 50 5c 44 41 54 41 5c 30 5c 44 57 54 20 4f 46 20 47 4f 49 4e 47 20 4c 52 43 ┆ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 * 0 P DATA 0 DWT OF GOING LRC┆
0x652e…657e 2d 50 52 4f 43 45 53 53 20 54 45 52 4d 49 4e 41 4c 20 32 20 00 2a 00 38 00 26 00 50 5c 44 41 54 41 5c 30 5c 4c 52 43 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 54 45 52 4d 49 4e 41 4c 20 31 00 2a 00 6c 00 26 00 50 5c 44 41 54 41 5c 30 5c 4c 52 ┆-PROCESS TERMINAL 2 * 8 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 * l & P DATA 0 LR┆
0x657e…65ce 43 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 54 45 52 4d 49 4e 41 4c 20 32 00 2a 00 96 00 2c 00 50 5c 44 41 54 41 5c 30 5c 43 48 41 4e 4e 45 4c 20 53 54 41 54 55 53 20 57 4f 52 44 20 28 4c 4f 4f 50 2d 54 45 53 54 53 29 00 2a 00 c0 00 24 00 50 ┆C-ACKUMULATOR TERMINAL 2 * , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) * $ P┆
0x65ce…661e 5c 44 41 54 41 5c 31 5c 42 4c 4f 43 4b 20 53 45 4e 44 49 4e 47 20 49 4e 44 49 43 41 54 4f 52 20 00 2a 00 f0 00 06 00 50 2a 20 00 2a 01 18 00 08 00 50 5c 58 49 46 00 2a 01 22 00 0a 00 50 5c 45 4a 45 43 54 00 2a 01 2e 00 24 00 50 2a 2a 2a 2a ┆ DATA 1 BLOCK SENDING INDICATOR * P* * P XIF * " P EJECT * . $ P****┆
0x661e…666e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2a 01 3c 00 24 00 50 2a 20 20 20 20 20 43 20 57 20 54 20 52 20 54 20 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 2a 01 64 00 24 00 50 2a 2a 2a 2a ┆**************************** * < $ P* C W T R T 5 * * d $ P****┆
0x666e…66be (67, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2a 01 8c 00 06 00 50 2a 20 00 2b 00 24 00 3a 00 50 2a 20 20 20 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 57 4f 52 4b 20 54 41 42 4c 45 20 46 4f 52 20 52 ┆**************************** * P* + $ : P* CHANNEL UNIT WORK TABLE FOR R┆
0x66be…670e 45 4d 4f 54 45 20 43 48 41 4e 4e 45 4c 20 4e 4f 2e 20 31 20 00 2b 00 2e 00 20 00 50 2a 20 20 20 20 43 4f 4e 4e 45 43 54 45 44 20 54 4f 20 54 48 49 52 44 20 43 48 52 54 00 2b 00 6c 00 04 00 50 00 2b 00 90 00 06 00 50 2a 20 00 2b 00 98 00 10 ┆EMOTE CHANNEL NO. 1 + . P* CONNECTED TO THIRD CHRT + l P + P* + ┆
0x670e…675e 00 50 43 57 54 52 54 35 5c 45 51 55 5c 2a 00 2b 00 a2 00 06 00 50 2a 20 00 2b 00 b6 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 30 20 00 2b 00 c0 00 12 00 50 5c 49 46 46 5c 52 45 43 48 41 4e 3d 31 20 00 2b 00 d6 00 12 00 50 5c 49 46 46 ┆ PCWTRT5 EQU * + P* + P IFF RECHAN=0 + P IFF RECHAN=1 + P IFF┆
0x675e…67ae 5c 52 45 43 48 41 4e 3d 32 20 00 2b 00 ec 00 06 00 50 2a 20 00 2b 01 02 00 20 00 50 44 57 41 37 5c 45 51 55 5c 2f 32 31 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 00 2b 01 0c 00 06 00 50 2a 20 00 2b 01 30 00 1c 00 50 5c 44 41 54 41 5c ┆ RECHAN=2 + P* + PDWA7 EQU /21 DEVICE ADDRESS + P* + 0 P DATA ┆
0x67ae…67fe 30 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 44 57 54 20 00 2b 01 3a 00 1c 00 50 5c 44 41 54 41 5c 30 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 57 4f 52 44 00 2b 01 5a 00 20 00 50 5c 44 41 54 41 5c 49 4e 54 52 54 33 5c 49 4e 54 45 52 52 55 50 54 ┆0 LAST OUTPUT DWT + : P DATA 0 LAST OUTPUT WORD + Z P DATA INTRT3 INTERRUPT┆
0x67fe…684e (68, 0, 398) 20 54 41 42 4c 45 00 2b 01 7a 00 16 00 50 5c 49 4e 52 5c 41 32 2c 30 2c 44 57 41 37 5c 49 4e 52 00 2c 00 0e 00 16 00 50 5c 4f 54 52 5c 41 32 2c 30 2c 44 57 41 37 5c 4f 54 52 00 2c 00 28 00 1c 00 50 5c 43 49 4f 5c 41 32 2c 31 2c 44 57 41 37 ┆ TABLE + z P INR A2,0,DWA7 INR , P OTR A2,0,DWA7 OTR , ( P CIO A2,1,DWA7┆
0x684e…689e 5c 43 49 4f 2d 53 54 41 52 54 00 2c 00 42 00 22 00 50 5c 44 41 54 41 5c 30 5c 52 45 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 43 4f 55 4e 54 45 52 00 2c 00 62 00 1c 00 50 5c 44 41 54 41 5c 30 5c 51 55 45 55 45 20 54 45 52 4d 49 4e 41 4c 20 31 ┆ CIO-START , B " P DATA 0 RETRANSMISSION COUNTER , b P DATA 0 QUEUE TERMINAL 1┆
0x689e…68ee 00 2c 00 88 00 1c 00 50 5c 44 41 54 41 5c 30 5c 51 55 45 55 45 20 54 45 52 4d 49 4e 41 4c 20 32 00 2c 00 a8 00 06 00 50 2a 20 00 2c 00 c8 00 12 00 50 5c 49 46 54 5c 41 43 4b 4d 55 4c 3d 31 20 00 2c 00 d2 00 1c 00 50 5c 44 41 54 41 5c 30 5c ┆ , P DATA 0 QUEUE TERMINAL 2 , P* , P IFT ACKMUL=1 , P DATA 0 ┆
0x68ee…693e 4e 41 4b 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 2c 00 e8 00 24 00 50 5c 44 41 54 41 5c 30 5c 42 4c 4f 43 4b 20 45 52 52 4f 52 20 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 2c 01 08 00 2c 00 50 5c 44 41 54 41 5c 30 5c 55 4e 44 45 46 49 4e 45 ┆NAK-ACKUMULATOR , $ P DATA 0 BLOCK ERROR ACKUMULATOR , , P DATA 0 UNDEFINE┆
0x693e…698c 44 2d 49 4e 54 45 52 52 55 50 54 2d 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 2c 01 30 00 28 00 50 5c 44 41 54 41 5c 30 5c 50 52 49 4e 54 45 52 20 54 49 4d 45 4f 55 54 20 41 43 4b 55 4d 55 4c 41 54 4f 52 20 00 2c 01 60 00 06 00 50 2a 20 ┆D-INTERRUPT-ACKUMULATOR , 0 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR , ` P* ┆