|
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: 17282 (0x4382)
Notes: pts_type(SC)
Names: »TIODM.SC«
└─⟦7e2393f80⟧ Bits:30009710 Philips computer tape "M_KONV"
└─⟦this⟧ »M:KONV/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 00000 * * 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…0d3a Head {h00=0x0014, h01=0x0050, text=»INDXAC EQU 00000«, t00=0x0008, t01=0x00a8}
0x0d3a…0d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d44…0d76 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x00ca}
0x0d76…0da4 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00fc}
0x0da4…0dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012a}
0x0dae…0dc2 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0008, t01=0x0134}
0x0dc2…0dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0148}
0x0dcc…0dda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0152}
0x0dda…0de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0160}
0x0de4…0e04 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x016a}
0x0e04…0e24 Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x0008, t01=0x018a}
0x0e24…0e44 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x001a}
0x0e44…0e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003a}
0x0e4e…0e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0044}
0x0e58…0e72 Head {h00=0x0016, h01=0x0050, text=» DATA 0,0 4 WORDS «, t00=0x0009, t01=0x004e}
0x0e72…0e84 Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0009, t01=0x0068}
0x0e84…0eaa Head {h00=0x0022, h01=0x0050, text=»TIOD14 EQU *-2 TIODM A14 STACK«, t00=0x0009, t01=0x007a}
0x0eaa…0eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a0}
0x0eb4…0ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00aa}
0x0ebe…0ee8 Head {h00=0x0026, h01=0x0050, text=»TIODMF EQU * TIODM FUNCTION TABLE «, t00=0x0009, t01=0x00b4}
0x0ee8…0f02 Head {h00=0x0016, h01=0x0050, text=» DATA CLOSE CLOSE «, t00=0x0009, t01=0x00de}
0x0f02…0f28 Head {h00=0x0022, h01=0x0050, text=» DATA REVTOC READ VTOC RECORD «, t00=0x0009, t01=0x00f8}
0x0f28…0f3e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0009, t01=0x011e}
0x0f3e…0f64 Head {h00=0x0022, h01=0x0050, text=» DATA IXRDNX INDEXED READ NEXT«, t00=0x0009, t01=0x0134}
0x0f64…0f86 Head {h00=0x001e, h01=0x0050, text=» DATA IXINS INDEXED INSERT«, t00=0x0009, t01=0x015a}
0x0f86…0fa8 Head {h00=0x001e, h01=0x0050, text=» DATA IXDEL INDEXED DELETE«, t00=0x0009, t01=0x017c}
0x0fa8…0fcc Head {h00=0x0020, h01=0x0050, text=» DATA IXREWR INDEXED REWRITE«, t00=0x000a, t01=0x000e}
0x0fcc…0ff4 Head {h00=0x0024, h01=0x0050, text=» DATA IXRARE INDEXED RANDOM READ«, t00=0x000a, t01=0x0032}
0x0ff4…1000 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x005a}
0x1000…1016 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x000a, t01=0x0066}
0x1016…102a Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x007c}
0x102a…103e Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x0090}
0x103e…1052 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x00a4}
0x1052…1066 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x00b8}
0x1066…107a Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000a, t01=0x00cc}
0x107a…1086 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00e0}
0x1086…10a8 Head {h00=0x001e, h01=0x0050, text=» DATA RANDEL RANDOM DELETE«, t00=0x000a, t01=0x00ec}
0x10a8…10cc Head {h00=0x0020, h01=0x0050, text=» DATA RANWRITE RANDOM WRITE «, t00=0x000a, t01=0x010e}
0x10cc…10ee Head {h00=0x001e, h01=0x0050, text=» DATA RANREAD RANDOM READ «, t00=0x000a, t01=0x0132}
0x10ee…111c Head {h00=0x002a, h01=0x0050, text=» DATA RELXAC RELEASE EXCLUSIVE ACCESS «, t00=0x000a, t01=0x0154}
0x111c…1144 Head {h00=0x0024, h01=0x0050, text=» DATA SEQWRITE SEQUENTIAL WRITE «, t00=0x000a, t01=0x0182}
0x1144…116a Head {h00=0x0022, h01=0x0050, text=» DATA SEQREAD SEQUENTIAL READ «, t00=0x000b, t01=0x001a}
0x116a…118c Head {h00=0x001e, h01=0x0050, text=» DATA GETCUR GET CURRENCY «, t00=0x000b, t01=0x0040}
0x118c…11a2 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000b, t01=0x0062}
0x11a2…11ca Head {h00=0x0024, h01=0x0050, text=» DATA INSIXR INSERT INDEX RECORD«, t00=0x000b, t01=0x0078}
0x11ca…11f2 Head {h00=0x0024, h01=0x0050, text=» DATA DELIXR DELETE INDEX RECORD«, t00=0x000b, t01=0x00a0}
0x11f2…11fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00c8}
0x11fe…1214 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x000b, t01=0x00d4}
0x1214…1228 Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000b, t01=0x00ea}
0x1228…123c Head {h00=0x0010, h01=0x0050, text=» DATA TIODME«, t00=0x000b, t01=0x00fe}
0x123c…1248 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0112}
0x1248…1272 Head {h00=0x0026, h01=0x0050, text=» DATA GETCUX GET CURRENT INDEX REC«, t00=0x000b, t01=0x011e}
0x1272…129c Head {h00=0x0026, h01=0x0050, text=» DATA RANWRD DELAYED RANDOM WRITE «, t00=0x000b, t01=0x0148}
0x129c…12c6 Head {h00=0x0026, h01=0x0050, text=» DATA RANDLD DELAYED RANDOM DELETE«, t00=0x000b, t01=0x0172}
0x12c6…12ee Head {h00=0x0024, h01=0x0050, text=» DATA RANREB RAND READ REL BUFF «, t00=0x000c, t01=0x000c}
0x12ee…130a Head {h00=0x0018, h01=0x0050, text=» DATA SETLRN SET LRN«, t00=0x000c, t01=0x0034}
0x130a…1314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0050}
0x1314…131e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005a}
0x131e…133c Head {h00=0x001a, h01=0x0050, text=»TIODMO EQU * DM ORDERS«, t00=0x000c, t01=0x0064}
0x133c…1364 Head {h00=0x0024, h01=0x0050, text=» DATA /221E CLOSE,IND READ NEXT «, t00=0x000c, t01=0x0082}
0x1364…138e Head {h00=0x0026, h01=0x0050, text=» DATA /1D1C IND INSERT,IND DELETE «, t00=0x000c, t01=0x00aa}
0x138e…13c0 Head {h00=0x002e, h01=0x0050, text=» DATA /1B1A INDEXED REWRITE,IND RAND READ «, t00=0x000c, t01=0x00d4}
0x13c0…13e8 Head {h00=0x0024, h01=0x0050, text=» DATA /0C0B RAND DEL, RAND WRITE«, t00=0x000c, t01=0x0106}
0x13e8…1414 Head {h00=0x0028, h01=0x0050, text=» DATA /0A09 RAND READ, REL EXCL ACC «, t00=0x000c, t01=0x012e}
0x1414…143e Head {h00=0x0026, h01=0x0050, text=» DATA /0807 SPEC. WR. , SPEC. WR. «, t00=0x000c, t01=0x015a}
0x143e…1468 Head {h00=0x0026, h01=0x0050, text=» DATA /0605 SEQ WR. , BASIC WRITE «, t00=0x000c, t01=0x0184}
0x1468…1490 Head {h00=0x0024, h01=0x0050, text=» DATA /0302 READ VTOC, SEQ READ «, t00=0x000d, t01=0x001e}
0x1490…14bc Head {h00=0x0028, h01=0x0050, text=» DATA /0123 BASIC READ,GET CURRENCY «, t00=0x000d, t01=0x0046}
0x14bc…14ea Head {h00=0x002a, h01=0x0050, text=» DATA /1F20 INS INDEXREC,DEL INDEXREC «, t00=0x000d, t01=0x0072}
0x14ea…151c Head {h00=0x002e, h01=0x0050, text=» DATA /240D GET CURR INDEX,DELAYED RAND WR«, t00=0x000d, t01=0x00a0}
0x151c…1550 Head {h00=0x0030, h01=0x0050, text=» DATA /0E0F DELAY RAN DEL,RAN READ REL BUFF «, t00=0x000d, t01=0x00d2}
0x1550…156c Head {h00=0x0018, h01=0x0050, text=» DATA /2500 SET LRN «, t00=0x000d, t01=0x0106}
0x156c…1576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0122}
0x1576…159c Head {h00=0x0022, h01=0x0050, text=»TIODMI EQU * ORDER INDEX TABLE«, t00=0x000d, t01=0x012c}
0x159c…15b0 Head {h00=0x0010, h01=0x0050, text=» DATA /0004 «, t00=0x000d, t01=0x0152}
0x15b0…15c4 Head {h00=0x0010, h01=0x0050, text=» DATA /0608 «, t00=0x000d, t01=0x0166}
0x15c4…15d8 Head {h00=0x0010, h01=0x0050, text=» DATA /0A0C «, t00=0x000d, t01=0x017a}
0x15d8…15ec Head {h00=0x0010, h01=0x0050, text=» DATA /0E10 «, t00=0x000d, t01=0x018e}
0x15ec…1600 Head {h00=0x0010, h01=0x0050, text=» DATA /1214 «, t00=0x000e, t01=0x0012}
0x1600…1614 Head {h00=0x0010, h01=0x0050, text=» DATA /1616 «, t00=0x000e, t01=0x0026}
0x1614…1628 Head {h00=0x0010, h01=0x0050, text=» DATA /1616 «, t00=0x000e, t01=0x003a}
0x1628…163c Head {h00=0x0010, h01=0x0050, text=» DATA /0218 «, t00=0x000e, t01=0x004e}
0x163c…1650 Head {h00=0x0010, h01=0x0050, text=» DATA /181A «, t00=0x000e, t01=0x0062}
0x1650…1664 Head {h00=0x0010, h01=0x0050, text=» DATA /1C1E «, t00=0x000e, t01=0x0076}
0x1664…1678 Head {h00=0x0010, h01=0x0050, text=» DATA /2022 «, t00=0x000e, t01=0x008a}
0x1678…168c Head {h00=0x0010, h01=0x0050, text=» DATA /2426 «, t00=0x000e, t01=0x009e}
0x168c…16a8 Head {h00=0x0018, h01=0x0050, text=» DATA /281A SET LRN «, t00=0x000e, t01=0x00b2}
0x16a8…16b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ce}
0x16b2…16da Head {h00=0x0024, h01=0x0050, text=»NOOFOR EQU 25 NO OF ORDER CODES «, t00=0x000e, t01=0x00d8}
0x16da…16e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0100}
0x16e4…16f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x010a}
0x16f2…16fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0118}
0x16fc…1706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0122}
0x1706…173c Head {h00=0x0032, h01=0x0050, text=»DWTDRD EQU /10 START OF NON-STANDARD DWT PART «, t00=0x000e, t01=0x012c}
0x173c…1746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0162}
0x1746…175c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000e, t01=0x016c}
0x175c…1774 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000e, t01=0x0182}
0x1774…1780 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x000a}
0x1780…178a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0016}
0x178a…17a0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x0020}
0x17a0…17ba Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000f, t01=0x0036}
0x17ba…17c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0050}
0x17c6…17d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005c}
0x17d0…17da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0066}
0x17da…17fc Head {h00=0x001e, h01=0x0050, text=»* FDB OFFSET DEFINITIONS«, t00=0x000f, t01=0x0070}
0x17fc…1806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0092}
0x1806…182c Head {h00=0x0022, h01=0x0050, text=»FDBLNK EQU 0 LINK TO NEXT FDB «, t00=0x000f, t01=0x009c}
0x182c…1850 Head {h00=0x0020, h01=0x0050, text=»FDBECB EQU START+2 ECB START«, t00=0x000f, t01=0x00c2}
0x1850…187a Head {h00=0x0026, h01=0x0050, text=»FDBSNR EQU START+16 SECTOR NUMBER «, t00=0x000f, t01=0x00e6}
0x187a…18ac Head {h00=0x002e, h01=0x0050, text=»FDBRRO EQU START+18 RELATIVE RECORD OFFSET«, t00=0x000f, t01=0x0110}
0x18ac…18d6 Head {h00=0x0026, h01=0x0050, text=»FDBRLE EQU START+20 RECORD LENGTH «, t00=0x000f, t01=0x0142}
0x18d6…1902 Head {h00=0x0028, h01=0x0050, text=»FDBBLF EQU START+22 BLOCKING FACTOR «, t00=0x000f, t01=0x016c}
0x1902…1936 Head {h00=0x0030, h01=0x0050, text=»FDBTNR EQU START+23 TASK NUMBER CALLING TASK«, t00=0x0010, t01=0x0008}
0x1936…1960 Head {h00=0x0026, h01=0x0050, text=»FDBVTO EQU START+24 VTOC RECORD NO«, t00=0x0010, t01=0x003c}
0x1960…1998 Head {h00=0x0034, h01=0x0050, text=»FDBCEX EQU START+26 CURRENT EXTENT BLOCK POINTER«, t00=0x0010, t01=0x0066}
0x1998…19cc Head {h00=0x0030, h01=0x0050, text=»FDBEXT EQU START+28 FIRST EXTENT BLOCK START«, t00=0x0010, t01=0x009e}
0x19cc…19ee Head {h00=0x001e, h01=0x0050, text=»EXTDMI EQU 0 DMTAST IDENT «, t00=0x0010, t01=0x00d2}
0x19ee…1a12 Head {h00=0x0020, h01=0x0050, text=»EXTFC EQU 1 VOLUME FILE CODE«, t00=0x0010, t01=0x00f4}
0x1a12…1a34 Head {h00=0x001e, h01=0x0050, text=»EXTLEN EQU 2 EXTENT LENGTH«, t00=0x0010, t01=0x0118}
0x1a34…1a54 Head {h00=0x001c, h01=0x0050, text=»EXTBAS EQU 4 EXTENT BASE«, t00=0x0010, t01=0x013a}
0x1a54…1a7a Head {h00=0x0022, h01=0x0050, text=»EXTELE EQU 6 EXT ENTRY LENGTH «, t00=0x0010, t01=0x015a}
0x1a7a…1aa8 Head {h00=0x002a, h01=0x0050, text=»FDBLRN EQU START+53 LAST RECORD NUMBER«, t00=0x0010, t01=0x0180}
0x1aa8…1ad6 Head {h00=0x002a, h01=0x0050, text=»FDBNIF EQU START+52 NO OF INDEX FILES «, t00=0x0011, t01=0x001e}
0x1ad6…1afe Head {h00=0x0024, h01=0x0050, text=»FDBEAL EQU START+56 EA LINK ROOT«, t00=0x0011, t01=0x004c}
0x1afe…1b28 Head {h00=0x0026, h01=0x0050, text=»FDBCRL EQU START+58 CRN LINK ROOT «, t00=0x0011, t01=0x0074}
0x1b28…1b5c Head {h00=0x0030, h01=0x0050, text=»FDBKA EQU START+60 KEY ADDRESS IN DATA FILE «, t00=0x0011, t01=0x009e}
0x1b5c…1b90 Head {h00=0x0030, h01=0x0050, text=»FDBMIA EQU START+62 ADDRESS OF MASTER INDEX «, t00=0x0011, t01=0x00d2}
0x1b90…1bc4 Head {h00=0x0030, h01=0x0050, text=»FDBADF EQU START+64 ADDRESS OF DATA FILE FDB«, t00=0x0011, t01=0x0106}
0x1bc4…1bfa Head {h00=0x0032, h01=0x0050, text=»FDBAI1 EQU START+66 ADDRESS OF INDEX FILE FDB «, t00=0x0011, t01=0x013a}
0x1bfa…1c36 Head {h00=0x0038, h01=0x0050, text=»FDBDBR EQU START+74 DELAY,BASIC AND REL BUFFER FLAGS«, t00=0x0011, t01=0x0170}
0x1c36…1c66 Head {h00=0x002c, h01=0x0050, text=»FDBMRN EQU START+75 LAST REC NR IN FILE «, t00=0x0012, t01=0x001c}
0x1c66…1c8c Head {h00=0x0022, h01=0x0050, text=»FDBMRO EQU START+78 MAX FDBRRO«, t00=0x0012, t01=0x004c}
0x1c8c…1cbc Head {h00=0x002c, h01=0x0050, text=»FDBMEC EQU START+80 MMU ECB DISPLACEMENT«, t00=0x0012, t01=0x0072}
0x1cbc…1cfc Head {h00=0x003c, h01=0x0050, text=»FDBKEY EQU START+94 SAVE AREA FOR KEY IN INDEXED ACCESS «, t00=0x0012, t01=0x00a2}
0x1cfc…1d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e2}
0x1d06…1d30 Head {h00=0x0026, h01=0x0050, text=»* CRN BUFFER OFFSET DEFINITIONS «, t00=0x0012, t01=0x00ec}
0x1d30…1d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0116}
0x1d3a…1d56 Head {h00=0x0018, h01=0x0050, text=»CRNTID EQU 2 TASK ID«, t00=0x0012, t01=0x0120}
0x1d56…1d7c Head {h00=0x0022, h01=0x0050, text=»CRNCDF EQU 4 CURRENT DATA FILE«, t00=0x0012, t01=0x013c}
0x1d7c…1da4 Head {h00=0x0024, h01=0x0050, text=»CRNCIF EQU 8 CURRENT INDEX FILE «, t00=0x0012, t01=0x0162}
0x1da4…1dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018a}
0x1dae…1dbc (19, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0004}
0x1dbc…1dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0012}
0x1dc6…1ddc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0013, t01=0x001c}
0x1ddc…1df2 Head {h00=0x0012, h01=0x0050, text=»* TIODM * «, t00=0x0013, t01=0x0032}
0x1df2…1e08 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0013, t01=0x0048}
0x1e08…1e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005e}
0x1e12…1e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0068}
0x1e1c…1e48 Head {h00=0x0028, h01=0x0050, text=» DATA 0 DATA MANAGEMENT DEVICE INDEX«, t00=0x0013, t01=0x0072}
0x1e48…1e72 Head {h00=0x0026, h01=0x0050, text=»TIODM DATA *+2 TIODM START ADDRESS«, t00=0x0013, t01=0x009e}
0x1e72…1e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c8}
0x1e7c…1e98 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0013, t01=0x00d2}
0x1e98…1ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ee}
0x1ea2…1eba Head {h00=0x0014, h01=0x0050, text=» LDKL A14,TIOD14«, t00=0x0013, t01=0x00f8}
0x1eba…1ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0110}
0x1ec4…1efe Head {h00=0x0036, h01=0x0050, text=»* GET CALLING TASK NUMBER AND STORE IT IN FDBTNR«, t00=0x0013, t01=0x011a}
0x1efe…1f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0154}
0x1f08…1f1a Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0013, t01=0x015e}
0x1f1a…1f36 Head {h00=0x0018, h01=0x0050, text=»TIOD05 LD A1,SCTTCT «, t00=0x0013, t01=0x0170}
0x1f36…1f48 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0013, t01=0x018c}
0x1f48…1f5c Head {h00=0x0010, h01=0x0050, text=» LD A3,2,A1 «, t00=0x0014, t01=0x000e}
0x1f5c…1f74 Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTTDM,A6«, t00=0x0014, t01=0x0022}
0x1f74…1f94 Head {h00=0x001c, h01=0x0050, text=» RF(E) TIOD10 THIS TASK «, t00=0x0014, t01=0x003a}
0x1f94…1fa8 Head {h00=0x0010, h01=0x0050, text=» ADK A2,2 NO«, t00=0x0014, t01=0x005a}
0x1fa8…1fc4 Head {h00=0x0018, h01=0x0050, text=» RB TIOD05 TRY NEXT «, t00=0x0014, t01=0x006e}
0x1fc4…1fd8 Head {h00=0x0010, h01=0x0050, text=»TIOD10 EQU *«, t00=0x0014, t01=0x008a}
0x1fd8…1ffc Head {h00=0x0020, h01=0x0050, text=» LC A1,TTB:ID,A3 GET TASK ID«, t00=0x0014, t01=0x009e}
0x1ffc…2010 Head {h00=0x0010, h01=0x0050, text=» CCK A1,'##'«, t00=0x0014, t01=0x00c2}
0x2010…203c Head {h00=0x0028, h01=0x0050, text=» RF(E) TIO13 JUMP IF DMTASK CALLING «, t00=0x0014, t01=0x00d6}
0x203c…2046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0102}
0x2046…206a Head {h00=0x0020, h01=0x0050, text=»* SET TASK ID FOR ALL FDBS«, t00=0x0014, t01=0x010c}
0x206a…2074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0130}
0x2074…2090 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0014, t01=0x013a}
0x2090…20a8 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,FDBADF «, t00=0x0014, t01=0x0156}
0x20a8…20cc Head {h00=0x0020, h01=0x0050, text=» LDK A3,10 MAX NO OF FDB * 2«, t00=0x0014, t01=0x016e}
0x20cc…20f0 (21, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/4000 REQ BUSY BIT «, t00=0x0015, t01=0x0004}
0x20f0…2104 Head {h00=0x0010, h01=0x0050, text=»TIO11 EQU * «, t00=0x0015, t01=0x0028}
0x2104…2116 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0015, t01=0x003c}
0x2116…2138 Head {h00=0x001e, h01=0x0050, text=» RF(N) TIO13 ALL FDB READY«, t00=0x0015, t01=0x004e}
0x2138…2154 Head {h00=0x0018, h01=0x0050, text=» LDR* A5,A1 FDB ADDR«, t00=0x0015, t01=0x0070}
0x2154…2170 Head {h00=0x0018, h01=0x0050, text=» RF(E) TIO12 NO FDB «, t00=0x0015, t01=0x008c}
0x2170…2190 Head {h00=0x001c, h01=0x0050, text=» SC A2,FDBTNR,A5 TASK ID«, t00=0x0015, t01=0x00a8}
0x2190…21b6 Head {h00=0x0022, h01=0x0050, text=» ORS A4,DWTST,A5 REQ BUSY BIT «, t00=0x0015, t01=0x00c8}
0x21b6…21ca Head {h00=0x0010, h01=0x0050, text=»TIO12 EQU * «, t00=0x0015, t01=0x00ee}
0x21ca…21ea Head {h00=0x001c, h01=0x0050, text=» ADK A1,2 NEXT FDB ADDR «, t00=0x0015, t01=0x0102}
0x21ea…21fc Head {h00=0x000e, h01=0x0050, text=» RB TIO11 «, t00=0x0015, t01=0x0122}
0x21fc…2210 Head {h00=0x0010, h01=0x0050, text=»TIO13 EQU * «, t00=0x0015, t01=0x0134}
0x2210…2222 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0015, t01=0x0148}
0x2222…222e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0015, t01=0x015a}
0x222e…2240 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0015, t01=0x0166}
0x2240…224a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0178}
0x224a…2268 Head {h00=0x001a, h01=0x0050, text=»* CHECK ORDER IN A7 «, t00=0x0015, t01=0x0182}
0x2268…2298 Head {h00=0x002c, h01=0x0050, text=»* PUT ORDER INDEX IN DWTOR RIGHT BYTE «, t00=0x0016, t01=0x0010}
0x2298…22a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0040}
0x22a2…22c6 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8000 REQUEST ERROR«, t00=0x0016, t01=0x004a}
0x22c6…22f0 Head {h00=0x0026, h01=0x0050, text=» LDK A2,NOOFOR-1 NO OF ORDERS - 1 «, t00=0x0016, t01=0x006e}
0x22f0…2326 Head {h00=0x0032, h01=0x0050, text=»TIOD15 CC A7,TIODMO,A2 START AT END OF TIODMO «, t00=0x0016, t01=0x0098}
0x2326…2342 Head {h00=0x0018, h01=0x0050, text=» RF(E) TIOD20 MATCH «, t00=0x0016, t01=0x00ce}
0x2342…2354 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0016, t01=0x00ea}
0x2354…2370 Head {h00=0x0018, h01=0x0050, text=» RB(NN) TIOD15 >= 0 «, t00=0x0016, t01=0x00fc}
0x2370…2390 Head {h00=0x001c, h01=0x0050, text=» ABL TIODME ERROR RETURN«, t00=0x0016, t01=0x0118}
0x2390…23a4 Head {h00=0x0010, h01=0x0050, text=»TIOD20 EQU *«, t00=0x0016, t01=0x0138}
0x23a4…23bc Head {h00=0x0014, h01=0x0050, text=» LC A2,TIODMI,A2«, t00=0x0016, t01=0x014c}
0x23bc…23e6 Head {h00=0x0026, h01=0x0050, text=» SC A2,DWTOR+1,A6 SAVE ORDER INDEX«, t00=0x0016, t01=0x0164}
0x23e6…2412 Head {h00=0x0028, h01=0x0050, text=» ABI TIODMF,A2 BRANCH TO DM FUNCTION«, t00=0x0016, t01=0x018e}
0x2412…2420 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x002a}
0x2420…242a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0038}
0x242a…2452 Head {h00=0x0024, h01=0x0050, text=»IXRARE EQU * INDEXED RANDOM READ«, t00=0x0017, t01=0x0042}
0x2452…246e Head {h00=0x0018, h01=0x0050, text=» LD A3,ECBCW2,A8 =1«, t00=0x0017, t01=0x006a}
0x246e…2492 Head {h00=0x0020, h01=0x0050, text=» ANK A3,/FF REQ KEY LGTH =1 «, t00=0x0017, t01=0x0086}
0x2492…24ae Head {h00=0x0018, h01=0x0050, text=» LD A4,FDBRLE,A6 =1«, t00=0x0017, t01=0x00aa}
0x24ae…24cc Head {h00=0x001a, h01=0x0050, text=» SUK A4,6 MAX LGTH =1 «, t00=0x0017, t01=0x00c6}
0x24cc…24e2 Head {h00=0x0012, h01=0x0050, text=» CWR A3,A4 =1«, t00=0x0017, t01=0x00e4}
0x24e2…24fe Head {h00=0x0018, h01=0x0050, text=» RF(NG) IXRAR1 OK =1«, t00=0x0017, t01=0x00fa}
0x24fe…2520 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8008 LGTH ERR =1«, t00=0x0017, t01=0x0116}
0x2520…253a Head {h00=0x0016, h01=0x0050, text=» ABL TIODME ERR =1«, t00=0x0017, t01=0x0138}
0x253a…2552 Head {h00=0x0014, h01=0x0050, text=»IXRAR1 EQU * =1«, t00=0x0017, t01=0x0152}
0x2552…2568 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0017, t01=0x016a}
0x2568…2594 Head {h00=0x0028, h01=0x0050, text=» LD A1,ECBCW,A8 GET USER KEY ADDRESS«, t00=0x0017, t01=0x0180}
0x2594…25c8 Head {h00=0x0030, h01=0x0050, text=» LDK A2,FDBKEY GET FDB KEY AREA DISPLACEMENT«, t00=0x0018, t01=0x001c}
0x25c8…25ea Head {h00=0x001e, h01=0x0050, text=» ADR A2,A6 ADD FDB ADDRESS«, t00=0x0018, t01=0x0050}
0x25ea…25fa Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0018, t01=0x0072}
0x25fa…2630 Head {h00=0x0032, h01=0x0050, text=» CF A14,MOV:US MOVE KEY FROM USER TO FDB AREA «, t00=0x0018, t01=0x0082}
0x2630…263c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00b8}
0x263c…2646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c4}
0x2646…266e Head {h00=0x0024, h01=0x0050, text=»DELIXR EQU * DELETE INDEX RECORD«, t00=0x0018, t01=0x00ce}
0x266e…2678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f6}
0x2678…26a0 Head {h00=0x0024, h01=0x0050, text=»INSIXR EQU * INSERT INDEX RECORD«, t00=0x0018, t01=0x0100}
0x26a0…26b4 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-1 «, t00=0x0018, t01=0x0128}
0x26b4…26c6 Head {h00=0x000e, h01=0x0050, text=» RF TIOC10«, t00=0x0018, t01=0x013c}
0x26c6…26d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x014e}
0x26d0…26f6 Head {h00=0x0022, h01=0x0050, text=»REVTOC EQU * READ VTOC RECORD «, t00=0x0018, t01=0x0158}
0x26f6…2700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017e}
0x2700…2720 Head {h00=0x001c, h01=0x0050, text=»CLOSE EQU * CLOSE A FILE«, t00=0x0018, t01=0x0188}
0x2720…2732 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0019, t01=0x0018}
0x2732…2746 Head {h00=0x0010, h01=0x0050, text=»TIOC10 EQU *«, t00=0x0019, t01=0x002a}
0x2746…276e Head {h00=0x0024, h01=0x0050, text=» ST A4,FDBRRO,A6 MARK ORDER TYPE«, t00=0x0019, t01=0x003e}
0x276e…2780 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0019, t01=0x0066}
0x2780…27b0 Head {h00=0x002c, h01=0x0050, text=» ST A2,FDBSNR,A6 SECTOR #0 VOLUME LABLE «, t00=0x0019, t01=0x0078}
0x27b0…27ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a8}
0x27ba…27e6 Head {h00=0x0028, h01=0x0050, text=»* LET FDBCEX POINT TO FIRST EXTENT«, t00=0x0019, t01=0x00b2}
0x27e6…27f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00de}
0x27f0…2802 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x0019, t01=0x00e8}
0x2802…2818 Head {h00=0x0012, h01=0x0050, text=» ADK A4,FDBEXT«, t00=0x0019, t01=0x00fa}
0x2818…2830 Head {h00=0x0014, h01=0x0050, text=» ST A4,FDBCEX,A6«, t00=0x0019, t01=0x0110}
0x2830…2854 Head {h00=0x0020, h01=0x0050, text=» ABL TIOD68 ACTIVATE DMTASK «, t00=0x0019, t01=0x0128}
0x2854…2862 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x014c}
0x2862…286c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015a}
0x286c…289a Head {h00=0x002a, h01=0x0050, text=»RELXAC EQU * RELEASE EXCLUSIVE ACCESS «, t00=0x0019, t01=0x0164}
0x289a…28b6 (26, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x001a, t01=0x0004}
0x28b6…28ea Head {h00=0x0030, h01=0x0050, text=» LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK «, t00=0x001a, t01=0x0020}
0x28ea…2900 Head {h00=0x0012, h01=0x0050, text=» CF A14,EARELB«, t00=0x001a, t01=0x0054}
0x2900…2914 Head {h00=0x0010, h01=0x0050, text=»REL090 EQU *«, t00=0x001a, t01=0x006a}
0x2914…2934 Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 CORRECT RETURN«, t00=0x001a, t01=0x007e}
0x2934…2948 Head {h00=0x0010, h01=0x0050, text=» ABL TIODME «, t00=0x001a, t01=0x009e}
0x2948…2956 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00b2}
0x2956…2982 Head {h00=0x0028, h01=0x0050, text=»SETLRN EQU * SET LAST RECORD NUMBER «, t00=0x001a, t01=0x00c0}
0x2982…299c Head {h00=0x0016, h01=0x0050, text=» LC A1,ECBCW+3,A8 «, t00=0x001a, t01=0x00ec}
0x299c…29b4 Head {h00=0x0014, h01=0x0050, text=» SC A1,FDBLRN,A6«, t00=0x001a, t01=0x0106}
0x29b4…29cc Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A8 «, t00=0x001a, t01=0x011e}
0x29cc…29e6 Head {h00=0x0016, h01=0x0050, text=» ST A1,FDBLRN+1,A6«, t00=0x001a, t01=0x0136}
0x29e6…29f8 Head {h00=0x000e, h01=0x0050, text=» RB REL090«, t00=0x001a, t01=0x0150}
0x29f8…2a06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0162}
0x2a06…2a36 Head {h00=0x002c, h01=0x0050, text=»GETCUR LDK A7,CRNCDF+1 GET CURR DATA REC«, t00=0x001a, t01=0x0170}
0x2a36…2a48 Head {h00=0x000e, h01=0x0050, text=» RF GET010«, t00=0x001b, t01=0x0010}
0x2a48…2a7a Head {h00=0x002e, h01=0x0050, text=»GETCUX LDK A7,CRNCIF+1 GET CURR INDEX REC «, t00=0x001b, t01=0x0022}
0x2a7a…2a9c Head {h00=0x001e, h01=0x0050, text=»GET010 LDR A1,A6 FDB ADDR «, t00=0x001b, t01=0x0054}
0x2a9c…2ac2 Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x001b, t01=0x0076}
0x2ac2…2ae6 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A2 ADDR CURR REC NO «, t00=0x001b, t01=0x009c}
0x2ae6…2af8 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001b, t01=0x00c0}
0x2af8…2b16 Head {h00=0x001a, h01=0x0050, text=» LC A3,-1,A7 FILE CODE«, t00=0x001b, t01=0x00d2}
0x2b16…2b2e Head {h00=0x0014, h01=0x0050, text=» CC A3,ECBFC,A8 «, t00=0x001b, t01=0x00f0}
0x2b2e…2b52 Head {h00=0x0020, h01=0x0050, text=» RF(E) GET020 SAME FILE CODE«, t00=0x001b, t01=0x0108}
0x2b52…2b6c Head {h00=0x0016, h01=0x0050, text=» SC A2,ECBCW+3,A8 «, t00=0x001b, t01=0x012c}
0x2b6c…2b7e Head {h00=0x000e, h01=0x0050, text=» RF GET030«, t00=0x001b, t01=0x0146}
0x2b7e…2b92 Head {h00=0x0010, h01=0x0050, text=»GET020 EQU *«, t00=0x001b, t01=0x0158}
0x2b92…2ba4 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A7«, t00=0x001b, t01=0x016c}
0x2ba4…2bc4 Head {h00=0x001c, h01=0x0050, text=» SC A2,ECBCW+3,A8 REC NO«, t00=0x001b, t01=0x017e}
0x2bc4…2bd8 Head {h00=0x0010, h01=0x0050, text=» LD A2,1,A7 «, t00=0x001c, t01=0x000e}
0x2bd8…2bec Head {h00=0x0010, h01=0x0050, text=»GET030 EQU *«, t00=0x001c, t01=0x0022}
0x2bec…2c04 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x001c, t01=0x0036}
0x2c04…2c16 Head {h00=0x000e, h01=0x0050, text=» RB REL090«, t00=0x001c, t01=0x004e}
0x2c16…2c24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0060}
0x2c24…2c4a Head {h00=0x0022, h01=0x0050, text=»SEQREAD EQU * SEQUENTIAL READ «, t00=0x001c, t01=0x006e}
0x2c4a…2c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0094}
0x2c54…2c7c Head {h00=0x0024, h01=0x0050, text=»* FIND CRN+1 AND TEST IF > LRN«, t00=0x001c, t01=0x009e}
0x2c7c…2c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c6}
0x2c86…2ca2 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x001c, t01=0x00d0}
0x2ca2…2cc8 Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN-BUFFER «, t00=0x001c, t01=0x00ec}
0x2cc8…2cda Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001c, t01=0x0112}
0x2cda…2cf4 Head {h00=0x0016, h01=0x0050, text=» LC A1,CRNCDF+1,A2«, t00=0x001c, t01=0x0124}
0x2cf4…2d1e Head {h00=0x0026, h01=0x0050, text=» LD A2,CRNCDF+2,A2 CURR LOG REC NO«, t00=0x001c, t01=0x013e}
0x2d1e…2d36 Head {h00=0x0014, h01=0x0050, text=» ADK A2,1 CRN+1 «, t00=0x001c, t01=0x0168}
0x2d36…2d54 Head {h00=0x001a, h01=0x0050, text=» RF(O) SEQR10 OVERFLOW«, t00=0x001c, t01=0x0180}
0x2d54…2d66 Head {h00=0x000e, h01=0x0050, text=» RF SEQR20«, t00=0x001d, t01=0x000e}
0x2d66…2d7a Head {h00=0x0010, h01=0x0050, text=»SEQR10 EQU *«, t00=0x001d, t01=0x0020}
0x2d7a…2da0 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/7FFF REMOVE OVERFLOW«, t00=0x001d, t01=0x0034}
0x2da0…2dbc Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x001d, t01=0x005a}
0x2dbc…2dd0 Head {h00=0x0010, h01=0x0050, text=»SEQR20 EQU *«, t00=0x001d, t01=0x0076}
0x2dd0…2df0 Head {h00=0x001c, h01=0x0050, text=» SC A1,ECBCW+3,A8 REC NO«, t00=0x001d, t01=0x008a}
0x2df0…2e08 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x001d, t01=0x00aa}
0x2e08…2e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c2}
0x2e12…2e3a Head {h00=0x0024, h01=0x0050, text=»* CONTINUE AS FOR RANDOM READ «, t00=0x001d, t01=0x00cc}
0x2e3a…2e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f4}
0x2e44…2e52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00fe}
0x2e52…2e74 Head {h00=0x001e, h01=0x0050, text=»RANREAD EQU * RANDOM READ «, t00=0x001d, t01=0x010c}
0x2e74…2e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012e}
0x2e7e…2ea6 Head {h00=0x0024, h01=0x0050, text=»RANREB EQU * RAND READ REL BUFF «, t00=0x001d, t01=0x0138}
0x2ea6…2eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0160}
0x2eb0…2ece Head {h00=0x001a, h01=0x0050, text=»* TEST IF ECBRL <= 0«, t00=0x001d, t01=0x016a}
0x2ece…2ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0188}
0x2ed8…2eea (30, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001e, t01=0x0004}
0x2eea…2f0a Head {h00=0x001c, h01=0x0050, text=» LC A2,ECBCW+3,A8 REC NO«, t00=0x001e, t01=0x0016}
0x2f0a…2f22 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBCW,A8 «, t00=0x001e, t01=0x0036}
0x2f22…2f46 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/8 INCORRECT LENGTH «, t00=0x001e, t01=0x004e}
0x2f46…2f5e Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBRL,A8 «, t00=0x001e, t01=0x0072}
0x2f5e…2f8c Head {h00=0x002a, h01=0x0050, text=» RF(NP) TIODME ERROR RETURN IF RL <= 0«, t00=0x001e, t01=0x008a}
0x2f8c…2f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b8}
0x2f96…2fc4 Head {h00=0x002a, h01=0x0050, text=»* EA MUST NOT BE SET FOR OTHER TASK «, t00=0x001e, t01=0x00c2}
0x2fc4…2fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f0}
0x2fce…2fea Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x001e, t01=0x00fa}
0x2fea…3000 Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x001e, t01=0x0116}
0x3000…301a Head {h00=0x0016, h01=0x0050, text=» LDR A4,A4 RTN INF«, t00=0x001e, t01=0x012c}
0x301a…303e Head {h00=0x0020, h01=0x0050, text=» RF(N) TIODPE EA OTHER TASK «, t00=0x001e, t01=0x0146}
0x303e…3050 Head {h00=0x000e, h01=0x0050, text=» RF TIODMA«, t00=0x001e, t01=0x016a}
0x3050…305e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x017c}
0x305e…3082 Head {h00=0x0020, h01=0x0050, text=»IXINS EQU * INDEXED INSRERT «, t00=0x001e, t01=0x018a}
0x3082…3098 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x001e}
0x3098…30a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0034}
0x30a2…30c8 Head {h00=0x0022, h01=0x0050, text=»* MOVE KEYS TO FDB KEY AREAS«, t00=0x001f, t01=0x003e}
0x30c8…30d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0064}
0x30d2…30e4 Head {h00=0x000e, h01=0x0050, text=» LDK A5,8 «, t00=0x001f, t01=0x006e}
0x30e4…30f8 Head {h00=0x0010, h01=0x0050, text=»IXINS3 EQU *«, t00=0x001f, t01=0x0080}
0x30f8…3114 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A6 FDB DATA «, t00=0x001f, t01=0x0094}
0x3114…3126 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A5«, t00=0x001f, t01=0x00b0}
0x3126…3148 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBADF,A2 FDB INDEX«, t00=0x001f, t01=0x00c2}
0x3148…3166 Head {h00=0x001a, h01=0x0050, text=» RF(Z) IXINS4 NO INDEX«, t00=0x001f, t01=0x00e4}
0x3166…3186 Head {h00=0x001c, h01=0x0050, text=» LD A1,FDBKA,A3 KEY ADDR«, t00=0x001f, t01=0x0102}
0x3186…31b0 Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBBA,A8 ADD USER BUF ADDR «, t00=0x001f, t01=0x0122}
0x31b0…31d6 Head {h00=0x0022, h01=0x0050, text=» LDK A2,FDBKEY KEY AREA DISPL «, t00=0x001f, t01=0x014c}
0x31d6…31f6 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A3 ADD FDB ADDR «, t00=0x001f, t01=0x0172}
0x31f6…3218 (32, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBRLE,A3 REC LGTH «, t00=0x0020, t01=0x0004}
0x3218…3232 Head {h00=0x0016, h01=0x0050, text=» SUK A3,6 KEY LGTH«, t00=0x0020, t01=0x0026}
0x3232…3258 Head {h00=0x0022, h01=0x0050, text=» CF A14,MOV:US KEY TO FDB AREA«, t00=0x0020, t01=0x0040}
0x3258…326c Head {h00=0x0010, h01=0x0050, text=»IXINS4 EQU *«, t00=0x0020, t01=0x0066}
0x326c…327e Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0020, t01=0x007a}
0x327e…32a0 Head {h00=0x001e, h01=0x0050, text=» RB(NZ) IXINS3 MORE INDEXS«, t00=0x0020, t01=0x008c}
0x32a0…32ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00ae}
0x32ac…32b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ba}
0x32b6…32de Head {h00=0x0024, h01=0x0050, text=»SEQWRITE EQU * SEQUENTIAL WRITE «, t00=0x0020, t01=0x00c4}
0x32de…32e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ec}
0x32e8…331e Head {h00=0x0032, h01=0x0050, text=»* GET LRN+1 INTO FDB AND STORE ADDR IN ECBCW«, t00=0x0020, t01=0x00f6}
0x331e…3328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012c}
0x3328…3332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0136}
0x3332…3360 Head {h00=0x002a, h01=0x0050, text=»* CALCULATE NUMBER DOF SPARE RECORDS«, t00=0x0020, t01=0x0140}
0x3360…336a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016e}
0x336a…338a Head {h00=0x001c, h01=0x0050, text=» LDR A5,A6 SAVE FDB ADDR«, t00=0x0020, t01=0x0178}
0x338a…339c Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0021, t01=0x0008}
0x339c…33c0 Head {h00=0x0020, h01=0x0050, text=» LC A1,FDBMRN,A6 LAST REC NR«, t00=0x0021, t01=0x001a}
0x33c0…33da Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBMRN+1,A6«, t00=0x0021, t01=0x003e}
0x33da…33ec Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0021, t01=0x0058}
0x33ec…3404 Head {h00=0x0014, h01=0x0050, text=» LC A6,FDBLRN,A5«, t00=0x0021, t01=0x006a}
0x3404…3422 Head {h00=0x001a, h01=0x0050, text=» LD A7,FDBLRN+1,A5 LRN«, t00=0x0021, t01=0x0082}
0x3422…3442 Head {h00=0x001c, h01=0x0050, text=» CF A14,DSUMOD SUBTRACT «, t00=0x0021, t01=0x00a0}
0x3442…3454 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0021, t01=0x00c0}
0x3454…3466 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0021, t01=0x00d2}
0x3466…3484 Head {h00=0x001a, h01=0x0050, text=» RF(Z) SEQ005 NOT MANY«, t00=0x0021, t01=0x00e4}
0x3484…349a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x0021, t01=0x0102}
0x349a…34c4 Head {h00=0x0026, h01=0x0050, text=»SEQ005 ST A2,ECBEL,A8 NR OF SPARE «, t00=0x0021, t01=0x0118}
0x34c4…34e2 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A5 FDB ADDRESS«, t00=0x0021, t01=0x0142}
0x34e2…34f4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0021, t01=0x0160}
0x34f4…350c Head {h00=0x0014, h01=0x0050, text=» LC A1,FDBLRN,A6«, t00=0x0021, t01=0x0172}
0x350c…352a Head {h00=0x001a, h01=0x0050, text=» LD A2,FDBLRN+1,A6 LRN«, t00=0x0021, t01=0x018a}
0x352a…3540 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0022, t01=0x0018}
0x3540…3564 Head {h00=0x0020, h01=0x0050, text=» RF IXR020 STORE LOG REC NO «, t00=0x0022, t01=0x002e}
0x3564…3572 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0052}
0x3572…359a Head {h00=0x0024, h01=0x0050, text=»IXRDNX EQU * INDEXED EREAD NEXT «, t00=0x0022, t01=0x0060}
0x359a…35a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0088}
0x35a4…35b8 Head {h00=0x0010, h01=0x0050, text=»* GET CRN «, t00=0x0022, t01=0x0092}
0x35b8…35c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a6}
0x35c2…35e4 Head {h00=0x001e, h01=0x0050, text=» LD A1,FDBADF,A6 FDB ADDR «, t00=0x0022, t01=0x00b0}
0x35e4…360a Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x0022, t01=0x00d2}
0x360a…3624 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A2 BUFFADR«, t00=0x0022, t01=0x00f8}
0x3624…3636 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0022, t01=0x0112}
0x3636…3648 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0022, t01=0x0124}
0x3648…3652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0136}
0x3652…3678 Head {h00=0x0022, h01=0x0050, text=»* CHECK THAT FILE CODE IS OK«, t00=0x0022, t01=0x0140}
0x3678…3682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0166}
0x3682…36a0 Head {h00=0x001a, h01=0x0050, text=» LDR* A5,A8 FILE CODE «, t00=0x0022, t01=0x0170}
0x36a0…36b8 Head {h00=0x0014, h01=0x0050, text=» CC A5,CRNCIF,A4«, t00=0x0022, t01=0x018e}
0x36b8…36ea Head {h00=0x002e, h01=0x0050, text=» RF(NE) IXR020 OTHER INDEX FILE IS CURRENT«, t00=0x0023, t01=0x0016}
0x36ea…3704 Head {h00=0x0016, h01=0x0050, text=» LC A1,CRNCIF+1,A4«, t00=0x0023, t01=0x0048}
0x3704…372a Head {h00=0x0022, h01=0x0050, text=» LD A2,CRNCIF+2,A4 LOG REC NO «, t00=0x0023, t01=0x0062}
0x372a…373e Head {h00=0x0010, h01=0x0050, text=»IXR020 EQU *«, t00=0x0023, t01=0x0088}
0x373e…374a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x009c}
0x374a…375c Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0023, t01=0x00a8}
0x375c…377a Head {h00=0x001a, h01=0x0050, text=» RF(O) IXR030 OVERFLOW«, t00=0x0023, t01=0x00ba}
0x377a…378c Head {h00=0x000e, h01=0x0050, text=» RF IXR040«, t00=0x0023, t01=0x00d8}
0x378c…37bc Head {h00=0x002c, h01=0x0050, text=»IXR030 ANKL A2,/7FFF REMOVE OVERFLOW BIT«, t00=0x0023, t01=0x00ea}
0x37bc…37d8 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADK CARRY «, t00=0x0023, t01=0x011a}
0x37d8…37ec Head {h00=0x0010, h01=0x0050, text=»IXR040 EQU *«, t00=0x0023, t01=0x0136}
0x37ec…380c Head {h00=0x001c, h01=0x0050, text=» SC A1,ECBCW+3,A8 REC NO«, t00=0x0023, t01=0x014a}
0x380c…3824 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0023, t01=0x016a}
0x3824…3852 Head {h00=0x002a, h01=0x0050, text=» RF TIOD25 DO NOT CHECK EOF CONDITION «, t00=0x0023, t01=0x0182}
0x3852…3860 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0020}
0x3860…386a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002e}
0x386a…388e Head {h00=0x0020, h01=0x0050, text=»IXREWR EQU * INDEXED REWRITE«, t00=0x0024, t01=0x0038}
0x388e…3898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x005c}
0x3898…38ba Head {h00=0x001e, h01=0x0050, text=»IXDEL EQU * INDEXED DELETE«, t00=0x0024, t01=0x0066}
0x38ba…38c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0088}
0x38c4…38e8 Head {h00=0x0020, h01=0x0050, text=»RANWRITE EQU * RANDOM WRITE «, t00=0x0024, t01=0x0092}
0x38e8…38f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b6}
0x38f2…391c Head {h00=0x0026, h01=0x0050, text=»RANWRD EQU * DELAYED RANDOM WRITE «, t00=0x0024, t01=0x00c0}
0x391c…3926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ea}
0x3926…3950 Head {h00=0x0026, h01=0x0050, text=»RANDLD EQU * DELAYED RANDOM DELETE«, t00=0x0024, t01=0x00f4}
0x3950…395a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011e}
0x395a…397c Head {h00=0x001e, h01=0x0050, text=»RANDEL EQU * RANDOM DELETE«, t00=0x0024, t01=0x0128}
0x397c…3986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014a}
0x3986…39a8 Head {h00=0x001e, h01=0x0050, text=»* NO SPECIAL PROCESSING «, t00=0x0024, t01=0x0154}
0x39a8…39b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0176}
0x39b2…39c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0180}
0x39c0…39ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018e}
0x39ca…39ec Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0025, t01=0x0008}
0x39ec…3a0e Head {h00=0x001e, h01=0x0050, text=»* DMTASK ACTIVATION * «, t00=0x0025, t01=0x002a}
0x3a0e…3a30 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0025, t01=0x004c}
0x3a30…3a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006e}
0x3a3a…3a4e Head {h00=0x0010, h01=0x0050, text=»TIODMA EQU *«, t00=0x0025, t01=0x0078}
0x3a4e…3a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008c}
0x3a58…3a78 Head {h00=0x001c, h01=0x0050, text=»* SET EOF IF CRN > LRN«, t00=0x0025, t01=0x0096}
0x3a78…3a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b6}
0x3a82…3a94 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0025, t01=0x00c0}
0x3a94…3ab4 Head {h00=0x001c, h01=0x0050, text=» LC A1,ECBCW+3,A8 REC NO«, t00=0x0025, t01=0x00d2}
0x3ab4…3ad2 Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 DITTO «, t00=0x0025, t01=0x00f2}
0x3ad2…3afa Head {h00=0x0024, h01=0x0050, text=» CC A1,FDBLRN,A6 MOST SIGN PART «, t00=0x0025, t01=0x0110}
0x3afa…3b18 Head {h00=0x001a, h01=0x0050, text=» RF(L) TIOD25 CRN<LRN «, t00=0x0025, t01=0x0138}
0x3b18…3b36 Head {h00=0x001a, h01=0x0050, text=» RF(G) TIOD23 CRN>LRN «, t00=0x0025, t01=0x0156}
0x3b36…3b58 Head {h00=0x001e, h01=0x0050, text=» CW A2,FDBLRN+1,A6 2 PART «, t00=0x0025, t01=0x0174}
0x3b58…3b7a Head {h00=0x001e, h01=0x0050, text=» RF(NG) TIOD25 CRN <= LRN «, t00=0x0026, t01=0x0008}
0x3b7a…3b8e Head {h00=0x0010, h01=0x0050, text=»TIOD23 EQU *«, t00=0x0026, t01=0x002a}
0x3b8e…3bb0 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,/1000 END OF FILE«, t00=0x0026, t01=0x003e}
0x3bb0…3bc8 Head {h00=0x0014, h01=0x0050, text=» ORS A3,ECBRC,A8«, t00=0x0026, t01=0x0060}
0x3bc8…3bdc Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0026, t01=0x0078}
0x3bdc…3bfa Head {h00=0x001a, h01=0x0050, text=» SUKL A7,SQR SEQ READ «, t00=0x0026, t01=0x008c}
0x3bfa…3c18 Head {h00=0x001a, h01=0x0050, text=» RF(NE) TIOD25 NOT SR «, t00=0x0026, t01=0x00aa}
0x3c18…3c2a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0026, t01=0x00c8}
0x3c2a…3c3c Head {h00=0x000e, h01=0x0050, text=» RF TIODME«, t00=0x0026, t01=0x00da}
0x3c3c…3c50 Head {h00=0x0010, h01=0x0050, text=»TIOD25 EQU *«, t00=0x0026, t01=0x00ec}
0x3c50…3c8a Head {h00=0x0036, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR «, t00=0x0026, t01=0x0100}
0x3c8a…3ca8 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN INF «, t00=0x0026, t01=0x013a}
0x3ca8…3cbe Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TIODME«, t00=0x0026, t01=0x0158}
0x3cbe…3ccc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x016e}
0x3ccc…3cd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x017c}
0x3cd6…3d08 Head {h00=0x002e, h01=0x0050, text=»* ACTIVATE DMTASK WITH FDB ADDRESS IN A1«, t00=0x0026, t01=0x0186}
0x3d08…3d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0028}
0x3d12…3d26 Head {h00=0x0010, h01=0x0050, text=»TIOD68 EQU *«, t00=0x0027, t01=0x0032}
0x3d26…3d32 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0027, t01=0x0046}
0x3d32…3d3e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0027, t01=0x0052}
0x3d3e…3d4a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0027, t01=0x005e}
0x3d4a…3d68 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS«, t00=0x0027, t01=0x006a}
0x3d68…3d7a Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0027, t01=0x0088}
0x3d7a…3da2 Head {h00=0x0024, h01=0x0050, text=» LC A7,EXTDMI,A4 TID FOR DMTASK «, t00=0x0027, t01=0x009a}
0x3da2…3db8 Head {h00=0x0012, h01=0x0050, text=» ADKL A7,'#D' «, t00=0x0027, t01=0x00c2}
0x3db8…3ddc Head {h00=0x0020, h01=0x0050, text=» CF A15,FNDTID A2:=TTAB ADDR«, t00=0x0027, t01=0x00d8}
0x3ddc…3dee Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0027, t01=0x00fc}
0x3dee…3e1c Head {h00=0x002a, h01=0x0050, text=» ABL(Z) TASHLT TTAB MISSING IN SCTTCT?«, t00=0x0027, t01=0x010e}
0x3e1c…3e4a Head {h00=0x002a, h01=0x0050, text=»TIOD70 LDKL A2,DMTASK DISPATCH ADDRESS«, t00=0x0027, t01=0x013c}
0x3e4a…3e5c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0027, t01=0x016a}
0x3e5c…3e82 Head {h00=0x0022, h01=0x0050, text=» CF A15,ACTOT ACTIVATE DMTASK «, t00=0x0027, t01=0x017c}
0x3e82…3e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0012}
0x3e8c…3ea6 Head {h00=0x0016, h01=0x0050, text=»* EXIT TO TDISP «, t00=0x0028, t01=0x001c}
0x3ea6…3eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0036}
0x3eb0…3ec2 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0028, t01=0x0040}
0x3ec2…3ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0052}
0x3ecc…3eda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x005c}
0x3eda…3ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x006a}
0x3ee4…3efa Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0028, t01=0x0074}
0x3efa…3f10 Head {h00=0x0012, h01=0x0050, text=»* TIODME *«, t00=0x0028, t01=0x008a}
0x3f10…3f26 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0028, t01=0x00a0}
0x3f26…3f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b6}
0x3f30…3f7e Head {h00=0x004a, h01=0x0050, text=»* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER«, t00=0x0028, t01=0x00c0}
0x3f7e…3f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x010e}
0x3f88…3f9c Head {h00=0x0010, h01=0x0050, text=»TIODPE EQU *«, t00=0x0028, t01=0x0118}
0x3f9c…3fc0 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/2000 PROTECT ERROR«, t00=0x0028, t01=0x012c}
0x3fc0…3fd4 Head {h00=0x0010, h01=0x0050, text=»TIODME EQU *«, t00=0x0028, t01=0x0150}
0x3fd4…3ff0 Head {h00=0x0018, h01=0x0050, text=»* A1 = ERROR CODE «, t00=0x0028, t01=0x0164}
0x3ff0…400c Head {h00=0x0018, h01=0x0050, text=»* A6 = FDB ADDRESS«, t00=0x0028, t01=0x0180}
0x400c…403c Head {h00=0x002c, h01=0x0050, text=» ABL DISEND CALL TENDIO GOTO DISPATCHER«, t00=0x0029, t01=0x000c}
0x403c…4046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x003c}
0x4046…4052 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0029, t01=0x0046}
0x4052…4056 Head {h00=0x4004, h01=0x0000}
0x4056…405a 00 29 00 52 ┆ ) R┆
0x405a…4062 (42, 1, 8) 20 04 00 00 00 2a 00 04 ┆ * ┆
0x4062…40b2 (43, 0, 400) 36 20 00 1a 01 82 00 1a 00 50 5c 52 46 28 5a 29 5c 46 44 3a 30 31 38 5c 4e 4f 54 20 49 42 4d 20 00 1b 00 0a 00 08 00 50 5c 58 49 46 00 1b 00 28 00 0e 00 50 5c 49 46 54 5c 49 42 4d 3d 31 00 1b 00 34 00 2c 00 50 5c 4c 44 52 5c 41 37 2c 41 33 ┆6 P RF(Z) FD:018 NOT IBM P XIF ( P IFT IBM=1 4 , P LDR A7,A3┆
0x40b2…4102 5c 4e 4f 20 4f 46 20 43 48 41 52 2e 20 54 4f 20 42 45 20 54 52 41 4e 53 46 4f 52 4d 45 44 00 1b 00 46 00 12 00 50 5c 43 46 5c 41 35 2c 45 42 43 44 49 43 20 00 1b 00 76 00 10 00 50 46 44 3a 30 31 38 5c 45 51 55 5c 2a 00 1b 00 8c 00 08 00 50 ┆ NO OF CHAR. TO BE TRANSFORMED F P CF A5,EBCDIC v PFD:018 EQU * P┆
0x4102…4152 5c 58 49 46 00 1b 00 a0 00 06 00 50 2a 20 00 1b 00 ac 00 14 00 50 5c 49 46 54 5c 43 48 41 4e 2b 54 4f 53 53 3d 32 00 1b 00 b6 00 18 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 2b 53 57 50 42 4c 4b 3d 32 00 1b 00 ce 00 34 00 50 5c 4c 44 5c 41 31 ┆ XIF P* P IFT CHAN+TOSS=2 P IFT MMUPAG+SWPBLK=2 4 P LD A1┆
0x4152…41a2 2c 44 57 54 3a 4c 41 2c 41 36 5c 47 45 54 20 46 4c 41 47 2f 4c 4f 47 49 43 41 4c 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 1b 00 ea 00 28 00 50 5c 52 46 28 5a 29 5c 46 44 3a 30 31 39 5c 42 55 46 46 45 52 20 49 4e 20 53 59 53 54 45 4d ┆,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( P RF(Z) FD:019 BUFFER IN SYSTEM┆
0x41a2…41f2 20 41 52 45 41 3f 00 1b 01 22 00 28 00 50 5c 4c 44 5c 41 37 2c 45 43 42 52 4c 2c 41 38 5c 47 45 54 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 1b 01 4e 00 16 00 50 5c 4c 44 52 5c 41 38 2c 41 32 5c 53 41 56 45 20 41 32 00 1b 01 7a ┆ AREA? " ( P LD A7,ECBRL,A8 GET REQUESTED LENGTH N P LDR A8,A2 SAVE A2 z┆
0x41f2…4242 (44, 0, 400) 00 26 00 50 5c 4c 44 52 5c 41 32 2c 41 34 5c 47 45 54 20 44 57 54 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 1c 00 04 00 26 00 50 5c 54 53 5c 2d 33 30 2c 41 31 35 5c 53 41 56 45 20 52 55 4e 4e 49 4e 47 20 54 41 53 4b 20 4d 4d 55 20 ┆ & P LDR A2,A4 GET DWT BUFFER ADDRESS & P TS -30,A15 SAVE RUNNING TASK MMU ┆
0x4242…4292 00 1c 00 2e 00 28 00 50 5c 54 4c 5c 44 57 54 3a 50 41 2c 41 36 5c 4c 4f 41 44 20 50 53 45 55 44 4f 20 4d 4d 55 20 54 41 42 4c 45 20 00 1c 00 58 00 32 00 50 5c 4d 56 55 53 5c 41 37 5c 4d 4f 56 45 20 42 55 46 46 45 52 20 46 52 4f 4d 20 55 53 ┆ . ( P TL DWT:PA,A6 LOAD PSEUDO MMU TABLE X 2 P MVUS A7 MOVE BUFFER FROM US┆
0x4292…42e2 45 52 20 54 4f 20 53 59 53 54 45 4d 20 41 52 45 41 20 00 1c 00 84 00 26 00 50 5c 54 4c 5c 2d 33 30 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 4d 4d 55 20 46 52 4f 4d 20 53 54 41 43 4b 00 1c 00 ba 00 1a 00 50 5c 4c 44 52 5c 41 32 2c 41 38 5c 52 ┆ER TO SYSTEM AREA & P TL -30,A15 RESTORE MMU FROM STACK P LDR A2,A8 R┆
0x42e2…4332 45 53 54 4f 52 45 20 41 32 20 00 1c 00 e4 00 06 00 50 2a 20 00 1c 01 02 00 10 00 50 5c 20 5c 5c 5c 44 52 46 44 30 31 20 00 1c 01 0c 00 06 00 50 2a 20 00 1c 01 20 00 06 00 50 2a 20 00 1c 01 2a 00 10 00 50 46 44 3a 30 31 39 5c 45 51 55 5c 2a ┆ESTORE A2 P* P DRFD01 P* P* * PFD:019 EQU *┆
0x4332…4382 00 1c 01 34 00 08 00 50 5c 58 49 46 00 1c 01 48 00 06 00 50 2a 20 00 1c 01 54 00 22 00 50 5c 43 46 5c 41 35 2c 46 44 3a 57 52 49 54 45 5c 50 45 52 46 4f 52 4d 45 20 57 52 49 54 45 00 1c 01 5e 00 06 00 50 2a 20 00 1c 01 84 00 14 00 50 5c 49 ┆ 4 P XIF H P* T " P CF A5,FD:WRITE PERFORME WRITE ^ P* P I┆