|
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: 17242 (0x435a)
Notes: pts_type(SC)
Names: »DMSUBX.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DMSUBX.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/DMSUBX.SC«
IDENT DMSUBX REL 9.2 79-11-16 870105040920 * **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS * * * * * * **************************************************** ****THIS MODULE IS ACTIVATED FROM :***************** * * DMTASK * *************** * ENTRIES * *************** * ENTRY FNDKMX,CHKKEY ENTRY RDNXTR ENTRY FNDKEY ENTRY CRNUPD * ***************** * EXTERNALS * ***************** * EXTRN MPYMOD EXTRN EXTLEN,FDBECB,FDBMIA,BUFSTA,FDBRLE,FDBSNR,ECBCW EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU EXTRN DMTIOZ EJECT ****DESCRIPTION************************************* * * FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX. * A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. * THE SEARCH KEY MAY BE TERMINATED WITH A /EE. * THE FIRST TWO WORDS IN MASTER INDEX IS : * - NO OF ENTRIES N * - NO OF CHARACTERS PER ENTRY * ****ENTRY PARAMETERS******************************** * * A5 = MASTER INDEX ADRESS * A8 = ADRESS OF SEARCH KEy * A11 = NR OF CHAR IN KEY * * CF A14,FNDKMX * ****EXIT PARAMETERS********************************* * * A1,A2 = LODGICAL RECORD NO IN INDEX FILE * A8,A11= UNCHANGED * ****USED REGISTERS********************************** * * A1 - A11 EJECT FNDKMX EQU * LDR* A2,A5 NO OF ENTRIES N RF(NP) FND045 NO MASTER INDEX LDR A9,A2 ANKL A9,/1 GET BIT 15 SRA A2,1 LDR A10,A2 M=N/2 FLOOR ADR A9,A2 I=N/2 CEILING ADK A5,2 TABLE BASE - 2 FND020 EQU * LDK A2,0 LDR* A7,A5 ENTRY LENGTH LDR A6,A9 I SUK A6,1 RF(NP) FND025 HANDLES ALSO I=0 CF A14,MPYMOD A1,A2=(I-1)*EL SRC A1,1 ORR A2,A1 GET MOST SIGN BIT FND025 EQU * ADR A2,A5 ADD MI BASE ADR - 2 ADK A2,2 ENTRY KEY ADR LDR A1,A2 SAVE ENTRY ADR LDR A3,A8 SEARCH KEY ADR LDR A6,A11 MAX KEY LENGTH LDK A7,0 CHAR ADR CF A14,CHKKEY COMPARE KEYS LDR A7,A10 M LDR A6,A7 ANK A6,/1 BIT 15 SRA A7,1 M/2 FLOOR ADR A6,A7 M/2 CEILING LDR A3,A3 CHKKEY RTN INF RF(NG) FND040 SEARCHED KEY LESS OR EQUAL * * SEARCHED KEY GREATER * LDR A10,A10 M RF(Z) FND050 SEARCH READY ADR A9,A6 I=I+(M/2 CEIL) FND030 EQU * LDR A10,A7 M=M/2 FLOOR RB FND020 FND040 EQU * LDR A10,A10 M RF(Z) FND060 SEARCH READY SUR A9,A6 I=I-(M/2 CEIL) RB FND030 FND045 EQU * NO MASTER INDEX LDK A1,0 LDK A2,1 REC NR 1 RF FND070 FND050 EQU * ADR* A1,A5 ARDR NEXT ENTRY FND060 EQU * LDR A3,A1 ENTRY ADR SUK A3,3 ADR* A3,A5 ADR REC NO * * MOVE LOG REC NO TO A1,A2 * LDK A1,0 LCR A1,A3 ADK A3,1 LCR A2,A3 ADK A3,1 ECR A2,A2 LCR A2,A3 FND070 EQU * RTN A14 EJECT ****DESCRIPTION************************************* * * CHKKEY COMPARE TWO CHARACTER STRINGS. THE SEARCH KEY MAY BE * TERMINATED WITH A /EE. * ****ENTRY PARAMETERS******************************** * * A2 = ADR OF ENTRY KEY * A3 = ADR OF SEARCH KEY * A6 = MAX NO OF CAHARACTERS IN KEY * A7 = REL NO OF FIRST CHAR TO CHECK IN KEY * * CF A14,CHKKEY * ****EXIT PARAMETERS********************************* * * A3 = 0 WHEN SEARCED KEY IS CONTAINED IN ENTRY KEY * = + 1 WHEN SEARCH KYEY IS GREATER * = -1 WHEN SEARCH KEY IS LESS * A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY * A6 = MAX NO OF CHAR IN KEY * ****USED REGISTERS********************************** * * A2-A4,A6-A7 ******************************************************** EJECT CHKKEY EQU * ADR A3,A7 FIRST SC CHAR TO TEST ADR A2,A7 FIRST EC CHAR TO TEST CHK020 EQU * LCR A4,A3 SEARCED KEY CHAR CCK A4,/EE00 RF(E) CHK060 END OF KEY CHAR CCR A4,A2 SC=EC? RF(G) CHK100 SC GT TH EC RF(L) CHK120 SC LESS THAN EC ADK A7,1 NO OF SAME CHAR CWR A7,A6 NO OF CHAR RF(NL) CHK060 ALL CHAR CHECKED ADK A3,1 NXT SC TO TEST ADK A2,1 NXT EC TO TEST RB CHK020 CHK060 EQU * LDK A3,0 FOUND RF CHK140 CHK120 EQU * LDKL A3,-1 SEARCHED KEY SMALLER RF CHK140 CHK100 EQU * LDK A3,1 SEARCHED KEY SGREATER CHK140 EQU * RTN A14 EJECT ****DESCRIPTION************************************* * * RDNXTR WILL MAKWE NEXT RECORD IN AN INDEX FILE AVAILABLE * IN A CORE BUFFER * WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED * SECTOR WILL BE MADE AVAILABLE * ****ENTRY PARAMETERS******************************** * * A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) * FDBCEX,FDBSNR * FDBRRO = RECORD OFFSET IN BUFFER, WHEN = -1 THE FIRST * RECORD IN CURRENT SECTOR IS WANTED * A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN * SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED * A8 = ECB ADDRESS * ****EXIT PARAMETERS********************************* * * RETURN AT ADDR 0 WHEN OK AND A5 UNDEFINED * + 2 WHEN ERROR * A1 = FDB ADDRESS * A5 = ERROR CODE (RETURN CODE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED * A2 = FDBRRO = RECORD OFFSET * A3 = BUFFER ADDRESS * = 0 WHEN NO BUFFER IS ALLOCATED * A8 = ECB ADDRESS * ****USED REGISTERS********************************** * * A1-A5,A8-A10,A13 + THREE WORDS ON A14 STACK * ****************************************************** EJECT RDNXTR EQU * LDR A10,A3 SAVE BUFFER ADDR RF(NZ) RDN200 BUFFER EXIST STR A7,A14 SUKL A14,4 ST A6,2,A14 * * GET A BUFFER * RDN040 EQU * CF A14,GTBKBU GET BLOCKBUFFERADDR LDR A2,A2 RF(NN) RDN080 DATA ALREADY IN CORE * * READ SECTOR FROM DISC * LDR A10,A3 BUFFER ADDR LDK A7,/91 PHYS READ WITH WAIT LKM DATA 1 CF A14,DMTIOZ CHECK RETURN CODES LDR A1,A1 RF(NZ) RDN900 ERROR LDR A1,A6 FDB ADDR RDN080 EQU * LDR A6,A1 FDB ADDR LDK A2,0 ST A2,FDBRRO,A1 OFFSET FIRST RECORD RF RDN940 RETURN * * BUFFER WAS BEFORE * RDN200 EQU * LD A2,FDBRRO,A1 REC ORD OFFSET RF(NN) RDN220 NOT FIRST REC STR A7,A14 SUKL A14,4 ST A6,2,A14 RB RDN080 FIRST REC WANTED * * CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER * RDN220 EQU * CW A2,FDBMRO,A1 MAX OFFSET RF(NL) RDN300 THIS REC LAST IN BUFFER * * GET NEXT REC IN CURRENT BLOCKBUFFER * AD A2,FDBRLE,A1 RECOR D LENGTH ADK A2,1 STATUS CHAR ST A2,FDBRRO,A1 NEW OFFSET RF RDN950 RETURN * * CHECK IF THIS RECORD ALSO IS LAST IN EXTENT * RDN300 EQU * STR A7,A14 SUKL A14,4 ST A6,2,A14 LD A3,FDBCEX,A1 EXT ADDR LD A5,EXTBAS,A3 EXT BASE AD A5,EXTLEN,A3 EXTENT LENGTH SUK A5,1 CW A5,FDBSNR,A1 SECT NO CURRENT RF(NG) RDN400 IT WAS LAST REC IN EXTENT * * NEW SECTOR * IM FDBSNR,A1 SECT NO LDR A6,A1 FDB ADDR RF RDN500 * * TAKE CARE OF LAST REC IN EXTENT * RDN400 EQU * LDR A13,A8 ECB ADDR CF A14,GTLGRN GET LOG REC NO LDR A1,A2 LDR A2,A3 LDK A6,0 LDK A7,1 CF A14,ADDMOD NEXT REC NO LDR A6,A5 RESTORE FDB ADDR CF A14,CALSNO GET NEXT REC ADDR PHYS LDR A8,A13 LDR A1,A1 CHECK EN D OF MEDIUM RF(Z) RDN500 OK RF RDN900 EXIT * * GET NEXT SECTOR * RDN500 EQU * LDR A3,A10 BUFFER ADDR CF A14,DMTRBU RELEASE BUFFER LDR A1,A6 FDB ADDR RB RDN040 NEXT SECTOR * * EXIT * RDN900 EQU * LDR A5,A1 RET CODE LDR A1,A6 FDB ADDR LDR A3,A10 BUFFER ADDR RF(Z) RDN960 NO BUFFER CF A14,DMTRBU RELEASE BUFFER RDN960 EQU * LDK A3,2 ADS A3,8,A14 RET ADDR LDK A3,0 BUFFER ADDR RDN940 EQU * LD A6,2,A14 ADKL A14,4 LDR* A7,A14 RDN950 EQU * RTN A14 EJECT ****DESCRIPTION************************************* * * FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE * SPECIFIED KEY OR NEXT HIGHER KEY * IF END OF FILE, THE FIRST FREE RECORD IS FOUND * ****ENTRY PARAMETERS******************************** * * A1 = FDB ADDRESS * A8 = SEARCH KEY ADDR * A11 = NO OF CHARACTERS IN KEY * A13= PHYSICAL ECB ADDRESS * ****EXIT PARAMETERS********************************* * * A1 = FDB ADDRESS * FDBSNR,FDBRRO = FOUND INDEX RECORD * A2 = 0 WHEN KEY ISS FOUND * = /4000 WHEN NEXT HIGHER KEY IS FOUND * = RETURN CODE WHEN KEY IS NOT FOUND * BIT 1 CAN NEVBER BE SET BY DISC DRIVER * A3 = BUFFER ADDRESS * = 0 WHEN NO RECORD IS FOUND * A7 = NO OF SAME CHARACTERS * A8 = PHYSICAL ECB ADDRESS * A11 = UNCHANGED * ****USED REGISTERS********************************** * * A1 - A11,A13 + 4 WORDS ON A14 STACK * ****************************************************** EJECT FNDKEY EQU * * * FIRST SEARCH THE NMASTER INDEX * LD A5,FDBMIA,A1 ADDR OF MASTER INDEX STR A1,A14 FDB ADDRESS IS SAVED SUKL A14,8 ST A8,6,A14 SAVE SEARCH KEY ADDR CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX LD A6,8,A14 FDB ADDR CF A14,CALSNO GET PHYS ADDR LDR A1,A1 RF(NZ) FKY900 ERROR LDR A1,A6 FDBADDR LDR A6,A11 NO OF CHAR IN KEY LDK A7,0 START CHAR KEY SEARCH SUR A9,A9 NO BUFFER TO START WITH LDR A8,A13 ECB ADDR FKY100 EQU * LDR A3,A9 BUFFER ADDR CF A14,RDNXTR GET INDEX RECORD RF FKY150 LDR A1,A5 RET CODE RF FKY900 ERROR EXIT * * BUFFER AND ADATA IS FOUND * FKY150 EQU * LDR A9,A3 BUFFER ADDR ADR A2,A3 BUFFER ADR ADK A2,10 REC ADDR LDR A10,A2 SAVE REC ADDR AD A10,FDBRLE,A1 ADDR OF STATUS CHAR LDK A5,/FF USED CHAR MARK CCR A5,A10 STATUS CHAR RF(E) FKY200 USED RECORD * * NO MORE RECORDS IN THIS SECTOR * LD A13,FDBRRO,A1 SAVE CURRENT OFFSET LD A4,FDBMRO,A1 ST A4,FDBRRO,A1 LAST REC IN SECT * * *CHECK IF EOF * LDR A10,A7 CHAR ADDR CF A14,GTLGRN GET LOG REC NR LDR A6,A11 NR OF CHAR LDR A7,A10 CHAR ADDR CC A2,FDBLRN,A1 RB(L) FKY100 NOT EOF RF(G) FKY180 EOF CW A3,FDBLRN+1,A1 RB(L) FKY100 NOT EOF FKY180 EQU * * * EOF IS IN THIS SECTOR * ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD LDK A7,0 NR OF SAME CHAR LDKL A2,/1000 EOF RF FKY950 * * CHECK KEY IN THIS RECODRD * FKY200 EQU * LD A3,6,A14 SEARCH KEY ADDR CF A14,CHKKEY COMPARE KEYS LDR A3,A3 RF(P) FKY840 SEARCHED KEY GREATER RF(N) FKY850 SEARCH KEY LESS RF FKY870 KEY FOUNFD FKY840 EQU * CC A7,-4,A10 NEXT KEY FLAG RB(NG) FKY100 THE NEXT KEY IS IDENTICAL FOR * AT LEAST THE SAME NO OF LEADING CHARACTERS * THAT HAS BEEN CHECKED FOR THIS KEY LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS RB FKY100 NEXT KEY FKY850 EQU * LDKL A2,/4000 KEY NOT FOUND RF FKY950 FKY870 EQU * LDK A2,0 KEY FOUND RF FKY950 FKY900 EQU * SUR A9,A9 NO BUFFERS LDR A2,A1 ERR CODE LDK A7,0 NO OF SAME LEAD CHARS FKY950 EQU * ADKL A14,8 RESTORE STACK LDR* A1,A14 FDB ADDR LDR A3,A9 BUFFER ADDR RTN A14 EJECT * * CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX * RECORDS ARE UPDATED * * IN: * A8,A9 = LAST RECORD NR MOVED * A10,A11= FIRST RECORD NR MOVED * A5 = FDB ADDR INDEX * A12 = ADD PARAMETER +1, -1 * * USED REGISTERS: * A1 -A12 * * OUT: * A5 = FDB ADDR INDEX * A10,A11 = UNCHANGED * CRNUPD EQU * STR A12,A14 SUKL A14,2 LD A12,FDBADF,A5 FDB DATA FILE INH LD A12,FDBCRL,A12 CRN LINK ROOT RF CRU120 CRU100 LDR* A12,A12 CRU120 RF(Z) CRU900 END OF LINK LC A7,FDBECB+1,A5 FILE CODE CC A7,CRNCIF,A12 RB(NE) CRU100 WRONG FC CC A10,CRNCIF+1,A12 RB(G) CRU100 RF(L) CRU200 CW A11,CRNCIF+2,A12 RB(G) CRU100 CRU200 EQU * CC A8,CRNCIF+1,A12 RF(G) CRU300 RB(L) CRU100 CW A9,CRNCIF+2,A12 RB(L) CRU100 CRU300 EQU * * * UPDATE CRN * LD A7,2,A14 ADD PARAM LDR A6,A7 RF(N) CRU230 -1 LDK A6,0 CRU230 EQU * ANKL A7,/7FFF LDK A1,0 LC A1,CRNCIF+1,A12 LD A2,CRNCIF+2,A12 CF A14,ADDMOD SC A1,CRNCIF+1,A12 ST A2,CRNCIF+2,A12 RB CRU100 CRU900 EQU * ADKL A14,2 ENB RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DMSUBX REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0084 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x004c}
0x0084…008e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00b6 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x0092}
0x00b6…00c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00f6 Head {h00=0x0032, h01=0x0050, text=»* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS «, t00=0x0000, t01=0x00c4}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012c}
0x0132…016e Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0136}
0x016e…01aa Head {h00=0x0038, h01=0x0050, text=»****THIS MODULE IS ACTIVATED FROM :*****************«, t00=0x0000, t01=0x0172}
0x01aa…01b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001e}
0x01b4…01c6 Head {h00=0x000e, h01=0x0050, text=»* DMTASK«, t00=0x0001, t01=0x0028}
0x01c6…01d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003a}
0x01d0…01e8 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x0044}
0x01e8…0200 Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x005c}
0x0200…0218 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x0074}
0x0218…0222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008c}
0x0222…023e Head {h00=0x0018, h01=0x0050, text=» ENTRY FNDKMX,CHKKEY«, t00=0x0001, t01=0x0096}
0x023e…0254 Head {h00=0x0012, h01=0x0050, text=» ENTRY RDNXTR «, t00=0x0001, t01=0x00b2}
0x0254…026a Head {h00=0x0012, h01=0x0050, text=» ENTRY FNDKEY «, t00=0x0001, t01=0x00c8}
0x026a…0280 Head {h00=0x0012, h01=0x0050, text=» ENTRY CRNUPD «, t00=0x0001, t01=0x00de}
0x0280…028a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f4}
0x028a…02a4 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x00fe}
0x02a4…02be Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0001, t01=0x0118}
0x02be…02d8 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x0132}
0x02d8…02e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e2…02f8 Head {h00=0x0012, h01=0x0050, text=» EXTRN MPYMOD «, t00=0x0001, t01=0x0156}
0x02f8…0336 Head {h00=0x003a, h01=0x0050, text=» EXTRN EXTLEN,FDBECB,FDBMIA,BUFSTA,FDBRLE,FDBSNR,ECBCW«, t00=0x0001, t01=0x016c}
0x0336…0368 Head {h00=0x002e, h01=0x0050, text=» EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR «, t00=0x0002, t01=0x001a}
0x0368…039a Head {h00=0x002e, h01=0x0050, text=» EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF «, t00=0x0002, t01=0x004c}
0x039a…03d2 Head {h00=0x0034, h01=0x0050, text=» EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU«, t00=0x0002, t01=0x007e}
0x03d2…03e8 Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTIOZ «, t00=0x0002, t01=0x00b6}
0x03e8…03f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00cc}
0x03f6…0432 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0002, t01=0x00da}
0x0432…043c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0116}
0x043c…047c Head {h00=0x003c, h01=0x0050, text=»* FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX.«, t00=0x0002, t01=0x0120}
0x047c…04be Head {h00=0x003e, h01=0x0050, text=»* A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. «, t00=0x0002, t01=0x0160}
0x04be…04f6 Head {h00=0x0034, h01=0x0050, text=»* THE SEARCH KEY MAY BE TERMINATED WITH A /EE.«, t00=0x0003, t01=0x0012}
0x04f6…052a Head {h00=0x0030, h01=0x0050, text=»* THE FIRST TWO WORDS IN MASTER INDEX IS :«, t00=0x0003, t01=0x004a}
0x052a…0548 Head {h00=0x001a, h01=0x0050, text=»* - NO OF ENTRIES N «, t00=0x0003, t01=0x007e}
0x0548…0570 Head {h00=0x0024, h01=0x0050, text=»* - NO OF CHARACTERS PER ENTRY«, t00=0x0003, t01=0x009c}
0x0570…057a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c4}
0x057a…05b6 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0003, t01=0x00ce}
0x05b6…05c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010a}
0x05c0…05e4 Head {h00=0x0020, h01=0x0050, text=»* A5 = MASTER INDEX ADRESS«, t00=0x0003, t01=0x0114}
0x05e4…060a Head {h00=0x0022, h01=0x0050, text=»* A8 = ADRESS OF SEARCH KEy «, t00=0x0003, t01=0x0138}
0x060a…062e Head {h00=0x0020, h01=0x0050, text=»* A11 = NR OF CHAR IN KEY «, t00=0x0003, t01=0x015e}
0x062e…0638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0182}
0x0638…0654 Head {h00=0x0018, h01=0x0050, text=»* CF A14,FNDKMX «, t00=0x0003, t01=0x018c}
0x0654…065e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0018}
0x065e…069a Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0004, t01=0x0022}
0x069a…06a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005e}
0x06a4…06d8 Head {h00=0x0030, h01=0x0050, text=»* A1,A2 = LODGICAL RECORD NO IN INDEX FILE«, t00=0x0004, t01=0x0068}
0x06d8…06f6 Head {h00=0x001a, h01=0x0050, text=»* A8,A11= UNCHANGED «, t00=0x0004, t01=0x009c}
0x06f6…0700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ba}
0x0700…073c Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0004, t01=0x00c4}
0x073c…0746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0100}
0x0746…075a Head {h00=0x0010, h01=0x0050, text=»* A1 - A11«, t00=0x0004, t01=0x010a}
0x075a…0768 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x011e}
0x0768…077c Head {h00=0x0010, h01=0x0050, text=»FNDKMX EQU *«, t00=0x0004, t01=0x012c}
0x077c…07a0 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A5 NO OF ENTRIES N «, t00=0x0004, t01=0x0140}
0x07a0…07c6 Head {h00=0x0022, h01=0x0050, text=» RF(NP) FND045 NO MASTER INDEX«, t00=0x0004, t01=0x0164}
0x07c6…07d8 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x0004, t01=0x018a}
0x07d8…07f6 Head {h00=0x001a, h01=0x0050, text=» ANKL A9,/1 GET BIT 15«, t00=0x0005, t01=0x000c}
0x07f6…0808 Head {h00=0x000e, h01=0x0050, text=» SRA A2,1 «, t00=0x0005, t01=0x002a}
0x0808…0828 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A2 M=N/2 FLOOR «, t00=0x0005, t01=0x003c}
0x0828…0848 Head {h00=0x001c, h01=0x0050, text=» ADR A9,A2 I=N/2 CEILING«, t00=0x0005, t01=0x005c}
0x0848…0868 Head {h00=0x001c, h01=0x0050, text=» ADK A5,2 TABLE BASE - 2«, t00=0x0005, t01=0x007c}
0x0868…087c Head {h00=0x0010, h01=0x0050, text=»FND020 EQU *«, t00=0x0005, t01=0x009c}
0x087c…088e Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0005, t01=0x00b0}
0x088e…08ae Head {h00=0x001c, h01=0x0050, text=» LDR* A7,A5 ENTRY LENGTH«, t00=0x0005, t01=0x00c2}
0x08ae…08c2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A9 I«, t00=0x0005, t01=0x00e2}
0x08c2…08d4 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0005, t01=0x00f6}
0x08d4…08fc Head {h00=0x0024, h01=0x0050, text=» RF(NP) FND025 HANDLES ALSO I=0 «, t00=0x0005, t01=0x0108}
0x08fc…0922 Head {h00=0x0022, h01=0x0050, text=» CF A14,MPYMOD A1,A2=(I-1)*EL «, t00=0x0005, t01=0x0130}
0x0922…0934 Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x0005, t01=0x0156}
0x0934…0958 Head {h00=0x0020, h01=0x0050, text=» ORR A2,A1 GET MOST SIGN BIT«, t00=0x0005, t01=0x0168}
0x0958…096c Head {h00=0x0010, h01=0x0050, text=»FND025 EQU *«, t00=0x0005, t01=0x018c}
0x096c…0992 Head {h00=0x0022, h01=0x0050, text=» ADR A2,A5 ADD MI BASE ADR - 2«, t00=0x0006, t01=0x0010}
0x0992…09b2 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 ENTRY KEY ADR «, t00=0x0006, t01=0x0036}
0x09b2…09d4 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 SAVE ENTRY ADR «, t00=0x0006, t01=0x0056}
0x09d4…09f6 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A8 SEARCH KEY ADR «, t00=0x0006, t01=0x0078}
0x09f6…0a18 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A11 MAX KEY LENGTH«, t00=0x0006, t01=0x009a}
0x0a18…0a32 Head {h00=0x0016, h01=0x0050, text=» LDK A7,0 CHAR ADR«, t00=0x0006, t01=0x00bc}
0x0a32…0a56 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0006, t01=0x00d6}
0x0a56…0a6c Head {h00=0x0012, h01=0x0050, text=» LDR A7,A10 M «, t00=0x0006, t01=0x00fa}
0x0a6c…0a7e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0006, t01=0x0110}
0x0a7e…0a98 Head {h00=0x0016, h01=0x0050, text=» ANK A6,/1 BIT 15 «, t00=0x0006, t01=0x0122}
0x0a98…0ab4 Head {h00=0x0018, h01=0x0050, text=» SRA A7,1 M/2 FLOOR «, t00=0x0006, t01=0x013c}
0x0ab4…0ad2 Head {h00=0x001a, h01=0x0050, text=» ADR A6,A7 M/2 CEILING«, t00=0x0006, t01=0x0158}
0x0ad2…0af4 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 CHKKEY RTN INF «, t00=0x0006, t01=0x0176}
0x0af4…0b26 Head {h00=0x002e, h01=0x0050, text=» RF(NG) FND040 SEARCHED KEY LESS OR EQUAL «, t00=0x0007, t01=0x0008}
0x0b26…0b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003a}
0x0b30…0b50 Head {h00=0x001c, h01=0x0050, text=»* SEARCHED KEY GREATER«, t00=0x0007, t01=0x0044}
0x0b50…0b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0064}
0x0b5a…0b70 Head {h00=0x0012, h01=0x0050, text=» LDR A10,A10 M«, t00=0x0007, t01=0x006e}
0x0b70…0b92 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FND050 SEARCH READY«, t00=0x0007, t01=0x0084}
0x0b92…0bb4 Head {h00=0x001e, h01=0x0050, text=» ADR A9,A6 I=I+(M/2 CEIL) «, t00=0x0007, t01=0x00a6}
0x0bb4…0bc8 Head {h00=0x0010, h01=0x0050, text=»FND030 EQU *«, t00=0x0007, t01=0x00c8}
0x0bc8…0be8 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A7 M=M/2 FLOOR «, t00=0x0007, t01=0x00dc}
0x0be8…0bfa Head {h00=0x000e, h01=0x0050, text=» RB FND020«, t00=0x0007, t01=0x00fc}
0x0bfa…0c0e Head {h00=0x0010, h01=0x0050, text=»FND040 EQU *«, t00=0x0007, t01=0x010e}
0x0c0e…0c24 Head {h00=0x0012, h01=0x0050, text=» LDR A10,A10 M«, t00=0x0007, t01=0x0122}
0x0c24…0c46 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FND060 SEARCH READY«, t00=0x0007, t01=0x0138}
0x0c46…0c68 Head {h00=0x001e, h01=0x0050, text=» SUR A9,A6 I=I-(M/2 CEIL) «, t00=0x0007, t01=0x015a}
0x0c68…0c7a Head {h00=0x000e, h01=0x0050, text=» RB FND030«, t00=0x0007, t01=0x017c}
0x0c7a…0c9e Head {h00=0x0020, h01=0x0050, text=»FND045 EQU * NO MASTER INDEX«, t00=0x0007, t01=0x018e}
0x0c9e…0cb0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0008, t01=0x0022}
0x0cb0…0cca Head {h00=0x0016, h01=0x0050, text=» LDK A2,1 REC NR 1«, t00=0x0008, t01=0x0034}
0x0cca…0cdc Head {h00=0x000e, h01=0x0050, text=» RF FND070«, t00=0x0008, t01=0x004e}
0x0cdc…0cf0 Head {h00=0x0010, h01=0x0050, text=»FND050 EQU *«, t00=0x0008, t01=0x0060}
0x0cf0…0d14 Head {h00=0x0020, h01=0x0050, text=» ADR* A1,A5 ARDR NEXT ENTRY «, t00=0x0008, t01=0x0074}
0x0d14…0d28 Head {h00=0x0010, h01=0x0050, text=»FND060 EQU *«, t00=0x0008, t01=0x0098}
0x0d28…0d44 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A1 ENTRY ADR«, t00=0x0008, t01=0x00ac}
0x0d44…0d56 Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0008, t01=0x00c8}
0x0d56…0d74 Head {h00=0x001a, h01=0x0050, text=» ADR* A3,A5 ADR REC NO«, t00=0x0008, t01=0x00da}
0x0d74…0d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7e…0da2 Head {h00=0x0020, h01=0x0050, text=»* MOVE LOG REC NO TO A1,A2«, t00=0x0008, t01=0x0102}
0x0da2…0dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0126}
0x0dac…0dbe Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0008, t01=0x0130}
0x0dbe…0dd0 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0008, t01=0x0142}
0x0dd0…0de2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0008, t01=0x0154}
0x0de2…0df4 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0008, t01=0x0166}
0x0df4…0e06 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0008, t01=0x0178}
0x0e06…0e18 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0008, t01=0x018a}
0x0e18…0e2a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0009, t01=0x000c}
0x0e2a…0e3e Head {h00=0x0010, h01=0x0050, text=»FND070 EQU *«, t00=0x0009, t01=0x001e}
0x0e3e…0e4e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0009, t01=0x0032}
0x0e4e…0e5c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0042}
0x0e5c…0e98 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0009, t01=0x0050}
0x0e98…0ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008c}
0x0ea2…0eea Head {h00=0x0044, h01=0x0050, text=»* CHKKEY COMPARE TWO CHARACTER STRINGS. THE SEARCH KEY MAY BE «, t00=0x0009, t01=0x0096}
0x0eea…0f0c Head {h00=0x001e, h01=0x0050, text=»* TERMINATED WITH A /EE.«, t00=0x0009, t01=0x00de}
0x0f0c…0f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0100}
0x0f16…0f52 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0009, t01=0x010a}
0x0f52…0f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0146}
0x0f5c…0f7e Head {h00=0x001e, h01=0x0050, text=»* A2 = ADR OF ENTRY KEY «, t00=0x0009, t01=0x0150}
0x0f7e…0fa0 Head {h00=0x001e, h01=0x0050, text=»* A3 = ADR OF SEARCH KEY«, t00=0x0009, t01=0x0172}
0x0fa0…0fce (10, 0, 400) Head {h00=0x002a, h01=0x0050, text=»* A6 = MAX NO OF CAHARACTERS IN KEY «, t00=0x000a, t01=0x0004}
0x0fce…1004 Head {h00=0x0032, h01=0x0050, text=»* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY «, t00=0x000a, t01=0x0032}
0x1004…100e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0068}
0x100e…102a Head {h00=0x0018, h01=0x0050, text=»* CF A14,CHKKEY «, t00=0x000a, t01=0x0072}
0x102a…1034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008e}
0x1034…1070 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000a, t01=0x0098}
0x1070…107a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d4}
0x107a…10b8 Head {h00=0x003a, h01=0x0050, text=»* A3 = 0 WHEN SEARCED KEY IS CONTAINED IN ENTRY KEY «, t00=0x000a, t01=0x00de}
0x10b8…10e8 Head {h00=0x002c, h01=0x0050, text=»* = + 1 WHEN SEARCH KYEY IS GREATER«, t00=0x000a, t01=0x011c}
0x10e8…1114 Head {h00=0x0028, h01=0x0050, text=»* = -1 WHEN SEARCH KEY IS LESS «, t00=0x000a, t01=0x014c}
0x1114…1166 Head {h00=0x004e, h01=0x0050, text=»* A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY«, t00=0x000a, t01=0x0178}
0x1166…118c Head {h00=0x0022, h01=0x0050, text=»* A6 = MAX NO OF CHAR IN KEY«, t00=0x000b, t01=0x003a}
0x118c…1196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0060}
0x1196…11d2 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x000b, t01=0x006a}
0x11d2…11dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a6}
0x11dc…11f4 Head {h00=0x0014, h01=0x0050, text=»* A2-A4,A6-A7 «, t00=0x000b, t01=0x00b0}
0x11f4…1234 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x000b, t01=0x00c8}
0x1234…1242 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0108}
0x1242…1256 Head {h00=0x0010, h01=0x0050, text=»CHKKEY EQU *«, t00=0x000b, t01=0x0116}
0x1256…127e Head {h00=0x0024, h01=0x0050, text=» ADR A3,A7 FIRST SC CHAR TO TEST«, t00=0x000b, t01=0x012a}
0x127e…12a6 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A7 FIRST EC CHAR TO TEST«, t00=0x000b, t01=0x0152}
0x12a6…12ba Head {h00=0x0010, h01=0x0050, text=»CHK020 EQU *«, t00=0x000b, t01=0x017a}
0x12ba…12de Head {h00=0x0020, h01=0x0050, text=» LCR A4,A3 SEARCED KEY CHAR «, t00=0x000b, t01=0x018e}
0x12de…12f4 Head {h00=0x0012, h01=0x0050, text=» CCK A4,/EE00 «, t00=0x000c, t01=0x0022}
0x12f4…131a Head {h00=0x0022, h01=0x0050, text=» RF(E) CHK060 END OF KEY CHAR «, t00=0x000c, t01=0x0038}
0x131a…1334 Head {h00=0x0016, h01=0x0050, text=» CCR A4,A2 SC=EC? «, t00=0x000c, t01=0x005e}
0x1334…1356 Head {h00=0x001e, h01=0x0050, text=» RF(G) CHK100 SC GT TH EC «, t00=0x000c, t01=0x0078}
0x1356…137c Head {h00=0x0022, h01=0x0050, text=» RF(L) CHK120 SC LESS THAN EC «, t00=0x000c, t01=0x009a}
0x137c…139e Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 NO OF SAME CHAR «, t00=0x000c, t01=0x00c0}
0x139e…13bc Head {h00=0x001a, h01=0x0050, text=» CWR A7,A6 NO OF CHAR «, t00=0x000c, t01=0x00e2}
0x13bc…13e4 Head {h00=0x0024, h01=0x0050, text=» RF(NL) CHK060 ALL CHAR CHECKED «, t00=0x000c, t01=0x0100}
0x13e4…1404 Head {h00=0x001c, h01=0x0050, text=» ADK A3,1 NXT SC TO TEST«, t00=0x000c, t01=0x0128}
0x1404…1424 Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 NXT EC TO TEST«, t00=0x000c, t01=0x0148}
0x1424…1438 Head {h00=0x0010, h01=0x0050, text=» RB CHK020 «, t00=0x000c, t01=0x0168}
0x1438…144c Head {h00=0x0010, h01=0x0050, text=»CHK060 EQU *«, t00=0x000c, t01=0x017c}
0x144c…1464 Head {h00=0x0014, h01=0x0050, text=» LDK A3,0 FOUND «, t00=0x000c, t01=0x0190}
0x1464…1476 Head {h00=0x000e, h01=0x0050, text=» RF CHK140«, t00=0x000d, t01=0x0018}
0x1476…148a Head {h00=0x0010, h01=0x0050, text=»CHK120 EQU *«, t00=0x000d, t01=0x002a}
0x148a…14b2 Head {h00=0x0024, h01=0x0050, text=» LDKL A3,-1 SEARCHED KEY SMALLER«, t00=0x000d, t01=0x003e}
0x14b2…14c4 Head {h00=0x000e, h01=0x0050, text=» RF CHK140«, t00=0x000d, t01=0x0066}
0x14c4…14d8 Head {h00=0x0010, h01=0x0050, text=»CHK100 EQU *«, t00=0x000d, t01=0x0078}
0x14d8…1500 Head {h00=0x0024, h01=0x0050, text=» LDK A3,1 SEARCHED KEY SGREATER «, t00=0x000d, t01=0x008c}
0x1500…1514 Head {h00=0x0010, h01=0x0050, text=»CHK140 EQU *«, t00=0x000d, t01=0x00b4}
0x1514…1524 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000d, t01=0x00c8}
0x1524…1532 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00d8}
0x1532…156e Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x000d, t01=0x00e6}
0x156e…1578 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0122}
0x1578…15bc Head {h00=0x0040, h01=0x0050, text=»* RDNXTR WILL MAKWE NEXT RECORD IN AN INDEX FILE AVAILABLE«, t00=0x000d, t01=0x012c}
0x15bc…15d8 Head {h00=0x0018, h01=0x0050, text=»* IN A CORE BUFFER«, t00=0x000d, t01=0x0170}
0x15d8…1620 Head {h00=0x0044, h01=0x0050, text=»* WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED«, t00=0x000d, t01=0x018c}
0x1620…164a Head {h00=0x0026, h01=0x0050, text=»* SECTOR WILL BE MADE AVAILABLE «, t00=0x000e, t01=0x0044}
0x164a…1654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006e}
0x1654…1690 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x000e, t01=0x0078}
0x1690…169a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b4}
0x169a…16d8 Head {h00=0x003a, h01=0x0050, text=»* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) «, t00=0x000e, t01=0x00be}
0x16d8…16f6 Head {h00=0x001a, h01=0x0050, text=»* FDBCEX,FDBSNR«, t00=0x000e, t01=0x00fc}
0x16f6…173c Head {h00=0x0042, h01=0x0050, text=»* FDBRRO = RECORD OFFSET IN BUFFER, WHEN = -1 THE FIRST«, t00=0x000e, t01=0x011a}
0x173c…1778 Head {h00=0x0038, h01=0x0050, text=»* RECORD IN CURRENT SECTOR IS WANTED«, t00=0x000e, t01=0x0160}
0x1778…17b6 Head {h00=0x003a, h01=0x0050, text=»* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN«, t00=0x000f, t01=0x000c}
0x17b6…17f8 Head {h00=0x003e, h01=0x0050, text=»* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED «, t00=0x000f, t01=0x004a}
0x17f8…1814 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x000f, t01=0x008c}
0x1814…181e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a8}
0x181e…185a Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000f, t01=0x00b2}
0x185a…1864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x1864…189a Head {h00=0x0032, h01=0x0050, text=»* RETURN AT ADDR 0 WHEN OK AND A5 UNDEFINED «, t00=0x000f, t01=0x00f8}
0x189a…18c2 Head {h00=0x0024, h01=0x0050, text=»* + 2 WHEN ERROR«, t00=0x000f, t01=0x012e}
0x18c2…18de Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x000f, t01=0x0156}
0x18de…1930 Head {h00=0x004e, h01=0x0050, text=»* A5 = ERROR CODE (RETURN CODE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED«, t00=0x000f, t01=0x0172}
0x1930…1958 Head {h00=0x0024, h01=0x0050, text=»* A2 = FDBRRO = RECORD OFFSET «, t00=0x0010, t01=0x0034}
0x1958…1978 Head {h00=0x001c, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0010, t01=0x005c}
0x1978…19a6 Head {h00=0x002a, h01=0x0050, text=»* = 0 WHEN NO BUFFER IS ALLOCATED«, t00=0x0010, t01=0x007c}
0x19a6…19c2 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0010, t01=0x00aa}
0x19c2…19cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c6}
0x19cc…1a08 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0010, t01=0x00d0}
0x1a08…1a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010c}
0x1a12…1a4a Head {h00=0x0034, h01=0x0050, text=»* A1-A5,A8-A10,A13 + THREE WORDS ON A14 STACK «, t00=0x0010, t01=0x0116}
0x1a4a…1a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014e}
0x1a54…1a92 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0010, t01=0x0158}
0x1a92…1aa0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0008}
0x1aa0…1ab4 Head {h00=0x0010, h01=0x0050, text=»RDNXTR EQU *«, t00=0x0011, t01=0x0016}
0x1ab4…1ad8 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A3 SAVE BUFFER ADDR«, t00=0x0011, t01=0x002a}
0x1ad8…1afc Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDN200 BUFFER EXIST «, t00=0x0011, t01=0x004e}
0x1afc…1b10 Head {h00=0x0010, h01=0x0050, text=» STR A7,A14 «, t00=0x0011, t01=0x0072}
0x1b10…1b24 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,4 «, t00=0x0011, t01=0x0086}
0x1b24…1b38 Head {h00=0x0010, h01=0x0050, text=» ST A6,2,A14«, t00=0x0011, t01=0x009a}
0x1b38…1b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ae}
0x1b42…1b5a Head {h00=0x0014, h01=0x0050, text=»* GET A BUFFER«, t00=0x0011, t01=0x00b8}
0x1b5a…1b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d0}
0x1b64…1b78 Head {h00=0x0010, h01=0x0050, text=»RDN040 EQU *«, t00=0x0011, t01=0x00da}
0x1b78…1ba2 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTBKBU GET BLOCKBUFFERADDR«, t00=0x0011, t01=0x00ee}
0x1ba2…1bb6 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A2 «, t00=0x0011, t01=0x0118}
0x1bb6…1be2 Head {h00=0x0028, h01=0x0050, text=» RF(NN) RDN080 DATA ALREADY IN CORE «, t00=0x0011, t01=0x012c}
0x1be2…1bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0158}
0x1bec…1c0e Head {h00=0x001e, h01=0x0050, text=»* READ SECTOR FROM DISC «, t00=0x0011, t01=0x0162}
0x1c0e…1c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0184}
0x1c18…1c38 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 BUFFER ADDR «, t00=0x0011, t01=0x018e}
0x1c38…1c60 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/91 PHYS READ WITH WAIT «, t00=0x0012, t01=0x001e}
0x1c60…1c6c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x0046}
0x1c6c…1c7c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x0052}
0x1c7c…1ca6 Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTIOZ CHECK RETURN CODES «, t00=0x0012, t01=0x0062}
0x1ca6…1cb8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0012, t01=0x008c}
0x1cb8…1cd4 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) RDN900 ERROR«, t00=0x0012, t01=0x009e}
0x1cd4…1cf0 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0012, t01=0x00ba}
0x1cf0…1d04 Head {h00=0x0010, h01=0x0050, text=»RDN080 EQU *«, t00=0x0012, t01=0x00d6}
0x1d04…1d20 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0012, t01=0x00ea}
0x1d20…1d32 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0012, t01=0x0106}
0x1d32…1d5e Head {h00=0x0028, h01=0x0050, text=» ST A2,FDBRRO,A1 OFFSET FIRST RECORD«, t00=0x0012, t01=0x0118}
0x1d5e…1d78 Head {h00=0x0016, h01=0x0050, text=» RF RDN940 RETURN «, t00=0x0012, t01=0x0144}
0x1d78…1d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015e}
0x1d82…1da0 Head {h00=0x001a, h01=0x0050, text=»* BUFFER WAS BEFORE «, t00=0x0012, t01=0x0168}
0x1da0…1daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0186}
0x1daa…1dbe Head {h00=0x0010, h01=0x0050, text=»RDN200 EQU *«, t00=0x0012, t01=0x0190}
0x1dbe…1de6 Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBRRO,A1 REC ORD OFFSET«, t00=0x0013, t01=0x0014}
0x1de6…1e0a Head {h00=0x0020, h01=0x0050, text=» RF(NN) RDN220 NOT FIRST REC«, t00=0x0013, t01=0x003c}
0x1e0a…1e1e Head {h00=0x0010, h01=0x0050, text=» STR A7,A14 «, t00=0x0013, t01=0x0060}
0x1e1e…1e32 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,4 «, t00=0x0013, t01=0x0074}
0x1e32…1e46 Head {h00=0x0010, h01=0x0050, text=» ST A6,2,A14«, t00=0x0013, t01=0x0088}
0x1e46…1e6a Head {h00=0x0020, h01=0x0050, text=» RB RDN080 FIRST REC WANTED «, t00=0x0013, t01=0x009c}
0x1e6a…1e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c0}
0x1e74…1eb2 Head {h00=0x003a, h01=0x0050, text=»* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER «, t00=0x0013, t01=0x00ca}
0x1eb2…1ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0108}
0x1ebc…1ed0 Head {h00=0x0010, h01=0x0050, text=»RDN220 EQU *«, t00=0x0013, t01=0x0112}
0x1ed0…1ef4 Head {h00=0x0020, h01=0x0050, text=» CW A2,FDBMRO,A1 MAX OFFSET «, t00=0x0013, t01=0x0126}
0x1ef4…1f22 Head {h00=0x002a, h01=0x0050, text=» RF(NL) RDN300 THIS REC LAST IN BUFFER«, t00=0x0013, t01=0x014a}
0x1f22…1f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0178}
0x1f2c…1f5c Head {h00=0x002c, h01=0x0050, text=»* GET NEXT REC IN CURRENT BLOCKBUFFER «, t00=0x0013, t01=0x0182}
0x1f5c…1f66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0022}
0x1f66…1f8e Head {h00=0x0024, h01=0x0050, text=» AD A2,FDBRLE,A1 RECOR D LENGTH«, t00=0x0014, t01=0x002c}
0x1f8e…1fac Head {h00=0x001a, h01=0x0050, text=» ADK A2,1 STATUS CHAR «, t00=0x0014, t01=0x0054}
0x1fac…1fd0 Head {h00=0x0020, h01=0x0050, text=» ST A2,FDBRRO,A1 NEW OFFSET «, t00=0x0014, t01=0x0072}
0x1fd0…1fea Head {h00=0x0016, h01=0x0050, text=» RF RDN950 RETURN «, t00=0x0014, t01=0x0096}
0x1fea…1ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b0}
0x1ff4…202c Head {h00=0x0034, h01=0x0050, text=»* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT «, t00=0x0014, t01=0x00ba}
0x202c…2036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f2}
0x2036…204a Head {h00=0x0010, h01=0x0050, text=»RDN300 EQU *«, t00=0x0014, t01=0x00fc}
0x204a…205e Head {h00=0x0010, h01=0x0050, text=» STR A7,A14 «, t00=0x0014, t01=0x0110}
0x205e…2072 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,4 «, t00=0x0014, t01=0x0124}
0x2072…2086 Head {h00=0x0010, h01=0x0050, text=» ST A6,2,A14«, t00=0x0014, t01=0x0138}
0x2086…20a8 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBCEX,A1 EXT ADDR «, t00=0x0014, t01=0x014c}
0x20a8…20ca Head {h00=0x001e, h01=0x0050, text=» LD A5,EXTBAS,A3 EXT BASE «, t00=0x0014, t01=0x016e}
0x20ca…20f0 Head {h00=0x0022, h01=0x0050, text=» AD A5,EXTLEN,A3 EXTENT LENGTH«, t00=0x0014, t01=0x0190}
0x20f0…2102 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0015, t01=0x0026}
0x2102…212a Head {h00=0x0024, h01=0x0050, text=» CW A5,FDBSNR,A1 SECT NO CURRENT«, t00=0x0015, t01=0x0038}
0x212a…215a Head {h00=0x002c, h01=0x0050, text=» RF(NG) RDN400 IT WAS LAST REC IN EXTENT«, t00=0x0015, t01=0x0060}
0x215a…2164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0090}
0x2164…217a Head {h00=0x0012, h01=0x0050, text=»* NEW SECTOR«, t00=0x0015, t01=0x009a}
0x217a…2184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b0}
0x2184…21a2 Head {h00=0x001a, h01=0x0050, text=» IM FDBSNR,A1 SECT NO «, t00=0x0015, t01=0x00ba}
0x21a2…21be Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0015, t01=0x00d8}
0x21be…21d0 Head {h00=0x000e, h01=0x0050, text=» RF RDN500«, t00=0x0015, t01=0x00f4}
0x21d0…21da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0106}
0x21da…2206 Head {h00=0x0028, h01=0x0050, text=»* TAKE CARE OF LAST REC IN EXTENT «, t00=0x0015, t01=0x0110}
0x2206…2210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013c}
0x2210…2224 Head {h00=0x0010, h01=0x0050, text=»RDN400 EQU *«, t00=0x0015, t01=0x0146}
0x2224…2240 Head {h00=0x0018, h01=0x0050, text=» LDR A13,A8 ECB ADDR«, t00=0x0015, t01=0x015a}
0x2240…2266 Head {h00=0x0022, h01=0x0050, text=» CF A14,GTLGRN GET LOG REC NO «, t00=0x0015, t01=0x0176}
0x2266…2278 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0016, t01=0x000c}
0x2278…228a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0016, t01=0x001e}
0x228a…229c Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0016, t01=0x0030}
0x229c…22ae Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0016, t01=0x0042}
0x22ae…22d0 Head {h00=0x001e, h01=0x0050, text=» CF A14,ADDMOD NEXT REC NO«, t00=0x0016, t01=0x0054}
0x22d0…22f4 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A5 RESTORE FDB ADDR «, t00=0x0016, t01=0x0076}
0x22f4…2322 Head {h00=0x002a, h01=0x0050, text=» CF A14,CALSNO GET NEXT REC ADDR PHYS «, t00=0x0016, t01=0x009a}
0x2322…2336 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A13 «, t00=0x0016, t01=0x00c8}
0x2336…235e Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 CHECK EN D OF MEDIUM «, t00=0x0016, t01=0x00dc}
0x235e…2376 Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDN500 OK«, t00=0x0016, t01=0x0104}
0x2376…238e Head {h00=0x0014, h01=0x0050, text=» RF RDN900 EXIT «, t00=0x0016, t01=0x011c}
0x238e…2398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0134}
0x2398…23b4 Head {h00=0x0018, h01=0x0050, text=»* GET NEXT SECTOR «, t00=0x0016, t01=0x013e}
0x23b4…23be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015a}
0x23be…23d2 Head {h00=0x0010, h01=0x0050, text=»RDN500 EQU *«, t00=0x0016, t01=0x0164}
0x23d2…23f2 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 BUFFER ADDR «, t00=0x0016, t01=0x0178}
0x23f2…2418 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0017, t01=0x0008}
0x2418…2434 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0017, t01=0x002e}
0x2434…2452 Head {h00=0x001a, h01=0x0050, text=» RB RDN040 NEXT SECTOR«, t00=0x0017, t01=0x004a}
0x2452…245c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0068}
0x245c…246c Head {h00=0x000c, h01=0x0050, text=»* EXIT«, t00=0x0017, t01=0x0072}
0x246c…2476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0082}
0x2476…248a Head {h00=0x0010, h01=0x0050, text=»RDN900 EQU *«, t00=0x0017, t01=0x008c}
0x248a…24a6 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A1 RET CODE «, t00=0x0017, t01=0x00a0}
0x24a6…24c2 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0017, t01=0x00bc}
0x24c2…24e2 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 BUFFER ADDR «, t00=0x0017, t01=0x00d8}
0x24e2…2502 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RDN960 NO BUFFER «, t00=0x0017, t01=0x00f8}
0x2502…2528 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0017, t01=0x0118}
0x2528…253c Head {h00=0x0010, h01=0x0050, text=»RDN960 EQU *«, t00=0x0017, t01=0x013e}
0x253c…254e Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0017, t01=0x0152}
0x254e…256c Head {h00=0x001a, h01=0x0050, text=» ADS A3,8,A14 RET ADDR«, t00=0x0017, t01=0x0164}
0x256c…258a Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFER ADDR «, t00=0x0017, t01=0x0182}
0x258a…259e Head {h00=0x0010, h01=0x0050, text=»RDN940 EQU *«, t00=0x0018, t01=0x0010}
0x259e…25b2 Head {h00=0x0010, h01=0x0050, text=» LD A6,2,A14«, t00=0x0018, t01=0x0024}
0x25b2…25c6 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0018, t01=0x0038}
0x25c6…25da Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A14«, t00=0x0018, t01=0x004c}
0x25da…25ee Head {h00=0x0010, h01=0x0050, text=»RDN950 EQU *«, t00=0x0018, t01=0x0060}
0x25ee…25fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0074}
0x25fe…260c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0084}
0x260c…2648 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0018, t01=0x0092}
0x2648…2652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ce}
0x2652…2694 Head {h00=0x003e, h01=0x0050, text=»* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE «, t00=0x0018, t01=0x00d8}
0x2694…26c2 Head {h00=0x002a, h01=0x0050, text=»* SPECIFIED KEY OR NEXT HIGHER KEY «, t00=0x0018, t01=0x011a}
0x26c2…26fc Head {h00=0x0036, h01=0x0050, text=»* IF END OF FILE, THE FIRST FREE RECORD IS FOUND«, t00=0x0018, t01=0x0148}
0x26fc…2706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0182}
0x2706…2742 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0018, t01=0x018c}
0x2742…274c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0038}
0x274c…2768 Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0019, t01=0x0042}
0x2768…2788 Head {h00=0x001c, h01=0x0050, text=»* A8 = SEARCH KEY ADDR«, t00=0x0019, t01=0x005e}
0x2788…27b2 Head {h00=0x0026, h01=0x0050, text=»* A11 = NO OF CHARACTERS IN KEY «, t00=0x0019, t01=0x007e}
0x27b2…27d8 Head {h00=0x0022, h01=0x0050, text=»* A13= PHYSICAL ECB ADDRESS «, t00=0x0019, t01=0x00a8}
0x27d8…27e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ce}
0x27e2…281e Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0019, t01=0x00d8}
0x281e…2828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0114}
0x2828…2844 Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0019, t01=0x011e}
0x2844…2878 Head {h00=0x0030, h01=0x0050, text=»* FDBSNR,FDBRRO = FOUND INDEX RECORD «, t00=0x0019, t01=0x013a}
0x2878…289e Head {h00=0x0022, h01=0x0050, text=»* A2 = 0 WHEN KEY ISS FOUND «, t00=0x0019, t01=0x016e}
0x289e…28d4 (26, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* = /4000 WHEN NEXT HIGHER KEY IS FOUND «, t00=0x001a, t01=0x0004}
0x28d4…2906 Head {h00=0x002e, h01=0x0050, text=»* = RETURN CODE WHEN KEY IS NOT FOUND«, t00=0x001a, t01=0x003a}
0x2906…293e Head {h00=0x0034, h01=0x0050, text=»* BIT 1 CAN NEVBER BE SET BY DISC DRIVER «, t00=0x001a, t01=0x006c}
0x293e…295e Head {h00=0x001c, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x001a, t01=0x00a4}
0x295e…2988 Head {h00=0x0026, h01=0x0050, text=»* = 0 WHEN NO RECORD IS FOUND«, t00=0x001a, t01=0x00c4}
0x2988…29ae Head {h00=0x0022, h01=0x0050, text=»* A7 = NO OF SAME CHARACTERS«, t00=0x001a, t01=0x00ee}
0x29ae…29d4 Head {h00=0x0022, h01=0x0050, text=»* A8 = PHYSICAL ECB ADDRESS «, t00=0x001a, t01=0x0114}
0x29d4…29f0 Head {h00=0x0018, h01=0x0050, text=»* A11 = UNCHANGED «, t00=0x001a, t01=0x013a}
0x29f0…29fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0156}
0x29fa…2a36 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x001a, t01=0x0160}
0x2a36…2a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x000c}
0x2a40…2a70 Head {h00=0x002c, h01=0x0050, text=»* A1 - A11,A13 + 4 WORDS ON A14 STACK «, t00=0x001b, t01=0x0016}
0x2a70…2a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0046}
0x2a7a…2ab8 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001b, t01=0x0050}
0x2ab8…2ac6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x008e}
0x2ac6…2ada Head {h00=0x0010, h01=0x0050, text=»FNDKEY EQU *«, t00=0x001b, t01=0x009c}
0x2ada…2ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b0}
0x2ae4…2b0e Head {h00=0x0026, h01=0x0050, text=»* FIRST SEARCH THE NMASTER INDEX«, t00=0x001b, t01=0x00ba}
0x2b0e…2b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e4}
0x2b18…2b46 Head {h00=0x002a, h01=0x0050, text=» LD A5,FDBMIA,A1 ADDR OF MASTER INDEX «, t00=0x001b, t01=0x00ee}
0x2b46…2b6e Head {h00=0x0024, h01=0x0050, text=» STR A1,A14 FDB ADDRESS IS SAVED«, t00=0x001b, t01=0x011c}
0x2b6e…2b82 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,8 «, t00=0x001b, t01=0x0144}
0x2b82…2bac Head {h00=0x0026, h01=0x0050, text=» ST A8,6,A14 SAVE SEARCH KEY ADDR «, t00=0x001b, t01=0x0158}
0x2bac…2be0 Head {h00=0x0030, h01=0x0050, text=» CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX«, t00=0x001b, t01=0x0182}
0x2be0…2bfe Head {h00=0x001a, h01=0x0050, text=» LD A6,8,A14 FDB ADDR «, t00=0x001c, t01=0x0026}
0x2bfe…2c22 Head {h00=0x0020, h01=0x0050, text=» CF A14,CALSNO GET PHYS ADDR«, t00=0x001c, t01=0x0044}
0x2c22…2c34 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001c, t01=0x0068}
0x2c34…2c50 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FKY900 ERROR«, t00=0x001c, t01=0x007a}
0x2c50…2c6a Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 FDBADDR«, t00=0x001c, t01=0x0096}
0x2c6a…2c90 Head {h00=0x0022, h01=0x0050, text=» LDR A6,A11 NO OF CHAR IN KEY «, t00=0x001c, t01=0x00b0}
0x2c90…2cb8 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 START CHAR KEY SEARCH «, t00=0x001c, t01=0x00d6}
0x2cb8…2ce2 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 NO BUFFER TO START WITH«, t00=0x001c, t01=0x00fe}
0x2ce2…2cfe Head {h00=0x0018, h01=0x0050, text=» LDR A8,A13 ECB ADDR«, t00=0x001c, t01=0x0128}
0x2cfe…2d12 Head {h00=0x0010, h01=0x0050, text=»FKY100 EQU *«, t00=0x001c, t01=0x0144}
0x2d12…2d30 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 BUFFER ADDR«, t00=0x001c, t01=0x0158}
0x2d30…2d58 Head {h00=0x0024, h01=0x0050, text=» CF A14,RDNXTR GET INDEX RECORD «, t00=0x001c, t01=0x0176}
0x2d58…2d6a Head {h00=0x000e, h01=0x0050, text=» RF FKY150«, t00=0x001d, t01=0x000e}
0x2d6a…2d86 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 RET CODE «, t00=0x001d, t01=0x0020}
0x2d86…2da4 Head {h00=0x001a, h01=0x0050, text=» RF FKY900 ERROR EXIT «, t00=0x001d, t01=0x003c}
0x2da4…2dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x005a}
0x2dae…2dd4 Head {h00=0x0022, h01=0x0050, text=»* BUFFER AND ADATA IS FOUND «, t00=0x001d, t01=0x0064}
0x2dd4…2dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008a}
0x2dde…2df2 Head {h00=0x0010, h01=0x0050, text=»FKY150 EQU *«, t00=0x001d, t01=0x0094}
0x2df2…2e10 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A3 BUFFER ADDR«, t00=0x001d, t01=0x00a8}
0x2e10…2e2e Head {h00=0x001a, h01=0x0050, text=» ADR A2,A3 BUFFER ADR «, t00=0x001d, t01=0x00c6}
0x2e2e…2e4a Head {h00=0x0018, h01=0x0050, text=» ADK A2,10 REC ADDR «, t00=0x001d, t01=0x00e4}
0x2e4a…2e6c Head {h00=0x001e, h01=0x0050, text=» LDR A10,A2 SAVE REC ADDR «, t00=0x001d, t01=0x0100}
0x2e6c…2e9a Head {h00=0x002a, h01=0x0050, text=» AD A10,FDBRLE,A1 ADDR OF STATUS CHAR «, t00=0x001d, t01=0x0122}
0x2e9a…2ebc Head {h00=0x001e, h01=0x0050, text=» LDK A5,/FF USED CHAR MARK«, t00=0x001d, t01=0x0150}
0x2ebc…2edc Head {h00=0x001c, h01=0x0050, text=» CCR A5,A10 STATUS CHAR «, t00=0x001d, t01=0x0172}
0x2edc…2efe (30, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RF(E) FKY200 USED RECORD «, t00=0x001e, t01=0x0004}
0x2efe…2f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0026}
0x2f08…2f32 Head {h00=0x0026, h01=0x0050, text=»* NO MORE RECORDS IN THIS SECTOR«, t00=0x001e, t01=0x0030}
0x2f32…2f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x005a}
0x2f3c…2f6a Head {h00=0x002a, h01=0x0050, text=» LD A13,FDBRRO,A1 SAVE CURRENT OFFSET «, t00=0x001e, t01=0x0064}
0x2f6a…2f84 Head {h00=0x0016, h01=0x0050, text=» LD A4,FDBMRO,A1 «, t00=0x001e, t01=0x0092}
0x2f84…2fae Head {h00=0x0026, h01=0x0050, text=» ST A4,FDBRRO,A1 LAST REC IN SECT «, t00=0x001e, t01=0x00ac}
0x2fae…2fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d6}
0x2fb8…2fd2 Head {h00=0x0016, h01=0x0050, text=»* *CHECK IF EOF «, t00=0x001e, t01=0x00e0}
0x2fd2…2fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fa}
0x2fdc…2ffa Head {h00=0x001a, h01=0x0050, text=» LDR A10,A7 CHAR ADDR «, t00=0x001e, t01=0x0104}
0x2ffa…3020 Head {h00=0x0022, h01=0x0050, text=» CF A14,GTLGRN GET LOG REC NR «, t00=0x001e, t01=0x0122}
0x3020…303e Head {h00=0x001a, h01=0x0050, text=» LDR A6,A11 NR OF CHAR«, t00=0x001e, t01=0x0148}
0x303e…305c Head {h00=0x001a, h01=0x0050, text=» LDR A7,A10 CHAR ADDR «, t00=0x001e, t01=0x0166}
0x305c…3074 Head {h00=0x0014, h01=0x0050, text=» CC A2,FDBLRN,A1«, t00=0x001e, t01=0x0184}
0x3074…3092 Head {h00=0x001a, h01=0x0050, text=» RB(L) FKY100 NOT EOF «, t00=0x001f, t01=0x000c}
0x3092…30ac Head {h00=0x0016, h01=0x0050, text=» RF(G) FKY180 EOF «, t00=0x001f, t01=0x002a}
0x30ac…30c6 Head {h00=0x0016, h01=0x0050, text=» CW A3,FDBLRN+1,A1«, t00=0x001f, t01=0x0044}
0x30c6…30e4 Head {h00=0x001a, h01=0x0050, text=» RB(L) FKY100 NOT EOF «, t00=0x001f, t01=0x005e}
0x30e4…30f8 Head {h00=0x0010, h01=0x0050, text=»FKY180 EQU *«, t00=0x001f, t01=0x007c}
0x30f8…3102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0090}
0x3102…3124 Head {h00=0x001e, h01=0x0050, text=»* EOF IS IN THIS SECTOR «, t00=0x001f, t01=0x009a}
0x3124…312e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00bc}
0x312e…3164 Head {h00=0x0032, h01=0x0050, text=» ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD «, t00=0x001f, t01=0x00c6}
0x3164…3186 Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 NR OF SAME CHAR «, t00=0x001f, t01=0x00fc}
0x3186…31a0 Head {h00=0x0016, h01=0x0050, text=» LDKL A2,/1000 EOF«, t00=0x001f, t01=0x011e}
0x31a0…31b2 Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x001f, t01=0x0138}
0x31b2…31bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x014a}
0x31bc…31e2 Head {h00=0x0022, h01=0x0050, text=»* CHECK KEY IN THIS RECODRD «, t00=0x001f, t01=0x0154}
0x31e2…31ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017a}
0x31ec…3200 Head {h00=0x0010, h01=0x0050, text=»FKY200 EQU *«, t00=0x001f, t01=0x0184}
0x3200…3224 Head {h00=0x0020, h01=0x0050, text=» LD A3,6,A14 SEARCH KEY ADDR«, t00=0x0020, t01=0x0008}
0x3224…3248 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0020, t01=0x002c}
0x3248…325a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0020, t01=0x0050}
0x325a…3284 Head {h00=0x0026, h01=0x0050, text=» RF(P) FKY840 SEARCHED KEY GREATER«, t00=0x0020, t01=0x0062}
0x3284…32aa Head {h00=0x0022, h01=0x0050, text=» RF(N) FKY850 SEARCH KEY LESS «, t00=0x0020, t01=0x008c}
0x32aa…32c8 Head {h00=0x001a, h01=0x0050, text=» RF FKY870 KEY FOUNFD «, t00=0x0020, t01=0x00b2}
0x32c8…32dc Head {h00=0x0010, h01=0x0050, text=»FKY840 EQU *«, t00=0x0020, t01=0x00d0}
0x32dc…3300 Head {h00=0x0020, h01=0x0050, text=» CC A7,-4,A10 NEXT KEY FLAG «, t00=0x0020, t01=0x00e4}
0x3300…3334 Head {h00=0x0030, h01=0x0050, text=» RB(NG) FKY100 THE NEXT KEY IS IDENTICAL FOR«, t00=0x0020, t01=0x0108}
0x3334…337a Head {h00=0x0042, h01=0x0050, text=»* AT LEAST THE SAME NO OF LEADING CHARACTERS«, t00=0x0020, t01=0x013c}
0x337a…33b8 Head {h00=0x003a, h01=0x0050, text=»* THAT HAS BEEN CHECKED FOR THIS KEY«, t00=0x0020, t01=0x0182}
0x33b8…33ea Head {h00=0x002e, h01=0x0050, text=» LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS«, t00=0x0021, t01=0x0030}
0x33ea…3406 Head {h00=0x0018, h01=0x0050, text=» RB FKY100 NEXT KEY «, t00=0x0021, t01=0x0062}
0x3406…341a Head {h00=0x0010, h01=0x0050, text=»FKY850 EQU *«, t00=0x0021, t01=0x007e}
0x341a…343e Head {h00=0x0020, h01=0x0050, text=» LDKL A2,/4000 KEY NOT FOUND«, t00=0x0021, t01=0x0092}
0x343e…3450 Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x0021, t01=0x00b6}
0x3450…3464 Head {h00=0x0010, h01=0x0050, text=»FKY870 EQU *«, t00=0x0021, t01=0x00c8}
0x3464…3480 Head {h00=0x0018, h01=0x0050, text=» LDK A2,0 KEY FOUND «, t00=0x0021, t01=0x00dc}
0x3480…3492 Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x0021, t01=0x00f8}
0x3492…34a6 Head {h00=0x0010, h01=0x0050, text=»FKY900 EQU *«, t00=0x0021, t01=0x010a}
0x34a6…34c4 Head {h00=0x001a, h01=0x0050, text=» SUR A9,A9 NO BUFFERS «, t00=0x0021, t01=0x011e}
0x34c4…34e0 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A1 ERR CODE «, t00=0x0021, t01=0x013c}
0x34e0…3508 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 NO OF SAME LEAD CHARS «, t00=0x0021, t01=0x0158}
0x3508…351c Head {h00=0x0010, h01=0x0050, text=»FKY950 EQU *«, t00=0x0021, t01=0x0180}
0x351c…353e (34, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ADKL A14,8 RESTORE STACK «, t00=0x0022, t01=0x0004}
0x353e…355c Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A14 FDB ADDR «, t00=0x0022, t01=0x0026}
0x355c…357a Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 BUFFER ADDR«, t00=0x0022, t01=0x0044}
0x357a…358a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x0062}
0x358a…3598 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0072}
0x3598…35a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0080}
0x35a2…35f0 Head {h00=0x004a, h01=0x0050, text=»* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX «, t00=0x0022, t01=0x008a}
0x35f0…3610 Head {h00=0x001c, h01=0x0050, text=»* RECORDS ARE UPDATED «, t00=0x0022, t01=0x00d8}
0x3610…361a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f8}
0x361a…362a Head {h00=0x000c, h01=0x0050, text=»* IN: «, t00=0x0022, t01=0x0102}
0x362a…3654 Head {h00=0x0026, h01=0x0050, text=»* A8,A9 = LAST RECORD NR MOVED «, t00=0x0022, t01=0x0112}
0x3654…367e Head {h00=0x0026, h01=0x0050, text=»* A10,A11= FIRST RECORD NR MOVED«, t00=0x0022, t01=0x013c}
0x367e…36a2 Head {h00=0x0020, h01=0x0050, text=»* A5 = FDB ADDR INDEX «, t00=0x0022, t01=0x0166}
0x36a2…36cc Head {h00=0x0026, h01=0x0050, text=»* A12 = ADD PARAMETER +1, -1 «, t00=0x0022, t01=0x018a}
0x36cc…36d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0024}
0x36d6…36f2 Head {h00=0x0018, h01=0x0050, text=»* USED REGISTERS: «, t00=0x0023, t01=0x002e}
0x36f2…3706 Head {h00=0x0010, h01=0x0050, text=»* A1 -A12 «, t00=0x0023, t01=0x004a}
0x3706…3710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x005e}
0x3710…3720 Head {h00=0x000c, h01=0x0050, text=»* OUT:«, t00=0x0023, t01=0x0068}
0x3720…3740 Head {h00=0x001c, h01=0x0050, text=»* A5 = FDB ADDR INDEX «, t00=0x0023, t01=0x0078}
0x3740…3760 Head {h00=0x001c, h01=0x0050, text=»* A10,A11 = UNCHANGED «, t00=0x0023, t01=0x0098}
0x3760…376a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b8}
0x376a…377e Head {h00=0x0010, h01=0x0050, text=»CRNUPD EQU *«, t00=0x0023, t01=0x00c2}
0x377e…3792 Head {h00=0x0010, h01=0x0050, text=» STR A12,A14«, t00=0x0023, t01=0x00d6}
0x3792…37a6 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,2 «, t00=0x0023, t01=0x00ea}
0x37a6…37ce Head {h00=0x0024, h01=0x0050, text=» LD A12,FDBADF,A5 FDB DATA FILE «, t00=0x0023, t01=0x00fe}
0x37ce…37da Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0023, t01=0x0126}
0x37da…3802 Head {h00=0x0024, h01=0x0050, text=» LD A12,FDBCRL,A12 CRN LINK ROOT«, t00=0x0023, t01=0x0132}
0x3802…3814 Head {h00=0x000e, h01=0x0050, text=» RF CRU120«, t00=0x0023, t01=0x015a}
0x3814…3830 Head {h00=0x0018, h01=0x0050, text=»CRU100 LDR* A12,A12 «, t00=0x0023, t01=0x016c}
0x3830…3858 Head {h00=0x0024, h01=0x0050, text=»CRU120 RF(Z) CRU900 END OF LINK «, t00=0x0023, t01=0x0188}
0x3858…387c Head {h00=0x0020, h01=0x0050, text=» LC A7,FDBECB+1,A5 FILE CODE«, t00=0x0024, t01=0x0020}
0x387c…3896 Head {h00=0x0016, h01=0x0050, text=» CC A7,CRNCIF,A12 «, t00=0x0024, t01=0x0044}
0x3896…38b6 Head {h00=0x001c, h01=0x0050, text=» RB(NE) CRU100 WRONG FC «, t00=0x0024, t01=0x005e}
0x38b6…38d2 Head {h00=0x0018, h01=0x0050, text=» CC A10,CRNCIF+1,A12«, t00=0x0024, t01=0x007e}
0x38d2…38e8 Head {h00=0x0012, h01=0x0050, text=» RB(G) CRU100 «, t00=0x0024, t01=0x009a}
0x38e8…38fe Head {h00=0x0012, h01=0x0050, text=» RF(L) CRU200 «, t00=0x0024, t01=0x00b0}
0x38fe…391a Head {h00=0x0018, h01=0x0050, text=» CW A11,CRNCIF+2,A12«, t00=0x0024, t01=0x00c6}
0x391a…3930 Head {h00=0x0012, h01=0x0050, text=» RB(G) CRU100 «, t00=0x0024, t01=0x00e2}
0x3930…3944 Head {h00=0x0010, h01=0x0050, text=»CRU200 EQU *«, t00=0x0024, t01=0x00f8}
0x3944…3960 Head {h00=0x0018, h01=0x0050, text=» CC A8,CRNCIF+1,A12 «, t00=0x0024, t01=0x010c}
0x3960…3976 Head {h00=0x0012, h01=0x0050, text=» RF(G) CRU300 «, t00=0x0024, t01=0x0128}
0x3976…398c Head {h00=0x0012, h01=0x0050, text=» RB(L) CRU100 «, t00=0x0024, t01=0x013e}
0x398c…39a8 Head {h00=0x0018, h01=0x0050, text=» CW A9,CRNCIF+2,A12 «, t00=0x0024, t01=0x0154}
0x39a8…39be Head {h00=0x0012, h01=0x0050, text=» RB(L) CRU100 «, t00=0x0024, t01=0x0170}
0x39be…39d2 Head {h00=0x0010, h01=0x0050, text=»CRU300 EQU *«, t00=0x0024, t01=0x0186}
0x39d2…39dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x000a}
0x39dc…39f2 Head {h00=0x0012, h01=0x0050, text=»* UPDATE CRN«, t00=0x0025, t01=0x0014}
0x39f2…39fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002a}
0x39fc…3a1a Head {h00=0x001a, h01=0x0050, text=» LD A7,2,A14 ADD PARAM«, t00=0x0025, t01=0x0034}
0x3a1a…3a2c Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0025, t01=0x0052}
0x3a2c…3a44 Head {h00=0x0014, h01=0x0050, text=» RF(N) CRU230 -1«, t00=0x0025, t01=0x0064}
0x3a44…3a56 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0025, t01=0x007c}
0x3a56…3a6a Head {h00=0x0010, h01=0x0050, text=»CRU230 EQU *«, t00=0x0025, t01=0x008e}
0x3a6a…3a80 Head {h00=0x0012, h01=0x0050, text=» ANKL A7,/7FFF«, t00=0x0025, t01=0x00a2}
0x3a80…3a92 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0025, t01=0x00b8}
0x3a92…3aae Head {h00=0x0018, h01=0x0050, text=» LC A1,CRNCIF+1,A12 «, t00=0x0025, t01=0x00ca}
0x3aae…3aca Head {h00=0x0018, h01=0x0050, text=» LD A2,CRNCIF+2,A12 «, t00=0x0025, t01=0x00e6}
0x3aca…3ae0 Head {h00=0x0012, h01=0x0050, text=» CF A14,ADDMOD«, t00=0x0025, t01=0x0102}
0x3ae0…3afc Head {h00=0x0018, h01=0x0050, text=» SC A1,CRNCIF+1,A12 «, t00=0x0025, t01=0x0118}
0x3afc…3b18 Head {h00=0x0018, h01=0x0050, text=» ST A2,CRNCIF+2,A12 «, t00=0x0025, t01=0x0134}
0x3b18…3b2a Head {h00=0x000e, h01=0x0050, text=» RB CRU100«, t00=0x0025, t01=0x0150}
0x3b2a…3b3e Head {h00=0x0010, h01=0x0050, text=»CRU900 EQU *«, t00=0x0025, t01=0x0162}
0x3b3e…3b52 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,2 «, t00=0x0025, t01=0x0176}
0x3b52…3b5e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0025, t01=0x018a}
0x3b5e…3b6e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0008}
0x3b6e…3b7a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0026, t01=0x0018}
0x3b7a…3b7e Head {h00=0x4004, h01=0x0000}
0x3b7e…3b82 00 26 00 24 ┆ & $┆
0x3b82…3b8a (39, 1, 8) 20 04 00 00 00 27 00 04 ┆ ' ┆
0x3b8a…3bda (40, 0, 400) 5c 41 36 2c 41 31 30 20 00 67 01 8c 00 0e 00 50 5c 41 44 52 5c 41 36 2c 41 35 00 68 00 10 00 28 00 50 5c 4c 44 5c 41 31 2c 46 44 42 41 49 31 2c 41 36 5c 46 44 42 20 41 44 44 52 20 49 4e 44 45 58 20 46 49 4c 45 00 68 00 22 00 1a 00 50 5c 52 ┆ A6,A10 g P ADR A6,A5 h ( P LD A1,FDBAI1,A6 FDB ADDR INDEX FILE h " P R┆
0x3bda…3c2a 42 28 5a 29 5c 44 58 49 30 32 30 5c 4e 4f 20 49 4e 44 45 58 00 68 00 4e 00 06 00 50 2a 20 00 68 00 6c 00 28 00 50 2a 20 20 20 47 45 54 20 46 49 4c 45 20 43 4f 44 45 20 46 4f 52 20 54 48 49 53 20 46 44 42 20 41 44 44 52 20 00 68 00 76 00 06 ┆B(Z) DXI020 NO INDEX h N P* h l ( P* GET FILE CODE FOR THIS FDB ADDR h v ┆
0x3c2a…3c7a 00 50 2a 20 00 68 00 a2 00 12 00 50 5c 4c 44 2a 5c 41 36 2c 53 43 54 43 44 54 00 68 00 ac 00 14 00 50 44 58 49 30 33 30 5c 53 55 4b 5c 41 36 2c 34 20 00 68 00 c2 00 12 00 50 5c 4c 44 5c 41 37 2c 53 43 54 43 44 54 20 00 68 00 da 00 0e 00 50 ┆ P* h P LD* A6,SCTCDT h PDXI030 SUK A6,4 h P LD A7,SCTCDT h P┆
0x3c7a…3cca 5c 41 44 52 5c 41 37 2c 41 36 00 68 00 f0 00 10 00 50 5c 43 57 5c 41 31 2c 32 2c 41 37 20 00 68 01 02 00 1e 00 50 5c 52 42 28 4e 45 29 5c 44 58 49 30 33 30 5c 53 45 41 52 43 48 20 4e 45 58 54 00 68 01 16 00 18 00 50 5c 4c 44 52 5c 41 38 2c ┆ ADR A7,A6 h P CW A1,2,A7 h P RB(NE) DXI030 SEARCH NEXT h P LDR A8,┆
0x3cca…3d1a 41 31 5c 46 44 42 20 49 4e 44 45 58 00 68 01 38 00 1c 00 50 5c 41 44 4b 4c 5c 41 38 2c 46 44 42 45 43 42 5c 45 43 42 20 41 44 44 52 00 68 01 54 00 10 00 50 5c 4c 43 5c 41 36 2c 31 2c 41 37 20 00 68 01 74 00 1e 00 50 5c 53 43 5c 41 36 2c 45 ┆A1 FDB INDEX h 8 P ADKL A8,FDBECB ECB ADDR h T P LC A6,1,A7 h t P SC A6,E┆
0x3d1a…3d6a (41, 0, 400) 43 42 46 43 2c 41 38 5c 49 4e 44 45 58 20 46 49 4c 45 00 68 01 88 00 10 00 50 5c 4c 44 52 5c 41 36 2c 41 31 31 20 00 69 00 1a 00 10 00 50 5c 53 55 4b 5c 41 36 2c 51 49 4e 53 00 69 00 2e 00 20 00 50 5c 52 46 28 45 29 5c 44 58 49 30 38 30 5c ┆CBFC,A8 INDEX FILE h P LDR A6,A11 i P SUK A6,QINS i . P RF(E) DXI080 ┆
0x3d6a…3dba 49 4e 44 45 58 45 44 20 44 45 4c 45 54 45 00 69 00 42 00 06 00 50 2a 20 00 69 00 66 00 24 00 50 2a 20 20 20 47 45 54 20 41 44 44 52 45 53 53 53 20 4f 46 20 44 41 54 41 20 52 45 43 4f 52 44 20 00 69 00 70 00 06 00 50 2a 20 00 69 00 98 00 20 ┆INDEXED DELETE i B P* i f $ P* GET ADDRESSS OF DATA RECORD i p P* i ┆
0x3dba…3e0a 00 50 5c 4c 44 5c 41 36 2c 45 43 42 42 41 2c 41 31 32 5c 53 45 43 54 4f 52 20 41 44 44 52 00 69 00 a2 00 14 00 50 5c 41 44 4b 5c 41 36 2c 32 5c 43 59 4c 49 44 20 00 69 00 c6 00 24 00 50 5c 41 44 5c 41 36 2c 46 44 42 52 52 4f 2c 41 31 30 5c ┆ P LD A6,ECBBA,A12 SECTOR ADDR i P ADK A6,2 CYLID i $ P AD A6,FDBRRO,A10 ┆
0x3e0a…3e5a 41 44 44 52 20 44 41 54 41 20 52 45 43 20 00 69 00 de 00 1e 00 50 5c 41 44 5c 41 36 2c 46 44 42 4b 41 2c 41 31 5c 4b 45 59 20 4f 46 46 53 45 54 00 69 01 06 00 24 00 50 5c 4c 44 4b 5c 41 37 2c 2f 32 30 5c 44 45 4c 45 54 45 20 49 4e 44 45 58 ┆ADDR DATA REC i P AD A6,FDBKA,A1 KEY OFFSET i $ P LDK A7,/20 DELETE INDEX┆
0x3e5a…3eaa 20 4e 4f 57 41 49 54 20 00 69 01 28 00 0e 00 50 5c 52 46 5c 44 58 49 30 39 30 00 69 01 50 00 10 00 50 44 58 49 30 38 30 5c 45 51 55 5c 2a 00 69 01 62 00 24 00 50 5c 4c 44 5c 41 39 2c 44 57 54 45 43 42 2c 41 31 30 5c 55 53 45 52 20 45 43 42 ┆ NOWAIT i ( P RF DXI090 i P PDXI080 EQU * i b $ P LD A9,DWTECB,A10 USER ECB┆
0x3eaa…3efa (42, 0, 400) 20 41 44 44 52 20 00 69 01 76 00 24 00 50 5c 4c 44 5c 41 36 2c 45 43 42 42 41 2c 41 39 5c 55 53 45 52 20 42 55 46 46 45 52 20 41 44 44 52 00 6a 00 0e 00 1e 00 50 5c 41 44 5c 41 36 2c 46 44 42 4b 41 2c 41 31 5c 4b 45 59 20 4f 46 46 53 45 54 ┆ ADDR i v $ P LD A6,ECBBA,A9 USER BUFFER ADDR j P AD A6,FDBKA,A1 KEY OFFSET┆
0x3efa…3f4a 00 6a 00 36 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 6a 00 58 00 0e 00 50 5c 4c 44 52 5c 41 36 2c 41 31 00 6a 00 6e 00 22 00 50 5c 41 44 4b 4c 5c 41 36 2c 46 44 42 4b 45 59 5c 41 44 44 52 20 4b 45 59 20 41 52 45 41 20 00 6a ┆ j 6 P IFT MMUPAG=1 j X P LDR A6,A1 j n " P ADKL A6,FDBKEY ADDR KEY AREA j┆
0x3f4a…3f9a 00 80 00 08 00 50 5c 58 49 46 00 6a 00 a6 00 12 00 50 5c 49 46 54 5c 49 4e 44 58 41 43 3d 31 20 00 6a 00 b2 00 24 00 50 5c 4c 44 4b 5c 41 37 2c 2f 31 46 5c 49 4e 53 45 52 54 20 49 4e 44 45 58 20 4e 4f 57 41 49 54 20 00 6a 00 c8 00 10 00 50 ┆ P XIF j P IFT INDXAC=1 j $ P LDK A7,/1F INSERT INDEX NOWAIT j P┆
0x3f9a…3fea 44 58 49 30 39 30 5c 45 51 55 5c 2a 00 6a 00 f0 00 06 00 50 2a 20 00 6a 01 04 00 18 00 50 2a 20 20 20 41 36 20 3d 20 4b 45 59 20 41 44 44 52 45 53 53 00 6a 01 0e 00 06 00 50 2a 20 00 6a 01 2a 00 14 00 50 5c 53 54 5c 41 36 2c 45 43 42 42 41 ┆DXI090 EQU * j P* j P* A6 = KEY ADDRESS j P* j * P ST A6,ECBBA┆
0x3fea…403a 2c 41 38 20 00 6a 01 34 00 22 00 50 2a 20 20 20 41 31 20 3d 20 46 44 42 20 41 44 44 52 20 49 4e 20 44 45 20 58 46 49 4c 45 20 00 6a 01 4c 00 0a 00 50 5c 4c 4b 4d 5c 20 00 6a 01 72 00 0c 00 50 5c 44 41 54 41 5c 2d 31 00 6a 01 80 00 10 00 50 ┆,A8 j 4 " P* A1 = FDB ADDR IN DE XFILE j L P LKM j r P DATA -1 j P┆
0x403a…408a (43, 0, 400) 5c 44 41 54 41 5c 44 4d 54 41 52 35 00 6a 01 90 00 14 00 50 5c 4c 44 5c 41 37 2c 45 43 42 52 43 2c 41 38 20 00 6b 00 14 00 1a 00 50 5c 52 46 28 4e 29 5c 44 4d 54 41 52 35 5c 52 45 51 20 45 52 52 20 00 6b 00 2c 00 20 00 50 5c 52 42 5c 44 58 ┆ DATA DMTAR5 j P LD A7,ECBRC,A8 k P RF(N) DMTAR5 REQ ERR k , P RB DX┆
0x408a…40da 49 30 32 30 5c 4e 45 58 54 20 49 4e 44 45 58 20 44 49 52 45 43 54 00 6b 00 4a 00 0e 00 50 44 58 49 31 30 30 5c 4c 4b 4d 00 6b 00 6e 00 10 00 50 5c 44 41 54 41 5c 33 5c 45 58 49 54 00 6b 00 80 00 10 00 50 44 4d 54 41 52 35 5c 45 51 55 5c 2a ┆I020 NEXT INDEX DIRECT k J PDXI100 LKM k n P DATA 3 EXIT k PDMTAR5 EQU *┆
0x40da…412a 00 6b 00 94 00 22 00 50 5c 4c 44 5c 41 36 2c 46 44 42 41 44 46 2c 41 31 5c 46 44 42 20 44 41 54 41 20 46 49 4c 45 00 6b 00 a8 00 1e 00 50 5c 4c 44 5c 41 39 2c 44 57 54 45 43 42 2c 41 36 5c 55 53 45 52 20 45 43 42 20 00 6b 00 ce 00 14 00 50 ┆ k " P LD A6,FDBADF,A1 FDB DATA FILE k P LD A9,DWTECB,A6 USER ECB k P┆
0x412a…417a 5c 4c 44 4b 4c 5c 41 38 2c 46 44 42 45 43 42 20 00 6b 00 f0 00 20 00 50 5c 41 44 52 5c 41 31 2c 41 38 5c 45 43 42 20 49 4e 53 45 52 54 20 49 4e 44 45 58 20 00 6b 01 08 00 1a 00 50 5c 41 44 52 5c 41 38 2c 41 36 5c 45 43 42 20 44 49 53 43 20 ┆ LDKL A8,FDBECB k P ADR A1,A8 ECB INSERT INDEX k P ADR A8,A6 ECB DISC ┆
0x417a…41ca 49 4f 00 6b 01 2c 00 34 00 50 5c 4c 44 5c 41 31 2c 45 43 42 52 43 2c 41 31 5c 52 45 54 20 43 4f 44 45 20 42 49 54 20 31 30 20 41 4e 44 20 31 34 20 50 4f 53 53 49 42 4c 45 20 00 6b 01 4a 00 20 00 50 5c 4f 52 53 5c 41 31 2c 45 43 42 52 43 2c ┆IO k , 4 P LD A1,ECBRC,A1 RET CODE BIT 10 AND 14 POSSIBLE k J P ORS A1,ECBRC,┆
0x41ca…421a (44, 0, 400) 41 39 5c 52 43 20 54 4f 20 55 53 45 52 20 00 6b 01 82 00 1a 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 52 45 54 55 52 4e 20 43 4f 44 45 20 00 6c 00 16 00 26 00 50 5c 4c 43 5c 41 32 2c 46 44 42 44 42 52 2c 41 36 5c 4e 52 20 4f 46 20 52 45 41 44 59 ┆A9 RC TO USER k P LDK A1,0 RETURN CODE l & P LC A2,FDBDBR,A6 NR OF READY┆
0x421a…426a 20 49 4e 44 45 58 00 6c 00 34 00 1c 00 50 5c 41 44 4b 5c 41 32 2c 31 5c 43 4f 55 4e 54 20 49 4e 44 45 58 45 53 20 00 6c 00 5e 00 24 00 50 5c 43 43 5c 41 32 2c 46 44 42 4e 49 46 2c 41 36 5c 54 4f 54 20 4e 52 20 4f 46 20 49 4e 44 45 58 00 6c ┆ INDEX l 4 P ADK A2,1 COUNT INDEXES l ^ $ P CC A2,FDBNIF,A6 TOT NR OF INDEX l┆
0x426a…42ba 00 7e 00 12 00 50 5c 52 46 28 4e 45 29 5c 44 58 49 32 30 30 00 6c 00 a6 00 14 00 50 5c 4c 44 5c 41 37 2c 44 57 54 4f 52 2c 41 36 20 00 6c 00 bc 00 1a 00 50 5c 41 4e 4b 5c 41 37 2c 2f 33 46 5c 4f 52 44 45 52 20 43 4f 44 45 00 6c 00 d4 00 20 ┆ ~ P RF(NE) DXI200 l P LD A7,DWTOR,A6 l P ANK A7,/3F ORDER CODE l ┆
0x42ba…430a 00 50 5c 53 55 4b 5c 41 37 2c 51 49 4e 53 5c 49 4e 44 45 58 45 44 20 49 4e 53 45 52 54 20 00 6c 00 f2 00 18 00 50 5c 41 42 4c 28 45 29 5c 44 4d 54 45 52 58 5c 52 45 41 44 59 00 6c 01 16 00 2c 00 50 2a 20 20 20 52 45 53 54 4f 52 45 20 52 45 ┆ P SUK A7,QINS INDEXED INSERT l P ABL(E) DMTERX READY l , P* RESTORE RE┆
0x430a…435a 47 49 53 54 45 52 53 20 46 4f 52 20 49 4e 44 45 58 45 44 20 44 45 4c 45 54 45 00 6c 01 32 00 06 00 50 2a 20 00 6c 01 62 00 24 00 50 5c 4c 44 5c 41 31 30 2c 46 44 42 45 43 42 2b 32 2c 41 36 5c 53 45 43 54 4f 52 20 41 44 44 52 20 00 6c 01 6c ┆GISTERS FOR INDEXED DELETE l 2 P* l b $ P LD A10,FDBECB+2,A6 SECTOR ADDR l l┆