|
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: 26428 (0x673c)
Notes: pts_type(SC)
Names: »DRTC01.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/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 X:A * * ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED * BY SETTING X:B=0 * X:B EQU 0 REVER EQU X:B * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * MMU BUFFER SIZE * X:C EQU 129 DVBLEN EQU X:C * * MMU DEVICE INDEX * DEVIND EQU 2 * EJECT DRTC01 * * CONSTANTS AND WORK AREAS * DATA DVBLEN+DVBLEN DEVICE DEPENDENT BUFFER SIZE DATA DEVIND DEVICE INDEX TCAD DATA TCDA ACTIVATION ENTRY DATA 0 ABORT ROUTINE ADDRESS RES 4 SUBROUTINE STACK STB EQU *-2 * * TAB DATA /0031,/2237,/3802,/0506 IFT REVER=1 DATA /2633,/24FF XIF TABL EQU *-TAB EJECT DRTC01 * * *************************** * CHANNEL UNIT PARAMETERS * *************************** * * * DEVICE ADDRESS: * CHCRDA EQU /0E * * ************* * CONSTANTS * ************* * * RTRIES EQU 3 MAX NO OF RETRIES * PSUBS EQU 5 POWER UP BACKSPACE NUMBER * PREAD EQU 4 POWER UP READ NUMBER * PINT EQU 10 POWER UP RECOVERY BLOCK COUNT INTERVAL * IFT REVER=1 PERAS EQU 6 NO OF ERASE FOR ORDER /24 XIF EJECT DRTC01 * * * T C D A * * ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING * * TCDA EQU * LDK A1,0 LDK A4,TABL-1 * TCDA10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER RF(E) TCDA20 VALID ORDER SUK A4,1 RB(NN) TCDA10 TRY NEXT * TCDA15 EQU * ABL DISIOE ILLEGAL ORDER * TCDA20 ADR A4,A4 DOUBLE TO GET INDEX ST A4,TCDAX SAVE INDEX LD A5,ECBRL,A8 GET REQUESTED LENGTH LD A3,SEKBYT,A6 SEQUENCE COUNTER ? RF(NE) TCDA21 NO ADK A5,1 COMPENSATE FOR SEQUENCE CHARACTER * TCDA21 EQU * LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS ANK A2,2 RF(NZ) TCDR10 YES * ADK A5,1 NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES SUK A7,/37 LOAD ? RF(NE) TCDA22 NO LD A3,ECBCW,A8 GET CONTROL WORD ANK A3,1 ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT * TCDA22 LD A3,2,A8 GET BUFFER ADDRESS ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES SUK A4,14 RF(Z) TCDA23 WRITE ADK A4,2 RF(NZ) TCDA25 NOT WRITE * TCDA23 ADK A5,3 CHECK REQUESTED LENGTH RB(P) TCDA15 LESS THAN 2 CHARACTERS ADK A5,254 RB(N) TCDA15 MORE THAN 256 CHARACTERS 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…12d4 Head {h00=0x0012, h01=0x0050, text=»DBCAS EQU X:A «, t00=0x000c, t01=0x0008}
0x12d4…12de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001e}
0x12de…1318 Head {h00=0x0036, h01=0x0050, text=»* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED«, t00=0x000c, t01=0x0028}
0x1318…1334 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B=0«, t00=0x000c, t01=0x0062}
0x1334…133e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007e}
0x133e…1350 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x0088}
0x1350…1366 Head {h00=0x0012, h01=0x0050, text=»REVER EQU X:B «, t00=0x000c, t01=0x009a}
0x1366…1370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b0}
0x1370…13a2 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000c, t01=0x00ba}
0x13a2…13d0 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000c, t01=0x00ec}
0x13d0…13da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011a}
0x13da…13ee Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000c, t01=0x0124}
0x13ee…13f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13f8…1402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0142}
0x1402…143c Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000c, t01=0x014c}
0x143c…146e Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000c, t01=0x0186}
0x146e…1478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0028}
0x1478…148c Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000d, t01=0x0032}
0x148c…1496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0046}
0x1496…14b2 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000d, t01=0x0050}
0x14b2…14bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006c}
0x14bc…14d0 Head {h00=0x0010, h01=0x0050, text=»X:C EQU 129 «, t00=0x000d, t01=0x0076}
0x14d0…14e6 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:C«, t00=0x000d, t01=0x008a}
0x14e6…14f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a0}
0x14f0…150c Head {h00=0x0018, h01=0x0050, text=»* MMU DEVICE INDEX«, t00=0x000d, t01=0x00aa}
0x150c…1516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c6}
0x1516…152a Head {h00=0x0010, h01=0x0050, text=»DEVIND EQU 2«, t00=0x000d, t01=0x00d0}
0x152a…1534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e4}
0x1534…154c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000d, t01=0x00ee}
0x154c…1556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0106}
0x1556…1578 Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS AND WORK AREAS«, t00=0x000d, t01=0x0110}
0x1578…1582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0132}
0x1582…15ba Head {h00=0x0034, h01=0x0050, text=» DATA DVBLEN+DVBLEN DEVICE DEPENDENT BUFFER SIZE«, t00=0x000d, t01=0x013c}
0x15ba…15dc Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000d, t01=0x0174}
0x15dc…1604 Head {h00=0x0024, h01=0x0050, text=»TCAD DATA TCDA ACTIVATION ENTRY «, t00=0x000e, t01=0x0008}
0x1604…162a Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x0030}
0x162a…164a Head {h00=0x001c, h01=0x0050, text=» RES 4 SUBROUTINE STACK «, t00=0x000e, t01=0x0056}
0x164a…165e Head {h00=0x0010, h01=0x0050, text=»STB EQU *-2 «, t00=0x000e, t01=0x0076}
0x165e…1668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008a}
0x1668…1672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0094}
0x1672…169a Head {h00=0x0024, h01=0x0050, text=»TAB DATA /0031,/2237,/3802,/0506«, t00=0x000e, t01=0x009e}
0x169a…16ae Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x000e, t01=0x00c6}
0x16ae…16c8 Head {h00=0x0016, h01=0x0050, text=» DATA /2633,/24FF «, t00=0x000e, t01=0x00da}
0x16c8…16d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00f4}
0x16d4…16ea Head {h00=0x0012, h01=0x0050, text=»TABL EQU *-TAB«, t00=0x000e, t01=0x0100}
0x16ea…1702 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000e, t01=0x0116}
0x1702…170c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012e}
0x170c…1716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0138}
0x1716…173a Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000e, t01=0x0142}
0x173a…175e Head {h00=0x0020, h01=0x0050, text=»* CHANNEL UNIT PARAMETERS * «, t00=0x000e, t01=0x0166}
0x175e…1782 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000e, t01=0x018a}
0x1782…178c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x001e}
0x178c…1796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0028}
0x1796…17b0 Head {h00=0x0016, h01=0x0050, text=»* DEVICE ADDRESS:«, t00=0x000f, t01=0x0032}
0x17b0…17ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x004c}
0x17ba…17d0 Head {h00=0x0012, h01=0x0050, text=»CHCRDA EQU /0E«, t00=0x000f, t01=0x0056}
0x17d0…17da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006c}
0x17da…17e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0076}
0x17e4…17fa Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x0080}
0x17fa…1810 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000f, t01=0x0096}
0x1810…1826 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x00ac}
0x1826…1830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c2}
0x1830…183a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00cc}
0x183a…1860 Head {h00=0x0022, h01=0x0050, text=»RTRIES EQU 3 MAX NO OF RETRIES«, t00=0x000f, t01=0x00d6}
0x1860…186a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fc}
0x186a…1898 Head {h00=0x002a, h01=0x0050, text=»PSUBS EQU 5 POWER UP BACKSPACE NUMBER «, t00=0x000f, t01=0x0106}
0x1898…18a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0134}
0x18a2…18ca Head {h00=0x0024, h01=0x0050, text=»PREAD EQU 4 POWER UP READ NUMBER«, t00=0x000f, t01=0x013e}
0x18ca…18d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0166}
0x18d4…190e Head {h00=0x0036, h01=0x0050, text=»PINT EQU 10 POWER UP RECOVERY BLOCK COUNT INTERVAL«, t00=0x000f, t01=0x0170}
0x190e…1918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001a}
0x1918…192c Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0010, t01=0x0024}
0x192c…195a Head {h00=0x002a, h01=0x0050, text=»PERAS EQU 6 NO OF ERASE FOR ORDER /24 «, t00=0x0010, t01=0x0038}
0x195a…1966 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0066}
0x1966…197e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0010, t01=0x0072}
0x197e…1988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008a}
0x1988…1992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0094}
0x1992…19a6 Head {h00=0x0010, h01=0x0050, text=»* T C D A «, t00=0x0010, t01=0x009e}
0x19a6…19b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b2}
0x19b0…19fc Head {h00=0x0048, h01=0x0050, text=»* ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING «, t00=0x0010, t01=0x00bc}
0x19fc…1a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0108}
0x1a06…1a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0112}
0x1a10…1a22 Head {h00=0x000e, h01=0x0050, text=»TCDA EQU *«, t00=0x0010, t01=0x011c}
0x1a22…1a34 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0010, t01=0x012e}
0x1a34…1a4a Head {h00=0x0012, h01=0x0050, text=» LDK A4,TABL-1«, t00=0x0010, t01=0x0140}
0x1a4a…1a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0156}
0x1a54…1a88 Head {h00=0x0030, h01=0x0050, text=»TCDA10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER«, t00=0x0010, t01=0x0160}
0x1a88…1aaa (17, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RF(E) TCDA20 VALID ORDER «, t00=0x0011, t01=0x0004}
0x1aaa…1abc Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0011, t01=0x0026}
0x1abc…1adc Head {h00=0x001c, h01=0x0050, text=» RB(NN) TCDA10 TRY NEXT «, t00=0x0011, t01=0x0038}
0x1adc…1ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0058}
0x1ae6…1afa Head {h00=0x0010, h01=0x0050, text=»TCDA15 EQU *«, t00=0x0011, t01=0x0062}
0x1afa…1b1c Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0011, t01=0x0076}
0x1b1c…1b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0098}
0x1b26…1b52 Head {h00=0x0028, h01=0x0050, text=»TCDA20 ADR A4,A4 DOUBLE TO GET INDEX«, t00=0x0011, t01=0x00a2}
0x1b52…1b72 Head {h00=0x001c, h01=0x0050, text=» ST A4,TCDAX SAVE INDEX «, t00=0x0011, t01=0x00ce}
0x1b72…1b9e Head {h00=0x0028, h01=0x0050, text=» LD A5,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0011, t01=0x00ee}
0x1b9e…1bca Head {h00=0x0028, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQUENCE COUNTER ? «, t00=0x0011, t01=0x011a}
0x1bca…1be4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA21 NO «, t00=0x0011, t01=0x0146}
0x1be4…1c18 Head {h00=0x0030, h01=0x0050, text=» ADK A5,1 COMPENSATE FOR SEQUENCE CHARACTER «, t00=0x0011, t01=0x0160}
0x1c18…1c22 (18, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0004}
0x1c22…1c36 Head {h00=0x0010, h01=0x0050, text=»TCDA21 EQU *«, t00=0x0012, t01=0x000e}
0x1c36…1c68 Head {h00=0x002e, h01=0x0050, text=» LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS «, t00=0x0012, t01=0x0022}
0x1c68…1c7a Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0012, t01=0x0054}
0x1c7a…1c94 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDR10 YES«, t00=0x0012, t01=0x0066}
0x1c94…1c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0080}
0x1c9e…1cb0 Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0012, t01=0x008a}
0x1cb0…1ce2 Head {h00=0x002e, h01=0x0050, text=» NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE «, t00=0x0012, t01=0x009c}
0x1ce2…1d16 Head {h00=0x0030, h01=0x0050, text=» ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES «, t00=0x0012, t01=0x00ce}
0x1d16…1d30 Head {h00=0x0016, h01=0x0050, text=» SUK A7,/37 LOAD ?«, t00=0x0012, t01=0x0102}
0x1d30…1d4a Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA22 NO «, t00=0x0012, t01=0x011c}
0x1d4a…1d72 Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBCW,A8 GET CONTROL WORD«, t00=0x0012, t01=0x0136}
0x1d72…1d84 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0012, t01=0x015e}
0x1d84…1dba Head {h00=0x0032, h01=0x0050, text=» ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT «, t00=0x0012, t01=0x0170}
0x1dba…1dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0016}
0x1dc4…1df0 Head {h00=0x0028, h01=0x0050, text=»TCDA22 LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0013, t01=0x0020}
0x1df0…1e24 Head {h00=0x0030, h01=0x0050, text=» ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES «, t00=0x0013, t01=0x004c}
0x1e24…1e36 Head {h00=0x000e, h01=0x0050, text=» SUK A4,14«, t00=0x0013, t01=0x0080}
0x1e36…1e52 Head {h00=0x0018, h01=0x0050, text=» RF(Z) TCDA23 WRITE «, t00=0x0013, t01=0x0092}
0x1e52…1e64 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0013, t01=0x00ae}
0x1e64…1e84 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) TCDA25 NOT WRITE«, t00=0x0013, t01=0x00c0}
0x1e84…1e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e0}
0x1e8e…1ebc Head {h00=0x002a, h01=0x0050, text=»TCDA23 ADK A5,3 CHECK REQUESTED LENGTH«, t00=0x0013, t01=0x00ea}
0x1ebc…1ee8 Head {h00=0x0028, h01=0x0050, text=» RB(P) TCDA15 LESS THAN 2 CHARACTERS«, t00=0x0013, t01=0x0118}
0x1ee8…1efc Head {h00=0x0010, h01=0x0050, text=» ADK A5,254 «, t00=0x0013, t01=0x0144}
0x1efc…1f2a Head {h00=0x002a, h01=0x0050, text=» RB(N) TCDA15 MORE THAN 256 CHARACTERS«, t00=0x0013, t01=0x0158}
0x1f2a…1f3c Head {h00=0x000e, h01=0x0050, text=» SUR A3,A5«, t00=0x0013, t01=0x0186}
0x1f3c…1f64 Head {h00=0x0024, h01=0x0050, text=» LD A4,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x0014, t01=0x0008}
0x1f64…1f7e Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDA25 NO «, t00=0x0014, t01=0x0030}
0x1f7e…1fae Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER «, t00=0x0014, t01=0x004a}
0x1fae…1fd6 Head {h00=0x0024, h01=0x0050, text=» SC A2,255,A3 STORE IT IN BUFFER«, t00=0x0014, t01=0x007a}
0x1fd6…1fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a2}
0x1fe0…200c Head {h00=0x0028, h01=0x0050, text=»TCDA25 ST A6,TCDADT SAVE ACTIVE DWT «, t00=0x0014, t01=0x00ac}
0x200c…2024 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0014, t01=0x00d8}
0x2024…202e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f0}
0x202e…2038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fa}
0x2038…2052 Head {h00=0x0016, h01=0x0050, text=»* SELECT RECORDER «, t00=0x0014, t01=0x0104}
0x2052…205c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x011e}
0x205c…2066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0128}
0x2066…2090 Head {h00=0x0026, h01=0x0050, text=»TCDA30 LDKL A8,STB LOAD STACK BASE«, t00=0x0014, t01=0x0132}
0x2090…20b4 Head {h00=0x0020, h01=0x0050, text=» CF A8,SELECT SELECT CASSETT«, t00=0x0014, t01=0x015c}
0x20b4…20dc Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x0014, t01=0x0180}
0x20dc…20fa Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 SAVE STATUS«, t00=0x0015, t01=0x0018}
0x20fa…212a Head {h00=0x002c, h01=0x0050, text=» LDK A4,RTRIES PRESET NUMBER OF RETRIES «, t00=0x0015, t01=0x0036}
0x212a…2150 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET FUNCTION INDEX «, t00=0x0015, t01=0x0066}
0x2150…2176 Head {h00=0x0022, h01=0x0050, text=»TCDAX EQU *-2 **ORDER INDEX** «, t00=0x0015, t01=0x008c}
0x2176…21a0 Head {h00=0x0026, h01=0x0050, text=» ABI TCDFUN,A2 BRANCH TO FUNCTION «, t00=0x0015, t01=0x00b2}
0x21a0…21e0 Head {h00=0x003c, h01=0x0050, text=»TCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE«, t00=0x0015, t01=0x00dc}
0x21e0…21f4 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0015, t01=0x011c}
0x21f4…2216 Head {h00=0x001e, h01=0x0050, text=» DATA OLOCK,REVERS,ERTAPE «, t00=0x0015, t01=0x0130}
0x2216…2222 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0152}
0x2222…222c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x015e}
0x222c…2244 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0015, t01=0x0168}
0x2244…224e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0180}
0x224e…2258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018a}
0x2258…227a (22, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* RECOVERY AFTER POWER ON «, t00=0x0016, t01=0x0004}
0x227a…2284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0026}
0x2284…228e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0030}
0x228e…22a2 Head {h00=0x0010, h01=0x0050, text=»TCDRON EQU *«, t00=0x0016, t01=0x003a}
0x22a2…22b8 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0016, t01=0x004e}
0x22b8…22e2 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0016, t01=0x0064}
0x22e2…22ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x008e}
0x22ee…22f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x009a}
0x22f8…230e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0016, t01=0x00a4}
0x230e…2334 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0016, t01=0x00ba}
0x2334…2340 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00e0}
0x2340…234a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ec}
0x234a…2374 Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG CHECK IF PGM LOADING«, t00=0x0016, t01=0x00f6}
0x2374…239c Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) TDISP YES SKIP RECOVERY«, t00=0x0016, t01=0x0120}
0x239c…23c0 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,STB LOAD STACK BASE«, t00=0x0016, t01=0x0148}
0x23c0…23e2 Head {h00=0x001e, h01=0x0050, text=» LDKL A6,DWTC01 FIRST DWT «, t00=0x0016, t01=0x016c}
0x23e2…2400 Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0016, t01=0x018e}
0x2400…2414 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0017, t01=0x001c}
0x2414…2436 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x0017, t01=0x0030}
0x2436…2454 Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0017, t01=0x0052}
0x2454…2460 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0070}
0x2460…2482 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,0 GET ACTIVE DWT «, t00=0x0017, t01=0x007c}
0x2482…24b2 Head {h00=0x002c, h01=0x0050, text=»TCDADT EQU *-2 **ACTIVATED DWT ADDRESS**«, t00=0x0017, t01=0x009e}
0x24b2…24da Head {h00=0x0024, h01=0x0050, text=» RF(Z) ENDIO NO REQUEST GOING ON«, t00=0x0017, t01=0x00ce}
0x24da…2502 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A4 PUT DWT ADDRESS IN A6«, t00=0x0017, t01=0x00f6}
0x2502…2528 Head {h00=0x0022, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQ. COUNTING«, t00=0x0017, t01=0x011e}
0x2528…2554 Head {h00=0x0028, h01=0x0050, text=» RB(Z) TCDA30 YES; REACTIVATE ORDER «, t00=0x0017, t01=0x0144}
0x2554…255e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0170}
0x255e…258c Head {h00=0x002a, h01=0x0050, text=»TCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR«, t00=0x0017, t01=0x017a}
0x258c…25a4 Head {h00=0x0014, h01=0x0050, text=» ST A3,SEKBYT,A6«, t00=0x0018, t01=0x0018}
0x25a4…25d4 Head {h00=0x002c, h01=0x0050, text=» ORK A1,/10 IND SEQUENCE ERROR, BIT #11 «, t00=0x0018, t01=0x0030}
0x25d4…25e6 Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0018, t01=0x0060}
0x25e6…25f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0072}
0x25f0…2608 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0018, t01=0x007c}
0x2608…2612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0094}
0x2612…2626 Head {h00=0x0010, h01=0x0050, text=»* R E A D «, t00=0x0018, t01=0x009e}
0x2626…2630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b2}
0x2630…2654 Head {h00=0x0020, h01=0x0050, text=»READ CF A8,READR READ RECORD«, t00=0x0018, t01=0x00bc}
0x2654…2676 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0018, t01=0x00e0}
0x2676…2688 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0018, t01=0x0102}
0x2688…269c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x0018, t01=0x0114}
0x269c…26bc Head {h00=0x001c, h01=0x0050, text=» RF(Z) READ20 STATUS OK «, t00=0x0018, t01=0x0128}
0x26bc…26c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0148}
0x26c6…26f0 Head {h00=0x0026, h01=0x0050, text=»READ15 SUK A4,1 RECOVERABLE ERROR «, t00=0x0018, t01=0x0152}
0x26f0…2714 Head {h00=0x0020, h01=0x0050, text=» RF(Z) READ20 3 TRIALS DONE «, t00=0x0018, t01=0x017c}
0x2714…273c Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x0019, t01=0x0010}
0x273c…2758 Head {h00=0x0018, h01=0x0050, text=» RB READ READ AGAIN«, t00=0x0019, t01=0x0038}
0x2758…2762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0054}
0x2762…277a Head {h00=0x0014, h01=0x0050, text=»READ20 LDR A2,A1«, t00=0x0019, t01=0x005e}
0x277a…279e Head {h00=0x0020, h01=0x0050, text=» SLL A2,3 CHECK IF TAPE MARK«, t00=0x0019, t01=0x0076}
0x279e…27c2 Head {h00=0x0020, h01=0x0050, text=» RF(NN) READ30 NOT TAPE MARK«, t00=0x0019, t01=0x009a}
0x27c2…27cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00be}
0x27cc…27f8 Head {h00=0x0028, h01=0x0050, text=»READ25 ORK A3,/10 INDICATE TAPE MARK«, t00=0x0019, t01=0x00c8}
0x27f8…2820 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 RESET EFFECTIVE LENGTH«, t00=0x0019, t01=0x00f4}
0x2820…2834 Head {h00=0x0010, h01=0x0050, text=» RF READ35 «, t00=0x0019, t01=0x011c}
0x2834…283e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0130}
0x283e…2856 Head {h00=0x0014, h01=0x0050, text=»READ30 LDR A2,A1«, t00=0x0019, t01=0x013a}
0x2856…287e Head {h00=0x0024, h01=0x0050, text=» LDKL A7,0 GET EFFECTIVE LENGTH «, t00=0x0019, t01=0x0152}
0x287e…28aa Head {h00=0x0028, h01=0x0050, text=»EFFLEN EQU *-2 **EFFECTIVE LENGTH** «, t00=0x0019, t01=0x017a}
0x28aa…28ce Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/801 NO DATA,NOT OP«, t00=0x001a, t01=0x0016}
0x28ce…28e4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) READ32«, t00=0x001a, t01=0x003a}
0x28e4…28f6 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x001a, t01=0x0050}
0x28f6…291c Head {h00=0x0022, h01=0x0050, text=» RF(NZ) READ32 NOT EQUAL ZERO «, t00=0x001a, t01=0x0062}
0x291c…2940 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 THIRD TRIAL DONE «, t00=0x001a, t01=0x0088}
0x2940…2970 Head {h00=0x002c, h01=0x0050, text=» RB(NZ) READ15 NO; READ SAME BLOCK AGAIN«, t00=0x001a, t01=0x00ac}
0x2970…299a Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 SET NO OF RETRIES TO ONE«, t00=0x001a, t01=0x00dc}
0x299a…29ba Head {h00=0x001c, h01=0x0050, text=» RB READ TRY NEXT BLOCK«, t00=0x001a, t01=0x0106}
0x29ba…29c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0126}
0x29c4…29d8 Head {h00=0x0010, h01=0x0050, text=»READ32 EQU *«, t00=0x001a, t01=0x0130}
0x29d8…29fa Head {h00=0x001e, h01=0x0050, text=» ANK A3,/2F NOT TAPE MARK «, t00=0x001a, t01=0x0144}
0x29fa…2a22 Head {h00=0x0024, h01=0x0050, text=» LD A2,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x001a, t01=0x0166}
0x2a22…2a3c Head {h00=0x0016, h01=0x0050, text=» RF(NE) READ35 NO «, t00=0x001a, t01=0x018e}
0x2a3c…2a6c Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 DECREMENT EFF. LENGTH COUNTER «, t00=0x001b, t01=0x0018}
0x2a6c…2a9e Head {h00=0x002e, h01=0x0050, text=» CC A5,DWTBKC+1,A6 CHECK SEQUENCE COUNTER «, t00=0x001b, t01=0x0048}
0x2a9e…2ab6 Head {h00=0x0014, h01=0x0050, text=» RF(E) READ35 OK«, t00=0x001b, t01=0x007a}
0x2ab6…2ad8 Head {h00=0x001e, h01=0x0050, text=» ORK A1,/10 SEQUENCE ERROR«, t00=0x001b, t01=0x0092}
0x2ad8…2ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b4}
0x2ae2…2b18 Head {h00=0x0032, h01=0x0050, text=»READ35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER«, t00=0x001b, t01=0x00be}
0x2b18…2b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f4}
0x2b22…2b50 Head {h00=0x002a, h01=0x0050, text=»READ40 LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x001b, t01=0x00fe}
0x2b50…2b7e Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH «, t00=0x001b, t01=0x012c}
0x2b7e…2b94 Head {h00=0x0012, h01=0x0050, text=» LDK A2,RTRIES«, t00=0x001b, t01=0x015a}
0x2b94…2bc6 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 GET NUMBER OF RETRIES PERFORMED«, t00=0x001b, t01=0x0170}
0x2bc6…2bf6 Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBCW,A8 SAVE IT IN CONTROL WORD «, t00=0x001c, t01=0x0012}
0x2bf6…2c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0042}
0x2c00…2c14 Head {h00=0x0010, h01=0x0050, text=»READ50 EQU *«, t00=0x001c, t01=0x004c}
0x2c14…2c38 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTST,A6 SAVE STATUS «, t00=0x001c, t01=0x0060}
0x2c38…2c50 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001c, t01=0x0084}
0x2c50…2c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009c}
0x2c5a…2c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a6}
0x2c64…2c82 Head {h00=0x001a, h01=0x0050, text=»* END OF I/O OPERATION«, t00=0x001c, t01=0x00b0}
0x2c82…2c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ce}
0x2c8c…2c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d8}
0x2c96…2caa Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x001c, t01=0x00e2}
0x2caa…2cd6 Head {h00=0x0028, h01=0x0050, text=» CM TCDADT INDICATE NONE ACTIVE DWT «, t00=0x001c, t01=0x00f6}
0x2cd6…2ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0122}
0x2ce0…2cfc Head {h00=0x0018, h01=0x0050, text=»* MODIFY RETURN CODE«, t00=0x001c, t01=0x012c}
0x2cfc…2d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0148}
0x2d06…2d30 Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/BFFF SKIP BIT 1 (LEADER)«, t00=0x001c, t01=0x0152}
0x2d30…2d50 Head {h00=0x001c, h01=0x0050, text=» RF(Z) ENDIO5 NO ERRORS «, t00=0x001c, t01=0x017c}
0x2d50…2d66 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/2000«, t00=0x001d, t01=0x000c}
0x2d66…2d78 Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001d, t01=0x0022}
0x2d78…2d8e Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENDIO2 «, t00=0x001d, t01=0x0034}
0x2d8e…2dac Head {h00=0x001a, h01=0x0050, text=» XRR A1,A2 RESET BIT 2«, t00=0x001d, t01=0x004a}
0x2dac…2dd2 Head {h00=0x0022, h01=0x0050, text=» ORK A1,/40 SET BIT 9 INSTEAD «, t00=0x001d, t01=0x0068}
0x2dd2…2ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008e}
0x2ddc…2df0 Head {h00=0x0010, h01=0x0050, text=»ENDIO2 EQU *«, t00=0x001d, t01=0x0098}
0x2df0…2e02 Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x001d, t01=0x00ac}
0x2e02…2e14 Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001d, t01=0x00be}
0x2e14…2e2a Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENDIO3 «, t00=0x001d, t01=0x00d0}
0x2e2a…2e48 Head {h00=0x001a, h01=0x0050, text=» XRR A1,A2 RESET BIT 4«, t00=0x001d, t01=0x00e6}
0x2e48…2e6c Head {h00=0x0020, h01=0x0050, text=» ORK A1,4 SET BIT 13 INSTEAD«, t00=0x001d, t01=0x0104}
0x2e6c…2e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0128}
0x2e76…2e8a Head {h00=0x0010, h01=0x0050, text=»ENDIO3 EQU *«, t00=0x001d, t01=0x0132}
0x2e8a…2e9c Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x001d, t01=0x0146}
0x2e9c…2eae Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001d, t01=0x0158}
0x2eae…2ec4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) ENDIO4 «, t00=0x001d, t01=0x016a}
0x2ec4…2ee2 Head {h00=0x001a, h01=0x0050, text=» XRR A1,A2 RESET BIT 5«, t00=0x001d, t01=0x0180}
0x2ee2…2f0a Head {h00=0x0024, h01=0x0050, text=» ORKL A1,/2000 SET BIT 2 INSTEAD«, t00=0x001e, t01=0x000e}
0x2f0a…2f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0036}
0x2f14…2f2c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001e, t01=0x0040}
0x2f2c…2f36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0058}
0x2f36…2f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0062}
0x2f40…2f54 Head {h00=0x0010, h01=0x0050, text=»ENDIO4 EQU *«, t00=0x001e, t01=0x006c}
0x2f54…2f66 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x001e, t01=0x0080}
0x2f66…2f78 Head {h00=0x000e, h01=0x0050, text=» TM A1,A2 «, t00=0x001e, t01=0x0092}
0x2f78…2fa2 Head {h00=0x0026, h01=0x0050, text=» RF(Z) ENDIO5 NOT WRITE PROTECTED «, t00=0x001e, t01=0x00a4}
0x2fa2…2fc4 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 ORDER CODE«, t00=0x001e, t01=0x00ce}
0x2fc4…2fd8 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x001e, t01=0x00f0}
0x2fd8…2fec Head {h00=0x0010, h01=0x0050, text=» SUK A7,/05 «, t00=0x001e, t01=0x0104}
0x2fec…3010 Head {h00=0x0020, h01=0x0050, text=» RF(N) ENDIO5 NO WRITE ORDER«, t00=0x001e, t01=0x0118}
0x3010…3028 Head {h00=0x0014, h01=0x0050, text=» SUK A7,/24-/05 «, t00=0x001e, t01=0x013c}
0x3028…304c Head {h00=0x0020, h01=0x0050, text=» RF(P) ENDIO5 NO WRITE ORDER«, t00=0x001e, t01=0x0154}
0x304c…306a Head {h00=0x001a, h01=0x0050, text=» ORK A1,/40 SET BIT 9 «, t00=0x001e, t01=0x0178}
0x306a…3074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0008}
0x3074…3088 Head {h00=0x0010, h01=0x0050, text=»ENDIO5 EQU *«, t00=0x001f, t01=0x0012}
0x3088…309c Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x001f, t01=0x0026}
0x309c…30c4 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x001f, t01=0x003a}
0x30c4…30e6 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x001f, t01=0x0062}
0x30e6…3114 Head {h00=0x002a, h01=0x0050, text=» CF A15,TENDIO PERFORM TENDIO FOR THIS«, t00=0x001f, t01=0x0084}
0x3114…3136 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET FIRST DWT «, t00=0x001f, t01=0x00b2}
0x3136…3142 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00d4}
0x3142…316a Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x001f, t01=0x00e0}
0x316a…319a Head {h00=0x002c, h01=0x0050, text=» ABL DISEND GO TO DISPATCHER VIA TENDIO «, t00=0x001f, t01=0x0108}
0x319a…31a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0138}
0x31a4…31bc Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001f, t01=0x0142}
0x31bc…31c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x015a}
0x31c6…31d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0164}
0x31d0…31ec Head {h00=0x0018, h01=0x0050, text=»* WRITE TAPE MARK «, t00=0x001f, t01=0x016e}
0x31ec…31f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x018a}
0x31f6…320c (32, 0, 400) Head {h00=0x0012, h01=0x0050, text=»TM LDKL A3,-1 «, t00=0x0020, t01=0x0004}
0x320c…3222 Head {h00=0x0012, h01=0x0050, text=» ST A3,HELPME «, t00=0x0020, t01=0x001a}
0x3222…322c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0030}
0x322c…3242 Head {h00=0x0012, h01=0x0050, text=»* W R I T E «, t00=0x0020, t01=0x003a}
0x3242…324c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0050}
0x324c…3268 Head {h00=0x0018, h01=0x0050, text=»* WRITE ONE BLOCK «, t00=0x0020, t01=0x005a}
0x3268…3272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0076}
0x3272…327c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0080}
0x327c…32ac Head {h00=0x002c, h01=0x0050, text=»WRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER «, t00=0x0020, t01=0x008a}
0x32ac…32d2 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) WRIT10 NOT FIRST BLOCK«, t00=0x0020, t01=0x00ba}
0x32d2…32fc Head {h00=0x0026, h01=0x0050, text=» CF A8,ERASE MAKE ONE BLANK BLOCK «, t00=0x0020, t01=0x00e0}
0x32fc…332a Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK«, t00=0x0020, t01=0x010a}
0x332a…3334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0138}
0x3334…335c Head {h00=0x0024, h01=0x0050, text=»WRIT10 CF A8,WRITER WRITE RECORD«, t00=0x0020, t01=0x0142}
0x335c…337e Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT-BIT«, t00=0x0020, t01=0x016a}
0x337e…3390 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0020, t01=0x018c}
0x3390…33a4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x0021, t01=0x000e}
0x33a4…33c4 Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRIT30 STATUS OK «, t00=0x0021, t01=0x0022}
0x33c4…33ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0042}
0x33ce…33fe Head {h00=0x002c, h01=0x0050, text=»WRIT12 ST A4,WRITA4 STORE RETRY COUNTER «, t00=0x0021, t01=0x004c}
0x33fe…3416 Head {h00=0x0014, h01=0x0050, text=» LD A2,SEKBYT,A6«, t00=0x0021, t01=0x007c}
0x3416…343a Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRIT15 SEQ. COUNTING «, t00=0x0021, t01=0x0094}
0x343a…3444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b8}
0x3444…345c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0021, t01=0x00c2}
0x345c…3466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00da}
0x3466…3470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e4}
0x3470…3498 Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x0021, t01=0x00ee}
0x3498…34b4 Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ONE ERASE «, t00=0x0021, t01=0x0116}
0x34b4…34c6 Head {h00=0x000e, h01=0x0050, text=» RF WRIT20«, t00=0x0021, t01=0x0132}
0x34c6…34d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0144}
0x34d0…34f8 Head {h00=0x0024, h01=0x0050, text=»WRIT15 CF A8,REPOS POSITION TAPE«, t00=0x0021, t01=0x014e}
0x34f8…3522 Head {h00=0x0026, h01=0x0050, text=» CM SEKBYT,A6 RESET SEQ. INDICATOR«, t00=0x0021, t01=0x0176}
0x3522…3542 Head {h00=0x001c, h01=0x0050, text=» LD A4,WRITA4 GET NO ...«, t00=0x0022, t01=0x0010}
0x3542…3554 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0022, t01=0x0030}
0x3554…357e Head {h00=0x0026, h01=0x0050, text=» RF(NZ) WRIT40 POSITIONING NOT OK «, t00=0x0022, t01=0x0042}
0x357e…35a2 Head {h00=0x0020, h01=0x0050, text=» SUK A4,RTRIES ... OF ERASE «, t00=0x0022, t01=0x006c}
0x35a2…35ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0090}
0x35ac…35cc Head {h00=0x001c, h01=0x0050, text=»WRIT20 CF A8,ERASE ERASE«, t00=0x0022, t01=0x009a}
0x35cc…35e8 Head {h00=0x0018, h01=0x0050, text=» ORR A1,A2 SAVE EOT «, t00=0x0022, t01=0x00ba}
0x35e8…3606 Head {h00=0x001a, h01=0x0050, text=» ADK A4,1 COUNT ERASE «, t00=0x0022, t01=0x00d6}
0x3606…3626 Head {h00=0x001c, h01=0x0050, text=» RB(NG) WRIT20 NOT READY«, t00=0x0022, t01=0x00f4}
0x3626…364a Head {h00=0x0020, h01=0x0050, text=» LDKL A4,0 GET RETRY COUNTER«, t00=0x0022, t01=0x0114}
0x364a…3672 Head {h00=0x0024, h01=0x0050, text=»WRITA4 EQU *-2 **RETRY COUNTER**«, t00=0x0022, t01=0x0138}
0x3672…3684 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0022, t01=0x0160}
0x3684…36a4 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) WRIT10 TRY AGAIN«, t00=0x0022, t01=0x0172}
0x36a4…36d6 (35, 0, 400) Head {h00=0x002e, h01=0x0050, text=» ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 «, t00=0x0023, t01=0x0004}
0x36d6…36f0 Head {h00=0x0016, h01=0x0050, text=» RF WRIT50 GIVE UP«, t00=0x0023, t01=0x0036}
0x36f0…36fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0050}
0x36fa…3712 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0023, t01=0x005a}
0x3712…371c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0072}
0x371c…3726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x007c}
0x3726…374a Head {h00=0x0020, h01=0x0050, text=»WRIT30 LD A2,TCDAX GET ORDER«, t00=0x0023, t01=0x0086}
0x374a…376e Head {h00=0x0020, h01=0x0050, text=» SUK A2,4 TAPE MARK WRITTEN?«, t00=0x0023, t01=0x00aa}
0x376e…3788 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) READ30 NO «, t00=0x0023, t01=0x00ce}
0x3788…37a4 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A1 CHECK IF «, t00=0x0023, t01=0x00e8}
0x37a4…37c2 Head {h00=0x001a, h01=0x0050, text=» SLL A2,3 TAPE MARK OK«, t00=0x0023, t01=0x0104}
0x37c2…37dc Head {h00=0x0016, h01=0x0050, text=» ABL(N) READ25 YES«, t00=0x0023, t01=0x0122}
0x37dc…37f2 Head {h00=0x0012, h01=0x0050, text=» RB WRIT12 NO «, t00=0x0023, t01=0x013c}
0x37f2…37fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0152}
0x37fc…383a Head {h00=0x003a, h01=0x0050, text=»WRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR «, t00=0x0023, t01=0x015c}
0x383a…3844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000a}
0x3844…3874 Head {h00=0x002c, h01=0x0050, text=»WRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH«, t00=0x0024, t01=0x0014}
0x3874…3886 Head {h00=0x000e, h01=0x0050, text=» RB READ40«, t00=0x0024, t01=0x0044}
0x3886…3890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0056}
0x3890…38a8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0024, t01=0x0060}
0x38a8…38b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0078}
0x38b2…38bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0082}
0x38bc…38d0 Head {h00=0x0010, h01=0x0050, text=»* L O A D «, t00=0x0024, t01=0x008c}
0x38d0…38da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a0}
0x38da…38f4 Head {h00=0x0016, h01=0x0050, text=»* LOAD CASSETTE «, t00=0x0024, t01=0x00aa}
0x38f4…38fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c4}
0x38fe…3908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ce}
0x3908…392e Head {h00=0x0022, h01=0x0050, text=»LOAD CF A8,LOCK LOCK CASSETTE «, t00=0x0024, t01=0x00d8}
0x392e…3954 Head {h00=0x0022, h01=0x0050, text=» RF(Z) REWIND CASSETTE LOCKED «, t00=0x0024, t01=0x00fe}
0x3954…3978 Head {h00=0x0020, h01=0x0050, text=»LOAD10 LDR A1,A2 NO CASSETTE«, t00=0x0024, t01=0x0124}
0x3978…398a Head {h00=0x000e, h01=0x0050, text=» RB READ50«, t00=0x0024, t01=0x0148}
0x398a…3994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015a}
0x3994…399e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0164}
0x399e…39b6 Head {h00=0x0014, h01=0x0050, text=»* R E W I N D «, t00=0x0024, t01=0x016e}
0x39b6…39c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0186}
0x39c0…39d8 Head {h00=0x0014, h01=0x0050, text=»* REWIND TAPE «, t00=0x0024, t01=0x0190}
0x39d8…39e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0018}
0x39e2…39ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0022}
0x39ec…3a1c Head {h00=0x002c, h01=0x0050, text=»REWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER «, t00=0x0025, t01=0x002c}
0x3a1c…3a48 Head {h00=0x0028, h01=0x0050, text=» CF A8,SBOT SEARCH BEGINNING OF TAPE«, t00=0x0025, t01=0x005c}
0x3a48…3a5c Head {h00=0x0010, h01=0x0050, text=»REW010 EQU *«, t00=0x0025, t01=0x0088}
0x3a5c…3a6e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0025, t01=0x009c}
0x3a6e…3a80 Head {h00=0x000e, h01=0x0050, text=» SRL A3,7 «, t00=0x0025, t01=0x00ae}
0x3a80…3a92 Head {h00=0x000e, h01=0x0050, text=» ANK A3,6 «, t00=0x0025, t01=0x00c0}
0x3a92…3ab2 Head {h00=0x001c, h01=0x0050, text=» ORK A3,1 PREPARE STATUS«, t00=0x0025, t01=0x00d2}
0x3ab2…3ac4 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0025, t01=0x00f2}
0x3ac4…3ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0104}
0x3ace…3ae6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0025, t01=0x010e}
0x3ae6…3af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0126}
0x3af0…3afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0130}
0x3afa…3b12 Head {h00=0x0014, h01=0x0050, text=»* U N L O A D «, t00=0x0025, t01=0x013a}
0x3b12…3b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0152}
0x3b1c…3b38 Head {h00=0x0018, h01=0x0050, text=»* UNLOAD CASSETTE «, t00=0x0025, t01=0x015c}
0x3b38…3b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0178}
0x3b42…3b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0182}
0x3b4c…3b74 Head {h00=0x0024, h01=0x0050, text=»UNLOAD CM DWTST,A6 RESET STATUS «, t00=0x0025, t01=0x018c}
0x3b74…3b98 Head {h00=0x0020, h01=0x0050, text=» CF A8,UNLD UNLOAD CASSETTE «, t00=0x0026, t01=0x0024}
0x3b98…3bc2 Head {h00=0x0026, h01=0x0050, text=»UNLO10 LDR A1,A2 SAVE RETURN CODE «, t00=0x0026, t01=0x0048}
0x3bc2…3be4 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/FFFE SKIP BIT 15«, t00=0x0026, t01=0x0072}
0x3be4…3bf6 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x0026, t01=0x0094}
0x3bf6…3c0a Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0026, t01=0x00a6}
0x3c0a…3c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ba}
0x3c14…3c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c4}
0x3c1e…3c36 Head {h00=0x0014, h01=0x0050, text=»* R E V E R S «, t00=0x0026, t01=0x00ce}
0x3c36…3c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e6}
0x3c40…3c60 Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x0026, t01=0x00f0}
0x3c60…3c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0110}
0x3c6a…3c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x011a}
0x3c74…3c98 Head {h00=0x0020, h01=0x0050, text=»REVERS CF A8,BKSP BACKSPACE «, t00=0x0026, t01=0x0124}
0x3c98…3cc0 Head {h00=0x0024, h01=0x0050, text=» LDKL A4,-1 DECREMENT BLOCK SEQ.«, t00=0x0026, t01=0x0148}
0x3cc0…3ce8 Head {h00=0x0024, h01=0x0050, text=» ADS A4,DWTBKC,A6 COUNTER BY ONE«, t00=0x0026, t01=0x0170}
0x3ce8…3cfa Head {h00=0x000e, h01=0x0050, text=» RB UNLO10«, t00=0x0027, t01=0x0008}
0x3cfa…3d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x001a}
0x3d04…3d1c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0027, t01=0x0024}
0x3d1c…3d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003c}
0x3d26…3d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0046}
0x3d30…3d48 Head {h00=0x0014, h01=0x0050, text=»* E R T A P E «, t00=0x0027, t01=0x0050}
0x3d48…3d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0068}
0x3d52…3d68 Head {h00=0x0012, h01=0x0050, text=»* ERASE TAPE«, t00=0x0027, t01=0x0072}
0x3d68…3d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0088}
0x3d72…3d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0092}
0x3d7c…3da8 Head {h00=0x0028, h01=0x0050, text=»ERTAPE LDK A4,PERAS SET NO OF ERASE «, t00=0x0027, t01=0x009c}
0x3da8…3dd2 Head {h00=0x0026, h01=0x0050, text=»ERT10 CF A8,ERASE ERASE ONE BLOCK «, t00=0x0027, t01=0x00c8}
0x3dd2…3df4 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0027, t01=0x00f2}
0x3df4…3e12 Head {h00=0x001a, h01=0x0050, text=» ORR A1,A2 RETURN CODE«, t00=0x0027, t01=0x0114}
0x3e12…3e24 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0027, t01=0x0132}
0x3e24…3e4a Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ERT10 ERASE NOT READY «, t00=0x0027, t01=0x0144}
0x3e4a…3e5e Head {h00=0x0010, h01=0x0050, text=» ABL READ50 «, t00=0x0027, t01=0x016a}
0x3e5e…3e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017e}
0x3e68…3e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0188}
0x3e72…3e88 (40, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* O L O C K «, t00=0x0028, t01=0x0004}
0x3e88…3e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x001a}
0x3e92…3eb2 Head {h00=0x001c, h01=0x0050, text=»* ORDER LOCK CASSETTE «, t00=0x0028, t01=0x0024}
0x3eb2…3ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0044}
0x3ebc…3ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x004e}
0x3ec6…3eec Head {h00=0x0022, h01=0x0050, text=»OLOCK CF A8,LOCK LOCK CASSETTE«, t00=0x0028, t01=0x0058}
0x3eec…3f12 Head {h00=0x0022, h01=0x0050, text=» RB(Z) REW010 CASSETTE LOCKED «, t00=0x0028, t01=0x007e}
0x3f12…3f24 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0028, t01=0x00a4}
0x3f24…3f30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00b6}
0x3f30…3f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c2}
0x3f3a…3f52 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0028, t01=0x00cc}
0x3f52…3f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e4}
0x3f5c…3f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ee}
0x3f66…3f82 Head {h00=0x0018, h01=0x0050, text=»* CASSETTE COMMANDS «, t00=0x0028, t01=0x00f8}
0x3f82…3f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0114}
0x3f8c…3f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x011e}
0x3f96…3fa6 Head {h00=0x000c, h01=0x0050, text=»* SELECT«, t00=0x0028, t01=0x0128}
0x3fa6…3fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0138}
0x3fb0…3fc4 Head {h00=0x0010, h01=0x0050, text=»SELECT EQU *«, t00=0x0028, t01=0x0142}
0x3fc4…3fe2 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/FF LOAD MASK «, t00=0x0028, t01=0x0156}
0x3fe2…4008 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A6 SET DWT BUSY «, t00=0x0028, t01=0x0174}
0x4008…401c Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=1«, t00=0x0029, t01=0x000a}
0x401c…403a Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SELECT CODE «, t00=0x0029, t01=0x001e}
0x403a…4046 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x003c}
0x4046…405a Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0029, t01=0x0048}
0x405a…407c Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 GET OTHER DWT «, t00=0x0029, t01=0x005c}
0x407c…40a2 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A3 SET DWT BUSY «, t00=0x0029, t01=0x007e}
0x40a2…40c4 Head {h00=0x001e, h01=0x0050, text=» ANK A3,1 GET SELECT CODE «, t00=0x0029, t01=0x00a4}
0x40c4…40d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00c6}
0x40d0…40da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d2}
0x40da…40f4 Head {h00=0x0016, h01=0x0050, text=»CRCOM LD A2,PFPOST«, t00=0x0029, t01=0x00dc}
0x40f4…4118 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) EXIT PFINIT PENDING «, t00=0x0029, t01=0x00f6}
0x4118…4130 Head {h00=0x0014, h01=0x0050, text=» CIO A3,1,CHCRDA«, t00=0x0029, t01=0x011a}
0x4130…4144 Head {h00=0x0010, h01=0x0050, text=» RF(Z) EXIT «, t00=0x0029, t01=0x0132}
0x4144…4162 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x0029, t01=0x0146}
0x4162…4174 Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0029, t01=0x0164}
0x4174…417e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0176}
0x417e…41a0 Head {h00=0x001e, h01=0x0050, text=»* READ SEQUENCE CHAR TO A5«, t00=0x0029, t01=0x0180}
0x41a0…41aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0012}
0x41aa…41be Head {h00=0x0010, h01=0x0050, text=»READSQ EQU *«, t00=0x002a, t01=0x001c}
0x41be…41d0 Head {h00=0x000e, h01=0x0050, text=» LDK A3,/A«, t00=0x002a, t01=0x0030}
0x41d0…4200 Head {h00=0x002c, h01=0x0050, text=» ST A3,REQLEN MAKE REQUESTED LENGTH > 0 «, t00=0x002a, t01=0x0042}
0x4200…4212 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002a, t01=0x0072}
0x4212…421c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0084}
0x421c…4234 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002a, t01=0x008e}
0x4234…423e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a6}
0x423e…4258 Head {h00=0x0016, h01=0x0050, text=»* READ ONE RECORD «, t00=0x002a, t01=0x00b0}
0x4258…4262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ca}
0x4262…427a Head {h00=0x0014, h01=0x0050, text=»READR LDK A3,/A «, t00=0x002a, t01=0x00d4}
0x427a…42aa Head {h00=0x002c, h01=0x0050, text=»READR1 CM EFFLEN RESET EFFECTIVE LENGTH «, t00=0x002a, t01=0x00ec}
0x42aa…42d0 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET BUFFER ADDRESS «, t00=0x002a, t01=0x011c}
0x42d0…42f2 Head {h00=0x001e, h01=0x0050, text=»BUFADR EQU *-2 **BUFADR** «, t00=0x002a, t01=0x0142}
0x42f2…4306 Head {h00=0x0010, h01=0x0050, text=» ST A2,TCDBA«, t00=0x002a, t01=0x0164}
0x4306…432e Head {h00=0x0024, h01=0x0050, text=» LDKL A2,0 GET REQUESTED LENGTH «, t00=0x002a, t01=0x0178}
0x432e…4350 Head {h00=0x001e, h01=0x0050, text=»HELPME EQU *-2 **HELPME** «, t00=0x002b, t01=0x0010}
0x4350…4366 Head {h00=0x0012, h01=0x0050, text=» ST A2,REQLEN «, t00=0x002b, t01=0x0032}
0x4366…4378 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002b, t01=0x0048}
0x4378…4382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x005a}
0x4382…439c Head {h00=0x0016, h01=0x0050, text=»* WRITE ONE RECORD«, t00=0x002b, t01=0x0064}
0x439c…43a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x007e}
0x43a6…43be Head {h00=0x0014, h01=0x0050, text=»WRITER LDK A3,/B«, t00=0x002b, t01=0x0088}
0x43be…43d0 Head {h00=0x000e, h01=0x0050, text=» RB READR1«, t00=0x002b, t01=0x00a0}
0x43d0…43da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b2}
0x43da…43f4 Head {h00=0x0016, h01=0x0050, text=»* ERASE ONE BLOCK «, t00=0x002b, t01=0x00bc}
0x43f4…43fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d6}
0x43fe…4414 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,9«, t00=0x002b, t01=0x00e0}
0x4414…4426 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002b, t01=0x00f6}
0x4426…4430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0108}
0x4430…4448 Head {h00=0x0014, h01=0x0050, text=»* LOCK CASSETTE «, t00=0x002b, t01=0x0112}
0x4448…4452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x012a}
0x4452…4468 Head {h00=0x0012, h01=0x0050, text=»LOCK LDK A3,2 «, t00=0x002b, t01=0x0134}
0x4468…447a Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002b, t01=0x014a}
0x447a…4484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x015c}
0x4484…449c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002b, t01=0x0166}
0x449c…44a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x017e}
0x44a6…44c8 Head {h00=0x001e, h01=0x0050, text=»* SEARCH BEGINNING OF TAPE«, t00=0x002b, t01=0x0188}
0x44c8…44d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001a}
0x44d2…44e8 Head {h00=0x0012, h01=0x0050, text=»SBOT LDK A3,8 «, t00=0x002c, t01=0x0024}
0x44e8…44fa Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002c, t01=0x003a}
0x44fa…4504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004c}
0x4504…452e Head {h00=0x0026, h01=0x0050, text=»* REWIND TAPE AND UNLOCK CASSETTE «, t00=0x002c, t01=0x0056}
0x452e…4538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0080}
0x4538…454e Head {h00=0x0012, h01=0x0050, text=»UNLD LDK A3,/F«, t00=0x002c, t01=0x008a}
0x454e…4560 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002c, t01=0x00a0}
0x4560…456a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b2}
0x456a…4588 Head {h00=0x001a, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x002c, t01=0x00bc}
0x4588…4592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00da}
0x4592…45a8 Head {h00=0x0012, h01=0x0050, text=»BKSP LDK A3,/E«, t00=0x002c, t01=0x00e4}
0x45a8…45ba Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002c, t01=0x00fa}
0x45ba…45c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x010c}
0x45c4…45dc Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002c, t01=0x0116}
0x45dc…45e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x012e}
0x45e6…45f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0138}
0x45f0…4604 Head {h00=0x0010, h01=0x0050, text=»* I H T C «, t00=0x002c, t01=0x0142}
0x4604…460e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0156}
0x460e…4642 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER : PROCESS OF INTERRUPT«, t00=0x002c, t01=0x0160}
0x4642…464c (45, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0004}
0x464c…4656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x000e}
0x4656…4668 Head {h00=0x000e, h01=0x0050, text=»IHTC EQU *«, t00=0x002d, t01=0x0018}
0x4668…4690 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x002d, t01=0x002a}
0x4690…46b4 Head {h00=0x0020, h01=0x0050, text=» STR A5,A15 SAVE A5 ON STACK«, t00=0x002d, t01=0x0052}
0x46b4…46ca Head {h00=0x0012, h01=0x0050, text=» SST A5,CHCRDA«, t00=0x002d, t01=0x0076}
0x46ca…46ea Head {h00=0x001c, h01=0x0050, text=» RF(A) SST SST ACCEPTED «, t00=0x002d, t01=0x008c}
0x46ea…470e Head {h00=0x0020, h01=0x0050, text=» IM REQLEN INCREMENT COUNTER«, t00=0x002d, t01=0x00ac}
0x470e…4724 Head {h00=0x0012, h01=0x0050, text=» RF(Z) CIOHLT «, t00=0x002d, t01=0x00d0}
0x4724…474e Head {h00=0x0026, h01=0x0050, text=» RF(P) INRSQ GET SEQUENCE COUNTER «, t00=0x002d, t01=0x00e6}
0x474e…4772 Head {h00=0x0020, h01=0x0050, text=» STR A3,A15 SAVE A3 ON STACK«, t00=0x002d, t01=0x0110}
0x4772…4798 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,0 GET BUFFER ADDRESS «, t00=0x002d, t01=0x0134}
0x4798…47c0 Head {h00=0x0024, h01=0x0050, text=»TCDBA EQU *-2 **BUFFER ADDRESS**«, t00=0x002d, t01=0x015a}
0x47c0…47ea Head {h00=0x0026, h01=0x0050, text=» IM TCDBA INCREMENT BUFFER ADDRESS«, t00=0x002d, t01=0x0182}
0x47ea…4822 Head {h00=0x0034, h01=0x0050, text=» LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE «, t00=0x002e, t01=0x001c}
0x4822…4834 Head {h00=0x000e, h01=0x0050, text=» SUK A5,10«, t00=0x002e, t01=0x0054}
0x4834…4850 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IHTC05 WRITE«, t00=0x002e, t01=0x0066}
0x4850…485a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0082}
0x485a…4884 Head {h00=0x0026, h01=0x0050, text=»IHTC02 INR A5,0,CHCRDA READ CHAR. «, t00=0x002e, t01=0x008c}
0x4884…48b0 Head {h00=0x0028, h01=0x0050, text=» SCR A5,A3 STORE CHARACTER IN BUFFER«, t00=0x002e, t01=0x00b6}
0x48b0…48c2 Head {h00=0x000e, h01=0x0050, text=» RF EXIT2 «, t00=0x002e, t01=0x00e2}
0x48c2…48cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f4}
0x48cc…48e0 Head {h00=0x0010, h01=0x0050, text=»IHTC05 EQU *«, t00=0x002e, t01=0x00fe}
0x48e0…4908 Head {h00=0x0024, h01=0x0050, text=» LCR A5,A3 GET CHAR FROM BUFFER «, t00=0x002e, t01=0x0112}
0x4908…492a Head {h00=0x001e, h01=0x0050, text=» OTR A5,0,CHCRDA OUTPUT IT«, t00=0x002e, t01=0x013a}
0x492a…4942 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002e, t01=0x015c}
0x4942…494c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0174}
0x494c…4956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x017e}
0x4956…4970 Head {h00=0x0016, h01=0x0050, text=»EXIT2 ST A5,TCDA5 «, t00=0x002e, t01=0x0188}
0x4970…499e Head {h00=0x002a, h01=0x0050, text=» IM EFFLEN INCREMENT EFFECTIVE LENGTH«, t00=0x002f, t01=0x0012}
0x499e…49d0 Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A15 RESTORE A3 AND A5 FROM STACK «, t00=0x002f, t01=0x0040}
0x49d0…49da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0072}
0x49da…49f4 Head {h00=0x0016, h01=0x0050, text=»EXIT3 LDR* A5,A15 «, t00=0x002f, t01=0x007c}
0x49f4…4a04 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002f, t01=0x0096}
0x4a04…4a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a6}
0x4a0e…4a3c Head {h00=0x002a, h01=0x0050, text=»INRSQ INR A5,0,CHCRDA READ CHAR TO A5 «, t00=0x002f, t01=0x00b0}
0x4a3c…4a50 Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x002f, t01=0x00de}
0x4a50…4a62 Head {h00=0x000e, h01=0x0050, text=» RB EXIT3 «, t00=0x002f, t01=0x00f2}
0x4a62…4a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0104}
0x4a6c…4a90 Head {h00=0x0020, h01=0x0050, text=»SST ST A5,TCDA2 SAVE STATUS «, t00=0x002f, t01=0x010e}
0x4a90…4ab0 Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A15 RESTORE A5 «, t00=0x002f, t01=0x0132}
0x4ab0…4ac6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002f, t01=0x0152}
0x4ac6…4af0 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x002f, t01=0x0168}
0x4af0…4afc (48, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0004}
0x4afc…4b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0010}
0x4b06…4b1c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0030, t01=0x001a}
0x4b1c…4b42 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0030, t01=0x0030}
0x4b42…4b4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0056}
0x4b4e…4b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0062}
0x4b58…4b6a Head {h00=0x000e, h01=0x0050, text=» LDKL A1,0«, t00=0x0030, t01=0x006c}
0x4b6a…4b80 Head {h00=0x0012, h01=0x0050, text=»TCDA1 EQU *-2 «, t00=0x0030, t01=0x007e}
0x4b80…4b92 Head {h00=0x000e, h01=0x0050, text=» LDKL A4,0«, t00=0x0030, t01=0x0094}
0x4b92…4ba8 Head {h00=0x0012, h01=0x0050, text=»TCDA4 EQU *-2 «, t00=0x0030, t01=0x00a6}
0x4ba8…4bba Head {h00=0x000e, h01=0x0050, text=» LDKL A5,0«, t00=0x0030, t01=0x00bc}
0x4bba…4bd0 Head {h00=0x0012, h01=0x0050, text=»TCDA5 EQU *-2 «, t00=0x0030, t01=0x00ce}
0x4bd0…4be2 Head {h00=0x000e, h01=0x0050, text=» LDKL A6,0«, t00=0x0030, t01=0x00e4}
0x4be2…4bf8 Head {h00=0x0012, h01=0x0050, text=»TCDA6 EQU *-2 «, t00=0x0030, t01=0x00f6}
0x4bf8…4c0a Head {h00=0x000e, h01=0x0050, text=» LDKL A8,0«, t00=0x0030, t01=0x010c}
0x4c0a…4c20 Head {h00=0x0012, h01=0x0050, text=»TCDA8 EQU *-2 «, t00=0x0030, t01=0x011e}
0x4c20…4c38 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0030, t01=0x0134}
0x4c38…4c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x014c}
0x4c42…4c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0156}
0x4c4c…4c6e Head {h00=0x001e, h01=0x0050, text=» LDKL A2,0 RESTORE STATUS «, t00=0x0030, t01=0x0160}
0x4c6e…4c84 Head {h00=0x0012, h01=0x0050, text=»TCDA2 EQU *-2 «, t00=0x0030, t01=0x0182}
0x4c84…4ca2 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 GET STATUS«, t00=0x0031, t01=0x0008}
0x4ca2…4cba Head {h00=0x0014, h01=0x0050, text=» SLL A3,9 SHIFT «, t00=0x0031, t01=0x0026}
0x4cba…4cdc Head {h00=0x001e, h01=0x0050, text=» ST A3,2,A8 SAVE ON STACK «, t00=0x0031, t01=0x003e}
0x4cdc…4d08 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 PUT DWT STATUS IN A3«, t00=0x0031, t01=0x0060}
0x4d08…4d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x008c}
0x4d12…4d26 Head {h00=0x0010, h01=0x0050, text=»IHTRTN EQU *«, t00=0x0031, t01=0x0096}
0x4d26…4d36 Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0031, t01=0x00aa}
0x4d36…4d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ba}
0x4d40…4d54 Head {h00=0x0010, h01=0x0050, text=»CIOHLT EQU *«, t00=0x0031, t01=0x00c4}
0x4d54…4d76 Head {h00=0x001e, h01=0x0050, text=» CIO A1,0,CHCRDA CIO-HALT«, t00=0x0031, t01=0x00d8}
0x4d76…4d88 Head {h00=0x000e, h01=0x0050, text=» RB EXIT3 «, t00=0x0031, t01=0x00fa}
0x4d88…4d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x010c}
0x4d92…4daa Head {h00=0x0014, h01=0x0050, text=»EXIT ST A1,TCDA1«, t00=0x0031, t01=0x0116}
0x4daa…4dbe Head {h00=0x0010, h01=0x0050, text=» ST A4,TCDA4«, t00=0x0031, t01=0x012e}
0x4dbe…4dd2 Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x0031, t01=0x0142}
0x4dd2…4de6 Head {h00=0x0010, h01=0x0050, text=» ST A6,TCDA6«, t00=0x0031, t01=0x0156}
0x4de6…4dfa Head {h00=0x0010, h01=0x0050, text=» ST A8,TCDA8«, t00=0x0031, t01=0x016a}
0x4dfa…4e1e Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER«, t00=0x0031, t01=0x017e}
0x4e1e…4e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0012}
0x4e28…4e40 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0032, t01=0x001c}
0x4e40…4e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0034}
0x4e4a…4e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003e}
0x4e54…4e6c Head {h00=0x0014, h01=0x0050, text=»* R C O V E R «, t00=0x0032, t01=0x0048}
0x4e6c…4e76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0060}
0x4e76…4eb4 Head {h00=0x003a, h01=0x0050, text=»* RECOVERY ROUTINE : POSITIONING OF TAPE AT POWER ON«, t00=0x0032, t01=0x006a}
0x4eb4…4ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00a8}
0x4ebe…4ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b2}
0x4ec8…4edc Head {h00=0x0010, h01=0x0050, text=»RCOVER EQU *«, t00=0x0032, t01=0x00bc}
0x4edc…4ef8 Head {h00=0x0018, h01=0x0050, text=» CF A8,SELECT SELECT«, t00=0x0032, t01=0x00d0}
0x4ef8…4f0a Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0032, t01=0x00ec}
0x4f0a…4f40 Head {h00=0x0032, h01=0x0050, text=» RB(Z) IHTRTN NOT LOCKED: RETURN FROM RECOVERY«, t00=0x0032, t01=0x00fe}
0x4f40…4f54 Head {h00=0x0010, h01=0x0050, text=» CF A8,LOCK «, t00=0x0032, t01=0x0134}
0x4f54…4f76 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) REPER NO CASSETTE «, t00=0x0032, t01=0x0148}
0x4f76…4fa6 Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ «, t00=0x0032, t01=0x016a}
0x4fa6…4fc0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RC0050 YES«, t00=0x0033, t01=0x000a}
0x4fc0…4fec Head {h00=0x0028, h01=0x0050, text=» CF A8,SBOT SEARCH BEGINNING OF TAPE«, t00=0x0033, t01=0x0024}
0x4fec…4ffe Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0033, t01=0x0050}
0x4ffe…5022 Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x0033, t01=0x0062}
0x5022…5034 Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x0033, t01=0x0086}
0x5034…503e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0098}
0x503e…506a Head {h00=0x0028, h01=0x0050, text=»RC0050 LD A1,SEKBYT,A6 SEQ. COUNTING«, t00=0x0033, t01=0x00a2}
0x506a…5082 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REPER NO«, t00=0x0033, t01=0x00ce}
0x5082…508c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00e6}
0x508c…50a4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0033, t01=0x00f0}
0x50a4…50ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0108}
0x50ae…50b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0112}
0x50b8…50ce Head {h00=0x0012, h01=0x0050, text=»* R E P O S «, t00=0x0033, t01=0x011c}
0x50ce…50d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0132}
0x50d8…5106 Head {h00=0x002a, h01=0x0050, text=»* REPOSITIONING OF TAPE AT POWER ON «, t00=0x0033, t01=0x013c}
0x5106…5124 Head {h00=0x001a, h01=0x0050, text=»* AND WRITE RECOVERY«, t00=0x0033, t01=0x016a}
0x5124…512e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0188}
0x512e…5166 (52, 0, 400) Head {h00=0x0034, h01=0x0050, text=»* EXIT: A2 EQ ZERO SUCCESS«, t00=0x0034, t01=0x0004}
0x5166…51a2 Head {h00=0x0038, h01=0x0050, text=»* A2 NOT EQ ZERO NO SUCCESS «, t00=0x0034, t01=0x003c}
0x51a2…51ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0078}
0x51ac…51b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0082}
0x51b6…51ca Head {h00=0x0010, h01=0x0050, text=»REPOS EQU * «, t00=0x0034, t01=0x008c}
0x51ca…51f2 Head {h00=0x0024, h01=0x0050, text=» LDK A4,8 SET REPOSITIONING BIT «, t00=0x0034, t01=0x00a0}
0x51f2…5218 Head {h00=0x0022, h01=0x0050, text=» ORS A4,DWTST,A6 STORE IN DWT «, t00=0x0034, t01=0x00c8}
0x5218…5222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ee}
0x5222…5236 Head {h00=0x0010, h01=0x0050, text=»REP005 EQU *«, t00=0x0034, t01=0x00f8}
0x5236…5260 Head {h00=0x0026, h01=0x0050, text=» LDK A4,PSUBS SET NO OF BACKSPACES«, t00=0x0034, t01=0x010c}
0x5260…526a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0136}
0x526a…528e Head {h00=0x0020, h01=0x0050, text=»REP010 CF A8,BKSP BACKSPACE «, t00=0x0034, t01=0x0140}
0x528e…52a0 Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0034, t01=0x0164}
0x52a0…52c2 Head {h00=0x001e, h01=0x0050, text=» RF(NN) REP015 DATA FOUND «, t00=0x0034, t01=0x0176}
0x52c2…52ec Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTBKC,A6 GET BLOCK COUNTER«, t00=0x0035, t01=0x0008}
0x52ec…530a Head {h00=0x001a, h01=0x0050, text=» SUK A2,8 GREATER 8 ? «, t00=0x0035, t01=0x0032}
0x530a…5322 Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x0035, t01=0x0050}
0x5322…5354 Head {h00=0x002e, h01=0x0050, text=» CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE «, t00=0x0035, t01=0x0068}
0x5354…5366 Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0035, t01=0x009a}
0x5366…538a Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x0035, t01=0x00ac}
0x538a…53b0 Head {h00=0x0022, h01=0x0050, text=» LDKL A5,-1 RESET SEQ. COUNTER«, t00=0x0035, t01=0x00d0}
0x53b0…53d2 Head {h00=0x001e, h01=0x0050, text=» RF REP020 READ SEQ. CHAR «, t00=0x0035, t01=0x00f6}
0x53d2…53dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0118}
0x53dc…53f4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0035, t01=0x0122}
0x53f4…53fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x013a}
0x53fe…5408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0144}
0x5408…541c Head {h00=0x0010, h01=0x0050, text=»REP015 EQU *«, t00=0x0035, t01=0x014e}
0x541c…542e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0035, t01=0x0162}
0x542e…5454 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) REP010 BACKSPACE AGAIN«, t00=0x0035, t01=0x0174}
0x5454…547c Head {h00=0x0024, h01=0x0050, text=» LDK A4,PREAD SET NO OF MAX READ«, t00=0x0036, t01=0x000a}
0x547c…5486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0032}
0x5486…54b0 Head {h00=0x0026, h01=0x0050, text=»REP017 CF A8,READSQ READ SEQ. CHAR«, t00=0x0036, t01=0x003c}
0x54b0…54d4 Head {h00=0x0020, h01=0x0050, text=» LDKL A7,/180F SET READ MASK«, t00=0x0036, t01=0x0066}
0x54d4…54e6 Head {h00=0x000e, h01=0x0050, text=» TM A2,A7 «, t00=0x0036, t01=0x008a}
0x54e6…5504 Head {h00=0x001a, h01=0x0050, text=» RF(Z) REP020 READ OK «, t00=0x0036, t01=0x009c}
0x5504…5520 Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 COUNT READ«, t00=0x0036, t01=0x00ba}
0x5520…5548 Head {h00=0x0024, h01=0x0050, text=» RB(P) REP017 NOT ALL READ DONE «, t00=0x0036, t01=0x00d6}
0x5548…5562 Head {h00=0x0016, h01=0x0050, text=» RF REP060 GIVE UP«, t00=0x0036, t01=0x00fe}
0x5562…556c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0118}
0x556c…559a Head {h00=0x002a, h01=0x0050, text=»REP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR«, t00=0x0036, t01=0x0122}
0x559a…55b6 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 CALCULATE«, t00=0x0036, t01=0x0150}
0x55b6…55d8 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 NO OF BLOCKS TO «, t00=0x0036, t01=0x016c}
0x55d8…55fa Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF READ FORWARD. «, t00=0x0036, t01=0x018e}
0x55fa…561e Head {h00=0x0020, h01=0x0050, text=» CWK A4,PINT TOO MANY BLOCKS«, t00=0x0037, t01=0x0020}
0x561e…5636 Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x0037, t01=0x0044}
0x5636…5640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x005c}
0x5640…5658 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0037, t01=0x0066}
0x5658…5662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x007e}
0x5662…566c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0088}
0x566c…5692 Head {h00=0x0022, h01=0x0050, text=»REP030 SUK A4,1 POSITION TAPE «, t00=0x0037, t01=0x0092}
0x5692…56ae Head {h00=0x0018, h01=0x0050, text=» RF(N) REP040 READY «, t00=0x0037, t01=0x00b8}
0x56ae…56d4 Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ NEXT BLOCK «, t00=0x0037, t01=0x00d4}
0x56d4…56e6 Head {h00=0x000e, h01=0x0050, text=» RB REP030«, t00=0x0037, t01=0x00fa}
0x56e6…56f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x010c}
0x56f0…571c Head {h00=0x0028, h01=0x0050, text=»REP040 LDK A4,RTRIES SET NO OF RETRY«, t00=0x0037, t01=0x0116}
0x571c…5746 Head {h00=0x0026, h01=0x0050, text=»REP042 LDKL A7,/80F SET READ MASK «, t00=0x0037, t01=0x0142}
0x5746…5764 Head {h00=0x001a, h01=0x0050, text=» TM A2,A7 CORRECT READ«, t00=0x0037, t01=0x016c}
0x5764…577e Head {h00=0x0016, h01=0x0050, text=» RF(Z) REP045 YES «, t00=0x0037, t01=0x018a}
0x577e…579c Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 COUNT RETRY «, t00=0x0038, t01=0x0014}
0x579c…57ba Head {h00=0x001a, h01=0x0050, text=» RF(NP) REP060 GIVE UP«, t00=0x0038, t01=0x0032}
0x57ba…57d8 Head {h00=0x001a, h01=0x0050, text=» CF A8,BKSP BACKSPACE «, t00=0x0038, t01=0x0050}
0x57d8…57fe Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ SEQ NUMBER «, t00=0x0038, t01=0x006e}
0x57fe…5810 Head {h00=0x000e, h01=0x0050, text=» RB REP042«, t00=0x0038, t01=0x0094}
0x5810…581a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a6}
0x581a…5832 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0038, t01=0x00b0}
0x5832…583c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c8}
0x583c…5846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00d2}
0x5846…585e Head {h00=0x0014, h01=0x0050, text=»REP045 SLC A2,3 «, t00=0x0038, t01=0x00dc}
0x585e…5882 Head {h00=0x0020, h01=0x0050, text=» RF(NN) REP050 NOT TAPE MARK«, t00=0x0038, t01=0x00f4}
0x5882…5896 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0038, t01=0x0118}
0x5896…58c4 Head {h00=0x002a, h01=0x0050, text=» RF(Z) REP060 SHOULD NOT BE TAPE MARK «, t00=0x0038, t01=0x012c}
0x58c4…58d6 Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x0038, t01=0x015a}
0x58d6…58e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x016c}
0x58e0…590a Head {h00=0x0026, h01=0x0050, text=»REP050 ADK A5,1 CHECK SEQ. NUMBER «, t00=0x0038, t01=0x0176}
0x590a…5924 Head {h00=0x0016, h01=0x0050, text=» CC A5,DWTBKC+1,A6«, t00=0x0039, t01=0x0010}
0x5924…593e Head {h00=0x0016, h01=0x0050, text=» RF(E) REPOK EQUAL«, t00=0x0039, t01=0x002a}
0x593e…5948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0044}
0x5948…5966 Head {h00=0x001a, h01=0x0050, text=»REP060 LD A7,DWTST,A6 «, t00=0x0039, t01=0x004e}
0x5966…598e Head {h00=0x0024, h01=0x0050, text=» ANK A7,8 TRY POSITIONING AGAIN?«, t00=0x0039, t01=0x006c}
0x598e…59a6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) REPER NO «, t00=0x0039, t01=0x0094}
0x59a6…59d6 Head {h00=0x002c, h01=0x0050, text=» XRS A7,DWTST,A6 RESET REPOSITIONING BIT«, t00=0x0039, t01=0x00ac}
0x59d6…59ec Head {h00=0x0012, h01=0x0050, text=» RB REP005 YES«, t00=0x0039, t01=0x00dc}
0x59ec…59f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f2}
0x59f6…5a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00fc}
0x5a00…5a3a Head {h00=0x0036, h01=0x0050, text=»REPER LDK A2,2 IND RECOVERY/SEQUENCE ERROR STATUS «, t00=0x0039, t01=0x0106}
0x5a3a…5a60 Head {h00=0x0022, h01=0x0050, text=» ORS A2,SEKBYT,A6 SAVE IN DWT «, t00=0x0039, t01=0x0140}
0x5a60…5a70 Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0039, t01=0x0166}
0x5a70…5a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0176}
0x5a7a…5aa6 Head {h00=0x0028, h01=0x0050, text=»REPOK LDK A2,0 IND RECOVERY CORRECT «, t00=0x0039, t01=0x0180}
0x5aa6…5ab6 Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x003a, t01=0x001c}
0x5ab6…5ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x002c}
0x5ac0…5ad8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x003a, t01=0x0036}
0x5ad8…5ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x004e}
0x5ae2…5aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0058}
0x5aec…5b04 Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 2 «, t00=0x003a, t01=0x0062}
0x5b04…5b0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x007a}
0x5b0e…5b44 Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 02«, t00=0x003a, t01=0x0084}
0x5b44…5b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ba}
0x5b4e…5b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00c4}
0x5b58…5b78 Head {h00=0x001c, h01=0x0050, text=»DWTC02 EQU * TABLE ENTRY«, t00=0x003a, t01=0x00ce}
0x5b78…5b8c Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x003a, t01=0x00ee}
0x5b8c…5bac Head {h00=0x001c, h01=0x0050, text=» DATA DWTC01+1 DWT NO. 1«, t00=0x003a, t01=0x0102}
0x5bac…5be0 Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x003a, t01=0x0122}
0x5be0…5bfc Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003a, t01=0x0156}
0x5bfc…5c12 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003a, t01=0x0172}
0x5c12…5c3e Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x003a, t01=0x0188}
0x5c3e…5c5a Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003b, t01=0x0024}
0x5c5a…5c82 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003b, t01=0x0040}
0x5c82…5ca0 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003b, t01=0x0068}
0x5ca0…5cb6 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003b, t01=0x0086}
0x5cb6…5ce0 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003b, t01=0x009c}
0x5ce0…5d04 Head {h00=0x0020, h01=0x0050, text=» DATA ECBTC2 MMU ECB ADDRESS«, t00=0x003b, t01=0x00c6}
0x5d04…5d10 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003b, t01=0x00ea}
0x5d10…5d24 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x003b, t01=0x00f6}
0x5d24…5d42 Head {h00=0x001a, h01=0x0050, text=» DATA 0 BLOCK COUNTER «, t00=0x003b, t01=0x010a}
0x5d42…5d60 Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x003b, t01=0x0128}
0x5d60…5d76 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003b, t01=0x0146}
0x5d76…5d8a Head {h00=0x0010, h01=0x0050, text=»ECBTC2 EQU *«, t00=0x003b, t01=0x015c}
0x5d8a…5d9a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003b, t01=0x0170}
0x5d9a…5dae Head {h00=0x0010, h01=0x0050, text=» DATA TCBUF2«, t00=0x003b, t01=0x0180}
0x5dae…5dc4 (60, 0, 400) Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x003c, t01=0x0004}
0x5dc4…5de0 Head {h00=0x0018, h01=0x0050, text=»TCBUF2 RES DVBLEN+1 «, t00=0x003c, t01=0x001a}
0x5de0…5dec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0036}
0x5dec…5df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0042}
0x5df6…5e0e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x003c, t01=0x004c}
0x5e0e…5e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0064}
0x5e18…5e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x006e}
0x5e22…5e3a Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 1 «, t00=0x003c, t01=0x0078}
0x5e3a…5e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0090}
0x5e44…5e7a Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 01«, t00=0x003c, t01=0x009a}
0x5e7a…5e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d0}
0x5e84…5e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00da}
0x5e8e…5eb0 Head {h00=0x001e, h01=0x0050, text=»DWTC01 EQU * TABLE ENTRY «, t00=0x003c, t01=0x00e4}
0x5eb0…5ece Head {h00=0x001a, h01=0x0050, text=» DATA DWTC02 DWT NO. 2«, t00=0x003c, t01=0x0106}
0x5ece…5f02 Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x003c, t01=0x0124}
0x5f02…5f1e Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003c, t01=0x0158}
0x5f1e…5f34 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003c, t01=0x0174}
0x5f34…5f60 Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x003c, t01=0x018a}
0x5f60…5f7c Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003d, t01=0x0026}
0x5f7c…5fa4 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003d, t01=0x0042}
0x5fa4…5fc2 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003d, t01=0x006a}
0x5fc2…5fd8 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x0088}
0x5fd8…6002 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003d, t01=0x009e}
0x6002…6026 Head {h00=0x0020, h01=0x0050, text=» DATA ECBTC1 MMU ECB ADDRESS«, t00=0x003d, t01=0x00c8}
0x6026…6032 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003d, t01=0x00ec}
0x6032…605c Head {h00=0x0026, h01=0x0050, text=»DWTBKC EQU *-DWTC01 BLOCK COUNTER «, t00=0x003d, t01=0x00f8}
0x605c…606c Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003d, t01=0x0122}
0x606c…6088 Head {h00=0x0018, h01=0x0050, text=»SEKBYT EQU *-DWTC01 «, t00=0x003d, t01=0x0132}
0x6088…60a6 Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x003d, t01=0x014e}
0x60a6…60b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x016c}
0x60b0…60c6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1«, t00=0x003d, t01=0x0176}
0x60c6…60da Head {h00=0x0010, h01=0x0050, text=»ECBTC1 EQU *«, t00=0x003d, t01=0x018c}
0x60da…60ea Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003e, t01=0x0010}
0x60ea…60fe Head {h00=0x0010, h01=0x0050, text=» DATA TCBUF1«, t00=0x003e, t01=0x0020}
0x60fe…6114 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x003e, t01=0x0034}
0x6114…6130 Head {h00=0x0018, h01=0x0050, text=»TCBUF1 RES DVBLEN+1 «, t00=0x003e, t01=0x004a}
0x6130…613c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0066}
0x613c…6146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0072}
0x6146…616c Head {h00=0x0022, h01=0x0050, text=»REQLEN DATA 0 REQUESTED LENGTH«, t00=0x003e, t01=0x007c}
0x616c…6176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a2}
0x6176…6180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00ac}
0x6180…618a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00b6}
0x618a…6196 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003e, t01=0x00c0}
0x6196…619a Head {h00=0x4004, h01=0x0000}
0x619a…619e 00 3e 00 cc ┆ > ┆
0x619e…61a6 (63, 1, 8) 20 04 00 00 00 3f 00 04 ┆ ? ┆
0x61a6…61f6 (64, 0, 222) 00 0e 00 48 4d 45 53 20 44 52 53 57 30 31 00 00 00 04 00 18 00 48 4c 45 44 20 44 52 53 57 30 31 2c 2f 53 2c 2f 45 45 2c 23 23 00 00 00 16 00 0c 00 48 23 23 44 4c 20 30 2c 31 00 00 00 32 00 32 00 48 5c 49 44 45 4e 54 20 44 52 53 57 30 31 20 ┆ HMES DRSW01 HLED DRSW01,/S,/EE,## H##DL 0,1 2 2 H IDENT DRSW01 ┆
0x61f6…6246 5c 52 45 4c 20 31 30 2e 30 20 38 30 2d 30 33 2d 31 34 20 38 37 30 31 30 35 30 34 31 30 30 30 20 00 00 00 42 00 04 00 48 00 00 00 78 00 08 00 48 23 23 45 4e 00 00 00 80 00 0a 00 48 4b 50 46 20 2f 53 00 00 00 8c 00 0e 00 48 41 53 4d 20 2f 53 ┆ REL 10.0 80-03-14 870105041000 B H x H##EN HKPF /S HASM /S┆
0x6246…6284 2c 4e 4c 20 00 00 00 9a 00 0a 00 48 4b 50 46 20 2f 4f 00 00 00 ac 00 0a 00 48 53 43 52 20 2f 53 00 00 00 ba 00 0a 00 48 53 43 52 20 2f 4f 00 00 00 c8 00 08 00 48 45 4e 44 20 00 00 00 d6 ┆,NL HKPF /O HSCR /S HSCR /O HEND ┆
0x6284…628c (65, 1, 8) 20 04 00 00 00 01 00 04 ┆ ┆
0x628c…62dc (66, 0, 400) 00 2e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 02 00 04 00 06 00 50 2a 20 00 02 00 36 00 36 00 50 2a 5c 41 20 50 52 4f 47 52 41 4d 20 56 45 52 53 ┆ . P***************************************** P* 6 6 P* A PROGRAM VERS┆
0x62dc…632c 49 4f 4e 20 55 53 49 4e 47 20 54 48 45 20 45 58 54 45 4e 44 45 44 20 49 4e 53 54 52 55 43 54 49 4f 4e 00 02 00 40 00 2e 00 50 2a 5c 53 45 54 20 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 43 50 55 38 35 32 20 45 51 ┆ION USING THE EXTENDED INSTRUCTION @ . P* SET IS OBTAINED BY SETTING CPU852 EQ┆
0x632c…637c 55 20 30 2e 00 02 00 7a 00 06 00 50 2a 20 00 02 00 ac 00 10 00 50 43 50 55 38 35 32 5c 45 51 55 5c 31 00 02 00 b6 00 06 00 50 2a 20 00 02 00 ca 00 0a 00 50 5c 45 4a 45 43 54 00 02 00 d4 00 10 00 50 41 44 44 4d 4f 44 5c 45 51 55 5c 2a 00 02 ┆U 0. z P* PCPU852 EQU 1 P* P EJECT PADDMOD EQU * ┆
0x637c…63cc 00 e2 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 02 00 f6 00 12 00 50 5c 49 46 46 5c 43 50 55 38 35 32 3d 31 20 00 02 01 08 00 0c 00 50 5c 44 41 52 5c 41 36 20 00 02 01 1e 00 08 00 50 5c 58 49 46 00 02 01 2e 00 12 00 50 5c 49 46 54 5c 43 ┆ P LDK A3,0 P IFF CPU852=1 P DAR A6 P XIF . P IFT C┆
0x63cc…641c 50 55 38 35 32 3d 31 20 00 02 01 3a 00 1e 00 50 20 20 20 20 20 20 20 20 20 41 4e 4b 2e 4c 20 20 20 20 41 37 2c 2f 37 46 46 46 00 02 01 50 00 1e 00 50 20 20 20 20 20 20 20 20 20 41 4e 4b 2e 4c 20 20 20 20 41 32 2c 2f 37 46 46 46 00 02 01 72 ┆PU852=1 : P ANK.L A7,/7FFF P P ANK.L A2,/7FFF r┆
0x641c…646c (67, 0, 400) 00 1c 00 50 20 20 20 20 20 20 20 20 20 41 44 52 20 20 20 20 20 20 41 32 2c 41 37 20 00 03 00 04 00 1c 00 50 20 20 20 20 20 20 20 20 20 52 46 28 33 29 20 20 20 20 4f 56 45 52 31 20 00 03 00 24 00 30 00 50 4e 4f 56 45 52 20 20 20 20 41 44 52 ┆ P ADR A2,A7 P RF(3) OVER1 $ 0 PNOVER ADR┆
0x646c…64bc 20 20 20 20 20 20 41 31 2c 41 36 20 20 20 20 20 20 20 2a 20 4e 4f 20 4f 56 45 52 46 4c 4f 57 20 00 03 00 44 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 46 28 31 29 20 20 20 20 45 4e 44 31 00 03 00 78 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 ┆ A1,A6 * NO OVERFLOW D P RF(1) END1 x P R┆
0x64bc…650c 46 28 32 29 20 20 20 20 45 4e 44 32 00 03 00 96 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 46 28 33 29 20 20 20 20 45 4e 44 33 00 03 00 b4 00 1a 00 50 4e 4f 56 45 52 31 20 20 20 41 44 4b 20 20 20 20 20 20 41 32 2c 30 00 03 00 d2 00 1a 00 50 ┆F(2) END2 P RF(3) END3 PNOVER1 ADK A2,0 P┆
0x650c…655c 20 20 20 20 20 20 20 20 20 52 46 28 30 29 20 20 20 20 45 4e 44 30 00 03 00 f0 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 46 28 37 29 20 20 20 20 45 4e 44 31 00 03 01 0e 00 1e 00 50 4f 56 45 52 31 20 20 20 20 41 4e 4b 2e 4c 20 20 20 20 41 32 ┆ RF(0) END0 P RF(7) END1 POVER1 ANK.L A2┆
0x655c…65ac 2c 2f 37 46 46 46 00 03 01 2c 00 1a 00 50 20 20 20 20 20 20 20 20 20 41 44 4b 20 20 20 20 20 20 41 31 2c 31 00 03 01 4e 00 1c 00 50 20 20 20 20 20 20 20 20 20 52 46 28 33 29 20 20 20 20 4f 56 45 52 33 20 00 03 01 6c 00 1c 00 50 20 20 20 20 ┆,/7FFF , P ADK A1,1 N P RF(3) OVER3 l P ┆
0x65ac…65fc (68, 0, 400) 20 20 20 20 20 52 42 28 37 29 20 20 20 20 4e 4f 56 45 52 20 00 03 01 8c 00 1c 00 50 4f 56 45 52 33 20 20 20 20 41 44 52 20 20 20 20 20 20 41 31 2c 41 36 20 00 04 00 1c 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 46 28 32 29 20 20 20 20 45 4e ┆ RB(7) NOVER POVER3 ADR A1,A6 P RF(2) EN┆
0x65fc…664c 44 33 00 04 00 3c 00 1a 00 50 20 20 20 20 20 20 20 20 20 41 44 4b 20 20 20 20 20 20 41 31 2c 30 00 04 00 5a 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 46 28 31 29 20 20 20 20 45 4e 44 31 00 04 00 78 00 1c 00 50 20 20 20 20 20 20 20 20 20 52 ┆D3 < P ADK A1,0 Z P RF(1) END1 x P R┆
0x664c…669c 42 28 37 29 20 20 20 20 4e 4f 56 45 52 31 00 04 00 96 00 08 00 50 5c 58 49 46 00 04 00 b6 00 12 00 50 5c 49 46 46 5c 43 50 55 38 35 32 3d 31 20 00 04 00 c2 00 10 00 50 5c 52 46 28 30 29 5c 45 4e 44 30 20 00 04 00 d8 00 10 00 50 5c 52 46 28 ┆B(7) NOVER1 P XIF P IFF CPU852=1 P RF(0) END0 P RF(┆
0x669c…66ec 31 29 5c 45 4e 44 31 20 00 04 00 ec 00 10 00 50 5c 52 46 28 32 29 5c 45 4e 44 32 20 00 04 01 00 00 08 00 50 5c 58 49 46 00 04 01 14 00 1e 00 50 45 4e 44 33 20 20 20 20 20 41 44 4b 20 20 20 20 20 20 20 41 33 2c 2f 38 30 20 00 04 01 20 00 1e ┆1) END1 P RF(2) END2 P XIF PEND3 ADK A3,/80 ┆
0x66ec…673c 00 50 45 4e 44 32 20 20 20 20 20 20 41 44 4b 20 20 20 20 20 20 41 33 2c 2f 38 30 20 00 04 01 42 00 1e 00 50 45 4e 44 31 20 20 20 20 20 20 41 44 4b 20 20 20 20 20 20 41 33 2c 2f 38 30 20 00 04 01 64 00 42 00 50 45 4e 44 30 20 20 20 20 20 53 ┆ PEND2 ADK A3,/80 B PEND1 ADK A3,/80 d B PEND0 S┆