|
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: 17314 (0x43a2)
Notes: pts_type(SC)
Names: »DMSUBX.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/DMSUBX.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/DMSUBX.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/DMSUBX.SC«
IDENT DMSUBX REL 10.0 80-03-14 870105041000 **************************************************** * * 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 ENTRY GTLGRN ENTRY CRNCIF * ***************** * EXTERNALS * ***************** * EXTRN MPYMOD EXTRN FDBECB,FDBMIA,BUFSTA,FDBRLE,FDBSNR,ECBCW EXTRN FDBBLZ,FWTFNR EXTRN FDBRRO,FDBBLF,BUFSNR EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF EXTRN DMTIOT,GTBKBU,ADDMOD,CALSNO,DMTRBU EXTRN DMTIOZ EXTRN DIVMOD,DSUMOD EXTRN EOFRC,NOKEY EJECT ****DESCRIPTION************************************* * * FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX. * A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. * 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 = LOGICAL RECORD NO IN INDEX FILE * A8,A11= UNCHANGED * ****USED REGISTERS********************************** * * A1 - A11 * ************************************************* * CRNCIF EQU 8 INDEX CURRENCY OFFSET 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 COMPARES TWO CHARACTER STRINGS * ****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 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 + TWO WORDS ON A14 STACK * * SPECIAL STACK HANDLING FOR PERFORMANCE REASONS ****************************************************** 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 BLOCK FROM DISC * LDR A10,A3 BUFFER ADDR LDK A7,/91 PHYS READ WITH WAIT LKM DATA 15 FILE MANAGEMENT IO 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 * RDN300 EQU * STR A7,A14 SUKL A14,4 ST A6,2,A14 * * NEW BLOCK * LD A3,FDBSNR+2,A1 LDK A5,0 LC A5,FDBBLZ,A1 SECT PER BLOCK ADR A3,A5 NEXT SECT RF(O) RDN380 RF RDN390 RDN380 ANKL A3,/7FFF IM FDBSNR,A1 RDN390 ST A3,FDBSNR+2,A1 LDR A6,A1 FDB ADDR RF RDN500 * * * GET NEXT BLOCK * 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 * = /400 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 ADKL A2,BUFSTA 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,EOFRC 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,NOKEY 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,FWTFNR,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 EJECT DMSUBR ****DESCRIPTION************************************* * * GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * ****ENTRY PARAMETERS******************************** * * A1 = FDB ADDRESS * FDBSNR,FDBRRO,FDBCEX * ****EXIT PARAMETERS********************************* * * A1=A5=A6= FDB ADDRESS * A2,A3 = LOG RECORD NO * ****USED REGISTERS********************************** * * A1 - A7 * ****************************************************** EJECT DMSUBR GTLGRN EQU * LDK A6,0 LDR A5,A1 FDB ADDR LD A1,FDBSNR,A5 LD A2,FDBSNR+2,A5 REL SECT NR LDK A7,1 CF A14,DSUMOD LDK A6,0 LC A6,FDBBLZ,A5 BLOCK SIZE ST A8,-4,A14 CF A14,DIVMOD LD A8,-4,A14 LDR A6,A2 BLOCKS - 1 * * CONVERT FDBRRO TO NO OF RECORDS * LDK A7,0 LC A7,FDBBLF,A5 BLOCK FACTOR CF A14,MPYMOD A1,A2=A6*A7 LD A4,FDBRLE,A5 ADK A4,1 RECORD LENGTH LDK A7,0 RECORD COUNTER LD A6,FDBRRO,A5 OFFSET IN SECTOR ADK A6,1 GTL150 EQU * ADK A7,1 RECORD COUNTER SUR A6,A4 RB(NN) GTL150 COUNT RECORDS IN SECTOR * * ADD SECT*BLOCFACT AND RECINCURRSECT * ADR A2,A7 RF(O) GTL160 OVERFLOW RF GTL170 GTL160 EQU * ANKL A2,/7FFF DELETE OVERFLOWBIT ADK A1,1 ADD CARRY GTL170 EQU * LDR A3,A2 LDR A2,A1 LDR A1,A5 FDB ADDR LDR A6,A5 RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DMSUBX REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…007a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0042}
0x007a…0084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x0084…00ac Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x0088}
0x00ac…00b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b0}
0x00b6…00ec Head {h00=0x0032, h01=0x0050, text=»* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS «, t00=0x0000, t01=0x00ba}
0x00ec…00f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x00f6…0132 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x00fa}
0x0132…016e Head {h00=0x0038, h01=0x0050, text=»****THIS MODULE IS ACTIVATED FROM :*****************«, t00=0x0000, t01=0x0136}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…018a Head {h00=0x000e, h01=0x0050, text=»* DMTASK«, t00=0x0000, t01=0x017c}
0x018a…0194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018e}
0x0194…01ac Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x0008}
0x01ac…01c4 Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x0020}
0x01c4…01dc Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x0038}
0x01dc…01e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0050}
0x01e6…0202 Head {h00=0x0018, h01=0x0050, text=» ENTRY FNDKMX,CHKKEY«, t00=0x0001, t01=0x005a}
0x0202…0218 Head {h00=0x0012, h01=0x0050, text=» ENTRY RDNXTR «, t00=0x0001, t01=0x0076}
0x0218…022e Head {h00=0x0012, h01=0x0050, text=» ENTRY FNDKEY «, t00=0x0001, t01=0x008c}
0x022e…0244 Head {h00=0x0012, h01=0x0050, text=» ENTRY CRNUPD «, t00=0x0001, t01=0x00a2}
0x0244…025a Head {h00=0x0012, h01=0x0050, text=» ENTRY GTLGRN «, t00=0x0001, t01=0x00b8}
0x025a…0270 Head {h00=0x0012, h01=0x0050, text=» ENTRY CRNCIF «, t00=0x0001, t01=0x00ce}
0x0270…027a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e4}
0x027a…0294 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x00ee}
0x0294…02ae Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0001, t01=0x0108}
0x02ae…02c8 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x0122}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013c}
0x02d2…02e8 Head {h00=0x0012, h01=0x0050, text=» EXTRN MPYMOD «, t00=0x0001, t01=0x0146}
0x02e8…0320 Head {h00=0x0034, h01=0x0050, text=» EXTRN FDBECB,FDBMIA,BUFSTA,FDBRLE,FDBSNR,ECBCW «, t00=0x0001, t01=0x015c}
0x0320…033c (2, 0, 400) Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBBLZ,FWTFNR«, t00=0x0002, t01=0x0004}
0x033c…0360 Head {h00=0x0020, h01=0x0050, text=» EXTRN FDBRRO,FDBBLF,BUFSNR «, t00=0x0002, t01=0x0020}
0x0360…038a Head {h00=0x0026, h01=0x0050, text=» EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF«, t00=0x0002, t01=0x0044}
0x038a…03bc Head {h00=0x002e, h01=0x0050, text=» EXTRN DMTIOT,GTBKBU,ADDMOD,CALSNO,DMTRBU «, t00=0x0002, t01=0x006e}
0x03bc…03d2 Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTIOZ «, t00=0x0002, t01=0x00a0}
0x03d2…03ee Head {h00=0x0018, h01=0x0050, text=» EXTRN DIVMOD,DSUMOD«, t00=0x0002, t01=0x00b6}
0x03ee…0408 Head {h00=0x0016, h01=0x0050, text=» EXTRN EOFRC,NOKEY«, t00=0x0002, t01=0x00d2}
0x0408…0416 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00ec}
0x0416…0452 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0002, t01=0x00fa}
0x0452…045c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0136}
0x045c…049c Head {h00=0x003c, h01=0x0050, text=»* FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX.«, t00=0x0002, t01=0x0140}
0x049c…04de Head {h00=0x003e, h01=0x0050, text=»* A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. «, t00=0x0002, t01=0x0180}
0x04de…0512 Head {h00=0x0030, h01=0x0050, text=»* THE FIRST TWO WORDS IN MASTER INDEX IS :«, t00=0x0003, t01=0x0032}
0x0512…0530 Head {h00=0x001a, h01=0x0050, text=»* - NO OF ENTRIES N «, t00=0x0003, t01=0x0066}
0x0530…0558 Head {h00=0x0024, h01=0x0050, text=»* - NO OF CHARACTERS PER ENTRY«, t00=0x0003, t01=0x0084}
0x0558…0562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ac}
0x0562…059e Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0003, t01=0x00b6}
0x059e…05a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f2}
0x05a8…05cc Head {h00=0x0020, h01=0x0050, text=»* A5 = MASTER INDEX ADRESS«, t00=0x0003, t01=0x00fc}
0x05cc…05f2 Head {h00=0x0022, h01=0x0050, text=»* A8 = ADRESS OF SEARCH KEy «, t00=0x0003, t01=0x0120}
0x05f2…0616 Head {h00=0x0020, h01=0x0050, text=»* A11 = NR OF CHAR IN KEY «, t00=0x0003, t01=0x0146}
0x0616…0620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016a}
0x0620…063c Head {h00=0x0018, h01=0x0050, text=»* CF A14,FNDKMX «, t00=0x0003, t01=0x0174}
0x063c…0646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0190}
0x0646…0682 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0004, t01=0x000a}
0x0682…068c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0046}
0x068c…06c0 Head {h00=0x0030, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO IN INDEX FILE «, t00=0x0004, t01=0x0050}
0x06c0…06de Head {h00=0x001a, h01=0x0050, text=»* A8,A11= UNCHANGED «, t00=0x0004, t01=0x0084}
0x06de…06e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a2}
0x06e8…0724 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0004, t01=0x00ac}
0x0724…072e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e8}
0x072e…0742 Head {h00=0x0010, h01=0x0050, text=»* A1 - A11«, t00=0x0004, t01=0x00f2}
0x0742…074c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0106}
0x074c…0786 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0004, t01=0x0110}
0x0786…0790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014a}
0x0790…07ba Head {h00=0x0026, h01=0x0050, text=»CRNCIF EQU 8 INDEX CURRENCY OFFSET«, t00=0x0004, t01=0x0154}
0x07ba…07c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x017e}
0x07c8…07dc Head {h00=0x0010, h01=0x0050, text=»FNDKMX EQU *«, t00=0x0004, t01=0x018c}
0x07dc…0800 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A5 NO OF ENTRIES N «, t00=0x0005, t01=0x0010}
0x0800…0826 Head {h00=0x0022, h01=0x0050, text=» RF(NP) FND045 NO MASTER INDEX«, t00=0x0005, t01=0x0034}
0x0826…0838 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x0005, t01=0x005a}
0x0838…0856 Head {h00=0x001a, h01=0x0050, text=» ANKL A9,/1 GET BIT 15«, t00=0x0005, t01=0x006c}
0x0856…0868 Head {h00=0x000e, h01=0x0050, text=» SRA A2,1 «, t00=0x0005, t01=0x008a}
0x0868…0888 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A2 M=N/2 FLOOR «, t00=0x0005, t01=0x009c}
0x0888…08a8 Head {h00=0x001c, h01=0x0050, text=» ADR A9,A2 I=N/2 CEILING«, t00=0x0005, t01=0x00bc}
0x08a8…08c8 Head {h00=0x001c, h01=0x0050, text=» ADK A5,2 TABLE BASE - 2«, t00=0x0005, t01=0x00dc}
0x08c8…08dc Head {h00=0x0010, h01=0x0050, text=»FND020 EQU *«, t00=0x0005, t01=0x00fc}
0x08dc…08ee Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0005, t01=0x0110}
0x08ee…090e Head {h00=0x001c, h01=0x0050, text=» LDR* A7,A5 ENTRY LENGTH«, t00=0x0005, t01=0x0122}
0x090e…0922 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A9 I«, t00=0x0005, t01=0x0142}
0x0922…0934 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0005, t01=0x0156}
0x0934…095c Head {h00=0x0024, h01=0x0050, text=» RF(NP) FND025 HANDLES ALSO I=0 «, t00=0x0005, t01=0x0168}
0x095c…0982 Head {h00=0x0022, h01=0x0050, text=» CF A14,MPYMOD A1,A2=(I-1)*EL «, t00=0x0005, t01=0x0190}
0x0982…0994 Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x0006, t01=0x0026}
0x0994…09b8 Head {h00=0x0020, h01=0x0050, text=» ORR A2,A1 GET MOST SIGN BIT«, t00=0x0006, t01=0x0038}
0x09b8…09cc Head {h00=0x0010, h01=0x0050, text=»FND025 EQU *«, t00=0x0006, t01=0x005c}
0x09cc…09f2 Head {h00=0x0022, h01=0x0050, text=» ADR A2,A5 ADD MI BASE ADR - 2«, t00=0x0006, t01=0x0070}
0x09f2…0a12 Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 ENTRY KEY ADR «, t00=0x0006, t01=0x0096}
0x0a12…0a34 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 SAVE ENTRY ADR «, t00=0x0006, t01=0x00b6}
0x0a34…0a56 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A8 SEARCH KEY ADR «, t00=0x0006, t01=0x00d8}
0x0a56…0a78 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A11 MAX KEY LENGTH«, t00=0x0006, t01=0x00fa}
0x0a78…0a92 Head {h00=0x0016, h01=0x0050, text=» LDK A7,0 CHAR ADR«, t00=0x0006, t01=0x011c}
0x0a92…0ab6 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0006, t01=0x0136}
0x0ab6…0acc Head {h00=0x0012, h01=0x0050, text=» LDR A7,A10 M «, t00=0x0006, t01=0x015a}
0x0acc…0ade Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0006, t01=0x0170}
0x0ade…0af8 Head {h00=0x0016, h01=0x0050, text=» ANK A6,/1 BIT 15 «, t00=0x0006, t01=0x0182}
0x0af8…0b14 Head {h00=0x0018, h01=0x0050, text=» SRA A7,1 M/2 FLOOR «, t00=0x0007, t01=0x000c}
0x0b14…0b32 Head {h00=0x001a, h01=0x0050, text=» ADR A6,A7 M/2 CEILING«, t00=0x0007, t01=0x0028}
0x0b32…0b54 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 CHKKEY RTN INF «, t00=0x0007, t01=0x0046}
0x0b54…0b86 Head {h00=0x002e, h01=0x0050, text=» RF(NG) FND040 SEARCHED KEY LESS OR EQUAL «, t00=0x0007, t01=0x0068}
0x0b86…0b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009a}
0x0b90…0bb0 Head {h00=0x001c, h01=0x0050, text=»* SEARCHED KEY GREATER«, t00=0x0007, t01=0x00a4}
0x0bb0…0bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bba…0bd0 Head {h00=0x0012, h01=0x0050, text=» LDR A10,A10 M«, t00=0x0007, t01=0x00ce}
0x0bd0…0bf2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FND050 SEARCH READY«, t00=0x0007, t01=0x00e4}
0x0bf2…0c14 Head {h00=0x001e, h01=0x0050, text=» ADR A9,A6 I=I+(M/2 CEIL) «, t00=0x0007, t01=0x0106}
0x0c14…0c28 Head {h00=0x0010, h01=0x0050, text=»FND030 EQU *«, t00=0x0007, t01=0x0128}
0x0c28…0c48 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A7 M=M/2 FLOOR «, t00=0x0007, t01=0x013c}
0x0c48…0c5a Head {h00=0x000e, h01=0x0050, text=» RB FND020«, t00=0x0007, t01=0x015c}
0x0c5a…0c6e Head {h00=0x0010, h01=0x0050, text=»FND040 EQU *«, t00=0x0007, t01=0x016e}
0x0c6e…0c84 Head {h00=0x0012, h01=0x0050, text=» LDR A10,A10 M«, t00=0x0007, t01=0x0182}
0x0c84…0ca6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FND060 SEARCH READY«, t00=0x0008, t01=0x0008}
0x0ca6…0cc8 Head {h00=0x001e, h01=0x0050, text=» SUR A9,A6 I=I-(M/2 CEIL) «, t00=0x0008, t01=0x002a}
0x0cc8…0cda Head {h00=0x000e, h01=0x0050, text=» RB FND030«, t00=0x0008, t01=0x004c}
0x0cda…0cfe Head {h00=0x0020, h01=0x0050, text=»FND045 EQU * NO MASTER INDEX«, t00=0x0008, t01=0x005e}
0x0cfe…0d10 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0008, t01=0x0082}
0x0d10…0d2a Head {h00=0x0016, h01=0x0050, text=» LDK A2,1 REC NR 1«, t00=0x0008, t01=0x0094}
0x0d2a…0d3c Head {h00=0x000e, h01=0x0050, text=» RF FND070«, t00=0x0008, t01=0x00ae}
0x0d3c…0d50 Head {h00=0x0010, h01=0x0050, text=»FND050 EQU *«, t00=0x0008, t01=0x00c0}
0x0d50…0d74 Head {h00=0x0020, h01=0x0050, text=» ADR* A1,A5 ARDR NEXT ENTRY «, t00=0x0008, t01=0x00d4}
0x0d74…0d88 Head {h00=0x0010, h01=0x0050, text=»FND060 EQU *«, t00=0x0008, t01=0x00f8}
0x0d88…0da4 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A1 ENTRY ADR«, t00=0x0008, t01=0x010c}
0x0da4…0db6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0008, t01=0x0128}
0x0db6…0dd4 Head {h00=0x001a, h01=0x0050, text=» ADR* A3,A5 ADR REC NO«, t00=0x0008, t01=0x013a}
0x0dd4…0dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0158}
0x0dde…0e02 Head {h00=0x0020, h01=0x0050, text=»* MOVE LOG REC NO TO A1,A2«, t00=0x0008, t01=0x0162}
0x0e02…0e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0186}
0x0e0c…0e1e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0008, t01=0x0190}
0x0e1e…0e30 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0009, t01=0x0012}
0x0e30…0e42 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0009, t01=0x0024}
0x0e42…0e54 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0009, t01=0x0036}
0x0e54…0e66 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0009, t01=0x0048}
0x0e66…0e78 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0009, t01=0x005a}
0x0e78…0e8a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0009, t01=0x006c}
0x0e8a…0e9e Head {h00=0x0010, h01=0x0050, text=»FND070 EQU *«, t00=0x0009, t01=0x007e}
0x0e9e…0eae Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0009, t01=0x0092}
0x0eae…0ebc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00a2}
0x0ebc…0ef8 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0009, t01=0x00b0}
0x0ef8…0f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ec}
0x0f02…0f34 Head {h00=0x002e, h01=0x0050, text=»* CHKKEY COMPARES TWO CHARACTER STRINGS «, t00=0x0009, t01=0x00f6}
0x0f34…0f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0128}
0x0f3e…0f7a Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0009, t01=0x0132}
0x0f7a…0f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x016e}
0x0f84…0fa6 Head {h00=0x001e, h01=0x0050, text=»* A2 = ADR OF ENTRY KEY «, t00=0x0009, t01=0x0178}
0x0fa6…0fc8 Head {h00=0x001e, h01=0x0050, text=»* A3 = ADR OF SEARCH KEY«, t00=0x000a, t01=0x000a}
0x0fc8…0ff6 Head {h00=0x002a, h01=0x0050, text=»* A6 = MAX NO OF CAHARACTERS IN KEY «, t00=0x000a, t01=0x002c}
0x0ff6…102c Head {h00=0x0032, h01=0x0050, text=»* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY «, t00=0x000a, t01=0x005a}
0x102c…1036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0090}
0x1036…1052 Head {h00=0x0018, h01=0x0050, text=»* CF A14,CHKKEY «, t00=0x000a, t01=0x009a}
0x1052…105c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b6}
0x105c…1098 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000a, t01=0x00c0}
0x1098…10a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00fc}
0x10a2…10e0 Head {h00=0x003a, h01=0x0050, text=»* A3 = 0 WHEN SEARCED KEY IS CONTAINED IN ENTRY KEY «, t00=0x000a, t01=0x0106}
0x10e0…1110 Head {h00=0x002c, h01=0x0050, text=»* = + 1 WHEN SEARCH KYEY IS GREATER«, t00=0x000a, t01=0x0144}
0x1110…113c Head {h00=0x0028, h01=0x0050, text=»* = -1 WHEN SEARCH KEY IS LESS «, t00=0x000a, t01=0x0174}
0x113c…118e Head {h00=0x004e, h01=0x0050, text=»* A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY«, t00=0x000b, t01=0x0010}
0x118e…11b4 Head {h00=0x0022, h01=0x0050, text=»* A6 = MAX NO OF CHAR IN KEY«, t00=0x000b, t01=0x0062}
0x11b4…11be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0088}
0x11be…11fa Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x000b, t01=0x0092}
0x11fa…1204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ce}
0x1204…121c Head {h00=0x0014, h01=0x0050, text=»* A2-A4,A6-A7 «, t00=0x000b, t01=0x00d8}
0x121c…125c Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x000b, t01=0x00f0}
0x125c…126a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0130}
0x126a…127e Head {h00=0x0010, h01=0x0050, text=»CHKKEY EQU *«, t00=0x000b, t01=0x013e}
0x127e…12a6 Head {h00=0x0024, h01=0x0050, text=» ADR A3,A7 FIRST SC CHAR TO TEST«, t00=0x000b, t01=0x0152}
0x12a6…12ce Head {h00=0x0024, h01=0x0050, text=» ADR A2,A7 FIRST EC CHAR TO TEST«, t00=0x000b, t01=0x017a}
0x12ce…12e2 Head {h00=0x0010, h01=0x0050, text=»CHK020 EQU *«, t00=0x000c, t01=0x0012}
0x12e2…1306 Head {h00=0x0020, h01=0x0050, text=» LCR A4,A3 SEARCED KEY CHAR «, t00=0x000c, t01=0x0026}
0x1306…1320 Head {h00=0x0016, h01=0x0050, text=» CCR A4,A2 SC=EC? «, t00=0x000c, t01=0x004a}
0x1320…1342 Head {h00=0x001e, h01=0x0050, text=» RF(G) CHK100 SC GT TH EC «, t00=0x000c, t01=0x0064}
0x1342…1368 Head {h00=0x0022, h01=0x0050, text=» RF(L) CHK120 SC LESS THAN EC «, t00=0x000c, t01=0x0086}
0x1368…138a Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 NO OF SAME CHAR «, t00=0x000c, t01=0x00ac}
0x138a…13a8 Head {h00=0x001a, h01=0x0050, text=» CWR A7,A6 NO OF CHAR «, t00=0x000c, t01=0x00ce}
0x13a8…13d0 Head {h00=0x0024, h01=0x0050, text=» RF(NL) CHK060 ALL CHAR CHECKED «, t00=0x000c, t01=0x00ec}
0x13d0…13f0 Head {h00=0x001c, h01=0x0050, text=» ADK A3,1 NXT SC TO TEST«, t00=0x000c, t01=0x0114}
0x13f0…1410 Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 NXT EC TO TEST«, t00=0x000c, t01=0x0134}
0x1410…1424 Head {h00=0x0010, h01=0x0050, text=» RB CHK020 «, t00=0x000c, t01=0x0154}
0x1424…1438 Head {h00=0x0010, h01=0x0050, text=»CHK060 EQU *«, t00=0x000c, t01=0x0168}
0x1438…1450 Head {h00=0x0014, h01=0x0050, text=» LDK A3,0 FOUND «, t00=0x000c, t01=0x017c}
0x1450…1462 (13, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF CHK140«, t00=0x000d, t01=0x0004}
0x1462…1476 Head {h00=0x0010, h01=0x0050, text=»CHK120 EQU *«, t00=0x000d, t01=0x0016}
0x1476…149e Head {h00=0x0024, h01=0x0050, text=» LDKL A3,-1 SEARCHED KEY SMALLER«, t00=0x000d, t01=0x002a}
0x149e…14b0 Head {h00=0x000e, h01=0x0050, text=» RF CHK140«, t00=0x000d, t01=0x0052}
0x14b0…14c4 Head {h00=0x0010, h01=0x0050, text=»CHK100 EQU *«, t00=0x000d, t01=0x0064}
0x14c4…14ec Head {h00=0x0024, h01=0x0050, text=» LDK A3,1 SEARCHED KEY SGREATER «, t00=0x000d, t01=0x0078}
0x14ec…1500 Head {h00=0x0010, h01=0x0050, text=»CHK140 EQU *«, t00=0x000d, t01=0x00a0}
0x1500…1510 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000d, t01=0x00b4}
0x1510…151e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00c4}
0x151e…155a Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x000d, t01=0x00d2}
0x155a…1564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1564…15a8 Head {h00=0x0040, h01=0x0050, text=»* RDNXTR WILL MAKWE NEXT RECORD IN AN INDEX FILE AVAILABLE«, t00=0x000d, t01=0x0118}
0x15a8…15c4 Head {h00=0x0018, h01=0x0050, text=»* IN A CORE BUFFER«, t00=0x000d, t01=0x015c}
0x15c4…160c Head {h00=0x0044, h01=0x0050, text=»* WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED«, t00=0x000d, t01=0x0178}
0x160c…1636 Head {h00=0x0026, h01=0x0050, text=»* SECTOR WILL BE MADE AVAILABLE «, t00=0x000e, t01=0x0030}
0x1636…1640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005a}
0x1640…167c Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x000e, t01=0x0064}
0x167c…1686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a0}
0x1686…16c4 Head {h00=0x003a, h01=0x0050, text=»* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) «, t00=0x000e, t01=0x00aa}
0x16c4…16e2 Head {h00=0x001a, h01=0x0050, text=»* FDBCEX,FDBSNR«, t00=0x000e, t01=0x00e8}
0x16e2…1728 Head {h00=0x0042, h01=0x0050, text=»* FDBRRO = RECORD OFFSET IN BUFFER, WHEN = -1 THE FIRST«, t00=0x000e, t01=0x0106}
0x1728…1764 Head {h00=0x0038, h01=0x0050, text=»* RECORD IN CURRENT SECTOR IS WANTED«, t00=0x000e, t01=0x014c}
0x1764…17a2 Head {h00=0x003a, h01=0x0050, text=»* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN«, t00=0x000e, t01=0x0188}
0x17a2…17e4 Head {h00=0x003e, h01=0x0050, text=»* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED «, t00=0x000f, t01=0x0036}
0x17e4…1800 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x000f, t01=0x0078}
0x1800…180a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0094}
0x180a…1846 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000f, t01=0x009e}
0x1846…1850 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00da}
0x1850…1886 Head {h00=0x0032, h01=0x0050, text=»* RETURN AT ADDR 0 WHEN OK AND A5 UNDEFINED «, t00=0x000f, t01=0x00e4}
0x1886…18ae Head {h00=0x0024, h01=0x0050, text=»* + 2 WHEN ERROR«, t00=0x000f, t01=0x011a}
0x18ae…18ca Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x000f, t01=0x0142}
0x18ca…191c Head {h00=0x004e, h01=0x0050, text=»* A5 = ERROR CODE (RETURN CODE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED«, t00=0x000f, t01=0x015e}
0x191c…1944 Head {h00=0x0024, h01=0x0050, text=»* A2 = FDBRRO = RECORD OFFSET «, t00=0x0010, t01=0x0020}
0x1944…1964 Head {h00=0x001c, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0010, t01=0x0048}
0x1964…1992 Head {h00=0x002a, h01=0x0050, text=»* = 0 WHEN NO BUFFER IS ALLOCATED«, t00=0x0010, t01=0x0068}
0x1992…19ae Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0010, t01=0x0096}
0x19ae…19b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b2}
0x19b8…19f4 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0010, t01=0x00bc}
0x19f4…19fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f8}
0x19fe…1a34 Head {h00=0x0032, h01=0x0050, text=»* A1-A5,A8-A10,A13 + TWO WORDS ON A14 STACK «, t00=0x0010, t01=0x0102}
0x1a34…1a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0138}
0x1a3e…1a78 Head {h00=0x0036, h01=0x0050, text=»* SPECIAL STACK HANDLING FOR PERFORMANCE REASONS«, t00=0x0010, t01=0x0142}
0x1a78…1ab6 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0010, t01=0x017c}
0x1ab6…1ac4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x002a}
0x1ac4…1ad8 Head {h00=0x0010, h01=0x0050, text=»RDNXTR EQU *«, t00=0x0011, t01=0x0038}
0x1ad8…1afc Head {h00=0x0020, h01=0x0050, text=» LDR A10,A3 SAVE BUFFER ADDR«, t00=0x0011, t01=0x004c}
0x1afc…1b20 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDN200 BUFFER EXIST «, t00=0x0011, t01=0x0070}
0x1b20…1b34 Head {h00=0x0010, h01=0x0050, text=» STR A7,A14 «, t00=0x0011, t01=0x0094}
0x1b34…1b48 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,4 «, t00=0x0011, t01=0x00a8}
0x1b48…1b5c Head {h00=0x0010, h01=0x0050, text=» ST A6,2,A14«, t00=0x0011, t01=0x00bc}
0x1b5c…1b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d0}
0x1b66…1b7e Head {h00=0x0014, h01=0x0050, text=»* GET A BUFFER«, t00=0x0011, t01=0x00da}
0x1b7e…1b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f2}
0x1b88…1b9c Head {h00=0x0010, h01=0x0050, text=»RDN040 EQU *«, t00=0x0011, t01=0x00fc}
0x1b9c…1bc6 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTBKBU GET BLOCKBUFFERADDR«, t00=0x0011, t01=0x0110}
0x1bc6…1bda Head {h00=0x0010, h01=0x0050, text=» LDR A2,A2 «, t00=0x0011, t01=0x013a}
0x1bda…1c06 Head {h00=0x0028, h01=0x0050, text=» RF(NN) RDN080 DATA ALREADY IN CORE «, t00=0x0011, t01=0x014e}
0x1c06…1c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017a}
0x1c10…1c30 Head {h00=0x001c, h01=0x0050, text=»* READ BLOCK FROM DISC«, t00=0x0011, t01=0x0184}
0x1c30…1c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0014}
0x1c3a…1c5a Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 BUFFER ADDR «, t00=0x0012, t01=0x001e}
0x1c5a…1c82 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/91 PHYS READ WITH WAIT «, t00=0x0012, t01=0x003e}
0x1c82…1c8e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x0066}
0x1c8e…1cb2 Head {h00=0x0020, h01=0x0050, text=» DATA 15 FILE MANAGEMENT IO «, t00=0x0012, t01=0x0072}
0x1cb2…1cdc Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTIOZ CHECK RETURN CODES «, t00=0x0012, t01=0x0096}
0x1cdc…1cee Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0012, t01=0x00c0}
0x1cee…1d0a Head {h00=0x0018, h01=0x0050, text=» RF(NZ) RDN900 ERROR«, t00=0x0012, t01=0x00d2}
0x1d0a…1d26 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0012, t01=0x00ee}
0x1d26…1d3a Head {h00=0x0010, h01=0x0050, text=»RDN080 EQU *«, t00=0x0012, t01=0x010a}
0x1d3a…1d56 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0012, t01=0x011e}
0x1d56…1d68 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0012, t01=0x013a}
0x1d68…1d94 Head {h00=0x0028, h01=0x0050, text=» ST A2,FDBRRO,A1 OFFSET FIRST RECORD«, t00=0x0012, t01=0x014c}
0x1d94…1dae Head {h00=0x0016, h01=0x0050, text=» RF RDN940 RETURN «, t00=0x0012, t01=0x0178}
0x1dae…1db8 (19, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0004}
0x1db8…1dd6 Head {h00=0x001a, h01=0x0050, text=»* BUFFER WAS BEFORE «, t00=0x0013, t01=0x000e}
0x1dd6…1de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002c}
0x1de0…1df4 Head {h00=0x0010, h01=0x0050, text=»RDN200 EQU *«, t00=0x0013, t01=0x0036}
0x1df4…1e1c Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBRRO,A1 REC ORD OFFSET«, t00=0x0013, t01=0x004a}
0x1e1c…1e40 Head {h00=0x0020, h01=0x0050, text=» RF(NN) RDN220 NOT FIRST REC«, t00=0x0013, t01=0x0072}
0x1e40…1e54 Head {h00=0x0010, h01=0x0050, text=» STR A7,A14 «, t00=0x0013, t01=0x0096}
0x1e54…1e68 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,4 «, t00=0x0013, t01=0x00aa}
0x1e68…1e7c Head {h00=0x0010, h01=0x0050, text=» ST A6,2,A14«, t00=0x0013, t01=0x00be}
0x1e7c…1ea0 Head {h00=0x0020, h01=0x0050, text=» RB RDN080 FIRST REC WANTED «, t00=0x0013, t01=0x00d2}
0x1ea0…1eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f6}
0x1eaa…1ee8 Head {h00=0x003a, h01=0x0050, text=»* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER «, t00=0x0013, t01=0x0100}
0x1ee8…1ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013e}
0x1ef2…1f06 Head {h00=0x0010, h01=0x0050, text=»RDN220 EQU *«, t00=0x0013, t01=0x0148}
0x1f06…1f2a Head {h00=0x0020, h01=0x0050, text=» CW A2,FDBMRO,A1 MAX OFFSET «, t00=0x0013, t01=0x015c}
0x1f2a…1f58 Head {h00=0x002a, h01=0x0050, text=» RF(NL) RDN300 THIS REC LAST IN BUFFER«, t00=0x0013, t01=0x0180}
0x1f58…1f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001e}
0x1f62…1f92 Head {h00=0x002c, h01=0x0050, text=»* GET NEXT REC IN CURRENT BLOCKBUFFER «, t00=0x0014, t01=0x0028}
0x1f92…1f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0058}
0x1f9c…1fc4 Head {h00=0x0024, h01=0x0050, text=» AD A2,FDBRLE,A1 RECOR D LENGTH«, t00=0x0014, t01=0x0062}
0x1fc4…1fe2 Head {h00=0x001a, h01=0x0050, text=» ADK A2,1 STATUS CHAR «, t00=0x0014, t01=0x008a}
0x1fe2…2006 Head {h00=0x0020, h01=0x0050, text=» ST A2,FDBRRO,A1 NEW OFFSET «, t00=0x0014, t01=0x00a8}
0x2006…2020 Head {h00=0x0016, h01=0x0050, text=» RF RDN950 RETURN «, t00=0x0014, t01=0x00cc}
0x2020…202a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e6}
0x202a…203e Head {h00=0x0010, h01=0x0050, text=»RDN300 EQU *«, t00=0x0014, t01=0x00f0}
0x203e…2052 Head {h00=0x0010, h01=0x0050, text=» STR A7,A14 «, t00=0x0014, t01=0x0104}
0x2052…2066 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,4 «, t00=0x0014, t01=0x0118}
0x2066…207a Head {h00=0x0010, h01=0x0050, text=» ST A6,2,A14«, t00=0x0014, t01=0x012c}
0x207a…2084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0140}
0x2084…209a Head {h00=0x0012, h01=0x0050, text=»* NEW BLOCK «, t00=0x0014, t01=0x014a}
0x209a…20a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0160}
0x20a4…20be Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBSNR+2,A1«, t00=0x0014, t01=0x016a}
0x20be…20d0 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0014, t01=0x0184}
0x20d0…20f8 Head {h00=0x0024, h01=0x0050, text=» LC A5,FDBBLZ,A1 SECT PER BLOCK «, t00=0x0015, t01=0x0008}
0x20f8…2114 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A5 NEXT SECT«, t00=0x0015, t01=0x0030}
0x2114…212a Head {h00=0x0012, h01=0x0050, text=» RF(O) RDN380 «, t00=0x0015, t01=0x004c}
0x212a…213c Head {h00=0x000e, h01=0x0050, text=» RF RDN390«, t00=0x0015, t01=0x0062}
0x213c…2158 Head {h00=0x0018, h01=0x0050, text=»RDN380 ANKL A3,/7FFF«, t00=0x0015, t01=0x0074}
0x2158…216e Head {h00=0x0012, h01=0x0050, text=» IM FDBSNR,A1 «, t00=0x0015, t01=0x0090}
0x216e…218e Head {h00=0x001c, h01=0x0050, text=»RDN390 ST A3,FDBSNR+2,A1«, t00=0x0015, t01=0x00a6}
0x218e…21aa Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0015, t01=0x00c6}
0x21aa…21bc Head {h00=0x000e, h01=0x0050, text=» RF RDN500«, t00=0x0015, t01=0x00e2}
0x21bc…21c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f4}
0x21c6…21d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fe}
0x21d0…21ea Head {h00=0x0016, h01=0x0050, text=»* GET NEXT BLOCK«, t00=0x0015, t01=0x0108}
0x21ea…21f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0122}
0x21f4…2208 Head {h00=0x0010, h01=0x0050, text=»RDN500 EQU *«, t00=0x0015, t01=0x012c}
0x2208…2228 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 BUFFER ADDR «, t00=0x0015, t01=0x0140}
0x2228…224e Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0015, t01=0x0160}
0x224e…226a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0015, t01=0x0186}
0x226a…2288 Head {h00=0x001a, h01=0x0050, text=» RB RDN040 NEXT SECTOR«, t00=0x0016, t01=0x0012}
0x2288…2292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0030}
0x2292…22a2 Head {h00=0x000c, h01=0x0050, text=»* EXIT«, t00=0x0016, t01=0x003a}
0x22a2…22ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004a}
0x22ac…22c0 Head {h00=0x0010, h01=0x0050, text=»RDN900 EQU *«, t00=0x0016, t01=0x0054}
0x22c0…22dc Head {h00=0x0018, h01=0x0050, text=» LDR A5,A1 RET CODE «, t00=0x0016, t01=0x0068}
0x22dc…22f8 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0016, t01=0x0084}
0x22f8…2318 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 BUFFER ADDR «, t00=0x0016, t01=0x00a0}
0x2318…2338 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RDN960 NO BUFFER «, t00=0x0016, t01=0x00c0}
0x2338…235e Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0016, t01=0x00e0}
0x235e…2372 Head {h00=0x0010, h01=0x0050, text=»RDN960 EQU *«, t00=0x0016, t01=0x0106}
0x2372…2384 Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0016, t01=0x011a}
0x2384…23a2 Head {h00=0x001a, h01=0x0050, text=» ADS A3,8,A14 RET ADDR«, t00=0x0016, t01=0x012c}
0x23a2…23c0 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFER ADDR «, t00=0x0016, t01=0x014a}
0x23c0…23d4 Head {h00=0x0010, h01=0x0050, text=»RDN940 EQU *«, t00=0x0016, t01=0x0168}
0x23d4…23e8 Head {h00=0x0010, h01=0x0050, text=» LD A6,2,A14«, t00=0x0016, t01=0x017c}
0x23e8…23fc Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0016, t01=0x0190}
0x23fc…2410 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A14«, t00=0x0017, t01=0x0014}
0x2410…2424 Head {h00=0x0010, h01=0x0050, text=»RDN950 EQU *«, t00=0x0017, t01=0x0028}
0x2424…2434 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x003c}
0x2434…2442 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x004c}
0x2442…247e Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0017, t01=0x005a}
0x247e…2488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0096}
0x2488…24ca Head {h00=0x003e, h01=0x0050, text=»* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE «, t00=0x0017, t01=0x00a0}
0x24ca…24f8 Head {h00=0x002a, h01=0x0050, text=»* SPECIFIED KEY OR NEXT HIGHER KEY «, t00=0x0017, t01=0x00e2}
0x24f8…2532 Head {h00=0x0036, h01=0x0050, text=»* IF END OF FILE, THE FIRST FREE RECORD IS FOUND«, t00=0x0017, t01=0x0110}
0x2532…253c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014a}
0x253c…2578 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0017, t01=0x0154}
0x2578…2582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0190}
0x2582…259e Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0018, t01=0x000a}
0x259e…25be Head {h00=0x001c, h01=0x0050, text=»* A8 = SEARCH KEY ADDR«, t00=0x0018, t01=0x0026}
0x25be…25e8 Head {h00=0x0026, h01=0x0050, text=»* A11 = NO OF CHARACTERS IN KEY «, t00=0x0018, t01=0x0046}
0x25e8…260e Head {h00=0x0022, h01=0x0050, text=»* A13= PHYSICAL ECB ADDRESS «, t00=0x0018, t01=0x0070}
0x260e…2618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0096}
0x2618…2654 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0018, t01=0x00a0}
0x2654…265e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00dc}
0x265e…267a Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0018, t01=0x00e6}
0x267a…26ae Head {h00=0x0030, h01=0x0050, text=»* FDBSNR,FDBRRO = FOUND INDEX RECORD «, t00=0x0018, t01=0x0102}
0x26ae…26d4 Head {h00=0x0022, h01=0x0050, text=»* A2 = 0 WHEN KEY ISS FOUND «, t00=0x0018, t01=0x0136}
0x26d4…2708 Head {h00=0x0030, h01=0x0050, text=»* = /400 WHEN NEXT HIGHER KEY IS FOUND«, t00=0x0018, t01=0x015c}
0x2708…273a Head {h00=0x002e, h01=0x0050, text=»* = RETURN CODE WHEN KEY IS NOT FOUND«, t00=0x0018, t01=0x0190}
0x273a…2772 Head {h00=0x0034, h01=0x0050, text=»* BIT 1 CAN NEVBER BE SET BY DISC DRIVER «, t00=0x0019, t01=0x0032}
0x2772…2792 Head {h00=0x001c, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0019, t01=0x006a}
0x2792…27bc Head {h00=0x0026, h01=0x0050, text=»* = 0 WHEN NO RECORD IS FOUND«, t00=0x0019, t01=0x008a}
0x27bc…27e2 Head {h00=0x0022, h01=0x0050, text=»* A7 = NO OF SAME CHARACTERS«, t00=0x0019, t01=0x00b4}
0x27e2…2808 Head {h00=0x0022, h01=0x0050, text=»* A8 = PHYSICAL ECB ADDRESS «, t00=0x0019, t01=0x00da}
0x2808…2824 Head {h00=0x0018, h01=0x0050, text=»* A11 = UNCHANGED «, t00=0x0019, t01=0x0100}
0x2824…282e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x011c}
0x282e…286a Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0019, t01=0x0126}
0x286a…2874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0162}
0x2874…28a4 Head {h00=0x002c, h01=0x0050, text=»* A1 - A11,A13 + 4 WORDS ON A14 STACK «, t00=0x0019, t01=0x016c}
0x28a4…28ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000c}
0x28ae…28ec Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001a, t01=0x0016}
0x28ec…28fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0054}
0x28fa…290e Head {h00=0x0010, h01=0x0050, text=»FNDKEY EQU *«, t00=0x001a, t01=0x0062}
0x290e…2918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0076}
0x2918…2942 Head {h00=0x0026, h01=0x0050, text=»* FIRST SEARCH THE NMASTER INDEX«, t00=0x001a, t01=0x0080}
0x2942…294c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00aa}
0x294c…297a Head {h00=0x002a, h01=0x0050, text=» LD A5,FDBMIA,A1 ADDR OF MASTER INDEX «, t00=0x001a, t01=0x00b4}
0x297a…29a2 Head {h00=0x0024, h01=0x0050, text=» STR A1,A14 FDB ADDRESS IS SAVED«, t00=0x001a, t01=0x00e2}
0x29a2…29b6 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,8 «, t00=0x001a, t01=0x010a}
0x29b6…29e0 Head {h00=0x0026, h01=0x0050, text=» ST A8,6,A14 SAVE SEARCH KEY ADDR «, t00=0x001a, t01=0x011e}
0x29e0…2a14 Head {h00=0x0030, h01=0x0050, text=» CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX«, t00=0x001a, t01=0x0148}
0x2a14…2a32 Head {h00=0x001a, h01=0x0050, text=» LD A6,8,A14 FDB ADDR «, t00=0x001a, t01=0x017c}
0x2a32…2a56 Head {h00=0x0020, h01=0x0050, text=» CF A14,CALSNO GET PHYS ADDR«, t00=0x001b, t01=0x000a}
0x2a56…2a68 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001b, t01=0x002e}
0x2a68…2a84 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FKY900 ERROR«, t00=0x001b, t01=0x0040}
0x2a84…2a9e Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 FDBADDR«, t00=0x001b, t01=0x005c}
0x2a9e…2ac4 Head {h00=0x0022, h01=0x0050, text=» LDR A6,A11 NO OF CHAR IN KEY «, t00=0x001b, t01=0x0076}
0x2ac4…2aec Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 START CHAR KEY SEARCH «, t00=0x001b, t01=0x009c}
0x2aec…2b16 Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 NO BUFFER TO START WITH«, t00=0x001b, t01=0x00c4}
0x2b16…2b32 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A13 ECB ADDR«, t00=0x001b, t01=0x00ee}
0x2b32…2b46 Head {h00=0x0010, h01=0x0050, text=»FKY100 EQU *«, t00=0x001b, t01=0x010a}
0x2b46…2b64 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 BUFFER ADDR«, t00=0x001b, t01=0x011e}
0x2b64…2b8c Head {h00=0x0024, h01=0x0050, text=» CF A14,RDNXTR GET INDEX RECORD «, t00=0x001b, t01=0x013c}
0x2b8c…2b9e Head {h00=0x000e, h01=0x0050, text=» RF FKY150«, t00=0x001b, t01=0x0164}
0x2b9e…2bba Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 RET CODE «, t00=0x001b, t01=0x0176}
0x2bba…2bd8 (28, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RF FKY900 ERROR EXIT «, t00=0x001c, t01=0x0004}
0x2bd8…2be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0022}
0x2be2…2c08 Head {h00=0x0022, h01=0x0050, text=»* BUFFER AND ADATA IS FOUND «, t00=0x001c, t01=0x002c}
0x2c08…2c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0052}
0x2c12…2c26 Head {h00=0x0010, h01=0x0050, text=»FKY150 EQU *«, t00=0x001c, t01=0x005c}
0x2c26…2c44 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A3 BUFFER ADDR«, t00=0x001c, t01=0x0070}
0x2c44…2c62 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A3 BUFFER ADR «, t00=0x001c, t01=0x008e}
0x2c62…2c7a Head {h00=0x0014, h01=0x0050, text=» ADKL A2,BUFSTA «, t00=0x001c, t01=0x00ac}
0x2c7a…2c9c Head {h00=0x001e, h01=0x0050, text=» LDR A10,A2 SAVE REC ADDR «, t00=0x001c, t01=0x00c4}
0x2c9c…2cca Head {h00=0x002a, h01=0x0050, text=» AD A10,FDBRLE,A1 ADDR OF STATUS CHAR «, t00=0x001c, t01=0x00e6}
0x2cca…2cec Head {h00=0x001e, h01=0x0050, text=» LDK A5,/FF USED CHAR MARK«, t00=0x001c, t01=0x0114}
0x2cec…2d0c Head {h00=0x001c, h01=0x0050, text=» CCR A5,A10 STATUS CHAR «, t00=0x001c, t01=0x0136}
0x2d0c…2d2e Head {h00=0x001e, h01=0x0050, text=» RF(E) FKY200 USED RECORD «, t00=0x001c, t01=0x0156}
0x2d2e…2d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0178}
0x2d38…2d62 Head {h00=0x0026, h01=0x0050, text=»* NO MORE RECORDS IN THIS SECTOR«, t00=0x001c, t01=0x0182}
0x2d62…2d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x001c}
0x2d6c…2d9a Head {h00=0x002a, h01=0x0050, text=» LD A13,FDBRRO,A1 SAVE CURRENT OFFSET «, t00=0x001d, t01=0x0026}
0x2d9a…2db4 Head {h00=0x0016, h01=0x0050, text=» LD A4,FDBMRO,A1 «, t00=0x001d, t01=0x0054}
0x2db4…2dde Head {h00=0x0026, h01=0x0050, text=» ST A4,FDBRRO,A1 LAST REC IN SECT «, t00=0x001d, t01=0x006e}
0x2dde…2de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0098}
0x2de8…2e02 Head {h00=0x0016, h01=0x0050, text=»* *CHECK IF EOF «, t00=0x001d, t01=0x00a2}
0x2e02…2e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00bc}
0x2e0c…2e2a Head {h00=0x001a, h01=0x0050, text=» LDR A10,A7 CHAR ADDR «, t00=0x001d, t01=0x00c6}
0x2e2a…2e50 Head {h00=0x0022, h01=0x0050, text=» CF A14,GTLGRN GET LOG REC NR «, t00=0x001d, t01=0x00e4}
0x2e50…2e6e Head {h00=0x001a, h01=0x0050, text=» LDR A6,A11 NR OF CHAR«, t00=0x001d, t01=0x010a}
0x2e6e…2e8c Head {h00=0x001a, h01=0x0050, text=» LDR A7,A10 CHAR ADDR «, t00=0x001d, t01=0x0128}
0x2e8c…2ea4 Head {h00=0x0014, h01=0x0050, text=» CC A2,FDBLRN,A1«, t00=0x001d, t01=0x0146}
0x2ea4…2ec2 Head {h00=0x001a, h01=0x0050, text=» RB(L) FKY100 NOT EOF «, t00=0x001d, t01=0x015e}
0x2ec2…2edc Head {h00=0x0016, h01=0x0050, text=» RF(G) FKY180 EOF «, t00=0x001d, t01=0x017c}
0x2edc…2ef6 Head {h00=0x0016, h01=0x0050, text=» CW A3,FDBLRN+1,A1«, t00=0x001e, t01=0x0008}
0x2ef6…2f14 Head {h00=0x001a, h01=0x0050, text=» RB(L) FKY100 NOT EOF «, t00=0x001e, t01=0x0022}
0x2f14…2f28 Head {h00=0x0010, h01=0x0050, text=»FKY180 EQU *«, t00=0x001e, t01=0x0040}
0x2f28…2f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0054}
0x2f32…2f54 Head {h00=0x001e, h01=0x0050, text=»* EOF IS IN THIS SECTOR «, t00=0x001e, t01=0x005e}
0x2f54…2f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0080}
0x2f5e…2f94 Head {h00=0x0032, h01=0x0050, text=» ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD «, t00=0x001e, t01=0x008a}
0x2f94…2fb6 Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 NR OF SAME CHAR «, t00=0x001e, t01=0x00c0}
0x2fb6…2fd0 Head {h00=0x0016, h01=0x0050, text=» LDKL A2,EOFRC EOF«, t00=0x001e, t01=0x00e2}
0x2fd0…2fe2 Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x001e, t01=0x00fc}
0x2fe2…2fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010e}
0x2fec…3012 Head {h00=0x0022, h01=0x0050, text=»* CHECK KEY IN THIS RECODRD «, t00=0x001e, t01=0x0118}
0x3012…301c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x013e}
0x301c…3030 Head {h00=0x0010, h01=0x0050, text=»FKY200 EQU *«, t00=0x001e, t01=0x0148}
0x3030…3054 Head {h00=0x0020, h01=0x0050, text=» LD A3,6,A14 SEARCH KEY ADDR«, t00=0x001e, t01=0x015c}
0x3054…3078 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x001e, t01=0x0180}
0x3078…308a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x001f, t01=0x0014}
0x308a…30b4 Head {h00=0x0026, h01=0x0050, text=» RF(P) FKY840 SEARCHED KEY GREATER«, t00=0x001f, t01=0x0026}
0x30b4…30da Head {h00=0x0022, h01=0x0050, text=» RF(N) FKY850 SEARCH KEY LESS «, t00=0x001f, t01=0x0050}
0x30da…30f8 Head {h00=0x001a, h01=0x0050, text=» RF FKY870 KEY FOUNFD «, t00=0x001f, t01=0x0076}
0x30f8…310c Head {h00=0x0010, h01=0x0050, text=»FKY840 EQU *«, t00=0x001f, t01=0x0094}
0x310c…3130 Head {h00=0x0020, h01=0x0050, text=» CC A7,-4,A10 NEXT KEY FLAG «, t00=0x001f, t01=0x00a8}
0x3130…3164 Head {h00=0x0030, h01=0x0050, text=» RB(NG) FKY100 THE NEXT KEY IS IDENTICAL FOR«, t00=0x001f, t01=0x00cc}
0x3164…31aa Head {h00=0x0042, h01=0x0050, text=»* AT LEAST THE SAME NO OF LEADING CHARACTERS«, t00=0x001f, t01=0x0100}
0x31aa…31e8 Head {h00=0x003a, h01=0x0050, text=»* THAT HAS BEEN CHECKED FOR THIS KEY«, t00=0x001f, t01=0x0146}
0x31e8…321a Head {h00=0x002e, h01=0x0050, text=» LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS«, t00=0x001f, t01=0x0184}
0x321a…3236 Head {h00=0x0018, h01=0x0050, text=» RB FKY100 NEXT KEY «, t00=0x0020, t01=0x0026}
0x3236…324a Head {h00=0x0010, h01=0x0050, text=»FKY850 EQU *«, t00=0x0020, t01=0x0042}
0x324a…326e Head {h00=0x0020, h01=0x0050, text=» LDKL A2,NOKEY KEY NOT FOUND«, t00=0x0020, t01=0x0056}
0x326e…3280 Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x0020, t01=0x007a}
0x3280…3294 Head {h00=0x0010, h01=0x0050, text=»FKY870 EQU *«, t00=0x0020, t01=0x008c}
0x3294…32b0 Head {h00=0x0018, h01=0x0050, text=» LDK A2,0 KEY FOUND «, t00=0x0020, t01=0x00a0}
0x32b0…32c2 Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x0020, t01=0x00bc}
0x32c2…32d6 Head {h00=0x0010, h01=0x0050, text=»FKY900 EQU *«, t00=0x0020, t01=0x00ce}
0x32d6…32f4 Head {h00=0x001a, h01=0x0050, text=» SUR A9,A9 NO BUFFERS «, t00=0x0020, t01=0x00e2}
0x32f4…3310 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A1 ERR CODE «, t00=0x0020, t01=0x0100}
0x3310…3338 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 NO OF SAME LEAD CHARS «, t00=0x0020, t01=0x011c}
0x3338…334c Head {h00=0x0010, h01=0x0050, text=»FKY950 EQU *«, t00=0x0020, t01=0x0144}
0x334c…336e Head {h00=0x001e, h01=0x0050, text=» ADKL A14,8 RESTORE STACK «, t00=0x0020, t01=0x0158}
0x336e…338c Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A14 FDB ADDR «, t00=0x0020, t01=0x017a}
0x338c…33aa Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 BUFFER ADDR«, t00=0x0021, t01=0x0008}
0x33aa…33ba Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0026}
0x33ba…33c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0036}
0x33c8…33d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0044}
0x33d2…3420 Head {h00=0x004a, h01=0x0050, text=»* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX «, t00=0x0021, t01=0x004e}
0x3420…3440 Head {h00=0x001c, h01=0x0050, text=»* RECORDS ARE UPDATED «, t00=0x0021, t01=0x009c}
0x3440…344a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00bc}
0x344a…345a Head {h00=0x000c, h01=0x0050, text=»* IN: «, t00=0x0021, t01=0x00c6}
0x345a…3484 Head {h00=0x0026, h01=0x0050, text=»* A8,A9 = LAST RECORD NR MOVED «, t00=0x0021, t01=0x00d6}
0x3484…34ae Head {h00=0x0026, h01=0x0050, text=»* A10,A11= FIRST RECORD NR MOVED«, t00=0x0021, t01=0x0100}
0x34ae…34d2 Head {h00=0x0020, h01=0x0050, text=»* A5 = FDB ADDR INDEX «, t00=0x0021, t01=0x012a}
0x34d2…34fc Head {h00=0x0026, h01=0x0050, text=»* A12 = ADD PARAMETER +1, -1 «, t00=0x0021, t01=0x014e}
0x34fc…3506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0178}
0x3506…3522 Head {h00=0x0018, h01=0x0050, text=»* USED REGISTERS: «, t00=0x0021, t01=0x0182}
0x3522…3536 Head {h00=0x0010, h01=0x0050, text=»* A1 -A12 «, t00=0x0022, t01=0x000e}
0x3536…3540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0022}
0x3540…3550 Head {h00=0x000c, h01=0x0050, text=»* OUT:«, t00=0x0022, t01=0x002c}
0x3550…3570 Head {h00=0x001c, h01=0x0050, text=»* A5 = FDB ADDR INDEX «, t00=0x0022, t01=0x003c}
0x3570…3590 Head {h00=0x001c, h01=0x0050, text=»* A10,A11 = UNCHANGED «, t00=0x0022, t01=0x005c}
0x3590…359a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x007c}
0x359a…35ae Head {h00=0x0010, h01=0x0050, text=»CRNUPD EQU *«, t00=0x0022, t01=0x0086}
0x35ae…35c2 Head {h00=0x0010, h01=0x0050, text=» STR A12,A14«, t00=0x0022, t01=0x009a}
0x35c2…35d6 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,2 «, t00=0x0022, t01=0x00ae}
0x35d6…35fe Head {h00=0x0024, h01=0x0050, text=» LD A12,FDBADF,A5 FDB DATA FILE «, t00=0x0022, t01=0x00c2}
0x35fe…360a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0022, t01=0x00ea}
0x360a…3632 Head {h00=0x0024, h01=0x0050, text=» LD A12,FDBCRL,A12 CRN LINK ROOT«, t00=0x0022, t01=0x00f6}
0x3632…3644 Head {h00=0x000e, h01=0x0050, text=» RF CRU120«, t00=0x0022, t01=0x011e}
0x3644…3660 Head {h00=0x0018, h01=0x0050, text=»CRU100 LDR* A12,A12 «, t00=0x0022, t01=0x0130}
0x3660…3688 Head {h00=0x0024, h01=0x0050, text=»CRU120 RF(Z) CRU900 END OF LINK «, t00=0x0022, t01=0x014c}
0x3688…36aa Head {h00=0x001e, h01=0x0050, text=» LC A7,FWTFNR,A5 FILE CODE«, t00=0x0022, t01=0x0174}
0x36aa…36c4 Head {h00=0x0016, h01=0x0050, text=» CC A7,CRNCIF,A12 «, t00=0x0023, t01=0x0008}
0x36c4…36e4 Head {h00=0x001c, h01=0x0050, text=» RB(NE) CRU100 WRONG FC «, t00=0x0023, t01=0x0022}
0x36e4…3700 Head {h00=0x0018, h01=0x0050, text=» CC A10,CRNCIF+1,A12«, t00=0x0023, t01=0x0042}
0x3700…3716 Head {h00=0x0012, h01=0x0050, text=» RB(G) CRU100 «, t00=0x0023, t01=0x005e}
0x3716…372c Head {h00=0x0012, h01=0x0050, text=» RF(L) CRU200 «, t00=0x0023, t01=0x0074}
0x372c…3748 Head {h00=0x0018, h01=0x0050, text=» CW A11,CRNCIF+2,A12«, t00=0x0023, t01=0x008a}
0x3748…375e Head {h00=0x0012, h01=0x0050, text=» RB(G) CRU100 «, t00=0x0023, t01=0x00a6}
0x375e…3772 Head {h00=0x0010, h01=0x0050, text=»CRU200 EQU *«, t00=0x0023, t01=0x00bc}
0x3772…378e Head {h00=0x0018, h01=0x0050, text=» CC A8,CRNCIF+1,A12 «, t00=0x0023, t01=0x00d0}
0x378e…37a4 Head {h00=0x0012, h01=0x0050, text=» RF(G) CRU300 «, t00=0x0023, t01=0x00ec}
0x37a4…37ba Head {h00=0x0012, h01=0x0050, text=» RB(L) CRU100 «, t00=0x0023, t01=0x0102}
0x37ba…37d6 Head {h00=0x0018, h01=0x0050, text=» CW A9,CRNCIF+2,A12 «, t00=0x0023, t01=0x0118}
0x37d6…37ec Head {h00=0x0012, h01=0x0050, text=» RB(L) CRU100 «, t00=0x0023, t01=0x0134}
0x37ec…3800 Head {h00=0x0010, h01=0x0050, text=»CRU300 EQU *«, t00=0x0023, t01=0x014a}
0x3800…380a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x015e}
0x380a…3820 Head {h00=0x0012, h01=0x0050, text=»* UPDATE CRN«, t00=0x0023, t01=0x0168}
0x3820…382a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017e}
0x382a…3848 Head {h00=0x001a, h01=0x0050, text=» LD A7,2,A14 ADD PARAM«, t00=0x0023, t01=0x0188}
0x3848…385a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0024, t01=0x0016}
0x385a…3872 Head {h00=0x0014, h01=0x0050, text=» RF(N) CRU230 -1«, t00=0x0024, t01=0x0028}
0x3872…3884 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0024, t01=0x0040}
0x3884…3898 Head {h00=0x0010, h01=0x0050, text=»CRU230 EQU *«, t00=0x0024, t01=0x0052}
0x3898…38ae Head {h00=0x0012, h01=0x0050, text=» ANKL A7,/7FFF«, t00=0x0024, t01=0x0066}
0x38ae…38c0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0024, t01=0x007c}
0x38c0…38dc Head {h00=0x0018, h01=0x0050, text=» LC A1,CRNCIF+1,A12 «, t00=0x0024, t01=0x008e}
0x38dc…38f8 Head {h00=0x0018, h01=0x0050, text=» LD A2,CRNCIF+2,A12 «, t00=0x0024, t01=0x00aa}
0x38f8…390e Head {h00=0x0012, h01=0x0050, text=» CF A14,ADDMOD«, t00=0x0024, t01=0x00c6}
0x390e…392a Head {h00=0x0018, h01=0x0050, text=» SC A1,CRNCIF+1,A12 «, t00=0x0024, t01=0x00dc}
0x392a…3946 Head {h00=0x0018, h01=0x0050, text=» ST A2,CRNCIF+2,A12 «, t00=0x0024, t01=0x00f8}
0x3946…3958 Head {h00=0x000e, h01=0x0050, text=» RB CRU100«, t00=0x0024, t01=0x0114}
0x3958…396c Head {h00=0x0010, h01=0x0050, text=»CRU900 EQU *«, t00=0x0024, t01=0x0126}
0x396c…3980 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,2 «, t00=0x0024, t01=0x013a}
0x3980…398c Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0024, t01=0x014e}
0x398c…399c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x015a}
0x399c…39b4 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0024, t01=0x016a}
0x39b4…39f0 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0024, t01=0x0182}
0x39f0…39fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002e}
0x39fa…3a42 Head {h00=0x0044, h01=0x0050, text=»* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO«, t00=0x0025, t01=0x0038}
0x3a42…3a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0080}
0x3a4c…3a88 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0025, t01=0x008a}
0x3a88…3a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c6}
0x3a92…3aae Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0025, t01=0x00d0}
0x3aae…3ad8 Head {h00=0x0026, h01=0x0050, text=»* FDBSNR,FDBRRO,FDBCEX «, t00=0x0025, t01=0x00ec}
0x3ad8…3ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0116}
0x3ae2…3b1e Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0025, t01=0x0120}
0x3b1e…3b28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x015c}
0x3b28…3b4a Head {h00=0x001e, h01=0x0050, text=»* A1=A5=A6= FDB ADDRESS «, t00=0x0025, t01=0x0166}
0x3b4a…3b6c Head {h00=0x001e, h01=0x0050, text=»* A2,A3 = LOG RECORD NO «, t00=0x0025, t01=0x0188}
0x3b6c…3b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x001a}
0x3b76…3bb2 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0026, t01=0x0024}
0x3bb2…3bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0060}
0x3bbc…3bd0 Head {h00=0x0010, h01=0x0050, text=»* A1 - A7 «, t00=0x0026, t01=0x006a}
0x3bd0…3bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x007e}
0x3bda…3c18 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0026, t01=0x0088}
0x3c18…3c30 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0026, t01=0x00c6}
0x3c30…3c44 Head {h00=0x0010, h01=0x0050, text=»GTLGRN EQU *«, t00=0x0026, t01=0x00de}
0x3c44…3c56 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0026, t01=0x00f2}
0x3c56…3c72 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A1 FDB ADDR «, t00=0x0026, t01=0x0104}
0x3c72…3c8a Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBSNR,A5«, t00=0x0026, t01=0x0120}
0x3c8a…3cb0 Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBSNR+2,A5 REL SECT NR«, t00=0x0026, t01=0x0138}
0x3cb0…3cc2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0026, t01=0x015e}
0x3cc2…3cd8 Head {h00=0x0012, h01=0x0050, text=» CF A14,DSUMOD«, t00=0x0026, t01=0x0170}
0x3cd8…3cea Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0026, t01=0x0186}
0x3cea…3d0e Head {h00=0x0020, h01=0x0050, text=» LC A6,FDBBLZ,A5 BLOCK SIZE «, t00=0x0027, t01=0x0008}
0x3d0e…3d24 Head {h00=0x0012, h01=0x0050, text=» ST A8,-4,A14 «, t00=0x0027, t01=0x002c}
0x3d24…3d3a Head {h00=0x0012, h01=0x0050, text=» CF A14,DIVMOD«, t00=0x0027, t01=0x0042}
0x3d3a…3d50 Head {h00=0x0012, h01=0x0050, text=» LD A8,-4,A14 «, t00=0x0027, t01=0x0058}
0x3d50…3d6e Head {h00=0x001a, h01=0x0050, text=» LDR A6,A2 BLOCKS - 1 «, t00=0x0027, t01=0x006e}
0x3d6e…3d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008c}
0x3d78…3da4 Head {h00=0x0028, h01=0x0050, text=»* CONVERT FDBRRO TO NO OF RECORDS «, t00=0x0027, t01=0x0096}
0x3da4…3dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c2}
0x3dae…3dc0 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0027, t01=0x00cc}
0x3dc0…3de6 Head {h00=0x0022, h01=0x0050, text=» LC A7,FDBBLF,A5 BLOCK FACTOR «, t00=0x0027, t01=0x00de}
0x3de6…3e08 Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A1,A2=A6*A7«, t00=0x0027, t01=0x0104}
0x3e08…3e20 Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBRLE,A5«, t00=0x0027, t01=0x0126}
0x3e20…3e40 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 RECORD LENGTH «, t00=0x0027, t01=0x013e}
0x3e40…3e60 Head {h00=0x001c, h01=0x0050, text=» LDK A7,0 RECORD COUNTER«, t00=0x0027, t01=0x015e}
0x3e60…3e8a Head {h00=0x0026, h01=0x0050, text=» LD A6,FDBRRO,A5 OFFSET IN SECTOR «, t00=0x0027, t01=0x017e}
0x3e8a…3e9c Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0028, t01=0x0018}
0x3e9c…3eb0 Head {h00=0x0010, h01=0x0050, text=»GTL150 EQU *«, t00=0x0028, t01=0x002a}
0x3eb0…3ed0 Head {h00=0x001c, h01=0x0050, text=» ADK A7,1 RECORD COUNTER«, t00=0x0028, t01=0x003e}
0x3ed0…3ee2 Head {h00=0x000e, h01=0x0050, text=» SUR A6,A4«, t00=0x0028, t01=0x005e}
0x3ee2…3f10 Head {h00=0x002a, h01=0x0050, text=» RB(NN) GTL150 COUNT RECORDS IN SECTOR«, t00=0x0028, t01=0x0070}
0x3f10…3f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009e}
0x3f1a…3f4a Head {h00=0x002c, h01=0x0050, text=»* ADD SECT*BLOCFACT AND RECINCURRSECT «, t00=0x0028, t01=0x00a8}
0x3f4a…3f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00d8}
0x3f54…3f66 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x0028, t01=0x00e2}
0x3f66…3f84 Head {h00=0x001a, h01=0x0050, text=» RF(O) GTL160 OVERFLOW«, t00=0x0028, t01=0x00f4}
0x3f84…3f96 Head {h00=0x000e, h01=0x0050, text=» RF GTL170«, t00=0x0028, t01=0x0112}
0x3f96…3faa Head {h00=0x0010, h01=0x0050, text=»GTL160 EQU *«, t00=0x0028, t01=0x0124}
0x3faa…3fd4 Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/7FFF DELETE OVERFLOWBIT «, t00=0x0028, t01=0x0138}
0x3fd4…3ff0 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x0028, t01=0x0162}
0x3ff0…4004 Head {h00=0x0010, h01=0x0050, text=»GTL170 EQU *«, t00=0x0028, t01=0x017e}
0x4004…4016 (41, 2, 118) Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0029, t01=0x0004}
0x4016…4028 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0029, t01=0x0016}
0x4028…4044 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 FDB ADDR «, t00=0x0029, t01=0x0028}
0x4044…4056 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0029, t01=0x0044}
0x4056…4066 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0056}
0x4066…4072 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0029, t01=0x0066}
0x4072…4076 Head {h00=0x4004, h01=0x0000}
0x4076…407a 00 29 00 72 ┆ ) r┆
0x407a…4082 (42, 1, 8) 20 04 00 00 00 2a 00 04 ┆ * ┆
0x4082…40d2 (43, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 a2 01 6e 00 40 00 3b 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * n @ ;* ┆
0x40d2…4122 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 a3 00 22 00 40 00 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * " @ ;**********************************************************┆
0x4122…4172 2a 20 00 a3 00 66 00 10 00 0c 46 52 44 53 45 43 5c 45 51 55 5c 2a 00 a3 00 aa 00 22 00 1d 5c 4c 44 52 5c 41 31 2c 41 31 31 5c 47 45 54 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 20 00 a3 00 be 00 0e 00 50 5c 53 4c 4c 5c 41 31 2c 34 20 00 a3 ┆* f FRDSEC EQU * " LDR A1,A11 GET SECTOR NUMBER P SLL A1,4 ┆
0x4172…41c2 00 e4 00 12 00 50 5c 4f 52 4b 4c 5c 41 31 2c 2f 34 30 30 30 00 a3 00 f6 00 26 00 21 5c 4c 44 4b 4c 5c 41 32 2c 4d 55 58 43 43 5c 4c 4f 41 44 20 31 3a 53 54 20 4d 55 58 20 57 4f 52 44 20 00 a3 01 0c 00 24 00 1f 5c 4c 44 5c 41 33 2c 4d 58 42 ┆ P ORKL A1,/4000 & ! LDKL A2,MUXCC LOAD 1:ST MUX WORD $ LD A3,MXB┆
0x41c2…4212 55 46 5c 4c 4f 41 44 20 32 3a 4e 44 20 4d 55 58 20 57 4f 52 44 20 00 a3 01 36 00 26 00 21 5c 57 45 52 5c 41 32 2c 46 44 49 4f 50 5c 57 52 49 54 45 20 31 3a 53 54 20 4d 55 58 20 57 4f 52 44 20 00 a3 01 5e 00 28 00 23 5c 57 45 52 5c 41 33 2c ┆UF LOAD 2:ND MUX WORD 6 & ! WER A2,FDIOP WRITE 1:ST MUX WORD ^ ( # WER A3,┆
0x4212…4262 (44, 0, 400) 46 44 49 4f 50 2b 31 5c 57 52 49 54 45 20 32 3a 4e 44 20 4d 55 58 20 57 4f 52 44 20 00 a3 01 88 00 24 00 50 5c 4c 44 52 5c 41 32 2c 41 33 5c 42 55 46 46 45 52 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 00 a4 00 24 00 24 00 50 5c 41 44 5c ┆FDIOP+1 WRITE 2:ND MUX WORD $ P LDR A2,A3 BUFFER START ADDRESS $ $ P AD ┆
0x4262…42b2 41 32 2c 53 41 56 43 4f 4e 5c 42 55 46 46 45 52 20 45 4e 44 20 41 44 44 52 45 53 53 00 a4 00 4c 00 24 00 1f 46 52 44 3a 31 30 5c 43 49 4f 5c 41 31 2c 31 2c 46 44 43 55 5c 53 54 41 52 54 20 52 45 41 44 20 00 a4 00 74 00 26 00 22 5c 52 42 28 ┆A2,SAVCON BUFFER END ADDRESS L $ FRD:10 CIO A1,1,FDCU START READ t & " RB(┆
0x42b2…4302 4e 41 29 5c 46 52 44 3a 31 30 5c 4c 4f 4f 50 20 55 4e 54 49 4c 20 41 43 43 45 50 54 45 44 00 a4 00 9c 00 34 00 2f 46 52 44 3a 32 30 5c 49 4e 52 5c 41 31 2c 30 2c 46 44 43 55 5c 47 45 54 20 43 48 41 52 20 2d 20 4d 4f 44 49 46 49 45 44 20 49 ┆NA) FRD:10 LOOP UNTIL ACCEPTED 4 /FRD:20 INR A1,0,FDCU GET CHAR - MODIFIED I┆
0x4302…4352 46 20 4d 55 58 20 00 a4 00 c6 00 26 00 22 5c 52 46 28 4e 41 29 5c 46 52 44 3a 34 30 5c 4c 4f 4f 50 20 55 4e 54 49 4c 20 41 43 43 45 50 54 45 44 00 a4 00 fe 00 1e 00 50 5c 53 54 52 5c 41 31 2c 41 33 5c 53 54 4f 52 45 20 43 48 41 52 41 43 54 ┆F MUX & " RF(NA) FRD:40 LOOP UNTIL ACCEPTED P STR A1,A3 STORE CHARACT┆
0x4352…43a2 45 52 00 a4 01 28 00 26 00 50 5c 41 44 4b 5c 41 33 2c 32 5c 49 4e 43 52 45 4d 45 4e 54 20 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 00 a4 01 4a 00 0e 00 50 5c 43 57 52 5c 41 33 2c 41 32 00 a4 01 74 00 12 00 50 5c 52 42 28 4e 45 29 5c 46 52 ┆ER ( & P ADK A3,2 INCREMENT BUFFER POINTER J P CWR A3,A2 t P RB(NE) FR┆