|
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: 10938 (0x2aba)
Notes: pts_type(SC)
Names: »CPDKMT.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »TOOL/CPDKMT.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »TOOL/CPDKMT.SC«
IDENT CPDKMT * 790122 C.EKERT *************************************************************** * * COPY DISK TO 1/2 INC. MAG-TAPE ( & REVERSE) UTILITY. * * * *************************************************************** * * THE IMPROVED DISK TO TAPE SAVE AND RESTORE FACILITY. * * THE UTILITY HAS BEEN ADAPTED TO BE CALLED FROM A * * 'CREDIT'-PROGRAM. TWO ENTRYPOINTS ARE PROVIDED, 'CDT' * * AND 'CTD'. THE 'CDT' ENTRY CAUSES A DISK TO BE SAVED ON * * A MAGNETIC TAPE AND 'CTD' RESTORES THE DISK FROM A * * MAGNETIC TAPE WHICH HAS PREVIOUSLY BEEN CREATED VIA THE * * 'CDT' ENTRY. THE DISK IS READ/WRITTEN SECTOR BY SECTOR * * AND BLOCKED BEFORE TRANFERRED TO THE TAPE.. * * * * NOTES: * * IMMEDIATLY WHEN AN I/O-FAILURE IS DETECTED THE * * PROCESSING IS ABORTED AND THE CALLING PROGRAM IS * * INFORMED VIA THE RETURNCODE, WHICH CONTAINS THE DEVICE * * DEPENDENT RETURNCODE FROM THE DRIVER. NO AUTOMATIC * * RECOVERY PROCEDURE IS INITIATED. * * * * 'CREDIT' INTERFACE: * * CALLING SEQUENCE: * * CALL CDT,DKFC,MTFC,FRST,LAST,SLTH,BLKF,BUFF,RETC * * <CDT> : : ENTRY DISK TO TAPE COPY ROUTINE * * <DKFC> :BIN : DISK - FILE CODE. * * <MTFC> :BIN : MAG. TAPE FILE CODE. * * <FRST> :BIN : NUMBER OF FIRST SECTOR TO BE TRANSFERRED * * <LAST> :BIN : NUMBER OF LAST SECTOR TO BE TRANSFERRED * * <SLTH> :BIN : SECTOR LENGTH IN BYTES * * <BLKF> :BIN : BLOCKING FACTOR (RECORDS/BLOCK) * * <BUFF> :STRG: I/O-BUFFER ADDRESS * * <RETC> :BIN : RETURN CODE. * * =0 IF THE PROCESSING TERMINATED * * SUCCESSFULLY. IF AN I/O ERROR OCCURRED * * THE RETURNCODE CONTAINS THE RETURNCODE * * FROM THE DRIVER AND THE 1:ST BYTE IN THE * * I/O-BUFFER CONTAINS A 'M' OR A 'D' * * INDICATING THE FAILING UNIT. * * * *********************************************************** *************************************************************** * ENTRY CDT * COPY DISK TO TAPE ENTRY CTD * RESTORE DISK FROM TAPE * * EXTRN I:EVA0 * RETREIVE CALLING PARAMS. EXTRN I:RT1 * RETURN TO 'CREDIT' USER. * * EJECT * * CDT EQU * * * COPY ENTIRE DISK SECTOR BY SECTOR TO 1/2 INC. TAPE. * * TO TAPE INITIALIZATIONS. * LDK A7,X'91' * ORDERCODE PHYSICAL READ SC A7,DKORDR LDK A7,X'85' * ORDERCODE 'WRITE TAPE' SC A7,MTORDR LDKL A7,MTIOLB ST A7,SWTCH2 * LDKL A7,DKIO ST A7,SWTCH1 * LDKL A7,X'AA67' * WRT TAPE MASK ST A7,MTMSK2 * LDKL A7,X'AA61' * WTM - MASK ST A7,MTMSK1 * LDK A7,X'A2' * ORDERCODE WRT TAPEMARK SC A7,MTHEAD RF TPMRK * * EJECT * * CTD EQU * * * RESTORE DISK FROM 1/2 TAPE, SECTOR BY SECTOR. * * INITIALIZATIONS FOR DISK RESTORE. * LDK A7,X'95' * ORDERCODE PHYSICAL WRITE DISK SC A7,DKORDR * LDK A7,X'82' * ORDERCODE 'READ TAPE' SC A7,MTORDR * LDKL A7,RETURN ST A7,SWTCH2 * LDKL A7,MTIO ST A7,SWTCH1 * LDKL A7,X'B87F' * MASK 'TAPE READ' ST A7,MTMSK2 * LDKL A7,X'A87F' * MASK 'TAPE READ' ST A7,MTMSK1 * LDK A7,X'82' * ORDERCODE 'READ TAPE' SC A7,MTHEAD * * EJECT * * * WRITE / BYPASS 1:ST TAPE MARK. * TPMRK EQU * CF A14,I:EVA0 * RETREIVE DISK FILE CODE LDR* A7,A9 ST A7,DKECB CF A14,I:EVA0 * RETREIVE TAPE FILE CODE LDR* A7,A9 ST A7,MTECB CF A14,I:EVA0 * RETREIVE FIRST SECTOR NO. LDR* A7,A9 ST A7,DKECBC * SAVE IN CONTROL WORD CF A14,I:EVA0 * RETREIVE LAST SECTOR NO. LDR* A7,A9 ST A7,DKSECN * SAVE IN LOOP CONTROL. CF A14,I:EVA0 * RETREIVE SECTOR LENGTH LDR* A7,A9 ST A7,DKECBL LDR A6,A7 * SAVE SECTOR LENGTH CF A14,I:EVA0 * RETREIVE BLOCK FACTOR LDR* A7,A9 ST A7,BLKFCT LDR A2,A6 * CALC. MT-BUFFER SIZE MUR A7 ST A2,MTECBL * SAVE MT-BUFFERSIZE CF A14,I:EVA0 * RETREIVE BUFFER ADDR. ST A9,MTECBB ST A9,DKECBB CM RECCNT LDK A7,X'00' MTHEAD EQU *-1 LDKL A8,MTECB LKM DATA 1 LDKL A7,X'1000' * 'TAPE MARK' MASK AN A7,MTECBR RF(Z) MTERR LDKL A7,X'0000' MTMSK1 EQU *-1 AN A7,MTECBR RF(NZ) MTERR LDKL A7,NXTBLK ST A7,SWTCH3 ABL X'0000' SWTCH1 EQU *-1 * DKIO / MTIO * * EJECT * * DISK - I/O * DKIO EQU * LDK A7,X'00' DKORDR EQU *-1 LDKL A8,DKECB LKM DATA 1 * * I/O ANALYSIS. * LDKL A7,X'820F' AN A7,DKECBR RF(NZ) DKERR * * REPEAT I/O IF 'NEW VOLUME' DETECTED. * LDK A7,X'80' * MASK 'NEW VOL.' AN A7,DKECBR RB(NZ) DKIO * REPEAT I/O * * INCREMENT SECTOR COUNTER * IM DKECBC * INCR. SECTOR COUNTER IM RECCNT * INCR. RECORD COUNTER * * SECTOR READ. INCREMENT BUFFER POINTER & CHECK IF END OF BUFFER * LD A7,DKECBB *LOAD BUFFER ADDR. AD A7,DKECBL * ADD ON RECORD LENGTH ST A7,DKECBB * SAVE NEW BUFF. ADDR. * * CHECK IF LAST SECTOR PROCESSED AND BRANCH ACORDINGLY. * LD A7,DKECBC * LOAD SECTOR COUNTER CW A7,DKSECN ABL(G) X'0000' SWTCH2 EQU *-1 *MTIOLB / RETURN * * CHECK IF BLOCK IS COMPLETE. * LD A7,RECCNT CW A7,BLKFCT RF(Z) MTIO * YES! TRANS. TO TAPE RB DKIO * READ NEXT SECTOR IF NOT LAST * * EJECT * * * * MAG. TAPE I/O. * MTIOLB EQU * * * FIX WHEN LAST BLOCK PROCESSED. * LDKL A7,WRTPMK ST A7,SWTCH3 * * NORMAL TAPE-I/O ENTRY. * MTIO EQU * LDK A7,X'00' * LOAD ORDERCODE MTORDR EQU *-1 LDKL A8,MTECB LKM DATA 1 * * RETURN CODE ANALYSIS. * LDKL A7,X'0000' * LOAD MASK MTMSK2 EQU *-1 AN A7,MTECBR RF(NZ) MTERR * * RETURN IF LAST SECTOR ELSE PERPARE FOR NEXT BLOCK. * ABL X'0000' SWTCH3 EQU *-1 * NXTBLK / WRTPMK * * * NXTBLK EQU * LD A7,MTECBB ST A7,DKECBB * RESTORE BUFFER ADDR. CM RECCNT * RESET RECORD COUNTER. RB DKIO * READ NEXT SECTOR * * EJECT * * * NORMAL TERMINATION. * WRTPMK EQU * * * WRITE TAPE MARK * LDK A7,X'A2' * ORDERCODE WTM LDKL A8,MTECB LKM DATA 1 LDKL A7,X'1000' AN A7,MTECBR RF(Z) MTERR * * RETURN EQU * LDK A6,0 * RETURN CODE = OK. RF SETRC * * * I/O ERROR HANDLING. * * MTERR EQU * LDKL A8,'M' * INDICATE MAG.TAPE LD A6,MTECBR * PICK UP DRIVER RET. CODE RF ERRHDL * * DKERR EQU * LDKL A8,'D' * INDICATE DISK LDKL A6,DKECBR * * ERRHDL EQU * LD A7,MTECBB * PICK UP BUFFER ADDR. SCR A8,A7 * TRANS. FAILING UNIT * * SETRC EQU * CF A14,I:EVA0 * PICK UP ADDR. OF RETURNCODE STR A6,A9 * TRANS. DRIVER RET. CODE * * ABL I:RT1 * RETURN TO 'CREDIT' USER * * * EJECT * * * EVENT CONTROL BLOCKS. MAG. TAPE AND DISK * MTECB DATA /0070 * FILE CODE TAPE DRIVE MTECBB DATA 0 * BUFFER ADDR. MTECBL DATA 3280,0 * BUFFER LENGTH (8 SECTORS) MTECBR DATA 0 * RETURN CODE MTECBC DATA 0 * NO BLOCK SEQUENCE NO. * * * DKECB DATA /00F0 * FILE CODE FIXED DISK 1 DKECBB DATA 0 * BUFFER ADDR. DKECBL DATA 410,0 * SECTOR LENGTH DKECBR DATA 0 * RETURN CODE DKECBC DATA 0 * SECTOR COUNTER * * * DKSECN DATA 13055 * NO. OF LAST SECTOR BLKFCT DATA 0 *BLOCK FACTOR RECCNT DATA 0 * RECORD IN BLOCK COUNT. * * * END
0x0000…0026 (0, 0, 400) Head {h00=0x0022, h01=0x0050, text=» IDENT CPDKMT * 790122 C.EKERT«, t00=0x0000, t01=0x0004}
0x0026…006e Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0000, t01=0x002a}
0x006e…0078 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0072}
0x0078…00c0 Head {h00=0x0044, h01=0x003f, text=»* COPY DISK TO 1/2 INC. MAG-TAPE ( & REVERSE) UTILITY. * «, t00=0x0000, t01=0x007c}
0x00c0…0108 Head {h00=0x0044, h01=0x003f, text=»* * «, t00=0x0000, t01=0x00c4}
0x0108…0150 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0000, t01=0x010c}
0x0150…015a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0154}
0x015a…019e Head {h00=0x0040, h01=0x0050, text=»* THE IMPROVED DISK TO TAPE SAVE AND RESTORE FACILITY. * «, t00=0x0000, t01=0x015e}
0x019e…01e2 Head {h00=0x0040, h01=0x0050, text=»* THE UTILITY HAS BEEN ADAPTED TO BE CALLED FROM A * «, t00=0x0001, t01=0x0012}
0x01e2…0226 Head {h00=0x0040, h01=0x0050, text=»* 'CREDIT'-PROGRAM. TWO ENTRYPOINTS ARE PROVIDED, 'CDT' * «, t00=0x0001, t01=0x0056}
0x0226…026a Head {h00=0x0040, h01=0x0050, text=»* AND 'CTD'. THE 'CDT' ENTRY CAUSES A DISK TO BE SAVED ON * «, t00=0x0001, t01=0x009a}
0x026a…02ae Head {h00=0x0040, h01=0x0050, text=»* A MAGNETIC TAPE AND 'CTD' RESTORES THE DISK FROM A * «, t00=0x0001, t01=0x00de}
0x02ae…02f2 Head {h00=0x0040, h01=0x0050, text=»* MAGNETIC TAPE WHICH HAS PREVIOUSLY BEEN CREATED VIA THE * «, t00=0x0001, t01=0x0122}
0x02f2…0336 Head {h00=0x0040, h01=0x0050, text=»* 'CDT' ENTRY. THE DISK IS READ/WRITTEN SECTOR BY SECTOR * «, t00=0x0001, t01=0x0166}
0x0336…037a Head {h00=0x0040, h01=0x0050, text=»* AND BLOCKED BEFORE TRANFERRED TO THE TAPE.. * «, t00=0x0002, t01=0x001a}
0x037a…03be Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0002, t01=0x005e}
0x03be…0402 Head {h00=0x0040, h01=0x0050, text=»* NOTES: * «, t00=0x0002, t01=0x00a2}
0x0402…0446 Head {h00=0x0040, h01=0x0050, text=»* IMMEDIATLY WHEN AN I/O-FAILURE IS DETECTED THE * «, t00=0x0002, t01=0x00e6}
0x0446…048a Head {h00=0x0040, h01=0x0050, text=»* PROCESSING IS ABORTED AND THE CALLING PROGRAM IS * «, t00=0x0002, t01=0x012a}
0x048a…04ce Head {h00=0x0040, h01=0x0050, text=»* INFORMED VIA THE RETURNCODE, WHICH CONTAINS THE DEVICE * «, t00=0x0002, t01=0x016e}
0x04ce…0512 Head {h00=0x0040, h01=0x0050, text=»* DEPENDENT RETURNCODE FROM THE DRIVER. NO AUTOMATIC * «, t00=0x0003, t01=0x0022}
0x0512…0556 Head {h00=0x0040, h01=0x0050, text=»* RECOVERY PROCEDURE IS INITIATED. * «, t00=0x0003, t01=0x0066}
0x0556…059a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0003, t01=0x00aa}
0x059a…05de Head {h00=0x0040, h01=0x0050, text=»* 'CREDIT' INTERFACE: * «, t00=0x0003, t01=0x00ee}
0x05de…0622 Head {h00=0x0040, h01=0x0050, text=»* CALLING SEQUENCE: * «, t00=0x0003, t01=0x0132}
0x0622…066a Head {h00=0x0044, h01=0x0050, text=»* CALL CDT,DKFC,MTFC,FRST,LAST,SLTH,BLKF,BUFF,RETC *«, t00=0x0003, t01=0x0176}
0x066a…06ae Head {h00=0x0040, h01=0x0050, text=»* <CDT> : : ENTRY DISK TO TAPE COPY ROUTINE * «, t00=0x0004, t01=0x002e}
0x06ae…06f2 Head {h00=0x0040, h01=0x0050, text=»* <DKFC> :BIN : DISK - FILE CODE. * «, t00=0x0004, t01=0x0072}
0x06f2…0736 Head {h00=0x0040, h01=0x0050, text=»* <MTFC> :BIN : MAG. TAPE FILE CODE. * «, t00=0x0004, t01=0x00b6}
0x0736…077a Head {h00=0x0040, h01=0x0050, text=»* <FRST> :BIN : NUMBER OF FIRST SECTOR TO BE TRANSFERRED * «, t00=0x0004, t01=0x00fa}
0x077a…07be Head {h00=0x0040, h01=0x0050, text=»* <LAST> :BIN : NUMBER OF LAST SECTOR TO BE TRANSFERRED * «, t00=0x0004, t01=0x013e}
0x07be…0802 Head {h00=0x0040, h01=0x0050, text=»* <SLTH> :BIN : SECTOR LENGTH IN BYTES * «, t00=0x0004, t01=0x0182}
0x0802…0846 Head {h00=0x0040, h01=0x0050, text=»* <BLKF> :BIN : BLOCKING FACTOR (RECORDS/BLOCK) * «, t00=0x0005, t01=0x0036}
0x0846…088a Head {h00=0x0040, h01=0x0050, text=»* <BUFF> :STRG: I/O-BUFFER ADDRESS * «, t00=0x0005, t01=0x007a}
0x088a…08ce Head {h00=0x0040, h01=0x0050, text=»* <RETC> :BIN : RETURN CODE. * «, t00=0x0005, t01=0x00be}
0x08ce…0912 Head {h00=0x0040, h01=0x0050, text=»* =0 IF THE PROCESSING TERMINATED * «, t00=0x0005, t01=0x0102}
0x0912…0956 Head {h00=0x0040, h01=0x0050, text=»* SUCCESSFULLY. IF AN I/O ERROR OCCURRED * «, t00=0x0005, t01=0x0146}
0x0956…099a Head {h00=0x0040, h01=0x0050, text=»* THE RETURNCODE CONTAINS THE RETURNCODE * «, t00=0x0005, t01=0x018a}
0x099a…09de Head {h00=0x0040, h01=0x0050, text=»* FROM THE DRIVER AND THE 1:ST BYTE IN THE * «, t00=0x0006, t01=0x003e}
0x09de…0a22 Head {h00=0x0040, h01=0x0050, text=»* I/O-BUFFER CONTAINS A 'M' OR A 'D' * «, t00=0x0006, t01=0x0082}
0x0a22…0a66 Head {h00=0x0040, h01=0x0050, text=»* INDICATING THE FAILING UNIT. * «, t00=0x0006, t01=0x00c6}
0x0a66…0aaa Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0006, t01=0x010a}
0x0aaa…0aee Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0006, t01=0x014e}
0x0aee…0b36 (7, 0, 400) Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0007, t01=0x0004}
0x0b36…0b40 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x004c}
0x0b40…0b68 Head {h00=0x0024, h01=0x001f, text=» ENTRY CDT * COPY DISK TO TAPE «, t00=0x0007, t01=0x0056}
0x0b68…0b94 Head {h00=0x0028, h01=0x0023, text=» ENTRY CTD * RESTORE DISK FROM TAPE «, t00=0x0007, t01=0x007e}
0x0b94…0b9e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00aa}
0x0b9e…0ba8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00b4}
0x0ba8…0bd8 Head {h00=0x002c, h01=0x0028, text=» EXTRN I:EVA0 * RETREIVE CALLING PARAMS.«, t00=0x0007, t01=0x00be}
0x0bd8…0c08 Head {h00=0x002c, h01=0x0027, text=» EXTRN I:RT1 * RETURN TO 'CREDIT' USER. «, t00=0x0007, t01=0x00ee}
0x0c08…0c12 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x011e}
0x0c12…0c1c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0128}
0x0c1c…0c2a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0007, t01=0x0132}
0x0c2a…0c34 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0140}
0x0c34…0c3e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x014a}
0x0c3e…0c50 Head {h00=0x000e, h01=0x0009, text=»CDT EQU * «, t00=0x0007, t01=0x0154}
0x0c50…0c5a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0166}
0x0c5a…0c98 Head {h00=0x003a, h01=0x0036, text=»* COPY ENTIRE DISK SECTOR BY SECTOR TO 1/2 INC. TAPE.«, t00=0x0007, t01=0x0170}
0x0c98…0ca2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x001e}
0x0ca2…0cc6 Head {h00=0x0020, h01=0x001b, text=»* TO TAPE INITIALIZATIONS. «, t00=0x0008, t01=0x0028}
0x0cc6…0cd0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x004c}
0x0cd0…0d00 Head {h00=0x002c, h01=0x0027, text=» LDK A7,X'91' * ORDERCODE PHYSICAL READ «, t00=0x0008, t01=0x0056}
0x0d00…0d16 Head {h00=0x0012, h01=0x000d, text=» SC A7,DKORDR «, t00=0x0008, t01=0x0086}
0x0d16…0d44 Head {h00=0x002a, h01=0x0026, text=» LDK A7,X'85' * ORDERCODE 'WRITE TAPE'«, t00=0x0008, t01=0x009c}
0x0d44…0d5a Head {h00=0x0012, h01=0x000d, text=» SC A7,MTORDR «, t00=0x0008, t01=0x00ca}
0x0d5a…0d72 Head {h00=0x0014, h01=0x000f, text=» LDKL A7,MTIOLB «, t00=0x0008, t01=0x00e0}
0x0d72…0d88 Head {h00=0x0012, h01=0x000d, text=» ST A7,SWTCH2 «, t00=0x0008, t01=0x00f8}
0x0d88…0d92 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x010e}
0x0d92…0da8 Head {h00=0x0012, h01=0x000d, text=» LDKL A7,DKIO «, t00=0x0008, t01=0x0118}
0x0da8…0dbe Head {h00=0x0012, h01=0x000d, text=» ST A7,SWTCH1 «, t00=0x0008, t01=0x012e}
0x0dbe…0dc8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0144}
0x0dc8…0df0 Head {h00=0x0024, h01=0x0020, text=» LDKL A7,X'AA67' * WRT TAPE MASK«, t00=0x0008, t01=0x014e}
0x0df0…0e06 Head {h00=0x0012, h01=0x000d, text=» ST A7,MTMSK2 «, t00=0x0008, t01=0x0176}
0x0e06…0e10 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x018c}
0x0e10…0e36 Head {h00=0x0022, h01=0x001d, text=» LDKL A7,X'AA61' * WTM - MASK «, t00=0x0009, t01=0x0008}
0x0e36…0e4c Head {h00=0x0012, h01=0x000d, text=» ST A7,MTMSK1 «, t00=0x0009, t01=0x002e}
0x0e4c…0e56 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0044}
0x0e56…0e84 Head {h00=0x002a, h01=0x0026, text=» LDK A7,X'A2' * ORDERCODE WRT TAPEMARK«, t00=0x0009, t01=0x004e}
0x0e84…0e9a Head {h00=0x0012, h01=0x0050, text=» SC A7,MTHEAD «, t00=0x0009, t01=0x007c}
0x0e9a…0eac Head {h00=0x000e, h01=0x0009, text=» RF TPMRK «, t00=0x0009, t01=0x0092}
0x0eac…0eb6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x00a4}
0x0eb6…0ec0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x00ae}
0x0ec0…0ece Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0009, t01=0x00b8}
0x0ece…0ed8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x00c6}
0x0ed8…0ee2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x00d0}
0x0ee2…0ef4 Head {h00=0x000e, h01=0x0009, text=»CTD EQU * «, t00=0x0009, t01=0x00da}
0x0ef4…0efe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x00ec}
0x0efe…0f36 Head {h00=0x0034, h01=0x0030, text=»* RESTORE DISK FROM 1/2 TAPE, SECTOR BY SECTOR.«, t00=0x0009, t01=0x00f6}
0x0f36…0f40 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x012e}
0x0f40…0f6c Head {h00=0x0028, h01=0x0024, text=»* INITIALIZATIONS FOR DISK RESTORE.«, t00=0x0009, t01=0x0138}
0x0f6c…0f76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0164}
0x0f76…0fac Head {h00=0x0032, h01=0x002d, text=» LDK A7,X'95' * ORDERCODE PHYSICAL WRITE DISK «, t00=0x0009, t01=0x016e}
0x0fac…0fc2 Head {h00=0x0012, h01=0x000d, text=» SC A7,DKORDR «, t00=0x000a, t01=0x0014}
0x0fc2…0fcc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x002a}
0x0fcc…0ffa Head {h00=0x002a, h01=0x0025, text=» LDK A7,X'82' * ORDERCODE 'READ TAPE' «, t00=0x000a, t01=0x0034}
0x0ffa…1010 Head {h00=0x0012, h01=0x000d, text=» SC A7,MTORDR «, t00=0x000a, t01=0x0062}
0x1010…101a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0078}
0x101a…1032 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,RETURN «, t00=0x000a, t01=0x0082}
0x1032…1048 Head {h00=0x0012, h01=0x000d, text=» ST A7,SWTCH2 «, t00=0x000a, t01=0x009a}
0x1048…1052 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00b0}
0x1052…1068 Head {h00=0x0012, h01=0x000d, text=» LDKL A7,MTIO «, t00=0x000a, t01=0x00ba}
0x1068…107e Head {h00=0x0012, h01=0x000d, text=» ST A7,SWTCH1 «, t00=0x000a, t01=0x00d0}
0x107e…1088 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00e6}
0x1088…10b4 Head {h00=0x0028, h01=0x0023, text=» LDKL A7,X'B87F' * MASK 'TAPE READ' «, t00=0x000a, t01=0x00f0}
0x10b4…10ca Head {h00=0x0012, h01=0x000d, text=» ST A7,MTMSK2 «, t00=0x000a, t01=0x011c}
0x10ca…10d4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0132}
0x10d4…1100 Head {h00=0x0028, h01=0x0023, text=» LDKL A7,X'A87F' * MASK 'TAPE READ' «, t00=0x000a, t01=0x013c}
0x1100…1116 Head {h00=0x0012, h01=0x000d, text=» ST A7,MTMSK1 «, t00=0x000a, t01=0x0168}
0x1116…1120 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x017e}
0x1120…114e Head {h00=0x002a, h01=0x0025, text=» LDK A7,X'82' * ORDERCODE 'READ TAPE' «, t00=0x000a, t01=0x0188}
0x114e…1164 Head {h00=0x0012, h01=0x0050, text=» SC A7,MTHEAD «, t00=0x000b, t01=0x0026}
0x1164…116e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x003c}
0x116e…1178 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0046}
0x1178…1186 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000b, t01=0x0050}
0x1186…1190 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x005e}
0x1190…119a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0068}
0x119a…11c4 Head {h00=0x0026, h01=0x0022, text=»* WRITE / BYPASS 1:ST TAPE MARK.«, t00=0x000b, t01=0x0072}
0x11c4…11ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x009c}
0x11ce…11e2 Head {h00=0x0010, h01=0x000b, text=»TPMRK EQU * «, t00=0x000b, t01=0x00a6}
0x11e2…1212 Head {h00=0x002c, h01=0x0050, text=» CF A14,I:EVA0 * RETREIVE DISK FILE CODE«, t00=0x000b, t01=0x00ba}
0x1212…1226 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A9 «, t00=0x000b, t01=0x00ea}
0x1226…123a Head {h00=0x0010, h01=0x0050, text=» ST A7,DKECB«, t00=0x000b, t01=0x00fe}
0x123a…126a Head {h00=0x002c, h01=0x0050, text=» CF A14,I:EVA0 * RETREIVE TAPE FILE CODE«, t00=0x000b, t01=0x0112}
0x126a…127e Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A9 «, t00=0x000b, t01=0x0142}
0x127e…1292 Head {h00=0x0010, h01=0x0050, text=» ST A7,MTECB«, t00=0x000b, t01=0x0156}
0x1292…12c4 Head {h00=0x002e, h01=0x0050, text=» CF A14,I:EVA0 * RETREIVE FIRST SECTOR NO.«, t00=0x000b, t01=0x016a}
0x12c4…12d8 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A9 «, t00=0x000c, t01=0x000c}
0x12d8…1304 Head {h00=0x0028, h01=0x0050, text=» ST A7,DKECBC * SAVE IN CONTROL WORD«, t00=0x000c, t01=0x0020}
0x1304…1336 Head {h00=0x002e, h01=0x0050, text=» CF A14,I:EVA0 * RETREIVE LAST SECTOR NO. «, t00=0x000c, t01=0x004c}
0x1336…134a Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A9 «, t00=0x000c, t01=0x007e}
0x134a…1378 Head {h00=0x002a, h01=0x0050, text=» ST A7,DKSECN * SAVE IN LOOP CONTROL. «, t00=0x000c, t01=0x0092}
0x1378…13a8 Head {h00=0x002c, h01=0x0050, text=» CF A14,I:EVA0 * RETREIVE SECTOR LENGTH «, t00=0x000c, t01=0x00c0}
0x13a8…13bc Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A9 «, t00=0x000c, t01=0x00f0}
0x13bc…13d2 Head {h00=0x0012, h01=0x0050, text=» ST A7,DKECBL «, t00=0x000c, t01=0x0104}
0x13d2…13fa Head {h00=0x0024, h01=0x0050, text=» LDR A6,A7 * SAVE SECTOR LENGTH «, t00=0x000c, t01=0x011a}
0x13fa…1428 Head {h00=0x002a, h01=0x0050, text=» CF A14,I:EVA0 * RETREIVE BLOCK FACTOR«, t00=0x000c, t01=0x0142}
0x1428…143c Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A9 «, t00=0x000c, t01=0x0170}
0x143c…1452 Head {h00=0x0012, h01=0x0050, text=» ST A7,BLKFCT «, t00=0x000c, t01=0x0184}
0x1452…147c Head {h00=0x0026, h01=0x0050, text=» LDR A2,A6 * CALC. MT-BUFFER SIZE «, t00=0x000d, t01=0x000a}
0x147c…148c Head {h00=0x000c, h01=0x0050, text=» MUR A7 «, t00=0x000d, t01=0x0034}
0x148c…14b6 Head {h00=0x0026, h01=0x0050, text=» ST A2,MTECBL * SAVE MT-BUFFERSIZE«, t00=0x000d, t01=0x0044}
0x14b6…14e4 Head {h00=0x002a, h01=0x0050, text=» CF A14,I:EVA0 * RETREIVE BUFFER ADDR.«, t00=0x000d, t01=0x006e}
0x14e4…14fa Head {h00=0x0012, h01=0x000d, text=» ST A9,MTECBB «, t00=0x000d, t01=0x009c}
0x14fa…1510 Head {h00=0x0012, h01=0x000d, text=» ST A9,DKECBB «, t00=0x000d, t01=0x00b2}
0x1510…1522 Head {h00=0x000e, h01=0x0050, text=» CM RECCNT«, t00=0x000d, t01=0x00c8}
0x1522…1538 Head {h00=0x0012, h01=0x0050, text=» LDK A7,X'00' «, t00=0x000d, t01=0x00da}
0x1538…154e Head {h00=0x0012, h01=0x0050, text=»MTHEAD EQU *-1«, t00=0x000d, t01=0x00f0}
0x154e…1564 Head {h00=0x0012, h01=0x000e, text=» LDKL A8,MTECB«, t00=0x000d, t01=0x0106}
0x1564…1570 Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x000d, t01=0x011c}
0x1570…1580 Head {h00=0x000c, h01=0x0007, text=» DATA 1 «, t00=0x000d, t01=0x0128}
0x1580…15ac Head {h00=0x0028, h01=0x0023, text=» LDKL A7,X'1000' * 'TAPE MARK' MASK «, t00=0x000d, t01=0x0138}
0x15ac…15c2 Head {h00=0x0012, h01=0x0050, text=» AN A7,MTECBR «, t00=0x000d, t01=0x0164}
0x15c2…15d6 Head {h00=0x0010, h01=0x000c, text=» RF(Z) MTERR«, t00=0x000d, t01=0x017a}
0x15d6…15ee Head {h00=0x0014, h01=0x0010, text=» LDKL A7,X'0000'«, t00=0x000d, t01=0x018e}
0x15ee…1604 Head {h00=0x0012, h01=0x000e, text=»MTMSK1 EQU *-1«, t00=0x000e, t01=0x0016}
0x1604…161a Head {h00=0x0012, h01=0x0050, text=» AN A7,MTECBR «, t00=0x000e, t01=0x002c}
0x161a…1630 Head {h00=0x0012, h01=0x000d, text=» RF(NZ) MTERR «, t00=0x000e, t01=0x0042}
0x1630…1648 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,NXTBLK «, t00=0x000e, t01=0x0058}
0x1648…165e Head {h00=0x0012, h01=0x0050, text=» ST A7,SWTCH3 «, t00=0x000e, t01=0x0070}
0x165e…1672 Head {h00=0x0010, h01=0x000c, text=» ABL X'0000'«, t00=0x000e, t01=0x0086}
0x1672…1696 Head {h00=0x0020, h01=0x0050, text=»SWTCH1 EQU *-1 * DKIO / MTIO«, t00=0x000e, t01=0x009a}
0x1696…16a0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x00be}
0x16a0…16aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x00c8}
0x16aa…16b8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000e, t01=0x00d2}
0x16b8…16c2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x00e0}
0x16c2…16d8 Head {h00=0x0012, h01=0x000e, text=»* DISK - I/O«, t00=0x000e, t01=0x00ea}
0x16d8…16e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0100}
0x16e2…16f4 Head {h00=0x000e, h01=0x000a, text=»DKIO EQU *«, t00=0x000e, t01=0x010a}
0x16f4…170a Head {h00=0x0012, h01=0x000d, text=» LDK A7,X'00' «, t00=0x000e, t01=0x011c}
0x170a…1720 Head {h00=0x0012, h01=0x000e, text=»DKORDR EQU *-1«, t00=0x000e, t01=0x0132}
0x1720…1736 Head {h00=0x0012, h01=0x000e, text=» LDKL A8,DKECB«, t00=0x000e, t01=0x0148}
0x1736…1742 Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x000e, t01=0x015e}
0x1742…1752 Head {h00=0x000c, h01=0x0007, text=» DATA 1 «, t00=0x000e, t01=0x016a}
0x1752…175c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x017a}
0x175c…1774 Head {h00=0x0014, h01=0x0010, text=»* I/O ANALYSIS.«, t00=0x000e, t01=0x0184}
0x1774…177e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x000c}
0x177e…1796 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,X'820F'«, t00=0x000f, t01=0x0016}
0x1796…17ac Head {h00=0x0012, h01=0x0050, text=» AN A7,DKECBR «, t00=0x000f, t01=0x002e}
0x17ac…17c2 Head {h00=0x0012, h01=0x000d, text=» RF(NZ) DKERR «, t00=0x000f, t01=0x0044}
0x17c2…17cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005a}
0x17cc…17fc Head {h00=0x002c, h01=0x0050, text=»* REPEAT I/O IF 'NEW VOLUME' DETECTED. «, t00=0x000f, t01=0x0064}
0x17fc…1806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0094}
0x1806…182e Head {h00=0x0024, h01=0x0050, text=» LDK A7,X'80' * MASK 'NEW VOL.' «, t00=0x000f, t01=0x009e}
0x182e…1844 Head {h00=0x0012, h01=0x0050, text=» AN A7,DKECBR «, t00=0x000f, t01=0x00c6}
0x1844…1866 Head {h00=0x001e, h01=0x0050, text=» RB(NZ) DKIO * REPEAT I/O «, t00=0x000f, t01=0x00dc}
0x1866…1870 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x00fe}
0x1870…1892 Head {h00=0x001e, h01=0x001a, text=»* INCREMENT SECTOR COUNTER«, t00=0x000f, t01=0x0108}
0x1892…189c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x012a}
0x189c…18c6 Head {h00=0x0026, h01=0x0050, text=» IM DKECBC * INCR. SECTOR COUNTER «, t00=0x000f, t01=0x0134}
0x18c6…18f0 Head {h00=0x0026, h01=0x0050, text=» IM RECCNT * INCR. RECORD COUNTER «, t00=0x000f, t01=0x015e}
0x18f0…18fa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0188}
0x18fa…1944 (16, 0, 400) Head {h00=0x0046, h01=0x0041, text=»* SECTOR READ. INCREMENT BUFFER POINTER & CHECK IF END OF BUFFER «, t00=0x0010, t01=0x0004}
0x1944…194e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x004e}
0x194e…1976 Head {h00=0x0024, h01=0x0050, text=» LD A7,DKECBB *LOAD BUFFER ADDR.«, t00=0x0010, t01=0x0058}
0x1976…19a2 Head {h00=0x0028, h01=0x0050, text=» AD A7,DKECBL * ADD ON RECORD LENGTH«, t00=0x0010, t01=0x0080}
0x19a2…19ce Head {h00=0x0028, h01=0x0050, text=» ST A7,DKECBB * SAVE NEW BUFF. ADDR.«, t00=0x0010, t01=0x00ac}
0x19ce…19d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x00d8}
0x19d8…1a18 Head {h00=0x003c, h01=0x0038, text=»* CHECK IF LAST SECTOR PROCESSED AND BRANCH ACORDINGLY.«, t00=0x0010, t01=0x00e2}
0x1a18…1a22 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0122}
0x1a22…1a4e Head {h00=0x0028, h01=0x0023, text=» LD A7,DKECBC * LOAD SECTOR COUNTER «, t00=0x0010, t01=0x012c}
0x1a4e…1a64 Head {h00=0x0012, h01=0x000d, text=» CW A7,DKSECN «, t00=0x0010, t01=0x0158}
0x1a64…1a7c Head {h00=0x0014, h01=0x000f, text=» ABL(G) X'0000' «, t00=0x0010, t01=0x016e}
0x1a7c…1aa4 Head {h00=0x0024, h01=0x0050, text=»SWTCH2 EQU *-1 *MTIOLB / RETURN «, t00=0x0010, t01=0x0186}
0x1aa4…1aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001e}
0x1aae…1ad4 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF BLOCK IS COMPLETE.«, t00=0x0011, t01=0x0028}
0x1ad4…1ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004e}
0x1ade…1af4 Head {h00=0x0012, h01=0x0050, text=» LD A7,RECCNT «, t00=0x0011, t01=0x0058}
0x1af4…1b0a Head {h00=0x0012, h01=0x0050, text=» CW A7,BLKFCT «, t00=0x0011, t01=0x006e}
0x1b0a…1b34 Head {h00=0x0026, h01=0x0050, text=» RF(Z) MTIO * YES! TRANS. TO TAPE «, t00=0x0011, t01=0x0084}
0x1b34…1b64 Head {h00=0x002c, h01=0x0027, text=» RB DKIO * READ NEXT SECTOR IF NOT LAST «, t00=0x0011, t01=0x00ae}
0x1b64…1b6e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00de}
0x1b6e…1b78 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00e8}
0x1b78…1b86 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0011, t01=0x00f2}
0x1b86…1b90 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0100}
0x1b90…1b9a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x010a}
0x1b9a…1ba4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0114}
0x1ba4…1bbe Head {h00=0x0016, h01=0x0011, text=»* MAG. TAPE I/O. «, t00=0x0011, t01=0x011e}
0x1bbe…1bc8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0138}
0x1bc8…1bdc Head {h00=0x0010, h01=0x000c, text=»MTIOLB EQU *«, t00=0x0011, t01=0x0142}
0x1bdc…1be6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0156}
0x1be6…1c10 Head {h00=0x0026, h01=0x0021, text=»* FIX WHEN LAST BLOCK PROCESSED. «, t00=0x0011, t01=0x0160}
0x1c10…1c1a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x018a}
0x1c1a…1c32 (18, 0, 400) Head {h00=0x0014, h01=0x000f, text=» LDKL A7,WRTPMK «, t00=0x0012, t01=0x0004}
0x1c32…1c48 Head {h00=0x0012, h01=0x000d, text=» ST A7,SWTCH3 «, t00=0x0012, t01=0x001c}
0x1c48…1c52 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0032}
0x1c52…1c74 Head {h00=0x001e, h01=0x0019, text=»* NORMAL TAPE-I/O ENTRY. «, t00=0x0012, t01=0x003c}
0x1c74…1c7e Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0012, t01=0x005e}
0x1c7e…1c90 Head {h00=0x000e, h01=0x000a, text=»MTIO EQU *«, t00=0x0012, t01=0x0068}
0x1c90…1cb6 Head {h00=0x0022, h01=0x001e, text=» LDK A7,X'00' * LOAD ORDERCODE«, t00=0x0012, t01=0x007a}
0x1cb6…1ccc Head {h00=0x0012, h01=0x000e, text=»MTORDR EQU *-1«, t00=0x0012, t01=0x00a0}
0x1ccc…1ce2 Head {h00=0x0012, h01=0x000e, text=» LDKL A8,MTECB«, t00=0x0012, t01=0x00b6}
0x1ce2…1cee Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x0012, t01=0x00cc}
0x1cee…1cfe Head {h00=0x000c, h01=0x0007, text=» DATA 1 «, t00=0x0012, t01=0x00d8}
0x1cfe…1d08 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x00e8}
0x1d08…1d28 Head {h00=0x001c, h01=0x0018, text=»* RETURN CODE ANALYSIS.«, t00=0x0012, t01=0x00f2}
0x1d28…1d32 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0112}
0x1d32…1d56 Head {h00=0x0020, h01=0x001c, text=» LDKL A7,X'0000' * LOAD MASK«, t00=0x0012, t01=0x011c}
0x1d56…1d6c Head {h00=0x0012, h01=0x000e, text=»MTMSK2 EQU *-1«, t00=0x0012, t01=0x0140}
0x1d6c…1d82 Head {h00=0x0012, h01=0x0050, text=» AN A7,MTECBR «, t00=0x0012, t01=0x0156}
0x1d82…1d98 Head {h00=0x0012, h01=0x000d, text=» RF(NZ) MTERR «, t00=0x0012, t01=0x016c}
0x1d98…1da2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0182}
0x1da2…1de0 Head {h00=0x003a, h01=0x0035, text=»* RETURN IF LAST SECTOR ELSE PERPARE FOR NEXT BLOCK. «, t00=0x0012, t01=0x018c}
0x1de0…1dea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x003a}
0x1dea…1dfe Head {h00=0x0010, h01=0x000c, text=» ABL X'0000'«, t00=0x0013, t01=0x0044}
0x1dfe…1e26 Head {h00=0x0024, h01=0x0050, text=»SWTCH3 EQU *-1 * NXTBLK / WRTPMK«, t00=0x0013, t01=0x0058}
0x1e26…1e30 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0080}
0x1e30…1e3a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x008a}
0x1e3a…1e44 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0094}
0x1e44…1e58 Head {h00=0x0010, h01=0x000c, text=»NXTBLK EQU *«, t00=0x0013, t01=0x009e}
0x1e58…1e6e Head {h00=0x0012, h01=0x0050, text=» LD A7,MTECBB «, t00=0x0013, t01=0x00b2}
0x1e6e…1e9a Head {h00=0x0028, h01=0x0025, text=» ST A7,DKECBB * RESTORE BUFFER ADDR.«, t00=0x0013, t01=0x00c8}
0x1e9a…1ec4 Head {h00=0x0026, h01=0x0050, text=» CM RECCNT * RESET RECORD COUNTER.«, t00=0x0013, t01=0x00f4}
0x1ec4…1ee8 Head {h00=0x0020, h01=0x001b, text=» RB DKIO * READ NEXT SECTOR «, t00=0x0013, t01=0x011e}
0x1ee8…1ef2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0142}
0x1ef2…1efc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x014c}
0x1efc…1f0a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0013, t01=0x0156}
0x1f0a…1f14 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0164}
0x1f14…1f1e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x016e}
0x1f1e…1f3c Head {h00=0x001a, h01=0x0015, text=»* NORMAL TERMINATION. «, t00=0x0013, t01=0x0178}
0x1f3c…1f46 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0008}
0x1f46…1f5a Head {h00=0x0010, h01=0x000c, text=»WRTPMK EQU *«, t00=0x0014, t01=0x0012}
0x1f5a…1f64 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0014, t01=0x0026}
0x1f64…1f7e Head {h00=0x0016, h01=0x0011, text=»* WRITE TAPE MARK «, t00=0x0014, t01=0x0030}
0x1f7e…1f88 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x004a}
0x1f88…1fae Head {h00=0x0022, h01=0x001d, text=» LDK A7,X'A2' * ORDERCODE WTM «, t00=0x0014, t01=0x0054}
0x1fae…1fc4 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,MTECB«, t00=0x0014, t01=0x007a}
0x1fc4…1fd0 Head {h00=0x0008, h01=0x0004, text=» LKM«, t00=0x0014, t01=0x0090}
0x1fd0…1fe0 Head {h00=0x000c, h01=0x0007, text=» DATA 1 «, t00=0x0014, t01=0x009c}
0x1fe0…1ff8 Head {h00=0x0014, h01=0x0010, text=» LDKL A7,X'1000'«, t00=0x0014, t01=0x00ac}
0x1ff8…200e Head {h00=0x0012, h01=0x0050, text=» AN A7,MTECBR «, t00=0x0014, t01=0x00c4}
0x200e…2022 Head {h00=0x0010, h01=0x000c, text=» RF(Z) MTERR«, t00=0x0014, t01=0x00da}
0x2022…202c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x00ee}
0x202c…2036 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x00f8}
0x2036…204a Head {h00=0x0010, h01=0x0050, text=»RETURN EQU *«, t00=0x0014, t01=0x0102}
0x204a…2070 Head {h00=0x0022, h01=0x001d, text=» LDK A6,0 * RETURN CODE = OK. «, t00=0x0014, t01=0x0116}
0x2070…2084 Head {h00=0x0010, h01=0x000b, text=» RF SETRC «, t00=0x0014, t01=0x013c}
0x2084…208e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0150}
0x208e…2098 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x015a}
0x2098…20b6 Head {h00=0x001a, h01=0x0016, text=»* I/O ERROR HANDLING.«, t00=0x0014, t01=0x0164}
0x20b6…20c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0182}
0x20c0…20ca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x018c}
0x20ca…20de Head {h00=0x0010, h01=0x000b, text=»MTERR EQU * «, t00=0x0015, t01=0x0008}
0x20de…2106 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,'M' * INDICATE MAG.TAPE«, t00=0x0015, t01=0x001c}
0x2106…2136 Head {h00=0x002c, h01=0x0050, text=» LD A6,MTECBR * PICK UP DRIVER RET. CODE«, t00=0x0015, t01=0x0044}
0x2136…2148 Head {h00=0x000e, h01=0x0050, text=» RF ERRHDL«, t00=0x0015, t01=0x0074}
0x2148…2152 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0086}
0x2152…215c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0090}
0x215c…2170 Head {h00=0x0010, h01=0x000b, text=»DKERR EQU * «, t00=0x0015, t01=0x009a}
0x2170…2194 Head {h00=0x0020, h01=0x0050, text=» LDKL A8,'D' * INDICATE DISK«, t00=0x0015, t01=0x00ae}
0x2194…21ac Head {h00=0x0014, h01=0x000f, text=» LDKL A6,DKECBR «, t00=0x0015, t01=0x00d2}
0x21ac…21b6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00ea}
0x21b6…21c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00f4}
0x21c0…21d4 Head {h00=0x0010, h01=0x000c, text=»ERRHDL EQU *«, t00=0x0015, t01=0x00fe}
0x21d4…2200 Head {h00=0x0028, h01=0x0050, text=» LD A7,MTECBB * PICK UP BUFFER ADDR.«, t00=0x0015, t01=0x0112}
0x2200…2228 Head {h00=0x0024, h01=0x0050, text=» SCR A8,A7 * TRANS. FAILING UNIT«, t00=0x0015, t01=0x013e}
0x2228…2232 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0166}
0x2232…223c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0170}
0x223c…2250 Head {h00=0x0010, h01=0x000b, text=»SETRC EQU * «, t00=0x0015, t01=0x017a}
0x2250…2284 Head {h00=0x0030, h01=0x002c, text=» CF A14,I:EVA0 * PICK UP ADDR. OF RETURNCODE«, t00=0x0015, t01=0x018e}
0x2284…22b0 Head {h00=0x0028, h01=0x0050, text=» STR A6,A9 * TRANS. DRIVER RET. CODE«, t00=0x0016, t01=0x0032}
0x22b0…22ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x005e}
0x22ba…22c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0068}
0x22c4…22f0 Head {h00=0x0028, h01=0x0050, text=» ABL I:RT1 * RETURN TO 'CREDIT' USER«, t00=0x0016, t01=0x0072}
0x22f0…22fa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x009e}
0x22fa…2304 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00a8}
0x2304…230e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00b2}
0x230e…231c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0016, t01=0x00bc}
0x231c…2326 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00ca}
0x2326…2330 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00d4}
0x2330…2364 Head {h00=0x0030, h01=0x002c, text=»* EVENT CONTROL BLOCKS. MAG. TAPE AND DISK«, t00=0x0016, t01=0x00de}
0x2364…236e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0112}
0x236e…239e Head {h00=0x002c, h01=0x0027, text=»MTECB DATA /0070 * FILE CODE TAPE DRIVE «, t00=0x0016, t01=0x011c}
0x239e…23c2 Head {h00=0x0020, h01=0x001c, text=»MTECBB DATA 0 * BUFFER ADDR.«, t00=0x0016, t01=0x014c}
0x23c2…23f8 Head {h00=0x0032, h01=0x0050, text=»MTECBL DATA 3280,0 * BUFFER LENGTH (8 SECTORS)«, t00=0x0016, t01=0x0170}
0x23f8…241c Head {h00=0x0020, h01=0x001b, text=»MTECBR DATA 0 * RETURN CODE «, t00=0x0017, t01=0x0016}
0x241c…244a Head {h00=0x002a, h01=0x0050, text=»MTECBC DATA 0 * NO BLOCK SEQUENCE NO. «, t00=0x0017, t01=0x003a}
0x244a…2454 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0068}
0x2454…245e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0072}
0x245e…2468 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x007c}
0x2468…249a Head {h00=0x002e, h01=0x0029, text=»DKECB DATA /00F0 * FILE CODE FIXED DISK 1 «, t00=0x0017, t01=0x0086}
0x249a…24be Head {h00=0x0020, h01=0x001c, text=»DKECBB DATA 0 * BUFFER ADDR.«, t00=0x0017, t01=0x00b8}
0x24be…24e8 Head {h00=0x0026, h01=0x0050, text=»DKECBL DATA 410,0 * SECTOR LENGTH «, t00=0x0017, t01=0x00dc}
0x24e8…250c Head {h00=0x0020, h01=0x001b, text=»DKECBR DATA 0 * RETURN CODE «, t00=0x0017, t01=0x0106}
0x250c…2532 Head {h00=0x0022, h01=0x001e, text=»DKECBC DATA 0 * SECTOR COUNTER«, t00=0x0017, t01=0x012a}
0x2532…253c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0150}
0x253c…2546 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x015a}
0x2546…2550 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0164}
0x2550…257e Head {h00=0x002a, h01=0x0026, text=»DKSECN DATA 13055 * NO. OF LAST SECTOR«, t00=0x0017, t01=0x016e}
0x257e…25a2 Head {h00=0x0020, h01=0x0050, text=»BLKFCT DATA 0 *BLOCK FACTOR «, t00=0x0018, t01=0x000c}
0x25a2…25d0 Head {h00=0x002a, h01=0x0050, text=»RECCNT DATA 0 * RECORD IN BLOCK COUNT.«, t00=0x0018, t01=0x0030}
0x25d0…25da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x005e}
0x25da…25e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0068}
0x25e4…25ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0072}
0x25ee…25fa Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0018, t01=0x007c}
0x25fa…25fe Head {h00=0x4004, h01=0x0000}
0x25fe…2602 00 18 00 88 ┆ ┆
0x2602…260a (25, 1, 8) 20 04 00 00 00 19 00 04 ┆ ┆
0x260a…265a (26, 0, 400) 0c 7c 0b 37 0b 46 0b 6c 0c 70 0c 74 0c 78 36 00 04 00 13 26 39 30 1b 10 41 21 02 e5 01 50 05 80 01 4b e0 0f 80 02 34 03 30 1c 10 41 21 02 e5 01 50 05 80 01 4b e0 0f 80 02 34 03 30 1b 10 41 76 02 e5 01 50 05 80 01 4b e0 0f 80 02 34 03 30 1c ┆ | 7 F l p t x6 &90 A! P K 4 0 A! P K 4 0 Av P K 4 0 ┆
0x265a…26aa 10 41 76 02 e5 01 50 05 80 01 4b e0 0f 80 02 34 03 30 1b 10 41 76 a0 65 00 80 02 34 01 30 1c 10 41 76 a0 65 00 80 02 34 01 40 e0 30 12 10 e2 00 98 e2 01 e3 3e 30 1d e2 e3 50 05 00 93 36 34 00 01 e3 3c 30 1d e2 e3 50 05 01 93 35 34 00 00 e3 ┆ Av P K 4 0 Av e 4 0 Av e 4 @ 0 >0 P 64 <0 P 54 ┆
0x26aa…26fa 12 30 1d e2 e3 50 04 41 e0 34 00 00 e3 21 30 1d e2 e3 50 03 01 93 33 34 00 80 03 00 e2 45 00 62 52 20 2a 19 e2 29 62 52 2a 13 1b e2 20 00 e2 49 00 30 1c 10 41 00 52 e5 e2 56 02 80 01 80 02 34 01 80 03 30 1b 10 41 01 52 e5 00 56 05 80 01 4b ┆ 0 P A 4 !0 P 34 E bR * )bR* I 0 A R V 4 0 A R V K┆
0x26fa…274a e0 0f 00 e2 45 01 00 49 01 00 62 19 e2 29 2a 52 20 62 1b e2 20 13 52 2a 80 02 34 02 49 73 07 80 04 21 00 01 57 05 80 04 23 00 01 34 02 49 73 07 80 04 22 00 01 5f 0c 80 04 24 00 01 5f 13 80 03 80 04 23 60 52 52 0e 62 1b 7c 20 13 52 2a 6a 19 ┆ E I b )*R b R* 4 Is ! W # 4 Is " _ $ _ #`RR b | R*j ┆
0x274a…279a 7c 29 22 60 20 80 02 34 00 80 03 01 52 44 62 52 2a 13 1b 7c 20 6a 60 20 22 19 7c 29 80 04 24 60 52 80 02 34 00 80 05 60 76 56 02 41 70 01 9a 40 62 a0 20 22 9a 20 6a a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆|)"` 4 RDbR* | j` " |) $`R 4 `vV Ap @b " j ┆
0x279a…27ea (27, 0, 400) 24 22 60 20 80 06 75 56 3e 80 05 61 76 00 75 61 6a 62 20 22 a0 22 20 62 20 28 80 07 62 52 23 6a a0 24 22 75 20 80 06 62 5e 26 6a 62 20 22 52 22 20 62 20 0e 80 07 62 52 09 6a a0 24 22 20 20 80 06 62 00 93 35 57 1b 6a a0 22 22 75 20 6a a0 24 ┆$"` uV> av uajb " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $┆
0x27ea…283a 22 20 20 6a a0 26 22 2a 20 00 75 60 48 70 03 00 93 2a 3f 01 80 08 80 09 76 3f 01 80 06 75 3f 01 00 60 20 5f 80 80 07 75 29 93 35 03 00 93 20 3f 01 6a 60 20 22 a0 24 80 07 60 3a 01 20 00 30 1c 6a 61 20 22 a0 22 20 61 20 0d 20 75 61 0e 6a a0 ┆" j &"* u`Hp *? v? u? ` _ u) 5 ? j` " $ `: 0 ja " " a ua j ┆
0x283a…288a 24 22 20 20 80 06 60 00 93 29 3f 01 00 75 60 3f 01 6a 60 20 22 a0 22 5f 32 41 73 80 0a a0 00 75 61 3f 01 00 93 20 40 75 40 76 00 e2 45 01 30 1e 1b e2 19 e2 00 20 00 20 0e 04 3f 01 21 22 3f 01 15 01 31 41 78 57 2d 6a e4 20 22 19 e2 2d 20 e4 ┆$" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - ┆
0x288a…28da 20 15 80 0b 80 09 01 52 0a 80 0c e4 01 52 04 80 0d 5f 39 80 0d 57 0d 49 75 07 41 75 00 e4 22 5f 1f 00 93 2a 22 01 21 02 41 e1 80 02 34 02 80 0e 00 01 30 1f 1b 63 19 63 00 02 3f 01 21 28 01 21 02 41 e1 80 02 34 02 00 e2 21 20 01 21 06 00 e2 ┆ R R _9 W Iu Au "_ *" ! A 4 0 c c ? !( ! A 4 ! ! ┆
0x28da…292a 65 0a e2 e5 00 63 45 01 6a e3 20 22 19 63 2f 04 e3 2c 08 e3 28 0a e3 e2 08 e3 e2 6a e2 20 22 19 63 31 00 e4 e2 02 e2 e3 04 e2 21 22 00 e2 0a 24 00 e4 29 00 63 45 01 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09 ┆e cE j " c/ , ( j " c1 !" $ ) cE 4 ┆
0x292a…297a (28, 0, 400) 02 00 e2 2d 6a 63 20 22 19 63 e2 10 63 20 14 80 0b 80 09 01 52 0a 80 0c 63 01 52 04 80 0d 5f 61 80 0d 5f 29 00 e2 2b 5f 25 80 0e 00 01 30 20 1b 63 19 63 00 34 02 00 e9 21 93 00 e2 21 00 e3 21 80 0f 22 e2 e3 9d 56 04 30 16 5f 12 00 e9 22 e2 ┆ -jc " c c R c R _a _) +_% 0 c c 4 ! ! ! " V 0 _ " ┆
0x297a…29ca 62 19 e2 29 2a 52 20 62 1b e2 20 13 52 2a 00 93 e9 21 34 00 00 e2 e9 22 62 52 20 2a 19 e2 29 62 52 2a 13 1b e2 20 80 0f 26 e2 e2 9d 34 00 40 6b 40 6c 6a 61 20 22 00 22 6a 60 20 22 00 24 28 60 20 04 41 6c 57 3d 80 10 60 00 52 67 6a 64 20 22 ┆b )*R b R* !4 "bR * )bR* & 4 @k@lja " "j` " $(` AlW= ` Rgjd "┆
0x29ca…2a1a 00 22 6a 00 22 22 61 20 28 61 20 23 80 11 64 00 6a 61 20 22 00 24 20 61 20 10 80 10 61 00 52 43 6a 00 22 22 64 20 80 11 61 00 00 64 60 57 08 80 11 60 00 28 61 20 07 41 6b 49 6c 27 57 18 80 10 61 00 52 1f 6a 64 20 22 00 24 6a 00 24 22 60 20 ┆ "j ""a (a # d ja " $ a a RCj ""d a d`W ` (a AkIl'W a R jd " $j $"` ┆
0x2a1a…2a6a 80 11 61 00 52 0d 00 60 76 49 73 03 00 60 21 80 12 64 60 80 02 34 01 00 93 20 32 00 04 02 03 04 05 48 11 04 30 16 5f 07 41 e3 54 7c 41 11 40 73 02 43 21 21 22 43 21 21 6f 01 9d 49 00 6b 56 21 30 21 10 41 21 52 9d 6b 50 12 30 22 10 41 21 52 ┆ a R `vIs `! d` 4 2 H 0 _ A T|A @s C!!"C!!o I kV!0! A!R kP 0" A!R┆
0x2a6a…2aba 20 40 e3 00 93 34 04 43 21 21 57 4c 00 5e 55 00 e2 21 30 23 e2 1b 21 54 09 01 19 e2 43 02 e2 21 5f 10 80 13 60 21 00 3f 21 60 80 04 21 21 52 6a 15 21 20 22 52 25 6a 47 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ @ 4 C!!WL ^U !0# !T C !_ `! ?!` !!Rj ! "R%jG ┆