|
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: 16660 (0x4114)
Notes: pts_type(SC)
Names: »TIODM.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/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 X:A X:B EQU 0 TCFILE EQU X:B MONCON X:C EQU 0 COFILE EQU X:C 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…0c2a Head {h00=0x0012, h01=0x0050, text=»INDXAC EQU X:A«, t00=0x0007, t01=0x012a}
0x0c2a…0c3c Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0007, t01=0x0140}
0x0c3c…0c5a Head {h00=0x001a, h01=0x0050, text=»TCFILE EQU X:B MONCON «, t00=0x0007, t01=0x0152}
0x0c5a…0c6c Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0007, t01=0x0170}
0x0c6c…0c8a Head {h00=0x001a, h01=0x0050, text=»COFILE EQU X:C MONCON «, t00=0x0007, t01=0x0182}
0x0c8a…0c98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0010}
0x0c98…0ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001e}
0x0ca2…0cc2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0028}
0x0cc2…0ce2 Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x0008, t01=0x0048}
0x0ce2…0d02 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0068}
0x0d02…0d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0088}
0x0d0c…0d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0092}
0x0d16…0d30 Head {h00=0x0016, h01=0x0050, text=» DATA 0,0 4 WORDS «, t00=0x0008, t01=0x009c}
0x0d30…0d42 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0008, t01=0x00b6}
0x0d42…0d68 Head {h00=0x0022, h01=0x0050, text=»TIOD14 EQU *-2 TIODM A14 STACK«, t00=0x0008, t01=0x00c8}
0x0d68…0d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ee}
0x0d72…0d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7c…0da6 Head {h00=0x0026, h01=0x0050, text=»TIODMF EQU * TIODM FUNCTION TABLE «, t00=0x0008, t01=0x0102}
0x0da6…0dc0 Head {h00=0x0016, h01=0x0050, text=» DATA CLOSE CLOSE «, t00=0x0008, t01=0x012c}
0x0dc0…0de6 Head {h00=0x0022, h01=0x0050, text=» DATA REVTOC READ VTOC RECORD «, t00=0x0008, t01=0x0146}
0x0de6…0dfc Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0008, t01=0x016c}
0x0dfc…0e22 Head {h00=0x0022, h01=0x0050, text=» DATA IXRDNX INDEXED READ NEXT«, t00=0x0008, t01=0x0182}
0x0e22…0e44 Head {h00=0x001e, h01=0x0050, text=» DATA IXINS INDEXED INSERT«, t00=0x0009, t01=0x0018}
0x0e44…0e66 Head {h00=0x001e, h01=0x0050, text=» DATA IXDEL INDEXED DELETE«, t00=0x0009, t01=0x003a}
0x0e66…0e8a Head {h00=0x0020, h01=0x0050, text=» DATA IXREWR INDEXED REWRITE«, t00=0x0009, t01=0x005c}
0x0e8a…0eb2 Head {h00=0x0024, h01=0x0050, text=» DATA IXRARE INDEXED RANDOM READ«, t00=0x0009, t01=0x0080}
0x0eb2…0ebe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x00a8}
0x0ebe…0ed4 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x0009, t01=0x00b4}
0x0ed4…0ee8 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x0009, t01=0x00ca}
0x0ee8…0efc Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x0009, t01=0x00de}
0x0efc…0f10 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x0009, t01=0x00f2}
0x0f10…0f24 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x0009, t01=0x0106}
0x0f24…0f38 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x0009, t01=0x011a}
0x0f38…0f44 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x012e}
0x0f44…0f66 Head {h00=0x001e, h01=0x0050, text=» DATA RANDEL RANDOM DELETE«, t00=0x0009, t01=0x013a}
0x0f66…0f8a Head {h00=0x0020, h01=0x0050, text=» DATA RANWRITE RANDOM WRITE «, t00=0x0009, t01=0x015c}
0x0f8a…0fac Head {h00=0x001e, h01=0x0050, text=» DATA RANREAD RANDOM READ «, t00=0x0009, t01=0x0180}
0x0fac…0fda Head {h00=0x002a, h01=0x0050, text=» DATA RELXAC RELEASE EXCLUSIVE ACCESS «, t00=0x000a, t01=0x0012}
0x0fda…1002 Head {h00=0x0024, h01=0x0050, text=» DATA SEQWRITE SEQUENTIAL WRITE «, t00=0x000a, t01=0x0040}
0x1002…1028 Head {h00=0x0022, h01=0x0050, text=» DATA SEQREAD SEQUENTIAL READ «, t00=0x000a, t01=0x0068}
0x1028…104a Head {h00=0x001e, h01=0x0050, text=» DATA GETCUR GET CURRENCY «, t00=0x000a, t01=0x008e}
0x104a…1060 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000a, t01=0x00b0}
0x1060…1088 Head {h00=0x0024, h01=0x0050, text=» DATA INSIXR INSERT INDEX RECORD«, t00=0x000a, t01=0x00c6}
0x1088…10b0 Head {h00=0x0024, h01=0x0050, text=» DATA DELIXR DELETE INDEX RECORD«, t00=0x000a, t01=0x00ee}
0x10b0…10bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0116}
0x10bc…10d2 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x000a, t01=0x0122}
0x10d2…10e6 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x0138}
0x10e6…10fa Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x014c}
0x10fa…1106 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0160}
0x1106…1130 Head {h00=0x0026, h01=0x0050, text=» DATA GETCUX GET CURRENT INDEX REC«, t00=0x000a, t01=0x016c}
0x1130…115a Head {h00=0x0026, h01=0x0050, text=» DATA RANWRD DELAYED RANDOM WRITE «, t00=0x000b, t01=0x0008}
0x115a…1184 Head {h00=0x0026, h01=0x0050, text=» DATA RANDLD DELAYED RANDOM DELETE«, t00=0x000b, t01=0x0032}
0x1184…11ac Head {h00=0x0024, h01=0x0050, text=» DATA RANREB RAND READ REL BUFF «, t00=0x000b, t01=0x005c}
0x11ac…11c8 Head {h00=0x0018, h01=0x0050, text=» DATA SETLRN SET LRN«, t00=0x000b, t01=0x0084}
0x11c8…11d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a0}
0x11d2…11dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00aa}
0x11dc…11fa Head {h00=0x001a, h01=0x0050, text=»TIODMO EQU * DM ORDERS«, t00=0x000b, t01=0x00b4}
0x11fa…1222 Head {h00=0x0024, h01=0x0050, text=» DATA /221E CLOSE,IND READ NEXT «, t00=0x000b, t01=0x00d2}
0x1222…124c Head {h00=0x0026, h01=0x0050, text=» DATA /1D1C IND INSERT,IND DELETE «, t00=0x000b, t01=0x00fa}
0x124c…127e Head {h00=0x002e, h01=0x0050, text=» DATA /1B1A INDEXED REWRITE,IND RAND READ «, t00=0x000b, t01=0x0124}
0x127e…12a6 Head {h00=0x0024, h01=0x0050, text=» DATA /0C0B RAND DEL, RAND WRITE«, t00=0x000b, t01=0x0156}
0x12a6…12d2 Head {h00=0x0028, h01=0x0050, text=» DATA /0A09 RAND READ, REL EXCL ACC «, t00=0x000b, t01=0x017e}
0x12d2…12fc Head {h00=0x0026, h01=0x0050, text=» DATA /0807 SPEC. WR. , SPEC. WR. «, t00=0x000c, t01=0x001a}
0x12fc…1326 Head {h00=0x0026, h01=0x0050, text=» DATA /0605 SEQ WR. , BASIC WRITE «, t00=0x000c, t01=0x0044}
0x1326…134e Head {h00=0x0024, h01=0x0050, text=» DATA /0302 READ VTOC, SEQ READ «, t00=0x000c, t01=0x006e}
0x134e…137a Head {h00=0x0028, h01=0x0050, text=» DATA /0123 BASIC READ,GET CURRENCY «, t00=0x000c, t01=0x0096}
0x137a…13a8 Head {h00=0x002a, h01=0x0050, text=» DATA /1F20 INS INDEXREC,DEL INDEXREC «, t00=0x000c, t01=0x00c2}
0x13a8…13da Head {h00=0x002e, h01=0x0050, text=» DATA /240D GET CURR INDEX,DELAYED RAND WR«, t00=0x000c, t01=0x00f0}
0x13da…140e Head {h00=0x0030, h01=0x0050, text=» DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF «, t00=0x000c, t01=0x0122}
0x140e…142a Head {h00=0x0018, h01=0x0050, text=» DATA /2500 SET LRN «, t00=0x000c, t01=0x0156}
0x142a…1434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0172}
0x1434…145a Head {h00=0x0022, h01=0x0050, text=»TIODMI EQU * ORDER INDEX TABLE«, t00=0x000c, t01=0x017c}
0x145a…146e Head {h00=0x0010, h01=0x0050, text=» DATA /0004 «, t00=0x000d, t01=0x0012}
0x146e…1482 Head {h00=0x0010, h01=0x0050, text=» DATA /0608 «, t00=0x000d, t01=0x0026}
0x1482…1496 Head {h00=0x0010, h01=0x0050, text=» DATA /0A0C «, t00=0x000d, t01=0x003a}
0x1496…14aa Head {h00=0x0010, h01=0x0050, text=» DATA /0E10 «, t00=0x000d, t01=0x004e}
0x14aa…14be Head {h00=0x0010, h01=0x0050, text=» DATA /1214 «, t00=0x000d, t01=0x0062}
0x14be…14d2 Head {h00=0x0010, h01=0x0050, text=» DATA /1616 «, t00=0x000d, t01=0x0076}
0x14d2…14e6 Head {h00=0x0010, h01=0x0050, text=» DATA /1616 «, t00=0x000d, t01=0x008a}
0x14e6…14fa Head {h00=0x0010, h01=0x0050, text=» DATA /0218 «, t00=0x000d, t01=0x009e}
0x14fa…150e Head {h00=0x0010, h01=0x0050, text=» DATA /181A «, t00=0x000d, t01=0x00b2}
0x150e…1522 Head {h00=0x0010, h01=0x0050, text=» DATA /1C1E «, t00=0x000d, t01=0x00c6}
0x1522…1536 Head {h00=0x0010, h01=0x0050, text=» DATA /2022 «, t00=0x000d, t01=0x00da}
0x1536…154a Head {h00=0x0010, h01=0x0050, text=» DATA /2426 «, t00=0x000d, t01=0x00ee}
0x154a…1566 Head {h00=0x0018, h01=0x0050, text=» DATA /281A SET LRN «, t00=0x000d, t01=0x0102}
0x1566…1570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011e}
0x1570…157e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0128}
0x157e…15a6 Head {h00=0x0024, h01=0x0050, text=»NOOFOR EQU 25 NO OF ORDER CODES «, t00=0x000d, t01=0x0136}
0x15a6…15b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015e}
0x15b0…15c4 Head {h00=0x0010, h01=0x0050, text=»ECBFC EQU 1 «, t00=0x000d, t01=0x0168}
0x15c4…15ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017c}
0x15ce…15f0 Head {h00=0x001e, h01=0x0050, text=»* FDB OFFSET DEFINITIONS«, t00=0x000d, t01=0x0186}
0x15f0…15fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0018}
0x15fa…1620 Head {h00=0x0022, h01=0x0050, text=»FDBLNK EQU 0 LINK TO NEXT FDB «, t00=0x000e, t01=0x0022}
0x1620…1640 Head {h00=0x001c, h01=0x0050, text=»FDBECB EQU 18 ECB START «, t00=0x000e, t01=0x0048}
0x1640…1664 Head {h00=0x0020, h01=0x0050, text=»FDBSNR EQU 32 SECTOR NUMBER «, t00=0x000e, t01=0x0068}
0x1664…1690 Head {h00=0x0028, h01=0x0050, text=»FDBRRO EQU 34 RELATIVE RECORD OFFSET«, t00=0x000e, t01=0x008c}
0x1690…16b4 Head {h00=0x0020, h01=0x0050, text=»FDBRLE EQU 36 RECORD LENGTH «, t00=0x000e, t01=0x00b8}
0x16b4…16da Head {h00=0x0022, h01=0x0050, text=»FDBBLF EQU 38 BLOCKING FACTOR «, t00=0x000e, t01=0x00dc}
0x16da…1708 Head {h00=0x002a, h01=0x0050, text=»FDBTNR EQU 39 TASK NUMBER CALLING TASK«, t00=0x000e, t01=0x0102}
0x1708…172c Head {h00=0x0020, h01=0x0050, text=»FDBVTO EQU 40 VTOC RECORD NO«, t00=0x000e, t01=0x0130}
0x172c…175e Head {h00=0x002e, h01=0x0050, text=»FDBCEX EQU 42 CURRENT EXTENT BLOCK POINTER«, t00=0x000e, t01=0x0154}
0x175e…178c Head {h00=0x002a, h01=0x0050, text=»FDBEXT EQU 44 FIRST EXTENT BLOCK START«, t00=0x000e, t01=0x0186}
0x178c…17ae Head {h00=0x001e, h01=0x0050, text=»EXTDMI EQU 0 DMTAST IDENT «, t00=0x000f, t01=0x0024}
0x17ae…17d2 Head {h00=0x0020, h01=0x0050, text=»EXTFC EQU 1 VOLUME FILE CODE«, t00=0x000f, t01=0x0046}
0x17d2…17f4 Head {h00=0x001e, h01=0x0050, text=»EXTLEN EQU 2 EXTENT LENGTH«, t00=0x000f, t01=0x006a}
0x17f4…1814 Head {h00=0x001c, h01=0x0050, text=»EXTBAS EQU 4 EXTENT BASE«, t00=0x000f, t01=0x008c}
0x1814…183a Head {h00=0x0022, h01=0x0050, text=»EXTELE EQU 6 EXT ENTRY LENGTH «, t00=0x000f, t01=0x00ac}
0x183a…1862 Head {h00=0x0024, h01=0x0050, text=»FDBLRN EQU 69 LAST RECORD NUMBER«, t00=0x000f, t01=0x00d2}
0x1862…188a Head {h00=0x0024, h01=0x0050, text=»FDBNIF EQU 68 NO OF INDEX FILES «, t00=0x000f, t01=0x00fa}
0x188a…18ac Head {h00=0x001e, h01=0x0050, text=»FDBEAL EQU 72 EA LINK ROOT«, t00=0x000f, t01=0x0122}
0x18ac…18d0 Head {h00=0x0020, h01=0x0050, text=»FDBCRL EQU 74 CRN LINK ROOT «, t00=0x000f, t01=0x0144}
0x18d0…18fe Head {h00=0x002a, h01=0x0050, text=»FDBKA EQU 76 KEY ADDRESS IN DATA FILE «, t00=0x000f, t01=0x0168}
0x18fe…192c Head {h00=0x002a, h01=0x0050, text=»FDBMIA EQU 78 ADDRESS OF MASTER INDEX «, t00=0x0010, t01=0x0008}
0x192c…195a Head {h00=0x002a, h01=0x0050, text=»FDBADF EQU 80 ADDRESS OF DATA FILE FDB«, t00=0x0010, t01=0x0036}
0x195a…198a Head {h00=0x002c, h01=0x0050, text=»FDBAI1 EQU 82 ADDRESS OF INDEX FILE FDB «, t00=0x0010, t01=0x0064}
0x198a…19c0 Head {h00=0x0032, h01=0x0050, text=»FDBDBR EQU 90 DELAY,BASIC AND REL BUFFER FLAGS«, t00=0x0010, t01=0x0094}
0x19c0…19ea Head {h00=0x0026, h01=0x0050, text=»FDBMRN EQU 91 LAST REC NR IN FILE «, t00=0x0010, t01=0x00ca}
0x19ea…1a0a Head {h00=0x001c, h01=0x0050, text=»FDBMRO EQU 94 MAX FDBRRO«, t00=0x0010, t01=0x00f4}
0x1a0a…1a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0114}
0x1a14…1a3e Head {h00=0x0026, h01=0x0050, text=»* CRN BUFFER OFFSET DEFINITIONS «, t00=0x0010, t01=0x011e}
0x1a3e…1a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0148}
0x1a48…1a64 Head {h00=0x0018, h01=0x0050, text=»CRNTID EQU 2 TASK ID«, t00=0x0010, t01=0x0152}
0x1a64…1a8a Head {h00=0x0022, h01=0x0050, text=»CRNCDF EQU 4 CURRENT DATA FILE«, t00=0x0010, t01=0x016e}
0x1a8a…1ab2 (17, 0, 400) Head {h00=0x0024, h01=0x0050, text=»CRNCIF EQU 8 CURRENT INDEX FILE «, t00=0x0011, t01=0x0004}
0x1ab2…1ac0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x002c}
0x1ac0…1aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003a}
0x1aca…1ae0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0011, t01=0x0044}
0x1ae0…1af6 Head {h00=0x0012, h01=0x0050, text=»* TIODM * «, t00=0x0011, t01=0x005a}
0x1af6…1b0c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0011, t01=0x0070}
0x1b0c…1b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0086}
0x1b16…1b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0090}
0x1b20…1b4a Head {h00=0x0026, h01=0x0050, text=»TIODM DATA *+2 TIODM START ADDRESS«, t00=0x0011, t01=0x009a}
0x1b4a…1b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c4}
0x1b54…1b70 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0011, t01=0x00ce}
0x1b70…1b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ea}
0x1b7a…1b92 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,TIOD14«, t00=0x0011, t01=0x00f4}
0x1b92…1b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1b9c…1bd6 Head {h00=0x0036, h01=0x0050, text=»* GET CALLING TASK NUMBER AND STORE IT IN FDBTNR«, t00=0x0011, t01=0x0116}
0x1bd6…1be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0150}
0x1be0…1bf2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0011, t01=0x015a}
0x1bf2…1c0c Head {h00=0x0016, h01=0x0050, text=»TIOD05 LD A1,TCTAB«, t00=0x0011, t01=0x016c}
0x1c0c…1c1e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0011, t01=0x0186}
0x1c1e…1c32 Head {h00=0x0010, h01=0x0050, text=» LD A3,2,A1 «, t00=0x0012, t01=0x0008}
0x1c32…1c4a Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTTDM,A6«, t00=0x0012, t01=0x001c}
0x1c4a…1c6a Head {h00=0x001c, h01=0x0050, text=» RF(E) TIOD10 THIS TASK «, t00=0x0012, t01=0x0034}
0x1c6a…1c7e Head {h00=0x0010, h01=0x0050, text=» ADK A2,2 NO«, t00=0x0012, t01=0x0054}
0x1c7e…1c9a Head {h00=0x0018, h01=0x0050, text=» RB TIOD05 TRY NEXT «, t00=0x0012, t01=0x0068}
0x1c9a…1cae Head {h00=0x0010, h01=0x0050, text=»TIOD10 EQU *«, t00=0x0012, t01=0x0084}
0x1cae…1cce Head {h00=0x001c, h01=0x0050, text=» LD A1,2,A3 TASK STATUS «, t00=0x0012, t01=0x0098}
0x1cce…1cf2 Head {h00=0x0020, h01=0x0050, text=» RF(N) TIO13 DMTASK CALLING «, t00=0x0012, t01=0x00b8}
0x1cf2…1cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00dc}
0x1cfc…1d20 Head {h00=0x0020, h01=0x0050, text=»* SET TASK ID FOR ALL FDBS«, t00=0x0012, t01=0x00e6}
0x1d20…1d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010a}
0x1d2a…1d46 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0012, t01=0x0114}
0x1d46…1d5e Head {h00=0x0014, h01=0x0050, text=» ADKL A1,FDBADF «, t00=0x0012, t01=0x0130}
0x1d5e…1d82 Head {h00=0x0020, h01=0x0050, text=» LDK A3,10 MAX NO OF FDB * 2«, t00=0x0012, t01=0x0148}
0x1d82…1da6 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/4000 REQ BUSY BIT «, t00=0x0012, t01=0x016c}
0x1da6…1dba Head {h00=0x0010, h01=0x0050, text=»TIO11 EQU * «, t00=0x0012, t01=0x0190}
0x1dba…1dcc Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0013, t01=0x0014}
0x1dcc…1dee Head {h00=0x001e, h01=0x0050, text=» RF(N) TIO13 ALL FDB READY«, t00=0x0013, t01=0x0026}
0x1dee…1e0a Head {h00=0x0018, h01=0x0050, text=» LDR* A5,A1 FDB ADDR«, t00=0x0013, t01=0x0048}
0x1e0a…1e26 Head {h00=0x0018, h01=0x0050, text=» RF(E) TIO12 NO FDB «, t00=0x0013, t01=0x0064}
0x1e26…1e46 Head {h00=0x001c, h01=0x0050, text=» SC A2,FDBTNR,A5 TASK ID«, t00=0x0013, t01=0x0080}
0x1e46…1e6c Head {h00=0x0022, h01=0x0050, text=» ORS A4,DWTST,A5 REQ BUSY BIT «, t00=0x0013, t01=0x00a0}
0x1e6c…1e80 Head {h00=0x0010, h01=0x0050, text=»TIO12 EQU * «, t00=0x0013, t01=0x00c6}
0x1e80…1ea0 Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 NEXT FDB ADDR «, t00=0x0013, t01=0x00da}
0x1ea0…1eb2 Head {h00=0x000e, h01=0x0050, text=» RB TIO11 «, t00=0x0013, t01=0x00fa}
0x1eb2…1ec6 Head {h00=0x0010, h01=0x0050, text=»TIO13 EQU * «, t00=0x0013, t01=0x010c}
0x1ec6…1ed8 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0013, t01=0x0120}
0x1ed8…1ee4 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0013, t01=0x0132}
0x1ee4…1ef6 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0013, t01=0x013e}
0x1ef6…1f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0150}
0x1f00…1f1e Head {h00=0x001a, h01=0x0050, text=»* CHECK ORDER IN A7 «, t00=0x0013, t01=0x015a}
0x1f1e…1f4e Head {h00=0x002c, h01=0x0050, text=»* PUT ORDER INDEX IN DWTOR RIGHT BYTE «, t00=0x0013, t01=0x0178}
0x1f4e…1f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0018}
0x1f58…1f7c Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 REQUEST ERROR«, t00=0x0014, t01=0x0022}
0x1f7c…1fa6 Head {h00=0x0026, h01=0x0050, text=» LDK A2,NOOFOR-1 NO OF ORDERS - 1 «, t00=0x0014, t01=0x0046}
0x1fa6…1fdc Head {h00=0x0032, h01=0x0050, text=»TIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO «, t00=0x0014, t01=0x0070}
0x1fdc…1ff8 Head {h00=0x0018, h01=0x0050, text=» RF(E) TIOD20 MATCH «, t00=0x0014, t01=0x00a6}
0x1ff8…200a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0014, t01=0x00c2}
0x200a…2026 Head {h00=0x0018, h01=0x0050, text=» RB(NN) TIOD15 >= 0 «, t00=0x0014, t01=0x00d4}
0x2026…2046 Head {h00=0x001c, h01=0x0050, text=» ABL TIODME ERROR RETURN«, t00=0x0014, t01=0x00f0}
0x2046…205a Head {h00=0x0010, h01=0x0050, text=»TIOD20 EQU *«, t00=0x0014, t01=0x0110}
0x205a…2072 Head {h00=0x0014, h01=0x0050, text=» LC A2,TIODMI,A2«, t00=0x0014, t01=0x0124}
0x2072…209c Head {h00=0x0026, h01=0x0050, text=» SC A2,DWTOR+1,A6 SAVE ORDER INDEX«, t00=0x0014, t01=0x013c}
0x209c…20c8 Head {h00=0x0028, h01=0x0050, text=» ABI TIODMF,A2 BRANCH TO DM FUNCTION«, t00=0x0014, t01=0x0166}
0x20c8…20d6 (21, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0004}
0x20d6…20e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0012}
0x20e0…2108 Head {h00=0x0024, h01=0x0050, text=»DELIXR EQU * DELETE INDEX RECORD«, t00=0x0015, t01=0x001c}
0x2108…2112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0044}
0x2112…213a Head {h00=0x0024, h01=0x0050, text=»INSIXR EQU * INSERT INDEX RECORD«, t00=0x0015, t01=0x004e}
0x213a…2144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0076}
0x2144…216c Head {h00=0x0024, h01=0x0050, text=»IXRARE EQU * INDEXED RANDOM READ«, t00=0x0015, t01=0x0080}
0x216c…2180 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-1 «, t00=0x0015, t01=0x00a8}
0x2180…2192 Head {h00=0x000e, h01=0x0050, text=» RF TIOC10«, t00=0x0015, t01=0x00bc}
0x2192…219c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ce}
0x219c…21c2 Head {h00=0x0022, h01=0x0050, text=»REVTOC EQU * READ VTOC RECORD «, t00=0x0015, t01=0x00d8}
0x21c2…21cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fe}
0x21cc…21ec Head {h00=0x001c, h01=0x0050, text=»CLOSE EQU * CLOSE A FILE«, t00=0x0015, t01=0x0108}
0x21ec…21fe Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0015, t01=0x0128}
0x21fe…2212 Head {h00=0x0010, h01=0x0050, text=»TIOC10 EQU *«, t00=0x0015, t01=0x013a}
0x2212…223a Head {h00=0x0024, h01=0x0050, text=» ST A4,FDBRRO,A6 MARK ORDER TYPE«, t00=0x0015, t01=0x014e}
0x223a…224c Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0015, t01=0x0176}
0x224c…227c Head {h00=0x002c, h01=0x0050, text=» ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE «, t00=0x0015, t01=0x0188}
0x227c…2286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0028}
0x2286…22b2 Head {h00=0x0028, h01=0x0050, text=»* LET FDBCEX POINT TO FIRST EXTENT«, t00=0x0016, t01=0x0032}
0x22b2…22bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x005e}
0x22bc…22ce Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x0016, t01=0x0068}
0x22ce…22e6 Head {h00=0x0014, h01=0x0050, text=» ADKL A4,FDBEXT «, t00=0x0016, t01=0x007a}
0x22e6…22fe Head {h00=0x0014, h01=0x0050, text=» ST A4,FDBCEX,A6«, t00=0x0016, t01=0x0092}
0x22fe…2322 Head {h00=0x0020, h01=0x0050, text=» ABL TIOD68 ACTIVATE DMTASK «, t00=0x0016, t01=0x00aa}
0x2322…2330 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00ce}
0x2330…233a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00dc}
0x233a…2368 Head {h00=0x002a, h01=0x0050, text=»RELXAC EQU * RELEASE EXCLUSIVE ACCESS «, t00=0x0016, t01=0x00e6}
0x2368…2384 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0016, t01=0x0114}
0x2384…23b8 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK «, t00=0x0016, t01=0x0130}
0x23b8…23ce Head {h00=0x0012, h01=0x0050, text=» CF A14,EARELB«, t00=0x0016, t01=0x0164}
0x23ce…23e2 Head {h00=0x0010, h01=0x0050, text=»REL090 EQU *«, t00=0x0016, t01=0x017a}
0x23e2…2402 Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 CORRECT RETURN«, t00=0x0016, t01=0x018e}
0x2402…2416 Head {h00=0x0010, h01=0x0050, text=» ABL TIODME «, t00=0x0017, t01=0x001e}
0x2416…2424 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0032}
0x2424…2450 Head {h00=0x0028, h01=0x0050, text=»SETLRN EQU * SET LAST RECORD NUMBER «, t00=0x0017, t01=0x0040}
0x2450…246a Head {h00=0x0016, h01=0x0050, text=» LC A1,ECBCW+3,A8 «, t00=0x0017, t01=0x006c}
0x246a…2482 Head {h00=0x0014, h01=0x0050, text=» SC A1,FDBLRN,A6«, t00=0x0017, t01=0x0086}
0x2482…249a Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A8 «, t00=0x0017, t01=0x009e}
0x249a…24b4 Head {h00=0x0016, h01=0x0050, text=» ST A1,FDBLRN+1,A6«, t00=0x0017, t01=0x00b6}
0x24b4…24c6 Head {h00=0x000e, h01=0x0050, text=» RB REL090«, t00=0x0017, t01=0x00d0}
0x24c6…24d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00e2}
0x24d4…2504 Head {h00=0x002c, h01=0x0050, text=»GETCUR LDK A7,CRNCDF+1 GET CURR DATA REC«, t00=0x0017, t01=0x00f0}
0x2504…2516 Head {h00=0x000e, h01=0x0050, text=» RF GET010«, t00=0x0017, t01=0x0120}
0x2516…2548 Head {h00=0x002e, h01=0x0050, text=»GETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC «, t00=0x0017, t01=0x0132}
0x2548…256a Head {h00=0x001e, h01=0x0050, text=»GET010 LDR A1,A6 FDB ADDR «, t00=0x0017, t01=0x0164}
0x256a…2590 Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x0017, t01=0x0186}
0x2590…25b4 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A2 ADDR CURR REC NO «, t00=0x0018, t01=0x001c}
0x25b4…25c6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0018, t01=0x0040}
0x25c6…25e4 Head {h00=0x001a, h01=0x0050, text=» LC A3,-1,A7 FILE CODE«, t00=0x0018, t01=0x0052}
0x25e4…25fc Head {h00=0x0014, h01=0x0050, text=» CC A3,ECBFC,A8 «, t00=0x0018, t01=0x0070}
0x25fc…2620 Head {h00=0x0020, h01=0x0050, text=» RF(E) GET020 SAME FILE CODE«, t00=0x0018, t01=0x0088}
0x2620…263a Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+3,A8 «, t00=0x0018, t01=0x00ac}
0x263a…264c Head {h00=0x000e, h01=0x0050, text=» RF GET030«, t00=0x0018, t01=0x00c6}
0x264c…2660 Head {h00=0x0010, h01=0x0050, text=»GET020 EQU *«, t00=0x0018, t01=0x00d8}
0x2660…2672 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A7«, t00=0x0018, t01=0x00ec}
0x2672…2692 Head {h00=0x001c, h01=0x0050, text=» SC A2,ECBCW+3,A8 REC NO«, t00=0x0018, t01=0x00fe}
0x2692…26a6 Head {h00=0x0010, h01=0x0050, text=» LD A2,1,A7 «, t00=0x0018, t01=0x011e}
0x26a6…26ba Head {h00=0x0010, h01=0x0050, text=»GET030 EQU *«, t00=0x0018, t01=0x0132}
0x26ba…26d2 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0018, t01=0x0146}
0x26d2…26e4 Head {h00=0x000e, h01=0x0050, text=» RB REL090«, t00=0x0018, t01=0x015e}
0x26e4…26f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0170}
0x26f2…2718 Head {h00=0x0022, h01=0x0050, text=»SEQREAD EQU * SEQUENTIAL READ «, t00=0x0018, t01=0x017e}
0x2718…2722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0014}
0x2722…274a Head {h00=0x0024, h01=0x0050, text=»* FIND CRN+1 AND TEST IF > LRN«, t00=0x0019, t01=0x001e}
0x274a…2754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0046}
0x2754…2770 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0019, t01=0x0050}
0x2770…2796 Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN-BUFFER «, t00=0x0019, t01=0x006c}
0x2796…27a8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0019, t01=0x0092}
0x27a8…27c2 Head {h00=0x0016, h01=0x0050, text=» LC A1,CRNCDF+1,A2«, t00=0x0019, t01=0x00a4}
0x27c2…27ec Head {h00=0x0026, h01=0x0050, text=» LD A2,CRNCDF+2,A2 CURR LOG REC NO«, t00=0x0019, t01=0x00be}
0x27ec…2804 Head {h00=0x0014, h01=0x0050, text=» ADK A2,1 CRN+1 «, t00=0x0019, t01=0x00e8}
0x2804…2822 Head {h00=0x001a, h01=0x0050, text=» RF(O) SEQR10 OVERFLOW«, t00=0x0019, t01=0x0100}
0x2822…2834 Head {h00=0x000e, h01=0x0050, text=» RF SEQR20«, t00=0x0019, t01=0x011e}
0x2834…2848 Head {h00=0x0010, h01=0x0050, text=»SEQR10 EQU *«, t00=0x0019, t01=0x0130}
0x2848…286e Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/7FFF REMOVE OVERFLOW«, t00=0x0019, t01=0x0144}
0x286e…288a Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x0019, t01=0x016a}
0x288a…289e Head {h00=0x0010, h01=0x0050, text=»SEQR20 EQU *«, t00=0x0019, t01=0x0186}
0x289e…28be Head {h00=0x001c, h01=0x0050, text=» SC A1,ECBCW+3,A8 REC NO«, t00=0x001a, t01=0x000a}
0x28be…28d6 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x001a, t01=0x002a}
0x28d6…28e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0042}
0x28e0…2908 Head {h00=0x0024, h01=0x0050, text=»* CONTINUE AS FOR RANDOM READ «, t00=0x001a, t01=0x004c}
0x2908…2912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0074}
0x2912…2920 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x007e}
0x2920…2942 Head {h00=0x001e, h01=0x0050, text=»RANREAD EQU * RANDOM READ «, t00=0x001a, t01=0x008c}
0x2942…294c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ae}
0x294c…2974 Head {h00=0x0024, h01=0x0050, text=»RANREB EQU * RAND READ REL BUFF «, t00=0x001a, t01=0x00b8}
0x2974…297e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e0}
0x297e…299c Head {h00=0x001a, h01=0x0050, text=»* TEST IF ECBRL <= 0«, t00=0x001a, t01=0x00ea}
0x299c…29a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0108}
0x29a6…29b8 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001a, t01=0x0112}
0x29b8…29d8 Head {h00=0x001c, h01=0x0050, text=» LC A2,ECBCW+3,A8 REC NO«, t00=0x001a, t01=0x0124}
0x29d8…29f0 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBCW,A8 «, t00=0x001a, t01=0x0144}
0x29f0…2a14 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/8 INCORRECT LENGTH «, t00=0x001a, t01=0x015c}
0x2a14…2a2c Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBRL,A8 «, t00=0x001a, t01=0x0180}
0x2a2c…2a5a Head {h00=0x002a, h01=0x0050, text=» RF(NP) TIODME ERROR RETURN IF RL <= 0«, t00=0x001b, t01=0x0008}
0x2a5a…2a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0036}
0x2a64…2a92 Head {h00=0x002a, h01=0x0050, text=»* EA MUST NOT BE SET FOR OTHER TASK «, t00=0x001b, t01=0x0040}
0x2a92…2a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006e}
0x2a9c…2ab8 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x001b, t01=0x0078}
0x2ab8…2ace Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x001b, t01=0x0094}
0x2ace…2ae8 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A4 RTN INF«, t00=0x001b, t01=0x00aa}
0x2ae8…2b0c Head {h00=0x0020, h01=0x0050, text=» RF(N) TIODPE EA OTHER TASK «, t00=0x001b, t01=0x00c4}
0x2b0c…2b1e Head {h00=0x000e, h01=0x0050, text=» RF TIODMA«, t00=0x001b, t01=0x00e8}
0x2b1e…2b2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00fa}
0x2b2c…2b50 Head {h00=0x0020, h01=0x0050, text=»IXINS EQU * INDEXED INSRERT «, t00=0x001b, t01=0x0108}
0x2b50…2b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x012c}
0x2b5a…2b82 Head {h00=0x0024, h01=0x0050, text=»SEQWRITE EQU * SEQUENTIAL WRITE «, t00=0x001b, t01=0x0136}
0x2b82…2b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x015e}
0x2b8c…2bc2 Head {h00=0x0032, h01=0x0050, text=»* GET LRN+1 INTO FDB AND STORE ADDR IN ECBCW«, t00=0x001b, t01=0x0168}
0x2bc2…2bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000e}
0x2bcc…2bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0018}
0x2bd6…2c04 Head {h00=0x002a, h01=0x0050, text=»* CALCULATE NUMBER DOF SPARE RECORDS«, t00=0x001c, t01=0x0022}
0x2c04…2c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0050}
0x2c0e…2c2e Head {h00=0x001c, h01=0x0050, text=» LDR A5,A6 SAVE FDB ADDR«, t00=0x001c, t01=0x005a}
0x2c2e…2c40 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001c, t01=0x007a}
0x2c40…2c64 Head {h00=0x0020, h01=0x0050, text=» LC A1,FDBMRN,A6 LAST REC NR«, t00=0x001c, t01=0x008c}
0x2c64…2c7e Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBMRN+1,A6«, t00=0x001c, t01=0x00b0}
0x2c7e…2c90 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001c, t01=0x00ca}
0x2c90…2ca8 Head {h00=0x0014, h01=0x0050, text=» LC A6,FDBLRN,A5«, t00=0x001c, t01=0x00dc}
0x2ca8…2cc6 Head {h00=0x001a, h01=0x0050, text=» LD A7,FDBLRN+1,A5 LRN«, t00=0x001c, t01=0x00f4}
0x2cc6…2ce6 Head {h00=0x001c, h01=0x0050, text=» CF A14,DSUMOD SUBTRACT «, t00=0x001c, t01=0x0112}
0x2ce6…2cf8 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x0132}
0x2cf8…2d0a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001c, t01=0x0144}
0x2d0a…2d28 Head {h00=0x001a, h01=0x0050, text=» RF(Z) SEQ005 NOT MANY«, t00=0x001c, t01=0x0156}
0x2d28…2d3e Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x001c, t01=0x0174}
0x2d3e…2d68 Head {h00=0x0026, h01=0x0050, text=»SEQ005 ST A2,ECBEL,A8 NR OF SPARE «, t00=0x001c, t01=0x018a}
0x2d68…2d86 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A5 FDB ADDRESS«, t00=0x001d, t01=0x0024}
0x2d86…2d98 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001d, t01=0x0042}
0x2d98…2db0 Head {h00=0x0014, h01=0x0050, text=» LC A1,FDBLRN,A6«, t00=0x001d, t01=0x0054}
0x2db0…2dce Head {h00=0x001a, h01=0x0050, text=» LD A2,FDBLRN+1,A6 LRN«, t00=0x001d, t01=0x006c}
0x2dce…2de4 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x001d, t01=0x008a}
0x2de4…2e08 Head {h00=0x0020, h01=0x0050, text=» RF IXR020 STORE LOG REC NO «, t00=0x001d, t01=0x00a0}
0x2e08…2e16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00c4}
0x2e16…2e3e Head {h00=0x0024, h01=0x0050, text=»IXRDNX EQU * INDEXED EREAD NEXT «, t00=0x001d, t01=0x00d2}
0x2e3e…2e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00fa}
0x2e48…2e5c Head {h00=0x0010, h01=0x0050, text=»* GET CRN «, t00=0x001d, t01=0x0104}
0x2e5c…2e66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0118}
0x2e66…2e88 Head {h00=0x001e, h01=0x0050, text=» LD A1,FDBADF,A6 FDB ADDR «, t00=0x001d, t01=0x0122}
0x2e88…2eae Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x001d, t01=0x0144}
0x2eae…2ec8 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A2 BUFFADR«, t00=0x001d, t01=0x016a}
0x2ec8…2eda Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001d, t01=0x0184}
0x2eda…2eec Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001e, t01=0x0008}
0x2eec…2ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x001a}
0x2ef6…2f1c Head {h00=0x0022, h01=0x0050, text=»* CHECK THAT FILE CODE IS OK«, t00=0x001e, t01=0x0024}
0x2f1c…2f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004a}
0x2f26…2f44 Head {h00=0x001a, h01=0x0050, text=» LDR* A5,A8 FILE CODE «, t00=0x001e, t01=0x0054}
0x2f44…2f5c Head {h00=0x0014, h01=0x0050, text=» CC A5,CRNCIF,A4«, t00=0x001e, t01=0x0072}
0x2f5c…2f8e Head {h00=0x002e, h01=0x0050, text=» RF(NE) IXR020 OTHER INDEX FILE IS CURRENT«, t00=0x001e, t01=0x008a}
0x2f8e…2fa8 Head {h00=0x0016, h01=0x0050, text=» LC A1,CRNCIF+1,A4«, t00=0x001e, t01=0x00bc}
0x2fa8…2fce Head {h00=0x0022, h01=0x0050, text=» LD A2,CRNCIF+2,A4 LOG REC NO «, t00=0x001e, t01=0x00d6}
0x2fce…2fe2 Head {h00=0x0010, h01=0x0050, text=»IXR020 EQU *«, t00=0x001e, t01=0x00fc}
0x2fe2…2fee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0110}
0x2fee…3000 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x001e, t01=0x011c}
0x3000…301e Head {h00=0x001a, h01=0x0050, text=» RF(O) IXR030 OVERFLOW«, t00=0x001e, t01=0x012e}
0x301e…3030 Head {h00=0x000e, h01=0x0050, text=» RF IXR040«, t00=0x001e, t01=0x014c}
0x3030…3060 Head {h00=0x002c, h01=0x0050, text=»IXR030 ANKL A2,/7FFF REMOVE OVERFLOW BIT«, t00=0x001e, t01=0x015e}
0x3060…307c Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADK CARRY «, t00=0x001e, t01=0x018e}
0x307c…3090 Head {h00=0x0010, h01=0x0050, text=»IXR040 EQU *«, t00=0x001f, t01=0x001a}
0x3090…30b0 Head {h00=0x001c, h01=0x0050, text=» SC A1,ECBCW+3,A8 REC NO«, t00=0x001f, t01=0x002e}
0x30b0…30c8 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x001f, t01=0x004e}
0x30c8…30f6 Head {h00=0x002a, h01=0x0050, text=» RF TIOD25 DO NOT CHECK EOF CONDITION «, t00=0x001f, t01=0x0066}
0x30f6…3104 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0094}
0x3104…310e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00a2}
0x310e…3132 Head {h00=0x0020, h01=0x0050, text=»IXREWR EQU * INDEXED REWRITE«, t00=0x001f, t01=0x00ac}
0x3132…313c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d0}
0x313c…315e Head {h00=0x001e, h01=0x0050, text=»IXDEL EQU * INDEXED DELETE«, t00=0x001f, t01=0x00da}
0x315e…3168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00fc}
0x3168…318c Head {h00=0x0020, h01=0x0050, text=»RANWRITE EQU * RANDOM WRITE «, t00=0x001f, t01=0x0106}
0x318c…3196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012a}
0x3196…31c0 Head {h00=0x0026, h01=0x0050, text=»RANWRD EQU * DELAYED RANDOM WRITE «, t00=0x001f, t01=0x0134}
0x31c0…31ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x015e}
0x31ca…31f4 Head {h00=0x0026, h01=0x0050, text=»RANDLD EQU * DELAYED RANDOM DELETE«, t00=0x001f, t01=0x0168}
0x31f4…31fe (32, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0004}
0x31fe…3220 Head {h00=0x001e, h01=0x0050, text=»RANDEL EQU * RANDOM DELETE«, t00=0x0020, t01=0x000e}
0x3220…322a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0030}
0x322a…324c Head {h00=0x001e, h01=0x0050, text=»* NO SPECIAL PROCESSING «, t00=0x0020, t01=0x003a}
0x324c…3256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x005c}
0x3256…3264 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0066}
0x3264…326e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0074}
0x326e…3290 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0020, t01=0x007e}
0x3290…32b2 Head {h00=0x001e, h01=0x0050, text=»* DMTASK ACTIVATION * «, t00=0x0020, t01=0x00a0}
0x32b2…32d4 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0020, t01=0x00c2}
0x32d4…32de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e4}
0x32de…32f2 Head {h00=0x0010, h01=0x0050, text=»TIODMA EQU *«, t00=0x0020, t01=0x00ee}
0x32f2…32fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0102}
0x32fc…331c Head {h00=0x001c, h01=0x0050, text=»* SET EOF IF CRN > LRN«, t00=0x0020, t01=0x010c}
0x331c…3326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012c}
0x3326…3338 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0020, t01=0x0136}
0x3338…3358 Head {h00=0x001c, h01=0x0050, text=» LC A1,ECBCW+3,A8 REC NO«, t00=0x0020, t01=0x0148}
0x3358…3376 Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 DITTO «, t00=0x0020, t01=0x0168}
0x3376…339e Head {h00=0x0024, h01=0x0050, text=» CC A1,FDBLRN,A6 MOST SIGN PART «, t00=0x0020, t01=0x0186}
0x339e…33bc Head {h00=0x001a, h01=0x0050, text=» RF(L) TIOD25 CRN<LRN «, t00=0x0021, t01=0x001e}
0x33bc…33da Head {h00=0x001a, h01=0x0050, text=» RF(G) TIOD23 CRN>LRN «, t00=0x0021, t01=0x003c}
0x33da…33fc Head {h00=0x001e, h01=0x0050, text=» CW A2,FDBLRN+1,A6 2 PART «, t00=0x0021, t01=0x005a}
0x33fc…341e Head {h00=0x001e, h01=0x0050, text=» RF(NG) TIOD25 CRN <= LRN «, t00=0x0021, t01=0x007c}
0x341e…3432 Head {h00=0x0010, h01=0x0050, text=»TIOD23 EQU *«, t00=0x0021, t01=0x009e}
0x3432…3454 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,/1000 END OF FILE«, t00=0x0021, t01=0x00b2}
0x3454…346c Head {h00=0x0014, h01=0x0050, text=» ORS A3,ECBRC,A8«, t00=0x0021, t01=0x00d4}
0x346c…3480 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0021, t01=0x00ec}
0x3480…349e Head {h00=0x001a, h01=0x0050, text=» SUKL A7,SQR SEQ READ «, t00=0x0021, t01=0x0100}
0x349e…34bc Head {h00=0x001a, h01=0x0050, text=» RF(NE) TIOD25 NOT SR «, t00=0x0021, t01=0x011e}
0x34bc…34ce Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0021, t01=0x013c}
0x34ce…34e0 Head {h00=0x000e, h01=0x0050, text=» RF TIODME«, t00=0x0021, t01=0x014e}
0x34e0…34f4 Head {h00=0x0010, h01=0x0050, text=»TIOD25 EQU *«, t00=0x0021, t01=0x0160}
0x34f4…352e Head {h00=0x0036, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR «, t00=0x0021, t01=0x0174}
0x352e…354c Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN INF «, t00=0x0022, t01=0x001e}
0x354c…3562 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TIODME«, t00=0x0022, t01=0x003c}
0x3562…3570 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0052}
0x3570…357a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0060}
0x357a…35ac Head {h00=0x002e, h01=0x0050, text=»* ACTIVATE DMTASK WITH FDB ADDRESS IN A1«, t00=0x0022, t01=0x006a}
0x35ac…35b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x009c}
0x35b6…35ca Head {h00=0x0010, h01=0x0050, text=»TIOD68 EQU *«, t00=0x0022, t01=0x00a6}
0x35ca…35d6 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0022, t01=0x00ba}
0x35d6…35e2 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0022, t01=0x00c6}
0x35e2…35ee Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0022, t01=0x00d2}
0x35ee…360c Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS«, t00=0x0022, t01=0x00de}
0x360c…361e Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0022, t01=0x00fc}
0x361e…3646 Head {h00=0x0024, h01=0x0050, text=» LC A7,EXTDMI,A4 TID FOR DMTASK «, t00=0x0022, t01=0x010e}
0x3646…365c Head {h00=0x0012, h01=0x0050, text=» ADKL A7,'D0' «, t00=0x0022, t01=0x0136}
0x365c…3680 Head {h00=0x0020, h01=0x0050, text=» CF A15,FNDTID A2:=TTAB ADDR«, t00=0x0022, t01=0x014c}
0x3680…3692 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0022, t01=0x0170}
0x3692…36b4 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) TIOD70 TTAB FOUND «, t00=0x0022, t01=0x0182}
0x36b4…36da Head {h00=0x0022, h01=0x0050, text=» HLT DMTASK MISSING IN TCTAB «, t00=0x0023, t01=0x0014}
0x36da…3708 Head {h00=0x002a, h01=0x0050, text=»TIOD70 LDKL A2,DMTASK DISPATCH ADDRESS«, t00=0x0023, t01=0x003a}
0x3708…371a Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0023, t01=0x0068}
0x371a…3740 Head {h00=0x0022, h01=0x0050, text=» CF A15,ACTOT ACTIVATE DMTASK «, t00=0x0023, t01=0x007a}
0x3740…374a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a0}
0x374a…3764 Head {h00=0x0016, h01=0x0050, text=»* EXIT TO TDISP «, t00=0x0023, t01=0x00aa}
0x3764…376e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c4}
0x376e…3780 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0023, t01=0x00ce}
0x3780…378a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e0}
0x378a…3798 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00ea}
0x3798…37a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f8}
0x37a2…37b8 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0023, t01=0x0102}
0x37b8…37ce Head {h00=0x0012, h01=0x0050, text=»* TIODME *«, t00=0x0023, t01=0x0118}
0x37ce…37e4 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0023, t01=0x012e}
0x37e4…37ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0144}
0x37ee…383c Head {h00=0x004a, h01=0x0050, text=»* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER«, t00=0x0023, t01=0x014e}
0x383c…3846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000c}
0x3846…385a Head {h00=0x0010, h01=0x0050, text=»TIODPE EQU *«, t00=0x0024, t01=0x0016}
0x385a…387e Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/2000 PROTECT ERROR«, t00=0x0024, t01=0x002a}
0x387e…3892 Head {h00=0x0010, h01=0x0050, text=»TIODME EQU *«, t00=0x0024, t01=0x004e}
0x3892…38ae Head {h00=0x0018, h01=0x0050, text=»* A1 = ERROR CODE «, t00=0x0024, t01=0x0062}
0x38ae…38ca Head {h00=0x0018, h01=0x0050, text=»* A6 = FDB ADDRESS«, t00=0x0024, t01=0x007e}
0x38ca…38fa Head {h00=0x002c, h01=0x0050, text=» ABL DISEND CALL TENDIO GOTO DISPATCHER«, t00=0x0024, t01=0x009a}
0x38fa…3904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ca}
0x3904…3910 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0024, t01=0x00d4}
0x3910…3914 Head {h00=0x4004, h01=0x0000}
0x3914…3918 00 24 00 e0 ┆ $ ┆
0x3918…3920 (37, 1, 8) 20 04 00 00 00 25 00 04 ┆ % ┆
0x3920…3970 (38, 0, 400) 00 95 01 74 00 06 00 50 2a 20 00 96 00 08 00 06 00 50 2a 20 00 96 00 12 00 10 00 50 5c 49 46 46 5c 4c 4f 47 47 3d 30 20 00 96 00 1c 00 16 00 50 4c 4f 47 53 53 54 5c 53 54 5c 41 32 2c 53 41 56 45 32 00 96 00 30 00 12 00 50 5c 4f 52 4b 4c 5c ┆ t P* P* P IFF LOGG=0 PLOGSST ST A2,SAVE2 0 P ORKL ┆
0x3970…39c0 41 32 2c 2f 46 30 30 30 00 96 00 4a 00 0e 00 50 5c 52 46 5c 4c 4f 47 31 30 20 00 96 00 60 00 16 00 50 4c 4f 47 4f 55 54 5c 53 54 5c 41 32 2c 53 41 56 45 32 00 96 00 72 00 12 00 50 5c 4f 52 4b 4c 5c 41 32 2c 2f 30 46 30 30 00 96 00 8c 00 0e ┆A2,/F000 J P RF LOG10 ` PLOGOUT ST A2,SAVE2 r P ORKL A2,/0F00 ┆
0x39c0…3a10 00 50 5c 52 46 5c 4c 4f 47 31 30 20 00 96 00 a2 00 14 00 50 4c 4f 47 49 4e 5c 43 57 4b 5c 41 32 2c 2f 46 46 00 96 00 b4 00 12 00 50 5c 52 46 28 45 29 5c 4c 4f 47 45 31 30 20 00 96 00 cc 00 10 00 50 5c 53 54 5c 41 32 2c 53 41 56 45 32 00 96 ┆ P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOGE10 P ST A2,SAVE2 ┆
0x3a10…3a60 00 e2 00 16 00 50 4c 4f 47 31 30 5c 53 54 5c 41 33 2c 53 41 56 45 33 20 00 96 00 f6 00 12 00 50 5c 4c 44 5c 41 33 2c 4c 4f 47 50 4e 54 20 00 96 01 10 00 0e 00 50 5c 53 54 52 5c 41 32 2c 41 33 00 96 01 26 00 0e 00 50 5c 41 44 4b 5c 41 33 2c ┆ PLOG10 ST A3,SAVE3 P LD A3,LOGPNT P STR A2,A3 & P ADK A3,┆
0x3a60…3ab0 32 20 00 96 01 38 00 12 00 50 5c 43 57 4b 5c 41 33 2c 4c 4f 47 45 4e 44 00 96 01 4a 00 12 00 50 5c 52 46 28 4c 29 5c 4c 4f 47 45 58 49 20 00 96 01 60 00 14 00 50 5c 4c 44 4b 4c 5c 41 33 2c 4c 4f 47 53 54 41 20 00 96 01 76 00 18 00 50 4c 4f ┆2 8 P CWK A3,LOGEND J P RF(L) LOGEXI ` P LDKL A3,LOGSTA v PLO┆
0x3ab0…3b00 (39, 0, 400) 47 45 58 49 5c 53 54 5c 41 33 2c 4c 4f 47 50 4e 54 20 00 96 01 8e 00 10 00 50 5c 4c 44 5c 41 32 2c 53 41 56 45 32 00 97 00 1a 00 10 00 50 5c 4c 44 5c 41 33 2c 53 41 56 45 33 00 97 00 2e 00 12 00 50 4c 4f 47 45 31 30 5c 52 54 4e 5c 41 35 20 ┆GEXI ST A3,LOGPNT P LD A2,SAVE2 P LD A3,SAVE3 . PLOGE10 RTN A5 ┆
0x3b00…3b50 00 97 00 42 00 0a 00 50 5c 45 4a 45 43 54 00 97 00 58 00 06 00 50 2a 20 00 97 00 66 00 06 00 50 2a 20 00 97 00 70 00 16 00 50 4c 4f 47 50 4e 54 5c 44 41 54 41 5c 4c 4f 47 53 54 41 00 97 00 7a 00 10 00 50 4c 4f 47 53 54 41 5c 45 51 55 5c 2a ┆ B P EJECT X P* f P* p PLOGPNT DATA LOGSTA z PLOGSTA EQU *┆
0x3b50…3ba0 00 97 00 94 00 0c 00 50 5c 52 45 53 5c 33 30 30 00 97 00 a8 00 12 00 50 4c 4f 47 45 4e 44 5c 45 51 55 5c 2a 2d 34 00 97 00 b8 00 10 00 50 53 41 56 45 32 5c 44 41 54 41 5c 30 00 97 00 ce 00 10 00 50 53 41 56 45 33 5c 44 41 54 41 5c 30 00 97 ┆ P RES 300 PLOGEND EQU *-4 PSAVE2 DATA 0 PSAVE3 DATA 0 ┆
0x3ba0…3bf0 00 e2 00 08 00 50 5c 58 49 46 00 97 00 f6 00 06 00 50 2a 20 00 97 01 02 00 06 00 50 2a 20 00 97 01 0c 00 06 00 50 2a 20 00 97 01 16 00 10 00 50 5c 49 46 54 5c 52 43 4f 4d 3d 31 20 00 97 01 20 00 0a 00 50 5c 45 4a 45 43 54 00 97 01 34 00 3c ┆ P XIF P* P* P* P IFT RCOM=1 P EJECT 4 <┆
0x3bf0…3c40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 97 01 42 00 06 00 50 2a 20 00 97 01 82 00 16 00 50 2a 20 20 20 ┆ P******************************************************* B P* P* ┆
0x3c40…3c90 (40, 0, 400) 20 20 4c 20 49 20 4e 20 43 20 4f 20 4c 20 00 97 01 8c 00 06 00 50 2a 20 00 98 00 16 00 3a 00 50 2a 20 20 20 20 20 43 4f 4e 56 45 52 54 20 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 20 54 4f 20 4c 49 4e 45 20 41 4e 44 20 43 4f 4c 55 4d 4e 20 ┆ L I N C O L P* : P* CONVERT CURSOR ADDRESS TO LINE AND COLUMN ┆
0x3c90…3ce0 4e 55 4d 42 45 52 00 98 00 20 00 06 00 50 2a 20 00 98 00 5e 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆NUMBER P* ^ > P********************************************************┆
0x3ce0…3d30 2a 2a 00 98 00 68 00 04 00 50 00 98 00 aa 00 10 00 50 4c 49 4e 43 4f 4c 5c 45 51 55 5c 2a 00 98 00 b2 00 22 00 50 5c 4c 44 52 5c 41 32 2c 41 33 5c 43 4f 50 59 20 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 00 98 00 c6 00 0e 00 50 5c 53 52 4c ┆** h P PLINCOL EQU * " P LDR A2,A3 COPY CURSOR ADDRESS P SRL┆
0x3d30…3d80 5c 41 32 2c 36 20 00 98 00 ec 00 12 00 50 5c 41 4e 4b 5c 41 32 2c 58 27 33 46 27 5c 00 98 00 fe 00 26 00 50 5c 4c 43 5c 41 32 2c 4c 49 43 4f 3a 54 2c 41 32 5c 41 53 43 49 49 20 4c 49 4e 45 20 4e 55 4d 42 45 52 00 98 01 14 00 22 00 50 5c 43 ┆ A2,6 P ANK A2,X'3F' & P LC A2,LICO:T,A2 ASCII LINE NUMBER " P C┆
0x3d80…3dd0 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 4c 49 4e 45 20 4e 55 4d 42 45 52 00 98 01 3e 00 04 00 50 00 98 01 64 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 33 00 98 01 6c 00 12 00 50 5c 41 4e 4b 5c 41 32 2c 58 27 33 46 27 20 00 98 01 7e ┆F A5,WRITEP SEND LINE NUMBER > P d P LDR A2,A3 l P ANK A2,X'3F' ~┆
0x3dd0…3e20 (41, 0, 400) 00 28 00 50 5c 4c 43 5c 41 32 2c 4c 49 43 4f 3a 54 2c 41 32 5c 41 53 43 49 49 20 43 4f 4c 55 4d 4e 20 4e 55 4d 42 45 52 00 99 00 04 00 24 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 43 4f 4c 55 4d 4e 20 4e 55 4d 42 45 52 ┆ ( P LC A2,LICO:T,A2 ASCII COLUMN NUMBER $ P CF A5,WRITEP SEND COLUMN NUMBER┆
0x3e20…3e70 00 99 00 30 00 12 00 50 5c 52 54 4e 5c 41 35 5c 52 45 54 55 52 4e 00 99 00 58 00 06 00 50 2a 20 00 99 00 6e 00 06 00 50 2a 20 00 99 00 78 00 06 00 50 2a 20 00 99 00 82 00 0a 00 50 5c 45 4a 45 43 54 00 99 00 8c 00 04 00 50 00 99 00 9a 00 04 ┆ 0 P RTN A5 RETURN X P* n P* x P* P EJECT P ┆
0x3e70…3ec0 00 50 00 99 00 a2 00 10 00 50 4c 49 43 4f 3a 54 5c 45 51 55 5c 2a 00 99 00 aa 00 2a 00 50 5c 44 41 54 41 5c 2f 32 30 34 31 2c 2f 34 32 34 33 2c 2f 34 34 34 35 2c 2f 34 36 34 37 5c 2f 30 30 2d 2f 30 37 20 00 99 00 be 00 2a 00 50 5c 44 41 54 ┆ P PLICO:T EQU * * P DATA /2041,/4243,/4445,/4647 /00-/07 * P DAT┆
0x3ec0…3f10 41 5c 2f 34 38 34 39 2c 2f 35 42 32 45 2c 2f 33 43 32 38 2c 2f 32 42 32 31 5c 2f 30 38 2d 2f 30 46 20 00 99 00 ec 00 2a 00 50 5c 44 41 54 41 5c 2f 32 36 34 41 2c 2f 34 42 34 43 2c 2f 34 44 34 45 2c 2f 34 46 35 30 5c 2f 31 30 2d 2f 31 37 20 ┆A /4849,/5B2E,/3C28,/2B21 /08-/0F * P DATA /264A,/4B4C,/4D4E,/4F50 /10-/17 ┆
0x3f10…3f60 00 99 01 1a 00 2a 00 50 5c 44 41 54 41 5c 2f 35 31 35 32 2c 2f 35 44 32 34 2c 2f 32 41 32 39 2c 2f 33 42 35 45 5c 2f 31 38 2d 2f 31 46 20 00 99 01 48 00 2a 00 50 5c 44 41 54 41 5c 2f 32 44 32 46 2c 2f 35 33 35 34 2c 2f 35 35 35 36 2c 2f 35 ┆ * P DATA /5152,/5D24,/2A29,/3B5E /18-/1F H * P DATA /2D2F,/5354,/5556,/5┆
0x3f60…3fb0 (42, 0, 398) 37 35 38 5c 2f 32 30 2d 2f 32 37 20 00 99 01 76 00 2a 00 50 5c 44 41 54 41 5c 2f 35 39 35 41 2c 2f 37 43 32 43 2c 2f 32 35 35 46 2c 2f 33 45 33 46 5c 2f 32 38 2d 2f 32 46 20 00 9a 00 14 00 28 00 50 5c 44 41 54 41 5c 2f 33 30 33 31 2c 2f 33 ┆758 /20-/27 v * P DATA /595A,/7C2C,/255F,/3E3F /28-/2F ( P DATA /3031,/3┆
0x3fb0…4000 32 33 33 2c 2f 33 34 33 35 2c 2f 33 36 33 37 5c 2f 33 30 2d 33 37 00 9a 00 42 00 28 00 50 5c 44 41 54 41 5c 2f 33 38 33 39 2c 2f 33 41 32 33 2c 2f 34 30 32 37 2c 2f 33 44 32 32 5c 2f 33 38 2d 33 46 00 9a 00 6e 00 08 00 50 5c 58 49 46 00 9a ┆233,/3435,/3637 /30-37 B ( P DATA /3839,/3A23,/4027,/3D22 /38-3F n P XIF ┆
0x4000…4050 00 9a 00 0a 00 50 5c 45 4a 45 43 54 00 9a 00 a6 00 04 00 50 00 9a 00 b4 00 18 00 50 44 43 3a 49 4e 5c 44 41 54 41 5c 44 43 3a 54 41 42 2b 32 20 00 9a 00 bc 00 16 00 50 44 43 54 41 42 5c 44 41 54 41 5c 44 43 3a 54 41 42 20 00 9a 00 d8 00 22 ┆ P EJECT P PDC:IN DATA DC:TAB+2 PDCTAB DATA DC:TAB "┆
0x4050…40a0 00 50 44 43 3a 54 41 42 5c 44 41 54 41 5c 32 5c 4c 45 4e 47 54 48 20 4f 46 20 44 43 3a 54 41 42 00 9a 00 f2 00 2a 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 9a ┆ PDC:TAB DATA 2 LENGTH OF DC:TAB * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ┆
0x40a0…40ee 01 18 00 2a 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 9a 01 46 00 10 00 50 44 43 3a 45 4e 44 5c 45 51 55 5c 2a 00 9a 01 74 00 06 00 50 2a 20 00 9a 01 88 ┆ * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 F PDC:END EQU * t P* ┆
0x40ee…410c (43, 2, 30) 00 06 00 50 2a 20 00 9b 00 04 00 08 00 50 5c 45 4e 44 00 9b 00 0e 40 04 00 00 00 9b 00 1a ┆ P* P END @ ┆
0x410c…4114 (44, 1, 8) 20 04 00 00 00 9c 00 04 ┆ ┆