|
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: 17418 (0x440a)
Notes: pts_type(SC)
Names: »TIODM.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/TIODM.SC«
IDENT TIODM REL 8.2 78-09-15 870105040820 ORDER SET LRN IMPLEMENTED + EA SR REL 8.1 78-04-21 * **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TIODM = DATA MANAGEMENT ACTIVATION PART * * * * * * **************************************************** * * THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO * AND THE DWTADR IN FDB FOR CURRENT FILE * * THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR * FROM A DISC MUST BE ACCESSED * * ENTRY TIODM AND TIODM HOLDS THE START ADDRESS * * * INPUT A6 = FDB ADDRESS * A7 = ORDER * A8 = ECB ADDRESS * * USED REGISTERS A1 - A10 * * BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1 * AS THE ONLY PARAMETER * * THE FOLLOWING WORDS WILL BE SET IN THE FDB: * FDBSNR SECTOR NUMBER * FDBRRO RELATIVE RECORD OFFSET * FDBTNR TASK NUMBER FOR CALLING TASK * FDBCEX CURRENT EXTENT BLOCK POINTER * * * IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: * LDKL A1,/<RETURN CODE> * ABL DISEND * * EJECT * ************** * ENTRIES * ************** * ENTRY TIODM REFERENCED IN DWTADR ENTRY FDBLNK ENTRY FDBECB ENTRY FDBSNR ENTRY FDBRRO ENTRY FDBRLE ENTRY FDBBLF ENTRY FDBTNR ENTRY FDBVTO ENTRY FDBCEX ENTRY FDBEXT ENTRY EXTDMI ENTRY EXTFC ENTRY EXTLEN ENTRY EXTBAS ENTRY EXTELE ENTRY FDBLRN ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF ENTRY FDBAI1,CRNTID,CRNCDF,CRNCIF ENTRY FDBMRN,FDBDBR,FDBMRO ENTRY ECBFC ENTRY TCFILE,COFILE EJECT * ***************** * EXTERNALS * ***************** * * EXTRN TCTAB EXTRN TDISP EXTRN DSUMOD EXTRN FNDTID EXTRN ACTOT EXTRN DISEND EXTRN DWTECB EXTRN DWTOR EXTRN DWTTDM EXTRN DMTGCA GET CRN ADDRESS EXTRN DMTGEA GET EA WORD ADDR AND MASK EXTRN DMTASK EXTRN CALSNO EXTRN ECBBA EXTRN ECBRL EXTRN ECBEL EXTRN ECBRC EXTRN ECBCW EXTRN FDBLEN EXTRN SQR SEQ READ ORDER CODE EXTRN EARELB,DWTST,CRNGET,EATEST EJECT * ************************ * CONDITIONAL ASSEMBLY * ************************ * * * A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED * BY SETTING INDXAC EQU 1 * INDXAC EQU 0 OTHRERWISE X:A EQU 0 INDXAC EQU 0 X:B EQU 0 TCFILE EQU X:B MONCON X:C EQU 0 COFILE EQU 005 MONCON EJECT * ************************ * DATA DEFINITIONS * ************************ * * DATA 0,0 4 WORDS DATA 0,0 TIOD14 EQU *-2 TIODM A14 STACK * * TIODMF EQU * TIODM FUNCTION TABLE DATA CLOSE CLOSE DATA REVTOC READ VTOC RECORD IFT INDXAC=1 DATA IXRDNX INDEXED READ NEXT DATA IXINS INDEXED INSERT DATA IXDEL INDEXED DELETE DATA IXREWR INDEXED REWRITE DATA IXRARE INDEXED RANDOM READ XIF IFF INDXAC=1 DATA TIODME DATA TIODME DATA TIODME DATA TIODME DATA TIODME XIF DATA RANDEL RANDOM DELETE DATA RANWRITE RANDOM WRITE DATA RANREAD RANDOM READ DATA RELXAC RELEASE EXCLUSIVE ACCESS DATA SEQWRITE SEQUENTIAL WRITE DATA SEQREAD SEQUENTIAL READ DATA GETCUR GET CURRENCY IFT INDXAC=1 DATA INSIXR INSERT INDEX RECORD DATA DELIXR DELETE INDEX RECORD XIF IFF INDXAC=1 DATA TIODME DATA TIODME XIF DATA GETCUX GET CURRENT INDEX REC DATA RANWRD DELAYED RANDOM WRITE DATA RANDLD DELAYED RANDOM DELETE DATA RANREB RAND READ REL BUFF DATA SETLRN SET LRN * * TIODMO EQU * DM ORDERS DATA /221E CLOSE,IND READ NEXT DATA /1D1C IND INSERT,IND DELETE DATA /1B1A INDEXED REWRITE,IND RAND READ DATA /0C0B RAND DEL, RAND WRITE DATA /0A09 RAND READ, REL EXCL ACC DATA /0807 SPEC. WR. , SPEC. WR. DATA /0605 SEQ WR. , BASIC WRITE DATA /0302 READ VTOC, SEQ READ DATA /0123 BASIC READ,GET CURRENCY DATA /1F20 INS INDEXREC,DEL INDEXREC DATA /240D GET CURR INDEX,DELAYED RAND WR DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF DATA /2500 SET LRN * TIODMI EQU * ORDER INDEX TABLE DATA /0004 DATA /0608 DATA /0A0C DATA /0E10 DATA /1214 DATA /1616 DATA /1616 DATA /0218 DATA /181A DATA /1C1E DATA /2022 DATA /2426 DATA /281A SET LRN * EJECT NOOFOR EQU 25 NO OF ORDER CODES * ECBFC EQU 1 * * FDB OFFSET DEFINITIONS * FDBLNK EQU 0 LINK TO NEXT FDB FDBECB EQU 18 ECB START FDBSNR EQU 32 SECTOR NUMBER FDBRRO EQU 34 RELATIVE RECORD OFFSET FDBRLE EQU 36 RECORD LENGTH FDBBLF EQU 38 BLOCKING FACTOR FDBTNR EQU 39 TASK NUMBER CALLING TASK FDBVTO EQU 40 VTOC RECORD NO FDBCEX EQU 42 CURRENT EXTENT BLOCK POINTER FDBEXT EQU 44 FIRST EXTENT BLOCK START EXTDMI EQU 0 DMTAST IDENT EXTFC EQU 1 VOLUME FILE CODE EXTLEN EQU 2 EXTENT LENGTH EXTBAS EQU 4 EXTENT BASE EXTELE EQU 6 EXT ENTRY LENGTH FDBLRN EQU 69 LAST RECORD NUMBER FDBNIF EQU 68 NO OF INDEX FILES FDBEAL EQU 72 EA LINK ROOT FDBCRL EQU 74 CRN LINK ROOT FDBKA EQU 76 KEY ADDRESS IN DATA FILE FDBMIA EQU 78 ADDRESS OF MASTER INDEX FDBADF EQU 80 ADDRESS OF DATA FILE FDB FDBAI1 EQU 82 ADDRESS OF INDEX FILE FDB FDBDBR EQU 90 DELAY,BASIC AND REL BUFFER FLAGS FDBMRN EQU 91 LAST REC NR IN FILE FDBMRO EQU 94 MAX FDBRRO * * CRN BUFFER OFFSET DEFINITIONS * CRNTID EQU 2 TASK ID CRNCDF EQU 4 CURRENT DATA FILE CRNCIF EQU 8 CURRENT INDEX FILE EJECT * ************* * TIODM * ************* * * TIODM DATA *+2 TIODM START ADDRESS * * SET UP A14 STACK * LDKL A14,TIOD14 * * GET CALLING TASK NUMBER AND STORE IT IN FDBTNR * LDK A2,0 TIOD05 LD A1,TCTAB ADR A1,A2 LD A3,2,A1 CW A3,DWTTDM,A6 RF(E) TIOD10 THIS TASK ADK A2,2 NO RB TIOD05 TRY NEXT TIOD10 EQU * LD A1,2,A3 TASK STATUS RF(N) TIO13 DMTASK CALLING * * SET TASK ID FOR ALL FDBS * LDR A1,A6 FDB ADDR ADKL A1,FDBADF LDK A3,10 MAX NO OF FDB * 2 LDKL A4,/4000 REQ BUSY BIT TIO11 EQU * SUK A3,2 RF(N) TIO13 ALL FDB READY LDR* A5,A1 FDB ADDR RF(E) TIO12 NO FDB SC A2,FDBTNR,A5 TASK ID ORS A4,DWTST,A5 REQ BUSY BIT TIO12 EQU * ADK A1,2 NEXT FDB ADDR RB TIO11 TIO13 EQU * ENB ENB ENB INH INH * * CHECK ORDER IN A7 * PUT ORDER INDEX IN DWTOR RIGHT BYTE * LDKL A1,/8000 REQUEST ERROR LDK A2,NOOFOR-1 NO OF ORDERS - 1 TIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO RF(E) TIOD20 MATCH SUK A2,1 RB(NN) TIOD15 >= 0 ABL TIODME ERROR RETURN TIOD20 EQU * LC A2,TIODMI,A2 SC A2,DWTOR+1,A6 SAVE ORDER INDEX ABI TIODMF,A2 BRANCH TO DM FUNCTION EJECT * DELIXR EQU * DELETE INDEX RECORD * INSIXR EQU * INSERT INDEX RECORD * IXRARE EQU * INDEXED RANDOM READ LDKL A4,-1 RF TIOC10 * REVTOC EQU * READ VTOC RECORD * CLOSE EQU * CLOSE A FILE LDK A4,0 TIOC10 EQU * ST A4,FDBRRO,A6 MARK ORDER TYPE LDK A2,0 ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE * * LET FDBCEX POINT TO FIRST EXTENT * LDR A4,A6 ADKL A4,FDBEXT ST A4,FDBCEX,A6 ABL TIOD68 ACTIVATE DMTASK EJECT * RELXAC EQU * RELEASE EXCLUSIVE ACCESS LDR A1,A6 FDB ADDR LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK CF A14,EARELB REL090 EQU * LDK A1,0 CORRECT RETURN ABL TIODME EJECT SETLRN EQU * SET LAST RECORD NUMBER LC A1,ECBCW+3,A8 SC A1,FDBLRN,A6 LD A1,ECBCW,A8 ST A1,FDBLRN+1,A6 RB REL090 EJECT GETCUR LDK A7,CRNCDF+1 GET CURR DATA REC RF GET010 GETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC GET010 LDR A1,A6 FDB ADDR CF A14,CRNGET GET CRN BUFFER ADR A7,A2 ADDR CURR REC NO LDK A2,0 LC A3,-1,A7 FILE CODE CC A3,ECBFC,A8 RF(E) GET020 SAME FILE CODE SC A2,ECBCW+3,A8 RF GET030 GET020 EQU * LCR A2,A7 SC A2,ECBCW+3,A8 REC NO LD A2,1,A7 GET030 EQU * ST A2,ECBCW,A8 RB REL090 EJECT SEQREAD EQU * SEQUENTIAL READ * * FIND CRN+1 AND TEST IF > LRN * LDR A1,A6 FDB ADDR CF A14,CRNGET GET CRN-BUFFER LDK A1,0 LC A1,CRNCDF+1,A2 LD A2,CRNCDF+2,A2 CURR LOG REC NO ADK A2,1 CRN+1 RF(O) SEQR10 OVERFLOW RF SEQR20 SEQR10 EQU * ANKL A2,/7FFF REMOVE OVERFLOW ADK A1,1 ADD CARRY SEQR20 EQU * SC A1,ECBCW+3,A8 REC NO ST A2,ECBCW,A8 * * CONTINUE AS FOR RANDOM READ * EJECT RANREAD EQU * RANDOM READ * RANREB EQU * RAND READ REL BUFF * * TEST IF ECBRL <= 0 * LDK A2,0 LC A2,ECBCW+3,A8 REC NO LD A3,ECBCW,A8 LDK A1,/8 INCORRECT LENGTH LD A4,ECBRL,A8 RF(NP) TIODME ERROR RETURN IF RL <= 0 * * EA MUST NOT BE SET FOR OTHER TASK * LDR A1,A6 FDB ADDR CF A14,EATEST LDR A4,A4 RTN INF RF(N) TIODPE EA OTHER TASK RF TIODMA EJECT IXINS EQU * INDEXED INSRERT * SEQWRITE EQU * SEQUENTIAL WRITE * * GET LRN+1 INTO FDB AND STORE ADDR IN ECBCW * * * CALCULATE NUMBER DOF SPARE RECORDS * LDR A5,A6 SAVE FDB ADDR LDK A1,0 LC A1,FDBMRN,A6 LAST REC NR LD A2,FDBMRN+1,A6 LDK A6,0 LC A6,FDBLRN,A5 LD A7,FDBLRN+1,A5 LRN CF A14,DSUMOD SUBTRACT SUK A2,1 LDR A1,A1 RF(Z) SEQ005 NOT MANY LDKL A2,/7FFF SEQ005 ST A2,ECBEL,A8 NR OF SPARE LDR A6,A5 FDB ADDRESS LDK A1,0 LC A1,FDBLRN,A6 LD A2,FDBLRN+1,A6 LRN IFT INDXAC=1 RF IXR020 STORE LOG REC NO EJECT IXRDNX EQU * INDEXED EREAD NEXT * * GET CRN * LD A1,FDBADF,A6 FDB ADDR CF A14,CRNGET GET CRN BUFFER LDR A4,A2 BUFFADR LDK A1,0 LDK A2,0 * * CHECK THAT FILE CODE IS OK * LDR* A5,A8 FILE CODE CC A5,CRNCIF,A4 RF(NE) IXR020 OTHER INDEX FILE IS CURRENT LC A1,CRNCIF+1,A4 LD A2,CRNCIF+2,A4 LOG REC NO IXR020 EQU * XIF ADK A2,1 RF(O) IXR030 OVERFLOW RF IXR040 IXR030 ANKL A2,/7FFF REMOVE OVERFLOW BIT ADK A1,1 ADK CARRY IXR040 EQU * SC A1,ECBCW+3,A8 REC NO ST A2,ECBCW,A8 RF TIOD25 DO NOT CHECK EOF CONDITION EJECT * IXREWR EQU * INDEXED REWRITE * IXDEL EQU * INDEXED DELETE * RANWRITE EQU * RANDOM WRITE * RANWRD EQU * DELAYED RANDOM WRITE * RANDLD EQU * DELAYED RANDOM DELETE * RANDEL EQU * RANDOM DELETE * * NO SPECIAL PROCESSING * EJECT * ************************* * DMTASK ACTIVATION * ************************* * TIODMA EQU * * * SET EOF IF CRN > LRN * LDK A1,0 LC A1,ECBCW+3,A8 REC NO LD A2,ECBCW,A8 DITTO CC A1,FDBLRN,A6 MOST SIGN PART RF(L) TIOD25 CRN<LRN RF(G) TIOD23 CRN>LRN CW A2,FDBLRN+1,A6 2 PART RF(NG) TIOD25 CRN <= LRN TIOD23 EQU * LDKL A3,/1000 END OF FILE ORS A3,ECBRC,A8 ANK A7,/3F SUKL A7,SQR SEQ READ RF(NE) TIOD25 NOT SR LDR A1,A3 RF TIODME TIOD25 EQU * CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR LDR A1,A1 RETURN INF RF(NZ) TIODME EJECT * * ACTIVATE DMTASK WITH FDB ADDRESS IN A1 * TIOD68 EQU * ENB ENB INH LDR A1,A6 FDB ADDRESS LDK A7,0 LC A7,EXTDMI,A4 TID FOR DMTASK ADKL A7,'D0' CF A15,FNDTID A2:=TTAB ADDR LDR A5,A2 RF(NZ) TIOD70 TTAB FOUND HLT DMTASK MISSING IN TCTAB TIOD70 LDKL A2,DMTASK DISPATCH ADDRESS LDK A3,0 CF A15,ACTOT ACTIVATE DMTASK * * EXIT TO TDISP * ABL TDISP * EJECT * ************** * TIODME * ************** * * TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER * TIODPE EQU * LDKL A1,/2000 PROTECT ERROR TIODME EQU * * A1 = ERROR CODE * A6 = FDB ADDRESS ABL DISEND CALL TENDIO GOTO DISPATCHER * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT TIODM REL 8.2 78-09-15 870105040820«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0068 Head {h00=0x0028, h01=0x0050, text=» ORDER SET LRN IMPLEMENTED + EA SR«, t00=0x0000, t01=0x0040}
0x0068…0084 Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-21 «, t00=0x0000, t01=0x006c}
0x0084…008e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00ca Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0092}
0x00ca…00d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ce}
0x00d4…00fc Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00d8}
0x00fc…0106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…013a Head {h00=0x0030, h01=0x0050, text=»* TIODM = DATA MANAGEMENT ACTIVATION PART«, t00=0x0000, t01=0x010a}
0x013a…0144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013e}
0x0144…014e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0148}
0x014e…0158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0152}
0x0158…0162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015c}
0x0162…016c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0166}
0x016c…0176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0170}
0x0176…01b2 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x017a}
0x01b2…01bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0026}
0x01bc…0202 Head {h00=0x0042, h01=0x0050, text=»* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO«, t00=0x0001, t01=0x0030}
0x0202…0234 Head {h00=0x002e, h01=0x0050, text=»* AND THE DWTADR IN FDB FOR CURRENT FILE«, t00=0x0001, t01=0x0076}
0x0234…023e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a8}
0x023e…028a Head {h00=0x0048, h01=0x0050, text=»* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR «, t00=0x0001, t01=0x00b2}
0x028a…02b2 Head {h00=0x0024, h01=0x0050, text=»* FROM A DISC MUST BE ACCESSED«, t00=0x0001, t01=0x00fe}
0x02b2…02bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0126}
0x02bc…02fc Head {h00=0x003c, h01=0x0050, text=»* ENTRY TIODM AND TIODM HOLDS THE START ADDRESS«, t00=0x0001, t01=0x0130}
0x02fc…0306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0170}
0x0306…0310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017a}
0x0310…0334 Head {h00=0x0020, h01=0x0050, text=»* INPUT A6 = FDB ADDRESS«, t00=0x0001, t01=0x0184}
0x0334…0352 Head {h00=0x001a, h01=0x0050, text=»* A7 = ORDER«, t00=0x0002, t01=0x0018}
0x0352…0376 Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0002, t01=0x0036}
0x0376…0380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005a}
0x0380…03a4 Head {h00=0x0020, h01=0x0050, text=»* USED REGISTERS A1 - A10 «, t00=0x0002, t01=0x0064}
0x03a4…03ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0088}
0x03ae…03f6 Head {h00=0x0044, h01=0x0050, text=»* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1«, t00=0x0002, t01=0x0092}
0x03f6…0418 Head {h00=0x001e, h01=0x0050, text=»* AS THE ONLY PARAMETER «, t00=0x0002, t01=0x00da}
0x0418…0422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fc}
0x0422…045a Head {h00=0x0034, h01=0x0050, text=»* THE FOLLOWING WORDS WILL BE SET IN THE FDB: «, t00=0x0002, t01=0x0106}
0x045a…047c Head {h00=0x001e, h01=0x0050, text=»* FDBSNR SECTOR NUMBER«, t00=0x0002, t01=0x013e}
0x047c…04a8 Head {h00=0x0028, h01=0x0050, text=»* FDBRRO RELATIVE RECORD OFFSET «, t00=0x0002, t01=0x0160}
0x04a8…04da Head {h00=0x002e, h01=0x0050, text=»* FDBTNR TASK NUMBER FOR CALLING TASK «, t00=0x0002, t01=0x018c}
0x04da…050c Head {h00=0x002e, h01=0x0050, text=»* FDBCEX CURRENT EXTENT BLOCK POINTER «, t00=0x0003, t01=0x002e}
0x050c…0516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0060}
0x0516…0520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006a}
0x0520…0568 Head {h00=0x0044, h01=0x0050, text=»* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: «, t00=0x0003, t01=0x0074}
0x0568…058c Head {h00=0x0020, h01=0x0050, text=»* LDKL A1,/<RETURN CODE>«, t00=0x0003, t01=0x00bc}
0x058c…05a6 Head {h00=0x0016, h01=0x0050, text=»* ABL DISEND «, t00=0x0003, t01=0x00e0}
0x05a6…05b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05b0…05ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0104}
0x05ba…05c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x010e}
0x05c8…05d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011c}
0x05d2…05e8 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0003, t01=0x0126}
0x05e8…05fe Head {h00=0x0012, h01=0x0050, text=»* ENTRIES *«, t00=0x0003, t01=0x013c}
0x05fe…0614 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0003, t01=0x0152}
0x0614…061e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0168}
0x061e…0648 Head {h00=0x0026, h01=0x0050, text=» ENTRY TIODM REFERENCED IN DWTADR «, t00=0x0003, t01=0x0172}
0x0648…065e Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBLNK «, t00=0x0004, t01=0x000c}
0x065e…0674 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBECB «, t00=0x0004, t01=0x0022}
0x0674…068a Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBSNR «, t00=0x0004, t01=0x0038}
0x068a…06a0 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBRRO «, t00=0x0004, t01=0x004e}
0x06a0…06b6 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBRLE «, t00=0x0004, t01=0x0064}
0x06b6…06cc Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBBLF «, t00=0x0004, t01=0x007a}
0x06cc…06e2 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBTNR «, t00=0x0004, t01=0x0090}
0x06e2…06f8 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBVTO «, t00=0x0004, t01=0x00a6}
0x06f8…070e Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBCEX «, t00=0x0004, t01=0x00bc}
0x070e…0724 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBEXT «, t00=0x0004, t01=0x00d2}
0x0724…073a Head {h00=0x0012, h01=0x0050, text=» ENTRY EXTDMI «, t00=0x0004, t01=0x00e8}
0x073a…074e Head {h00=0x0010, h01=0x0050, text=» ENTRY EXTFC«, t00=0x0004, t01=0x00fe}
0x074e…0764 Head {h00=0x0012, h01=0x0050, text=» ENTRY EXTLEN «, t00=0x0004, t01=0x0112}
0x0764…077a Head {h00=0x0012, h01=0x0050, text=» ENTRY EXTBAS «, t00=0x0004, t01=0x0128}
0x077a…0790 Head {h00=0x0012, h01=0x0050, text=» ENTRY EXTELE «, t00=0x0004, t01=0x013e}
0x0790…07a6 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBLRN «, t00=0x0004, t01=0x0154}
0x07a6…07de Head {h00=0x0034, h01=0x0050, text=» ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF «, t00=0x0004, t01=0x016a}
0x07de…0808 Head {h00=0x0026, h01=0x0050, text=» ENTRY FDBAI1,CRNTID,CRNCDF,CRNCIF«, t00=0x0005, t01=0x0012}
0x0808…082c Head {h00=0x0020, h01=0x0050, text=» ENTRY FDBMRN,FDBDBR,FDBMRO «, t00=0x0005, t01=0x003c}
0x082c…0840 Head {h00=0x0010, h01=0x0050, text=» ENTRY ECBFC«, t00=0x0005, t01=0x0060}
0x0840…085c Head {h00=0x0018, h01=0x0050, text=» ENTRY TCFILE,COFILE«, t00=0x0005, t01=0x0074}
0x085c…086a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0090}
0x086a…0874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x009e}
0x0874…088e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0005, t01=0x00a8}
0x088e…08a8 Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x00c2}
0x08a8…08c2 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0005, t01=0x00dc}
0x08c2…08cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f6}
0x08cc…08d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0100}
0x08d6…08ea Head {h00=0x0010, h01=0x0050, text=» EXTRN TCTAB«, t00=0x0005, t01=0x010a}
0x08ea…08fe Head {h00=0x0010, h01=0x0050, text=» EXTRN TDISP«, t00=0x0005, t01=0x011e}
0x08fe…0914 Head {h00=0x0012, h01=0x0050, text=» EXTRN DSUMOD «, t00=0x0005, t01=0x0132}
0x0914…092a Head {h00=0x0012, h01=0x0050, text=» EXTRN FNDTID «, t00=0x0005, t01=0x0148}
0x092a…093e Head {h00=0x0010, h01=0x0050, text=» EXTRN ACTOT«, t00=0x0005, t01=0x015e}
0x093e…0954 Head {h00=0x0012, h01=0x0050, text=» EXTRN DISEND «, t00=0x0005, t01=0x0172}
0x0954…096a Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECB «, t00=0x0005, t01=0x0188}
0x096a…097e Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTOR«, t00=0x0006, t01=0x000e}
0x097e…0994 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTTDM «, t00=0x0006, t01=0x0022}
0x0994…09ba Head {h00=0x0022, h01=0x0050, text=» EXTRN DMTGCA GET CRN ADDRESS «, t00=0x0006, t01=0x0038}
0x09ba…09ea Head {h00=0x002c, h01=0x0050, text=» EXTRN DMTGEA GET EA WORD ADDR AND MASK «, t00=0x0006, t01=0x005e}
0x09ea…0a00 Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTASK «, t00=0x0006, t01=0x008e}
0x0a00…0a16 Head {h00=0x0012, h01=0x0050, text=» EXTRN CALSNO «, t00=0x0006, t01=0x00a4}
0x0a16…0a2a Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBBA«, t00=0x0006, t01=0x00ba}
0x0a2a…0a3e Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRL«, t00=0x0006, t01=0x00ce}
0x0a3e…0a52 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBEL«, t00=0x0006, t01=0x00e2}
0x0a52…0a66 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRC«, t00=0x0006, t01=0x00f6}
0x0a66…0a7a Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBCW«, t00=0x0006, t01=0x010a}
0x0a7a…0a90 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBLEN «, t00=0x0006, t01=0x011e}
0x0a90…0ab6 Head {h00=0x0022, h01=0x0050, text=» EXTRN SQR SEQ READ ORDER CODE«, t00=0x0006, t01=0x0134}
0x0ab6…0ae0 Head {h00=0x0026, h01=0x0050, text=» EXTRN EARELB,DWTST,CRNGET,EATEST «, t00=0x0006, t01=0x015a}
0x0ae0…0aee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0184}
0x0aee…0af8 (7, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0004}
0x0af8…0b18 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x000e}
0x0b18…0b38 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x002e}
0x0b38…0b58 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x004e}
0x0b58…0b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006e}
0x0b62…0b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0078}
0x0b6c…0bb0 Head {h00=0x0040, h01=0x0050, text=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED «, t00=0x0007, t01=0x0082}
0x0bb0…0bd4 Head {h00=0x0020, h01=0x0050, text=»* BY SETTING INDXAC EQU 1 «, t00=0x0007, t01=0x00c6}
0x0bd4…0c02 Head {h00=0x002a, h01=0x0050, text=»* INDXAC EQU 0 OTHRERWISE«, t00=0x0007, t01=0x00ea}
0x0c02…0c14 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0007, t01=0x0118}
0x0c14…0c28 Head {h00=0x0010, h01=0x0050, text=»INDXAC EQU 0«, t00=0x0007, t01=0x012a}
0x0c28…0c3a Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0007, t01=0x013e}
0x0c3a…0c58 Head {h00=0x001a, h01=0x0050, text=»TCFILE EQU X:B MONCON «, t00=0x0007, t01=0x0150}
0x0c58…0c6a Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0007, t01=0x016e}
0x0c6a…0c88 Head {h00=0x001a, h01=0x0050, text=»COFILE EQU 005 MONCON «, t00=0x0007, t01=0x0180}
0x0c88…0c96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x000e}
0x0c96…0ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001c}
0x0ca0…0cc0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0026}
0x0cc0…0ce0 Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x0008, t01=0x0046}
0x0ce0…0d00 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0066}
0x0d00…0d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0086}
0x0d0a…0d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0090}
0x0d14…0d2e Head {h00=0x0016, h01=0x0050, text=» DATA 0,0 4 WORDS «, t00=0x0008, t01=0x009a}
0x0d2e…0d40 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0008, t01=0x00b4}
0x0d40…0d66 Head {h00=0x0022, h01=0x0050, text=»TIOD14 EQU *-2 TIODM A14 STACK«, t00=0x0008, t01=0x00c6}
0x0d66…0d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ec}
0x0d70…0d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d7a…0da4 Head {h00=0x0026, h01=0x0050, text=»TIODMF EQU * TIODM FUNCTION TABLE «, t00=0x0008, t01=0x0100}
0x0da4…0dbe Head {h00=0x0016, h01=0x0050, text=» DATA CLOSE CLOSE «, t00=0x0008, t01=0x012a}
0x0dbe…0de4 Head {h00=0x0022, h01=0x0050, text=» DATA REVTOC READ VTOC RECORD «, t00=0x0008, t01=0x0144}
0x0de4…0dfa Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0008, t01=0x016a}
0x0dfa…0e20 Head {h00=0x0022, h01=0x0050, text=» DATA IXRDNX INDEXED READ NEXT«, t00=0x0008, t01=0x0180}
0x0e20…0e42 Head {h00=0x001e, h01=0x0050, text=» DATA IXINS INDEXED INSERT«, t00=0x0009, t01=0x0016}
0x0e42…0e64 Head {h00=0x001e, h01=0x0050, text=» DATA IXDEL INDEXED DELETE«, t00=0x0009, t01=0x0038}
0x0e64…0e88 Head {h00=0x0020, h01=0x0050, text=» DATA IXREWR INDEXED REWRITE«, t00=0x0009, t01=0x005a}
0x0e88…0eb0 Head {h00=0x0024, h01=0x0050, text=» DATA IXRARE INDEXED RANDOM READ«, t00=0x0009, t01=0x007e}
0x0eb0…0ebc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x00a6}
0x0ebc…0ed2 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x0009, t01=0x00b2}
0x0ed2…0ee6 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x0009, t01=0x00c8}
0x0ee6…0efa Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x0009, t01=0x00dc}
0x0efa…0f0e Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x0009, t01=0x00f0}
0x0f0e…0f22 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x0009, t01=0x0104}
0x0f22…0f36 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x0009, t01=0x0118}
0x0f36…0f42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x012c}
0x0f42…0f64 Head {h00=0x001e, h01=0x0050, text=» DATA RANDEL RANDOM DELETE«, t00=0x0009, t01=0x0138}
0x0f64…0f88 Head {h00=0x0020, h01=0x0050, text=» DATA RANWRITE RANDOM WRITE «, t00=0x0009, t01=0x015a}
0x0f88…0faa Head {h00=0x001e, h01=0x0050, text=» DATA RANREAD RANDOM READ «, t00=0x0009, t01=0x017e}
0x0faa…0fd8 Head {h00=0x002a, h01=0x0050, text=» DATA RELXAC RELEASE EXCLUSIVE ACCESS «, t00=0x000a, t01=0x0010}
0x0fd8…1000 Head {h00=0x0024, h01=0x0050, text=» DATA SEQWRITE SEQUENTIAL WRITE «, t00=0x000a, t01=0x003e}
0x1000…1026 Head {h00=0x0022, h01=0x0050, text=» DATA SEQREAD SEQUENTIAL READ «, t00=0x000a, t01=0x0066}
0x1026…1048 Head {h00=0x001e, h01=0x0050, text=» DATA GETCUR GET CURRENCY «, t00=0x000a, t01=0x008c}
0x1048…105e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000a, t01=0x00ae}
0x105e…1086 Head {h00=0x0024, h01=0x0050, text=» DATA INSIXR INSERT INDEX RECORD«, t00=0x000a, t01=0x00c4}
0x1086…10ae Head {h00=0x0024, h01=0x0050, text=» DATA DELIXR DELETE INDEX RECORD«, t00=0x000a, t01=0x00ec}
0x10ae…10ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0114}
0x10ba…10d0 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x000a, t01=0x0120}
0x10d0…10e4 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x0136}
0x10e4…10f8 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x014a}
0x10f8…1104 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x015e}
0x1104…112e Head {h00=0x0026, h01=0x0050, text=» DATA GETCUX GET CURRENT INDEX REC«, t00=0x000a, t01=0x016a}
0x112e…1158 (11, 0, 400) Head {h00=0x0026, h01=0x0050, text=» DATA RANWRD DELAYED RANDOM WRITE «, t00=0x000b, t01=0x0004}
0x1158…1182 Head {h00=0x0026, h01=0x0050, text=» DATA RANDLD DELAYED RANDOM DELETE«, t00=0x000b, t01=0x002e}
0x1182…11aa Head {h00=0x0024, h01=0x0050, text=» DATA RANREB RAND READ REL BUFF «, t00=0x000b, t01=0x0058}
0x11aa…11c6 Head {h00=0x0018, h01=0x0050, text=» DATA SETLRN SET LRN«, t00=0x000b, t01=0x0080}
0x11c6…11d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009c}
0x11d0…11da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a6}
0x11da…11f8 Head {h00=0x001a, h01=0x0050, text=»TIODMO EQU * DM ORDERS«, t00=0x000b, t01=0x00b0}
0x11f8…1220 Head {h00=0x0024, h01=0x0050, text=» DATA /221E CLOSE,IND READ NEXT «, t00=0x000b, t01=0x00ce}
0x1220…124a Head {h00=0x0026, h01=0x0050, text=» DATA /1D1C IND INSERT,IND DELETE «, t00=0x000b, t01=0x00f6}
0x124a…127c Head {h00=0x002e, h01=0x0050, text=» DATA /1B1A INDEXED REWRITE,IND RAND READ «, t00=0x000b, t01=0x0120}
0x127c…12a4 Head {h00=0x0024, h01=0x0050, text=» DATA /0C0B RAND DEL, RAND WRITE«, t00=0x000b, t01=0x0152}
0x12a4…12d0 Head {h00=0x0028, h01=0x0050, text=» DATA /0A09 RAND READ, REL EXCL ACC «, t00=0x000b, t01=0x017a}
0x12d0…12fa Head {h00=0x0026, h01=0x0050, text=» DATA /0807 SPEC. WR. , SPEC. WR. «, t00=0x000c, t01=0x0016}
0x12fa…1324 Head {h00=0x0026, h01=0x0050, text=» DATA /0605 SEQ WR. , BASIC WRITE «, t00=0x000c, t01=0x0040}
0x1324…134c Head {h00=0x0024, h01=0x0050, text=» DATA /0302 READ VTOC, SEQ READ «, t00=0x000c, t01=0x006a}
0x134c…1378 Head {h00=0x0028, h01=0x0050, text=» DATA /0123 BASIC READ,GET CURRENCY «, t00=0x000c, t01=0x0092}
0x1378…13a6 Head {h00=0x002a, h01=0x0050, text=» DATA /1F20 INS INDEXREC,DEL INDEXREC «, t00=0x000c, t01=0x00be}
0x13a6…13d8 Head {h00=0x002e, h01=0x0050, text=» DATA /240D GET CURR INDEX,DELAYED RAND WR«, t00=0x000c, t01=0x00ec}
0x13d8…140c Head {h00=0x0030, h01=0x0050, text=» DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF «, t00=0x000c, t01=0x011e}
0x140c…1428 Head {h00=0x0018, h01=0x0050, text=» DATA /2500 SET LRN «, t00=0x000c, t01=0x0152}
0x1428…1432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016e}
0x1432…1458 Head {h00=0x0022, h01=0x0050, text=»TIODMI EQU * ORDER INDEX TABLE«, t00=0x000c, t01=0x0178}
0x1458…146c Head {h00=0x0010, h01=0x0050, text=» DATA /0004 «, t00=0x000d, t01=0x000e}
0x146c…1480 Head {h00=0x0010, h01=0x0050, text=» DATA /0608 «, t00=0x000d, t01=0x0022}
0x1480…1494 Head {h00=0x0010, h01=0x0050, text=» DATA /0A0C «, t00=0x000d, t01=0x0036}
0x1494…14a8 Head {h00=0x0010, h01=0x0050, text=» DATA /0E10 «, t00=0x000d, t01=0x004a}
0x14a8…14bc Head {h00=0x0010, h01=0x0050, text=» DATA /1214 «, t00=0x000d, t01=0x005e}
0x14bc…14d0 Head {h00=0x0010, h01=0x0050, text=» DATA /1616 «, t00=0x000d, t01=0x0072}
0x14d0…14e4 Head {h00=0x0010, h01=0x0050, text=» DATA /1616 «, t00=0x000d, t01=0x0086}
0x14e4…14f8 Head {h00=0x0010, h01=0x0050, text=» DATA /0218 «, t00=0x000d, t01=0x009a}
0x14f8…150c Head {h00=0x0010, h01=0x0050, text=» DATA /181A «, t00=0x000d, t01=0x00ae}
0x150c…1520 Head {h00=0x0010, h01=0x0050, text=» DATA /1C1E «, t00=0x000d, t01=0x00c2}
0x1520…1534 Head {h00=0x0010, h01=0x0050, text=» DATA /2022 «, t00=0x000d, t01=0x00d6}
0x1534…1548 Head {h00=0x0010, h01=0x0050, text=» DATA /2426 «, t00=0x000d, t01=0x00ea}
0x1548…1564 Head {h00=0x0018, h01=0x0050, text=» DATA /281A SET LRN «, t00=0x000d, t01=0x00fe}
0x1564…156e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011a}
0x156e…157c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0124}
0x157c…15a4 Head {h00=0x0024, h01=0x0050, text=»NOOFOR EQU 25 NO OF ORDER CODES «, t00=0x000d, t01=0x0132}
0x15a4…15ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015a}
0x15ae…15c2 Head {h00=0x0010, h01=0x0050, text=»ECBFC EQU 1 «, t00=0x000d, t01=0x0164}
0x15c2…15cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0178}
0x15cc…15ee Head {h00=0x001e, h01=0x0050, text=»* FDB OFFSET DEFINITIONS«, t00=0x000d, t01=0x0182}
0x15ee…15f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0014}
0x15f8…161e Head {h00=0x0022, h01=0x0050, text=»FDBLNK EQU 0 LINK TO NEXT FDB «, t00=0x000e, t01=0x001e}
0x161e…163e Head {h00=0x001c, h01=0x0050, text=»FDBECB EQU 18 ECB START «, t00=0x000e, t01=0x0044}
0x163e…1662 Head {h00=0x0020, h01=0x0050, text=»FDBSNR EQU 32 SECTOR NUMBER «, t00=0x000e, t01=0x0064}
0x1662…168e Head {h00=0x0028, h01=0x0050, text=»FDBRRO EQU 34 RELATIVE RECORD OFFSET«, t00=0x000e, t01=0x0088}
0x168e…16b2 Head {h00=0x0020, h01=0x0050, text=»FDBRLE EQU 36 RECORD LENGTH «, t00=0x000e, t01=0x00b4}
0x16b2…16d8 Head {h00=0x0022, h01=0x0050, text=»FDBBLF EQU 38 BLOCKING FACTOR «, t00=0x000e, t01=0x00d8}
0x16d8…1706 Head {h00=0x002a, h01=0x0050, text=»FDBTNR EQU 39 TASK NUMBER CALLING TASK«, t00=0x000e, t01=0x00fe}
0x1706…172a Head {h00=0x0020, h01=0x0050, text=»FDBVTO EQU 40 VTOC RECORD NO«, t00=0x000e, t01=0x012c}
0x172a…175c Head {h00=0x002e, h01=0x0050, text=»FDBCEX EQU 42 CURRENT EXTENT BLOCK POINTER«, t00=0x000e, t01=0x0150}
0x175c…178a Head {h00=0x002a, h01=0x0050, text=»FDBEXT EQU 44 FIRST EXTENT BLOCK START«, t00=0x000e, t01=0x0182}
0x178a…17ac Head {h00=0x001e, h01=0x0050, text=»EXTDMI EQU 0 DMTAST IDENT «, t00=0x000f, t01=0x0020}
0x17ac…17d0 Head {h00=0x0020, h01=0x0050, text=»EXTFC EQU 1 VOLUME FILE CODE«, t00=0x000f, t01=0x0042}
0x17d0…17f2 Head {h00=0x001e, h01=0x0050, text=»EXTLEN EQU 2 EXTENT LENGTH«, t00=0x000f, t01=0x0066}
0x17f2…1812 Head {h00=0x001c, h01=0x0050, text=»EXTBAS EQU 4 EXTENT BASE«, t00=0x000f, t01=0x0088}
0x1812…1838 Head {h00=0x0022, h01=0x0050, text=»EXTELE EQU 6 EXT ENTRY LENGTH «, t00=0x000f, t01=0x00a8}
0x1838…1860 Head {h00=0x0024, h01=0x0050, text=»FDBLRN EQU 69 LAST RECORD NUMBER«, t00=0x000f, t01=0x00ce}
0x1860…1888 Head {h00=0x0024, h01=0x0050, text=»FDBNIF EQU 68 NO OF INDEX FILES «, t00=0x000f, t01=0x00f6}
0x1888…18aa Head {h00=0x001e, h01=0x0050, text=»FDBEAL EQU 72 EA LINK ROOT«, t00=0x000f, t01=0x011e}
0x18aa…18ce Head {h00=0x0020, h01=0x0050, text=»FDBCRL EQU 74 CRN LINK ROOT «, t00=0x000f, t01=0x0140}
0x18ce…18fc Head {h00=0x002a, h01=0x0050, text=»FDBKA EQU 76 KEY ADDRESS IN DATA FILE «, t00=0x000f, t01=0x0164}
0x18fc…192a (16, 0, 400) Head {h00=0x002a, h01=0x0050, text=»FDBMIA EQU 78 ADDRESS OF MASTER INDEX «, t00=0x0010, t01=0x0004}
0x192a…1958 Head {h00=0x002a, h01=0x0050, text=»FDBADF EQU 80 ADDRESS OF DATA FILE FDB«, t00=0x0010, t01=0x0032}
0x1958…1988 Head {h00=0x002c, h01=0x0050, text=»FDBAI1 EQU 82 ADDRESS OF INDEX FILE FDB «, t00=0x0010, t01=0x0060}
0x1988…19be Head {h00=0x0032, h01=0x0050, text=»FDBDBR EQU 90 DELAY,BASIC AND REL BUFFER FLAGS«, t00=0x0010, t01=0x0090}
0x19be…19e8 Head {h00=0x0026, h01=0x0050, text=»FDBMRN EQU 91 LAST REC NR IN FILE «, t00=0x0010, t01=0x00c6}
0x19e8…1a08 Head {h00=0x001c, h01=0x0050, text=»FDBMRO EQU 94 MAX FDBRRO«, t00=0x0010, t01=0x00f0}
0x1a08…1a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0110}
0x1a12…1a3c Head {h00=0x0026, h01=0x0050, text=»* CRN BUFFER OFFSET DEFINITIONS «, t00=0x0010, t01=0x011a}
0x1a3c…1a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0144}
0x1a46…1a62 Head {h00=0x0018, h01=0x0050, text=»CRNTID EQU 2 TASK ID«, t00=0x0010, t01=0x014e}
0x1a62…1a88 Head {h00=0x0022, h01=0x0050, text=»CRNCDF EQU 4 CURRENT DATA FILE«, t00=0x0010, t01=0x016a}
0x1a88…1ab0 Head {h00=0x0024, h01=0x0050, text=»CRNCIF EQU 8 CURRENT INDEX FILE «, t00=0x0010, t01=0x0190}
0x1ab0…1abe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0028}
0x1abe…1ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0036}
0x1ac8…1ade Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0011, t01=0x0040}
0x1ade…1af4 Head {h00=0x0012, h01=0x0050, text=»* TIODM * «, t00=0x0011, t01=0x0056}
0x1af4…1b0a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0011, t01=0x006c}
0x1b0a…1b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0082}
0x1b14…1b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008c}
0x1b1e…1b48 Head {h00=0x0026, h01=0x0050, text=»TIODM DATA *+2 TIODM START ADDRESS«, t00=0x0011, t01=0x0096}
0x1b48…1b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c0}
0x1b52…1b6e Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0011, t01=0x00ca}
0x1b6e…1b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e6}
0x1b78…1b90 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,TIOD14«, t00=0x0011, t01=0x00f0}
0x1b90…1b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0108}
0x1b9a…1bd4 Head {h00=0x0036, h01=0x0050, text=»* GET CALLING TASK NUMBER AND STORE IT IN FDBTNR«, t00=0x0011, t01=0x0112}
0x1bd4…1bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014c}
0x1bde…1bf0 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0011, t01=0x0156}
0x1bf0…1c0a Head {h00=0x0016, h01=0x0050, text=»TIOD05 LD A1,TCTAB«, t00=0x0011, t01=0x0168}
0x1c0a…1c1c Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0011, t01=0x0182}
0x1c1c…1c30 (18, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LD A3,2,A1 «, t00=0x0012, t01=0x0004}
0x1c30…1c48 Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTTDM,A6«, t00=0x0012, t01=0x0018}
0x1c48…1c68 Head {h00=0x001c, h01=0x0050, text=» RF(E) TIOD10 THIS TASK «, t00=0x0012, t01=0x0030}
0x1c68…1c7c Head {h00=0x0010, h01=0x0050, text=» ADK A2,2 NO«, t00=0x0012, t01=0x0050}
0x1c7c…1c98 Head {h00=0x0018, h01=0x0050, text=» RB TIOD05 TRY NEXT «, t00=0x0012, t01=0x0064}
0x1c98…1cac Head {h00=0x0010, h01=0x0050, text=»TIOD10 EQU *«, t00=0x0012, t01=0x0080}
0x1cac…1ccc Head {h00=0x001c, h01=0x0050, text=» LD A1,2,A3 TASK STATUS «, t00=0x0012, t01=0x0094}
0x1ccc…1cf0 Head {h00=0x0020, h01=0x0050, text=» RF(N) TIO13 DMTASK CALLING «, t00=0x0012, t01=0x00b4}
0x1cf0…1cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d8}
0x1cfa…1d1e Head {h00=0x0020, h01=0x0050, text=»* SET TASK ID FOR ALL FDBS«, t00=0x0012, t01=0x00e2}
0x1d1e…1d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0106}
0x1d28…1d44 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0012, t01=0x0110}
0x1d44…1d5c Head {h00=0x0014, h01=0x0050, text=» ADKL A1,FDBADF «, t00=0x0012, t01=0x012c}
0x1d5c…1d80 Head {h00=0x0020, h01=0x0050, text=» LDK A3,10 MAX NO OF FDB * 2«, t00=0x0012, t01=0x0144}
0x1d80…1da4 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/4000 REQ BUSY BIT «, t00=0x0012, t01=0x0168}
0x1da4…1db8 Head {h00=0x0010, h01=0x0050, text=»TIO11 EQU * «, t00=0x0012, t01=0x018c}
0x1db8…1dca Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0013, t01=0x0010}
0x1dca…1dec Head {h00=0x001e, h01=0x0050, text=» RF(N) TIO13 ALL FDB READY«, t00=0x0013, t01=0x0022}
0x1dec…1e08 Head {h00=0x0018, h01=0x0050, text=» LDR* A5,A1 FDB ADDR«, t00=0x0013, t01=0x0044}
0x1e08…1e24 Head {h00=0x0018, h01=0x0050, text=» RF(E) TIO12 NO FDB «, t00=0x0013, t01=0x0060}
0x1e24…1e44 Head {h00=0x001c, h01=0x0050, text=» SC A2,FDBTNR,A5 TASK ID«, t00=0x0013, t01=0x007c}
0x1e44…1e6a Head {h00=0x0022, h01=0x0050, text=» ORS A4,DWTST,A5 REQ BUSY BIT «, t00=0x0013, t01=0x009c}
0x1e6a…1e7e Head {h00=0x0010, h01=0x0050, text=»TIO12 EQU * «, t00=0x0013, t01=0x00c2}
0x1e7e…1e9e Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 NEXT FDB ADDR «, t00=0x0013, t01=0x00d6}
0x1e9e…1eb0 Head {h00=0x000e, h01=0x0050, text=» RB TIO11 «, t00=0x0013, t01=0x00f6}
0x1eb0…1ec4 Head {h00=0x0010, h01=0x0050, text=»TIO13 EQU * «, t00=0x0013, t01=0x0108}
0x1ec4…1ed6 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0013, t01=0x011c}
0x1ed6…1ee2 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0013, t01=0x012e}
0x1ee2…1ef4 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0013, t01=0x013a}
0x1ef4…1efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014c}
0x1efe…1f1c Head {h00=0x001a, h01=0x0050, text=»* CHECK ORDER IN A7 «, t00=0x0013, t01=0x0156}
0x1f1c…1f4c Head {h00=0x002c, h01=0x0050, text=»* PUT ORDER INDEX IN DWTOR RIGHT BYTE «, t00=0x0013, t01=0x0174}
0x1f4c…1f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0014}
0x1f56…1f7a Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 REQUEST ERROR«, t00=0x0014, t01=0x001e}
0x1f7a…1fa4 Head {h00=0x0026, h01=0x0050, text=» LDK A2,NOOFOR-1 NO OF ORDERS - 1 «, t00=0x0014, t01=0x0042}
0x1fa4…1fda Head {h00=0x0032, h01=0x0050, text=»TIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO «, t00=0x0014, t01=0x006c}
0x1fda…1ff6 Head {h00=0x0018, h01=0x0050, text=» RF(E) TIOD20 MATCH «, t00=0x0014, t01=0x00a2}
0x1ff6…2008 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0014, t01=0x00be}
0x2008…2024 Head {h00=0x0018, h01=0x0050, text=» RB(NN) TIOD15 >= 0 «, t00=0x0014, t01=0x00d0}
0x2024…2044 Head {h00=0x001c, h01=0x0050, text=» ABL TIODME ERROR RETURN«, t00=0x0014, t01=0x00ec}
0x2044…2058 Head {h00=0x0010, h01=0x0050, text=»TIOD20 EQU *«, t00=0x0014, t01=0x010c}
0x2058…2070 Head {h00=0x0014, h01=0x0050, text=» LC A2,TIODMI,A2«, t00=0x0014, t01=0x0120}
0x2070…209a Head {h00=0x0026, h01=0x0050, text=» SC A2,DWTOR+1,A6 SAVE ORDER INDEX«, t00=0x0014, t01=0x0138}
0x209a…20c6 Head {h00=0x0028, h01=0x0050, text=» ABI TIODMF,A2 BRANCH TO DM FUNCTION«, t00=0x0014, t01=0x0162}
0x20c6…20d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x018e}
0x20d4…20de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000c}
0x20de…2106 Head {h00=0x0024, h01=0x0050, text=»DELIXR EQU * DELETE INDEX RECORD«, t00=0x0015, t01=0x0016}
0x2106…2110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x003e}
0x2110…2138 Head {h00=0x0024, h01=0x0050, text=»INSIXR EQU * INSERT INDEX RECORD«, t00=0x0015, t01=0x0048}
0x2138…2142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x2142…216a Head {h00=0x0024, h01=0x0050, text=»IXRARE EQU * INDEXED RANDOM READ«, t00=0x0015, t01=0x007a}
0x216a…217e Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-1 «, t00=0x0015, t01=0x00a2}
0x217e…2190 Head {h00=0x000e, h01=0x0050, text=» RF TIOC10«, t00=0x0015, t01=0x00b6}
0x2190…219a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c8}
0x219a…21c0 Head {h00=0x0022, h01=0x0050, text=»REVTOC EQU * READ VTOC RECORD «, t00=0x0015, t01=0x00d2}
0x21c0…21ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f8}
0x21ca…21ea Head {h00=0x001c, h01=0x0050, text=»CLOSE EQU * CLOSE A FILE«, t00=0x0015, t01=0x0102}
0x21ea…21fc Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0015, t01=0x0122}
0x21fc…2210 Head {h00=0x0010, h01=0x0050, text=»TIOC10 EQU *«, t00=0x0015, t01=0x0134}
0x2210…2238 Head {h00=0x0024, h01=0x0050, text=» ST A4,FDBRRO,A6 MARK ORDER TYPE«, t00=0x0015, t01=0x0148}
0x2238…224a Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0015, t01=0x0170}
0x224a…227a Head {h00=0x002c, h01=0x0050, text=» ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE «, t00=0x0015, t01=0x0182}
0x227a…2284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0022}
0x2284…22b0 Head {h00=0x0028, h01=0x0050, text=»* LET FDBCEX POINT TO FIRST EXTENT«, t00=0x0016, t01=0x002c}
0x22b0…22ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0058}
0x22ba…22cc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x0016, t01=0x0062}
0x22cc…22e4 Head {h00=0x0014, h01=0x0050, text=» ADKL A4,FDBEXT «, t00=0x0016, t01=0x0074}
0x22e4…22fc Head {h00=0x0014, h01=0x0050, text=» ST A4,FDBCEX,A6«, t00=0x0016, t01=0x008c}
0x22fc…2320 Head {h00=0x0020, h01=0x0050, text=» ABL TIOD68 ACTIVATE DMTASK «, t00=0x0016, t01=0x00a4}
0x2320…232e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00c8}
0x232e…2338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d6}
0x2338…2366 Head {h00=0x002a, h01=0x0050, text=»RELXAC EQU * RELEASE EXCLUSIVE ACCESS «, t00=0x0016, t01=0x00e0}
0x2366…2382 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0016, t01=0x010e}
0x2382…23b6 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK «, t00=0x0016, t01=0x012a}
0x23b6…23cc Head {h00=0x0012, h01=0x0050, text=» CF A14,EARELB«, t00=0x0016, t01=0x015e}
0x23cc…23e0 Head {h00=0x0010, h01=0x0050, text=»REL090 EQU *«, t00=0x0016, t01=0x0174}
0x23e0…2400 Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 CORRECT RETURN«, t00=0x0016, t01=0x0188}
0x2400…2414 Head {h00=0x0010, h01=0x0050, text=» ABL TIODME «, t00=0x0017, t01=0x0018}
0x2414…2422 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x002c}
0x2422…244e Head {h00=0x0028, h01=0x0050, text=»SETLRN EQU * SET LAST RECORD NUMBER «, t00=0x0017, t01=0x003a}
0x244e…2468 Head {h00=0x0016, h01=0x0050, text=» LC A1,ECBCW+3,A8 «, t00=0x0017, t01=0x0066}
0x2468…2480 Head {h00=0x0014, h01=0x0050, text=» SC A1,FDBLRN,A6«, t00=0x0017, t01=0x0080}
0x2480…2498 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A8 «, t00=0x0017, t01=0x0098}
0x2498…24b2 Head {h00=0x0016, h01=0x0050, text=» ST A1,FDBLRN+1,A6«, t00=0x0017, t01=0x00b0}
0x24b2…24c4 Head {h00=0x000e, h01=0x0050, text=» RB REL090«, t00=0x0017, t01=0x00ca}
0x24c4…24d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00dc}
0x24d2…2502 Head {h00=0x002c, h01=0x0050, text=»GETCUR LDK A7,CRNCDF+1 GET CURR DATA REC«, t00=0x0017, t01=0x00ea}
0x2502…2514 Head {h00=0x000e, h01=0x0050, text=» RF GET010«, t00=0x0017, t01=0x011a}
0x2514…2546 Head {h00=0x002e, h01=0x0050, text=»GETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC «, t00=0x0017, t01=0x012c}
0x2546…2568 Head {h00=0x001e, h01=0x0050, text=»GET010 LDR A1,A6 FDB ADDR «, t00=0x0017, t01=0x015e}
0x2568…258e Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x0017, t01=0x0180}
0x258e…25b2 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A2 ADDR CURR REC NO «, t00=0x0018, t01=0x0016}
0x25b2…25c4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0018, t01=0x003a}
0x25c4…25e2 Head {h00=0x001a, h01=0x0050, text=» LC A3,-1,A7 FILE CODE«, t00=0x0018, t01=0x004c}
0x25e2…25fa Head {h00=0x0014, h01=0x0050, text=» CC A3,ECBFC,A8 «, t00=0x0018, t01=0x006a}
0x25fa…261e Head {h00=0x0020, h01=0x0050, text=» RF(E) GET020 SAME FILE CODE«, t00=0x0018, t01=0x0082}
0x261e…2638 Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+3,A8 «, t00=0x0018, t01=0x00a6}
0x2638…264a Head {h00=0x000e, h01=0x0050, text=» RF GET030«, t00=0x0018, t01=0x00c0}
0x264a…265e Head {h00=0x0010, h01=0x0050, text=»GET020 EQU *«, t00=0x0018, t01=0x00d2}
0x265e…2670 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A7«, t00=0x0018, t01=0x00e6}
0x2670…2690 Head {h00=0x001c, h01=0x0050, text=» SC A2,ECBCW+3,A8 REC NO«, t00=0x0018, t01=0x00f8}
0x2690…26a4 Head {h00=0x0010, h01=0x0050, text=» LD A2,1,A7 «, t00=0x0018, t01=0x0118}
0x26a4…26b8 Head {h00=0x0010, h01=0x0050, text=»GET030 EQU *«, t00=0x0018, t01=0x012c}
0x26b8…26d0 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0018, t01=0x0140}
0x26d0…26e2 Head {h00=0x000e, h01=0x0050, text=» RB REL090«, t00=0x0018, t01=0x0158}
0x26e2…26f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x016a}
0x26f0…2716 Head {h00=0x0022, h01=0x0050, text=»SEQREAD EQU * SEQUENTIAL READ «, t00=0x0018, t01=0x0178}
0x2716…2720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000e}
0x2720…2748 Head {h00=0x0024, h01=0x0050, text=»* FIND CRN+1 AND TEST IF > LRN«, t00=0x0019, t01=0x0018}
0x2748…2752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0040}
0x2752…276e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0019, t01=0x004a}
0x276e…2794 Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN-BUFFER «, t00=0x0019, t01=0x0066}
0x2794…27a6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0019, t01=0x008c}
0x27a6…27c0 Head {h00=0x0016, h01=0x0050, text=» LC A1,CRNCDF+1,A2«, t00=0x0019, t01=0x009e}
0x27c0…27ea Head {h00=0x0026, h01=0x0050, text=» LD A2,CRNCDF+2,A2 CURR LOG REC NO«, t00=0x0019, t01=0x00b8}
0x27ea…2802 Head {h00=0x0014, h01=0x0050, text=» ADK A2,1 CRN+1 «, t00=0x0019, t01=0x00e2}
0x2802…2820 Head {h00=0x001a, h01=0x0050, text=» RF(O) SEQR10 OVERFLOW«, t00=0x0019, t01=0x00fa}
0x2820…2832 Head {h00=0x000e, h01=0x0050, text=» RF SEQR20«, t00=0x0019, t01=0x0118}
0x2832…2846 Head {h00=0x0010, h01=0x0050, text=»SEQR10 EQU *«, t00=0x0019, t01=0x012a}
0x2846…286c Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/7FFF REMOVE OVERFLOW«, t00=0x0019, t01=0x013e}
0x286c…2888 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x0019, t01=0x0164}
0x2888…289c Head {h00=0x0010, h01=0x0050, text=»SEQR20 EQU *«, t00=0x0019, t01=0x0180}
0x289c…28bc (26, 0, 398) Head {h00=0x001c, h01=0x0050, text=» SC A1,ECBCW+3,A8 REC NO«, t00=0x001a, t01=0x0004}
0x28bc…28d4 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x001a, t01=0x0024}
0x28d4…28de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003c}
0x28de…2906 Head {h00=0x0024, h01=0x0050, text=»* CONTINUE AS FOR RANDOM READ «, t00=0x001a, t01=0x0046}
0x2906…2910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x2910…291e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0078}
0x291e…2940 Head {h00=0x001e, h01=0x0050, text=»RANREAD EQU * RANDOM READ «, t00=0x001a, t01=0x0086}
0x2940…294a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00a8}
0x294a…2972 Head {h00=0x0024, h01=0x0050, text=»RANREB EQU * RAND READ REL BUFF «, t00=0x001a, t01=0x00b2}
0x2972…297c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00da}
0x297c…299a Head {h00=0x001a, h01=0x0050, text=»* TEST IF ECBRL <= 0«, t00=0x001a, t01=0x00e4}
0x299a…29a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0102}
0x29a4…29b6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001a, t01=0x010c}
0x29b6…29d6 Head {h00=0x001c, h01=0x0050, text=» LC A2,ECBCW+3,A8 REC NO«, t00=0x001a, t01=0x011e}
0x29d6…29ee Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBCW,A8 «, t00=0x001a, t01=0x013e}
0x29ee…2a12 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/8 INCORRECT LENGTH «, t00=0x001a, t01=0x0156}
0x2a12…2a2a Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBRL,A8 «, t00=0x001a, t01=0x017a}
0x2a2a…2a58 (27, 0, 400) Head {h00=0x002a, h01=0x0050, text=» RF(NP) TIODME ERROR RETURN IF RL <= 0«, t00=0x001b, t01=0x0004}
0x2a58…2a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0032}
0x2a62…2a90 Head {h00=0x002a, h01=0x0050, text=»* EA MUST NOT BE SET FOR OTHER TASK «, t00=0x001b, t01=0x003c}
0x2a90…2a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006a}
0x2a9a…2ab6 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x001b, t01=0x0074}
0x2ab6…2acc Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x001b, t01=0x0090}
0x2acc…2ae6 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A4 RTN INF«, t00=0x001b, t01=0x00a6}
0x2ae6…2b0a Head {h00=0x0020, h01=0x0050, text=» RF(N) TIODPE EA OTHER TASK «, t00=0x001b, t01=0x00c0}
0x2b0a…2b1c Head {h00=0x000e, h01=0x0050, text=» RF TIODMA«, t00=0x001b, t01=0x00e4}
0x2b1c…2b2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00f6}
0x2b2a…2b4e Head {h00=0x0020, h01=0x0050, text=»IXINS EQU * INDEXED INSRERT «, t00=0x001b, t01=0x0104}
0x2b4e…2b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0128}
0x2b58…2b80 Head {h00=0x0024, h01=0x0050, text=»SEQWRITE EQU * SEQUENTIAL WRITE «, t00=0x001b, t01=0x0132}
0x2b80…2b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x015a}
0x2b8a…2bc0 Head {h00=0x0032, h01=0x0050, text=»* GET LRN+1 INTO FDB AND STORE ADDR IN ECBCW«, t00=0x001b, t01=0x0164}
0x2bc0…2bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000a}
0x2bca…2bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0014}
0x2bd4…2c02 Head {h00=0x002a, h01=0x0050, text=»* CALCULATE NUMBER DOF SPARE RECORDS«, t00=0x001c, t01=0x001e}
0x2c02…2c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x004c}
0x2c0c…2c2c Head {h00=0x001c, h01=0x0050, text=» LDR A5,A6 SAVE FDB ADDR«, t00=0x001c, t01=0x0056}
0x2c2c…2c3e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001c, t01=0x0076}
0x2c3e…2c62 Head {h00=0x0020, h01=0x0050, text=» LC A1,FDBMRN,A6 LAST REC NR«, t00=0x001c, t01=0x0088}
0x2c62…2c7c Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBMRN+1,A6«, t00=0x001c, t01=0x00ac}
0x2c7c…2c8e Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001c, t01=0x00c6}
0x2c8e…2ca6 Head {h00=0x0014, h01=0x0050, text=» LC A6,FDBLRN,A5«, t00=0x001c, t01=0x00d8}
0x2ca6…2cc4 Head {h00=0x001a, h01=0x0050, text=» LD A7,FDBLRN+1,A5 LRN«, t00=0x001c, t01=0x00f0}
0x2cc4…2ce4 Head {h00=0x001c, h01=0x0050, text=» CF A14,DSUMOD SUBTRACT «, t00=0x001c, t01=0x010e}
0x2ce4…2cf6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x012e}
0x2cf6…2d08 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001c, t01=0x0140}
0x2d08…2d26 Head {h00=0x001a, h01=0x0050, text=» RF(Z) SEQ005 NOT MANY«, t00=0x001c, t01=0x0152}
0x2d26…2d3c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x001c, t01=0x0170}
0x2d3c…2d66 Head {h00=0x0026, h01=0x0050, text=»SEQ005 ST A2,ECBEL,A8 NR OF SPARE «, t00=0x001c, t01=0x0186}
0x2d66…2d84 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A5 FDB ADDRESS«, t00=0x001d, t01=0x0020}
0x2d84…2d96 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001d, t01=0x003e}
0x2d96…2dae Head {h00=0x0014, h01=0x0050, text=» LC A1,FDBLRN,A6«, t00=0x001d, t01=0x0050}
0x2dae…2dcc Head {h00=0x001a, h01=0x0050, text=» LD A2,FDBLRN+1,A6 LRN«, t00=0x001d, t01=0x0068}
0x2dcc…2de2 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x001d, t01=0x0086}
0x2de2…2e06 Head {h00=0x0020, h01=0x0050, text=» RF IXR020 STORE LOG REC NO «, t00=0x001d, t01=0x009c}
0x2e06…2e14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00c0}
0x2e14…2e3c Head {h00=0x0024, h01=0x0050, text=»IXRDNX EQU * INDEXED EREAD NEXT «, t00=0x001d, t01=0x00ce}
0x2e3c…2e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f6}
0x2e46…2e5a Head {h00=0x0010, h01=0x0050, text=»* GET CRN «, t00=0x001d, t01=0x0100}
0x2e5a…2e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0114}
0x2e64…2e86 Head {h00=0x001e, h01=0x0050, text=» LD A1,FDBADF,A6 FDB ADDR «, t00=0x001d, t01=0x011e}
0x2e86…2eac Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x001d, t01=0x0140}
0x2eac…2ec6 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A2 BUFFADR«, t00=0x001d, t01=0x0166}
0x2ec6…2ed8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001d, t01=0x0180}
0x2ed8…2eea (30, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001e, t01=0x0004}
0x2eea…2ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0016}
0x2ef4…2f1a Head {h00=0x0022, h01=0x0050, text=»* CHECK THAT FILE CODE IS OK«, t00=0x001e, t01=0x0020}
0x2f1a…2f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0046}
0x2f24…2f42 Head {h00=0x001a, h01=0x0050, text=» LDR* A5,A8 FILE CODE «, t00=0x001e, t01=0x0050}
0x2f42…2f5a Head {h00=0x0014, h01=0x0050, text=» CC A5,CRNCIF,A4«, t00=0x001e, t01=0x006e}
0x2f5a…2f8c Head {h00=0x002e, h01=0x0050, text=» RF(NE) IXR020 OTHER INDEX FILE IS CURRENT«, t00=0x001e, t01=0x0086}
0x2f8c…2fa6 Head {h00=0x0016, h01=0x0050, text=» LC A1,CRNCIF+1,A4«, t00=0x001e, t01=0x00b8}
0x2fa6…2fcc Head {h00=0x0022, h01=0x0050, text=» LD A2,CRNCIF+2,A4 LOG REC NO «, t00=0x001e, t01=0x00d2}
0x2fcc…2fe0 Head {h00=0x0010, h01=0x0050, text=»IXR020 EQU *«, t00=0x001e, t01=0x00f8}
0x2fe0…2fec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x010c}
0x2fec…2ffe Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x001e, t01=0x0118}
0x2ffe…301c Head {h00=0x001a, h01=0x0050, text=» RF(O) IXR030 OVERFLOW«, t00=0x001e, t01=0x012a}
0x301c…302e Head {h00=0x000e, h01=0x0050, text=» RF IXR040«, t00=0x001e, t01=0x0148}
0x302e…305e Head {h00=0x002c, h01=0x0050, text=»IXR030 ANKL A2,/7FFF REMOVE OVERFLOW BIT«, t00=0x001e, t01=0x015a}
0x305e…307a Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADK CARRY «, t00=0x001e, t01=0x018a}
0x307a…308e Head {h00=0x0010, h01=0x0050, text=»IXR040 EQU *«, t00=0x001f, t01=0x0016}
0x308e…30ae Head {h00=0x001c, h01=0x0050, text=» SC A1,ECBCW+3,A8 REC NO«, t00=0x001f, t01=0x002a}
0x30ae…30c6 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x001f, t01=0x004a}
0x30c6…30f4 Head {h00=0x002a, h01=0x0050, text=» RF TIOD25 DO NOT CHECK EOF CONDITION «, t00=0x001f, t01=0x0062}
0x30f4…3102 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0090}
0x3102…310c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x009e}
0x310c…3130 Head {h00=0x0020, h01=0x0050, text=»IXREWR EQU * INDEXED REWRITE«, t00=0x001f, t01=0x00a8}
0x3130…313a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00cc}
0x313a…315c Head {h00=0x001e, h01=0x0050, text=»IXDEL EQU * INDEXED DELETE«, t00=0x001f, t01=0x00d6}
0x315c…3166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f8}
0x3166…318a Head {h00=0x0020, h01=0x0050, text=»RANWRITE EQU * RANDOM WRITE «, t00=0x001f, t01=0x0102}
0x318a…3194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0126}
0x3194…31be Head {h00=0x0026, h01=0x0050, text=»RANWRD EQU * DELAYED RANDOM WRITE «, t00=0x001f, t01=0x0130}
0x31be…31c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x015a}
0x31c8…31f2 Head {h00=0x0026, h01=0x0050, text=»RANDLD EQU * DELAYED RANDOM DELETE«, t00=0x001f, t01=0x0164}
0x31f2…31fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x018e}
0x31fc…321e Head {h00=0x001e, h01=0x0050, text=»RANDEL EQU * RANDOM DELETE«, t00=0x0020, t01=0x0008}
0x321e…3228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x002a}
0x3228…324a Head {h00=0x001e, h01=0x0050, text=»* NO SPECIAL PROCESSING «, t00=0x0020, t01=0x0034}
0x324a…3254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0056}
0x3254…3262 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0060}
0x3262…326c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x006e}
0x326c…328e Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0020, t01=0x0078}
0x328e…32b0 Head {h00=0x001e, h01=0x0050, text=»* DMTASK ACTIVATION * «, t00=0x0020, t01=0x009a}
0x32b0…32d2 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0020, t01=0x00bc}
0x32d2…32dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00de}
0x32dc…32f0 Head {h00=0x0010, h01=0x0050, text=»TIODMA EQU *«, t00=0x0020, t01=0x00e8}
0x32f0…32fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00fc}
0x32fa…331a Head {h00=0x001c, h01=0x0050, text=»* SET EOF IF CRN > LRN«, t00=0x0020, t01=0x0106}
0x331a…3324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0126}
0x3324…3336 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0020, t01=0x0130}
0x3336…3356 Head {h00=0x001c, h01=0x0050, text=» LC A1,ECBCW+3,A8 REC NO«, t00=0x0020, t01=0x0142}
0x3356…3374 Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 DITTO «, t00=0x0020, t01=0x0162}
0x3374…339c Head {h00=0x0024, h01=0x0050, text=» CC A1,FDBLRN,A6 MOST SIGN PART «, t00=0x0020, t01=0x0180}
0x339c…33ba Head {h00=0x001a, h01=0x0050, text=» RF(L) TIOD25 CRN<LRN «, t00=0x0021, t01=0x0018}
0x33ba…33d8 Head {h00=0x001a, h01=0x0050, text=» RF(G) TIOD23 CRN>LRN «, t00=0x0021, t01=0x0036}
0x33d8…33fa Head {h00=0x001e, h01=0x0050, text=» CW A2,FDBLRN+1,A6 2 PART «, t00=0x0021, t01=0x0054}
0x33fa…341c Head {h00=0x001e, h01=0x0050, text=» RF(NG) TIOD25 CRN <= LRN «, t00=0x0021, t01=0x0076}
0x341c…3430 Head {h00=0x0010, h01=0x0050, text=»TIOD23 EQU *«, t00=0x0021, t01=0x0098}
0x3430…3452 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,/1000 END OF FILE«, t00=0x0021, t01=0x00ac}
0x3452…346a Head {h00=0x0014, h01=0x0050, text=» ORS A3,ECBRC,A8«, t00=0x0021, t01=0x00ce}
0x346a…347e Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0021, t01=0x00e6}
0x347e…349c Head {h00=0x001a, h01=0x0050, text=» SUKL A7,SQR SEQ READ «, t00=0x0021, t01=0x00fa}
0x349c…34ba Head {h00=0x001a, h01=0x0050, text=» RF(NE) TIOD25 NOT SR «, t00=0x0021, t01=0x0118}
0x34ba…34cc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0021, t01=0x0136}
0x34cc…34de Head {h00=0x000e, h01=0x0050, text=» RF TIODME«, t00=0x0021, t01=0x0148}
0x34de…34f2 Head {h00=0x0010, h01=0x0050, text=»TIOD25 EQU *«, t00=0x0021, t01=0x015a}
0x34f2…352c Head {h00=0x0036, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR «, t00=0x0021, t01=0x016e}
0x352c…354a Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN INF «, t00=0x0022, t01=0x0018}
0x354a…3560 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TIODME«, t00=0x0022, t01=0x0036}
0x3560…356e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x004c}
0x356e…3578 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x005a}
0x3578…35aa Head {h00=0x002e, h01=0x0050, text=»* ACTIVATE DMTASK WITH FDB ADDRESS IN A1«, t00=0x0022, t01=0x0064}
0x35aa…35b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0096}
0x35b4…35c8 Head {h00=0x0010, h01=0x0050, text=»TIOD68 EQU *«, t00=0x0022, t01=0x00a0}
0x35c8…35d4 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0022, t01=0x00b4}
0x35d4…35e0 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0022, t01=0x00c0}
0x35e0…35ec Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0022, t01=0x00cc}
0x35ec…360a Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS«, t00=0x0022, t01=0x00d8}
0x360a…361c Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0022, t01=0x00f6}
0x361c…3644 Head {h00=0x0024, h01=0x0050, text=» LC A7,EXTDMI,A4 TID FOR DMTASK «, t00=0x0022, t01=0x0108}
0x3644…365a Head {h00=0x0012, h01=0x0050, text=» ADKL A7,'D0' «, t00=0x0022, t01=0x0130}
0x365a…367e Head {h00=0x0020, h01=0x0050, text=» CF A15,FNDTID A2:=TTAB ADDR«, t00=0x0022, t01=0x0146}
0x367e…3690 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0022, t01=0x016a}
0x3690…36b2 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) TIOD70 TTAB FOUND «, t00=0x0022, t01=0x017c}
0x36b2…36d8 Head {h00=0x0022, h01=0x0050, text=» HLT DMTASK MISSING IN TCTAB «, t00=0x0023, t01=0x000e}
0x36d8…3706 Head {h00=0x002a, h01=0x0050, text=»TIOD70 LDKL A2,DMTASK DISPATCH ADDRESS«, t00=0x0023, t01=0x0034}
0x3706…3718 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0023, t01=0x0062}
0x3718…373e Head {h00=0x0022, h01=0x0050, text=» CF A15,ACTOT ACTIVATE DMTASK «, t00=0x0023, t01=0x0074}
0x373e…3748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009a}
0x3748…3762 Head {h00=0x0016, h01=0x0050, text=»* EXIT TO TDISP «, t00=0x0023, t01=0x00a4}
0x3762…376c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00be}
0x376c…377e Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0023, t01=0x00c8}
0x377e…3788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00da}
0x3788…3796 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00e4}
0x3796…37a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f2}
0x37a0…37b6 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0023, t01=0x00fc}
0x37b6…37cc Head {h00=0x0012, h01=0x0050, text=»* TIODME *«, t00=0x0023, t01=0x0112}
0x37cc…37e2 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0023, t01=0x0128}
0x37e2…37ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x013e}
0x37ec…383a Head {h00=0x004a, h01=0x0050, text=»* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER«, t00=0x0023, t01=0x0148}
0x383a…3844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0008}
0x3844…3858 Head {h00=0x0010, h01=0x0050, text=»TIODPE EQU *«, t00=0x0024, t01=0x0012}
0x3858…387c Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/2000 PROTECT ERROR«, t00=0x0024, t01=0x0026}
0x387c…3890 Head {h00=0x0010, h01=0x0050, text=»TIODME EQU *«, t00=0x0024, t01=0x004a}
0x3890…38ac Head {h00=0x0018, h01=0x0050, text=»* A1 = ERROR CODE «, t00=0x0024, t01=0x005e}
0x38ac…38c8 Head {h00=0x0018, h01=0x0050, text=»* A6 = FDB ADDRESS«, t00=0x0024, t01=0x007a}
0x38c8…38f8 Head {h00=0x002c, h01=0x0050, text=» ABL DISEND CALL TENDIO GOTO DISPATCHER«, t00=0x0024, t01=0x0096}
0x38f8…3902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c6}
0x3902…390e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0024, t01=0x00d0}
0x390e…3912 Head {h00=0x4004, h01=0x0000}
0x3912…3916 00 24 00 dc ┆ $ ┆
0x3916…391e (37, 1, 8) 20 04 00 00 00 25 00 04 ┆ % ┆
0x391e…396e (38, 0, 400) 00 2a 00 50 5c 41 4e 4b 5c 41 33 2c 2f 32 5c 46 49 52 53 54 20 4f 52 20 53 45 43 4f 4e 44 20 54 45 52 4d 49 4e 41 4c 20 3f 20 00 5e 00 04 00 0e 00 50 5c 4c 44 52 5c 41 37 2c 41 35 00 5e 00 32 00 0e 00 50 5c 41 44 52 5c 41 37 2c 41 33 00 5e ┆ * P ANK A3,/2 FIRST OR SECOND TERMINAL ? ^ P LDR A7,A5 ^ 2 P ADR A7,A3 ^┆
0x396e…39be 00 44 00 26 00 50 5c 4c 44 5c 41 33 2c 43 57 54 52 53 54 2c 41 35 5c 4c 4f 4f 50 20 54 45 53 54 20 4d 4f 44 45 20 3f 20 00 5e 00 56 00 16 00 50 5c 41 42 4c 28 4e 29 5c 43 4c 54 31 37 30 5c 59 45 53 00 5e 00 80 00 26 00 50 43 4c 54 30 31 38 ┆ D & P LD A3,CWTRST,A5 LOOP TEST MODE ? ^ V P ABL(N) CLT170 YES ^ & PCLT018┆
0x39be…3a0e 5c 4c 44 4b 5c 41 31 2c 30 5c 52 45 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 5e 00 9a 00 28 00 50 5c 4c 44 52 5c 41 33 2c 41 32 5c 44 41 54 41 20 52 45 51 55 45 53 54 20 49 4d 4d 45 44 49 41 54 45 20 3f 20 00 5e 00 c4 00 12 00 50 ┆ LDK A1,0 RESET RETURN CODE ^ ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? ^ P┆
0x3a0e…3a5e 5c 52 46 28 4e 29 5c 43 4c 54 30 35 30 20 00 5e 00 f0 00 24 00 50 5c 41 4e 4b 4c 5c 41 33 2c 2f 37 30 30 30 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 3f 20 00 5e 01 06 00 28 00 50 5c 41 42 4c 28 4e 45 29 5c 43 4c 54 31 30 30 5c 59 45 ┆ RF(N) CLT050 ^ $ P ANKL A3,/7000 DEVICE ADDRESS ? ^ ( P ABL(NE) CLT100 YE┆
0x3a5e…3aae 53 2c 20 44 49 4e 2c 20 53 54 44 20 4f 52 20 44 52 44 00 5e 01 2e 00 0a 00 50 5c 45 4a 45 43 54 00 5e 01 5a 00 06 00 50 2a 20 00 5e 01 68 00 06 00 50 2a 20 00 5e 01 72 00 2c 00 50 2a 20 20 20 20 44 45 54 45 52 4d 49 4e 45 20 54 59 50 45 20 ┆S, DIN, STD OR DRD ^ . P EJECT ^ Z P* ^ h P* ^ r , P* DETERMINE TYPE ┆
0x3aae…3afe (39, 0, 400) 4f 46 20 43 4f 4e 54 52 4f 4c 20 43 48 41 52 41 43 54 45 52 00 5e 01 7c 00 06 00 50 2a 20 00 5f 00 1c 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 00 5f 00 26 00 2e 00 50 5c 41 4e 4b 5c 41 33 2c 2f 46 46 5c 44 45 4c 45 54 45 20 44 45 56 49 43 ┆OF CONTROL CHARACTER ^ | P* _ P LDR A3,A2 _ & . P ANK A3,/FF DELETE DEVIC┆
0x3afe…3b4e 45 20 41 4e 44 20 4c 49 4e 45 20 4e 55 4d 42 45 52 20 00 5f 00 38 00 16 00 50 5c 52 46 28 45 29 5c 43 4c 54 30 33 30 5c 4f 45 52 20 00 5f 00 6a 00 0e 00 50 5c 53 55 4b 5c 41 33 2c 37 20 00 5f 00 84 00 16 00 50 5c 52 46 28 45 29 5c 43 4c 54 ┆E AND LINE NUMBER _ 8 P RF(E) CLT030 OER _ j P SUK A3,7 _ P RF(E) CLT┆
0x3b4e…3b9e 30 35 30 5c 41 43 4b 20 00 5f 00 96 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 32 20 00 5f 00 b0 00 16 00 50 5c 41 42 4c 28 45 29 5c 43 4c 54 30 38 30 5c 4e 41 4b 00 5f 00 c2 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 32 20 00 5f 00 dc 00 1c 00 50 5c 41 ┆050 ACK _ P ADK A3,2 _ P ABL(E) CLT080 NAK _ P ADK A3,2 _ P A┆
0x3b9e…3bee 42 4c 28 45 29 5c 43 4c 54 31 30 30 5c 50 4f 57 45 52 20 4f 4e 20 00 5f 00 ee 00 16 00 50 5c 4c 44 52 5c 41 37 2c 41 37 5c 4c 4f 43 41 4c 20 3f 00 5f 01 0e 00 16 00 50 5c 52 46 28 4e 29 5c 43 4c 54 51 55 45 5c 59 45 53 20 00 5f 01 28 00 14 ┆BL(E) CLT100 POWER ON _ P LDR A7,A7 LOCAL ? _ P RF(N) CLTQUE YES _ ( ┆
0x3bee…3c3e 00 50 5c 4c 43 5c 41 34 2c 4c 52 43 41 43 4b 2c 41 37 00 5f 01 42 00 24 00 50 5c 4c 44 4b 5c 41 36 2c 2f 38 30 5c 41 42 43 2d 41 4e 53 57 45 52 20 41 4c 4c 4f 57 45 44 20 3f 00 5f 01 5a 00 0e 00 50 5c 54 4d 5c 41 36 2c 41 34 20 00 5f 01 82 ┆ P LC A4,LRCACK,A7 _ B $ P LDK A6,/80 ABC-ANSWER ALLOWED ? _ Z P TM A6,A4 _ ┆
0x3c3e…3c8e (40, 0, 400) 00 14 00 50 5c 52 46 28 45 29 5c 45 58 49 49 54 5c 4e 4f 20 00 60 00 04 00 1e 00 50 5c 58 52 4b 5c 41 34 2c 2f 38 30 5c 59 45 53 2c 20 52 45 53 45 54 20 42 49 54 00 60 00 1c 00 1e 00 50 5c 53 43 5c 41 34 2c 4c 52 43 41 43 4b 2c 41 37 5c 41 ┆ P RF(E) EXIIT NO ` P XRK A4,/80 YES, RESET BIT ` P SC A4,LRCACK,A7 A┆
0x3c8e…3cde 4e 44 20 53 54 4f 52 45 00 60 00 3e 00 22 00 50 5c 4c 44 5c 41 36 2c 4c 52 43 44 57 54 2c 41 37 5c 4c 52 43 2d 44 45 56 49 43 45 20 3f 20 00 60 00 60 00 10 00 50 5c 52 46 28 45 29 5c 45 58 49 49 54 00 60 00 86 00 10 00 50 5c 41 4e 4b 5c 41 ┆ND STORE ` > " P LD A6,LRCDWT,A7 LRC-DEVICE ? ` ` P RF(E) EXIIT ` P ANK A┆
0x3cde…3d2e 34 2c 2f 37 46 20 00 60 00 9a 00 16 00 50 5c 52 46 28 5a 29 5c 43 4c 54 30 34 36 5c 59 45 53 20 00 60 00 ae 00 2a 00 50 5c 43 4d 5c 4c 52 43 44 57 54 2c 41 37 5c 52 45 53 45 54 20 4c 52 43 2d 44 45 56 49 43 45 20 50 4f 49 4e 54 45 52 00 60 ┆4,/7F ` P RF(Z) CLT046 YES ` * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER `┆
0x3d2e…3d7e 00 c8 00 28 00 50 5c 4c 44 4b 5c 41 34 2c 31 5c 52 45 53 45 54 20 42 4c 4f 43 4b 53 45 4e 44 49 4e 47 20 52 55 4e 4e 49 4e 47 00 60 00 f6 00 16 00 50 5c 41 4e 53 5c 41 34 2c 43 57 54 42 4c 4b 2c 41 35 20 00 60 01 22 00 0e 00 50 5c 53 55 4b ┆ ( P LDK A4,1 RESET BLOCKSENDING RUNNING ` P ANS A4,CWTBLK,A5 ` " P SUK┆
0x3d7e…3dce 5c 41 33 2c 35 20 00 60 01 3c 00 26 00 50 5c 52 46 28 45 29 5c 43 4c 54 30 34 33 5c 41 42 43 2b 20 2c 20 47 4f 20 54 4f 20 44 52 49 56 45 52 20 00 60 01 4e 00 12 00 50 5c 49 46 54 5c 41 43 4b 4d 55 4c 3d 31 20 00 60 01 78 00 06 00 50 2a 20 ┆ A3,5 ` < & P RF(E) CLT043 ABC+ , GO TO DRIVER ` N P IFT ACKMUL=1 ` x P* ┆
0x3dce…3e1e (41, 0, 398) 00 60 01 8e 00 2c 00 50 5c 49 4d 5c 43 57 54 41 44 44 2b 32 2c 41 35 5c 55 50 44 41 54 45 20 45 52 52 4f 52 20 41 43 4b 55 4d 55 4c 41 54 4f 52 00 61 00 08 00 08 00 50 5c 58 49 46 00 61 00 38 00 06 00 50 2a 20 00 61 00 44 00 1a 00 50 5c 53 ┆ ` , P IM CWTADD+2,A5 UPDATE ERROR ACKUMULATOR a P XIF a 8 P* a D P S┆
0x3e1e…3e6e 55 4b 5c 41 33 2c 34 5c 56 52 43 2d 45 52 52 4f 52 20 3f 20 00 61 00 4e 00 16 00 50 5c 52 46 28 45 29 5c 43 4c 54 30 34 32 5c 59 45 53 20 00 61 00 6c 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 31 20 00 61 00 86 00 0e 00 50 5c 53 55 4b 5c 41 33 2c ┆UK A3,4 VRC-ERROR ? a N P RF(E) CLT042 YES a l P LDK A4,1 a P SUK A3,┆
0x3e6e…3ebe 32 20 00 61 00 98 00 12 00 50 5c 52 46 28 45 29 5c 43 4c 54 30 33 33 20 00 61 00 aa 00 0e 00 50 5c 41 44 4b 5c 41 33 2c 34 20 00 61 00 c0 00 12 00 50 5c 52 46 28 45 29 5c 43 4c 54 30 33 33 20 00 61 00 d2 00 0a 00 50 5c 45 4a 45 43 54 00 61 ┆2 a P RF(E) CLT033 a P ADK A3,4 a P RF(E) CLT033 a P EJECT a┆
0x3ebe…3f0e 00 e8 00 06 00 50 2a 20 00 61 00 f6 00 30 00 50 2a 20 20 20 20 52 45 53 4f 4c 56 45 20 51 55 45 55 45 20 41 4e 44 20 45 58 41 4d 49 4e 45 20 52 45 43 4f 56 45 52 59 20 42 49 54 2e 00 61 01 00 00 2e 00 50 2a 20 20 20 20 4f 4e 45 20 52 45 43 ┆ P* a 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. a . P* ONE REC┆
0x3f0e…3f5c 4f 56 45 52 59 20 41 54 54 45 4d 50 54 20 49 53 20 4d 41 44 45 20 41 4e 44 20 54 48 45 4e 00 61 01 34 00 2c 00 50 2a 20 20 20 20 52 45 54 55 52 4e 20 43 4f 44 45 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 20 49 53 20 53 45 4e 54 20 54 4f ┆OVERY ATTEMPT IS MADE AND THEN a 4 , P* RETURN CODE NOT OPERABLE IS SENT TO┆
0x3f5c…3fac (42, 0, 398) 00 61 01 66 00 18 00 50 2a 20 20 20 20 44 45 56 49 43 45 20 44 52 49 56 45 52 2e 20 00 62 00 08 00 1e 00 50 43 4c 54 30 33 30 5c 4c 44 52 5c 41 37 2c 41 37 5c 52 45 4d 4f 54 45 20 3f 20 00 62 00 24 00 14 00 50 5c 52 46 28 4e 29 5c 43 4c 54 ┆ a f P* DEVICE DRIVER. b PCLT030 LDR A7,A7 REMOTE ? b $ P RF(N) CLT┆
0x3fac…3ffc 51 55 45 5c 4e 4f 00 62 00 46 00 14 00 50 5c 4c 44 5c 41 36 2c 4c 52 43 44 57 54 2c 41 37 00 62 00 5e 00 1c 00 50 5c 53 55 52 2a 5c 41 36 2c 41 35 5c 4c 52 43 2d 44 45 56 49 43 45 20 3f 00 62 00 76 00 12 00 50 5c 52 46 28 4e 45 29 5c 43 4c ┆QUE NO b F P LD A6,LRCDWT,A7 b ^ P SUR* A6,A5 LRC-DEVICE ? b v P RF(NE) CL┆
0x3ffc…404c 54 51 55 45 00 62 00 96 00 2a 00 50 5c 43 4d 5c 4c 52 43 44 57 54 2c 41 37 5c 52 45 53 45 54 20 4c 52 43 2d 44 45 56 49 43 45 20 50 4f 49 4e 54 45 52 00 62 00 ac 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 31 20 00 62 00 da 00 30 00 50 5c 41 4e 53 ┆TQUE b * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER b P LDK A4,1 b 0 P ANS┆
0x404c…409c 5c 41 34 2c 43 57 54 42 4c 4b 2c 41 35 5c 52 45 53 45 54 20 42 4c 4f 43 4b 53 45 4e 44 49 4e 47 20 52 55 4e 4e 49 4e 47 00 62 00 ec 00 26 00 50 43 4c 54 51 55 45 5c 43 46 5c 41 31 35 2c 51 55 45 55 45 5c 52 45 53 4f 4c 56 45 20 51 55 45 55 ┆ A4,CWTBLK,A5 RESET BLOCKSENDING RUNNING b & PCLTQUE CF A15,QUEUE RESOLVE QUEU┆
0x409c…40ea 45 20 00 62 01 20 00 36 00 50 43 4c 54 30 33 31 5c 4c 43 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 47 45 54 20 4c 45 46 54 20 42 59 54 45 20 4f 46 20 53 54 41 54 55 53 20 57 4f 52 44 00 62 01 4a 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 32 ┆E b 6 PCLT031 LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD b J P LDR A3,A2┆
0x40ea…413a (43, 0, 400) 00 62 01 84 00 26 00 50 5c 41 4e 4b 5c 41 32 2c 2f 33 30 5c 45 43 48 4f 20 41 4e 44 20 52 45 43 4f 56 45 52 59 20 42 49 54 20 00 63 00 08 00 12 00 50 5c 52 46 28 4e 45 29 5c 43 4c 54 30 34 35 00 63 00 32 00 2c 00 50 5c 4f 52 4b 5c 41 33 2c ┆ b & P ANK A2,/30 ECHO AND RECOVERY BIT c P RF(NE) CLT045 c 2 , P ORK A3,┆
0x413a…418a 2f 31 30 5c 49 4e 44 49 43 41 54 45 20 52 45 43 4f 56 45 52 59 20 54 52 49 41 4c 20 44 4f 4e 45 00 63 00 48 00 1a 00 50 5c 53 43 5c 41 33 2c 44 57 54 53 54 2c 41 36 5c 53 54 4f 52 45 20 00 63 00 78 00 14 00 50 43 4c 54 30 33 32 5c 4c 44 4b ┆/10 INDICATE RECOVERY TRIAL DONE c H P SC A3,DWTST,A6 STORE c x PCLT032 LDK┆
0x418a…41da 5c 41 34 2c 30 20 00 63 00 96 00 30 00 50 43 4c 54 30 33 33 5c 4c 44 4b 5c 41 33 2c 32 5c 49 4e 44 49 43 41 54 45 20 52 45 43 4f 56 45 52 59 20 4f 46 20 44 45 56 49 43 45 20 00 63 00 ae 00 0e 00 50 5c 52 46 5c 43 50 4f 30 32 35 00 63 00 e2 ┆ A4,0 c 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE c P RF CPO025 c ┆
0x41da…422a 00 0a 00 50 5c 45 4a 45 43 54 00 63 00 f4 00 06 00 50 2a 20 00 63 01 02 00 18 00 50 2a 20 20 20 20 41 42 43 2d 20 20 56 52 43 2d 45 52 52 4f 52 00 63 01 0c 00 06 00 50 2a 20 00 63 01 28 00 38 00 50 2a 20 20 20 20 49 46 20 42 4c 4f 43 4b 53 ┆ P EJECT c P* c P* ABC- VRC-ERROR c P* c ( 8 P* IF BLOCKS┆
0x422a…427a 45 4e 44 49 4e 47 20 53 41 4d 45 20 50 52 4f 43 45 44 55 52 45 20 41 53 20 46 4f 52 20 54 48 45 20 4f 54 48 45 52 00 63 01 32 00 1e 00 50 2a 20 20 20 20 45 52 52 4f 52 53 20 4f 46 20 54 59 50 45 20 41 42 43 2d 2e 20 00 63 01 6e 00 34 00 50 ┆ENDING SAME PROCEDURE AS FOR THE OTHER c 2 P* ERRORS OF TYPE ABC-. c n 4 P┆
0x427a…42ca (44, 0, 400) 2a 20 20 20 20 49 46 20 4f 55 54 50 55 54 20 54 4f 20 50 52 49 4e 54 45 52 53 20 57 49 54 48 20 4c 52 43 2d 43 4f 4e 54 52 4f 4c 20 53 41 4d 45 00 63 01 90 00 20 00 50 2a 20 20 20 20 50 52 4f 43 45 44 55 52 45 20 41 53 20 46 4f 52 20 41 42 ┆* IF OUTPUT TO PRINTERS WITH LRC-CONTROL SAME c P* PROCEDURE AS FOR AB┆
0x42ca…431a 43 2b 2e 20 00 64 00 38 00 06 00 50 2a 20 00 64 00 5c 00 26 00 50 43 4c 54 30 34 32 5c 4c 44 52 2a 5c 41 34 2c 41 36 5c 42 4c 4f 43 4b 20 53 45 4e 44 49 4e 47 20 3f 20 00 64 00 66 00 12 00 50 5c 52 42 28 4e 29 5c 43 4c 54 30 33 31 20 00 64 ┆C+. d 8 P* d & PCLT042 LDR* A4,A6 BLOCK SENDING ? d f P RB(N) CLT031 d┆
0x431a…436a 00 90 00 16 00 50 43 4c 54 30 34 33 5c 41 42 4c 5c 43 4c 54 31 30 37 20 00 64 00 a6 00 0a 00 50 5c 45 4a 45 43 54 00 64 00 c0 00 06 00 50 2a 20 00 64 00 ce 00 12 00 50 2a 20 20 20 20 50 4f 57 45 52 20 4f 4e 20 00 64 00 d8 00 06 00 50 2a 20 ┆ PCLT043 ABL CLT107 d P EJECT d P* d P* POWER ON d P* ┆
0x436a…43ba 00 64 00 ee 00 38 00 50 2a 20 20 20 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 53 20 41 52 45 20 53 54 41 52 54 45 44 20 46 4f 52 20 45 56 45 52 59 20 44 45 56 49 43 45 20 00 64 00 f8 00 3c 00 50 2a 20 20 20 20 4f 4e 20 41 43 54 55 ┆ d 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE d < P* ON ACTU┆
0x43ba…440a 41 4c 20 4c 49 4e 45 20 45 58 43 45 50 54 20 54 48 4f 53 45 20 4f 43 43 55 50 59 49 4e 47 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 00 64 01 34 00 20 00 50 2a 20 20 20 20 4f 52 20 54 48 4f 53 45 20 49 4e 20 45 43 48 4f 20 4d 4f 44 45 2e 20 ┆AL LINE EXCEPT THOSE OCCUPYING CHANNEL UNIT d 4 P* OR THOSE IN ECHO MODE. ┆