|
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: 17280 (0x4380)
Notes: pts_type(SC)
Names: »TIODM.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/TIODM.SC«
IDENT TIODM REL 9.2 79-11-16 870105040920 =1, PR 5649 REL 9.1 79-05-23 * **************************************************** * * 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 FDBMEC MMU ECB DISPLACEMENT ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS EJECT * ***************** * EXTERNALS * ***************** * * EXTRN SCTTCT EXTRN TDISP EXTRN DSUMOD EXTRN FNDTID EXTRN ACTOT EXTRN DISEND EXTRN DWTECB ECB ADDRESS EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTTDM DM TASK TTAB ADDRESS EXTRN TTB:ID TASK ID EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA EXTRN DMTGCA GET CRN ADDRESS EXTRN DMTGEA GET EA WORD ADDR AND MASK EXTRN DMTASK EXTRN CALSNO EXTRN ECBFC EXTRN ECBBA EXTRN ECBRL EXTRN ECBEL EXTRN ECBRC EXTRN ECBCW EXTRN ECBCW2 SECOND CONTROL WORD EXTRN FDBLEN EXTRN SQR SEQ READ ORDER CODE EXTRN EARELB,DWTST,CRNGET,EATEST EXTRN TASHLT HALT SYSTEM ROUTINE 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 * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * 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 * NOOFOR EQU 25 NO OF ORDER CODES * EJECT * * DWTDRD EQU /10 START OF NON-STANDARD DWT PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * * * FDB OFFSET DEFINITIONS * FDBLNK EQU 0 LINK TO NEXT FDB FDBECB EQU START+2 ECB START FDBSNR EQU START+16 SECTOR NUMBER FDBRRO EQU START+18 RELATIVE RECORD OFFSET FDBRLE EQU START+20 RECORD LENGTH FDBBLF EQU START+22 BLOCKING FACTOR FDBTNR EQU START+23 TASK NUMBER CALLING TASK FDBVTO EQU START+24 VTOC RECORD NO FDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER FDBEXT EQU START+28 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 START+53 LAST RECORD NUMBER FDBNIF EQU START+52 NO OF INDEX FILES FDBEAL EQU START+56 EA LINK ROOT FDBCRL EQU START+58 CRN LINK ROOT FDBKA EQU START+60 KEY ADDRESS IN DATA FILE FDBMIA EQU START+62 ADDRESS OF MASTER INDEX FDBADF EQU START+64 ADDRESS OF DATA FILE FDB FDBAI1 EQU START+66 ADDRESS OF INDEX FILE FDB FDBDBR EQU START+74 DELAY,BASIC AND REL BUFFER FLAGS FDBMRN EQU START+75 LAST REC NR IN FILE FDBMRO EQU START+78 MAX FDBRRO FDBMEC EQU START+80 MMU ECB DISPLACEMENT FDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS * * CRN BUFFER OFFSET DEFINITIONS * CRNTID EQU 2 TASK ID CRNCDF EQU 4 CURRENT DATA FILE CRNCIF EQU 8 CURRENT INDEX FILE * EJECT * ************* * TIODM * ************* * * DATA 0 DATA MANAGEMENT DEVICE INDEX 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,SCTTCT 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 * LC A1,TTB:ID,A3 GET TASK ID CCK A1,'##' RF(E) TIO13 JUMP IF 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 * IXRARE EQU * INDEXED RANDOM READ LD A3,ECBCW2,A8 =1 ANK A3,/FF REQ KEY LGTH =1 LD A4,FDBRLE,A6 =1 SUK A4,6 MAX LGTH =1 CWR A3,A4 =1 RF(NG) IXRAR1 OK =1 LDKL A1,/8008 LGTH ERR =1 ABL TIODME ERR =1 IXRAR1 EQU * =1 IFT MMUPAG=1 LD A1,ECBCW,A8 GET USER KEY ADDRESS LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT ADR A2,A6 ADD FDB ADDRESS * =1 CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA XIF * DELIXR EQU * DELETE INDEX RECORD * INSIXR EQU * INSERT INDEX RECORD 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 ADK 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 IFT MMUPAG=1 * * MOVE KEYS TO FDB KEY AREAS * LDK A5,8 IXINS3 EQU * LDR A2,A6 FDB DATA ADR A2,A5 LD A3,FDBADF,A2 FDB INDEX RF(Z) IXINS4 NO INDEX LD A1,FDBKA,A3 KEY ADDR AD A1,ECBBA,A8 ADD USER BUF ADDR LDK A2,FDBKEY KEY AREA DISPL ADR A2,A3 ADD FDB ADDR LD A3,FDBRLE,A3 REC LGTH SUK A3,6 KEY LGTH CF A14,MOV:US KEY TO FDB AREA IXINS4 EQU * SUK A5,2 RB(NZ) IXINS3 MORE INDEXS XIF * 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,'#D' CF A15,FNDTID A2:=TTAB ADDR LDR A5,A2 ABL(Z) TASHLT TTAB MISSING IN SCTTCT? 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 9.2 79-11-16 870105040920«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0052 Head {h00=0x0012, h01=0x0050, text=» =1, PR 5649«, t00=0x0000, t01=0x0040}
0x0052…006e Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x0056}
0x006e…0078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0072}
0x0078…00b4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x007c}
0x00b4…00be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00e6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00c2}
0x00e6…00f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ea}
0x00f0…0124 Head {h00=0x0030, h01=0x0050, text=»* TIODM = DATA MANAGEMENT ACTIVATION PART«, t00=0x0000, t01=0x00f4}
0x0124…012e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…0138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…0142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013c}
0x0142…014c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…0156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0150}
0x0156…0160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…019c Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0164}
0x019c…01a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0010}
0x01a6…01ec Head {h00=0x0042, h01=0x0050, text=»* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO«, t00=0x0001, t01=0x001a}
0x01ec…021e Head {h00=0x002e, h01=0x0050, text=»* AND THE DWTADR IN FDB FOR CURRENT FILE«, t00=0x0001, t01=0x0060}
0x021e…0228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x0228…0274 Head {h00=0x0048, h01=0x0050, text=»* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR «, t00=0x0001, t01=0x009c}
0x0274…029c Head {h00=0x0024, h01=0x0050, text=»* FROM A DISC MUST BE ACCESSED«, t00=0x0001, t01=0x00e8}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02e6 Head {h00=0x003c, h01=0x0050, text=»* ENTRY TIODM AND TIODM HOLDS THE START ADDRESS«, t00=0x0001, t01=0x011a}
0x02e6…02f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015a}
0x02f0…02fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0164}
0x02fa…031e Head {h00=0x0020, h01=0x0050, text=»* INPUT A6 = FDB ADDRESS«, t00=0x0001, t01=0x016e}
0x031e…033c (2, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* A7 = ORDER«, t00=0x0002, t01=0x0004}
0x033c…0360 Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0002, t01=0x0022}
0x0360…036a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0046}
0x036a…038e Head {h00=0x0020, h01=0x0050, text=»* USED REGISTERS A1 - A10 «, t00=0x0002, t01=0x0050}
0x038e…0398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x0398…03e0 Head {h00=0x0044, h01=0x0050, text=»* BEFORE EXIT A DMTASK IS ACTIVATED WITH THE FDB ADDRESS IN A1«, t00=0x0002, t01=0x007e}
0x03e0…0402 Head {h00=0x001e, h01=0x0050, text=»* AS THE ONLY PARAMETER «, t00=0x0002, t01=0x00c6}
0x0402…040c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e8}
0x040c…0444 Head {h00=0x0034, h01=0x0050, text=»* THE FOLLOWING WORDS WILL BE SET IN THE FDB: «, t00=0x0002, t01=0x00f2}
0x0444…0466 Head {h00=0x001e, h01=0x0050, text=»* FDBSNR SECTOR NUMBER«, t00=0x0002, t01=0x012a}
0x0466…0492 Head {h00=0x0028, h01=0x0050, text=»* FDBRRO RELATIVE RECORD OFFSET «, t00=0x0002, t01=0x014c}
0x0492…04c4 Head {h00=0x002e, h01=0x0050, text=»* FDBTNR TASK NUMBER FOR CALLING TASK «, t00=0x0002, t01=0x0178}
0x04c4…04f6 Head {h00=0x002e, h01=0x0050, text=»* FDBCEX CURRENT EXTENT BLOCK POINTER «, t00=0x0003, t01=0x001a}
0x04f6…0500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x004c}
0x0500…050a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0056}
0x050a…0552 Head {h00=0x0044, h01=0x0050, text=»* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: «, t00=0x0003, t01=0x0060}
0x0552…0576 Head {h00=0x0020, h01=0x0050, text=»* LDKL A1,/<RETURN CODE>«, t00=0x0003, t01=0x00a8}
0x0576…0590 Head {h00=0x0016, h01=0x0050, text=»* ABL DISEND «, t00=0x0003, t01=0x00cc}
0x0590…059a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e6}
0x059a…05a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f0}
0x05a4…05b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00fa}
0x05b2…05bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0108}
0x05bc…05d2 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0003, t01=0x0112}
0x05d2…05e8 Head {h00=0x0012, h01=0x0050, text=»* ENTRIES *«, t00=0x0003, t01=0x0128}
0x05e8…05fe Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0003, t01=0x013e}
0x05fe…0608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0154}
0x0608…0632 Head {h00=0x0026, h01=0x0050, text=» ENTRY TIODM REFERENCED IN DWTADR «, t00=0x0003, t01=0x015e}
0x0632…0648 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBLNK «, t00=0x0003, t01=0x0188}
0x0648…065e Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBECB «, t00=0x0004, t01=0x000e}
0x065e…0674 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBSNR «, t00=0x0004, t01=0x0024}
0x0674…068a Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBRRO «, t00=0x0004, t01=0x003a}
0x068a…06a0 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBRLE «, t00=0x0004, t01=0x0050}
0x06a0…06b6 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBBLF «, t00=0x0004, t01=0x0066}
0x06b6…06cc Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBTNR «, t00=0x0004, t01=0x007c}
0x06cc…06e2 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBVTO «, t00=0x0004, t01=0x0092}
0x06e2…06f8 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBCEX «, t00=0x0004, t01=0x00a8}
0x06f8…070e Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBEXT «, t00=0x0004, t01=0x00be}
0x070e…0724 Head {h00=0x0012, h01=0x0050, text=» ENTRY EXTDMI «, t00=0x0004, t01=0x00d4}
0x0724…0738 Head {h00=0x0010, h01=0x0050, text=» ENTRY EXTFC«, t00=0x0004, t01=0x00ea}
0x0738…074e Head {h00=0x0012, h01=0x0050, text=» ENTRY EXTLEN «, t00=0x0004, t01=0x00fe}
0x074e…0764 Head {h00=0x0012, h01=0x0050, text=» ENTRY EXTBAS «, t00=0x0004, t01=0x0114}
0x0764…077a Head {h00=0x0012, h01=0x0050, text=» ENTRY EXTELE «, t00=0x0004, t01=0x012a}
0x077a…0790 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBLRN «, t00=0x0004, t01=0x0140}
0x0790…07c8 Head {h00=0x0034, h01=0x0050, text=» ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF «, t00=0x0004, t01=0x0156}
0x07c8…07f2 Head {h00=0x0026, h01=0x0050, text=» ENTRY FDBAI1,CRNTID,CRNCDF,CRNCIF«, t00=0x0004, t01=0x018e}
0x07f2…0816 Head {h00=0x0020, h01=0x0050, text=» ENTRY FDBMRN,FDBDBR,FDBMRO «, t00=0x0005, t01=0x0028}
0x0816…0840 Head {h00=0x0026, h01=0x0050, text=» ENTRY FDBMEC MMU ECB DISPLACEMENT«, t00=0x0005, t01=0x004c}
0x0840…087a Head {h00=0x0036, h01=0x0050, text=» ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS «, t00=0x0005, t01=0x0076}
0x087a…0888 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00b0}
0x0888…0892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00be}
0x0892…08ac Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0005, t01=0x00c8}
0x08ac…08c6 Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x00e2}
0x08c6…08e0 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0005, t01=0x00fc}
0x08e0…08ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0116}
0x08ea…08f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0120}
0x08f4…090a Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTTCT «, t00=0x0005, t01=0x012a}
0x090a…091e Head {h00=0x0010, h01=0x0050, text=» EXTRN TDISP«, t00=0x0005, t01=0x0140}
0x091e…0934 Head {h00=0x0012, h01=0x0050, text=» EXTRN DSUMOD «, t00=0x0005, t01=0x0154}
0x0934…094a Head {h00=0x0012, h01=0x0050, text=» EXTRN FNDTID «, t00=0x0005, t01=0x016a}
0x094a…095e Head {h00=0x0010, h01=0x0050, text=» EXTRN ACTOT«, t00=0x0005, t01=0x0180}
0x095e…0974 (6, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXTRN DISEND «, t00=0x0006, t01=0x0004}
0x0974…0996 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0006, t01=0x001a}
0x0996…09be Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0006, t01=0x003c}
0x09be…09e8 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTTDM DM TASK TTAB ADDRESS«, t00=0x0006, t01=0x0064}
0x09e8…0a06 Head {h00=0x001a, h01=0x0050, text=» EXTRN TTB:ID TASK ID «, t00=0x0006, t01=0x008e}
0x0a06…0a3a Head {h00=0x0030, h01=0x0050, text=» EXTRN MOV:US MOVE FROM USER TO SYSTEM AREA «, t00=0x0006, t01=0x00ac}
0x0a3a…0a60 Head {h00=0x0022, h01=0x0050, text=» EXTRN DMTGCA GET CRN ADDRESS «, t00=0x0006, t01=0x00e0}
0x0a60…0a90 Head {h00=0x002c, h01=0x0050, text=» EXTRN DMTGEA GET EA WORD ADDR AND MASK «, t00=0x0006, t01=0x0106}
0x0a90…0aa6 Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTASK «, t00=0x0006, t01=0x0136}
0x0aa6…0abc Head {h00=0x0012, h01=0x0050, text=» EXTRN CALSNO «, t00=0x0006, t01=0x014c}
0x0abc…0ad0 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBFC«, t00=0x0006, t01=0x0162}
0x0ad0…0ae4 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBBA«, t00=0x0006, t01=0x0176}
0x0ae4…0af8 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRL«, t00=0x0006, t01=0x018a}
0x0af8…0b0c Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBEL«, t00=0x0007, t01=0x000e}
0x0b0c…0b20 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRC«, t00=0x0007, t01=0x0022}
0x0b20…0b34 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBCW«, t00=0x0007, t01=0x0036}
0x0b34…0b5e Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBCW2 SECOND CONTROL WORD «, t00=0x0007, t01=0x004a}
0x0b5e…0b74 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBLEN «, t00=0x0007, t01=0x0074}
0x0b74…0b9a Head {h00=0x0022, h01=0x0050, text=» EXTRN SQR SEQ READ ORDER CODE«, t00=0x0007, t01=0x008a}
0x0b9a…0bc4 Head {h00=0x0026, h01=0x0050, text=» EXTRN EARELB,DWTST,CRNGET,EATEST «, t00=0x0007, t01=0x00b0}
0x0bc4…0bee Head {h00=0x0026, h01=0x0050, text=» EXTRN TASHLT HALT SYSTEM ROUTINE «, t00=0x0007, t01=0x00da}
0x0bee…0bfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0104}
0x0bfc…0c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0112}
0x0c06…0c26 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x011c}
0x0c26…0c46 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x013c}
0x0c46…0c66 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x015c}
0x0c66…0c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017c}
0x0c70…0c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0186}
0x0c7a…0cbe Head {h00=0x0040, h01=0x0050, text=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED «, t00=0x0007, t01=0x0190}
0x0cbe…0ce2 Head {h00=0x0020, h01=0x0050, text=»* BY SETTING INDXAC EQU 1 «, t00=0x0008, t01=0x0044}
0x0ce2…0d10 Head {h00=0x002a, h01=0x0050, text=»* INDXAC EQU 0 OTHRERWISE«, t00=0x0008, t01=0x0068}
0x0d10…0d22 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x0096}
0x0d22…0d38 Head {h00=0x0012, h01=0x0050, text=»INDXAC EQU X:A«, t00=0x0008, t01=0x00a8}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00be}
0x0d42…0d74 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x00c8}
0x0d74…0da2 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00fa}
0x0da2…0dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0128}
0x0dac…0dc0 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0008, t01=0x0132}
0x0dc0…0dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0146}
0x0dca…0dd8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0150}
0x0dd8…0de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015e}
0x0de2…0e02 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0168}
0x0e02…0e22 Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x0008, t01=0x0188}
0x0e22…0e42 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0018}
0x0e42…0e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e4c…0e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e56…0e70 Head {h00=0x0016, h01=0x0050, text=» DATA 0,0 4 WORDS «, t00=0x0009, t01=0x004c}
0x0e70…0e82 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0009, t01=0x0066}
0x0e82…0ea8 Head {h00=0x0022, h01=0x0050, text=»TIOD14 EQU *-2 TIODM A14 STACK«, t00=0x0009, t01=0x0078}
0x0ea8…0eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eb2…0ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a8}
0x0ebc…0ee6 Head {h00=0x0026, h01=0x0050, text=»TIODMF EQU * TIODM FUNCTION TABLE «, t00=0x0009, t01=0x00b2}
0x0ee6…0f00 Head {h00=0x0016, h01=0x0050, text=» DATA CLOSE CLOSE «, t00=0x0009, t01=0x00dc}
0x0f00…0f26 Head {h00=0x0022, h01=0x0050, text=» DATA REVTOC READ VTOC RECORD «, t00=0x0009, t01=0x00f6}
0x0f26…0f3c Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0009, t01=0x011c}
0x0f3c…0f62 Head {h00=0x0022, h01=0x0050, text=» DATA IXRDNX INDEXED READ NEXT«, t00=0x0009, t01=0x0132}
0x0f62…0f84 Head {h00=0x001e, h01=0x0050, text=» DATA IXINS INDEXED INSERT«, t00=0x0009, t01=0x0158}
0x0f84…0fa6 Head {h00=0x001e, h01=0x0050, text=» DATA IXDEL INDEXED DELETE«, t00=0x0009, t01=0x017a}
0x0fa6…0fca Head {h00=0x0020, h01=0x0050, text=» DATA IXREWR INDEXED REWRITE«, t00=0x000a, t01=0x000c}
0x0fca…0ff2 Head {h00=0x0024, h01=0x0050, text=» DATA IXRARE INDEXED RANDOM READ«, t00=0x000a, t01=0x0030}
0x0ff2…0ffe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0058}
0x0ffe…1014 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x000a, t01=0x0064}
0x1014…1028 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x007a}
0x1028…103c Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x008e}
0x103c…1050 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x00a2}
0x1050…1064 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x00b6}
0x1064…1078 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x00ca}
0x1078…1084 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00de}
0x1084…10a6 Head {h00=0x001e, h01=0x0050, text=» DATA RANDEL RANDOM DELETE«, t00=0x000a, t01=0x00ea}
0x10a6…10ca Head {h00=0x0020, h01=0x0050, text=» DATA RANWRITE RANDOM WRITE «, t00=0x000a, t01=0x010c}
0x10ca…10ec Head {h00=0x001e, h01=0x0050, text=» DATA RANREAD RANDOM READ «, t00=0x000a, t01=0x0130}
0x10ec…111a Head {h00=0x002a, h01=0x0050, text=» DATA RELXAC RELEASE EXCLUSIVE ACCESS «, t00=0x000a, t01=0x0152}
0x111a…1142 Head {h00=0x0024, h01=0x0050, text=» DATA SEQWRITE SEQUENTIAL WRITE «, t00=0x000a, t01=0x0180}
0x1142…1168 Head {h00=0x0022, h01=0x0050, text=» DATA SEQREAD SEQUENTIAL READ «, t00=0x000b, t01=0x0018}
0x1168…118a Head {h00=0x001e, h01=0x0050, text=» DATA GETCUR GET CURRENCY «, t00=0x000b, t01=0x003e}
0x118a…11a0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000b, t01=0x0060}
0x11a0…11c8 Head {h00=0x0024, h01=0x0050, text=» DATA INSIXR INSERT INDEX RECORD«, t00=0x000b, t01=0x0076}
0x11c8…11f0 Head {h00=0x0024, h01=0x0050, text=» DATA DELIXR DELETE INDEX RECORD«, t00=0x000b, t01=0x009e}
0x11f0…11fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00c6}
0x11fc…1212 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x000b, t01=0x00d2}
0x1212…1226 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000b, t01=0x00e8}
0x1226…123a Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000b, t01=0x00fc}
0x123a…1246 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0110}
0x1246…1270 Head {h00=0x0026, h01=0x0050, text=» DATA GETCUX GET CURRENT INDEX REC«, t00=0x000b, t01=0x011c}
0x1270…129a Head {h00=0x0026, h01=0x0050, text=» DATA RANWRD DELAYED RANDOM WRITE «, t00=0x000b, t01=0x0146}
0x129a…12c4 Head {h00=0x0026, h01=0x0050, text=» DATA RANDLD DELAYED RANDOM DELETE«, t00=0x000b, t01=0x0170}
0x12c4…12ec Head {h00=0x0024, h01=0x0050, text=» DATA RANREB RAND READ REL BUFF «, t00=0x000c, t01=0x000a}
0x12ec…1308 Head {h00=0x0018, h01=0x0050, text=» DATA SETLRN SET LRN«, t00=0x000c, t01=0x0032}
0x1308…1312 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004e}
0x1312…131c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131c…133a Head {h00=0x001a, h01=0x0050, text=»TIODMO EQU * DM ORDERS«, t00=0x000c, t01=0x0062}
0x133a…1362 Head {h00=0x0024, h01=0x0050, text=» DATA /221E CLOSE,IND READ NEXT «, t00=0x000c, t01=0x0080}
0x1362…138c Head {h00=0x0026, h01=0x0050, text=» DATA /1D1C IND INSERT,IND DELETE «, t00=0x000c, t01=0x00a8}
0x138c…13be Head {h00=0x002e, h01=0x0050, text=» DATA /1B1A INDEXED REWRITE,IND RAND READ «, t00=0x000c, t01=0x00d2}
0x13be…13e6 Head {h00=0x0024, h01=0x0050, text=» DATA /0C0B RAND DEL, RAND WRITE«, t00=0x000c, t01=0x0104}
0x13e6…1412 Head {h00=0x0028, h01=0x0050, text=» DATA /0A09 RAND READ, REL EXCL ACC «, t00=0x000c, t01=0x012c}
0x1412…143c Head {h00=0x0026, h01=0x0050, text=» DATA /0807 SPEC. WR. , SPEC. WR. «, t00=0x000c, t01=0x0158}
0x143c…1466 Head {h00=0x0026, h01=0x0050, text=» DATA /0605 SEQ WR. , BASIC WRITE «, t00=0x000c, t01=0x0182}
0x1466…148e Head {h00=0x0024, h01=0x0050, text=» DATA /0302 READ VTOC, SEQ READ «, t00=0x000d, t01=0x001c}
0x148e…14ba Head {h00=0x0028, h01=0x0050, text=» DATA /0123 BASIC READ,GET CURRENCY «, t00=0x000d, t01=0x0044}
0x14ba…14e8 Head {h00=0x002a, h01=0x0050, text=» DATA /1F20 INS INDEXREC,DEL INDEXREC «, t00=0x000d, t01=0x0070}
0x14e8…151a Head {h00=0x002e, h01=0x0050, text=» DATA /240D GET CURR INDEX,DELAYED RAND WR«, t00=0x000d, t01=0x009e}
0x151a…154e Head {h00=0x0030, h01=0x0050, text=» DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF «, t00=0x000d, t01=0x00d0}
0x154e…156a Head {h00=0x0018, h01=0x0050, text=» DATA /2500 SET LRN «, t00=0x000d, t01=0x0104}
0x156a…1574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0120}
0x1574…159a Head {h00=0x0022, h01=0x0050, text=»TIODMI EQU * ORDER INDEX TABLE«, t00=0x000d, t01=0x012a}
0x159a…15ae Head {h00=0x0010, h01=0x0050, text=» DATA /0004 «, t00=0x000d, t01=0x0150}
0x15ae…15c2 Head {h00=0x0010, h01=0x0050, text=» DATA /0608 «, t00=0x000d, t01=0x0164}
0x15c2…15d6 Head {h00=0x0010, h01=0x0050, text=» DATA /0A0C «, t00=0x000d, t01=0x0178}
0x15d6…15ea Head {h00=0x0010, h01=0x0050, text=» DATA /0E10 «, t00=0x000d, t01=0x018c}
0x15ea…15fe Head {h00=0x0010, h01=0x0050, text=» DATA /1214 «, t00=0x000e, t01=0x0010}
0x15fe…1612 Head {h00=0x0010, h01=0x0050, text=» DATA /1616 «, t00=0x000e, t01=0x0024}
0x1612…1626 Head {h00=0x0010, h01=0x0050, text=» DATA /1616 «, t00=0x000e, t01=0x0038}
0x1626…163a Head {h00=0x0010, h01=0x0050, text=» DATA /0218 «, t00=0x000e, t01=0x004c}
0x163a…164e Head {h00=0x0010, h01=0x0050, text=» DATA /181A «, t00=0x000e, t01=0x0060}
0x164e…1662 Head {h00=0x0010, h01=0x0050, text=» DATA /1C1E «, t00=0x000e, t01=0x0074}
0x1662…1676 Head {h00=0x0010, h01=0x0050, text=» DATA /2022 «, t00=0x000e, t01=0x0088}
0x1676…168a Head {h00=0x0010, h01=0x0050, text=» DATA /2426 «, t00=0x000e, t01=0x009c}
0x168a…16a6 Head {h00=0x0018, h01=0x0050, text=» DATA /281A SET LRN «, t00=0x000e, t01=0x00b0}
0x16a6…16b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16b0…16d8 Head {h00=0x0024, h01=0x0050, text=»NOOFOR EQU 25 NO OF ORDER CODES «, t00=0x000e, t01=0x00d6}
0x16d8…16e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00fe}
0x16e2…16f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0108}
0x16f0…16fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0116}
0x16fa…1704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0120}
0x1704…173a Head {h00=0x0032, h01=0x0050, text=»DWTDRD EQU /10 START OF NON-STANDARD DWT PART «, t00=0x000e, t01=0x012a}
0x173a…1744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0160}
0x1744…175a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000e, t01=0x016a}
0x175a…1772 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000e, t01=0x0180}
0x1772…177e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0008}
0x177e…1788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0014}
0x1788…179e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x001e}
0x179e…17b8 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000f, t01=0x0034}
0x17b8…17c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x004e}
0x17c4…17ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005a}
0x17ce…17d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0064}
0x17d8…17fa Head {h00=0x001e, h01=0x0050, text=»* FDB OFFSET DEFINITIONS«, t00=0x000f, t01=0x006e}
0x17fa…1804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0090}
0x1804…182a Head {h00=0x0022, h01=0x0050, text=»FDBLNK EQU 0 LINK TO NEXT FDB «, t00=0x000f, t01=0x009a}
0x182a…184e Head {h00=0x0020, h01=0x0050, text=»FDBECB EQU START+2 ECB START«, t00=0x000f, t01=0x00c0}
0x184e…1878 Head {h00=0x0026, h01=0x0050, text=»FDBSNR EQU START+16 SECTOR NUMBER «, t00=0x000f, t01=0x00e4}
0x1878…18aa Head {h00=0x002e, h01=0x0050, text=»FDBRRO EQU START+18 RELATIVE RECORD OFFSET«, t00=0x000f, t01=0x010e}
0x18aa…18d4 Head {h00=0x0026, h01=0x0050, text=»FDBRLE EQU START+20 RECORD LENGTH «, t00=0x000f, t01=0x0140}
0x18d4…1900 Head {h00=0x0028, h01=0x0050, text=»FDBBLF EQU START+22 BLOCKING FACTOR «, t00=0x000f, t01=0x016a}
0x1900…1934 Head {h00=0x0030, h01=0x0050, text=»FDBTNR EQU START+23 TASK NUMBER CALLING TASK«, t00=0x0010, t01=0x0008}
0x1934…195e Head {h00=0x0026, h01=0x0050, text=»FDBVTO EQU START+24 VTOC RECORD NO«, t00=0x0010, t01=0x003c}
0x195e…1996 Head {h00=0x0034, h01=0x0050, text=»FDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER«, t00=0x0010, t01=0x0066}
0x1996…19ca Head {h00=0x0030, h01=0x0050, text=»FDBEXT EQU START+28 FIRST EXTENT BLOCK START«, t00=0x0010, t01=0x009e}
0x19ca…19ec Head {h00=0x001e, h01=0x0050, text=»EXTDMI EQU 0 DMTAST IDENT «, t00=0x0010, t01=0x00d2}
0x19ec…1a10 Head {h00=0x0020, h01=0x0050, text=»EXTFC EQU 1 VOLUME FILE CODE«, t00=0x0010, t01=0x00f4}
0x1a10…1a32 Head {h00=0x001e, h01=0x0050, text=»EXTLEN EQU 2 EXTENT LENGTH«, t00=0x0010, t01=0x0118}
0x1a32…1a52 Head {h00=0x001c, h01=0x0050, text=»EXTBAS EQU 4 EXTENT BASE«, t00=0x0010, t01=0x013a}
0x1a52…1a78 Head {h00=0x0022, h01=0x0050, text=»EXTELE EQU 6 EXT ENTRY LENGTH «, t00=0x0010, t01=0x015a}
0x1a78…1aa6 Head {h00=0x002a, h01=0x0050, text=»FDBLRN EQU START+53 LAST RECORD NUMBER«, t00=0x0010, t01=0x0180}
0x1aa6…1ad4 Head {h00=0x002a, h01=0x0050, text=»FDBNIF EQU START+52 NO OF INDEX FILES «, t00=0x0011, t01=0x001e}
0x1ad4…1afc Head {h00=0x0024, h01=0x0050, text=»FDBEAL EQU START+56 EA LINK ROOT«, t00=0x0011, t01=0x004c}
0x1afc…1b26 Head {h00=0x0026, h01=0x0050, text=»FDBCRL EQU START+58 CRN LINK ROOT «, t00=0x0011, t01=0x0074}
0x1b26…1b5a Head {h00=0x0030, h01=0x0050, text=»FDBKA EQU START+60 KEY ADDRESS IN DATA FILE «, t00=0x0011, t01=0x009e}
0x1b5a…1b8e Head {h00=0x0030, h01=0x0050, text=»FDBMIA EQU START+62 ADDRESS OF MASTER INDEX «, t00=0x0011, t01=0x00d2}
0x1b8e…1bc2 Head {h00=0x0030, h01=0x0050, text=»FDBADF EQU START+64 ADDRESS OF DATA FILE FDB«, t00=0x0011, t01=0x0106}
0x1bc2…1bf8 Head {h00=0x0032, h01=0x0050, text=»FDBAI1 EQU START+66 ADDRESS OF INDEX FILE FDB «, t00=0x0011, t01=0x013a}
0x1bf8…1c34 Head {h00=0x0038, h01=0x0050, text=»FDBDBR EQU START+74 DELAY,BASIC AND REL BUFFER FLAGS«, t00=0x0011, t01=0x0170}
0x1c34…1c64 Head {h00=0x002c, h01=0x0050, text=»FDBMRN EQU START+75 LAST REC NR IN FILE «, t00=0x0012, t01=0x001c}
0x1c64…1c8a Head {h00=0x0022, h01=0x0050, text=»FDBMRO EQU START+78 MAX FDBRRO«, t00=0x0012, t01=0x004c}
0x1c8a…1cba Head {h00=0x002c, h01=0x0050, text=»FDBMEC EQU START+80 MMU ECB DISPLACEMENT«, t00=0x0012, t01=0x0072}
0x1cba…1cfa Head {h00=0x003c, h01=0x0050, text=»FDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS «, t00=0x0012, t01=0x00a2}
0x1cfa…1d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e2}
0x1d04…1d2e Head {h00=0x0026, h01=0x0050, text=»* CRN BUFFER OFFSET DEFINITIONS «, t00=0x0012, t01=0x00ec}
0x1d2e…1d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0116}
0x1d38…1d54 Head {h00=0x0018, h01=0x0050, text=»CRNTID EQU 2 TASK ID«, t00=0x0012, t01=0x0120}
0x1d54…1d7a Head {h00=0x0022, h01=0x0050, text=»CRNCDF EQU 4 CURRENT DATA FILE«, t00=0x0012, t01=0x013c}
0x1d7a…1da2 Head {h00=0x0024, h01=0x0050, text=»CRNCIF EQU 8 CURRENT INDEX FILE «, t00=0x0012, t01=0x0162}
0x1da2…1dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018a}
0x1dac…1dba (19, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0004}
0x1dba…1dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0012}
0x1dc4…1dda Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0013, t01=0x001c}
0x1dda…1df0 Head {h00=0x0012, h01=0x0050, text=»* TIODM * «, t00=0x0013, t01=0x0032}
0x1df0…1e06 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0013, t01=0x0048}
0x1e06…1e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005e}
0x1e10…1e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0068}
0x1e1a…1e46 Head {h00=0x0028, h01=0x0050, text=» DATA 0 DATA MANAGEMENT DEVICE INDEX«, t00=0x0013, t01=0x0072}
0x1e46…1e70 Head {h00=0x0026, h01=0x0050, text=»TIODM DATA *+2 TIODM START ADDRESS«, t00=0x0013, t01=0x009e}
0x1e70…1e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c8}
0x1e7a…1e96 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0013, t01=0x00d2}
0x1e96…1ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ee}
0x1ea0…1eb8 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,TIOD14«, t00=0x0013, t01=0x00f8}
0x1eb8…1ec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0110}
0x1ec2…1efc Head {h00=0x0036, h01=0x0050, text=»* GET CALLING TASK NUMBER AND STORE IT IN FDBTNR«, t00=0x0013, t01=0x011a}
0x1efc…1f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0154}
0x1f06…1f18 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0013, t01=0x015e}
0x1f18…1f34 Head {h00=0x0018, h01=0x0050, text=»TIOD05 LD A1,SCTTCT «, t00=0x0013, t01=0x0170}
0x1f34…1f46 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0013, t01=0x018c}
0x1f46…1f5a Head {h00=0x0010, h01=0x0050, text=» LD A3,2,A1 «, t00=0x0014, t01=0x000e}
0x1f5a…1f72 Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTTDM,A6«, t00=0x0014, t01=0x0022}
0x1f72…1f92 Head {h00=0x001c, h01=0x0050, text=» RF(E) TIOD10 THIS TASK «, t00=0x0014, t01=0x003a}
0x1f92…1fa6 Head {h00=0x0010, h01=0x0050, text=» ADK A2,2 NO«, t00=0x0014, t01=0x005a}
0x1fa6…1fc2 Head {h00=0x0018, h01=0x0050, text=» RB TIOD05 TRY NEXT «, t00=0x0014, t01=0x006e}
0x1fc2…1fd6 Head {h00=0x0010, h01=0x0050, text=»TIOD10 EQU *«, t00=0x0014, t01=0x008a}
0x1fd6…1ffa Head {h00=0x0020, h01=0x0050, text=» LC A1,TTB:ID,A3 GET TASK ID«, t00=0x0014, t01=0x009e}
0x1ffa…200e Head {h00=0x0010, h01=0x0050, text=» CCK A1,'##'«, t00=0x0014, t01=0x00c2}
0x200e…203a Head {h00=0x0028, h01=0x0050, text=» RF(E) TIO13 JUMP IF DMTASK CALLING «, t00=0x0014, t01=0x00d6}
0x203a…2044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0102}
0x2044…2068 Head {h00=0x0020, h01=0x0050, text=»* SET TASK ID FOR ALL FDBS«, t00=0x0014, t01=0x010c}
0x2068…2072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0130}
0x2072…208e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0014, t01=0x013a}
0x208e…20a6 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,FDBADF «, t00=0x0014, t01=0x0156}
0x20a6…20ca Head {h00=0x0020, h01=0x0050, text=» LDK A3,10 MAX NO OF FDB * 2«, t00=0x0014, t01=0x016e}
0x20ca…20ee (21, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/4000 REQ BUSY BIT «, t00=0x0015, t01=0x0004}
0x20ee…2102 Head {h00=0x0010, h01=0x0050, text=»TIO11 EQU * «, t00=0x0015, t01=0x0028}
0x2102…2114 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0015, t01=0x003c}
0x2114…2136 Head {h00=0x001e, h01=0x0050, text=» RF(N) TIO13 ALL FDB READY«, t00=0x0015, t01=0x004e}
0x2136…2152 Head {h00=0x0018, h01=0x0050, text=» LDR* A5,A1 FDB ADDR«, t00=0x0015, t01=0x0070}
0x2152…216e Head {h00=0x0018, h01=0x0050, text=» RF(E) TIO12 NO FDB «, t00=0x0015, t01=0x008c}
0x216e…218e Head {h00=0x001c, h01=0x0050, text=» SC A2,FDBTNR,A5 TASK ID«, t00=0x0015, t01=0x00a8}
0x218e…21b4 Head {h00=0x0022, h01=0x0050, text=» ORS A4,DWTST,A5 REQ BUSY BIT «, t00=0x0015, t01=0x00c8}
0x21b4…21c8 Head {h00=0x0010, h01=0x0050, text=»TIO12 EQU * «, t00=0x0015, t01=0x00ee}
0x21c8…21e8 Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 NEXT FDB ADDR «, t00=0x0015, t01=0x0102}
0x21e8…21fa Head {h00=0x000e, h01=0x0050, text=» RB TIO11 «, t00=0x0015, t01=0x0122}
0x21fa…220e Head {h00=0x0010, h01=0x0050, text=»TIO13 EQU * «, t00=0x0015, t01=0x0134}
0x220e…2220 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0015, t01=0x0148}
0x2220…222c Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0015, t01=0x015a}
0x222c…223e Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0015, t01=0x0166}
0x223e…2248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0178}
0x2248…2266 Head {h00=0x001a, h01=0x0050, text=»* CHECK ORDER IN A7 «, t00=0x0015, t01=0x0182}
0x2266…2296 Head {h00=0x002c, h01=0x0050, text=»* PUT ORDER INDEX IN DWTOR RIGHT BYTE «, t00=0x0016, t01=0x0010}
0x2296…22a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0040}
0x22a0…22c4 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 REQUEST ERROR«, t00=0x0016, t01=0x004a}
0x22c4…22ee Head {h00=0x0026, h01=0x0050, text=» LDK A2,NOOFOR-1 NO OF ORDERS - 1 «, t00=0x0016, t01=0x006e}
0x22ee…2324 Head {h00=0x0032, h01=0x0050, text=»TIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO «, t00=0x0016, t01=0x0098}
0x2324…2340 Head {h00=0x0018, h01=0x0050, text=» RF(E) TIOD20 MATCH «, t00=0x0016, t01=0x00ce}
0x2340…2352 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0016, t01=0x00ea}
0x2352…236e Head {h00=0x0018, h01=0x0050, text=» RB(NN) TIOD15 >= 0 «, t00=0x0016, t01=0x00fc}
0x236e…238e Head {h00=0x001c, h01=0x0050, text=» ABL TIODME ERROR RETURN«, t00=0x0016, t01=0x0118}
0x238e…23a2 Head {h00=0x0010, h01=0x0050, text=»TIOD20 EQU *«, t00=0x0016, t01=0x0138}
0x23a2…23ba Head {h00=0x0014, h01=0x0050, text=» LC A2,TIODMI,A2«, t00=0x0016, t01=0x014c}
0x23ba…23e4 Head {h00=0x0026, h01=0x0050, text=» SC A2,DWTOR+1,A6 SAVE ORDER INDEX«, t00=0x0016, t01=0x0164}
0x23e4…2410 Head {h00=0x0028, h01=0x0050, text=» ABI TIODMF,A2 BRANCH TO DM FUNCTION«, t00=0x0016, t01=0x018e}
0x2410…241e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x002a}
0x241e…2428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0038}
0x2428…2450 Head {h00=0x0024, h01=0x0050, text=»IXRARE EQU * INDEXED RANDOM READ«, t00=0x0017, t01=0x0042}
0x2450…246c Head {h00=0x0018, h01=0x0050, text=» LD A3,ECBCW2,A8 =1«, t00=0x0017, t01=0x006a}
0x246c…2490 Head {h00=0x0020, h01=0x0050, text=» ANK A3,/FF REQ KEY LGTH =1 «, t00=0x0017, t01=0x0086}
0x2490…24ac Head {h00=0x0018, h01=0x0050, text=» LD A4,FDBRLE,A6 =1«, t00=0x0017, t01=0x00aa}
0x24ac…24ca Head {h00=0x001a, h01=0x0050, text=» SUK A4,6 MAX LGTH =1 «, t00=0x0017, t01=0x00c6}
0x24ca…24e0 Head {h00=0x0012, h01=0x0050, text=» CWR A3,A4 =1«, t00=0x0017, t01=0x00e4}
0x24e0…24fc Head {h00=0x0018, h01=0x0050, text=» RF(NG) IXRAR1 OK =1«, t00=0x0017, t01=0x00fa}
0x24fc…251e Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8008 LGTH ERR =1«, t00=0x0017, t01=0x0116}
0x251e…2538 Head {h00=0x0016, h01=0x0050, text=» ABL TIODME ERR =1«, t00=0x0017, t01=0x0138}
0x2538…2550 Head {h00=0x0014, h01=0x0050, text=»IXRAR1 EQU * =1«, t00=0x0017, t01=0x0152}
0x2550…2566 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0017, t01=0x016a}
0x2566…2592 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBCW,A8 GET USER KEY ADDRESS«, t00=0x0017, t01=0x0180}
0x2592…25c6 Head {h00=0x0030, h01=0x0050, text=» LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT«, t00=0x0018, t01=0x001c}
0x25c6…25e8 Head {h00=0x001e, h01=0x0050, text=» ADR A2,A6 ADD FDB ADDRESS«, t00=0x0018, t01=0x0050}
0x25e8…25f8 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0018, t01=0x0072}
0x25f8…262e Head {h00=0x0032, h01=0x0050, text=» CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA «, t00=0x0018, t01=0x0082}
0x262e…263a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00b8}
0x263a…2644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c4}
0x2644…266c Head {h00=0x0024, h01=0x0050, text=»DELIXR EQU * DELETE INDEX RECORD«, t00=0x0018, t01=0x00ce}
0x266c…2676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f6}
0x2676…269e Head {h00=0x0024, h01=0x0050, text=»INSIXR EQU * INSERT INDEX RECORD«, t00=0x0018, t01=0x0100}
0x269e…26b2 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-1 «, t00=0x0018, t01=0x0128}
0x26b2…26c4 Head {h00=0x000e, h01=0x0050, text=» RF TIOC10«, t00=0x0018, t01=0x013c}
0x26c4…26ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x014e}
0x26ce…26f4 Head {h00=0x0022, h01=0x0050, text=»REVTOC EQU * READ VTOC RECORD «, t00=0x0018, t01=0x0158}
0x26f4…26fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017e}
0x26fe…271e Head {h00=0x001c, h01=0x0050, text=»CLOSE EQU * CLOSE A FILE«, t00=0x0018, t01=0x0188}
0x271e…2730 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0019, t01=0x0018}
0x2730…2744 Head {h00=0x0010, h01=0x0050, text=»TIOC10 EQU *«, t00=0x0019, t01=0x002a}
0x2744…276c Head {h00=0x0024, h01=0x0050, text=» ST A4,FDBRRO,A6 MARK ORDER TYPE«, t00=0x0019, t01=0x003e}
0x276c…277e Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0019, t01=0x0066}
0x277e…27ae Head {h00=0x002c, h01=0x0050, text=» ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE «, t00=0x0019, t01=0x0078}
0x27ae…27b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a8}
0x27b8…27e4 Head {h00=0x0028, h01=0x0050, text=»* LET FDBCEX POINT TO FIRST EXTENT«, t00=0x0019, t01=0x00b2}
0x27e4…27ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00de}
0x27ee…2800 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x0019, t01=0x00e8}
0x2800…2816 Head {h00=0x0012, h01=0x0050, text=» ADK A4,FDBEXT«, t00=0x0019, t01=0x00fa}
0x2816…282e Head {h00=0x0014, h01=0x0050, text=» ST A4,FDBCEX,A6«, t00=0x0019, t01=0x0110}
0x282e…2852 Head {h00=0x0020, h01=0x0050, text=» ABL TIOD68 ACTIVATE DMTASK «, t00=0x0019, t01=0x0128}
0x2852…2860 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x014c}
0x2860…286a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015a}
0x286a…2898 Head {h00=0x002a, h01=0x0050, text=»RELXAC EQU * RELEASE EXCLUSIVE ACCESS «, t00=0x0019, t01=0x0164}
0x2898…28b4 (26, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x001a, t01=0x0004}
0x28b4…28e8 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK «, t00=0x001a, t01=0x0020}
0x28e8…28fe Head {h00=0x0012, h01=0x0050, text=» CF A14,EARELB«, t00=0x001a, t01=0x0054}
0x28fe…2912 Head {h00=0x0010, h01=0x0050, text=»REL090 EQU *«, t00=0x001a, t01=0x006a}
0x2912…2932 Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 CORRECT RETURN«, t00=0x001a, t01=0x007e}
0x2932…2946 Head {h00=0x0010, h01=0x0050, text=» ABL TIODME «, t00=0x001a, t01=0x009e}
0x2946…2954 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00b2}
0x2954…2980 Head {h00=0x0028, h01=0x0050, text=»SETLRN EQU * SET LAST RECORD NUMBER «, t00=0x001a, t01=0x00c0}
0x2980…299a Head {h00=0x0016, h01=0x0050, text=» LC A1,ECBCW+3,A8 «, t00=0x001a, t01=0x00ec}
0x299a…29b2 Head {h00=0x0014, h01=0x0050, text=» SC A1,FDBLRN,A6«, t00=0x001a, t01=0x0106}
0x29b2…29ca Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A8 «, t00=0x001a, t01=0x011e}
0x29ca…29e4 Head {h00=0x0016, h01=0x0050, text=» ST A1,FDBLRN+1,A6«, t00=0x001a, t01=0x0136}
0x29e4…29f6 Head {h00=0x000e, h01=0x0050, text=» RB REL090«, t00=0x001a, t01=0x0150}
0x29f6…2a04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0162}
0x2a04…2a34 Head {h00=0x002c, h01=0x0050, text=»GETCUR LDK A7,CRNCDF+1 GET CURR DATA REC«, t00=0x001a, t01=0x0170}
0x2a34…2a46 Head {h00=0x000e, h01=0x0050, text=» RF GET010«, t00=0x001b, t01=0x0010}
0x2a46…2a78 Head {h00=0x002e, h01=0x0050, text=»GETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC «, t00=0x001b, t01=0x0022}
0x2a78…2a9a Head {h00=0x001e, h01=0x0050, text=»GET010 LDR A1,A6 FDB ADDR «, t00=0x001b, t01=0x0054}
0x2a9a…2ac0 Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x001b, t01=0x0076}
0x2ac0…2ae4 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A2 ADDR CURR REC NO «, t00=0x001b, t01=0x009c}
0x2ae4…2af6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001b, t01=0x00c0}
0x2af6…2b14 Head {h00=0x001a, h01=0x0050, text=» LC A3,-1,A7 FILE CODE«, t00=0x001b, t01=0x00d2}
0x2b14…2b2c Head {h00=0x0014, h01=0x0050, text=» CC A3,ECBFC,A8 «, t00=0x001b, t01=0x00f0}
0x2b2c…2b50 Head {h00=0x0020, h01=0x0050, text=» RF(E) GET020 SAME FILE CODE«, t00=0x001b, t01=0x0108}
0x2b50…2b6a Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+3,A8 «, t00=0x001b, t01=0x012c}
0x2b6a…2b7c Head {h00=0x000e, h01=0x0050, text=» RF GET030«, t00=0x001b, t01=0x0146}
0x2b7c…2b90 Head {h00=0x0010, h01=0x0050, text=»GET020 EQU *«, t00=0x001b, t01=0x0158}
0x2b90…2ba2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A7«, t00=0x001b, t01=0x016c}
0x2ba2…2bc2 Head {h00=0x001c, h01=0x0050, text=» SC A2,ECBCW+3,A8 REC NO«, t00=0x001b, t01=0x017e}
0x2bc2…2bd6 Head {h00=0x0010, h01=0x0050, text=» LD A2,1,A7 «, t00=0x001c, t01=0x000e}
0x2bd6…2bea Head {h00=0x0010, h01=0x0050, text=»GET030 EQU *«, t00=0x001c, t01=0x0022}
0x2bea…2c02 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x001c, t01=0x0036}
0x2c02…2c14 Head {h00=0x000e, h01=0x0050, text=» RB REL090«, t00=0x001c, t01=0x004e}
0x2c14…2c22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0060}
0x2c22…2c48 Head {h00=0x0022, h01=0x0050, text=»SEQREAD EQU * SEQUENTIAL READ «, t00=0x001c, t01=0x006e}
0x2c48…2c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0094}
0x2c52…2c7a Head {h00=0x0024, h01=0x0050, text=»* FIND CRN+1 AND TEST IF > LRN«, t00=0x001c, t01=0x009e}
0x2c7a…2c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c6}
0x2c84…2ca0 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x001c, t01=0x00d0}
0x2ca0…2cc6 Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN-BUFFER «, t00=0x001c, t01=0x00ec}
0x2cc6…2cd8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001c, t01=0x0112}
0x2cd8…2cf2 Head {h00=0x0016, h01=0x0050, text=» LC A1,CRNCDF+1,A2«, t00=0x001c, t01=0x0124}
0x2cf2…2d1c Head {h00=0x0026, h01=0x0050, text=» LD A2,CRNCDF+2,A2 CURR LOG REC NO«, t00=0x001c, t01=0x013e}
0x2d1c…2d34 Head {h00=0x0014, h01=0x0050, text=» ADK A2,1 CRN+1 «, t00=0x001c, t01=0x0168}
0x2d34…2d52 Head {h00=0x001a, h01=0x0050, text=» RF(O) SEQR10 OVERFLOW«, t00=0x001c, t01=0x0180}
0x2d52…2d64 Head {h00=0x000e, h01=0x0050, text=» RF SEQR20«, t00=0x001d, t01=0x000e}
0x2d64…2d78 Head {h00=0x0010, h01=0x0050, text=»SEQR10 EQU *«, t00=0x001d, t01=0x0020}
0x2d78…2d9e Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/7FFF REMOVE OVERFLOW«, t00=0x001d, t01=0x0034}
0x2d9e…2dba Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x001d, t01=0x005a}
0x2dba…2dce Head {h00=0x0010, h01=0x0050, text=»SEQR20 EQU *«, t00=0x001d, t01=0x0076}
0x2dce…2dee Head {h00=0x001c, h01=0x0050, text=» SC A1,ECBCW+3,A8 REC NO«, t00=0x001d, t01=0x008a}
0x2dee…2e06 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x001d, t01=0x00aa}
0x2e06…2e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c2}
0x2e10…2e38 Head {h00=0x0024, h01=0x0050, text=»* CONTINUE AS FOR RANDOM READ «, t00=0x001d, t01=0x00cc}
0x2e38…2e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f4}
0x2e42…2e50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00fe}
0x2e50…2e72 Head {h00=0x001e, h01=0x0050, text=»RANREAD EQU * RANDOM READ «, t00=0x001d, t01=0x010c}
0x2e72…2e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012e}
0x2e7c…2ea4 Head {h00=0x0024, h01=0x0050, text=»RANREB EQU * RAND READ REL BUFF «, t00=0x001d, t01=0x0138}
0x2ea4…2eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0160}
0x2eae…2ecc Head {h00=0x001a, h01=0x0050, text=»* TEST IF ECBRL <= 0«, t00=0x001d, t01=0x016a}
0x2ecc…2ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0188}
0x2ed6…2ee8 (30, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001e, t01=0x0004}
0x2ee8…2f08 Head {h00=0x001c, h01=0x0050, text=» LC A2,ECBCW+3,A8 REC NO«, t00=0x001e, t01=0x0016}
0x2f08…2f20 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBCW,A8 «, t00=0x001e, t01=0x0036}
0x2f20…2f44 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/8 INCORRECT LENGTH «, t00=0x001e, t01=0x004e}
0x2f44…2f5c Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBRL,A8 «, t00=0x001e, t01=0x0072}
0x2f5c…2f8a Head {h00=0x002a, h01=0x0050, text=» RF(NP) TIODME ERROR RETURN IF RL <= 0«, t00=0x001e, t01=0x008a}
0x2f8a…2f94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b8}
0x2f94…2fc2 Head {h00=0x002a, h01=0x0050, text=»* EA MUST NOT BE SET FOR OTHER TASK «, t00=0x001e, t01=0x00c2}
0x2fc2…2fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f0}
0x2fcc…2fe8 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x001e, t01=0x00fa}
0x2fe8…2ffe Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x001e, t01=0x0116}
0x2ffe…3018 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A4 RTN INF«, t00=0x001e, t01=0x012c}
0x3018…303c Head {h00=0x0020, h01=0x0050, text=» RF(N) TIODPE EA OTHER TASK «, t00=0x001e, t01=0x0146}
0x303c…304e Head {h00=0x000e, h01=0x0050, text=» RF TIODMA«, t00=0x001e, t01=0x016a}
0x304e…305c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x017c}
0x305c…3080 Head {h00=0x0020, h01=0x0050, text=»IXINS EQU * INDEXED INSRERT «, t00=0x001e, t01=0x018a}
0x3080…3096 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x001e}
0x3096…30a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0034}
0x30a0…30c6 Head {h00=0x0022, h01=0x0050, text=»* MOVE KEYS TO FDB KEY AREAS«, t00=0x001f, t01=0x003e}
0x30c6…30d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0064}
0x30d0…30e2 Head {h00=0x000e, h01=0x0050, text=» LDK A5,8 «, t00=0x001f, t01=0x006e}
0x30e2…30f6 Head {h00=0x0010, h01=0x0050, text=»IXINS3 EQU *«, t00=0x001f, t01=0x0080}
0x30f6…3112 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A6 FDB DATA «, t00=0x001f, t01=0x0094}
0x3112…3124 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A5«, t00=0x001f, t01=0x00b0}
0x3124…3146 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBADF,A2 FDB INDEX«, t00=0x001f, t01=0x00c2}
0x3146…3164 Head {h00=0x001a, h01=0x0050, text=» RF(Z) IXINS4 NO INDEX«, t00=0x001f, t01=0x00e4}
0x3164…3184 Head {h00=0x001c, h01=0x0050, text=» LD A1,FDBKA,A3 KEY ADDR«, t00=0x001f, t01=0x0102}
0x3184…31ae Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBBA,A8 ADD USER BUF ADDR «, t00=0x001f, t01=0x0122}
0x31ae…31d4 Head {h00=0x0022, h01=0x0050, text=» LDK A2,FDBKEY KEY AREA DISPL «, t00=0x001f, t01=0x014c}
0x31d4…31f4 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A3 ADD FDB ADDR «, t00=0x001f, t01=0x0172}
0x31f4…3216 (32, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBRLE,A3 REC LGTH «, t00=0x0020, t01=0x0004}
0x3216…3230 Head {h00=0x0016, h01=0x0050, text=» SUK A3,6 KEY LGTH«, t00=0x0020, t01=0x0026}
0x3230…3256 Head {h00=0x0022, h01=0x0050, text=» CF A14,MOV:US KEY TO FDB AREA«, t00=0x0020, t01=0x0040}
0x3256…326a Head {h00=0x0010, h01=0x0050, text=»IXINS4 EQU *«, t00=0x0020, t01=0x0066}
0x326a…327c Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0020, t01=0x007a}
0x327c…329e Head {h00=0x001e, h01=0x0050, text=» RB(NZ) IXINS3 MORE INDEXS«, t00=0x0020, t01=0x008c}
0x329e…32aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00ae}
0x32aa…32b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ba}
0x32b4…32dc Head {h00=0x0024, h01=0x0050, text=»SEQWRITE EQU * SEQUENTIAL WRITE «, t00=0x0020, t01=0x00c4}
0x32dc…32e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ec}
0x32e6…331c Head {h00=0x0032, h01=0x0050, text=»* GET LRN+1 INTO FDB AND STORE ADDR IN ECBCW«, t00=0x0020, t01=0x00f6}
0x331c…3326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012c}
0x3326…3330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0136}
0x3330…335e Head {h00=0x002a, h01=0x0050, text=»* CALCULATE NUMBER DOF SPARE RECORDS«, t00=0x0020, t01=0x0140}
0x335e…3368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016e}
0x3368…3388 Head {h00=0x001c, h01=0x0050, text=» LDR A5,A6 SAVE FDB ADDR«, t00=0x0020, t01=0x0178}
0x3388…339a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0021, t01=0x0008}
0x339a…33be Head {h00=0x0020, h01=0x0050, text=» LC A1,FDBMRN,A6 LAST REC NR«, t00=0x0021, t01=0x001a}
0x33be…33d8 Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBMRN+1,A6«, t00=0x0021, t01=0x003e}
0x33d8…33ea Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0021, t01=0x0058}
0x33ea…3402 Head {h00=0x0014, h01=0x0050, text=» LC A6,FDBLRN,A5«, t00=0x0021, t01=0x006a}
0x3402…3420 Head {h00=0x001a, h01=0x0050, text=» LD A7,FDBLRN+1,A5 LRN«, t00=0x0021, t01=0x0082}
0x3420…3440 Head {h00=0x001c, h01=0x0050, text=» CF A14,DSUMOD SUBTRACT «, t00=0x0021, t01=0x00a0}
0x3440…3452 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0021, t01=0x00c0}
0x3452…3464 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0021, t01=0x00d2}
0x3464…3482 Head {h00=0x001a, h01=0x0050, text=» RF(Z) SEQ005 NOT MANY«, t00=0x0021, t01=0x00e4}
0x3482…3498 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x0021, t01=0x0102}
0x3498…34c2 Head {h00=0x0026, h01=0x0050, text=»SEQ005 ST A2,ECBEL,A8 NR OF SPARE «, t00=0x0021, t01=0x0118}
0x34c2…34e0 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A5 FDB ADDRESS«, t00=0x0021, t01=0x0142}
0x34e0…34f2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0021, t01=0x0160}
0x34f2…350a Head {h00=0x0014, h01=0x0050, text=» LC A1,FDBLRN,A6«, t00=0x0021, t01=0x0172}
0x350a…3528 Head {h00=0x001a, h01=0x0050, text=» LD A2,FDBLRN+1,A6 LRN«, t00=0x0021, t01=0x018a}
0x3528…353e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0022, t01=0x0018}
0x353e…3562 Head {h00=0x0020, h01=0x0050, text=» RF IXR020 STORE LOG REC NO «, t00=0x0022, t01=0x002e}
0x3562…3570 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0052}
0x3570…3598 Head {h00=0x0024, h01=0x0050, text=»IXRDNX EQU * INDEXED EREAD NEXT «, t00=0x0022, t01=0x0060}
0x3598…35a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0088}
0x35a2…35b6 Head {h00=0x0010, h01=0x0050, text=»* GET CRN «, t00=0x0022, t01=0x0092}
0x35b6…35c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a6}
0x35c0…35e2 Head {h00=0x001e, h01=0x0050, text=» LD A1,FDBADF,A6 FDB ADDR «, t00=0x0022, t01=0x00b0}
0x35e2…3608 Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x0022, t01=0x00d2}
0x3608…3622 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A2 BUFFADR«, t00=0x0022, t01=0x00f8}
0x3622…3634 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0022, t01=0x0112}
0x3634…3646 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0022, t01=0x0124}
0x3646…3650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0136}
0x3650…3676 Head {h00=0x0022, h01=0x0050, text=»* CHECK THAT FILE CODE IS OK«, t00=0x0022, t01=0x0140}
0x3676…3680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0166}
0x3680…369e Head {h00=0x001a, h01=0x0050, text=» LDR* A5,A8 FILE CODE «, t00=0x0022, t01=0x0170}
0x369e…36b6 Head {h00=0x0014, h01=0x0050, text=» CC A5,CRNCIF,A4«, t00=0x0022, t01=0x018e}
0x36b6…36e8 Head {h00=0x002e, h01=0x0050, text=» RF(NE) IXR020 OTHER INDEX FILE IS CURRENT«, t00=0x0023, t01=0x0016}
0x36e8…3702 Head {h00=0x0016, h01=0x0050, text=» LC A1,CRNCIF+1,A4«, t00=0x0023, t01=0x0048}
0x3702…3728 Head {h00=0x0022, h01=0x0050, text=» LD A2,CRNCIF+2,A4 LOG REC NO «, t00=0x0023, t01=0x0062}
0x3728…373c Head {h00=0x0010, h01=0x0050, text=»IXR020 EQU *«, t00=0x0023, t01=0x0088}
0x373c…3748 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x009c}
0x3748…375a Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0023, t01=0x00a8}
0x375a…3778 Head {h00=0x001a, h01=0x0050, text=» RF(O) IXR030 OVERFLOW«, t00=0x0023, t01=0x00ba}
0x3778…378a Head {h00=0x000e, h01=0x0050, text=» RF IXR040«, t00=0x0023, t01=0x00d8}
0x378a…37ba Head {h00=0x002c, h01=0x0050, text=»IXR030 ANKL A2,/7FFF REMOVE OVERFLOW BIT«, t00=0x0023, t01=0x00ea}
0x37ba…37d6 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADK CARRY «, t00=0x0023, t01=0x011a}
0x37d6…37ea Head {h00=0x0010, h01=0x0050, text=»IXR040 EQU *«, t00=0x0023, t01=0x0136}
0x37ea…380a Head {h00=0x001c, h01=0x0050, text=» SC A1,ECBCW+3,A8 REC NO«, t00=0x0023, t01=0x014a}
0x380a…3822 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0023, t01=0x016a}
0x3822…3850 Head {h00=0x002a, h01=0x0050, text=» RF TIOD25 DO NOT CHECK EOF CONDITION «, t00=0x0023, t01=0x0182}
0x3850…385e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0020}
0x385e…3868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002e}
0x3868…388c Head {h00=0x0020, h01=0x0050, text=»IXREWR EQU * INDEXED REWRITE«, t00=0x0024, t01=0x0038}
0x388c…3896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x005c}
0x3896…38b8 Head {h00=0x001e, h01=0x0050, text=»IXDEL EQU * INDEXED DELETE«, t00=0x0024, t01=0x0066}
0x38b8…38c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0088}
0x38c2…38e6 Head {h00=0x0020, h01=0x0050, text=»RANWRITE EQU * RANDOM WRITE «, t00=0x0024, t01=0x0092}
0x38e6…38f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b6}
0x38f0…391a Head {h00=0x0026, h01=0x0050, text=»RANWRD EQU * DELAYED RANDOM WRITE «, t00=0x0024, t01=0x00c0}
0x391a…3924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ea}
0x3924…394e Head {h00=0x0026, h01=0x0050, text=»RANDLD EQU * DELAYED RANDOM DELETE«, t00=0x0024, t01=0x00f4}
0x394e…3958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011e}
0x3958…397a Head {h00=0x001e, h01=0x0050, text=»RANDEL EQU * RANDOM DELETE«, t00=0x0024, t01=0x0128}
0x397a…3984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014a}
0x3984…39a6 Head {h00=0x001e, h01=0x0050, text=»* NO SPECIAL PROCESSING «, t00=0x0024, t01=0x0154}
0x39a6…39b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0176}
0x39b0…39be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0180}
0x39be…39c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018e}
0x39c8…39ea Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0025, t01=0x0008}
0x39ea…3a0c Head {h00=0x001e, h01=0x0050, text=»* DMTASK ACTIVATION * «, t00=0x0025, t01=0x002a}
0x3a0c…3a2e Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0025, t01=0x004c}
0x3a2e…3a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006e}
0x3a38…3a4c Head {h00=0x0010, h01=0x0050, text=»TIODMA EQU *«, t00=0x0025, t01=0x0078}
0x3a4c…3a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008c}
0x3a56…3a76 Head {h00=0x001c, h01=0x0050, text=»* SET EOF IF CRN > LRN«, t00=0x0025, t01=0x0096}
0x3a76…3a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b6}
0x3a80…3a92 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0025, t01=0x00c0}
0x3a92…3ab2 Head {h00=0x001c, h01=0x0050, text=» LC A1,ECBCW+3,A8 REC NO«, t00=0x0025, t01=0x00d2}
0x3ab2…3ad0 Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 DITTO «, t00=0x0025, t01=0x00f2}
0x3ad0…3af8 Head {h00=0x0024, h01=0x0050, text=» CC A1,FDBLRN,A6 MOST SIGN PART «, t00=0x0025, t01=0x0110}
0x3af8…3b16 Head {h00=0x001a, h01=0x0050, text=» RF(L) TIOD25 CRN<LRN «, t00=0x0025, t01=0x0138}
0x3b16…3b34 Head {h00=0x001a, h01=0x0050, text=» RF(G) TIOD23 CRN>LRN «, t00=0x0025, t01=0x0156}
0x3b34…3b56 Head {h00=0x001e, h01=0x0050, text=» CW A2,FDBLRN+1,A6 2 PART «, t00=0x0025, t01=0x0174}
0x3b56…3b78 Head {h00=0x001e, h01=0x0050, text=» RF(NG) TIOD25 CRN <= LRN «, t00=0x0026, t01=0x0008}
0x3b78…3b8c Head {h00=0x0010, h01=0x0050, text=»TIOD23 EQU *«, t00=0x0026, t01=0x002a}
0x3b8c…3bae Head {h00=0x001e, h01=0x0050, text=» LDKL A3,/1000 END OF FILE«, t00=0x0026, t01=0x003e}
0x3bae…3bc6 Head {h00=0x0014, h01=0x0050, text=» ORS A3,ECBRC,A8«, t00=0x0026, t01=0x0060}
0x3bc6…3bda Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0026, t01=0x0078}
0x3bda…3bf8 Head {h00=0x001a, h01=0x0050, text=» SUKL A7,SQR SEQ READ «, t00=0x0026, t01=0x008c}
0x3bf8…3c16 Head {h00=0x001a, h01=0x0050, text=» RF(NE) TIOD25 NOT SR «, t00=0x0026, t01=0x00aa}
0x3c16…3c28 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0026, t01=0x00c8}
0x3c28…3c3a Head {h00=0x000e, h01=0x0050, text=» RF TIODME«, t00=0x0026, t01=0x00da}
0x3c3a…3c4e Head {h00=0x0010, h01=0x0050, text=»TIOD25 EQU *«, t00=0x0026, t01=0x00ec}
0x3c4e…3c88 Head {h00=0x0036, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR «, t00=0x0026, t01=0x0100}
0x3c88…3ca6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN INF «, t00=0x0026, t01=0x013a}
0x3ca6…3cbc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TIODME«, t00=0x0026, t01=0x0158}
0x3cbc…3cca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x016e}
0x3cca…3cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x017c}
0x3cd4…3d06 Head {h00=0x002e, h01=0x0050, text=»* ACTIVATE DMTASK WITH FDB ADDRESS IN A1«, t00=0x0026, t01=0x0186}
0x3d06…3d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0028}
0x3d10…3d24 Head {h00=0x0010, h01=0x0050, text=»TIOD68 EQU *«, t00=0x0027, t01=0x0032}
0x3d24…3d30 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0027, t01=0x0046}
0x3d30…3d3c Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0027, t01=0x0052}
0x3d3c…3d48 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0027, t01=0x005e}
0x3d48…3d66 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS«, t00=0x0027, t01=0x006a}
0x3d66…3d78 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0027, t01=0x0088}
0x3d78…3da0 Head {h00=0x0024, h01=0x0050, text=» LC A7,EXTDMI,A4 TID FOR DMTASK «, t00=0x0027, t01=0x009a}
0x3da0…3db6 Head {h00=0x0012, h01=0x0050, text=» ADKL A7,'#D' «, t00=0x0027, t01=0x00c2}
0x3db6…3dda Head {h00=0x0020, h01=0x0050, text=» CF A15,FNDTID A2:=TTAB ADDR«, t00=0x0027, t01=0x00d8}
0x3dda…3dec Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0027, t01=0x00fc}
0x3dec…3e1a Head {h00=0x002a, h01=0x0050, text=» ABL(Z) TASHLT TTAB MISSING IN SCTTCT?«, t00=0x0027, t01=0x010e}
0x3e1a…3e48 Head {h00=0x002a, h01=0x0050, text=»TIOD70 LDKL A2,DMTASK DISPATCH ADDRESS«, t00=0x0027, t01=0x013c}
0x3e48…3e5a Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0027, t01=0x016a}
0x3e5a…3e80 Head {h00=0x0022, h01=0x0050, text=» CF A15,ACTOT ACTIVATE DMTASK «, t00=0x0027, t01=0x017c}
0x3e80…3e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0012}
0x3e8a…3ea4 Head {h00=0x0016, h01=0x0050, text=»* EXIT TO TDISP «, t00=0x0028, t01=0x001c}
0x3ea4…3eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0036}
0x3eae…3ec0 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0028, t01=0x0040}
0x3ec0…3eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0052}
0x3eca…3ed8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x005c}
0x3ed8…3ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x006a}
0x3ee2…3ef8 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0028, t01=0x0074}
0x3ef8…3f0e Head {h00=0x0012, h01=0x0050, text=»* TIODME *«, t00=0x0028, t01=0x008a}
0x3f0e…3f24 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0028, t01=0x00a0}
0x3f24…3f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b6}
0x3f2e…3f7c Head {h00=0x004a, h01=0x0050, text=»* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER«, t00=0x0028, t01=0x00c0}
0x3f7c…3f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x010e}
0x3f86…3f9a Head {h00=0x0010, h01=0x0050, text=»TIODPE EQU *«, t00=0x0028, t01=0x0118}
0x3f9a…3fbe Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/2000 PROTECT ERROR«, t00=0x0028, t01=0x012c}
0x3fbe…3fd2 Head {h00=0x0010, h01=0x0050, text=»TIODME EQU *«, t00=0x0028, t01=0x0150}
0x3fd2…3fee Head {h00=0x0018, h01=0x0050, text=»* A1 = ERROR CODE «, t00=0x0028, t01=0x0164}
0x3fee…400a Head {h00=0x0018, h01=0x0050, text=»* A6 = FDB ADDRESS«, t00=0x0028, t01=0x0180}
0x400a…403a Head {h00=0x002c, h01=0x0050, text=» ABL DISEND CALL TENDIO GOTO DISPATCHER«, t00=0x0029, t01=0x000c}
0x403a…4044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x003c}
0x4044…4050 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0029, t01=0x0046}
0x4050…4054 Head {h00=0x4004, h01=0x0000}
0x4054…4058 00 29 00 52 ┆ ) R┆
0x4058…4060 (42, 1, 8) 20 04 00 00 00 2a 00 04 ┆ * ┆
0x4060…40b0 (43, 0, 400) 00 1a 01 80 00 0e 00 50 5c 53 54 52 5c 41 31 2c 41 34 00 1b 00 08 00 20 00 50 5c 53 54 5c 41 34 2c 46 52 45 51 55 45 5c 53 45 54 20 42 4c 4f 43 4b 20 46 52 45 45 00 1b 00 1a 00 10 00 50 5c 4c 44 5c 41 32 2c 32 2c 41 34 20 00 1b 00 3e 00 10 ┆ P STR A1,A4 P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 > ┆
0x40b0…4100 00 50 5c 4c 44 5c 41 31 2c 34 2c 41 34 20 00 1b 00 52 00 06 00 50 2a 20 00 1b 00 66 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 1b 00 70 00 0e 00 50 5c 52 46 5c 49 48 52 54 4e 20 00 1b 00 86 00 08 00 50 5c 58 49 46 00 1b 00 98 ┆ P LD A1,4,A4 R P* f P IFT CPU852=1 p P RF IHRTN P XIF ┆
0x4100…4150 00 06 00 50 2a 20 00 1b 00 a4 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 1b 00 ae 00 0c 00 50 5c 52 54 4e 5c 41 31 35 00 1b 00 c4 00 08 00 50 5c 58 49 46 00 1b 00 d4 00 06 00 50 2a 20 00 1b 00 e0 00 12 00 50 5c 45 4a 45 43 54 ┆ P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT┆
0x4150…41a0 5c 5c 5c 4d 53 55 42 53 00 1b 00 ea 00 06 00 50 2a 20 00 1b 01 00 00 06 00 50 2a 20 00 1b 01 0a 00 14 00 50 2a 20 20 20 46 20 4e 20 44 20 44 20 57 20 54 20 00 1b 01 14 00 06 00 50 2a 20 00 1b 01 2c 00 22 00 50 2a 20 20 20 53 55 42 52 4f 55 ┆ MSUBS P* P* P* F N D D W T P* , " P* SUBROU┆
0x41a0…41f0 54 49 4e 45 20 54 4f 20 46 49 4e 44 20 41 20 44 57 54 2e 20 00 1b 01 36 00 06 00 50 2a 20 00 1b 01 5c 00 1a 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 45 54 45 52 53 3a 2d 00 1b 01 66 00 06 00 50 2a 20 00 1b 01 84 00 1a 00 50 2a 20 ┆TINE TO FIND A DWT. 6 P* P* ENTRY PARAMETERS:- f P* P* ┆
0x41f0…4240 (44, 0, 400) 20 20 41 35 20 3d 20 54 54 41 42 20 41 44 44 52 45 53 53 20 00 1b 01 8e 00 38 00 50 2a 20 20 20 41 37 20 3d 20 4f 52 44 45 52 20 43 4f 44 45 20 57 48 45 4e 20 43 41 4c 4c 45 44 20 46 52 4f 4d 20 44 41 54 41 20 4d 41 4e 41 47 45 4d 45 4e 54 ┆ A5 = TTAB ADDRESS 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT┆
0x4240…4290 00 1c 00 1c 00 18 00 50 2a 20 20 20 41 38 20 3d 20 45 43 42 20 41 44 44 52 45 53 53 00 1c 00 58 00 06 00 50 2a 20 00 1c 00 74 00 1a 00 50 2a 20 20 20 45 58 49 54 20 50 41 52 41 4d 45 54 45 52 53 3a 2d 20 00 1c 00 7e 00 06 00 50 2a 20 00 1c ┆ P* A8 = ECB ADDRESS X P* t P* EXIT PARAMETERS:- ~ P* ┆
0x4290…42e0 00 9c 00 16 00 50 2a 20 20 20 41 32 20 3d 20 44 57 54 20 49 4e 44 45 58 00 1c 00 a6 00 2a 00 50 2a 20 20 20 41 36 20 3d 20 44 57 54 20 41 44 44 52 45 53 53 20 49 46 20 46 4f 55 4e 44 2c 20 45 4c 53 45 20 30 20 00 1c 00 c0 00 06 00 50 2a 20 ┆ P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* ┆
0x42e0…4330 00 1c 00 ee 00 06 00 50 2a 20 00 1c 00 f8 00 1e 00 50 46 4e 44 44 57 54 5c 53 54 52 5c 41 31 2c 41 31 35 5c 53 41 56 45 20 41 31 20 00 1c 01 02 00 16 00 50 5c 4c 44 4b 4c 5c 41 36 2c 54 54 42 3a 54 44 2b 32 20 00 1c 01 24 00 34 00 50 5c 41 ┆ P* PFNDDWT STR A1,A15 SAVE A1 P LDKL A6,TTB:TD+2 $ 4 P A┆
0x4330…4380 44 52 5c 41 36 2c 41 35 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 54 45 52 4d 49 4e 41 4c 20 44 45 56 49 43 45 20 54 41 42 4c 45 20 00 1c 01 3e 00 22 00 50 5c 4c 44 5c 41 31 2c 2d 32 2c 41 36 5c 47 45 54 20 54 41 42 4c 45 20 4c 45 4e ┆DR A6,A5 GET ADDRESS TO TERMINAL DEVICE TABLE > " P LD A1,-2,A6 GET TABLE LEN┆