|
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: 16764 (0x417c)
Notes: pts_type(SC)
Names: »DMSUBX.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/DMSUBX.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DMSUBX.SC«
└─⟦fcfed1ed9⟧ Bits:30009706 Philips computer tape "M_167"
└─⟦this⟧ »M:167D/DMSUBX.SC«
IDENT DMSUBX REL 8.2 78-09-15 870105040820 BUF HANDL + SEQ L. 230-250,317-325 REL 8.1 78-04-21 * **************************************************** * * 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 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…006c Head {h00=0x002a, h01=0x0050, text=» BUF HANDL + SEQ L. 230-250,317-325 «, t00=0x0000, t01=0x0042}
0x006c…0088 Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-21 «, t00=0x0000, t01=0x0070}
0x0088…0092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00ce Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0096}
0x00ce…00d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d2}
0x00d8…0100 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00dc}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0140 Head {h00=0x0032, h01=0x0050, text=»* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS «, t00=0x0000, t01=0x010e}
0x0140…014a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…0168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0162}
0x0168…0172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016c}
0x0172…017c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0176}
0x017c…01b8 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0180}
0x01b8…01f4 Head {h00=0x0038, h01=0x0050, text=»****THIS MODULE IS ACTIVATED FROM :*****************«, t00=0x0001, t01=0x002c}
0x01f4…01fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0068}
0x01fe…0210 Head {h00=0x000e, h01=0x0050, text=»* DMTASK«, t00=0x0001, t01=0x0072}
0x0210…021a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0084}
0x021a…0232 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x008e}
0x0232…024a Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x00a6}
0x024a…0262 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x00be}
0x0262…026c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026c…0288 Head {h00=0x0018, h01=0x0050, text=» ENTRY FNDKMX,CHKKEY«, t00=0x0001, t01=0x00e0}
0x0288…029e Head {h00=0x0012, h01=0x0050, text=» ENTRY RDNXTR «, t00=0x0001, t01=0x00fc}
0x029e…02b4 Head {h00=0x0012, h01=0x0050, text=» ENTRY FNDKEY «, t00=0x0001, t01=0x0112}
0x02b4…02ca Head {h00=0x0012, h01=0x0050, text=» ENTRY CRNUPD «, t00=0x0001, t01=0x0128}
0x02ca…02d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…02ee Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x0148}
0x02ee…0308 Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0001, t01=0x0162}
0x0308…0322 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0001, t01=0x017c}
0x0322…032c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0008}
0x032c…0342 Head {h00=0x0012, h01=0x0050, text=» EXTRN MPYMOD «, t00=0x0002, t01=0x0012}
0x0342…0380 Head {h00=0x003a, h01=0x0050, text=» EXTRN EXTLEN,FDBECB,FDBMIA,BUFSTA,FDBRLE,FDBSNR,ECBCW«, t00=0x0002, t01=0x0028}
0x0380…03b2 Head {h00=0x002e, h01=0x0050, text=» EXTRN FDBRRO,FDBCEX,FDBBLF,EXTBAS,BUFSNR «, t00=0x0002, t01=0x0066}
0x03b2…03e4 Head {h00=0x002e, h01=0x0050, text=» EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF,CRNCIF «, t00=0x0002, t01=0x0098}
0x03e4…041c Head {h00=0x0034, h01=0x0050, text=» EXTRN DMTIOT,GTLGRN,GTBKBU,ADDMOD,CALSNO,DMTRBU«, t00=0x0002, t01=0x00ca}
0x041c…0432 Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTIOZ «, t00=0x0002, t01=0x0102}
0x0432…0440 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0118}
0x0440…047c Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0002, t01=0x0126}
0x047c…0486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0162}
0x0486…04c6 Head {h00=0x003c, h01=0x0050, text=»* FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX.«, t00=0x0002, t01=0x016c}
0x04c6…0508 Head {h00=0x003e, h01=0x0050, text=»* A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. «, t00=0x0003, t01=0x001c}
0x0508…0540 Head {h00=0x0034, h01=0x0050, text=»* THE SEARCH KEY MAY BE TERMINATED WITH A /EE.«, t00=0x0003, t01=0x005e}
0x0540…0574 Head {h00=0x0030, h01=0x0050, text=»* THE FIRST TWO WORDS IN MASTER INDEX IS :«, t00=0x0003, t01=0x0096}
0x0574…0592 Head {h00=0x001a, h01=0x0050, text=»* - NO OF ENTRIES N «, t00=0x0003, t01=0x00ca}
0x0592…05ba Head {h00=0x0024, h01=0x0050, text=»* - NO OF CHARACTERS PER ENTRY«, t00=0x0003, t01=0x00e8}
0x05ba…05c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0110}
0x05c4…0600 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0003, t01=0x011a}
0x0600…060a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0156}
0x060a…062e Head {h00=0x0020, h01=0x0050, text=»* A5 = MASTER INDEX ADRESS«, t00=0x0003, t01=0x0160}
0x062e…0654 Head {h00=0x0022, h01=0x0050, text=»* A8 = ADRESS OF SEARCH KEy «, t00=0x0003, t01=0x0184}
0x0654…0678 Head {h00=0x0020, h01=0x0050, text=»* A11 = NR OF CHAR IN KEY «, t00=0x0004, t01=0x001a}
0x0678…0682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x003e}
0x0682…069e Head {h00=0x0018, h01=0x0050, text=»* CF A14,FNDKMX «, t00=0x0004, t01=0x0048}
0x069e…06a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0064}
0x06a8…06e4 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0004, t01=0x006e}
0x06e4…06ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00aa}
0x06ee…0722 Head {h00=0x0030, h01=0x0050, text=»* A1,A2 = LODGICAL RECORD NO IN INDEX FILE«, t00=0x0004, t01=0x00b4}
0x0722…0740 Head {h00=0x001a, h01=0x0050, text=»* A8,A11= UNCHANGED «, t00=0x0004, t01=0x00e8}
0x0740…074a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0106}
0x074a…0786 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0004, t01=0x0110}
0x0786…0790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x014c}
0x0790…07a4 Head {h00=0x0010, h01=0x0050, text=»* A1 - A11«, t00=0x0004, t01=0x0156}
0x07a4…07b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x016a}
0x07b2…07c6 Head {h00=0x0010, h01=0x0050, text=»FNDKMX EQU *«, t00=0x0004, t01=0x0178}
0x07c6…07ea Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A5 NO OF ENTRIES N «, t00=0x0004, t01=0x018c}
0x07ea…0810 Head {h00=0x0022, h01=0x0050, text=» RF(NP) FND045 NO MASTER INDEX«, t00=0x0005, t01=0x0020}
0x0810…0822 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x0005, t01=0x0046}
0x0822…0840 Head {h00=0x001a, h01=0x0050, text=» ANKL A9,/1 GET BIT 15«, t00=0x0005, t01=0x0058}
0x0840…0852 Head {h00=0x000e, h01=0x0050, text=» SRA A2,1 «, t00=0x0005, t01=0x0076}
0x0852…0872 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A2 M=N/2 FLOOR «, t00=0x0005, t01=0x0088}
0x0872…0892 Head {h00=0x001c, h01=0x0050, text=» ADR A9,A2 I=N/2 CEILING«, t00=0x0005, t01=0x00a8}
0x0892…08b2 Head {h00=0x001c, h01=0x0050, text=» ADK A5,2 TABLE BASE - 2«, t00=0x0005, t01=0x00c8}
0x08b2…08c6 Head {h00=0x0010, h01=0x0050, text=»FND020 EQU *«, t00=0x0005, t01=0x00e8}
0x08c6…08d8 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0005, t01=0x00fc}
0x08d8…08f8 Head {h00=0x001c, h01=0x0050, text=» LDR* A7,A5 ENTRY LENGTH«, t00=0x0005, t01=0x010e}
0x08f8…090c Head {h00=0x0010, h01=0x0050, text=» LDR A6,A9 I«, t00=0x0005, t01=0x012e}
0x090c…091e Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0005, t01=0x0142}
0x091e…0946 Head {h00=0x0024, h01=0x0050, text=» RF(NP) FND025 HANDLES ALSO I=0 «, t00=0x0005, t01=0x0154}
0x0946…096c Head {h00=0x0022, h01=0x0050, text=» CF A14,MPYMOD A1,A2=(I-1)*EL «, t00=0x0005, t01=0x017c}
0x096c…097e Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x0006, t01=0x0012}
0x097e…09a2 Head {h00=0x0020, h01=0x0050, text=» ORR A2,A1 GET MOST SIGN BIT«, t00=0x0006, t01=0x0024}
0x09a2…09b6 Head {h00=0x0010, h01=0x0050, text=»FND025 EQU *«, t00=0x0006, t01=0x0048}
0x09b6…09dc Head {h00=0x0022, h01=0x0050, text=» ADR A2,A5 ADD MI BASE ADR - 2«, t00=0x0006, t01=0x005c}
0x09dc…09fc Head {h00=0x001c, h01=0x0050, text=» ADK A2,2 ENTRY KEY ADR «, t00=0x0006, t01=0x0082}
0x09fc…0a1e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 SAVE ENTRY ADR «, t00=0x0006, t01=0x00a2}
0x0a1e…0a40 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A8 SEARCH KEY ADR «, t00=0x0006, t01=0x00c4}
0x0a40…0a62 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A11 MAX KEY LENGTH«, t00=0x0006, t01=0x00e6}
0x0a62…0a7c Head {h00=0x0016, h01=0x0050, text=» LDK A7,0 CHAR ADR«, t00=0x0006, t01=0x0108}
0x0a7c…0aa0 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0006, t01=0x0122}
0x0aa0…0ab6 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A10 M «, t00=0x0006, t01=0x0146}
0x0ab6…0ac8 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0006, t01=0x015c}
0x0ac8…0ae2 Head {h00=0x0016, h01=0x0050, text=» ANK A6,/1 BIT 15 «, t00=0x0006, t01=0x016e}
0x0ae2…0afe Head {h00=0x0018, h01=0x0050, text=» SRA A7,1 M/2 FLOOR «, t00=0x0006, t01=0x0188}
0x0afe…0b1c Head {h00=0x001a, h01=0x0050, text=» ADR A6,A7 M/2 CEILING«, t00=0x0007, t01=0x0014}
0x0b1c…0b3e Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 CHKKEY RTN INF «, t00=0x0007, t01=0x0032}
0x0b3e…0b70 Head {h00=0x002e, h01=0x0050, text=» RF(NG) FND040 SEARCHED KEY LESS OR EQUAL «, t00=0x0007, t01=0x0054}
0x0b70…0b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0086}
0x0b7a…0b9a Head {h00=0x001c, h01=0x0050, text=»* SEARCHED KEY GREATER«, t00=0x0007, t01=0x0090}
0x0b9a…0ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b0}
0x0ba4…0bba Head {h00=0x0012, h01=0x0050, text=» LDR A10,A10 M«, t00=0x0007, t01=0x00ba}
0x0bba…0bdc Head {h00=0x001e, h01=0x0050, text=» RF(Z) FND050 SEARCH READY«, t00=0x0007, t01=0x00d0}
0x0bdc…0bfe Head {h00=0x001e, h01=0x0050, text=» ADR A9,A6 I=I+(M/2 CEIL) «, t00=0x0007, t01=0x00f2}
0x0bfe…0c12 Head {h00=0x0010, h01=0x0050, text=»FND030 EQU *«, t00=0x0007, t01=0x0114}
0x0c12…0c32 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A7 M=M/2 FLOOR «, t00=0x0007, t01=0x0128}
0x0c32…0c44 Head {h00=0x000e, h01=0x0050, text=» RB FND020«, t00=0x0007, t01=0x0148}
0x0c44…0c58 Head {h00=0x0010, h01=0x0050, text=»FND040 EQU *«, t00=0x0007, t01=0x015a}
0x0c58…0c6e Head {h00=0x0012, h01=0x0050, text=» LDR A10,A10 M«, t00=0x0007, t01=0x016e}
0x0c6e…0c90 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FND060 SEARCH READY«, t00=0x0007, t01=0x0184}
0x0c90…0cb2 Head {h00=0x001e, h01=0x0050, text=» SUR A9,A6 I=I-(M/2 CEIL) «, t00=0x0008, t01=0x0016}
0x0cb2…0cc4 Head {h00=0x000e, h01=0x0050, text=» RB FND030«, t00=0x0008, t01=0x0038}
0x0cc4…0ce8 Head {h00=0x0020, h01=0x0050, text=»FND045 EQU * NO MASTER INDEX«, t00=0x0008, t01=0x004a}
0x0ce8…0cfa Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0008, t01=0x006e}
0x0cfa…0d14 Head {h00=0x0016, h01=0x0050, text=» LDK A2,1 REC NR 1«, t00=0x0008, t01=0x0080}
0x0d14…0d26 Head {h00=0x000e, h01=0x0050, text=» RF FND070«, t00=0x0008, t01=0x009a}
0x0d26…0d3a Head {h00=0x0010, h01=0x0050, text=»FND050 EQU *«, t00=0x0008, t01=0x00ac}
0x0d3a…0d5e Head {h00=0x0020, h01=0x0050, text=» ADR* A1,A5 ARDR NEXT ENTRY «, t00=0x0008, t01=0x00c0}
0x0d5e…0d72 Head {h00=0x0010, h01=0x0050, text=»FND060 EQU *«, t00=0x0008, t01=0x00e4}
0x0d72…0d8e Head {h00=0x0018, h01=0x0050, text=» LDR A3,A1 ENTRY ADR«, t00=0x0008, t01=0x00f8}
0x0d8e…0da0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0008, t01=0x0114}
0x0da0…0dbe Head {h00=0x001a, h01=0x0050, text=» ADR* A3,A5 ADR REC NO«, t00=0x0008, t01=0x0126}
0x0dbe…0dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0144}
0x0dc8…0dec Head {h00=0x0020, h01=0x0050, text=»* MOVE LOG REC NO TO A1,A2«, t00=0x0008, t01=0x014e}
0x0dec…0df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0172}
0x0df6…0e08 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0008, t01=0x017c}
0x0e08…0e1a Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0008, t01=0x018e}
0x0e1a…0e2c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0009, t01=0x0010}
0x0e2c…0e3e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0009, t01=0x0022}
0x0e3e…0e50 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0009, t01=0x0034}
0x0e50…0e62 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0009, t01=0x0046}
0x0e62…0e74 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0009, t01=0x0058}
0x0e74…0e88 Head {h00=0x0010, h01=0x0050, text=»FND070 EQU *«, t00=0x0009, t01=0x006a}
0x0e88…0e98 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0009, t01=0x007e}
0x0e98…0ea6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x008e}
0x0ea6…0ee2 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0009, t01=0x009c}
0x0ee2…0eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d8}
0x0eec…0f34 Head {h00=0x0044, h01=0x0050, text=»* CHKKEY COMPARE TWO CHARACTER STRINGS. THE SEARCH KEY MAY BE «, t00=0x0009, t01=0x00e2}
0x0f34…0f56 Head {h00=0x001e, h01=0x0050, text=»* TERMINATED WITH A /EE.«, t00=0x0009, t01=0x012a}
0x0f56…0f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014c}
0x0f60…0f9c Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0009, t01=0x0156}
0x0f9c…0fa6 (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0fa6…0fc8 Head {h00=0x001e, h01=0x0050, text=»* A2 = ADR OF ENTRY KEY «, t00=0x000a, t01=0x000e}
0x0fc8…0fea Head {h00=0x001e, h01=0x0050, text=»* A3 = ADR OF SEARCH KEY«, t00=0x000a, t01=0x0030}
0x0fea…1018 Head {h00=0x002a, h01=0x0050, text=»* A6 = MAX NO OF CAHARACTERS IN KEY «, t00=0x000a, t01=0x0052}
0x1018…104e Head {h00=0x0032, h01=0x0050, text=»* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY «, t00=0x000a, t01=0x0080}
0x104e…1058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b6}
0x1058…1074 Head {h00=0x0018, h01=0x0050, text=»* CF A14,CHKKEY «, t00=0x000a, t01=0x00c0}
0x1074…107e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00dc}
0x107e…10ba Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000a, t01=0x00e6}
0x10ba…10c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0122}
0x10c4…1102 Head {h00=0x003a, h01=0x0050, text=»* A3 = 0 WHEN SEARCED KEY IS CONTAINED IN ENTRY KEY «, t00=0x000a, t01=0x012c}
0x1102…1132 Head {h00=0x002c, h01=0x0050, text=»* = + 1 WHEN SEARCH KYEY IS GREATER«, t00=0x000a, t01=0x016a}
0x1132…115e Head {h00=0x0028, h01=0x0050, text=»* = -1 WHEN SEARCH KEY IS LESS «, t00=0x000b, t01=0x000a}
0x115e…11b0 Head {h00=0x004e, h01=0x0050, text=»* A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY«, t00=0x000b, t01=0x0036}
0x11b0…11d6 Head {h00=0x0022, h01=0x0050, text=»* A6 = MAX NO OF CHAR IN KEY«, t00=0x000b, t01=0x0088}
0x11d6…11e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ae}
0x11e0…121c Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x000b, t01=0x00b8}
0x121c…1226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f4}
0x1226…123e Head {h00=0x0014, h01=0x0050, text=»* A2-A4,A6-A7 «, t00=0x000b, t01=0x00fe}
0x123e…127e Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x000b, t01=0x0116}
0x127e…128c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0156}
0x128c…12a0 Head {h00=0x0010, h01=0x0050, text=»CHKKEY EQU *«, t00=0x000b, t01=0x0164}
0x12a0…12c8 Head {h00=0x0024, h01=0x0050, text=» ADR A3,A7 FIRST SC CHAR TO TEST«, t00=0x000b, t01=0x0178}
0x12c8…12f0 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A7 FIRST EC CHAR TO TEST«, t00=0x000c, t01=0x0010}
0x12f0…1304 Head {h00=0x0010, h01=0x0050, text=»CHK020 EQU *«, t00=0x000c, t01=0x0038}
0x1304…1328 Head {h00=0x0020, h01=0x0050, text=» LCR A4,A3 SEARCED KEY CHAR «, t00=0x000c, t01=0x004c}
0x1328…133e Head {h00=0x0012, h01=0x0050, text=» CCK A4,/EE00 «, t00=0x000c, t01=0x0070}
0x133e…1364 Head {h00=0x0022, h01=0x0050, text=» RF(E) CHK060 END OF KEY CHAR «, t00=0x000c, t01=0x0086}
0x1364…137e Head {h00=0x0016, h01=0x0050, text=» CCR A4,A2 SC=EC? «, t00=0x000c, t01=0x00ac}
0x137e…13a0 Head {h00=0x001e, h01=0x0050, text=» RF(G) CHK100 SC GT TH EC «, t00=0x000c, t01=0x00c6}
0x13a0…13c6 Head {h00=0x0022, h01=0x0050, text=» RF(L) CHK120 SC LESS THAN EC «, t00=0x000c, t01=0x00e8}
0x13c6…13e8 Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 NO OF SAME CHAR «, t00=0x000c, t01=0x010e}
0x13e8…1406 Head {h00=0x001a, h01=0x0050, text=» CWR A7,A6 NO OF CHAR «, t00=0x000c, t01=0x0130}
0x1406…142e Head {h00=0x0024, h01=0x0050, text=» RF(NL) CHK060 ALL CHAR CHECKED «, t00=0x000c, t01=0x014e}
0x142e…144e Head {h00=0x001c, h01=0x0050, text=» ADK A3,1 NXT SC TO TEST«, t00=0x000c, t01=0x0176}
0x144e…146e Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 NXT EC TO TEST«, t00=0x000d, t01=0x0008}
0x146e…1482 Head {h00=0x0010, h01=0x0050, text=» RB CHK020 «, t00=0x000d, t01=0x0028}
0x1482…1496 Head {h00=0x0010, h01=0x0050, text=»CHK060 EQU *«, t00=0x000d, t01=0x003c}
0x1496…14ae Head {h00=0x0014, h01=0x0050, text=» LDK A3,0 FOUND «, t00=0x000d, t01=0x0050}
0x14ae…14c0 Head {h00=0x000e, h01=0x0050, text=» RF CHK140«, t00=0x000d, t01=0x0068}
0x14c0…14d4 Head {h00=0x0010, h01=0x0050, text=»CHK120 EQU *«, t00=0x000d, t01=0x007a}
0x14d4…14fc Head {h00=0x0024, h01=0x0050, text=» LDKL A3,-1 SEARCHED KEY SMALLER«, t00=0x000d, t01=0x008e}
0x14fc…150e Head {h00=0x000e, h01=0x0050, text=» RF CHK140«, t00=0x000d, t01=0x00b6}
0x150e…1522 Head {h00=0x0010, h01=0x0050, text=»CHK100 EQU *«, t00=0x000d, t01=0x00c8}
0x1522…154a Head {h00=0x0024, h01=0x0050, text=» LDK A3,1 SEARCHED KEY SGREATER «, t00=0x000d, t01=0x00dc}
0x154a…155e Head {h00=0x0010, h01=0x0050, text=»CHK140 EQU *«, t00=0x000d, t01=0x0104}
0x155e…156e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000d, t01=0x0118}
0x156e…157c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0128}
0x157c…15b8 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x000d, t01=0x0136}
0x15b8…15c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0172}
0x15c2…1606 Head {h00=0x0040, h01=0x0050, text=»* RDNXTR WILL MAKWE NEXT RECORD IN AN INDEX FILE AVAILABLE«, t00=0x000d, t01=0x017c}
0x1606…1622 Head {h00=0x0018, h01=0x0050, text=»* IN A CORE BUFFER«, t00=0x000e, t01=0x0030}
0x1622…166a Head {h00=0x0044, h01=0x0050, text=»* WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED«, t00=0x000e, t01=0x004c}
0x166a…1694 Head {h00=0x0026, h01=0x0050, text=»* SECTOR WILL BE MADE AVAILABLE «, t00=0x000e, t01=0x0094}
0x1694…169e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00be}
0x169e…16da Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x000e, t01=0x00c8}
0x16da…16e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0104}
0x16e4…1722 Head {h00=0x003a, h01=0x0050, text=»* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) «, t00=0x000e, t01=0x010e}
0x1722…1740 Head {h00=0x001a, h01=0x0050, text=»* FDBCEX,FDBSNR«, t00=0x000e, t01=0x014c}
0x1740…1786 Head {h00=0x0042, h01=0x0050, text=»* FDBRRO = RECORD OFFSET IN BUFFER, WHEN = -1 THE FIRST«, t00=0x000e, t01=0x016a}
0x1786…17c2 Head {h00=0x0038, h01=0x0050, text=»* RECORD IN CURRENT SECTOR IS WANTED«, t00=0x000f, t01=0x0020}
0x17c2…1800 Head {h00=0x003a, h01=0x0050, text=»* A3 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN«, t00=0x000f, t01=0x005c}
0x1800…1842 Head {h00=0x003e, h01=0x0050, text=»* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED «, t00=0x000f, t01=0x009a}
0x1842…185e Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x000f, t01=0x00dc}
0x185e…1868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f8}
0x1868…18a4 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000f, t01=0x0102}
0x18a4…18ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013e}
0x18ae…18e4 Head {h00=0x0032, h01=0x0050, text=»* RETURN AT ADDR 0 WHEN OK AND A5 UNDEFINED «, t00=0x000f, t01=0x0148}
0x18e4…190c Head {h00=0x0024, h01=0x0050, text=»* + 2 WHEN ERROR«, t00=0x000f, t01=0x017e}
0x190c…1928 Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0010, t01=0x0016}
0x1928…197a Head {h00=0x004e, h01=0x0050, text=»* A5 = ERROR CODE (RETURN CODE FOM PHYS I/O) WHEN NO BUFFER IS ALLOCATED«, t00=0x0010, t01=0x0032}
0x197a…19a2 Head {h00=0x0024, h01=0x0050, text=»* A2 = FDBRRO = RECORD OFFSET «, t00=0x0010, t01=0x0084}
0x19a2…19c2 Head {h00=0x001c, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0010, t01=0x00ac}
0x19c2…19f0 Head {h00=0x002a, h01=0x0050, text=»* = 0 WHEN NO BUFFER IS ALLOCATED«, t00=0x0010, t01=0x00cc}
0x19f0…1a0c Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0010, t01=0x00fa}
0x1a0c…1a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0116}
0x1a16…1a52 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0010, t01=0x0120}
0x1a52…1a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015c}
0x1a5c…1a94 Head {h00=0x0034, h01=0x0050, text=»* A1-A5,A8-A10,A13 + THREE WORDS ON A14 STACK «, t00=0x0010, t01=0x0166}
0x1a94…1a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x000e}
0x1a9e…1adc Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0011, t01=0x0018}
0x1adc…1aea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0056}
0x1aea…1afe Head {h00=0x0010, h01=0x0050, text=»RDNXTR EQU *«, t00=0x0011, t01=0x0064}
0x1afe…1b22 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A3 SAVE BUFFER ADDR«, t00=0x0011, t01=0x0078}
0x1b22…1b46 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDN200 BUFFER EXIST «, t00=0x0011, t01=0x009c}
0x1b46…1b5a Head {h00=0x0010, h01=0x0050, text=» STR A7,A14 «, t00=0x0011, t01=0x00c0}
0x1b5a…1b6e Head {h00=0x0010, h01=0x0050, text=» SUKL A14,4 «, t00=0x0011, t01=0x00d4}
0x1b6e…1b82 Head {h00=0x0010, h01=0x0050, text=» ST A6,2,A14«, t00=0x0011, t01=0x00e8}
0x1b82…1b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00fc}
0x1b8c…1ba4 Head {h00=0x0014, h01=0x0050, text=»* GET A BUFFER«, t00=0x0011, t01=0x0106}
0x1ba4…1bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x011e}
0x1bae…1bc2 Head {h00=0x0010, h01=0x0050, text=»RDN040 EQU *«, t00=0x0011, t01=0x0128}
0x1bc2…1bec Head {h00=0x0026, h01=0x0050, text=» CF A14,GTBKBU GET BLOCKBUFFERADDR«, t00=0x0011, t01=0x013c}
0x1bec…1c00 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A2 «, t00=0x0011, t01=0x0166}
0x1c00…1c2c Head {h00=0x0028, h01=0x0050, text=» RF(NN) RDN080 DATA ALREADY IN CORE «, t00=0x0011, t01=0x017a}
0x1c2c…1c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0016}
0x1c36…1c58 Head {h00=0x001e, h01=0x0050, text=»* READ SECTOR FROM DISC «, t00=0x0012, t01=0x0020}
0x1c58…1c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0042}
0x1c62…1c82 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A3 BUFFER ADDR «, t00=0x0012, t01=0x004c}
0x1c82…1caa Head {h00=0x0024, h01=0x0050, text=» LDK A7,/91 PHYS READ WITH WAIT «, t00=0x0012, t01=0x006c}
0x1caa…1cb6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x0094}
0x1cb6…1cc6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0012, t01=0x00a0}
0x1cc6…1cf0 Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTIOZ CHECK RETURN CODES «, t00=0x0012, t01=0x00b0}
0x1cf0…1d02 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0012, t01=0x00da}
0x1d02…1d1e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) RDN900 ERROR«, t00=0x0012, t01=0x00ec}
0x1d1e…1d3a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0012, t01=0x0108}
0x1d3a…1d4e Head {h00=0x0010, h01=0x0050, text=»RDN080 EQU *«, t00=0x0012, t01=0x0124}
0x1d4e…1d6a Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0012, t01=0x0138}
0x1d6a…1d7c Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0012, t01=0x0154}
0x1d7c…1da8 Head {h00=0x0028, h01=0x0050, text=» ST A2,FDBRRO,A1 OFFSET FIRST RECORD«, t00=0x0012, t01=0x0166}
0x1da8…1dc2 (19, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF RDN940 RETURN «, t00=0x0013, t01=0x0004}
0x1dc2…1dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001e}
0x1dcc…1dea Head {h00=0x001a, h01=0x0050, text=»* BUFFER WAS BEFORE «, t00=0x0013, t01=0x0028}
0x1dea…1df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0046}
0x1df4…1e08 Head {h00=0x0010, h01=0x0050, text=»RDN200 EQU *«, t00=0x0013, t01=0x0050}
0x1e08…1e30 Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBRRO,A1 REC ORD OFFSET«, t00=0x0013, t01=0x0064}
0x1e30…1e54 Head {h00=0x0020, h01=0x0050, text=» RF(NN) RDN220 NOT FIRST REC«, t00=0x0013, t01=0x008c}
0x1e54…1e68 Head {h00=0x0010, h01=0x0050, text=» STR A7,A14 «, t00=0x0013, t01=0x00b0}
0x1e68…1e7c Head {h00=0x0010, h01=0x0050, text=» SUKL A14,4 «, t00=0x0013, t01=0x00c4}
0x1e7c…1e90 Head {h00=0x0010, h01=0x0050, text=» ST A6,2,A14«, t00=0x0013, t01=0x00d8}
0x1e90…1eb4 Head {h00=0x0020, h01=0x0050, text=» RB RDN080 FIRST REC WANTED «, t00=0x0013, t01=0x00ec}
0x1eb4…1ebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0110}
0x1ebe…1efc Head {h00=0x003a, h01=0x0050, text=»* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER «, t00=0x0013, t01=0x011a}
0x1efc…1f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0158}
0x1f06…1f1a Head {h00=0x0010, h01=0x0050, text=»RDN220 EQU *«, t00=0x0013, t01=0x0162}
0x1f1a…1f3e Head {h00=0x0020, h01=0x0050, text=» CW A2,FDBMRO,A1 MAX OFFSET «, t00=0x0013, t01=0x0176}
0x1f3e…1f6c Head {h00=0x002a, h01=0x0050, text=» RF(NL) RDN300 THIS REC LAST IN BUFFER«, t00=0x0014, t01=0x000a}
0x1f6c…1f76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0038}
0x1f76…1fa6 Head {h00=0x002c, h01=0x0050, text=»* GET NEXT REC IN CURRENT BLOCKBUFFER «, t00=0x0014, t01=0x0042}
0x1fa6…1fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0072}
0x1fb0…1fd8 Head {h00=0x0024, h01=0x0050, text=» AD A2,FDBRLE,A1 RECOR D LENGTH«, t00=0x0014, t01=0x007c}
0x1fd8…1ff6 Head {h00=0x001a, h01=0x0050, text=» ADK A2,1 STATUS CHAR «, t00=0x0014, t01=0x00a4}
0x1ff6…201a Head {h00=0x0020, h01=0x0050, text=» ST A2,FDBRRO,A1 NEW OFFSET «, t00=0x0014, t01=0x00c2}
0x201a…2034 Head {h00=0x0016, h01=0x0050, text=» RF RDN950 RETURN «, t00=0x0014, t01=0x00e6}
0x2034…203e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0100}
0x203e…2076 Head {h00=0x0034, h01=0x0050, text=»* CHECK IF THIS RECORD ALSO IS LAST IN EXTENT «, t00=0x0014, t01=0x010a}
0x2076…2080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0142}
0x2080…2094 Head {h00=0x0010, h01=0x0050, text=»RDN300 EQU *«, t00=0x0014, t01=0x014c}
0x2094…20a8 Head {h00=0x0010, h01=0x0050, text=» STR A7,A14 «, t00=0x0014, t01=0x0160}
0x20a8…20bc Head {h00=0x0010, h01=0x0050, text=» SUKL A14,4 «, t00=0x0014, t01=0x0174}
0x20bc…20d0 Head {h00=0x0010, h01=0x0050, text=» ST A6,2,A14«, t00=0x0014, t01=0x0188}
0x20d0…20f2 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBCEX,A1 EXT ADDR «, t00=0x0015, t01=0x000c}
0x20f2…2114 Head {h00=0x001e, h01=0x0050, text=» LD A5,EXTBAS,A3 EXT BASE «, t00=0x0015, t01=0x002e}
0x2114…213a Head {h00=0x0022, h01=0x0050, text=» AD A5,EXTLEN,A3 EXTENT LENGTH«, t00=0x0015, t01=0x0050}
0x213a…214c Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0015, t01=0x0076}
0x214c…2174 Head {h00=0x0024, h01=0x0050, text=» CW A5,FDBSNR,A1 SECT NO CURRENT«, t00=0x0015, t01=0x0088}
0x2174…21a4 Head {h00=0x002c, h01=0x0050, text=» RF(NG) RDN400 IT WAS LAST REC IN EXTENT«, t00=0x0015, t01=0x00b0}
0x21a4…21ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e0}
0x21ae…21c4 Head {h00=0x0012, h01=0x0050, text=»* NEW SECTOR«, t00=0x0015, t01=0x00ea}
0x21c4…21ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0100}
0x21ce…21ec Head {h00=0x001a, h01=0x0050, text=» IM FDBSNR,A1 SECT NO «, t00=0x0015, t01=0x010a}
0x21ec…2208 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0015, t01=0x0128}
0x2208…221a Head {h00=0x000e, h01=0x0050, text=» RF RDN500«, t00=0x0015, t01=0x0144}
0x221a…2224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0156}
0x2224…2250 Head {h00=0x0028, h01=0x0050, text=»* TAKE CARE OF LAST REC IN EXTENT «, t00=0x0015, t01=0x0160}
0x2250…225a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018c}
0x225a…226e Head {h00=0x0010, h01=0x0050, text=»RDN400 EQU *«, t00=0x0016, t01=0x0008}
0x226e…228a Head {h00=0x0018, h01=0x0050, text=» LDR A13,A8 ECB ADDR«, t00=0x0016, t01=0x001c}
0x228a…22b0 Head {h00=0x0022, h01=0x0050, text=» CF A14,GTLGRN GET LOG REC NO «, t00=0x0016, t01=0x0038}
0x22b0…22c2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0016, t01=0x005e}
0x22c2…22d4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0016, t01=0x0070}
0x22d4…22e6 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0016, t01=0x0082}
0x22e6…22f8 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0016, t01=0x0094}
0x22f8…231a Head {h00=0x001e, h01=0x0050, text=» CF A14,ADDMOD NEXT REC NO«, t00=0x0016, t01=0x00a6}
0x231a…233e Head {h00=0x0020, h01=0x0050, text=» LDR A6,A5 RESTORE FDB ADDR «, t00=0x0016, t01=0x00c8}
0x233e…236c Head {h00=0x002a, h01=0x0050, text=» CF A14,CALSNO GET NEXT REC ADDR PHYS «, t00=0x0016, t01=0x00ec}
0x236c…2380 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A13 «, t00=0x0016, t01=0x011a}
0x2380…23a8 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 CHECK EN D OF MEDIUM «, t00=0x0016, t01=0x012e}
0x23a8…23c0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDN500 OK«, t00=0x0016, t01=0x0156}
0x23c0…23d8 Head {h00=0x0014, h01=0x0050, text=» RF RDN900 EXIT «, t00=0x0016, t01=0x016e}
0x23d8…23e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0186}
0x23e2…23fe Head {h00=0x0018, h01=0x0050, text=»* GET NEXT SECTOR «, t00=0x0016, t01=0x0190}
0x23fe…2408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x001c}
0x2408…241c Head {h00=0x0010, h01=0x0050, text=»RDN500 EQU *«, t00=0x0017, t01=0x0026}
0x241c…243c Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 BUFFER ADDR «, t00=0x0017, t01=0x003a}
0x243c…2462 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0017, t01=0x005a}
0x2462…247e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0017, t01=0x0080}
0x247e…249c Head {h00=0x001a, h01=0x0050, text=» RB RDN040 NEXT SECTOR«, t00=0x0017, t01=0x009c}
0x249c…24a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ba}
0x24a6…24b6 Head {h00=0x000c, h01=0x0050, text=»* EXIT«, t00=0x0017, t01=0x00c4}
0x24b6…24c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d4}
0x24c0…24d4 Head {h00=0x0010, h01=0x0050, text=»RDN900 EQU *«, t00=0x0017, t01=0x00de}
0x24d4…24f0 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A1 RET CODE «, t00=0x0017, t01=0x00f2}
0x24f0…250c Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0017, t01=0x010e}
0x250c…252c Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 BUFFER ADDR «, t00=0x0017, t01=0x012a}
0x252c…254c Head {h00=0x001c, h01=0x0050, text=» RF(Z) RDN960 NO BUFFER «, t00=0x0017, t01=0x014a}
0x254c…2572 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0017, t01=0x016a}
0x2572…2586 Head {h00=0x0010, h01=0x0050, text=»RDN960 EQU *«, t00=0x0017, t01=0x0190}
0x2586…2598 Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0018, t01=0x0014}
0x2598…25b6 Head {h00=0x001a, h01=0x0050, text=» ADS A3,8,A14 RET ADDR«, t00=0x0018, t01=0x0026}
0x25b6…25d4 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 BUFFER ADDR «, t00=0x0018, t01=0x0044}
0x25d4…25e8 Head {h00=0x0010, h01=0x0050, text=»RDN940 EQU *«, t00=0x0018, t01=0x0062}
0x25e8…25fc Head {h00=0x0010, h01=0x0050, text=» LD A6,2,A14«, t00=0x0018, t01=0x0076}
0x25fc…2610 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0018, t01=0x008a}
0x2610…2624 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A14«, t00=0x0018, t01=0x009e}
0x2624…2638 Head {h00=0x0010, h01=0x0050, text=»RDN950 EQU *«, t00=0x0018, t01=0x00b2}
0x2638…2648 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x00c6}
0x2648…2656 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00d6}
0x2656…2692 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0018, t01=0x00e4}
0x2692…269c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0120}
0x269c…26de Head {h00=0x003e, h01=0x0050, text=»* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE «, t00=0x0018, t01=0x012a}
0x26de…270c Head {h00=0x002a, h01=0x0050, text=»* SPECIFIED KEY OR NEXT HIGHER KEY «, t00=0x0018, t01=0x016c}
0x270c…2746 Head {h00=0x0036, h01=0x0050, text=»* IF END OF FILE, THE FIRST FREE RECORD IS FOUND«, t00=0x0019, t01=0x000a}
0x2746…2750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0044}
0x2750…278c Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0019, t01=0x004e}
0x278c…2796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x008a}
0x2796…27b2 Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0019, t01=0x0094}
0x27b2…27d2 Head {h00=0x001c, h01=0x0050, text=»* A8 = SEARCH KEY ADDR«, t00=0x0019, t01=0x00b0}
0x27d2…27fc Head {h00=0x0026, h01=0x0050, text=»* A11 = NO OF CHARACTERS IN KEY «, t00=0x0019, t01=0x00d0}
0x27fc…2822 Head {h00=0x0022, h01=0x0050, text=»* A13= PHYSICAL ECB ADDRESS «, t00=0x0019, t01=0x00fa}
0x2822…282c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0120}
0x282c…2868 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0019, t01=0x012a}
0x2868…2872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0166}
0x2872…288e Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0019, t01=0x0170}
0x288e…28c2 Head {h00=0x0030, h01=0x0050, text=»* FDBSNR,FDBRRO = FOUND INDEX RECORD «, t00=0x0019, t01=0x018c}
0x28c2…28e8 Head {h00=0x0022, h01=0x0050, text=»* A2 = 0 WHEN KEY ISS FOUND «, t00=0x001a, t01=0x0030}
0x28e8…291e Head {h00=0x0032, h01=0x0050, text=»* = /4000 WHEN NEXT HIGHER KEY IS FOUND «, t00=0x001a, t01=0x0056}
0x291e…2950 Head {h00=0x002e, h01=0x0050, text=»* = RETURN CODE WHEN KEY IS NOT FOUND«, t00=0x001a, t01=0x008c}
0x2950…2988 Head {h00=0x0034, h01=0x0050, text=»* BIT 1 CAN NEVBER BE SET BY DISC DRIVER «, t00=0x001a, t01=0x00be}
0x2988…29a8 Head {h00=0x001c, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x001a, t01=0x00f6}
0x29a8…29d2 Head {h00=0x0026, h01=0x0050, text=»* = 0 WHEN NO RECORD IS FOUND«, t00=0x001a, t01=0x0116}
0x29d2…29f8 Head {h00=0x0022, h01=0x0050, text=»* A7 = NO OF SAME CHARACTERS«, t00=0x001a, t01=0x0140}
0x29f8…2a1e Head {h00=0x0022, h01=0x0050, text=»* A8 = PHYSICAL ECB ADDRESS «, t00=0x001a, t01=0x0166}
0x2a1e…2a3a Head {h00=0x0018, h01=0x0050, text=»* A11 = UNCHANGED «, t00=0x001a, t01=0x018c}
0x2a3a…2a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0018}
0x2a44…2a80 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x001b, t01=0x0022}
0x2a80…2a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005e}
0x2a8a…2aba Head {h00=0x002c, h01=0x0050, text=»* A1 - A11,A13 + 4 WORDS ON A14 STACK «, t00=0x001b, t01=0x0068}
0x2aba…2ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0098}
0x2ac4…2b02 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x001b, t01=0x00a2}
0x2b02…2b10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00e0}
0x2b10…2b24 Head {h00=0x0010, h01=0x0050, text=»FNDKEY EQU *«, t00=0x001b, t01=0x00ee}
0x2b24…2b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0102}
0x2b2e…2b58 Head {h00=0x0026, h01=0x0050, text=»* FIRST SEARCH THE NMASTER INDEX«, t00=0x001b, t01=0x010c}
0x2b58…2b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0136}
0x2b62…2b90 Head {h00=0x002a, h01=0x0050, text=» LD A5,FDBMIA,A1 ADDR OF MASTER INDEX «, t00=0x001b, t01=0x0140}
0x2b90…2bb8 Head {h00=0x0024, h01=0x0050, text=» STR A1,A14 FDB ADDRESS IS SAVED«, t00=0x001b, t01=0x016e}
0x2bb8…2bcc Head {h00=0x0010, h01=0x0050, text=» SUKL A14,8 «, t00=0x001c, t01=0x0008}
0x2bcc…2bf6 Head {h00=0x0026, h01=0x0050, text=» ST A8,6,A14 SAVE SEARCH KEY ADDR «, t00=0x001c, t01=0x001c}
0x2bf6…2c2a Head {h00=0x0030, h01=0x0050, text=» CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX«, t00=0x001c, t01=0x0046}
0x2c2a…2c48 Head {h00=0x001a, h01=0x0050, text=» LD A6,8,A14 FDB ADDR «, t00=0x001c, t01=0x007a}
0x2c48…2c6c Head {h00=0x0020, h01=0x0050, text=» CF A14,CALSNO GET PHYS ADDR«, t00=0x001c, t01=0x0098}
0x2c6c…2c7e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001c, t01=0x00bc}
0x2c7e…2c9a Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FKY900 ERROR«, t00=0x001c, t01=0x00ce}
0x2c9a…2cb4 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 FDBADDR«, t00=0x001c, t01=0x00ea}
0x2cb4…2cda Head {h00=0x0022, h01=0x0050, text=» LDR A6,A11 NO OF CHAR IN KEY «, t00=0x001c, t01=0x0104}
0x2cda…2d02 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 START CHAR KEY SEARCH «, t00=0x001c, t01=0x012a}
0x2d02…2d2c Head {h00=0x0026, h01=0x0050, text=» SUR A9,A9 NO BUFFER TO START WITH«, t00=0x001c, t01=0x0152}
0x2d2c…2d48 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A13 ECB ADDR«, t00=0x001c, t01=0x017c}
0x2d48…2d5c Head {h00=0x0010, h01=0x0050, text=»FKY100 EQU *«, t00=0x001d, t01=0x0008}
0x2d5c…2d7a Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 BUFFER ADDR«, t00=0x001d, t01=0x001c}
0x2d7a…2da2 Head {h00=0x0024, h01=0x0050, text=» CF A14,RDNXTR GET INDEX RECORD «, t00=0x001d, t01=0x003a}
0x2da2…2db4 Head {h00=0x000e, h01=0x0050, text=» RF FKY150«, t00=0x001d, t01=0x0062}
0x2db4…2dd0 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 RET CODE «, t00=0x001d, t01=0x0074}
0x2dd0…2dee Head {h00=0x001a, h01=0x0050, text=» RF FKY900 ERROR EXIT «, t00=0x001d, t01=0x0090}
0x2dee…2df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ae}
0x2df8…2e1e Head {h00=0x0022, h01=0x0050, text=»* BUFFER AND ADATA IS FOUND «, t00=0x001d, t01=0x00b8}
0x2e1e…2e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00de}
0x2e28…2e3c Head {h00=0x0010, h01=0x0050, text=»FKY150 EQU *«, t00=0x001d, t01=0x00e8}
0x2e3c…2e5a Head {h00=0x001a, h01=0x0050, text=» LDR A9,A3 BUFFER ADDR«, t00=0x001d, t01=0x00fc}
0x2e5a…2e78 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A3 BUFFER ADR «, t00=0x001d, t01=0x011a}
0x2e78…2e94 Head {h00=0x0018, h01=0x0050, text=» ADK A2,10 REC ADDR «, t00=0x001d, t01=0x0138}
0x2e94…2eb6 Head {h00=0x001e, h01=0x0050, text=» LDR A10,A2 SAVE REC ADDR «, t00=0x001d, t01=0x0154}
0x2eb6…2ee4 Head {h00=0x002a, h01=0x0050, text=» AD A10,FDBRLE,A1 ADDR OF STATUS CHAR «, t00=0x001d, t01=0x0176}
0x2ee4…2f06 Head {h00=0x001e, h01=0x0050, text=» LDK A5,/FF USED CHAR MARK«, t00=0x001e, t01=0x0014}
0x2f06…2f26 Head {h00=0x001c, h01=0x0050, text=» CCR A5,A10 STATUS CHAR «, t00=0x001e, t01=0x0036}
0x2f26…2f48 Head {h00=0x001e, h01=0x0050, text=» RF(E) FKY200 USED RECORD «, t00=0x001e, t01=0x0056}
0x2f48…2f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0078}
0x2f52…2f7c Head {h00=0x0026, h01=0x0050, text=»* NO MORE RECORDS IN THIS SECTOR«, t00=0x001e, t01=0x0082}
0x2f7c…2f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ac}
0x2f86…2fb4 Head {h00=0x002a, h01=0x0050, text=» LD A13,FDBRRO,A1 SAVE CURRENT OFFSET «, t00=0x001e, t01=0x00b6}
0x2fb4…2fce Head {h00=0x0016, h01=0x0050, text=» LD A4,FDBMRO,A1 «, t00=0x001e, t01=0x00e4}
0x2fce…2ff8 Head {h00=0x0026, h01=0x0050, text=» ST A4,FDBRRO,A1 LAST REC IN SECT «, t00=0x001e, t01=0x00fe}
0x2ff8…3002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0128}
0x3002…301c Head {h00=0x0016, h01=0x0050, text=»* *CHECK IF EOF «, t00=0x001e, t01=0x0132}
0x301c…3026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014c}
0x3026…3044 Head {h00=0x001a, h01=0x0050, text=» LDR A10,A7 CHAR ADDR «, t00=0x001e, t01=0x0156}
0x3044…306a Head {h00=0x0022, h01=0x0050, text=» CF A14,GTLGRN GET LOG REC NR «, t00=0x001e, t01=0x0174}
0x306a…3088 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A11 NR OF CHAR«, t00=0x001f, t01=0x000a}
0x3088…30a6 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A10 CHAR ADDR «, t00=0x001f, t01=0x0028}
0x30a6…30be Head {h00=0x0014, h01=0x0050, text=» CC A2,FDBLRN,A1«, t00=0x001f, t01=0x0046}
0x30be…30dc Head {h00=0x001a, h01=0x0050, text=» RB(L) FKY100 NOT EOF «, t00=0x001f, t01=0x005e}
0x30dc…30f6 Head {h00=0x0016, h01=0x0050, text=» RF(G) FKY180 EOF «, t00=0x001f, t01=0x007c}
0x30f6…3110 Head {h00=0x0016, h01=0x0050, text=» CW A3,FDBLRN+1,A1«, t00=0x001f, t01=0x0096}
0x3110…312e Head {h00=0x001a, h01=0x0050, text=» RB(L) FKY100 NOT EOF «, t00=0x001f, t01=0x00b0}
0x312e…3142 Head {h00=0x0010, h01=0x0050, text=»FKY180 EQU *«, t00=0x001f, t01=0x00ce}
0x3142…314c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e2}
0x314c…316e Head {h00=0x001e, h01=0x0050, text=»* EOF IS IN THIS SECTOR «, t00=0x001f, t01=0x00ec}
0x316e…3178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010e}
0x3178…31ae Head {h00=0x0032, h01=0x0050, text=» ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD «, t00=0x001f, t01=0x0118}
0x31ae…31d0 Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 NR OF SAME CHAR «, t00=0x001f, t01=0x014e}
0x31d0…31ea Head {h00=0x0016, h01=0x0050, text=» LDKL A2,/1000 EOF«, t00=0x001f, t01=0x0170}
0x31ea…31fc Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x001f, t01=0x018a}
0x31fc…3206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x000c}
0x3206…322c Head {h00=0x0022, h01=0x0050, text=»* CHECK KEY IN THIS RECODRD «, t00=0x0020, t01=0x0016}
0x322c…3236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003c}
0x3236…324a Head {h00=0x0010, h01=0x0050, text=»FKY200 EQU *«, t00=0x0020, t01=0x0046}
0x324a…326e Head {h00=0x0020, h01=0x0050, text=» LD A3,6,A14 SEARCH KEY ADDR«, t00=0x0020, t01=0x005a}
0x326e…3292 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0020, t01=0x007e}
0x3292…32a4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0020, t01=0x00a2}
0x32a4…32ce Head {h00=0x0026, h01=0x0050, text=» RF(P) FKY840 SEARCHED KEY GREATER«, t00=0x0020, t01=0x00b4}
0x32ce…32f4 Head {h00=0x0022, h01=0x0050, text=» RF(N) FKY850 SEARCH KEY LESS «, t00=0x0020, t01=0x00de}
0x32f4…3312 Head {h00=0x001a, h01=0x0050, text=» RF FKY870 KEY FOUNFD «, t00=0x0020, t01=0x0104}
0x3312…3326 Head {h00=0x0010, h01=0x0050, text=»FKY840 EQU *«, t00=0x0020, t01=0x0122}
0x3326…334a Head {h00=0x0020, h01=0x0050, text=» CC A7,-4,A10 NEXT KEY FLAG «, t00=0x0020, t01=0x0136}
0x334a…337e Head {h00=0x0030, h01=0x0050, text=» RB(NG) FKY100 THE NEXT KEY IS IDENTICAL FOR«, t00=0x0020, t01=0x015a}
0x337e…33c4 Head {h00=0x0042, h01=0x0050, text=»* AT LEAST THE SAME NO OF LEADING CHARACTERS«, t00=0x0020, t01=0x018e}
0x33c4…3402 Head {h00=0x003a, h01=0x0050, text=»* THAT HAS BEEN CHECKED FOR THIS KEY«, t00=0x0021, t01=0x0044}
0x3402…3434 Head {h00=0x002e, h01=0x0050, text=» LC A7,-4,A10 REDUCE NO OF SAME CHARACTERS«, t00=0x0021, t01=0x0082}
0x3434…3450 Head {h00=0x0018, h01=0x0050, text=» RB FKY100 NEXT KEY «, t00=0x0021, t01=0x00b4}
0x3450…3464 Head {h00=0x0010, h01=0x0050, text=»FKY850 EQU *«, t00=0x0021, t01=0x00d0}
0x3464…3488 Head {h00=0x0020, h01=0x0050, text=» LDKL A2,/4000 KEY NOT FOUND«, t00=0x0021, t01=0x00e4}
0x3488…349a Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x0021, t01=0x0108}
0x349a…34ae Head {h00=0x0010, h01=0x0050, text=»FKY870 EQU *«, t00=0x0021, t01=0x011a}
0x34ae…34ca Head {h00=0x0018, h01=0x0050, text=» LDK A2,0 KEY FOUND «, t00=0x0021, t01=0x012e}
0x34ca…34dc Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x0021, t01=0x014a}
0x34dc…34f0 Head {h00=0x0010, h01=0x0050, text=»FKY900 EQU *«, t00=0x0021, t01=0x015c}
0x34f0…350e Head {h00=0x001a, h01=0x0050, text=» SUR A9,A9 NO BUFFERS «, t00=0x0021, t01=0x0170}
0x350e…352a Head {h00=0x0018, h01=0x0050, text=» LDR A2,A1 ERR CODE «, t00=0x0021, t01=0x018e}
0x352a…3552 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 NO OF SAME LEAD CHARS «, t00=0x0022, t01=0x001a}
0x3552…3566 Head {h00=0x0010, h01=0x0050, text=»FKY950 EQU *«, t00=0x0022, t01=0x0042}
0x3566…3588 Head {h00=0x001e, h01=0x0050, text=» ADKL A14,8 RESTORE STACK «, t00=0x0022, t01=0x0056}
0x3588…35a6 Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A14 FDB ADDR «, t00=0x0022, t01=0x0078}
0x35a6…35c4 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 BUFFER ADDR«, t00=0x0022, t01=0x0096}
0x35c4…35d4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x00b4}
0x35d4…35e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00c4}
0x35e2…35ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d2}
0x35ec…363a Head {h00=0x004a, h01=0x0050, text=»* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX «, t00=0x0022, t01=0x00dc}
0x363a…365a Head {h00=0x001c, h01=0x0050, text=»* RECORDS ARE UPDATED «, t00=0x0022, t01=0x012a}
0x365a…3664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x014a}
0x3664…3674 Head {h00=0x000c, h01=0x0050, text=»* IN: «, t00=0x0022, t01=0x0154}
0x3674…369e Head {h00=0x0026, h01=0x0050, text=»* A8,A9 = LAST RECORD NR MOVED «, t00=0x0022, t01=0x0164}
0x369e…36c8 Head {h00=0x0026, h01=0x0050, text=»* A10,A11= FIRST RECORD NR MOVED«, t00=0x0022, t01=0x018e}
0x36c8…36ec Head {h00=0x0020, h01=0x0050, text=»* A5 = FDB ADDR INDEX «, t00=0x0023, t01=0x0028}
0x36ec…3716 Head {h00=0x0026, h01=0x0050, text=»* A12 = ADD PARAMETER +1, -1 «, t00=0x0023, t01=0x004c}
0x3716…3720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0076}
0x3720…373c Head {h00=0x0018, h01=0x0050, text=»* USED REGISTERS: «, t00=0x0023, t01=0x0080}
0x373c…3750 Head {h00=0x0010, h01=0x0050, text=»* A1 -A12 «, t00=0x0023, t01=0x009c}
0x3750…375a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b0}
0x375a…376a Head {h00=0x000c, h01=0x0050, text=»* OUT:«, t00=0x0023, t01=0x00ba}
0x376a…378a Head {h00=0x001c, h01=0x0050, text=»* A5 = FDB ADDR INDEX «, t00=0x0023, t01=0x00ca}
0x378a…37aa Head {h00=0x001c, h01=0x0050, text=»* A10,A11 = UNCHANGED «, t00=0x0023, t01=0x00ea}
0x37aa…37b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x010a}
0x37b4…37c8 Head {h00=0x0010, h01=0x0050, text=»CRNUPD EQU *«, t00=0x0023, t01=0x0114}
0x37c8…37dc Head {h00=0x0010, h01=0x0050, text=» STR A12,A14«, t00=0x0023, t01=0x0128}
0x37dc…37f0 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,2 «, t00=0x0023, t01=0x013c}
0x37f0…3818 Head {h00=0x0024, h01=0x0050, text=» LD A12,FDBADF,A5 FDB DATA FILE «, t00=0x0023, t01=0x0150}
0x3818…3824 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0023, t01=0x0178}
0x3824…384c Head {h00=0x0024, h01=0x0050, text=» LD A12,FDBCRL,A12 CRN LINK ROOT«, t00=0x0023, t01=0x0184}
0x384c…385e Head {h00=0x000e, h01=0x0050, text=» RF CRU120«, t00=0x0024, t01=0x001c}
0x385e…387a Head {h00=0x0018, h01=0x0050, text=»CRU100 LDR* A12,A12 «, t00=0x0024, t01=0x002e}
0x387a…38a2 Head {h00=0x0024, h01=0x0050, text=»CRU120 RF(Z) CRU900 END OF LINK «, t00=0x0024, t01=0x004a}
0x38a2…38c6 Head {h00=0x0020, h01=0x0050, text=» LC A7,FDBECB+1,A5 FILE CODE«, t00=0x0024, t01=0x0072}
0x38c6…38e0 Head {h00=0x0016, h01=0x0050, text=» CC A7,CRNCIF,A12 «, t00=0x0024, t01=0x0096}
0x38e0…3900 Head {h00=0x001c, h01=0x0050, text=» RB(NE) CRU100 WRONG FC «, t00=0x0024, t01=0x00b0}
0x3900…391c Head {h00=0x0018, h01=0x0050, text=» CC A10,CRNCIF+1,A12«, t00=0x0024, t01=0x00d0}
0x391c…3932 Head {h00=0x0012, h01=0x0050, text=» RB(G) CRU100 «, t00=0x0024, t01=0x00ec}
0x3932…3948 Head {h00=0x0012, h01=0x0050, text=» RF(L) CRU200 «, t00=0x0024, t01=0x0102}
0x3948…3964 Head {h00=0x0018, h01=0x0050, text=» CW A11,CRNCIF+2,A12«, t00=0x0024, t01=0x0118}
0x3964…397a Head {h00=0x0012, h01=0x0050, text=» RB(G) CRU100 «, t00=0x0024, t01=0x0134}
0x397a…398e Head {h00=0x0010, h01=0x0050, text=»CRU200 EQU *«, t00=0x0024, t01=0x014a}
0x398e…39aa Head {h00=0x0018, h01=0x0050, text=» CC A8,CRNCIF+1,A12 «, t00=0x0024, t01=0x015e}
0x39aa…39c0 Head {h00=0x0012, h01=0x0050, text=» RF(G) CRU300 «, t00=0x0024, t01=0x017a}
0x39c0…39d6 Head {h00=0x0012, h01=0x0050, text=» RB(L) CRU100 «, t00=0x0024, t01=0x0190}
0x39d6…39f2 Head {h00=0x0018, h01=0x0050, text=» CW A9,CRNCIF+2,A12 «, t00=0x0025, t01=0x0016}
0x39f2…3a08 Head {h00=0x0012, h01=0x0050, text=» RB(L) CRU100 «, t00=0x0025, t01=0x0032}
0x3a08…3a1c Head {h00=0x0010, h01=0x0050, text=»CRU300 EQU *«, t00=0x0025, t01=0x0048}
0x3a1c…3a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x005c}
0x3a26…3a3c Head {h00=0x0012, h01=0x0050, text=»* UPDATE CRN«, t00=0x0025, t01=0x0066}
0x3a3c…3a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x007c}
0x3a46…3a64 Head {h00=0x001a, h01=0x0050, text=» LD A7,2,A14 ADD PARAM«, t00=0x0025, t01=0x0086}
0x3a64…3a76 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x0025, t01=0x00a4}
0x3a76…3a8e Head {h00=0x0014, h01=0x0050, text=» RF(N) CRU230 -1«, t00=0x0025, t01=0x00b6}
0x3a8e…3aa0 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0025, t01=0x00ce}
0x3aa0…3ab4 Head {h00=0x0010, h01=0x0050, text=»CRU230 EQU *«, t00=0x0025, t01=0x00e0}
0x3ab4…3aca Head {h00=0x0012, h01=0x0050, text=» ANKL A7,/7FFF«, t00=0x0025, t01=0x00f4}
0x3aca…3adc Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0025, t01=0x010a}
0x3adc…3af8 Head {h00=0x0018, h01=0x0050, text=» LC A1,CRNCIF+1,A12 «, t00=0x0025, t01=0x011c}
0x3af8…3b14 Head {h00=0x0018, h01=0x0050, text=» LD A2,CRNCIF+2,A12 «, t00=0x0025, t01=0x0138}
0x3b14…3b2a Head {h00=0x0012, h01=0x0050, text=» CF A14,ADDMOD«, t00=0x0025, t01=0x0154}
0x3b2a…3b46 Head {h00=0x0018, h01=0x0050, text=» SC A1,CRNCIF+1,A12 «, t00=0x0025, t01=0x016a}
0x3b46…3b62 Head {h00=0x0018, h01=0x0050, text=» ST A2,CRNCIF+2,A12 «, t00=0x0025, t01=0x0186}
0x3b62…3b74 Head {h00=0x000e, h01=0x0050, text=» RB CRU100«, t00=0x0026, t01=0x0012}
0x3b74…3b88 Head {h00=0x0010, h01=0x0050, text=»CRU900 EQU *«, t00=0x0026, t01=0x0024}
0x3b88…3b9c Head {h00=0x0010, h01=0x0050, text=» ADKL A14,2 «, t00=0x0026, t01=0x0038}
0x3b9c…3ba8 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0026, t01=0x004c}
0x3ba8…3bb8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0058}
0x3bb8…3bc4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0026, t01=0x0068}
0x3bc4…3bc8 Head {h00=0x4004, h01=0x0000}
0x3bc8…3bcc 00 26 00 74 ┆ & t┆
0x3bcc…3bd4 (39, 1, 8) 20 04 00 00 00 27 00 04 ┆ ' ┆
0x3bd4…3c24 (40, 0, 400) 00 2a 00 50 5c 49 44 45 4e 54 20 49 4e 54 4c 54 34 20 5c 52 45 4c 3d 38 2e 31 20 20 44 41 54 45 3d 37 38 2d 30 34 2d 30 31 20 00 00 00 04 00 06 00 50 2a 20 00 00 00 32 00 40 00 50 2a 20 49 4e 54 45 52 52 55 50 54 20 54 41 42 4c 45 20 46 4f ┆ * P IDENT INTLT4 REL=8.1 DATE=78-04-01 P* 2 @ P* INTERRUPT TABLE FO┆
0x3c24…3c74 52 20 44 45 56 49 43 45 53 20 43 4f 4e 4e 45 43 54 45 44 20 54 4f 20 43 48 41 4e 4e 45 4c 20 55 4e 49 54 20 4e 4f 2e 31 00 00 00 3c 00 1a 00 50 2a 20 46 4f 52 20 4c 4f 43 41 4c 20 54 45 52 4d 49 4e 41 4c 53 20 00 00 00 80 00 44 00 50 2a 20 ┆R DEVICES CONNECTED TO CHANNEL UNIT NO.1 < P* FOR LOCAL TERMINALS D P* ┆
0x3c74…3cc4 54 48 49 53 20 54 41 42 4c 45 20 43 4f 4e 54 41 49 4e 53 20 50 4f 49 4e 54 45 52 53 20 54 4f 20 44 45 56 49 43 45 20 57 4f 52 4b 20 54 41 42 4c 45 53 20 41 53 53 4f 43 49 41 54 45 44 20 00 00 00 9e 00 44 00 50 2a 20 57 49 54 48 20 44 45 56 ┆THIS TABLE CONTAINS POINTERS TO DEVICE WORK TABLES ASSOCIATED D P* WITH DEV┆
0x3cc4…3d14 49 43 45 53 20 43 4f 4e 4e 45 43 54 45 44 20 54 4f 20 41 20 53 50 45 43 49 46 49 43 20 4c 49 4e 45 20 4f 4e 20 43 48 4c 54 34 2e 20 41 20 4d 41 58 49 4d 55 4d 20 00 00 00 e6 00 3e 00 50 2a 20 4f 46 20 53 45 56 45 4e 20 44 45 56 49 43 45 53 ┆ICES CONNECTED TO A SPECIFIC LINE ON CHLT4. A MAXIMUM > P* OF SEVEN DEVICES┆
0x3d14…3d64 20 43 41 4e 20 42 45 20 43 4f 4e 4e 45 43 54 45 44 20 54 4f 20 45 41 43 48 20 4f 46 20 45 49 47 48 54 20 4c 49 4e 45 53 00 00 01 2e 00 06 00 50 2a 20 00 00 01 70 00 1e 00 50 5c 45 4e 54 52 59 5c 49 4e 54 4c 54 34 5c 54 41 42 4c 45 20 45 4e ┆ CAN BE CONNECTED TO EACH OF EIGHT LINES . P* p P ENTRY INTLT4 TABLE EN┆
0x3d64…3db4 (41, 2, 240) 54 52 59 20 00 00 01 7a 00 06 00 50 2a 20 00 01 00 0c 00 1c 00 50 2a 20 20 20 20 54 45 52 4d 49 4e 41 4c 20 50 41 52 41 4d 45 54 45 52 53 00 01 00 16 00 06 00 50 2a 20 00 01 00 36 00 06 00 50 2a 20 00 01 00 40 00 2c 00 50 2a 20 20 20 20 52 ┆TRY z P* P* TERMINAL PARAMETERS P* 6 P* @ , P* R┆
0x3db4…3e04 49 47 48 54 20 42 59 54 45 20 3d 20 32 20 2a 20 4e 55 4d 42 45 52 20 4f 46 20 44 45 56 49 43 45 53 20 00 01 00 4a 00 06 00 50 2a 20 00 01 00 7a 00 06 00 50 2a 20 00 01 00 84 00 06 00 50 2a 20 00 01 00 8e 00 06 00 50 2a 20 00 01 00 98 00 1c ┆IGHT BYTE = 2 * NUMBER OF DEVICES J P* z P* P* P* ┆
0x3e04…3e54 00 50 49 4e 54 4c 54 34 5c 45 51 55 5c 2a 5c 54 41 42 4c 45 20 45 4e 54 52 59 00 01 00 a2 00 06 00 50 2a 20 00 01 00 c2 00 06 00 50 2a 20 00 01 00 cc 00 06 00 50 2a 20 00 01 00 d6 00 08 00 50 5c 45 4e 44 00 01 00 e0 40 04 00 00 00 01 00 ec ┆ PINTLT4 EQU * TABLE ENTRY P* P* P* P END @ ┆
0x3e54…3e5c (42, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x3e5c…3eac (43, 0, 400) 3a 20 44 57 54 2d 41 44 44 52 45 53 53 20 00 02 01 80 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 37 3a 20 4f 52 44 45 52 20 00 03 00 16 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 38 3a 20 45 43 42 2d 41 44 44 52 ┆: DWT-ADDRESS P* A7: ORDER " P* A8: ECB-ADDR┆
0x3eac…3efc 45 53 53 20 00 03 00 36 00 06 00 50 2a 20 00 03 00 5c 00 06 00 50 2a 20 00 03 00 66 00 1a 00 50 2a 20 20 20 20 53 59 53 54 45 4d 20 41 44 41 50 54 41 54 49 4f 4e 00 03 00 70 00 06 00 50 2a 20 00 03 00 8e 00 0a 00 50 5c 45 4a 45 43 54 00 03 ┆ESS 6 P* P* f P* SYSTEM ADAPTATION p P* P EJECT ┆
0x3efc…3f4c 00 98 00 06 00 50 2a 20 00 03 00 a6 00 06 00 50 2a 20 00 03 00 b0 00 1c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 00 ba 00 1c 00 50 2a 20 20 20 20 45 4e 54 52 49 45 53 20 20 20 20 20 20 20 20 20 20 ┆ P* P* P*********************** P* ENTRIES ┆
0x3f4c…3f9c 2a 20 00 03 00 da 00 1c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 00 fa 00 06 00 50 2a 20 00 03 01 1a 00 10 00 50 5c 45 4e 54 52 59 5c 43 44 41 44 20 00 03 01 24 00 06 00 50 2a 20 00 03 01 38 00 2a ┆* P*********************** P* P ENTRY CDAD $ P* 8 *┆
0x3f9c…3fec 00 50 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 20 00 03 01 42 00 28 00 50 2a 20 20 20 20 45 58 54 45 52 4e 41 4c 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P************************************* B ( P* EXTERNALS ┆
0x3fec…403c (44, 0, 400) 20 20 2a 20 00 03 01 70 00 2a 00 50 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 20 00 04 00 0c 00 1a 00 50 5c 45 58 54 52 4e 5c 53 41 56 45 38 5c 53 41 56 45 20 52 45 47 53 ┆ * p * P************************************* P EXTRN SAVE8 SAVE REGS┆
0x403c…408c 00 04 00 3a 00 1a 00 50 5c 45 58 54 52 4e 5c 54 45 4e 44 49 4f 5c 45 4e 44 20 49 2f 4f 20 00 04 00 58 00 2e 00 50 5c 45 58 54 52 4e 5c 44 49 53 45 4e 44 5c 50 45 52 46 4f 52 4d 20 45 4e 44 20 49 2f 4f 20 41 4e 44 20 44 49 53 50 41 54 43 48 ┆ : P EXTRN TENDIO END I/O X . P EXTRN DISEND PERFORM END I/O AND DISPATCH┆
0x408c…40dc 00 04 00 76 00 22 00 50 5c 45 58 54 52 4e 5c 54 44 49 53 50 5c 44 49 53 50 41 54 43 48 45 52 20 45 4e 54 52 59 20 00 04 00 a8 00 1e 00 50 5c 45 58 54 52 4e 5c 4f 55 54 50 55 54 5c 4f 55 54 50 55 54 20 43 48 41 52 2e 00 04 00 ce 00 2a 00 50 ┆ v " P EXTRN TDISP DISPATCHER ENTRY P EXTRN OUTPUT OUTPUT CHAR. * P┆
0x40dc…412c 5c 45 58 54 52 4e 5c 4c 44 52 45 47 5c 4c 4f 41 44 20 52 45 47 49 53 54 45 52 53 20 41 4e 44 20 52 45 54 55 52 4e 00 04 00 f0 00 20 00 50 5c 45 58 54 52 4e 5c 47 45 54 43 48 52 5c 47 45 54 20 43 48 41 52 41 43 54 45 52 20 00 04 01 1e 00 24 ┆ EXTRN LDREG LOAD REGISTERS AND RETURN P EXTRN GETCHR GET CHARACTER $┆
0x412c…417c 00 50 5c 45 58 54 52 4e 5c 44 49 53 49 4f 45 5c 49 2f 4f 20 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 00 04 01 42 00 18 00 50 5c 45 58 54 52 4e 5c 44 57 54 53 54 5c 53 54 41 54 55 53 20 00 04 01 6a 00 16 00 50 5c 45 58 54 52 4e 5c 44 57 54 ┆ P EXTRN DISIOE I/O REQUEST ERROR B P EXTRN DWTST STATUS j P EXTRN DWT┆