|
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: 27114 (0x69ea)
Notes: pts_type(SC)
Names: »DRTC01.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DRTC01.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/DRTC01.SC«
IDENT DRTC01 REL 9.2 79-11-16 870105040920 =2, INTERFACE UNKNOWN HANG-UP REL 9.1 79-11-02 =1,SKIP LEADER BIT WHEN BOT REL 9.1 79-05-23 * * ******************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRTC01 = DRIVER TAPE CASSETTE RECORDER * * * * * * ******************************************************* * * * THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS * CONNECTED TO CPU VIA CHCR-DCR * * ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT * AT REWIND AND UNLOAD * * DATA IS RECORDED IN BLOCKS WITH LENGTHS FROM 2 TO * 256 CHARACTERS * EJECT DRTC01 * * * THE DRIVER CONSISTS OF THE FOLLOWING PARTS: * * T C D A : ACTIVATION PART * * I H T C : INTERRUPT HANDLER * * R C O V E R : RECOVERY ROUTINE * * D W T C 0 1 : DEVICE WORK TABLE 01 * * D W T C 0 2 : DEVICE WORK TABLE 02 * * AND O R D E R P R O C E S S O R S * * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER /00: TEST STATUS * /02: READ * /05: WRITE * /06: WRITE * /22: WRITE TAPE MARK * /26: LOCK * /31: REWIND * /33: REVERSE * /24: ERASE * /37: LOAD * /38: UNLOAD * EJECT DRTC01 * * * THE FOLLOWING RETURN CODES ARE USED: * * BIT 0 REQUEST ERROR * 1 LEADER * 2 BOT MISSING * 3 TAPE MARK DETECTED * 4 NO DATA/ERASED * 5 BOT/EOT HOLE * 6 WRITE PROTECTED * 7 B-SIDE * 9 REWIND TIME-OUT * 11 SEQUENCE ERROR * -READ SEQUENCE ERROR * -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY * -POWER RECOVERY WHEN SEQ. COUNTER NOT USED * -POWER RECOVERY NOT SUCCESSFULL * 12 INCORRECT LENGTH * 13 CRC ERRROR * 14 THROUGHPUT ERROR * 15 NOT OPERABEL * EJECT DRTC01 * * * NORMAL USAGE OF REGISTERS: * * REGISTER A1: RETURN CODE * A2: SST STATUS * A3: DWT STATUS AFTER SST * A4: RETRY COUNTER * A5: SEQUENCE CHARACTER AFTER READ/WRITE * A6: DWT ADDRESS * A8: SUBROUTINE STACK * * * SYSTEM ADAPTATION: * * BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE * REDUCED TO HANDLE: * * -ONLY ONE CASSETTE RECORDER * -ORDERS REVERSE, ERASE AND LOCK EXCLUDED * EJECT DRTC01 * * *********** * ENTRIES * *********** * * ENTRY IHTC INTERRUPT ADDRESS ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01 ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02 ENTRY TCDRON POWER UP RECOVERY * * ******************************** * EXTERNAL TOSS MODULE ENTRIES * ******************************** * * EXTRN TDISP DISPATCHER MAIN ENTRY EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE EXTRN 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 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 * X:D EQU 2 DEVIND EQU X:D * 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 * LDKL A2,/400 BOT/EOT RETURN CODE =1 TM A2,A1 =1 RF(Z) ENDIO2 NOT BOT/EOT =1 ANKL A1,/BFFF RESET LEADER BIT =1 ENDIO2 EQU * =1 CM TCDADT INDICATE NONE ACTIVE DWT 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 RB(N) READ25 YES RB WRIT12 NO * WRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR * WRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH RB READ40 * EJECT DRTC01 * * * L O A D * * LOAD CASSETTE * * LOAD CF A8,LOCK LOCK CASSETTE RF(Z) REWIND CASSETTE LOCKED LOAD10 LDR A1,A2 NO CASSETTE RB READ50 * * * R E W I N D * * REWIND TAPE * * REWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER CF A8,SBOT SEARCH BEGINNING OF TAPE REW010 EQU * LDR A3,A2 SRL A3,7 ANK A3,6 ORK A3,1 PREPARE STATUS RB LOAD10 * EJECT DRTC01 * * * U N L O A D * * UNLOAD CASSETTE * * UNLOAD CM DWTST,A6 RESET STATUS CF A8,UNLD UNLOAD CASSETTE UNLO10 LDR A1,A2 SAVE RETURN CODE RB ENDIO IFT REVER=1 * * * R E V E R S * * BACKSPACE ONE BLOCK * * REVERS CF A8,BKSP BACKSPACE LDKL A4,-1 DECREMENT BLOCK SEQ. ADS A4,DWTBKC,A6 COUNTER BY ONE RB UNLO10 * EJECT DRTC01 * * * E R T A P E * * ERASE TAPE * * ERTAPE LDK A4,PERAS SET NO OF ERASE ERT10 CF A8,ERASE ERASE ONE BLOCK ANKL A1,/400 SAVE EOT BIT ORR A1,A2 RETURN CODE SUK A4,1 RB(NZ) ERT10 ERASE NOT READY RB READ50 * * * O L O C K * * ORDER LOCK CASSETTE * * OLOCK CF A8,LOCK LOCK CASSETTE RB(Z) REW010 CASSETTE LOCKED RB LOAD10 XIF * EJECT DRTC01 * * * CASSETTE COMMANDS * * * SELECT * SELECT EQU * LDK A2,/FF LOAD MASK ANS A2,DWTST,A6 SET DWT BUSY IFT DBCAS=1 LDK A3,0 SELECT CODE XIF IFT DBCAS=2 LDR* A3,A6 GET OTHER DWT ANS A2,DWTST,A3 SET DWT BUSY ANK A3,1 GET SELECT CODE XIF * CRCOM CIO A3,1,CHCRDA CIO START RF(Z) EXIT ACCEPTED =2 LDK A1,1 ERROR 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 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0066 Head {h00=0x0024, h01=0x0050, text=» =2, INTERFACE UNKNOWN HANG-UP«, t00=0x0000, t01=0x0042}
0x0066…0082 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-11-02 «, t00=0x0000, t01=0x006a}
0x0082…00a8 Head {h00=0x0022, h01=0x0050, text=» =1,SKIP LEADER BIT WHEN BOT«, t00=0x0000, t01=0x0086}
0x00a8…00c4 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x00ac}
0x00c4…00ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d2}
0x00d8…0118 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x00dc}
0x0118…0122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…014a Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0126}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…0186 Head {h00=0x002e, h01=0x0050, text=»* DRTC01 = DRIVER TAPE CASSETTE RECORDER«, t00=0x0000, t01=0x0158}
0x0186…0190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…019a (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x019a…01a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a4…01ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0018}
0x01ae…01b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x01b8…01c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002c}
0x01c2…0202 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0001, t01=0x0036}
0x0202…020c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0076}
0x020c…0216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0080}
0x0216…0258 Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS«, t00=0x0001, t01=0x008a}
0x0258…0282 Head {h00=0x0026, h01=0x0050, text=»* CONNECTED TO CPU VIA CHCR-DCR «, t00=0x0001, t01=0x00cc}
0x0282…028c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f6}
0x028c…02ce Head {h00=0x003e, h01=0x0050, text=»* ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT«, t00=0x0001, t01=0x0100}
0x02ce…02ee Head {h00=0x001c, h01=0x0050, text=»* AT REWIND AND UNLOAD«, t00=0x0001, t01=0x0142}
0x02ee…02f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0162}
0x02f8…0336 Head {h00=0x003a, h01=0x0050, text=»* DATA IS RECORDED IN BLOCKS WITH LENGTHS FROM 2 TO «, t00=0x0001, t01=0x016c}
0x0336…0350 Head {h00=0x0016, h01=0x0050, text=»* 256 CHARACTERS«, t00=0x0002, t01=0x001a}
0x0350…035a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0034}
0x035a…0372 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0002, t01=0x003e}
0x0372…037c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0056}
0x037c…0386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0060}
0x0386…03be Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0002, t01=0x006a}
0x03be…03c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a2}
0x03c8…03ee Head {h00=0x0022, h01=0x0050, text=»* T C D A : ACTIVATION PART «, t00=0x0002, t01=0x00ac}
0x03ee…03f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d2}
0x03f8…0420 Head {h00=0x0024, h01=0x0050, text=»* I H T C : INTERRUPT HANDLER «, t00=0x0002, t01=0x00dc}
0x0420…042a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0104}
0x042a…0454 Head {h00=0x0026, h01=0x0050, text=»* R C O V E R : RECOVERY ROUTINE«, t00=0x0002, t01=0x010e}
0x0454…045e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0138}
0x045e…048c Head {h00=0x002a, h01=0x0050, text=»* D W T C 0 1 : DEVICE WORK TABLE 01«, t00=0x0002, t01=0x0142}
0x048c…0496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0170}
0x0496…04c4 Head {h00=0x002a, h01=0x0050, text=»* D W T C 0 2 : DEVICE WORK TABLE 02«, t00=0x0002, t01=0x017a}
0x04c4…04ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0018}
0x04ce…04fe Head {h00=0x002c, h01=0x0050, text=»* AND O R D E R P R O C E S S O R S «, t00=0x0003, t01=0x0022}
0x04fe…0508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0052}
0x0508…0512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005c}
0x0512…0540 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0003, t01=0x0066}
0x0540…054a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0094}
0x054a…056c Head {h00=0x001e, h01=0x0050, text=»* ORDER /00: TEST STATUS«, t00=0x0003, t01=0x009e}
0x056c…0588 Head {h00=0x0018, h01=0x0050, text=»* /02: READ «, t00=0x0003, t01=0x00c0}
0x0588…05a8 Head {h00=0x001c, h01=0x0050, text=»* /05: WRITE «, t00=0x0003, t01=0x00dc}
0x05a8…05c8 Head {h00=0x001c, h01=0x0050, text=»* /06: WRITE «, t00=0x0003, t01=0x00fc}
0x05c8…05ee Head {h00=0x0022, h01=0x0050, text=»* /22: WRITE TAPE MARK«, t00=0x0003, t01=0x011c}
0x05ee…060c Head {h00=0x001a, h01=0x0050, text=»* /26: LOCK«, t00=0x0003, t01=0x0142}
0x060c…062a Head {h00=0x001a, h01=0x0050, text=»* /31: REWIND «, t00=0x0003, t01=0x0160}
0x062a…064c Head {h00=0x001e, h01=0x0050, text=»* /33: REVERSE «, t00=0x0003, t01=0x017e}
0x064c…066c Head {h00=0x001c, h01=0x0050, text=»* /24: ERASE «, t00=0x0004, t01=0x0010}
0x066c…0688 Head {h00=0x0018, h01=0x0050, text=»* /37: LOAD «, t00=0x0004, t01=0x0030}
0x0688…06a6 Head {h00=0x001a, h01=0x0050, text=»* /38: UNLOAD «, t00=0x0004, t01=0x004c}
0x06a6…06b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006a}
0x06b0…06c8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0004, t01=0x0074}
0x06c8…06d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…06dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0096}
0x06dc…070c Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0004, t01=0x00a0}
0x070c…0716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d0}
0x0716…0734 Head {h00=0x001a, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x0004, t01=0x00da}
0x0734…074c Head {h00=0x0014, h01=0x0050, text=»* 1 LEADER «, t00=0x0004, t01=0x00f8}
0x074c…0768 Head {h00=0x0018, h01=0x0050, text=»* 2 BOT MISSING«, t00=0x0004, t01=0x0110}
0x0768…078c Head {h00=0x0020, h01=0x0050, text=»* 3 TAPE MARK DETECTED «, t00=0x0004, t01=0x012c}
0x078c…07ac Head {h00=0x001c, h01=0x0050, text=»* 4 NO DATA/ERASED «, t00=0x0004, t01=0x0150}
0x07ac…07ca Head {h00=0x001a, h01=0x0050, text=»* 5 BOT/EOT HOLE «, t00=0x0004, t01=0x0170}
0x07ca…07ea Head {h00=0x001c, h01=0x0050, text=»* 6 WRITE PROTECTED«, t00=0x0004, t01=0x018e}
0x07ea…0802 Head {h00=0x0014, h01=0x0050, text=»* 7 B-SIDE «, t00=0x0005, t01=0x001e}
0x0802…0822 Head {h00=0x001c, h01=0x0050, text=»* 9 REWIND TIME-OUT«, t00=0x0005, t01=0x0036}
0x0822…0842 Head {h00=0x001c, h01=0x0050, text=»* 11 SEQUENCE ERROR «, t00=0x0005, t01=0x0056}
0x0842…0866 Head {h00=0x0020, h01=0x0050, text=»* -READ SEQUENCE ERROR«, t00=0x0005, t01=0x0076}
0x0866…08a8 Head {h00=0x003e, h01=0x0050, text=»* -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY «, t00=0x0005, t01=0x009a}
0x08a8…08e2 Head {h00=0x0036, h01=0x0050, text=»* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED«, t00=0x0005, t01=0x00dc}
0x08e2…0912 Head {h00=0x002c, h01=0x0050, text=»* -POWER RECOVERY NOT SUCCESSFULL «, t00=0x0005, t01=0x0116}
0x0912…0934 Head {h00=0x001e, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x0005, t01=0x0146}
0x0934…0950 Head {h00=0x0018, h01=0x0050, text=»* 13 CRC ERRROR «, t00=0x0005, t01=0x0168}
0x0950…0972 Head {h00=0x001e, h01=0x0050, text=»* 14 THROUGHPUT ERROR «, t00=0x0005, t01=0x0184}
0x0972…0990 Head {h00=0x001a, h01=0x0050, text=»* 15 NOT OPERABEL «, t00=0x0006, t01=0x0016}
0x0990…099a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0034}
0x099a…09b2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0006, t01=0x003e}
0x09b2…09bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0056}
0x09bc…09c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0060}
0x09c6…09ec Head {h00=0x0022, h01=0x0050, text=»* NORMAL USAGE OF REGISTERS:«, t00=0x0006, t01=0x006a}
0x09ec…09f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0090}
0x09f6…0a1a Head {h00=0x0020, h01=0x0050, text=»* REGISTER A1: RETURN CODE«, t00=0x0006, t01=0x009a}
0x0a1a…0a3e Head {h00=0x0020, h01=0x0050, text=»* A2: SST STATUS «, t00=0x0006, t01=0x00be}
0x0a3e…0a6c Head {h00=0x002a, h01=0x0050, text=»* A3: DWT STATUS AFTER SST «, t00=0x0006, t01=0x00e2}
0x0a6c…0a92 Head {h00=0x0022, h01=0x0050, text=»* A4: RETRY COUNTER«, t00=0x0006, t01=0x0110}
0x0a92…0ad0 Head {h00=0x003a, h01=0x0050, text=»* A5: SEQUENCE CHARACTER AFTER READ/WRITE «, t00=0x0006, t01=0x0136}
0x0ad0…0af4 Head {h00=0x0020, h01=0x0050, text=»* A6: DWT ADDRESS«, t00=0x0006, t01=0x0174}
0x0af4…0b1e Head {h00=0x0026, h01=0x0050, text=»* A8: SUBROUTINE STACK «, t00=0x0007, t01=0x0008}
0x0b1e…0b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0032}
0x0b28…0b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003c}
0x0b32…0b50 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0007, t01=0x0046}
0x0b50…0b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0064}
0x0b5a…0b98 Head {h00=0x003a, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE«, t00=0x0007, t01=0x006e}
0x0b98…0bb6 Head {h00=0x001a, h01=0x0050, text=»* REDUCED TO HANDLE:«, t00=0x0007, t01=0x00ac}
0x0bb6…0bc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ca}
0x0bc0…0be6 Head {h00=0x0022, h01=0x0050, text=»* -ONLY ONE CASSETTE RECORDER«, t00=0x0007, t01=0x00d4}
0x0be6…0c1a Head {h00=0x0030, h01=0x0050, text=»* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED «, t00=0x0007, t01=0x00fa}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012e}
0x0c24…0c3c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0007, t01=0x0138}
0x0c3c…0c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0150}
0x0c46…0c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015a}
0x0c50…0c64 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x0164}
0x0c64…0c78 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x0178}
0x0c78…0c8c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x018c}
0x0c8c…0c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0010}
0x0c96…0ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001a}
0x0ca0…0cc6 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHTC INTERRUPT ADDRESS «, t00=0x0008, t01=0x0024}
0x0cc6…0cf8 Head {h00=0x002e, h01=0x0050, text=» ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01«, t00=0x0008, t01=0x004a}
0x0cf8…0d2a Head {h00=0x002e, h01=0x0050, text=» ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02«, t00=0x0008, t01=0x007c}
0x0d2a…0d52 Head {h00=0x0024, h01=0x0050, text=» ENTRY TCDRON POWER UP RECOVERY «, t00=0x0008, t01=0x00ae}
0x0d52…0d5a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00d6}
0x0d5a…0d62 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00de}
0x0d62…0d6a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00e6}
0x0d6a…0d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ee}
0x0d74…0d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7e…0da6 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x0102}
0x0da6…0dce Head {h00=0x0024, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0008, t01=0x012a}
0x0dce…0df6 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x0152}
0x0df6…0e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017a}
0x0e00…0e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0184}
0x0e0a…0e34 Head {h00=0x0026, h01=0x0050, text=» EXTRN TDISP DISPATCHER MAIN ENTRY«, t00=0x0008, t01=0x018e}
0x0e34…0e6c Head {h00=0x0034, h01=0x0050, text=» EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUBROUTINE«, t00=0x0009, t01=0x0028}
0x0e6c…0e94 Head {h00=0x0024, h01=0x0050, text=» EXTRN SWLXY SWITCH TO LEVEL XY «, t00=0x0009, t01=0x0060}
0x0e94…0ec6 Head {h00=0x002e, h01=0x0050, text=» EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN«, t00=0x0009, t01=0x0088}
0x0ec6…0ef6 Head {h00=0x002c, h01=0x0050, text=» EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE «, t00=0x0009, t01=0x00ba}
0x0ef6…0f28 Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND GO TO DISPATCHER VIA TENDIO «, t00=0x0009, t01=0x00ea}
0x0f28…0f60 Head {h00=0x0034, h01=0x0050, text=» EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY«, t00=0x0009, t01=0x011c}
0x0f60…0f8e Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0009, t01=0x0154}
0x0f8e…0fbc Head {h00=0x002a, h01=0x0050, text=» EXTRN INIFLG INIT FLAG AT PGM LOADING«, t00=0x0009, t01=0x0182}
0x0fbc…0fe8 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH IN ECB«, t00=0x000a, t01=0x0020}
0x0fe8…1014 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH IN ECB«, t00=0x000a, t01=0x004c}
0x1014…103c Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD IN ECB«, t00=0x000a, t01=0x0078}
0x103c…1054 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000a, t01=0x00a0}
0x1054…105e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b8}
0x105e…1068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c2}
0x1068…1082 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000a, t01=0x00cc}
0x1082…109c Head {h00=0x0016, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x000a, t01=0x00e6}
0x109c…10b6 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000a, t01=0x0100}
0x10b6…10c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011a}
0x10c0…10ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0124}
0x10ca…10f4 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTST DWT SOFTWARE STATUS: «, t00=0x000a, t01=0x012e}
0x10f4…1126 Head {h00=0x002e, h01=0x0050, text=»* BIT # 0 - DEVICE AND CONTROLLER READY «, t00=0x000a, t01=0x0158}
0x1126…115a Head {h00=0x0030, h01=0x0050, text=»* BIT #11 - TAPE MARK ENCOUNTERED ON LAST «, t00=0x000a, t01=0x018a}
0x115a…118a Head {h00=0x002c, h01=0x0050, text=»* BIT #12 - REPOSITIONING AT RECOVERY «, t00=0x000b, t01=0x002e}
0x118a…11b0 Head {h00=0x0022, h01=0x0050, text=»* BIT #13 - WRITE PROTECTED «, t00=0x000b, t01=0x005e}
0x11b0…11cc Head {h00=0x0018, h01=0x0050, text=»* BIT #14 - A-SIDE«, t00=0x000b, t01=0x0084}
0x11cc…11fa Head {h00=0x002a, h01=0x0050, text=» BIT #15 - DEVICE LOCKED (OPERABLE) «, t00=0x000b, t01=0x00a0}
0x11fa…1218 Head {h00=0x001a, h01=0x0050, text=» EXTRN DWTOR DWT ORDER«, t00=0x000b, t01=0x00ce}
0x1218…123e Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTECB DWT ECB ADDRESS «, t00=0x000b, t01=0x00ec}
0x123e…1256 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000b, t01=0x0112}
0x1256…1260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012a}
0x1260…126a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0134}
0x126a…128a Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x013e}
0x128a…12aa Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000b, t01=0x015e}
0x12aa…12ca Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000b, t01=0x017e}
0x12ca…12d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000e}
0x12d4…1316 Head {h00=0x003e, h01=0x0050, text=»* THE DRIVER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE «, t00=0x000c, t01=0x0018}
0x1316…133c Head {h00=0x0022, h01=0x0050, text=»* RECORDER BY SETTING X:A=1 «, t00=0x000c, t01=0x005a}
0x133c…1346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1346…1358 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000c, t01=0x008a}
0x1358…136e Head {h00=0x0012, h01=0x0050, text=»DBCAS EQU X:A «, t00=0x000c, t01=0x009c}
0x136e…1378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b2}
0x1378…13b2 Head {h00=0x0036, h01=0x0050, text=»* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED«, t00=0x000c, t01=0x00bc}
0x13b2…13ce Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B=0«, t00=0x000c, t01=0x00f6}
0x13ce…13d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0112}
0x13d8…13ea Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000c, t01=0x011c}
0x13ea…1400 Head {h00=0x0012, h01=0x0050, text=»REVER EQU X:B «, t00=0x000c, t01=0x012e}
0x1400…140a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0144}
0x140a…143c Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000c, t01=0x014e}
0x143c…146a Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000c, t01=0x0180}
0x146a…1474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001e}
0x1474…1488 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000d, t01=0x0028}
0x1488…1492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003c}
0x1492…149c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0046}
0x149c…14d6 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000d, t01=0x0050}
0x14d6…1508 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000d, t01=0x008a}
0x1508…1512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00bc}
0x1512…1526 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x000d, t01=0x00c6}
0x1526…1530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00da}
0x1530…154c Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x000d, t01=0x00e4}
0x154c…1556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0100}
0x1556…156a Head {h00=0x0010, h01=0x0050, text=»X:C EQU 129 «, t00=0x000d, t01=0x010a}
0x156a…1580 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:C«, t00=0x000d, t01=0x011e}
0x1580…158a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0134}
0x158a…15a6 Head {h00=0x0018, h01=0x0050, text=»* MMU DEVICE INDEX«, t00=0x000d, t01=0x013e}
0x15a6…15b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015a}
0x15b0…15c2 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 2 «, t00=0x000d, t01=0x0164}
0x15c2…15d8 Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU X:D«, t00=0x000d, t01=0x0176}
0x15d8…15e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018c}
0x15e2…15fa Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000e, t01=0x0008}
0x15fa…1604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0020}
0x1604…1626 Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS AND WORK AREAS«, t00=0x000e, t01=0x002a}
0x1626…1630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004c}
0x1630…1668 Head {h00=0x0034, h01=0x0050, text=» DATA DVBLEN+DVBLEN DEVICE DEPENDENT BUFFER SIZE«, t00=0x000e, t01=0x0056}
0x1668…168a Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000e, t01=0x008e}
0x168a…16b2 Head {h00=0x0024, h01=0x0050, text=»TCAD DATA TCDA ACTIVATION ENTRY «, t00=0x000e, t01=0x00b0}
0x16b2…16d8 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x00d8}
0x16d8…16f8 Head {h00=0x001c, h01=0x0050, text=» RES 4 SUBROUTINE STACK «, t00=0x000e, t01=0x00fe}
0x16f8…170c Head {h00=0x0010, h01=0x0050, text=»STB EQU *-2 «, t00=0x000e, t01=0x011e}
0x170c…1716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0132}
0x1716…1720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013c}
0x1720…1748 Head {h00=0x0024, h01=0x0050, text=»TAB DATA /0031,/2237,/3802,/0506«, t00=0x000e, t01=0x0146}
0x1748…175c Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x000e, t01=0x016e}
0x175c…1776 Head {h00=0x0016, h01=0x0050, text=» DATA /2633,/24FF «, t00=0x000e, t01=0x0182}
0x1776…1782 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x000c}
0x1782…1798 Head {h00=0x0012, h01=0x0050, text=»TABL EQU *-TAB«, t00=0x000f, t01=0x0018}
0x1798…17b0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x000f, t01=0x002e}
0x17b0…17ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0046}
0x17ba…17c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0050}
0x17c4…17e8 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000f, t01=0x005a}
0x17e8…180c Head {h00=0x0020, h01=0x0050, text=»* CHANNEL UNIT PARAMETERS * «, t00=0x000f, t01=0x007e}
0x180c…1830 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000f, t01=0x00a2}
0x1830…183a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c6}
0x183a…1844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d0}
0x1844…185e Head {h00=0x0016, h01=0x0050, text=»* DEVICE ADDRESS:«, t00=0x000f, t01=0x00da}
0x185e…1868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x1868…187e Head {h00=0x0012, h01=0x0050, text=»CHCRDA EQU /0E«, t00=0x000f, t01=0x00fe}
0x187e…1888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0114}
0x1888…1892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011e}
0x1892…18a8 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x0128}
0x18a8…18be Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000f, t01=0x013e}
0x18be…18d4 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000f, t01=0x0154}
0x18d4…18de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016a}
0x18de…18e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0174}
0x18e8…190e Head {h00=0x0022, h01=0x0050, text=»RTRIES EQU 3 MAX NO OF RETRIES«, t00=0x000f, t01=0x017e}
0x190e…1918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0014}
0x1918…1946 Head {h00=0x002a, h01=0x0050, text=»PSUBS EQU 5 POWER UP BACKSPACE NUMBER «, t00=0x0010, t01=0x001e}
0x1946…1950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004c}
0x1950…1978 Head {h00=0x0024, h01=0x0050, text=»PREAD EQU 4 POWER UP READ NUMBER«, t00=0x0010, t01=0x0056}
0x1978…1982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007e}
0x1982…19bc Head {h00=0x0036, h01=0x0050, text=»PINT EQU 10 POWER UP RECOVERY BLOCK COUNT INTERVAL«, t00=0x0010, t01=0x0088}
0x19bc…19c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c2}
0x19c6…19da Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0010, t01=0x00cc}
0x19da…1a08 Head {h00=0x002a, h01=0x0050, text=»PERAS EQU 6 NO OF ERASE FOR ORDER /24 «, t00=0x0010, t01=0x00e0}
0x1a08…1a14 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x010e}
0x1a14…1a2c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0010, t01=0x011a}
0x1a2c…1a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0132}
0x1a36…1a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013c}
0x1a40…1a54 Head {h00=0x0010, h01=0x0050, text=»* T C D A «, t00=0x0010, t01=0x0146}
0x1a54…1a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015a}
0x1a5e…1aaa Head {h00=0x0048, h01=0x0050, text=»* ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING «, t00=0x0010, t01=0x0164}
0x1aaa…1ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0020}
0x1ab4…1abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002a}
0x1abe…1ad0 Head {h00=0x000e, h01=0x0050, text=»TCDA EQU *«, t00=0x0011, t01=0x0034}
0x1ad0…1ae2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0011, t01=0x0046}
0x1ae2…1af8 Head {h00=0x0012, h01=0x0050, text=» LDK A4,TABL-1«, t00=0x0011, t01=0x0058}
0x1af8…1b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006e}
0x1b02…1b36 Head {h00=0x0030, h01=0x0050, text=»TCDA10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER«, t00=0x0011, t01=0x0078}
0x1b36…1b58 Head {h00=0x001e, h01=0x0050, text=» RF(E) TCDA20 VALID ORDER «, t00=0x0011, t01=0x00ac}
0x1b58…1b6a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0011, t01=0x00ce}
0x1b6a…1b8a Head {h00=0x001c, h01=0x0050, text=» RB(NN) TCDA10 TRY NEXT «, t00=0x0011, t01=0x00e0}
0x1b8a…1b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0100}
0x1b94…1ba8 Head {h00=0x0010, h01=0x0050, text=»TCDA15 EQU *«, t00=0x0011, t01=0x010a}
0x1ba8…1bca Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x0011, t01=0x011e}
0x1bca…1bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0140}
0x1bd4…1c00 Head {h00=0x0028, h01=0x0050, text=»TCDA20 ADR A4,A4 DOUBLE TO GET INDEX«, t00=0x0011, t01=0x014a}
0x1c00…1c20 Head {h00=0x001c, h01=0x0050, text=» ST A4,TCDAX SAVE INDEX «, t00=0x0011, t01=0x0176}
0x1c20…1c4c Head {h00=0x0028, h01=0x0050, text=» LD A5,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0012, t01=0x0008}
0x1c4c…1c78 Head {h00=0x0028, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQUENCE COUNTER ? «, t00=0x0012, t01=0x0034}
0x1c78…1c92 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA21 NO «, t00=0x0012, t01=0x0060}
0x1c92…1cc6 Head {h00=0x0030, h01=0x0050, text=» ADK A5,1 COMPENSATE FOR SEQUENCE CHARACTER «, t00=0x0012, t01=0x007a}
0x1cc6…1cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ae}
0x1cd0…1ce4 Head {h00=0x0010, h01=0x0050, text=»TCDA21 EQU *«, t00=0x0012, t01=0x00b8}
0x1ce4…1d16 Head {h00=0x002e, h01=0x0050, text=» LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS «, t00=0x0012, t01=0x00cc}
0x1d16…1d28 Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0012, t01=0x00fe}
0x1d28…1d42 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDR10 YES«, t00=0x0012, t01=0x0110}
0x1d42…1d4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012a}
0x1d4c…1d5e Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0012, t01=0x0134}
0x1d5e…1d90 Head {h00=0x002e, h01=0x0050, text=» NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE «, t00=0x0012, t01=0x0146}
0x1d90…1dc4 Head {h00=0x0030, h01=0x0050, text=» ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES «, t00=0x0012, t01=0x0178}
0x1dc4…1dde Head {h00=0x0016, h01=0x0050, text=» SUK A7,/37 LOAD ?«, t00=0x0013, t01=0x001c}
0x1dde…1df8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA22 NO «, t00=0x0013, t01=0x0036}
0x1df8…1e20 Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBCW,A8 GET CONTROL WORD«, t00=0x0013, t01=0x0050}
0x1e20…1e32 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0013, t01=0x0078}
0x1e32…1e68 Head {h00=0x0032, h01=0x0050, text=» ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT «, t00=0x0013, t01=0x008a}
0x1e68…1e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c0}
0x1e72…1e9e Head {h00=0x0028, h01=0x0050, text=»TCDA22 LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0013, t01=0x00ca}
0x1e9e…1ed2 Head {h00=0x0030, h01=0x0050, text=» ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES «, t00=0x0013, t01=0x00f6}
0x1ed2…1ee4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,14«, t00=0x0013, t01=0x012a}
0x1ee4…1f00 Head {h00=0x0018, h01=0x0050, text=» RF(Z) TCDA23 WRITE «, t00=0x0013, t01=0x013c}
0x1f00…1f12 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0013, t01=0x0158}
0x1f12…1f32 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) TCDA25 NOT WRITE«, t00=0x0013, t01=0x016a}
0x1f32…1f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018a}
0x1f3c…1f6a (20, 0, 400) Head {h00=0x002a, h01=0x0050, text=»TCDA23 ADK A5,3 CHECK REQUESTED LENGTH«, t00=0x0014, t01=0x0004}
0x1f6a…1f96 Head {h00=0x0028, h01=0x0050, text=» RB(P) TCDA15 LESS THAN 2 CHARACTERS«, t00=0x0014, t01=0x0032}
0x1f96…1faa Head {h00=0x0010, h01=0x0050, text=» ADK A5,254 «, t00=0x0014, t01=0x005e}
0x1faa…1fd8 Head {h00=0x002a, h01=0x0050, text=» RB(N) TCDA15 MORE THAN 256 CHARACTERS«, t00=0x0014, t01=0x0072}
0x1fd8…1fea Head {h00=0x000e, h01=0x0050, text=» SUR A3,A5«, t00=0x0014, t01=0x00a0}
0x1fea…2012 Head {h00=0x0024, h01=0x0050, text=» LD A4,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x0014, t01=0x00b2}
0x2012…202c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDA25 NO «, t00=0x0014, t01=0x00da}
0x202c…205c Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER «, t00=0x0014, t01=0x00f4}
0x205c…2084 Head {h00=0x0024, h01=0x0050, text=» SC A2,255,A3 STORE IT IN BUFFER«, t00=0x0014, t01=0x0124}
0x2084…208e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014c}
0x208e…20ba Head {h00=0x0028, h01=0x0050, text=»TCDA25 ST A6,TCDADT SAVE ACTIVE DWT «, t00=0x0014, t01=0x0156}
0x20ba…20d2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0014, t01=0x0182}
0x20d2…20dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000a}
0x20dc…20e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0014}
0x20e6…2100 Head {h00=0x0016, h01=0x0050, text=»* SELECT RECORDER «, t00=0x0015, t01=0x001e}
0x2100…210a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0038}
0x210a…2114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0042}
0x2114…213e Head {h00=0x0026, h01=0x0050, text=»TCDA30 LDKL A8,STB LOAD STACK BASE«, t00=0x0015, t01=0x004c}
0x213e…2162 Head {h00=0x0020, h01=0x0050, text=» CF A8,SELECT SELECT CASSETT«, t00=0x0015, t01=0x0076}
0x2162…218a Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x0015, t01=0x009a}
0x218a…21a8 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 SAVE STATUS«, t00=0x0015, t01=0x00c2}
0x21a8…21d8 Head {h00=0x002c, h01=0x0050, text=» LDK A4,RTRIES PRESET NUMBER OF RETRIES «, t00=0x0015, t01=0x00e0}
0x21d8…21fe Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET FUNCTION INDEX «, t00=0x0015, t01=0x0110}
0x21fe…2224 Head {h00=0x0022, h01=0x0050, text=»TCDAX EQU *-2 **ORDER INDEX** «, t00=0x0015, t01=0x0136}
0x2224…224e Head {h00=0x0026, h01=0x0050, text=» ABI TCDFUN,A2 BRANCH TO FUNCTION «, t00=0x0015, t01=0x015c}
0x224e…228e Head {h00=0x003c, h01=0x0050, text=»TCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRITE,WRITE«, t00=0x0015, t01=0x0186}
0x228e…22a2 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0016, t01=0x0036}
0x22a2…22c4 Head {h00=0x001e, h01=0x0050, text=» DATA OLOCK,REVERS,ERTAPE «, t00=0x0016, t01=0x004a}
0x22c4…22d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x006c}
0x22d0…22da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0078}
0x22da…22f2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0016, t01=0x0082}
0x22f2…22fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x009a}
0x22fc…2306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a4}
0x2306…2328 Head {h00=0x001e, h01=0x0050, text=»* RECOVERY AFTER POWER ON «, t00=0x0016, t01=0x00ae}
0x2328…2332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d0}
0x2332…233c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00da}
0x233c…2350 Head {h00=0x0010, h01=0x0050, text=»TCDRON EQU *«, t00=0x0016, t01=0x00e4}
0x2350…2366 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0016, t01=0x00f8}
0x2366…2390 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0016, t01=0x010e}
0x2390…239c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0138}
0x239c…23a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0144}
0x23a6…23bc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0016, t01=0x014e}
0x23bc…23e2 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0016, t01=0x0164}
0x23e2…23ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x018a}
0x23ee…23f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0008}
0x23f8…2422 Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG CHECK IF PGM LOADING«, t00=0x0017, t01=0x0012}
0x2422…244a Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) TDISP YES SKIP RECOVERY«, t00=0x0017, t01=0x003c}
0x244a…246e Head {h00=0x0020, h01=0x0050, text=» LDKL A8,STB LOAD STACK BASE«, t00=0x0017, t01=0x0064}
0x246e…2490 Head {h00=0x001e, h01=0x0050, text=» LDKL A6,DWTC01 FIRST DWT «, t00=0x0017, t01=0x0088}
0x2490…24ae Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0017, t01=0x00aa}
0x24ae…24c2 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0017, t01=0x00c8}
0x24c2…24e4 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x0017, t01=0x00dc}
0x24e4…2502 Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0017, t01=0x00fe}
0x2502…250e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x011c}
0x250e…2530 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,0 GET ACTIVE DWT «, t00=0x0017, t01=0x0128}
0x2530…2560 Head {h00=0x002c, h01=0x0050, text=»TCDADT EQU *-2 **ACTIVATED DWT ADDRESS**«, t00=0x0017, t01=0x014a}
0x2560…2588 Head {h00=0x0024, h01=0x0050, text=» RF(Z) ENDIO NO REQUEST GOING ON«, t00=0x0017, t01=0x017a}
0x2588…25b0 Head {h00=0x0024, h01=0x0050, text=» LDR A6,A4 PUT DWT ADDRESS IN A6«, t00=0x0018, t01=0x0012}
0x25b0…25d6 Head {h00=0x0022, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQ. COUNTING«, t00=0x0018, t01=0x003a}
0x25d6…2602 Head {h00=0x0028, h01=0x0050, text=» RB(Z) TCDA30 YES; REACTIVATE ORDER «, t00=0x0018, t01=0x0060}
0x2602…260c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008c}
0x260c…263a Head {h00=0x002a, h01=0x0050, text=»TCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR«, t00=0x0018, t01=0x0096}
0x263a…2652 Head {h00=0x0014, h01=0x0050, text=» ST A3,SEKBYT,A6«, t00=0x0018, t01=0x00c4}
0x2652…2682 Head {h00=0x002c, h01=0x0050, text=» ORK A1,/10 IND SEQUENCE ERROR, BIT #11 «, t00=0x0018, t01=0x00dc}
0x2682…2694 Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0018, t01=0x010c}
0x2694…269e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x011e}
0x269e…26b6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0018, t01=0x0128}
0x26b6…26c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0140}
0x26c0…26d4 Head {h00=0x0010, h01=0x0050, text=»* R E A D «, t00=0x0018, t01=0x014a}
0x26d4…26de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015e}
0x26de…2702 Head {h00=0x0020, h01=0x0050, text=»READ CF A8,READR READ RECORD«, t00=0x0018, t01=0x0168}
0x2702…2724 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0018, t01=0x018c}
0x2724…2736 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0019, t01=0x001e}
0x2736…274a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x0019, t01=0x0030}
0x274a…276a Head {h00=0x001c, h01=0x0050, text=» RF(Z) READ20 STATUS OK «, t00=0x0019, t01=0x0044}
0x276a…2774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0064}
0x2774…279e Head {h00=0x0026, h01=0x0050, text=»READ15 SUK A4,1 RECOVERABLE ERROR «, t00=0x0019, t01=0x006e}
0x279e…27c2 Head {h00=0x0020, h01=0x0050, text=» RF(Z) READ20 3 TRIALS DONE «, t00=0x0019, t01=0x0098}
0x27c2…27ea Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x0019, t01=0x00bc}
0x27ea…2806 Head {h00=0x0018, h01=0x0050, text=» RB READ READ AGAIN«, t00=0x0019, t01=0x00e4}
0x2806…2810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0100}
0x2810…2828 Head {h00=0x0014, h01=0x0050, text=»READ20 LDR A2,A1«, t00=0x0019, t01=0x010a}
0x2828…284c Head {h00=0x0020, h01=0x0050, text=» SLL A2,3 CHECK IF TAPE MARK«, t00=0x0019, t01=0x0122}
0x284c…2870 Head {h00=0x0020, h01=0x0050, text=» RF(NN) READ30 NOT TAPE MARK«, t00=0x0019, t01=0x0146}
0x2870…287a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x016a}
0x287a…28a6 Head {h00=0x0028, h01=0x0050, text=»READ25 ORK A3,/10 INDICATE TAPE MARK«, t00=0x0019, t01=0x0174}
0x28a6…28ce Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 RESET EFFECTIVE LENGTH«, t00=0x001a, t01=0x0010}
0x28ce…28e2 Head {h00=0x0010, h01=0x0050, text=» RF READ35 «, t00=0x001a, t01=0x0038}
0x28e2…28ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x004c}
0x28ec…2904 Head {h00=0x0014, h01=0x0050, text=»READ30 LDR A2,A1«, t00=0x001a, t01=0x0056}
0x2904…292c Head {h00=0x0024, h01=0x0050, text=» LDKL A7,0 GET EFFECTIVE LENGTH «, t00=0x001a, t01=0x006e}
0x292c…2958 Head {h00=0x0028, h01=0x0050, text=»EFFLEN EQU *-2 **EFFECTIVE LENGTH** «, t00=0x001a, t01=0x0096}
0x2958…297c Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/801 NO DATA,NOT OP«, t00=0x001a, t01=0x00c2}
0x297c…2992 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) READ32«, t00=0x001a, t01=0x00e6}
0x2992…29a4 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x001a, t01=0x00fc}
0x29a4…29ca Head {h00=0x0022, h01=0x0050, text=» RF(NZ) READ32 NOT EQUAL ZERO «, t00=0x001a, t01=0x010e}
0x29ca…29ee Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 THIRD TRIAL DONE «, t00=0x001a, t01=0x0134}
0x29ee…2a1e Head {h00=0x002c, h01=0x0050, text=» RB(NZ) READ15 NO; READ SAME BLOCK AGAIN«, t00=0x001a, t01=0x0158}
0x2a1e…2a48 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 SET NO OF RETRIES TO ONE«, t00=0x001a, t01=0x0188}
0x2a48…2a68 Head {h00=0x001c, h01=0x0050, text=» RB READ TRY NEXT BLOCK«, t00=0x001b, t01=0x0022}
0x2a68…2a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0042}
0x2a72…2a86 Head {h00=0x0010, h01=0x0050, text=»READ32 EQU *«, t00=0x001b, t01=0x004c}
0x2a86…2aa8 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/2F NOT TAPE MARK «, t00=0x001b, t01=0x0060}
0x2aa8…2ad0 Head {h00=0x0024, h01=0x0050, text=» LD A2,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x001b, t01=0x0082}
0x2ad0…2aea Head {h00=0x0016, h01=0x0050, text=» RF(NE) READ35 NO «, t00=0x001b, t01=0x00aa}
0x2aea…2b1a Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 DECREMENT EFF. LENGTH COUNTER «, t00=0x001b, t01=0x00c4}
0x2b1a…2b4c Head {h00=0x002e, h01=0x0050, text=» CC A5,DWTBKC+1,A6 CHECK SEQUENCE COUNTER «, t00=0x001b, t01=0x00f4}
0x2b4c…2b64 Head {h00=0x0014, h01=0x0050, text=» RF(E) READ35 OK«, t00=0x001b, t01=0x0126}
0x2b64…2b86 Head {h00=0x001e, h01=0x0050, text=» ORK A1,/10 SEQUENCE ERROR«, t00=0x001b, t01=0x013e}
0x2b86…2b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0160}
0x2b90…2bc6 Head {h00=0x0032, h01=0x0050, text=»READ35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER«, t00=0x001b, t01=0x016a}
0x2bc6…2bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0010}
0x2bd0…2bfe Head {h00=0x002a, h01=0x0050, text=»READ40 LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x001c, t01=0x001a}
0x2bfe…2c2c Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH «, t00=0x001c, t01=0x0048}
0x2c2c…2c42 Head {h00=0x0012, h01=0x0050, text=» LDK A2,RTRIES«, t00=0x001c, t01=0x0076}
0x2c42…2c74 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 GET NUMBER OF RETRIES PERFORMED«, t00=0x001c, t01=0x008c}
0x2c74…2ca4 Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBCW,A8 SAVE IT IN CONTROL WORD «, t00=0x001c, t01=0x00be}
0x2ca4…2cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ee}
0x2cae…2cc2 Head {h00=0x0010, h01=0x0050, text=»READ50 EQU *«, t00=0x001c, t01=0x00f8}
0x2cc2…2ce6 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTST,A6 SAVE STATUS «, t00=0x001c, t01=0x010c}
0x2ce6…2cfe Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001c, t01=0x0130}
0x2cfe…2d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0148}
0x2d08…2d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0152}
0x2d12…2d30 Head {h00=0x001a, h01=0x0050, text=»* END OF I/O OPERATION«, t00=0x001c, t01=0x015c}
0x2d30…2d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x017a}
0x2d3a…2d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0184}
0x2d44…2d58 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x001c, t01=0x018e}
0x2d58…2d84 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/400 BOT/EOT RETURN CODE =1«, t00=0x001d, t01=0x0012}
0x2d84…2d9a Head {h00=0x0012, h01=0x0050, text=» TM A2,A1 =1 «, t00=0x001d, t01=0x003e}
0x2d9a…2dbe Head {h00=0x0020, h01=0x0050, text=» RF(Z) ENDIO2 NOT BOT/EOT =1«, t00=0x001d, t01=0x0054}
0x2dbe…2de8 Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/BFFF RESET LEADER BIT =1«, t00=0x001d, t01=0x0078}
0x2de8…2e00 Head {h00=0x0014, h01=0x0050, text=»ENDIO2 EQU * =1«, t00=0x001d, t01=0x00a2}
0x2e00…2e2c Head {h00=0x0028, h01=0x0050, text=» CM TCDADT INDICATE NONE ACTIVE DWT «, t00=0x001d, t01=0x00ba}
0x2e2c…2e40 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x001d, t01=0x00e6}
0x2e40…2e68 Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x001d, t01=0x00fa}
0x2e68…2e8a Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x001d, t01=0x0122}
0x2e8a…2eb8 Head {h00=0x002a, h01=0x0050, text=» CF A15,TENDIO PERFORM TENDIO FOR THIS«, t00=0x001d, t01=0x0144}
0x2eb8…2eda Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET FIRST DWT «, t00=0x001d, t01=0x0172}
0x2eda…2ee6 (30, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0004}
0x2ee6…2f0e Head {h00=0x0024, h01=0x0050, text=» CF A15,SWLXY SWITCH TO LEVEL XY«, t00=0x001e, t01=0x0010}
0x2f0e…2f3e Head {h00=0x002c, h01=0x0050, text=» ABL DISEND GO TO DISPATCHER VIA TENDIO «, t00=0x001e, t01=0x0038}
0x2f3e…2f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0068}
0x2f48…2f60 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001e, t01=0x0072}
0x2f60…2f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x008a}
0x2f6a…2f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0094}
0x2f74…2f90 Head {h00=0x0018, h01=0x0050, text=»* WRITE TAPE MARK «, t00=0x001e, t01=0x009e}
0x2f90…2f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ba}
0x2f9a…2fb0 Head {h00=0x0012, h01=0x0050, text=»TM LDKL A3,-1 «, t00=0x001e, t01=0x00c4}
0x2fb0…2fc6 Head {h00=0x0012, h01=0x0050, text=» ST A3,HELPME «, t00=0x001e, t01=0x00da}
0x2fc6…2fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f0}
0x2fd0…2fe6 Head {h00=0x0012, h01=0x0050, text=»* W R I T E «, t00=0x001e, t01=0x00fa}
0x2fe6…2ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0110}
0x2ff0…300c Head {h00=0x0018, h01=0x0050, text=»* WRITE ONE BLOCK «, t00=0x001e, t01=0x011a}
0x300c…3016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0136}
0x3016…3020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0140}
0x3020…3050 Head {h00=0x002c, h01=0x0050, text=»WRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER «, t00=0x001e, t01=0x014a}
0x3050…3076 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) WRIT10 NOT FIRST BLOCK«, t00=0x001e, t01=0x017a}
0x3076…30a0 Head {h00=0x0026, h01=0x0050, text=» CF A8,ERASE MAKE ONE BLANK BLOCK «, t00=0x001f, t01=0x0010}
0x30a0…30ce Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK«, t00=0x001f, t01=0x003a}
0x30ce…30d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0068}
0x30d8…3100 Head {h00=0x0024, h01=0x0050, text=»WRIT10 CF A8,WRITER WRITE RECORD«, t00=0x001f, t01=0x0072}
0x3100…3122 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT-BIT«, t00=0x001f, t01=0x009a}
0x3122…3134 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001f, t01=0x00bc}
0x3134…3148 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x001f, t01=0x00ce}
0x3148…3168 Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRIT30 STATUS OK «, t00=0x001f, t01=0x00e2}
0x3168…3172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0102}
0x3172…31a2 Head {h00=0x002c, h01=0x0050, text=»WRIT12 ST A4,WRITA4 STORE RETRY COUNTER «, t00=0x001f, t01=0x010c}
0x31a2…31ba Head {h00=0x0014, h01=0x0050, text=» LD A2,SEKBYT,A6«, t00=0x001f, t01=0x013c}
0x31ba…31de Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRIT15 SEQ. COUNTING «, t00=0x001f, t01=0x0154}
0x31de…31e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0178}
0x31e8…3200 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x001f, t01=0x0182}
0x3200…320a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x000a}
0x320a…3214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0014}
0x3214…323c Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x0020, t01=0x001e}
0x323c…3258 Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ONE ERASE «, t00=0x0020, t01=0x0046}
0x3258…326a Head {h00=0x000e, h01=0x0050, text=» RF WRIT20«, t00=0x0020, t01=0x0062}
0x326a…3274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0074}
0x3274…329c Head {h00=0x0024, h01=0x0050, text=»WRIT15 CF A8,REPOS POSITION TAPE«, t00=0x0020, t01=0x007e}
0x329c…32c6 Head {h00=0x0026, h01=0x0050, text=» CM SEKBYT,A6 RESET SEQ. INDICATOR«, t00=0x0020, t01=0x00a6}
0x32c6…32e6 Head {h00=0x001c, h01=0x0050, text=» LD A4,WRITA4 GET NO ...«, t00=0x0020, t01=0x00d0}
0x32e6…32f8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0020, t01=0x00f0}
0x32f8…3322 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) WRIT40 POSITIONING NOT OK «, t00=0x0020, t01=0x0102}
0x3322…3346 Head {h00=0x0020, h01=0x0050, text=» SUK A4,RTRIES ... OF ERASE «, t00=0x0020, t01=0x012c}
0x3346…3350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0150}
0x3350…3370 Head {h00=0x001c, h01=0x0050, text=»WRIT20 CF A8,ERASE ERASE«, t00=0x0020, t01=0x015a}
0x3370…338c Head {h00=0x0018, h01=0x0050, text=» ORR A1,A2 SAVE EOT «, t00=0x0020, t01=0x017a}
0x338c…33aa Head {h00=0x001a, h01=0x0050, text=» ADK A4,1 COUNT ERASE «, t00=0x0021, t01=0x0008}
0x33aa…33ca Head {h00=0x001c, h01=0x0050, text=» RB(NG) WRIT20 NOT READY«, t00=0x0021, t01=0x0026}
0x33ca…33ee Head {h00=0x0020, h01=0x0050, text=» LDKL A4,0 GET RETRY COUNTER«, t00=0x0021, t01=0x0046}
0x33ee…3416 Head {h00=0x0024, h01=0x0050, text=»WRITA4 EQU *-2 **RETRY COUNTER**«, t00=0x0021, t01=0x006a}
0x3416…3428 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0021, t01=0x0092}
0x3428…3448 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) WRIT10 TRY AGAIN«, t00=0x0021, t01=0x00a4}
0x3448…347a Head {h00=0x002e, h01=0x0050, text=» ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 «, t00=0x0021, t01=0x00c4}
0x347a…3494 Head {h00=0x0016, h01=0x0050, text=» RF WRIT50 GIVE UP«, t00=0x0021, t01=0x00f6}
0x3494…349e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0110}
0x349e…34b6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0021, t01=0x011a}
0x34b6…34c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0132}
0x34c0…34ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013c}
0x34ca…34ee Head {h00=0x0020, h01=0x0050, text=»WRIT30 LD A2,TCDAX GET ORDER«, t00=0x0021, t01=0x0146}
0x34ee…3512 Head {h00=0x0020, h01=0x0050, text=» SUK A2,4 TAPE MARK WRITTEN?«, t00=0x0021, t01=0x016a}
0x3512…352c Head {h00=0x0016, h01=0x0050, text=» RB(NZ) READ30 NO «, t00=0x0021, t01=0x018e}
0x352c…3548 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A1 CHECK IF «, t00=0x0022, t01=0x0018}
0x3548…3566 Head {h00=0x001a, h01=0x0050, text=» SLL A2,3 TAPE MARK OK«, t00=0x0022, t01=0x0034}
0x3566…3580 Head {h00=0x0016, h01=0x0050, text=» RB(N) READ25 YES «, t00=0x0022, t01=0x0052}
0x3580…3596 Head {h00=0x0012, h01=0x0050, text=» RB WRIT12 NO «, t00=0x0022, t01=0x006c}
0x3596…35a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0082}
0x35a0…35de Head {h00=0x003a, h01=0x0050, text=»WRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENCE ERROR «, t00=0x0022, t01=0x008c}
0x35de…35e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ca}
0x35e8…3618 Head {h00=0x002c, h01=0x0050, text=»WRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH«, t00=0x0022, t01=0x00d4}
0x3618…362a Head {h00=0x000e, h01=0x0050, text=» RB READ40«, t00=0x0022, t01=0x0104}
0x362a…3634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0116}
0x3634…364c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0022, t01=0x0120}
0x364c…3656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0138}
0x3656…3660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0142}
0x3660…3674 Head {h00=0x0010, h01=0x0050, text=»* L O A D «, t00=0x0022, t01=0x014c}
0x3674…367e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0160}
0x367e…3698 Head {h00=0x0016, h01=0x0050, text=»* LOAD CASSETTE «, t00=0x0022, t01=0x016a}
0x3698…36a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0184}
0x36a2…36ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x018e}
0x36ac…36d2 Head {h00=0x0022, h01=0x0050, text=»LOAD CF A8,LOCK LOCK CASSETTE «, t00=0x0023, t01=0x0008}
0x36d2…36f8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) REWIND CASSETTE LOCKED «, t00=0x0023, t01=0x002e}
0x36f8…371c Head {h00=0x0020, h01=0x0050, text=»LOAD10 LDR A1,A2 NO CASSETTE«, t00=0x0023, t01=0x0054}
0x371c…372e Head {h00=0x000e, h01=0x0050, text=» RB READ50«, t00=0x0023, t01=0x0078}
0x372e…3738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x008a}
0x3738…3742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0094}
0x3742…375a Head {h00=0x0014, h01=0x0050, text=»* R E W I N D «, t00=0x0023, t01=0x009e}
0x375a…3764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b6}
0x3764…377c Head {h00=0x0014, h01=0x0050, text=»* REWIND TAPE «, t00=0x0023, t01=0x00c0}
0x377c…3786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d8}
0x3786…3790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e2}
0x3790…37c0 Head {h00=0x002c, h01=0x0050, text=»REWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER «, t00=0x0023, t01=0x00ec}
0x37c0…37ec Head {h00=0x0028, h01=0x0050, text=» CF A8,SBOT SEARCH BEGINNING OF TAPE«, t00=0x0023, t01=0x011c}
0x37ec…3800 Head {h00=0x0010, h01=0x0050, text=»REW010 EQU *«, t00=0x0023, t01=0x0148}
0x3800…3812 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0023, t01=0x015c}
0x3812…3824 Head {h00=0x000e, h01=0x0050, text=» SRL A3,7 «, t00=0x0023, t01=0x016e}
0x3824…3836 Head {h00=0x000e, h01=0x0050, text=» ANK A3,6 «, t00=0x0023, t01=0x0180}
0x3836…3856 (36, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ORK A3,1 PREPARE STATUS«, t00=0x0024, t01=0x0004}
0x3856…3868 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0024, t01=0x0024}
0x3868…3872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0036}
0x3872…388a Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0024, t01=0x0040}
0x388a…3894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0058}
0x3894…389e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0062}
0x389e…38b6 Head {h00=0x0014, h01=0x0050, text=»* U N L O A D «, t00=0x0024, t01=0x006c}
0x38b6…38c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0084}
0x38c0…38dc Head {h00=0x0018, h01=0x0050, text=»* UNLOAD CASSETTE «, t00=0x0024, t01=0x008e}
0x38dc…38e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00aa}
0x38e6…38f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b4}
0x38f0…3918 Head {h00=0x0024, h01=0x0050, text=»UNLOAD CM DWTST,A6 RESET STATUS «, t00=0x0024, t01=0x00be}
0x3918…393c Head {h00=0x0020, h01=0x0050, text=» CF A8,UNLD UNLOAD CASSETTE «, t00=0x0024, t01=0x00e6}
0x393c…3966 Head {h00=0x0026, h01=0x0050, text=»UNLO10 LDR A1,A2 SAVE RETURN CODE «, t00=0x0024, t01=0x010a}
0x3966…3978 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x0024, t01=0x0134}
0x3978…398c Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0024, t01=0x0146}
0x398c…3996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015a}
0x3996…39a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0164}
0x39a0…39b8 Head {h00=0x0014, h01=0x0050, text=»* R E V E R S «, t00=0x0024, t01=0x016e}
0x39b8…39c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0186}
0x39c2…39e2 Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x0024, t01=0x0190}
0x39e2…39ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0020}
0x39ec…39f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002a}
0x39f6…3a1a Head {h00=0x0020, h01=0x0050, text=»REVERS CF A8,BKSP BACKSPACE «, t00=0x0025, t01=0x0034}
0x3a1a…3a42 Head {h00=0x0024, h01=0x0050, text=» LDKL A4,-1 DECREMENT BLOCK SEQ.«, t00=0x0025, t01=0x0058}
0x3a42…3a6a Head {h00=0x0024, h01=0x0050, text=» ADS A4,DWTBKC,A6 COUNTER BY ONE«, t00=0x0025, t01=0x0080}
0x3a6a…3a7c Head {h00=0x000e, h01=0x0050, text=» RB UNLO10«, t00=0x0025, t01=0x00a8}
0x3a7c…3a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ba}
0x3a86…3a9e Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0025, t01=0x00c4}
0x3a9e…3aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00dc}
0x3aa8…3ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00e6}
0x3ab2…3aca Head {h00=0x0014, h01=0x0050, text=»* E R T A P E «, t00=0x0025, t01=0x00f0}
0x3aca…3ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0108}
0x3ad4…3aea Head {h00=0x0012, h01=0x0050, text=»* ERASE TAPE«, t00=0x0025, t01=0x0112}
0x3aea…3af4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0128}
0x3af4…3afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0132}
0x3afe…3b2a Head {h00=0x0028, h01=0x0050, text=»ERTAPE LDK A4,PERAS SET NO OF ERASE «, t00=0x0025, t01=0x013c}
0x3b2a…3b54 Head {h00=0x0026, h01=0x0050, text=»ERT10 CF A8,ERASE ERASE ONE BLOCK «, t00=0x0025, t01=0x0168}
0x3b54…3b76 (38, 0, 398) Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0026, t01=0x0004}
0x3b76…3b94 Head {h00=0x001a, h01=0x0050, text=» ORR A1,A2 RETURN CODE«, t00=0x0026, t01=0x0026}
0x3b94…3ba6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0026, t01=0x0044}
0x3ba6…3bcc Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ERT10 ERASE NOT READY «, t00=0x0026, t01=0x0056}
0x3bcc…3bde Head {h00=0x000e, h01=0x0050, text=» RB READ50«, t00=0x0026, t01=0x007c}
0x3bde…3be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008e}
0x3be8…3bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0098}
0x3bf2…3c08 Head {h00=0x0012, h01=0x0050, text=»* O L O C K «, t00=0x0026, t01=0x00a2}
0x3c08…3c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b8}
0x3c12…3c32 Head {h00=0x001c, h01=0x0050, text=»* ORDER LOCK CASSETTE «, t00=0x0026, t01=0x00c2}
0x3c32…3c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e2}
0x3c3c…3c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ec}
0x3c46…3c6c Head {h00=0x0022, h01=0x0050, text=»OLOCK CF A8,LOCK LOCK CASSETTE«, t00=0x0026, t01=0x00f6}
0x3c6c…3c92 Head {h00=0x0022, h01=0x0050, text=» RB(Z) REW010 CASSETTE LOCKED «, t00=0x0026, t01=0x011c}
0x3c92…3ca4 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0026, t01=0x0142}
0x3ca4…3cb0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0154}
0x3cb0…3cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0160}
0x3cba…3cd2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0026, t01=0x016a}
0x3cd2…3cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0182}
0x3cdc…3ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x018c}
0x3ce6…3d02 Head {h00=0x0018, h01=0x0050, text=»* CASSETTE COMMANDS «, t00=0x0027, t01=0x0008}
0x3d02…3d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0024}
0x3d0c…3d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002e}
0x3d16…3d26 Head {h00=0x000c, h01=0x0050, text=»* SELECT«, t00=0x0027, t01=0x0038}
0x3d26…3d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0048}
0x3d30…3d44 Head {h00=0x0010, h01=0x0050, text=»SELECT EQU *«, t00=0x0027, t01=0x0052}
0x3d44…3d62 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/FF LOAD MASK «, t00=0x0027, t01=0x0066}
0x3d62…3d88 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A6 SET DWT BUSY «, t00=0x0027, t01=0x0084}
0x3d88…3d9c Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=1«, t00=0x0027, t01=0x00aa}
0x3d9c…3dba Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SELECT CODE «, t00=0x0027, t01=0x00be}
0x3dba…3dc6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00dc}
0x3dc6…3dda Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0027, t01=0x00e8}
0x3dda…3dfc Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 GET OTHER DWT «, t00=0x0027, t01=0x00fc}
0x3dfc…3e22 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A3 SET DWT BUSY «, t00=0x0027, t01=0x011e}
0x3e22…3e44 Head {h00=0x001e, h01=0x0050, text=» ANK A3,1 GET SELECT CODE «, t00=0x0027, t01=0x0144}
0x3e44…3e50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0166}
0x3e50…3e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0172}
0x3e5a…3e82 Head {h00=0x0024, h01=0x0050, text=»CRCOM CIO A3,1,CHCRDA CIO START «, t00=0x0027, t01=0x017c}
0x3e82…3ea2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) EXIT ACCEPTED =2 «, t00=0x0028, t01=0x0014}
0x3ea2…3eba Head {h00=0x0014, h01=0x0050, text=» LDK A1,1 ERROR «, t00=0x0028, t01=0x0034}
0x3eba…3ecc Head {h00=0x000e, h01=0x0050, text=» ABL ENDIO«, t00=0x0028, t01=0x004c}
0x3ecc…3ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x005e}
0x3ed6…3ef8 Head {h00=0x001e, h01=0x0050, text=»* READ SEQUENCE CHAR TO A5«, t00=0x0028, t01=0x0068}
0x3ef8…3f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x008a}
0x3f02…3f16 Head {h00=0x0010, h01=0x0050, text=»READSQ EQU *«, t00=0x0028, t01=0x0094}
0x3f16…3f28 Head {h00=0x000e, h01=0x0050, text=» LDK A3,/A«, t00=0x0028, t01=0x00a8}
0x3f28…3f58 Head {h00=0x002c, h01=0x0050, text=» ST A3,REQLEN MAKE REQUESTED LENGTH > 0 «, t00=0x0028, t01=0x00ba}
0x3f58…3f6a Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0028, t01=0x00ea}
0x3f6a…3f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00fc}
0x3f74…3f8c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0028, t01=0x0106}
0x3f8c…3f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x011e}
0x3f96…3fb0 Head {h00=0x0016, h01=0x0050, text=»* READ ONE RECORD «, t00=0x0028, t01=0x0128}
0x3fb0…3fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0142}
0x3fba…3fd2 Head {h00=0x0014, h01=0x0050, text=»READR LDK A3,/A «, t00=0x0028, t01=0x014c}
0x3fd2…4002 Head {h00=0x002c, h01=0x0050, text=»READR1 CM EFFLEN RESET EFFECTIVE LENGTH «, t00=0x0028, t01=0x0164}
0x4002…4028 (41, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET BUFFER ADDRESS «, t00=0x0029, t01=0x0004}
0x4028…404a Head {h00=0x001e, h01=0x0050, text=»BUFADR EQU *-2 **BUFADR** «, t00=0x0029, t01=0x002a}
0x404a…405e Head {h00=0x0010, h01=0x0050, text=» ST A2,TCDBA«, t00=0x0029, t01=0x004c}
0x405e…4086 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,0 GET REQUESTED LENGTH «, t00=0x0029, t01=0x0060}
0x4086…40a8 Head {h00=0x001e, h01=0x0050, text=»HELPME EQU *-2 **HELPME** «, t00=0x0029, t01=0x0088}
0x40a8…40be Head {h00=0x0012, h01=0x0050, text=» ST A2,REQLEN «, t00=0x0029, t01=0x00aa}
0x40be…40d0 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0029, t01=0x00c0}
0x40d0…40da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d2}
0x40da…40f4 Head {h00=0x0016, h01=0x0050, text=»* WRITE ONE RECORD«, t00=0x0029, t01=0x00dc}
0x40f4…40fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00f6}
0x40fe…4116 Head {h00=0x0014, h01=0x0050, text=»WRITER LDK A3,/B«, t00=0x0029, t01=0x0100}
0x4116…4128 Head {h00=0x000e, h01=0x0050, text=» RB READR1«, t00=0x0029, t01=0x0118}
0x4128…4132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x012a}
0x4132…414c Head {h00=0x0016, h01=0x0050, text=»* ERASE ONE BLOCK «, t00=0x0029, t01=0x0134}
0x414c…4156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x014e}
0x4156…416c Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,9«, t00=0x0029, t01=0x0158}
0x416c…417e Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0029, t01=0x016e}
0x417e…4188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0180}
0x4188…41a0 Head {h00=0x0014, h01=0x0050, text=»* LOCK CASSETTE «, t00=0x0029, t01=0x018a}
0x41a0…41aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0012}
0x41aa…41c0 Head {h00=0x0012, h01=0x0050, text=»LOCK LDK A3,2 «, t00=0x002a, t01=0x001c}
0x41c0…41d2 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002a, t01=0x0032}
0x41d2…41dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0044}
0x41dc…41f4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002a, t01=0x004e}
0x41f4…41fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0066}
0x41fe…4220 Head {h00=0x001e, h01=0x0050, text=»* SEARCH BEGINNING OF TAPE«, t00=0x002a, t01=0x0070}
0x4220…422a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0092}
0x422a…4240 Head {h00=0x0012, h01=0x0050, text=»SBOT LDK A3,8 «, t00=0x002a, t01=0x009c}
0x4240…4252 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002a, t01=0x00b2}
0x4252…425c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c4}
0x425c…4286 Head {h00=0x0026, h01=0x0050, text=»* REWIND TAPE AND UNLOCK CASSETTE «, t00=0x002a, t01=0x00ce}
0x4286…4290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f8}
0x4290…42a6 Head {h00=0x0012, h01=0x0050, text=»UNLD LDK A3,/F«, t00=0x002a, t01=0x0102}
0x42a6…42b8 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002a, t01=0x0118}
0x42b8…42c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012a}
0x42c2…42e0 Head {h00=0x001a, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x002a, t01=0x0134}
0x42e0…42ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0152}
0x42ea…4300 Head {h00=0x0012, h01=0x0050, text=»BKSP LDK A3,/E«, t00=0x002a, t01=0x015c}
0x4300…4312 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x002a, t01=0x0172}
0x4312…431c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0184}
0x431c…4334 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002a, t01=0x018e}
0x4334…433e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0016}
0x433e…4348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0020}
0x4348…435c Head {h00=0x0010, h01=0x0050, text=»* I H T C «, t00=0x002b, t01=0x002a}
0x435c…4366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x003e}
0x4366…439a Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER : PROCESS OF INTERRUPT«, t00=0x002b, t01=0x0048}
0x439a…43a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x007c}
0x43a4…43ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0086}
0x43ae…43c0 Head {h00=0x000e, h01=0x0050, text=»IHTC EQU *«, t00=0x002b, t01=0x0090}
0x43c0…43e8 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x002b, t01=0x00a2}
0x43e8…440c Head {h00=0x0020, h01=0x0050, text=» STR A5,A15 SAVE A5 ON STACK«, t00=0x002b, t01=0x00ca}
0x440c…4422 Head {h00=0x0012, h01=0x0050, text=» SST A5,CHCRDA«, t00=0x002b, t01=0x00ee}
0x4422…4442 Head {h00=0x001c, h01=0x0050, text=» RF(A) SST SST ACCEPTED «, t00=0x002b, t01=0x0104}
0x4442…4466 Head {h00=0x0020, h01=0x0050, text=» IM REQLEN INCREMENT COUNTER«, t00=0x002b, t01=0x0124}
0x4466…447c Head {h00=0x0012, h01=0x0050, text=» RF(Z) CIOHLT «, t00=0x002b, t01=0x0148}
0x447c…44a6 Head {h00=0x0026, h01=0x0050, text=» RF(P) INRSQ GET SEQUENCE COUNTER «, t00=0x002b, t01=0x015e}
0x44a6…44ca Head {h00=0x0020, h01=0x0050, text=» STR A3,A15 SAVE A3 ON STACK«, t00=0x002b, t01=0x0188}
0x44ca…44f0 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,0 GET BUFFER ADDRESS «, t00=0x002c, t01=0x001c}
0x44f0…4518 Head {h00=0x0024, h01=0x0050, text=»TCDBA EQU *-2 **BUFFER ADDRESS**«, t00=0x002c, t01=0x0042}
0x4518…4542 Head {h00=0x0026, h01=0x0050, text=» IM TCDBA INCREMENT BUFFER ADDRESS«, t00=0x002c, t01=0x006a}
0x4542…457a Head {h00=0x0034, h01=0x0050, text=» LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE «, t00=0x002c, t01=0x0094}
0x457a…458c Head {h00=0x000e, h01=0x0050, text=» SUK A5,10«, t00=0x002c, t01=0x00cc}
0x458c…45a8 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IHTC05 WRITE«, t00=0x002c, t01=0x00de}
0x45a8…45b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00fa}
0x45b2…45dc Head {h00=0x0026, h01=0x0050, text=»IHTC02 INR A5,0,CHCRDA READ CHAR. «, t00=0x002c, t01=0x0104}
0x45dc…4608 Head {h00=0x0028, h01=0x0050, text=» SCR A5,A3 STORE CHARACTER IN BUFFER«, t00=0x002c, t01=0x012e}
0x4608…461a Head {h00=0x000e, h01=0x0050, text=» RF EXIT2 «, t00=0x002c, t01=0x015a}
0x461a…4624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x016c}
0x4624…4638 Head {h00=0x0010, h01=0x0050, text=»IHTC05 EQU *«, t00=0x002c, t01=0x0176}
0x4638…4660 Head {h00=0x0024, h01=0x0050, text=» LCR A5,A3 GET CHAR FROM BUFFER «, t00=0x002c, t01=0x018a}
0x4660…4682 Head {h00=0x001e, h01=0x0050, text=» OTR A5,0,CHCRDA OUTPUT IT«, t00=0x002d, t01=0x0022}
0x4682…469a Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002d, t01=0x0044}
0x469a…46a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005c}
0x46a4…46ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0066}
0x46ae…46c8 Head {h00=0x0016, h01=0x0050, text=»EXIT2 ST A5,TCDA5 «, t00=0x002d, t01=0x0070}
0x46c8…46f6 Head {h00=0x002a, h01=0x0050, text=» IM EFFLEN INCREMENT EFFECTIVE LENGTH«, t00=0x002d, t01=0x008a}
0x46f6…4728 Head {h00=0x002e, h01=0x0050, text=» LDR* A3,A15 RESTORE A3 AND A5 FROM STACK «, t00=0x002d, t01=0x00b8}
0x4728…4732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ea}
0x4732…474c Head {h00=0x0016, h01=0x0050, text=»EXIT3 LDR* A5,A15 «, t00=0x002d, t01=0x00f4}
0x474c…475c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002d, t01=0x010e}
0x475c…4766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x011e}
0x4766…4794 Head {h00=0x002a, h01=0x0050, text=»INRSQ INR A5,0,CHCRDA READ CHAR TO A5 «, t00=0x002d, t01=0x0128}
0x4794…47a8 Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x002d, t01=0x0156}
0x47a8…47ba Head {h00=0x000e, h01=0x0050, text=» RB EXIT3 «, t00=0x002d, t01=0x016a}
0x47ba…47c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x017c}
0x47c4…47e8 Head {h00=0x0020, h01=0x0050, text=»SST ST A5,TCDA2 SAVE STATUS «, t00=0x002d, t01=0x0186}
0x47e8…4808 Head {h00=0x001c, h01=0x0050, text=» LDR* A5,A15 RESTORE A5 «, t00=0x002e, t01=0x001a}
0x4808…481e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002e, t01=0x003a}
0x481e…4848 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x002e, t01=0x0050}
0x4848…4854 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x007a}
0x4854…485e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0086}
0x485e…4874 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002e, t01=0x0090}
0x4874…489a Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x002e, t01=0x00a6}
0x489a…48a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00cc}
0x48a6…48b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00d8}
0x48b0…48c2 Head {h00=0x000e, h01=0x0050, text=» LDKL A1,0«, t00=0x002e, t01=0x00e2}
0x48c2…48d8 Head {h00=0x0012, h01=0x0050, text=»TCDA1 EQU *-2 «, t00=0x002e, t01=0x00f4}
0x48d8…48ea Head {h00=0x000e, h01=0x0050, text=» LDKL A4,0«, t00=0x002e, t01=0x010a}
0x48ea…4900 Head {h00=0x0012, h01=0x0050, text=»TCDA4 EQU *-2 «, t00=0x002e, t01=0x011c}
0x4900…4912 Head {h00=0x000e, h01=0x0050, text=» LDKL A5,0«, t00=0x002e, t01=0x0132}
0x4912…4928 Head {h00=0x0012, h01=0x0050, text=»TCDA5 EQU *-2 «, t00=0x002e, t01=0x0144}
0x4928…493a Head {h00=0x000e, h01=0x0050, text=» LDKL A6,0«, t00=0x002e, t01=0x015a}
0x493a…4950 Head {h00=0x0012, h01=0x0050, text=»TCDA6 EQU *-2 «, t00=0x002e, t01=0x016c}
0x4950…4962 Head {h00=0x000e, h01=0x0050, text=» LDKL A8,0«, t00=0x002e, t01=0x0182}
0x4962…4978 (47, 0, 400) Head {h00=0x0012, h01=0x0050, text=»TCDA8 EQU *-2 «, t00=0x002f, t01=0x0004}
0x4978…4990 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x002f, t01=0x001a}
0x4990…499a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0032}
0x499a…49a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x003c}
0x49a4…49c6 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,0 RESTORE STATUS «, t00=0x002f, t01=0x0046}
0x49c6…49dc Head {h00=0x0012, h01=0x0050, text=»TCDA2 EQU *-2 «, t00=0x002f, t01=0x0068}
0x49dc…49fa Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 GET STATUS«, t00=0x002f, t01=0x007e}
0x49fa…4a12 Head {h00=0x0014, h01=0x0050, text=» SLL A3,9 SHIFT «, t00=0x002f, t01=0x009c}
0x4a12…4a34 Head {h00=0x001e, h01=0x0050, text=» ST A3,2,A8 SAVE ON STACK «, t00=0x002f, t01=0x00b4}
0x4a34…4a60 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 PUT DWT STATUS IN A3«, t00=0x002f, t01=0x00d6}
0x4a60…4a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0102}
0x4a6a…4a7e Head {h00=0x0010, h01=0x0050, text=»IHTRTN EQU *«, t00=0x002f, t01=0x010c}
0x4a7e…4a8e Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x002f, t01=0x0120}
0x4a8e…4a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0130}
0x4a98…4aac Head {h00=0x0010, h01=0x0050, text=»CIOHLT EQU *«, t00=0x002f, t01=0x013a}
0x4aac…4ace Head {h00=0x001e, h01=0x0050, text=» CIO A1,0,CHCRDA CIO-HALT«, t00=0x002f, t01=0x014e}
0x4ace…4ae0 Head {h00=0x000e, h01=0x0050, text=» RB EXIT3 «, t00=0x002f, t01=0x0170}
0x4ae0…4aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0182}
0x4aea…4b02 Head {h00=0x0014, h01=0x0050, text=»EXIT ST A1,TCDA1«, t00=0x002f, t01=0x018c}
0x4b02…4b16 Head {h00=0x0010, h01=0x0050, text=» ST A4,TCDA4«, t00=0x0030, t01=0x0014}
0x4b16…4b2a Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x0030, t01=0x0028}
0x4b2a…4b3e Head {h00=0x0010, h01=0x0050, text=» ST A6,TCDA6«, t00=0x0030, t01=0x003c}
0x4b3e…4b52 Head {h00=0x0010, h01=0x0050, text=» ST A8,TCDA8«, t00=0x0030, t01=0x0050}
0x4b52…4b76 Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER«, t00=0x0030, t01=0x0064}
0x4b76…4b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0088}
0x4b80…4b98 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0030, t01=0x0092}
0x4b98…4ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00aa}
0x4ba2…4bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b4}
0x4bac…4bc4 Head {h00=0x0014, h01=0x0050, text=»* R C O V E R «, t00=0x0030, t01=0x00be}
0x4bc4…4bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d6}
0x4bce…4c0c Head {h00=0x003a, h01=0x0050, text=»* RECOVERY ROUTINE : POSITIONING OF TAPE AT POWER ON«, t00=0x0030, t01=0x00e0}
0x4c0c…4c16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x011e}
0x4c16…4c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0128}
0x4c20…4c34 Head {h00=0x0010, h01=0x0050, text=»RCOVER EQU *«, t00=0x0030, t01=0x0132}
0x4c34…4c50 Head {h00=0x0018, h01=0x0050, text=» CF A8,SELECT SELECT«, t00=0x0030, t01=0x0146}
0x4c50…4c62 Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0030, t01=0x0162}
0x4c62…4c98 Head {h00=0x0032, h01=0x0050, text=» RB(Z) IHTRTN NOT LOCKED: RETURN FROM RECOVERY«, t00=0x0030, t01=0x0174}
0x4c98…4cac Head {h00=0x0010, h01=0x0050, text=» CF A8,LOCK «, t00=0x0031, t01=0x001a}
0x4cac…4cce Head {h00=0x001e, h01=0x0050, text=» RF(NZ) REPER NO CASSETTE «, t00=0x0031, t01=0x002e}
0x4cce…4cfe Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ «, t00=0x0031, t01=0x0050}
0x4cfe…4d18 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RC0050 YES«, t00=0x0031, t01=0x0080}
0x4d18…4d44 Head {h00=0x0028, h01=0x0050, text=» CF A8,SBOT SEARCH BEGINNING OF TAPE«, t00=0x0031, t01=0x009a}
0x4d44…4d56 Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0031, t01=0x00c6}
0x4d56…4d7a Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x0031, t01=0x00d8}
0x4d7a…4d8c Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x0031, t01=0x00fc}
0x4d8c…4d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x010e}
0x4d96…4dc2 Head {h00=0x0028, h01=0x0050, text=»RC0050 LD A1,SEKBYT,A6 SEQ. COUNTING«, t00=0x0031, t01=0x0118}
0x4dc2…4dda Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REPER NO«, t00=0x0031, t01=0x0144}
0x4dda…4de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015c}
0x4de4…4dfc Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0031, t01=0x0166}
0x4dfc…4e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x017e}
0x4e06…4e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0188}
0x4e10…4e26 (50, 0, 400) Head {h00=0x0012, h01=0x0050, text=»* R E P O S «, t00=0x0032, t01=0x0004}
0x4e26…4e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x001a}
0x4e30…4e5e Head {h00=0x002a, h01=0x0050, text=»* REPOSITIONING OF TAPE AT POWER ON «, t00=0x0032, t01=0x0024}
0x4e5e…4e7c Head {h00=0x001a, h01=0x0050, text=»* AND WRITE RECOVERY«, t00=0x0032, t01=0x0052}
0x4e7c…4e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0070}
0x4e86…4ebe Head {h00=0x0034, h01=0x0050, text=»* EXIT: A2 EQ ZERO SUCCESS«, t00=0x0032, t01=0x007a}
0x4ebe…4efa Head {h00=0x0038, h01=0x0050, text=»* A2 NOT EQ ZERO NO SUCCESS «, t00=0x0032, t01=0x00b2}
0x4efa…4f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ee}
0x4f04…4f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00f8}
0x4f0e…4f22 Head {h00=0x0010, h01=0x0050, text=»REPOS EQU * «, t00=0x0032, t01=0x0102}
0x4f22…4f4a Head {h00=0x0024, h01=0x0050, text=» LDK A4,8 SET REPOSITIONING BIT «, t00=0x0032, t01=0x0116}
0x4f4a…4f70 Head {h00=0x0022, h01=0x0050, text=» ORS A4,DWTST,A6 STORE IN DWT «, t00=0x0032, t01=0x013e}
0x4f70…4f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0164}
0x4f7a…4f8e Head {h00=0x0010, h01=0x0050, text=»REP005 EQU *«, t00=0x0032, t01=0x016e}
0x4f8e…4fb8 Head {h00=0x0026, h01=0x0050, text=» LDK A4,PSUBS SET NO OF BACKSPACES«, t00=0x0032, t01=0x0182}
0x4fb8…4fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x001c}
0x4fc2…4fe6 Head {h00=0x0020, h01=0x0050, text=»REP010 CF A8,BKSP BACKSPACE «, t00=0x0033, t01=0x0026}
0x4fe6…4ff8 Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x0033, t01=0x004a}
0x4ff8…501a Head {h00=0x001e, h01=0x0050, text=» RF(NN) REP015 DATA FOUND «, t00=0x0033, t01=0x005c}
0x501a…5044 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTBKC,A6 GET BLOCK COUNTER«, t00=0x0033, t01=0x007e}
0x5044…5062 Head {h00=0x001a, h01=0x0050, text=» SUK A2,8 GREATER 8 ? «, t00=0x0033, t01=0x00a8}
0x5062…507a Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x0033, t01=0x00c6}
0x507a…50ac Head {h00=0x002e, h01=0x0050, text=» CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE «, t00=0x0033, t01=0x00de}
0x50ac…50be Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0033, t01=0x0110}
0x50be…50e2 Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x0033, t01=0x0122}
0x50e2…5108 Head {h00=0x0022, h01=0x0050, text=» LDKL A5,-1 RESET SEQ. COUNTER«, t00=0x0033, t01=0x0146}
0x5108…512a Head {h00=0x001e, h01=0x0050, text=» RF REP020 READ SEQ. CHAR «, t00=0x0033, t01=0x016c}
0x512a…5134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x018e}
0x5134…514c Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0034, t01=0x0008}
0x514c…5156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0020}
0x5156…5160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x002a}
0x5160…5174 Head {h00=0x0010, h01=0x0050, text=»REP015 EQU *«, t00=0x0034, t01=0x0034}
0x5174…5186 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0034, t01=0x0048}
0x5186…51ac Head {h00=0x0022, h01=0x0050, text=» RB(NZ) REP010 BACKSPACE AGAIN«, t00=0x0034, t01=0x005a}
0x51ac…51d4 Head {h00=0x0024, h01=0x0050, text=» LDK A4,PREAD SET NO OF MAX READ«, t00=0x0034, t01=0x0080}
0x51d4…51de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00a8}
0x51de…5208 Head {h00=0x0026, h01=0x0050, text=»REP017 CF A8,READSQ READ SEQ. CHAR«, t00=0x0034, t01=0x00b2}
0x5208…522c Head {h00=0x0020, h01=0x0050, text=» LDKL A7,/180F SET READ MASK«, t00=0x0034, t01=0x00dc}
0x522c…523e Head {h00=0x000e, h01=0x0050, text=» TM A2,A7 «, t00=0x0034, t01=0x0100}
0x523e…525c Head {h00=0x001a, h01=0x0050, text=» RF(Z) REP020 READ OK «, t00=0x0034, t01=0x0112}
0x525c…5278 Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 COUNT READ«, t00=0x0034, t01=0x0130}
0x5278…52a0 Head {h00=0x0024, h01=0x0050, text=» RB(P) REP017 NOT ALL READ DONE «, t00=0x0034, t01=0x014c}
0x52a0…52ba Head {h00=0x0016, h01=0x0050, text=» RF REP060 GIVE UP«, t00=0x0034, t01=0x0174}
0x52ba…52c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x018e}
0x52c4…52f2 Head {h00=0x002a, h01=0x0050, text=»REP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR«, t00=0x0035, t01=0x0008}
0x52f2…530e Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 CALCULATE«, t00=0x0035, t01=0x0036}
0x530e…5330 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 NO OF BLOCKS TO «, t00=0x0035, t01=0x0052}
0x5330…5352 Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF READ FORWARD. «, t00=0x0035, t01=0x0074}
0x5352…5376 Head {h00=0x0020, h01=0x0050, text=» CWK A4,PINT TOO MANY BLOCKS«, t00=0x0035, t01=0x0096}
0x5376…538e Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x0035, t01=0x00ba}
0x538e…5398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d2}
0x5398…53b0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0035, t01=0x00dc}
0x53b0…53ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00f4}
0x53ba…53c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00fe}
0x53c4…53ea Head {h00=0x0022, h01=0x0050, text=»REP030 SUK A4,1 POSITION TAPE «, t00=0x0035, t01=0x0108}
0x53ea…5406 Head {h00=0x0018, h01=0x0050, text=» RF(N) REP040 READY «, t00=0x0035, t01=0x012e}
0x5406…542c Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ NEXT BLOCK «, t00=0x0035, t01=0x014a}
0x542c…543e Head {h00=0x000e, h01=0x0050, text=» RB REP030«, t00=0x0035, t01=0x0170}
0x543e…5448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0182}
0x5448…5474 Head {h00=0x0028, h01=0x0050, text=»REP040 LDK A4,RTRIES SET NO OF RETRY«, t00=0x0035, t01=0x018c}
0x5474…549e Head {h00=0x0026, h01=0x0050, text=»REP042 LDKL A7,/80F SET READ MASK «, t00=0x0036, t01=0x0028}
0x549e…54bc Head {h00=0x001a, h01=0x0050, text=» TM A2,A7 CORRECT READ«, t00=0x0036, t01=0x0052}
0x54bc…54d6 Head {h00=0x0016, h01=0x0050, text=» RF(Z) REP045 YES «, t00=0x0036, t01=0x0070}
0x54d6…54f4 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 COUNT RETRY «, t00=0x0036, t01=0x008a}
0x54f4…5512 Head {h00=0x001a, h01=0x0050, text=» RF(NP) REP060 GIVE UP«, t00=0x0036, t01=0x00a8}
0x5512…5530 Head {h00=0x001a, h01=0x0050, text=» CF A8,BKSP BACKSPACE «, t00=0x0036, t01=0x00c6}
0x5530…5556 Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ SEQ NUMBER «, t00=0x0036, t01=0x00e4}
0x5556…5568 Head {h00=0x000e, h01=0x0050, text=» RB REP042«, t00=0x0036, t01=0x010a}
0x5568…5572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x011c}
0x5572…558a Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0036, t01=0x0126}
0x558a…5594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013e}
0x5594…559e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0148}
0x559e…55b6 Head {h00=0x0014, h01=0x0050, text=»REP045 SLC A2,3 «, t00=0x0036, t01=0x0152}
0x55b6…55da Head {h00=0x0020, h01=0x0050, text=» RF(NN) REP050 NOT TAPE MARK«, t00=0x0036, t01=0x016a}
0x55da…55ee Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0036, t01=0x018e}
0x55ee…561c Head {h00=0x002a, h01=0x0050, text=» RF(Z) REP060 SHOULD NOT BE TAPE MARK «, t00=0x0037, t01=0x0012}
0x561c…562e Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x0037, t01=0x0040}
0x562e…5638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0052}
0x5638…5662 Head {h00=0x0026, h01=0x0050, text=»REP050 ADK A5,1 CHECK SEQ. NUMBER «, t00=0x0037, t01=0x005c}
0x5662…567c Head {h00=0x0016, h01=0x0050, text=» CC A5,DWTBKC+1,A6«, t00=0x0037, t01=0x0086}
0x567c…5696 Head {h00=0x0016, h01=0x0050, text=» RF(E) REPOK EQUAL«, t00=0x0037, t01=0x00a0}
0x5696…56a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ba}
0x56a0…56be Head {h00=0x001a, h01=0x0050, text=»REP060 LD A7,DWTST,A6 «, t00=0x0037, t01=0x00c4}
0x56be…56e6 Head {h00=0x0024, h01=0x0050, text=» ANK A7,8 TRY POSITIONING AGAIN?«, t00=0x0037, t01=0x00e2}
0x56e6…56fe Head {h00=0x0014, h01=0x0050, text=» RF(Z) REPER NO «, t00=0x0037, t01=0x010a}
0x56fe…572e Head {h00=0x002c, h01=0x0050, text=» XRS A7,DWTST,A6 RESET REPOSITIONING BIT«, t00=0x0037, t01=0x0122}
0x572e…5744 Head {h00=0x0012, h01=0x0050, text=» RB REP005 YES«, t00=0x0037, t01=0x0152}
0x5744…574e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0168}
0x574e…5758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0172}
0x5758…5792 Head {h00=0x0036, h01=0x0050, text=»REPER LDK A2,2 IND RECOVERY/SEQUENCE ERROR STATUS «, t00=0x0037, t01=0x017c}
0x5792…57b8 Head {h00=0x0022, h01=0x0050, text=» ORS A2,SEKBYT,A6 SAVE IN DWT «, t00=0x0038, t01=0x0026}
0x57b8…57c8 Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0038, t01=0x004c}
0x57c8…57d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x005c}
0x57d2…57fe Head {h00=0x0028, h01=0x0050, text=»REPOK LDK A2,0 IND RECOVERY CORRECT «, t00=0x0038, t01=0x0066}
0x57fe…580e Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0038, t01=0x0092}
0x580e…5818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a2}
0x5818…5830 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x0038, t01=0x00ac}
0x5830…583a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c4}
0x583a…5844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ce}
0x5844…585c Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 2 «, t00=0x0038, t01=0x00d8}
0x585c…5866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00f0}
0x5866…589c Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 02«, t00=0x0038, t01=0x00fa}
0x589c…58a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0130}
0x58a6…58b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x013a}
0x58b0…58d0 Head {h00=0x001c, h01=0x0050, text=»DWTC02 EQU * TABLE ENTRY«, t00=0x0038, t01=0x0144}
0x58d0…58e4 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0038, t01=0x0164}
0x58e4…5904 Head {h00=0x001c, h01=0x0050, text=» DATA DWTC01+1 DWT NO. 1«, t00=0x0038, t01=0x0178}
0x5904…5938 Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x0039, t01=0x0008}
0x5938…5954 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0039, t01=0x003c}
0x5954…596a Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0039, t01=0x0058}
0x596a…5996 Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x0039, t01=0x006e}
0x5996…59b2 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x0039, t01=0x009a}
0x59b2…59da Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0039, t01=0x00b6}
0x59da…59f8 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0039, t01=0x00de}
0x59f8…5a0e Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0039, t01=0x00fc}
0x5a0e…5a38 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0039, t01=0x0112}
0x5a38…5a5c Head {h00=0x0020, h01=0x0050, text=» DATA ECBTC2 MMU ECB ADDRESS«, t00=0x0039, t01=0x013c}
0x5a5c…5a68 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0039, t01=0x0160}
0x5a68…5a7c Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0039, t01=0x016c}
0x5a7c…5a9a Head {h00=0x001a, h01=0x0050, text=» DATA 0 BLOCK COUNTER «, t00=0x0039, t01=0x0180}
0x5a9a…5ab8 Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x003a, t01=0x000e}
0x5ab8…5ace Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003a, t01=0x002c}
0x5ace…5ae2 Head {h00=0x0010, h01=0x0050, text=»ECBTC2 EQU *«, t00=0x003a, t01=0x0042}
0x5ae2…5af2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003a, t01=0x0056}
0x5af2…5b06 Head {h00=0x0010, h01=0x0050, text=» DATA TCBUF2«, t00=0x003a, t01=0x0066}
0x5b06…5b1c Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x003a, t01=0x007a}
0x5b1c…5b38 Head {h00=0x0018, h01=0x0050, text=»TCBUF2 RES DVBLEN+1 «, t00=0x003a, t01=0x0090}
0x5b38…5b44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00ac}
0x5b44…5b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b8}
0x5b4e…5b66 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTC01 «, t00=0x003a, t01=0x00c2}
0x5b66…5b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00da}
0x5b70…5b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00e4}
0x5b7a…5b92 Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 1 «, t00=0x003a, t01=0x00ee}
0x5b92…5b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0106}
0x5b9c…5bd2 Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 01«, t00=0x003a, t01=0x0110}
0x5bd2…5bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0146}
0x5bdc…5be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0150}
0x5be6…5c08 Head {h00=0x001e, h01=0x0050, text=»DWTC01 EQU * TABLE ENTRY «, t00=0x003a, t01=0x015a}
0x5c08…5c26 Head {h00=0x001a, h01=0x0050, text=» DATA DWTC02 DWT NO. 2«, t00=0x003a, t01=0x017c}
0x5c26…5c5a Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x003b, t01=0x000a}
0x5c5a…5c76 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003b, t01=0x003e}
0x5c76…5c8c Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003b, t01=0x005a}
0x5c8c…5cb8 Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x003b, t01=0x0070}
0x5cb8…5cd4 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003b, t01=0x009c}
0x5cd4…5cfc Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003b, t01=0x00b8}
0x5cfc…5d1a Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003b, t01=0x00e0}
0x5d1a…5d30 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003b, t01=0x00fe}
0x5d30…5d5a Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003b, t01=0x0114}
0x5d5a…5d7e Head {h00=0x0020, h01=0x0050, text=» DATA ECBTC1 MMU ECB ADDRESS«, t00=0x003b, t01=0x013e}
0x5d7e…5d8a Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003b, t01=0x0162}
0x5d8a…5db4 Head {h00=0x0026, h01=0x0050, text=»DWTBKC EQU *-DWTC01 BLOCK COUNTER «, t00=0x003b, t01=0x016e}
0x5db4…5dc4 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003c, t01=0x0008}
0x5dc4…5de0 Head {h00=0x0018, h01=0x0050, text=»SEKBYT EQU *-DWTC01 «, t00=0x003c, t01=0x0018}
0x5de0…5dfe Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x003c, t01=0x0034}
0x5dfe…5e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0052}
0x5e08…5e1e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1«, t00=0x003c, t01=0x005c}
0x5e1e…5e32 Head {h00=0x0010, h01=0x0050, text=»ECBTC1 EQU *«, t00=0x003c, t01=0x0072}
0x5e32…5e42 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003c, t01=0x0086}
0x5e42…5e56 Head {h00=0x0010, h01=0x0050, text=» DATA TCBUF1«, t00=0x003c, t01=0x0096}
0x5e56…5e6c Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x003c, t01=0x00aa}
0x5e6c…5e88 Head {h00=0x0018, h01=0x0050, text=»TCBUF1 RES DVBLEN+1 «, t00=0x003c, t01=0x00c0}
0x5e88…5e94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00dc}
0x5e94…5e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00e8}
0x5e9e…5ec4 Head {h00=0x0022, h01=0x0050, text=»REQLEN DATA 0 REQUESTED LENGTH«, t00=0x003c, t01=0x00f2}
0x5ec4…5ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0118}
0x5ece…5ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0122}
0x5ed8…5ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x012c}
0x5ee2…5eee Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003c, t01=0x0136}
0x5eee…5ef2 Head {h00=0x4004, h01=0x0000}
0x5ef2…5ef6 00 3c 01 42 ┆ < B┆
0x5ef6…5efe (61, 1, 8) 20 04 00 00 00 3d 00 04 ┆ = ┆
0x5efe…5f4e (62, 0, 400) 45 58 49 54 20 50 41 52 41 4d 45 54 45 52 53 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 00 15 01 8c 00 06 00 50 2a 20 00 16 00 38 00 16 00 50 2a 20 20 20 41 31 20 3d 20 55 4e 43 48 41 ┆EXIT PARAMETERS********************************* P* 8 P* A1 = UNCHA┆
0x5f4e…5f9e 4e 47 45 44 00 16 00 42 00 28 00 50 2a 20 20 20 41 32 20 3d 20 41 44 44 52 45 53 53 20 4f 46 20 46 4f 55 4e 44 20 43 52 4e 2d 42 55 46 46 45 52 00 16 00 5c 00 06 00 50 2a 20 00 16 00 88 00 38 00 50 2a 2a 2a 2a 55 53 45 44 20 52 45 47 49 53 ┆NGED B ( P* A2 = ADDRESS OF FOUND CRN-BUFFER P* 8 P****USED REGIS┆
0x5f9e…5fee 54 45 52 53 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 00 16 00 92 00 06 00 50 2a 20 00 16 00 ce 00 10 00 50 2a 20 20 20 41 31 20 2d 20 41 34 20 00 16 00 d8 00 14 00 50 5c 45 4a 45 ┆TERS********************************** P* P* A1 - A4 P EJE┆
0x5fee…603e 43 54 5c 5c 5c 44 4d 53 55 42 52 20 00 16 00 ec 00 10 00 50 43 52 4e 47 45 54 5c 45 51 55 5c 2a 00 16 01 04 00 1e 00 50 5c 4c 44 5c 41 32 2c 46 44 42 43 52 4c 2c 41 31 5c 43 52 4e 20 52 4f 4f 54 20 00 16 01 18 00 0e 00 50 5c 52 46 5c 43 52 ┆CT DMSUBR PCRNGET EQU * P LD A2,FDBCRL,A1 CRN ROOT P RF CR┆
0x603e…608e 4e 30 33 30 00 16 01 3a 00 10 00 50 43 52 4e 30 32 30 5c 45 51 55 5c 2a 00 16 01 4c 00 1c 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 32 5c 4e 45 58 54 20 42 55 46 46 45 52 20 00 16 01 60 00 10 00 50 43 52 4e 30 33 30 5c 45 51 55 5c 2a 00 16 01 80 ┆N030 : PCRN020 EQU * L P LDR* A2,A2 NEXT BUFFER ` PCRN030 EQU * ┆
0x608e…60de (63, 0, 400) 00 1a 00 50 5c 52 46 28 5a 29 5c 43 52 4e 31 30 30 5c 4c 49 4e 4b 20 45 4e 44 00 17 00 04 00 06 00 50 2a 20 00 17 00 22 00 1a 00 50 2a 20 20 20 43 48 45 43 4b 20 41 54 41 53 4b 20 49 44 45 4e 54 20 00 17 00 2c 00 06 00 50 2a 20 00 17 00 4a ┆ P RF(Z) CRN100 LINK END P* " P* CHECK ATASK IDENT , P* J┆
0x60de…612e 00 1c 00 50 5c 4c 43 5c 41 33 2c 46 44 42 54 4e 52 2c 41 31 5c 54 41 53 4b 20 49 44 00 17 00 54 00 14 00 50 5c 43 43 5c 41 33 2c 43 52 4e 54 49 44 2c 41 32 00 17 00 74 00 1e 00 50 5c 52 42 28 4e 45 29 5c 43 52 4e 30 32 30 5c 4f 54 48 45 52 ┆ P LC A3,FDBTNR,A1 TASK ID T P CC A3,CRNTID,A2 t P RB(NE) CRN020 OTHER┆
0x612e…617e 20 54 41 53 4b 20 00 17 00 8c 00 1c 00 50 5c 52 46 5c 43 52 4e 32 30 30 5c 42 55 46 46 45 52 20 46 4f 55 4e 44 20 00 17 00 ae 00 06 00 50 2a 20 00 17 00 ce 00 16 00 50 2a 20 20 20 47 45 54 20 4e 45 57 20 42 55 46 46 45 52 00 17 00 d8 00 06 ┆ TASK P RF CRN200 BUFFER FOUND P* P* GET NEW BUFFER ┆
0x617e…61ce 00 50 2a 20 00 17 00 f2 00 10 00 50 43 52 4e 31 30 30 5c 45 51 55 5c 2a 00 17 00 fc 00 08 00 50 5c 49 4e 48 00 17 01 10 00 20 00 50 5c 4c 44 5c 41 32 2c 43 52 4e 51 55 45 5c 46 52 45 45 20 4c 49 4e 4b 20 52 4f 4f 54 00 17 01 1c 00 12 00 50 ┆ P* PCRN100 EQU * P INH P LD A2,CRNQUE FREE LINK ROOT P┆
0x61ce…621e 5c 52 46 28 4e 5a 29 5c 43 52 4e 31 32 30 00 17 01 40 00 1c 00 50 5c 4c 44 4b 5c 41 31 2c 33 5c 4c 41 4d 50 20 31 30 20 41 4e 44 20 31 31 00 17 01 56 00 20 00 50 5c 43 46 5c 41 31 35 2c 48 41 4c 54 5c 4e 4f 20 4d 4f 52 45 20 42 55 46 46 45 ┆ RF(NZ) CRN120 @ P LDK A1,3 LAMP 10 AND 11 V P CF A15,HALT NO MORE BUFFE┆
0x621e…626e (64, 0, 398) 52 53 00 17 01 76 00 10 00 50 43 52 4e 31 32 30 5c 45 51 55 5c 2a 00 18 00 0a 00 1a 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 32 5c 4e 45 58 54 20 46 52 45 45 20 00 18 00 1e 00 1a 00 50 5c 53 54 5c 41 33 2c 43 52 4e 51 55 45 5c 55 50 44 20 52 4f ┆RS v PCRN120 EQU * P LDR* A3,A2 NEXT FREE P ST A3,CRNQUE UPD RO┆
0x626e…62be 4f 54 00 18 00 3c 00 06 00 50 2a 20 00 18 00 5a 00 20 00 50 2a 20 20 20 46 49 4c 4c 20 42 55 46 46 45 52 20 57 49 54 48 20 5a 45 52 4f 45 53 20 00 18 00 64 00 06 00 50 2a 20 00 18 00 88 00 2a 00 50 5c 4c 44 4b 4c 5c 41 33 2c 43 52 42 55 46 ┆OT < P* Z P* FILL BUFFER WITH ZEROES d P* * P LDKL A3,CRBUF┆
0x62be…630e 4c 5c 42 55 46 46 45 52 20 4c 45 4e 47 54 48 20 49 4e 20 42 59 54 45 53 00 18 00 92 00 10 00 50 43 52 4e 31 34 30 5c 45 51 55 5c 2a 00 18 00 c0 00 20 00 50 5c 53 55 4b 5c 41 33 2c 32 5c 5a 45 52 4f 45 20 57 4f 52 44 53 20 32 20 2d 20 4e 20 ┆L BUFFER LENGTH IN BYTES PCRN140 EQU * P SUK A3,2 ZEROE WORDS 2 - N ┆
0x630e…635e 00 18 00 d4 00 20 00 50 5c 52 46 28 4e 50 29 5c 43 52 4e 31 36 30 5c 42 55 46 46 45 52 20 5a 45 52 4f 45 44 00 18 00 f8 00 1a 00 50 5c 4c 44 52 5c 41 34 2c 41 32 5c 42 55 46 46 45 52 20 41 44 52 20 00 18 01 1c 00 20 00 50 5c 41 44 52 5c 41 ┆ P RF(NP) CRN160 BUFFER ZEROED P LDR A4,A2 BUFFER ADR P ADR A┆
0x635e…63ac 34 2c 41 33 5c 4f 46 46 53 45 54 20 49 4e 20 42 55 46 46 45 52 20 00 18 01 3a 00 0c 00 50 5c 43 4d 52 5c 41 34 20 00 18 01 5e 00 1a 00 50 5c 52 42 5c 43 52 4e 31 34 30 5c 4d 4f 52 45 20 57 4f 52 44 53 20 00 18 01 6e 00 06 00 50 2a 20 ┆4,A3 OFFSET IN BUFFER : P CMR A4 ^ P RB CRN140 MORE WORDS n P* ┆
0x63ac…63fc (65, 0, 400) 00 18 01 8c 00 22 00 50 2a 20 20 20 43 4f 4e 4e 45 43 54 20 4e 45 57 20 42 55 46 46 45 52 20 54 4f 20 4c 49 4e 4b 00 19 00 08 00 06 00 50 2a 20 00 19 00 2e 00 10 00 50 43 52 4e 31 36 30 5c 45 51 55 5c 2a 00 19 00 38 00 14 00 50 5c 4c 43 5c ┆ " P* CONNECT NEW BUFFER TO LINK P* . PCRN160 EQU * 8 P LC ┆
0x63fc…644c 41 33 2c 46 44 42 54 4e 52 2c 41 31 00 19 00 4c 00 1c 00 50 5c 53 43 5c 41 33 2c 43 52 4e 54 49 44 2c 41 32 5c 54 41 53 4b 20 49 44 00 19 00 64 00 1e 00 50 5c 4c 44 5c 41 33 2c 46 44 42 43 52 4c 2c 41 31 5c 4c 49 4e 4b 20 52 4f 4f 54 00 19 ┆A3,FDBTNR,A1 L P SC A3,CRNTID,A2 TASK ID d P LD A3,FDBCRL,A1 LINK ROOT ┆
0x644c…649c 00 84 00 16 00 50 5c 53 54 52 5c 41 33 2c 41 32 5c 54 48 52 45 41 44 20 00 19 00 a6 00 1e 00 50 5c 53 54 5c 41 32 2c 46 44 42 43 52 4c 2c 41 31 5c 4e 45 57 20 52 4f 4f 54 20 00 19 00 c0 00 10 00 50 43 52 4e 32 30 30 5c 45 51 55 5c 2a 00 19 ┆ P STR A3,A2 THREAD P ST A2,FDBCRL,A1 NEW ROOT PCRN200 EQU * ┆
0x649c…64ec 00 e2 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 19 00 f6 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 4d 53 55 42 52 20 00 19 01 06 00 38 00 50 2a 2a 2a 2a 44 45 53 43 52 49 50 54 49 4f 4e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P RTN A14 P EJECT DMSUBR 8 P****DESCRIPTION*******************┆
0x64ec…653c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 19 01 1e 00 06 00 50 2a 20 00 19 01 5a 00 32 00 50 2a 20 20 20 43 41 4c 53 4e 4f 20 57 49 4c 4c 20 43 4f 4e 56 45 52 54 20 41 20 4c 4f 47 49 43 41 4c 20 52 45 43 4f 52 44 20 4e 4f 20 ┆****************** P* Z 2 P* CALSNO WILL CONVERT A LOGICAL RECORD NO ┆
0x653c…658c (66, 0, 398) 54 4f 00 19 01 64 00 1a 00 50 2a 20 20 20 53 45 43 54 4f 52 20 41 4e 44 20 4f 46 46 53 45 54 20 00 1a 00 0a 00 06 00 50 2a 20 00 1a 00 28 00 38 00 50 2a 2a 2a 2a 45 4e 54 52 59 20 50 41 52 41 4d 45 54 45 52 53 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆TO d P* SECTOR AND OFFSET P* ( 8 P****ENTRY PARAMETERS**********┆
0x658c…65dc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1a 00 32 00 06 00 50 2a 20 00 1a 00 6e 00 22 00 50 2a 20 20 20 41 31 2c 41 32 20 3d 20 4c 4f 47 49 43 41 4c 20 52 45 43 4f 52 44 20 4e 4f 20 00 1a 00 78 00 16 00 50 2a 20 ┆********************** 2 P* n " P* A1,A2 = LOGICAL RECORD NO x P* ┆
0x65dc…662c 20 20 41 36 20 3d 20 46 44 42 20 41 44 44 52 20 00 1a 00 9e 00 06 00 50 2a 20 00 1a 00 b8 00 18 00 50 2a 20 20 20 43 46 20 20 20 41 31 34 2c 43 41 4c 53 4e 4f 20 00 1a 00 c2 00 06 00 50 2a 20 00 1a 00 de 00 38 00 50 2a 2a 2a 2a 45 58 49 54 ┆ A6 = FDB ADDR P* P* CF A14,CALSNO P* 8 P****EXIT┆
0x662c…667c 20 50 41 52 41 4d 45 54 45 52 53 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 00 1a 00 e8 00 06 00 50 2a 20 00 1a 01 24 00 12 00 50 2a 20 20 20 41 31 20 3d 20 20 30 20 4f 4b 00 1a 01 2e ┆ PARAMETERS********************************* P* $ P* A1 = 0 OK .┆
0x667c…66ca 00 2a 00 50 2a 20 20 20 20 20 4e 45 20 30 20 2c 20 45 52 52 4f 52 20 3d 2f 32 30 3d 45 4e 44 20 4f 46 20 4d 45 44 49 55 4d 20 00 1a 01 44 00 1c 00 50 2a 20 20 20 41 34 20 3d 20 45 58 54 45 4e 54 20 41 44 44 52 45 53 53 20 00 1a 01 72 ┆ * P* NE 0 , ERROR =/20=END OF MEDIUM D P* A4 = EXTENT ADDRESS r┆
0x66ca…671a (67, 0, 400) 00 16 00 50 2a 20 20 20 41 36 20 3d 20 55 4e 43 48 41 4e 47 45 44 00 1b 00 04 00 24 00 50 2a 20 20 20 49 4e 20 46 44 42 20 3a 20 46 44 42 53 4e 52 20 3d 20 53 45 43 54 4f 52 20 4e 52 20 00 1b 00 1e 00 2c 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ P* A6 = UNCHANGED $ P* IN FDB : FDBSNR = SECTOR NR , P* ┆
0x671a…676a 20 20 20 20 46 44 42 52 52 4f 20 3d 20 4f 46 46 53 45 54 20 49 4e 20 53 45 43 54 4f 52 20 00 1b 00 46 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 46 44 42 43 45 58 20 3d 20 43 55 52 52 45 4e 54 20 45 58 54 45 4e 54 20 00 1b 00 76 ┆ FDBRRO = OFFSET IN SECTOR F * P* FDBCEX = CURRENT EXTENT v┆
0x676a…67ba 00 06 00 50 2a 20 00 1b 00 a4 00 38 00 50 2a 2a 2a 2a 55 53 45 44 20 52 45 47 49 53 54 45 52 53 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 00 1b 00 ae 00 06 00 50 2a 20 00 1b 00 ea ┆ P* 8 P****USED REGISTERS********************************** P* ┆
0x67ba…680a 00 10 00 50 2a 20 20 20 41 31 20 2d 20 41 39 20 00 1b 00 f4 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 4d 53 55 42 52 20 00 1b 01 08 00 10 00 50 43 41 4c 53 4e 4f 5c 45 51 55 5c 2a 00 1b 01 20 00 06 00 50 2a 20 00 1b 01 34 00 22 00 50 2a 20 ┆ P* A1 - A9 P EJECT DMSUBR PCALSNO EQU * P* 4 " P* ┆
0x680a…685a 20 20 46 49 4e 44 20 53 45 43 54 4f 52 20 4e 4f 20 57 49 54 48 49 4e 20 46 49 4c 45 00 1b 01 3e 00 06 00 50 2a 20 00 1b 01 64 00 1c 00 50 5c 4c 44 52 5c 41 35 2c 41 36 5c 53 41 56 45 20 46 44 42 20 41 44 44 52 00 1b 01 6e 00 0e 00 50 5c 4c ┆ FIND SECTOR NO WITHIN FILE > P* d P LDR A5,A6 SAVE FDB ADDR n P L┆
0x685a…68aa (68, 0, 400) 44 4b 5c 41 36 2c 30 20 00 1b 01 8e 00 24 00 50 5c 4c 43 5c 41 36 2c 46 44 42 42 4c 46 2c 41 35 5c 42 4c 4f 43 4b 49 4e 47 20 46 41 43 54 4f 52 00 1c 00 10 00 2c 00 50 5c 43 46 5c 41 31 34 2c 44 49 56 4d 4f 44 5c 41 32 3d 41 31 2c 41 32 2f ┆DK A6,0 $ P LC A6,FDBBLF,A5 BLOCKING FACTOR , P CF A14,DIVMOD A2=A1,A2/┆
0x68aa…68fa 2f 41 36 2c 41 31 3d 52 45 4d 41 49 4e 44 45 52 00 1c 00 38 00 1a 00 50 5c 52 46 28 4f 29 5c 54 49 4f 44 39 39 5c 4f 56 45 52 46 4c 4f 57 00 1c 00 68 00 18 00 50 5c 4c 44 52 5c 41 33 2c 41 32 5c 51 55 4f 54 49 45 4e 54 20 00 1c 00 86 00 18 ┆/A6,A1=REMAINDER 8 P RF(O) TIOD99 OVERFLOW h P LDR A3,A2 QUOTIENT ┆
0x68fa…694a 00 50 5c 4c 44 52 5c 41 36 2c 41 35 5c 46 44 42 20 41 44 44 52 20 00 1c 00 a2 00 18 00 50 5c 4c 44 52 5c 41 32 2c 41 31 5c 52 45 4d 41 49 4e 44 45 52 00 1c 00 be 00 1a 00 50 5c 52 46 28 5a 29 5c 54 49 4f 44 33 30 5c 52 45 53 54 20 3d 20 30 ┆ P LDR A6,A5 FDB ADDR P LDR A2,A1 REMAINDER P RF(Z) TIOD30 REST = 0┆
0x694a…699a 00 1c 00 da 00 24 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 52 45 43 4f 52 44 20 49 4e 20 4e 45 58 54 20 53 45 43 54 4f 52 20 00 1c 00 f8 00 0e 00 50 5c 52 46 5c 54 49 4f 44 34 30 00 1c 01 20 00 2e 00 50 54 49 4f 44 33 30 5c 4c 43 5c 41 32 2c 46 ┆ $ P ADK A3,1 RECORD IN NEXT SECTOR P RF TIOD40 . PTIOD30 LC A2,F┆
0x699a…69ea 44 42 42 4c 46 2c 41 36 5c 4c 41 53 54 20 52 45 43 20 49 4e 20 53 45 43 54 4f 52 20 00 1c 01 32 00 06 00 50 2a 20 00 1c 01 64 00 18 00 50 2a 20 20 20 46 49 4e 44 20 46 49 4c 45 20 45 58 54 45 4e 54 00 1c 01 6e 00 06 00 50 2a 20 00 1c 01 8a ┆DBBLF,A6 LAST REC IN SECTOR 2 P* d P* FIND FILE EXTENT n P* ┆