|
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: 38970 (0x983a)
Notes: pts_type(SC)
Names: »SDMSUB.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/SDMSUB.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/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 0 X:A EQU 0 INDXAC EQU X:A * * 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 X:B =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 0«, t00=0x0007, t01=0x0080}
0x0b7e…0b90 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0007, t01=0x0094}
0x0b90…0ba6 Head {h00=0x0012, h01=0x0050, text=»INDXAC EQU X:A«, t00=0x0007, t01=0x00a6}
0x0ba6…0bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00bc}
0x0bb0…0bdc Head {h00=0x0028, h01=0x0050, text=»* A VERSION LEAVING OUT OPEN MODES: «, t00=0x0007, t01=0x00c6}
0x0bdc…0c0a Head {h00=0x002a, h01=0x0050, text=»* OPEN OUTPUT,OPEN EXTEND AND DISCARD «, t00=0x0007, t01=0x00f2}
0x0c0a…0c30 Head {h00=0x0022, h01=0x0050, text=»* IS OBTAINED BY SETTING Y:C=0«, t00=0x0007, t01=0x0120}
0x0c30…0c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0146}
0x0c3a…0c50 Head {h00=0x0012, h01=0x0050, text=»X:B EQU 0 =5 «, t00=0x0007, t01=0x0150}
0x0c50…0c6c Head {h00=0x0018, h01=0x0050, text=»CRDEEX EQU X:B =5 «, t00=0x0007, t01=0x0166}
0x0c6c…0c7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0182}
0x0c7a…0c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0190}
0x0c84…0cc6 Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE RELEASES PROTECTION AT END OF TRANSACTION«, t00=0x0008, t01=0x000a}
0x0cc6…0cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004c}
0x0cd0…0cfc Head {h00=0x0028, h01=0x0050, text=»* ENTRY : A3 = DM INTERNAL USER ID«, t00=0x0008, t01=0x0056}
0x0cfc…0d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0082}
0x0d06…0d28 Head {h00=0x001e, h01=0x0050, text=»* USED REGS A1 - A5 , A9«, t00=0x0008, t01=0x008c}
0x0d28…0d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ae}
0x0d32…0d5c Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 4 (WORDS)«, t00=0x0008, t01=0x00b8}
0x0d5c…0d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e2}
0x0d66…0d8e Head {h00=0x0024, h01=0x0050, text=»RELPRO EQU * RELEASE PROTECTION «, t00=0x0008, t01=0x00ec}
0x0d8e…0db2 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A11 SAVE FDB ADDRESS«, t00=0x0008, t01=0x0114}
0x0db2…0dda Head {h00=0x0024, h01=0x0050, text=» LDKL A11,FDBSTA FIRST FWT ADDR «, t00=0x0008, t01=0x0138}
0x0dda…0dee Head {h00=0x0010, h01=0x0050, text=»REL050 EQU *«, t00=0x0008, t01=0x0160}
0x0dee…0e02 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A11«, t00=0x0008, t01=0x0174}
0x0e02…0e14 Head {h00=0x000e, h01=0x0050, text=» ANK A1,/1«, t00=0x0008, t01=0x0188}
0x0e14…0e32 Head {h00=0x001a, h01=0x0050, text=» RF(Z) REL053 NOT USED«, t00=0x0009, t01=0x000a}
0x0e32…0e66 Head {h00=0x0030, h01=0x0050, text=» LDKL A1,/C000 REMOVE BUFFERS FOR THIS TASK «, t00=0x0009, t01=0x0028}
0x0e66…0e7c Head {h00=0x0012, h01=0x0050, text=» CF A14,EARELB«, t00=0x0009, t01=0x005c}
0x0e7c…0e88 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0009, t01=0x0072}
0x0e88…0e9c Head {h00=0x0010, h01=0x0050, text=»REL053 EQU *«, t00=0x0009, t01=0x007e}
0x0e9c…0eb2 Head {h00=0x0012, h01=0x0050, text=» LDR* A11,A11 «, t00=0x0009, t01=0x0092}
0x0eb2…0ed6 Head {h00=0x0020, h01=0x0050, text=» ANKL A11,/FFFE SKIP USE BIT«, t00=0x0009, t01=0x00a8}
0x0ed6…0ef6 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) REL050 MORE FDBS«, t00=0x0009, t01=0x00cc}
0x0ef6…0f16 Head {h00=0x001c, h01=0x0050, text=» LDR A11,A9 FDB ADDRESS «, t00=0x0009, t01=0x00ec}
0x0f16…0f26 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0009, t01=0x010c}
0x0f26…0f34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x011c}
0x0f34…0f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012a}
0x0f3e…0f54 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0134}
0x0f54…0f6a Head {h00=0x0012, h01=0x0050, text=»* MOVBW * «, t00=0x0009, t01=0x014a}
0x0f6a…0f80 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0160}
0x0f80…0f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0176}
0x0f8a…0fb0 Head {h00=0x0022, h01=0x0050, text=»* ENTRY DMTBM BYTE MOVE «, t00=0x0009, t01=0x0180}
0x0fb0…0fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0016}
0x0fba…0fe0 Head {h00=0x0022, h01=0x0050, text=»* INPUT A1 = FROM ADDRESS «, t00=0x000a, t01=0x0020}
0x0fe0…1010 Head {h00=0x002c, h01=0x0050, text=»* A3 = NO OF BYTES TO BE MOVED«, t00=0x000a, t01=0x0046}
0x1010…1034 Head {h00=0x0020, h01=0x0050, text=»* A2 = TO ADDRESS «, t00=0x000a, t01=0x0076}
0x1034…103e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009a}
0x103e…1048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a4}
0x1048…106a Head {h00=0x001e, h01=0x0050, text=»* OUTPUT A3 = NEXT CHAR «, t00=0x000a, t01=0x00ae}
0x106a…1074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d0}
0x1074…109e Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x000a, t01=0x00da}
0x109e…10a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0104}
0x10a8…10bc Head {h00=0x0010, h01=0x0050, text=»DMTB10 EQU *«, t00=0x000a, t01=0x010e}
0x10bc…10d0 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A14«, t00=0x000a, t01=0x0122}
0x10d0…10e0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000a, t01=0x0136}
0x10e0…10ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0146}
0x10ea…111e Head {h00=0x0030, h01=0x0050, text=»* MOVBW HAS THE SAME FUNCTION AS DMTBM BUT«, t00=0x000a, t01=0x0150}
0x111e…113c Head {h00=0x001a, h01=0x0050, text=»* MOVES FROM THE END«, t00=0x000a, t01=0x0184}
0x113c…1146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1146…115a Head {h00=0x0010, h01=0x0050, text=»MOVBW EQU * «, t00=0x000b, t01=0x001c}
0x115a…116e Head {h00=0x0010, h01=0x0050, text=» STR A4,A14 «, t00=0x000b, t01=0x0030}
0x116e…1180 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x000b, t01=0x0044}
0x1180…1192 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x000b, t01=0x0056}
0x1192…11a6 Head {h00=0x0010, h01=0x0050, text=»DMTB20 EQU *«, t00=0x000b, t01=0x0068}
0x11a6…11b8 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x000b, t01=0x007c}
0x11b8…11ce Head {h00=0x0012, h01=0x0050, text=» RB(N) DMTB10 «, t00=0x000b, t01=0x008e}
0x11ce…11e0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000b, t01=0x00a4}
0x11e0…11f2 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x000b, t01=0x00b6}
0x11f2…1204 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x000b, t01=0x00c8}
0x1204…1216 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A2«, t00=0x000b, t01=0x00da}
0x1216…1228 Head {h00=0x000e, h01=0x0050, text=» RB DMTB20«, t00=0x000b, t01=0x00ec}
0x1228…1240 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x000b, t01=0x00fe}
0x1240…127c Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x000b, t01=0x0116}
0x127c…1286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0152}
0x1286…12c6 Head {h00=0x003c, h01=0x0050, text=»* EATEST WILL SEARCH THE EA-LINK FOR A LOG RECORD NO. «, t00=0x000b, t01=0x015c}
0x12c6…12d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000c}
0x12d0…130c Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x000c, t01=0x0016}
0x130c…1316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0052}
0x1316…1332 Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADRESS «, t00=0x000c, t01=0x005c}
0x1332…1354 Head {h00=0x001e, h01=0x0050, text=»* A1,A2 = LOG RECORD NO «, t00=0x000c, t01=0x0078}
0x1354…135e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009a}
0x135e…137a Head {h00=0x0018, h01=0x0050, text=»* CF A14,EATEST «, t00=0x000c, t01=0x00a4}
0x137a…1384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c0}
0x1384…13c0 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000c, t01=0x00ca}
0x13c0…13ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0106}
0x13ca…13ec Head {h00=0x001e, h01=0x0050, text=»* A1,A2,A11 = UNCHANGED «, t00=0x000c, t01=0x0110}
0x13ec…140e Head {h00=0x001e, h01=0x0050, text=»* A3 = 0 NO EA AT ALL «, t00=0x000c, t01=0x0132}
0x140e…143c Head {h00=0x002a, h01=0x0050, text=»* = +1 EA FOUND FOR ACTUAL TASK «, t00=0x000c, t01=0x0154}
0x143c…146a Head {h00=0x002a, h01=0x0050, text=»* = -1 EA FOUND FO R OTHER TASK «, t00=0x000c, t01=0x0182}
0x146a…1494 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x000d, t01=0x0020}
0x1494…149e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004a}
0x149e…14da Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x000d, t01=0x0054}
0x14da…14e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0090}
0x14e4…14ec Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x009a}
0x14ec…1508 Head {h00=0x0018, h01=0x0050, text=»BLKTID EQU 4 TASK ID«, t00=0x000d, t01=0x00a2}
0x1508…153c Head {h00=0x0030, h01=0x0050, text=»BLKRNM EQU 5 RECORD NUMBER MOST SIGNIFICANT «, t00=0x000d, t01=0x00be}
0x153c…1570 Head {h00=0x0030, h01=0x0050, text=»BLKRNL EQU 2 RECORD NUMBER LEAST SIGNIFICANT«, t00=0x000d, t01=0x00f2}
0x1570…1588 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x000d, t01=0x0126}
0x1588…159c Head {h00=0x0010, h01=0x0050, text=»EATEST EQU *«, t00=0x000d, t01=0x013e}
0x159c…15c2 Head {h00=0x0022, h01=0x0050, text=» LD A3,FDBEAL,A11 BUFFER QUEUE«, t00=0x000d, t01=0x0152}
0x15c2…15d4 Head {h00=0x000e, h01=0x0050, text=» RF EAT030«, t00=0x000d, t01=0x0178}
0x15d4…15e8 Head {h00=0x0010, h01=0x0050, text=»EAT020 EQU *«, t00=0x000d, t01=0x018a}
0x15e8…160c Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A3 NEXT BUFFER ADR «, t00=0x000e, t01=0x000e}
0x160c…1620 Head {h00=0x0010, h01=0x0050, text=»EAT030 EQU *«, t00=0x000e, t01=0x0032}
0x1620…1648 Head {h00=0x0024, h01=0x0050, text=» RF(Z) EAT100 EMPTY QUEUE,NO EA «, t00=0x000e, t01=0x0046}
0x1648…1652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006e}
0x1652…1670 Head {h00=0x001a, h01=0x0050, text=»* SEARCH LOG REC NO «, t00=0x000e, t01=0x0078}
0x1670…167a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0096}
0x167a…16a2 Head {h00=0x0024, h01=0x0050, text=» CC A1,BLKRNM,A3 FIRST CHARACTER«, t00=0x000e, t01=0x00a0}
0x16a2…16b8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAT020«, t00=0x000e, t01=0x00c8}
0x16b8…16e2 Head {h00=0x0026, h01=0x0050, text=» CW A2,BLKRNL,A3 2 AND 3 CHARACTER«, t00=0x000e, t01=0x00de}
0x16e2…16f8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAT020«, t00=0x000e, t01=0x0108}
0x16f8…1702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011e}
0x1702…171e Head {h00=0x0018, h01=0x0050, text=»* RECORD NO FOUND «, t00=0x000e, t01=0x0128}
0x171e…1728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0144}
0x1728…1740 Head {h00=0x0014, h01=0x0050, text=» LC A3,BLKTID,A3«, t00=0x000e, t01=0x014e}
0x1740…1762 Head {h00=0x001e, h01=0x0050, text=» CC A3,FDBTNR,A11 TASK ID «, t00=0x000e, t01=0x0166}
0x1762…1778 Head {h00=0x0012, h01=0x0050, text=» RF(E) EAT060 «, t00=0x000e, t01=0x0188}
0x1778…179a Head {h00=0x001e, h01=0x0050, text=» LDKL A3,-1 EA OTHER TASK «, t00=0x000f, t01=0x000e}
0x179a…17ac Head {h00=0x000e, h01=0x0050, text=» RF EAT100«, t00=0x000f, t01=0x0030}
0x17ac…17c0 Head {h00=0x0010, h01=0x0050, text=»EAT060 EQU *«, t00=0x000f, t01=0x0042}
0x17c0…17e0 Head {h00=0x001c, h01=0x0050, text=» LDK A3,1 EA SAME ATASK «, t00=0x000f, t01=0x0056}
0x17e0…17f4 Head {h00=0x0010, h01=0x0050, text=»EAT100 EQU *«, t00=0x000f, t01=0x0076}
0x17f4…1808 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x000f, t01=0x008a}
0x1808…181a Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x000f, t01=0x009e}
0x181a…182c Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x000f, t01=0x00b0}
0x182c…1844 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x000f, t01=0x00c2}
0x1844…1880 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x000f, t01=0x00da}
0x1880…188a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0116}
0x188a…18d0 Head {h00=0x0042, h01=0x0050, text=»* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK«, t00=0x000f, t01=0x0120}
0x18d0…1920 Head {h00=0x004c, h01=0x0050, text=»* IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS «, t00=0x000f, t01=0x0166}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0026}
0x192a…1966 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0010, t01=0x0030}
0x1966…1970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006c}
0x1970…198a Head {h00=0x0016, h01=0x0050, text=»* A11= FDB ADDR «, t00=0x0010, t01=0x0076}
0x198a…19b0 Head {h00=0x0022, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO «, t00=0x0010, t01=0x0090}
0x19b0…19ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b6}
0x19ba…19d6 Head {h00=0x0018, h01=0x0050, text=»* CF A14,EASETB «, t00=0x0010, t01=0x00c0}
0x19d6…19e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00dc}
0x19e0…1a1c Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0010, t01=0x00e6}
0x1a1c…1a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0122}
0x1a26…1a40 Head {h00=0x0016, h01=0x0050, text=»* A11= FDB ADDR «, t00=0x0010, t01=0x012c}
0x1a40…1a6a Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0010, t01=0x0146}
0x1a6a…1a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0170}
0x1a74…1ab0 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0010, t01=0x017a}
0x1ab0…1aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0026}
0x1aba…1acc Head {h00=0x000e, h01=0x0050, text=»* A1,A4 «, t00=0x0011, t01=0x0030}
0x1acc…1ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0042}
0x1ad6…1b16 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0011, t01=0x004c}
0x1b16…1b2e Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0011, t01=0x008c}
0x1b2e…1b42 Head {h00=0x0010, h01=0x0050, text=»EASETB EQU *«, t00=0x0011, t01=0x00a4}
0x1b42…1b54 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0011, t01=0x00b8}
0x1b54…1b76 Head {h00=0x001e, h01=0x0050, text=» LC A1,FDBTNR,A11 TASK ID «, t00=0x0011, t01=0x00ca}
0x1b76…1b88 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0011, t01=0x00ec}
0x1b88…1b94 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0011, t01=0x00fe}
0x1b94…1bc4 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETBLK GET BUFF AND STORE A1,A2 «, t00=0x0011, t01=0x010a}
0x1bc4…1bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x013a}
0x1bce…1bec Head {h00=0x001a, h01=0x0050, text=»* LINK BUFFER TO FDB«, t00=0x0011, t01=0x0144}
0x1bec…1bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0162}
0x1bf6…1c1a Head {h00=0x0020, h01=0x0050, text=» LD A1,FDBEAL,A11 LINK ROOT «, t00=0x0011, t01=0x016c}
0x1c1a…1c34 Head {h00=0x0016, h01=0x0050, text=» STR A1,A4 THREAD «, t00=0x0011, t01=0x0190}
0x1c34…1c56 Head {h00=0x001e, h01=0x0050, text=» ST A4,FDBEAL,A11 NEW ROOT«, t00=0x0012, t01=0x001a}
0x1c56…1c62 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0012, t01=0x003c}
0x1c62…1c72 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x0048}
0x1c72…1c8a Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0012, t01=0x0058}
0x1c8a…1cc6 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0012, t01=0x0070}
0x1cc6…1cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ac}
0x1cd0…1d0c Head {h00=0x0038, h01=0x0050, text=»* EARELB WILL RELEASE EA BUFFERS AND CONNECT THEM «, t00=0x0012, t01=0x00b6}
0x1d0c…1d2a Head {h00=0x001a, h01=0x0050, text=»* TO THE FREE LINK. «, t00=0x0012, t01=0x00f2}
0x1d2a…1d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0110}
0x1d34…1d70 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0012, t01=0x011a}
0x1d70…1d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0156}
0x1d7a…1d96 Head {h00=0x0018, h01=0x0050, text=»* A11= FDB-ADDRESS«, t00=0x0012, t01=0x0160}
0x1d96…1dbc Head {h00=0x0022, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO «, t00=0x0012, t01=0x017c}
0x1dbc…1e02 Head {h00=0x0042, h01=0x0050, text=»* A1: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB «, t00=0x0013, t01=0x0012}
0x1e02…1e1c Head {h00=0x0016, h01=0x0050, text=»* AND A3 = 0«, t00=0x0013, t01=0x0058}
0x1e1c…1e4a Head {h00=0x002a, h01=0x0050, text=»* ARE REMOVED. «, t00=0x0013, t01=0x0072}
0x1e4a…1e6a Head {h00=0x001c, h01=0x0050, text=»* A1: BIT 0=1,BIT 1=1 «, t00=0x0013, t01=0x00a0}
0x1e6a…1ea2 Head {h00=0x0034, h01=0x0050, text=»* AND A3 NOT EQ 0 ALL BUFFERS ON FDB WITH«, t00=0x0013, t01=0x00c0}
0x1ea2…1ee6 Head {h00=0x0040, h01=0x0050, text=»* TASK ID AS SPEC IN A3 ARE RELEASED «, t00=0x0013, t01=0x00f8}
0x1ee6…1f26 Head {h00=0x003c, h01=0x0050, text=»* BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB ARE REMOVED.«, t00=0x0013, t01=0x013c}
0x1f26…1f74 Head {h00=0x004a, h01=0x0050, text=»* BIT 0=0 THE FIRST BUFFER WITH TASK ID AND LOG REC NO «, t00=0x0013, t01=0x017c}
0x1f74…1fa8 Head {h00=0x0030, h01=0x0050, text=»* AS SPEC IS REMOVED.«, t00=0x0014, t01=0x003a}
0x1fa8…1fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006e}
0x1fb2…1fee Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0014, t01=0x0078}
0x1fee…1ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b4}
0x1ff8…201a Head {h00=0x001e, h01=0x0050, text=»* A11,A3,A1 = UNCHANGED «, t00=0x0014, t01=0x00be}
0x201a…2044 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0014, t01=0x00e0}
0x2044…204e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x010a}
0x204e…208a Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0014, t01=0x0114}
0x208a…2094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0150}
0x2094…20a8 Head {h00=0x0010, h01=0x0050, text=»* A2,A4,A5«, t00=0x0014, t01=0x015a}
0x20a8…20b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x016e}
0x20b2…20ec Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0014, t01=0x0178}
0x20ec…20f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0022}
0x20f6…211a Head {h00=0x0020, h01=0x0050, text=»* THE ROUTINE SETS INHIBIT«, t00=0x0015, t01=0x002c}
0x211a…2132 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0015, t01=0x0050}
0x2132…2146 Head {h00=0x0010, h01=0x0050, text=»EARELB EQU *«, t00=0x0015, t01=0x0068}
0x2146…215a Head {h00=0x0010, h01=0x0050, text=» LDR A4,A11 «, t00=0x0015, t01=0x007c}
0x215a…217a Head {h00=0x001c, h01=0x0050, text=» ADKL A4,FDBEAL ROOT ADR«, t00=0x0015, t01=0x0090}
0x217a…218e Head {h00=0x0010, h01=0x0050, text=»EAR020 EQU *«, t00=0x0015, t01=0x00b0}
0x218e…21ae Head {h00=0x001c, h01=0x0050, text=» LDR A5,A4 SAVE OLD ROOT«, t00=0x0015, t01=0x00c4}
0x21ae…21d2 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A4 NEXT BUFFER ADR «, t00=0x0015, t01=0x00e4}
0x21d2…21f4 Head {h00=0x001e, h01=0x0050, text=» RF(Z) EAR100 EA LINK END «, t00=0x0015, t01=0x0108}
0x21f4…220e Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 REC NO «, t00=0x0015, t01=0x012a}
0x220e…2238 Head {h00=0x0026, h01=0x0050, text=» RF(N) EAR050 RELEASE MANY BUFFERS«, t00=0x0015, t01=0x0144}
0x2238…2242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016e}
0x2242…2260 Head {h00=0x001a, h01=0x0050, text=»* SEARCH LOG REC NO «, t00=0x0015, t01=0x0178}
0x2260…226a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0008}
0x226a…2282 Head {h00=0x0014, h01=0x0050, text=» CC A1,BLKRNM,A4«, t00=0x0016, t01=0x0012}
0x2282…2298 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x0016, t01=0x002a}
0x2298…22b0 Head {h00=0x0014, h01=0x0050, text=» CW A2,BLKRNL,A4«, t00=0x0016, t01=0x0040}
0x22b0…22c6 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x0016, t01=0x0058}
0x22c6…22d8 Head {h00=0x000e, h01=0x0050, text=» RF EAR060«, t00=0x0016, t01=0x006e}
0x22d8…22ec Head {h00=0x0010, h01=0x0050, text=»EAR050 EQU *«, t00=0x0016, t01=0x0080}
0x22ec…230e Head {h00=0x001e, h01=0x0050, text=» CWK A1,/A000 CHECK BIT 1 «, t00=0x0016, t01=0x0094}
0x230e…2342 Head {h00=0x0030, h01=0x0050, text=» RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED«, t00=0x0016, t01=0x00b6}
0x2342…2360 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A3 REQ TASK ID«, t00=0x0016, t01=0x00ea}
0x2360…2384 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) EAR065 TASK ID IN A3«, t00=0x0016, t01=0x0108}
0x2384…2398 Head {h00=0x0010, h01=0x0050, text=»EAR060 EQU *«, t00=0x0016, t01=0x012c}
0x2398…23a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0140}
0x23a2…23c0 Head {h00=0x001a, h01=0x0050, text=»* SEARCH TASK IDENT «, t00=0x0016, t01=0x014a}
0x23c0…23ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0168}
0x23ca…23ec Head {h00=0x001e, h01=0x0050, text=» LC A2,FDBTNR,A11 TASK ID «, t00=0x0016, t01=0x0172}
0x23ec…2400 (23, 0, 398) Head {h00=0x0010, h01=0x0050, text=»EAR065 EQU *«, t00=0x0017, t01=0x0004}
0x2400…2418 Head {h00=0x0014, h01=0x0050, text=» CC A2,BLKTID,A4«, t00=0x0017, t01=0x0018}
0x2418…242e Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x0017, t01=0x0030}
0x242e…243c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0046}
0x243c…2446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0054}
0x2446…2462 Head {h00=0x0018, h01=0x0050, text=»* EA BUFFER FOUND «, t00=0x0017, t01=0x005e}
0x2462…246c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007a}
0x246c…2480 Head {h00=0x0010, h01=0x0050, text=»EAR080 EQU *«, t00=0x0017, t01=0x0084}
0x2480…24a0 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A4 NEXT BUFADR «, t00=0x0017, t01=0x0098}
0x24a0…24ca Head {h00=0x0026, h01=0x0050, text=» STR A2,A5 REMOVE BUFFER FROM LINK«, t00=0x0017, t01=0x00b8}
0x24ca…24d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e2}
0x24d4…24f6 Head {h00=0x001e, h01=0x0050, text=»* RETURN BUFFER TO POOL «, t00=0x0017, t01=0x00ec}
0x24f6…2500 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010e}
0x2500…250c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0017, t01=0x0118}
0x250c…2522 Head {h00=0x0012, h01=0x0050, text=» LD A2,FREQUE «, t00=0x0017, t01=0x0124}
0x2522…253e Head {h00=0x0018, h01=0x0050, text=» STR A2,A4 NEXT FREE«, t00=0x0017, t01=0x013a}
0x253e…255c Head {h00=0x001a, h01=0x0050, text=» ST A4,FREQUE NEW ROOT«, t00=0x0017, t01=0x0156}
0x255c…257a Head {h00=0x001a, h01=0x0050, text=» LDR A4,A5 BUFFER ROOT«, t00=0x0017, t01=0x0174}
0x257a…258c (24, 0, 398) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0018, t01=0x0004}
0x258c…25ae Head {h00=0x001e, h01=0x0050, text=» RB(N) EAR020 RELEASE MORE«, t00=0x0018, t01=0x0016}
0x25ae…25c2 Head {h00=0x0010, h01=0x0050, text=»EAR100 EQU *«, t00=0x0018, t01=0x0038}
0x25c2…25d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x004c}
0x25d2…25ea Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0018, t01=0x005c}
0x25ea…2626 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0018, t01=0x0074}
0x2626…2630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b0}
0x2630…2678 Head {h00=0x0044, h01=0x0050, text=»* CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS«, t00=0x0018, t01=0x00ba}
0x2678…26c0 Head {h00=0x0044, h01=0x0050, text=»* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH «, t00=0x0018, t01=0x0102}
0x26c0…270c Head {h00=0x0048, h01=0x0050, text=»* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE«, t00=0x0018, t01=0x014a}
0x270c…2740 Head {h00=0x0030, h01=0x0050, text=»* THE SYSTEM WILL HALT AND LITE SOP-LAMPS.«, t00=0x0019, t01=0x0008}
0x2740…276c Head {h00=0x0028, h01=0x0050, text=»* TASK ID IS PLACED IN THE BUFFER «, t00=0x0019, t01=0x003c}
0x276c…2776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0068}
0x2776…27b2 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0019, t01=0x0072}
0x27b2…27bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ae}
0x27bc…27e2 Head {h00=0x0022, h01=0x0050, text=»* A11= FDB ADDRESS DATA FILE«, t00=0x0019, t01=0x00b8}
0x27e2…280c Head {h00=0x0026, h01=0x0050, text=»* FDBTNR,A11 = TASK NUMBER «, t00=0x0019, t01=0x00de}
0x280c…2836 Head {h00=0x0026, h01=0x0050, text=»* FDBTNR,A11=CALLING TASK NUMBER«, t00=0x0019, t01=0x0108}
0x2836…285a Head {h00=0x0020, h01=0x0050, text=»* FDBCRL,A11=CURRENCY LINK«, t00=0x0019, t01=0x0132}
0x285a…2864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0156}
0x2864…28a0 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0019, t01=0x0160}
0x28a0…28aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000c}
0x28aa…28c4 Head {h00=0x0016, h01=0x0050, text=»* A11= UNCHANGED«, t00=0x001a, t01=0x0016}
0x28c4…28f0 Head {h00=0x0028, h01=0x0050, text=»* A2 = ADDRESS OF FOUND CRN-BUFFER«, t00=0x001a, t01=0x0030}
0x28f0…291a Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x001a, t01=0x005c}
0x291a…2924 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0086}
0x2924…2960 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x001a, t01=0x0090}
0x2960…296a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00cc}
0x296a…297c Head {h00=0x000e, h01=0x0050, text=»* A1,A3 «, t00=0x001a, t01=0x00d6}
0x297c…2986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e8}
0x2986…29c0 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001a, t01=0x00f2}
0x29c0…29ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012c}
0x29ca…29e2 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x001a, t01=0x0136}
0x29e2…29f6 Head {h00=0x0010, h01=0x0050, text=»CRNGET EQU *«, t00=0x001a, t01=0x014e}
0x29f6…2a0e Head {h00=0x0014, h01=0x0050, text=» LDKL A2,FDBCRL «, t00=0x001a, t01=0x0162}
0x2a0e…2a2a Head {h00=0x0018, h01=0x0050, text=» ADR A2,A11 CRN ROOT«, t00=0x001a, t01=0x017a}
0x2a2a…2a3e Head {h00=0x0010, h01=0x0050, text=»CRN020 EQU *«, t00=0x001b, t01=0x0008}
0x2a3e…2a5e Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A2 NEXT BUFFER «, t00=0x001b, t01=0x001c}
0x2a5e…2a7c Head {h00=0x001a, h01=0x0050, text=» RF(Z) CRN100 LINK END«, t00=0x001b, t01=0x003c}
0x2a7c…2a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005a}
0x2a86…2aa4 Head {h00=0x001a, h01=0x0050, text=»* CHECK ATASK IDENT «, t00=0x001b, t01=0x0064}
0x2aa4…2aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0082}
0x2aae…2ad0 Head {h00=0x001e, h01=0x0050, text=» LC A3,FDBTNR,A11 TASK ID «, t00=0x001b, t01=0x008c}
0x2ad0…2ae8 Head {h00=0x0014, h01=0x0050, text=» CC A3,CRNTID,A2«, t00=0x001b, t01=0x00ae}
0x2ae8…2b0a Head {h00=0x001e, h01=0x0050, text=» RB(NE) CRN020 OTHER TASK «, t00=0x001b, t01=0x00c6}
0x2b0a…2b2a Head {h00=0x001c, h01=0x0050, text=» RF CRN200 BUFFER FOUND «, t00=0x001b, t01=0x00e8}
0x2b2a…2b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0108}
0x2b34…2b4e Head {h00=0x0016, h01=0x0050, text=»* GET NEW BUFFER«, t00=0x001b, t01=0x0112}
0x2b4e…2b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x012c}
0x2b58…2b6c Head {h00=0x0010, h01=0x0050, text=»CRN100 EQU *«, t00=0x001b, t01=0x0136}
0x2b6c…2b78 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001b, t01=0x014a}
0x2b78…2b9c Head {h00=0x0020, h01=0x0050, text=» LD A2,CRNQUE FREE LINK ROOT«, t00=0x001b, t01=0x0156}
0x2b9c…2bb2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CRN120«, t00=0x001b, t01=0x017a}
0x2bb2…2bd2 Head {h00=0x001c, h01=0x0050, text=» LDK A1,3 LAMP 10 AND 11«, t00=0x001b, t01=0x0190}
0x2bd2…2bf6 Head {h00=0x0020, h01=0x0050, text=» CF A15,HALT NO MORE BUFFERS«, t00=0x001c, t01=0x0020}
0x2bf6…2c0a Head {h00=0x0010, h01=0x0050, text=»CRN120 EQU *«, t00=0x001c, t01=0x0044}
0x2c0a…2c28 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A2 NEXT FREE «, t00=0x001c, t01=0x0058}
0x2c28…2c46 Head {h00=0x001a, h01=0x0050, text=» ST A3,CRNQUE UPD ROOT«, t00=0x001c, t01=0x0076}
0x2c46…2c54 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0094}
0x2c54…2c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a2}
0x2c5e…2c82 Head {h00=0x0020, h01=0x0050, text=»* FILL BUFFER WITH ZEROES «, t00=0x001c, t01=0x00ac}
0x2c82…2c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d0}
0x2c8c…2cba Head {h00=0x002a, h01=0x0050, text=» LDKL A3,CRBUFL BUFFER LENGTH IN BYTES«, t00=0x001c, t01=0x00da}
0x2cba…2cce Head {h00=0x0010, h01=0x0050, text=»CRN140 EQU *«, t00=0x001c, t01=0x0108}
0x2cce…2cf2 Head {h00=0x0020, h01=0x0050, text=» SUK A3,2 ZEROE WORDS 2 - N «, t00=0x001c, t01=0x011c}
0x2cf2…2d16 Head {h00=0x0020, h01=0x0050, text=» RF(NP) CRN160 BUFFER ZEROED«, t00=0x001c, t01=0x0140}
0x2d16…2d34 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 BUFFER ADR «, t00=0x001c, t01=0x0164}
0x2d34…2d58 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A3 OFFSET IN BUFFER «, t00=0x001c, t01=0x0182}
0x2d58…2d68 Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x001d, t01=0x0016}
0x2d68…2d86 Head {h00=0x001a, h01=0x0050, text=» RB CRN140 MORE WORDS «, t00=0x001d, t01=0x0026}
0x2d86…2d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0044}
0x2d90…2db6 Head {h00=0x0022, h01=0x0050, text=»* CONNECT NEW BUFFER TO LINK«, t00=0x001d, t01=0x004e}
0x2db6…2dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0074}
0x2dc0…2dd4 Head {h00=0x0010, h01=0x0050, text=»CRN160 EQU *«, t00=0x001d, t01=0x007e}
0x2dd4…2dee Head {h00=0x0016, h01=0x0050, text=» LC A3,FDBTNR,A11 «, t00=0x001d, t01=0x0092}
0x2dee…2e0e Head {h00=0x001c, h01=0x0050, text=» SC A3,CRNTID,A2 TASK ID«, t00=0x001d, t01=0x00ac}
0x2e0e…2e32 Head {h00=0x0020, h01=0x0050, text=» LD A3,FDBCRL,A11 LINK ROOT «, t00=0x001d, t01=0x00cc}
0x2e32…2e4c Head {h00=0x0016, h01=0x0050, text=» STR A3,A2 THREAD «, t00=0x001d, t01=0x00f0}
0x2e4c…2e6e Head {h00=0x001e, h01=0x0050, text=» ST A2,FDBCRL,A11 NEW ROOT«, t00=0x001d, t01=0x010a}
0x2e6e…2e82 Head {h00=0x0010, h01=0x0050, text=»CRN200 EQU *«, t00=0x001d, t01=0x012c}
0x2e82…2e8e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001d, t01=0x0140}
0x2e8e…2e9e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x014c}
0x2e9e…2eb6 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x001d, t01=0x015c}
0x2eb6…2ef2 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x001d, t01=0x0174}
0x2ef2…2efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0020}
0x2efc…2f32 Head {h00=0x0032, h01=0x0050, text=»* CALSNO WILL CONVERT A LOGICAL RECORD NO TO«, t00=0x001e, t01=0x002a}
0x2f32…2f46 Head {h00=0x0010, h01=0x0050, text=»* RELATIVE«, t00=0x001e, t01=0x0060}
0x2f46…2f64 Head {h00=0x001a, h01=0x0050, text=»* SECTOR AND OFFSET «, t00=0x001e, t01=0x0074}
0x2f64…2f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0092}
0x2f6e…2faa Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x001e, t01=0x009c}
0x2faa…2fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d8}
0x2fb4…2fda Head {h00=0x0022, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO «, t00=0x001e, t01=0x00e2}
0x2fda…2ff4 Head {h00=0x0016, h01=0x0050, text=»* A11= FDB ADDR «, t00=0x001e, t01=0x0108}
0x2ff4…2ffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0122}
0x2ffe…301a Head {h00=0x0018, h01=0x0050, text=»* CF A14,CALSNO «, t00=0x001e, t01=0x012c}
0x301a…3024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0148}
0x3024…3060 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x001e, t01=0x0152}
0x3060…306a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x018e}
0x306a…3080 Head {h00=0x0012, h01=0x0050, text=»* A1 = 0 OK«, t00=0x001f, t01=0x0008}
0x3080…30b0 Head {h00=0x002c, h01=0x0050, text=»* NE 0 , ERROR =/A000=END OF MEDIUM «, t00=0x001f, t01=0x001e}
0x30b0…30ca Head {h00=0x0016, h01=0x0050, text=»* A11= UNCHANGED«, t00=0x001f, t01=0x004e}
0x30ca…30f2 Head {h00=0x0024, h01=0x0050, text=»* IN FDB : FDBSNR = SECTOR NR «, t00=0x001f, t01=0x0068}
0x30f2…3120 Head {h00=0x002a, h01=0x0050, text=»* FDBRRO = OFFSET IN BLOCK«, t00=0x001f, t01=0x0090}
0x3120…314a Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 5 (WORDS)«, t00=0x001f, t01=0x00be}
0x314a…3154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e8}
0x3154…3190 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x001f, t01=0x00f2}
0x3190…319a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012e}
0x319a…31b2 Head {h00=0x0014, h01=0x0050, text=»* A2-A3,A6-A7 «, t00=0x001f, t01=0x0138}
0x31b2…31ca Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x001f, t01=0x0150}
0x31ca…31de Head {h00=0x0010, h01=0x0050, text=»CALSNO EQU *«, t00=0x001f, t01=0x0168}
0x31de…31fc Head {h00=0x001a, h01=0x0050, text=» ST A4,-4,A14 SAVE A4 «, t00=0x001f, t01=0x017c}
0x31fc…3206 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x000a}
0x3206…322c Head {h00=0x0022, h01=0x0050, text=»* FIND BLOCK NO WITHIN FILE «, t00=0x0020, t01=0x0014}
0x322c…3236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003a}
0x3236…3248 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0020, t01=0x0044}
0x3248…3272 Head {h00=0x0026, h01=0x0050, text=» LC A6,FDBBLF,A11 BLOCKING FACTOR «, t00=0x0020, t01=0x0056}
0x3272…32a2 Head {h00=0x002c, h01=0x0050, text=» CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER«, t00=0x0020, t01=0x0080}
0x32a2…32c0 Head {h00=0x001a, h01=0x0050, text=» RF(O) CALERR OVERFLOW«, t00=0x0020, t01=0x00b0}
0x32c0…32dc Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 QUOTIENT «, t00=0x0020, t01=0x00ce}
0x32dc…32f8 Head {h00=0x0018, h01=0x0050, text=» LDR A4,A1 REMAINDER«, t00=0x0020, t01=0x00ea}
0x32f8…3316 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TIOD30 REST = 0«, t00=0x0020, t01=0x0106}
0x3316…333c Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 RECORD IN NEXT BLOCK«, t00=0x0020, t01=0x0124}
0x333c…334e Head {h00=0x000e, h01=0x0050, text=» RF TIOD40«, t00=0x0020, t01=0x014a}
0x334e…3362 Head {h00=0x0010, h01=0x0050, text=»TIOD30 EQU *«, t00=0x0020, t01=0x015c}
0x3362…3388 Head {h00=0x0022, h01=0x0050, text=» LC A4,FDBBLF,A11 BLOCK FACTOR«, t00=0x0020, t01=0x0170}
0x3388…3392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0008}
0x3392…33c0 Head {h00=0x002a, h01=0x0050, text=»* FIND LOGICAL SECTOR NUMBER ON DISC«, t00=0x0021, t01=0x0012}
0x33c0…33ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0040}
0x33ca…33de Head {h00=0x0010, h01=0x0050, text=»TIOD40 EQU *«, t00=0x0021, t01=0x004a}
0x33de…33fa Head {h00=0x0018, h01=0x0050, text=» LDR A6,A3 BLOCK NR «, t00=0x0021, t01=0x005e}
0x33fa…3410 Head {h00=0x0012, h01=0x0050, text=» RF(NP) CALERR«, t00=0x0021, t01=0x007a}
0x3410…3422 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0021, t01=0x0090}
0x3422…3434 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0021, t01=0x00a2}
0x3434…3462 Head {h00=0x002a, h01=0x0050, text=» LC A7,FDBBLZ,A11 NR OF SECT IN BLOCK «, t00=0x0021, t01=0x00b4}
0x3462…3478 Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0021, t01=0x00e2}
0x3478…348a Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0021, t01=0x00f8}
0x348a…34a0 Head {h00=0x0012, h01=0x0050, text=» RF(O) CAL050 «, t00=0x0021, t01=0x010a}
0x34a0…34b2 Head {h00=0x000e, h01=0x0050, text=» RF CAL090«, t00=0x0021, t01=0x0120}
0x34b2…34c6 Head {h00=0x0010, h01=0x0050, text=»CAL050 EQU *«, t00=0x0021, t01=0x0132}
0x34c6…34dc Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x0021, t01=0x0146}
0x34dc…34f4 Head {h00=0x0014, h01=0x0050, text=» ADK A1,1 CARRY «, t00=0x0021, t01=0x015c}
0x34f4…3508 Head {h00=0x0010, h01=0x0050, text=»CAL090 EQU *«, t00=0x0021, t01=0x0174}
0x3508…3522 Head {h00=0x0016, h01=0x0050, text=» ST A1,FDBSNR,A11 «, t00=0x0021, t01=0x0188}
0x3522…3546 Head {h00=0x0020, h01=0x0050, text=» ST A2,FDBSNR+2,A11 SECT NR «, t00=0x0022, t01=0x0012}
0x3546…3554 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0036}
0x3554…355e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0044}
0x355e…3592 Head {h00=0x0030, h01=0x0050, text=»* FIND RELATIVE RECORD OFFSET WITHIN BLOCK«, t00=0x0022, t01=0x004e}
0x3592…359c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0082}
0x359c…35ae Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0022, t01=0x008c}
0x35ae…35d4 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A4 REL REC NR IN BLOCK«, t00=0x0022, t01=0x009e}
0x35d4…35e8 Head {h00=0x0010, h01=0x0050, text=»TIOD60 EQU *«, t00=0x0022, t01=0x00c4}
0x35e8…3608 Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 A2=REL REC NR «, t00=0x0022, t01=0x00d8}
0x3608…3634 Head {h00=0x0028, h01=0x0050, text=» RF(Z) TIOD65 REL REC OFFS IN A3 NOW«, t00=0x0022, t01=0x00f8}
0x3634…3664 Head {h00=0x002c, h01=0x0050, text=» AD A3,FDBRLE,A11 NO ADD RECORD LENGTH «, t00=0x0022, t01=0x0124}
0x3664…3686 Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 SKIP STATUS BYTE«, t00=0x0022, t01=0x0154}
0x3686…3698 Head {h00=0x000e, h01=0x0050, text=» RB TIOD60«, t00=0x0022, t01=0x0176}
0x3698…36c4 Head {h00=0x0028, h01=0x0050, text=»CALERR LDKL A1,EOMERR OUT OF MEDIUM «, t00=0x0022, t01=0x0188}
0x36c4…36d6 Head {h00=0x000e, h01=0x0050, text=» RF TIODMF«, t00=0x0023, t01=0x0024}
0x36d6…36e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0036}
0x36e0…3710 Head {h00=0x002c, h01=0x0050, text=»* STORE RELATIVE REC OFFSET IN FBDRRO «, t00=0x0023, t01=0x0040}
0x3710…371a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0070}
0x371a…372e Head {h00=0x0010, h01=0x0050, text=»TIOD65 EQU *«, t00=0x0023, t01=0x007a}
0x372e…3742 Head {h00=0x0010, h01=0x0050, text=» LDK A1,0 OK«, t00=0x0023, t01=0x008e}
0x3742…375c Head {h00=0x0016, h01=0x0050, text=» ST A3,FDBRRO,A11 «, t00=0x0023, t01=0x00a2}
0x375c…3770 Head {h00=0x0010, h01=0x0050, text=»TIODMF EQU *«, t00=0x0023, t01=0x00bc}
0x3770…3794 Head {h00=0x0020, h01=0x0050, text=» LD A4,-4,A14 SAVED REGISTER«, t00=0x0023, t01=0x00d0}
0x3794…37c0 Head {h00=0x0028, h01=0x0050, text=» RF RETURN RETURN AND SET CONDITION «, t00=0x0023, t01=0x00f4}
0x37c0…37ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0120}
0x37ce…37d6 Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x012e}
0x37d6…37f4 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0023, t01=0x0136}
0x37f4…3812 Head {h00=0x001a, h01=0x0050, text=»* FM I/O HANDLER *«, t00=0x0023, t01=0x0154}
0x3812…3830 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0023, t01=0x0172}
0x3830…3838 Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0190}
0x3838…3858 Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A11=FDB ADDRESS«, t00=0x0024, t01=0x0008}
0x3858…3878 Head {h00=0x001c, h01=0x0050, text=»* A8=ECB ADDRESS «, t00=0x0024, t01=0x0028}
0x3878…3882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0048}
0x3882…38a2 Head {h00=0x001c, h01=0x0050, text=»* EXIT : A1=RETURN CODE «, t00=0x0024, t01=0x0052}
0x38a2…38c8 Head {h00=0x0022, h01=0x0050, text=»* A11,A8=SAME AS ENTRY «, t00=0x0024, t01=0x0072}
0x38c8…38e0 Head {h00=0x0014, h01=0x0050, text=»* A2=USED«, t00=0x0024, t01=0x0098}
0x38e0…38ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b0}
0x38ea…3914 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0024, t01=0x00ba}
0x3914…391e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e4}
0x391e…3948 Head {h00=0x0026, h01=0x0050, text=»* FMIO=FILE MANAGEMENT I/O HANDLER«, t00=0x0024, t01=0x00ee}
0x3948…3952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0118}
0x3952…3974 Head {h00=0x001e, h01=0x0050, text=»FMIOWR EQU * WRITE,DMTIOT «, t00=0x0024, t01=0x0122}
0x3974…3988 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/95 «, t00=0x0024, t01=0x0144}
0x3988…399a Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0024, t01=0x0158}
0x399a…39a2 Head {h00=0x0004, h01=0x0050, t00=0x0024, t01=0x016a}
0x39a2…39bc Head {h00=0x0016, h01=0x0050, text=»FMIOCL EQU * CLOSE«, t00=0x0024, t01=0x0172}
0x39bc…39d0 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/A2 «, t00=0x0024, t01=0x018c}
0x39d0…39e2 Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0025, t01=0x0010}
0x39e2…39ea Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0022}
0x39ea…3a06 Head {h00=0x0018, h01=0x0050, text=»FMIODL EQU * DELETE «, t00=0x0025, t01=0x002a}
0x3a06…3a1c Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/2A2 «, t00=0x0025, t01=0x0046}
0x3a1c…3a2e Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0025, t01=0x005c}
0x3a2e…3a36 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x006e}
0x3a36…3a54 Head {h00=0x001a, h01=0x0050, text=»FMIOOP EQU * OPEN FILE«, t00=0x0025, t01=0x0076}
0x3a54…3a68 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/A1 «, t00=0x0025, t01=0x0094}
0x3a68…3a7a Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0025, t01=0x00a8}
0x3a7a…3a82 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00ba}
0x3a82…3a9e Head {h00=0x0018, h01=0x0050, text=»FMIOEX EQU * EXTEND «, t00=0x0025, t01=0x00c2}
0x3a9e…3ab4 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/1A1 «, t00=0x0025, t01=0x00de}
0x3ab4…3ac6 Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0025, t01=0x00f4}
0x3ac6…3ace Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x0106}
0x3ace…3aea Head {h00=0x0018, h01=0x0050, text=»FMIOCR EQU * CREATE «, t00=0x0025, t01=0x010e}
0x3aea…3b00 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/2A1 «, t00=0x0025, t01=0x012a}
0x3b00…3b12 Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0025, t01=0x0140}
0x3b12…3b20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0152}
0x3b20…3b4a Head {h00=0x0026, h01=0x0050, text=»FMIORF EQU * READ FILE PARAMETERS «, t00=0x0025, t01=0x0160}
0x3b4a…3b5e Head {h00=0x0010, h01=0x0050, text=» LDK A7,/83 «, t00=0x0025, t01=0x018a}
0x3b5e…3b70 Head {h00=0x000e, h01=0x0050, text=» RF FMIO10«, t00=0x0026, t01=0x000e}
0x3b70…3b78 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0020}
0x3b78…3b92 Head {h00=0x0016, h01=0x0050, text=»FMIORD EQU * READ «, t00=0x0026, t01=0x0028}
0x3b92…3ba6 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/91 «, t00=0x0026, t01=0x0042}
0x3ba6…3bae Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0056}
0x3bae…3bc2 Head {h00=0x0010, h01=0x0050, text=»FMIO10 EQU *«, t00=0x0026, t01=0x005e}
0x3bc2…3bce Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x0072}
0x3bce…3bde Head {h00=0x000c, h01=0x0050, text=» DATA 15«, t00=0x0026, t01=0x007e}
0x3bde…3bf6 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0026, t01=0x008e}
0x3bf6…3c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00a6}
0x3c00…3c20 Head {h00=0x001c, h01=0x0050, text=»* RESTORE SECTOR NUMBER «, t00=0x0026, t01=0x00b0}
0x3c20…3c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d0}
0x3c2a…3c44 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBSNR,A11 «, t00=0x0026, t01=0x00da}
0x3c44…3c5c Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x0026, t01=0x00f4}
0x3c5c…3c78 Head {h00=0x0018, h01=0x0050, text=» LD A1,FDBSNR+2,A11 «, t00=0x0026, t01=0x010c}
0x3c78…3c92 Head {h00=0x0016, h01=0x0050, text=» ST A1,ECBCW+2,A8 «, t00=0x0026, t01=0x0128}
0x3c92…3cba Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTECB,A11 DM ECB ADDRESS«, t00=0x0026, t01=0x0142}
0x3cba…3cd2 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0026, t01=0x016a}
0x3cd2…3cf4 Head {h00=0x001e, h01=0x0050, text=» RF(Z) RETURN DISC I/O OK «, t00=0x0026, t01=0x0182}
0x3cf4…3d0a Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FEFF«, t00=0x0027, t01=0x0014}
0x3d0a…3d32 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMTIT1 NOT ONLY RETRIES «, t00=0x0027, t01=0x002a}
0x3d32…3d4a Head {h00=0x0014, h01=0x0050, text=» LDKL A1,RETRIE «, t00=0x0027, t01=0x0052}
0x3d4a…3d74 Head {h00=0x0026, h01=0x0050, text=» ORS A1,ECBRC,A2 USER RETURN CODE «, t00=0x0027, t01=0x006a}
0x3d74…3d98 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 SET RETURN CODE OK«, t00=0x0027, t01=0x0094}
0x3d98…3daa Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x0027, t01=0x00b8}
0x3daa…3dbe Head {h00=0x0010, h01=0x0050, text=»DMTIT1 EQU *«, t00=0x0027, t01=0x00ca}
0x3dbe…3dd6 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0027, t01=0x00de}
0x3dd6…3df4 Head {h00=0x001a, h01=0x0050, text=» SUKL A2,BUFSTA BUFSTA«, t00=0x0027, t01=0x00f6}
0x3df4…3e22 Head {h00=0x002a, h01=0x0050, text=» CM BUFDMI,A2 CLEAR FILE NR IN BUFFER «, t00=0x0027, t01=0x0114}
0x3e22…3e36 Head {h00=0x0010, h01=0x0050, text=»RETURN EQU *«, t00=0x0027, t01=0x0142}
0x3e36…3e4a Head {h00=0x0010, h01=0x0050, text=» ABL RTNA14 «, t00=0x0027, t01=0x0156}
0x3e4a…3e62 Head {h00=0x0014, h01=0x0050, text=» EJECT SDMSUB «, t00=0x0027, t01=0x016a}
0x3e62…3e9e Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0027, t01=0x0182}
0x3e9e…3ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x002e}
0x3ea8…3ee4 Head {h00=0x0038, h01=0x0050, text=»* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND «, t00=0x0028, t01=0x0038}
0x3ee4…3f1a Head {h00=0x0032, h01=0x0050, text=»* PREPARE IT. ECB IS PREPARED FOR PHYS I/O. «, t00=0x0028, t01=0x0074}
0x3f1a…3f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00aa}
0x3f24…3f60 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0028, t01=0x00b4}
0x3f60…3f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f0}
0x3f6a…3f86 Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADDRESS«, t00=0x0028, t01=0x00fa}
0x3f86…3fa0 Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x0028, t01=0x0116}
0x3fa0…3faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0130}
0x3faa…3fe6 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0028, t01=0x013a}
0x3fe6…3ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0176}
0x3ff0…400c Head {h00=0x0018, h01=0x0050, text=»* A11=FDB ADDRESS «, t00=0x0028, t01=0x0180}
0x400c…4040 Head {h00=0x0030, h01=0x0050, text=»* A1 = FDBRRO WHEN SECTOR IS FOUND IN CORE«, t00=0x0029, t01=0x000c}
0x4040…4086 Head {h00=0x0042, h01=0x0050, text=»* = -1 WHEN NO DATA IS FOUND IN «, t00=0x0029, t01=0x0040}
0x4086…40c6 Head {h00=0x003c, h01=0x0050, text=»* THE FOUND CORE BUFFER «, t00=0x0029, t01=0x0086}
0x40c6…40ec Head {h00=0x0022, h01=0x0050, text=»* A4 = BLOCK BUFFER ADDRESS «, t00=0x0029, t01=0x00c6}
0x40ec…4116 Head {h00=0x0026, h01=0x0050, text=»* A5 = BLOCK DATA BUFFER ADDRESS«, t00=0x0029, t01=0x00ec}
0x4116…4130 Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x0029, t01=0x0116}
0x4130…415a Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 5 (WORDS)«, t00=0x0029, t01=0x0130}
0x415a…4164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x015a}
0x4164…41a0 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0029, t01=0x0164}
0x41a0…41aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0010}
0x41aa…41bc Head {h00=0x000e, h01=0x0050, text=»* A2-A3 «, t00=0x002a, t01=0x001a}
0x41bc…41c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x002c}
0x41c6…4204 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002a, t01=0x0036}
0x4204…4218 Head {h00=0x0010, h01=0x0050, text=»GTBKBU EQU *«, t00=0x002a, t01=0x0074}
0x4218…423e Head {h00=0x0022, h01=0x0050, text=» LC A3,FWTFNR,A11 FILE NUMBER «, t00=0x002a, t01=0x0088}
0x423e…4252 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x002a, t01=0x00ae}
0x4252…426c Head {h00=0x0016, h01=0x0050, text=» STR A3,A8 FILE NR«, t00=0x002a, t01=0x00c2}
0x426c…4286 Head {h00=0x0016, h01=0x0050, text=» LC A5,FDBBLZ,A11 «, t00=0x002a, t01=0x00dc}
0x4286…42ac Head {h00=0x0022, h01=0x0050, text=» SLL A5,8 BLOCK SIZE IN BYTYE «, t00=0x002a, t01=0x00f6}
0x42ac…42d0 Head {h00=0x0020, h01=0x0050, text=» ST A5,ECBRL,A8 BLOCK LENGTH«, t00=0x002a, t01=0x011c}
0x42d0…42f8 Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBSNR,A11 SECTOR NUMBER «, t00=0x002a, t01=0x0140}
0x42f8…4314 Head {h00=0x0018, h01=0x0050, text=» LD A2,FDBSNR+2,A11 «, t00=0x002a, t01=0x0168}
0x4314…4340 Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMGBU A4 := BUFFER ADDRESS «, t00=0x002a, t01=0x0184}
0x4340…4360 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBCW,A8 SECT NR «, t00=0x002b, t01=0x0020}
0x4360…4382 Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBCW+2,A8 SECT NR «, t00=0x002b, t01=0x0040}
0x4382…4394 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A4«, t00=0x002b, t01=0x0062}
0x4394…43ca Head {h00=0x0032, h01=0x0050, text=» ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS«, t00=0x002b, t01=0x0074}
0x43ca…43e2 Head {h00=0x0014, h01=0x0050, text=» ST A5,ECBBA,A8 «, t00=0x002b, t01=0x00aa}
0x43e2…440e Head {h00=0x0028, h01=0x0050, text=» LDKL A1,-1 SET DEFAULT RETURN CODE «, t00=0x002b, t01=0x00c2}
0x440e…4420 Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x002b, t01=0x00ee}
0x4420…444c Head {h00=0x0028, h01=0x0050, text=» RF(NZ) GTB100 BUFFER NOT IN MEMORY «, t00=0x002b, t01=0x0100}
0x444c…447c Head {h00=0x002c, h01=0x0050, text=» LD A1,FDBRRO,A11 RELATIV RECORD OFFSET «, t00=0x002b, t01=0x012c}
0x447c…4490 Head {h00=0x0010, h01=0x0050, text=»GTB100 EQU *«, t00=0x002b, t01=0x015c}
0x4490…44bc Head {h00=0x0028, h01=0x0050, text=» RB RETURN RETURN AND SET CONDITION «, t00=0x002b, t01=0x0170}
0x44bc…44d6 Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=0 =5 «, t00=0x002c, t01=0x000c}
0x44d6…44e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0026}
0x44e4…44fc Head {h00=0x0014, h01=0x0050, text=»FRMFIL EQU * =5«, t00=0x002c, t01=0x0034}
0x44fc…4514 Head {h00=0x0014, h01=0x0050, text=»FORMAT EQU * =5«, t00=0x002c, t01=0x004c}
0x4514…452c Head {h00=0x0014, h01=0x0050, text=»FORMER EQU * =5«, t00=0x002c, t01=0x0064}
0x452c…4544 Head {h00=0x0014, h01=0x0050, text=»RLBLKB EQU * =5«, t00=0x002c, t01=0x007c}
0x4544…455c Head {h00=0x0014, h01=0x0050, text=»CASZEN EQU * =5«, t00=0x002c, t01=0x0094}
0x455c…4570 Head {h00=0x0010, h01=0x0050, text=» RTN A14 =5«, t00=0x002c, t01=0x00ac}
0x4570…4582 Head {h00=0x000e, h01=0x0050, text=» XIF =5 «, t00=0x002c, t01=0x00c0}
0x4582…459c Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=1 =5 «, t00=0x002c, t01=0x00d2}
0x459c…45aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x00ec}
0x45aa…45b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00fa}
0x45b4…45d0 Head {h00=0x0018, h01=0x0050, text=»* FRMFIL=FORMAT FILE«, t00=0x002c, t01=0x0104}
0x45d0…45da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0120}
0x45da…4604 Head {h00=0x0026, h01=0x0050, text=»* ENTRY: A4=BLOCK BUFFER ADDRESS«, t00=0x002c, t01=0x012a}
0x4604…462a Head {h00=0x0022, h01=0x0050, text=»* A8=FDB ECB ADDRESS «, t00=0x002c, t01=0x0154}
0x462a…464c Head {h00=0x001e, h01=0x0050, text=»* A11=FDB ADDRESS«, t00=0x002c, t01=0x017a}
0x464c…4656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x000c}
0x4656…466e Head {h00=0x0014, h01=0x0050, text=»* EXIT : A1-A7«, t00=0x002d, t01=0x0016}
0x466e…4678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002e}
0x4678…46a2 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 4 (WORDS)«, t00=0x002d, t01=0x0038}
0x46a2…46ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0062}
0x46ac…46c0 Head {h00=0x0010, h01=0x0050, text=»FRMFIL EQU *«, t00=0x002d, t01=0x006c}
0x46c0…46da Head {h00=0x0016, h01=0x0050, text=» LC A1,FDBBLZ,A11 «, t00=0x002d, t01=0x0080}
0x46da…4700 Head {h00=0x0022, h01=0x0050, text=» SLL A1,8 BLOCK SIZE IN BYTES «, t00=0x002d, t01=0x009a}
0x4700…4728 Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBRL,A8 REQUESTED LENGTH«, t00=0x002d, t01=0x00c0}
0x4728…4732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00e8}
0x4732…474e Head {h00=0x0018, h01=0x0050, text=»* MAKE FORMAT BUFFER«, t00=0x002d, t01=0x00f2}
0x474e…4758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x010e}
0x4758…4784 Head {h00=0x0028, h01=0x0050, text=» CF A14,FORMAT MAKE FORMATED BUFFER «, t00=0x002d, t01=0x0118}
0x4784…47b0 Head {h00=0x0028, h01=0x0050, text=» ST A4,ECBBA,A8 BLOCK BUFFER ADDRESS«, t00=0x002d, t01=0x0144}
0x47b0…47e2 Head {h00=0x002e, h01=0x0050, text=» LD A1,FDBSNR,A11 SECTOR NUMBER MOST SIGN.«, t00=0x002d, t01=0x0170}
0x47e2…4818 Head {h00=0x0032, h01=0x0050, text=» LD A2,FDBSNR+2,A11 SECTOR NUMBER LEAST SIGN. «, t00=0x002e, t01=0x0012}
0x4818…482c Head {h00=0x0010, h01=0x0050, text=»FRM130 EQU *«, t00=0x002e, t01=0x0048}
0x482c…4844 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A8 «, t00=0x002e, t01=0x005c}
0x4844…485e Head {h00=0x0016, h01=0x0050, text=» ST A2,ECBCW+2,A8 «, t00=0x002e, t01=0x0074}
0x485e…4878 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A1 SAVE A1«, t00=0x002e, t01=0x008e}
0x4878…4892 Head {h00=0x0016, h01=0x0050, text=» LDR A5,A2 SAVE A2«, t00=0x002e, t01=0x00a8}
0x4892…48b6 Head {h00=0x0020, h01=0x0050, text=» CF A14,FMIOWR WRITE SECTOR «, t00=0x002e, t01=0x00c2}
0x48b6…48da Head {h00=0x0020, h01=0x0050, text=» RF(NZ) FRM140 ERROR OR EOF «, t00=0x002e, t01=0x00e6}
0x48da…48fc Head {h00=0x001e, h01=0x0050, text=» LDR A1,A3 SAVED REGISTER «, t00=0x002e, t01=0x010a}
0x48fc…491e Head {h00=0x001e, h01=0x0050, text=» LDR A2,A5 SAVED REGISTER «, t00=0x002e, t01=0x012c}
0x491e…4930 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x002e, t01=0x014e}
0x4930…4960 Head {h00=0x002c, h01=0x0050, text=» LC A7,FDBBLZ,A11 BLOCK SIZE IN SECTORS «, t00=0x002e, t01=0x0160}
0x4960…4976 Head {h00=0x0012, h01=0x0050, text=» CF A14,ADDMOD«, t00=0x002e, t01=0x0190}
0x4976…4988 Head {h00=0x000e, h01=0x0050, text=» RB FRM130«, t00=0x002f, t01=0x0016}
0x4988…4996 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0028}
0x4996…49aa Head {h00=0x0010, h01=0x0050, text=»FRM140 EQU *«, t00=0x002f, t01=0x0036}
0x49aa…49c8 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 RETURN CODE«, t00=0x002f, t01=0x004a}
0x49c8…49da Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x002f, t01=0x0068}
0x49da…4a00 Head {h00=0x0022, h01=0x0050, text=» RF(NN) FRM160 NOT END OF FILE«, t00=0x002f, t01=0x007a}
0x4a00…4a14 Head {h00=0x0010, h01=0x0050, text=»RLBLKB EQU *«, t00=0x002f, t01=0x00a0}
0x4a14…4a36 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET RETURN CODE «, t00=0x002f, t01=0x00b4}
0x4a36…4a4a Head {h00=0x0010, h01=0x0050, text=»FRM160 EQU *«, t00=0x002f, t01=0x00d6}
0x4a4a…4a74 Head {h00=0x0026, h01=0x0050, text=» SUKL A4,BUFSTA BUFFER WITH HEADER«, t00=0x002f, t01=0x00ea}
0x4a74…4a9a Head {h00=0x0022, h01=0x0050, text=» CF A14,SDMRBU RELEASE BUFFER «, t00=0x002f, t01=0x0114}
0x4a9a…4ac2 Head {h00=0x0024, h01=0x0050, text=» CF A14,CLRBUF CLEAR ALL BUFFERS«, t00=0x002f, t01=0x013a}
0x4ac2…4aee Head {h00=0x0028, h01=0x0050, text=» RB RETURN RETURN AND SET CONDITION «, t00=0x002f, t01=0x0162}
0x4aee…4afc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x018e}
0x4afc…4b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x000c}
0x4b06…4b34 Head {h00=0x002a, h01=0x0050, text=»* FORMAT=FORMAT BUFFER IN RECORD SIZE «, t00=0x0030, t01=0x0016}
0x4b34…4b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0044}
0x4b3e…4b68 Head {h00=0x0026, h01=0x0050, text=»* ENTRY :A4 = BLOCK BUFFER ADDRESS«, t00=0x0030, t01=0x004e}
0x4b68…4b8c Head {h00=0x0020, h01=0x0050, text=»* A1 = BUFFER LENGTH «, t00=0x0030, t01=0x0078}
0x4b8c…4b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x009c}
0x4b96…4bb8 Head {h00=0x001e, h01=0x0050, text=»* EXIT :A4 = NOT CHANGED «, t00=0x0030, t01=0x00a6}
0x4bb8…4bdc Head {h00=0x0020, h01=0x0050, text=»* A1,A2,A3,A5 = USED «, t00=0x0030, t01=0x00c8}
0x4bdc…4be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ec}
0x4be6…4c10 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0030, t01=0x00f6}
0x4c10…4c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0120}
0x4c1a…4c2e Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0030, t01=0x012a}
0x4c2e…4c56 Head {h00=0x0024, h01=0x0050, text=» LDR A3,A4 BLOCK BUFFER ADDRESS «, t00=0x0030, t01=0x013e}
0x4c56…4c6e Head {h00=0x0014, h01=0x0050, text=»FORMER EQU * =1«, t00=0x0030, t01=0x0166}
0x4c6e…4c9e Head {h00=0x002c, h01=0x0050, text=» LDR A5,A1 LENGTH IN BLOCK BUFFER =2 =1 «, t00=0x0030, t01=0x017e}
0x4c9e…4cca Head {h00=0x0028, h01=0x0050, text=» RF(NP) FRM120 NOTHING TO FORMAT =4 «, t00=0x0031, t01=0x001e}
0x4cca…4cf8 Head {h00=0x002a, h01=0x0050, text=» LDK A2,' ' FILL BUFFER WITH SPACES =1«, t00=0x0031, t01=0x004a}
0x4cf8…4d0c Head {h00=0x0010, h01=0x0050, text=»FRM100 EQU *«, t00=0x0031, t01=0x0078}
0x4d0c…4d22 Head {h00=0x0012, h01=0x0050, text=» SCR A2,A3 =1«, t00=0x0031, t01=0x008c}
0x4d22…4d4c Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE BUFFER POINTER =1«, t00=0x0031, t01=0x00a2}
0x4d4c…4d6c Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 REST LENGTH =1«, t00=0x0031, t01=0x00cc}
0x4d6c…4d96 Head {h00=0x0026, h01=0x0050, text=» RB(P) FRM100 CONTINUE FILL BUFFER«, t00=0x0031, t01=0x00ec}
0x4d96…4dca Head {h00=0x0030, h01=0x0050, text=» SUR A3,A5 POINTER TO START OF BUFFER =2 =1 «, t00=0x0031, t01=0x0116}
0x4dca…4dfa Head {h00=0x002c, h01=0x0050, text=» SUK A3,1 POINTER TO RECORD STATUS =2 =1«, t00=0x0031, t01=0x014a}
0x4dfa…4e1e Head {h00=0x0020, h01=0x0050, text=» LDK A2,0 RECORD STATUS=FREE«, t00=0x0031, t01=0x017a}
0x4e1e…4e54 Head {h00=0x0032, h01=0x0050, text=» LD A1,FDBRLE,A11 RECORD LENGTH WITHOUT STATUS«, t00=0x0032, t01=0x000e}
0x4e54…4e78 Head {h00=0x0020, h01=0x0050, text=» ADK A1,1 LENGTH WITH STATUS«, t00=0x0032, t01=0x0044}
0x4e78…4e8c Head {h00=0x0010, h01=0x0050, text=»FRM110 EQU *«, t00=0x0032, t01=0x0068}
0x4e8c…4ebe Head {h00=0x002e, h01=0x0050, text=» ADR A3,A1 POINTER TO RECORD STATUS =2 =1 «, t00=0x0032, t01=0x007c}
0x4ebe…4ee2 Head {h00=0x0020, h01=0x0050, text=» SUR A5,A1 LENGTH LEFT =2 =1«, t00=0x0032, t01=0x00ae}
0x4ee2…4f14 Head {h00=0x002e, h01=0x0050, text=» RF(N) FRM120 ALL DONE IN BUFFER =6 =2 =1 «, t00=0x0032, t01=0x00d2}
0x4f14…4f3a Head {h00=0x0022, h01=0x0050, text=» SCR A2,A3 UPDATE STATUS =2 =1«, t00=0x0032, t01=0x0104}
0x4f3a…4f4c Head {h00=0x000e, h01=0x0050, text=» RB FRM110«, t00=0x0032, t01=0x012a}
0x4f4c…4f60 Head {h00=0x0010, h01=0x0050, text=»FRM120 EQU *«, t00=0x0032, t01=0x013c}
0x4f60…4f70 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0032, t01=0x0150}
0x4f70…4f82 Head {h00=0x000e, h01=0x0050, text=» XIF =5 «, t00=0x0032, t01=0x0160}
0x4f82…4f90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0172}
0x4f90…4f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0180}
0x4f9a…4fe0 Head {h00=0x0042, h01=0x0050, text=»* CARRBL=CALCULATE MAX FDBRRO AND BLOCK SIZE IN NBR OF SECTORS«, t00=0x0032, t01=0x018a}
0x4fe0…4fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0040}
0x4fea…500a Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A11=FDB ADDRESS«, t00=0x0033, t01=0x004a}
0x500a…5014 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x006a}
0x5014…5032 Head {h00=0x001a, h01=0x0050, text=»* EXIT : A1=MAX FDBRRO«, t00=0x0033, t01=0x0074}
0x5032…5066 Head {h00=0x0030, h01=0x0050, text=»* A2=BLOCK SIZE IN NUMBER OF SECTORS «, t00=0x0033, t01=0x0092}
0x5066…509a Head {h00=0x0030, h01=0x0050, text=»* CR=GREATER IF BLOCK SIZE TOO LARGE «, t00=0x0033, t01=0x00c6}
0x509a…50b8 Head {h00=0x001a, h01=0x0050, text=»* A3,A6,A7=USED«, t00=0x0033, t01=0x00fa}
0x50b8…50c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0118}
0x50c2…50ec Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 4 (WORDS)«, t00=0x0033, t01=0x0122}
0x50ec…50f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x014c}
0x50f6…510a Head {h00=0x0010, h01=0x0050, text=»CARRBL EQU *«, t00=0x0033, t01=0x0156}
0x510a…513a Head {h00=0x002c, h01=0x0050, text=» LD A6,FDBRLE,A11 RECORD LENGTH (BYTES) «, t00=0x0033, t01=0x016a}
0x513a…5178 Head {h00=0x003a, h01=0x0050, text=» LC A7,FDBBLF,A11 BLOCK FACTOR (NBR OF RECORDS/BLOCK) «, t00=0x0034, t01=0x000a}
0x5178…5180 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0048}
0x5180…5188 Head {h00=0x0004, h01=0x0050, t00=0x0034, t01=0x0050}
0x5188…5192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0058}
0x5192…51c8 Head {h00=0x0032, h01=0x0050, text=»* CRRBL=SAME AS CARRBL EXCEPT ENTRY PARAMETERS«, t00=0x0034, t01=0x0062}
0x51c8…51d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0098}
0x51d2…51f4 Head {h00=0x001e, h01=0x0050, text=»* ENTRY: A6=RECORD LENGTH «, t00=0x0034, t01=0x00a2}
0x51f4…5214 Head {h00=0x001c, h01=0x0050, text=»* A7=BLOCK FACTOR«, t00=0x0034, t01=0x00c4}
0x5214…521e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e4}
0x521e…5232 Head {h00=0x0010, h01=0x0050, text=»CRRBL EQU * «, t00=0x0034, t01=0x00ee}
0x5232…5256 Head {h00=0x0020, h01=0x0050, text=» ADK A6,1 RECORD STATUS BYTE«, t00=0x0034, t01=0x0102}
0x5256…527c Head {h00=0x0022, h01=0x0050, text=» LDR A3,A6 SAVE RECORD LENGTH «, t00=0x0034, t01=0x0126}
0x527c…5290 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0034, t01=0x014c}
0x5290…52a2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0034, t01=0x0160}
0x52a2…52b8 Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0034, t01=0x0172}
0x52b8…52d6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A2 MAX FDBRRO «, t00=0x0034, t01=0x0188}
0x52d6…52e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0016}
0x52e4…52ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0024}
0x52ee…531e Head {h00=0x002c, h01=0x0050, text=»* CALCULATE BLOCK SIZE IN NBR OF SECTORS«, t00=0x0035, t01=0x002e}
0x531e…5328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x005e}
0x5328…534a Head {h00=0x001e, h01=0x0050, text=» ADR A2,A3 ADD ONE RECORD «, t00=0x0035, t01=0x0068}
0x534a…535c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0035, t01=0x008a}
0x535c…5378 Head {h00=0x0018, h01=0x0050, text=» SRL A2,8 SECTOR NBR«, t00=0x0035, t01=0x009c}
0x5378…538c Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0035, t01=0x00b8}
0x538c…53a8 Head {h00=0x0018, h01=0x0050, text=» RF(Z) CAR100 EXACT «, t00=0x0035, t01=0x00cc}
0x53a8…53ca Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 ONE MORE SECTOR «, t00=0x0035, t01=0x00e8}
0x53ca…53de Head {h00=0x0010, h01=0x0050, text=»CAR100 EQU *«, t00=0x0035, t01=0x010a}
0x53de…5406 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPADTE STACK POINTER«, t00=0x0035, t01=0x011e}
0x5406…5418 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0035, t01=0x0146}
0x5418…543e Head {h00=0x0022, h01=0x0050, text=» SLL A3,7 BLOCK SIZE IN WORDS «, t00=0x0035, t01=0x0158}
0x543e…546e Head {h00=0x002c, h01=0x0050, text=» CWK A3,BLKMXL CHECK WITH MAX BLOCK SIZE«, t00=0x0035, t01=0x017e}
0x546e…5486 Head {h00=0x0014, h01=0x0050, text=» ABR* A14 RETURN«, t00=0x0036, t01=0x001e}
0x5486…54a0 Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=1 =5 «, t00=0x0036, t01=0x0036}
0x54a0…54ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0050}
0x54ae…54b6 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x005e}
0x54b6…54c8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x0066}
0x54c8…54da Head {h00=0x000e, h01=0x0050, text=»* CASZEN *«, t00=0x0036, t01=0x0078}
0x54da…54ec Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0036, t01=0x008a}
0x54ec…54f4 Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x009c}
0x54f4…54fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00a4}
0x54fe…5534 Head {h00=0x0032, h01=0x0050, text=»* CASZEN=CALCULATE SIZE 1-4 IN NBR OF SECTORS «, t00=0x0036, t01=0x00ae}
0x5534…553e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00e4}
0x553e…555e Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A12=FPB ADDRESS«, t00=0x0036, t01=0x00ee}
0x555e…5568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x010e}
0x5568…5598 Head {h00=0x002c, h01=0x0050, text=»* EXIT : A3=ENLARGE IN NUMBER OF SECTORS«, t00=0x0036, t01=0x0118}
0x5598…55be Head {h00=0x0022, h01=0x0050, text=»* A2,A5,A6,A7,A13=USED «, t00=0x0036, t01=0x0148}
0x55be…55de Head {h00=0x001c, h01=0x0050, text=»* A1=RETURN CODE «, t00=0x0036, t01=0x016e}
0x55de…5600 Head {h00=0x001e, h01=0x0050, text=»* CR=O IF OVERFLOW «, t00=0x0036, t01=0x018e}
0x5600…560a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0020}
0x560a…561e Head {h00=0x0010, h01=0x0050, text=»CASZEN EQU *«, t00=0x0037, t01=0x002a}
0x561e…5646 Head {h00=0x0024, h01=0x0050, text=» LD A6,FPB:RL,A12 RECORD LENGTH «, t00=0x0037, t01=0x003e}
0x5646…566c Head {h00=0x0022, h01=0x0050, text=» LC A7,FPB:BF,A12 BLOCK FACTOR«, t00=0x0037, t01=0x0066}
0x566c…5680 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0037, t01=0x008c}
0x5680…56c0 Head {h00=0x003c, h01=0x0050, text=» CF A14,CRRBL CALCULATE BLOCK SIZE (SECTORS/BLOCK IN A2)«, t00=0x0037, t01=0x00a0}
0x56c0…56de Head {h00=0x001a, h01=0x0050, text=» LDR A4,A2 BLOCK SIZE «, t00=0x0037, t01=0x00e0}
0x56de…56fe Head {h00=0x001c, h01=0x0050, text=» LDR A13,A12 FPB ADDRESS«, t00=0x0037, t01=0x00fe}
0x56fe…5728 Head {h00=0x0026, h01=0x0050, text=» ADKL A13,FPB:S1 POINTER TO SIZE 1«, t00=0x0037, t01=0x011e}
0x5728…574c Head {h00=0x0020, h01=0x0050, text=» LDK A5,4 NUMBER OF VOLUMES «, t00=0x0037, t01=0x0148}
0x574c…5760 Head {h00=0x0010, h01=0x0050, text=»CAS100 EQU *«, t00=0x0037, t01=0x016c}
0x5760…5796 Head {h00=0x0032, h01=0x0050, text=» LC A6,FPB:BF,A12 BLOCK FACTOR (RECORDS/BLOCK)«, t00=0x0037, t01=0x0180}
0x5796…57aa Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x0038, t01=0x0026}
0x57aa…57be Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A13«, t00=0x0038, t01=0x003a}
0x57be…57ee Head {h00=0x002c, h01=0x0050, text=» LD A2,2,A13 A1,A2=SIZE (NBR OF RECORDS)«, t00=0x0038, t01=0x004e}
0x57ee…581c Head {h00=0x002a, h01=0x0050, text=» CF A14,DIVMOD A1,A2/A6=A2 REST IN A1«, t00=0x0038, t01=0x007e}
0x581c…582e Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0038, t01=0x00ac}
0x582e…584c Head {h00=0x001a, h01=0x0050, text=» RF(Z) CAS110 NO REST «, t00=0x0038, t01=0x00be}
0x584c…5870 Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 TAKE CARE OF REST «, t00=0x0038, t01=0x00dc}
0x5870…587e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0100}
0x587e…5892 Head {h00=0x0010, h01=0x0050, text=»CAS110 EQU *«, t00=0x0038, t01=0x010e}
0x5892…58a4 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x0038, t01=0x0122}
0x58a4…58b6 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0038, t01=0x0134}
0x58b6…58d8 Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A6*A7=A1,A2«, t00=0x0038, t01=0x0146}
0x58d8…58ec Head {h00=0x0010, h01=0x0050, text=» STR A1,A13 «, t00=0x0038, t01=0x0168}
0x58ec…5916 Head {h00=0x0026, h01=0x0050, text=» ST A2,2,A13 A1,A2=SIZE IN SECTORS«, t00=0x0038, t01=0x017c}
0x5916…592e Head {h00=0x0014, h01=0x0050, text=» ADKL A13,SIZDIF«, t00=0x0039, t01=0x0016}
0x592e…5940 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0039, t01=0x002e}
0x5940…5962 Head {h00=0x001e, h01=0x0050, text=» RB(P) CAS100 NEXT VOLUME «, t00=0x0039, t01=0x0040}
0x5962…5972 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x0062}
0x5972…5984 Head {h00=0x000e, h01=0x0050, text=» XIF =5 «, t00=0x0039, t01=0x0072}
0x5984…5992 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0084}
0x5992…59b6 Head {h00=0x0020, h01=0x0050, text=»* CHKRCD=CHECK RECORD STATUS«, t00=0x0039, t01=0x0092}
0x59b6…59c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00b6}
0x59c0…59e0 Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A11=FDB ADDRESS«, t00=0x0039, t01=0x00c0}
0x59e0…5a02 Head {h00=0x001e, h01=0x0050, text=»* A1=RECORD OFFSET «, t00=0x0039, t01=0x00e0}
0x5a02…5a2a Head {h00=0x0024, h01=0x0050, text=»* A4=BLOCK BUFFER ADDRESS«, t00=0x0039, t01=0x0102}
0x5a2a…5a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x012a}
0x5a34…5a58 Head {h00=0x0020, h01=0x0050, text=»* EXIT : A11,A4=NOT CHANGED «, t00=0x0039, t01=0x0134}
0x5a58…5a7e Head {h00=0x0022, h01=0x0050, text=»* A1=POINTER AT STATUS «, t00=0x0039, t01=0x0158}
0x5a7e…5a96 Head {h00=0x0014, h01=0x0050, text=»* A3=/FF «, t00=0x0039, t01=0x017e}
0x5a96…5aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0008}
0x5aa0…5aca Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x003a, t01=0x0012}
0x5aca…5ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x003c}
0x5ad4…5ae8 Head {h00=0x0010, h01=0x0050, text=»CHKRCD EQU *«, t00=0x003a, t01=0x0046}
0x5ae8…5afa Head {h00=0x000e, h01=0x0050, text=» ADR A1,A4«, t00=0x003a, t01=0x005a}
0x5afa…5b12 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFSTA «, t00=0x003a, t01=0x006c}
0x5b12…5b3a Head {h00=0x0024, h01=0x0050, text=» AD A1,FDBRLE,A11 STATUS POINTER«, t00=0x003a, t01=0x0084}
0x5b3a…5b4e Head {h00=0x0010, h01=0x0050, text=» LDK A3,/FF «, t00=0x003a, t01=0x00ac}
0x5b4e…5b62 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x003a, t01=0x00c0}
0x5b62…5b74 Head {h00=0x000e, h01=0x0050, text=» CCR A3,A1«, t00=0x003a, t01=0x00d4}
0x5b74…5b86 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x003a, t01=0x00e6}
0x5b86…5b9c Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x003a, t01=0x00f8}
0x5b9c…5baa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x010e}
0x5baa…5bbe Head {h00=0x0010, h01=0x0050, text=»CHKKEY EQU *«, t00=0x003a, t01=0x011c}
0x5bbe…5bd2 Head {h00=0x0010, h01=0x0050, text=»RDNXTR EQU *«, t00=0x003a, t01=0x0130}
0x5bd2…5be6 Head {h00=0x0010, h01=0x0050, text=»FNDKEY EQU *«, t00=0x003a, t01=0x0144}
0x5be6…5bfa Head {h00=0x0010, h01=0x0050, text=»CRNUPD EQU *«, t00=0x003a, t01=0x0158}
0x5bfa…5c0e Head {h00=0x0010, h01=0x0050, text=»GTLGRN EQU *«, t00=0x003a, t01=0x016c}
0x5c0e…5c22 Head {h00=0x0010, h01=0x0050, text=»CRNCIF EQU *«, t00=0x003a, t01=0x0180}
0x5c22…5c36 (59, 0, 400) Head {h00=0x0010, h01=0x0050, text=»RECECB EQU *«, t00=0x003b, t01=0x0004}
0x5c36…5c46 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003b, t01=0x0018}
0x5c46…5c52 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0028}
0x5c52…5c68 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x003b, t01=0x0034}
0x5c68…5c76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x004a}
0x5c76…5cb2 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x003b, t01=0x0058}
0x5cb2…5cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0094}
0x5cbc…5cfc Head {h00=0x003c, h01=0x0050, text=»* FNDKMX SEARCH GFOR A WYMBOLIC KEY IN A MASTER INDEX.«, t00=0x003b, t01=0x009e}
0x5cfc…5d3e Head {h00=0x003e, h01=0x0050, text=»* A BINARY SEARCH IS USED. REF : KNUTH PAGE 411 ALG. U. «, t00=0x003b, t01=0x00de}
0x5d3e…5d72 Head {h00=0x0030, h01=0x0050, text=»* THE FIRST TWO WORDS IN MASTER INDEX IS :«, t00=0x003b, t01=0x0120}
0x5d72…5d90 Head {h00=0x001a, h01=0x0050, text=»* - NO OF ENTRIES N «, t00=0x003b, t01=0x0154}
0x5d90…5db8 Head {h00=0x0024, h01=0x0050, text=»* - NO OF CHARACTERS PER ENTRY«, t00=0x003b, t01=0x0172}
0x5db8…5dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x000a}
0x5dc2…5dfe Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x003c, t01=0x0014}
0x5dfe…5e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0050}
0x5e08…5e2c Head {h00=0x0020, h01=0x0050, text=»* A5 = MASTER INDEX ADRESS«, t00=0x003c, t01=0x005a}
0x5e2c…5e50 Head {h00=0x0020, h01=0x0050, text=»* A9 = SEARCH KEY ADDRESS «, t00=0x003c, t01=0x007e}
0x5e50…5e74 Head {h00=0x0020, h01=0x0050, text=»* A10 = NR OF CHAR IN KEY «, t00=0x003c, t01=0x00a2}
0x5e74…5e90 Head {h00=0x0018, h01=0x0050, text=»* A11=FDB ADDRESS «, t00=0x003c, t01=0x00c6}
0x5e90…5e9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00e2}
0x5e9a…5eb6 Head {h00=0x0018, h01=0x0050, text=»* CF A14,FNDKMX «, t00=0x003c, t01=0x00ec}
0x5eb6…5ec0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0108}
0x5ec0…5efc Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x003c, t01=0x0112}
0x5efc…5f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x014e}
0x5f06…5f3a Head {h00=0x0030, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO IN INDEX FILE «, t00=0x003c, t01=0x0158}
0x5f3a…5f58 Head {h00=0x001a, h01=0x0050, text=»* A9,A10= UNCHANGED «, t00=0x003c, t01=0x018c}
0x5f58…5f82 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 5 (WORDS)«, t00=0x003d, t01=0x001a}
0x5f82…5f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0044}
0x5f8c…5fc8 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x003d, t01=0x004e}
0x5fc8…5fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x008a}
0x5fd2…5fec Head {h00=0x0016, h01=0x0050, text=»* A3-A7,A12-A13 «, t00=0x003d, t01=0x0094}
0x5fec…5ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00ae}
0x5ff6…6030 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x003d, t01=0x00b8}
0x6030…603a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f2}
0x603a…6064 Head {h00=0x0026, h01=0x0050, text=»CRNCIF EQU 8 INDEX CURRENCY OFFSET«, t00=0x003d, t01=0x00fc}
0x6064…6072 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0126}
0x6072…6086 Head {h00=0x0010, h01=0x0050, text=»FNDKMX EQU *«, t00=0x003d, t01=0x0134}
0x6086…60aa Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A5 NO OF ENTRIES N «, t00=0x003d, t01=0x0148}
0x60aa…60d0 Head {h00=0x0022, h01=0x0050, text=» RF(NP) FND045 NO MASTER INDEX«, t00=0x003d, t01=0x016c}
0x60d0…60e4 (62, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDR A13,A2 «, t00=0x003e, t01=0x0004}
0x60e4…6104 Head {h00=0x001c, h01=0x0050, text=» ANKL A13,/1 GET BIT 15 «, t00=0x003e, t01=0x0018}
0x6104…6116 Head {h00=0x000e, h01=0x0050, text=» SRA A2,1 «, t00=0x003e, t01=0x0038}
0x6116…6136 Head {h00=0x001c, h01=0x0050, text=» LDR A12,A2 M=N/2 FLOOR «, t00=0x003e, t01=0x004a}
0x6136…6158 Head {h00=0x001e, h01=0x0050, text=» ADR A13,A2 I=N/2 CEILING «, t00=0x003e, t01=0x006a}
0x6158…6178 Head {h00=0x001c, h01=0x0050, text=» ADK A5,2 TABLE BASE - 2«, t00=0x003e, t01=0x008c}
0x6178…618c Head {h00=0x0010, h01=0x0050, text=»FND020 EQU *«, t00=0x003e, t01=0x00ac}
0x618c…619e Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x003e, t01=0x00c0}
0x619e…61be Head {h00=0x001c, h01=0x0050, text=» LDR* A7,A5 ENTRY LENGTH«, t00=0x003e, t01=0x00d2}
0x61be…61d4 Head {h00=0x0012, h01=0x0050, text=» LDR A6,A13 I «, t00=0x003e, t01=0x00f2}
0x61d4…61e6 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x003e, t01=0x0108}
0x61e6…620e Head {h00=0x0024, h01=0x0050, text=» RF(NP) FND025 HANDLES ALSO I=0 «, t00=0x003e, t01=0x011a}
0x620e…6234 Head {h00=0x0022, h01=0x0050, text=» CF A14,MPYMOD A1,A2=(I-1)*EL «, t00=0x003e, t01=0x0142}
0x6234…6246 Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x003e, t01=0x0168}
0x6246…626a Head {h00=0x0020, h01=0x0050, text=» ORR A2,A1 GET MOST SIGN BIT«, t00=0x003e, t01=0x017a}
0x626a…627c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003f, t01=0x000e}
0x627c…6290 Head {h00=0x0010, h01=0x0050, text=»FND025 EQU *«, t00=0x003f, t01=0x0020}
0x6290…62b6 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A5 ADD MI BASE ADR - 2«, t00=0x003f, t01=0x0034}
0x62b6…62d6 Head {h00=0x001c, h01=0x0050, text=» ADK A4,2 ENTRY KEY ADR «, t00=0x003f, t01=0x005a}
0x62d6…62fe Head {h00=0x0024, h01=0x0050, text=» LDR A1,A4 ADDRESS OF ENTRY KEY «, t00=0x003f, t01=0x007a}
0x62fe…6320 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A10 MAX KEY LENGTH«, t00=0x003f, t01=0x00a2}
0x6320…633a Head {h00=0x0016, h01=0x0050, text=» LDK A7,0 CHAR ADR«, t00=0x003f, t01=0x00c4}
0x633a…635e Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x003f, t01=0x00de}
0x635e…6374 Head {h00=0x0012, h01=0x0050, text=» LDR A7,A12 M «, t00=0x003f, t01=0x0102}
0x6374…6386 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x003f, t01=0x0118}
0x6386…63a0 Head {h00=0x0016, h01=0x0050, text=» ANK A6,/1 BIT 15 «, t00=0x003f, t01=0x012a}
0x63a0…63bc Head {h00=0x0018, h01=0x0050, text=» SRA A7,1 M/2 FLOOR «, t00=0x003f, t01=0x0144}
0x63bc…63da Head {h00=0x001a, h01=0x0050, text=» ADR A6,A7 M/2 CEILING«, t00=0x003f, t01=0x0160}
0x63da…63fc Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 CHKKEY RTN INF «, t00=0x003f, t01=0x017e}
0x63fc…642e Head {h00=0x002e, h01=0x0050, text=» RF(NG) FND040 SEARCHED KEY LESS OR EQUAL «, t00=0x0040, t01=0x0010}
0x642e…643c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0042}
0x643c…6446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0050}
0x6446…6466 Head {h00=0x001c, h01=0x0050, text=»* SEARCHED KEY GREATER«, t00=0x0040, t01=0x005a}
0x6466…6470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x007a}
0x6470…6486 Head {h00=0x0012, h01=0x0050, text=» LDR A12,A12 M«, t00=0x0040, t01=0x0084}
0x6486…64a8 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FND050 SEARCH READY«, t00=0x0040, t01=0x009a}
0x64a8…64ca Head {h00=0x001e, h01=0x0050, text=» ADR A13,A6 I=I+(M/2 CEIL)«, t00=0x0040, t01=0x00bc}
0x64ca…64de Head {h00=0x0010, h01=0x0050, text=»FND030 EQU *«, t00=0x0040, t01=0x00de}
0x64de…64fe Head {h00=0x001c, h01=0x0050, text=» LDR A12,A7 M=M/2 FLOOR «, t00=0x0040, t01=0x00f2}
0x64fe…6510 Head {h00=0x000e, h01=0x0050, text=» RB FND020«, t00=0x0040, t01=0x0112}
0x6510…6524 Head {h00=0x0010, h01=0x0050, text=»FND040 EQU *«, t00=0x0040, t01=0x0124}
0x6524…653a Head {h00=0x0012, h01=0x0050, text=» LDR A12,A12 M«, t00=0x0040, t01=0x0138}
0x653a…655c Head {h00=0x001e, h01=0x0050, text=» RF(Z) FND060 SEARCH READY«, t00=0x0040, t01=0x014e}
0x655c…657e Head {h00=0x001e, h01=0x0050, text=» SUR A13,A6 I=I-(M/2 CEIL)«, t00=0x0040, t01=0x0170}
0x657e…6590 (65, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB FND030«, t00=0x0041, t01=0x0004}
0x6590…65b4 Head {h00=0x0020, h01=0x0050, text=»FND045 EQU * NO MASTER INDEX«, t00=0x0041, t01=0x0016}
0x65b4…65c6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0041, t01=0x003a}
0x65c6…65e0 Head {h00=0x0016, h01=0x0050, text=» LDK A2,1 REC NR 1«, t00=0x0041, t01=0x004c}
0x65e0…65f2 Head {h00=0x000e, h01=0x0050, text=» RF FND070«, t00=0x0041, t01=0x0066}
0x65f2…6606 Head {h00=0x0010, h01=0x0050, text=»FND050 EQU *«, t00=0x0041, t01=0x0078}
0x6606…6634 Head {h00=0x002a, h01=0x0050, text=» ADR* A4,A5 NEXT ADDRESS OF ENTRY KEY «, t00=0x0041, t01=0x008c}
0x6634…6648 Head {h00=0x0010, h01=0x0050, text=»FND060 EQU *«, t00=0x0041, t01=0x00ba}
0x6648…6664 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A4 ENTRY ADR«, t00=0x0041, t01=0x00ce}
0x6664…6676 Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0041, t01=0x00ea}
0x6676…6694 Head {h00=0x001a, h01=0x0050, text=» ADR* A3,A5 ADR REC NO«, t00=0x0041, t01=0x00fc}
0x6694…669e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x011a}
0x669e…66c2 Head {h00=0x0020, h01=0x0050, text=»* MOVE LOG REC NO TO A1,A2«, t00=0x0041, t01=0x0124}
0x66c2…66cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0148}
0x66cc…66de Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0041, t01=0x0152}
0x66de…66f0 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0041, t01=0x0164}
0x66f0…6702 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0041, t01=0x0176}
0x6702…6714 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0041, t01=0x0188}
0x6714…6726 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0042, t01=0x000a}
0x6726…6738 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0042, t01=0x001c}
0x6738…674a Head {h00=0x000e, h01=0x0050, text=» LCR A2,A3«, t00=0x0042, t01=0x002e}
0x674a…675e Head {h00=0x0010, h01=0x0050, text=»FND070 EQU *«, t00=0x0042, t01=0x0040}
0x675e…6772 Head {h00=0x0010, h01=0x0050, text=» ABL CALSNO «, t00=0x0042, t01=0x0054}
0x6772…6780 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0068}
0x6780…67bc Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0042, t01=0x0076}
0x67bc…67c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b2}
0x67c6…67f8 Head {h00=0x002e, h01=0x0050, text=»* CHKKEY COMPARES TWO CHARACTER STRINGS «, t00=0x0042, t01=0x00bc}
0x67f8…6802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ee}
0x6802…683e Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0042, t01=0x00f8}
0x683e…6848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0134}
0x6848…686a Head {h00=0x001e, h01=0x0050, text=»* A1 = ADR OF ENTRY KEY «, t00=0x0042, t01=0x013e}
0x686a…688c Head {h00=0x001e, h01=0x0050, text=»* A9 = ADR OF SEARCH KEY«, t00=0x0042, t01=0x0160}
0x688c…68ba Head {h00=0x002a, h01=0x0050, text=»* A6 = MAX NO OF CAHARACTERS IN KEY «, t00=0x0042, t01=0x0182}
0x68ba…68f0 Head {h00=0x0032, h01=0x0050, text=»* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY «, t00=0x0043, t01=0x0020}
0x68f0…68fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0056}
0x68fa…6916 Head {h00=0x0018, h01=0x0050, text=»* CF A14,CHKKEY «, t00=0x0043, t01=0x0060}
0x6916…6920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x007c}
0x6920…695c Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0043, t01=0x0086}
0x695c…6966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00c2}
0x6966…69a4 Head {h00=0x003a, h01=0x0050, text=»* A1 = 0 WHEN SEARCED KEY IS CONTAINED IN ENTRY KEY «, t00=0x0043, t01=0x00cc}
0x69a4…69d4 Head {h00=0x002c, h01=0x0050, text=»* = + 1 WHEN SEARCH KYEY IS GREATER«, t00=0x0043, t01=0x010a}
0x69d4…6a00 Head {h00=0x0028, h01=0x0050, text=»* = -1 WHEN SEARCH KEY IS LESS «, t00=0x0043, t01=0x013a}
0x6a00…6a52 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}
0x6a52…6a78 Head {h00=0x0022, h01=0x0050, text=»* A6 = MAX NO OF CHAR IN KEY«, t00=0x0044, t01=0x0028}
0x6a78…6a9a Head {h00=0x001e, h01=0x0050, text=»* CR=0 WHEN KEY IS FOUND«, t00=0x0044, t01=0x004e}
0x6a9a…6abe Head {h00=0x0020, h01=0x0050, text=»* P WHEN KEY IS GREATER«, t00=0x0044, t01=0x0070}
0x6abe…6ae0 Head {h00=0x001e, h01=0x0050, text=»* N WHEN KEY IS LESS «, t00=0x0044, t01=0x0094}
0x6ae0…6b0a Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0044, t01=0x00b6}
0x6b0a…6b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00e0}
0x6b14…6b50 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0044, t01=0x00ea}
0x6b50…6b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0126}
0x6b5a…6b6c Head {h00=0x000e, h01=0x0050, text=»* A2,A3 «, t00=0x0044, t01=0x0130}
0x6b6c…6bac Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0044, t01=0x0142}
0x6bac…6bba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0182}
0x6bba…6bce Head {h00=0x0010, h01=0x0050, text=»CHKKEY EQU *«, t00=0x0044, t01=0x0190}
0x6bce…6bf4 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A9 SEARCH KEY ADDRESS «, t00=0x0045, t01=0x0014}
0x6bf4…6c1c Head {h00=0x0024, h01=0x0050, text=» ADR A3,A7 FIRST SC CHAR TO TEST«, t00=0x0045, t01=0x003a}
0x6c1c…6c44 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A7 FIRST EC CHAR TO TEST«, t00=0x0045, t01=0x0062}
0x6c44…6c58 Head {h00=0x0010, h01=0x0050, text=»CHK020 EQU *«, t00=0x0045, t01=0x008a}
0x6c58…6c7c Head {h00=0x0020, h01=0x0050, text=» LCR A2,A3 SEARCED KEY CHAR «, t00=0x0045, t01=0x009e}
0x6c7c…6c96 Head {h00=0x0016, h01=0x0050, text=» CCR A2,A1 SC=EC? «, t00=0x0045, t01=0x00c2}
0x6c96…6cb8 Head {h00=0x001e, h01=0x0050, text=» RF(G) CHK100 SC GT TH EC «, t00=0x0045, t01=0x00dc}
0x6cb8…6cde Head {h00=0x0022, h01=0x0050, text=» RF(L) CHK120 SC LESS THAN EC «, t00=0x0045, t01=0x00fe}
0x6cde…6d00 Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 NO OF SAME CHAR «, t00=0x0045, t01=0x0124}
0x6d00…6d1e Head {h00=0x001a, h01=0x0050, text=» CWR A7,A6 NO OF CHAR «, t00=0x0045, t01=0x0146}
0x6d1e…6d46 Head {h00=0x0024, h01=0x0050, text=» RF(NL) CHK060 ALL CHAR CHECKED «, t00=0x0045, t01=0x0164}
0x6d46…6d66 Head {h00=0x001c, h01=0x0050, text=» ADK A3,1 NXT SC TO TEST«, t00=0x0045, t01=0x018c}
0x6d66…6d86 Head {h00=0x001c, h01=0x0050, text=» ADK A1,1 NXT EC TO TEST«, t00=0x0046, t01=0x001c}
0x6d86…6d9a Head {h00=0x0010, h01=0x0050, text=» RB CHK020 «, t00=0x0046, t01=0x003c}
0x6d9a…6dae Head {h00=0x0010, h01=0x0050, text=»CHK060 EQU *«, t00=0x0046, t01=0x0050}
0x6dae…6dc6 Head {h00=0x0014, h01=0x0050, text=» LDK A1,0 FOUND «, t00=0x0046, t01=0x0064}
0x6dc6…6dd8 Head {h00=0x000e, h01=0x0050, text=» RF CHK140«, t00=0x0046, t01=0x007c}
0x6dd8…6dec Head {h00=0x0010, h01=0x0050, text=»CHK120 EQU *«, t00=0x0046, t01=0x008e}
0x6dec…6e14 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,-1 SEARCHED KEY SMALLER«, t00=0x0046, t01=0x00a2}
0x6e14…6e26 Head {h00=0x000e, h01=0x0050, text=» RF CHK140«, t00=0x0046, t01=0x00ca}
0x6e26…6e3a Head {h00=0x0010, h01=0x0050, text=»CHK100 EQU *«, t00=0x0046, t01=0x00dc}
0x6e3a…6e62 Head {h00=0x0024, h01=0x0050, text=» LDK A1,1 SEARCHED KEY SGREATER «, t00=0x0046, t01=0x00f0}
0x6e62…6e76 Head {h00=0x0010, h01=0x0050, text=»CHK140 EQU *«, t00=0x0046, t01=0x0118}
0x6e76…6ea2 Head {h00=0x0028, h01=0x0050, text=» ABL RETURN RETURN AND SET CONDITION«, t00=0x0046, t01=0x012c}
0x6ea2…6eb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0158}
0x6eb0…6eec Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0046, t01=0x0166}
0x6eec…6ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0012}
0x6ef6…6f3a Head {h00=0x0040, h01=0x0050, text=»* RDNXTR WILL MAKWE NEXT RECORD IN AN INDEX FILE AVAILABLE«, t00=0x0047, t01=0x001c}
0x6f3a…6f56 Head {h00=0x0018, h01=0x0050, text=»* IN A CORE BUFFER«, t00=0x0047, t01=0x0060}
0x6f56…6f9e Head {h00=0x0044, h01=0x0050, text=»* WHEN NO RECORD IS READ BEFORE, THE FIRST RECORD IN SPECIFIED«, t00=0x0047, t01=0x007c}
0x6f9e…6fc8 Head {h00=0x0026, h01=0x0050, text=»* SECTOR WILL BE MADE AVAILABLE «, t00=0x0047, t01=0x00c4}
0x6fc8…6fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00ee}
0x6fd2…700e Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0047, t01=0x00f8}
0x700e…7018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0134}
0x7018…7056 Head {h00=0x003a, h01=0x0050, text=»* A11= FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) «, t00=0x0047, t01=0x013e}
0x7056…7074 Head {h00=0x001a, h01=0x0050, text=»* FDBCEX,FDBSNR«, t00=0x0047, t01=0x017c}
0x7074…70ba Head {h00=0x0042, h01=0x0050, text=»* FDBRRO = RECORD OFFSET IN BUFFER, WHEN = -1 THE FIRST«, t00=0x0048, t01=0x000a}
0x70ba…70f6 Head {h00=0x0038, h01=0x0050, text=»* RECORD IN CURRENT SECTOR IS WANTED«, t00=0x0048, t01=0x0050}
0x70f6…7134 Head {h00=0x003a, h01=0x0050, text=»* A4 = ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN«, t00=0x0048, t01=0x008c}
0x7134…7176 Head {h00=0x003e, h01=0x0050, text=»* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED «, t00=0x0048, t01=0x00ca}
0x7176…7192 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0048, t01=0x010c}
0x7192…719c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0128}
0x719c…71d8 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0048, t01=0x0132}
0x71d8…71e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x016e}
0x71e2…71fe Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADDRESS«, t00=0x0048, t01=0x0178}
0x71fe…721e (73, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* A4 = BUFFER ADDRESS «, t00=0x0049, t01=0x0004}
0x721e…724c Head {h00=0x002a, h01=0x0050, text=»* = 0 WHEN NO BUFFER IS ALLOCATED«, t00=0x0049, t01=0x0024}
0x724c…7268 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0049, t01=0x0052}
0x7268…7292 Head {h00=0x0026, h01=0x0050, text=»* CR=0 WHEN PHYSICAL I/O FAILED «, t00=0x0049, t01=0x006e}
0x7292…72a6 Head {h00=0x0010, h01=0x0050, text=»* IF CR=0 «, t00=0x0049, t01=0x0098}
0x72a6…72cc Head {h00=0x0022, h01=0x0050, text=»* THEN A1=I/O RETURN CODE «, t00=0x0049, t01=0x00ac}
0x72cc…72f6 Head {h00=0x0026, h01=0x0050, text=»* ELSE A1=FDBRR0=RECORD OFFSET«, t00=0x0049, t01=0x00d2}
0x72f6…7320 Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 7 (WORDS)«, t00=0x0049, t01=0x00fc}
0x7320…732a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0126}
0x732a…7366 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0049, t01=0x0130}
0x7366…7370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x016c}
0x7370…7384 Head {h00=0x0010, h01=0x0050, text=»* A2,A3,A5«, t00=0x0049, t01=0x0176}
0x7384…738e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x018a}
0x738e…73cc (74, 0, 400) Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x004a, t01=0x0004}
0x73cc…73da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0042}
0x73da…73ee Head {h00=0x0010, h01=0x0050, text=»RDNXTR EQU *«, t00=0x004a, t01=0x0050}
0x73ee…7400 Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x004a, t01=0x0064}
0x7400…7424 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDN200 BUFFER EXIST «, t00=0x004a, t01=0x0076}
0x7424…742e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x009a}
0x742e…7446 Head {h00=0x0014, h01=0x0050, text=»* GET A BUFFER«, t00=0x004a, t01=0x00a4}
0x7446…7450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00bc}
0x7450…7464 Head {h00=0x0010, h01=0x0050, text=»RDN040 EQU *«, t00=0x004a, t01=0x00c6}
0x7464…748e Head {h00=0x0026, h01=0x0050, text=» CF A14,GTBKBU GET BLOCKBUFFERADDR«, t00=0x004a, t01=0x00da}
0x748e…74ba Head {h00=0x0028, h01=0x0050, text=» RF(NN) RDN080 DATA ALREADY IN CORE «, t00=0x004a, t01=0x0104}
0x74ba…74c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0130}
0x74c4…74e4 Head {h00=0x001c, h01=0x0050, text=»* READ BLOCK FROM DISC«, t00=0x004a, t01=0x013a}
0x74e4…74ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x015a}
0x74ee…7508 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A7 SAVE A7«, t00=0x004a, t01=0x0164}
0x7508…7524 Head {h00=0x0018, h01=0x0050, text=» CF A14,FMIORD READ «, t00=0x004a, t01=0x017e}
0x7524…7536 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A3«, t00=0x004b, t01=0x000a}
0x7536…7554 Head {h00=0x001a, h01=0x0050, text=» ADK A1,0 RETURN CODE «, t00=0x004b, t01=0x001c}
0x7554…7570 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) RDN900 ERROR«, t00=0x004b, t01=0x003a}
0x7570…7584 Head {h00=0x0010, h01=0x0050, text=»RDN080 EQU *«, t00=0x004b, t01=0x0056}
0x7584…7596 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x004b, t01=0x006a}
0x7596…75c4 Head {h00=0x002a, h01=0x0050, text=» ST A1,FDBRRO,A11 OFFSET FIRST RECORD «, t00=0x004b, t01=0x007c}
0x75c4…75de Head {h00=0x0016, h01=0x0050, text=» RF RDN940 RETURN «, t00=0x004b, t01=0x00aa}
0x75de…75ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x00c4}
0x75ec…75f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d2}
0x75f6…7614 Head {h00=0x001a, h01=0x0050, text=»* BUFFER WAS BEFORE «, t00=0x004b, t01=0x00dc}
0x7614…761e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00fa}
0x761e…7632 Head {h00=0x0010, h01=0x0050, text=»RDN200 EQU *«, t00=0x004b, t01=0x0104}
0x7632…765a Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRRO,A11 RECORD OFFSET «, t00=0x004b, t01=0x0118}
0x765a…7684 Head {h00=0x0026, h01=0x0050, text=» RB(N) RDN080 FIRST RECORD WANTED «, t00=0x004b, t01=0x0140}
0x7684…768e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x016a}
0x768e…76cc Head {h00=0x003a, h01=0x0050, text=»* CHECK IF THIS OFFSET POINTS TO LAST REC IN BUFFER «, t00=0x004b, t01=0x0174}
0x76cc…76d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0022}
0x76d6…76ea Head {h00=0x0010, h01=0x0050, text=»RDN220 EQU *«, t00=0x004c, t01=0x002c}
0x76ea…770e Head {h00=0x0020, h01=0x0050, text=» CW A1,FDBMRO,A11 MAX OFFSET«, t00=0x004c, t01=0x0040}
0x770e…773c Head {h00=0x002a, h01=0x0050, text=» RF(NL) RDN300 THIS REC LAST IN BUFFER«, t00=0x004c, t01=0x0064}
0x773c…7746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0092}
0x7746…7776 Head {h00=0x002c, h01=0x0050, text=»* GET NEXT REC IN CURRENT BLOCKBUFFER «, t00=0x004c, t01=0x009c}
0x7776…7780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00cc}
0x7780…77a8 Head {h00=0x0024, h01=0x0050, text=» AD A1,FDBRLE,A11 RECORD LENGTH «, t00=0x004c, t01=0x00d6}
0x77a8…77c6 Head {h00=0x001a, h01=0x0050, text=» ADK A1,1 STATUS CHAR «, t00=0x004c, t01=0x00fe}
0x77c6…77ea Head {h00=0x0020, h01=0x0050, text=» ST A1,FDBRRO,A11 NEW OFFSET«, t00=0x004c, t01=0x011c}
0x77ea…7804 Head {h00=0x0016, h01=0x0050, text=» RF RDN940 RETURN «, t00=0x004c, t01=0x0140}
0x7804…7812 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x015a}
0x7812…781c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0168}
0x781c…7834 Head {h00=0x0014, h01=0x0050, text=»* GET NEW BLOCK «, t00=0x004c, t01=0x0172}
0x7834…783e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x018a}
0x783e…7852 (77, 0, 400) Head {h00=0x0010, h01=0x0050, text=»RDN300 EQU *«, t00=0x004d, t01=0x0004}
0x7852…786e Head {h00=0x0018, h01=0x0050, text=» LD A1,FDBSNR+2,A11 «, t00=0x004d, t01=0x0018}
0x786e…7880 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x004d, t01=0x0034}
0x7880…78b4 Head {h00=0x0030, h01=0x0050, text=» LC A3,FDBBLZ,A11 BLOCK SIZE (SECTORS/BLOCK)«, t00=0x004d, t01=0x0046}
0x78b4…78d0 Head {h00=0x0018, h01=0x0050, text=» ADR A1,A3 NEXT SECT«, t00=0x004d, t01=0x007a}
0x78d0…78e6 Head {h00=0x0012, h01=0x0050, text=» RF(O) RDN380 «, t00=0x004d, t01=0x0096}
0x78e6…78f8 Head {h00=0x000e, h01=0x0050, text=» RF RDN390«, t00=0x004d, t01=0x00ac}
0x78f8…7914 Head {h00=0x0018, h01=0x0050, text=»RDN380 ANKL A1,/7FFF«, t00=0x004d, t01=0x00be}
0x7914…792a Head {h00=0x0012, h01=0x0050, text=» IM FDBSNR,A11«, t00=0x004d, t01=0x00da}
0x792a…793e Head {h00=0x0010, h01=0x0050, text=»RDN390 EQU *«, t00=0x004d, t01=0x00f0}
0x793e…795a Head {h00=0x0018, h01=0x0050, text=» ST A1,FDBSNR+2,A11 «, t00=0x004d, t01=0x0104}
0x795a…7964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0120}
0x7964…797e Head {h00=0x0016, h01=0x0050, text=»* GET NEXT BLOCK«, t00=0x004d, t01=0x012a}
0x797e…7988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0144}
0x7988…799c Head {h00=0x0010, h01=0x0050, text=»RDN500 EQU *«, t00=0x004d, t01=0x014e}
0x799c…79c2 Head {h00=0x0022, h01=0x0050, text=» CF A14,SDMRBU RELEASE BUFFER «, t00=0x004d, t01=0x0162}
0x79c2…79e0 Head {h00=0x001a, h01=0x0050, text=» RB RDN040 NEXT SECTOR«, t00=0x004d, t01=0x0188}
0x79e0…79ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0016}
0x79ea…7a00 Head {h00=0x0012, h01=0x0050, text=»* ERROR EXIT«, t00=0x004e, t01=0x0020}
0x7a00…7a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0036}
0x7a0a…7a1e Head {h00=0x0010, h01=0x0050, text=»RDN900 EQU *«, t00=0x004e, t01=0x0040}
0x7a1e…7a30 Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x004e, t01=0x0054}
0x7a30…7a50 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RDN960 NO BUFFER «, t00=0x004e, t01=0x0066}
0x7a50…7a76 Head {h00=0x0022, h01=0x0050, text=» CF A14,SDMRBU RELEASE BUFFER «, t00=0x004e, t01=0x0086}
0x7a76…7a8a Head {h00=0x0010, h01=0x0050, text=»RDN960 EQU *«, t00=0x004e, t01=0x00ac}
0x7a8a…7aae Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 INDICATE NO BUFFER«, t00=0x004e, t01=0x00c0}
0x7aae…7ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e4}
0x7ab8…7ac6 Head {h00=0x000a, h01=0x0050, text=»* EXIT«, t00=0x004e, t01=0x00ee}
0x7ac6…7ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00fc}
0x7ad0…7ae4 Head {h00=0x0010, h01=0x0050, text=»RDN940 EQU *«, t00=0x004e, t01=0x0106}
0x7ae4…7af8 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x004e, t01=0x011a}
0x7af8…7b18 Head {h00=0x001c, h01=0x0050, text=» ADK A4,0 SET CONDITION «, t00=0x004e, t01=0x012e}
0x7b18…7b30 Head {h00=0x0014, h01=0x0050, text=» ABR* A14 RETURN«, t00=0x004e, t01=0x014e}
0x7b30…7b3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x0166}
0x7b3e…7b7a Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x004e, t01=0x0174}
0x7b7a…7b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0020}
0x7b84…7bc6 Head {h00=0x003e, h01=0x0050, text=»* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE «, t00=0x004f, t01=0x002a}
0x7bc6…7bf4 Head {h00=0x002a, h01=0x0050, text=»* SPECIFIED KEY OR NEXT HIGHER KEY «, t00=0x004f, t01=0x006c}
0x7bf4…7c2e Head {h00=0x0036, h01=0x0050, text=»* IF END OF FILE, THE FIRST FREE RECORD IS FOUND«, t00=0x004f, t01=0x009a}
0x7c2e…7c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00d4}
0x7c38…7c74 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x004f, t01=0x00de}
0x7c74…7c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x011a}
0x7c7e…7c9a Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADDRESS«, t00=0x004f, t01=0x0124}
0x7c9a…7cba Head {h00=0x001c, h01=0x0050, text=»* A9 = SEARCH KEY ADDR«, t00=0x004f, t01=0x0140}
0x7cba…7ce4 Head {h00=0x0026, h01=0x0050, text=»* A10 = NO OF CHARACTERS IN KEY «, t00=0x004f, t01=0x0160}
0x7ce4…7d0a Head {h00=0x0022, h01=0x0050, text=»* A8 = PHYSICAL ECB ADDRESS «, t00=0x004f, t01=0x018a}
0x7d0a…7d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0020}
0x7d14…7d50 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0050, t01=0x002a}
0x7d50…7d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0066}
0x7d5a…7d76 Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADDRESS«, t00=0x0050, t01=0x0070}
0x7d76…7daa Head {h00=0x0030, h01=0x0050, text=»* FDBSNR,FDBRRO = FOUND INDEX RECORD «, t00=0x0050, t01=0x008c}
0x7daa…7dd0 Head {h00=0x0022, h01=0x0050, text=»* A1 = 0 WHEN KEY ISS FOUND «, t00=0x0050, t01=0x00c0}
0x7dd0…7e04 Head {h00=0x0030, h01=0x0050, text=»* = /400 WHEN NEXT HIGHER KEY IS FOUND«, t00=0x0050, t01=0x00e6}
0x7e04…7e36 Head {h00=0x002e, h01=0x0050, text=»* = RETURN CODE WHEN KEY IS NOT FOUND«, t00=0x0050, t01=0x011a}
0x7e36…7e6e Head {h00=0x0034, h01=0x0050, text=»* BIT 1 CAN NEVBER BE SET BY DISC DRIVER «, t00=0x0050, t01=0x014c}
0x7e6e…7e8e Head {h00=0x001c, h01=0x0050, text=»* A4 = BUFFER ADDRESS «, t00=0x0050, t01=0x0184}
0x7e8e…7eb8 Head {h00=0x0026, h01=0x0050, text=»* = 0 WHEN NO RECORD IS FOUND«, t00=0x0051, t01=0x0014}
0x7eb8…7ede Head {h00=0x0022, h01=0x0050, text=»* A7 = NO OF SAME CHARACTERS«, t00=0x0051, t01=0x003e}
0x7ede…7f04 Head {h00=0x0022, h01=0x0050, text=»* A8 = PHYSICAL ECB ADDRESS «, t00=0x0051, t01=0x0064}
0x7f04…7f20 Head {h00=0x0018, h01=0x0050, text=»* A10 = UNCHANGED «, t00=0x0051, t01=0x008a}
0x7f20…7f42 Head {h00=0x001e, h01=0x0050, text=»* CR=0 WHEN KEY IS FOUND«, t00=0x0051, t01=0x00a6}
0x7f42…7f6c Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 9 (WORDS)«, t00=0x0051, t01=0x00c8}
0x7f6c…7f76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00f2}
0x7f76…7fb2 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0051, t01=0x00fc}
0x7fb2…7fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0138}
0x7fbc…7fdc Head {h00=0x001c, h01=0x0050, text=»* A2-A3,A5-A7,A12-A13 «, t00=0x0051, t01=0x0142}
0x7fdc…7fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0162}
0x7fe6…8024 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0051, t01=0x016c}
0x8024…8032 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x001a}
0x8032…8046 Head {h00=0x0010, h01=0x0050, text=»FNDKEY EQU *«, t00=0x0052, t01=0x0028}
0x8046…8050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x003c}
0x8050…807a Head {h00=0x0026, h01=0x0050, text=»* FIRST SEARCH THE NMASTER INDEX«, t00=0x0052, t01=0x0046}
0x807a…8084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0070}
0x8084…80b2 Head {h00=0x002a, h01=0x0050, text=» LD A5,FDBMIA,A11 ADDR OF MASTER INDEX«, t00=0x0052, t01=0x007a}
0x80b2…80e6 Head {h00=0x0030, h01=0x0050, text=» CF A14,FNDKMX GET KEY ENTRY IN MASTER INDEX«, t00=0x0052, t01=0x00a8}
0x80e6…8102 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FKY900 ERROR«, t00=0x0052, t01=0x00dc}
0x8102…8128 Head {h00=0x0022, h01=0x0050, text=» LDR A6,A10 NO OF CHAR IN KEY «, t00=0x0052, t01=0x00f8}
0x8128…8150 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 START CHAR KEY SEARCH «, t00=0x0052, t01=0x011e}
0x8150…817a Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 NO BUFFER TO STYART WITH«, t00=0x0052, t01=0x0146}
0x817a…818e Head {h00=0x0010, h01=0x0050, text=»FKY100 EQU *«, t00=0x0052, t01=0x0170}
0x818e…81b6 Head {h00=0x0024, h01=0x0050, text=» CF A14,RDNXTR GET INDEX RECORD «, t00=0x0052, t01=0x0184}
0x81b6…81e2 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FKY900 I/O FAILED ,NO BUFFER «, t00=0x0053, t01=0x001c}
0x81e2…81ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0048}
0x81ec…8212 Head {h00=0x0022, h01=0x0050, text=»* BUFFER AND ADATA IS FOUND «, t00=0x0053, t01=0x0052}
0x8212…821c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0078}
0x821c…8230 Head {h00=0x0010, h01=0x0050, text=»FKY150 EQU *«, t00=0x0053, t01=0x0082}
0x8230…824e Head {h00=0x001a, h01=0x0050, text=» ADR A1,A4 BUFFER ADR «, t00=0x0053, t01=0x0096}
0x824e…8266 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFSTA «, t00=0x0053, t01=0x00b4}
0x8266…8278 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0053, t01=0x00cc}
0x8278…82ae Head {h00=0x0032, h01=0x0050, text=» AD A5,FDBRLE,A11 ADDRESS TO STATUS CHARACTER «, t00=0x0053, t01=0x00de}
0x82ae…82c4 Head {h00=0x0012, h01=0x0050, text=» LCR A2,A5 =3«, t00=0x0053, t01=0x0114}
0x82c4…82ec Head {h00=0x0024, h01=0x0050, text=» ANK A2,/FF STATUS CHARACTER =3 «, t00=0x0053, t01=0x012a}
0x82ec…8304 Head {h00=0x0014, h01=0x0050, text=» SUK A2,/FF =3 «, t00=0x0053, t01=0x0152}
0x8304…8326 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FKY200 USED RECORD «, t00=0x0053, t01=0x016a}
0x8326…8334 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x018c}
0x8334…833e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x000a}
0x833e…8368 Head {h00=0x0026, h01=0x0050, text=»* NO MORE RECORDS IN THIS SECTOR«, t00=0x0054, t01=0x0014}
0x8368…8372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x003e}
0x8372…83a0 Head {h00=0x002a, h01=0x0050, text=» LD A13,FDBRRO,A11 SAVE CURRENT OFFSET«, t00=0x0054, t01=0x0048}
0x83a0…83ba Head {h00=0x0016, h01=0x0050, text=» LD A5,FDBMRO,A11 «, t00=0x0054, t01=0x0076}
0x83ba…83e8 Head {h00=0x002a, h01=0x0050, text=» ST A5,FDBRRO,A11 LAST RECORD IN BLOCK«, t00=0x0054, t01=0x0090}
0x83e8…83f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00be}
0x83f2…83fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00c8}
0x83fc…841a Head {h00=0x001a, h01=0x0050, text=»* CHECK IF END OF FILE«, t00=0x0054, t01=0x00d2}
0x841a…8424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00f0}
0x8424…8440 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A7 CHAR ADDR«, t00=0x0054, t01=0x00fa}
0x8440…8466 Head {h00=0x0022, h01=0x0050, text=» CF A14,GTLGRN GET LOG REC NR «, t00=0x0054, t01=0x0116}
0x8466…8484 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A10 NR OF CHAR«, t00=0x0054, t01=0x013c}
0x8484…84a0 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A5 CHAR ADDR«, t00=0x0054, t01=0x015a}
0x84a0…84ba Head {h00=0x0016, h01=0x0050, text=» CC A1,FDBLRN,A11 «, t00=0x0054, t01=0x0176}
0x84ba…84d8 Head {h00=0x001a, h01=0x0050, text=» RB(L) FKY100 NOT EOF «, t00=0x0054, t01=0x0190}
0x84d8…84f2 Head {h00=0x0016, h01=0x0050, text=» RF(G) FKY180 EOF «, t00=0x0055, t01=0x001e}
0x84f2…850e Head {h00=0x0018, h01=0x0050, text=» CW A2,FDBLRN+1,A11 «, t00=0x0055, t01=0x0038}
0x850e…852c Head {h00=0x001a, h01=0x0050, text=» RB(L) FKY100 NOT EOF «, t00=0x0055, t01=0x0054}
0x852c…8536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0072}
0x8536…8558 Head {h00=0x001e, h01=0x0050, text=»* EOF IS IN THIS SECTOR «, t00=0x0055, t01=0x007c}
0x8558…8562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x009e}
0x8562…8576 Head {h00=0x0010, h01=0x0050, text=»FKY180 EQU *«, t00=0x0055, t01=0x00a8}
0x8576…85ac Head {h00=0x0032, h01=0x0050, text=» ST A13,FDBRRO,A11 OFFSET TO FIRST FREE RECORD«, t00=0x0055, t01=0x00bc}
0x85ac…85c6 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,EOFRC EOF«, t00=0x0055, t01=0x00f2}
0x85c6…85d8 Head {h00=0x000e, h01=0x0050, text=» RF FKY900«, t00=0x0055, t01=0x010c}
0x85d8…85e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x011e}
0x85e6…85f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x012c}
0x85f0…8616 Head {h00=0x0022, h01=0x0050, text=»* CHECK KEY IN THIS RECODRD «, t00=0x0055, t01=0x0136}
0x8616…8620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x015c}
0x8620…8634 Head {h00=0x0010, h01=0x0050, text=»FKY200 EQU *«, t00=0x0055, t01=0x0166}
0x8634…8658 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0055, t01=0x017a}
0x8658…8678 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FKY870 KEY FOUND «, t00=0x0056, t01=0x000e}
0x8678…869e Head {h00=0x0022, h01=0x0050, text=» RF(N) FKY850 SEARCH KEY LESS «, t00=0x0056, t01=0x002e}
0x869e…86a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0054}
0x86a8…86c4 Head {h00=0x0018, h01=0x0050, text=»* SEARCH KEY GREATER«, t00=0x0056, t01=0x005e}
0x86c4…86ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x007a}
0x86ce…86e2 Head {h00=0x0010, h01=0x0050, text=»FKY840 EQU *«, t00=0x0056, t01=0x0084}
0x86e2…8708 Head {h00=0x0022, h01=0x0050, text=» CC A7,-4,A5 NEXT KEY FLAG =3 «, t00=0x0056, t01=0x0098}
0x8708…8738 Head {h00=0x002c, h01=0x0050, text=» RB(NG) FKY100 START OF KEY:S IDENTICAL «, t00=0x0056, t01=0x00be}
0x8738…8770 Head {h00=0x0034, h01=0x0050, text=» LC A7,-4,A5 REDUCE NUMBER OF SAME CHARACTERS =3«, t00=0x0056, t01=0x00ee}
0x8770…878c Head {h00=0x0018, h01=0x0050, text=» RB FKY100 NEXT KEY «, t00=0x0056, t01=0x0126}
0x878c…879a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0142}
0x879a…87a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0150}
0x87a4…87be Head {h00=0x0016, h01=0x0050, text=»* SEARCH KEY LESS «, t00=0x0056, t01=0x015a}
0x87be…87c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0174}
0x87c8…87dc Head {h00=0x0010, h01=0x0050, text=»FKY850 EQU *«, t00=0x0056, t01=0x017e}
0x87dc…8800 (87, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDKL A1,NOKEY KEY NOT FOUND«, t00=0x0057, t01=0x0004}
0x8800…8812 Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x0057, t01=0x0028}
0x8812…881c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x003a}
0x881c…8830 Head {h00=0x0010, h01=0x0050, text=»* KEY FOUND «, t00=0x0057, t01=0x0044}
0x8830…883a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0058}
0x883a…884e Head {h00=0x0010, h01=0x0050, text=»FKY870 EQU *«, t00=0x0057, t01=0x0062}
0x884e…886a Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 KEY FOUND «, t00=0x0057, t01=0x0076}
0x886a…887c Head {h00=0x000e, h01=0x0050, text=» RF FKY950«, t00=0x0057, t01=0x0092}
0x887c…8890 Head {h00=0x0010, h01=0x0050, text=»FKY900 EQU *«, t00=0x0057, t01=0x00a4}
0x8890…88b8 Head {h00=0x0024, h01=0x0050, text=» LDK A7,0 NO OF SAME LEAD CHARS «, t00=0x0057, t01=0x00b8}
0x88b8…88cc Head {h00=0x0010, h01=0x0050, text=»FKY950 EQU *«, t00=0x0057, t01=0x00e0}
0x88cc…88f8 Head {h00=0x0028, h01=0x0050, text=» ABL RETURN RETURN AND SET CONDITION«, t00=0x0057, t01=0x00f4}
0x88f8…8906 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0120}
0x8906…8910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x012e}
0x8910…895e Head {h00=0x004a, h01=0x0050, text=»* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX «, t00=0x0057, t01=0x0138}
0x895e…897e Head {h00=0x001c, h01=0x0050, text=»* RECORDS ARE UPDATED «, t00=0x0057, t01=0x0186}
0x897e…8988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0016}
0x8988…8998 Head {h00=0x000c, h01=0x0050, text=»* IN: «, t00=0x0058, t01=0x0020}
0x8998…89c2 Head {h00=0x0026, h01=0x0050, text=»* A1,A2 = LAST RECORD NR MOVED «, t00=0x0058, t01=0x0030}
0x89c2…89ec Head {h00=0x0026, h01=0x0050, text=»* A12,A13= FIRST RECORD NR MOVED«, t00=0x0058, t01=0x005a}
0x89ec…8a10 Head {h00=0x0020, h01=0x0050, text=»* A11 = FDB ADDR INDEX «, t00=0x0058, t01=0x0084}
0x8a10…8a3a Head {h00=0x0026, h01=0x0050, text=»* A7 = ADD PARAMETER +1, -1 «, t00=0x0058, t01=0x00a8}
0x8a3a…8a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00d2}
0x8a44…8a60 Head {h00=0x0018, h01=0x0050, text=»* USED REGISTERS: «, t00=0x0058, t01=0x00dc}
0x8a60…8a78 Head {h00=0x0014, h01=0x0050, text=»* A1-A3,A6-A7 «, t00=0x0058, t01=0x00f8}
0x8a78…8a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0110}
0x8a82…8a92 Head {h00=0x000c, h01=0x0050, text=»* OUT:«, t00=0x0058, t01=0x011a}
0x8a92…8ab2 Head {h00=0x001c, h01=0x0050, text=»* A11= FDB ADDR INDEX «, t00=0x0058, t01=0x012a}
0x8ab2…8ad2 Head {h00=0x001c, h01=0x0050, text=»* A12,A13 = UNCHANGED «, t00=0x0058, t01=0x014a}
0x8ad2…8afc Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 4 (WORDS)«, t00=0x0058, t01=0x016a}
0x8afc…8b06 (89, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0004}
0x8b06…8b1a Head {h00=0x0010, h01=0x0050, text=»CRNUPD EQU *«, t00=0x0059, t01=0x000e}
0x8b1a…8b42 Head {h00=0x0024, h01=0x0050, text=» LD A3,FDBADF,A11 FDB DATA FILE «, t00=0x0059, t01=0x0022}
0x8b42…8b4e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0059, t01=0x004a}
0x8b4e…8b74 Head {h00=0x0022, h01=0x0050, text=» ADKL A3,FDBCRL CRN LINK ROOT «, t00=0x0059, t01=0x0056}
0x8b74…8b88 Head {h00=0x0010, h01=0x0050, text=»CRU100 EQU *«, t00=0x0059, t01=0x007c}
0x8b88…8b9c Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A3 «, t00=0x0059, t01=0x0090}
0x8b9c…8bbe Head {h00=0x001e, h01=0x0050, text=» RF(Z) CRU900 END OF LINK «, t00=0x0059, t01=0x00a4}
0x8bbe…8be2 Head {h00=0x0020, h01=0x0050, text=» LC A6,FWTFNR,A11 FILE CODE «, t00=0x0059, t01=0x00c6}
0x8be2…8bfa Head {h00=0x0014, h01=0x0050, text=» CC A6,CRNCIF,A3«, t00=0x0059, t01=0x00ea}
0x8bfa…8c1a Head {h00=0x001c, h01=0x0050, text=» RB(NE) CRU100 WRONG FC «, t00=0x0059, t01=0x0102}
0x8c1a…8c36 Head {h00=0x0018, h01=0x0050, text=» CC A12,CRNCIF+1,A3 «, t00=0x0059, t01=0x0122}
0x8c36…8c4c Head {h00=0x0012, h01=0x0050, text=» RB(G) CRU100 «, t00=0x0059, t01=0x013e}
0x8c4c…8c62 Head {h00=0x0012, h01=0x0050, text=» RF(L) CRU200 «, t00=0x0059, t01=0x0154}
0x8c62…8c7e Head {h00=0x0018, h01=0x0050, text=» CW A13,CRNCIF+2,A3 «, t00=0x0059, t01=0x016a}
0x8c7e…8c94 Head {h00=0x0012, h01=0x0050, text=» RB(G) CRU100 «, t00=0x0059, t01=0x0186}
0x8c94…8ca8 Head {h00=0x0010, h01=0x0050, text=»CRU200 EQU *«, t00=0x005a, t01=0x000c}
0x8ca8…8cc2 Head {h00=0x0016, h01=0x0050, text=» CC A1,CRNCIF+1,A3«, t00=0x005a, t01=0x0020}
0x8cc2…8cd8 Head {h00=0x0012, h01=0x0050, text=» RF(G) CRU300 «, t00=0x005a, t01=0x003a}
0x8cd8…8cee Head {h00=0x0012, h01=0x0050, text=» RB(L) CRU100 «, t00=0x005a, t01=0x0050}
0x8cee…8d08 Head {h00=0x0016, h01=0x0050, text=» CW A2,CRNCIF+2,A3«, t00=0x005a, t01=0x0066}
0x8d08…8d1e Head {h00=0x0012, h01=0x0050, text=» RB(L) CRU100 «, t00=0x005a, t01=0x0080}
0x8d1e…8d32 Head {h00=0x0010, h01=0x0050, text=»CRU300 EQU *«, t00=0x005a, t01=0x0096}
0x8d32…8d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00aa}
0x8d3c…8d52 Head {h00=0x0012, h01=0x0050, text=»* UPDATE CRN«, t00=0x005a, t01=0x00b4}
0x8d52…8d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00ca}
0x8d5c…8d6e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x005a, t01=0x00d4}
0x8d6e…8d86 Head {h00=0x0014, h01=0x0050, text=» RF(N) CRU230 -1«, t00=0x005a, t01=0x00e6}
0x8d86…8d98 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005a, t01=0x00fe}
0x8d98…8dac Head {h00=0x0010, h01=0x0050, text=»CRU230 EQU *«, t00=0x005a, t01=0x0110}
0x8dac…8dc2 Head {h00=0x0012, h01=0x0050, text=» ANKL A7,/7FFF«, t00=0x005a, t01=0x0124}
0x8dc2…8dd4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x005a, t01=0x013a}
0x8dd4…8dee Head {h00=0x0016, h01=0x0050, text=» LC A1,CRNCIF+1,A3«, t00=0x005a, t01=0x014c}
0x8dee…8e08 Head {h00=0x0016, h01=0x0050, text=» LD A2,CRNCIF+2,A3«, t00=0x005a, t01=0x0166}
0x8e08…8e1e Head {h00=0x0012, h01=0x0050, text=» CF A14,ADDMOD«, t00=0x005a, t01=0x0180}
0x8e1e…8e38 Head {h00=0x0016, h01=0x0050, text=» SC A1,CRNCIF+1,A3«, t00=0x005b, t01=0x0008}
0x8e38…8e52 Head {h00=0x0016, h01=0x0050, text=» ST A2,CRNCIF+2,A3«, t00=0x005b, t01=0x0022}
0x8e52…8e64 Head {h00=0x000e, h01=0x0050, text=» RB CRU100«, t00=0x005b, t01=0x003c}
0x8e64…8e78 Head {h00=0x0010, h01=0x0050, text=»CRU900 EQU *«, t00=0x005b, t01=0x004e}
0x8e78…8e84 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x005b, t01=0x0062}
0x8e84…8e94 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x006e}
0x8e94…8eac Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x005b, t01=0x007e}
0x8eac…8ee8 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x005b, t01=0x0096}
0x8ee8…8ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00d2}
0x8ef2…8f3a Head {h00=0x0044, h01=0x0050, text=»* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO«, t00=0x005b, t01=0x00dc}
0x8f3a…8f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0124}
0x8f44…8f80 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x005b, t01=0x012e}
0x8f80…8f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x016a}
0x8f8a…8fa6 Head {h00=0x0018, h01=0x0050, text=»* A11= FDB ADDRESS«, t00=0x005b, t01=0x0174}
0x8fa6…8fd0 Head {h00=0x0026, h01=0x0050, text=»* FDBSNR,FDBRRO,FDBCEX «, t00=0x005b, t01=0x0190}
0x8fd0…8fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x002a}
0x8fda…9016 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x005c, t01=0x0034}
0x9016…9020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0070}
0x9020…9042 Head {h00=0x001e, h01=0x0050, text=»* A1,A2 = LOG RECORD NO «, t00=0x005c, t01=0x007a}
0x9042…906c Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 4 (WORDS)«, t00=0x005c, t01=0x009c}
0x906c…9076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00c6}
0x9076…90b2 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x005c, t01=0x00d0}
0x90b2…90bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x010c}
0x90bc…90ce Head {h00=0x000e, h01=0x0050, text=»* A6,A7 «, t00=0x005c, t01=0x0116}
0x90ce…90d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0128}
0x90d8…9116 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x005c, t01=0x0132}
0x9116…912e Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x005c, t01=0x0170}
0x912e…9142 Head {h00=0x0010, h01=0x0050, text=»GTLGRN EQU *«, t00=0x005c, t01=0x0188}
0x9142…9160 Head {h00=0x001a, h01=0x0050, text=» ST A4,-4,A14 SAVE A4 «, t00=0x005d, t01=0x000c}
0x9160…917a Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBSNR,A11 «, t00=0x005d, t01=0x002a}
0x917a…91a2 Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBSNR+2,A11 REL SECT NR «, t00=0x005d, t01=0x0044}
0x91a2…91b4 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005d, t01=0x006c}
0x91b4…91c6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x005d, t01=0x007e}
0x91c6…91dc Head {h00=0x0012, h01=0x0050, text=» CF A14,DSUMOD«, t00=0x005d, t01=0x0090}
0x91dc…91ee Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x005d, t01=0x00a6}
0x91ee…9212 Head {h00=0x0020, h01=0x0050, text=» LC A6,FDBBLZ,A11 BLOCK SIZE«, t00=0x005d, t01=0x00b8}
0x9212…9228 Head {h00=0x0012, h01=0x0050, text=» CF A14,DIVMOD«, t00=0x005d, t01=0x00dc}
0x9228…9246 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A2 BLOCKS - 1 «, t00=0x005d, t01=0x00f2}
0x9246…9250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0110}
0x9250…927c Head {h00=0x0028, h01=0x0050, text=»* CONVERT FDBRRO TO NO OF RECORDS «, t00=0x005d, t01=0x011a}
0x927c…9286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0146}
0x9286…9298 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x005d, t01=0x0150}
0x9298…92be Head {h00=0x0022, h01=0x0050, text=» LC A7,FDBBLF,A11 BLOCK FACTOR«, t00=0x005d, t01=0x0162}
0x92be…92e0 Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A1,A2=A6*A7«, t00=0x005d, t01=0x0188}
0x92e0…92fa Head {h00=0x0016, h01=0x0050, text=» LD A4,FDBRLE,A11 «, t00=0x005e, t01=0x001a}
0x92fa…931a Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 RECORD LENGTH «, t00=0x005e, t01=0x0034}
0x931a…933a Head {h00=0x001c, h01=0x0050, text=» LDK A7,0 RECORD COUNTER«, t00=0x005e, t01=0x0054}
0x933a…9364 Head {h00=0x0026, h01=0x0050, text=» LD A6,FDBRRO,A11 OFFSET IN SECTOR«, t00=0x005e, t01=0x0074}
0x9364…9376 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x005e, t01=0x009e}
0x9376…938a Head {h00=0x0010, h01=0x0050, text=»GTL150 EQU *«, t00=0x005e, t01=0x00b0}
0x938a…93aa Head {h00=0x001c, h01=0x0050, text=» ADK A7,1 RECORD COUNTER«, t00=0x005e, t01=0x00c4}
0x93aa…93bc Head {h00=0x000e, h01=0x0050, text=» SUR A6,A4«, t00=0x005e, t01=0x00e4}
0x93bc…93ea Head {h00=0x002a, h01=0x0050, text=» RB(NN) GTL150 COUNT RECORDS IN SECTOR«, t00=0x005e, t01=0x00f6}
0x93ea…93f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0124}
0x93f4…9424 Head {h00=0x002c, h01=0x0050, text=»* ADD SECT*BLOCFACT AND RECINCURRSECT «, t00=0x005e, t01=0x012e}
0x9424…942e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x015e}
0x942e…9440 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x005e, t01=0x0168}
0x9440…945e Head {h00=0x001a, h01=0x0050, text=» RF(O) GTL160 OVERFLOW«, t00=0x005e, t01=0x017a}
0x945e…9470 Head {h00=0x000e, h01=0x0050, text=» RF GTL170«, t00=0x005f, t01=0x0008}
0x9470…9484 Head {h00=0x0010, h01=0x0050, text=»GTL160 EQU *«, t00=0x005f, t01=0x001a}
0x9484…94ae Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/7FFF DELETE OVERFLOWBIT «, t00=0x005f, t01=0x002e}
0x94ae…94ca Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x005f, t01=0x0058}
0x94ca…94de Head {h00=0x0010, h01=0x0050, text=»GTL170 EQU *«, t00=0x005f, t01=0x0074}
0x94de…9502 Head {h00=0x0020, h01=0x0050, text=» LD A4,-4,A14 SAVED REGISTER«, t00=0x005f, t01=0x0088}
0x9502…9512 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005f, t01=0x00ac}
0x9512…9520 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x00bc}
0x9520…952a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00ca}
0x952a…955e Head {h00=0x0030, h01=0x0050, text=»* RECECB=MOVE RECORD NUMBER TO ECBCW1,ECBCW2«, t00=0x005f, t01=0x00d4}
0x955e…9568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0108}
0x9568…9588 Head {h00=0x001c, h01=0x0050, text=»* ENTRY: A11=FDB ADDRESS«, t00=0x005f, t01=0x0112}
0x9588…95ba Head {h00=0x002e, h01=0x0050, text=»* A4=BUFFER ADDRESS FROM SUB FNDKEY«, t00=0x005f, t01=0x0132}
0x95ba…95da Head {h00=0x001c, h01=0x0050, text=»* A9=ECB ADDRESS «, t00=0x005f, t01=0x0164}
0x95da…95e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0184}
0x95e4…960a Head {h00=0x0022, h01=0x0050, text=»* EXIT: A11,A4,A9=NOT CHANGED«, t00=0x005f, t01=0x018e}
0x960a…9632 Head {h00=0x0024, h01=0x0050, text=»* A1,A2 =USED REGISTERS«, t00=0x0060, t01=0x0024}
0x9632…965c Head {h00=0x0026, h01=0x0050, text=»* NUMBER OF A14 LEVELS = 2 (WORDS)«, t00=0x0060, t01=0x004c}
0x965c…9666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0076}
0x9666…967a Head {h00=0x0010, h01=0x0050, text=»RECECB EQU *«, t00=0x0060, t01=0x0080}
0x967a…96a0 Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBRRO,A11 RECORD ADDR «, t00=0x0060, t01=0x0094}
0x96a0…96b8 Head {h00=0x0014, h01=0x0050, text=» ADKL A2,BUFSTA «, t00=0x0060, t01=0x00ba}
0x96b8…96d4 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A4 REC ADDR «, t00=0x0060, t01=0x00d2}
0x96d4…96fc Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRLE,A11 RECORD LENGTH «, t00=0x0060, t01=0x00ee}
0x96fc…970e Head {h00=0x000e, h01=0x0050, text=» SUK A1,6 «, t00=0x0060, t01=0x0116}
0x970e…9722 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A1 «, t00=0x0060, t01=0x0128}
0x9722…972c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x013c}
0x972c…974e Head {h00=0x001e, h01=0x0050, text=»* MOVE LOG REC NO TO ECB«, t00=0x0060, t01=0x0146}
0x974e…9758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0168}
0x9758…976a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0060, t01=0x0172}
0x976a…977e Head {h00=0x0010, h01=0x0050, text=» LC A1,3,A2 «, t00=0x0060, t01=0x0184}
0x977e…9796 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A9 «, t00=0x0061, t01=0x0008}
0x9796…97aa Head {h00=0x0010, h01=0x0050, text=» LC A1,4,A2 «, t00=0x0061, t01=0x0020}
0x97aa…97bc Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0061, t01=0x0034}
0x97bc…97d0 Head {h00=0x0010, h01=0x0050, text=» LC A1,5,A2 «, t00=0x0061, t01=0x0046}
0x97d0…97ea Head {h00=0x0016, h01=0x0050, text=» ST A1,ECBCW+2,A9 «, t00=0x0061, t01=0x005a}
0x97ea…97fa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0061, t01=0x0074}
0x97fa…9806 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0084}
0x9806…980e Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0090}
0x980e…9816 Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x0098}
0x9816…981e Head {h00=0x0004, h01=0x0050, t00=0x0061, t01=0x00a0}
0x981e…982a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0061, t01=0x00a8}
0x982a…982e Head {h00=0x4004, h01=0x0000}
0x982e…9830 00 61 ┆ a┆
0x9830…9832 00 b4 ┆ ┆
0x9832…983a (98, 1, 8) 20 04 00 00 00 62 00 04 ┆ b ┆