|
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: 26992 (0x6970)
Notes: pts_type(SC)
Names: »DRTC01.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/DRTC01.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/DRTC01.SC«
IDENT DRTC01 REL 10.0 80-03-14 870105041000 * * ******************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRTC01 = DRIVER TAPE CASSETTE RECORDER * * * * * * ******************************************************* * * * THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS * CONNECTED TO CPU VIA CHCR-DCR * * ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT * AT REWIND AND UNLOAD * * DATA IS RECORDED IN BLOCKS WITH LENGTHS FROM 2 TO * 256 CHARACTERS * EJECT DRTC01 * * * THE DRIVER CONSISTS OF THE FOLLOWING PARTS: * * T C D A : ACTIVATION PART * * I H T C : INTERRUPT HANDLER * * R C O V E R : RECOVERY ROUTINE * * D W T C 0 1 : DEVICE WORK TABLE 01 * * D W T C 0 2 : DEVICE WORK TABLE 02 * * AND O R D E R P R O C E S S O R S * * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER /00: TEST STATUS * /02: READ * /05: WRITE * /06: WRITE * /22: WRITE TAPE MARK * /26: LOCK * /31: REWIND * /33: REVERSE * /24: ERASE * /37: LOAD * /38: UNLOAD * EJECT DRTC01 * * * THE FOLLOWING RETURN CODES ARE USED: * * BIT 0 REQUEST ERROR * 2 BOT/EOT * 3 TAPE MARK DETECTED * 6 WRITE PROTECTED * 7 B-SIDE * 9 REWIND TIME-OUT (+BOT MISSING) * 11 SEQUENCE ERROR * -READ SEQUENCE ERROR * -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY * -POWER RECOVERY WHEN SEQ. COUNTER NOT USED * -POWER RECOVERY NOT SUCCESSFULL * 12 INCORRECT LENGTH * 13 CRC ERRROR (+NO DATA/ERASED) * 14 THROUGHPUT ERROR * 15 NOT OPERABEL * EJECT DRTC01 * * * NORMAL USAGE OF REGISTERS: * * REGISTER A1: RETURN CODE * A2: SST STATUS * A3: DWT STATUS AFTER SST * A4: RETRY COUNTER * A5: SEQUENCE CHARACTER AFTER READ/WRITE * A6: DWT ADDRESS * A8: SUBROUTINE STACK * * * SYSTEM ADAPTATION: * * BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE * REDUCED TO HANDLE: * * -ONLY ONE CASSETTE RECORDER * -ORDERS REVERSE, ERASE AND LOCK EXCLUDED * EJECT DRTC01 * * *********** * ENTRIES * *********** * * ENTRY IHTC INTERRUPT ADDRESS ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01 ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02 ENTRY TCDRON POWER UP RECOVERY * * ******************************** * EXTERNAL TOSS MODULE ENTRIES * ******************************** * * EXTRN TDISP DISPATCHER MAIN ENTRY EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE EXTRN SWLXY SWITCH TO LEVEL XY EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE EXTRN DISEND GO TO DISPATCHER VIA TENDIO EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY EXTRN INTSAV SAVE AREA LAST INTERRUPT EXTRN INIFLG INIT FLAG AT PGM LOADING EXTRN ECBRL REQUESTED LENGTH IN ECB EXTRN ECBEL EFFECTIVE LENGTH IN ECB EXTRN ECBCW CONTROL WORD IN ECB EXTRN PFPOST PWF POST PROCESSING FLAG EJECT DRTC01 * * ****************** * DWT PARAMETERS * ****************** * * EXTRN DWTST DWT SOFTWARE STATUS: * BIT # 0 - DEVICE AND CONTROLLER READY * BIT #11 - TAPE MARK ENCOUNTERED ON LAST * BIT #12 - REPOSITIONING AT RECOVERY * BIT #13 - WRITE PROTECTED * BIT #14 - A-SIDE BIT #15 - DEVICE LOCKED (OPERABLE) EXTRN DWTOR DWT ORDER EXTRN DWTECB DWT ECB ADDRESS 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 2 * * ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED * BY SETTING X:B=0 * X:B EQU 0 REVER EQU 1 * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * MMU BUFFER SIZE * X:C EQU 129 DVBLEN EQU 000 * * MMU DEVICE INDEX * DEVIND EQU 2 * EJECT DRTC01 * * CONSTANTS AND WORK AREAS * DATA DVBLEN+DVBLEN DEVICE DEPENDENT BUFFER SIZE DATA DEVIND DEVICE INDEX TCAD DATA TCDA ACTIVATION ENTRY DATA 0 ABORT ROUTINE ADDRESS RES 4 SUBROUTINE STACK STB EQU *-2 * * TAB DATA /0031,/2237,/3802,/0506 IFT REVER=1 DATA /2633,/24FF XIF TABL EQU *-TAB EJECT DRTC01 * * *************************** * CHANNEL UNIT PARAMETERS * *************************** * * * DEVICE ADDRESS: * CHCRDA EQU /0E * * ************* * CONSTANTS * ************* * * RTRIES EQU 3 MAX NO OF RETRIES * PSUBS EQU 5 POWER UP BACKSPACE NUMBER * PREAD EQU 4 POWER UP READ NUMBER * PINT EQU 10 POWER UP RECOVERY BLOCK COUNT INTERVAL * IFT REVER=1 PERAS EQU 6 NO OF ERASE FOR ORDER /24 XIF EJECT DRTC01 * * * T C D A * * ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING * * TCDA EQU * LDK A1,0 LDK A4,TABL-1 * TCDA10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER RF(E) TCDA20 VALID ORDER SUK A4,1 RB(NN) TCDA10 TRY NEXT * TCDA15 EQU * ABL DISIOE ILLEGAL ORDER * TCDA20 ADR A4,A4 DOUBLE TO GET INDEX ST A4,TCDAX SAVE INDEX LD A5,ECBRL,A8 GET REQUESTED LENGTH LD A3,SEKBYT,A6 SEQUENCE COUNTER ? RF(NE) TCDA21 NO ADK A5,1 COMPENSATE FOR SEQUENCE CHARACTER * TCDA21 EQU * LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS ANK A2,2 RF(NZ) TCDR10 YES * ADK A5,1 NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES SUK A7,/37 LOAD ? RF(NE) TCDA22 NO LD A3,ECBCW,A8 GET CONTROL WORD ANK A3,1 ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT * TCDA22 LD A3,2,A8 GET BUFFER ADDRESS ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES SUK A4,14 RF(Z) TCDA23 WRITE ADK A4,2 RF(NZ) TCDA25 NOT WRITE * TCDA23 ADK A5,3 CHECK REQUESTED LENGTH RB(P) TCDA15 LESS THAN 2 CHARACTERS ADK A5,254 RB(N) TCDA15 MORE THAN 256 CHARACTERS 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 SWITCH TO LEVEL XY LDR A1,A2 SAVE STATUS LDK A4,RTRIES PRESET NUMBER OF RETRIES LDKL A2,0 GET FUNCTION INDEX TCDAX EQU *-2 **ORDER INDEX** ABI TCDFUN,A2 BRANCH TO FUNCTION TCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE IFT REVER=1 DATA OLOCK,REVERS,ERTAPE XIF * EJECT DRTC01 * * * RECOVERY AFTER POWER ON * * TCDRON EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LD A1,INIFLG CHECK IF PGM LOADING ABL(NZ) TDISP YES SKIP RECOVERY LDKL A8,STB LOAD STACK BASE LDKL A6,DWTC01 FIRST DWT CF A8,RCOVER RECOVERY IFT DBCAS=2 LDR* A6,A6 GET OTHER DWT CF A8,RCOVER RECOVERY XIF LDKL A4,0 GET ACTIVE DWT TCDADT EQU *-2 **ACTIVATED DWT ADDRESS** RF(Z) ENDIO NO REQUEST GOING ON LDR A6,A4 PUT DWT ADDRESS IN A6 LD A3,SEKBYT,A6 SEQ. COUNTING RB(Z) TCDA30 YES; REACTIVATE ORDER * TCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR ST A3,SEKBYT,A6 ORK A1,/10 IND SEQUENCE ERROR, BIT #11 RF ENDIO * EJECT DRTC01 * * R E A D * READ CF A8,READR READ RECORD ANKL A1,/400 SAVE EOT BIT ORR A1,A2 ANK A2,/0E RF(Z) READ20 STATUS OK * READ15 SUK A4,1 RECOVERABLE ERROR RF(Z) READ20 3 TRIALS DONE CF A8,BKSP BACKSPACE ONE BLOCK RB READ READ AGAIN * READ20 LDR A2,A1 SLL A2,3 CHECK IF TAPE MARK RF(NN) READ30 NOT TAPE MARK * READ25 ORK A3,/10 INDICATE TAPE MARK LDK A7,0 RESET EFFECTIVE LENGTH RF READ35 * READ30 LDR A2,A1 LDKL A7,0 GET EFFECTIVE LENGTH EFFLEN EQU *-2 **EFFECTIVE LENGTH** ANKL A2,/801 NO DATA,NOT OP RF(NZ) READ32 LDR A7,A7 RF(NZ) READ32 NOT EQUAL ZERO LDR A4,A4 THIRD TRIAL DONE RB(NZ) READ15 NO; READ SAME BLOCK AGAIN LDK A4,1 SET NO OF RETRIES TO ONE RB READ TRY NEXT BLOCK * READ32 EQU * 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 * * MODIFY RETURN CODE * ANKL A1,/BFFF SKIP BIT 1 (LEADER) RF(Z) ENDIO5 NO ERRORS LDKL A2,/2000 TM A1,A2 RF(Z) ENDIO2 XRR A1,A2 RESET BIT 2 ORK A1,/40 SET BIT 9 INSTEAD * ENDIO2 EQU * SRL A2,2 TM A1,A2 RF(Z) ENDIO3 XRR A1,A2 RESET BIT 4 ORK A1,4 SET BIT 13 INSTEAD * ENDIO3 EQU * SRL A2,1 TM A1,A2 RF(Z) ENDIO4 XRR A1,A2 RESET BIT 5 ORKL A1,/2000 SET BIT 2 INSTEAD * EJECT DRTC01 * * ENDIO4 EQU * SRL A2,1 TM A1,A2 RF(Z) ENDIO5 NOT WRITE PROTECTED LD A7,DWTOR,A6 ORDER CODE ANK A7,/3F SUK A7,/05 RF(N) ENDIO5 NO WRITE ORDER SUK A7,/24-/05 RF(P) ENDIO5 NO WRITE ORDER ORK A1,/40 SET BIT 9 * ENDIO5 EQU * IFT DBCAS=2 CF A15,SWLXY SWITCH TO LEVEL XY LDR* A6,A6 GET OTHER DWT CF A15,TENDIO PERFORM TENDIO FOR THIS LDR* A6,A6 GET FIRST DWT XIF CF A15,SWLXY SWITCH TO LEVEL XY ABL DISEND GO TO DISPATCHER VIA TENDIO * EJECT DRTC01 * * * WRITE TAPE MARK * TM LDKL A3,-1 ST A3,HELPME * * W R I T E * * WRITE ONE BLOCK * * WRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER RF(NZ) WRIT10 NOT FIRST BLOCK CF A8,ERASE MAKE ONE BLANK BLOCK SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK * WRIT10 CF A8,WRITER WRITE RECORD ANKL A1,/400 SAVE EOT-BIT ORR A1,A2 ANK A2,/0E RF(Z) WRIT30 STATUS OK * WRIT12 ST A4,WRITA4 STORE RETRY COUNTER LD A2,SEKBYT,A6 RF(Z) WRIT15 SEQ. COUNTING * EJECT DRTC01 * * CF A8,BKSP BACKSPACE ONE BLOCK LDK A4,0 ONE ERASE RF WRIT20 * WRIT15 CF A8,REPOS POSITION TAPE CM SEKBYT,A6 RESET SEQ. INDICATOR LD A4,WRITA4 GET NO ... LDR A2,A2 RF(NZ) WRIT40 POSITIONING NOT OK SUK A4,RTRIES ... OF ERASE * WRIT20 CF A8,ERASE ERASE ORR A1,A2 SAVE EOT ADK A4,1 COUNT ERASE RB(NG) WRIT20 NOT READY LDKL A4,0 GET RETRY COUNTER WRITA4 EQU *-2 **RETRY COUNTER** SUK A4,1 RB(NZ) WRIT10 TRY AGAIN ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 RF WRIT50 GIVE UP * EJECT DRTC01 * * WRIT30 LD A2,TCDAX GET ORDER SUK A2,4 TAPE MARK WRITTEN? RB(NZ) READ30 NO LDR A2,A1 CHECK IF SLL A2,3 TAPE MARK OK ABL(N) READ25 YES RB WRIT12 NO * WRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR * WRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH RB READ40 * EJECT DRTC01 * * * L O A D * * LOAD CASSETTE * * LOAD CF A8,LOCK LOCK CASSETTE RF(Z) REWIND CASSETTE LOCKED LOAD10 LDR A1,A2 NO CASSETTE RB READ50 * * * R E W I N D * * REWIND TAPE * * REWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER CF A8,SBOT SEARCH BEGINNING OF TAPE REW010 EQU * LDR 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 ANKL A1,/FFFE SKIP BIT 15 RB ENDIO IFT REVER=1 * * * R E V E R S * * BACKSPACE ONE BLOCK * * REVERS CF A8,BKSP BACKSPACE LDKL A4,-1 DECREMENT BLOCK SEQ. ADS A4,DWTBKC,A6 COUNTER BY ONE RB UNLO10 * EJECT DRTC01 * * * E R T A P E * * ERASE TAPE * * ERTAPE LDK A4,PERAS SET NO OF ERASE ERT10 CF A8,ERASE ERASE ONE BLOCK ANKL A1,/400 SAVE EOT BIT ORR A1,A2 RETURN CODE SUK A4,1 RB(NZ) ERT10 ERASE NOT READY ABL READ50 * * * O L O C K * * ORDER LOCK CASSETTE * * OLOCK CF A8,LOCK LOCK CASSETTE RB(Z) REW010 CASSETTE LOCKED RB LOAD10 XIF * EJECT DRTC01 * * * CASSETTE COMMANDS * * * SELECT * SELECT EQU * 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 LD A2,PFPOST RF(NZ) EXIT PFINIT PENDING CIO A3,1,CHCRDA RF(Z) EXIT LDK A1,1 NOT OPERABLE ABL ENDIO * * READ SEQUENCE CHAR TO A5 * READSQ EQU * LDK A3,/A ST A3,REQLEN MAKE REQUESTED LENGTH > 0 RB CRCOM * EJECT DRTC01 * * READ ONE RECORD * READR LDK A3,/A READR1 CM EFFLEN RESET EFFECTIVE LENGTH LDKL A2,0 GET BUFFER ADDRESS BUFADR EQU *-2 **BUFADR** ST A2,TCDBA LDKL A2,0 GET REQUESTED LENGTH HELPME EQU *-2 **HELPME** ST A2,REQLEN RB CRCOM * * WRITE ONE RECORD * WRITER LDK A3,/B RB READR1 * * ERASE ONE BLOCK * ERASE LDK A3,9 RB CRCOM * * LOCK CASSETTE * LOCK LDK A3,2 RB CRCOM * EJECT DRTC01 * * SEARCH BEGINNING OF TAPE * SBOT LDK A3,8 RB CRCOM * * REWIND TAPE AND UNLOCK CASSETTE * UNLD LDK A3,/F RB CRCOM * * BACKSPACE ONE BLOCK * BKSP LDK A3,/E RB CRCOM * EJECT DRTC01 * * * I H T C * * INTERRUPT HANDLER : PROCESS OF INTERRUPT * * IHTC EQU * ST P,INTSAV SAVE LAST INTERRUPT STR A5,A15 SAVE A5 ON STACK SST A5,CHCRDA RF(A) SST SST ACCEPTED IM REQLEN INCREMENT COUNTER RF(Z) CIOHLT RF(P) INRSQ GET SEQUENCE COUNTER STR A3,A15 SAVE A3 ON STACK LDKL A3,0 GET BUFFER ADDRESS TCDBA EQU *-2 **BUFFER ADDRESS** IM TCDBA INCREMENT BUFFER ADDRESS LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE SUK A5,10 RF(NZ) IHTC05 WRITE * IHTC02 INR A5,0,CHCRDA READ CHAR. SCR A5,A3 STORE CHARACTER IN BUFFER RF EXIT2 * IHTC05 EQU * LCR A5,A3 GET CHAR FROM BUFFER OTR A5,0,CHCRDA OUTPUT IT EJECT DRTC01 * * EXIT2 ST A5,TCDA5 IM EFFLEN INCREMENT EFFECTIVE LENGTH LDR* A3,A15 RESTORE A3 AND A5 FROM STACK * EXIT3 LDR* A5,A15 RTN A15 * INRSQ INR A5,0,CHCRDA READ CHAR TO A5 ST A5,TCDA5 RB EXIT3 * SST ST A5,TCDA2 SAVE STATUS LDR* A5,A15 RESTORE A5 IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDKL A1,0 TCDA1 EQU *-2 LDKL A4,0 TCDA4 EQU *-2 LDKL A5,0 TCDA5 EQU *-2 LDKL A6,0 TCDA6 EQU *-2 LDKL A8,0 TCDA8 EQU *-2 EJECT DRTC01 * * LDKL A2,0 RESTORE STATUS TCDA2 EQU *-2 LDR A3,A2 GET STATUS SLL A3,9 SHIFT ST A3,2,A8 SAVE ON STACK LD A3,DWTST,A6 PUT DWT STATUS IN A3 * IHTRTN EQU * RTN A8 * CIOHLT EQU * CIO A1,0,CHCRDA CIO-HALT RB EXIT3 * EXIT ST A1,TCDA1 ST A4,TCDA4 ST A5,TCDA5 ST A6,TCDA6 ST A8,TCDA8 ABL TDISP GO TO DISPATCHER * EJECT DRTC01 * * * R C O V E R * * RECOVERY ROUTINE : POSITIONING OF TAPE AT POWER ON * * RCOVER EQU * CF A8,SELECT SELECT ANK A3,1 RB(Z) IHTRTN NOT LOCKED: RETURN FROM RECOVERY CF A8,LOCK RF(NZ) REPER NO CASSETTE LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ RF(NZ) RC0050 YES CF A8,SBOT SEARCH BEGINNING OF TAPE SLL A2,5 RF(NN) REPER BOT NOT FOUND RF REPOK * RC0050 LD A1,SEKBYT,A6 SEQ. COUNTING RF(NZ) REPER NO * EJECT DRTC01 * * * R E P O S * * REPOSITIONING OF TAPE AT POWER ON * AND WRITE RECOVERY * * EXIT: A2 EQ ZERO SUCCESS * A2 NOT EQ ZERO NO SUCCESS * * REPOS EQU * LDK A4,8 SET REPOSITIONING BIT ORS A4,DWTST,A6 STORE IN DWT * REP005 EQU * LDK A4,PSUBS SET NO OF BACKSPACES * REP010 CF A8,BKSP BACKSPACE SLL A2,4 RF(NN) REP015 DATA FOUND LD A2,DWTBKC,A6 GET BLOCK COUNTER SUK A2,8 GREATER 8 ? RF(G) REPER YES CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE SLL A2,5 RF(NN) REPER BOT NOT FOUND LDKL A5,-1 RESET SEQ. COUNTER RF REP020 READ SEQ. CHAR * EJECT DRTC01 * * REP015 EQU * SUK A4,1 RB(NZ) REP010 BACKSPACE AGAIN LDK A4,PREAD SET NO OF MAX READ * REP017 CF A8,READSQ READ SEQ. CHAR LDKL A7,/180F SET READ MASK TM A2,A7 RF(Z) REP020 READ OK SUK A4,1 COUNT READ RB(P) REP017 NOT ALL READ DONE RF REP060 GIVE UP * REP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR SUR A4,A5 CALCULATE SUK A4,1 NO OF BLOCKS TO ANK A4,/FF READ FORWARD. CWK A4,PINT TOO MANY BLOCKS RF(G) REPER YES * EJECT DRTC01 * * REP030 SUK A4,1 POSITION TAPE RF(N) REP040 READY CF A8,READSQ READ NEXT BLOCK RB REP030 * REP040 LDK A4,RTRIES SET NO OF RETRY REP042 LDKL A7,/80F SET READ MASK TM A2,A7 CORRECT READ RF(Z) REP045 YES SUK A4,1 COUNT RETRY RF(NP) REP060 GIVE UP CF A8,BKSP BACKSPACE CF A8,READSQ READ SEQ NUMBER RB REP042 * EJECT DRTC01 * * REP045 SLC A2,3 RF(NN) REP050 NOT TAPE MARK ANK A3,/10 RF(Z) REP060 SHOULD NOT BE TAPE MARK RF REPOK * REP050 ADK A5,1 CHECK SEQ. NUMBER CC A5,DWTBKC+1,A6 RF(E) REPOK EQUAL * REP060 LD A7,DWTST,A6 ANK A7,8 TRY POSITIONING AGAIN? RF(Z) REPER NO XRS A7,DWTST,A6 RESET REPOSITIONING BIT RB REP005 YES * * REPER LDK A2,2 IND RECOVERY/SEQUENCE ERROR STATUS ORS A2,SEKBYT,A6 SAVE IN DWT RTN A8 * REPOK LDK A2,0 IND RECOVERY CORRECT RTN A8 * EJECT DRTC01 * * * D W T C 0 2 * * DEVICE WORK TABLE FOR CASSETTE RECORDER 02 * * DWTC02 EQU * TABLE ENTRY IFT DBCAS=2 DATA DWTC01+1 DWT NO. 1 DATA /8000 STATUS./8000 MEANS DEVICE READY DATA 0 ECB ADDRESS DATA 0 ORDER DATA TCAD POINTER TO ADDRESS BLOCK DATA 0 TTAB ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE IFT MMUPAG=1 DATA 0 SAVE AREA USER ECB ADDRESS DATA ECBTC2 MMU ECB ADDRESS XIF IFT DBCAS=2 DATA 0 BLOCK COUNTER DATA 0 SEQ. INDICATOR IFT MMUPAG=1 ECBTC2 EQU * DATA 0 DATA TCBUF2 DATA 0,0,0,0 TCBUF2 RES DVBLEN+1 XIF * EJECT DRTC01 * * * D W T C 0 1 * * DEVICE WORK TABLE FOR CASSETTE RECORDER 01 * * DWTC01 EQU * TABLE ENTRY DATA DWTC02 DWT NO. 2 DATA /8000 STATUS./8000 MEANS DEVICE READY DATA 0 ECB ADDRESS DATA 0 ORDER DATA TCAD POINTER TO ADDRESS BLOCK DATA 0 TTAB ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE IFT MMUPAG=1 DATA 0 SAVE AREA USER ECB ADDRESS DATA ECBTC1 MMU ECB ADDRESS XIF DWTBKC EQU *-DWTC01 BLOCK COUNTER DATA 0 SEKBYT EQU *-DWTC01 DATA 0 SEQ. INDICATOR * IFT MMUPAG=1 ECBTC1 EQU * DATA 0 DATA TCBUF1 DATA 0,0,0,0 TCBUF1 RES DVBLEN+1 XIF * REQLEN DATA 0 REQUESTED LENGTH * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRTC01 REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0092 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0056}
0x0092…009c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0096}
0x009c…00c4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a0}
0x00c4…00ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…0100 Head {h00=0x002e, h01=0x0050, text=»* DRTC01 = DRIVER TAPE CASSETTE RECORDER«, t00=0x0000, t01=0x00d2}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012c}
0x0132…013c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…017c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0140}
0x017c…0186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…0190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…01d2 (1, 0, 400) Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS«, t00=0x0001, t01=0x0004}
0x01d2…01fc Head {h00=0x0026, h01=0x0050, text=»* CONNECTED TO CPU VIA CHCR-DCR «, t00=0x0001, t01=0x0046}
0x01fc…0206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0206…0248 Head {h00=0x003e, h01=0x0050, text=»* ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT«, t00=0x0001, t01=0x007a}
0x0248…0268 Head {h00=0x001c, h01=0x0050, text=»* AT REWIND AND UNLOAD«, t00=0x0001, t01=0x00bc}
0x0268…0272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00dc}
0x0272…02b0 Head {h00=0x003a, h01=0x0050, text=»* DATA IS RECORDED IN BLOCKS WITH LENGTHS FROM 2 TO «, t00=0x0001, t01=0x00e6}
0x02b0…02ca Head {h00=0x0016, h01=0x0050, text=»* 256 CHARACTERS«, t00=0x0001, t01=0x0124}
0x02ca…02d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…02ec Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0001, t01=0x0148}
0x02ec…02f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0160}
0x02f6…0300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016a}
0x0300…0338 Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0001, t01=0x0174}
0x0338…0342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0342…0368 Head {h00=0x0022, h01=0x0050, text=»* T C D A : ACTIVATION PART «, t00=0x0002, t01=0x0026}
0x0368…0372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004c}
0x0372…039a Head {h00=0x0024, h01=0x0050, text=»* I H T C : INTERRUPT HANDLER «, t00=0x0002, t01=0x0056}
0x039a…03a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007e}
0x03a4…03ce Head {h00=0x0026, h01=0x0050, text=»* R C O V E R : RECOVERY ROUTINE«, t00=0x0002, t01=0x0088}
0x03ce…03d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b2}
0x03d8…0406 Head {h00=0x002a, h01=0x0050, text=»* D W T C 0 1 : DEVICE WORK TABLE 01«, t00=0x0002, t01=0x00bc}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…043e Head {h00=0x002a, h01=0x0050, text=»* D W T C 0 2 : DEVICE WORK TABLE 02«, t00=0x0002, t01=0x00f4}
0x043e…0448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0122}
0x0448…0478 Head {h00=0x002c, h01=0x0050, text=»* AND O R D E R P R O C E S S O R S «, t00=0x0002, t01=0x012c}
0x0478…0482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015c}
0x0482…048c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0166}
0x048c…04ba Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x0170}
0x04ba…04c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000e}
0x04c4…04e6 Head {h00=0x001e, h01=0x0050, text=»* ORDER /00: TEST STATUS«, t00=0x0003, t01=0x0018}
0x04e6…0502 Head {h00=0x0018, h01=0x0050, text=»* /02: READ «, t00=0x0003, t01=0x003a}
0x0502…0522 Head {h00=0x001c, h01=0x0050, text=»* /05: WRITE «, t00=0x0003, t01=0x0056}
0x0522…0542 Head {h00=0x001c, h01=0x0050, text=»* /06: WRITE «, t00=0x0003, t01=0x0076}
0x0542…0568 Head {h00=0x0022, h01=0x0050, text=»* /22: WRITE TAPE MARK«, t00=0x0003, t01=0x0096}
0x0568…0586 Head {h00=0x001a, h01=0x0050, text=»* /26: LOCK«, t00=0x0003, t01=0x00bc}
0x0586…05a4 Head {h00=0x001a, h01=0x0050, text=»* /31: REWIND «, t00=0x0003, t01=0x00da}
0x05a4…05c6 Head {h00=0x001e, h01=0x0050, text=»* /33: REVERSE «, t00=0x0003, t01=0x00f8}
0x05c6…05e6 Head {h00=0x001c, h01=0x0050, text=»* /24: ERASE «, t00=0x0003, t01=0x011a}
0x05e6…0602 Head {h00=0x0018, h01=0x0050, text=»* /37: LOAD «, t00=0x0003, t01=0x013a}
0x0602…0620 Head {h00=0x001a, h01=0x0050, text=»* /38: UNLOAD «, t00=0x0003, t01=0x0156}
0x0620…062a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0174}
0x062a…0642 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0003, t01=0x017e}
0x0642…064c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064c…0656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0656…0686 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0004, t01=0x001c}
0x0686…0690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004c}
0x0690…06ae Head {h00=0x001a, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x0004, t01=0x0056}
0x06ae…06c6 Head {h00=0x0014, h01=0x0050, text=»* 2 BOT/EOT«, t00=0x0004, t01=0x0074}
0x06c6…06ea Head {h00=0x0020, h01=0x0050, text=»* 3 TAPE MARK DETECTED «, t00=0x0004, t01=0x008c}
0x06ea…070a Head {h00=0x001c, h01=0x0050, text=»* 6 WRITE PROTECTED«, t00=0x0004, t01=0x00b0}
0x070a…0722 Head {h00=0x0014, h01=0x0050, text=»* 7 B-SIDE «, t00=0x0004, t01=0x00d0}
0x0722…0752 Head {h00=0x002c, h01=0x0050, text=»* 9 REWIND TIME-OUT (+BOT MISSING) «, t00=0x0004, t01=0x00e8}
0x0752…0772 Head {h00=0x001c, h01=0x0050, text=»* 11 SEQUENCE ERROR «, t00=0x0004, t01=0x0118}
0x0772…0796 Head {h00=0x0020, h01=0x0050, text=»* -READ SEQUENCE ERROR«, t00=0x0004, t01=0x0138}
0x0796…07d8 Head {h00=0x003e, h01=0x0050, text=»* -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY «, t00=0x0004, t01=0x015c}
0x07d8…0812 Head {h00=0x0036, h01=0x0050, text=»* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED«, t00=0x0005, t01=0x000e}
0x0812…0842 Head {h00=0x002c, h01=0x0050, text=»* -POWER RECOVERY NOT SUCCESSFULL «, t00=0x0005, t01=0x0048}
0x0842…0864 Head {h00=0x001e, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x0005, t01=0x0078}
0x0864…0892 Head {h00=0x002a, h01=0x0050, text=»* 13 CRC ERRROR (+NO DATA/ERASED) «, t00=0x0005, t01=0x009a}
0x0892…08b4 Head {h00=0x001e, h01=0x0050, text=»* 14 THROUGHPUT ERROR «, t00=0x0005, t01=0x00c8}
0x08b4…08d2 Head {h00=0x001a, h01=0x0050, text=»* 15 NOT OPERABEL «, t00=0x0005, t01=0x00ea}
0x08d2…08dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0108}
0x08dc…08f4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0005, t01=0x0112}
0x08f4…08fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012a}
0x08fe…0908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0134}
0x0908…092e Head {h00=0x0022, h01=0x0050, text=»* NORMAL USAGE OF REGISTERS:«, t00=0x0005, t01=0x013e}
0x092e…0938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0164}
0x0938…095c Head {h00=0x0020, h01=0x0050, text=»* REGISTER A1: RETURN CODE«, t00=0x0005, t01=0x016e}
0x095c…0980 (6, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* A2: SST STATUS «, t00=0x0006, t01=0x0004}
0x0980…09ae Head {h00=0x002a, h01=0x0050, text=»* A3: DWT STATUS AFTER SST «, t00=0x0006, t01=0x0028}
0x09ae…09d4 Head {h00=0x0022, h01=0x0050, text=»* A4: RETRY COUNTER«, t00=0x0006, t01=0x0056}
0x09d4…0a12 Head {h00=0x003a, h01=0x0050, text=»* A5: SEQUENCE CHARACTER AFTER READ/WRITE «, t00=0x0006, t01=0x007c}
0x0a12…0a36 Head {h00=0x0020, h01=0x0050, text=»* A6: DWT ADDRESS«, t00=0x0006, t01=0x00ba}
0x0a36…0a60 Head {h00=0x0026, h01=0x0050, text=»* A8: SUBROUTINE STACK «, t00=0x0006, t01=0x00de}
0x0a60…0a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0108}
0x0a6a…0a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0112}
0x0a74…0a92 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0006, t01=0x011c}
0x0a92…0a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013a}
0x0a9c…0ada Head {h00=0x003a, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE«, t00=0x0006, t01=0x0144}
0x0ada…0af8 Head {h00=0x001a, h01=0x0050, text=»* REDUCED TO HANDLE:«, t00=0x0006, t01=0x0182}
0x0af8…0b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0010}
0x0b02…0b28 Head {h00=0x0022, h01=0x0050, text=»* -ONLY ONE CASSETTE RECORDER«, t00=0x0007, t01=0x001a}
0x0b28…0b5c Head {h00=0x0030, h01=0x0050, text=»* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED «, t00=0x0007, t01=0x0040}
0x0b5c…0b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0074}
0x0b66…0b7e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0007, t01=0x007e}
0x0b7e…0b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0096}
0x0b88…0b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a0}
0x0b92…0ba6 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x00aa}
0x0ba6…0bba Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x00be}
0x0bba…0bce Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x00d2}
0x0bce…0bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e6}
0x0bd8…0be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f0}
0x0be2…0c08 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHTC INTERRUPT ADDRESS «, t00=0x0007, t01=0x00fa}
0x0c08…0c3a Head {h00=0x002e, h01=0x0050, text=» ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01«, t00=0x0007, t01=0x0120}
0x0c3a…0c6c Head {h00=0x002e, h01=0x0050, text=» ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02«, t00=0x0007, t01=0x0152}
0x0c6c…0c94 Head {h00=0x0024, h01=0x0050, text=» ENTRY TCDRON POWER UP RECOVERY «, t00=0x0007, t01=0x0184}
0x0c94…0c9c Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x001c}
0x0c9c…0ca4 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0024}
0x0ca4…0cac Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x002c}
0x0cac…0cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0034}
0x0cb6…0cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cc0…0ce8 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x0048}
0x0ce8…0d10 Head {h00=0x0024, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0008, t01=0x0070}
0x0d10…0d38 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x0098}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d42…0d4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ca}
0x0d4c…0d76 Head {h00=0x0026, h01=0x0050, text=» EXTRN TDISP DISPATCHER MAIN ENTRY«, t00=0x0008, t01=0x00d4}
0x0d76…0dae Head {h00=0x0034, h01=0x0050, text=» EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE«, t00=0x0008, t01=0x00fe}
0x0dae…0dd6 Head {h00=0x0024, h01=0x0050, text=» EXTRN SWLXY SWITCH TO LEVEL XY «, t00=0x0008, t01=0x0136}
0x0dd6…0e08 Head {h00=0x002e, h01=0x0050, text=» EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN«, t00=0x0008, t01=0x015e}
0x0e08…0e38 Head {h00=0x002c, h01=0x0050, text=» EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE «, t00=0x0008, t01=0x0190}
0x0e38…0e6a Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND GO TO DISPATCHER VIA TENDIO «, t00=0x0009, t01=0x0030}
0x0e6a…0ea2 Head {h00=0x0034, h01=0x0050, text=» EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY«, t00=0x0009, t01=0x0062}
0x0ea2…0ed0 Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0009, t01=0x009a}
0x0ed0…0efe Head {h00=0x002a, h01=0x0050, text=» EXTRN INIFLG INIT FLAG AT PGM LOADING«, t00=0x0009, t01=0x00c8}
0x0efe…0f2a Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH IN ECB«, t00=0x0009, t01=0x00f6}
0x0f2a…0f56 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH IN ECB«, t00=0x0009, t01=0x0122}
0x0f56…0f7e Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD IN ECB«, t00=0x0009, t01=0x014e}
0x0f7e…0fac Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0009, t01=0x0176}
0x0fac…0fc4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000a, t01=0x0014}
0x0fc4…0fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002c}
0x0fce…0fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0036}
0x0fd8…0ff2 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000a, t01=0x0040}
0x0ff2…100c Head {h00=0x0016, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x000a, t01=0x005a}
0x100c…1026 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000a, t01=0x0074}
0x1026…1030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008e}
0x1030…103a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0098}
0x103a…1064 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTST DWT SOFTWARE STATUS: «, t00=0x000a, t01=0x00a2}
0x1064…1096 Head {h00=0x002e, h01=0x0050, text=»* BIT # 0 - DEVICE AND CONTROLLER READY «, t00=0x000a, t01=0x00cc}
0x1096…10ca Head {h00=0x0030, h01=0x0050, text=»* BIT #11 - TAPE MARK ENCOUNTERED ON LAST «, t00=0x000a, t01=0x00fe}
0x10ca…10fa Head {h00=0x002c, h01=0x0050, text=»* BIT #12 - REPOSITIONING AT RECOVERY «, t00=0x000a, t01=0x0132}
0x10fa…1120 Head {h00=0x0022, h01=0x0050, text=»* BIT #13 - WRITE PROTECTED «, t00=0x000a, t01=0x0162}
0x1120…113c Head {h00=0x0018, h01=0x0050, text=»* BIT #14 - A-SIDE«, t00=0x000a, t01=0x0188}
0x113c…116a Head {h00=0x002a, h01=0x0050, text=» BIT #15 - DEVICE LOCKED (OPERABLE) «, t00=0x000b, t01=0x0014}
0x116a…1188 Head {h00=0x001a, h01=0x0050, text=» EXTRN DWTOR DWT ORDER«, t00=0x000b, t01=0x0042}
0x1188…11ae Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTECB DWT ECB ADDRESS «, t00=0x000b, t01=0x0060}
0x11ae…11c6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000b, t01=0x0086}
0x11c6…11d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009e}
0x11d0…11f0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x00a8}
0x11f0…1210 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x00c8}
0x1210…1230 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x00e8}
0x1230…123a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0108}
0x123a…127c Head {h00=0x003e, h01=0x0050, text=»* THE DRIVER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE «, t00=0x000b, t01=0x0112}
0x127c…12a2 Head {h00=0x0022, h01=0x0050, text=»* RECORDER BY SETTING X:A=1 «, t00=0x000b, t01=0x0154}
0x12a2…12ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017a}
0x12ac…12be Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000b, t01=0x0184}
0x12be…12d2 Head {h00=0x0010, h01=0x0050, text=»DBCAS EQU 2 «, t00=0x000c, t01=0x0008}
0x12d2…12dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001c}
0x12dc…1316 Head {h00=0x0036, h01=0x0050, text=»* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED«, t00=0x000c, t01=0x0026}
0x1316…1332 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B=0«, t00=0x000c, t01=0x0060}
0x1332…133c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007c}
0x133c…134e Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x0086}
0x134e…1362 Head {h00=0x0010, h01=0x0050, text=»REVER EQU 1 «, t00=0x000c, t01=0x0098}
0x1362…136c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ac}
0x136c…139e Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000c, t01=0x00b6}
0x139e…13cc Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000c, t01=0x00e8}
0x13cc…13d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0116}
0x13d6…13ea Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000c, t01=0x0120}
0x13ea…13f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0134}
0x13f4…13fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013e}
0x13fe…1438 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000c, t01=0x0148}
0x1438…146a Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000c, t01=0x0182}
0x146a…1474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0024}
0x1474…1488 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000d, t01=0x002e}
0x1488…1492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0042}
0x1492…14ae Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000d, t01=0x004c}
0x14ae…14b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0068}
0x14b8…14cc Head {h00=0x0010, h01=0x0050, text=»X:C EQU 129 «, t00=0x000d, t01=0x0072}
0x14cc…14e2 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 000«, t00=0x000d, t01=0x0086}
0x14e2…14ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009c}
0x14ec…1508 Head {h00=0x0018, h01=0x0050, text=»* MMU DEVICE INDEX«, t00=0x000d, t01=0x00a6}
0x1508…1512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c2}
0x1512…1526 Head {h00=0x0010, h01=0x0050, text=»DEVIND EQU 2«, t00=0x000d, t01=0x00cc}
0x1526…1530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e0}
0x1530…1548 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000d, t01=0x00ea}
0x1548…1552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0102}
0x1552…1574 Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS AND WORK AREAS«, t00=0x000d, t01=0x010c}
0x1574…157e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x012e}
0x157e…15b6 Head {h00=0x0034, h01=0x0050, text=» DATA DVBLEN+DVBLEN DEVICE DEPENDENT BUFFER SIZE«, t00=0x000d, t01=0x0138}
0x15b6…15d8 Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000d, t01=0x0170}
0x15d8…1600 (14, 0, 400) Head {h00=0x0024, h01=0x0050, text=»TCAD DATA TCDA ACTIVATION ENTRY «, t00=0x000e, t01=0x0004}
0x1600…1626 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x002c}
0x1626…1646 Head {h00=0x001c, h01=0x0050, text=» RES 4 SUBROUTINE STACK «, t00=0x000e, t01=0x0052}
0x1646…165a Head {h00=0x0010, h01=0x0050, text=»STB EQU *-2 «, t00=0x000e, t01=0x0072}
0x165a…1664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0086}
0x1664…166e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0090}
0x166e…1696 Head {h00=0x0024, h01=0x0050, text=»TAB DATA /0031,/2237,/3802,/0506«, t00=0x000e, t01=0x009a}
0x1696…16aa Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x000e, t01=0x00c2}
0x16aa…16c4 Head {h00=0x0016, h01=0x0050, text=» DATA /2633,/24FF «, t00=0x000e, t01=0x00d6}
0x16c4…16d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00f0}
0x16d0…16e6 Head {h00=0x0012, h01=0x0050, text=»TABL EQU *-TAB«, t00=0x000e, t01=0x00fc}
0x16e6…16fe Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000e, t01=0x0112}
0x16fe…1708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012a}
0x1708…1712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0134}
0x1712…1736 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000e, t01=0x013e}
0x1736…175a Head {h00=0x0020, h01=0x0050, text=»* CHANNEL UNIT PARAMETERS * «, t00=0x000e, t01=0x0162}
0x175a…177e Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000e, t01=0x0186}
0x177e…1788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x001a}
0x1788…1792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0024}
0x1792…17ac Head {h00=0x0016, h01=0x0050, text=»* DEVICE ADDRESS:«, t00=0x000f, t01=0x002e}
0x17ac…17b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0048}
0x17b6…17cc Head {h00=0x0012, h01=0x0050, text=»CHCRDA EQU /0E«, t00=0x000f, t01=0x0052}
0x17cc…17d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0068}
0x17d6…17e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0072}
0x17e0…17f6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x007c}
0x17f6…180c Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000f, t01=0x0092}
0x180c…1822 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x00a8}
0x1822…182c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00be}
0x182c…1836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c8}
0x1836…185c Head {h00=0x0022, h01=0x0050, text=»RTRIES EQU 3 MAX NO OF RETRIES«, t00=0x000f, t01=0x00d2}
0x185c…1866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f8}
0x1866…1894 Head {h00=0x002a, h01=0x0050, text=»PSUBS EQU 5 POWER UP BACKSPACE NUMBER «, t00=0x000f, t01=0x0102}
0x1894…189e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0130}
0x189e…18c6 Head {h00=0x0024, h01=0x0050, text=»PREAD EQU 4 POWER UP READ NUMBER«, t00=0x000f, t01=0x013a}
0x18c6…18d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d0…190a Head {h00=0x0036, h01=0x0050, text=»PINT EQU 10 POWER UP RECOVERY BLOCK COUNT INTERVAL«, t00=0x000f, t01=0x016c}
0x190a…1914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0016}
0x1914…1928 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0010, t01=0x0020}
0x1928…1956 Head {h00=0x002a, h01=0x0050, text=»PERAS EQU 6 NO OF ERASE FOR ORDER /24 «, t00=0x0010, t01=0x0034}
0x1956…1962 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0062}
0x1962…197a Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0010, t01=0x006e}
0x197a…1984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0086}
0x1984…198e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0090}
0x198e…19a2 Head {h00=0x0010, h01=0x0050, text=»* T C D A «, t00=0x0010, t01=0x009a}
0x19a2…19ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ae}
0x19ac…19f8 Head {h00=0x0048, h01=0x0050, text=»* ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING «, t00=0x0010, t01=0x00b8}
0x19f8…1a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0104}
0x1a02…1a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010e}
0x1a0c…1a1e Head {h00=0x000e, h01=0x0050, text=»TCDA EQU *«, t00=0x0010, t01=0x0118}
0x1a1e…1a30 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0010, t01=0x012a}
0x1a30…1a46 Head {h00=0x0012, h01=0x0050, text=» LDK A4,TABL-1«, t00=0x0010, t01=0x013c}
0x1a46…1a50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0152}
0x1a50…1a84 Head {h00=0x0030, h01=0x0050, text=»TCDA10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER«, t00=0x0010, t01=0x015c}
0x1a84…1aa6 Head {h00=0x001e, h01=0x0050, text=» RF(E) TCDA20 VALID ORDER «, t00=0x0010, t01=0x0190}
0x1aa6…1ab8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0011, t01=0x0022}
0x1ab8…1ad8 Head {h00=0x001c, h01=0x0050, text=» RB(NN) TCDA10 TRY NEXT «, t00=0x0011, t01=0x0034}
0x1ad8…1ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0054}
0x1ae2…1af6 Head {h00=0x0010, h01=0x0050, text=»TCDA15 EQU *«, t00=0x0011, t01=0x005e}
0x1af6…1b18 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0011, t01=0x0072}
0x1b18…1b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0094}
0x1b22…1b4e Head {h00=0x0028, h01=0x0050, text=»TCDA20 ADR A4,A4 DOUBLE TO GET INDEX«, t00=0x0011, t01=0x009e}
0x1b4e…1b6e Head {h00=0x001c, h01=0x0050, text=» ST A4,TCDAX SAVE INDEX «, t00=0x0011, t01=0x00ca}
0x1b6e…1b9a Head {h00=0x0028, h01=0x0050, text=» LD A5,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0011, t01=0x00ea}
0x1b9a…1bc6 Head {h00=0x0028, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQUENCE COUNTER ? «, t00=0x0011, t01=0x0116}
0x1bc6…1be0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA21 NO «, t00=0x0011, t01=0x0142}
0x1be0…1c14 Head {h00=0x0030, h01=0x0050, text=» ADK A5,1 COMPENSATE FOR SEQUENCE CHARACTER «, t00=0x0011, t01=0x015c}
0x1c14…1c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0190}
0x1c1e…1c32 Head {h00=0x0010, h01=0x0050, text=»TCDA21 EQU *«, t00=0x0012, t01=0x000a}
0x1c32…1c64 Head {h00=0x002e, h01=0x0050, text=» LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS «, t00=0x0012, t01=0x001e}
0x1c64…1c76 Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0012, t01=0x0050}
0x1c76…1c90 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDR10 YES«, t00=0x0012, t01=0x0062}
0x1c90…1c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007c}
0x1c9a…1cac Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0012, t01=0x0086}
0x1cac…1cde Head {h00=0x002e, h01=0x0050, text=» NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE «, t00=0x0012, t01=0x0098}
0x1cde…1d12 Head {h00=0x0030, h01=0x0050, text=» ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES «, t00=0x0012, t01=0x00ca}
0x1d12…1d2c Head {h00=0x0016, h01=0x0050, text=» SUK A7,/37 LOAD ?«, t00=0x0012, t01=0x00fe}
0x1d2c…1d46 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA22 NO «, t00=0x0012, t01=0x0118}
0x1d46…1d6e Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBCW,A8 GET CONTROL WORD«, t00=0x0012, t01=0x0132}
0x1d6e…1d80 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0012, t01=0x015a}
0x1d80…1db6 Head {h00=0x0032, h01=0x0050, text=» ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT «, t00=0x0012, t01=0x016c}
0x1db6…1dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0012}
0x1dc0…1dec Head {h00=0x0028, h01=0x0050, text=»TCDA22 LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0013, t01=0x001c}
0x1dec…1e20 Head {h00=0x0030, h01=0x0050, text=» ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES «, t00=0x0013, t01=0x0048}
0x1e20…1e32 Head {h00=0x000e, h01=0x0050, text=» SUK A4,14«, t00=0x0013, t01=0x007c}
0x1e32…1e4e Head {h00=0x0018, h01=0x0050, text=» RF(Z) TCDA23 WRITE «, t00=0x0013, t01=0x008e}
0x1e4e…1e60 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0013, t01=0x00aa}
0x1e60…1e80 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) TCDA25 NOT WRITE«, t00=0x0013, t01=0x00bc}
0x1e80…1e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00dc}
0x1e8a…1eb8 Head {h00=0x002a, h01=0x0050, text=»TCDA23 ADK A5,3 CHECK REQUESTED LENGTH«, t00=0x0013, t01=0x00e6}
0x1eb8…1ee4 Head {h00=0x0028, h01=0x0050, text=» RB(P) TCDA15 LESS THAN 2 CHARACTERS«, t00=0x0013, t01=0x0114}
0x1ee4…1ef8 Head {h00=0x0010, h01=0x0050, text=» ADK A5,254 «, t00=0x0013, t01=0x0140}
0x1ef8…1f26 Head {h00=0x002a, h01=0x0050, text=» RB(N) TCDA15 MORE THAN 256 CHARACTERS«, t00=0x0013, t01=0x0154}
0x1f26…1f38 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A5«, t00=0x0013, t01=0x0182}
0x1f38…1f60 (20, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LD A4,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x0014, t01=0x0004}
0x1f60…1f7a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDA25 NO «, t00=0x0014, t01=0x002c}
0x1f7a…1faa Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER «, t00=0x0014, t01=0x0046}
0x1faa…1fd2 Head {h00=0x0024, h01=0x0050, text=» SC A2,255,A3 STORE IT IN BUFFER«, t00=0x0014, t01=0x0076}
0x1fd2…1fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009e}
0x1fdc…2008 Head {h00=0x0028, h01=0x0050, text=»TCDA25 ST A6,TCDADT SAVE ACTIVE DWT «, t00=0x0014, t01=0x00a8}
0x2008…2020 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0014, t01=0x00d4}
0x2020…202a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ec}
0x202a…2034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f6}
0x2034…204e Head {h00=0x0016, h01=0x0050, text=»* SELECT RECORDER «, t00=0x0014, t01=0x0100}
0x204e…2058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x011a}
0x2058…2062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0124}
0x2062…208c Head {h00=0x0026, h01=0x0050, text=»TCDA30 LDKL A8,STB LOAD STACK BASE«, t00=0x0014, t01=0x012e}
0x208c…20b0 Head {h00=0x0020, h01=0x0050, text=» CF A8,SELECT SELECT CASSETT«, t00=0x0014, t01=0x0158}
0x20b0…20d8 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x0014, t01=0x017c}
0x20d8…20f6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 SAVE STATUS«, t00=0x0015, t01=0x0014}
0x20f6…2126 Head {h00=0x002c, h01=0x0050, text=» LDK A4,RTRIES PRESET NUMBER OF RETRIES «, t00=0x0015, t01=0x0032}
0x2126…214c Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET FUNCTION INDEX «, t00=0x0015, t01=0x0062}
0x214c…2172 Head {h00=0x0022, h01=0x0050, text=»TCDAX EQU *-2 **ORDER INDEX** «, t00=0x0015, t01=0x0088}
0x2172…219c Head {h00=0x0026, h01=0x0050, text=» ABI TCDFUN,A2 BRANCH TO FUNCTION «, t00=0x0015, t01=0x00ae}
0x219c…21dc Head {h00=0x003c, h01=0x0050, text=»TCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE«, t00=0x0015, t01=0x00d8}
0x21dc…21f0 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0015, t01=0x0118}
0x21f0…2212 Head {h00=0x001e, h01=0x0050, text=» DATA OLOCK,REVERS,ERTAPE «, t00=0x0015, t01=0x012c}
0x2212…221e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x014e}
0x221e…2228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x015a}
0x2228…2240 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0015, t01=0x0164}
0x2240…224a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017c}
0x224a…2254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0186}
0x2254…2276 Head {h00=0x001e, h01=0x0050, text=»* RECOVERY AFTER POWER ON «, t00=0x0015, t01=0x0190}
0x2276…2280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0022}
0x2280…228a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002c}
0x228a…229e Head {h00=0x0010, h01=0x0050, text=»TCDRON EQU *«, t00=0x0016, t01=0x0036}
0x229e…22b4 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0016, t01=0x004a}
0x22b4…22de Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0016, t01=0x0060}
0x22de…22ea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x008a}
0x22ea…22f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0096}
0x22f4…230a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0016, t01=0x00a0}
0x230a…2330 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0016, t01=0x00b6}
0x2330…233c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00dc}
0x233c…2346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e8}
0x2346…2370 Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG CHECK IF PGM LOADING«, t00=0x0016, t01=0x00f2}
0x2370…2398 Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) TDISP YES SKIP RECOVERY«, t00=0x0016, t01=0x011c}
0x2398…23bc Head {h00=0x0020, h01=0x0050, text=» LDKL A8,STB LOAD STACK BASE«, t00=0x0016, t01=0x0144}
0x23bc…23de Head {h00=0x001e, h01=0x0050, text=» LDKL A6,DWTC01 FIRST DWT «, t00=0x0016, t01=0x0168}
0x23de…23fc Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0016, t01=0x018a}
0x23fc…2410 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0017, t01=0x0018}
0x2410…2432 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x0017, t01=0x002c}
0x2432…2450 Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0017, t01=0x004e}
0x2450…245c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x006c}
0x245c…247e Head {h00=0x001e, h01=0x0050, text=» LDKL A4,0 GET ACTIVE DWT «, t00=0x0017, t01=0x0078}
0x247e…24ae Head {h00=0x002c, h01=0x0050, text=»TCDADT EQU *-2 **ACTIVATED DWT ADDRESS**«, t00=0x0017, t01=0x009a}
0x24ae…24d6 Head {h00=0x0024, h01=0x0050, text=» RF(Z) ENDIO NO REQUEST GOING ON«, t00=0x0017, t01=0x00ca}
0x24d6…24fe Head {h00=0x0024, h01=0x0050, text=» LDR A6,A4 PUT DWT ADDRESS IN A6«, t00=0x0017, t01=0x00f2}
0x24fe…2524 Head {h00=0x0022, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQ. COUNTING«, t00=0x0017, t01=0x011a}
0x2524…2550 Head {h00=0x0028, h01=0x0050, text=» RB(Z) TCDA30 YES; REACTIVATE ORDER «, t00=0x0017, t01=0x0140}
0x2550…255a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016c}
0x255a…2588 Head {h00=0x002a, h01=0x0050, text=»TCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR«, t00=0x0017, t01=0x0176}
0x2588…25a0 Head {h00=0x0014, h01=0x0050, text=» ST A3,SEKBYT,A6«, t00=0x0018, t01=0x0014}
0x25a0…25d0 Head {h00=0x002c, h01=0x0050, text=» ORK A1,/10 IND SEQUENCE ERROR, BIT #11 «, t00=0x0018, t01=0x002c}
0x25d0…25e2 Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0018, t01=0x005c}
0x25e2…25ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x006e}
0x25ec…2604 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0018, t01=0x0078}
0x2604…260e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0090}
0x260e…2622 Head {h00=0x0010, h01=0x0050, text=»* R E A D «, t00=0x0018, t01=0x009a}
0x2622…262c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ae}
0x262c…2650 Head {h00=0x0020, h01=0x0050, text=»READ CF A8,READR READ RECORD«, t00=0x0018, t01=0x00b8}
0x2650…2672 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0018, t01=0x00dc}
0x2672…2684 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0018, t01=0x00fe}
0x2684…2698 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x0018, t01=0x0110}
0x2698…26b8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) READ20 STATUS OK «, t00=0x0018, t01=0x0124}
0x26b8…26c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0144}
0x26c2…26ec Head {h00=0x0026, h01=0x0050, text=»READ15 SUK A4,1 RECOVERABLE ERROR «, t00=0x0018, t01=0x014e}
0x26ec…2710 Head {h00=0x0020, h01=0x0050, text=» RF(Z) READ20 3 TRIALS DONE «, t00=0x0018, t01=0x0178}
0x2710…2738 Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x0019, t01=0x000c}
0x2738…2754 Head {h00=0x0018, h01=0x0050, text=» RB READ READ AGAIN«, t00=0x0019, t01=0x0034}
0x2754…275e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0050}
0x275e…2776 Head {h00=0x0014, h01=0x0050, text=»READ20 LDR A2,A1«, t00=0x0019, t01=0x005a}
0x2776…279a Head {h00=0x0020, h01=0x0050, text=» SLL A2,3 CHECK IF TAPE MARK«, t00=0x0019, t01=0x0072}
0x279a…27be Head {h00=0x0020, h01=0x0050, text=» RF(NN) READ30 NOT TAPE MARK«, t00=0x0019, t01=0x0096}
0x27be…27c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ba}
0x27c8…27f4 Head {h00=0x0028, h01=0x0050, text=»READ25 ORK A3,/10 INDICATE TAPE MARK«, t00=0x0019, t01=0x00c4}
0x27f4…281c Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 RESET EFFECTIVE LENGTH«, t00=0x0019, t01=0x00f0}
0x281c…2830 Head {h00=0x0010, h01=0x0050, text=» RF READ35 «, t00=0x0019, t01=0x0118}
0x2830…283a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x012c}
0x283a…2852 Head {h00=0x0014, h01=0x0050, text=»READ30 LDR A2,A1«, t00=0x0019, t01=0x0136}
0x2852…287a Head {h00=0x0024, h01=0x0050, text=» LDKL A7,0 GET EFFECTIVE LENGTH «, t00=0x0019, t01=0x014e}
0x287a…28a6 Head {h00=0x0028, h01=0x0050, text=»EFFLEN EQU *-2 **EFFECTIVE LENGTH** «, t00=0x0019, t01=0x0176}
0x28a6…28ca Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/801 NO DATA,NOT OP«, t00=0x001a, t01=0x0012}
0x28ca…28e0 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) READ32«, t00=0x001a, t01=0x0036}
0x28e0…28f2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x001a, t01=0x004c}
0x28f2…2918 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) READ32 NOT EQUAL ZERO «, t00=0x001a, t01=0x005e}
0x2918…293c Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 THIRD TRIAL DONE «, t00=0x001a, t01=0x0084}
0x293c…296c Head {h00=0x002c, h01=0x0050, text=» RB(NZ) READ15 NO; READ SAME BLOCK AGAIN«, t00=0x001a, t01=0x00a8}
0x296c…2996 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 SET NO OF RETRIES TO ONE«, t00=0x001a, t01=0x00d8}
0x2996…29b6 Head {h00=0x001c, h01=0x0050, text=» RB READ TRY NEXT BLOCK«, t00=0x001a, t01=0x0102}
0x29b6…29c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0122}
0x29c0…29d4 Head {h00=0x0010, h01=0x0050, text=»READ32 EQU *«, t00=0x001a, t01=0x012c}
0x29d4…29f6 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/2F NOT TAPE MARK «, t00=0x001a, t01=0x0140}
0x29f6…2a1e Head {h00=0x0024, h01=0x0050, text=» LD A2,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x001a, t01=0x0162}
0x2a1e…2a38 Head {h00=0x0016, h01=0x0050, text=» RF(NE) READ35 NO «, t00=0x001a, t01=0x018a}
0x2a38…2a68 Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 DECREMENT EFF. LENGTH COUNTER «, t00=0x001b, t01=0x0014}
0x2a68…2a9a Head {h00=0x002e, h01=0x0050, text=» CC A5,DWTBKC+1,A6 CHECK SEQUENCE COUNTER «, t00=0x001b, t01=0x0044}
0x2a9a…2ab2 Head {h00=0x0014, h01=0x0050, text=» RF(E) READ35 OK«, t00=0x001b, t01=0x0076}
0x2ab2…2ad4 Head {h00=0x001e, h01=0x0050, text=» ORK A1,/10 SEQUENCE ERROR«, t00=0x001b, t01=0x008e}
0x2ad4…2ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b0}
0x2ade…2b14 Head {h00=0x0032, h01=0x0050, text=»READ35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER«, t00=0x001b, t01=0x00ba}
0x2b14…2b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f0}
0x2b1e…2b4c Head {h00=0x002a, h01=0x0050, text=»READ40 LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x001b, t01=0x00fa}
0x2b4c…2b7a Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH «, t00=0x001b, t01=0x0128}
0x2b7a…2b90 Head {h00=0x0012, h01=0x0050, text=» LDK A2,RTRIES«, t00=0x001b, t01=0x0156}
0x2b90…2bc2 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 GET NUMBER OF RETRIES PERFORMED«, t00=0x001b, t01=0x016c}
0x2bc2…2bf2 Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBCW,A8 SAVE IT IN CONTROL WORD «, t00=0x001c, t01=0x000e}
0x2bf2…2bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x003e}
0x2bfc…2c10 Head {h00=0x0010, h01=0x0050, text=»READ50 EQU *«, t00=0x001c, t01=0x0048}
0x2c10…2c34 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTST,A6 SAVE STATUS «, t00=0x001c, t01=0x005c}
0x2c34…2c4c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001c, t01=0x0080}
0x2c4c…2c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0098}
0x2c56…2c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a2}
0x2c60…2c7e Head {h00=0x001a, h01=0x0050, text=»* END OF I/O OPERATION«, t00=0x001c, t01=0x00ac}
0x2c7e…2c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ca}
0x2c88…2c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d4}
0x2c92…2ca6 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x001c, t01=0x00de}
0x2ca6…2cd2 Head {h00=0x0028, h01=0x0050, text=» CM TCDADT INDICATE NONE ACTIVE DWT «, t00=0x001c, t01=0x00f2}
0x2cd2…2cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x011e}
0x2cdc…2cf8 Head {h00=0x0018, h01=0x0050, text=»* MODIFY RETURN CODE«, t00=0x001c, t01=0x0128}
0x2cf8…2d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0144}
0x2d02…2d2c Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/BFFF SKIP BIT 1 (LEADER)«, t00=0x001c, t01=0x014e}
0x2d2c…2d4c Head {h00=0x001c, h01=0x0050, text=» RF(Z) ENDIO5 NO ERRORS «, t00=0x001c, t01=0x0178}
0x2d4c…2d62 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/2000«, t00=0x001d, t01=0x0008}
0x2d62…2d74 Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001d, t01=0x001e}
0x2d74…2d8a Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENDIO2 «, t00=0x001d, t01=0x0030}
0x2d8a…2da8 Head {h00=0x001a, h01=0x0050, text=» XRR A1,A2 RESET BIT 2«, t00=0x001d, t01=0x0046}
0x2da8…2dce Head {h00=0x0022, h01=0x0050, text=» ORK A1,/40 SET BIT 9 INSTEAD «, t00=0x001d, t01=0x0064}
0x2dce…2dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008a}
0x2dd8…2dec Head {h00=0x0010, h01=0x0050, text=»ENDIO2 EQU *«, t00=0x001d, t01=0x0094}
0x2dec…2dfe Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x001d, t01=0x00a8}
0x2dfe…2e10 Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001d, t01=0x00ba}
0x2e10…2e26 Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENDIO3 «, t00=0x001d, t01=0x00cc}
0x2e26…2e44 Head {h00=0x001a, h01=0x0050, text=» XRR A1,A2 RESET BIT 4«, t00=0x001d, t01=0x00e2}
0x2e44…2e68 Head {h00=0x0020, h01=0x0050, text=» ORK A1,4 SET BIT 13 INSTEAD«, t00=0x001d, t01=0x0100}
0x2e68…2e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0124}
0x2e72…2e86 Head {h00=0x0010, h01=0x0050, text=»ENDIO3 EQU *«, t00=0x001d, t01=0x012e}
0x2e86…2e98 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x001d, t01=0x0142}
0x2e98…2eaa Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001d, t01=0x0154}
0x2eaa…2ec0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENDIO4 «, t00=0x001d, t01=0x0166}
0x2ec0…2ede Head {h00=0x001a, h01=0x0050, text=» XRR A1,A2 RESET BIT 5«, t00=0x001d, t01=0x017c}
0x2ede…2f06 Head {h00=0x0024, h01=0x0050, text=» ORKL A1,/2000 SET BIT 2 INSTEAD«, t00=0x001e, t01=0x000a}
0x2f06…2f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0032}
0x2f10…2f28 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001e, t01=0x003c}
0x2f28…2f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0054}
0x2f32…2f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x005e}
0x2f3c…2f50 Head {h00=0x0010, h01=0x0050, text=»ENDIO4 EQU *«, t00=0x001e, t01=0x0068}
0x2f50…2f62 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x001e, t01=0x007c}
0x2f62…2f74 Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001e, t01=0x008e}
0x2f74…2f9e Head {h00=0x0026, h01=0x0050, text=» RF(Z) ENDIO5 NOT WRITE PROTECTED «, t00=0x001e, t01=0x00a0}
0x2f9e…2fc0 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 ORDER CODE«, t00=0x001e, t01=0x00ca}
0x2fc0…2fd4 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x001e, t01=0x00ec}
0x2fd4…2fe8 Head {h00=0x0010, h01=0x0050, text=» SUK A7,/05 «, t00=0x001e, t01=0x0100}
0x2fe8…300c Head {h00=0x0020, h01=0x0050, text=» RF(N) ENDIO5 NO WRITE ORDER«, t00=0x001e, t01=0x0114}
0x300c…3024 Head {h00=0x0014, h01=0x0050, text=» SUK A7,/24-/05 «, t00=0x001e, t01=0x0138}
0x3024…3048 Head {h00=0x0020, h01=0x0050, text=» RF(P) ENDIO5 NO WRITE ORDER«, t00=0x001e, t01=0x0150}
0x3048…3066 Head {h00=0x001a, h01=0x0050, text=» ORK A1,/40 SET BIT 9 «, t00=0x001e, t01=0x0174}
0x3066…3070 (31, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0004}
0x3070…3084 Head {h00=0x0010, h01=0x0050, text=»ENDIO5 EQU *«, t00=0x001f, t01=0x000e}
0x3084…3098 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x001f, t01=0x0022}
0x3098…30c0 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x001f, t01=0x0036}
0x30c0…30e2 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x001f, t01=0x005e}
0x30e2…3110 Head {h00=0x002a, h01=0x0050, text=» CF A15,TENDIO PERFORM TENDIO FOR THIS«, t00=0x001f, t01=0x0080}
0x3110…3132 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET FIRST DWT «, t00=0x001f, t01=0x00ae}
0x3132…313e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00d0}
0x313e…3166 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x001f, t01=0x00dc}
0x3166…3196 Head {h00=0x002c, h01=0x0050, text=» ABL DISEND GO TO DISPATCHER VIA TENDIO «, t00=0x001f, t01=0x0104}
0x3196…31a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0134}
0x31a0…31b8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001f, t01=0x013e}
0x31b8…31c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0156}
0x31c2…31cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0160}
0x31cc…31e8 Head {h00=0x0018, h01=0x0050, text=»* WRITE TAPE MARK «, t00=0x001f, t01=0x016a}
0x31e8…31f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0186}
0x31f2…3208 Head {h00=0x0012, h01=0x0050, text=»TM LDKL A3,-1 «, t00=0x001f, t01=0x0190}
0x3208…321e Head {h00=0x0012, h01=0x0050, text=» ST A3,HELPME «, t00=0x0020, t01=0x0016}
0x321e…3228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x002c}
0x3228…323e Head {h00=0x0012, h01=0x0050, text=»* W R I T E «, t00=0x0020, t01=0x0036}
0x323e…3248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x004c}
0x3248…3264 Head {h00=0x0018, h01=0x0050, text=»* WRITE ONE BLOCK «, t00=0x0020, t01=0x0056}
0x3264…326e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0072}
0x326e…3278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x007c}
0x3278…32a8 Head {h00=0x002c, h01=0x0050, text=»WRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER «, t00=0x0020, t01=0x0086}
0x32a8…32ce Head {h00=0x0022, h01=0x0050, text=» RF(NZ) WRIT10 NOT FIRST BLOCK«, t00=0x0020, t01=0x00b6}
0x32ce…32f8 Head {h00=0x0026, h01=0x0050, text=» CF A8,ERASE MAKE ONE BLANK BLOCK «, t00=0x0020, t01=0x00dc}
0x32f8…3326 Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK«, t00=0x0020, t01=0x0106}
0x3326…3330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0134}
0x3330…3358 Head {h00=0x0024, h01=0x0050, text=»WRIT10 CF A8,WRITER WRITE RECORD«, t00=0x0020, t01=0x013e}
0x3358…337a Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT-BIT«, t00=0x0020, t01=0x0166}
0x337a…338c Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0020, t01=0x0188}
0x338c…33a0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x0021, t01=0x000a}
0x33a0…33c0 Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRIT30 STATUS OK «, t00=0x0021, t01=0x001e}
0x33c0…33ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x003e}
0x33ca…33fa Head {h00=0x002c, h01=0x0050, text=»WRIT12 ST A4,WRITA4 STORE RETRY COUNTER «, t00=0x0021, t01=0x0048}
0x33fa…3412 Head {h00=0x0014, h01=0x0050, text=» LD A2,SEKBYT,A6«, t00=0x0021, t01=0x0078}
0x3412…3436 Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRIT15 SEQ. COUNTING «, t00=0x0021, t01=0x0090}
0x3436…3440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b4}
0x3440…3458 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0021, t01=0x00be}
0x3458…3462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d6}
0x3462…346c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e0}
0x346c…3494 Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x0021, t01=0x00ea}
0x3494…34b0 Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ONE ERASE «, t00=0x0021, t01=0x0112}
0x34b0…34c2 Head {h00=0x000e, h01=0x0050, text=» RF WRIT20«, t00=0x0021, t01=0x012e}
0x34c2…34cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0140}
0x34cc…34f4 Head {h00=0x0024, h01=0x0050, text=»WRIT15 CF A8,REPOS POSITION TAPE«, t00=0x0021, t01=0x014a}
0x34f4…351e Head {h00=0x0026, h01=0x0050, text=» CM SEKBYT,A6 RESET SEQ. INDICATOR«, t00=0x0021, t01=0x0172}
0x351e…353e Head {h00=0x001c, h01=0x0050, text=» LD A4,WRITA4 GET NO ...«, t00=0x0022, t01=0x000c}
0x353e…3550 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0022, t01=0x002c}
0x3550…357a Head {h00=0x0026, h01=0x0050, text=» RF(NZ) WRIT40 POSITIONING NOT OK «, t00=0x0022, t01=0x003e}
0x357a…359e Head {h00=0x0020, h01=0x0050, text=» SUK A4,RTRIES ... OF ERASE «, t00=0x0022, t01=0x0068}
0x359e…35a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x008c}
0x35a8…35c8 Head {h00=0x001c, h01=0x0050, text=»WRIT20 CF A8,ERASE ERASE«, t00=0x0022, t01=0x0096}
0x35c8…35e4 Head {h00=0x0018, h01=0x0050, text=» ORR A1,A2 SAVE EOT «, t00=0x0022, t01=0x00b6}
0x35e4…3602 Head {h00=0x001a, h01=0x0050, text=» ADK A4,1 COUNT ERASE «, t00=0x0022, t01=0x00d2}
0x3602…3622 Head {h00=0x001c, h01=0x0050, text=» RB(NG) WRIT20 NOT READY«, t00=0x0022, t01=0x00f0}
0x3622…3646 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,0 GET RETRY COUNTER«, t00=0x0022, t01=0x0110}
0x3646…366e Head {h00=0x0024, h01=0x0050, text=»WRITA4 EQU *-2 **RETRY COUNTER**«, t00=0x0022, t01=0x0134}
0x366e…3680 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0022, t01=0x015c}
0x3680…36a0 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) WRIT10 TRY AGAIN«, t00=0x0022, t01=0x016e}
0x36a0…36d2 Head {h00=0x002e, h01=0x0050, text=» ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 «, t00=0x0022, t01=0x018e}
0x36d2…36ec Head {h00=0x0016, h01=0x0050, text=» RF WRIT50 GIVE UP«, t00=0x0023, t01=0x0030}
0x36ec…36f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x004a}
0x36f6…370e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0023, t01=0x0054}
0x370e…3718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006c}
0x3718…3722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0076}
0x3722…3746 Head {h00=0x0020, h01=0x0050, text=»WRIT30 LD A2,TCDAX GET ORDER«, t00=0x0023, t01=0x0080}
0x3746…376a Head {h00=0x0020, h01=0x0050, text=» SUK A2,4 TAPE MARK WRITTEN?«, t00=0x0023, t01=0x00a4}
0x376a…3784 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) READ30 NO «, t00=0x0023, t01=0x00c8}
0x3784…37a0 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A1 CHECK IF «, t00=0x0023, t01=0x00e2}
0x37a0…37be Head {h00=0x001a, h01=0x0050, text=» SLL A2,3 TAPE MARK OK«, t00=0x0023, t01=0x00fe}
0x37be…37d8 Head {h00=0x0016, h01=0x0050, text=» ABL(N) READ25 YES«, t00=0x0023, t01=0x011c}
0x37d8…37ee Head {h00=0x0012, h01=0x0050, text=» RB WRIT12 NO «, t00=0x0023, t01=0x0136}
0x37ee…37f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014c}
0x37f8…3836 Head {h00=0x003a, h01=0x0050, text=»WRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR «, t00=0x0023, t01=0x0156}
0x3836…3840 (36, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0004}
0x3840…3870 Head {h00=0x002c, h01=0x0050, text=»WRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH«, t00=0x0024, t01=0x000e}
0x3870…3882 Head {h00=0x000e, h01=0x0050, text=» RB READ40«, t00=0x0024, t01=0x003e}
0x3882…388c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0050}
0x388c…38a4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0024, t01=0x005a}
0x38a4…38ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0072}
0x38ae…38b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x007c}
0x38b8…38cc Head {h00=0x0010, h01=0x0050, text=»* L O A D «, t00=0x0024, t01=0x0086}
0x38cc…38d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x009a}
0x38d6…38f0 Head {h00=0x0016, h01=0x0050, text=»* LOAD CASSETTE «, t00=0x0024, t01=0x00a4}
0x38f0…38fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00be}
0x38fa…3904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c8}
0x3904…392a Head {h00=0x0022, h01=0x0050, text=»LOAD CF A8,LOCK LOCK CASSETTE «, t00=0x0024, t01=0x00d2}
0x392a…3950 Head {h00=0x0022, h01=0x0050, text=» RF(Z) REWIND CASSETTE LOCKED «, t00=0x0024, t01=0x00f8}
0x3950…3974 Head {h00=0x0020, h01=0x0050, text=»LOAD10 LDR A1,A2 NO CASSETTE«, t00=0x0024, t01=0x011e}
0x3974…3986 Head {h00=0x000e, h01=0x0050, text=» RB READ50«, t00=0x0024, t01=0x0142}
0x3986…3990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0154}
0x3990…399a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015e}
0x399a…39b2 Head {h00=0x0014, h01=0x0050, text=»* R E W I N D «, t00=0x0024, t01=0x0168}
0x39b2…39bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0180}
0x39bc…39d4 Head {h00=0x0014, h01=0x0050, text=»* REWIND TAPE «, t00=0x0024, t01=0x018a}
0x39d4…39de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0012}
0x39de…39e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x001c}
0x39e8…3a18 Head {h00=0x002c, h01=0x0050, text=»REWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER «, t00=0x0025, t01=0x0026}
0x3a18…3a44 Head {h00=0x0028, h01=0x0050, text=» CF A8,SBOT SEARCH BEGINNING OF TAPE«, t00=0x0025, t01=0x0056}
0x3a44…3a58 Head {h00=0x0010, h01=0x0050, text=»REW010 EQU *«, t00=0x0025, t01=0x0082}
0x3a58…3a6a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0025, t01=0x0096}
0x3a6a…3a7c Head {h00=0x000e, h01=0x0050, text=» SRL A3,7 «, t00=0x0025, t01=0x00a8}
0x3a7c…3a8e Head {h00=0x000e, h01=0x0050, text=» ANK A3,6 «, t00=0x0025, t01=0x00ba}
0x3a8e…3aae Head {h00=0x001c, h01=0x0050, text=» ORK A3,1 PREPARE STATUS«, t00=0x0025, t01=0x00cc}
0x3aae…3ac0 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0025, t01=0x00ec}
0x3ac0…3aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fe}
0x3aca…3ae2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0025, t01=0x0108}
0x3ae2…3aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0120}
0x3aec…3af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x012a}
0x3af6…3b0e Head {h00=0x0014, h01=0x0050, text=»* U N L O A D «, t00=0x0025, t01=0x0134}
0x3b0e…3b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x014c}
0x3b18…3b34 Head {h00=0x0018, h01=0x0050, text=»* UNLOAD CASSETTE «, t00=0x0025, t01=0x0156}
0x3b34…3b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0172}
0x3b3e…3b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017c}
0x3b48…3b70 Head {h00=0x0024, h01=0x0050, text=»UNLOAD CM DWTST,A6 RESET STATUS «, t00=0x0025, t01=0x0186}
0x3b70…3b94 Head {h00=0x0020, h01=0x0050, text=» CF A8,UNLD UNLOAD CASSETTE «, t00=0x0026, t01=0x001e}
0x3b94…3bbe Head {h00=0x0026, h01=0x0050, text=»UNLO10 LDR A1,A2 SAVE RETURN CODE «, t00=0x0026, t01=0x0042}
0x3bbe…3be0 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/FFFE SKIP BIT 15«, t00=0x0026, t01=0x006c}
0x3be0…3bf2 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x0026, t01=0x008e}
0x3bf2…3c06 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0026, t01=0x00a0}
0x3c06…3c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b4}
0x3c10…3c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00be}
0x3c1a…3c32 Head {h00=0x0014, h01=0x0050, text=»* R E V E R S «, t00=0x0026, t01=0x00c8}
0x3c32…3c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e0}
0x3c3c…3c5c Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x0026, t01=0x00ea}
0x3c5c…3c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010a}
0x3c66…3c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0114}
0x3c70…3c94 Head {h00=0x0020, h01=0x0050, text=»REVERS CF A8,BKSP BACKSPACE «, t00=0x0026, t01=0x011e}
0x3c94…3cbc Head {h00=0x0024, h01=0x0050, text=» LDKL A4,-1 DECREMENT BLOCK SEQ.«, t00=0x0026, t01=0x0142}
0x3cbc…3ce4 Head {h00=0x0024, h01=0x0050, text=» ADS A4,DWTBKC,A6 COUNTER BY ONE«, t00=0x0026, t01=0x016a}
0x3ce4…3cf6 (39, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB UNLO10«, t00=0x0027, t01=0x0004}
0x3cf6…3d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0016}
0x3d00…3d18 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0027, t01=0x0020}
0x3d18…3d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0038}
0x3d22…3d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0042}
0x3d2c…3d44 Head {h00=0x0014, h01=0x0050, text=»* E R T A P E «, t00=0x0027, t01=0x004c}
0x3d44…3d4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0064}
0x3d4e…3d64 Head {h00=0x0012, h01=0x0050, text=»* ERASE TAPE«, t00=0x0027, t01=0x006e}
0x3d64…3d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0084}
0x3d6e…3d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008e}
0x3d78…3da4 Head {h00=0x0028, h01=0x0050, text=»ERTAPE LDK A4,PERAS SET NO OF ERASE «, t00=0x0027, t01=0x0098}
0x3da4…3dce Head {h00=0x0026, h01=0x0050, text=»ERT10 CF A8,ERASE ERASE ONE BLOCK «, t00=0x0027, t01=0x00c4}
0x3dce…3df0 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0027, t01=0x00ee}
0x3df0…3e0e Head {h00=0x001a, h01=0x0050, text=» ORR A1,A2 RETURN CODE«, t00=0x0027, t01=0x0110}
0x3e0e…3e20 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0027, t01=0x012e}
0x3e20…3e46 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ERT10 ERASE NOT READY «, t00=0x0027, t01=0x0140}
0x3e46…3e5a Head {h00=0x0010, h01=0x0050, text=» ABL READ50 «, t00=0x0027, t01=0x0166}
0x3e5a…3e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017a}
0x3e64…3e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0184}
0x3e6e…3e84 Head {h00=0x0012, h01=0x0050, text=»* O L O C K «, t00=0x0027, t01=0x018e}
0x3e84…3e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0014}
0x3e8e…3eae Head {h00=0x001c, h01=0x0050, text=»* ORDER LOCK CASSETTE «, t00=0x0028, t01=0x001e}
0x3eae…3eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x003e}
0x3eb8…3ec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0048}
0x3ec2…3ee8 Head {h00=0x0022, h01=0x0050, text=»OLOCK CF A8,LOCK LOCK CASSETTE«, t00=0x0028, t01=0x0052}
0x3ee8…3f0e Head {h00=0x0022, h01=0x0050, text=» RB(Z) REW010 CASSETTE LOCKED «, t00=0x0028, t01=0x0078}
0x3f0e…3f20 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0028, t01=0x009e}
0x3f20…3f2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00b0}
0x3f2c…3f36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00bc}
0x3f36…3f4e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0028, t01=0x00c6}
0x3f4e…3f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00de}
0x3f58…3f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e8}
0x3f62…3f7e Head {h00=0x0018, h01=0x0050, text=»* CASSETTE COMMANDS «, t00=0x0028, t01=0x00f2}
0x3f7e…3f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x010e}
0x3f88…3f92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0118}
0x3f92…3fa2 Head {h00=0x000c, h01=0x0050, text=»* SELECT«, t00=0x0028, t01=0x0122}
0x3fa2…3fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0132}
0x3fac…3fc0 Head {h00=0x0010, h01=0x0050, text=»SELECT EQU *«, t00=0x0028, t01=0x013c}
0x3fc0…3fde Head {h00=0x001a, h01=0x0050, text=» LDK A2,/FF LOAD MASK «, t00=0x0028, t01=0x0150}
0x3fde…4004 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A6 SET DWT BUSY «, t00=0x0028, t01=0x016e}
0x4004…4018 (41, 0, 400) Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=1«, t00=0x0029, t01=0x0004}
0x4018…4036 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SELECT CODE «, t00=0x0029, t01=0x0018}
0x4036…4042 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0036}
0x4042…4056 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0029, t01=0x0042}
0x4056…4078 Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 GET OTHER DWT «, t00=0x0029, t01=0x0056}
0x4078…409e Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A3 SET DWT BUSY «, t00=0x0029, t01=0x0078}
0x409e…40c0 Head {h00=0x001e, h01=0x0050, text=» ANK A3,1 GET SELECT CODE «, t00=0x0029, t01=0x009e}
0x40c0…40cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00c0}
0x40cc…40d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00cc}
0x40d6…40f0 Head {h00=0x0016, h01=0x0050, text=»CRCOM LD A2,PFPOST«, t00=0x0029, t01=0x00d6}
0x40f0…4114 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) EXIT PFINIT PENDING «, t00=0x0029, t01=0x00f0}
0x4114…412c Head {h00=0x0014, h01=0x0050, text=» CIO A3,1,CHCRDA«, t00=0x0029, t01=0x0114}
0x412c…4140 Head {h00=0x0010, h01=0x0050, text=» RF(Z) EXIT «, t00=0x0029, t01=0x012c}
0x4140…415e Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x0029, t01=0x0140}
0x415e…4170 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0029, t01=0x015e}
0x4170…417a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0170}
0x417a…419c Head {h00=0x001e, h01=0x0050, text=»* READ SEQUENCE CHAR TO A5«, t00=0x0029, t01=0x017a}
0x419c…41a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x000c}
0x41a6…41ba Head {h00=0x0010, h01=0x0050, text=»READSQ EQU *«, t00=0x002a, t01=0x0016}
0x41ba…41cc Head {h00=0x000e, h01=0x0050, text=» LDK A3,/A«, t00=0x002a, t01=0x002a}
0x41cc…41fc Head {h00=0x002c, h01=0x0050, text=» ST A3,REQLEN MAKE REQUESTED LENGTH > 0 «, t00=0x002a, t01=0x003c}
0x41fc…420e Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002a, t01=0x006c}
0x420e…4218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x007e}
0x4218…4230 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002a, t01=0x0088}
0x4230…423a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a0}
0x423a…4254 Head {h00=0x0016, h01=0x0050, text=»* READ ONE RECORD «, t00=0x002a, t01=0x00aa}
0x4254…425e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c4}
0x425e…4276 Head {h00=0x0014, h01=0x0050, text=»READR LDK A3,/A «, t00=0x002a, t01=0x00ce}
0x4276…42a6 Head {h00=0x002c, h01=0x0050, text=»READR1 CM EFFLEN RESET EFFECTIVE LENGTH «, t00=0x002a, t01=0x00e6}
0x42a6…42cc Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET BUFFER ADDRESS «, t00=0x002a, t01=0x0116}
0x42cc…42ee Head {h00=0x001e, h01=0x0050, text=»BUFADR EQU *-2 **BUFADR** «, t00=0x002a, t01=0x013c}
0x42ee…4302 Head {h00=0x0010, h01=0x0050, text=» ST A2,TCDBA«, t00=0x002a, t01=0x015e}
0x4302…432a Head {h00=0x0024, h01=0x0050, text=» LDKL A2,0 GET REQUESTED LENGTH «, t00=0x002a, t01=0x0172}
0x432a…434c Head {h00=0x001e, h01=0x0050, text=»HELPME EQU *-2 **HELPME** «, t00=0x002b, t01=0x000a}
0x434c…4362 Head {h00=0x0012, h01=0x0050, text=» ST A2,REQLEN «, t00=0x002b, t01=0x002c}
0x4362…4374 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002b, t01=0x0042}
0x4374…437e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0054}
0x437e…4398 Head {h00=0x0016, h01=0x0050, text=»* WRITE ONE RECORD«, t00=0x002b, t01=0x005e}
0x4398…43a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0078}
0x43a2…43ba Head {h00=0x0014, h01=0x0050, text=»WRITER LDK A3,/B«, t00=0x002b, t01=0x0082}
0x43ba…43cc Head {h00=0x000e, h01=0x0050, text=» RB READR1«, t00=0x002b, t01=0x009a}
0x43cc…43d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ac}
0x43d6…43f0 Head {h00=0x0016, h01=0x0050, text=»* ERASE ONE BLOCK «, t00=0x002b, t01=0x00b6}
0x43f0…43fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d0}
0x43fa…4410 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,9«, t00=0x002b, t01=0x00da}
0x4410…4422 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002b, t01=0x00f0}
0x4422…442c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0102}
0x442c…4444 Head {h00=0x0014, h01=0x0050, text=»* LOCK CASSETTE «, t00=0x002b, t01=0x010c}
0x4444…444e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0124}
0x444e…4464 Head {h00=0x0012, h01=0x0050, text=»LOCK LDK A3,2 «, t00=0x002b, t01=0x012e}
0x4464…4476 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002b, t01=0x0144}
0x4476…4480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0156}
0x4480…4498 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002b, t01=0x0160}
0x4498…44a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0178}
0x44a2…44c4 Head {h00=0x001e, h01=0x0050, text=»* SEARCH BEGINNING OF TAPE«, t00=0x002b, t01=0x0182}
0x44c4…44ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0014}
0x44ce…44e4 Head {h00=0x0012, h01=0x0050, text=»SBOT LDK A3,8 «, t00=0x002c, t01=0x001e}
0x44e4…44f6 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002c, t01=0x0034}
0x44f6…4500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0046}
0x4500…452a Head {h00=0x0026, h01=0x0050, text=»* REWIND TAPE AND UNLOCK CASSETTE «, t00=0x002c, t01=0x0050}
0x452a…4534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x007a}
0x4534…454a Head {h00=0x0012, h01=0x0050, text=»UNLD LDK A3,/F«, t00=0x002c, t01=0x0084}
0x454a…455c Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002c, t01=0x009a}
0x455c…4566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ac}
0x4566…4584 Head {h00=0x001a, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x002c, t01=0x00b6}
0x4584…458e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d4}
0x458e…45a4 Head {h00=0x0012, h01=0x0050, text=»BKSP LDK A3,/E«, t00=0x002c, t01=0x00de}
0x45a4…45b6 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002c, t01=0x00f4}
0x45b6…45c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0106}
0x45c0…45d8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002c, t01=0x0110}
0x45d8…45e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0128}
0x45e2…45ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0132}
0x45ec…4600 Head {h00=0x0010, h01=0x0050, text=»* I H T C «, t00=0x002c, t01=0x013c}
0x4600…460a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0150}
0x460a…463e Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER : PROCESS OF INTERRUPT«, t00=0x002c, t01=0x015a}
0x463e…4648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x018e}
0x4648…4652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0008}
0x4652…4664 Head {h00=0x000e, h01=0x0050, text=»IHTC EQU *«, t00=0x002d, t01=0x0012}
0x4664…468c Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x002d, t01=0x0024}
0x468c…46b0 Head {h00=0x0020, h01=0x0050, text=» STR A5,A15 SAVE A5 ON STACK«, t00=0x002d, t01=0x004c}
0x46b0…46c6 Head {h00=0x0012, h01=0x0050, text=» SST A5,CHCRDA«, t00=0x002d, t01=0x0070}
0x46c6…46e6 Head {h00=0x001c, h01=0x0050, text=» RF(A) SST SST ACCEPTED «, t00=0x002d, t01=0x0086}
0x46e6…470a Head {h00=0x0020, h01=0x0050, text=» IM REQLEN INCREMENT COUNTER«, t00=0x002d, t01=0x00a6}
0x470a…4720 Head {h00=0x0012, h01=0x0050, text=» RF(Z) CIOHLT «, t00=0x002d, t01=0x00ca}
0x4720…474a Head {h00=0x0026, h01=0x0050, text=» RF(P) INRSQ GET SEQUENCE COUNTER «, t00=0x002d, t01=0x00e0}
0x474a…476e Head {h00=0x0020, h01=0x0050, text=» STR A3,A15 SAVE A3 ON STACK«, t00=0x002d, t01=0x010a}
0x476e…4794 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,0 GET BUFFER ADDRESS «, t00=0x002d, t01=0x012e}
0x4794…47bc Head {h00=0x0024, h01=0x0050, text=»TCDBA EQU *-2 **BUFFER ADDRESS**«, t00=0x002d, t01=0x0154}
0x47bc…47e6 Head {h00=0x0026, h01=0x0050, text=» IM TCDBA INCREMENT BUFFER ADDRESS«, t00=0x002d, t01=0x017c}
0x47e6…481e Head {h00=0x0034, h01=0x0050, text=» LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE «, t00=0x002e, t01=0x0016}
0x481e…4830 Head {h00=0x000e, h01=0x0050, text=» SUK A5,10«, t00=0x002e, t01=0x004e}
0x4830…484c Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IHTC05 WRITE«, t00=0x002e, t01=0x0060}
0x484c…4856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x007c}
0x4856…4880 Head {h00=0x0026, h01=0x0050, text=»IHTC02 INR A5,0,CHCRDA READ CHAR. «, t00=0x002e, t01=0x0086}
0x4880…48ac Head {h00=0x0028, h01=0x0050, text=» SCR A5,A3 STORE CHARACTER IN BUFFER«, t00=0x002e, t01=0x00b0}
0x48ac…48be Head {h00=0x000e, h01=0x0050, text=» RF EXIT2 «, t00=0x002e, t01=0x00dc}
0x48be…48c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ee}
0x48c8…48dc Head {h00=0x0010, h01=0x0050, text=»IHTC05 EQU *«, t00=0x002e, t01=0x00f8}
0x48dc…4904 Head {h00=0x0024, h01=0x0050, text=» LCR A5,A3 GET CHAR FROM BUFFER «, t00=0x002e, t01=0x010c}
0x4904…4926 Head {h00=0x001e, h01=0x0050, text=» OTR A5,0,CHCRDA OUTPUT IT«, t00=0x002e, t01=0x0134}
0x4926…493e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002e, t01=0x0156}
0x493e…4948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x016e}
0x4948…4952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0178}
0x4952…496c Head {h00=0x0016, h01=0x0050, text=»EXIT2 ST A5,TCDA5 «, t00=0x002e, t01=0x0182}
0x496c…499a Head {h00=0x002a, h01=0x0050, text=» IM EFFLEN INCREMENT EFFECTIVE LENGTH«, t00=0x002f, t01=0x000c}
0x499a…49cc Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A15 RESTORE A3 AND A5 FROM STACK «, t00=0x002f, t01=0x003a}
0x49cc…49d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x006c}
0x49d6…49f0 Head {h00=0x0016, h01=0x0050, text=»EXIT3 LDR* A5,A15 «, t00=0x002f, t01=0x0076}
0x49f0…4a00 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002f, t01=0x0090}
0x4a00…4a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a0}
0x4a0a…4a38 Head {h00=0x002a, h01=0x0050, text=»INRSQ INR A5,0,CHCRDA READ CHAR TO A5 «, t00=0x002f, t01=0x00aa}
0x4a38…4a4c Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x002f, t01=0x00d8}
0x4a4c…4a5e Head {h00=0x000e, h01=0x0050, text=» RB EXIT3 «, t00=0x002f, t01=0x00ec}
0x4a5e…4a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00fe}
0x4a68…4a8c Head {h00=0x0020, h01=0x0050, text=»SST ST A5,TCDA2 SAVE STATUS «, t00=0x002f, t01=0x0108}
0x4a8c…4aac Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A15 RESTORE A5 «, t00=0x002f, t01=0x012c}
0x4aac…4ac2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002f, t01=0x014c}
0x4ac2…4aec Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x002f, t01=0x0162}
0x4aec…4af8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x018c}
0x4af8…4b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0008}
0x4b02…4b18 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0030, t01=0x0012}
0x4b18…4b3e Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0030, t01=0x0028}
0x4b3e…4b4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x004e}
0x4b4a…4b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x005a}
0x4b54…4b66 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,0«, t00=0x0030, t01=0x0064}
0x4b66…4b7c Head {h00=0x0012, h01=0x0050, text=»TCDA1 EQU *-2 «, t00=0x0030, t01=0x0076}
0x4b7c…4b8e Head {h00=0x000e, h01=0x0050, text=» LDKL A4,0«, t00=0x0030, t01=0x008c}
0x4b8e…4ba4 Head {h00=0x0012, h01=0x0050, text=»TCDA4 EQU *-2 «, t00=0x0030, t01=0x009e}
0x4ba4…4bb6 Head {h00=0x000e, h01=0x0050, text=» LDKL A5,0«, t00=0x0030, t01=0x00b4}
0x4bb6…4bcc Head {h00=0x0012, h01=0x0050, text=»TCDA5 EQU *-2 «, t00=0x0030, t01=0x00c6}
0x4bcc…4bde Head {h00=0x000e, h01=0x0050, text=» LDKL A6,0«, t00=0x0030, t01=0x00dc}
0x4bde…4bf4 Head {h00=0x0012, h01=0x0050, text=»TCDA6 EQU *-2 «, t00=0x0030, t01=0x00ee}
0x4bf4…4c06 Head {h00=0x000e, h01=0x0050, text=» LDKL A8,0«, t00=0x0030, t01=0x0104}
0x4c06…4c1c Head {h00=0x0012, h01=0x0050, text=»TCDA8 EQU *-2 «, t00=0x0030, t01=0x0116}
0x4c1c…4c34 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0030, t01=0x012c}
0x4c34…4c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0144}
0x4c3e…4c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x014e}
0x4c48…4c6a Head {h00=0x001e, h01=0x0050, text=» LDKL A2,0 RESTORE STATUS «, t00=0x0030, t01=0x0158}
0x4c6a…4c80 Head {h00=0x0012, h01=0x0050, text=»TCDA2 EQU *-2 «, t00=0x0030, t01=0x017a}
0x4c80…4c9e Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 GET STATUS«, t00=0x0030, t01=0x0190}
0x4c9e…4cb6 Head {h00=0x0014, h01=0x0050, text=» SLL A3,9 SHIFT «, t00=0x0031, t01=0x001e}
0x4cb6…4cd8 Head {h00=0x001e, h01=0x0050, text=» ST A3,2,A8 SAVE ON STACK «, t00=0x0031, t01=0x0036}
0x4cd8…4d04 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 PUT DWT STATUS IN A3«, t00=0x0031, t01=0x0058}
0x4d04…4d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0084}
0x4d0e…4d22 Head {h00=0x0010, h01=0x0050, text=»IHTRTN EQU *«, t00=0x0031, t01=0x008e}
0x4d22…4d32 Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0031, t01=0x00a2}
0x4d32…4d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b2}
0x4d3c…4d50 Head {h00=0x0010, h01=0x0050, text=»CIOHLT EQU *«, t00=0x0031, t01=0x00bc}
0x4d50…4d72 Head {h00=0x001e, h01=0x0050, text=» CIO A1,0,CHCRDA CIO-HALT«, t00=0x0031, t01=0x00d0}
0x4d72…4d84 Head {h00=0x000e, h01=0x0050, text=» RB EXIT3 «, t00=0x0031, t01=0x00f2}
0x4d84…4d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0104}
0x4d8e…4da6 Head {h00=0x0014, h01=0x0050, text=»EXIT ST A1,TCDA1«, t00=0x0031, t01=0x010e}
0x4da6…4dba Head {h00=0x0010, h01=0x0050, text=» ST A4,TCDA4«, t00=0x0031, t01=0x0126}
0x4dba…4dce Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x0031, t01=0x013a}
0x4dce…4de2 Head {h00=0x0010, h01=0x0050, text=» ST A6,TCDA6«, t00=0x0031, t01=0x014e}
0x4de2…4df6 Head {h00=0x0010, h01=0x0050, text=» ST A8,TCDA8«, t00=0x0031, t01=0x0162}
0x4df6…4e1a Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER«, t00=0x0031, t01=0x0176}
0x4e1a…4e24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x000a}
0x4e24…4e3c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0032, t01=0x0014}
0x4e3c…4e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x002c}
0x4e46…4e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0036}
0x4e50…4e68 Head {h00=0x0014, h01=0x0050, text=»* R C O V E R «, t00=0x0032, t01=0x0040}
0x4e68…4e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0058}
0x4e72…4eb0 Head {h00=0x003a, h01=0x0050, text=»* RECOVERY ROUTINE : POSITIONING OF TAPE AT POWER ON«, t00=0x0032, t01=0x0062}
0x4eb0…4eba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00a0}
0x4eba…4ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00aa}
0x4ec4…4ed8 Head {h00=0x0010, h01=0x0050, text=»RCOVER EQU *«, t00=0x0032, t01=0x00b4}
0x4ed8…4ef4 Head {h00=0x0018, h01=0x0050, text=» CF A8,SELECT SELECT«, t00=0x0032, t01=0x00c8}
0x4ef4…4f06 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0032, t01=0x00e4}
0x4f06…4f3c Head {h00=0x0032, h01=0x0050, text=» RB(Z) IHTRTN NOT LOCKED: RETURN FROM RECOVERY«, t00=0x0032, t01=0x00f6}
0x4f3c…4f50 Head {h00=0x0010, h01=0x0050, text=» CF A8,LOCK «, t00=0x0032, t01=0x012c}
0x4f50…4f72 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) REPER NO CASSETTE «, t00=0x0032, t01=0x0140}
0x4f72…4fa2 Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ «, t00=0x0032, t01=0x0162}
0x4fa2…4fbc (51, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RC0050 YES«, t00=0x0033, t01=0x0004}
0x4fbc…4fe8 Head {h00=0x0028, h01=0x0050, text=» CF A8,SBOT SEARCH BEGINNING OF TAPE«, t00=0x0033, t01=0x001e}
0x4fe8…4ffa Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0033, t01=0x004a}
0x4ffa…501e Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x0033, t01=0x005c}
0x501e…5030 Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x0033, t01=0x0080}
0x5030…503a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0092}
0x503a…5066 Head {h00=0x0028, h01=0x0050, text=»RC0050 LD A1,SEKBYT,A6 SEQ. COUNTING«, t00=0x0033, t01=0x009c}
0x5066…507e Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REPER NO«, t00=0x0033, t01=0x00c8}
0x507e…5088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00e0}
0x5088…50a0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0033, t01=0x00ea}
0x50a0…50aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0102}
0x50aa…50b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x010c}
0x50b4…50ca Head {h00=0x0012, h01=0x0050, text=»* R E P O S «, t00=0x0033, t01=0x0116}
0x50ca…50d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x012c}
0x50d4…5102 Head {h00=0x002a, h01=0x0050, text=»* REPOSITIONING OF TAPE AT POWER ON «, t00=0x0033, t01=0x0136}
0x5102…5120 Head {h00=0x001a, h01=0x0050, text=»* AND WRITE RECOVERY«, t00=0x0033, t01=0x0164}
0x5120…512a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0182}
0x512a…5162 Head {h00=0x0034, h01=0x0050, text=»* EXIT: A2 EQ ZERO SUCCESS«, t00=0x0033, t01=0x018c}
0x5162…519e Head {h00=0x0038, h01=0x0050, text=»* A2 NOT EQ ZERO NO SUCCESS «, t00=0x0034, t01=0x0034}
0x519e…51a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0070}
0x51a8…51b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x007a}
0x51b2…51c6 Head {h00=0x0010, h01=0x0050, text=»REPOS EQU * «, t00=0x0034, t01=0x0084}
0x51c6…51ee Head {h00=0x0024, h01=0x0050, text=» LDK A4,8 SET REPOSITIONING BIT «, t00=0x0034, t01=0x0098}
0x51ee…5214 Head {h00=0x0022, h01=0x0050, text=» ORS A4,DWTST,A6 STORE IN DWT «, t00=0x0034, t01=0x00c0}
0x5214…521e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e6}
0x521e…5232 Head {h00=0x0010, h01=0x0050, text=»REP005 EQU *«, t00=0x0034, t01=0x00f0}
0x5232…525c Head {h00=0x0026, h01=0x0050, text=» LDK A4,PSUBS SET NO OF BACKSPACES«, t00=0x0034, t01=0x0104}
0x525c…5266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x012e}
0x5266…528a Head {h00=0x0020, h01=0x0050, text=»REP010 CF A8,BKSP BACKSPACE «, t00=0x0034, t01=0x0138}
0x528a…529c Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0034, t01=0x015c}
0x529c…52be Head {h00=0x001e, h01=0x0050, text=» RF(NN) REP015 DATA FOUND «, t00=0x0034, t01=0x016e}
0x52be…52e8 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTBKC,A6 GET BLOCK COUNTER«, t00=0x0034, t01=0x0190}
0x52e8…5306 Head {h00=0x001a, h01=0x0050, text=» SUK A2,8 GREATER 8 ? «, t00=0x0035, t01=0x002a}
0x5306…531e Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x0035, t01=0x0048}
0x531e…5350 Head {h00=0x002e, h01=0x0050, text=» CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE «, t00=0x0035, t01=0x0060}
0x5350…5362 Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0035, t01=0x0092}
0x5362…5386 Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x0035, t01=0x00a4}
0x5386…53ac Head {h00=0x0022, h01=0x0050, text=» LDKL A5,-1 RESET SEQ. COUNTER«, t00=0x0035, t01=0x00c8}
0x53ac…53ce Head {h00=0x001e, h01=0x0050, text=» RF REP020 READ SEQ. CHAR «, t00=0x0035, t01=0x00ee}
0x53ce…53d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0110}
0x53d8…53f0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0035, t01=0x011a}
0x53f0…53fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0132}
0x53fa…5404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x013c}
0x5404…5418 Head {h00=0x0010, h01=0x0050, text=»REP015 EQU *«, t00=0x0035, t01=0x0146}
0x5418…542a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0035, t01=0x015a}
0x542a…5450 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) REP010 BACKSPACE AGAIN«, t00=0x0035, t01=0x016c}
0x5450…5478 (54, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LDK A4,PREAD SET NO OF MAX READ«, t00=0x0036, t01=0x0004}
0x5478…5482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x002c}
0x5482…54ac Head {h00=0x0026, h01=0x0050, text=»REP017 CF A8,READSQ READ SEQ. CHAR«, t00=0x0036, t01=0x0036}
0x54ac…54d0 Head {h00=0x0020, h01=0x0050, text=» LDKL A7,/180F SET READ MASK«, t00=0x0036, t01=0x0060}
0x54d0…54e2 Head {h00=0x000e, h01=0x0050, text=» TM A2,A7 «, t00=0x0036, t01=0x0084}
0x54e2…5500 Head {h00=0x001a, h01=0x0050, text=» RF(Z) REP020 READ OK «, t00=0x0036, t01=0x0096}
0x5500…551c Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 COUNT READ«, t00=0x0036, t01=0x00b4}
0x551c…5544 Head {h00=0x0024, h01=0x0050, text=» RB(P) REP017 NOT ALL READ DONE «, t00=0x0036, t01=0x00d0}
0x5544…555e Head {h00=0x0016, h01=0x0050, text=» RF REP060 GIVE UP«, t00=0x0036, t01=0x00f8}
0x555e…5568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0112}
0x5568…5596 Head {h00=0x002a, h01=0x0050, text=»REP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR«, t00=0x0036, t01=0x011c}
0x5596…55b2 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 CALCULATE«, t00=0x0036, t01=0x014a}
0x55b2…55d4 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 NO OF BLOCKS TO «, t00=0x0036, t01=0x0166}
0x55d4…55f6 Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF READ FORWARD. «, t00=0x0036, t01=0x0188}
0x55f6…561a Head {h00=0x0020, h01=0x0050, text=» CWK A4,PINT TOO MANY BLOCKS«, t00=0x0037, t01=0x001a}
0x561a…5632 Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x0037, t01=0x003e}
0x5632…563c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0056}
0x563c…5654 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0037, t01=0x0060}
0x5654…565e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0078}
0x565e…5668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0082}
0x5668…568e Head {h00=0x0022, h01=0x0050, text=»REP030 SUK A4,1 POSITION TAPE «, t00=0x0037, t01=0x008c}
0x568e…56aa Head {h00=0x0018, h01=0x0050, text=» RF(N) REP040 READY «, t00=0x0037, t01=0x00b2}
0x56aa…56d0 Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ NEXT BLOCK «, t00=0x0037, t01=0x00ce}
0x56d0…56e2 Head {h00=0x000e, h01=0x0050, text=» RB REP030«, t00=0x0037, t01=0x00f4}
0x56e2…56ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0106}
0x56ec…5718 Head {h00=0x0028, h01=0x0050, text=»REP040 LDK A4,RTRIES SET NO OF RETRY«, t00=0x0037, t01=0x0110}
0x5718…5742 Head {h00=0x0026, h01=0x0050, text=»REP042 LDKL A7,/80F SET READ MASK «, t00=0x0037, t01=0x013c}
0x5742…5760 Head {h00=0x001a, h01=0x0050, text=» TM A2,A7 CORRECT READ«, t00=0x0037, t01=0x0166}
0x5760…577a Head {h00=0x0016, h01=0x0050, text=» RF(Z) REP045 YES «, t00=0x0037, t01=0x0184}
0x577a…5798 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 COUNT RETRY «, t00=0x0038, t01=0x000e}
0x5798…57b6 Head {h00=0x001a, h01=0x0050, text=» RF(NP) REP060 GIVE UP«, t00=0x0038, t01=0x002c}
0x57b6…57d4 Head {h00=0x001a, h01=0x0050, text=» CF A8,BKSP BACKSPACE «, t00=0x0038, t01=0x004a}
0x57d4…57fa Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ SEQ NUMBER «, t00=0x0038, t01=0x0068}
0x57fa…580c Head {h00=0x000e, h01=0x0050, text=» RB REP042«, t00=0x0038, t01=0x008e}
0x580c…5816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a0}
0x5816…582e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0038, t01=0x00aa}
0x582e…5838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c2}
0x5838…5842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00cc}
0x5842…585a Head {h00=0x0014, h01=0x0050, text=»REP045 SLC A2,3 «, t00=0x0038, t01=0x00d6}
0x585a…587e Head {h00=0x0020, h01=0x0050, text=» RF(NN) REP050 NOT TAPE MARK«, t00=0x0038, t01=0x00ee}
0x587e…5892 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0038, t01=0x0112}
0x5892…58c0 Head {h00=0x002a, h01=0x0050, text=» RF(Z) REP060 SHOULD NOT BE TAPE MARK «, t00=0x0038, t01=0x0126}
0x58c0…58d2 Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x0038, t01=0x0154}
0x58d2…58dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0166}
0x58dc…5906 Head {h00=0x0026, h01=0x0050, text=»REP050 ADK A5,1 CHECK SEQ. NUMBER «, t00=0x0038, t01=0x0170}
0x5906…5920 Head {h00=0x0016, h01=0x0050, text=» CC A5,DWTBKC+1,A6«, t00=0x0039, t01=0x000a}
0x5920…593a Head {h00=0x0016, h01=0x0050, text=» RF(E) REPOK EQUAL«, t00=0x0039, t01=0x0024}
0x593a…5944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x003e}
0x5944…5962 Head {h00=0x001a, h01=0x0050, text=»REP060 LD A7,DWTST,A6 «, t00=0x0039, t01=0x0048}
0x5962…598a Head {h00=0x0024, h01=0x0050, text=» ANK A7,8 TRY POSITIONING AGAIN?«, t00=0x0039, t01=0x0066}
0x598a…59a2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) REPER NO «, t00=0x0039, t01=0x008e}
0x59a2…59d2 Head {h00=0x002c, h01=0x0050, text=» XRS A7,DWTST,A6 RESET REPOSITIONING BIT«, t00=0x0039, t01=0x00a6}
0x59d2…59e8 Head {h00=0x0012, h01=0x0050, text=» RB REP005 YES«, t00=0x0039, t01=0x00d6}
0x59e8…59f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ec}
0x59f2…59fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f6}
0x59fc…5a36 Head {h00=0x0036, h01=0x0050, text=»REPER LDK A2,2 IND RECOVERY/SEQUENCE ERROR STATUS «, t00=0x0039, t01=0x0100}
0x5a36…5a5c Head {h00=0x0022, h01=0x0050, text=» ORS A2,SEKBYT,A6 SAVE IN DWT «, t00=0x0039, t01=0x013a}
0x5a5c…5a6c Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0039, t01=0x0160}
0x5a6c…5a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0170}
0x5a76…5aa2 Head {h00=0x0028, h01=0x0050, text=»REPOK LDK A2,0 IND RECOVERY CORRECT «, t00=0x0039, t01=0x017a}
0x5aa2…5ab2 Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x003a, t01=0x0016}
0x5ab2…5abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0026}
0x5abc…5ad4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x003a, t01=0x0030}
0x5ad4…5ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0048}
0x5ade…5ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0052}
0x5ae8…5b00 Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 2 «, t00=0x003a, t01=0x005c}
0x5b00…5b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0074}
0x5b0a…5b40 Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 02«, t00=0x003a, t01=0x007e}
0x5b40…5b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b4}
0x5b4a…5b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00be}
0x5b54…5b74 Head {h00=0x001c, h01=0x0050, text=»DWTC02 EQU * TABLE ENTRY«, t00=0x003a, t01=0x00c8}
0x5b74…5b88 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x003a, t01=0x00e8}
0x5b88…5ba8 Head {h00=0x001c, h01=0x0050, text=» DATA DWTC01+1 DWT NO. 1«, t00=0x003a, t01=0x00fc}
0x5ba8…5bdc Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x003a, t01=0x011c}
0x5bdc…5bf8 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003a, t01=0x0150}
0x5bf8…5c0e Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003a, t01=0x016c}
0x5c0e…5c3a Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x003a, t01=0x0182}
0x5c3a…5c56 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003b, t01=0x001e}
0x5c56…5c7e Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003b, t01=0x003a}
0x5c7e…5c9c Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003b, t01=0x0062}
0x5c9c…5cb2 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003b, t01=0x0080}
0x5cb2…5cdc Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003b, t01=0x0096}
0x5cdc…5d00 Head {h00=0x0020, h01=0x0050, text=» DATA ECBTC2 MMU ECB ADDRESS«, t00=0x003b, t01=0x00c0}
0x5d00…5d0c Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003b, t01=0x00e4}
0x5d0c…5d20 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x003b, t01=0x00f0}
0x5d20…5d3e Head {h00=0x001a, h01=0x0050, text=» DATA 0 BLOCK COUNTER «, t00=0x003b, t01=0x0104}
0x5d3e…5d5c Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x003b, t01=0x0122}
0x5d5c…5d72 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003b, t01=0x0140}
0x5d72…5d86 Head {h00=0x0010, h01=0x0050, text=»ECBTC2 EQU *«, t00=0x003b, t01=0x0156}
0x5d86…5d96 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003b, t01=0x016a}
0x5d96…5daa Head {h00=0x0010, h01=0x0050, text=» DATA TCBUF2«, t00=0x003b, t01=0x017a}
0x5daa…5dc0 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x003b, t01=0x018e}
0x5dc0…5ddc Head {h00=0x0018, h01=0x0050, text=»TCBUF2 RES DVBLEN+1 «, t00=0x003c, t01=0x0014}
0x5ddc…5de8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0030}
0x5de8…5df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x003c}
0x5df2…5e0a Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x003c, t01=0x0046}
0x5e0a…5e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x005e}
0x5e14…5e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0068}
0x5e1e…5e36 Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 1 «, t00=0x003c, t01=0x0072}
0x5e36…5e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x008a}
0x5e40…5e76 Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 01«, t00=0x003c, t01=0x0094}
0x5e76…5e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ca}
0x5e80…5e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d4}
0x5e8a…5eac Head {h00=0x001e, h01=0x0050, text=»DWTC01 EQU * TABLE ENTRY «, t00=0x003c, t01=0x00de}
0x5eac…5eca Head {h00=0x001a, h01=0x0050, text=» DATA DWTC02 DWT NO. 2«, t00=0x003c, t01=0x0100}
0x5eca…5efe Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x003c, t01=0x011e}
0x5efe…5f1a Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003c, t01=0x0152}
0x5f1a…5f30 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003c, t01=0x016e}
0x5f30…5f5c Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x003c, t01=0x0184}
0x5f5c…5f78 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003d, t01=0x0020}
0x5f78…5fa0 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003d, t01=0x003c}
0x5fa0…5fbe Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003d, t01=0x0064}
0x5fbe…5fd4 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x0082}
0x5fd4…5ffe Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003d, t01=0x0098}
0x5ffe…6022 Head {h00=0x0020, h01=0x0050, text=» DATA ECBTC1 MMU ECB ADDRESS«, t00=0x003d, t01=0x00c2}
0x6022…602e Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003d, t01=0x00e6}
0x602e…6058 Head {h00=0x0026, h01=0x0050, text=»DWTBKC EQU *-DWTC01 BLOCK COUNTER «, t00=0x003d, t01=0x00f2}
0x6058…6068 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003d, t01=0x011c}
0x6068…6084 Head {h00=0x0018, h01=0x0050, text=»SEKBYT EQU *-DWTC01 «, t00=0x003d, t01=0x012c}
0x6084…60a2 Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x003d, t01=0x0148}
0x60a2…60ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0166}
0x60ac…60c2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1«, t00=0x003d, t01=0x0170}
0x60c2…60d6 Head {h00=0x0010, h01=0x0050, text=»ECBTC1 EQU *«, t00=0x003d, t01=0x0186}
0x60d6…60e6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003e, t01=0x000a}
0x60e6…60fa Head {h00=0x0010, h01=0x0050, text=» DATA TCBUF1«, t00=0x003e, t01=0x001a}
0x60fa…6110 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x003e, t01=0x002e}
0x6110…612c Head {h00=0x0018, h01=0x0050, text=»TCBUF1 RES DVBLEN+1 «, t00=0x003e, t01=0x0044}
0x612c…6138 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0060}
0x6138…6142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x006c}
0x6142…6168 Head {h00=0x0022, h01=0x0050, text=»REQLEN DATA 0 REQUESTED LENGTH«, t00=0x003e, t01=0x0076}
0x6168…6172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x009c}
0x6172…617c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a6}
0x617c…6186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00b0}
0x6186…6192 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003e, t01=0x00ba}
0x6192…6196 Head {h00=0x4004, h01=0x0000}
0x6196…619a 00 3e 00 c6 ┆ > ┆
0x619a…61a2 (63, 1, 8) 20 04 00 00 00 3f 00 04 ┆ ? ┆
0x61a2…61f2 (64, 0, 400) 31 30 5c 4c 44 5c 41 37 2c 44 57 54 4f 52 2c 41 36 5c 53 45 54 20 4f 52 44 45 52 20 49 4e 20 41 37 20 00 37 01 8c 00 10 00 50 5c 41 4e 4b 5c 41 37 2c 2f 46 46 20 00 38 00 2a 00 2a 00 50 5c 4c 44 5c 41 38 2c 44 57 54 45 43 42 2c 41 36 5c 41 ┆10 LD A7,DWTOR,A6 SET ORDER IN A7 7 P ANK A7,/FF 8 * * P LD A8,DWTECB,A6 A┆
0x61f2…6242 4e 44 20 45 43 42 2d 41 44 44 52 45 53 53 20 49 4e 20 41 38 00 38 00 3e 00 12 00 50 5c 49 46 54 5c 53 4f 46 54 49 4d 3d 31 20 00 38 00 6c 00 2a 00 50 5c 4c 43 5c 41 33 2c 44 57 54 4f 43 48 2c 41 36 5c 47 45 54 20 4c 41 53 54 20 43 48 41 52 ┆ND ECB-ADDRESS IN A8 8 > P IFT SOFTIM=1 8 l * P LC A3,DWTOCH,A6 GET LAST CHAR┆
0x6242…6292 41 43 54 45 52 5c 3d 34 00 38 00 82 00 14 00 50 5c 41 4e 4b 5c 41 33 2c 2f 37 46 5c 5c 3d 34 20 00 38 00 b0 00 2a 00 50 5c 53 55 4b 5c 41 33 2c 44 55 4d 4d 53 50 5c 53 50 45 43 49 41 4c 20 44 55 4d 4d 59 3d 45 54 58 20 3f 5c 3d 34 20 00 38 ┆ACTER =4 8 P ANK A3,/7F =4 8 * P SUK A3,DUMMSP SPECIAL DUMMY=ETX ? =4 8┆
0x6292…62e2 00 c8 00 18 00 50 5c 52 46 28 4e 45 29 5c 43 4c 54 31 32 30 5c 4e 4f 5c 3d 34 00 38 00 f6 00 24 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 36 5c 43 48 41 4e 4e 45 4c 20 50 41 52 41 4d 45 54 45 52 5c 3d 39 00 38 01 12 00 30 00 50 5c 52 46 28 4e 29 ┆ P RF(NE) CLT120 NO =4 8 $ P LDR* A3,A6 CHANNEL PARAMETER =9 8 0 P RF(N)┆
0x62e2…6332 5c 43 4c 54 31 32 30 5c 44 45 56 49 43 45 20 57 49 54 48 4f 55 54 20 44 41 54 41 20 52 45 51 55 45 53 54 5c 3d 39 00 38 01 3a 00 26 00 50 5c 4c 44 5c 41 33 2c 44 57 54 54 50 2c 41 36 5c 54 49 4d 45 52 20 52 55 4e 4e 49 4e 47 20 3f 5c 3d 34 ┆ CLT120 DEVICE WITHOUT DATA REQUEST =9 8 : & P LD A3,DWTTP,A6 TIMER RUNNING ? =4┆
0x6332…6382 (65, 0, 400) 00 38 01 6e 00 18 00 50 5c 52 46 28 45 29 5c 43 4c 54 31 32 30 5c 4e 4f 5c 3d 34 20 00 39 00 08 00 0e 00 50 5c 49 4e 48 5c 5c 5c 3d 34 20 00 39 00 24 00 20 00 50 5c 43 4d 2a 5c 44 57 54 54 50 2c 41 36 5c 52 45 53 45 54 20 54 49 4d 45 52 5c ┆ 8 n P RF(E) CLT120 NO =4 9 P INH =4 9 $ P CM* DWTTP,A6 RESET TIMER ┆
0x6382…63d2 3d 34 00 39 00 36 00 32 00 50 5c 43 4d 5c 44 57 54 54 50 2c 41 36 5c 52 45 53 45 54 20 41 44 44 52 45 53 53 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 49 4d 45 52 5c 3d 34 00 39 00 5a 00 14 00 50 43 4c 54 31 32 30 5c 45 51 55 5c 2a 5c 5c 3d 34 ┆=4 9 6 2 P CM DWTTP,A6 RESET ADDRESS POINTER TO TIMER =4 9 Z PCLT120 EQU * =4┆
0x63d2…6422 00 39 00 90 00 08 00 50 5c 58 49 46 00 39 00 a8 00 34 00 50 5c 4c 44 5c 41 33 2c 44 57 54 41 44 52 2c 41 36 5c 41 44 44 52 45 53 53 20 54 4f 20 41 44 44 52 45 53 53 2d 42 4c 4f 43 4b 20 49 4e 20 41 33 20 00 39 00 b4 00 08 00 50 5c 45 4e 42 ┆ 9 P XIF 9 4 P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 9 P ENB┆
0x6422…6472 00 39 00 ec 00 2a 00 50 5c 41 42 49 5c 49 4e 54 41 44 52 2c 41 33 5c 47 4f 20 54 4f 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 00 39 00 f8 00 06 00 50 2a 20 00 39 01 26 00 3e 00 50 2a 20 20 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e ┆ 9 * P ABI INTADR,A3 GO TO INTERRUPT HANDLER 9 P* 9 & > P* THE FOLLOWIN┆
0x6472…64c2 47 20 52 45 47 49 53 54 45 52 20 56 41 55 4c 45 53 20 41 52 45 20 56 41 4c 49 44 20 57 48 45 4e 20 45 4e 54 45 52 49 4e 47 20 00 39 01 30 00 30 00 50 2a 20 20 20 54 48 45 20 44 45 56 49 43 45 20 44 45 50 45 4e 44 41 4e 54 20 49 4e 54 45 52 ┆G REGISTER VAULES ARE VALID WHEN ENTERING 9 0 0 P* THE DEVICE DEPENDANT INTER┆
0x64c2…6512 (66, 0, 400) 52 55 50 54 20 48 41 4e 44 4c 45 52 3a 2d 00 39 01 72 00 06 00 50 2a 20 00 3a 00 16 00 28 00 50 2a 20 20 20 41 31 20 3d 20 45 52 52 4f 52 20 43 4f 44 45 20 20 28 41 31 3d 30 20 20 4e 4f 45 52 52 4f 52 29 00 3a 00 20 00 42 00 50 2a 20 20 20 ┆RUPT HANDLER:- 9 r P* : ( P* A1 = ERROR CODE (A1=0 NOERROR) : B P* ┆
0x6512…6562 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 41 31 3d 31 20 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 20 2c 20 48 41 52 44 57 41 52 45 20 54 49 4d 45 2d 4f 55 54 29 20 00 3a 00 4c 00 18 00 50 2a 20 20 20 41 36 20 3d 20 44 57 54 2d 41 ┆ (A1=1 NOT OPERABLE , HARDWARE TIME-OUT) : L P* A6 = DWT-A┆
0x6562…65b2 44 44 52 45 53 53 00 3a 00 92 00 06 00 50 2a 20 00 3a 00 ae 00 12 00 50 2a 20 20 20 41 37 20 3d 20 4f 52 44 45 52 00 3a 00 b8 00 06 00 50 2a 20 00 3a 00 ce 00 18 00 50 2a 20 20 20 41 38 20 3d 20 45 43 42 2d 41 44 44 52 45 53 53 00 3a 00 d8 ┆DDRESS : P* : P* A7 = ORDER : P* : P* A8 = ECB-ADDRESS : ┆
0x65b2…6602 00 0a 00 50 5c 45 4a 45 43 54 00 3a 00 f4 00 06 00 50 2a 20 00 3a 01 02 00 14 00 50 2a 20 20 20 47 20 45 20 54 20 4c 20 49 20 4e 20 00 3a 01 0c 00 06 00 50 2a 20 00 3a 01 24 00 3e 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 ┆ P EJECT : P* : P* G E T L I N : P* : $ > P* SUBROUTINE TO ┆
0x6602…6652 47 45 54 20 41 44 44 52 45 53 53 20 49 4e 20 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 20 27 49 4e 54 4c 54 58 27 20 00 3a 01 2e 00 2c 00 50 2a 20 20 20 46 4f 52 20 41 20 47 49 56 45 4e 20 4c 49 4e 45 2d 20 41 4e 44 20 44 45 56 49 43 45 ┆GET ADDRESS IN INTERRUPT TABLE 'INTLTX' : . , P* FOR A GIVEN LINE- AND DEVICE┆
0x6652…66a2 (67, 0, 398) 20 4e 55 4d 42 45 52 20 00 3a 01 70 00 06 00 50 2a 20 00 3b 00 10 00 12 00 50 2a 20 20 20 4f 4e 20 45 4e 54 52 59 3a 2d 00 3b 00 1a 00 06 00 50 2a 20 00 3b 00 30 00 1c 00 50 2a 20 20 20 41 33 20 3d 20 4c 49 4e 45 20 4e 55 4d 42 45 52 20 2a ┆ NUMBER : p P* ; P* ON ENTRY:- ; P* ; 0 P* A3 = LINE NUMBER *┆
0x66a2…66f2 20 32 00 3b 00 3a 00 1e 00 50 2a 20 20 20 41 34 20 3d 20 44 45 56 49 43 45 20 4e 55 4d 42 45 52 20 2a 20 32 00 3b 00 5a 00 06 00 50 2a 20 00 3b 00 7c 00 12 00 50 2a 20 20 20 4f 4e 20 45 58 49 54 3a 2d 20 00 3b 00 86 00 06 00 50 2a 20 00 3b ┆ 2 ; : P* A4 = DEVICE NUMBER * 2 ; Z P* ; | P* ON EXIT:- ; P* ;┆
0x66f2…6742 00 9c 00 36 00 50 2a 20 20 20 41 36 20 3d 20 54 4f 54 41 4c 20 4e 55 4d 42 45 52 20 4f 46 20 44 45 56 49 43 45 53 2a 32 20 4f 4e 20 41 43 54 55 41 4c 20 4c 49 4e 45 20 00 3b 00 a6 00 3c 00 50 2a 20 20 20 41 38 20 3d 20 41 44 44 52 45 53 53 ┆ 6 P* A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE ; < P* A8 = ADDRESS┆
0x6742…6792 20 49 4e 20 27 49 4e 54 4c 54 58 27 20 57 48 45 52 45 20 44 57 54 2d 41 44 44 52 45 53 53 20 49 53 20 46 4f 55 4e 44 20 00 3b 00 e0 00 06 00 50 2a 20 00 3b 01 20 00 06 00 50 2a 20 00 3b 01 2a 00 10 00 50 47 45 54 4c 49 4e 5c 45 51 55 5c 2a ┆ IN 'INTLTX' WHERE DWT-ADDRESS IS FOUND ; P* ; P* ; * PGETLIN EQU *┆
0x6792…67e0 00 3b 01 34 00 30 00 50 5c 4c 44 2a 5c 41 38 2c 43 57 54 49 54 41 2c 41 35 5c 41 44 44 52 45 53 53 20 54 4f 20 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 00 3b 01 48 00 16 00 50 5c 52 46 28 5a 29 5c 47 54 4c 30 31 30 5c 5c 3d 35 20 ┆ ; 4 0 P LD* A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE ; H P RF(Z) GTL010 =5 ┆
0x67e0…6830 (68, 0, 400) 00 3b 01 7c 00 20 00 50 5c 41 44 52 5c 41 38 2c 41 33 5c 50 4f 53 49 54 49 4f 4e 20 49 4e 20 54 41 42 4c 45 00 3c 00 08 00 2c 00 50 5c 4c 44 52 2a 5c 41 38 2c 41 38 5c 41 44 44 52 45 53 53 20 54 4f 20 54 45 52 4d 49 4e 41 4c 20 53 45 43 54 ┆ ; | P ADR A8,A3 POSITION IN TABLE < , P LDR* A8,A8 ADDRESS TO TERMINAL SECT┆
0x6830…6880 49 4f 4e 20 00 3c 00 2c 00 28 00 50 5c 52 46 28 5a 29 5c 47 54 4c 30 31 30 5c 52 45 54 55 52 4e 20 49 46 20 4e 4f 54 20 44 45 46 49 4e 45 44 20 00 3c 00 5c 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 ┆ION < , ( P RF(Z) GTL010 RETURN IF NOT DEFINED < P LDR* A6,A8 GET ID-WORD ┆
0x6880…68d0 00 3c 00 88 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 3c 00 a8 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 ┆ < , P ANK A6,/FF TWO TIMES NUMBER OF DEVICES < 4 P ADR A8,A4 ADDRESS TO DE┆
0x68d0…6920 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 3c 00 d8 00 10 00 50 47 54 4c 30 31 30 5c 45 51 55 5c 2a 00 3c 01 10 00 28 00 50 52 54 4e 41 31 35 5c 41 44 4b 4c 5c 41 31 35 2c 32 5c 52 45 54 55 52 4e 20 41 4e 44 ┆VICE WORK TABLE POSITION < PGTL010 EQU * < ( PRTNA15 ADKL A15,2 RETURN AND┆
0x6920…6970 20 45 4e 41 42 4c 45 20 00 3c 01 24 00 08 00 50 5c 45 4e 42 00 3c 01 50 00 10 00 50 5c 4c 44 52 2a 5c 50 2c 41 31 35 20 00 3c 01 5c 00 0a 00 50 5c 45 4a 45 43 54 00 3c 01 70 00 06 00 50 2a 20 00 3c 01 7e 00 14 00 50 2a 20 20 20 4f 20 55 20 ┆ ENABLE < $ P ENB < P P LDR* P,A15 < P EJECT < p P* < ~ P* O U ┆