|
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: 39774 (0x9b5e)
Notes: pts_type(SC)
Names: »SDMSUB.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/SDMSUB.SC«
IDENT SDMSUB REL 11.0 81-05-22 870105041100 =6,FORMATTING ERROR =6,REL 11.0 81-05-12 =5,CONDITION FOR CR,DE,EX =5,REL 11.0 81-03-20 =4,BLOCK BUFFER CHAIN DESTR. WHEN FORM. WITH LEN=0 =4,REL 11.0 81-03-17 =3,NBR. OF SAME CHAR. IN KEY WRONG =3,REL 11.0 81-03-13 =2,ADDRESS COMPARE WHEN FORMAT BLOCK,BAD =1 =2,REL 11.0 81-02-04 =1 =1,SUB. TO FORMAT BLOCK BUFFER CHNG. =1,REL 11.0 81-01-26 **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * SDMSUB = COMMON SDM-ROUTINES * * * * * * **************************************************** ****THIS MODULE IS ACTIVATED FROM :***************** * * DMTASK,TIODM,DMTASS * *************** * ENTRIES * *************** * ENTRY RELPRO ENTRY MOVBW ENTRY EATEST,EASETB,EARELB,CRNGET ENTRY CALSNO ENTRY GTBKBU ENTRY CARRBL,CRRBL ENTRY FMIOOP,FMIOCL,FMIORD ENTRY FMIORF,FMIOWR,FMIODL ENTRY FMIOCR,FMIOEX ENTRY FRMFIL,FORMAT,FORMER =1 ENTRY RLBLKB,CHKRCD ENTRY CASZEN EJECT * * E N T R I E S F O R I N D E X S U B R O U T I N E S * * *************** * ENTRIES * *************** * ENTRY CHKKEY ENTRY RDNXTR ENTRY FNDKEY ENTRY CRNUPD ENTRY GTLGRN ENTRY CRNCIF ENTRY RECECB EJECT * ***************** * EXTERNALS * ***************** * * EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO EXTRN FDBBLF,FDBADF EXTRN FDBBLZ,FWTFNR EXTRN FDBSTA,SCTTCT,TTB:SA,ECBEL EXTRN FDBECB,DWTECB,DWTOR,BUFSTA,BUFDMI,BUFOR EXTRN FDBLRN,FDBMIA,FDBMRO EXTRN ECBRC,ECBFC,ECBCW,ECBBA EXTRN DIVMOD,MPYMOD EXTRN CRNTID EXTRN SDMGBU EXTRN CRNQUE,GETBLK,FREQUE EXTRN CRBUFL EXTRN FDBDBR EXTRN HALT,DSUMOD,ECBRL EXTRN EOMERR,RETRIE EXTRN REQER2,QTJOB,TDISP EXTRN DWTTAB,MONMMU,TTB:MT EXTRN FDBOMD EXTRN MOVFW EXTRN ADDMOD EXTRN SDMRBU,CLRBUF EXTRN BLKMXL MAX BLOCK LENGTH EXTRN EOFRC,NOKEY EXTRN RTNA14 EXTRN FPB:RL,FPB:BF,FPB:S1,SIZDIF EJECT SDMSUB TOSSIO * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 X:A EQU 0 INDXAC EQU 00001 * * A VERSION LEAVING OUT OPEN MODES: * OPEN OUTPUT,OPEN EXTEND AND DISCARD * IS OBTAINED BY SETTING Y:C=0 * X:B EQU 0 =5 CRDEEX EQU 00000 =5 EJECT * * THIS ROUTINE RELEASES PROTECTION AT END OF TRANSACTION * * ENTRY : A3 = DM INTERNAL USER ID * * USED REGS A1 - A5 , A9 * * NUMBER OF A14 LEVELS = 4 (WORDS) * RELPRO EQU * RELEASE PROTECTION LDR A9,A11 SAVE FDB ADDRESS LDKL A11,FDBSTA FIRST FWT ADDR REL050 EQU * LDR* A1,A11 ANK A1,/1 RF(Z) REL053 NOT USED LDKL A1,/C000 REMOVE BUFFERS FOR THIS TASK CF A14,EARELB ENB REL053 EQU * LDR* A11,A11 ANKL A11,/FFFE SKIP USE BIT RB(NZ) REL050 MORE FDBS LDR A11,A9 FDB ADDRESS RTN A14 EJECT * ************* * MOVBW * ************* * * ENTRY DMTBM BYTE MOVE * * INPUT A1 = FROM ADDRESS * A3 = NO OF BYTES TO BE MOVED * A2 = TO ADDRESS * * * OUTPUT A3 = NEXT CHAR * * NUMBER OF A14 LEVELS = 2 (WORDS) * DMTB10 EQU * LDR* A4,A14 RTN A14 * * MOVBW HAS THE SAME FUNCTION AS DMTBM BUT * MOVES FROM THE END * MOVBW EQU * STR A4,A14 ADR A1,A3 ADR A2,A3 DMTB20 EQU * SUK A3,1 RB(N) DMTB10 SUK A1,1 SUK A2,1 LCR A4,A1 SCR A4,A2 RB DMTB20 EJECT SDMSUB ****DESCRIPTION************************************* * * EATEST WILL SEARCH THE EA-LINK FOR A LOG RECORD NO. * ****ENTRY PARAMETERS******************************** * * A11= FDB ADRESS * A1,A2 = LOG RECORD NO * * CF A14,EATEST * ****EXIT PARAMETERS********************************* * * A1,A2,A11 = UNCHANGED * A3 = 0 NO EA AT ALL * = +1 EA FOUND FOR ACTUAL TASK * = -1 EA FOUND FO R OTHER TASK * NUMBER OF A14 LEVELS = 2 (WORDS) * ****USED REGISTERS********************************** * BLKTID EQU 4 TASK ID BLKRNM EQU 5 RECORD NUMBER MOST SIGNIFICANT BLKRNL EQU 2 RECORD NUMBER LEAST SIGNIFICANT EJECT SDMSUB EATEST EQU * LD A3,FDBEAL,A11 BUFFER QUEUE RF EAT030 EAT020 EQU * LDR* A3,A3 NEXT BUFFER ADR EAT030 EQU * RF(Z) EAT100 EMPTY QUEUE,NO EA * * SEARCH LOG REC NO * CC A1,BLKRNM,A3 FIRST CHARACTER RB(NE) EAT020 CW A2,BLKRNL,A3 2 AND 3 CHARACTER RB(NE) EAT020 * * RECORD NO FOUND * LC A3,BLKTID,A3 CC A3,FDBTNR,A11 TASK ID RF(E) EAT060 LDKL A3,-1 EA OTHER TASK RF EAT100 EAT060 EQU * LDK A3,1 EA SAME ATASK EAT100 EQU * ADKL A14,4 ADK A3,0 ABR* A14 EJECT SDMSUB ****DESCRIPTION************************************* * * EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK * IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS * ****ENTRY PARAMETERS******************************** * * A11= FDB ADDR * A1,A2 = LOGICAL RECORD NO * * CF A14,EASETB * ****EXIT PARAMETERS********************************* * * A11= FDB ADDR * NUMBER OF A14 LEVELS = 2 (WORDS) * ****USED REGISTERS********************************** * * A1,A4 * ******************************************************* EJECT SDMSUB EASETB EQU * ECR A1,A1 LC A1,FDBTNR,A11 TASK ID ECR A1,A1 INH CF A15,GETBLK GET BUFF AND STORE A1,A2 * * LINK BUFFER TO FDB * LD A1,FDBEAL,A11 LINK ROOT STR A1,A4 THREAD ST A4,FDBEAL,A11 NEW ROOT ENB RTN A14 EJECT SDMSUB ****DESCRIPTION************************************* * * EARELB WILL RELEASE EA BUFFERS AND CONNECT THEM * TO THE FREE LINK. * ****ENTRY PARAMETERS******************************** * * A11= FDB-ADDRESS * A1,A2 = LOGICAL RECORD NO * A1: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB * AND A3 = 0 * ARE REMOVED. * A1: BIT 0=1,BIT 1=1 * AND A3 NOT EQ 0 ALL BUFFERS ON FDB WITH * TASK ID AS SPEC IN A3 ARE RELEASED * BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB ARE REMOVED. * BIT 0=0 THE FIRST BUFFER WITH TASK ID AND LOG REC NO * AS SPEC IS REMOVED. * ****EXIT PARAMETERS********************************* * * A11,A3,A1 = UNCHANGED * NUMBER OF A14 LEVELS = 2 (WORDS) * ****USED REGISTERS********************************** * * A2,A4,A5 * ************************************************* * * THE ROUTINE SETS INHIBIT EJECT SDMSUB EARELB EQU * LDR A4,A11 ADKL A4,FDBEAL ROOT ADR EAR020 EQU * LDR A5,A4 SAVE OLD ROOT LDR* A4,A4 NEXT BUFFER ADR RF(Z) EAR100 EA LINK END LDR A1,A1 REC NO RF(N) EAR050 RELEASE MANY BUFFERS * * SEARCH LOG REC NO * CC A1,BLKRNM,A4 RB(NE) EAR020 CW A2,BLKRNL,A4 RB(NE) EAR020 RF EAR060 EAR050 EQU * CWK A1,/A000 CHECK BIT 1 RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED LDR A2,A3 REQ TASK ID RF(NZ) EAR065 TASK ID IN A3 EAR060 EQU * * * SEARCH TASK IDENT * LC A2,FDBTNR,A11 TASK ID EAR065 EQU * CC A2,BLKTID,A4 RB(NE) EAR020 EJECT * * EA BUFFER FOUND * EAR080 EQU * LDR* A2,A4 NEXT BUFADR STR A2,A5 REMOVE BUFFER FROM LINK * * RETURN BUFFER TO POOL * INH LD A2,FREQUE STR A2,A4 NEXT FREE ST A4,FREQUE NEW ROOT LDR A4,A5 BUFFER ROOT LDR A1,A1 RB(N) EAR020 RELEASE MORE EAR100 EQU * RTN A14 EJECT SDMSUB ****DESCRIPTION************************************* * * CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS * FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH * ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE * THE SYSTEM WILL HALT AND LITE SOP-LAMPS. * TASK ID IS PLACED IN THE BUFFER * ****ENTRY PARAMETERS******************************** * * A11= FDB ADDRESS DATA FILE * FDBTNR,A11 = TASK NUMBER * FDBTNR,A11=CALLING TASK NUMBER * FDBCRL,A11=CURRENCY LINK * ****EXIT PARAMETERS********************************* * * A11= UNCHANGED * A2 = ADDRESS OF FOUND CRN-BUFFER * NUMBER OF A14 LEVELS = 2 (WORDS) * ****USED REGISTERS********************************** * * A1,A3 * ************************************************** * EJECT SDMSUB CRNGET EQU * LDKL A2,FDBCRL ADR A2,A11 CRN ROOT CRN020 EQU * LDR* A2,A2 NEXT BUFFER RF(Z) CRN100 LINK END * * CHECK ATASK IDENT * LC A3,FDBTNR,A11 TASK ID CC A3,CRNTID,A2 RB(NE) CRN020 OTHER TASK RF CRN200 BUFFER FOUND * * GET NEW BUFFER * CRN100 EQU * INH LD A2,CRNQUE FREE LINK ROOT RF(NZ) CRN120 LDK A1,3 LAMP 10 AND 11 CF A15,HALT NO MORE BUFFERS CRN120 EQU * LDR* A3,A2 NEXT FREE ST A3,CRNQUE UPD ROOT EJECT * * FILL BUFFER WITH ZEROES * LDKL A3,CRBUFL BUFFER LENGTH IN BYTES CRN140 EQU * SUK A3,2 ZEROE WORDS 2 - N RF(NP) CRN160 BUFFER ZEROED LDR A1,A2 BUFFER ADR ADR A1,A3 OFFSET IN BUFFER CMR A1 RB CRN140 MORE WORDS * * CONNECT NEW BUFFER TO LINK * CRN160 EQU * LC A3,FDBTNR,A11 SC A3,CRNTID,A2 TASK ID LD A3,FDBCRL,A11 LINK ROOT STR A3,A2 THREAD ST A2,FDBCRL,A11 NEW ROOT CRN200 EQU * ENB RTN A14 EJECT SDMSUB ****DESCRIPTION************************************* * * CALSNO WILL CONVERT A LOGICAL RECORD NO TO * RELATIVE * SECTOR AND OFFSET * ****ENTRY PARAMETERS******************************** * * A1,A2 = LOGICAL RECORD NO * A11= FDB ADDR * * CF A14,CALSNO * ****EXIT PARAMETERS********************************* * * A1 = 0 OK * NE 0 , ERROR =/A000=END OF MEDIUM * A11= UNCHANGED * IN FDB : FDBSNR = SECTOR NR * FDBRRO = OFFSET IN BLOCK * NUMBER OF A14 LEVELS = 5 (WORDS) * ****USED REGISTERS********************************** * * A2-A3,A6-A7 EJECT SDMSUB CALSNO EQU * ST A4,-4,A14 SAVE A4 * * FIND BLOCK NO WITHIN FILE * LDK A6,0 LC A6,FDBBLF,A11 BLOCKING FACTOR CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER RF(O) CALERR OVERFLOW LDR A3,A2 QUOTIENT LDR A4,A1 REMAINDER RF(Z) TIOD30 REST = 0 ADK A3,1 RECORD IN NEXT BLOCK RF TIOD40 TIOD30 EQU * LC A4,FDBBLF,A11 BLOCK FACTOR * * FIND LOGICAL SECTOR NUMBER ON DISC * TIOD40 EQU * LDR A6,A3 BLOCK NR RF(NP) CALERR SUK A6,1 LDK A7,0 LC A7,FDBBLZ,A11 NR OF SECT IN BLOCK CF A14,MPYMOD ADK A2,1 RF(O) CAL050 RF CAL090 CAL050 EQU * ANKL A2,/7FFF ADK A1,1 CARRY CAL090 EQU * ST A1,FDBSNR,A11 ST A2,FDBSNR+2,A11 SECT NR EJECT * * FIND RELATIVE RECORD OFFSET WITHIN BLOCK * LDK A3,0 LDR A2,A4 REL REC NR IN BLOCK TIOD60 EQU * SUK A2,1 A2=REL REC NR RF(Z) TIOD65 REL REC OFFS IN A3 NOW AD A3,FDBRLE,A11 NO ADD RECORD LENGTH ADK A3,1 SKIP STATUS BYTE RB TIOD60 CALERR LDKL A1,EOMERR OUT OF MEDIUM RF TIODMF * * STORE RELATIVE REC OFFSET IN FBDRRO * TIOD65 EQU * LDK A1,0 OK ST A3,FDBRRO,A11 TIODMF EQU * LD A4,-4,A14 SAVED REGISTER RF RETURN RETURN AND SET CONDITION EJECT ********************** * FM I/O HANDLER * ********************** * ENTRY: A11=FDB ADDRESS * A8=ECB ADDRESS * * EXIT : A1=RETURN CODE * A11,A8=SAME AS ENTRY * A2=USED * * NUMBER OF A14 LEVELS = 2 (WORDS) * * FMIO=FILE MANAGEMENT I/O HANDLER * FMIOWR EQU * WRITE,DMTIOT LDK A7,/95 RF FMIO10 FMIOCL EQU * CLOSE LDK A7,/A2 RF FMIO10 FMIODL EQU * DELETE LDKL A7,/2A2 RF FMIO10 FMIOOP EQU * OPEN FILE LDK A7,/A1 RF FMIO10 FMIOEX EQU * EXTEND LDKL A7,/1A1 RF FMIO10 FMIOCR EQU * CREATE LDKL A7,/2A1 RF FMIO10 EJECT FMIORF EQU * READ FILE PARAMETERS LDK A7,/83 RF FMIO10 FMIORD EQU * READ LDK A7,/91 FMIO10 EQU * LKM DATA 15 EJECT SDMSUB * * RESTORE SECTOR NUMBER * LD A1,FDBSNR,A11 ST A1,ECBCW,A8 LD A1,FDBSNR+2,A11 ST A1,ECBCW+2,A8 LD A2,DWTECB,A11 DM ECB ADDRESS LD A1,ECBRC,A8 RF(Z) RETURN DISC I/O OK ANKL A1,/FEFF RF(NZ) DMTIT1 NOT ONLY RETRIES LDKL A1,RETRIE ORS A1,ECBRC,A2 USER RETURN CODE LDK A1,0 SET RETURN CODE OK RF RETURN DMTIT1 EQU * LD A2,ECBBA,A8 SUKL A2,BUFSTA BUFSTA CM BUFDMI,A2 CLEAR FILE NR IN BUFFER RETURN EQU * ABL RTNA14 EJECT SDMSUB ****DESCRIPTION************************************* * * GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND * PREPARE IT. ECB IS PREPARED FOR PHYS I/O. * ****ENTRY PARAMETERS******************************** * * A11= FDB ADDRESS * A8 = ECB ADDR * ****EXIT PARAMETERS********************************* * * A11=FDB ADDRESS * A1 = FDBRRO WHEN SECTOR IS FOUND IN CORE * = -1 WHEN NO DATA IS FOUND IN * THE FOUND CORE BUFFER * A4 = BLOCK BUFFER ADDRESS * A5 = BLOCK DATA BUFFER ADDRESS * A8 = ECB ADDR * NUMBER OF A14 LEVELS = 5 (WORDS) * ****USED REGISTERS********************************** * * A2-A3 * ****************************************************** GTBKBU EQU * LC A3,FWTFNR,A11 FILE NUMBER ANK A3,/FF STR A3,A8 FILE NR LC A5,FDBBLZ,A11 SLL A5,8 BLOCK SIZE IN BYTYE ST A5,ECBRL,A8 BLOCK LENGTH LD A1,FDBSNR,A11 SECTOR NUMBER LD A2,FDBSNR+2,A11 CF A14,SDMGBU A4 := BUFFER ADDRESS ST A1,ECBCW,A8 SECT NR ST A2,ECBCW+2,A8 SECT NR LDR A5,A4 ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ST A5,ECBBA,A8 LDKL A1,-1 SET DEFAULT RETURN CODE ADK A3,0 RF(NZ) GTB100 BUFFER NOT IN MEMORY LD A1,FDBRRO,A11 RELATIV RECORD OFFSET GTB100 EQU * RB RETURN RETURN AND SET CONDITION IFT CRDEEX=0 =5 EJECT FRMFIL EQU * =5 FORMAT EQU * =5 FORMER EQU * =5 RLBLKB EQU * =5 CASZEN EQU * =5 RTN A14 =5 XIF =5 IFT CRDEEX=1 =5 EJECT * * FRMFIL=FORMAT FILE * * ENTRY: A4=BLOCK BUFFER ADDRESS * A8=FDB ECB ADDRESS * A11=FDB ADDRESS * * EXIT : A1-A7 * * NUMBER OF A14 LEVELS = 4 (WORDS) * FRMFIL EQU * LC A1,FDBBLZ,A11 SLL A1,8 BLOCK SIZE IN BYTES ST A1,ECBRL,A8 REQUESTED LENGTH * * MAKE FORMAT BUFFER * CF A14,FORMAT MAKE FORMATED BUFFER ST A4,ECBBA,A8 BLOCK BUFFER ADDRESS LD A1,FDBSNR,A11 SECTOR NUMBER MOST SIGN. LD A2,FDBSNR+2,A11 SECTOR NUMBER LEAST SIGN. FRM130 EQU * ST A1,ECBCW,A8 ST A2,ECBCW+2,A8 LDR A3,A1 SAVE A1 LDR A5,A2 SAVE A2 CF A14,FMIOWR WRITE SECTOR RF(NZ) FRM140 ERROR OR EOF LDR A1,A3 SAVED REGISTER LDR A2,A5 SAVED REGISTER LDK A6,0 LC A7,FDBBLZ,A11 BLOCK SIZE IN SECTORS CF A14,ADDMOD RB FRM130 EJECT FRM140 EQU * LDR A2,A1 RETURN CODE SLL A2,2 RF(NN) FRM160 NOT END OF FILE RLBLKB EQU * LDK A1,0 SET RETURN CODE FRM160 EQU * SUKL A4,BUFSTA BUFFER WITH HEADER CF A14,SDMRBU RELEASE BUFFER CF A14,CLRBUF CLEAR ALL BUFFERS RB RETURN RETURN AND SET CONDITION EJECT * * FORMAT=FORMAT BUFFER IN RECORD SIZE * * ENTRY :A4 = BLOCK BUFFER ADDRESS * A1 = BUFFER LENGTH * * EXIT :A4 = NOT CHANGED * A1,A2,A3,A5 = USED * * NUMBER OF A14 LEVELS = 2 (WORDS) * FORMAT EQU * LDR A3,A4 BLOCK BUFFER ADDRESS FORMER EQU * =1 LDR A5,A1 LENGTH IN BLOCK BUFFER =2 =1 RF(NP) FRM120 NOTHING TO FORMAT =4 LDK A2,' ' FILL BUFFER WITH SPACES =1 FRM100 EQU * SCR A2,A3 =1 ADK A3,1 UPDATE BUFFER POINTER =1 SUK A1,1 REST LENGTH =1 RB(P) FRM100 CONTINUE FILL BUFFER SUR A3,A5 POINTER TO START OF BUFFER =2 =1 SUK A3,1 POINTER TO RECORD STATUS =2 =1 LDK A2,0 RECORD STATUS=FREE LD A1,FDBRLE,A11 RECORD LENGTH WITHOUT STATUS ADK A1,1 LENGTH WITH STATUS FRM110 EQU * ADR A3,A1 POINTER TO RECORD STATUS =2 =1 SUR A5,A1 LENGTH LEFT =2 =1 RF(N) FRM120 ALL DONE IN BUFFER =6 =2 =1 SCR A2,A3 UPDATE STATUS =2 =1 RB FRM110 FRM120 EQU * RTN A14 XIF =5 EJECT * * CARRBL=CALCULATE MAX FDBRRO AND BLOCK SIZE IN NBR OF SECTORS * * ENTRY: A11=FDB ADDRESS * * EXIT : A1=MAX FDBRRO * A2=BLOCK SIZE IN NUMBER OF SECTORS * CR=GREATER IF BLOCK SIZE TOO LARGE * A3,A6,A7=USED * * NUMBER OF A14 LEVELS = 4 (WORDS) * CARRBL EQU * LD A6,FDBRLE,A11 RECORD LENGTH (BYTES) LC A7,FDBBLF,A11 BLOCK FACTOR (NBR OF RECORDS/BLOCK) * * CRRBL=SAME AS CARRBL EXCEPT ENTRY PARAMETERS * * ENTRY: A6=RECORD LENGTH * A7=BLOCK FACTOR * CRRBL EQU * ADK A6,1 RECORD STATUS BYTE LDR A3,A6 SAVE RECORD LENGTH ANK A7,/FF SUK A7,1 CF A14,MPYMOD LDR A1,A2 MAX FDBRRO EJECT * * CALCULATE BLOCK SIZE IN NBR OF SECTORS * ADR A2,A3 ADD ONE RECORD LDR A3,A2 SRL A2,8 SECTOR NBR ANK A3,/FF RF(Z) CAR100 EXACT ADK A2,1 ONE MORE SECTOR CAR100 EQU * ADKL A14,4 UPADTE STACK POINTER LDR A3,A2 SLL A3,7 BLOCK SIZE IN WORDS CWK A3,BLKMXL CHECK WITH MAX BLOCK SIZE ABR* A14 RETURN IFT CRDEEX=1 =5 EJECT ********** * CASZEN * ********** * * CASZEN=CALCULATE SIZE 1-4 IN NBR OF SECTORS * * ENTRY: A12=FPB ADDRESS * * EXIT : A3=ENLARGE IN NUMBER OF SECTORS * A2,A5,A6,A7,A13=USED * A1=RETURN CODE * CR=O IF OVERFLOW * CASZEN EQU * LD A6,FPB:RL,A12 RECORD LENGTH LC A7,FPB:BF,A12 BLOCK FACTOR ANK A7,/FF CF A14,CRRBL CALCULATE BLOCK SIZE (SECTORS/BLOCK IN A2) LDR A4,A2 BLOCK SIZE LDR A13,A12 FPB ADDRESS ADKL A13,FPB:S1 POINTER TO SIZE 1 LDK A5,4 NUMBER OF VOLUMES CAS100 EQU * LC A6,FPB:BF,A12 BLOCK FACTOR (RECORDS/BLOCK) ANK A6,/FF LDR* A1,A13 LD A2,2,A13 A1,A2=SIZE (NBR OF RECORDS) CF A14,DIVMOD A1,A2/A6=A2 REST IN A1 ADK A1,0 RF(Z) CAS110 NO REST ADK A2,1 TAKE CARE OF REST EJECT CAS110 EQU * LDR A6,A2 LDR A7,A4 CF A14,MPYMOD A6*A7=A1,A2 STR A1,A13 ST A2,2,A13 A1,A2=SIZE IN SECTORS ADKL A13,SIZDIF SUK A5,1 RB(P) CAS100 NEXT VOLUME RTN A14 XIF =5 EJECT * CHKRCD=CHECK RECORD STATUS * * ENTRY: A11=FDB ADDRESS * A1=RECORD OFFSET * A4=BLOCK BUFFER ADDRESS * * EXIT : A11,A4=NOT CHANGED * A1=POINTER AT STATUS * A3=/FF * * NUMBER OF A14 LEVELS = 2 (WORDS) * CHKRCD EQU * ADR A1,A4 ADKL A1,BUFSTA AD A1,FDBRLE,A11 STATUS POINTER LDK A3,/FF ADKL A14,4 CCR A3,A1 ABR* A14 IFT INDXAC=0 EJECT CHKKEY EQU * RDNXTR EQU * FNDKEY EQU * CRNUPD EQU * GTLGRN EQU * CRNCIF EQU * RECECB EQU * RTN A14 XIF IFT INDXAC=1 EJECT ****DESCRIPTION************************************* * * FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX. * A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. * THE FIRST TWO WORDS IN MASTER INDEX IS : * - NO OF ENTRIES N * - NO OF CHARACTERS PER ENTRY * ****ENTRY PARAMETERS******************************** * * A5 = MASTER INDEX ADRESS * A9 = SEARCH KEY ADDRESS * A10 = NR OF CHAR IN KEY * A11=FDB ADDRESS * * CF A14,FNDKMX * ****EXIT PARAMETERS********************************* * * A1,A2 = LOGICAL RECORD NO IN INDEX FILE * A9,A10= UNCHANGED * NUMBER OF A14 LEVELS = 5 (WORDS) * ****USED REGISTERS********************************** * * A3-A7,A12-A13 * ************************************************* * CRNCIF EQU 8 INDEX CURRENCY OFFSET EJECT FNDKMX EQU * LDR* A2,A5 NO OF ENTRIES N RF(NP) FND045 NO MASTER INDEX LDR A13,A2 ANKL A13,/1 GET BIT 15 SRA A2,1 LDR A12,A2 M=N/2 FLOOR ADR A13,A2 I=N/2 CEILING ADK A5,2 TABLE BASE - 2 FND020 EQU * LDK A4,0 LDR* A7,A5 ENTRY LENGTH LDR A6,A13 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 LDR A4,A2 FND025 EQU * ADR A4,A5 ADD MI BASE ADR - 2 ADK A4,2 ENTRY KEY ADR LDR A1,A4 ADDRESS OF ENTRY KEY LDR A6,A10 MAX KEY LENGTH LDK A7,0 CHAR ADR CF A14,CHKKEY COMPARE KEYS LDR A7,A12 M LDR A6,A7 ANK A6,/1 BIT 15 SRA A7,1 M/2 FLOOR ADR A6,A7 M/2 CEILING LDR A1,A1 CHKKEY RTN INF RF(NG) FND040 SEARCHED KEY LESS OR EQUAL EJECT * * SEARCHED KEY GREATER * LDR A12,A12 M RF(Z) FND050 SEARCH READY ADR A13,A6 I=I+(M/2 CEIL) FND030 EQU * LDR A12,A7 M=M/2 FLOOR RB FND020 FND040 EQU * LDR A12,A12 M RF(Z) FND060 SEARCH READY SUR A13,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* A4,A5 NEXT ADDRESS OF ENTRY KEY FND060 EQU * LDR A3,A4 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 * ABL CALSNO EJECT ****DESCRIPTION************************************* * * CHKKEY COMPARES TWO CHARACTER STRINGS * ****ENTRY PARAMETERS******************************** * * A1 = ADR OF ENTRY KEY * A9 = 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********************************* * * A1 = 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 * CR=0 WHEN KEY IS FOUND * P WHEN KEY IS GREATER * N WHEN KEY IS LESS * NUMBER OF A14 LEVELS = 2 (WORDS) * ****USED REGISTERS********************************** * * A2,A3 ******************************************************** EJECT CHKKEY EQU * LDR A3,A9 SEARCH KEY ADDRESS ADR A3,A7 FIRST SC CHAR TO TEST ADR A1,A7 FIRST EC CHAR TO TEST CHK020 EQU * LCR A2,A3 SEARCED KEY CHAR CCR A2,A1 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 A1,1 NXT EC TO TEST RB CHK020 CHK060 EQU * LDK A1,0 FOUND RF CHK140 CHK120 EQU * LDKL A1,-1 SEARCHED KEY SMALLER RF CHK140 CHK100 EQU * LDK A1,1 SEARCHED KEY SGREATER CHK140 EQU * ABL RETURN RETURN AND SET CONDITION 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******************************** * * A11= FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) * FDBCEX,FDBSNR * FDBRRO = RECORD OFFSET IN BUFFER, WHEN = -1 THE FIRST * RECORD IN CURRENT SECTOR IS WANTED * A4 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN * SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED * A8 = ECB ADDRESS * ****EXIT PARAMETERS********************************* * * A11= FDB ADDRESS * A4 = BUFFER ADDRESS * = 0 WHEN NO BUFFER IS ALLOCATED * A8 = ECB ADDRESS * CR=0 WHEN PHYSICAL I/O FAILED * IF CR=0 * THEN A1=I/O RETURN CODE * ELSE A1=FDBRR0=RECORD OFFSET * NUMBER OF A14 LEVELS = 7 (WORDS) * ****USED REGISTERS********************************** * * A2,A3,A5 * ****************************************************** EJECT RDNXTR EQU * ADK A4,0 RF(NZ) RDN200 BUFFER EXIST * * GET A BUFFER * RDN040 EQU * CF A14,GTBKBU GET BLOCKBUFFERADDR RF(NN) RDN080 DATA ALREADY IN CORE * * READ BLOCK FROM DISC * LDR A3,A7 SAVE A7 CF A14,FMIORD READ LDR A7,A3 ADK A1,0 RETURN CODE RF(NZ) RDN900 ERROR RDN080 EQU * LDK A1,0 ST A1,FDBRRO,A11 OFFSET FIRST RECORD RF RDN940 RETURN EJECT * * BUFFER WAS BEFORE * RDN200 EQU * LD A1,FDBRRO,A11 RECORD OFFSET RB(N) RDN080 FIRST RECORD WANTED * * CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER * RDN220 EQU * CW A1,FDBMRO,A11 MAX OFFSET RF(NL) RDN300 THIS REC LAST IN BUFFER * * GET NEXT REC IN CURRENT BLOCKBUFFER * AD A1,FDBRLE,A11 RECORD LENGTH ADK A1,1 STATUS CHAR ST A1,FDBRRO,A11 NEW OFFSET RF RDN940 RETURN EJECT * * GET NEW BLOCK * RDN300 EQU * LD A1,FDBSNR+2,A11 LDK A3,0 LC A3,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK) ADR A1,A3 NEXT SECT RF(O) RDN380 RF RDN390 RDN380 ANKL A1,/7FFF IM FDBSNR,A11 RDN390 EQU * ST A1,FDBSNR+2,A11 * * GET NEXT BLOCK * RDN500 EQU * CF A14,SDMRBU RELEASE BUFFER RB RDN040 NEXT SECTOR * * ERROR EXIT * RDN900 EQU * ADK A4,0 RF(Z) RDN960 NO BUFFER CF A14,SDMRBU RELEASE BUFFER RDN960 EQU * LDK A4,0 INDICATE NO BUFFER * * EXIT * RDN940 EQU * ADKL A14,4 ADK A4,0 SET CONDITION ABR* A14 RETURN 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******************************** * * A11= FDB ADDRESS * A9 = SEARCH KEY ADDR * A10 = NO OF CHARACTERS IN KEY * A8 = PHYSICAL ECB ADDRESS * ****EXIT PARAMETERS********************************* * * A11= FDB ADDRESS * FDBSNR,FDBRRO = FOUND INDEX RECORD * A1 = 0 WHEN KEY ISS FOUND * = /400 WHEN NEXT HIGHER KEY IS FOUND * = RETURN CODE WHEN KEY IS NOT FOUND * BIT 1 CAN NEVBER BE SET BY DISC DRIVER * A4 = BUFFER ADDRESS * = 0 WHEN NO RECORD IS FOUND * A7 = NO OF SAME CHARACTERS * A8 = PHYSICAL ECB ADDRESS * A10 = UNCHANGED * CR=0 WHEN KEY IS FOUND * NUMBER OF A14 LEVELS = 9 (WORDS) * ****USED REGISTERS********************************** * * A2-A3,A5-A7,A12-A13 * ****************************************************** EJECT FNDKEY EQU * * * FIRST SEARCH THE NMASTER INDEX * LD A5,FDBMIA,A11 ADDR OF MASTER INDEX CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX RF(NZ) FKY900 ERROR LDR A6,A10 NO OF CHAR IN KEY LDK A7,0 START CHAR KEY SEARCH LDK A4,0 NO BUFFER TO STYART WITH FKY100 EQU * CF A14,RDNXTR GET INDEX RECORD RF(Z) FKY900 I/O FAILED ,NO BUFFER * * BUFFER AND ADATA IS FOUND * FKY150 EQU * ADR A1,A4 BUFFER ADR ADKL A1,BUFSTA LDR A5,A1 AD A5,FDBRLE,A11 ADDRESS TO STATUS CHARACTER LCR A2,A5 =3 ANK A2,/FF STATUS CHARACTER =3 SUK A2,/FF =3 RF(Z) FKY200 USED RECORD EJECT * * NO MORE RECORDS IN THIS SECTOR * LD A13,FDBRRO,A11 SAVE CURRENT OFFSET LD A5,FDBMRO,A11 ST A5,FDBRRO,A11 LAST RECORD IN BLOCK * * * CHECK IF END OF FILE * LDR A5,A7 CHAR ADDR CF A14,GTLGRN GET LOG REC NR LDR A6,A10 NR OF CHAR LDR A7,A5 CHAR ADDR CC A1,FDBLRN,A11 RB(L) FKY100 NOT EOF RF(G) FKY180 EOF CW A2,FDBLRN+1,A11 RB(L) FKY100 NOT EOF * * EOF IS IN THIS SECTOR * FKY180 EQU * ST A13,FDBRRO,A11 OFFSET TO FIRST FREE RECORD LDKL A1,EOFRC EOF RF FKY900 EJECT * * CHECK KEY IN THIS RECODRD * FKY200 EQU * CF A14,CHKKEY COMPARE KEYS RF(Z) FKY870 KEY FOUND RF(N) FKY850 SEARCH KEY LESS * * SEARCH KEY GREATER * FKY840 EQU * CC A7,-4,A5 NEXT KEY FLAG =3 RB(NG) FKY100 START OF KEY:S IDENTICAL LC A7,-4,A5 REDUCE NUMBER OF SAME CHARACTERS =3 RB FKY100 NEXT KEY EJECT * * SEARCH KEY LESS * FKY850 EQU * LDKL A1,NOKEY KEY NOT FOUND RF FKY950 * * KEY FOUND * FKY870 EQU * LDK A1,0 KEY FOUND RF FKY950 FKY900 EQU * LDK A7,0 NO OF SAME LEAD CHARS FKY950 EQU * ABL RETURN RETURN AND SET CONDITION EJECT * * CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX * RECORDS ARE UPDATED * * IN: * A1,A2 = LAST RECORD NR MOVED * A12,A13= FIRST RECORD NR MOVED * A11 = FDB ADDR INDEX * A7 = ADD PARAMETER +1, -1 * * USED REGISTERS: * A1-A3,A6-A7 * * OUT: * A11= FDB ADDR INDEX * A12,A13 = UNCHANGED * NUMBER OF A14 LEVELS = 4 (WORDS) * CRNUPD EQU * LD A3,FDBADF,A11 FDB DATA FILE INH ADKL A3,FDBCRL CRN LINK ROOT CRU100 EQU * LDR* A3,A3 RF(Z) CRU900 END OF LINK LC A6,FWTFNR,A11 FILE CODE CC A6,CRNCIF,A3 RB(NE) CRU100 WRONG FC CC A12,CRNCIF+1,A3 RB(G) CRU100 RF(L) CRU200 CW A13,CRNCIF+2,A3 RB(G) CRU100 CRU200 EQU * CC A1,CRNCIF+1,A3 RF(G) CRU300 RB(L) CRU100 CW A2,CRNCIF+2,A3 RB(L) CRU100 CRU300 EQU * * * UPDATE CRN * LDR A6,A7 RF(N) CRU230 -1 LDK A6,0 CRU230 EQU * ANKL A7,/7FFF LDK A1,0 LC A1,CRNCIF+1,A3 LD A2,CRNCIF+2,A3 CF A14,ADDMOD SC A1,CRNCIF+1,A3 ST A2,CRNCIF+2,A3 RB CRU100 CRU900 EQU * ENB RTN A14 EJECT DMSUBR ****DESCRIPTION************************************* * * GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * ****ENTRY PARAMETERS******************************** * * A11= FDB ADDRESS * FDBSNR,FDBRRO,FDBCEX * ****EXIT PARAMETERS********************************* * * A1,A2 = LOG RECORD NO * NUMBER OF A14 LEVELS = 4 (WORDS) * ****USED REGISTERS********************************** * * A6,A7 * ****************************************************** EJECT DMSUBR GTLGRN EQU * ST A4,-4,A14 SAVE A4 LD A1,FDBSNR,A11 LD A2,FDBSNR+2,A11 REL SECT NR LDK A6,0 LDK A7,1 CF A14,DSUMOD LDK A6,0 LC A6,FDBBLZ,A11 BLOCK SIZE CF A14,DIVMOD LDR A6,A2 BLOCKS - 1 * * CONVERT FDBRRO TO NO OF RECORDS * LDK A7,0 LC A7,FDBBLF,A11 BLOCK FACTOR CF A14,MPYMOD A1,A2=A6*A7 LD A4,FDBRLE,A11 ADK A4,1 RECORD LENGTH LDK A7,0 RECORD COUNTER LD A6,FDBRRO,A11 OFFSET IN SECTOR ADK A6,1 GTL150 EQU * ADK A7,1 RECORD COUNTER SUR A6,A4 RB(NN) GTL150 COUNT RECORDS IN SECTOR * * ADD SECT*BLOCFACT AND RECINCURRSECT * ADR A2,A7 RF(O) GTL160 OVERFLOW RF GTL170 GTL160 EQU * ANKL A2,/7FFF DELETE OVERFLOWBIT ADK A1,1 ADD CARRY GTL170 EQU * LD A4,-4,A14 SAVED REGISTER RTN A14 EJECT * * RECECB=MOVE RECORD NUMBER TO ECBCW1,ECBCW2 * * ENTRY: A11=FDB ADDRESS * A4=BUFFER ADDRESS FROM SUB FNDKEY * A9=ECB ADDRESS * * EXIT: A11,A4,A9=NOT CHANGED * A1,A2 =USED REGISTERS * NUMBER OF A14 LEVELS = 2 (WORDS) * RECECB EQU * LD A2,FDBRRO,A11 RECORD ADDR ADKL A2,BUFSTA ADR A2,A4 REC ADDR LD A1,FDBRLE,A11 RECORD LENGTH SUK A1,6 ADR A2,A1 * * MOVE LOG REC NO TO ECB * LDK A1,0 LC A1,3,A2 ST A1,ECBCW,A9 LC A1,4,A2 ECR A1,A1 LC A1,5,A2 ST A1,ECBCW+2,A9 RTN A14 XIF END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SDMSUB REL 11.0 81-05-22 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005c Head {h00=0x001a, h01=0x0050, text=» =6,FORMATTING ERROR«, t00=0x0000, t01=0x0042}
0x005c…007c Head {h00=0x001c, h01=0x0050, text=» =6,REL 11.0 81-05-12 «, t00=0x0000, t01=0x0060}
0x007c…00a0 Head {h00=0x0020, h01=0x0050, text=» =5,CONDITION FOR CR,DE,EX«, t00=0x0000, t01=0x0080}
0x00a0…00c0 Head {h00=0x001c, h01=0x0050, text=» =5,REL 11.0 81-03-20 «, t00=0x0000, t01=0x00a4}
0x00c0…00fe Head {h00=0x003a, h01=0x0050, text=» =4,BLOCK BUFFER CHAIN DESTR. WHEN FORM. WITH LEN=0 «, t00=0x0000, t01=0x00c4}
0x00fe…011e Head {h00=0x001c, h01=0x0050, text=» =4,REL 11.0 81-03-17 «, t00=0x0000, t01=0x0102}
0x011e…014c Head {h00=0x002a, h01=0x0050, text=» =3,NBR. OF SAME CHAR. IN KEY WRONG «, t00=0x0000, t01=0x0122}
0x014c…016c Head {h00=0x001c, h01=0x0050, text=» =3,REL 11.0 81-03-13 «, t00=0x0000, t01=0x0150}
0x016c…01a2 Head {h00=0x0032, h01=0x0050, text=» =2,ADDRESS COMPARE WHEN FORMAT BLOCK,BAD =1«, t00=0x0000, t01=0x0170}
0x01a2…01c4 Head {h00=0x001e, h01=0x0050, text=» =2,REL 11.0 81-02-04 =1«, t00=0x0001, t01=0x0016}
0x01c4…01f4 Head {h00=0x002c, h01=0x0050, text=» =1,SUB. TO FORMAT BLOCK BUFFER CHNG. «, t00=0x0001, t01=0x0038}
0x01f4…0214 Head {h00=0x001c, h01=0x0050, text=» =1,REL 11.0 81-01-26 «, t00=0x0001, t01=0x0068}
0x0214…0250 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x0088}
0x0250…025a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c4}
0x025a…0282 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0001, t01=0x00ce}
0x0282…028c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f6}
0x028c…02b4 Head {h00=0x0024, h01=0x0050, text=»* SDMSUB = COMMON SDM-ROUTINES«, t00=0x0001, t01=0x0100}
0x02b4…02be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02be…02c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0132}
0x02c8…02d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013c}
0x02d2…02dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0146}
0x02dc…02e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0150}
0x02e6…02f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015a}
0x02f0…032c Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x0164}
0x032c…0368 Head {h00=0x0038, h01=0x0050, text=»****THIS MODULE IS ACTIVATED FROM :*****************«, t00=0x0002, t01=0x0010}
0x0368…0372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004c}
0x0372…0392 Head {h00=0x001c, h01=0x0050, text=»* DMTASK,TIODM,DMTASS «, t00=0x0002, t01=0x0056}
0x0392…039c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0076}
0x039c…03b4 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x0080}
0x03b4…03cc Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0098}
0x03cc…03e4 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x00b0}
0x03e4…03ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c8}
0x03ee…0404 Head {h00=0x0012, h01=0x0050, text=» ENTRY RELPRO «, t00=0x0002, t01=0x00d2}
0x0404…0418 Head {h00=0x0010, h01=0x0050, text=» ENTRY MOVBW«, t00=0x0002, t01=0x00e8}
0x0418…0442 Head {h00=0x0026, h01=0x0050, text=» ENTRY EATEST,EASETB,EARELB,CRNGET«, t00=0x0002, t01=0x00fc}
0x0442…0458 Head {h00=0x0012, h01=0x0050, text=» ENTRY CALSNO «, t00=0x0002, t01=0x0126}
0x0458…046e Head {h00=0x0012, h01=0x0050, text=» ENTRY GTBKBU «, t00=0x0002, t01=0x013c}
0x046e…048a Head {h00=0x0018, h01=0x0050, text=» ENTRY CARRBL,CRRBL «, t00=0x0002, t01=0x0152}
0x048a…04ae Head {h00=0x0020, h01=0x0050, text=» ENTRY FMIOOP,FMIOCL,FMIORD «, t00=0x0002, t01=0x016e}
0x04ae…04d2 (3, 0, 400) Head {h00=0x0020, h01=0x0050, text=» ENTRY FMIORF,FMIOWR,FMIODL «, t00=0x0003, t01=0x0004}
0x04d2…04ee Head {h00=0x0018, h01=0x0050, text=» ENTRY FMIOCR,FMIOEX«, t00=0x0003, t01=0x0028}
0x04ee…0514 Head {h00=0x0022, h01=0x0050, text=» ENTRY FRMFIL,FORMAT,FORMER =1«, t00=0x0003, t01=0x0044}
0x0514…0530 Head {h00=0x0018, h01=0x0050, text=» ENTRY RLBLKB,CHKRCD«, t00=0x0003, t01=0x006a}
0x0530…0546 Head {h00=0x0012, h01=0x0050, text=» ENTRY CASZEN «, t00=0x0003, t01=0x0086}
0x0546…0554 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x009c}
0x0554…055e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00aa}
0x055e…05a2 Head {h00=0x0040, h01=0x0050, text=»* E N T R I E S F O R I N D E X S U B R O U T I N E S «, t00=0x0003, t01=0x00b4}
0x05a2…05ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f8}
0x05ac…05b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0102}
0x05b6…05ce Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0003, t01=0x010c}
0x05ce…05e6 Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x0124}
0x05e6…05fe Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0003, t01=0x013c}
0x05fe…0608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0154}
0x0608…061e Head {h00=0x0012, h01=0x0050, text=» ENTRY CHKKEY «, t00=0x0003, t01=0x015e}
0x061e…0634 Head {h00=0x0012, h01=0x0050, text=» ENTRY RDNXTR «, t00=0x0003, t01=0x0174}
0x0634…064a Head {h00=0x0012, h01=0x0050, text=» ENTRY FNDKEY «, t00=0x0003, t01=0x018a}
0x064a…0660 Head {h00=0x0012, h01=0x0050, text=» ENTRY CRNUPD «, t00=0x0004, t01=0x0010}
0x0660…0676 Head {h00=0x0012, h01=0x0050, text=» ENTRY GTLGRN «, t00=0x0004, t01=0x0026}
0x0676…068c Head {h00=0x0012, h01=0x0050, text=» ENTRY CRNCIF «, t00=0x0004, t01=0x003c}
0x068c…06a2 Head {h00=0x0012, h01=0x0050, text=» ENTRY RECECB «, t00=0x0004, t01=0x0052}
0x06a2…06b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0068}
0x06b0…06ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0076}
0x06ba…06d4 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0004, t01=0x0080}
0x06d4…06ee Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x009a}
0x06ee…0708 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0004, t01=0x00b4}
0x0708…0712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ce}
0x0712…071c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d8}
0x071c…0754 Head {h00=0x0034, h01=0x0050, text=» EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO«, t00=0x0004, t01=0x00e2}
0x0754…0770 Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBBLF,FDBADF«, t00=0x0004, t01=0x011a}
0x0770…078c Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBBLZ,FWTFNR«, t00=0x0004, t01=0x0136}
0x078c…07b6 Head {h00=0x0026, h01=0x0050, text=» EXTRN FDBSTA,SCTTCT,TTB:SA,ECBEL «, t00=0x0004, t01=0x0152}
0x07b6…07ec Head {h00=0x0032, h01=0x0050, text=» EXTRN FDBECB,DWTECB,DWTOR,BUFSTA,BUFDMI,BUFOR«, t00=0x0004, t01=0x017c}
0x07ec…0810 Head {h00=0x0020, h01=0x0050, text=» EXTRN FDBLRN,FDBMIA,FDBMRO «, t00=0x0005, t01=0x0022}
0x0810…0836 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRC,ECBFC,ECBCW,ECBBA«, t00=0x0005, t01=0x0046}
0x0836…0852 Head {h00=0x0018, h01=0x0050, text=» EXTRN DIVMOD,MPYMOD«, t00=0x0005, t01=0x006c}
0x0852…0868 Head {h00=0x0012, h01=0x0050, text=» EXTRN CRNTID «, t00=0x0005, t01=0x0088}
0x0868…087e Head {h00=0x0012, h01=0x0050, text=» EXTRN SDMGBU «, t00=0x0005, t01=0x009e}
0x087e…08a2 Head {h00=0x0020, h01=0x0050, text=» EXTRN CRNQUE,GETBLK,FREQUE «, t00=0x0005, t01=0x00b4}
0x08a2…08b8 Head {h00=0x0012, h01=0x0050, text=» EXTRN CRBUFL «, t00=0x0005, t01=0x00d8}
0x08b8…08ce Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBDBR «, t00=0x0005, t01=0x00ee}
0x08ce…08ee Head {h00=0x001c, h01=0x0050, text=» EXTRN HALT,DSUMOD,ECBRL«, t00=0x0005, t01=0x0104}
0x08ee…090a Head {h00=0x0018, h01=0x0050, text=» EXTRN EOMERR,RETRIE«, t00=0x0005, t01=0x0124}
0x090a…092c Head {h00=0x001e, h01=0x0050, text=» EXTRN REQER2,QTJOB,TDISP «, t00=0x0005, t01=0x0140}
0x092c…0950 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTTAB,MONMMU,TTB:MT «, t00=0x0005, t01=0x0162}
0x0950…0966 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBOMD «, t00=0x0005, t01=0x0186}
0x0966…097a Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVFW«, t00=0x0006, t01=0x000c}
0x097a…0990 Head {h00=0x0012, h01=0x0050, text=» EXTRN ADDMOD «, t00=0x0006, t01=0x0020}
0x0990…09ac Head {h00=0x0018, h01=0x0050, text=» EXTRN SDMRBU,CLRBUF«, t00=0x0006, t01=0x0036}
0x09ac…09d2 Head {h00=0x0022, h01=0x0050, text=» EXTRN BLKMXL MAX BLOCK LENGTH«, t00=0x0006, t01=0x0052}
0x09d2…09ec Head {h00=0x0016, h01=0x0050, text=» EXTRN EOFRC,NOKEY«, t00=0x0006, t01=0x0078}
0x09ec…0a02 Head {h00=0x0012, h01=0x0050, text=» EXTRN RTNA14 «, t00=0x0006, t01=0x0092}
0x0a02…0a2c Head {h00=0x0026, h01=0x0050, text=» EXTRN FPB:RL,FPB:BF,FPB:S1,SIZDIF«, t00=0x0006, t01=0x00a8}
0x0a2c…0a4c Head {h00=0x001c, h01=0x0050, text=» EJECT SDMSUB TOSSIO«, t00=0x0006, t01=0x00d2}
0x0a4c…0a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f2}
0x0a56…0a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fc}
0x0a60…0a92 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x0106}
0x0a92…0a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0138}
0x0a9c…0aba Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0006, t01=0x0142}
0x0aba…0ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0160}
0x0ac4…0af6 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0006, t01=0x016a}
0x0af6…0b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000c}
0x0b00…0b32 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0007, t01=0x0016}
0x0b32…0b60 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x0048}
0x0b60…0b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0076}
0x0b6a…0b7e Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0007, t01=0x0080}
0x0b7e…0b90 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0007, t01=0x0094}
0x0b90…0ba8 Head {h00=0x0014, h01=0x0050, text=»INDXAC EQU 00001«, t00=0x0007, t01=0x00a6}
0x0ba8…0bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00be}
0x0bb2…0bde Head {h00=0x0028, h01=0x0050, text=»* A VERSION LEAVING OUT OPEN MODES: «, t00=0x0007, t01=0x00c8}
0x0bde…0c0c Head {h00=0x002a, h01=0x0050, text=»* OPEN OUTPUT,OPEN EXTEND AND DISCARD «, t00=0x0007, t01=0x00f4}
0x0c0c…0c32 Head {h00=0x0022, h01=0x0050, text=»* IS OBTAINED BY SETTING Y:C=0«, t00=0x0007, t01=0x0122}
0x0c32…0c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0148}
0x0c3c…0c52 Head {h00=0x0012, h01=0x0050, text=»X:B EQU 0 =5 «, t00=0x0007, t01=0x0152}
0x0c52…0c70 Head {h00=0x001a, h01=0x0050, text=»CRDEEX EQU 00000 =5 «, t00=0x0007, t01=0x0168}
0x0c70…0c7e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0186}
0x0c7e…0c88 (8, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0004}
0x0c88…0cca Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE RELEASES PROTECTION AT END OF TRANSACTION«, t00=0x0008, t01=0x000e}
0x0cca…0cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0050}
0x0cd4…0d00 Head {h00=0x0028, h01=0x0050, text=»* ENTRY : A3 = DM INTERNAL USER ID«, t00=0x0008, t01=0x005a}
0x0d00…0d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0086}
0x0d0a…0d2c Head {h00=0x001e, h01=0x0050, text=»* USED REGS A1 - A5 , A9«, t00=0x0008, t01=0x0090}
0x0d2c…0d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b2}
0x0d36…0d60 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 4 (WORDS)«, t00=0x0008, t01=0x00bc}
0x0d60…0d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e6}
0x0d6a…0d92 Head {h00=0x0024, h01=0x0050, text=»RELPRO EQU * RELEASE PROTECTION «, t00=0x0008, t01=0x00f0}
0x0d92…0db6 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A11 SAVE FDB ADDRESS«, t00=0x0008, t01=0x0118}
0x0db6…0dde Head {h00=0x0024, h01=0x0050, text=» LDKL A11,FDBSTA FIRST FWT ADDR «, t00=0x0008, t01=0x013c}
0x0dde…0df2 Head {h00=0x0010, h01=0x0050, text=»REL050 EQU *«, t00=0x0008, t01=0x0164}
0x0df2…0e06 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A11«, t00=0x0008, t01=0x0178}
0x0e06…0e18 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/1«, t00=0x0008, t01=0x018c}
0x0e18…0e36 Head {h00=0x001a, h01=0x0050, text=» RF(Z) REL053 NOT USED«, t00=0x0009, t01=0x000e}
0x0e36…0e6a Head {h00=0x0030, h01=0x0050, text=» LDKL A1,/C000 REMOVE BUFFERS FOR THIS TASK «, t00=0x0009, t01=0x002c}
0x0e6a…0e80 Head {h00=0x0012, h01=0x0050, text=» CF A14,EARELB«, t00=0x0009, t01=0x0060}
0x0e80…0e8c Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0009, t01=0x0076}
0x0e8c…0ea0 Head {h00=0x0010, h01=0x0050, text=»REL053 EQU *«, t00=0x0009, t01=0x0082}
0x0ea0…0eb6 Head {h00=0x0012, h01=0x0050, text=» LDR* A11,A11 «, t00=0x0009, t01=0x0096}
0x0eb6…0eda Head {h00=0x0020, h01=0x0050, text=» ANKL A11,/FFFE SKIP USE BIT«, t00=0x0009, t01=0x00ac}
0x0eda…0efa Head {h00=0x001c, h01=0x0050, text=» RB(NZ) REL050 MORE FDBS«, t00=0x0009, t01=0x00d0}
0x0efa…0f1a Head {h00=0x001c, h01=0x0050, text=» LDR A11,A9 FDB ADDRESS «, t00=0x0009, t01=0x00f0}
0x0f1a…0f2a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0009, t01=0x0110}
0x0f2a…0f38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0120}
0x0f38…0f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012e}
0x0f42…0f58 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0138}
0x0f58…0f6e Head {h00=0x0012, h01=0x0050, text=»* MOVBW * «, t00=0x0009, t01=0x014e}
0x0f6e…0f84 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0164}
0x0f84…0f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017a}
0x0f8e…0fb4 Head {h00=0x0022, h01=0x0050, text=»* ENTRY DMTBM BYTE MOVE «, t00=0x0009, t01=0x0184}
0x0fb4…0fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x001a}
0x0fbe…0fe4 Head {h00=0x0022, h01=0x0050, text=»* INPUT A1 = FROM ADDRESS «, t00=0x000a, t01=0x0024}
0x0fe4…1014 Head {h00=0x002c, h01=0x0050, text=»* A3 = NO OF BYTES TO BE MOVED«, t00=0x000a, t01=0x004a}
0x1014…1038 Head {h00=0x0020, h01=0x0050, text=»* A2 = TO ADDRESS «, t00=0x000a, t01=0x007a}
0x1038…1042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009e}
0x1042…104c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a8}
0x104c…106e Head {h00=0x001e, h01=0x0050, text=»* OUTPUT A3 = NEXT CHAR «, t00=0x000a, t01=0x00b2}
0x106e…1078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d4}
0x1078…10a2 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x000a, t01=0x00de}
0x10a2…10ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0108}
0x10ac…10c0 Head {h00=0x0010, h01=0x0050, text=»DMTB10 EQU *«, t00=0x000a, t01=0x0112}
0x10c0…10d4 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A14«, t00=0x000a, t01=0x0126}
0x10d4…10e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000a, t01=0x013a}
0x10e4…10ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014a}
0x10ee…1122 Head {h00=0x0030, h01=0x0050, text=»* MOVBW HAS THE SAME FUNCTION AS DMTBM BUT«, t00=0x000a, t01=0x0154}
0x1122…1140 Head {h00=0x001a, h01=0x0050, text=»* MOVES FROM THE END«, t00=0x000a, t01=0x0188}
0x1140…114a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0016}
0x114a…115e Head {h00=0x0010, h01=0x0050, text=»MOVBW EQU * «, t00=0x000b, t01=0x0020}
0x115e…1172 Head {h00=0x0010, h01=0x0050, text=» STR A4,A14 «, t00=0x000b, t01=0x0034}
0x1172…1184 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x000b, t01=0x0048}
0x1184…1196 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x000b, t01=0x005a}
0x1196…11aa Head {h00=0x0010, h01=0x0050, text=»DMTB20 EQU *«, t00=0x000b, t01=0x006c}
0x11aa…11bc Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x000b, t01=0x0080}
0x11bc…11d2 Head {h00=0x0012, h01=0x0050, text=» RB(N) DMTB10 «, t00=0x000b, t01=0x0092}
0x11d2…11e4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000b, t01=0x00a8}
0x11e4…11f6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x000b, t01=0x00ba}
0x11f6…1208 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x000b, t01=0x00cc}
0x1208…121a Head {h00=0x000e, h01=0x0050, text=» SCR A4,A2«, t00=0x000b, t01=0x00de}
0x121a…122c Head {h00=0x000e, h01=0x0050, text=» RB DMTB20«, t00=0x000b, t01=0x00f0}
0x122c…1244 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x000b, t01=0x0102}
0x1244…1280 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x000b, t01=0x011a}
0x1280…128a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0156}
0x128a…12ca Head {h00=0x003c, h01=0x0050, text=»* EATEST WILL SEARCH THE EA-LINK FOR A LOG RECORD NO. «, t00=0x000b, t01=0x0160}
0x12ca…12d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0010}
0x12d4…1310 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x000c, t01=0x001a}
0x1310…131a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0056}
0x131a…1336 Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADRESS «, t00=0x000c, t01=0x0060}
0x1336…1358 Head {h00=0x001e, h01=0x0050, text=»* A1,A2 = LOG RECORD NO «, t00=0x000c, t01=0x007c}
0x1358…1362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009e}
0x1362…137e Head {h00=0x0018, h01=0x0050, text=»* CF A14,EATEST «, t00=0x000c, t01=0x00a8}
0x137e…1388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c4}
0x1388…13c4 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000c, t01=0x00ce}
0x13c4…13ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x010a}
0x13ce…13f0 Head {h00=0x001e, h01=0x0050, text=»* A1,A2,A11 = UNCHANGED «, t00=0x000c, t01=0x0114}
0x13f0…1412 Head {h00=0x001e, h01=0x0050, text=»* A3 = 0 NO EA AT ALL «, t00=0x000c, t01=0x0136}
0x1412…1440 Head {h00=0x002a, h01=0x0050, text=»* = +1 EA FOUND FOR ACTUAL TASK «, t00=0x000c, t01=0x0158}
0x1440…146e Head {h00=0x002a, h01=0x0050, text=»* = -1 EA FOUND FO R OTHER TASK «, t00=0x000c, t01=0x0186}
0x146e…1498 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x000d, t01=0x0024}
0x1498…14a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004e}
0x14a2…14de Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x000d, t01=0x0058}
0x14de…14e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0094}
0x14e8…14f0 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x009e}
0x14f0…150c Head {h00=0x0018, h01=0x0050, text=»BLKTID EQU 4 TASK ID«, t00=0x000d, t01=0x00a6}
0x150c…1540 Head {h00=0x0030, h01=0x0050, text=»BLKRNM EQU 5 RECORD NUMBER MOST SIGNIFICANT «, t00=0x000d, t01=0x00c2}
0x1540…1574 Head {h00=0x0030, h01=0x0050, text=»BLKRNL EQU 2 RECORD NUMBER LEAST SIGNIFICANT«, t00=0x000d, t01=0x00f6}
0x1574…158c Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x000d, t01=0x012a}
0x158c…15a0 Head {h00=0x0010, h01=0x0050, text=»EATEST EQU *«, t00=0x000d, t01=0x0142}
0x15a0…15c6 Head {h00=0x0022, h01=0x0050, text=» LD A3,FDBEAL,A11 BUFFER QUEUE«, t00=0x000d, t01=0x0156}
0x15c6…15d8 Head {h00=0x000e, h01=0x0050, text=» RF EAT030«, t00=0x000d, t01=0x017c}
0x15d8…15ec Head {h00=0x0010, h01=0x0050, text=»EAT020 EQU *«, t00=0x000d, t01=0x018e}
0x15ec…1610 Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A3 NEXT BUFFER ADR «, t00=0x000e, t01=0x0012}
0x1610…1624 Head {h00=0x0010, h01=0x0050, text=»EAT030 EQU *«, t00=0x000e, t01=0x0036}
0x1624…164c Head {h00=0x0024, h01=0x0050, text=» RF(Z) EAT100 EMPTY QUEUE,NO EA «, t00=0x000e, t01=0x004a}
0x164c…1656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0072}
0x1656…1674 Head {h00=0x001a, h01=0x0050, text=»* SEARCH LOG REC NO «, t00=0x000e, t01=0x007c}
0x1674…167e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009a}
0x167e…16a6 Head {h00=0x0024, h01=0x0050, text=» CC A1,BLKRNM,A3 FIRST CHARACTER«, t00=0x000e, t01=0x00a4}
0x16a6…16bc Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAT020«, t00=0x000e, t01=0x00cc}
0x16bc…16e6 Head {h00=0x0026, h01=0x0050, text=» CW A2,BLKRNL,A3 2 AND 3 CHARACTER«, t00=0x000e, t01=0x00e2}
0x16e6…16fc Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAT020«, t00=0x000e, t01=0x010c}
0x16fc…1706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0122}
0x1706…1722 Head {h00=0x0018, h01=0x0050, text=»* RECORD NO FOUND «, t00=0x000e, t01=0x012c}
0x1722…172c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0148}
0x172c…1744 Head {h00=0x0014, h01=0x0050, text=» LC A3,BLKTID,A3«, t00=0x000e, t01=0x0152}
0x1744…1766 Head {h00=0x001e, h01=0x0050, text=» CC A3,FDBTNR,A11 TASK ID «, t00=0x000e, t01=0x016a}
0x1766…177c Head {h00=0x0012, h01=0x0050, text=» RF(E) EAT060 «, t00=0x000e, t01=0x018c}
0x177c…179e Head {h00=0x001e, h01=0x0050, text=» LDKL A3,-1 EA OTHER TASK «, t00=0x000f, t01=0x0012}
0x179e…17b0 Head {h00=0x000e, h01=0x0050, text=» RF EAT100«, t00=0x000f, t01=0x0034}
0x17b0…17c4 Head {h00=0x0010, h01=0x0050, text=»EAT060 EQU *«, t00=0x000f, t01=0x0046}
0x17c4…17e4 Head {h00=0x001c, h01=0x0050, text=» LDK A3,1 EA SAME ATASK «, t00=0x000f, t01=0x005a}
0x17e4…17f8 Head {h00=0x0010, h01=0x0050, text=»EAT100 EQU *«, t00=0x000f, t01=0x007a}
0x17f8…180c Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x000f, t01=0x008e}
0x180c…181e Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x000f, t01=0x00a2}
0x181e…1830 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x000f, t01=0x00b4}
0x1830…1848 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x000f, t01=0x00c6}
0x1848…1884 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x000f, t01=0x00de}
0x1884…188e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011a}
0x188e…18d4 Head {h00=0x0042, h01=0x0050, text=»* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK«, t00=0x000f, t01=0x0124}
0x18d4…1924 Head {h00=0x004c, h01=0x0050, text=»* IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS «, t00=0x000f, t01=0x016a}
0x1924…192e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x192e…196a Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0010, t01=0x0034}
0x196a…1974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0070}
0x1974…198e Head {h00=0x0016, h01=0x0050, text=»* A11= FDB ADDR «, t00=0x0010, t01=0x007a}
0x198e…19b4 Head {h00=0x0022, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO «, t00=0x0010, t01=0x0094}
0x19b4…19be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ba}
0x19be…19da Head {h00=0x0018, h01=0x0050, text=»* CF A14,EASETB «, t00=0x0010, t01=0x00c4}
0x19da…19e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e0}
0x19e4…1a20 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0010, t01=0x00ea}
0x1a20…1a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0126}
0x1a2a…1a44 Head {h00=0x0016, h01=0x0050, text=»* A11= FDB ADDR «, t00=0x0010, t01=0x0130}
0x1a44…1a6e Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0010, t01=0x014a}
0x1a6e…1a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0174}
0x1a78…1ab4 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0010, t01=0x017e}
0x1ab4…1abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002a}
0x1abe…1ad0 Head {h00=0x000e, h01=0x0050, text=»* A1,A4 «, t00=0x0011, t01=0x0034}
0x1ad0…1ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0046}
0x1ada…1b1a Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0011, t01=0x0050}
0x1b1a…1b32 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0011, t01=0x0090}
0x1b32…1b46 Head {h00=0x0010, h01=0x0050, text=»EASETB EQU *«, t00=0x0011, t01=0x00a8}
0x1b46…1b58 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0011, t01=0x00bc}
0x1b58…1b7a Head {h00=0x001e, h01=0x0050, text=» LC A1,FDBTNR,A11 TASK ID «, t00=0x0011, t01=0x00ce}
0x1b7a…1b8c Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0011, t01=0x00f0}
0x1b8c…1b98 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0011, t01=0x0102}
0x1b98…1bc8 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETBLK GET BUFF AND STORE A1,A2 «, t00=0x0011, t01=0x010e}
0x1bc8…1bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x013e}
0x1bd2…1bf0 Head {h00=0x001a, h01=0x0050, text=»* LINK BUFFER TO FDB«, t00=0x0011, t01=0x0148}
0x1bf0…1bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0166}
0x1bfa…1c1e Head {h00=0x0020, h01=0x0050, text=» LD A1,FDBEAL,A11 LINK ROOT «, t00=0x0011, t01=0x0170}
0x1c1e…1c38 (18, 0, 400) Head {h00=0x0016, h01=0x0050, text=» STR A1,A4 THREAD «, t00=0x0012, t01=0x0004}
0x1c38…1c5a Head {h00=0x001e, h01=0x0050, text=» ST A4,FDBEAL,A11 NEW ROOT«, t00=0x0012, t01=0x001e}
0x1c5a…1c66 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0012, t01=0x0040}
0x1c66…1c76 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x004c}
0x1c76…1c8e Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0012, t01=0x005c}
0x1c8e…1cca Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0012, t01=0x0074}
0x1cca…1cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b0}
0x1cd4…1d10 Head {h00=0x0038, h01=0x0050, text=»* EARELB WILL RELEASE EA BUFFERS AND CONNECT THEM «, t00=0x0012, t01=0x00ba}
0x1d10…1d2e Head {h00=0x001a, h01=0x0050, text=»* TO THE FREE LINK. «, t00=0x0012, t01=0x00f6}
0x1d2e…1d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0114}
0x1d38…1d74 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0012, t01=0x011e}
0x1d74…1d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015a}
0x1d7e…1d9a Head {h00=0x0018, h01=0x0050, text=»* A11= FDB-ADDRESS«, t00=0x0012, t01=0x0164}
0x1d9a…1dc0 Head {h00=0x0022, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO «, t00=0x0012, t01=0x0180}
0x1dc0…1e06 Head {h00=0x0042, h01=0x0050, text=»* A1: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB «, t00=0x0013, t01=0x0016}
0x1e06…1e20 Head {h00=0x0016, h01=0x0050, text=»* AND A3 = 0«, t00=0x0013, t01=0x005c}
0x1e20…1e4e Head {h00=0x002a, h01=0x0050, text=»* ARE REMOVED. «, t00=0x0013, t01=0x0076}
0x1e4e…1e6e Head {h00=0x001c, h01=0x0050, text=»* A1: BIT 0=1,BIT 1=1 «, t00=0x0013, t01=0x00a4}
0x1e6e…1ea6 Head {h00=0x0034, h01=0x0050, text=»* AND A3 NOT EQ 0 ALL BUFFERS ON FDB WITH«, t00=0x0013, t01=0x00c4}
0x1ea6…1eea Head {h00=0x0040, h01=0x0050, text=»* TASK ID AS SPEC IN A3 ARE RELEASED «, t00=0x0013, t01=0x00fc}
0x1eea…1f2a Head {h00=0x003c, h01=0x0050, text=»* BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB ARE REMOVED.«, t00=0x0013, t01=0x0140}
0x1f2a…1f78 Head {h00=0x004a, h01=0x0050, text=»* BIT 0=0 THE FIRST BUFFER WITH TASK ID AND LOG REC NO «, t00=0x0013, t01=0x0180}
0x1f78…1fac Head {h00=0x0030, h01=0x0050, text=»* AS SPEC IS REMOVED.«, t00=0x0014, t01=0x003e}
0x1fac…1fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0072}
0x1fb6…1ff2 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0014, t01=0x007c}
0x1ff2…1ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b8}
0x1ffc…201e Head {h00=0x001e, h01=0x0050, text=»* A11,A3,A1 = UNCHANGED «, t00=0x0014, t01=0x00c2}
0x201e…2048 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0014, t01=0x00e4}
0x2048…2052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x010e}
0x2052…208e Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0014, t01=0x0118}
0x208e…2098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0154}
0x2098…20ac Head {h00=0x0010, h01=0x0050, text=»* A2,A4,A5«, t00=0x0014, t01=0x015e}
0x20ac…20b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0172}
0x20b6…20f0 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0014, t01=0x017c}
0x20f0…20fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0026}
0x20fa…211e Head {h00=0x0020, h01=0x0050, text=»* THE ROUTINE SETS INHIBIT«, t00=0x0015, t01=0x0030}
0x211e…2136 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0015, t01=0x0054}
0x2136…214a Head {h00=0x0010, h01=0x0050, text=»EARELB EQU *«, t00=0x0015, t01=0x006c}
0x214a…215e Head {h00=0x0010, h01=0x0050, text=» LDR A4,A11 «, t00=0x0015, t01=0x0080}
0x215e…217e Head {h00=0x001c, h01=0x0050, text=» ADKL A4,FDBEAL ROOT ADR«, t00=0x0015, t01=0x0094}
0x217e…2192 Head {h00=0x0010, h01=0x0050, text=»EAR020 EQU *«, t00=0x0015, t01=0x00b4}
0x2192…21b2 Head {h00=0x001c, h01=0x0050, text=» LDR A5,A4 SAVE OLD ROOT«, t00=0x0015, t01=0x00c8}
0x21b2…21d6 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A4 NEXT BUFFER ADR «, t00=0x0015, t01=0x00e8}
0x21d6…21f8 Head {h00=0x001e, h01=0x0050, text=» RF(Z) EAR100 EA LINK END «, t00=0x0015, t01=0x010c}
0x21f8…2212 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 REC NO «, t00=0x0015, t01=0x012e}
0x2212…223c Head {h00=0x0026, h01=0x0050, text=» RF(N) EAR050 RELEASE MANY BUFFERS«, t00=0x0015, t01=0x0148}
0x223c…2246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0172}
0x2246…2264 Head {h00=0x001a, h01=0x0050, text=»* SEARCH LOG REC NO «, t00=0x0015, t01=0x017c}
0x2264…226e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000a}
0x226e…2286 Head {h00=0x0014, h01=0x0050, text=» CC A1,BLKRNM,A4«, t00=0x0016, t01=0x0014}
0x2286…229c Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x0016, t01=0x002c}
0x229c…22b4 Head {h00=0x0014, h01=0x0050, text=» CW A2,BLKRNL,A4«, t00=0x0016, t01=0x0042}
0x22b4…22ca Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x0016, t01=0x005a}
0x22ca…22dc Head {h00=0x000e, h01=0x0050, text=» RF EAR060«, t00=0x0016, t01=0x0070}
0x22dc…22f0 Head {h00=0x0010, h01=0x0050, text=»EAR050 EQU *«, t00=0x0016, t01=0x0082}
0x22f0…2312 Head {h00=0x001e, h01=0x0050, text=» CWK A1,/A000 CHECK BIT 1 «, t00=0x0016, t01=0x0096}
0x2312…2346 Head {h00=0x0030, h01=0x0050, text=» RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED«, t00=0x0016, t01=0x00b8}
0x2346…2364 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A3 REQ TASK ID«, t00=0x0016, t01=0x00ec}
0x2364…2388 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) EAR065 TASK ID IN A3«, t00=0x0016, t01=0x010a}
0x2388…239c Head {h00=0x0010, h01=0x0050, text=»EAR060 EQU *«, t00=0x0016, t01=0x012e}
0x239c…23a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0142}
0x23a6…23c4 Head {h00=0x001a, h01=0x0050, text=»* SEARCH TASK IDENT «, t00=0x0016, t01=0x014c}
0x23c4…23ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x016a}
0x23ce…23f0 Head {h00=0x001e, h01=0x0050, text=» LC A2,FDBTNR,A11 TASK ID «, t00=0x0016, t01=0x0174}
0x23f0…2404 Head {h00=0x0010, h01=0x0050, text=»EAR065 EQU *«, t00=0x0017, t01=0x0008}
0x2404…241c Head {h00=0x0014, h01=0x0050, text=» CC A2,BLKTID,A4«, t00=0x0017, t01=0x001c}
0x241c…2432 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x0017, t01=0x0034}
0x2432…2440 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x004a}
0x2440…244a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0058}
0x244a…2466 Head {h00=0x0018, h01=0x0050, text=»* EA BUFFER FOUND «, t00=0x0017, t01=0x0062}
0x2466…2470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007e}
0x2470…2484 Head {h00=0x0010, h01=0x0050, text=»EAR080 EQU *«, t00=0x0017, t01=0x0088}
0x2484…24a4 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A4 NEXT BUFADR «, t00=0x0017, t01=0x009c}
0x24a4…24ce Head {h00=0x0026, h01=0x0050, text=» STR A2,A5 REMOVE BUFFER FROM LINK«, t00=0x0017, t01=0x00bc}
0x24ce…24d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e6}
0x24d8…24fa Head {h00=0x001e, h01=0x0050, text=»* RETURN BUFFER TO POOL «, t00=0x0017, t01=0x00f0}
0x24fa…2504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0112}
0x2504…2510 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0017, t01=0x011c}
0x2510…2526 Head {h00=0x0012, h01=0x0050, text=» LD A2,FREQUE «, t00=0x0017, t01=0x0128}
0x2526…2542 Head {h00=0x0018, h01=0x0050, text=» STR A2,A4 NEXT FREE«, t00=0x0017, t01=0x013e}
0x2542…2560 Head {h00=0x001a, h01=0x0050, text=» ST A4,FREQUE NEW ROOT«, t00=0x0017, t01=0x015a}
0x2560…257e Head {h00=0x001a, h01=0x0050, text=» LDR A4,A5 BUFFER ROOT«, t00=0x0017, t01=0x0178}
0x257e…2590 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0018, t01=0x0008}
0x2590…25b2 Head {h00=0x001e, h01=0x0050, text=» RB(N) EAR020 RELEASE MORE«, t00=0x0018, t01=0x001a}
0x25b2…25c6 Head {h00=0x0010, h01=0x0050, text=»EAR100 EQU *«, t00=0x0018, t01=0x003c}
0x25c6…25d6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0050}
0x25d6…25ee Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0018, t01=0x0060}
0x25ee…262a Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0018, t01=0x0078}
0x262a…2634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b4}
0x2634…267c Head {h00=0x0044, h01=0x0050, text=»* CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS«, t00=0x0018, t01=0x00be}
0x267c…26c4 Head {h00=0x0044, h01=0x0050, text=»* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH «, t00=0x0018, t01=0x0106}
0x26c4…2710 Head {h00=0x0048, h01=0x0050, text=»* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE«, t00=0x0018, t01=0x014e}
0x2710…2744 Head {h00=0x0030, h01=0x0050, text=»* THE SYSTEM WILL HALT AND LITE SOP-LAMPS.«, t00=0x0019, t01=0x000a}
0x2744…2770 Head {h00=0x0028, h01=0x0050, text=»* TASK ID IS PLACED IN THE BUFFER «, t00=0x0019, t01=0x003e}
0x2770…277a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006a}
0x277a…27b6 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0019, t01=0x0074}
0x27b6…27c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b0}
0x27c0…27e6 Head {h00=0x0022, h01=0x0050, text=»* A11= FDB ADDRESS DATA FILE«, t00=0x0019, t01=0x00ba}
0x27e6…2810 Head {h00=0x0026, h01=0x0050, text=»* FDBTNR,A11 = TASK NUMBER «, t00=0x0019, t01=0x00e0}
0x2810…283a Head {h00=0x0026, h01=0x0050, text=»* FDBTNR,A11=CALLING TASK NUMBER«, t00=0x0019, t01=0x010a}
0x283a…285e Head {h00=0x0020, h01=0x0050, text=»* FDBCRL,A11=CURRENCY LINK«, t00=0x0019, t01=0x0134}
0x285e…2868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0158}
0x2868…28a4 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0019, t01=0x0162}
0x28a4…28ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000e}
0x28ae…28c8 Head {h00=0x0016, h01=0x0050, text=»* A11= UNCHANGED«, t00=0x001a, t01=0x0018}
0x28c8…28f4 Head {h00=0x0028, h01=0x0050, text=»* A2 = ADDRESS OF FOUND CRN-BUFFER«, t00=0x001a, t01=0x0032}
0x28f4…291e Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x001a, t01=0x005e}
0x291e…2928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0088}
0x2928…2964 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x001a, t01=0x0092}
0x2964…296e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ce}
0x296e…2980 Head {h00=0x000e, h01=0x0050, text=»* A1,A3 «, t00=0x001a, t01=0x00d8}
0x2980…298a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ea}
0x298a…29c4 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001a, t01=0x00f4}
0x29c4…29ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012e}
0x29ce…29e6 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x001a, t01=0x0138}
0x29e6…29fa Head {h00=0x0010, h01=0x0050, text=»CRNGET EQU *«, t00=0x001a, t01=0x0150}
0x29fa…2a12 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,FDBCRL «, t00=0x001a, t01=0x0164}
0x2a12…2a2e Head {h00=0x0018, h01=0x0050, text=» ADR A2,A11 CRN ROOT«, t00=0x001a, t01=0x017c}
0x2a2e…2a42 Head {h00=0x0010, h01=0x0050, text=»CRN020 EQU *«, t00=0x001b, t01=0x0008}
0x2a42…2a62 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A2 NEXT BUFFER «, t00=0x001b, t01=0x001c}
0x2a62…2a80 Head {h00=0x001a, h01=0x0050, text=» RF(Z) CRN100 LINK END«, t00=0x001b, t01=0x003c}
0x2a80…2a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005a}
0x2a8a…2aa8 Head {h00=0x001a, h01=0x0050, text=»* CHECK ATASK IDENT «, t00=0x001b, t01=0x0064}
0x2aa8…2ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0082}
0x2ab2…2ad4 Head {h00=0x001e, h01=0x0050, text=» LC A3,FDBTNR,A11 TASK ID «, t00=0x001b, t01=0x008c}
0x2ad4…2aec Head {h00=0x0014, h01=0x0050, text=» CC A3,CRNTID,A2«, t00=0x001b, t01=0x00ae}
0x2aec…2b0e Head {h00=0x001e, h01=0x0050, text=» RB(NE) CRN020 OTHER TASK «, t00=0x001b, t01=0x00c6}
0x2b0e…2b2e Head {h00=0x001c, h01=0x0050, text=» RF CRN200 BUFFER FOUND «, t00=0x001b, t01=0x00e8}
0x2b2e…2b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0108}
0x2b38…2b52 Head {h00=0x0016, h01=0x0050, text=»* GET NEW BUFFER«, t00=0x001b, t01=0x0112}
0x2b52…2b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x012c}
0x2b5c…2b70 Head {h00=0x0010, h01=0x0050, text=»CRN100 EQU *«, t00=0x001b, t01=0x0136}
0x2b70…2b7c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001b, t01=0x014a}
0x2b7c…2ba0 Head {h00=0x0020, h01=0x0050, text=» LD A2,CRNQUE FREE LINK ROOT«, t00=0x001b, t01=0x0156}
0x2ba0…2bb6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CRN120«, t00=0x001b, t01=0x017a}
0x2bb6…2bd6 Head {h00=0x001c, h01=0x0050, text=» LDK A1,3 LAMP 10 AND 11«, t00=0x001b, t01=0x0190}
0x2bd6…2bfa Head {h00=0x0020, h01=0x0050, text=» CF A15,HALT NO MORE BUFFERS«, t00=0x001c, t01=0x0020}
0x2bfa…2c0e Head {h00=0x0010, h01=0x0050, text=»CRN120 EQU *«, t00=0x001c, t01=0x0044}
0x2c0e…2c2c Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A2 NEXT FREE «, t00=0x001c, t01=0x0058}
0x2c2c…2c4a Head {h00=0x001a, h01=0x0050, text=» ST A3,CRNQUE UPD ROOT«, t00=0x001c, t01=0x0076}
0x2c4a…2c58 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0094}
0x2c58…2c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a2}
0x2c62…2c86 Head {h00=0x0020, h01=0x0050, text=»* FILL BUFFER WITH ZEROES «, t00=0x001c, t01=0x00ac}
0x2c86…2c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d0}
0x2c90…2cbe Head {h00=0x002a, h01=0x0050, text=» LDKL A3,CRBUFL BUFFER LENGTH IN BYTES«, t00=0x001c, t01=0x00da}
0x2cbe…2cd2 Head {h00=0x0010, h01=0x0050, text=»CRN140 EQU *«, t00=0x001c, t01=0x0108}
0x2cd2…2cf6 Head {h00=0x0020, h01=0x0050, text=» SUK A3,2 ZEROE WORDS 2 - N «, t00=0x001c, t01=0x011c}
0x2cf6…2d1a Head {h00=0x0020, h01=0x0050, text=» RF(NP) CRN160 BUFFER ZEROED«, t00=0x001c, t01=0x0140}
0x2d1a…2d38 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 BUFFER ADR «, t00=0x001c, t01=0x0164}
0x2d38…2d5c Head {h00=0x0020, h01=0x0050, text=» ADR A1,A3 OFFSET IN BUFFER «, t00=0x001c, t01=0x0182}
0x2d5c…2d6c Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x001d, t01=0x0016}
0x2d6c…2d8a Head {h00=0x001a, h01=0x0050, text=» RB CRN140 MORE WORDS «, t00=0x001d, t01=0x0026}
0x2d8a…2d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0044}
0x2d94…2dba Head {h00=0x0022, h01=0x0050, text=»* CONNECT NEW BUFFER TO LINK«, t00=0x001d, t01=0x004e}
0x2dba…2dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0074}
0x2dc4…2dd8 Head {h00=0x0010, h01=0x0050, text=»CRN160 EQU *«, t00=0x001d, t01=0x007e}
0x2dd8…2df2 Head {h00=0x0016, h01=0x0050, text=» LC A3,FDBTNR,A11 «, t00=0x001d, t01=0x0092}
0x2df2…2e12 Head {h00=0x001c, h01=0x0050, text=» SC A3,CRNTID,A2 TASK ID«, t00=0x001d, t01=0x00ac}
0x2e12…2e36 Head {h00=0x0020, h01=0x0050, text=» LD A3,FDBCRL,A11 LINK ROOT «, t00=0x001d, t01=0x00cc}
0x2e36…2e50 Head {h00=0x0016, h01=0x0050, text=» STR A3,A2 THREAD «, t00=0x001d, t01=0x00f0}
0x2e50…2e72 Head {h00=0x001e, h01=0x0050, text=» ST A2,FDBCRL,A11 NEW ROOT«, t00=0x001d, t01=0x010a}
0x2e72…2e86 Head {h00=0x0010, h01=0x0050, text=»CRN200 EQU *«, t00=0x001d, t01=0x012c}
0x2e86…2e92 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001d, t01=0x0140}
0x2e92…2ea2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x014c}
0x2ea2…2eba Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x001d, t01=0x015c}
0x2eba…2ef6 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x001d, t01=0x0174}
0x2ef6…2f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0020}
0x2f00…2f36 Head {h00=0x0032, h01=0x0050, text=»* CALSNO WILL CONVERT A LOGICAL RECORD NO TO«, t00=0x001e, t01=0x002a}
0x2f36…2f4a Head {h00=0x0010, h01=0x0050, text=»* RELATIVE«, t00=0x001e, t01=0x0060}
0x2f4a…2f68 Head {h00=0x001a, h01=0x0050, text=»* SECTOR AND OFFSET «, t00=0x001e, t01=0x0074}
0x2f68…2f72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0092}
0x2f72…2fae Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x001e, t01=0x009c}
0x2fae…2fb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d8}
0x2fb8…2fde Head {h00=0x0022, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO «, t00=0x001e, t01=0x00e2}
0x2fde…2ff8 Head {h00=0x0016, h01=0x0050, text=»* A11= FDB ADDR «, t00=0x001e, t01=0x0108}
0x2ff8…3002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0122}
0x3002…301e Head {h00=0x0018, h01=0x0050, text=»* CF A14,CALSNO «, t00=0x001e, t01=0x012c}
0x301e…3028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0148}
0x3028…3064 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x001e, t01=0x0152}
0x3064…306e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x018e}
0x306e…3084 Head {h00=0x0012, h01=0x0050, text=»* A1 = 0 OK«, t00=0x001f, t01=0x0008}
0x3084…30b4 Head {h00=0x002c, h01=0x0050, text=»* NE 0 , ERROR =/A000=END OF MEDIUM «, t00=0x001f, t01=0x001e}
0x30b4…30ce Head {h00=0x0016, h01=0x0050, text=»* A11= UNCHANGED«, t00=0x001f, t01=0x004e}
0x30ce…30f6 Head {h00=0x0024, h01=0x0050, text=»* IN FDB : FDBSNR = SECTOR NR «, t00=0x001f, t01=0x0068}
0x30f6…3124 Head {h00=0x002a, h01=0x0050, text=»* FDBRRO = OFFSET IN BLOCK«, t00=0x001f, t01=0x0090}
0x3124…314e Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 5 (WORDS)«, t00=0x001f, t01=0x00be}
0x314e…3158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e8}
0x3158…3194 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x001f, t01=0x00f2}
0x3194…319e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012e}
0x319e…31b6 Head {h00=0x0014, h01=0x0050, text=»* A2-A3,A6-A7 «, t00=0x001f, t01=0x0138}
0x31b6…31ce Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x001f, t01=0x0150}
0x31ce…31e2 Head {h00=0x0010, h01=0x0050, text=»CALSNO EQU *«, t00=0x001f, t01=0x0168}
0x31e2…3200 Head {h00=0x001a, h01=0x0050, text=» ST A4,-4,A14 SAVE A4 «, t00=0x001f, t01=0x017c}
0x3200…320a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x000a}
0x320a…3230 Head {h00=0x0022, h01=0x0050, text=»* FIND BLOCK NO WITHIN FILE «, t00=0x0020, t01=0x0014}
0x3230…323a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003a}
0x323a…324c Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0020, t01=0x0044}
0x324c…3276 Head {h00=0x0026, h01=0x0050, text=» LC A6,FDBBLF,A11 BLOCKING FACTOR «, t00=0x0020, t01=0x0056}
0x3276…32a6 Head {h00=0x002c, h01=0x0050, text=» CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER«, t00=0x0020, t01=0x0080}
0x32a6…32c4 Head {h00=0x001a, h01=0x0050, text=» RF(O) CALERR OVERFLOW«, t00=0x0020, t01=0x00b0}
0x32c4…32e0 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 QUOTIENT «, t00=0x0020, t01=0x00ce}
0x32e0…32fc Head {h00=0x0018, h01=0x0050, text=» LDR A4,A1 REMAINDER«, t00=0x0020, t01=0x00ea}
0x32fc…331a Head {h00=0x001a, h01=0x0050, text=» RF(Z) TIOD30 REST = 0«, t00=0x0020, t01=0x0106}
0x331a…3340 Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 RECORD IN NEXT BLOCK«, t00=0x0020, t01=0x0124}
0x3340…3352 Head {h00=0x000e, h01=0x0050, text=» RF TIOD40«, t00=0x0020, t01=0x014a}
0x3352…3366 Head {h00=0x0010, h01=0x0050, text=»TIOD30 EQU *«, t00=0x0020, t01=0x015c}
0x3366…338c Head {h00=0x0022, h01=0x0050, text=» LC A4,FDBBLF,A11 BLOCK FACTOR«, t00=0x0020, t01=0x0170}
0x338c…3396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0008}
0x3396…33c4 Head {h00=0x002a, h01=0x0050, text=»* FIND LOGICAL SECTOR NUMBER ON DISC«, t00=0x0021, t01=0x0012}
0x33c4…33ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0040}
0x33ce…33e2 Head {h00=0x0010, h01=0x0050, text=»TIOD40 EQU *«, t00=0x0021, t01=0x004a}
0x33e2…33fe Head {h00=0x0018, h01=0x0050, text=» LDR A6,A3 BLOCK NR «, t00=0x0021, t01=0x005e}
0x33fe…3414 Head {h00=0x0012, h01=0x0050, text=» RF(NP) CALERR«, t00=0x0021, t01=0x007a}
0x3414…3426 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0021, t01=0x0090}
0x3426…3438 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0021, t01=0x00a2}
0x3438…3466 Head {h00=0x002a, h01=0x0050, text=» LC A7,FDBBLZ,A11 NR OF SECT IN BLOCK «, t00=0x0021, t01=0x00b4}
0x3466…347c Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0021, t01=0x00e2}
0x347c…348e Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0021, t01=0x00f8}
0x348e…34a4 Head {h00=0x0012, h01=0x0050, text=» RF(O) CAL050 «, t00=0x0021, t01=0x010a}
0x34a4…34b6 Head {h00=0x000e, h01=0x0050, text=» RF CAL090«, t00=0x0021, t01=0x0120}
0x34b6…34ca Head {h00=0x0010, h01=0x0050, text=»CAL050 EQU *«, t00=0x0021, t01=0x0132}
0x34ca…34e0 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x0021, t01=0x0146}
0x34e0…34f8 Head {h00=0x0014, h01=0x0050, text=» ADK A1,1 CARRY «, t00=0x0021, t01=0x015c}
0x34f8…350c Head {h00=0x0010, h01=0x0050, text=»CAL090 EQU *«, t00=0x0021, t01=0x0174}
0x350c…3526 Head {h00=0x0016, h01=0x0050, text=» ST A1,FDBSNR,A11 «, t00=0x0021, t01=0x0188}
0x3526…354a Head {h00=0x0020, h01=0x0050, text=» ST A2,FDBSNR+2,A11 SECT NR «, t00=0x0022, t01=0x0012}
0x354a…3558 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0036}
0x3558…3562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0044}
0x3562…3596 Head {h00=0x0030, h01=0x0050, text=»* FIND RELATIVE RECORD OFFSET WITHIN BLOCK«, t00=0x0022, t01=0x004e}
0x3596…35a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0082}
0x35a0…35b2 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0022, t01=0x008c}
0x35b2…35d8 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A4 REL REC NR IN BLOCK«, t00=0x0022, t01=0x009e}
0x35d8…35ec Head {h00=0x0010, h01=0x0050, text=»TIOD60 EQU *«, t00=0x0022, t01=0x00c4}
0x35ec…360c Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 A2=REL REC NR «, t00=0x0022, t01=0x00d8}
0x360c…3638 Head {h00=0x0028, h01=0x0050, text=» RF(Z) TIOD65 REL REC OFFS IN A3 NOW«, t00=0x0022, t01=0x00f8}
0x3638…3668 Head {h00=0x002c, h01=0x0050, text=» AD A3,FDBRLE,A11 NO ADD RECORD LENGTH «, t00=0x0022, t01=0x0124}
0x3668…368a Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 SKIP STATUS BYTE«, t00=0x0022, t01=0x0154}
0x368a…369c Head {h00=0x000e, h01=0x0050, text=» RB TIOD60«, t00=0x0022, t01=0x0176}
0x369c…36c8 Head {h00=0x0028, h01=0x0050, text=»CALERR LDKL A1,EOMERR OUT OF MEDIUM «, t00=0x0022, t01=0x0188}
0x36c8…36da Head {h00=0x000e, h01=0x0050, text=» RF TIODMF«, t00=0x0023, t01=0x0024}
0x36da…36e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0036}
0x36e4…3714 Head {h00=0x002c, h01=0x0050, text=»* STORE RELATIVE REC OFFSET IN FBDRRO «, t00=0x0023, t01=0x0040}
0x3714…371e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0070}
0x371e…3732 Head {h00=0x0010, h01=0x0050, text=»TIOD65 EQU *«, t00=0x0023, t01=0x007a}
0x3732…3746 Head {h00=0x0010, h01=0x0050, text=» LDK A1,0 OK«, t00=0x0023, t01=0x008e}
0x3746…3760 Head {h00=0x0016, h01=0x0050, text=» ST A3,FDBRRO,A11 «, t00=0x0023, t01=0x00a2}
0x3760…3774 Head {h00=0x0010, h01=0x0050, text=»TIODMF EQU *«, t00=0x0023, t01=0x00bc}
0x3774…3798 Head {h00=0x0020, h01=0x0050, text=» LD A4,-4,A14 SAVED REGISTER«, t00=0x0023, t01=0x00d0}
0x3798…37c4 Head {h00=0x0028, h01=0x0050, text=» RF RETURN RETURN AND SET CONDITION «, t00=0x0023, t01=0x00f4}
0x37c4…37d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0120}
0x37d2…37da Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x012e}
0x37da…37f8 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0023, t01=0x0136}
0x37f8…3816 Head {h00=0x001a, h01=0x0050, text=»* FM I/O HANDLER *«, t00=0x0023, t01=0x0154}
0x3816…3834 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0023, t01=0x0172}
0x3834…383c Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0190}
0x383c…385c Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A11=FDB ADDRESS«, t00=0x0024, t01=0x0008}
0x385c…387c Head {h00=0x001c, h01=0x0050, text=»* A8=ECB ADDRESS «, t00=0x0024, t01=0x0028}
0x387c…3886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0048}
0x3886…38a6 Head {h00=0x001c, h01=0x0050, text=»* EXIT : A1=RETURN CODE «, t00=0x0024, t01=0x0052}
0x38a6…38cc Head {h00=0x0022, h01=0x0050, text=»* A11,A8=SAME AS ENTRY «, t00=0x0024, t01=0x0072}
0x38cc…38e4 Head {h00=0x0014, h01=0x0050, text=»* A2=USED«, t00=0x0024, t01=0x0098}
0x38e4…38ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b0}
0x38ee…3918 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0024, t01=0x00ba}
0x3918…3922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e4}
0x3922…394c Head {h00=0x0026, h01=0x0050, text=»* FMIO=FILE MANAGEMENT I/O HANDLER«, t00=0x0024, t01=0x00ee}
0x394c…3956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0118}
0x3956…3978 Head {h00=0x001e, h01=0x0050, text=»FMIOWR EQU * WRITE,DMTIOT «, t00=0x0024, t01=0x0122}
0x3978…398c Head {h00=0x0010, h01=0x0050, text=» LDK A7,/95 «, t00=0x0024, t01=0x0144}
0x398c…399e Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0024, t01=0x0158}
0x399e…39a6 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x016a}
0x39a6…39c0 Head {h00=0x0016, h01=0x0050, text=»FMIOCL EQU * CLOSE«, t00=0x0024, t01=0x0172}
0x39c0…39d4 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/A2 «, t00=0x0024, t01=0x018c}
0x39d4…39e6 Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0025, t01=0x0010}
0x39e6…39ee Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0022}
0x39ee…3a0a Head {h00=0x0018, h01=0x0050, text=»FMIODL EQU * DELETE «, t00=0x0025, t01=0x002a}
0x3a0a…3a20 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/2A2 «, t00=0x0025, t01=0x0046}
0x3a20…3a32 Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0025, t01=0x005c}
0x3a32…3a3a Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x006e}
0x3a3a…3a58 Head {h00=0x001a, h01=0x0050, text=»FMIOOP EQU * OPEN FILE«, t00=0x0025, t01=0x0076}
0x3a58…3a6c Head {h00=0x0010, h01=0x0050, text=» LDK A7,/A1 «, t00=0x0025, t01=0x0094}
0x3a6c…3a7e Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0025, t01=0x00a8}
0x3a7e…3a86 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00ba}
0x3a86…3aa2 Head {h00=0x0018, h01=0x0050, text=»FMIOEX EQU * EXTEND «, t00=0x0025, t01=0x00c2}
0x3aa2…3ab8 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/1A1 «, t00=0x0025, t01=0x00de}
0x3ab8…3aca Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0025, t01=0x00f4}
0x3aca…3ad2 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0106}
0x3ad2…3aee Head {h00=0x0018, h01=0x0050, text=»FMIOCR EQU * CREATE «, t00=0x0025, t01=0x010e}
0x3aee…3b04 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/2A1 «, t00=0x0025, t01=0x012a}
0x3b04…3b16 Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0025, t01=0x0140}
0x3b16…3b24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0152}
0x3b24…3b4e Head {h00=0x0026, h01=0x0050, text=»FMIORF EQU * READ FILE PARAMETERS «, t00=0x0025, t01=0x0160}
0x3b4e…3b62 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/83 «, t00=0x0025, t01=0x018a}
0x3b62…3b74 Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0026, t01=0x000e}
0x3b74…3b7c Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0020}
0x3b7c…3b96 Head {h00=0x0016, h01=0x0050, text=»FMIORD EQU * READ «, t00=0x0026, t01=0x0028}
0x3b96…3baa Head {h00=0x0010, h01=0x0050, text=» LDK A7,/91 «, t00=0x0026, t01=0x0042}
0x3baa…3bb2 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0056}
0x3bb2…3bc6 Head {h00=0x0010, h01=0x0050, text=»FMIO10 EQU *«, t00=0x0026, t01=0x005e}
0x3bc6…3bd2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x0072}
0x3bd2…3be2 Head {h00=0x000c, h01=0x0050, text=» DATA 15«, t00=0x0026, t01=0x007e}
0x3be2…3bfa Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0026, t01=0x008e}
0x3bfa…3c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a6}
0x3c04…3c24 Head {h00=0x001c, h01=0x0050, text=»* RESTORE SECTOR NUMBER «, t00=0x0026, t01=0x00b0}
0x3c24…3c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d0}
0x3c2e…3c48 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBSNR,A11 «, t00=0x0026, t01=0x00da}
0x3c48…3c60 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0026, t01=0x00f4}
0x3c60…3c7c Head {h00=0x0018, h01=0x0050, text=» LD A1,FDBSNR+2,A11 «, t00=0x0026, t01=0x010c}
0x3c7c…3c96 Head {h00=0x0016, h01=0x0050, text=» ST A1,ECBCW+2,A8 «, t00=0x0026, t01=0x0128}
0x3c96…3cbe Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTECB,A11 DM ECB ADDRESS«, t00=0x0026, t01=0x0142}
0x3cbe…3cd6 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0026, t01=0x016a}
0x3cd6…3cf8 Head {h00=0x001e, h01=0x0050, text=» RF(Z) RETURN DISC I/O OK «, t00=0x0026, t01=0x0182}
0x3cf8…3d0e Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FEFF«, t00=0x0027, t01=0x0014}
0x3d0e…3d36 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMTIT1 NOT ONLY RETRIES «, t00=0x0027, t01=0x002a}
0x3d36…3d4e Head {h00=0x0014, h01=0x0050, text=» LDKL A1,RETRIE «, t00=0x0027, t01=0x0052}
0x3d4e…3d78 Head {h00=0x0026, h01=0x0050, text=» ORS A1,ECBRC,A2 USER RETURN CODE «, t00=0x0027, t01=0x006a}
0x3d78…3d9c Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 SET RETURN CODE OK«, t00=0x0027, t01=0x0094}
0x3d9c…3dae Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x0027, t01=0x00b8}
0x3dae…3dc2 Head {h00=0x0010, h01=0x0050, text=»DMTIT1 EQU *«, t00=0x0027, t01=0x00ca}
0x3dc2…3dda Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0027, t01=0x00de}
0x3dda…3df8 Head {h00=0x001a, h01=0x0050, text=» SUKL A2,BUFSTA BUFSTA«, t00=0x0027, t01=0x00f6}
0x3df8…3e26 Head {h00=0x002a, h01=0x0050, text=» CM BUFDMI,A2 CLEAR FILE NR IN BUFFER «, t00=0x0027, t01=0x0114}
0x3e26…3e3a Head {h00=0x0010, h01=0x0050, text=»RETURN EQU *«, t00=0x0027, t01=0x0142}
0x3e3a…3e4e Head {h00=0x0010, h01=0x0050, text=» ABL RTNA14 «, t00=0x0027, t01=0x0156}
0x3e4e…3e66 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0027, t01=0x016a}
0x3e66…3ea2 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0027, t01=0x0182}
0x3ea2…3eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x002e}
0x3eac…3ee8 Head {h00=0x0038, h01=0x0050, text=»* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND «, t00=0x0028, t01=0x0038}
0x3ee8…3f1e Head {h00=0x0032, h01=0x0050, text=»* PREPARE IT. ECB IS PREPARED FOR PHYS I/O. «, t00=0x0028, t01=0x0074}
0x3f1e…3f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00aa}
0x3f28…3f64 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0028, t01=0x00b4}
0x3f64…3f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f0}
0x3f6e…3f8a Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADDRESS«, t00=0x0028, t01=0x00fa}
0x3f8a…3fa4 Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x0028, t01=0x0116}
0x3fa4…3fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0130}
0x3fae…3fea Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0028, t01=0x013a}
0x3fea…3ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0176}
0x3ff4…4010 Head {h00=0x0018, h01=0x0050, text=»* A11=FDB ADDRESS «, t00=0x0028, t01=0x0180}
0x4010…4044 Head {h00=0x0030, h01=0x0050, text=»* A1 = FDBRRO WHEN SECTOR IS FOUND IN CORE«, t00=0x0029, t01=0x000c}
0x4044…408a Head {h00=0x0042, h01=0x0050, text=»* = -1 WHEN NO DATA IS FOUND IN «, t00=0x0029, t01=0x0040}
0x408a…40ca Head {h00=0x003c, h01=0x0050, text=»* THE FOUND CORE BUFFER «, t00=0x0029, t01=0x0086}
0x40ca…40f0 Head {h00=0x0022, h01=0x0050, text=»* A4 = BLOCK BUFFER ADDRESS «, t00=0x0029, t01=0x00c6}
0x40f0…411a Head {h00=0x0026, h01=0x0050, text=»* A5 = BLOCK DATA BUFFER ADDRESS«, t00=0x0029, t01=0x00ec}
0x411a…4134 Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x0029, t01=0x0116}
0x4134…415e Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 5 (WORDS)«, t00=0x0029, t01=0x0130}
0x415e…4168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x015a}
0x4168…41a4 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0029, t01=0x0164}
0x41a4…41ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0010}
0x41ae…41c0 Head {h00=0x000e, h01=0x0050, text=»* A2-A3 «, t00=0x002a, t01=0x001a}
0x41c0…41ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x002c}
0x41ca…4208 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002a, t01=0x0036}
0x4208…421c Head {h00=0x0010, h01=0x0050, text=»GTBKBU EQU *«, t00=0x002a, t01=0x0074}
0x421c…4242 Head {h00=0x0022, h01=0x0050, text=» LC A3,FWTFNR,A11 FILE NUMBER «, t00=0x002a, t01=0x0088}
0x4242…4256 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x002a, t01=0x00ae}
0x4256…4270 Head {h00=0x0016, h01=0x0050, text=» STR A3,A8 FILE NR«, t00=0x002a, t01=0x00c2}
0x4270…428a Head {h00=0x0016, h01=0x0050, text=» LC A5,FDBBLZ,A11 «, t00=0x002a, t01=0x00dc}
0x428a…42b0 Head {h00=0x0022, h01=0x0050, text=» SLL A5,8 BLOCK SIZE IN BYTYE «, t00=0x002a, t01=0x00f6}
0x42b0…42d4 Head {h00=0x0020, h01=0x0050, text=» ST A5,ECBRL,A8 BLOCK LENGTH«, t00=0x002a, t01=0x011c}
0x42d4…42fc Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBSNR,A11 SECTOR NUMBER «, t00=0x002a, t01=0x0140}
0x42fc…4318 Head {h00=0x0018, h01=0x0050, text=» LD A2,FDBSNR+2,A11 «, t00=0x002a, t01=0x0168}
0x4318…4344 Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMGBU A4 := BUFFER ADDRESS «, t00=0x002a, t01=0x0184}
0x4344…4364 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 SECT NR «, t00=0x002b, t01=0x0020}
0x4364…4386 Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBCW+2,A8 SECT NR «, t00=0x002b, t01=0x0040}
0x4386…4398 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A4«, t00=0x002b, t01=0x0062}
0x4398…43ce Head {h00=0x0032, h01=0x0050, text=» ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS«, t00=0x002b, t01=0x0074}
0x43ce…43e6 Head {h00=0x0014, h01=0x0050, text=» ST A5,ECBBA,A8 «, t00=0x002b, t01=0x00aa}
0x43e6…4412 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,-1 SET DEFAULT RETURN CODE «, t00=0x002b, t01=0x00c2}
0x4412…4424 Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x002b, t01=0x00ee}
0x4424…4450 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) GTB100 BUFFER NOT IN MEMORY «, t00=0x002b, t01=0x0100}
0x4450…4480 Head {h00=0x002c, h01=0x0050, text=» LD A1,FDBRRO,A11 RELATIV RECORD OFFSET «, t00=0x002b, t01=0x012c}
0x4480…4494 Head {h00=0x0010, h01=0x0050, text=»GTB100 EQU *«, t00=0x002b, t01=0x015c}
0x4494…44c0 Head {h00=0x0028, h01=0x0050, text=» RB RETURN RETURN AND SET CONDITION «, t00=0x002b, t01=0x0170}
0x44c0…44da Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=0 =5 «, t00=0x002c, t01=0x000c}
0x44da…44e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0026}
0x44e8…4500 Head {h00=0x0014, h01=0x0050, text=»FRMFIL EQU * =5«, t00=0x002c, t01=0x0034}
0x4500…4518 Head {h00=0x0014, h01=0x0050, text=»FORMAT EQU * =5«, t00=0x002c, t01=0x004c}
0x4518…4530 Head {h00=0x0014, h01=0x0050, text=»FORMER EQU * =5«, t00=0x002c, t01=0x0064}
0x4530…4548 Head {h00=0x0014, h01=0x0050, text=»RLBLKB EQU * =5«, t00=0x002c, t01=0x007c}
0x4548…4560 Head {h00=0x0014, h01=0x0050, text=»CASZEN EQU * =5«, t00=0x002c, t01=0x0094}
0x4560…4574 Head {h00=0x0010, h01=0x0050, text=» RTN A14 =5«, t00=0x002c, t01=0x00ac}
0x4574…4586 Head {h00=0x000e, h01=0x0050, text=» XIF =5 «, t00=0x002c, t01=0x00c0}
0x4586…45a0 Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=1 =5 «, t00=0x002c, t01=0x00d2}
0x45a0…45ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00ec}
0x45ae…45b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00fa}
0x45b8…45d4 Head {h00=0x0018, h01=0x0050, text=»* FRMFIL=FORMAT FILE«, t00=0x002c, t01=0x0104}
0x45d4…45de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0120}
0x45de…4608 Head {h00=0x0026, h01=0x0050, text=»* ENTRY: A4=BLOCK BUFFER ADDRESS«, t00=0x002c, t01=0x012a}
0x4608…462e Head {h00=0x0022, h01=0x0050, text=»* A8=FDB ECB ADDRESS «, t00=0x002c, t01=0x0154}
0x462e…4650 Head {h00=0x001e, h01=0x0050, text=»* A11=FDB ADDRESS«, t00=0x002c, t01=0x017a}
0x4650…465a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x000c}
0x465a…4672 Head {h00=0x0014, h01=0x0050, text=»* EXIT : A1-A7«, t00=0x002d, t01=0x0016}
0x4672…467c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002e}
0x467c…46a6 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 4 (WORDS)«, t00=0x002d, t01=0x0038}
0x46a6…46b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0062}
0x46b0…46c4 Head {h00=0x0010, h01=0x0050, text=»FRMFIL EQU *«, t00=0x002d, t01=0x006c}
0x46c4…46de Head {h00=0x0016, h01=0x0050, text=» LC A1,FDBBLZ,A11 «, t00=0x002d, t01=0x0080}
0x46de…4704 Head {h00=0x0022, h01=0x0050, text=» SLL A1,8 BLOCK SIZE IN BYTES «, t00=0x002d, t01=0x009a}
0x4704…472c Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBRL,A8 REQUESTED LENGTH«, t00=0x002d, t01=0x00c0}
0x472c…4736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00e8}
0x4736…4752 Head {h00=0x0018, h01=0x0050, text=»* MAKE FORMAT BUFFER«, t00=0x002d, t01=0x00f2}
0x4752…475c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x010e}
0x475c…4788 Head {h00=0x0028, h01=0x0050, text=» CF A14,FORMAT MAKE FORMATED BUFFER «, t00=0x002d, t01=0x0118}
0x4788…47b4 Head {h00=0x0028, h01=0x0050, text=» ST A4,ECBBA,A8 BLOCK BUFFER ADDRESS«, t00=0x002d, t01=0x0144}
0x47b4…47e6 Head {h00=0x002e, h01=0x0050, text=» LD A1,FDBSNR,A11 SECTOR NUMBER MOST SIGN.«, t00=0x002d, t01=0x0170}
0x47e6…481c Head {h00=0x0032, h01=0x0050, text=» LD A2,FDBSNR+2,A11 SECTOR NUMBER LEAST SIGN. «, t00=0x002e, t01=0x0012}
0x481c…4830 Head {h00=0x0010, h01=0x0050, text=»FRM130 EQU *«, t00=0x002e, t01=0x0048}
0x4830…4848 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002e, t01=0x005c}
0x4848…4862 Head {h00=0x0016, h01=0x0050, text=» ST A2,ECBCW+2,A8 «, t00=0x002e, t01=0x0074}
0x4862…487c Head {h00=0x0016, h01=0x0050, text=» LDR A3,A1 SAVE A1«, t00=0x002e, t01=0x008e}
0x487c…4896 Head {h00=0x0016, h01=0x0050, text=» LDR A5,A2 SAVE A2«, t00=0x002e, t01=0x00a8}
0x4896…48ba Head {h00=0x0020, h01=0x0050, text=» CF A14,FMIOWR WRITE SECTOR «, t00=0x002e, t01=0x00c2}
0x48ba…48de Head {h00=0x0020, h01=0x0050, text=» RF(NZ) FRM140 ERROR OR EOF «, t00=0x002e, t01=0x00e6}
0x48de…4900 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 SAVED REGISTER «, t00=0x002e, t01=0x010a}
0x4900…4922 Head {h00=0x001e, h01=0x0050, text=» LDR A2,A5 SAVED REGISTER «, t00=0x002e, t01=0x012c}
0x4922…4934 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x002e, t01=0x014e}
0x4934…4964 Head {h00=0x002c, h01=0x0050, text=» LC A7,FDBBLZ,A11 BLOCK SIZE IN SECTORS «, t00=0x002e, t01=0x0160}
0x4964…497a Head {h00=0x0012, h01=0x0050, text=» CF A14,ADDMOD«, t00=0x002e, t01=0x0190}
0x497a…498c Head {h00=0x000e, h01=0x0050, text=» RB FRM130«, t00=0x002f, t01=0x0016}
0x498c…499a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0028}
0x499a…49ae Head {h00=0x0010, h01=0x0050, text=»FRM140 EQU *«, t00=0x002f, t01=0x0036}
0x49ae…49cc Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 RETURN CODE«, t00=0x002f, t01=0x004a}
0x49cc…49de Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x002f, t01=0x0068}
0x49de…4a04 Head {h00=0x0022, h01=0x0050, text=» RF(NN) FRM160 NOT END OF FILE«, t00=0x002f, t01=0x007a}
0x4a04…4a18 Head {h00=0x0010, h01=0x0050, text=»RLBLKB EQU *«, t00=0x002f, t01=0x00a0}
0x4a18…4a3a Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET RETURN CODE «, t00=0x002f, t01=0x00b4}
0x4a3a…4a4e Head {h00=0x0010, h01=0x0050, text=»FRM160 EQU *«, t00=0x002f, t01=0x00d6}
0x4a4e…4a78 Head {h00=0x0026, h01=0x0050, text=» SUKL A4,BUFSTA BUFFER WITH HEADER«, t00=0x002f, t01=0x00ea}
0x4a78…4a9e Head {h00=0x0022, h01=0x0050, text=» CF A14,SDMRBU RELEASE BUFFER «, t00=0x002f, t01=0x0114}
0x4a9e…4ac6 Head {h00=0x0024, h01=0x0050, text=» CF A14,CLRBUF CLEAR ALL BUFFERS«, t00=0x002f, t01=0x013a}
0x4ac6…4af2 Head {h00=0x0028, h01=0x0050, text=» RB RETURN RETURN AND SET CONDITION «, t00=0x002f, t01=0x0162}
0x4af2…4b00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x018e}
0x4b00…4b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x000c}
0x4b0a…4b38 Head {h00=0x002a, h01=0x0050, text=»* FORMAT=FORMAT BUFFER IN RECORD SIZE «, t00=0x0030, t01=0x0016}
0x4b38…4b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0044}
0x4b42…4b6c Head {h00=0x0026, h01=0x0050, text=»* ENTRY :A4 = BLOCK BUFFER ADDRESS«, t00=0x0030, t01=0x004e}
0x4b6c…4b90 Head {h00=0x0020, h01=0x0050, text=»* A1 = BUFFER LENGTH «, t00=0x0030, t01=0x0078}
0x4b90…4b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x009c}
0x4b9a…4bbc Head {h00=0x001e, h01=0x0050, text=»* EXIT :A4 = NOT CHANGED «, t00=0x0030, t01=0x00a6}
0x4bbc…4be0 Head {h00=0x0020, h01=0x0050, text=»* A1,A2,A3,A5 = USED «, t00=0x0030, t01=0x00c8}
0x4be0…4bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ec}
0x4bea…4c14 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0030, t01=0x00f6}
0x4c14…4c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0120}
0x4c1e…4c32 Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0030, t01=0x012a}
0x4c32…4c5a Head {h00=0x0024, h01=0x0050, text=» LDR A3,A4 BLOCK BUFFER ADDRESS «, t00=0x0030, t01=0x013e}
0x4c5a…4c72 Head {h00=0x0014, h01=0x0050, text=»FORMER EQU * =1«, t00=0x0030, t01=0x0166}
0x4c72…4ca2 Head {h00=0x002c, h01=0x0050, text=» LDR A5,A1 LENGTH IN BLOCK BUFFER =2 =1 «, t00=0x0030, t01=0x017e}
0x4ca2…4cce Head {h00=0x0028, h01=0x0050, text=» RF(NP) FRM120 NOTHING TO FORMAT =4 «, t00=0x0031, t01=0x001e}
0x4cce…4cfc Head {h00=0x002a, h01=0x0050, text=» LDK A2,' ' FILL BUFFER WITH SPACES =1«, t00=0x0031, t01=0x004a}
0x4cfc…4d10 Head {h00=0x0010, h01=0x0050, text=»FRM100 EQU *«, t00=0x0031, t01=0x0078}
0x4d10…4d26 Head {h00=0x0012, h01=0x0050, text=» SCR A2,A3 =1«, t00=0x0031, t01=0x008c}
0x4d26…4d50 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE BUFFER POINTER =1«, t00=0x0031, t01=0x00a2}
0x4d50…4d70 Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 REST LENGTH =1«, t00=0x0031, t01=0x00cc}
0x4d70…4d9a Head {h00=0x0026, h01=0x0050, text=» RB(P) FRM100 CONTINUE FILL BUFFER«, t00=0x0031, t01=0x00ec}
0x4d9a…4dce Head {h00=0x0030, h01=0x0050, text=» SUR A3,A5 POINTER TO START OF BUFFER =2 =1 «, t00=0x0031, t01=0x0116}
0x4dce…4dfe Head {h00=0x002c, h01=0x0050, text=» SUK A3,1 POINTER TO RECORD STATUS =2 =1«, t00=0x0031, t01=0x014a}
0x4dfe…4e22 Head {h00=0x0020, h01=0x0050, text=» LDK A2,0 RECORD STATUS=FREE«, t00=0x0031, t01=0x017a}
0x4e22…4e58 Head {h00=0x0032, h01=0x0050, text=» LD A1,FDBRLE,A11 RECORD LENGTH WITHOUT STATUS«, t00=0x0032, t01=0x000e}
0x4e58…4e7c Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 LENGTH WITH STATUS«, t00=0x0032, t01=0x0044}
0x4e7c…4e90 Head {h00=0x0010, h01=0x0050, text=»FRM110 EQU *«, t00=0x0032, t01=0x0068}
0x4e90…4ec2 Head {h00=0x002e, h01=0x0050, text=» ADR A3,A1 POINTER TO RECORD STATUS =2 =1 «, t00=0x0032, t01=0x007c}
0x4ec2…4ee6 Head {h00=0x0020, h01=0x0050, text=» SUR A5,A1 LENGTH LEFT =2 =1«, t00=0x0032, t01=0x00ae}
0x4ee6…4f18 Head {h00=0x002e, h01=0x0050, text=» RF(N) FRM120 ALL DONE IN BUFFER =6 =2 =1 «, t00=0x0032, t01=0x00d2}
0x4f18…4f3e Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 UPDATE STATUS =2 =1«, t00=0x0032, t01=0x0104}
0x4f3e…4f50 Head {h00=0x000e, h01=0x0050, text=» RB FRM110«, t00=0x0032, t01=0x012a}
0x4f50…4f64 Head {h00=0x0010, h01=0x0050, text=»FRM120 EQU *«, t00=0x0032, t01=0x013c}
0x4f64…4f74 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0032, t01=0x0150}
0x4f74…4f86 Head {h00=0x000e, h01=0x0050, text=» XIF =5 «, t00=0x0032, t01=0x0160}
0x4f86…4f94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0172}
0x4f94…4f9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0180}
0x4f9e…4fe4 Head {h00=0x0042, h01=0x0050, text=»* CARRBL=CALCULATE MAX FDBRRO AND BLOCK SIZE IN NBR OF SECTORS«, t00=0x0032, t01=0x018a}
0x4fe4…4fee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0040}
0x4fee…500e Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A11=FDB ADDRESS«, t00=0x0033, t01=0x004a}
0x500e…5018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x006a}
0x5018…5036 Head {h00=0x001a, h01=0x0050, text=»* EXIT : A1=MAX FDBRRO«, t00=0x0033, t01=0x0074}
0x5036…506a Head {h00=0x0030, h01=0x0050, text=»* A2=BLOCK SIZE IN NUMBER OF SECTORS «, t00=0x0033, t01=0x0092}
0x506a…509e Head {h00=0x0030, h01=0x0050, text=»* CR=GREATER IF BLOCK SIZE TOO LARGE «, t00=0x0033, t01=0x00c6}
0x509e…50bc Head {h00=0x001a, h01=0x0050, text=»* A3,A6,A7=USED«, t00=0x0033, t01=0x00fa}
0x50bc…50c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0118}
0x50c6…50f0 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 4 (WORDS)«, t00=0x0033, t01=0x0122}
0x50f0…50fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x014c}
0x50fa…510e Head {h00=0x0010, h01=0x0050, text=»CARRBL EQU *«, t00=0x0033, t01=0x0156}
0x510e…513e Head {h00=0x002c, h01=0x0050, text=» LD A6,FDBRLE,A11 RECORD LENGTH (BYTES) «, t00=0x0033, t01=0x016a}
0x513e…517c Head {h00=0x003a, h01=0x0050, text=» LC A7,FDBBLF,A11 BLOCK FACTOR (NBR OF RECORDS/BLOCK) «, t00=0x0034, t01=0x000a}
0x517c…5184 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0048}
0x5184…518c Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0050}
0x518c…5196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0058}
0x5196…51cc Head {h00=0x0032, h01=0x0050, text=»* CRRBL=SAME AS CARRBL EXCEPT ENTRY PARAMETERS«, t00=0x0034, t01=0x0062}
0x51cc…51d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0098}
0x51d6…51f8 Head {h00=0x001e, h01=0x0050, text=»* ENTRY: A6=RECORD LENGTH «, t00=0x0034, t01=0x00a2}
0x51f8…5218 Head {h00=0x001c, h01=0x0050, text=»* A7=BLOCK FACTOR«, t00=0x0034, t01=0x00c4}
0x5218…5222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e4}
0x5222…5236 Head {h00=0x0010, h01=0x0050, text=»CRRBL EQU * «, t00=0x0034, t01=0x00ee}
0x5236…525a Head {h00=0x0020, h01=0x0050, text=» ADK A6,1 RECORD STATUS BYTE«, t00=0x0034, t01=0x0102}
0x525a…5280 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A6 SAVE RECORD LENGTH «, t00=0x0034, t01=0x0126}
0x5280…5294 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0034, t01=0x014c}
0x5294…52a6 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0034, t01=0x0160}
0x52a6…52bc Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0034, t01=0x0172}
0x52bc…52da Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 MAX FDBRRO «, t00=0x0034, t01=0x0188}
0x52da…52e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0016}
0x52e8…52f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0024}
0x52f2…5322 Head {h00=0x002c, h01=0x0050, text=»* CALCULATE BLOCK SIZE IN NBR OF SECTORS«, t00=0x0035, t01=0x002e}
0x5322…532c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x005e}
0x532c…534e Head {h00=0x001e, h01=0x0050, text=» ADR A2,A3 ADD ONE RECORD «, t00=0x0035, t01=0x0068}
0x534e…5360 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0035, t01=0x008a}
0x5360…537c Head {h00=0x0018, h01=0x0050, text=» SRL A2,8 SECTOR NBR«, t00=0x0035, t01=0x009c}
0x537c…5390 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0035, t01=0x00b8}
0x5390…53ac Head {h00=0x0018, h01=0x0050, text=» RF(Z) CAR100 EXACT «, t00=0x0035, t01=0x00cc}
0x53ac…53ce Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 ONE MORE SECTOR «, t00=0x0035, t01=0x00e8}
0x53ce…53e2 Head {h00=0x0010, h01=0x0050, text=»CAR100 EQU *«, t00=0x0035, t01=0x010a}
0x53e2…540a Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPADTE STACK POINTER«, t00=0x0035, t01=0x011e}
0x540a…541c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0035, t01=0x0146}
0x541c…5442 Head {h00=0x0022, h01=0x0050, text=» SLL A3,7 BLOCK SIZE IN WORDS «, t00=0x0035, t01=0x0158}
0x5442…5472 Head {h00=0x002c, h01=0x0050, text=» CWK A3,BLKMXL CHECK WITH MAX BLOCK SIZE«, t00=0x0035, t01=0x017e}
0x5472…548a Head {h00=0x0014, h01=0x0050, text=» ABR* A14 RETURN«, t00=0x0036, t01=0x001e}
0x548a…54a4 Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=1 =5 «, t00=0x0036, t01=0x0036}
0x54a4…54b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0050}
0x54b2…54ba Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x005e}
0x54ba…54cc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x0066}
0x54cc…54de Head {h00=0x000e, h01=0x0050, text=»* CASZEN *«, t00=0x0036, t01=0x0078}
0x54de…54f0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x008a}
0x54f0…54f8 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x009c}
0x54f8…5502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00a4}
0x5502…5538 Head {h00=0x0032, h01=0x0050, text=»* CASZEN=CALCULATE SIZE 1-4 IN NBR OF SECTORS «, t00=0x0036, t01=0x00ae}
0x5538…5542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00e4}
0x5542…5562 Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A12=FPB ADDRESS«, t00=0x0036, t01=0x00ee}
0x5562…556c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x010e}
0x556c…559c Head {h00=0x002c, h01=0x0050, text=»* EXIT : A3=ENLARGE IN NUMBER OF SECTORS«, t00=0x0036, t01=0x0118}
0x559c…55c2 Head {h00=0x0022, h01=0x0050, text=»* A2,A5,A6,A7,A13=USED «, t00=0x0036, t01=0x0148}
0x55c2…55e2 Head {h00=0x001c, h01=0x0050, text=»* A1=RETURN CODE «, t00=0x0036, t01=0x016e}
0x55e2…5604 Head {h00=0x001e, h01=0x0050, text=»* CR=O IF OVERFLOW «, t00=0x0036, t01=0x018e}
0x5604…560e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0020}
0x560e…5622 Head {h00=0x0010, h01=0x0050, text=»CASZEN EQU *«, t00=0x0037, t01=0x002a}
0x5622…564a Head {h00=0x0024, h01=0x0050, text=» LD A6,FPB:RL,A12 RECORD LENGTH «, t00=0x0037, t01=0x003e}
0x564a…5670 Head {h00=0x0022, h01=0x0050, text=» LC A7,FPB:BF,A12 BLOCK FACTOR«, t00=0x0037, t01=0x0066}
0x5670…5684 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0037, t01=0x008c}
0x5684…56c4 Head {h00=0x003c, h01=0x0050, text=» CF A14,CRRBL CALCULATE BLOCK SIZE (SECTORS/BLOCK IN A2)«, t00=0x0037, t01=0x00a0}
0x56c4…56e2 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A2 BLOCK SIZE «, t00=0x0037, t01=0x00e0}
0x56e2…5702 Head {h00=0x001c, h01=0x0050, text=» LDR A13,A12 FPB ADDRESS«, t00=0x0037, t01=0x00fe}
0x5702…572c Head {h00=0x0026, h01=0x0050, text=» ADKL A13,FPB:S1 POINTER TO SIZE 1«, t00=0x0037, t01=0x011e}
0x572c…5750 Head {h00=0x0020, h01=0x0050, text=» LDK A5,4 NUMBER OF VOLUMES «, t00=0x0037, t01=0x0148}
0x5750…5764 Head {h00=0x0010, h01=0x0050, text=»CAS100 EQU *«, t00=0x0037, t01=0x016c}
0x5764…579a Head {h00=0x0032, h01=0x0050, text=» LC A6,FPB:BF,A12 BLOCK FACTOR (RECORDS/BLOCK)«, t00=0x0037, t01=0x0180}
0x579a…57ae Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x0038, t01=0x0026}
0x57ae…57c2 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A13«, t00=0x0038, t01=0x003a}
0x57c2…57f2 Head {h00=0x002c, h01=0x0050, text=» LD A2,2,A13 A1,A2=SIZE (NBR OF RECORDS)«, t00=0x0038, t01=0x004e}
0x57f2…5820 Head {h00=0x002a, h01=0x0050, text=» CF A14,DIVMOD A1,A2/A6=A2 REST IN A1«, t00=0x0038, t01=0x007e}
0x5820…5832 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0038, t01=0x00ac}
0x5832…5850 Head {h00=0x001a, h01=0x0050, text=» RF(Z) CAS110 NO REST «, t00=0x0038, t01=0x00be}
0x5850…5874 Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 TAKE CARE OF REST «, t00=0x0038, t01=0x00dc}
0x5874…5882 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0100}
0x5882…5896 Head {h00=0x0010, h01=0x0050, text=»CAS110 EQU *«, t00=0x0038, t01=0x010e}
0x5896…58a8 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x0038, t01=0x0122}
0x58a8…58ba Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0038, t01=0x0134}
0x58ba…58dc Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A6*A7=A1,A2«, t00=0x0038, t01=0x0146}
0x58dc…58f0 Head {h00=0x0010, h01=0x0050, text=» STR A1,A13 «, t00=0x0038, t01=0x0168}
0x58f0…591a Head {h00=0x0026, h01=0x0050, text=» ST A2,2,A13 A1,A2=SIZE IN SECTORS«, t00=0x0038, t01=0x017c}
0x591a…5932 Head {h00=0x0014, h01=0x0050, text=» ADKL A13,SIZDIF«, t00=0x0039, t01=0x0016}
0x5932…5944 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0039, t01=0x002e}
0x5944…5966 Head {h00=0x001e, h01=0x0050, text=» RB(P) CAS100 NEXT VOLUME «, t00=0x0039, t01=0x0040}
0x5966…5976 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0062}
0x5976…5988 Head {h00=0x000e, h01=0x0050, text=» XIF =5 «, t00=0x0039, t01=0x0072}
0x5988…5996 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0084}
0x5996…59ba Head {h00=0x0020, h01=0x0050, text=»* CHKRCD=CHECK RECORD STATUS«, t00=0x0039, t01=0x0092}
0x59ba…59c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00b6}
0x59c4…59e4 Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A11=FDB ADDRESS«, t00=0x0039, t01=0x00c0}
0x59e4…5a06 Head {h00=0x001e, h01=0x0050, text=»* A1=RECORD OFFSET «, t00=0x0039, t01=0x00e0}
0x5a06…5a2e Head {h00=0x0024, h01=0x0050, text=»* A4=BLOCK BUFFER ADDRESS«, t00=0x0039, t01=0x0102}
0x5a2e…5a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x012a}
0x5a38…5a5c Head {h00=0x0020, h01=0x0050, text=»* EXIT : A11,A4=NOT CHANGED «, t00=0x0039, t01=0x0134}
0x5a5c…5a82 Head {h00=0x0022, h01=0x0050, text=»* A1=POINTER AT STATUS «, t00=0x0039, t01=0x0158}
0x5a82…5a9a Head {h00=0x0014, h01=0x0050, text=»* A3=/FF «, t00=0x0039, t01=0x017e}
0x5a9a…5aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0008}
0x5aa4…5ace Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x003a, t01=0x0012}
0x5ace…5ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x003c}
0x5ad8…5aec Head {h00=0x0010, h01=0x0050, text=»CHKRCD EQU *«, t00=0x003a, t01=0x0046}
0x5aec…5afe Head {h00=0x000e, h01=0x0050, text=» ADR A1,A4«, t00=0x003a, t01=0x005a}
0x5afe…5b16 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFSTA «, t00=0x003a, t01=0x006c}
0x5b16…5b3e Head {h00=0x0024, h01=0x0050, text=» AD A1,FDBRLE,A11 STATUS POINTER«, t00=0x003a, t01=0x0084}
0x5b3e…5b52 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/FF «, t00=0x003a, t01=0x00ac}
0x5b52…5b66 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x003a, t01=0x00c0}
0x5b66…5b78 Head {h00=0x000e, h01=0x0050, text=» CCR A3,A1«, t00=0x003a, t01=0x00d4}
0x5b78…5b8a Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x003a, t01=0x00e6}
0x5b8a…5ba0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x003a, t01=0x00f8}
0x5ba0…5bae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x010e}
0x5bae…5bc2 Head {h00=0x0010, h01=0x0050, text=»CHKKEY EQU *«, t00=0x003a, t01=0x011c}
0x5bc2…5bd6 Head {h00=0x0010, h01=0x0050, text=»RDNXTR EQU *«, t00=0x003a, t01=0x0130}
0x5bd6…5bea Head {h00=0x0010, h01=0x0050, text=»FNDKEY EQU *«, t00=0x003a, t01=0x0144}
0x5bea…5bfe Head {h00=0x0010, h01=0x0050, text=»CRNUPD EQU *«, t00=0x003a, t01=0x0158}
0x5bfe…5c12 Head {h00=0x0010, h01=0x0050, text=»GTLGRN EQU *«, t00=0x003a, t01=0x016c}
0x5c12…5c26 Head {h00=0x0010, h01=0x0050, text=»CRNCIF EQU *«, t00=0x003a, t01=0x0180}
0x5c26…5c3a (59, 0, 400) Head {h00=0x0010, h01=0x0050, text=»RECECB EQU *«, t00=0x003b, t01=0x0004}
0x5c3a…5c4a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x0018}
0x5c4a…5c56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0028}
0x5c56…5c6c Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x003b, t01=0x0034}
0x5c6c…5c7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x004a}
0x5c7a…5cb6 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x003b, t01=0x0058}
0x5cb6…5cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0094}
0x5cc0…5d00 Head {h00=0x003c, h01=0x0050, text=»* FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX.«, t00=0x003b, t01=0x009e}
0x5d00…5d42 Head {h00=0x003e, h01=0x0050, text=»* A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. «, t00=0x003b, t01=0x00de}
0x5d42…5d76 Head {h00=0x0030, h01=0x0050, text=»* THE FIRST TWO WORDS IN MASTER INDEX IS :«, t00=0x003b, t01=0x0120}
0x5d76…5d94 Head {h00=0x001a, h01=0x0050, text=»* - NO OF ENTRIES N «, t00=0x003b, t01=0x0154}
0x5d94…5dbc Head {h00=0x0024, h01=0x0050, text=»* - NO OF CHARACTERS PER ENTRY«, t00=0x003b, t01=0x0172}
0x5dbc…5dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x000a}
0x5dc6…5e02 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x003c, t01=0x0014}
0x5e02…5e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0050}
0x5e0c…5e30 Head {h00=0x0020, h01=0x0050, text=»* A5 = MASTER INDEX ADRESS«, t00=0x003c, t01=0x005a}
0x5e30…5e54 Head {h00=0x0020, h01=0x0050, text=»* A9 = SEARCH KEY ADDRESS «, t00=0x003c, t01=0x007e}
0x5e54…5e78 Head {h00=0x0020, h01=0x0050, text=»* A10 = NR OF CHAR IN KEY «, t00=0x003c, t01=0x00a2}
0x5e78…5e94 Head {h00=0x0018, h01=0x0050, text=»* A11=FDB ADDRESS «, t00=0x003c, t01=0x00c6}
0x5e94…5e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00e2}
0x5e9e…5eba Head {h00=0x0018, h01=0x0050, text=»* CF A14,FNDKMX «, t00=0x003c, t01=0x00ec}
0x5eba…5ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0108}
0x5ec4…5f00 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x003c, t01=0x0112}
0x5f00…5f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x014e}
0x5f0a…5f3e Head {h00=0x0030, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO IN INDEX FILE «, t00=0x003c, t01=0x0158}
0x5f3e…5f5c Head {h00=0x001a, h01=0x0050, text=»* A9,A10= UNCHANGED «, t00=0x003c, t01=0x018c}
0x5f5c…5f86 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 5 (WORDS)«, t00=0x003d, t01=0x001a}
0x5f86…5f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0044}
0x5f90…5fcc Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x003d, t01=0x004e}
0x5fcc…5fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x008a}
0x5fd6…5ff0 Head {h00=0x0016, h01=0x0050, text=»* A3-A7,A12-A13 «, t00=0x003d, t01=0x0094}
0x5ff0…5ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00ae}
0x5ffa…6034 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x003d, t01=0x00b8}
0x6034…603e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f2}
0x603e…6068 Head {h00=0x0026, h01=0x0050, text=»CRNCIF EQU 8 INDEX CURRENCY OFFSET«, t00=0x003d, t01=0x00fc}
0x6068…6076 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0126}
0x6076…608a Head {h00=0x0010, h01=0x0050, text=»FNDKMX EQU *«, t00=0x003d, t01=0x0134}
0x608a…60ae Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A5 NO OF ENTRIES N «, t00=0x003d, t01=0x0148}
0x60ae…60d4 Head {h00=0x0022, h01=0x0050, text=» RF(NP) FND045 NO MASTER INDEX«, t00=0x003d, t01=0x016c}
0x60d4…60e8 (62, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDR A13,A2 «, t00=0x003e, t01=0x0004}
0x60e8…6108 Head {h00=0x001c, h01=0x0050, text=» ANKL A13,/1 GET BIT 15 «, t00=0x003e, t01=0x0018}
0x6108…611a Head {h00=0x000e, h01=0x0050, text=» SRA A2,1 «, t00=0x003e, t01=0x0038}
0x611a…613a Head {h00=0x001c, h01=0x0050, text=» LDR A12,A2 M=N/2 FLOOR «, t00=0x003e, t01=0x004a}
0x613a…615c Head {h00=0x001e, h01=0x0050, text=» ADR A13,A2 I=N/2 CEILING «, t00=0x003e, t01=0x006a}
0x615c…617c Head {h00=0x001c, h01=0x0050, text=» ADK A5,2 TABLE BASE - 2«, t00=0x003e, t01=0x008c}
0x617c…6190 Head {h00=0x0010, h01=0x0050, text=»FND020 EQU *«, t00=0x003e, t01=0x00ac}
0x6190…61a2 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x003e, t01=0x00c0}
0x61a2…61c2 Head {h00=0x001c, h01=0x0050, text=» LDR* A7,A5 ENTRY LENGTH«, t00=0x003e, t01=0x00d2}
0x61c2…61d8 Head {h00=0x0012, h01=0x0050, text=» LDR A6,A13 I «, t00=0x003e, t01=0x00f2}
0x61d8…61ea Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x003e, t01=0x0108}
0x61ea…6212 Head {h00=0x0024, h01=0x0050, text=» RF(NP) FND025 HANDLES ALSO I=0 «, t00=0x003e, t01=0x011a}
0x6212…6238 Head {h00=0x0022, h01=0x0050, text=» CF A14,MPYMOD A1,A2=(I-1)*EL «, t00=0x003e, t01=0x0142}
0x6238…624a Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x003e, t01=0x0168}
0x624a…626e Head {h00=0x0020, h01=0x0050, text=» ORR A2,A1 GET MOST SIGN BIT«, t00=0x003e, t01=0x017a}
0x626e…6280 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003f, t01=0x000e}
0x6280…6294 Head {h00=0x0010, h01=0x0050, text=»FND025 EQU *«, t00=0x003f, t01=0x0020}
0x6294…62ba Head {h00=0x0022, h01=0x0050, text=» ADR A4,A5 ADD MI BASE ADR - 2«, t00=0x003f, t01=0x0034}
0x62ba…62da Head {h00=0x001c, h01=0x0050, text=» ADK A4,2 ENTRY KEY ADR «, t00=0x003f, t01=0x005a}
0x62da…6302 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 ADDRESS OF ENTRY KEY «, t00=0x003f, t01=0x007a}
0x6302…6324 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A10 MAX KEY LENGTH«, t00=0x003f, t01=0x00a2}
0x6324…633e Head {h00=0x0016, h01=0x0050, text=» LDK A7,0 CHAR ADR«, t00=0x003f, t01=0x00c4}
0x633e…6362 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x003f, t01=0x00de}
0x6362…6378 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A12 M «, t00=0x003f, t01=0x0102}
0x6378…638a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x003f, t01=0x0118}
0x638a…63a4 Head {h00=0x0016, h01=0x0050, text=» ANK A6,/1 BIT 15 «, t00=0x003f, t01=0x012a}
0x63a4…63c0 Head {h00=0x0018, h01=0x0050, text=» SRA A7,1 M/2 FLOOR «, t00=0x003f, t01=0x0144}
0x63c0…63de Head {h00=0x001a, h01=0x0050, text=» ADR A6,A7 M/2 CEILING«, t00=0x003f, t01=0x0160}
0x63de…6400 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 CHKKEY RTN INF «, t00=0x003f, t01=0x017e}
0x6400…6432 Head {h00=0x002e, h01=0x0050, text=» RF(NG) FND040 SEARCHED KEY LESS OR EQUAL «, t00=0x0040, t01=0x0010}
0x6432…6440 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0042}
0x6440…644a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0050}
0x644a…646a Head {h00=0x001c, h01=0x0050, text=»* SEARCHED KEY GREATER«, t00=0x0040, t01=0x005a}
0x646a…6474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x007a}
0x6474…648a Head {h00=0x0012, h01=0x0050, text=» LDR A12,A12 M«, t00=0x0040, t01=0x0084}
0x648a…64ac Head {h00=0x001e, h01=0x0050, text=» RF(Z) FND050 SEARCH READY«, t00=0x0040, t01=0x009a}
0x64ac…64ce Head {h00=0x001e, h01=0x0050, text=» ADR A13,A6 I=I+(M/2 CEIL)«, t00=0x0040, t01=0x00bc}
0x64ce…64e2 Head {h00=0x0010, h01=0x0050, text=»FND030 EQU *«, t00=0x0040, t01=0x00de}
0x64e2…6502 Head {h00=0x001c, h01=0x0050, text=» LDR A12,A7 M=M/2 FLOOR «, t00=0x0040, t01=0x00f2}
0x6502…6514 Head {h00=0x000e, h01=0x0050, text=» RB FND020«, t00=0x0040, t01=0x0112}
0x6514…6528 Head {h00=0x0010, h01=0x0050, text=»FND040 EQU *«, t00=0x0040, t01=0x0124}
0x6528…653e Head {h00=0x0012, h01=0x0050, text=» LDR A12,A12 M«, t00=0x0040, t01=0x0138}
0x653e…6560 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FND060 SEARCH READY«, t00=0x0040, t01=0x014e}
0x6560…6582 Head {h00=0x001e, h01=0x0050, text=» SUR A13,A6 I=I-(M/2 CEIL)«, t00=0x0040, t01=0x0170}
0x6582…6594 (65, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB FND030«, t00=0x0041, t01=0x0004}
0x6594…65b8 Head {h00=0x0020, h01=0x0050, text=»FND045 EQU * NO MASTER INDEX«, t00=0x0041, t01=0x0016}
0x65b8…65ca Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0041, t01=0x003a}
0x65ca…65e4 Head {h00=0x0016, h01=0x0050, text=» LDK A2,1 REC NR 1«, t00=0x0041, t01=0x004c}
0x65e4…65f6 Head {h00=0x000e, h01=0x0050, text=» RF FND070«, t00=0x0041, t01=0x0066}
0x65f6…660a Head {h00=0x0010, h01=0x0050, text=»FND050 EQU *«, t00=0x0041, t01=0x0078}
0x660a…6638 Head {h00=0x002a, h01=0x0050, text=» ADR* A4,A5 NEXT ADDRESS OF ENTRY KEY «, t00=0x0041, t01=0x008c}
0x6638…664c Head {h00=0x0010, h01=0x0050, text=»FND060 EQU *«, t00=0x0041, t01=0x00ba}
0x664c…6668 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A4 ENTRY ADR«, t00=0x0041, t01=0x00ce}
0x6668…667a Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0041, t01=0x00ea}
0x667a…6698 Head {h00=0x001a, h01=0x0050, text=» ADR* A3,A5 ADR REC NO«, t00=0x0041, t01=0x00fc}
0x6698…66a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x011a}
0x66a2…66c6 Head {h00=0x0020, h01=0x0050, text=»* MOVE LOG REC NO TO A1,A2«, t00=0x0041, t01=0x0124}
0x66c6…66d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0148}
0x66d0…66e2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0041, t01=0x0152}
0x66e2…66f4 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0041, t01=0x0164}
0x66f4…6706 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0041, t01=0x0176}
0x6706…6718 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0041, t01=0x0188}
0x6718…672a Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0042, t01=0x000a}
0x672a…673c Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0042, t01=0x001c}
0x673c…674e Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0042, t01=0x002e}
0x674e…6762 Head {h00=0x0010, h01=0x0050, text=»FND070 EQU *«, t00=0x0042, t01=0x0040}
0x6762…6776 Head {h00=0x0010, h01=0x0050, text=» ABL CALSNO «, t00=0x0042, t01=0x0054}
0x6776…6784 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0068}
0x6784…67c0 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0042, t01=0x0076}
0x67c0…67ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b2}
0x67ca…67fc Head {h00=0x002e, h01=0x0050, text=»* CHKKEY COMPARES TWO CHARACTER STRINGS «, t00=0x0042, t01=0x00bc}
0x67fc…6806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ee}
0x6806…6842 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0042, t01=0x00f8}
0x6842…684c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0134}
0x684c…686e Head {h00=0x001e, h01=0x0050, text=»* A1 = ADR OF ENTRY KEY «, t00=0x0042, t01=0x013e}
0x686e…6890 Head {h00=0x001e, h01=0x0050, text=»* A9 = ADR OF SEARCH KEY«, t00=0x0042, t01=0x0160}
0x6890…68be Head {h00=0x002a, h01=0x0050, text=»* A6 = MAX NO OF CAHARACTERS IN KEY «, t00=0x0042, t01=0x0182}
0x68be…68f4 Head {h00=0x0032, h01=0x0050, text=»* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY «, t00=0x0043, t01=0x0020}
0x68f4…68fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0056}
0x68fe…691a Head {h00=0x0018, h01=0x0050, text=»* CF A14,CHKKEY «, t00=0x0043, t01=0x0060}
0x691a…6924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x007c}
0x6924…6960 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0043, t01=0x0086}
0x6960…696a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00c2}
0x696a…69a8 Head {h00=0x003a, h01=0x0050, text=»* A1 = 0 WHEN SEARCED KEY IS CONTAINED IN ENTRY KEY «, t00=0x0043, t01=0x00cc}
0x69a8…69d8 Head {h00=0x002c, h01=0x0050, text=»* = + 1 WHEN SEARCH KYEY IS GREATER«, t00=0x0043, t01=0x010a}
0x69d8…6a04 Head {h00=0x0028, h01=0x0050, text=»* = -1 WHEN SEARCH KEY IS LESS «, t00=0x0043, t01=0x013a}
0x6a04…6a56 Head {h00=0x004e, h01=0x0050, text=»* A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY«, t00=0x0043, t01=0x0166}
0x6a56…6a7c Head {h00=0x0022, h01=0x0050, text=»* A6 = MAX NO OF CHAR IN KEY«, t00=0x0044, t01=0x0028}
0x6a7c…6a9e Head {h00=0x001e, h01=0x0050, text=»* CR=0 WHEN KEY IS FOUND«, t00=0x0044, t01=0x004e}
0x6a9e…6ac2 Head {h00=0x0020, h01=0x0050, text=»* P WHEN KEY IS GREATER«, t00=0x0044, t01=0x0070}
0x6ac2…6ae4 Head {h00=0x001e, h01=0x0050, text=»* N WHEN KEY IS LESS «, t00=0x0044, t01=0x0094}
0x6ae4…6b0e Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0044, t01=0x00b6}
0x6b0e…6b18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00e0}
0x6b18…6b54 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0044, t01=0x00ea}
0x6b54…6b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0126}
0x6b5e…6b70 Head {h00=0x000e, h01=0x0050, text=»* A2,A3 «, t00=0x0044, t01=0x0130}
0x6b70…6bb0 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0044, t01=0x0142}
0x6bb0…6bbe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0182}
0x6bbe…6bd2 Head {h00=0x0010, h01=0x0050, text=»CHKKEY EQU *«, t00=0x0044, t01=0x0190}
0x6bd2…6bf8 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A9 SEARCH KEY ADDRESS «, t00=0x0045, t01=0x0014}
0x6bf8…6c20 Head {h00=0x0024, h01=0x0050, text=» ADR A3,A7 FIRST SC CHAR TO TEST«, t00=0x0045, t01=0x003a}
0x6c20…6c48 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A7 FIRST EC CHAR TO TEST«, t00=0x0045, t01=0x0062}
0x6c48…6c5c Head {h00=0x0010, h01=0x0050, text=»CHK020 EQU *«, t00=0x0045, t01=0x008a}
0x6c5c…6c80 Head {h00=0x0020, h01=0x0050, text=» LCR A2,A3 SEARCED KEY CHAR «, t00=0x0045, t01=0x009e}
0x6c80…6c9a Head {h00=0x0016, h01=0x0050, text=» CCR A2,A1 SC=EC? «, t00=0x0045, t01=0x00c2}
0x6c9a…6cbc Head {h00=0x001e, h01=0x0050, text=» RF(G) CHK100 SC GT TH EC «, t00=0x0045, t01=0x00dc}
0x6cbc…6ce2 Head {h00=0x0022, h01=0x0050, text=» RF(L) CHK120 SC LESS THAN EC «, t00=0x0045, t01=0x00fe}
0x6ce2…6d04 Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 NO OF SAME CHAR «, t00=0x0045, t01=0x0124}
0x6d04…6d22 Head {h00=0x001a, h01=0x0050, text=» CWR A7,A6 NO OF CHAR «, t00=0x0045, t01=0x0146}
0x6d22…6d4a Head {h00=0x0024, h01=0x0050, text=» RF(NL) CHK060 ALL CHAR CHECKED «, t00=0x0045, t01=0x0164}
0x6d4a…6d6a Head {h00=0x001c, h01=0x0050, text=» ADK A3,1 NXT SC TO TEST«, t00=0x0045, t01=0x018c}
0x6d6a…6d8a Head {h00=0x001c, h01=0x0050, text=» ADK A1,1 NXT EC TO TEST«, t00=0x0046, t01=0x001c}
0x6d8a…6d9e Head {h00=0x0010, h01=0x0050, text=» RB CHK020 «, t00=0x0046, t01=0x003c}
0x6d9e…6db2 Head {h00=0x0010, h01=0x0050, text=»CHK060 EQU *«, t00=0x0046, t01=0x0050}
0x6db2…6dca Head {h00=0x0014, h01=0x0050, text=» LDK A1,0 FOUND «, t00=0x0046, t01=0x0064}
0x6dca…6ddc Head {h00=0x000e, h01=0x0050, text=» RF CHK140«, t00=0x0046, t01=0x007c}
0x6ddc…6df0 Head {h00=0x0010, h01=0x0050, text=»CHK120 EQU *«, t00=0x0046, t01=0x008e}
0x6df0…6e18 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,-1 SEARCHED KEY SMALLER«, t00=0x0046, t01=0x00a2}
0x6e18…6e2a Head {h00=0x000e, h01=0x0050, text=» RF CHK140«, t00=0x0046, t01=0x00ca}
0x6e2a…6e3e Head {h00=0x0010, h01=0x0050, text=»CHK100 EQU *«, t00=0x0046, t01=0x00dc}
0x6e3e…6e66 Head {h00=0x0024, h01=0x0050, text=» LDK A1,1 SEARCHED KEY SGREATER «, t00=0x0046, t01=0x00f0}
0x6e66…6e7a Head {h00=0x0010, h01=0x0050, text=»CHK140 EQU *«, t00=0x0046, t01=0x0118}
0x6e7a…6ea6 Head {h00=0x0028, h01=0x0050, text=» ABL RETURN RETURN AND SET CONDITION«, t00=0x0046, t01=0x012c}
0x6ea6…6eb4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0158}
0x6eb4…6ef0 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0046, t01=0x0166}
0x6ef0…6efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0012}
0x6efa…6f3e Head {h00=0x0040, h01=0x0050, text=»* RDNXTR WILL MAKWE NEXT RECORD IN AN INDEX FILE AVAILABLE«, t00=0x0047, t01=0x001c}
0x6f3e…6f5a Head {h00=0x0018, h01=0x0050, text=»* IN A CORE BUFFER«, t00=0x0047, t01=0x0060}
0x6f5a…6fa2 Head {h00=0x0044, h01=0x0050, text=»* WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED«, t00=0x0047, t01=0x007c}
0x6fa2…6fcc Head {h00=0x0026, h01=0x0050, text=»* SECTOR WILL BE MADE AVAILABLE «, t00=0x0047, t01=0x00c4}
0x6fcc…6fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00ee}
0x6fd6…7012 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0047, t01=0x00f8}
0x7012…701c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0134}
0x701c…705a Head {h00=0x003a, h01=0x0050, text=»* A11= FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) «, t00=0x0047, t01=0x013e}
0x705a…7078 Head {h00=0x001a, h01=0x0050, text=»* FDBCEX,FDBSNR«, t00=0x0047, t01=0x017c}
0x7078…70be Head {h00=0x0042, h01=0x0050, text=»* FDBRRO = RECORD OFFSET IN BUFFER, WHEN = -1 THE FIRST«, t00=0x0048, t01=0x000a}
0x70be…70fa Head {h00=0x0038, h01=0x0050, text=»* RECORD IN CURRENT SECTOR IS WANTED«, t00=0x0048, t01=0x0050}
0x70fa…7138 Head {h00=0x003a, h01=0x0050, text=»* A4 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN«, t00=0x0048, t01=0x008c}
0x7138…717a Head {h00=0x003e, h01=0x0050, text=»* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED «, t00=0x0048, t01=0x00ca}
0x717a…7196 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0048, t01=0x010c}
0x7196…71a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0128}
0x71a0…71dc Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0048, t01=0x0132}
0x71dc…71e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x016e}
0x71e6…7202 Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADDRESS«, t00=0x0048, t01=0x0178}
0x7202…7222 (73, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* A4 = BUFFER ADDRESS «, t00=0x0049, t01=0x0004}
0x7222…7250 Head {h00=0x002a, h01=0x0050, text=»* = 0 WHEN NO BUFFER IS ALLOCATED«, t00=0x0049, t01=0x0024}
0x7250…726c Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0049, t01=0x0052}
0x726c…7296 Head {h00=0x0026, h01=0x0050, text=»* CR=0 WHEN PHYSICAL I/O FAILED «, t00=0x0049, t01=0x006e}
0x7296…72aa Head {h00=0x0010, h01=0x0050, text=»* IF CR=0 «, t00=0x0049, t01=0x0098}
0x72aa…72d0 Head {h00=0x0022, h01=0x0050, text=»* THEN A1=I/O RETURN CODE «, t00=0x0049, t01=0x00ac}
0x72d0…72fa Head {h00=0x0026, h01=0x0050, text=»* ELSE A1=FDBRR0=RECORD OFFSET«, t00=0x0049, t01=0x00d2}
0x72fa…7324 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 7 (WORDS)«, t00=0x0049, t01=0x00fc}
0x7324…732e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0126}
0x732e…736a Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0049, t01=0x0130}
0x736a…7374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x016c}
0x7374…7388 Head {h00=0x0010, h01=0x0050, text=»* A2,A3,A5«, t00=0x0049, t01=0x0176}
0x7388…7392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x018a}
0x7392…73d0 (74, 0, 400) Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x004a, t01=0x0004}
0x73d0…73de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0042}
0x73de…73f2 Head {h00=0x0010, h01=0x0050, text=»RDNXTR EQU *«, t00=0x004a, t01=0x0050}
0x73f2…7404 Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x004a, t01=0x0064}
0x7404…7428 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDN200 BUFFER EXIST «, t00=0x004a, t01=0x0076}
0x7428…7432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x009a}
0x7432…744a Head {h00=0x0014, h01=0x0050, text=»* GET A BUFFER«, t00=0x004a, t01=0x00a4}
0x744a…7454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00bc}
0x7454…7468 Head {h00=0x0010, h01=0x0050, text=»RDN040 EQU *«, t00=0x004a, t01=0x00c6}
0x7468…7492 Head {h00=0x0026, h01=0x0050, text=» CF A14,GTBKBU GET BLOCKBUFFERADDR«, t00=0x004a, t01=0x00da}
0x7492…74be Head {h00=0x0028, h01=0x0050, text=» RF(NN) RDN080 DATA ALREADY IN CORE «, t00=0x004a, t01=0x0104}
0x74be…74c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0130}
0x74c8…74e8 Head {h00=0x001c, h01=0x0050, text=»* READ BLOCK FROM DISC«, t00=0x004a, t01=0x013a}
0x74e8…74f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x015a}
0x74f2…750c Head {h00=0x0016, h01=0x0050, text=» LDR A3,A7 SAVE A7«, t00=0x004a, t01=0x0164}
0x750c…7528 Head {h00=0x0018, h01=0x0050, text=» CF A14,FMIORD READ «, t00=0x004a, t01=0x017e}
0x7528…753a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A3«, t00=0x004b, t01=0x000a}
0x753a…7558 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0 RETURN CODE «, t00=0x004b, t01=0x001c}
0x7558…7574 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) RDN900 ERROR«, t00=0x004b, t01=0x003a}
0x7574…7588 Head {h00=0x0010, h01=0x0050, text=»RDN080 EQU *«, t00=0x004b, t01=0x0056}
0x7588…759a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x004b, t01=0x006a}
0x759a…75c8 Head {h00=0x002a, h01=0x0050, text=» ST A1,FDBRRO,A11 OFFSET FIRST RECORD «, t00=0x004b, t01=0x007c}
0x75c8…75e2 Head {h00=0x0016, h01=0x0050, text=» RF RDN940 RETURN «, t00=0x004b, t01=0x00aa}
0x75e2…75f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x00c4}
0x75f0…75fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d2}
0x75fa…7618 Head {h00=0x001a, h01=0x0050, text=»* BUFFER WAS BEFORE «, t00=0x004b, t01=0x00dc}
0x7618…7622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00fa}
0x7622…7636 Head {h00=0x0010, h01=0x0050, text=»RDN200 EQU *«, t00=0x004b, t01=0x0104}
0x7636…765e Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRRO,A11 RECORD OFFSET «, t00=0x004b, t01=0x0118}
0x765e…7688 Head {h00=0x0026, h01=0x0050, text=» RB(N) RDN080 FIRST RECORD WANTED «, t00=0x004b, t01=0x0140}
0x7688…7692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x016a}
0x7692…76d0 Head {h00=0x003a, h01=0x0050, text=»* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER «, t00=0x004b, t01=0x0174}
0x76d0…76da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0022}
0x76da…76ee Head {h00=0x0010, h01=0x0050, text=»RDN220 EQU *«, t00=0x004c, t01=0x002c}
0x76ee…7712 Head {h00=0x0020, h01=0x0050, text=» CW A1,FDBMRO,A11 MAX OFFSET«, t00=0x004c, t01=0x0040}
0x7712…7740 Head {h00=0x002a, h01=0x0050, text=» RF(NL) RDN300 THIS REC LAST IN BUFFER«, t00=0x004c, t01=0x0064}
0x7740…774a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0092}
0x774a…777a Head {h00=0x002c, h01=0x0050, text=»* GET NEXT REC IN CURRENT BLOCKBUFFER «, t00=0x004c, t01=0x009c}
0x777a…7784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00cc}
0x7784…77ac Head {h00=0x0024, h01=0x0050, text=» AD A1,FDBRLE,A11 RECORD LENGTH «, t00=0x004c, t01=0x00d6}
0x77ac…77ca Head {h00=0x001a, h01=0x0050, text=» ADK A1,1 STATUS CHAR «, t00=0x004c, t01=0x00fe}
0x77ca…77ee Head {h00=0x0020, h01=0x0050, text=» ST A1,FDBRRO,A11 NEW OFFSET«, t00=0x004c, t01=0x011c}
0x77ee…7808 Head {h00=0x0016, h01=0x0050, text=» RF RDN940 RETURN «, t00=0x004c, t01=0x0140}
0x7808…7816 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x015a}
0x7816…7820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0168}
0x7820…7838 Head {h00=0x0014, h01=0x0050, text=»* GET NEW BLOCK «, t00=0x004c, t01=0x0172}
0x7838…7842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x018a}
0x7842…7856 (77, 0, 400) Head {h00=0x0010, h01=0x0050, text=»RDN300 EQU *«, t00=0x004d, t01=0x0004}
0x7856…7872 Head {h00=0x0018, h01=0x0050, text=» LD A1,FDBSNR+2,A11 «, t00=0x004d, t01=0x0018}
0x7872…7884 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x004d, t01=0x0034}
0x7884…78b8 Head {h00=0x0030, h01=0x0050, text=» LC A3,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK)«, t00=0x004d, t01=0x0046}
0x78b8…78d4 Head {h00=0x0018, h01=0x0050, text=» ADR A1,A3 NEXT SECT«, t00=0x004d, t01=0x007a}
0x78d4…78ea Head {h00=0x0012, h01=0x0050, text=» RF(O) RDN380 «, t00=0x004d, t01=0x0096}
0x78ea…78fc Head {h00=0x000e, h01=0x0050, text=» RF RDN390«, t00=0x004d, t01=0x00ac}
0x78fc…7918 Head {h00=0x0018, h01=0x0050, text=»RDN380 ANKL A1,/7FFF«, t00=0x004d, t01=0x00be}
0x7918…792e Head {h00=0x0012, h01=0x0050, text=» IM FDBSNR,A11«, t00=0x004d, t01=0x00da}
0x792e…7942 Head {h00=0x0010, h01=0x0050, text=»RDN390 EQU *«, t00=0x004d, t01=0x00f0}
0x7942…795e Head {h00=0x0018, h01=0x0050, text=» ST A1,FDBSNR+2,A11 «, t00=0x004d, t01=0x0104}
0x795e…7968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0120}
0x7968…7982 Head {h00=0x0016, h01=0x0050, text=»* GET NEXT BLOCK«, t00=0x004d, t01=0x012a}
0x7982…798c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0144}
0x798c…79a0 Head {h00=0x0010, h01=0x0050, text=»RDN500 EQU *«, t00=0x004d, t01=0x014e}
0x79a0…79c6 Head {h00=0x0022, h01=0x0050, text=» CF A14,SDMRBU RELEASE BUFFER «, t00=0x004d, t01=0x0162}
0x79c6…79e4 Head {h00=0x001a, h01=0x0050, text=» RB RDN040 NEXT SECTOR«, t00=0x004d, t01=0x0188}
0x79e4…79ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0016}
0x79ee…7a04 Head {h00=0x0012, h01=0x0050, text=»* ERROR EXIT«, t00=0x004e, t01=0x0020}
0x7a04…7a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0036}
0x7a0e…7a22 Head {h00=0x0010, h01=0x0050, text=»RDN900 EQU *«, t00=0x004e, t01=0x0040}
0x7a22…7a34 Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x004e, t01=0x0054}
0x7a34…7a54 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RDN960 NO BUFFER «, t00=0x004e, t01=0x0066}
0x7a54…7a7a Head {h00=0x0022, h01=0x0050, text=» CF A14,SDMRBU RELEASE BUFFER «, t00=0x004e, t01=0x0086}
0x7a7a…7a8e Head {h00=0x0010, h01=0x0050, text=»RDN960 EQU *«, t00=0x004e, t01=0x00ac}
0x7a8e…7ab2 Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 INDICATE NO BUFFER«, t00=0x004e, t01=0x00c0}
0x7ab2…7abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e4}
0x7abc…7aca Head {h00=0x000a, h01=0x0050, text=»* EXIT«, t00=0x004e, t01=0x00ee}
0x7aca…7ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00fc}
0x7ad4…7ae8 Head {h00=0x0010, h01=0x0050, text=»RDN940 EQU *«, t00=0x004e, t01=0x0106}
0x7ae8…7afc Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x004e, t01=0x011a}
0x7afc…7b1c Head {h00=0x001c, h01=0x0050, text=» ADK A4,0 SET CONDITION «, t00=0x004e, t01=0x012e}
0x7b1c…7b34 Head {h00=0x0014, h01=0x0050, text=» ABR* A14 RETURN«, t00=0x004e, t01=0x014e}
0x7b34…7b42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0166}
0x7b42…7b7e Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x004e, t01=0x0174}
0x7b7e…7b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0020}
0x7b88…7bca Head {h00=0x003e, h01=0x0050, text=»* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE «, t00=0x004f, t01=0x002a}
0x7bca…7bf8 Head {h00=0x002a, h01=0x0050, text=»* SPECIFIED KEY OR NEXT HIGHER KEY «, t00=0x004f, t01=0x006c}
0x7bf8…7c32 Head {h00=0x0036, h01=0x0050, text=»* IF END OF FILE, THE FIRST FREE RECORD IS FOUND«, t00=0x004f, t01=0x009a}
0x7c32…7c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00d4}
0x7c3c…7c78 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x004f, t01=0x00de}
0x7c78…7c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x011a}
0x7c82…7c9e Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADDRESS«, t00=0x004f, t01=0x0124}
0x7c9e…7cbe Head {h00=0x001c, h01=0x0050, text=»* A9 = SEARCH KEY ADDR«, t00=0x004f, t01=0x0140}
0x7cbe…7ce8 Head {h00=0x0026, h01=0x0050, text=»* A10 = NO OF CHARACTERS IN KEY «, t00=0x004f, t01=0x0160}
0x7ce8…7d0e Head {h00=0x0022, h01=0x0050, text=»* A8 = PHYSICAL ECB ADDRESS «, t00=0x004f, t01=0x018a}
0x7d0e…7d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0020}
0x7d18…7d54 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0050, t01=0x002a}
0x7d54…7d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0066}
0x7d5e…7d7a Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADDRESS«, t00=0x0050, t01=0x0070}
0x7d7a…7dae Head {h00=0x0030, h01=0x0050, text=»* FDBSNR,FDBRRO = FOUND INDEX RECORD «, t00=0x0050, t01=0x008c}
0x7dae…7dd4 Head {h00=0x0022, h01=0x0050, text=»* A1 = 0 WHEN KEY ISS FOUND «, t00=0x0050, t01=0x00c0}
0x7dd4…7e08 Head {h00=0x0030, h01=0x0050, text=»* = /400 WHEN NEXT HIGHER KEY IS FOUND«, t00=0x0050, t01=0x00e6}
0x7e08…7e3a Head {h00=0x002e, h01=0x0050, text=»* = RETURN CODE WHEN KEY IS NOT FOUND«, t00=0x0050, t01=0x011a}
0x7e3a…7e72 Head {h00=0x0034, h01=0x0050, text=»* BIT 1 CAN NEVBER BE SET BY DISC DRIVER «, t00=0x0050, t01=0x014c}
0x7e72…7e92 Head {h00=0x001c, h01=0x0050, text=»* A4 = BUFFER ADDRESS «, t00=0x0050, t01=0x0184}
0x7e92…7ebc Head {h00=0x0026, h01=0x0050, text=»* = 0 WHEN NO RECORD IS FOUND«, t00=0x0051, t01=0x0014}
0x7ebc…7ee2 Head {h00=0x0022, h01=0x0050, text=»* A7 = NO OF SAME CHARACTERS«, t00=0x0051, t01=0x003e}
0x7ee2…7f08 Head {h00=0x0022, h01=0x0050, text=»* A8 = PHYSICAL ECB ADDRESS «, t00=0x0051, t01=0x0064}
0x7f08…7f24 Head {h00=0x0018, h01=0x0050, text=»* A10 = UNCHANGED «, t00=0x0051, t01=0x008a}
0x7f24…7f46 Head {h00=0x001e, h01=0x0050, text=»* CR=0 WHEN KEY IS FOUND«, t00=0x0051, t01=0x00a6}
0x7f46…7f70 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 9 (WORDS)«, t00=0x0051, t01=0x00c8}
0x7f70…7f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00f2}
0x7f7a…7fb6 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0051, t01=0x00fc}
0x7fb6…7fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0138}
0x7fc0…7fe0 Head {h00=0x001c, h01=0x0050, text=»* A2-A3,A5-A7,A12-A13 «, t00=0x0051, t01=0x0142}
0x7fe0…7fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0162}
0x7fea…8028 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0051, t01=0x016c}
0x8028…8036 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x001a}
0x8036…804a Head {h00=0x0010, h01=0x0050, text=»FNDKEY EQU *«, t00=0x0052, t01=0x0028}
0x804a…8054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x003c}
0x8054…807e Head {h00=0x0026, h01=0x0050, text=»* FIRST SEARCH THE NMASTER INDEX«, t00=0x0052, t01=0x0046}
0x807e…8088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0070}
0x8088…80b6 Head {h00=0x002a, h01=0x0050, text=» LD A5,FDBMIA,A11 ADDR OF MASTER INDEX«, t00=0x0052, t01=0x007a}
0x80b6…80ea Head {h00=0x0030, h01=0x0050, text=» CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX«, t00=0x0052, t01=0x00a8}
0x80ea…8106 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FKY900 ERROR«, t00=0x0052, t01=0x00dc}
0x8106…812c Head {h00=0x0022, h01=0x0050, text=» LDR A6,A10 NO OF CHAR IN KEY «, t00=0x0052, t01=0x00f8}
0x812c…8154 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 START CHAR KEY SEARCH «, t00=0x0052, t01=0x011e}
0x8154…817e Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 NO BUFFER TO STYART WITH«, t00=0x0052, t01=0x0146}
0x817e…8192 Head {h00=0x0010, h01=0x0050, text=»FKY100 EQU *«, t00=0x0052, t01=0x0170}
0x8192…81ba Head {h00=0x0024, h01=0x0050, text=» CF A14,RDNXTR GET INDEX RECORD «, t00=0x0052, t01=0x0184}
0x81ba…81e6 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FKY900 I/O FAILED ,NO BUFFER «, t00=0x0053, t01=0x001c}
0x81e6…81f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0048}
0x81f0…8216 Head {h00=0x0022, h01=0x0050, text=»* BUFFER AND ADATA IS FOUND «, t00=0x0053, t01=0x0052}
0x8216…8220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0078}
0x8220…8234 Head {h00=0x0010, h01=0x0050, text=»FKY150 EQU *«, t00=0x0053, t01=0x0082}
0x8234…8252 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A4 BUFFER ADR «, t00=0x0053, t01=0x0096}
0x8252…826a Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFSTA «, t00=0x0053, t01=0x00b4}
0x826a…827c Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0053, t01=0x00cc}
0x827c…82b2 Head {h00=0x0032, h01=0x0050, text=» AD A5,FDBRLE,A11 ADDRESS TO STATUS CHARACTER «, t00=0x0053, t01=0x00de}
0x82b2…82c8 Head {h00=0x0012, h01=0x0050, text=» LCR A2,A5 =3«, t00=0x0053, t01=0x0114}
0x82c8…82f0 Head {h00=0x0024, h01=0x0050, text=» ANK A2,/FF STATUS CHARACTER =3 «, t00=0x0053, t01=0x012a}
0x82f0…8308 Head {h00=0x0014, h01=0x0050, text=» SUK A2,/FF =3 «, t00=0x0053, t01=0x0152}
0x8308…832a Head {h00=0x001e, h01=0x0050, text=» RF(Z) FKY200 USED RECORD «, t00=0x0053, t01=0x016a}
0x832a…8338 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x018c}
0x8338…8342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x000a}
0x8342…836c Head {h00=0x0026, h01=0x0050, text=»* NO MORE RECORDS IN THIS SECTOR«, t00=0x0054, t01=0x0014}
0x836c…8376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x003e}
0x8376…83a4 Head {h00=0x002a, h01=0x0050, text=» LD A13,FDBRRO,A11 SAVE CURRENT OFFSET«, t00=0x0054, t01=0x0048}
0x83a4…83be Head {h00=0x0016, h01=0x0050, text=» LD A5,FDBMRO,A11 «, t00=0x0054, t01=0x0076}
0x83be…83ec Head {h00=0x002a, h01=0x0050, text=» ST A5,FDBRRO,A11 LAST RECORD IN BLOCK«, t00=0x0054, t01=0x0090}
0x83ec…83f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00be}
0x83f6…8400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00c8}
0x8400…841e Head {h00=0x001a, h01=0x0050, text=»* CHECK IF END OF FILE«, t00=0x0054, t01=0x00d2}
0x841e…8428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00f0}
0x8428…8444 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A7 CHAR ADDR«, t00=0x0054, t01=0x00fa}
0x8444…846a Head {h00=0x0022, h01=0x0050, text=» CF A14,GTLGRN GET LOG REC NR «, t00=0x0054, t01=0x0116}
0x846a…8488 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A10 NR OF CHAR«, t00=0x0054, t01=0x013c}
0x8488…84a4 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A5 CHAR ADDR«, t00=0x0054, t01=0x015a}
0x84a4…84be Head {h00=0x0016, h01=0x0050, text=» CC A1,FDBLRN,A11 «, t00=0x0054, t01=0x0176}
0x84be…84dc Head {h00=0x001a, h01=0x0050, text=» RB(L) FKY100 NOT EOF «, t00=0x0054, t01=0x0190}
0x84dc…84f6 Head {h00=0x0016, h01=0x0050, text=» RF(G) FKY180 EOF «, t00=0x0055, t01=0x001e}
0x84f6…8512 Head {h00=0x0018, h01=0x0050, text=» CW A2,FDBLRN+1,A11 «, t00=0x0055, t01=0x0038}
0x8512…8530 Head {h00=0x001a, h01=0x0050, text=» RB(L) FKY100 NOT EOF «, t00=0x0055, t01=0x0054}
0x8530…853a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0072}
0x853a…855c Head {h00=0x001e, h01=0x0050, text=»* EOF IS IN THIS SECTOR «, t00=0x0055, t01=0x007c}
0x855c…8566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x009e}
0x8566…857a Head {h00=0x0010, h01=0x0050, text=»FKY180 EQU *«, t00=0x0055, t01=0x00a8}
0x857a…85b0 Head {h00=0x0032, h01=0x0050, text=» ST A13,FDBRRO,A11 OFFSET TO FIRST FREE RECORD«, t00=0x0055, t01=0x00bc}
0x85b0…85ca Head {h00=0x0016, h01=0x0050, text=» LDKL A1,EOFRC EOF«, t00=0x0055, t01=0x00f2}
0x85ca…85dc Head {h00=0x000e, h01=0x0050, text=» RF FKY900«, t00=0x0055, t01=0x010c}
0x85dc…85ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x011e}
0x85ea…85f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x012c}
0x85f4…861a Head {h00=0x0022, h01=0x0050, text=»* CHECK KEY IN THIS RECODRD «, t00=0x0055, t01=0x0136}
0x861a…8624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x015c}
0x8624…8638 Head {h00=0x0010, h01=0x0050, text=»FKY200 EQU *«, t00=0x0055, t01=0x0166}
0x8638…865c Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0055, t01=0x017a}
0x865c…867c Head {h00=0x001c, h01=0x0050, text=» RF(Z) FKY870 KEY FOUND «, t00=0x0056, t01=0x000e}
0x867c…86a2 Head {h00=0x0022, h01=0x0050, text=» RF(N) FKY850 SEARCH KEY LESS «, t00=0x0056, t01=0x002e}
0x86a2…86ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0054}
0x86ac…86c8 Head {h00=0x0018, h01=0x0050, text=»* SEARCH KEY GREATER«, t00=0x0056, t01=0x005e}
0x86c8…86d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x007a}
0x86d2…86e6 Head {h00=0x0010, h01=0x0050, text=»FKY840 EQU *«, t00=0x0056, t01=0x0084}
0x86e6…870c Head {h00=0x0022, h01=0x0050, text=» CC A7,-4,A5 NEXT KEY FLAG =3 «, t00=0x0056, t01=0x0098}
0x870c…873c Head {h00=0x002c, h01=0x0050, text=» RB(NG) FKY100 START OF KEY:S IDENTICAL «, t00=0x0056, t01=0x00be}
0x873c…8774 Head {h00=0x0034, h01=0x0050, text=» LC A7,-4,A5 REDUCE NUMBER OF SAME CHARACTERS =3«, t00=0x0056, t01=0x00ee}
0x8774…8790 Head {h00=0x0018, h01=0x0050, text=» RB FKY100 NEXT KEY «, t00=0x0056, t01=0x0126}
0x8790…879e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0142}
0x879e…87a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0150}
0x87a8…87c2 Head {h00=0x0016, h01=0x0050, text=»* SEARCH KEY LESS «, t00=0x0056, t01=0x015a}
0x87c2…87cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0174}
0x87cc…87e0 Head {h00=0x0010, h01=0x0050, text=»FKY850 EQU *«, t00=0x0056, t01=0x017e}
0x87e0…8804 (87, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDKL A1,NOKEY KEY NOT FOUND«, t00=0x0057, t01=0x0004}
0x8804…8816 Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x0057, t01=0x0028}
0x8816…8820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x003a}
0x8820…8834 Head {h00=0x0010, h01=0x0050, text=»* KEY FOUND «, t00=0x0057, t01=0x0044}
0x8834…883e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0058}
0x883e…8852 Head {h00=0x0010, h01=0x0050, text=»FKY870 EQU *«, t00=0x0057, t01=0x0062}
0x8852…886e Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 KEY FOUND «, t00=0x0057, t01=0x0076}
0x886e…8880 Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x0057, t01=0x0092}
0x8880…8894 Head {h00=0x0010, h01=0x0050, text=»FKY900 EQU *«, t00=0x0057, t01=0x00a4}
0x8894…88bc Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 NO OF SAME LEAD CHARS «, t00=0x0057, t01=0x00b8}
0x88bc…88d0 Head {h00=0x0010, h01=0x0050, text=»FKY950 EQU *«, t00=0x0057, t01=0x00e0}
0x88d0…88fc Head {h00=0x0028, h01=0x0050, text=» ABL RETURN RETURN AND SET CONDITION«, t00=0x0057, t01=0x00f4}
0x88fc…890a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0120}
0x890a…8914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x012e}
0x8914…8962 Head {h00=0x004a, h01=0x0050, text=»* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX «, t00=0x0057, t01=0x0138}
0x8962…8982 Head {h00=0x001c, h01=0x0050, text=»* RECORDS ARE UPDATED «, t00=0x0057, t01=0x0186}
0x8982…898c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0016}
0x898c…899c Head {h00=0x000c, h01=0x0050, text=»* IN: «, t00=0x0058, t01=0x0020}
0x899c…89c6 Head {h00=0x0026, h01=0x0050, text=»* A1,A2 = LAST RECORD NR MOVED «, t00=0x0058, t01=0x0030}
0x89c6…89f0 Head {h00=0x0026, h01=0x0050, text=»* A12,A13= FIRST RECORD NR MOVED«, t00=0x0058, t01=0x005a}
0x89f0…8a14 Head {h00=0x0020, h01=0x0050, text=»* A11 = FDB ADDR INDEX «, t00=0x0058, t01=0x0084}
0x8a14…8a3e Head {h00=0x0026, h01=0x0050, text=»* A7 = ADD PARAMETER +1, -1 «, t00=0x0058, t01=0x00a8}
0x8a3e…8a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00d2}
0x8a48…8a64 Head {h00=0x0018, h01=0x0050, text=»* USED REGISTERS: «, t00=0x0058, t01=0x00dc}
0x8a64…8a7c Head {h00=0x0014, h01=0x0050, text=»* A1-A3,A6-A7 «, t00=0x0058, t01=0x00f8}
0x8a7c…8a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0110}
0x8a86…8a96 Head {h00=0x000c, h01=0x0050, text=»* OUT:«, t00=0x0058, t01=0x011a}
0x8a96…8ab6 Head {h00=0x001c, h01=0x0050, text=»* A11= FDB ADDR INDEX «, t00=0x0058, t01=0x012a}
0x8ab6…8ad6 Head {h00=0x001c, h01=0x0050, text=»* A12,A13 = UNCHANGED «, t00=0x0058, t01=0x014a}
0x8ad6…8b00 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 4 (WORDS)«, t00=0x0058, t01=0x016a}
0x8b00…8b0a (89, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0004}
0x8b0a…8b1e Head {h00=0x0010, h01=0x0050, text=»CRNUPD EQU *«, t00=0x0059, t01=0x000e}
0x8b1e…8b46 Head {h00=0x0024, h01=0x0050, text=» LD A3,FDBADF,A11 FDB DATA FILE «, t00=0x0059, t01=0x0022}
0x8b46…8b52 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0059, t01=0x004a}
0x8b52…8b78 Head {h00=0x0022, h01=0x0050, text=» ADKL A3,FDBCRL CRN LINK ROOT «, t00=0x0059, t01=0x0056}
0x8b78…8b8c Head {h00=0x0010, h01=0x0050, text=»CRU100 EQU *«, t00=0x0059, t01=0x007c}
0x8b8c…8ba0 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A3 «, t00=0x0059, t01=0x0090}
0x8ba0…8bc2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) CRU900 END OF LINK «, t00=0x0059, t01=0x00a4}
0x8bc2…8be6 Head {h00=0x0020, h01=0x0050, text=» LC A6,FWTFNR,A11 FILE CODE «, t00=0x0059, t01=0x00c6}
0x8be6…8bfe Head {h00=0x0014, h01=0x0050, text=» CC A6,CRNCIF,A3«, t00=0x0059, t01=0x00ea}
0x8bfe…8c1e Head {h00=0x001c, h01=0x0050, text=» RB(NE) CRU100 WRONG FC «, t00=0x0059, t01=0x0102}
0x8c1e…8c3a Head {h00=0x0018, h01=0x0050, text=» CC A12,CRNCIF+1,A3 «, t00=0x0059, t01=0x0122}
0x8c3a…8c50 Head {h00=0x0012, h01=0x0050, text=» RB(G) CRU100 «, t00=0x0059, t01=0x013e}
0x8c50…8c66 Head {h00=0x0012, h01=0x0050, text=» RF(L) CRU200 «, t00=0x0059, t01=0x0154}
0x8c66…8c82 Head {h00=0x0018, h01=0x0050, text=» CW A13,CRNCIF+2,A3 «, t00=0x0059, t01=0x016a}
0x8c82…8c98 Head {h00=0x0012, h01=0x0050, text=» RB(G) CRU100 «, t00=0x0059, t01=0x0186}
0x8c98…8cac Head {h00=0x0010, h01=0x0050, text=»CRU200 EQU *«, t00=0x005a, t01=0x000c}
0x8cac…8cc6 Head {h00=0x0016, h01=0x0050, text=» CC A1,CRNCIF+1,A3«, t00=0x005a, t01=0x0020}
0x8cc6…8cdc Head {h00=0x0012, h01=0x0050, text=» RF(G) CRU300 «, t00=0x005a, t01=0x003a}
0x8cdc…8cf2 Head {h00=0x0012, h01=0x0050, text=» RB(L) CRU100 «, t00=0x005a, t01=0x0050}
0x8cf2…8d0c Head {h00=0x0016, h01=0x0050, text=» CW A2,CRNCIF+2,A3«, t00=0x005a, t01=0x0066}
0x8d0c…8d22 Head {h00=0x0012, h01=0x0050, text=» RB(L) CRU100 «, t00=0x005a, t01=0x0080}
0x8d22…8d36 Head {h00=0x0010, h01=0x0050, text=»CRU300 EQU *«, t00=0x005a, t01=0x0096}
0x8d36…8d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00aa}
0x8d40…8d56 Head {h00=0x0012, h01=0x0050, text=»* UPDATE CRN«, t00=0x005a, t01=0x00b4}
0x8d56…8d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00ca}
0x8d60…8d72 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x005a, t01=0x00d4}
0x8d72…8d8a Head {h00=0x0014, h01=0x0050, text=» RF(N) CRU230 -1«, t00=0x005a, t01=0x00e6}
0x8d8a…8d9c Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005a, t01=0x00fe}
0x8d9c…8db0 Head {h00=0x0010, h01=0x0050, text=»CRU230 EQU *«, t00=0x005a, t01=0x0110}
0x8db0…8dc6 Head {h00=0x0012, h01=0x0050, text=» ANKL A7,/7FFF«, t00=0x005a, t01=0x0124}
0x8dc6…8dd8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x005a, t01=0x013a}
0x8dd8…8df2 Head {h00=0x0016, h01=0x0050, text=» LC A1,CRNCIF+1,A3«, t00=0x005a, t01=0x014c}
0x8df2…8e0c Head {h00=0x0016, h01=0x0050, text=» LD A2,CRNCIF+2,A3«, t00=0x005a, t01=0x0166}
0x8e0c…8e22 Head {h00=0x0012, h01=0x0050, text=» CF A14,ADDMOD«, t00=0x005a, t01=0x0180}
0x8e22…8e3c Head {h00=0x0016, h01=0x0050, text=» SC A1,CRNCIF+1,A3«, t00=0x005b, t01=0x0008}
0x8e3c…8e56 Head {h00=0x0016, h01=0x0050, text=» ST A2,CRNCIF+2,A3«, t00=0x005b, t01=0x0022}
0x8e56…8e68 Head {h00=0x000e, h01=0x0050, text=» RB CRU100«, t00=0x005b, t01=0x003c}
0x8e68…8e7c Head {h00=0x0010, h01=0x0050, text=»CRU900 EQU *«, t00=0x005b, t01=0x004e}
0x8e7c…8e88 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x005b, t01=0x0062}
0x8e88…8e98 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x006e}
0x8e98…8eb0 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x005b, t01=0x007e}
0x8eb0…8eec Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x005b, t01=0x0096}
0x8eec…8ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00d2}
0x8ef6…8f3e Head {h00=0x0044, h01=0x0050, text=»* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO«, t00=0x005b, t01=0x00dc}
0x8f3e…8f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0124}
0x8f48…8f84 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x005b, t01=0x012e}
0x8f84…8f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x016a}
0x8f8e…8faa Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADDRESS«, t00=0x005b, t01=0x0174}
0x8faa…8fd4 Head {h00=0x0026, h01=0x0050, text=»* FDBSNR,FDBRRO,FDBCEX «, t00=0x005b, t01=0x0190}
0x8fd4…8fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x002a}
0x8fde…901a Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x005c, t01=0x0034}
0x901a…9024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0070}
0x9024…9046 Head {h00=0x001e, h01=0x0050, text=»* A1,A2 = LOG RECORD NO «, t00=0x005c, t01=0x007a}
0x9046…9070 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 4 (WORDS)«, t00=0x005c, t01=0x009c}
0x9070…907a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00c6}
0x907a…90b6 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x005c, t01=0x00d0}
0x90b6…90c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x010c}
0x90c0…90d2 Head {h00=0x000e, h01=0x0050, text=»* A6,A7 «, t00=0x005c, t01=0x0116}
0x90d2…90dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0128}
0x90dc…911a Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x005c, t01=0x0132}
0x911a…9132 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x005c, t01=0x0170}
0x9132…9146 Head {h00=0x0010, h01=0x0050, text=»GTLGRN EQU *«, t00=0x005c, t01=0x0188}
0x9146…9164 Head {h00=0x001a, h01=0x0050, text=» ST A4,-4,A14 SAVE A4 «, t00=0x005d, t01=0x000c}
0x9164…917e Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBSNR,A11 «, t00=0x005d, t01=0x002a}
0x917e…91a6 Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBSNR+2,A11 REL SECT NR «, t00=0x005d, t01=0x0044}
0x91a6…91b8 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005d, t01=0x006c}
0x91b8…91ca Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x005d, t01=0x007e}
0x91ca…91e0 Head {h00=0x0012, h01=0x0050, text=» CF A14,DSUMOD«, t00=0x005d, t01=0x0090}
0x91e0…91f2 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005d, t01=0x00a6}
0x91f2…9216 Head {h00=0x0020, h01=0x0050, text=» LC A6,FDBBLZ,A11 BLOCK SIZE«, t00=0x005d, t01=0x00b8}
0x9216…922c Head {h00=0x0012, h01=0x0050, text=» CF A14,DIVMOD«, t00=0x005d, t01=0x00dc}
0x922c…924a Head {h00=0x001a, h01=0x0050, text=» LDR A6,A2 BLOCKS - 1 «, t00=0x005d, t01=0x00f2}
0x924a…9254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0110}
0x9254…9280 Head {h00=0x0028, h01=0x0050, text=»* CONVERT FDBRRO TO NO OF RECORDS «, t00=0x005d, t01=0x011a}
0x9280…928a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0146}
0x928a…929c Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x005d, t01=0x0150}
0x929c…92c2 Head {h00=0x0022, h01=0x0050, text=» LC A7,FDBBLF,A11 BLOCK FACTOR«, t00=0x005d, t01=0x0162}
0x92c2…92e4 Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A1,A2=A6*A7«, t00=0x005d, t01=0x0188}
0x92e4…92fe Head {h00=0x0016, h01=0x0050, text=» LD A4,FDBRLE,A11 «, t00=0x005e, t01=0x001a}
0x92fe…931e Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 RECORD LENGTH «, t00=0x005e, t01=0x0034}
0x931e…933e Head {h00=0x001c, h01=0x0050, text=» LDK A7,0 RECORD COUNTER«, t00=0x005e, t01=0x0054}
0x933e…9368 Head {h00=0x0026, h01=0x0050, text=» LD A6,FDBRRO,A11 OFFSET IN SECTOR«, t00=0x005e, t01=0x0074}
0x9368…937a Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x005e, t01=0x009e}
0x937a…938e Head {h00=0x0010, h01=0x0050, text=»GTL150 EQU *«, t00=0x005e, t01=0x00b0}
0x938e…93ae Head {h00=0x001c, h01=0x0050, text=» ADK A7,1 RECORD COUNTER«, t00=0x005e, t01=0x00c4}
0x93ae…93c0 Head {h00=0x000e, h01=0x0050, text=» SUR A6,A4«, t00=0x005e, t01=0x00e4}
0x93c0…93ee Head {h00=0x002a, h01=0x0050, text=» RB(NN) GTL150 COUNT RECORDS IN SECTOR«, t00=0x005e, t01=0x00f6}
0x93ee…93f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0124}
0x93f8…9428 Head {h00=0x002c, h01=0x0050, text=»* ADD SECT*BLOCFACT AND RECINCURRSECT «, t00=0x005e, t01=0x012e}
0x9428…9432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x015e}
0x9432…9444 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x005e, t01=0x0168}
0x9444…9462 Head {h00=0x001a, h01=0x0050, text=» RF(O) GTL160 OVERFLOW«, t00=0x005e, t01=0x017a}
0x9462…9474 Head {h00=0x000e, h01=0x0050, text=» RF GTL170«, t00=0x005f, t01=0x0008}
0x9474…9488 Head {h00=0x0010, h01=0x0050, text=»GTL160 EQU *«, t00=0x005f, t01=0x001a}
0x9488…94b2 Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/7FFF DELETE OVERFLOWBIT «, t00=0x005f, t01=0x002e}
0x94b2…94ce Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x005f, t01=0x0058}
0x94ce…94e2 Head {h00=0x0010, h01=0x0050, text=»GTL170 EQU *«, t00=0x005f, t01=0x0074}
0x94e2…9506 Head {h00=0x0020, h01=0x0050, text=» LD A4,-4,A14 SAVED REGISTER«, t00=0x005f, t01=0x0088}
0x9506…9516 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005f, t01=0x00ac}
0x9516…9524 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x00bc}
0x9524…952e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00ca}
0x952e…9562 Head {h00=0x0030, h01=0x0050, text=»* RECECB=MOVE RECORD NUMBER TO ECBCW1,ECBCW2«, t00=0x005f, t01=0x00d4}
0x9562…956c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0108}
0x956c…958c Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A11=FDB ADDRESS«, t00=0x005f, t01=0x0112}
0x958c…95be Head {h00=0x002e, h01=0x0050, text=»* A4=BUFFER ADDRESS FROM SUB FNDKEY«, t00=0x005f, t01=0x0132}
0x95be…95de Head {h00=0x001c, h01=0x0050, text=»* A9=ECB ADDRESS «, t00=0x005f, t01=0x0164}
0x95de…95e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0184}
0x95e8…960e Head {h00=0x0022, h01=0x0050, text=»* EXIT: A11,A4,A9=NOT CHANGED«, t00=0x005f, t01=0x018e}
0x960e…9636 Head {h00=0x0024, h01=0x0050, text=»* A1,A2 =USED REGISTERS«, t00=0x0060, t01=0x0024}
0x9636…9660 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0060, t01=0x004c}
0x9660…966a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0076}
0x966a…967e Head {h00=0x0010, h01=0x0050, text=»RECECB EQU *«, t00=0x0060, t01=0x0080}
0x967e…96a4 Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBRRO,A11 RECORD ADDR «, t00=0x0060, t01=0x0094}
0x96a4…96bc Head {h00=0x0014, h01=0x0050, text=» ADKL A2,BUFSTA «, t00=0x0060, t01=0x00ba}
0x96bc…96d8 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A4 REC ADDR «, t00=0x0060, t01=0x00d2}
0x96d8…9700 Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRLE,A11 RECORD LENGTH «, t00=0x0060, t01=0x00ee}
0x9700…9712 Head {h00=0x000e, h01=0x0050, text=» SUK A1,6 «, t00=0x0060, t01=0x0116}
0x9712…9726 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A1 «, t00=0x0060, t01=0x0128}
0x9726…9730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x013c}
0x9730…9752 Head {h00=0x001e, h01=0x0050, text=»* MOVE LOG REC NO TO ECB«, t00=0x0060, t01=0x0146}
0x9752…975c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0168}
0x975c…976e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0060, t01=0x0172}
0x976e…9782 Head {h00=0x0010, h01=0x0050, text=» LC A1,3,A2 «, t00=0x0060, t01=0x0184}
0x9782…979a Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A9 «, t00=0x0061, t01=0x0008}
0x979a…97ae Head {h00=0x0010, h01=0x0050, text=» LC A1,4,A2 «, t00=0x0061, t01=0x0020}
0x97ae…97c0 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0061, t01=0x0034}
0x97c0…97d4 Head {h00=0x0010, h01=0x0050, text=» LC A1,5,A2 «, t00=0x0061, t01=0x0046}
0x97d4…97ee Head {h00=0x0016, h01=0x0050, text=» ST A1,ECBCW+2,A9 «, t00=0x0061, t01=0x005a}
0x97ee…97fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0074}
0x97fe…980a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0084}
0x980a…9812 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0090}
0x9812…981a Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0098}
0x981a…9822 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x00a0}
0x9822…982e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0061, t01=0x00a8}
0x982e…9832 Head {h00=0x4004, h01=0x0000}
0x9832…9836 00 61 00 b4 ┆ a ┆
0x9836…983e (98, 1, 8) 20 04 00 00 00 62 00 04 ┆ b ┆
0x983e…988e (99, 0, 400) 00 58 00 0a 01 6a 00 0c 00 08 02 03 a2 45 4f 46 52 43 00 0b 00 0a 00 2c 00 28 03 13 00 00 06 4d 24 92 55 00 e1 4f 00 00 00 58 82 4f 00 01 00 58 81 ce 00 00 00 0e 83 20 00 00 00 88 ab 47 00 00 00 72 00 0b 00 1a 00 0e 00 0a 02 04 c2 43 52 4e ┆ X j EOFRC , ( M$ U O X O X G r CRN┆
0x988e…98de 55 50 44 3a 00 0b 00 4a 00 2c 00 28 03 13 00 90 06 63 24 04 07 01 f6 a1 00 00 00 8a f6 a1 00 00 00 3a 8f 20 04 bc 11 00 8c 20 04 64 81 4e 00 00 00 14 91 10 00 0b 00 5c 00 2a 00 26 03 12 00 00 06 7d 42 00 91 4e 00 00 00 20 11 07 e2 24 ea 47 ┆UPD: J , ( c$ : d N * & }B N $ G┆
0x98de…992e 00 01 00 2e 54 00 e2 44 00 01 e2 08 e2 44 00 02 ea 46 00 0b 00 8c 00 2a 00 26 03 12 00 00 06 97 81 10 00 02 00 2e 50 00 ea c5 ff ff 5c 2e f6 a1 00 00 00 6e 58 70 f6 a1 00 00 00 6a 58 36 81 4e 00 0b 00 ba 00 2c 00 28 03 13 00 00 06 af 90 02 ┆ .T D D F * & .P . nXp jX6 N , ( ┆
0x992e…997e 00 00 00 6c 81 4f 00 00 00 14 5f 16 e7 44 ff ff 27 ff 87 5b 00 10 ea 9c 54 00 82 20 00 00 00 70 00 0b 00 e8 00 2a 00 26 03 12 00 00 06 c9 41 20 aa 47 00 00 00 72 92 a0 00 07 82 10 92 20 00 00 00 68 92 4e 00 00 00 14 81 08 91 0a 83 4e 00 0b ┆ l O _ D ' [ T p * & A G r h N N ┆
0x997e…99ce 01 18 00 2c 00 28 03 13 00 00 06 e1 92 08 00 00 00 6c 9b 4e 00 00 00 14 f6 a1 00 00 00 2a 92 0a 1a 01 e3 29 f6 a1 00 00 00 62 84 84 85 88 00 0b 01 46 00 2c 00 28 03 13 00 00 06 f9 49 24 83 4e 00 00 00 14 86 4e 00 00 00 6c 86 4f 00 00 00 14 ┆ , ( l N * ) b F , ( I$ N N l O ┆
0x99ce…9a1e (100, 0, 400) f6 a1 00 00 00 62 83 4f 00 00 00 14 87 20 00 0b 01 76 00 0e 00 0a 02 04 c2 44 53 55 4d 4f 44 2e 00 0c 00 16 00 2a 00 26 03 12 00 00 07 0f 22 20 ff ff f6 a1 00 00 00 8a 05 01 81 4e 00 00 00 14 54 00 f6 a1 00 00 00 62 06 00 07 01 f6 a1 00 0c ┆ b O v DSUMOD. * & " N T b ┆
0x9a1e…9a6e 00 28 00 2c 00 28 03 13 00 04 07 27 88 20 00 00 00 8c 50 00 f6 a1 00 00 00 32 54 00 15 00 50 00 f6 a1 00 00 00 52 8c 20 03 50 05 00 f6 a1 00 0c 00 56 00 2c 00 28 03 13 00 00 07 41 88 88 00 00 00 3a 04 00 f6 a1 00 00 00 6e 58 a6 81 4e 00 00 ┆ ( , ( ' P 2T P R P V , ( A : nX N ┆
0x9a6e…9abe 00 6c 57 00 99 4e 00 00 00 20 19 01 81 4f 00 0c 00 86 00 2c 00 28 03 13 00 00 07 59 90 48 00 00 00 14 f6 a1 00 00 00 6a 5c 4a 81 8c 84 8e 83 ce 00 00 00 16 f6 a1 00 00 00 54 83 92 e1 4e 00 0c 00 b6 00 2c 00 28 03 13 00 00 07 71 90 92 00 00 ┆ lW N O , ( Y H j J T N , ( q ┆
0x9abe…9b0e 00 66 e9 49 00 00 00 64 54 00 83 08 f6 a1 00 00 00 62 e1 4d 00 01 00 64 82 4d 00 02 00 64 00 0c 00 e6 00 2c 00 28 03 13 00 02 07 87 00 10 e2 5a 00 11 ea 47 ff fc 56 00 e2 47 ff fc 57 00 15 00 50 00 f6 a1 00 00 00 52 8c 20 03 50 8f 20 00 0c ┆ f I dT b M d M d , ( Z G V G W P R P ┆
0x9b0e…9b5e 01 16 00 2c 00 28 03 13 80 00 07 a5 20 92 06 68 87 4e 00 00 00 10 27 3f 1f 04 54 00 82 46 00 00 00 2e 83 46 00 02 00 2e ea 4f 00 00 00 58 00 0c 01 46 00 0e 00 0a 02 04 c2 47 54 42 4b 42 55 20 00 0c 01 76 00 2c 00 28 03 13 00 00 07 bd 10 82 ┆ , ( h N '? T F . F . O X F GTBKBU v , ( ┆