|
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: 17030 (0x4286)
Notes: pts_type(SC)
Names: »TIODM.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/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…3926 (38, 1, 8) 20 04 00 00 00 9e 00 04 ┆ ┆
0x3926…3976 (39, 0, 400) 20 20 20 20 4c 41 42 45 4c 20 3d 20 46 49 58 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 45 20 3d 20 20 37 39 31 32 32 37 20 20 20 20 20 20 20 20 20 20 50 41 43 4b 20 4e 42 52 20 3d 20 20 30 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆ LABEL = FIX1 DATE = 791227 PACK NBR = 001 ┆
0x3976…39c6 00 66 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 01 50 00 9d a0 00 01 59 1a 5f 28 1c 01 59 a2 8f 12 1f d4 4d c0 5c 04 a5 20 00 1f ┆ f P Y _( Y M ┆
0x39c6…3a16 f0 3a 85 5c 00 00 15 08 85 5d 00 00 85 1e 3d 49 52 00 05 0e 45 c0 5c 04 00 01 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : ] =IR E ┆
0x3a16…3a66 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x3ab6…3b06 (40, 0, 400) 20 20 20 20 4c 41 42 45 4c 20 3d 20 46 49 58 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 45 20 3d 20 20 37 39 31 32 32 37 20 20 20 20 20 20 20 20 20 20 50 41 43 4b 20 4e 42 52 20 3d 20 20 30 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆ LABEL = FIX1 DATE = 791227 PACK NBR = 001 ┆
0x3b06…3b56 00 66 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 01 50 00 9d a0 00 01 59 1a 5f 28 1c 01 59 a2 8f 12 1f d4 4d c0 5c 04 a5 20 00 1f ┆ f P Y _( Y M ┆
0x3b56…3ba6 f0 3a 85 5c 00 00 15 08 85 5d 00 00 85 1e 3d 49 52 00 05 0e 45 c0 5c 04 00 02 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : ] =IR E ┆
0x3ba6…3bf6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x3c46…3c96 (41, 0, 400) 20 20 20 20 4c 41 42 45 4c 20 3d 20 46 49 58 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 45 20 3d 20 20 37 39 31 32 32 37 20 20 20 20 20 20 20 20 20 20 50 41 43 4b 20 4e 42 52 20 3d 20 20 30 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆ LABEL = FIX1 DATE = 791227 PACK NBR = 001 ┆
0x3c96…3ce6 00 66 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 01 50 00 9d a0 00 01 59 1a 5f 28 1c 01 59 a2 8f 12 1f d4 4d c0 5c 04 a5 20 00 1f ┆ f P Y _( Y M ┆
0x3ce6…3d36 f0 3a 85 5c 00 00 15 08 85 5d 00 00 85 1e 3d 49 52 00 05 0e 45 c0 5c 04 00 03 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : ] =IR E ┆
0x3d36…3d86 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x3dd6…3e26 (42, 0, 400) 20 20 20 20 4c 41 42 45 4c 20 3d 20 46 49 58 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 45 20 3d 20 20 37 39 31 32 32 37 20 20 20 20 20 20 20 20 20 20 50 41 43 4b 20 4e 42 52 20 3d 20 20 30 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆ LABEL = FIX1 DATE = 791227 PACK NBR = 001 ┆
0x3e26…3e76 00 66 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 01 50 00 9d a0 00 01 59 1a 5f 28 1c 01 59 a2 8f 12 1f d4 4d c0 5c 04 a5 20 00 1f ┆ f P Y _( Y M ┆
0x3e76…3ec6 f0 3a 85 5c 00 00 15 08 85 5d 00 00 85 1e 3d 49 52 00 05 0e 45 c0 5c 04 00 04 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : ] =IR E ┆
0x3ec6…3f16 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x3f66…3fb6 (43, 0, 400) 20 20 20 20 4c 41 42 45 4c 20 3d 20 46 49 58 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 45 20 3d 20 20 37 39 31 32 32 37 20 20 20 20 20 20 20 20 20 20 50 41 43 4b 20 4e 42 52 20 3d 20 20 30 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆ LABEL = FIX1 DATE = 791227 PACK NBR = 001 ┆
0x3fb6…4006 00 66 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 01 50 00 9d a0 00 01 59 1a 5f 28 1c 01 59 a2 8f 12 1f d4 4d c0 5c 04 a5 20 00 1f ┆ f P Y _( Y M ┆
0x4006…4056 f0 3a 85 5c 00 00 15 08 85 5d 00 00 85 1e 3d 49 52 00 05 0e 45 c0 5c 04 00 05 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : ] =IR E ┆
0x4056…40a6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x40f6…4146 (44, 0, 400) 20 20 20 20 4c 41 42 45 4c 20 3d 20 46 49 58 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 45 20 3d 20 20 37 39 31 32 32 37 20 20 20 20 20 20 20 20 20 20 50 41 43 4b 20 4e 42 52 20 3d 20 20 30 30 31 20 20 20 20 20 20 20 20 20 20 20 ┆ LABEL = FIX1 DATE = 791227 PACK NBR = 001 ┆
0x4146…4196 00 66 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 01 50 00 9d a0 00 01 59 1a 5f 28 1c 01 59 a2 8f 12 1f d4 4d c0 5c 04 a5 20 00 1f ┆ f P Y _( Y M ┆
0x4196…41e6 f0 3a 85 5c 00 00 15 08 85 5d 00 00 85 1e 3d 49 52 00 05 0e 45 c0 5c 04 00 06 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ : ] =IR E ┆
0x41e6…4236 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]