|
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: 23924 (0x5d74)
Notes: pts_type(SC)
Names: »DRTC01.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/DRTC01.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/DRTC01.SC«
IDENT DRTC01 REL 8.2 78-09-15 870105040820 NO SELECT AT PGM LOADING FAST I/O, SHORT INH TIME REL 8.1 78-04-21 ******************************************************* * * 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 * 1 LEADER * 2 BOT MISSING * 3 TAPE MARK DETECTED * 4 NO DATA/ERASED * 5 BOT/EOT HOLE * 6 WRITE PROTECTED * 7 B-SIDE * 9 REWIND TIME-OUT * 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 * 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 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 SWLXY SWITCH TO LEVEL XY EXTRN ECBRL REQUESTED LENGTH IN ECB EXTRN ECBEL EFFECTIVE LENGTH IN ECB EXTRN ECBCW CONTROL WORD IN ECB 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 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 1 * * ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED * BY SETTING X:B=0 * X:B EQU 0 REVER EQU 0 * EJECT DRTC01 * * CONSTANTS AND WORK AREAS * 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 SUR A3,A5 LD A4,SEKBYT,A6 SEQ. COUNTING ? RF(NZ) TCDA25 NO LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER SC A2,255,A3 STORE IT IN BUFFER * 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 GIVE OTHER TASKS A CHANCE LDR A1,A2 SAVE STATUS LDK A4,RTRIES PRESET NUMBER OF RETRIES LDKL A2,0 GET FUNCTION INDEX TCDAX EQU *-2 **ORDER INDEX** INH 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 * CF A15,SAVE8 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 * ANK A3,/2F 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 IFT DBCAS=2 CF A15,SWLXY GIVE OTHER TASKS A CHANCE LDR* A6,A6 GET OTHER DWT CF A15,TENDIO PERFORM TENDIO FOR THIS LDR* A6,A6 GET FIRST DWT XIF CF A15,SWLXY GIVE OTHER TASKS A CHANCE 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 RB(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 A3,A2 SRL A3,7 ANK A3,6 ORK A3,1 PREPARE STATUS RB LOAD10 * EJECT DRTC01 * * * U N L O A D * * UNLOAD CASSETTE * * UNLOAD CM DWTST,A6 RESET STATUS CF A8,UNLD UNLOAD CASSETTE UNLO10 LDR A1,A2 SAVE RETURN CODE 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 RB 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 * LDK A2,/FF LOAD 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 CIO A3,1,CHCRDA CIO START RF EXIT * * 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,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 CF A15,SAVE8 SAVE REGISTERS 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 DATA 0 BLOCK COUNTER DATA 0 SEQ. INDICATOR 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 DWTBKC EQU *-DWTC01 BLOCK COUNTER DATA 0 SEKBYT EQU *-DWTC01 DATA 0 SEQ. INDICATOR * * REQLEN DATA 0 REQUESTED LENGTH * * * END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRTC01 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0062 Head {h00=0x0020, h01=0x0050, text=» NO SELECT AT PGM LOADING «, t00=0x0000, t01=0x0042}
0x0062…0086 Head {h00=0x0020, h01=0x0050, text=» FAST I/O, SHORT INH TIME «, t00=0x0000, t01=0x0066}
0x0086…00a2 Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-21 «, t00=0x0000, t01=0x008a}
0x00a2…00aa Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00a6}
0x00aa…00b2 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00ae}
0x00b2…00f2 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x00b6}
0x00f2…00fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f6}
0x00fc…0124 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0100}
0x0124…012e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…0160 Head {h00=0x002e, h01=0x0050, text=»* DRTC01 = DRIVER TAPE CASSETTE RECORDER«, t00=0x0000, t01=0x0132}
0x0160…016a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…0174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…017e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0178}
0x017e…0188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0182}
0x0188…0192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018c}
0x0192…019c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0008}
0x019c…01dc Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x0012}
0x01dc…01e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0052}
0x01e6…01f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005c}
0x01f0…0232 Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS«, t00=0x0001, t01=0x0066}
0x0232…025c Head {h00=0x0026, h01=0x0050, text=»* CONNECTED TO CPU VIA CHCR-DCR «, t00=0x0001, t01=0x00a8}
0x025c…0266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d2}
0x0266…02a8 Head {h00=0x003e, h01=0x0050, text=»* ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT«, t00=0x0001, t01=0x00dc}
0x02a8…02c8 Head {h00=0x001c, h01=0x0050, text=»* AT REWIND AND UNLOAD«, t00=0x0001, t01=0x011e}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d2…0310 Head {h00=0x003a, h01=0x0050, text=»* DATA IS RECORDED IN BLOCKS WITH LENGTHS FROM 2 TO «, t00=0x0001, t01=0x0148}
0x0310…032a Head {h00=0x0016, h01=0x0050, text=»* 256 CHARACTERS«, t00=0x0001, t01=0x0186}
0x032a…0334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0010}
0x0334…034c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0002, t01=0x001a}
0x034c…0356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0032}
0x0356…0360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003c}
0x0360…0398 Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0002, t01=0x0046}
0x0398…03a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007e}
0x03a2…03c8 Head {h00=0x0022, h01=0x0050, text=»* T C D A : ACTIVATION PART «, t00=0x0002, t01=0x0088}
0x03c8…03d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ae}
0x03d2…03fa Head {h00=0x0024, h01=0x0050, text=»* I H T C : INTERRUPT HANDLER «, t00=0x0002, t01=0x00b8}
0x03fa…0404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e0}
0x0404…042e Head {h00=0x0026, h01=0x0050, text=»* R C O V E R : RECOVERY ROUTINE«, t00=0x0002, t01=0x00ea}
0x042e…0438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0114}
0x0438…0466 Head {h00=0x002a, h01=0x0050, text=»* D W T C 0 1 : DEVICE WORK TABLE 01«, t00=0x0002, t01=0x011e}
0x0466…0470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014c}
0x0470…049e Head {h00=0x002a, h01=0x0050, text=»* D W T C 0 2 : DEVICE WORK TABLE 02«, t00=0x0002, t01=0x0156}
0x049e…04a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0184}
0x04a8…04d8 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=0x018e}
0x04d8…04e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002e}
0x04e2…04ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0038}
0x04ec…051a Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0003, t01=0x0042}
0x051a…0524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0070}
0x0524…0546 Head {h00=0x001e, h01=0x0050, text=»* ORDER /00: TEST STATUS«, t00=0x0003, t01=0x007a}
0x0546…0562 Head {h00=0x0018, h01=0x0050, text=»* /02: READ «, t00=0x0003, t01=0x009c}
0x0562…0582 Head {h00=0x001c, h01=0x0050, text=»* /05: WRITE «, t00=0x0003, t01=0x00b8}
0x0582…05a2 Head {h00=0x001c, h01=0x0050, text=»* /06: WRITE «, t00=0x0003, t01=0x00d8}
0x05a2…05c8 Head {h00=0x0022, h01=0x0050, text=»* /22: WRITE TAPE MARK«, t00=0x0003, t01=0x00f8}
0x05c8…05e6 Head {h00=0x001a, h01=0x0050, text=»* /26: LOCK«, t00=0x0003, t01=0x011e}
0x05e6…0604 Head {h00=0x001a, h01=0x0050, text=»* /31: REWIND «, t00=0x0003, t01=0x013c}
0x0604…0626 Head {h00=0x001e, h01=0x0050, text=»* /33: REVERSE «, t00=0x0003, t01=0x015a}
0x0626…0646 Head {h00=0x001c, h01=0x0050, text=»* /24: ERASE «, t00=0x0003, t01=0x017c}
0x0646…0662 Head {h00=0x0018, h01=0x0050, text=»* /37: LOAD «, t00=0x0004, t01=0x000c}
0x0662…0680 Head {h00=0x001a, h01=0x0050, text=»* /38: UNLOAD «, t00=0x0004, t01=0x0028}
0x0680…068a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0046}
0x068a…06a2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0004, t01=0x0050}
0x06a2…06ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0068}
0x06ac…06b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0072}
0x06b6…06e6 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0004, t01=0x007c}
0x06e6…06f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ac}
0x06f0…070e Head {h00=0x001a, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x0004, t01=0x00b6}
0x070e…0726 Head {h00=0x0014, h01=0x0050, text=»* 1 LEADER «, t00=0x0004, t01=0x00d4}
0x0726…0742 Head {h00=0x0018, h01=0x0050, text=»* 2 BOT MISSING«, t00=0x0004, t01=0x00ec}
0x0742…0766 Head {h00=0x0020, h01=0x0050, text=»* 3 TAPE MARK DETECTED «, t00=0x0004, t01=0x0108}
0x0766…0786 Head {h00=0x001c, h01=0x0050, text=»* 4 NO DATA/ERASED «, t00=0x0004, t01=0x012c}
0x0786…07a4 Head {h00=0x001a, h01=0x0050, text=»* 5 BOT/EOT HOLE «, t00=0x0004, t01=0x014c}
0x07a4…07c4 Head {h00=0x001c, h01=0x0050, text=»* 6 WRITE PROTECTED«, t00=0x0004, t01=0x016a}
0x07c4…07dc Head {h00=0x0014, h01=0x0050, text=»* 7 B-SIDE «, t00=0x0004, t01=0x018a}
0x07dc…07fc Head {h00=0x001c, h01=0x0050, text=»* 9 REWIND TIME-OUT«, t00=0x0005, t01=0x0012}
0x07fc…081c Head {h00=0x001c, h01=0x0050, text=»* 11 SEQUENCE ERROR «, t00=0x0005, t01=0x0032}
0x081c…0840 Head {h00=0x0020, h01=0x0050, text=»* -READ SEQUENCE ERROR«, t00=0x0005, t01=0x0052}
0x0840…0882 Head {h00=0x003e, h01=0x0050, text=»* -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY «, t00=0x0005, t01=0x0076}
0x0882…08bc Head {h00=0x0036, h01=0x0050, text=»* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED«, t00=0x0005, t01=0x00b8}
0x08bc…08ec Head {h00=0x002c, h01=0x0050, text=»* -POWER RECOVERY NOT SUCCESSFULL «, t00=0x0005, t01=0x00f2}
0x08ec…090e Head {h00=0x001e, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x0005, t01=0x0122}
0x090e…092a Head {h00=0x0018, h01=0x0050, text=»* 13 CRC ERRROR «, t00=0x0005, t01=0x0144}
0x092a…094c Head {h00=0x001e, h01=0x0050, text=»* 14 THROUGHPUT ERROR «, t00=0x0005, t01=0x0160}
0x094c…096a Head {h00=0x001a, h01=0x0050, text=»* 15 NOT OPERABEL «, t00=0x0005, t01=0x0182}
0x096a…0974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0010}
0x0974…098c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0006, t01=0x001a}
0x098c…0996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0032}
0x0996…09a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003c}
0x09a0…09c6 Head {h00=0x0022, h01=0x0050, text=»* NORMAL USAGE OF REGISTERS:«, t00=0x0006, t01=0x0046}
0x09c6…09d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006c}
0x09d0…09f4 Head {h00=0x0020, h01=0x0050, text=»* REGISTER A1: RETURN CODE«, t00=0x0006, t01=0x0076}
0x09f4…0a18 Head {h00=0x0020, h01=0x0050, text=»* A2: SST STATUS «, t00=0x0006, t01=0x009a}
0x0a18…0a46 Head {h00=0x002a, h01=0x0050, text=»* A3: DWT STATUS AFTER SST «, t00=0x0006, t01=0x00be}
0x0a46…0a6c Head {h00=0x0022, h01=0x0050, text=»* A4: RETRY COUNTER«, t00=0x0006, t01=0x00ec}
0x0a6c…0aaa Head {h00=0x003a, h01=0x0050, text=»* A5: SEQUENCE CHARACTER AFTER READ/WRITE «, t00=0x0006, t01=0x0112}
0x0aaa…0ace Head {h00=0x0020, h01=0x0050, text=»* A6: DWT ADDRESS«, t00=0x0006, t01=0x0150}
0x0ace…0af8 Head {h00=0x0026, h01=0x0050, text=»* A8: SUBROUTINE STACK «, t00=0x0006, t01=0x0174}
0x0af8…0b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000e}
0x0b02…0b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0018}
0x0b0c…0b2a Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0007, t01=0x0022}
0x0b2a…0b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0040}
0x0b34…0b72 Head {h00=0x003a, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE«, t00=0x0007, t01=0x004a}
0x0b72…0b90 Head {h00=0x001a, h01=0x0050, text=»* REDUCED TO HANDLE:«, t00=0x0007, t01=0x0088}
0x0b90…0b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a6}
0x0b9a…0bc0 Head {h00=0x0022, h01=0x0050, text=»* -ONLY ONE CASSETTE RECORDER«, t00=0x0007, t01=0x00b0}
0x0bc0…0bf4 Head {h00=0x0030, h01=0x0050, text=»* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED «, t00=0x0007, t01=0x00d6}
0x0bf4…0bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010a}
0x0bfe…0c16 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0007, t01=0x0114}
0x0c16…0c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012c}
0x0c20…0c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0136}
0x0c2a…0c3e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x0140}
0x0c3e…0c52 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x0154}
0x0c52…0c66 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x0168}
0x0c66…0c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017c}
0x0c70…0c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0186}
0x0c7a…0ca0 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHTC INTERRUPT ADDRESS «, t00=0x0007, t01=0x0190}
0x0ca0…0cd2 Head {h00=0x002e, h01=0x0050, text=» ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01«, t00=0x0008, t01=0x0026}
0x0cd2…0d04 Head {h00=0x002e, h01=0x0050, text=» ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02«, t00=0x0008, t01=0x0058}
0x0d04…0d2c Head {h00=0x0024, h01=0x0050, text=» ENTRY TCDRON POWER UP RECOVERY «, t00=0x0008, t01=0x008a}
0x0d2c…0d34 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00b2}
0x0d34…0d3c Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00ba}
0x0d3c…0d44 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00c2}
0x0d44…0d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ca}
0x0d4e…0d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d4}
0x0d58…0d80 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x00de}
0x0d80…0da8 Head {h00=0x0024, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0008, t01=0x0106}
0x0da8…0dd0 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x012e}
0x0dd0…0dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0156}
0x0dda…0de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0160}
0x0de4…0e0e Head {h00=0x0026, h01=0x0050, text=» EXTRN TDISP DISPATCHER MAIN ENTRY«, t00=0x0008, t01=0x016a}
0x0e0e…0e46 (9, 0, 400) Head {h00=0x0034, h01=0x0050, text=» EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE«, t00=0x0009, t01=0x0004}
0x0e46…0e78 Head {h00=0x002e, h01=0x0050, text=» EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN«, t00=0x0009, t01=0x003c}
0x0e78…0ea8 Head {h00=0x002c, h01=0x0050, text=» EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE «, t00=0x0009, t01=0x006e}
0x0ea8…0eda Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND GO TO DISPATCHER VIA TENDIO «, t00=0x0009, t01=0x009e}
0x0eda…0f12 Head {h00=0x0034, h01=0x0050, text=» EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY«, t00=0x0009, t01=0x00d0}
0x0f12…0f40 Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0009, t01=0x0108}
0x0f40…0f6e Head {h00=0x002a, h01=0x0050, text=» EXTRN INIFLG INIT FLAG AT PGM LOADING«, t00=0x0009, t01=0x0136}
0x0f6e…0f96 Head {h00=0x0024, h01=0x0050, text=» EXTRN SWLXY SWITCH TO LEVEL XY «, t00=0x0009, t01=0x0164}
0x0f96…0fc2 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH IN ECB«, t00=0x0009, t01=0x018c}
0x0fc2…0fee Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH IN ECB«, t00=0x000a, t01=0x0028}
0x0fee…1016 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD IN ECB«, t00=0x000a, t01=0x0054}
0x1016…102e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000a, t01=0x007c}
0x102e…1038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0094}
0x1038…1042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009e}
0x1042…105c Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000a, t01=0x00a8}
0x105c…1076 Head {h00=0x0016, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x000a, t01=0x00c2}
0x1076…1090 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000a, t01=0x00dc}
0x1090…109a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f6}
0x109a…10a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0100}
0x10a4…10ce Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTST DWT SOFTWARE STATUS: «, t00=0x000a, t01=0x010a}
0x10ce…1100 Head {h00=0x002e, h01=0x0050, text=»* BIT # 0 - DEVICE AND CONTROLLER READY «, t00=0x000a, t01=0x0134}
0x1100…1134 Head {h00=0x0030, h01=0x0050, text=»* BIT #11 - TAPE MARK ENCOUNTERED ON LAST «, t00=0x000a, t01=0x0166}
0x1134…1164 Head {h00=0x002c, h01=0x0050, text=»* BIT #12 - REPOSITIONING AT RECOVERY «, t00=0x000b, t01=0x000a}
0x1164…118a Head {h00=0x0022, h01=0x0050, text=»* BIT #13 - WRITE PROTECTED «, t00=0x000b, t01=0x003a}
0x118a…11a6 Head {h00=0x0018, h01=0x0050, text=»* BIT #14 - A-SIDE«, t00=0x000b, t01=0x0060}
0x11a6…11d4 Head {h00=0x002a, h01=0x0050, text=» BIT #15 - DEVICE LOCKED (OPERABLE) «, t00=0x000b, t01=0x007c}
0x11d4…11f2 Head {h00=0x001a, h01=0x0050, text=» EXTRN DWTOR DWT ORDER«, t00=0x000b, t01=0x00aa}
0x11f2…1218 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTECB DWT ECB ADDRESS «, t00=0x000b, t01=0x00c8}
0x1218…1230 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000b, t01=0x00ee}
0x1230…123a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0106}
0x123a…1244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0110}
0x1244…1264 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x011a}
0x1264…1284 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x013a}
0x1284…12a4 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x015a}
0x12a4…12ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017a}
0x12ae…12f0 Head {h00=0x003e, h01=0x0050, text=»* THE DRIVER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE «, t00=0x000b, t01=0x0184}
0x12f0…1316 Head {h00=0x0022, h01=0x0050, text=»* RECORDER BY SETTING X:A=1 «, t00=0x000c, t01=0x0036}
0x1316…1320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005c}
0x1320…1332 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000c, t01=0x0066}
0x1332…1346 Head {h00=0x0010, h01=0x0050, text=»DBCAS EQU 1 «, t00=0x000c, t01=0x0078}
0x1346…1350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008c}
0x1350…138a Head {h00=0x0036, h01=0x0050, text=»* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED«, t00=0x000c, t01=0x0096}
0x138a…13a6 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B=0«, t00=0x000c, t01=0x00d0}
0x13a6…13b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ec}
0x13b0…13c2 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x00f6}
0x13c2…13d6 Head {h00=0x0010, h01=0x0050, text=»REVER EQU 0 «, t00=0x000c, t01=0x0108}
0x13d6…13e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011c}
0x13e0…13f8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000c, t01=0x0126}
0x13f8…1402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013e}
0x1402…1424 Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS AND WORK AREAS«, t00=0x000c, t01=0x0148}
0x1424…142e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016a}
0x142e…1456 Head {h00=0x0024, h01=0x0050, text=»TCAD DATA TCDA ACTIVATION ENTRY «, t00=0x000c, t01=0x0174}
0x1456…147c Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000d, t01=0x000c}
0x147c…149c Head {h00=0x001c, h01=0x0050, text=» RES 4 SUBROUTINE STACK «, t00=0x000d, t01=0x0032}
0x149c…14b0 Head {h00=0x0010, h01=0x0050, text=»STB EQU *-2 «, t00=0x000d, t01=0x0052}
0x14b0…14ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0066}
0x14ba…14c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0070}
0x14c4…14ec Head {h00=0x0024, h01=0x0050, text=»TAB DATA /0031,/2237,/3802,/0506«, t00=0x000d, t01=0x007a}
0x14ec…1500 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x000d, t01=0x00a2}
0x1500…151a Head {h00=0x0016, h01=0x0050, text=» DATA /2633,/24FF «, t00=0x000d, t01=0x00b6}
0x151a…1526 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00d0}
0x1526…153c Head {h00=0x0012, h01=0x0050, text=»TABL EQU *-TAB«, t00=0x000d, t01=0x00dc}
0x153c…1554 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000d, t01=0x00f2}
0x1554…155e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010a}
0x155e…1568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0114}
0x1568…158c Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000d, t01=0x011e}
0x158c…15b0 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL UNIT PARAMETERS * «, t00=0x000d, t01=0x0142}
0x15b0…15d4 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000d, t01=0x0166}
0x15d4…15de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018a}
0x15de…15e8 (14, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e8…1602 Head {h00=0x0016, h01=0x0050, text=»* DEVICE ADDRESS:«, t00=0x000e, t01=0x000e}
0x1602…160c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0028}
0x160c…1622 Head {h00=0x0012, h01=0x0050, text=»CHCRDA EQU /0E«, t00=0x000e, t01=0x0032}
0x1622…162c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0048}
0x162c…1636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0052}
0x1636…164c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000e, t01=0x005c}
0x164c…1662 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000e, t01=0x0072}
0x1662…1678 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000e, t01=0x0088}
0x1678…1682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009e}
0x1682…168c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a8}
0x168c…16b2 Head {h00=0x0022, h01=0x0050, text=»RTRIES EQU 3 MAX NO OF RETRIES«, t00=0x000e, t01=0x00b2}
0x16b2…16bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d8}
0x16bc…16ea Head {h00=0x002a, h01=0x0050, text=»PSUBS EQU 5 POWER UP BACKSPACE NUMBER «, t00=0x000e, t01=0x00e2}
0x16ea…16f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0110}
0x16f4…171c Head {h00=0x0024, h01=0x0050, text=»PREAD EQU 4 POWER UP READ NUMBER«, t00=0x000e, t01=0x011a}
0x171c…1726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0142}
0x1726…1760 Head {h00=0x0036, h01=0x0050, text=»PINT EQU 10 POWER UP RECOVERY BLOCK COUNT INTERVAL«, t00=0x000e, t01=0x014c}
0x1760…176a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0186}
0x176a…177e Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x000e, t01=0x0190}
0x177e…17ac Head {h00=0x002a, h01=0x0050, text=»PERAS EQU 6 NO OF ERASE FOR ORDER /24 «, t00=0x000f, t01=0x0014}
0x17ac…17b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0042}
0x17b8…17d0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000f, t01=0x004e}
0x17d0…17da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0066}
0x17da…17e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0070}
0x17e4…17f8 Head {h00=0x0010, h01=0x0050, text=»* T C D A «, t00=0x000f, t01=0x007a}
0x17f8…1802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008e}
0x1802…184e Head {h00=0x0048, h01=0x0050, text=»* ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING «, t00=0x000f, t01=0x0098}
0x184e…1858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e4}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x1862…1874 Head {h00=0x000e, h01=0x0050, text=»TCDA EQU *«, t00=0x000f, t01=0x00f8}
0x1874…1886 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x000f, t01=0x010a}
0x1886…189c Head {h00=0x0012, h01=0x0050, text=» LDK A4,TABL-1«, t00=0x000f, t01=0x011c}
0x189c…18a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0132}
0x18a6…18da Head {h00=0x0030, h01=0x0050, text=»TCDA10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER«, t00=0x000f, t01=0x013c}
0x18da…18fc Head {h00=0x001e, h01=0x0050, text=» RF(E) TCDA20 VALID ORDER «, t00=0x000f, t01=0x0170}
0x18fc…190e (16, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0010, t01=0x0004}
0x190e…192e Head {h00=0x001c, h01=0x0050, text=» RB(NN) TCDA10 TRY NEXT «, t00=0x0010, t01=0x0016}
0x192e…1938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0036}
0x1938…194c Head {h00=0x0010, h01=0x0050, text=»TCDA15 EQU *«, t00=0x0010, t01=0x0040}
0x194c…196e Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0010, t01=0x0054}
0x196e…1978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0076}
0x1978…19a4 Head {h00=0x0028, h01=0x0050, text=»TCDA20 ADR A4,A4 DOUBLE TO GET INDEX«, t00=0x0010, t01=0x0080}
0x19a4…19c4 Head {h00=0x001c, h01=0x0050, text=» ST A4,TCDAX SAVE INDEX «, t00=0x0010, t01=0x00ac}
0x19c4…19f0 Head {h00=0x0028, h01=0x0050, text=» LD A5,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0010, t01=0x00cc}
0x19f0…1a1c Head {h00=0x0028, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQUENCE COUNTER ? «, t00=0x0010, t01=0x00f8}
0x1a1c…1a36 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA21 NO «, t00=0x0010, t01=0x0124}
0x1a36…1a6a Head {h00=0x0030, h01=0x0050, text=» ADK A5,1 COMPENSATE FOR SEQUENCE CHARACTER «, t00=0x0010, t01=0x013e}
0x1a6a…1a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0172}
0x1a74…1a88 Head {h00=0x0010, h01=0x0050, text=»TCDA21 EQU *«, t00=0x0010, t01=0x017c}
0x1a88…1aba Head {h00=0x002e, h01=0x0050, text=» LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS «, t00=0x0010, t01=0x0190}
0x1aba…1acc Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0011, t01=0x0032}
0x1acc…1ae6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDR10 YES«, t00=0x0011, t01=0x0044}
0x1ae6…1af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x005e}
0x1af0…1b02 Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0011, t01=0x0068}
0x1b02…1b34 Head {h00=0x002e, h01=0x0050, text=» NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE «, t00=0x0011, t01=0x007a}
0x1b34…1b68 Head {h00=0x0030, h01=0x0050, text=» ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES «, t00=0x0011, t01=0x00ac}
0x1b68…1b82 Head {h00=0x0016, h01=0x0050, text=» SUK A7,/37 LOAD ?«, t00=0x0011, t01=0x00e0}
0x1b82…1b9c Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA22 NO «, t00=0x0011, t01=0x00fa}
0x1b9c…1bc4 Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBCW,A8 GET CONTROL WORD«, t00=0x0011, t01=0x0114}
0x1bc4…1bd6 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0011, t01=0x013c}
0x1bd6…1c0c Head {h00=0x0032, h01=0x0050, text=» ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT «, t00=0x0011, t01=0x014e}
0x1c0c…1c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0184}
0x1c16…1c42 Head {h00=0x0028, h01=0x0050, text=»TCDA22 LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0011, t01=0x018e}
0x1c42…1c76 Head {h00=0x0030, h01=0x0050, text=» ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES «, t00=0x0012, t01=0x002a}
0x1c76…1c88 Head {h00=0x000e, h01=0x0050, text=» SUK A4,14«, t00=0x0012, t01=0x005e}
0x1c88…1ca4 Head {h00=0x0018, h01=0x0050, text=» RF(Z) TCDA23 WRITE «, t00=0x0012, t01=0x0070}
0x1ca4…1cb6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0012, t01=0x008c}
0x1cb6…1cd6 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) TCDA25 NOT WRITE«, t00=0x0012, t01=0x009e}
0x1cd6…1ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00be}
0x1ce0…1d0e Head {h00=0x002a, h01=0x0050, text=»TCDA23 ADK A5,3 CHECK REQUESTED LENGTH«, t00=0x0012, t01=0x00c8}
0x1d0e…1d3a Head {h00=0x0028, h01=0x0050, text=» RB(P) TCDA15 LESS THAN 2 CHARACTERS«, t00=0x0012, t01=0x00f6}
0x1d3a…1d4e Head {h00=0x0010, h01=0x0050, text=» ADK A5,254 «, t00=0x0012, t01=0x0122}
0x1d4e…1d7c Head {h00=0x002a, h01=0x0050, text=» RB(N) TCDA15 MORE THAN 256 CHARACTERS«, t00=0x0012, t01=0x0136}
0x1d7c…1d8e Head {h00=0x000e, h01=0x0050, text=» SUR A3,A5«, t00=0x0012, t01=0x0164}
0x1d8e…1db6 Head {h00=0x0024, h01=0x0050, text=» LD A4,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x0012, t01=0x0176}
0x1db6…1dd0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDA25 NO «, t00=0x0013, t01=0x000e}
0x1dd0…1e00 Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER «, t00=0x0013, t01=0x0028}
0x1e00…1e28 Head {h00=0x0024, h01=0x0050, text=» SC A2,255,A3 STORE IT IN BUFFER«, t00=0x0013, t01=0x0058}
0x1e28…1e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0080}
0x1e32…1e5e Head {h00=0x0028, h01=0x0050, text=»TCDA25 ST A6,TCDADT SAVE ACTIVE DWT «, t00=0x0013, t01=0x008a}
0x1e5e…1e76 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0013, t01=0x00b6}
0x1e76…1e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e80…1e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d8}
0x1e8a…1ea4 Head {h00=0x0016, h01=0x0050, text=»* SELECT RECORDER «, t00=0x0013, t01=0x00e2}
0x1ea4…1eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00fc}
0x1eae…1eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0106}
0x1eb8…1ee2 Head {h00=0x0026, h01=0x0050, text=»TCDA30 LDKL A8,STB LOAD STACK BASE«, t00=0x0013, t01=0x0110}
0x1ee2…1f06 Head {h00=0x0020, h01=0x0050, text=» CF A8,SELECT SELECT CASSETT«, t00=0x0013, t01=0x013a}
0x1f06…1f36 Head {h00=0x002c, h01=0x0050, text=» CF A15,SWLXY GIVE OTHER TASKS A CHANCE «, t00=0x0013, t01=0x015e}
0x1f36…1f54 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 SAVE STATUS«, t00=0x0013, t01=0x018e}
0x1f54…1f84 Head {h00=0x002c, h01=0x0050, text=» LDK A4,RTRIES PRESET NUMBER OF RETRIES «, t00=0x0014, t01=0x001c}
0x1f84…1faa Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET FUNCTION INDEX «, t00=0x0014, t01=0x004c}
0x1faa…1fd0 Head {h00=0x0022, h01=0x0050, text=»TCDAX EQU *-2 **ORDER INDEX** «, t00=0x0014, t01=0x0072}
0x1fd0…1fdc Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0014, t01=0x0098}
0x1fdc…2006 Head {h00=0x0026, h01=0x0050, text=» ABI TCDFUN,A2 BRANCH TO FUNCTION «, t00=0x0014, t01=0x00a4}
0x2006…2046 Head {h00=0x003c, h01=0x0050, text=»TCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE«, t00=0x0014, t01=0x00ce}
0x2046…205a Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0014, t01=0x010e}
0x205a…207c Head {h00=0x001e, h01=0x0050, text=» DATA OLOCK,REVERS,ERTAPE «, t00=0x0014, t01=0x0122}
0x207c…2088 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0144}
0x2088…2092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0150}
0x2092…20aa Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0014, t01=0x015a}
0x20aa…20b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0172}
0x20b4…20be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017c}
0x20be…20e0 Head {h00=0x001e, h01=0x0050, text=»* RECOVERY AFTER POWER ON «, t00=0x0014, t01=0x0186}
0x20e0…20ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0018}
0x20ea…20f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0022}
0x20f4…2108 Head {h00=0x0010, h01=0x0050, text=»TCDRON EQU *«, t00=0x0015, t01=0x002c}
0x2108…211e Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0015, t01=0x0040}
0x211e…2148 Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG CHECK IF PGM LOADING«, t00=0x0015, t01=0x0056}
0x2148…2170 Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) TDISP YES SKIP RECOVERY«, t00=0x0015, t01=0x0080}
0x2170…2194 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,STB LOAD STACK BASE«, t00=0x0015, t01=0x00a8}
0x2194…21b6 Head {h00=0x001e, h01=0x0050, text=» LDKL A6,DWTC01 FIRST DWT «, t00=0x0015, t01=0x00cc}
0x21b6…21d4 Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0015, t01=0x00ee}
0x21d4…21e8 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0015, t01=0x010c}
0x21e8…220a Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x0015, t01=0x0120}
0x220a…2228 Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0015, t01=0x0142}
0x2228…2234 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0160}
0x2234…2256 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,0 GET ACTIVE DWT «, t00=0x0015, t01=0x016c}
0x2256…2286 Head {h00=0x002c, h01=0x0050, text=»TCDADT EQU *-2 **ACTIVATED DWT ADDRESS**«, t00=0x0015, t01=0x018e}
0x2286…22ae Head {h00=0x0024, h01=0x0050, text=» RF(Z) ENDIO NO REQUEST GOING ON«, t00=0x0016, t01=0x002e}
0x22ae…22d6 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A4 PUT DWT ADDRESS IN A6«, t00=0x0016, t01=0x0056}
0x22d6…22fc Head {h00=0x0022, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQ. COUNTING«, t00=0x0016, t01=0x007e}
0x22fc…2328 Head {h00=0x0028, h01=0x0050, text=» RB(Z) TCDA30 YES; REACTIVATE ORDER «, t00=0x0016, t01=0x00a4}
0x2328…2332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d0}
0x2332…2360 Head {h00=0x002a, h01=0x0050, text=»TCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR«, t00=0x0016, t01=0x00da}
0x2360…2378 Head {h00=0x0014, h01=0x0050, text=» ST A3,SEKBYT,A6«, t00=0x0016, t01=0x0108}
0x2378…23a8 Head {h00=0x002c, h01=0x0050, text=» ORK A1,/10 IND SEQUENCE ERROR, BIT #11 «, t00=0x0016, t01=0x0120}
0x23a8…23ba Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0016, t01=0x0150}
0x23ba…23c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0162}
0x23c4…23dc Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0016, t01=0x016c}
0x23dc…23e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0184}
0x23e6…23fa Head {h00=0x0010, h01=0x0050, text=»* R E A D «, t00=0x0016, t01=0x018e}
0x23fa…2404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0012}
0x2404…2428 Head {h00=0x0020, h01=0x0050, text=»READ CF A8,READR READ RECORD«, t00=0x0017, t01=0x001c}
0x2428…244a Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0017, t01=0x0040}
0x244a…245c Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0017, t01=0x0062}
0x245c…2470 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x0017, t01=0x0074}
0x2470…2490 Head {h00=0x001c, h01=0x0050, text=» RF(Z) READ20 STATUS OK «, t00=0x0017, t01=0x0088}
0x2490…249a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a8}
0x249a…24c4 Head {h00=0x0026, h01=0x0050, text=»READ15 SUK A4,1 RECOVERABLE ERROR «, t00=0x0017, t01=0x00b2}
0x24c4…24e8 Head {h00=0x0020, h01=0x0050, text=» RF(Z) READ20 3 TRIALS DONE «, t00=0x0017, t01=0x00dc}
0x24e8…2510 Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x0017, t01=0x0100}
0x2510…252c Head {h00=0x0018, h01=0x0050, text=» RB READ READ AGAIN«, t00=0x0017, t01=0x0128}
0x252c…2536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0144}
0x2536…254e Head {h00=0x0014, h01=0x0050, text=»READ20 LDR A2,A1«, t00=0x0017, t01=0x014e}
0x254e…2572 Head {h00=0x0020, h01=0x0050, text=» SLL A2,3 CHECK IF TAPE MARK«, t00=0x0017, t01=0x0166}
0x2572…2596 Head {h00=0x0020, h01=0x0050, text=» RF(NN) READ30 NOT TAPE MARK«, t00=0x0017, t01=0x018a}
0x2596…25a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001e}
0x25a0…25cc Head {h00=0x0028, h01=0x0050, text=»READ25 ORK A3,/10 INDICATE TAPE MARK«, t00=0x0018, t01=0x0028}
0x25cc…25f4 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 RESET EFFECTIVE LENGTH«, t00=0x0018, t01=0x0054}
0x25f4…2608 Head {h00=0x0010, h01=0x0050, text=» RF READ35 «, t00=0x0018, t01=0x007c}
0x2608…2612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0090}
0x2612…262a Head {h00=0x0014, h01=0x0050, text=»READ30 LDR A2,A1«, t00=0x0018, t01=0x009a}
0x262a…2652 Head {h00=0x0024, h01=0x0050, text=» LDKL A7,0 GET EFFECTIVE LENGTH «, t00=0x0018, t01=0x00b2}
0x2652…267e Head {h00=0x0028, h01=0x0050, text=»EFFLEN EQU *-2 **EFFECTIVE LENGTH** «, t00=0x0018, t01=0x00da}
0x267e…26a2 Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/801 NO DATA,NOT OP«, t00=0x0018, t01=0x0106}
0x26a2…26b8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) READ32«, t00=0x0018, t01=0x012a}
0x26b8…26ca Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0018, t01=0x0140}
0x26ca…26f0 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) READ32 NOT EQUAL ZERO «, t00=0x0018, t01=0x0152}
0x26f0…2714 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 THIRD TRIAL DONE «, t00=0x0018, t01=0x0178}
0x2714…2744 Head {h00=0x002c, h01=0x0050, text=» RB(NZ) READ15 NO; READ SAME BLOCK AGAIN«, t00=0x0019, t01=0x000c}
0x2744…276e Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 SET NO OF RETRIES TO ONE«, t00=0x0019, t01=0x003c}
0x276e…278e Head {h00=0x001c, h01=0x0050, text=» RB READ TRY NEXT BLOCK«, t00=0x0019, t01=0x0066}
0x278e…2798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0086}
0x2798…27ac Head {h00=0x0010, h01=0x0050, text=»READ32 EQU *«, t00=0x0019, t01=0x0090}
0x27ac…27ce Head {h00=0x001e, h01=0x0050, text=» ANK A3,/2F NOT TAPE MARK «, t00=0x0019, t01=0x00a4}
0x27ce…27f6 Head {h00=0x0024, h01=0x0050, text=» LD A2,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x0019, t01=0x00c6}
0x27f6…2810 Head {h00=0x0016, h01=0x0050, text=» RF(NE) READ35 NO «, t00=0x0019, t01=0x00ee}
0x2810…2840 Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 DECREMENT EFF. LENGTH COUNTER «, t00=0x0019, t01=0x0108}
0x2840…2872 Head {h00=0x002e, h01=0x0050, text=» CC A5,DWTBKC+1,A6 CHECK SEQUENCE COUNTER «, t00=0x0019, t01=0x0138}
0x2872…288a Head {h00=0x0014, h01=0x0050, text=» RF(E) READ35 OK«, t00=0x0019, t01=0x016a}
0x288a…28ac Head {h00=0x001e, h01=0x0050, text=» ORK A1,/10 SEQUENCE ERROR«, t00=0x0019, t01=0x0182}
0x28ac…28b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0014}
0x28b6…28ec Head {h00=0x0032, h01=0x0050, text=»READ35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER«, t00=0x001a, t01=0x001e}
0x28ec…28f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0054}
0x28f6…2924 Head {h00=0x002a, h01=0x0050, text=»READ40 LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x001a, t01=0x005e}
0x2924…2952 Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH «, t00=0x001a, t01=0x008c}
0x2952…2968 Head {h00=0x0012, h01=0x0050, text=» LDK A2,RTRIES«, t00=0x001a, t01=0x00ba}
0x2968…299a Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 GET NUMBER OF RETRIES PERFORMED«, t00=0x001a, t01=0x00d0}
0x299a…29ca Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBCW,A8 SAVE IT IN CONTROL WORD «, t00=0x001a, t01=0x0102}
0x29ca…29d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0132}
0x29d4…29e8 Head {h00=0x0010, h01=0x0050, text=»READ50 EQU *«, t00=0x001a, t01=0x013c}
0x29e8…2a0c Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTST,A6 SAVE STATUS «, t00=0x001a, t01=0x0150}
0x2a0c…2a24 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001a, t01=0x0174}
0x2a24…2a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018c}
0x2a2e…2a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0008}
0x2a38…2a56 Head {h00=0x001a, h01=0x0050, text=»* END OF I/O OPERATION«, t00=0x001b, t01=0x0012}
0x2a56…2a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0030}
0x2a60…2a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x003a}
0x2a6a…2a7e Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x001b, t01=0x0044}
0x2a7e…2aaa Head {h00=0x0028, h01=0x0050, text=» CM TCDADT INDICATE NONE ACTIVE DWT «, t00=0x001b, t01=0x0058}
0x2aaa…2abe Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x001b, t01=0x0084}
0x2abe…2aee Head {h00=0x002c, h01=0x0050, text=» CF A15,SWLXY GIVE OTHER TASKS A CHANCE «, t00=0x001b, t01=0x0098}
0x2aee…2b10 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x001b, t01=0x00c8}
0x2b10…2b3e Head {h00=0x002a, h01=0x0050, text=» CF A15,TENDIO PERFORM TENDIO FOR THIS«, t00=0x001b, t01=0x00ea}
0x2b3e…2b60 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET FIRST DWT «, t00=0x001b, t01=0x0118}
0x2b60…2b6c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x013a}
0x2b6c…2b9c Head {h00=0x002c, h01=0x0050, text=» CF A15,SWLXY GIVE OTHER TASKS A CHANCE «, t00=0x001b, t01=0x0146}
0x2b9c…2bcc Head {h00=0x002c, h01=0x0050, text=» ABL DISEND GO TO DISPATCHER VIA TENDIO «, t00=0x001b, t01=0x0176}
0x2bcc…2bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0016}
0x2bd6…2bee Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001c, t01=0x0020}
0x2bee…2bf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0038}
0x2bf8…2c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0042}
0x2c02…2c1e Head {h00=0x0018, h01=0x0050, text=»* WRITE TAPE MARK «, t00=0x001c, t01=0x004c}
0x2c1e…2c28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0068}
0x2c28…2c3e Head {h00=0x0012, h01=0x0050, text=»TM LDKL A3,-1 «, t00=0x001c, t01=0x0072}
0x2c3e…2c54 Head {h00=0x0012, h01=0x0050, text=» ST A3,HELPME «, t00=0x001c, t01=0x0088}
0x2c54…2c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009e}
0x2c5e…2c74 Head {h00=0x0012, h01=0x0050, text=»* W R I T E «, t00=0x001c, t01=0x00a8}
0x2c74…2c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00be}
0x2c7e…2c9a Head {h00=0x0018, h01=0x0050, text=»* WRITE ONE BLOCK «, t00=0x001c, t01=0x00c8}
0x2c9a…2ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e4}
0x2ca4…2cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ee}
0x2cae…2cde Head {h00=0x002c, h01=0x0050, text=»WRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER «, t00=0x001c, t01=0x00f8}
0x2cde…2d04 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) WRIT10 NOT FIRST BLOCK«, t00=0x001c, t01=0x0128}
0x2d04…2d2e Head {h00=0x0026, h01=0x0050, text=» CF A8,ERASE MAKE ONE BLANK BLOCK «, t00=0x001c, t01=0x014e}
0x2d2e…2d5c Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK«, t00=0x001c, t01=0x0178}
0x2d5c…2d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0016}
0x2d66…2d8e Head {h00=0x0024, h01=0x0050, text=»WRIT10 CF A8,WRITER WRITE RECORD«, t00=0x001d, t01=0x0020}
0x2d8e…2db0 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT-BIT«, t00=0x001d, t01=0x0048}
0x2db0…2dc2 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001d, t01=0x006a}
0x2dc2…2dd6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x001d, t01=0x007c}
0x2dd6…2df6 Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRIT30 STATUS OK «, t00=0x001d, t01=0x0090}
0x2df6…2e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00b0}
0x2e00…2e30 Head {h00=0x002c, h01=0x0050, text=»WRIT12 ST A4,WRITA4 STORE RETRY COUNTER «, t00=0x001d, t01=0x00ba}
0x2e30…2e48 Head {h00=0x0014, h01=0x0050, text=» LD A2,SEKBYT,A6«, t00=0x001d, t01=0x00ea}
0x2e48…2e6c Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRIT15 SEQ. COUNTING «, t00=0x001d, t01=0x0102}
0x2e6c…2e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0126}
0x2e76…2e8e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001d, t01=0x0130}
0x2e8e…2e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0148}
0x2e98…2ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0152}
0x2ea2…2eca Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x001d, t01=0x015c}
0x2eca…2ee6 Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ONE ERASE «, t00=0x001d, t01=0x0184}
0x2ee6…2ef8 Head {h00=0x000e, h01=0x0050, text=» RF WRIT20«, t00=0x001e, t01=0x0010}
0x2ef8…2f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0022}
0x2f02…2f2a Head {h00=0x0024, h01=0x0050, text=»WRIT15 CF A8,REPOS POSITION TAPE«, t00=0x001e, t01=0x002c}
0x2f2a…2f54 Head {h00=0x0026, h01=0x0050, text=» CM SEKBYT,A6 RESET SEQ. INDICATOR«, t00=0x001e, t01=0x0054}
0x2f54…2f74 Head {h00=0x001c, h01=0x0050, text=» LD A4,WRITA4 GET NO ...«, t00=0x001e, t01=0x007e}
0x2f74…2f86 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x001e, t01=0x009e}
0x2f86…2fb0 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) WRIT40 POSITIONING NOT OK «, t00=0x001e, t01=0x00b0}
0x2fb0…2fd4 Head {h00=0x0020, h01=0x0050, text=» SUK A4,RTRIES ... OF ERASE «, t00=0x001e, t01=0x00da}
0x2fd4…2fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fe}
0x2fde…2ffe Head {h00=0x001c, h01=0x0050, text=»WRIT20 CF A8,ERASE ERASE«, t00=0x001e, t01=0x0108}
0x2ffe…301a Head {h00=0x0018, h01=0x0050, text=» ORR A1,A2 SAVE EOT «, t00=0x001e, t01=0x0128}
0x301a…3038 Head {h00=0x001a, h01=0x0050, text=» ADK A4,1 COUNT ERASE «, t00=0x001e, t01=0x0144}
0x3038…3058 Head {h00=0x001c, h01=0x0050, text=» RB(NG) WRIT20 NOT READY«, t00=0x001e, t01=0x0162}
0x3058…307c Head {h00=0x0020, h01=0x0050, text=» LDKL A4,0 GET RETRY COUNTER«, t00=0x001e, t01=0x0182}
0x307c…30a4 Head {h00=0x0024, h01=0x0050, text=»WRITA4 EQU *-2 **RETRY COUNTER**«, t00=0x001f, t01=0x0016}
0x30a4…30b6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001f, t01=0x003e}
0x30b6…30d6 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) WRIT10 TRY AGAIN«, t00=0x001f, t01=0x0050}
0x30d6…3108 Head {h00=0x002e, h01=0x0050, text=» ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 «, t00=0x001f, t01=0x0070}
0x3108…3122 Head {h00=0x0016, h01=0x0050, text=» RF WRIT50 GIVE UP«, t00=0x001f, t01=0x00a2}
0x3122…312c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00bc}
0x312c…3144 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001f, t01=0x00c6}
0x3144…314e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00de}
0x314e…3158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e8}
0x3158…317c Head {h00=0x0020, h01=0x0050, text=»WRIT30 LD A2,TCDAX GET ORDER«, t00=0x001f, t01=0x00f2}
0x317c…31a0 Head {h00=0x0020, h01=0x0050, text=» SUK A2,4 TAPE MARK WRITTEN?«, t00=0x001f, t01=0x0116}
0x31a0…31ba Head {h00=0x0016, h01=0x0050, text=» RB(NZ) READ30 NO «, t00=0x001f, t01=0x013a}
0x31ba…31d6 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A1 CHECK IF «, t00=0x001f, t01=0x0154}
0x31d6…31f4 Head {h00=0x001a, h01=0x0050, text=» SLL A2,3 TAPE MARK OK«, t00=0x001f, t01=0x0170}
0x31f4…320e Head {h00=0x0016, h01=0x0050, text=» RB(N) READ25 YES «, t00=0x001f, t01=0x018e}
0x320e…3224 Head {h00=0x0012, h01=0x0050, text=» RB WRIT12 NO «, t00=0x0020, t01=0x0018}
0x3224…322e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x002e}
0x322e…326c Head {h00=0x003a, h01=0x0050, text=»WRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR «, t00=0x0020, t01=0x0038}
0x326c…3276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0076}
0x3276…32a6 Head {h00=0x002c, h01=0x0050, text=»WRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH«, t00=0x0020, t01=0x0080}
0x32a6…32b8 Head {h00=0x000e, h01=0x0050, text=» RB READ40«, t00=0x0020, t01=0x00b0}
0x32b8…32c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00c2}
0x32c2…32da Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0020, t01=0x00cc}
0x32da…32e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e4}
0x32e4…32ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ee}
0x32ee…3302 Head {h00=0x0010, h01=0x0050, text=»* L O A D «, t00=0x0020, t01=0x00f8}
0x3302…330c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x010c}
0x330c…3326 Head {h00=0x0016, h01=0x0050, text=»* LOAD CASSETTE «, t00=0x0020, t01=0x0116}
0x3326…3330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0130}
0x3330…333a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013a}
0x333a…3360 Head {h00=0x0022, h01=0x0050, text=»LOAD CF A8,LOCK LOCK CASSETTE «, t00=0x0020, t01=0x0144}
0x3360…3386 Head {h00=0x0022, h01=0x0050, text=» RF(Z) REWIND CASSETTE LOCKED «, t00=0x0020, t01=0x016a}
0x3386…33aa Head {h00=0x0020, h01=0x0050, text=»LOAD10 LDR A1,A2 NO CASSETTE«, t00=0x0020, t01=0x0190}
0x33aa…33bc Head {h00=0x000e, h01=0x0050, text=» RB READ50«, t00=0x0021, t01=0x0024}
0x33bc…33c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0036}
0x33c6…33d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0040}
0x33d0…33e8 Head {h00=0x0014, h01=0x0050, text=»* R E W I N D «, t00=0x0021, t01=0x004a}
0x33e8…33f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0062}
0x33f2…340a Head {h00=0x0014, h01=0x0050, text=»* REWIND TAPE «, t00=0x0021, t01=0x006c}
0x340a…3414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0084}
0x3414…341e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x008e}
0x341e…344e Head {h00=0x002c, h01=0x0050, text=»REWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER «, t00=0x0021, t01=0x0098}
0x344e…347a Head {h00=0x0028, h01=0x0050, text=» CF A8,SBOT SEARCH BEGINNING OF TAPE«, t00=0x0021, t01=0x00c8}
0x347a…348e Head {h00=0x0010, h01=0x0050, text=»REW010 EQU *«, t00=0x0021, t01=0x00f4}
0x348e…34a0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0021, t01=0x0108}
0x34a0…34b2 Head {h00=0x000e, h01=0x0050, text=» SRL A3,7 «, t00=0x0021, t01=0x011a}
0x34b2…34c4 Head {h00=0x000e, h01=0x0050, text=» ANK A3,6 «, t00=0x0021, t01=0x012c}
0x34c4…34e4 Head {h00=0x001c, h01=0x0050, text=» ORK A3,1 PREPARE STATUS«, t00=0x0021, t01=0x013e}
0x34e4…34f6 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0021, t01=0x015e}
0x34f6…3500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0170}
0x3500…3518 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0021, t01=0x017a}
0x3518…3522 (34, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0004}
0x3522…352c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x000e}
0x352c…3544 Head {h00=0x0014, h01=0x0050, text=»* U N L O A D «, t00=0x0022, t01=0x0018}
0x3544…354e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0030}
0x354e…356a Head {h00=0x0018, h01=0x0050, text=»* UNLOAD CASSETTE «, t00=0x0022, t01=0x003a}
0x356a…3574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0056}
0x3574…357e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0060}
0x357e…35a6 Head {h00=0x0024, h01=0x0050, text=»UNLOAD CM DWTST,A6 RESET STATUS «, t00=0x0022, t01=0x006a}
0x35a6…35ca Head {h00=0x0020, h01=0x0050, text=» CF A8,UNLD UNLOAD CASSETTE «, t00=0x0022, t01=0x0092}
0x35ca…35f4 Head {h00=0x0026, h01=0x0050, text=»UNLO10 LDR A1,A2 SAVE RETURN CODE «, t00=0x0022, t01=0x00b6}
0x35f4…3606 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x0022, t01=0x00e0}
0x3606…361a Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0022, t01=0x00f2}
0x361a…3624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0106}
0x3624…362e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0110}
0x362e…3646 Head {h00=0x0014, h01=0x0050, text=»* R E V E R S «, t00=0x0022, t01=0x011a}
0x3646…3650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0132}
0x3650…3670 Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x0022, t01=0x013c}
0x3670…367a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x015c}
0x367a…3684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0166}
0x3684…36a8 Head {h00=0x0020, h01=0x0050, text=»REVERS CF A8,BKSP BACKSPACE «, t00=0x0022, t01=0x0170}
0x36a8…36d0 (35, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LDKL A4,-1 DECREMENT BLOCK SEQ.«, t00=0x0023, t01=0x0004}
0x36d0…36f8 Head {h00=0x0024, h01=0x0050, text=» ADS A4,DWTBKC,A6 COUNTER BY ONE«, t00=0x0023, t01=0x002c}
0x36f8…370a Head {h00=0x000e, h01=0x0050, text=» RB UNLO10«, t00=0x0023, t01=0x0054}
0x370a…3714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0066}
0x3714…372c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0023, t01=0x0070}
0x372c…3736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0088}
0x3736…3740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0092}
0x3740…3758 Head {h00=0x0014, h01=0x0050, text=»* E R T A P E «, t00=0x0023, t01=0x009c}
0x3758…3762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b4}
0x3762…3778 Head {h00=0x0012, h01=0x0050, text=»* ERASE TAPE«, t00=0x0023, t01=0x00be}
0x3778…3782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d4}
0x3782…378c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00de}
0x378c…37b8 Head {h00=0x0028, h01=0x0050, text=»ERTAPE LDK A4,PERAS SET NO OF ERASE «, t00=0x0023, t01=0x00e8}
0x37b8…37e2 Head {h00=0x0026, h01=0x0050, text=»ERT10 CF A8,ERASE ERASE ONE BLOCK «, t00=0x0023, t01=0x0114}
0x37e2…3804 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0023, t01=0x013e}
0x3804…3822 Head {h00=0x001a, h01=0x0050, text=» ORR A1,A2 RETURN CODE«, t00=0x0023, t01=0x0160}
0x3822…3834 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x017e}
0x3834…385a Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ERT10 ERASE NOT READY «, t00=0x0023, t01=0x0190}
0x385a…386c Head {h00=0x000e, h01=0x0050, text=» RB READ50«, t00=0x0024, t01=0x0026}
0x386c…3876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0038}
0x3876…3880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0042}
0x3880…3896 Head {h00=0x0012, h01=0x0050, text=»* O L O C K «, t00=0x0024, t01=0x004c}
0x3896…38a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0062}
0x38a0…38c0 Head {h00=0x001c, h01=0x0050, text=»* ORDER LOCK CASSETTE «, t00=0x0024, t01=0x006c}
0x38c0…38ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x008c}
0x38ca…38d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0096}
0x38d4…38fa Head {h00=0x0022, h01=0x0050, text=»OLOCK CF A8,LOCK LOCK CASSETTE«, t00=0x0024, t01=0x00a0}
0x38fa…3920 Head {h00=0x0022, h01=0x0050, text=» RB(Z) REW010 CASSETTE LOCKED «, t00=0x0024, t01=0x00c6}
0x3920…3932 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0024, t01=0x00ec}
0x3932…393e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00fe}
0x393e…3948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x010a}
0x3948…3960 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0024, t01=0x0114}
0x3960…396a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012c}
0x396a…3974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0136}
0x3974…3990 Head {h00=0x0018, h01=0x0050, text=»* CASSETTE COMMANDS «, t00=0x0024, t01=0x0140}
0x3990…399a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015c}
0x399a…39a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0166}
0x39a4…39b4 Head {h00=0x000c, h01=0x0050, text=»* SELECT«, t00=0x0024, t01=0x0170}
0x39b4…39be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0180}
0x39be…39d2 Head {h00=0x0010, h01=0x0050, text=»SELECT EQU *«, t00=0x0024, t01=0x018a}
0x39d2…39f0 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/FF LOAD MASK «, t00=0x0025, t01=0x000e}
0x39f0…3a16 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A6 SET DWT BUSY «, t00=0x0025, t01=0x002c}
0x3a16…3a2a Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=1«, t00=0x0025, t01=0x0052}
0x3a2a…3a48 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SELECT CODE «, t00=0x0025, t01=0x0066}
0x3a48…3a54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0084}
0x3a54…3a68 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0025, t01=0x0090}
0x3a68…3a8a Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 GET OTHER DWT «, t00=0x0025, t01=0x00a4}
0x3a8a…3ab0 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A3 SET DWT BUSY «, t00=0x0025, t01=0x00c6}
0x3ab0…3ad2 Head {h00=0x001e, h01=0x0050, text=» ANK A3,1 GET SELECT CODE «, t00=0x0025, t01=0x00ec}
0x3ad2…3ade Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x010e}
0x3ade…3ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x011a}
0x3ae8…3b10 Head {h00=0x0024, h01=0x0050, text=»CRCOM CIO A3,1,CHCRDA CIO START «, t00=0x0025, t01=0x0124}
0x3b10…3b20 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0025, t01=0x014c}
0x3b20…3b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x015c}
0x3b2a…3b4c Head {h00=0x001e, h01=0x0050, text=»* READ SEQUENCE CHAR TO A5«, t00=0x0025, t01=0x0166}
0x3b4c…3b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0188}
0x3b56…3b6a (38, 0, 400) Head {h00=0x0010, h01=0x0050, text=»READSQ EQU *«, t00=0x0026, t01=0x0004}
0x3b6a…3b7c Head {h00=0x000e, h01=0x0050, text=» LDK A3,/A«, t00=0x0026, t01=0x0018}
0x3b7c…3bac Head {h00=0x002c, h01=0x0050, text=» ST A3,REQLEN MAKE REQUESTED LENGTH > 0 «, t00=0x0026, t01=0x002a}
0x3bac…3bbe Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0026, t01=0x005a}
0x3bbe…3bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x006c}
0x3bc8…3be0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0026, t01=0x0076}
0x3be0…3bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008e}
0x3bea…3c04 Head {h00=0x0016, h01=0x0050, text=»* READ ONE RECORD «, t00=0x0026, t01=0x0098}
0x3c04…3c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b2}
0x3c0e…3c26 Head {h00=0x0014, h01=0x0050, text=»READR LDK A3,/A «, t00=0x0026, t01=0x00bc}
0x3c26…3c56 Head {h00=0x002c, h01=0x0050, text=»READR1 CM EFFLEN RESET EFFECTIVE LENGTH «, t00=0x0026, t01=0x00d4}
0x3c56…3c7c Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET BUFFER ADDRESS «, t00=0x0026, t01=0x0104}
0x3c7c…3c9e Head {h00=0x001e, h01=0x0050, text=»BUFADR EQU *-2 **BUFADR** «, t00=0x0026, t01=0x012a}
0x3c9e…3cb2 Head {h00=0x0010, h01=0x0050, text=» ST A2,TCDBA«, t00=0x0026, t01=0x014c}
0x3cb2…3cda Head {h00=0x0024, h01=0x0050, text=» LDKL A2,0 GET REQUESTED LENGTH «, t00=0x0026, t01=0x0160}
0x3cda…3cfc Head {h00=0x001e, h01=0x0050, text=»HELPME EQU *-2 **HELPME** «, t00=0x0026, t01=0x0188}
0x3cfc…3d12 Head {h00=0x0012, h01=0x0050, text=» ST A2,REQLEN «, t00=0x0027, t01=0x001a}
0x3d12…3d24 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0027, t01=0x0030}
0x3d24…3d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0042}
0x3d2e…3d48 Head {h00=0x0016, h01=0x0050, text=»* WRITE ONE RECORD«, t00=0x0027, t01=0x004c}
0x3d48…3d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0066}
0x3d52…3d6a Head {h00=0x0014, h01=0x0050, text=»WRITER LDK A3,/B«, t00=0x0027, t01=0x0070}
0x3d6a…3d7c Head {h00=0x000e, h01=0x0050, text=» RB READR1«, t00=0x0027, t01=0x0088}
0x3d7c…3d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x009a}
0x3d86…3da0 Head {h00=0x0016, h01=0x0050, text=»* ERASE ONE BLOCK «, t00=0x0027, t01=0x00a4}
0x3da0…3daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00be}
0x3daa…3dc0 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,9«, t00=0x0027, t01=0x00c8}
0x3dc0…3dd2 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0027, t01=0x00de}
0x3dd2…3ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f0}
0x3ddc…3df4 Head {h00=0x0014, h01=0x0050, text=»* LOCK CASSETTE «, t00=0x0027, t01=0x00fa}
0x3df4…3dfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0112}
0x3dfe…3e14 Head {h00=0x0012, h01=0x0050, text=»LOCK LDK A3,2 «, t00=0x0027, t01=0x011c}
0x3e14…3e26 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0027, t01=0x0132}
0x3e26…3e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0144}
0x3e30…3e48 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0027, t01=0x014e}
0x3e48…3e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0166}
0x3e52…3e74 Head {h00=0x001e, h01=0x0050, text=»* SEARCH BEGINNING OF TAPE«, t00=0x0027, t01=0x0170}
0x3e74…3e7e (40, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0004}
0x3e7e…3e94 Head {h00=0x0012, h01=0x0050, text=»SBOT LDK A3,8 «, t00=0x0028, t01=0x000e}
0x3e94…3ea6 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0028, t01=0x0024}
0x3ea6…3eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0036}
0x3eb0…3eda Head {h00=0x0026, h01=0x0050, text=»* REWIND TAPE AND UNLOCK CASSETTE «, t00=0x0028, t01=0x0040}
0x3eda…3ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x006a}
0x3ee4…3efa Head {h00=0x0012, h01=0x0050, text=»UNLD LDK A3,/F«, t00=0x0028, t01=0x0074}
0x3efa…3f0c Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0028, t01=0x008a}
0x3f0c…3f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009c}
0x3f16…3f34 Head {h00=0x001a, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x0028, t01=0x00a6}
0x3f34…3f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c4}
0x3f3e…3f54 Head {h00=0x0012, h01=0x0050, text=»BKSP LDK A3,/E«, t00=0x0028, t01=0x00ce}
0x3f54…3f66 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0028, t01=0x00e4}
0x3f66…3f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f6}
0x3f70…3f88 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0028, t01=0x0100}
0x3f88…3f92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0118}
0x3f92…3f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0122}
0x3f9c…3fb0 Head {h00=0x0010, h01=0x0050, text=»* I H T C «, t00=0x0028, t01=0x012c}
0x3fb0…3fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0140}
0x3fba…3fee Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER : PROCESS OF INTERRUPT«, t00=0x0028, t01=0x014a}
0x3fee…3ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x017e}
0x3ff8…4002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0188}
0x4002…4014 (41, 0, 400) Head {h00=0x000e, h01=0x0050, text=»IHTC EQU *«, t00=0x0029, t01=0x0004}
0x4014…403c Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0029, t01=0x0016}
0x403c…4060 Head {h00=0x0020, h01=0x0050, text=» STR A5,A15 SAVE A5 ON STACK«, t00=0x0029, t01=0x003e}
0x4060…4076 Head {h00=0x0012, h01=0x0050, text=» SST A5,CHCRDA«, t00=0x0029, t01=0x0062}
0x4076…4096 Head {h00=0x001c, h01=0x0050, text=» RF(A) SST SST ACCEPTED «, t00=0x0029, t01=0x0078}
0x4096…40ba Head {h00=0x0020, h01=0x0050, text=» IM REQLEN INCREMENT COUNTER«, t00=0x0029, t01=0x0098}
0x40ba…40d0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) CIOHLT «, t00=0x0029, t01=0x00bc}
0x40d0…40fa Head {h00=0x0026, h01=0x0050, text=» RF(P) INRSQ GET SEQUENCE COUNTER «, t00=0x0029, t01=0x00d2}
0x40fa…411e Head {h00=0x0020, h01=0x0050, text=» STR A3,A15 SAVE A3 ON STACK«, t00=0x0029, t01=0x00fc}
0x411e…4144 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,0 GET BUFFER ADDRESS «, t00=0x0029, t01=0x0120}
0x4144…416c Head {h00=0x0024, h01=0x0050, text=»TCDBA EQU *-2 **BUFFER ADDRESS**«, t00=0x0029, t01=0x0146}
0x416c…4196 Head {h00=0x0026, h01=0x0050, text=» IM TCDBA INCREMENT BUFFER ADDRESS«, t00=0x0029, t01=0x016e}
0x4196…41ce Head {h00=0x0034, h01=0x0050, text=» LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE «, t00=0x002a, t01=0x0008}
0x41ce…41e0 Head {h00=0x000e, h01=0x0050, text=» SUK A5,10«, t00=0x002a, t01=0x0040}
0x41e0…41fc Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IHTC05 WRITE«, t00=0x002a, t01=0x0052}
0x41fc…4206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x006e}
0x4206…4230 Head {h00=0x0026, h01=0x0050, text=»IHTC02 INR A5,0,CHCRDA READ CHAR. «, t00=0x002a, t01=0x0078}
0x4230…425c Head {h00=0x0028, h01=0x0050, text=» SCR A5,A3 STORE CHARACTER IN BUFFER«, t00=0x002a, t01=0x00a2}
0x425c…426e Head {h00=0x000e, h01=0x0050, text=» RF EXIT2 «, t00=0x002a, t01=0x00ce}
0x426e…4278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e0}
0x4278…428c Head {h00=0x0010, h01=0x0050, text=»IHTC05 EQU *«, t00=0x002a, t01=0x00ea}
0x428c…42b4 Head {h00=0x0024, h01=0x0050, text=» LCR A5,A3 GET CHAR FROM BUFFER «, t00=0x002a, t01=0x00fe}
0x42b4…42d6 Head {h00=0x001e, h01=0x0050, text=» OTR A5,0,CHCRDA OUTPUT IT«, t00=0x002a, t01=0x0126}
0x42d6…42ee Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002a, t01=0x0148}
0x42ee…42f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0160}
0x42f8…4302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x016a}
0x4302…431c Head {h00=0x0016, h01=0x0050, text=»EXIT2 ST A5,TCDA5 «, t00=0x002a, t01=0x0174}
0x431c…434a Head {h00=0x002a, h01=0x0050, text=» IM EFFLEN INCREMENT EFFECTIVE LENGTH«, t00=0x002a, t01=0x018e}
0x434a…437c Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A15 RESTORE A3 AND A5 FROM STACK «, t00=0x002b, t01=0x002c}
0x437c…4386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x005e}
0x4386…43a0 Head {h00=0x0016, h01=0x0050, text=»EXIT3 LDR* A5,A15 «, t00=0x002b, t01=0x0068}
0x43a0…43b0 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002b, t01=0x0082}
0x43b0…43ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0092}
0x43ba…43e8 Head {h00=0x002a, h01=0x0050, text=»INRSQ INR A5,0,CHCRDA READ CHAR TO A5 «, t00=0x002b, t01=0x009c}
0x43e8…43fc Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x002b, t01=0x00ca}
0x43fc…440e Head {h00=0x000e, h01=0x0050, text=» RB EXIT3 «, t00=0x002b, t01=0x00de}
0x440e…4418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f0}
0x4418…443c Head {h00=0x0020, h01=0x0050, text=»SST ST A5,TCDA2 SAVE STATUS «, t00=0x002b, t01=0x00fa}
0x443c…445c Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A15 RESTORE A5 «, t00=0x002b, t01=0x011e}
0x445c…4480 Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x002b, t01=0x013e}
0x4480…4492 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,0«, t00=0x002b, t01=0x0162}
0x4492…44a8 Head {h00=0x0012, h01=0x0050, text=»TCDA1 EQU *-2 «, t00=0x002b, t01=0x0174}
0x44a8…44ba Head {h00=0x000e, h01=0x0050, text=» LDKL A4,0«, t00=0x002b, t01=0x018a}
0x44ba…44d0 Head {h00=0x0012, h01=0x0050, text=»TCDA4 EQU *-2 «, t00=0x002c, t01=0x000c}
0x44d0…44e2 Head {h00=0x000e, h01=0x0050, text=» LDKL A5,0«, t00=0x002c, t01=0x0022}
0x44e2…44f8 Head {h00=0x0012, h01=0x0050, text=»TCDA5 EQU *-2 «, t00=0x002c, t01=0x0034}
0x44f8…450a Head {h00=0x000e, h01=0x0050, text=» LDKL A6,0«, t00=0x002c, t01=0x004a}
0x450a…4520 Head {h00=0x0012, h01=0x0050, text=»TCDA6 EQU *-2 «, t00=0x002c, t01=0x005c}
0x4520…4532 Head {h00=0x000e, h01=0x0050, text=» LDKL A8,0«, t00=0x002c, t01=0x0072}
0x4532…4548 Head {h00=0x0012, h01=0x0050, text=»TCDA8 EQU *-2 «, t00=0x002c, t01=0x0084}
0x4548…4560 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002c, t01=0x009a}
0x4560…456a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b2}
0x456a…4574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00bc}
0x4574…4596 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,0 RESTORE STATUS «, t00=0x002c, t01=0x00c6}
0x4596…45ac Head {h00=0x0012, h01=0x0050, text=»TCDA2 EQU *-2 «, t00=0x002c, t01=0x00e8}
0x45ac…45ca Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 GET STATUS«, t00=0x002c, t01=0x00fe}
0x45ca…45e2 Head {h00=0x0014, h01=0x0050, text=» SLL A3,9 SHIFT «, t00=0x002c, t01=0x011c}
0x45e2…4604 Head {h00=0x001e, h01=0x0050, text=» ST A3,2,A8 SAVE ON STACK «, t00=0x002c, t01=0x0134}
0x4604…4630 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 PUT DWT STATUS IN A3«, t00=0x002c, t01=0x0156}
0x4630…463a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0182}
0x463a…464e Head {h00=0x0010, h01=0x0050, text=»IHTRTN EQU *«, t00=0x002c, t01=0x018c}
0x464e…465e Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x002d, t01=0x0010}
0x465e…4668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0020}
0x4668…467c Head {h00=0x0010, h01=0x0050, text=»CIOHLT EQU *«, t00=0x002d, t01=0x002a}
0x467c…469e Head {h00=0x001e, h01=0x0050, text=» CIO A1,0,CHCRDA CIO-HALT«, t00=0x002d, t01=0x003e}
0x469e…46b0 Head {h00=0x000e, h01=0x0050, text=» RB EXIT3 «, t00=0x002d, t01=0x0060}
0x46b0…46ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0072}
0x46ba…46d2 Head {h00=0x0014, h01=0x0050, text=»EXIT ST A1,TCDA1«, t00=0x002d, t01=0x007c}
0x46d2…46e6 Head {h00=0x0010, h01=0x0050, text=» ST A4,TCDA4«, t00=0x002d, t01=0x0094}
0x46e6…46fa Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x002d, t01=0x00a8}
0x46fa…470e Head {h00=0x0010, h01=0x0050, text=» ST A6,TCDA6«, t00=0x002d, t01=0x00bc}
0x470e…4722 Head {h00=0x0010, h01=0x0050, text=» ST A8,TCDA8«, t00=0x002d, t01=0x00d0}
0x4722…4746 Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER«, t00=0x002d, t01=0x00e4}
0x4746…4750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0108}
0x4750…4768 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002d, t01=0x0112}
0x4768…4772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x012a}
0x4772…477c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0134}
0x477c…4794 Head {h00=0x0014, h01=0x0050, text=»* R C O V E R «, t00=0x002d, t01=0x013e}
0x4794…479e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0156}
0x479e…47dc Head {h00=0x003a, h01=0x0050, text=»* RECOVERY ROUTINE : POSITIONING OF TAPE AT POWER ON«, t00=0x002d, t01=0x0160}
0x47dc…47e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x000e}
0x47e6…47f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0018}
0x47f0…4804 Head {h00=0x0010, h01=0x0050, text=»RCOVER EQU *«, t00=0x002e, t01=0x0022}
0x4804…4820 Head {h00=0x0018, h01=0x0050, text=» CF A8,SELECT SELECT«, t00=0x002e, t01=0x0036}
0x4820…4832 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x002e, t01=0x0052}
0x4832…4868 Head {h00=0x0032, h01=0x0050, text=» RB(Z) IHTRTN NOT LOCKED: RETURN FROM RECOVERY«, t00=0x002e, t01=0x0064}
0x4868…487c Head {h00=0x0010, h01=0x0050, text=» CF A8,LOCK «, t00=0x002e, t01=0x009a}
0x487c…489e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) REPER NO CASSETTE «, t00=0x002e, t01=0x00ae}
0x489e…48ce Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ «, t00=0x002e, t01=0x00d0}
0x48ce…48e8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RC0050 YES«, t00=0x002e, t01=0x0100}
0x48e8…4914 Head {h00=0x0028, h01=0x0050, text=» CF A8,SBOT SEARCH BEGINNING OF TAPE«, t00=0x002e, t01=0x011a}
0x4914…4926 Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x002e, t01=0x0146}
0x4926…494a Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x002e, t01=0x0158}
0x494a…495c Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x002e, t01=0x017c}
0x495c…4966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x018e}
0x4966…4992 Head {h00=0x0028, h01=0x0050, text=»RC0050 LD A1,SEKBYT,A6 SEQ. COUNTING«, t00=0x002f, t01=0x0008}
0x4992…49aa Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REPER NO«, t00=0x002f, t01=0x0034}
0x49aa…49b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x004c}
0x49b4…49cc Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002f, t01=0x0056}
0x49cc…49d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x006e}
0x49d6…49e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0078}
0x49e0…49f6 Head {h00=0x0012, h01=0x0050, text=»* R E P O S «, t00=0x002f, t01=0x0082}
0x49f6…4a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0098}
0x4a00…4a2e Head {h00=0x002a, h01=0x0050, text=»* REPOSITIONING OF TAPE AT POWER ON «, t00=0x002f, t01=0x00a2}
0x4a2e…4a4c Head {h00=0x001a, h01=0x0050, text=»* AND WRITE RECOVERY«, t00=0x002f, t01=0x00d0}
0x4a4c…4a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ee}
0x4a56…4a8e Head {h00=0x0034, h01=0x0050, text=»* EXIT: A2 EQ ZERO SUCCESS«, t00=0x002f, t01=0x00f8}
0x4a8e…4aca Head {h00=0x0038, h01=0x0050, text=»* A2 NOT EQ ZERO NO SUCCESS «, t00=0x002f, t01=0x0130}
0x4aca…4ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x016c}
0x4ad4…4ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0176}
0x4ade…4af2 Head {h00=0x0010, h01=0x0050, text=»REPOS EQU * «, t00=0x002f, t01=0x0180}
0x4af2…4b1a (48, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LDK A4,8 SET REPOSITIONING BIT «, t00=0x0030, t01=0x0004}
0x4b1a…4b40 Head {h00=0x0022, h01=0x0050, text=» ORS A4,DWTST,A6 STORE IN DWT «, t00=0x0030, t01=0x002c}
0x4b40…4b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0052}
0x4b4a…4b5e Head {h00=0x0010, h01=0x0050, text=»REP005 EQU *«, t00=0x0030, t01=0x005c}
0x4b5e…4b88 Head {h00=0x0026, h01=0x0050, text=» LDK A4,PSUBS SET NO OF BACKSPACES«, t00=0x0030, t01=0x0070}
0x4b88…4b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x009a}
0x4b92…4bb6 Head {h00=0x0020, h01=0x0050, text=»REP010 CF A8,BKSP BACKSPACE «, t00=0x0030, t01=0x00a4}
0x4bb6…4bc8 Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0030, t01=0x00c8}
0x4bc8…4bea Head {h00=0x001e, h01=0x0050, text=» RF(NN) REP015 DATA FOUND «, t00=0x0030, t01=0x00da}
0x4bea…4c14 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTBKC,A6 GET BLOCK COUNTER«, t00=0x0030, t01=0x00fc}
0x4c14…4c32 Head {h00=0x001a, h01=0x0050, text=» SUK A2,8 GREATER 8 ? «, t00=0x0030, t01=0x0126}
0x4c32…4c4a Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x0030, t01=0x0144}
0x4c4a…4c7c Head {h00=0x002e, h01=0x0050, text=» CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE «, t00=0x0030, t01=0x015c}
0x4c7c…4c8e Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0030, t01=0x018e}
0x4c8e…4cb2 Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x0031, t01=0x0010}
0x4cb2…4cd8 Head {h00=0x0022, h01=0x0050, text=» LDKL A5,-1 RESET SEQ. COUNTER«, t00=0x0031, t01=0x0034}
0x4cd8…4cfa Head {h00=0x001e, h01=0x0050, text=» RF REP020 READ SEQ. CHAR «, t00=0x0031, t01=0x005a}
0x4cfa…4d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x007c}
0x4d04…4d1c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0031, t01=0x0086}
0x4d1c…4d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x009e}
0x4d26…4d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a8}
0x4d30…4d44 Head {h00=0x0010, h01=0x0050, text=»REP015 EQU *«, t00=0x0031, t01=0x00b2}
0x4d44…4d56 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0031, t01=0x00c6}
0x4d56…4d7c Head {h00=0x0022, h01=0x0050, text=» RB(NZ) REP010 BACKSPACE AGAIN«, t00=0x0031, t01=0x00d8}
0x4d7c…4da4 Head {h00=0x0024, h01=0x0050, text=» LDK A4,PREAD SET NO OF MAX READ«, t00=0x0031, t01=0x00fe}
0x4da4…4dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0126}
0x4dae…4dd8 Head {h00=0x0026, h01=0x0050, text=»REP017 CF A8,READSQ READ SEQ. CHAR«, t00=0x0031, t01=0x0130}
0x4dd8…4dfc Head {h00=0x0020, h01=0x0050, text=» LDKL A7,/180F SET READ MASK«, t00=0x0031, t01=0x015a}
0x4dfc…4e0e Head {h00=0x000e, h01=0x0050, text=» TM A2,A7 «, t00=0x0031, t01=0x017e}
0x4e0e…4e2c Head {h00=0x001a, h01=0x0050, text=» RF(Z) REP020 READ OK «, t00=0x0031, t01=0x0190}
0x4e2c…4e48 Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 COUNT READ«, t00=0x0032, t01=0x001e}
0x4e48…4e70 Head {h00=0x0024, h01=0x0050, text=» RB(P) REP017 NOT ALL READ DONE «, t00=0x0032, t01=0x003a}
0x4e70…4e8a Head {h00=0x0016, h01=0x0050, text=» RF REP060 GIVE UP«, t00=0x0032, t01=0x0062}
0x4e8a…4e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x007c}
0x4e94…4ec2 Head {h00=0x002a, h01=0x0050, text=»REP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR«, t00=0x0032, t01=0x0086}
0x4ec2…4ede Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 CALCULATE«, t00=0x0032, t01=0x00b4}
0x4ede…4f00 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 NO OF BLOCKS TO «, t00=0x0032, t01=0x00d0}
0x4f00…4f22 Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF READ FORWARD. «, t00=0x0032, t01=0x00f2}
0x4f22…4f46 Head {h00=0x0020, h01=0x0050, text=» CWK A4,PINT TOO MANY BLOCKS«, t00=0x0032, t01=0x0114}
0x4f46…4f5e Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x0032, t01=0x0138}
0x4f5e…4f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0150}
0x4f68…4f80 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0032, t01=0x015a}
0x4f80…4f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0172}
0x4f8a…4f94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x017c}
0x4f94…4fba Head {h00=0x0022, h01=0x0050, text=»REP030 SUK A4,1 POSITION TAPE «, t00=0x0032, t01=0x0186}
0x4fba…4fd6 Head {h00=0x0018, h01=0x0050, text=» RF(N) REP040 READY «, t00=0x0033, t01=0x001c}
0x4fd6…4ffc Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ NEXT BLOCK «, t00=0x0033, t01=0x0038}
0x4ffc…500e Head {h00=0x000e, h01=0x0050, text=» RB REP030«, t00=0x0033, t01=0x005e}
0x500e…5018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0070}
0x5018…5044 Head {h00=0x0028, h01=0x0050, text=»REP040 LDK A4,RTRIES SET NO OF RETRY«, t00=0x0033, t01=0x007a}
0x5044…506e Head {h00=0x0026, h01=0x0050, text=»REP042 LDKL A7,/80F SET READ MASK «, t00=0x0033, t01=0x00a6}
0x506e…508c Head {h00=0x001a, h01=0x0050, text=» TM A2,A7 CORRECT READ«, t00=0x0033, t01=0x00d0}
0x508c…50a6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) REP045 YES «, t00=0x0033, t01=0x00ee}
0x50a6…50c4 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 COUNT RETRY «, t00=0x0033, t01=0x0108}
0x50c4…50e2 Head {h00=0x001a, h01=0x0050, text=» RF(NP) REP060 GIVE UP«, t00=0x0033, t01=0x0126}
0x50e2…5100 Head {h00=0x001a, h01=0x0050, text=» CF A8,BKSP BACKSPACE «, t00=0x0033, t01=0x0144}
0x5100…5126 Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ SEQ NUMBER «, t00=0x0033, t01=0x0162}
0x5126…5138 Head {h00=0x000e, h01=0x0050, text=» RB REP042«, t00=0x0033, t01=0x0188}
0x5138…5142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x000a}
0x5142…515a Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0034, t01=0x0014}
0x515a…5164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x002c}
0x5164…516e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0036}
0x516e…5186 Head {h00=0x0014, h01=0x0050, text=»REP045 SLC A2,3 «, t00=0x0034, t01=0x0040}
0x5186…51aa Head {h00=0x0020, h01=0x0050, text=» RF(NN) REP050 NOT TAPE MARK«, t00=0x0034, t01=0x0058}
0x51aa…51be Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0034, t01=0x007c}
0x51be…51ec Head {h00=0x002a, h01=0x0050, text=» RF(Z) REP060 SHOULD NOT BE TAPE MARK «, t00=0x0034, t01=0x0090}
0x51ec…51fe Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x0034, t01=0x00be}
0x51fe…5208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00d0}
0x5208…5232 Head {h00=0x0026, h01=0x0050, text=»REP050 ADK A5,1 CHECK SEQ. NUMBER «, t00=0x0034, t01=0x00da}
0x5232…524c Head {h00=0x0016, h01=0x0050, text=» CC A5,DWTBKC+1,A6«, t00=0x0034, t01=0x0104}
0x524c…5266 Head {h00=0x0016, h01=0x0050, text=» RF(E) REPOK EQUAL«, t00=0x0034, t01=0x011e}
0x5266…5270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0138}
0x5270…528e Head {h00=0x001a, h01=0x0050, text=»REP060 LD A7,DWTST,A6 «, t00=0x0034, t01=0x0142}
0x528e…52b6 Head {h00=0x0024, h01=0x0050, text=» ANK A7,8 TRY POSITIONING AGAIN?«, t00=0x0034, t01=0x0160}
0x52b6…52ce Head {h00=0x0014, h01=0x0050, text=» RF(Z) REPER NO «, t00=0x0034, t01=0x0188}
0x52ce…52fe Head {h00=0x002c, h01=0x0050, text=» XRS A7,DWTST,A6 RESET REPOSITIONING BIT«, t00=0x0035, t01=0x0010}
0x52fe…5314 Head {h00=0x0012, h01=0x0050, text=» RB REP005 YES«, t00=0x0035, t01=0x0040}
0x5314…531e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0056}
0x531e…5328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0060}
0x5328…5362 Head {h00=0x0036, h01=0x0050, text=»REPER LDK A2,2 IND RECOVERY/SEQUENCE ERROR STATUS «, t00=0x0035, t01=0x006a}
0x5362…5388 Head {h00=0x0022, h01=0x0050, text=» ORS A2,SEKBYT,A6 SAVE IN DWT «, t00=0x0035, t01=0x00a4}
0x5388…5398 Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0035, t01=0x00ca}
0x5398…53a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00da}
0x53a2…53ce Head {h00=0x0028, h01=0x0050, text=»REPOK LDK A2,0 IND RECOVERY CORRECT «, t00=0x0035, t01=0x00e4}
0x53ce…53de Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0035, t01=0x0110}
0x53de…53e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0120}
0x53e8…5400 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0035, t01=0x012a}
0x5400…540a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0142}
0x540a…5414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x014c}
0x5414…542c Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 2 «, t00=0x0035, t01=0x0156}
0x542c…5436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x016e}
0x5436…546c Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 02«, t00=0x0035, t01=0x0178}
0x546c…5476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x001e}
0x5476…5480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0028}
0x5480…54a0 Head {h00=0x001c, h01=0x0050, text=»DWTC02 EQU * TABLE ENTRY«, t00=0x0036, t01=0x0032}
0x54a0…54b4 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0036, t01=0x0052}
0x54b4…54d4 Head {h00=0x001c, h01=0x0050, text=» DATA DWTC01+1 DWT NO. 1«, t00=0x0036, t01=0x0066}
0x54d4…5508 Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x0036, t01=0x0086}
0x5508…5524 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0036, t01=0x00ba}
0x5524…553a Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0036, t01=0x00d6}
0x553a…5566 Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x0036, t01=0x00ec}
0x5566…5582 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x0036, t01=0x0118}
0x5582…55aa Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0036, t01=0x0134}
0x55aa…55c8 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0036, t01=0x015c}
0x55c8…55e6 Head {h00=0x001a, h01=0x0050, text=» DATA 0 BLOCK COUNTER «, t00=0x0036, t01=0x017a}
0x55e6…5604 Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x0037, t01=0x0008}
0x5604…5610 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0026}
0x5610…5628 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0037, t01=0x0032}
0x5628…5632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x004a}
0x5632…563c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0054}
0x563c…5654 Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 1 «, t00=0x0037, t01=0x005e}
0x5654…565e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0076}
0x565e…5694 Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 01«, t00=0x0037, t01=0x0080}
0x5694…569e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b6}
0x569e…56a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00c0}
0x56a8…56ca Head {h00=0x001e, h01=0x0050, text=»DWTC01 EQU * TABLE ENTRY «, t00=0x0037, t01=0x00ca}
0x56ca…56e8 Head {h00=0x001a, h01=0x0050, text=» DATA DWTC02 DWT NO. 2«, t00=0x0037, t01=0x00ec}
0x56e8…571c Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x0037, t01=0x010a}
0x571c…5738 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0037, t01=0x013e}
0x5738…574e Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0037, t01=0x015a}
0x574e…577a Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x0037, t01=0x0170}
0x577a…5796 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x0038, t01=0x000c}
0x5796…57be Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0038, t01=0x0028}
0x57be…57dc Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0038, t01=0x0050}
0x57dc…5806 Head {h00=0x0026, h01=0x0050, text=»DWTBKC EQU *-DWTC01 BLOCK COUNTER «, t00=0x0038, t01=0x006e}
0x5806…5816 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0038, t01=0x0098}
0x5816…5832 Head {h00=0x0018, h01=0x0050, text=»SEKBYT EQU *-DWTC01 «, t00=0x0038, t01=0x00a8}
0x5832…5850 Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x0038, t01=0x00c4}
0x5850…585a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e2}
0x585a…5864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ec}
0x5864…588a Head {h00=0x0022, h01=0x0050, text=»REQLEN DATA 0 REQUESTED LENGTH«, t00=0x0038, t01=0x00f6}
0x588a…5894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x011c}
0x5894…589e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0126}
0x589e…58a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0130}
0x58a8…58b4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0038, t01=0x013a}
0x58b4…58b8 Head {h00=0x4004, h01=0x0000}
0x58b8…58bc 00 38 01 46 ┆ 8 F┆
0x58bc…58c4 (57, 1, 8) 20 04 00 00 00 39 00 04 ┆ 9 ┆
0x58c4…5914 (58, 0, 400) 00 1c 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 38 5c 47 45 54 20 49 44 2d 57 4f 52 44 20 00 3a 00 04 00 2c 00 50 5c 41 4e 4b 5c 41 36 2c 2f 46 46 5c 54 57 4f 20 54 49 4d 45 53 20 4e 55 4d 42 45 52 20 4f 46 20 44 45 56 49 43 45 53 20 00 3a 00 24 ┆ P LDR* A6,A8 GET ID-WORD : , P ANK A6,/FF TWO TIMES NUMBER OF DEVICES : $┆
0x5914…5964 00 34 00 50 5c 41 44 52 5c 41 38 2c 41 34 5c 41 44 44 52 45 53 53 20 54 4f 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 20 50 4f 53 49 54 49 4f 4e 00 3a 00 54 00 24 00 50 47 54 4c 30 31 30 5c 41 42 4c 5c 52 54 4e 41 31 35 5c 52 45 ┆ 4 P ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION : T $ PGTL010 ABL RTNA15 RE┆
0x5964…59b4 54 55 52 4e 20 41 4e 44 20 45 4e 42 00 3a 00 8c 00 0a 00 50 5c 45 4a 45 43 54 00 3a 00 b4 00 06 00 50 2a 20 00 3a 00 c2 00 14 00 50 2a 20 20 20 4f 20 55 20 54 20 4c 20 49 20 4e 20 00 3a 00 cc 00 06 00 50 2a 20 00 3a 00 e4 00 3a 00 50 2a 20 ┆TURN AND ENB : P EJECT : P* : P* O U T L I N : P* : : P* ┆
0x59b4…5a04 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 53 45 4e 44 20 4f 4e 45 20 43 48 41 52 41 43 54 45 52 20 56 49 41 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 2e 00 3a 00 ee 00 06 00 50 2a 20 00 3a 01 2c 00 3c 00 50 2a 20 20 20 20 20 43 48 41 52 ┆ SUBROUTINE TO SEND ONE CHARACTER VIA CHANNEL UNIT. : P* : , < P* CHAR┆
0x5a04…5a54 41 43 54 45 52 20 47 49 56 45 4e 20 49 4e 20 41 32 20 49 53 20 53 45 4e 54 20 56 49 41 20 43 48 4c 54 20 49 46 20 43 4f 4e 54 52 4f 4c 20 00 3a 01 36 00 38 00 50 2a 20 20 20 20 20 55 4e 49 54 20 49 53 20 46 52 45 45 2e 20 49 4e 20 4f 54 48 ┆ACTER GIVEN IN A2 IS SENT VIA CHLT IF CONTROL : 6 8 P* UNIT IS FREE. IN OTH┆
0x5a54…5aa4 (59, 0, 400) 45 52 20 43 41 53 45 20 44 57 54 20 49 53 20 51 55 45 55 45 44 20 4f 4e 20 41 00 3a 01 76 00 1e 00 50 2a 20 20 20 20 20 4f 55 54 50 55 54 20 51 55 45 55 45 20 54 48 52 45 41 44 2e 00 3b 00 22 00 06 00 50 2a 20 00 3b 00 44 00 14 00 50 2a 20 ┆ER CASE DWT IS QUEUED ON A : v P* OUTPUT QUEUE THREAD. ; " P* ; D P* ┆
0x5aa4…5af4 20 20 20 20 4f 4e 20 45 4e 54 52 59 3a 20 00 3b 00 4e 00 06 00 50 2a 20 00 3b 00 66 00 2e 00 50 2a 20 20 20 20 20 41 32 20 3d 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 52 49 47 48 54 20 42 59 54 45 20 00 3b 00 70 00 1a ┆ ON ENTRY: ; N P* ; f . P* A2 = OUTPUT CHARACTER IN RIGHT BYTE ; p ┆
0x5af4…5b44 00 50 2a 20 20 20 20 20 41 36 20 3d 20 44 57 54 2d 41 44 44 52 45 53 53 00 3b 00 a2 00 06 00 50 2a 20 00 3b 00 c0 00 10 00 50 4f 55 54 4c 49 4e 5c 45 51 55 5c 2a 00 3b 00 ca 00 22 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 ┆ P* A6 = DWT-ADDRESS ; P* ; POUTLIN EQU * ; " P CF A15,SAVE8 SAVE┆
0x5b44…5b94 20 52 45 47 53 20 41 31 2d 41 38 20 00 3b 00 de 00 06 00 50 2a 20 00 3b 01 04 00 12 00 50 5c 49 46 46 5c 4c 4f 43 48 41 4e 3d 31 20 00 3b 01 0e 00 06 00 50 2a 20 00 3b 01 24 00 22 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 36 5c 43 48 41 4e 4e 45 ┆ REGS A1-A8 ; P* ; P IFF LOCHAN=1 ; P* ; $ " P LDR* A1,A6 CHANNE┆
0x5b94…5be4 4c 20 50 41 52 41 4d 45 54 45 52 20 00 3b 01 2e 00 1c 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 5c 43 48 41 4e 4e 45 4c 20 49 4e 44 45 58 00 3b 01 54 00 0e 00 50 5c 53 4c 4c 5c 41 31 2c 31 20 00 3b 01 74 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 32 20 ┆L PARAMETER ; . P ANK A1,/F CHANNEL INDEX ; T P SLL A1,1 ; t P ADK A1,2 ┆
0x5be4…5c34 (60, 0, 400) 00 3b 01 86 00 2a 00 50 5c 4c 44 5c 41 31 2c 43 48 54 41 42 2c 41 31 5c 47 45 54 20 43 57 54 2d 41 44 44 52 45 53 53 20 49 4e 20 41 31 20 00 3c 00 08 00 06 00 50 2a 20 00 3c 00 36 00 08 00 50 5c 58 49 46 00 3c 00 40 00 06 00 50 2a 20 00 3c ┆ ; * P LD A1,CHTAB,A1 GET CWT-ADDRESS IN A1 < P* < 6 P XIF < @ P* <┆
0x5c34…5c84 00 4c 00 06 00 50 2a 20 00 3c 00 56 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 31 20 00 3c 00 60 00 06 00 50 2a 20 00 3c 00 76 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 2c 43 57 54 4c 54 31 20 00 3c 00 80 00 06 00 50 2a 20 00 3c 00 98 00 08 ┆ L P* < V P IFT LOCHAN=1 < ` P* < v P LDKL A1,CWTLT1 < P* < ┆
0x5c84…5cd4 00 50 5c 58 49 46 00 3c 00 a2 00 06 00 50 2a 20 00 3c 00 ae 00 1c 00 50 5c 49 4e 48 5c 5c 49 4e 48 49 42 49 54 20 49 4e 54 45 52 52 55 50 54 20 00 3c 00 b8 00 1e 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 5c 49 53 20 55 4e 49 54 20 46 52 45 45 ┆ P XIF < P* < P INH INHIBIT INTERRUPT < P LDR* A4,A1 IS UNIT FREE┆
0x5cd4…5d24 20 3f 00 3c 00 d8 00 16 00 50 5c 52 46 28 45 29 5c 4f 55 4c 30 35 30 5c 59 45 53 20 00 3c 00 fa 00 0a 00 50 5c 45 4a 45 43 54 00 3c 01 14 00 06 00 50 2a 20 00 3c 01 22 00 16 00 50 2a 20 20 20 20 51 55 45 55 45 20 4f 55 54 50 55 54 20 00 3c ┆ ? < P RF(E) OUL050 YES < P EJECT < P* < " P* QUEUE OUTPUT <┆
0x5d24…5d74 01 2c 00 06 00 50 2a 20 00 3c 01 46 00 26 00 50 4f 55 4c 30 30 35 5c 4c 44 5c 41 34 2c 43 57 54 45 51 2c 41 31 5c 4f 55 54 50 55 54 20 51 55 45 55 45 00 3c 01 50 00 12 00 50 5c 52 46 28 45 29 5c 4f 55 4c 30 32 30 20 00 3c 01 7a 00 14 00 50 ┆ , P* < F & POUL005 LD A4,CWTEQ,A1 OUTPUT QUEUE < P P RF(E) OUL020 < z P┆