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