|
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: 20450 (0x4fe2)
Notes: pts_type(SC)
Names: »DRTC01.SC«
└─⟦18bf30ff4⟧ Bits:30009692 Philips computer tape "600409"
└─⟦this⟧ »BDKMON/DRTC01.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKMON/DRTC01.SC«
IDENT DRTC01 REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ******************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRTC01 = DRIVER TAPE CASSETTE RECORDER * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ******************************************************* * * * 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 A LENGTH FROM 2 TO * 256 CHARACTERS * * * 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 * * 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 * * 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 * A7: BUFFER INDEX,=1000 AT READ SEQUENCE CHARACTER * 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 * * ************ * 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 SUB EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY EXTRN INTSAV SAVE AREA LAST INTERRUPT * * ****************** * DWT PARAMETERS * ****************** * EXTRN DWTST DWT SOFTWARE STATUS: * BIT # 0 - DEVICE READY 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 * ************************ * 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 EJECT * * * CONSTANTS AND WORK AREAS * TCAD DATA TCDA ACTIVATION ENTRY RES 4 SUBROUTINE STACK STB EQU *-2 TAB DATA /0506,/0002,/2231,/3738 IFT REVER=1 DATA /3324,/26FF XIF TABL EQU *-TAB EJECT * ****************** * ECB PARAMETERS * ****************** * ECBRL EQU 4 ECB REQUESTED LENGTH ECBEL EQU 6 ECB EFFECTIVE LENGTH ECBCW EQU 10 ECB CONTROL WORD * * *************************** * 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 * * * T C D A * * ACTIVATION PART: CHECK VALIDITY OF ORDERS AND START * PROCESSING * * TCDA EQU * ENB ENB INH 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 ST A5,TCDLEN SAVE REQUESTED LENGTH SUK A7,/37 LOAD ? RF(NE) TCDA22 NO LD A3,10,A8 GET CONTROL WORD ANK A3,1 ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT TCDA22 EQU * LD A3,2,A8 GET BUFFER ADDRESS ST A3,TCDBA SAVE IT SUK A4,2 RF(P) TCDA25 NOT WRITE SUK A5,2 RB(N) TCDA15 LESS THAN 2 CHARACTERS SUK A5,254 RB(P) TCDA15 MORE THAN 256 CHARACTERS ADR 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 EQU * ST A6,TCDADT SAVE ACTIVE DWT EJECT * * * SELECT RECORDER * * TCDA30 LDKL A8,STB LOAD STACK BASE CF A8,SELECT SELECT CASSETT 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 WRITE,WRITE,ENDIO,READ,TM,REWIND,LOAD,UNLOAD IFT REVER=1 DATA REVERS,ERTAPE,OLOCK XIF EJECT * * * RECOVERY AFTER POWER ON * * TCDRON EQU * CF A15,SAVE8 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 * R E A D * READ ONE RECORD * READ EQU * READ10 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 READ10 READ AGAIN READ20 LDR A2,A1 SLL A2,3 CHECK IF TAPE MARK RF(NN) READ30 NOT TAPE MARK ORK A3,/10 INDICATE TAPE MARK RF READ35 READ30 LDR A2,A1 ANKL A2,/801 NODATA,NOT OP RF(NZ) READ32 LDR A7,A7 EFFECTIVE LENGTH 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 READ10 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 * * * END OF I/O OPERATION * * ENDIO EQU * CM TCDADT INDICATE NONE ACTIVE DWT IFT DBCAS=2 LDR* A6,A6 GET OTHER DWT CF A15,TENDIO PERFORM TENDIO FOR THIS LDR* A6,A6 GET FIRST DWT XIF CF A15,TENDIO END I/O ABL TDISP GO TO DISPATCHER EJECT * * * WRITE TAPE MARK * * TM CM TCDLEN * * * 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 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 SUK A4,1 RB(NZ) WRIT10 TRY AGAIN ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 RB READ40 GIVE UP WRIT30 LD A2,TCDLEN TAPE MARK WRITTEN RB(NZ) READ20 NO LDR A2,A1 CHECK IF SLL A2,3 TAPE MARK OK RB(N) READ20 YES RB WRIT12 NO WRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENSE ERROR RB READ40 EJECT * * L O A D * * LOAD CASSETTE * LOAD CF A8,LOCK LOCK CASSETT RF(Z) REWIND CASSETT LOCKED LOAD10 LDR A1,A2 NO CASSETT RB READ50 * * R E W I N D * * REWIND TAPE * REWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER CF A8,SBOT SEARCH BEGIN OF TAPE REW010 EQU * LDR A3,A2 SRL A3,7 ANK A3,6 ORK A3,1 PREPARE STATUS RB LOAD10 * * U N L O A D * * UNLOAD CASSETTE * UNLOAD CM DWTST,A6 RESET STATUS CF A8,UNLD UNLD UNLO10 LDR A1,A2 SAVE RETURN CODE RB ENDIO IFT REVER=1 EJECT * * 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 * * 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 * * * CASSETT COMMANDS * * * SELECT * SELECT EQU * LDK A2,/FF LOAD MASK ANS A2,DWTST,A6 SET DWT BUSY IFT DBCAS=1 LDK A3,0 SELECT CODE XIF IFT DBCAS=2 LDR* A3,A6 GET OTHER DWT ANS A2,DWTST,A3 SET DWT BUSY ANK A3,1 GET SELECT CODE XIF CRCOM CIO A3,1,CHCRDA CIO START RF EXIT * * READ SEQUENCE CHAR TO A5 * READSQ EQU * LDK A3,/A ECR A7,A3 SET A7 TO /A00 RB CRCOM * * READ ONE RECORD * READR LDK A3,/A READR1 LDK A7,0 RESET INDEX TO BUFFER RB CRCOM * * WRITE ONE RECORD * WRITER LDK A3,/B RB READR1 EJECT * * ERASE ONE BLOCK * ERASE LDK A3,9 RB CRCOM * * LOCK CASSETT * LOCK LDK A3,2 RB CRCOM * * SEARCH BEGIN 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 * * I H T C * * INTERRUPT HANDLER: PROCESS OF INTERRUPT * IHTC EQU * ST P,INTSAV SAVE LAST INTERRUPT CF A15,SAVE8 SAVE REGISTERS LDKL A1,0 TCDA1 EQU *-2 LDKL A4,0 TCDA4 EQU *-2 LDKL A5,0 TCDA5 EQU *-2 LDKL A6,0 TCDA6 EQU *-2 LDKL A7,0 TCDA7 EQU *-2 LDKL A8,0 TCDA8 EQU *-2 SST A2,CHCRDA RF(A) SST SST ACCEPTED LD A2,TCDAX GET FUNCTION SWITCH FOR READ/WRITE CWK A7,0 TCDLEN EQU *-2 **REQUESTED LENGTH** RF(E) CIOHLT RF(G) INRSQ GET SEQUENCE COUNTER LDKL A3,0 GET BUFFER ADDRESS TCDBA EQU *-2 **BUFFER ADDRESS** ADR A3,A7 ADD INDEX ADK A7,1 INCREMENT INDEX SUK A2,4 RF(N) IHTC05 WRITE IHTC02 INR A5,0,CHCRDA READ CHAR. SCR A5,A3 STORE CHARACTER IN BUFFER RF EXIT IHTC05 EQU * LCR A5,A3 GET CHAR FROM BUFFER OTR A5,0,CHCRDA OUTPUT IT RF EXIT INRSQ INR A5,0,CHCRDA READ CHAR TO A5 RF EXIT SST 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 CIO A1,0,CHCRDA CIO-HALT EXIT ST A1,TCDA1 ST A4,TCDA4 ST A5,TCDA5 ST A6,TCDA6 ST A7,TCDA7 ST A8,TCDA8 IHTC10 ABL TDISP GO TO DISPATCHER EJECT * * 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 BEGIN 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 * * 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 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 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 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 RB IHTRTN * REPOK LDK A2,0 IND RECOVERY CORRECT RB IHTRTN EJECT * * 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./8000MEANS DEVICE READY DATA 0 ECB-ADDRESS DATA 0 ORDER DATA TCAD POINTER TO ADDRESS BLOCK DATA 0 TTAB-ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE DATA 0 BLOCK COUNTER DATA 0 SEQ. INDICATOR XIF EJECT * * * 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 IS READY DATA 0 ECB-ADDRESS DATA 0 ORDER DATA TCAD POINTER TO ADDRESS BLOCK DATA 0 TTAB-ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE DWTBKC EQU *-DWTC01 BLOCK COUNTER DATA 0 SEKBYT EQU *-DWTC01 DATA 0 SEQ. INDICATOR * * END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT DRTC01 REL=7.2 DATE=77-09-09«, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…009a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x005e}
0x009a…00a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009e}
0x00a4…00cc Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00a8}
0x00cc…00d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d0}
0x00d6…0108 Head {h00=0x002e, h01=0x0050, text=»* DRTC01 = DRIVER TAPE CASSETTE RECORDER«, t00=0x0000, t01=0x00da}
0x0108…0112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…011c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…013e Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0120}
0x013e…0148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…016a Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x014c}
0x016a…0174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…01b4 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0178}
0x01b4…01be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0028}
0x01be…01c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0032}
0x01c8…020a Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS«, t00=0x0001, t01=0x003c}
0x020a…0234 Head {h00=0x0026, h01=0x0050, text=»* CONNECTED TO CPU VIA CHCR-DCR «, t00=0x0001, t01=0x007e}
0x0234…023e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a8}
0x023e…0280 Head {h00=0x003e, h01=0x0050, text=»* ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT«, t00=0x0001, t01=0x00b2}
0x0280…02a0 Head {h00=0x001c, h01=0x0050, text=»* AT REWIND AND UNLOAD«, t00=0x0001, t01=0x00f4}
0x02a0…02aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x02aa…02e8 Head {h00=0x003a, h01=0x0050, text=»* DATA IS RECORDED IN BLOCKS WITH A LENGTH FROM 2 TO«, t00=0x0001, t01=0x011e}
0x02e8…0302 Head {h00=0x0016, h01=0x0050, text=»* 256 CHARACTERS«, t00=0x0001, t01=0x015c}
0x0302…030c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0176}
0x030c…0316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0180}
0x0316…034e Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0001, t01=0x018a}
0x034e…0358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0032}
0x0358…037e Head {h00=0x0022, h01=0x0050, text=»* T C D A : ACTIVATION PART «, t00=0x0002, t01=0x003c}
0x037e…0388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0062}
0x0388…03b0 Head {h00=0x0024, h01=0x0050, text=»* I H T C : INTERRUPT HANDLER «, t00=0x0002, t01=0x006c}
0x03b0…03ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0094}
0x03ba…03e4 Head {h00=0x0026, h01=0x0050, text=»* R C O V E R : RECOVERY ROUTINE«, t00=0x0002, t01=0x009e}
0x03e4…03ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c8}
0x03ee…041c Head {h00=0x002a, h01=0x0050, text=»* D W T C 0 1 : DEVICE WORK TABLE 01«, t00=0x0002, t01=0x00d2}
0x041c…0426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0100}
0x0426…0454 Head {h00=0x002a, h01=0x0050, text=»* D W T C 0 2 : DEVICE WORK TABLE 02«, t00=0x0002, t01=0x010a}
0x0454…045e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0138}
0x045e…048e Head {h00=0x002c, h01=0x0050, text=»* AND O R D E R P R O C E S S O R S «, t00=0x0002, t01=0x0142}
0x048e…0498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0172}
0x0498…04c6 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x017c}
0x04c6…04d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001a}
0x04d0…04f2 Head {h00=0x001e, h01=0x0050, text=»* ORDER /00: TEST STATUS«, t00=0x0003, t01=0x0024}
0x04f2…050e Head {h00=0x0018, h01=0x0050, text=»* /02: READ «, t00=0x0003, t01=0x0046}
0x050e…052e Head {h00=0x001c, h01=0x0050, text=»* /05: WRITE «, t00=0x0003, t01=0x0062}
0x052e…054e Head {h00=0x001c, h01=0x0050, text=»* /06: WRITE «, t00=0x0003, t01=0x0082}
0x054e…0574 Head {h00=0x0022, h01=0x0050, text=»* /22: WRITE TAPE MARK«, t00=0x0003, t01=0x00a2}
0x0574…0592 Head {h00=0x001a, h01=0x0050, text=»* /26: LOCK«, t00=0x0003, t01=0x00c8}
0x0592…05b0 Head {h00=0x001a, h01=0x0050, text=»* /31: REWIND «, t00=0x0003, t01=0x00e6}
0x05b0…05d2 Head {h00=0x001e, h01=0x0050, text=»* /33: REVERSE «, t00=0x0003, t01=0x0104}
0x05d2…05f2 Head {h00=0x001c, h01=0x0050, text=»* /24: ERASE «, t00=0x0003, t01=0x0126}
0x05f2…060e Head {h00=0x0018, h01=0x0050, text=»* /37: LOAD «, t00=0x0003, t01=0x0146}
0x060e…062c Head {h00=0x001a, h01=0x0050, text=»* /38: UNLOAD «, t00=0x0003, t01=0x0162}
0x062c…0636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0180}
0x0636…0666 Head {h00=0x002c, h01=0x0050, text=»* THE FOLLOWING RETURN CODES ARE USED:«, t00=0x0003, t01=0x018a}
0x0666…0670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002a}
0x0670…068e Head {h00=0x001a, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x0004, t01=0x0034}
0x068e…06a6 Head {h00=0x0014, h01=0x0050, text=»* 1 LEADER «, t00=0x0004, t01=0x0052}
0x06a6…06c2 Head {h00=0x0018, h01=0x0050, text=»* 2 BOT MISSING«, t00=0x0004, t01=0x006a}
0x06c2…06e6 Head {h00=0x0020, h01=0x0050, text=»* 3 TAPE MARK DETECTED «, t00=0x0004, t01=0x0086}
0x06e6…0706 Head {h00=0x001c, h01=0x0050, text=»* 4 NO DATA/ERASED «, t00=0x0004, t01=0x00aa}
0x0706…0724 Head {h00=0x001a, h01=0x0050, text=»* 5 BOT/EOT HOLE «, t00=0x0004, t01=0x00ca}
0x0724…0744 Head {h00=0x001c, h01=0x0050, text=»* 6 WRITE PROTECTED«, t00=0x0004, t01=0x00e8}
0x0744…075c Head {h00=0x0014, h01=0x0050, text=»* 7 B-SIDE «, t00=0x0004, t01=0x0108}
0x075c…077c Head {h00=0x001c, h01=0x0050, text=»* 9 REWIND TIME-OUT«, t00=0x0004, t01=0x0120}
0x077c…079c Head {h00=0x001c, h01=0x0050, text=»* 11 SEQUENCE ERROR «, t00=0x0004, t01=0x0140}
0x079c…07c0 Head {h00=0x0020, h01=0x0050, text=»* -READ SEQUENCE ERROR«, t00=0x0004, t01=0x0160}
0x07c0…0802 Head {h00=0x003e, h01=0x0050, text=»* -POSITION OF TAPE UNSUCCESSFULL AT WRITE RECOVERY «, t00=0x0004, t01=0x0184}
0x0802…083c Head {h00=0x0036, h01=0x0050, text=»* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED«, t00=0x0005, t01=0x0036}
0x083c…086c Head {h00=0x002c, h01=0x0050, text=»* -POWER RECOVERY NOT SUCCESSFULL «, t00=0x0005, t01=0x0070}
0x086c…088e Head {h00=0x001e, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x0005, t01=0x00a0}
0x088e…08aa Head {h00=0x0018, h01=0x0050, text=»* 13 CRC ERRROR «, t00=0x0005, t01=0x00c2}
0x08aa…08cc Head {h00=0x001e, h01=0x0050, text=»* 14 THROUGHPUT ERROR «, t00=0x0005, t01=0x00de}
0x08cc…08ea Head {h00=0x001a, h01=0x0050, text=»* 15 NOT OPERABEL «, t00=0x0005, t01=0x0100}
0x08ea…08f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011e}
0x08f4…0902 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0128}
0x0902…090c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0136}
0x090c…0932 Head {h00=0x0022, h01=0x0050, text=»* NORMAL USAGE OF REGISTERS:«, t00=0x0005, t01=0x0140}
0x0932…093c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0166}
0x093c…0960 Head {h00=0x0020, h01=0x0050, text=»* REGISTER A1: RETURN CODE«, t00=0x0005, t01=0x0170}
0x0960…0984 (6, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* A2: SST STATUS «, t00=0x0006, t01=0x0004}
0x0984…09b2 Head {h00=0x002a, h01=0x0050, text=»* A3: DWT STATUS AFTER SST «, t00=0x0006, t01=0x0028}
0x09b2…09d8 Head {h00=0x0022, h01=0x0050, text=»* A4: RETRY COUNTER«, t00=0x0006, t01=0x0056}
0x09d8…0a16 Head {h00=0x003a, h01=0x0050, text=»* A5: SEQUENCE CHARACTER AFTER READ/WRITE «, t00=0x0006, t01=0x007c}
0x0a16…0a3a Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0006, t01=0x00ba}
0x0a3a…0a80 Head {h00=0x0042, h01=0x0050, text=»* A7: BUFFER INDEX,=1000 AT READ SEQUENCE CHARACTER«, t00=0x0006, t01=0x00de}
0x0a80…0aaa Head {h00=0x0026, h01=0x0050, text=»* A8: SUBROUTINE STACK «, t00=0x0006, t01=0x0124}
0x0aaa…0ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014e}
0x0ab4…0abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0158}
0x0abe…0adc Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION:«, t00=0x0006, t01=0x0162}
0x0adc…0ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0180}
0x0ae6…0b24 Head {h00=0x003a, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER CAN BE«, t00=0x0006, t01=0x018a}
0x0b24…0b42 Head {h00=0x001a, h01=0x0050, text=»* REDUCED TO HANDLE:«, t00=0x0007, t01=0x0038}
0x0b42…0b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0056}
0x0b4c…0b72 Head {h00=0x0022, h01=0x0050, text=»* -ONLY ONE CASSETTE RECORDER«, t00=0x0007, t01=0x0060}
0x0b72…0ba6 Head {h00=0x0030, h01=0x0050, text=»* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED «, t00=0x0007, t01=0x0086}
0x0ba6…0bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ba}
0x0bb0…0bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bba…0bc8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00ce}
0x0bc8…0bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00dc}
0x0bd2…0bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e6}
0x0bdc…0bf0 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0007, t01=0x00f0}
0x0bf0…0c04 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES: *«, t00=0x0007, t01=0x0104}
0x0c04…0c18 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0007, t01=0x0118}
0x0c18…0c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012c}
0x0c22…0c48 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHTC INTERRUPT ADDRESS «, t00=0x0007, t01=0x0136}
0x0c48…0c7a Head {h00=0x002e, h01=0x0050, text=» ENTRY DWTC01 DWT FOR CASSETTE RECORDER 01«, t00=0x0007, t01=0x015c}
0x0c7a…0cac Head {h00=0x002e, h01=0x0050, text=» ENTRY DWTC02 DWT FOR CASSETTE RECORDER 02«, t00=0x0007, t01=0x018e}
0x0cac…0cd4 Head {h00=0x0024, h01=0x0050, text=» ENTRY TCDRON POWER UP RECOVERY «, t00=0x0008, t01=0x0030}
0x0cd4…0cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0058}
0x0cde…0d06 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x0062}
0x0d06…0d2e Head {h00=0x0024, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0008, t01=0x008a}
0x0d2e…0d56 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0008, t01=0x00b2}
0x0d56…0d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00da}
0x0d60…0d8a Head {h00=0x0026, h01=0x0050, text=» EXTRN TDISP DISPATCHER MAIN ENTRY«, t00=0x0008, t01=0x00e4}
0x0d8a…0dbc Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 DISPATCHER SAVE REGS 1-8 SUB «, t00=0x0008, t01=0x010e}
0x0dbc…0dee Head {h00=0x002e, h01=0x0050, text=» EXTRN RETUR8 DISPATCHER LOAD A1-A8 RETURN«, t00=0x0008, t01=0x0140}
0x0dee…0e1e Head {h00=0x002c, h01=0x0050, text=» EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE «, t00=0x0008, t01=0x0172}
0x0e1e…0e56 Head {h00=0x0034, h01=0x0050, text=» EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY«, t00=0x0009, t01=0x0012}
0x0e56…0e84 Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0009, t01=0x004a}
0x0e84…0e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0078}
0x0e8e…0e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0082}
0x0e98…0eb2 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0009, t01=0x008c}
0x0eb2…0ecc Head {h00=0x0016, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x0009, t01=0x00a6}
0x0ecc…0ee6 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0009, t01=0x00c0}
0x0ee6…0ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00da}
0x0ef0…0f1a Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTST DWT SOFTWARE STATUS: «, t00=0x0009, t01=0x00e4}
0x0f1a…0f52 Head {h00=0x0034, h01=0x0050, text=»* BIT # 0 - DEVICE READY AND CONTROLLER READY «, t00=0x0009, t01=0x010e}
0x0f52…0f86 Head {h00=0x0030, h01=0x0050, text=»* BIT #11 - TAPE MARK ENCOUNTERED ON LAST «, t00=0x0009, t01=0x0146}
0x0f86…0fb6 Head {h00=0x002c, h01=0x0050, text=»* BIT #12 - REPOSITIONING AT RECOVERY «, t00=0x0009, t01=0x017a}
0x0fb6…0fdc Head {h00=0x0022, h01=0x0050, text=»* BIT #13 - WRITE PROTECTED «, t00=0x000a, t01=0x001a}
0x0fdc…0ff8 Head {h00=0x0018, h01=0x0050, text=»* BIT #14 - A-SIDE«, t00=0x000a, t01=0x0040}
0x0ff8…1026 Head {h00=0x002a, h01=0x0050, text=» BIT #15 - DEVICE LOCKED (OPERABLE) «, t00=0x000a, t01=0x005c}
0x1026…1044 Head {h00=0x001a, h01=0x0050, text=» EXTRN DWTOR DWT ORDER«, t00=0x000a, t01=0x008a}
0x1044…106a Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTECB DWT ECB ADDRESS «, t00=0x000a, t01=0x00a8}
0x106a…1074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ce}
0x1074…1082 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00d8}
0x1082…108c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e6}
0x108c…10ac Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x00f0}
0x10ac…10cc Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x000a, t01=0x0110}
0x10cc…10ec Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0130}
0x10ec…10f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0150}
0x10f6…1138 Head {h00=0x003e, h01=0x0050, text=»* THE DRIVER CAN BE REDUCED TO HANDLE ONLY ONE CASSETTE «, t00=0x000a, t01=0x015a}
0x1138…115e Head {h00=0x0022, h01=0x0050, text=»* RECORDER BY SETTING X:A=1 «, t00=0x000b, t01=0x000c}
0x115e…1168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0032}
0x1168…117a Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x000b, t01=0x003c}
0x117a…1190 Head {h00=0x0012, h01=0x0050, text=»DBCAS EQU X:A «, t00=0x000b, t01=0x004e}
0x1190…119a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0064}
0x119a…11d4 Head {h00=0x0036, h01=0x0050, text=»* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED«, t00=0x000b, t01=0x006e}
0x11d4…11f0 Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:B=0«, t00=0x000b, t01=0x00a8}
0x11f0…11fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c4}
0x11fa…120c Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000b, t01=0x00ce}
0x120c…1222 Head {h00=0x0012, h01=0x0050, text=»REVER EQU X:B «, t00=0x000b, t01=0x00e0}
0x1222…1230 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00f6}
0x1230…123a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0104}
0x123a…1244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010e}
0x1244…1266 Head {h00=0x001e, h01=0x0050, text=»* CONSTANTS AND WORK AREAS«, t00=0x000b, t01=0x0118}
0x1266…1270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x013a}
0x1270…1298 Head {h00=0x0024, h01=0x0050, text=»TCAD DATA TCDA ACTIVATION ENTRY «, t00=0x000b, t01=0x0144}
0x1298…12b8 Head {h00=0x001c, h01=0x0050, text=» RES 4 SUBROUTINE STACK «, t00=0x000b, t01=0x016c}
0x12b8…12cc Head {h00=0x0010, h01=0x0050, text=»STB EQU *-2 «, t00=0x000b, t01=0x018c}
0x12cc…12f4 Head {h00=0x0024, h01=0x0050, text=»TAB DATA /0506,/0002,/2231,/3738«, t00=0x000c, t01=0x0010}
0x12f4…1308 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x000c, t01=0x0038}
0x1308…1322 Head {h00=0x0016, h01=0x0050, text=» DATA /3324,/26FF «, t00=0x000c, t01=0x004c}
0x1322…132e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0066}
0x132e…1344 Head {h00=0x0012, h01=0x0050, text=»TABL EQU *-TAB«, t00=0x000c, t01=0x0072}
0x1344…1352 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0088}
0x1352…135c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0096}
0x135c…1376 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000c, t01=0x00a0}
0x1376…1390 Head {h00=0x0016, h01=0x0050, text=»* ECB PARAMETERS *«, t00=0x000c, t01=0x00ba}
0x1390…13aa Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000c, t01=0x00d4}
0x13aa…13b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ee}
0x13b4…13dc Head {h00=0x0024, h01=0x0050, text=»ECBRL EQU 4 ECB REQUESTED LENGTH«, t00=0x000c, t01=0x00f8}
0x13dc…1404 Head {h00=0x0024, h01=0x0050, text=»ECBEL EQU 6 ECB EFFECTIVE LENGTH«, t00=0x000c, t01=0x0120}
0x1404…142a Head {h00=0x0022, h01=0x0050, text=»ECBCW EQU 10 ECB CONTROL WORD «, t00=0x000c, t01=0x0148}
0x142a…1434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016e}
0x1434…143e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0178}
0x143e…1462 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000c, t01=0x0182}
0x1462…1486 Head {h00=0x0020, h01=0x0050, text=»* CHANNEL UNIT PARAMETERS * «, t00=0x000d, t01=0x0016}
0x1486…14aa Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000d, t01=0x003a}
0x14aa…14b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005e}
0x14b4…14be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0068}
0x14be…14d8 Head {h00=0x0016, h01=0x0050, text=»* DEVICE ADDRESS:«, t00=0x000d, t01=0x0072}
0x14d8…14e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008c}
0x14e2…14f8 Head {h00=0x0012, h01=0x0050, text=»CHCRDA EQU /0E«, t00=0x000d, t01=0x0096}
0x14f8…1502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ac}
0x1502…1518 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000d, t01=0x00b6}
0x1518…152e Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000d, t01=0x00cc}
0x152e…1544 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000d, t01=0x00e2}
0x1544…154e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f8}
0x154e…1574 Head {h00=0x0022, h01=0x0050, text=»RTRIES EQU 3 MAX NO OF RETRIES«, t00=0x000d, t01=0x0102}
0x1574…157e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0128}
0x157e…15ac Head {h00=0x002a, h01=0x0050, text=»PSUBS EQU 5 POWER UP BACKSPACE NUMBER «, t00=0x000d, t01=0x0132}
0x15ac…15b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0160}
0x15b6…15de Head {h00=0x0024, h01=0x0050, text=»PREAD EQU 4 POWER UP READ NUMBER«, t00=0x000d, t01=0x016a}
0x15de…15e8 (14, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e8…1622 Head {h00=0x0036, h01=0x0050, text=»PINT EQU 10 POWER UP RECOVERY BLOCK COUNT INTERVAL«, t00=0x000e, t01=0x000e}
0x1622…162c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0048}
0x162c…1640 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x000e, t01=0x0052}
0x1640…166e Head {h00=0x002a, h01=0x0050, text=»PERAS EQU 6 NO OF ERASE FOR ORDER /24 «, t00=0x000e, t01=0x0066}
0x166e…167a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0094}
0x167a…1688 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00a0}
0x1688…1692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ae}
0x1692…169c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b8}
0x169c…16b0 Head {h00=0x0010, h01=0x0050, text=»* T C D A «, t00=0x000e, t01=0x00c2}
0x16b0…16ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d6}
0x16ba…16fa Head {h00=0x003c, h01=0x0050, text=»* ACTIVATION PART: CHECK VALIDITY OF ORDERS AND START «, t00=0x000e, t01=0x00e0}
0x16fa…1722 Head {h00=0x0024, h01=0x0050, text=»* PROCESSING «, t00=0x000e, t01=0x0120}
0x1722…172c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0148}
0x172c…1736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0152}
0x1736…1748 Head {h00=0x000e, h01=0x0050, text=»TCDA EQU *«, t00=0x000e, t01=0x015c}
0x1748…1754 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x000e, t01=0x016e}
0x1754…1760 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x000e, t01=0x017a}
0x1760…176c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000e, t01=0x0186}
0x176c…177e (15, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x000f, t01=0x0004}
0x177e…1794 Head {h00=0x0012, h01=0x0050, text=» LDK A4,TABL-1«, t00=0x000f, t01=0x0016}
0x1794…17c8 Head {h00=0x0030, h01=0x0050, text=»TCDA10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER«, t00=0x000f, t01=0x002c}
0x17c8…17ea Head {h00=0x001e, h01=0x0050, text=» RF(E) TCDA20 VALID ORDER «, t00=0x000f, t01=0x0060}
0x17ea…17fc Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000f, t01=0x0082}
0x17fc…181c Head {h00=0x001c, h01=0x0050, text=» RB(NN) TCDA10 TRY NEXT «, t00=0x000f, t01=0x0094}
0x181c…1830 Head {h00=0x0010, h01=0x0050, text=»TCDA15 EQU *«, t00=0x000f, t01=0x00b4}
0x1830…1852 Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE ILLEGAL ORDER «, t00=0x000f, t01=0x00c8}
0x1852…187e Head {h00=0x0028, h01=0x0050, text=»TCDA20 ADR A4,A4 DOUBLE TO GET INDEX«, t00=0x000f, t01=0x00ea}
0x187e…189e Head {h00=0x001c, h01=0x0050, text=» ST A4,TCDAX SAVE INDEX «, t00=0x000f, t01=0x0116}
0x189e…18ca Head {h00=0x0028, h01=0x0050, text=» LD A5,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x000f, t01=0x0136}
0x18ca…18f6 Head {h00=0x0028, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQUENCE COUNTER ? «, t00=0x000f, t01=0x0162}
0x18f6…1910 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA21 NO «, t00=0x000f, t01=0x018e}
0x1910…1944 Head {h00=0x0030, h01=0x0050, text=» ADK A5,1 COMPENSATE FOR SEQUENCE CHARACTER «, t00=0x0010, t01=0x0018}
0x1944…1958 Head {h00=0x0010, h01=0x0050, text=»TCDA21 EQU *«, t00=0x0010, t01=0x004c}
0x1958…198a Head {h00=0x002e, h01=0x0050, text=» LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS «, t00=0x0010, t01=0x0060}
0x198a…199c Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0010, t01=0x0092}
0x199c…19b6 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDR10 YES«, t00=0x0010, t01=0x00a4}
0x19b6…19e2 Head {h00=0x0028, h01=0x0050, text=» ST A5,TCDLEN SAVE REQUESTED LENGTH «, t00=0x0010, t01=0x00be}
0x19e2…19fc Head {h00=0x0016, h01=0x0050, text=» SUK A7,/37 LOAD ?«, t00=0x0010, t01=0x00ea}
0x19fc…1a16 Head {h00=0x0016, h01=0x0050, text=» RF(NE) TCDA22 NO «, t00=0x0010, t01=0x0104}
0x1a16…1a3c Head {h00=0x0022, h01=0x0050, text=» LD A3,10,A8 GET CONTROL WORD «, t00=0x0010, t01=0x011e}
0x1a3c…1a4e Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0010, t01=0x0144}
0x1a4e…1a84 Head {h00=0x0032, h01=0x0050, text=» ST A3,SEKBYT,A6 INDICATE SEQ. COUNTER OR NOT «, t00=0x0010, t01=0x0156}
0x1a84…1a98 Head {h00=0x0010, h01=0x0050, text=»TCDA22 EQU *«, t00=0x0010, t01=0x018c}
0x1a98…1abe Head {h00=0x0022, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0011, t01=0x0010}
0x1abe…1ada Head {h00=0x0018, h01=0x0050, text=» ST A3,TCDBA SAVE IT«, t00=0x0011, t01=0x0036}
0x1ada…1aec Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0011, t01=0x0052}
0x1aec…1b0c Head {h00=0x001c, h01=0x0050, text=» RF(P) TCDA25 NOT WRITE «, t00=0x0011, t01=0x0064}
0x1b0c…1b1e Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0011, t01=0x0084}
0x1b1e…1b4a Head {h00=0x0028, h01=0x0050, text=» RB(N) TCDA15 LESS THAN 2 CHARACTERS«, t00=0x0011, t01=0x0096}
0x1b4a…1b5e Head {h00=0x0010, h01=0x0050, text=» SUK A5,254 «, t00=0x0011, t01=0x00c2}
0x1b5e…1b8c Head {h00=0x002a, h01=0x0050, text=» RB(P) TCDA15 MORE THAN 256 CHARACTERS«, t00=0x0011, t01=0x00d6}
0x1b8c…1b9e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A5«, t00=0x0011, t01=0x0104}
0x1b9e…1bc6 Head {h00=0x0024, h01=0x0050, text=» LD A4,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x0011, t01=0x0116}
0x1bc6…1be0 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TCDA25 NO «, t00=0x0011, t01=0x013e}
0x1be0…1c10 Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER «, t00=0x0011, t01=0x0158}
0x1c10…1c38 Head {h00=0x0024, h01=0x0050, text=» SC A2,255,A3 STORE IT IN BUFFER«, t00=0x0011, t01=0x0188}
0x1c38…1c4c Head {h00=0x0010, h01=0x0050, text=»TCDA25 EQU *«, t00=0x0012, t01=0x0020}
0x1c4c…1c72 Head {h00=0x0022, h01=0x0050, text=» ST A6,TCDADT SAVE ACTIVE DWT «, t00=0x0012, t01=0x0034}
0x1c72…1c80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x005a}
0x1c80…1c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0068}
0x1c8a…1c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0072}
0x1c94…1cae Head {h00=0x0016, h01=0x0050, text=»* SELECT RECORDER «, t00=0x0012, t01=0x007c}
0x1cae…1cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0096}
0x1cb8…1cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a0}
0x1cc2…1cec Head {h00=0x0026, h01=0x0050, text=»TCDA30 LDKL A8,STB LOAD STACK BASE«, t00=0x0012, t01=0x00aa}
0x1cec…1d10 Head {h00=0x0020, h01=0x0050, text=» CF A8,SELECT SELECT CASSETT«, t00=0x0012, t01=0x00d4}
0x1d10…1d2e Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 SAVE STATUS«, t00=0x0012, t01=0x00f8}
0x1d2e…1d5e Head {h00=0x002c, h01=0x0050, text=» LDK A4,RTRIES PRESET NUMBER OF RETRIES «, t00=0x0012, t01=0x0116}
0x1d5e…1d84 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,0 GET FUNCTION INDEX «, t00=0x0012, t01=0x0146}
0x1d84…1daa Head {h00=0x0022, h01=0x0050, text=»TCDAX EQU *-2 **ORDER INDEX** «, t00=0x0012, t01=0x016c}
0x1daa…1dd4 (19, 0, 398) Head {h00=0x0026, h01=0x0050, text=» ABI TCDFUN,A2 BRANCH TO FUNCTION «, t00=0x0013, t01=0x0004}
0x1dd4…1e14 Head {h00=0x003c, h01=0x0050, text=»TCDFUN DATA WRITE,WRITE,ENDIO,READ,TM,REWIND,LOAD,UNLOAD«, t00=0x0013, t01=0x002e}
0x1e14…1e28 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x0013, t01=0x006e}
0x1e28…1e4a Head {h00=0x001e, h01=0x0050, text=» DATA REVERS,ERTAPE,OLOCK «, t00=0x0013, t01=0x0082}
0x1e4a…1e56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00a4}
0x1e56…1e64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00b0}
0x1e64…1e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00be}
0x1e6e…1e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c8}
0x1e78…1e9a Head {h00=0x001e, h01=0x0050, text=»* RECOVERY AFTER POWER ON «, t00=0x0013, t01=0x00d2}
0x1e9a…1ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f4}
0x1ea4…1eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00fe}
0x1eae…1ec2 Head {h00=0x0010, h01=0x0050, text=»TCDRON EQU *«, t00=0x0013, t01=0x0108}
0x1ec2…1ed8 Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0013, t01=0x011c}
0x1ed8…1efc Head {h00=0x0020, h01=0x0050, text=» LDKL A8,STB LOAD STACK BASE«, t00=0x0013, t01=0x0132}
0x1efc…1f1e Head {h00=0x001e, h01=0x0050, text=» LDKL A6,DWTC01 FIRST DWT «, t00=0x0013, t01=0x0156}
0x1f1e…1f3c Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0013, t01=0x0178}
0x1f3c…1f50 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0014, t01=0x0008}
0x1f50…1f72 Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x0014, t01=0x001c}
0x1f72…1f90 Head {h00=0x001a, h01=0x0050, text=» CF A8,RCOVER RECOVERY«, t00=0x0014, t01=0x003e}
0x1f90…1f9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x005c}
0x1f9c…1fbe Head {h00=0x001e, h01=0x0050, text=» LDKL A4,0 GET ACTIVE DWT «, t00=0x0014, t01=0x0068}
0x1fbe…1fee Head {h00=0x002c, h01=0x0050, text=»TCDADT EQU *-2 **ACTIVATED DWT ADDRESS**«, t00=0x0014, t01=0x008a}
0x1fee…2016 Head {h00=0x0024, h01=0x0050, text=» RF(Z) ENDIO NO REQUEST GOING ON«, t00=0x0014, t01=0x00ba}
0x2016…203e Head {h00=0x0024, h01=0x0050, text=» LDR A6,A4 PUT DWT ADDRESS IN A6«, t00=0x0014, t01=0x00e2}
0x203e…2064 Head {h00=0x0022, h01=0x0050, text=» LD A3,SEKBYT,A6 SEQ. COUNTING«, t00=0x0014, t01=0x010a}
0x2064…2090 Head {h00=0x0028, h01=0x0050, text=» RB(Z) TCDA30 YES; REACTIVATE ORDER «, t00=0x0014, t01=0x0130}
0x2090…20be Head {h00=0x002a, h01=0x0050, text=»TCDR10 ANK A3,1 JUSTIFY SEQ. INDICATOR«, t00=0x0014, t01=0x015c}
0x20be…20d6 Head {h00=0x0014, h01=0x0050, text=» ST A3,SEKBYT,A6«, t00=0x0014, t01=0x018a}
0x20d6…2106 Head {h00=0x002c, h01=0x0050, text=» ORK A1,/10 IND SEQUENCE ERROR, BIT #11 «, t00=0x0015, t01=0x0012}
0x2106…2118 Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0015, t01=0x0042}
0x2118…2126 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0054}
0x2126…213a Head {h00=0x0010, h01=0x0050, text=»* R E A D «, t00=0x0015, t01=0x0062}
0x213a…2156 Head {h00=0x0018, h01=0x0050, text=»* READ ONE RECORD «, t00=0x0015, t01=0x0076}
0x2156…2160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0092}
0x2160…2172 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0015, t01=0x009c}
0x2172…2198 Head {h00=0x0022, h01=0x0050, text=»READ10 CF A8,READR READ RECORD«, t00=0x0015, t01=0x00ae}
0x2198…21ba Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT-BIT«, t00=0x0015, t01=0x00d4}
0x21ba…21cc Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0015, t01=0x00f6}
0x21cc…21e0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x0015, t01=0x0108}
0x21e0…2200 Head {h00=0x001c, h01=0x0050, text=» RF(Z) READ20 STATUS OK «, t00=0x0015, t01=0x011c}
0x2200…222a Head {h00=0x0026, h01=0x0050, text=»READ15 SUK A4,1 RECOVERABLE ERROR «, t00=0x0015, t01=0x013c}
0x222a…224e Head {h00=0x0020, h01=0x0050, text=» RF(Z) READ20 3 TRIALS DONE «, t00=0x0015, t01=0x0166}
0x224e…2276 Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x0015, t01=0x018a}
0x2276…2294 Head {h00=0x001a, h01=0x0050, text=» RB READ10 READ AGAIN «, t00=0x0016, t01=0x0022}
0x2294…22ac Head {h00=0x0014, h01=0x0050, text=»READ20 LDR A2,A1«, t00=0x0016, t01=0x0040}
0x22ac…22d0 Head {h00=0x0020, h01=0x0050, text=» SLL A2,3 CHECK IF TAPE MARK«, t00=0x0016, t01=0x0058}
0x22d0…22f4 Head {h00=0x0020, h01=0x0050, text=» RF(NN) READ30 NOT TAPE MARK«, t00=0x0016, t01=0x007c}
0x22f4…231a Head {h00=0x0022, h01=0x0050, text=» ORK A3,/10 INDICATE TAPE MARK«, t00=0x0016, t01=0x00a0}
0x231a…232e Head {h00=0x0010, h01=0x0050, text=» RF READ35 «, t00=0x0016, t01=0x00c6}
0x232e…2346 Head {h00=0x0014, h01=0x0050, text=»READ30 LDR A2,A1«, t00=0x0016, t01=0x00da}
0x2346…236a Head {h00=0x0020, h01=0x0050, text=» ANKL A2,/801 NODATA,NOT OP «, t00=0x0016, t01=0x00f2}
0x236a…2380 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) READ32«, t00=0x0016, t01=0x0116}
0x2380…23a4 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A7 EFFECTIVE LENGTH «, t00=0x0016, t01=0x012c}
0x23a4…23ca Head {h00=0x0022, h01=0x0050, text=» RF(NZ) READ32 NOT EQUAL ZERO «, t00=0x0016, t01=0x0150}
0x23ca…23ee Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 THIRD TRIAL DONE «, t00=0x0016, t01=0x0176}
0x23ee…241e Head {h00=0x002c, h01=0x0050, text=» RB(NZ) READ15 NO; READ SAME BLOCK AGAIN«, t00=0x0017, t01=0x000a}
0x241e…2448 Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 SET NO OF RETRIES TO ONE«, t00=0x0017, t01=0x003a}
0x2448…246a Head {h00=0x001e, h01=0x0050, text=» RB READ10 TRY NEXT BLOCK «, t00=0x0017, t01=0x0064}
0x246a…247e Head {h00=0x0010, h01=0x0050, text=»READ32 EQU *«, t00=0x0017, t01=0x0086}
0x247e…24a0 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/2F NOT TAPE MARK «, t00=0x0017, t01=0x009a}
0x24a0…24c8 Head {h00=0x0024, h01=0x0050, text=» LD A2,SEKBYT,A6 SEQ. COUNTING ?«, t00=0x0017, t01=0x00bc}
0x24c8…24e2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) READ35 NO «, t00=0x0017, t01=0x00e4}
0x24e2…2512 Head {h00=0x002c, h01=0x0050, text=» SUK A7,1 DECREMENT EFF. LENGTH COUNTER «, t00=0x0017, t01=0x00fe}
0x2512…2544 Head {h00=0x002e, h01=0x0050, text=» CC A5,DWTBKC+1,A6 CHECK SEQUENCE COUNTER «, t00=0x0017, t01=0x012e}
0x2544…255c Head {h00=0x0014, h01=0x0050, text=» RF(E) READ35 OK«, t00=0x0017, t01=0x0160}
0x255c…257e Head {h00=0x001e, h01=0x0050, text=» ORK A1,/10 SEQUENCE ERROR«, t00=0x0017, t01=0x0178}
0x257e…25b4 Head {h00=0x0032, h01=0x0050, text=»READ35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER«, t00=0x0018, t01=0x000a}
0x25b4…25e2 Head {h00=0x002a, h01=0x0050, text=»READ40 LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0018, t01=0x0040}
0x25e2…2610 Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBEL,A8 SAVE EFFECTIVE LENGTH «, t00=0x0018, t01=0x006e}
0x2610…2626 Head {h00=0x0012, h01=0x0050, text=» LDK A2,RTRIES«, t00=0x0018, t01=0x009c}
0x2626…2658 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 GET NUMBER OF RETRIES PERFORMED«, t00=0x0018, t01=0x00b2}
0x2658…2688 Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBCW,A8 SAVE IT IN CONTROL WORD «, t00=0x0018, t01=0x00e4}
0x2688…269c Head {h00=0x0010, h01=0x0050, text=»READ50 EQU *«, t00=0x0018, t01=0x0114}
0x269c…26c0 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTST,A6 SAVE STATUS «, t00=0x0018, t01=0x0128}
0x26c0…26ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x014c}
0x26ce…26d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015a}
0x26d8…26e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0164}
0x26e2…2700 Head {h00=0x001a, h01=0x0050, text=»* END OF I/O OPERATION«, t00=0x0018, t01=0x016e}
0x2700…270a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x018c}
0x270a…2714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0008}
0x2714…2728 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0019, t01=0x0012}
0x2728…2754 Head {h00=0x0028, h01=0x0050, text=» CM TCDADT INDICATE NONE ACTIVE DWT «, t00=0x0019, t01=0x0026}
0x2754…2768 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0019, t01=0x0052}
0x2768…278a Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT «, t00=0x0019, t01=0x0066}
0x278a…27b8 Head {h00=0x002a, h01=0x0050, text=» CF A15,TENDIO PERFORM TENDIO FOR THIS«, t00=0x0019, t01=0x0088}
0x27b8…27da Head {h00=0x001e, h01=0x0050, text=» LDR* A6,A6 GET FIRST DWT «, t00=0x0019, t01=0x00b6}
0x27da…27e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00d8}
0x27e6…2804 Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0019, t01=0x00e4}
0x2804…2828 Head {h00=0x0020, h01=0x0050, text=» ABL TDISP GO TO DISPATCHER «, t00=0x0019, t01=0x0102}
0x2828…2836 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0126}
0x2836…2840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0134}
0x2840…284a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x013e}
0x284a…2864 Head {h00=0x0016, h01=0x0050, text=»* WRITE TAPE MARK «, t00=0x0019, t01=0x0148}
0x2864…286e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0162}
0x286e…2878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x016c}
0x2878…288c Head {h00=0x0010, h01=0x0050, text=»TM CM TCDLEN«, t00=0x0019, t01=0x0176}
0x288c…2896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x018a}
0x2896…28a0 (26, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0004}
0x28a0…28b6 Head {h00=0x0012, h01=0x0050, text=»* W R I T E «, t00=0x001a, t01=0x000e}
0x28b6…28c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0024}
0x28c0…28dc Head {h00=0x0018, h01=0x0050, text=»* WRITE ONE BLOCK «, t00=0x001a, t01=0x002e}
0x28dc…28e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x004a}
0x28e6…28f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0054}
0x28f0…2920 Head {h00=0x002c, h01=0x0050, text=»WRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER «, t00=0x001a, t01=0x005e}
0x2920…2946 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) WRIT10 NOT FIRST BLOCK«, t00=0x001a, t01=0x008e}
0x2946…2970 Head {h00=0x0026, h01=0x0050, text=» CF A8,ERASE MAKE ONE BLANK BLOCK «, t00=0x001a, t01=0x00b4}
0x2970…299e Head {h00=0x002a, h01=0x0050, text=» SUK A4,1 DEC. NO OF RETRIES 1ST BLOCK«, t00=0x001a, t01=0x00de}
0x299e…29c6 Head {h00=0x0024, h01=0x0050, text=»WRIT10 CF A8,WRITER WRITE RECORD«, t00=0x001a, t01=0x010c}
0x29c6…29e8 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT-BIT«, t00=0x001a, t01=0x0134}
0x29e8…29fa Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x001a, t01=0x0156}
0x29fa…2a0e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/0E «, t00=0x001a, t01=0x0168}
0x2a0e…2a2e Head {h00=0x001c, h01=0x0050, text=» RF(Z) WRIT30 STATUS OK «, t00=0x001a, t01=0x017c}
0x2a2e…2a5e Head {h00=0x002c, h01=0x0050, text=»WRIT12 ST A4,WRITA4 STORE RETRY COUNTER «, t00=0x001b, t01=0x000c}
0x2a5e…2a76 Head {h00=0x0014, h01=0x0050, text=» LD A2,SEKBYT,A6«, t00=0x001b, t01=0x003c}
0x2a76…2a9a Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRIT15 SEQ. COUNTING «, t00=0x001b, t01=0x0054}
0x2a9a…2ac2 Head {h00=0x0024, h01=0x0050, text=» CF A8,BKSP BACKSPACE ONE BLOCK «, t00=0x001b, t01=0x0078}
0x2ac2…2ade Head {h00=0x0018, h01=0x0050, text=» LDK A4,0 ONE ERASE «, t00=0x001b, t01=0x00a0}
0x2ade…2af0 Head {h00=0x000e, h01=0x0050, text=» RF WRIT20«, t00=0x001b, t01=0x00bc}
0x2af0…2b18 Head {h00=0x0024, h01=0x0050, text=»WRIT15 CF A8,REPOS POSITION TAPE«, t00=0x001b, t01=0x00ce}
0x2b18…2b42 Head {h00=0x0026, h01=0x0050, text=» CM SEKBYT,A6 RESET SEQ. INDICATOR«, t00=0x001b, t01=0x00f6}
0x2b42…2b62 Head {h00=0x001c, h01=0x0050, text=» LD A4,WRITA4 GET NO ...«, t00=0x001b, t01=0x0120}
0x2b62…2b74 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x001b, t01=0x0140}
0x2b74…2b9e Head {h00=0x0026, h01=0x0050, text=» RF(NZ) WRIT40 POSITIONING NOT OK «, t00=0x001b, t01=0x0152}
0x2b9e…2bc2 Head {h00=0x0020, h01=0x0050, text=» SUK A4,RTRIES ... OF ERASE «, t00=0x001b, t01=0x017c}
0x2bc2…2be2 Head {h00=0x001c, h01=0x0050, text=»WRIT20 CF A8,ERASE ERASE«, t00=0x001c, t01=0x0010}
0x2be2…2bfe Head {h00=0x0018, h01=0x0050, text=» ORR A1,A2 SAVE EOT «, t00=0x001c, t01=0x0030}
0x2bfe…2c1c Head {h00=0x001a, h01=0x0050, text=» ADK A4,1 COUNT ERASE «, t00=0x001c, t01=0x004c}
0x2c1c…2c3c Head {h00=0x001c, h01=0x0050, text=» RB(NG) WRIT20 NOT READY«, t00=0x001c, t01=0x006a}
0x2c3c…2c60 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,0 GET RETRY COUNTER«, t00=0x001c, t01=0x008a}
0x2c60…2c76 Head {h00=0x0012, h01=0x0050, text=»WRITA4 EQU *-2«, t00=0x001c, t01=0x00ae}
0x2c76…2c88 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001c, t01=0x00c4}
0x2c88…2ca8 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) WRIT10 TRY AGAIN«, t00=0x001c, t01=0x00d6}
0x2ca8…2cda Head {h00=0x002e, h01=0x0050, text=» ORR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 «, t00=0x001c, t01=0x00f6}
0x2cda…2cf4 Head {h00=0x0016, h01=0x0050, text=» RB READ40 GIVE UP«, t00=0x001c, t01=0x0128}
0x2cf4…2d22 Head {h00=0x002a, h01=0x0050, text=»WRIT30 LD A2,TCDLEN TAPE MARK WRITTEN «, t00=0x001c, t01=0x0142}
0x2d22…2d3c Head {h00=0x0016, h01=0x0050, text=» RB(NZ) READ20 NO «, t00=0x001c, t01=0x0170}
0x2d3c…2d58 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A1 CHECK IF «, t00=0x001c, t01=0x018a}
0x2d58…2d76 Head {h00=0x001a, h01=0x0050, text=» SLL A2,3 TAPE MARK OK«, t00=0x001d, t01=0x0016}
0x2d76…2d90 Head {h00=0x0016, h01=0x0050, text=» RB(N) READ20 YES «, t00=0x001d, t01=0x0034}
0x2d90…2da6 Head {h00=0x0012, h01=0x0050, text=» RB WRIT12 NO «, t00=0x001d, t01=0x004e}
0x2da6…2de4 Head {h00=0x003a, h01=0x0050, text=»WRIT40 ORK A1,/10 POSITIONING FAILED = SEQUENSE ERROR «, t00=0x001d, t01=0x0064}
0x2de4…2df6 Head {h00=0x000e, h01=0x0050, text=» RB READ40«, t00=0x001d, t01=0x00a2}
0x2df6…2e04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00b4}
0x2e04…2e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c2}
0x2e0e…2e22 Head {h00=0x0010, h01=0x0050, text=»* L O A D «, t00=0x001d, t01=0x00cc}
0x2e22…2e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e0}
0x2e2c…2e46 Head {h00=0x0016, h01=0x0050, text=»* LOAD CASSETTE «, t00=0x001d, t01=0x00ea}
0x2e46…2e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0104}
0x2e50…2e74 Head {h00=0x0020, h01=0x0050, text=»LOAD CF A8,LOCK LOCK CASSETT«, t00=0x001d, t01=0x010e}
0x2e74…2e98 Head {h00=0x0020, h01=0x0050, text=» RF(Z) REWIND CASSETT LOCKED«, t00=0x001d, t01=0x0132}
0x2e98…2ebc Head {h00=0x0020, h01=0x0050, text=»LOAD10 LDR A1,A2 NO CASSETT «, t00=0x001d, t01=0x0156}
0x2ebc…2ece Head {h00=0x000e, h01=0x0050, text=» RB READ50«, t00=0x001d, t01=0x017a}
0x2ece…2ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x018c}
0x2ed8…2ef0 Head {h00=0x0014, h01=0x0050, text=»* R E W I N D «, t00=0x001e, t01=0x0008}
0x2ef0…2efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0020}
0x2efa…2f12 Head {h00=0x0014, h01=0x0050, text=»* REWIND TAPE «, t00=0x001e, t01=0x002a}
0x2f12…2f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f1c…2f4c Head {h00=0x002c, h01=0x0050, text=»REWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER «, t00=0x001e, t01=0x004c}
0x2f4c…2f74 Head {h00=0x0024, h01=0x0050, text=» CF A8,SBOT SEARCH BEGIN OF TAPE«, t00=0x001e, t01=0x007c}
0x2f74…2f88 Head {h00=0x0010, h01=0x0050, text=»REW010 EQU *«, t00=0x001e, t01=0x00a4}
0x2f88…2f9a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x001e, t01=0x00b8}
0x2f9a…2fac Head {h00=0x000e, h01=0x0050, text=» SRL A3,7 «, t00=0x001e, t01=0x00ca}
0x2fac…2fbe Head {h00=0x000e, h01=0x0050, text=» ANK A3,6 «, t00=0x001e, t01=0x00dc}
0x2fbe…2fde Head {h00=0x001c, h01=0x0050, text=» ORK A3,1 PREPARE STATUS«, t00=0x001e, t01=0x00ee}
0x2fde…2ff0 Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x001e, t01=0x010e}
0x2ff0…2ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0120}
0x2ffa…3012 Head {h00=0x0014, h01=0x0050, text=»* U N L O A D «, t00=0x001e, t01=0x012a}
0x3012…301c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0142}
0x301c…3038 Head {h00=0x0018, h01=0x0050, text=»* UNLOAD CASSETTE «, t00=0x001e, t01=0x014c}
0x3038…3042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0168}
0x3042…306a Head {h00=0x0024, h01=0x0050, text=»UNLOAD CM DWTST,A6 RESET STATUS «, t00=0x001e, t01=0x0172}
0x306a…3082 Head {h00=0x0014, h01=0x0050, text=» CF A8,UNLD UNLD«, t00=0x001f, t01=0x000a}
0x3082…30ac Head {h00=0x0026, h01=0x0050, text=»UNLO10 LDR A1,A2 SAVE RETURN CODE «, t00=0x001f, t01=0x0022}
0x30ac…30be Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x001f, t01=0x004c}
0x30be…30d2 Head {h00=0x0010, h01=0x0050, text=» IFT REVER=1«, t00=0x001f, t01=0x005e}
0x30d2…30e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0072}
0x30e0…30ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0080}
0x30ea…3102 Head {h00=0x0014, h01=0x0050, text=»* R E V E R S «, t00=0x001f, t01=0x008a}
0x3102…310c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00a2}
0x310c…312c Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x001f, t01=0x00ac}
0x312c…3136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00cc}
0x3136…315a Head {h00=0x0020, h01=0x0050, text=»REVERS CF A8,BKSP BACKSPACE «, t00=0x001f, t01=0x00d6}
0x315a…3182 Head {h00=0x0024, h01=0x0050, text=» LDKL A4,-1 DECREMENT BLOCK SEQ.«, t00=0x001f, t01=0x00fa}
0x3182…31aa Head {h00=0x0024, h01=0x0050, text=» ADS A4,DWTBKC,A6 COUNTER BY ONE«, t00=0x001f, t01=0x0122}
0x31aa…31bc Head {h00=0x000e, h01=0x0050, text=» RB UNLO10«, t00=0x001f, t01=0x014a}
0x31bc…31c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x015c}
0x31c6…31de Head {h00=0x0014, h01=0x0050, text=»* E R T A P E «, t00=0x001f, t01=0x0166}
0x31de…31e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017e}
0x31e8…31fe Head {h00=0x0012, h01=0x0050, text=»* ERASE TAPE«, t00=0x001f, t01=0x0188}
0x31fe…3208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x000e}
0x3208…3234 Head {h00=0x0028, h01=0x0050, text=»ERTAPE LDK A4,PERAS SET NO OF ERASE «, t00=0x0020, t01=0x0018}
0x3234…325e Head {h00=0x0026, h01=0x0050, text=»ERT10 CF A8,ERASE ERASE ONE BLOCK «, t00=0x0020, t01=0x0044}
0x325e…3280 Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/400 SAVE EOT BIT«, t00=0x0020, t01=0x006e}
0x3280…329e Head {h00=0x001a, h01=0x0050, text=» ORR A1,A2 RETURN CODE«, t00=0x0020, t01=0x0090}
0x329e…32b0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0020, t01=0x00ae}
0x32b0…32d6 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ERT10 ERASE NOT READY «, t00=0x0020, t01=0x00c0}
0x32d6…32e8 Head {h00=0x000e, h01=0x0050, text=» RB READ50«, t00=0x0020, t01=0x00e6}
0x32e8…32f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f8}
0x32f2…3308 Head {h00=0x0012, h01=0x0050, text=»* O L O C K «, t00=0x0020, t01=0x0102}
0x3308…3312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0118}
0x3312…3332 Head {h00=0x001c, h01=0x0050, text=»* ORDER LOCK CASSETTE «, t00=0x0020, t01=0x0122}
0x3332…333c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0142}
0x333c…3362 Head {h00=0x0022, h01=0x0050, text=»OLOCK CF A8,LOCK LOCK CASSETTE«, t00=0x0020, t01=0x014c}
0x3362…3388 Head {h00=0x0022, h01=0x0050, text=» RB(Z) REW010 CASSETTE LOCKED «, t00=0x0020, t01=0x0172}
0x3388…339a Head {h00=0x000e, h01=0x0050, text=» RB LOAD10«, t00=0x0021, t01=0x0008}
0x339a…33a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x001a}
0x33a6…33b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0026}
0x33b4…33be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0034}
0x33be…33c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x003e}
0x33c8…33e2 Head {h00=0x0016, h01=0x0050, text=»* CASSETT COMMANDS«, t00=0x0021, t01=0x0048}
0x33e2…33ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0062}
0x33ec…33f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006c}
0x33f6…3406 Head {h00=0x000c, h01=0x0050, text=»* SELECT«, t00=0x0021, t01=0x0076}
0x3406…3410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0086}
0x3410…3424 Head {h00=0x0010, h01=0x0050, text=»SELECT EQU *«, t00=0x0021, t01=0x0090}
0x3424…3442 Head {h00=0x001a, h01=0x0050, text=» LDK A2,/FF LOAD MASK «, t00=0x0021, t01=0x00a4}
0x3442…3468 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A6 SET DWT BUSY «, t00=0x0021, t01=0x00c2}
0x3468…347c Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=1«, t00=0x0021, t01=0x00e8}
0x347c…349a Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 SELECT CODE «, t00=0x0021, t01=0x00fc}
0x349a…34a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x011a}
0x34a6…34ba Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x0021, t01=0x0126}
0x34ba…34dc Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 GET OTHER DWT «, t00=0x0021, t01=0x013a}
0x34dc…3502 Head {h00=0x0022, h01=0x0050, text=» ANS A2,DWTST,A3 SET DWT BUSY «, t00=0x0021, t01=0x015c}
0x3502…3524 Head {h00=0x001e, h01=0x0050, text=» ANK A3,1 GET SELECT CODE «, t00=0x0021, t01=0x0182}
0x3524…3530 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0014}
0x3530…3558 Head {h00=0x0024, h01=0x0050, text=»CRCOM CIO A3,1,CHCRDA CIO START «, t00=0x0022, t01=0x0020}
0x3558…3568 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0022, t01=0x0048}
0x3568…3572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0058}
0x3572…3594 Head {h00=0x001e, h01=0x0050, text=»* READ SEQUENCE CHAR TO A5«, t00=0x0022, t01=0x0062}
0x3594…359e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0084}
0x359e…35b2 Head {h00=0x0010, h01=0x0050, text=»READSQ EQU *«, t00=0x0022, t01=0x008e}
0x35b2…35c4 Head {h00=0x000e, h01=0x0050, text=» LDK A3,/A«, t00=0x0022, t01=0x00a2}
0x35c4…35e6 Head {h00=0x001e, h01=0x0050, text=» ECR A7,A3 SET A7 TO /A00 «, t00=0x0022, t01=0x00b4}
0x35e6…35f8 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0022, t01=0x00d6}
0x35f8…3602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e8}
0x3602…361c Head {h00=0x0016, h01=0x0050, text=»* READ ONE RECORD «, t00=0x0022, t01=0x00f2}
0x361c…3626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x010c}
0x3626…363e Head {h00=0x0014, h01=0x0050, text=»READR LDK A3,/A «, t00=0x0022, t01=0x0116}
0x363e…366c Head {h00=0x002a, h01=0x0050, text=»READR1 LDK A7,0 RESET INDEX TO BUFFER «, t00=0x0022, t01=0x012e}
0x366c…367e Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0022, t01=0x015c}
0x367e…3688 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x016e}
0x3688…36a2 Head {h00=0x0016, h01=0x0050, text=»* WRITE ONE RECORD«, t00=0x0022, t01=0x0178}
0x36a2…36ac (35, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0004}
0x36ac…36c4 Head {h00=0x0014, h01=0x0050, text=»WRITER LDK A3,/B«, t00=0x0023, t01=0x000e}
0x36c4…36d6 Head {h00=0x000e, h01=0x0050, text=» RB READR1«, t00=0x0023, t01=0x0026}
0x36d6…36e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0038}
0x36e4…36ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0046}
0x36ee…3708 Head {h00=0x0016, h01=0x0050, text=»* ERASE ONE BLOCK «, t00=0x0023, t01=0x0050}
0x3708…3712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006a}
0x3712…3728 Head {h00=0x0012, h01=0x0050, text=»ERASE LDK A3,9«, t00=0x0023, t01=0x0074}
0x3728…373a Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0023, t01=0x008a}
0x373a…3744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009c}
0x3744…375a Head {h00=0x0012, h01=0x0050, text=»* LOCK CASSETT«, t00=0x0023, t01=0x00a6}
0x375a…3764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00bc}
0x3764…377a Head {h00=0x0012, h01=0x0050, text=»LOCK LDK A3,2 «, t00=0x0023, t01=0x00c6}
0x377a…378c Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0023, t01=0x00dc}
0x378c…3796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ee}
0x3796…37b4 Head {h00=0x001a, h01=0x0050, text=»* SEARCH BEGIN OF TAPE«, t00=0x0023, t01=0x00f8}
0x37b4…37be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0116}
0x37be…37d4 Head {h00=0x0012, h01=0x0050, text=»SBOT LDK A3,8 «, t00=0x0023, t01=0x0120}
0x37d4…37e6 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0023, t01=0x0136}
0x37e6…37f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0148}
0x37f0…381a Head {h00=0x0026, h01=0x0050, text=»* REWIND TAPE AND UNLOCK CASSETTE «, t00=0x0023, t01=0x0152}
0x381a…3824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017c}
0x3824…383a Head {h00=0x0012, h01=0x0050, text=»UNLD LDK A3,/F«, t00=0x0023, t01=0x0186}
0x383a…384c Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0024, t01=0x000c}
0x384c…3856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001e}
0x3856…3874 Head {h00=0x001a, h01=0x0050, text=»* BACKSPACE ONE BLOCK «, t00=0x0024, t01=0x0028}
0x3874…387e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0046}
0x387e…3894 Head {h00=0x0012, h01=0x0050, text=»BKSP LDK A3,/E«, t00=0x0024, t01=0x0050}
0x3894…38a6 Head {h00=0x000e, h01=0x0050, text=» RB CRCOM «, t00=0x0024, t01=0x0066}
0x38a6…38b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0078}
0x38b4…38be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0086}
0x38be…38d2 Head {h00=0x0010, h01=0x0050, text=»* I H T C «, t00=0x0024, t01=0x0090}
0x38d2…38dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a4}
0x38dc…3910 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0024, t01=0x00ae}
0x3910…391a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e2}
0x391a…392c Head {h00=0x000e, h01=0x0050, text=»IHTC EQU *«, t00=0x0024, t01=0x00ec}
0x392c…3954 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0024, t01=0x00fe}
0x3954…3978 Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x0024, t01=0x0126}
0x3978…398a Head {h00=0x000e, h01=0x0050, text=» LDKL A1,0«, t00=0x0024, t01=0x014a}
0x398a…39a0 Head {h00=0x0012, h01=0x0050, text=»TCDA1 EQU *-2 «, t00=0x0024, t01=0x015c}
0x39a0…39b2 Head {h00=0x000e, h01=0x0050, text=» LDKL A4,0«, t00=0x0024, t01=0x0172}
0x39b2…39c8 Head {h00=0x0012, h01=0x0050, text=»TCDA4 EQU *-2 «, t00=0x0024, t01=0x0184}
0x39c8…39da Head {h00=0x000e, h01=0x0050, text=» LDKL A5,0«, t00=0x0025, t01=0x000a}
0x39da…39f0 Head {h00=0x0012, h01=0x0050, text=»TCDA5 EQU *-2 «, t00=0x0025, t01=0x001c}
0x39f0…3a02 Head {h00=0x000e, h01=0x0050, text=» LDKL A6,0«, t00=0x0025, t01=0x0032}
0x3a02…3a18 Head {h00=0x0012, h01=0x0050, text=»TCDA6 EQU *-2 «, t00=0x0025, t01=0x0044}
0x3a18…3a2a Head {h00=0x000e, h01=0x0050, text=» LDKL A7,0«, t00=0x0025, t01=0x005a}
0x3a2a…3a40 Head {h00=0x0012, h01=0x0050, text=»TCDA7 EQU *-2 «, t00=0x0025, t01=0x006c}
0x3a40…3a52 Head {h00=0x000e, h01=0x0050, text=» LDKL A8,0«, t00=0x0025, t01=0x0082}
0x3a52…3a68 Head {h00=0x0012, h01=0x0050, text=»TCDA8 EQU *-2 «, t00=0x0025, t01=0x0094}
0x3a68…3a7e Head {h00=0x0012, h01=0x0050, text=» SST A2,CHCRDA«, t00=0x0025, t01=0x00aa}
0x3a7e…3a9e Head {h00=0x001c, h01=0x0050, text=» RF(A) SST SST ACCEPTED «, t00=0x0025, t01=0x00c0}
0x3a9e…3ad6 Head {h00=0x0034, h01=0x0050, text=» LD A2,TCDAX GET FUNCTION SWITCH FOR READ/WRITE «, t00=0x0025, t01=0x00e0}
0x3ad6…3ae8 Head {h00=0x000e, h01=0x0050, text=» CWK A7,0 «, t00=0x0025, t01=0x0118}
0x3ae8…3b14 Head {h00=0x0028, h01=0x0050, text=»TCDLEN EQU *-2 **REQUESTED LENGTH** «, t00=0x0025, t01=0x012a}
0x3b14…3b2a Head {h00=0x0012, h01=0x0050, text=» RF(E) CIOHLT «, t00=0x0025, t01=0x0156}
0x3b2a…3b54 Head {h00=0x0026, h01=0x0050, text=» RF(G) INRSQ GET SEQUENCE COUNTER «, t00=0x0025, t01=0x016c}
0x3b54…3b7a Head {h00=0x0022, h01=0x0050, text=» LDKL A3,0 GET BUFFER ADDRESS «, t00=0x0026, t01=0x0008}
0x3b7a…3ba2 Head {h00=0x0024, h01=0x0050, text=»TCDBA EQU *-2 **BUFFER ADDRESS**«, t00=0x0026, t01=0x002e}
0x3ba2…3bbe Head {h00=0x0018, h01=0x0050, text=» ADR A3,A7 ADD INDEX«, t00=0x0026, t01=0x0056}
0x3bbe…3be0 Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 INCREMENT INDEX «, t00=0x0026, t01=0x0072}
0x3be0…3bf2 Head {h00=0x000e, h01=0x0050, text=» SUK A2,4 «, t00=0x0026, t01=0x0094}
0x3bf2…3c0e Head {h00=0x0018, h01=0x0050, text=» RF(N) IHTC05 WRITE «, t00=0x0026, t01=0x00a6}
0x3c0e…3c38 Head {h00=0x0026, h01=0x0050, text=»IHTC02 INR A5,0,CHCRDA READ CHAR. «, t00=0x0026, t01=0x00c2}
0x3c38…3c64 Head {h00=0x0028, h01=0x0050, text=» SCR A5,A3 STORE CHARACTER IN BUFFER«, t00=0x0026, t01=0x00ec}
0x3c64…3c74 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0026, t01=0x0118}
0x3c74…3c88 Head {h00=0x0010, h01=0x0050, text=»IHTC05 EQU *«, t00=0x0026, t01=0x0128}
0x3c88…3cb0 Head {h00=0x0024, h01=0x0050, text=» LCR A5,A3 GET CHAR FROM BUFFER «, t00=0x0026, t01=0x013c}
0x3cb0…3cd2 Head {h00=0x001e, h01=0x0050, text=» OTR A5,0,CHCRDA OUTPUT IT«, t00=0x0026, t01=0x0164}
0x3cd2…3ce2 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0026, t01=0x0186}
0x3ce2…3d10 Head {h00=0x002a, h01=0x0050, text=»INRSQ INR A5,0,CHCRDA READ CHAR TO A5 «, t00=0x0027, t01=0x0008}
0x3d10…3d20 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0027, t01=0x0036}
0x3d20…3d40 Head {h00=0x001c, h01=0x0050, text=»SST LDR A3,A2 GET STATUS«, t00=0x0027, t01=0x0046}
0x3d40…3d58 Head {h00=0x0014, h01=0x0050, text=» SLL A3,9 SHIFT «, t00=0x0027, t01=0x0066}
0x3d58…3d7a Head {h00=0x001e, h01=0x0050, text=» ST A3,2,A8 SAVE ON STACK «, t00=0x0027, t01=0x007e}
0x3d7a…3da6 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 PUT DWT STATUS IN A3«, t00=0x0027, t01=0x00a0}
0x3da6…3dba Head {h00=0x0010, h01=0x0050, text=»IHTRTN EQU *«, t00=0x0027, t01=0x00cc}
0x3dba…3dca Head {h00=0x000c, h01=0x0050, text=» RTN A8 «, t00=0x0027, t01=0x00e0}
0x3dca…3df2 Head {h00=0x0024, h01=0x0050, text=»CIOHLT CIO A1,0,CHCRDA CIO-HALT «, t00=0x0027, t01=0x00f0}
0x3df2…3e0a Head {h00=0x0014, h01=0x0050, text=»EXIT ST A1,TCDA1«, t00=0x0027, t01=0x0118}
0x3e0a…3e1e Head {h00=0x0010, h01=0x0050, text=» ST A4,TCDA4«, t00=0x0027, t01=0x0130}
0x3e1e…3e32 Head {h00=0x0010, h01=0x0050, text=» ST A5,TCDA5«, t00=0x0027, t01=0x0144}
0x3e32…3e46 Head {h00=0x0010, h01=0x0050, text=» ST A6,TCDA6«, t00=0x0027, t01=0x0158}
0x3e46…3e5a Head {h00=0x0010, h01=0x0050, text=» ST A7,TCDA7«, t00=0x0027, t01=0x016c}
0x3e5a…3e6e Head {h00=0x0010, h01=0x0050, text=» ST A8,TCDA8«, t00=0x0027, t01=0x0180}
0x3e6e…3e98 (40, 0, 400) Head {h00=0x0026, h01=0x0050, text=»IHTC10 ABL TDISP GO TO DISPATCHER «, t00=0x0028, t01=0x0004}
0x3e98…3ea6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x002e}
0x3ea6…3eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x003c}
0x3eb0…3ec8 Head {h00=0x0014, h01=0x0050, text=»* R C O V E R «, t00=0x0028, t01=0x0046}
0x3ec8…3ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x005e}
0x3ed2…3f0e Head {h00=0x0038, h01=0x0050, text=»* RECOVERY ROUTINE:POSITIONING OF TAPE AT POWER ON«, t00=0x0028, t01=0x0068}
0x3f0e…3f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00a4}
0x3f18…3f2c Head {h00=0x0010, h01=0x0050, text=»RCOVER EQU *«, t00=0x0028, t01=0x00ae}
0x3f2c…3f48 Head {h00=0x0018, h01=0x0050, text=» CF A8,SELECT SELECT«, t00=0x0028, t01=0x00c2}
0x3f48…3f5a Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0028, t01=0x00de}
0x3f5a…3f90 Head {h00=0x0032, h01=0x0050, text=» RB(Z) IHTRTN NOT LOCKED: RETURN FROM RECOVERY«, t00=0x0028, t01=0x00f0}
0x3f90…3fa4 Head {h00=0x0010, h01=0x0050, text=» CF A8,LOCK «, t00=0x0028, t01=0x0126}
0x3fa4…3fc6 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) REPER NO CASSETTE «, t00=0x0028, t01=0x013a}
0x3fc6…3ff6 Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTBKC,A6 ANY BLOCK WRITTEN/READ «, t00=0x0028, t01=0x015c}
0x3ff6…4010 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) RC0050 YES«, t00=0x0028, t01=0x018c}
0x4010…4038 Head {h00=0x0024, h01=0x0050, text=» CF A8,SBOT SEARCH BEGIN OF TAPE«, t00=0x0029, t01=0x0016}
0x4038…404a Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0029, t01=0x003e}
0x404a…406e Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x0029, t01=0x0050}
0x406e…4080 Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x0029, t01=0x0074}
0x4080…40ac Head {h00=0x0028, h01=0x0050, text=»RC0050 LD A1,SEKBYT,A6 SEQ. COUNTING«, t00=0x0029, t01=0x0086}
0x40ac…40c4 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) REPER NO«, t00=0x0029, t01=0x00b2}
0x40c4…40d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00ca}
0x40d2…40dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d8}
0x40dc…40f2 Head {h00=0x0012, h01=0x0050, text=»* R E P O S «, t00=0x0029, t01=0x00e2}
0x40f2…40fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00f8}
0x40fc…412a Head {h00=0x002a, h01=0x0050, text=»* REPOSITIONING OF TAPE AT POWER ON «, t00=0x0029, t01=0x0102}
0x412a…4148 Head {h00=0x001a, h01=0x0050, text=»* AND WRITE RECOVERY«, t00=0x0029, t01=0x0130}
0x4148…4180 Head {h00=0x0034, h01=0x0050, text=»* EXIT: A2 EQ ZERO SUCCESS«, t00=0x0029, t01=0x014e}
0x4180…41bc Head {h00=0x0038, h01=0x0050, text=»* A2 NOT EQ ZERO NO SUCCESS «, t00=0x0029, t01=0x0186}
0x41bc…41c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0032}
0x41c6…41da Head {h00=0x0010, h01=0x0050, text=»REPOS EQU * «, t00=0x002a, t01=0x003c}
0x41da…4202 Head {h00=0x0024, h01=0x0050, text=» LDK A4,8 SET REPOSITIONING BIT «, t00=0x002a, t01=0x0050}
0x4202…4228 Head {h00=0x0022, h01=0x0050, text=» ORS A4,DWTST,A6 STORE IN DWT «, t00=0x002a, t01=0x0078}
0x4228…423c Head {h00=0x0010, h01=0x0050, text=»REP005 EQU *«, t00=0x002a, t01=0x009e}
0x423c…4266 Head {h00=0x0026, h01=0x0050, text=» LDK A4,PSUBS SET NO OF BACKSPACES«, t00=0x002a, t01=0x00b2}
0x4266…428a Head {h00=0x0020, h01=0x0050, text=»REP010 CF A8,BKSP BACKSPACE «, t00=0x002a, t01=0x00dc}
0x428a…429c Head {h00=0x000e, h01=0x0050, text=» SLL A2,4 «, t00=0x002a, t01=0x0100}
0x429c…42be Head {h00=0x001e, h01=0x0050, text=» RF(NN) REP015 DATA FOUND «, t00=0x002a, t01=0x0112}
0x42be…42e8 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTBKC,A6 GET BLOCK COUNTER«, t00=0x002a, t01=0x0134}
0x42e8…4306 Head {h00=0x001a, h01=0x0050, text=» SUK A2,8 GREATER 8 ? «, t00=0x002a, t01=0x015e}
0x4306…431e Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x002a, t01=0x017c}
0x431e…4350 (43, 0, 400) Head {h00=0x002e, h01=0x0050, text=» CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE «, t00=0x002b, t01=0x0004}
0x4350…4362 Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x002b, t01=0x0036}
0x4362…4386 Head {h00=0x0020, h01=0x0050, text=» RF(NN) REPER BOT NOT FOUND «, t00=0x002b, t01=0x0048}
0x4386…43ac Head {h00=0x0022, h01=0x0050, text=» LDKL A5,-1 RESET SEQ. COUNTER«, t00=0x002b, t01=0x006c}
0x43ac…43ce Head {h00=0x001e, h01=0x0050, text=» RF REP020 READ SEQ. CHAR «, t00=0x002b, t01=0x0092}
0x43ce…43e2 Head {h00=0x0010, h01=0x0050, text=»REP015 EQU *«, t00=0x002b, t01=0x00b4}
0x43e2…43f4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002b, t01=0x00c8}
0x43f4…441a Head {h00=0x0022, h01=0x0050, text=» RB(NZ) REP010 BACKSPACE AGAIN«, t00=0x002b, t01=0x00da}
0x441a…4442 Head {h00=0x0024, h01=0x0050, text=» LDK A4,PREAD SET NO OF MAX READ«, t00=0x002b, t01=0x0100}
0x4442…446c Head {h00=0x0026, h01=0x0050, text=»REP017 CF A8,READSQ READ SEQ. CHAR«, t00=0x002b, t01=0x0128}
0x446c…4490 Head {h00=0x0020, h01=0x0050, text=» LDKL A7,/180F SET READ MASK«, t00=0x002b, t01=0x0152}
0x4490…44a2 Head {h00=0x000e, h01=0x0050, text=» TM A2,A7 «, t00=0x002b, t01=0x0176}
0x44a2…44c0 Head {h00=0x001a, h01=0x0050, text=» RF(Z) REP020 READ OK «, t00=0x002b, t01=0x0188}
0x44c0…44dc Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 COUNT READ«, t00=0x002c, t01=0x0016}
0x44dc…4504 Head {h00=0x0024, h01=0x0050, text=» RB(P) REP017 NOT ALL READ DONE «, t00=0x002c, t01=0x0032}
0x4504…451e Head {h00=0x0016, h01=0x0050, text=» RF REP060 GIVE UP«, t00=0x002c, t01=0x005a}
0x451e…454c Head {h00=0x002a, h01=0x0050, text=»REP020 LC A4,DWTBKC+1,A6 GET SEQ. CHAR«, t00=0x002c, t01=0x0074}
0x454c…4568 Head {h00=0x0018, h01=0x0050, text=» SUR A4,A5 CALCULATE«, t00=0x002c, t01=0x00a2}
0x4568…458a Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 NO OF BLOCKS TO «, t00=0x002c, t01=0x00be}
0x458a…45ac Head {h00=0x001e, h01=0x0050, text=» ANK A4,/FF READ FORWARD. «, t00=0x002c, t01=0x00e0}
0x45ac…45d0 Head {h00=0x0020, h01=0x0050, text=» CWK A4,PINT TOO MANY BLOCKS«, t00=0x002c, t01=0x0102}
0x45d0…45e8 Head {h00=0x0014, h01=0x0050, text=» RF(G) REPER YES«, t00=0x002c, t01=0x0126}
0x45e8…460e Head {h00=0x0022, h01=0x0050, text=»REP030 SUK A4,1 POSITION TAPE «, t00=0x002c, t01=0x013e}
0x460e…462a Head {h00=0x0018, h01=0x0050, text=» RF(N) REP040 READY «, t00=0x002c, t01=0x0164}
0x462a…4650 Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ NEXT BLOCK «, t00=0x002c, t01=0x0180}
0x4650…4662 Head {h00=0x000e, h01=0x0050, text=» RB REP030«, t00=0x002d, t01=0x0016}
0x4662…468e Head {h00=0x0028, h01=0x0050, text=»REP040 LDK A4,RTRIES SET NO OF RETRY«, t00=0x002d, t01=0x0028}
0x468e…46b8 Head {h00=0x0026, h01=0x0050, text=»REP042 LDKL A7,/80F SET READ MASK «, t00=0x002d, t01=0x0054}
0x46b8…46d6 Head {h00=0x001a, h01=0x0050, text=» TM A2,A7 CORRECT READ«, t00=0x002d, t01=0x007e}
0x46d6…46f0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) REP045 YES «, t00=0x002d, t01=0x009c}
0x46f0…470e Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 COUNT RETRY «, t00=0x002d, t01=0x00b6}
0x470e…472c Head {h00=0x001a, h01=0x0050, text=» RF(NP) REP060 GIVE UP«, t00=0x002d, t01=0x00d4}
0x472c…474a Head {h00=0x001a, h01=0x0050, text=» CF A8,BKSP BACKSPACE «, t00=0x002d, t01=0x00f2}
0x474a…4770 Head {h00=0x0022, h01=0x0050, text=» CF A8,READSQ READ SEQ NUMBER «, t00=0x002d, t01=0x0110}
0x4770…4782 Head {h00=0x000e, h01=0x0050, text=» RB REP042«, t00=0x002d, t01=0x0136}
0x4782…479a Head {h00=0x0014, h01=0x0050, text=»REP045 SLC A2,3 «, t00=0x002d, t01=0x0148}
0x479a…47be Head {h00=0x0020, h01=0x0050, text=» RF(NN) REP050 NOT TAPE MARK«, t00=0x002d, t01=0x0160}
0x47be…47d2 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x002d, t01=0x0184}
0x47d2…4800 Head {h00=0x002a, h01=0x0050, text=» RF(Z) REP060 SHOULD NOT BE TAPE MARK «, t00=0x002e, t01=0x0008}
0x4800…4812 Head {h00=0x000e, h01=0x0050, text=» RF REPOK «, t00=0x002e, t01=0x0036}
0x4812…483c Head {h00=0x0026, h01=0x0050, text=»REP050 ADK A5,1 CHECK SEQ. NUMBER «, t00=0x002e, t01=0x0048}
0x483c…4856 Head {h00=0x0016, h01=0x0050, text=» CC A5,DWTBKC+1,A6«, t00=0x002e, t01=0x0072}
0x4856…4870 Head {h00=0x0016, h01=0x0050, text=» RF(E) REPOK EQUAL«, t00=0x002e, t01=0x008c}
0x4870…488e Head {h00=0x001a, h01=0x0050, text=»REP060 LD A7,DWTST,A6 «, t00=0x002e, t01=0x00a6}
0x488e…48b6 Head {h00=0x0024, h01=0x0050, text=» ANK A7,8 TRY POSITIONING AGAIN?«, t00=0x002e, t01=0x00c4}
0x48b6…48ce Head {h00=0x0014, h01=0x0050, text=» RF(Z) REPER NO «, t00=0x002e, t01=0x00ec}
0x48ce…48fe Head {h00=0x002c, h01=0x0050, text=» XRS A7,DWTST,A6 RESET REPOSITIONING BIT«, t00=0x002e, t01=0x0104}
0x48fe…4914 Head {h00=0x0012, h01=0x0050, text=» RB REP005 YES«, t00=0x002e, t01=0x0134}
0x4914…491e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014a}
0x491e…4928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0154}
0x4928…4962 Head {h00=0x0036, h01=0x0050, text=»REPER LDK A2,2 IND RECOVERY/SEQUENCE ERROR STATUS «, t00=0x002e, t01=0x015e}
0x4962…4988 Head {h00=0x0022, h01=0x0050, text=» ORS A2,SEKBYT,A6 SAVE IN DWT «, t00=0x002f, t01=0x0008}
0x4988…499a Head {h00=0x000e, h01=0x0050, text=» RB IHTRTN«, t00=0x002f, t01=0x002e}
0x499a…49a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0040}
0x49a4…49d0 Head {h00=0x0028, h01=0x0050, text=»REPOK LDK A2,0 IND RECOVERY CORRECT «, t00=0x002f, t01=0x004a}
0x49d0…49e2 Head {h00=0x000e, h01=0x0050, text=» RB IHTRTN«, t00=0x002f, t01=0x0076}
0x49e2…49f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0088}
0x49f0…49fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0096}
0x49fa…4a12 Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 2 «, t00=0x002f, t01=0x00a0}
0x4a12…4a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00b8}
0x4a1c…4a52 Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 02«, t00=0x002f, t01=0x00c2}
0x4a52…4a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f8}
0x4a5c…4a7c Head {h00=0x001c, h01=0x0050, text=»DWTC02 EQU * TABLE ENTRY«, t00=0x002f, t01=0x0102}
0x4a7c…4a90 Head {h00=0x0010, h01=0x0050, text=» IFT DBCAS=2«, t00=0x002f, t01=0x0122}
0x4a90…4ab0 Head {h00=0x001c, h01=0x0050, text=» DATA DWTC01+1 DWT NO. 1«, t00=0x002f, t01=0x0136}
0x4ab0…4ae2 Head {h00=0x002e, h01=0x0050, text=» DATA /8000 STATUS./8000MEANS DEVICE READY«, t00=0x002f, t01=0x0156}
0x4ae2…4afe Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB-ADDRESS «, t00=0x002f, t01=0x0188}
0x4afe…4b14 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0030, t01=0x0014}
0x4b14…4b40 Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x0030, t01=0x002a}
0x4b40…4b5c Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0030, t01=0x0056}
0x4b5c…4b84 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0030, t01=0x0072}
0x4b84…4ba2 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0030, t01=0x009a}
0x4ba2…4bc0 Head {h00=0x001a, h01=0x0050, text=» DATA 0 BLOCK COUNTER «, t00=0x0030, t01=0x00b8}
0x4bc0…4bde Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x0030, t01=0x00d6}
0x4bde…4bea Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00f4}
0x4bea…4bf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0100}
0x4bf8…4c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010e}
0x4c02…4c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0118}
0x4c0c…4c24 Head {h00=0x0014, h01=0x0050, text=»* D W T C 0 1 «, t00=0x0030, t01=0x0122}
0x4c24…4c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013a}
0x4c2e…4c64 Head {h00=0x0032, h01=0x0050, text=»* DEVICE WORK TABLE FOR CASSETTE RECORDER 01«, t00=0x0030, t01=0x0144}
0x4c64…4c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x017a}
0x4c6e…4c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0184}
0x4c78…4c9a Head {h00=0x001e, h01=0x0050, text=»DWTC01 EQU * TABLE ENTRY «, t00=0x0030, t01=0x018e}
0x4c9a…4cb8 Head {h00=0x001a, h01=0x0050, text=» DATA DWTC02 DWT NO. 2«, t00=0x0031, t01=0x0020}
0x4cb8…4cee Head {h00=0x0032, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE IS READY«, t00=0x0031, t01=0x003e}
0x4cee…4d0a Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB-ADDRESS «, t00=0x0031, t01=0x0074}
0x4d0a…4d20 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0031, t01=0x0090}
0x4d20…4d4c Head {h00=0x0028, h01=0x0050, text=» DATA TCAD POINTER TO ADDRESS BLOCK «, t00=0x0031, t01=0x00a6}
0x4d4c…4d68 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0031, t01=0x00d2}
0x4d68…4d90 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0031, t01=0x00ee}
0x4d90…4dae Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0031, t01=0x0116}
0x4dae…4dd8 Head {h00=0x0026, h01=0x0050, text=»DWTBKC EQU *-DWTC01 BLOCK COUNTER «, t00=0x0031, t01=0x0134}
0x4dd8…4de8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0031, t01=0x015e}
0x4de8…4e04 Head {h00=0x0018, h01=0x0050, text=»SEKBYT EQU *-DWTC01 «, t00=0x0031, t01=0x016e}
0x4e04…4e22 Head {h00=0x001a, h01=0x0050, text=» DATA 0 SEQ. INDICATOR«, t00=0x0031, t01=0x018a}
0x4e22…4e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0018}
0x4e2c…4e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0022}
0x4e36…4e42 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0032, t01=0x002c}
0x4e42…4e46 Head {h00=0x4004, h01=0x0000}
0x4e46…4e4a 00 32 00 38 ┆ 2 8┆
0x4e4a…4e52 (51, 1, 8) 20 04 00 00 00 33 00 04 ┆ 3 ┆
0x4e52…4ea2 (52, 0, 400) 2a 20 20 20 43 48 4c 54 20 49 4e 20 53 59 53 54 45 4d 2e 20 54 48 45 20 53 55 42 52 4f 55 54 49 4e 45 20 49 53 20 45 4e 54 45 52 45 44 20 46 52 4f 4d 20 27 50 46 49 4e 49 54 27 20 00 33 01 90 00 06 00 50 2a 20 00 34 00 44 00 10 00 50 43 48 ┆* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERED FROM 'PFINIT' 3 P* 4 D PCH┆
0x4ea2…4ef2 4c 54 4f 4e 5c 45 51 55 5c 2a 00 34 00 4e 00 06 00 50 2a 20 00 34 00 62 00 12 00 50 5c 49 46 54 5c 4c 4f 43 48 41 4e 3d 32 20 00 34 00 6c 00 06 00 50 2a 20 00 34 00 82 00 10 00 50 5c 4c 44 5c 41 31 2c 43 48 54 41 42 00 34 00 8c 00 22 00 50 ┆LTON EQU * 4 N P* 4 b P IFT LOCHAN=2 4 l P* 4 P LD A1,CHTAB 4 " P┆
0x4ef2…4f42 43 4f 4e 30 31 30 5c 53 55 4b 5c 41 31 2c 32 5c 41 4c 4c 20 54 52 45 41 54 45 44 20 3f 20 00 34 00 a0 00 20 00 50 5c 52 46 28 4e 5a 29 5c 43 4f 4e 30 32 30 5c 4e 4f 20 54 41 4b 45 20 4e 45 58 54 20 00 34 00 c6 00 1e 00 50 5c 41 42 4c 5c 52 ┆CON010 SUK A1,2 ALL TREATED ? 4 P RF(NZ) CON020 NO TAKE NEXT 4 P ABL R┆
0x4f42…4f92 54 4e 41 31 35 5c 52 45 54 55 52 4e 20 41 4e 44 20 45 4e 42 00 34 00 ea 00 2a 00 50 43 4f 4e 30 32 30 5c 4c 44 5c 41 35 2c 43 48 54 41 42 2c 41 31 5c 4c 4f 41 44 20 43 57 54 2d 41 44 44 52 45 53 53 00 34 01 0c 00 12 00 50 5c 52 42 28 5a 29 ┆TNA15 RETURN AND ENB 4 * PCON020 LD A5,CHTAB,A1 LOAD CWT-ADDRESS 4 P RB(Z)┆
0x4f92…4fe2 5c 43 4f 4e 30 31 30 20 00 34 01 3a 00 24 00 50 5c 45 58 5c 43 57 54 43 49 53 2c 41 35 5c 45 58 45 43 55 54 45 20 43 49 4f 2d 53 54 41 52 54 20 00 34 01 50 00 1c 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 35 5c 47 45 54 20 4c 41 53 54 20 44 57 54 ┆ CON010 4 : $ P EX CWTCIS,A5 EXECUTE CIO-START 4 P P LDR* A6,A5 GET LAST DWT┆