|
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: 36462 (0x8e6e)
Notes: pts_type(SC)
Names: »SDMOCR.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/SDMOCR.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/SDMOCR.SC«
IDENT SDMOCR REL 11.0 81-05-12 870105041100 =8,CONDITION FOR CR,DE,EX =8,REL 11.0 81-04-02 =7,NO DEL OF FILE WHEN NOT OP. EXC. =7,REL 11.0 81-03-24 =6,NO EXCLUSIVE ACCESS WHEN MXIND READ =6,REL 11.0 81-03-16 =5,NO DEL OF FIL WHEN OPEN I/O EXCL. FAILS =5,REL 11.0 81-03-16 =4,STATUS INF. NOT CORRECT =4,REL 11.0 81-02-24 =3,FORMAT FIRST RECORD ALSO WHEN LRN=0 =3,REL 11.0 81-02-12 =2,FILE NBR IN WRONG REG. WHEN RFP =2,REL 11.0 81-02-04 =1,CLOSE FORMAT CHANGED =1,REL 11.0 81-01-26 **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * SDMOCR HANDLES OPEN CLOSE AND READ FILE PARAMETERS * IT IS ACTIVATED FROM SDMTSK * * * * * **************************************************** * EJECT * *************** * ENTRIES * *************** * * ENTRY SDMOPN,SDMCLO,SDMRFP ENTRY OPEFPB EJECT * ***************** * EXTERNALS * ***************** * EXTRN CLRBUF,CRNCDF,CRNCIF,CRNGET,CRNQUE EXTRN ECBRC EXTRN FDBADF,FDBBLF,FDBCRL,FDBECB,FDBKA,FDBLRN EXTRN FDBMEC,FDBMIA,FDBNIF,FDBRLE,FDBSTA,FDBEXC EXTRN FDBENL EXTRN FNDFDB EXTRN FWTFNR,FWTPAR,FWTVOL EXTRN MOV:SU,MOV:US EXTRN MPYMOD,MXIND EXTRN DIVMOD EXTRN FDBDBR,FDBMRO,FDBDMI,FDBBLZ EXTRN FDBOMD EXTRN ECBFC EXTRN ECBBA EXTRN ECBEL EXTRN ECBRL EXTRN DWTECB EXTRN DWTOR EXTRN DWTTAB,DWTOPT EXTRN FPB:RL,FPB:BF,FPB:FO,FPB:BO,FPB:FN EXTRN FPB:V1,FPB:S1,FPB:V2,FPB:MN,FPB:EL EXTRN FPB:FR,FPB:US,FPB:SH,FPB:KA EXTRN CASZEN,COSZEN EXTRN GTBKBU,FRMFIL,FMIOCR,FMIODL EJECT EXTRN CRNSTA,DFTAB,DMTIDP EXTRN SDMERX EXTRN MOVFW EXTRN EARELB EXTRN TASHLT EXTRN FDBEAL EXTRN RECBFZ,REQERR EXTRN MOVBW EXTRN FMIOOP,FMIOCL,FMIORF,FMIOWR EXTRN SDMOIE,SDMOOS EXTRN CARRBL EXTRN SDMOOR,SDMOEE EXTRN FDBRRO,FDBSNR EXTRN FORMER EXTRN ADDMOD EXTRN SDMRLB,SDMTTD EXTRN ORDFLP EXTRN ENLFAC EJECT SDMTSK ************************* * CONDITIONAL ASSEMBLY ************************** * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * * A PROGRAM VERSION FOR INDEXED ACCESS HANDLING * IS OBTAINED BY SETTING INDXAC = 1 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 =8 CRDEEX EQU X:B =8 EJECT FPBSTA EQU 0 START ADDR FPB FPB:IV EQU FPBSTA+58 VOL NAME INDEX FPB:IS EQU FPBSTA+64 INDEX SIZE FPB:NI EQU FPBSTA+68 NR OF INDEX FPB:I1 EQU FPBSTA+70 INDEX ID 1 FPB:A1 EQU FPBSTA+78 KEY ADDR 1 FPB:L1 EQU FPBSTA+80 KEY LENGTH 1 FPB:I2 EQU FPBSTA+82 FPB:L4 EQU FPBSTA+116 * FPB:FM EQU FPBSTA+6 TOSS FILE NR * FPBSIZ EQU 60 SIZE OF FPB AREA IN WORDS * FPBRES EQU 8 RESERVED FIELD LENGTH IN FILE PAR BLOCK * NOCORE EQU 1 NO CORE ERROR CODE * ERPAR EQU 4 WRONG PAR ERR CODE * OFLW EQU 3 OVERFLOW ERR CODE * ERKEYL EQU 8 LONG KEY ERR CODE * ILLNAM EQU 9 ILLEGAL NAME =4 EJECT ************************ * DATA DEFINITIONS * ************************ * HERE FOLLOWS NON-REENTRANT AREAS USED BY ORDERS : * OPEN,CLOSE,READ FILE PARAMETERS. * OPESPA DATA ' ' 2 SPACES OPEFN EQU * FILE NAME PREFIXES DATA ' ' DATA 'I1M1' DATA 'I2M2' DATA 'I3M3' DATA 'I4M4' OPEFNR EQU * OPENED FILE NRS DATA 0,0,0 OPEFCD EQU * OPENED FILE CODES DATA 0,0,0 OPEFWT EQU * FWT ADDRESSES DATA 0,0,0,0,0 OPEMXI EQU * MASTER INDEX ADDRESSES DATA 0,0,0,0,0 OPELRN DATA 0,0,0,0,0,0,0,0,0,0 LAST REC NRS EJECT OPEKAD DATA 0,0,0,0,0 KEY ADDRESSES OPEKYL DATA 0,0,0,0,0 KEY LENGTH DELAY DATA 0 NROFIX DATA 0 NR OF INDEX FILES INDVOL RES 3 VOLUME NAME INDEX FILES OPEFPB RES FPBSIZ FILE ADM PARAM. BLOCK OPEEND EQU *-OPEFNR-2 NR OF BYTES EJECT ********************************************* * R E A D F I L E P A R A M E T E R S * ********************************************* SDMRFP EQU * READ FILE PARAMETERS * * A10,A11 = FDB ADDRESS ALL ORDERS * A7 = ORDER CODE ALL ORDERS * LDR A10,A11 FBD ADDR LC A2,FDBNIF,A11 NR OF INDEX ANK A2,/FF ST A2,NROFIX * STORE FILE NRS IN OPEFNR * LDK A5,10 2 * INDEXES RFP100 EQU * SUK A5,2 RF(N) SDMO30 ALL FILES LDR A4,A11 ADR A4,A5 LD A3,FDBADF,A4 FDB ADDR RF(Z) RFP130 NO FILE LC A2,FWTFNR,A3 FILE NR RFP130 EQU * LDR A4,A5 SRL A4,1 SC A2,OPEFNR,A4 SAVE FILE NR RB RFP100 NEXT FILE EJECT *************** * O P E N * *************** SDMOPN EQU * OPEN * * A8 = ECB ADDR * A9 = LOOP COUNTER * A10,A11 = SYSTEM FDB ADDRESS * A12 = FPB ADDRESS * * A9 = LOOP COUNTER FILES * * 1 = DATA FILE * 2 = INDEX 1 * 3 = MASTER INDEX 1 * 4 = INDEX 2 * ETC * LDR A10,A11 SYSTEM FWT ADDR EJECT * * CLEAR WORK AREA * LDK A2,OPEEND NR OF BYTE TO CLEAR SDMO10 EQU * CM OPEFNR,A2 SUK A2,2 RB(NN) SDMO10 NO MORE WORDS TO CLEAR * * MOVE IN PARAMETER BLOCK * LD A1,DWTECB,A11 USER ECB ADDRESS LD A1,ECBBA,A1 FD ADDR USER ADK A1,FPBRES RESERVED FIELDS LDR A2,A12 FPB ADDR LDK A3,FPB:L4+1 MAX SIGN LENGTH IFT MMUPAG=1 LD A4,DWTTAB,A11 USER TTAB ADDR CF A14,MOV:US XIF IFT MMUPAG=0 CF A14,MOVFW XIF IFT INDXAC=1 EJECT * * SAVE VOLUME NAME INDEX FILES * LDR A1,A12 FPB ADDR ADKL A1,FPB:IV FROM ADDR LDKL A2,INDVOL TO ADDR LDK A3,6 CF A14,MOVFW XIF LC A5,FPB:BO,A12 TOSS OPTIONS ANK A5,2 SLL A5,14 ST A5,DELAY IFT INDXAC=1 LC A5,FPB:FO,A12 ANK A5,/FF RF(Z) SDMO30 STANDARD FILE LC A5,DWTOR+1,A11 ORDER CODE SUKL A5,SDMOEE ABL(NN) OERQER OUTPUT SEQ.,RAND.,EXT. NOT ALLOWED LD A5,DWTECB,A11 USER ECB ADDR LD A5,ECBRL,A5 REQ LGTH SUK A5,FPB:NI+FPBRES ABL(NP) OERQER INDEX NOT DEFINED LC A5,FPB:NI,A12 NR OF INDEXES SC A5,NROFIX+1 EJECT * * SAVE BASE ADDRESSES FOR INDEXES * LDK A2,FPB:A1 ADR A2,A12 ADDR FIRST KEY ADDR ANK A5,/F LDK A3,2 OFFSET INDEX 1 SDMO20 EQU * SUK A5,1 RF(N) SDMO30 ALL INDEXES LDK A1,0 LC A1,-1,A2 NR OF KEY ITEMS SUK A1,1 ABL(NZ) OESWP4 ERR LC A1,2,A2 KEY LENGTH ST A1,OPEKYL,A3 LDR* A1,A2 KEY OFFSET ST A1,OPEKAD,A3 ADK A2,FPB:I2-FPB:I1 ADK A3,2 RB SDMO20 XIF SDMO30 EQU * LDKL A9,1 INDICATE DATA FILE EJECT ************************************* * F I L E L O O P E N T R Y * ************************************* * * O P E N O R C R E A T E F I L E W I T H F M * OPLENT EQU * ST A12,ECBBA,A8 FPB ADDR LC A5,FPB:BO,A12 ANK A5,1 SC A5,FPB:BO,A12 ONLY BASIC ALLOWED LDK A5,0 SC A5,FPB:SH,A12 NOT EXCLUSIVE CWK A11,FDBSTA RF(NE) OPL130 READ FILE PAR ORDER IFT CRDEEX=1 =8 * * IF OPEN OUTPUT RANDOM OR * OPEN OUTPUT SEQUENTIAL * THEN CREATE FILE * LC A5,DWTOR+1,A11 SUKL A5,SDMOOS RF(N) OPL120 NO CREATION OF FILE EJECT * * C R E A T E F I L E * CF A14,CASZEN CALCULATE SIZES * * BUILD PART OF FPB SPECIAL FOR CREATE * LDK A1,'S' FILE TYPE SC A1,FPB:FO,A12 LDKL A1,FPB:MN ADR A1,A12 POINTER IN FPB LDK A2,11 NUMBER OF BYTES TO RESET LDK A3,0 OPL110 EQU * SCR A3,A1 RESET BYTE ADK A1,1 UPDATE POINTER SUK A2,1 RB(P) OPL110 NEXT CHARACTER LDKL A3,' ' STR A3,A1 RETENTION PERIOD SC A3,2,A1 CF A14,FMIOCR CREATE FILE RF(NZ) OERCA1 ERROR RF OPL125 XIF =8 EJECT * * O P E N F I L E * OPL120 EQU * CF A14,FMIOOP OPEN RF(NZ) OERCA1 ERR * * SAVE FILE NR * OPL125 EQU * LDR A1,A9 LOOP INDEX SRL A1,1 LDR* A2,A8 SC A2,OPEFNR,A1 OPENED FILE NRS OPL130 EQU * * * GET FWT ADDR IN A10 * ANK A2,/FF LDKL A10,FDBSTA SYST FDB ADDR LDR A3,A2 FILE NR OPL140 EQU * RF(Z) OPL150 END COUNT LDR* A10,A10 NEXT FDB ANKL A10,/FFFE USE BIT SUK A3,1 RB OPL140 EJECT * * R E A D F I L E P A R A M E T E R S * OPL150 EQU * FWT ADDR IN A11 LDK A6,0 DEFAULT ENLARGE FACTOR LC A3,DWTOR+1,A11 INTERN ORDER CODE SUKL A3,SDMOEE RF(N) OPL155 NO ENLARGE DECLARED LD A6,FPB:EL,A12 ENLARGE FACTOR OPL155 EQU * STR A2,A8 FILE NR CF A14,FMIORF READ FILE PARAMETERS (A11=SYSFDB) ST A6,FPB:EL,A12 SET ENLARGE FACTOR LD A2,DWTECB,A11 USER ECB ADDRESS ORS A1,ECBRC,A2 RET CODE XRR A10,A11 XRR A11,A10 XRR A10,A11 EJECT * * A10 = SYSTEM FDB ADDRESS * A11 = CURRENT FDB ADDRESS * IFT INDXAC=1 CWK A9,1 RF(NE) OPL160 INDEX FILE LD A7,NROFIX NR OF INDEXES CWK A7,4 RF(G) OERQER TOO MANY INDEXES SLL A7,1 ADK A7,2 LDR A9,A7 NEW LOOPER SUR A13,A13 REL ADDR IN TABLES OF OPEN RF OPL170 OPL160 EQU * LDR A7,A9 ANK A7,/FE REL ADDR LDR A13,A7 OPL170 EQU * XIF IFT INDXAC=0 SUR A13,A13 IDICATE DATA FILE XIF CWK A10,FDBSTA ABL(NE) OPSPLT READ FILE PAR ORDER LDR A1,A1 RF(NZ) OERCOM EJECT ****************************************** * C H E C K O P E N E D F I L E * ****************************************** LDK A3,'S' 'S' CC A3,FPB:FO,A12 RF(NE) OERQER NOT STANDARD FILE LC A3,FPB:US,A12 NR OF USERS SUK A3,1 RF(Z) OPFRST FIRST OPEN LC A3,DWTOR+1,A10 LD A2,FDBEXC,A11 TTAB IF OPENED EXCLUSIVE RF(NZ) OERQER OPENED EXCLUSIVE BEFORE CC A3,FDBOMD,A11 RF(NE) OERQER THIS OPEN NOT SAME AS OLD OPEN LC A3,FDBNIF,A11 NR OF INDEX BEFORE FOR THIS FILE CW A3,NROFIX NR OF INDEXES RF(NE) OESWP4 ALW SAME INDEXES LD A2,DELAY RF(N) OPL180 2ND DELAY WANTED IN VAIN LDKL A2,/7FFF ANS A2,FDBDBR,A11 NO DELAY OPL180 EQU * ABL OPSPLT EJECT ******************* * E R R O R S * ******************* OERCA1 EQU * =4 LDR A6,A1 RETURN CODE =4 ANKL A6,/E10 MASK BITS 4,5,6 AND 11 =4 RF(Z) OERCOM NO STATUS TO SET =4 SLL A6,4 BIT 4 =4 RF(N) OESIN9 ILLEGAL NAME =4 SLL A6,1 BIT 5 =4 RF(N) OESNC1 NO CORE =4 OESOF3 EQU * =4 LDK A6,OFLW OVERFLOW =4 RF OESCOM =4 OESIN9 EQU * =4 LDK A6,ILLNAM ILLEGAL NAME =4 RF OESCOM =4 OESNC1 EQU * =4 LDK A6,NOCORE CORE EXHAUSTED =4 RF OESCOM =4 OESWP4 EQU * =4 LDK A6,ERPAR WRONG PARAMETER =4 RF OESCOM =4 OESLK8 EQU * =4 LDK A6,ERKEYL LONG KEY =4 OESCOM EQU * =4 LDR A11,A10 MAIN FDB ADDRESS =4 CF A14,CRNGET GET CURRENCY BUFFER =4 SC A6,CRNSTA,A2 SET STATUS =4 LDKL A1,/8080 SET RETURN CODE =4 RF OERCOM =4 OERQER EQU * =4 LDKL A1,/8000 RC REQUEST ERROR =4 OERCOM EQU * =4 LDR A11,A10 MAIN FDB ADDRESS =4 LD A9,DWTECB,A11 USER ECB ADDRESS =4 ORS A1,ECBRC,A9 SET RETURN CODE =4 ABL CLOCOM CLOSE EVENTUALLY FILES =4 EJECT *************************** * F I R S T O P E N * *************************** * * CLEAR FDB * OPFRST EQU * LDKL A2,FDBMEC SUKL A2,FDBECB LENGTH OPF100 EQU * SUK A2,2 RF(N) OPF110 OK LDR A7,A11 ADR A7,A2 CM FDBECB,A7 RB OPF100 EJECT * * BUILD FWT FDB PART * OPF110 EQU * LD A2,DELAY ST A2,FDBDBR,A11 SET DELAY FOR NEW FILE LD A3,FPB:RL,A12 ST A3,FDBRLE,A11 RECORD LENGTH LC A3,FPB:BF,A12 SC A3,FDBBLF,A11 BLOCK FACTOR LD A3,NROFIX NR OF INDEXES SC A3,FDBNIF,A11 NR OF INDEX FILES LC A3,FPB:FR+1,A12 SC A3,FDBLRN,A11 LD A3,FPB:FR+2,A12 ST A3,FDBLRN+1,A11 LAST REC NR CM FDBSNR,A11 LDK A3,1 ST A3,FDBSNR+2,A11 RESET SECTOR NUMBER LD A3,OPEMXI,A13 ST A3,FDBMIA,A11 MASTER INDEX ADDR RF(Z) OPF120 NO MASTER INDEX LD A3,FPB:KA,A12 CW A3,OPEKAD,A13 RB(NE) OESWP4 WRONG KEY ST A3,FDBKA,A11 KEY ADDR OPF120 EQU * LC A3,FPB:BO,A12 SLL A3,8 ORS A3,FDBDBR,A11 BASIC + OPTION EJECT * * CALCULATE SDMTSK ID * LC A3,FWTVOL,A11 FIRST EXTENT VOLUME FC LDKL A6,-1 OPF140 EQU * ADK A6,1 CC A3,DFTAB,A6 RB(NE) OPF140 NOT THIS DISC LC A3,DMTIDP,A6 REL DM TASK ID SC A3,FDBDMI,A11 MAIN SDMTSK ID * * CALCULATE MAX FDBRRO AND BLOCKSIZE IN SECTORS * CF A14,CARRBL RB(G) OESWP4 TOO LARGE BLOCK SIZE ST A1,FDBMRO,A11 MAX FDBRRO SC A2,FDBBLZ,A11 BLOCK SIZE IN SECTORS ST A11,FDBADF,A11 IFT CRDEEX=1 =8 * * CALCULATE ENLARGE FACTOR * LDR A4,A2 BLOCK SIZE IN SECTORS CF A14,ENLFAC RB(O) OESOF3 OVERFLOW ST A3,FDBENL,A11 SAVE ENLARGE FACTOR XIF =8 EJECT * * SET OPEN MODE * LDK A1,0 DEFAULT VALUE LD A3,DWTOR,A10 SC A3,FDBOMD,A11 OPEN MODE LDR A2,A3 SLL A2,6 RF(NN) OPF150 EXCLUSIVE ACCESS NOT WANTED LD A1,DWTTAB,A10 TTAB ADDRESS OPF150 EQU * ST A1,FDBEXC,A11 SET EXCLUSIVE ACCESS USER IFT CRDEEX=1 =8 ANK A3,/FF CWK A3,SDMOOR RF(NE) OPSPLT NOT OUTPUT RANDOM,DON'T FORMAT * * FORMAT FILE IF OPEN OUTPUT RANDOM * CF A14,GTBKBU GET BLOCK BUFFER LDR A4,A5 BUFFER ADDRESS CF A14,FRMFIL FORMAT FILE RB(NZ) OERCOM ERROR WHEN FORMATTING XIF =8 EJECT *********************************************************************** * D A T A , I N D E X O R M A S T E R I N D E X F I L E * *********************************************************************** OPSPLT EQU * ST A11,OPEFWT,A13 SAVE FWT ADDR IFT INDXAC=1 LDR A13,A13 ABL(Z) OPDATA DATA FILE LDR A3,A9 ANK A3,/1 ABL(Z) OPINDX INDEX FILE EJECT ******************************* * M A S T E R I N D E X * ******************************* OPMRIX EQU * CWK A10,FDBSTA ABL(NE) OPCHEK ORDER READ FILE PAR LD* A3,DWTECB,A10 FILE CODE ANK A3,/FF ST A3,SDMTTD,A14 FC ENTRY IN TTAB SDMTSK ST A11,SDMTTD+2,A14 STR A3,A8 LDK A2,0 SC A2,FDBDBR,A11 NO SPECIAL FUNCTIONS ALLOWED SC A2,FDBBLZ+1,A11 NO COMMIT CHECK LDK A2,1 SC A2,FDBDMI,A11 LET SDMTSK 1 READ MASTER INDEX EJECT * * CALC NO OF WORDS NEEDED IN MASTER INDEX * LD A6,FPB:RL,A12 REC LGTH LDR A1,A6 SUK A1,3 KEY LENGTH CW A1,OPEKYL,A13 REQUESTED ABL(NE) OESWP4 ERR LD A7,FPB:FR+2,A12 NO OF RECS CF A14,MPYMOD A1,A2=NO OF BYTES NEEDED SRC A1,1 ORR A2,A1 GET MOST SIGN BIT ADK A2,5 SRL A2,1 NO OF WORDS NEEDED RF(Z) OPM140 WRONG SIZE LD A4,MXIND LENGTH MXIND SUK A4,4 MAX A5 VALUE LDKL A5,-2 OFFSET OPM100 EQU * ADK A5,4 GET ENTRY CWR A5,A4 RF(G) OPM140 NO ENTRY FOUND LD A3,MXIND,A5 RB(Z) OPM100 ZERO ENTRY LD A6,MXIND+2,A5 RB(N) OPM100 ENTRY USED SUR A6,A2 NO OF SPARE WORDS RB(N) OPM100 LARGER ENTRY NEEDED EJECT * * SUFFICIENT SPACE FOUND * LDKL A1,/8000 USED BIT ORS A1,MXIND+2,A5 MARK ENTRY USED LDR A7,A9 ANK A7,/0E ST A3,OPEMXI,A7 MASTER INDEX ADDR LD A7,FPB:FR+2,A12 STR A7,A3 NO OF ENTRIES LD A1,FPB:RL,A12 ST A1,2,A3 ENTRY LENGTH ADK A3,4 SKIP MX HEADRER ST A3,ECBBA,A8 BUFFER ADDR ST A1,ECBRL,A8 REQ LGTH LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION CWR A1,A4 MXIND ENTRY RF(NL) OPM110 LAST ENTRY LD A3,MXIND+6,A1 RF(N) OPM110 NEXT ENTRY USED EJECT * * MOVE SPARE WORDS TO NEXT ENTRY * LD A2,MXIND+2,A1 ANKL A2,/7FFF REMOVE USE BIT SUR A2,A6 ORKL A2,/8000 USE BIT ST A2,MXIND+2,A1 ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER LD A7,MXIND,A1 PREVIOUS POINTER SLL A2,1 NO OF BYTES ADR A7,A2 ST A7,MXIND+4,A1 EJECT * * R E A D M A S T E R I N D E X * OPM110 EQU * * * DATA MANAGEMENT REQUEST: * GET MASTER INDEX WITH READ SEQUENTIAL * LD A2,FDBEXC,A11 EXCLUSIVE TTAB =6 CM FDBEXC,A11 INDICATE NO EXCLUSIVE ACCESS =6 LDK A7,/82 READ SEQUENTIAL LKM DATA 1 ST A2,FDBEXC,A11 EXCLUSIVE ACCESS CORRECT AGAIN =6 LD A2,ECBRC,A8 ANKL A2,/FEFF BIT 7 ONLY RETRIES RF(Z) OPM130 NO ERROR * * REMOVE THE ONLY CRN BUFFER * LD A5,FDBCRL,A11 CRN BUF ADR RF(Z) OPM120 NO CRN CM FDBCRL,A11 INH LD A6,CRNQUE STR A6,A5 ST A5,CRNQUE ENB OPM120 EQU * LDR A1,A2 ANKL A2,/1000 BIT 3 = EOF RF(NZ) OPM150 READY ,WHOLIE MXINDEX IS READ ABL OERCOM ERR EJECT OPM130 EQU * * * RECORD READ,READ NEXRT * LD A2,ECBRL,A8 ADS A2,ECBBA,A8 REC LENGTH RB OPM110 READ NEXT RECORD OPM140 EQU * ABL OESNC1 CORE EXHAUSTED =4 EJECT * * C O M P L E T E M A S T E R I N D E X F I L E R E A D * * CLOSE MASTER INDEX FILE * OPM150 EQU * ST A10,SDMTTD+2,A14 CLOSE FC ENTRY CM FPB:FR+2,A12 DO NOT WRITE LRN LDR A7,A9 LOOP COUNT SRL A7,1 LC A7,OPEFNR,A7 FILE NR SC A7,ECBFC,A8 ST A12,ECBBA,A8 PAR BLOCK ADDR CF A14,CLRBUF RELEASE ALL FREE BUFFERS XRR A10,A11 XRR A11,A10 XRR A10,A11 CF A14,FMIOCL CLOSE (MAIN FDB ADDRESS) XRR A10,A11 XRR A11,A10 XRR A10,A11 ADK A1,0 ABL(NZ) OERCOM ABL OPCHEK NEXT FILE EJECT *************************** * I N D E X F I L E * *************************** OPINDX EQU * INDEX FILE * * UPDATE PAR BLOCK * LD A3,OPEFWT DATA FILE FDB ADDR LC A2,FDBNIF,A3 CM FPB:NI,A12 FILLER SC A2,FPB:NI,A12 NR OF INDEX LDR A3,A9 SRL A3,1 LDR A2,A3 LDR A4,A12 LDK A5,FPB:I2-FPB:I1 SUR A4,A5 EJECT OPI100 EQU * ADR A4,A5 REL ADDR SUK A2,1 NEXT INDEX RB(NZ) OPI100 ECR A3,A3 ADK A3,1 TYPE DUPL ST A3,FPB:I1,A4 ID AND TYPE CM FPB:I1+2,A4 CM FPB:I1+4,A4 LDK A7,1 ST A7,FPB:I1+6,A4 NR OF ITEMS LD A7,FDBKA,A11 KEY OFFSET ST A7,FPB:A1,A4 KEY ADDR LD A7,FDBRLE,A11 REC LGTH SUK A7,6 CM FPB:L1,A4 FILLER SC A7,FPB:L1,A4 KEY LENGTH ADK A7,8 SRL A7,1 WORD CWK A7,RECBFZ ABL(G) OESLK8 LONG KEY EJECT * * CALCULATE INDEX SIZE * LD A1,FPB:S1,A12 LD A2,FPB:S1+2,A12 SIZE IN SECTORS LC A6,FDBBLZ,A11 BLOCK SIZE ANK A6,/FF CF A14,DIVMOD ABL(O) OESOF3 LONG FILE CM FPB:IS,A12 ST A2,FPB:IS+2,A12 SIZE IN BLOCKS * * GET INDEX VOLUME NAME * LDKL A1,FPB:V1 ADR A1,A12 FROM ADDR LDK A2,FPB:IV ADR A2,A12 TO LDK A3,6 LGTH CF A14,MOVFW MOVE RF OPCHEK XIF EJECT ************************* * D A T A F I L E * ************************* OPDATA EQU * DATA FILE * * UPDATE USER PAR BLOCK * LC A2,FDBNIF,A11 ANK A2,/FF RF(Z) OPD100 NO INDEX LDK A2,1 OPD100 EQU * SC A2,FPB:FO,A12 FILE ORG LDK A2,1 SC A2,FPB:FO+1,A12 DEVICE TYPE LC A2,OPEFNR FILE NR SC A2,FPB:FM,A12 LD A2,FDBDBR,A11 SRL A2,14 SC A2,FPB:BO,A12 DELAY BASIC TOSS OPTIONS * * CONVERT SIZE TO NUMBER OF RECORDS AND * ENLARGE FACTOR TO PERCENTAGE * CF A14,COSZEN EJECT * * MOVE PART OF BLOCK TO USER * LDKL A3,FPB:FR SUKL A3,FPB:RL LENGTH LD A4,DWTECB,A10 USER ECB ADDR LD A1,ECBRL,A4 REQ LENGTH SUK A1,FPBRES RESERVED CWR A3,A1 RF(NG) OPD120 TAKE SHORTEST LDR A3,A1 OPD120 EQU * LDR A1,A3 ADK A1,FPBRES ST A1,ECBEL,A4 SET EFFECTIVE LENGTH LDR A1,A12 FROM ADDR LD A2,ECBBA,A4 TO ADDR ADK A2,FPBRES RESERVED FIELD IFT MMUPAG=1 LD A4,DWTTAB,A10 TTAB ADDR USER CF A14,MOV:SU XIF IFT MMUPAG=0 CF A14,MOVFW MOVE XIF * * ADJUST FILE NAME FOR INDEXES * LDR A1,A12 ADKL A1,FPB:FN FROM ADDR LDR A2,A1 ADK A2,2 TO LDK A3,6 NO OF CHAR CF A14,MOVBW MOVE EJECT ***************************************************************** * C H E C K I F A L L F I L E S A R E O P E N E D * ***************************************************************** OPCHEK EQU * NEXT FILE IFT INDXAC=1 INDEXES YES SUKL A9,1 FILE LOOP CWK A9,1 RF(NG) OPEND ALL INDEXES ARE OPENED EJECT ******************************************* * M O R E F I L E S T O O P E N * ******************************************* CWK A10,FDBSTA RF(NE) OPN120 READ FILE PAR ORDER OPNEXT EQU * * * SKIP MASTER INDEX AT SECONDARY OPEN * LD A1,OPEFWT DATA FILE LC A1,FWTPAR,A1 ANK A1,/3E NR OF OPEN BEYOND 1 RF(Z) OPN100 FIRST ANKL A9,/E NO MASTER INDEX OPN100 EQU * * * NEXT FILE NAME LDR A7,A9 SLL A7,1 WORD ADDR LD A1,OPEFN,A7 FIRST 2 CHAR IN FILE NAME ST A1,FPB:FN,A12 FILE NAME * * FETCH VOLUME NAME FOR INDEXES * LDKL A1,INDVOL FROM ADDR LDR A2,A12 ADKL A2,FPB:V1 TO ADDR LDK A3,6 CF A14,MOVFW MOVE VOLUME NAME EJECT * * MOVE SPACES TO OTHER VOLUME NAMES * LDK A6,30 NR OF VOLUME NAMES * 10 OPN110 EQU * SUK A6,10 RF(N) OPN130 ALL LDKL A1,OPESPA FROM ADDR LDR A2,A12 ADKL A2,FPB:V2 ADR A2,A6 TO ADDR LDK A3,6 NR OF CHAR CF A14,MOVFW RB OPN110 OPN120 EQU * GET FILE NR FOR READ FILE PAR LDR A7,A9 SRL A7,1 LC A2,OPEFNR,A7 GET FILE NUMBER =2 OPN130 EQU * CM DELAY NO DELAY FOR INDEXES CM NROFIX NO INDEX FOR NEXT FILE LDR A11,A10 SYSTEM FDB ADDRESS ABL OPLENT XIF EJECT *********************************************** * A L L F I L E S A R E O P E N E D * *********************************************** OPEND EQU * FINISH LD A11,OPEFWT FDB ADDR DATA FILE CWK A10,FDBSTA RF(NE) OPE140 READ FILE PAR ORDER * * STORE FDB ADDRESSES IN ALL FDB'S * LDK A5,10 NR OF FILES * 2 OPE100 EQU * SUK A5,2 RF(N) OPE110 ALL FDB UPPDATED LD A2,OPEFWT,A5 FDB ADDR INDEX RB(Z) OPE100 NO INDEX FILE LDKL A1,OPEFWT FROM ADDR ADKL A2,FDBADF TO ADDR LDK A3,10 NO OF BYTES CF A14,MOVFW MOVE 5 WORDS RB OPE100 OPE110 EQU * * * CONNECT FILE CODE OF DATA FILE * LD* A2,DWTECB,A10 FILE CODE ANK A2,/FF SC A2,OPEFCD SAVE LDK A5,0 TTAB AND CDTAB LD A1,DWTTAB,A10 USER TTAB ADDR CF A14,FNDFDB A4=TTAB/SCTCDT ENTRY ADDRESS ST A11,2,A4 FWT ADDR EJECT * * REMOVE CURRENCY BUFFER * XRR A10,A11 XRR A11,A10 XRR A10,A11 CF A14,CRNGET ADDR IN A2 XRR A10,A11 XRR A11,A10 XRR A10,A11 LDR A3,A10 ADKL A3,FDBCRL ROOT INH OPE120 EQU * LDR A1,A3 LDR* A3,A3 NEXT BUFFER CWR A3,A2 RB(NE) OPE120 NEXT BUFFER LDR* A4,A3 NEXT STR A4,A1 LD A3,CRNQUE STR A3,A2 ST A2,CRNQUE ENB EJECT OPE140 EQU * * * CHECK USER SIZE AND UPDATE PARAMETER BLOCK * LDK A1,FPB:IV LC A3,FDBNIF,A11 NR OF INDEX ANK A3,/F IFT INDXAC=1 RF(Z) OPE150 LDR A4,A3 SLL A3,3 SLL A4,2 ADR A3,A4 MULT WITH 12 ADK A3,FPB:I1 SUR A3,A1 MAX NR OF REM CHAR OPE150 EQU * XIF ADR A1,A12 FROM ADDR LD A6,DWTECB,A10 USER ECB LD A2,ECBRL,A6 TOT LENGTH SUK A2,FPB:IV+FPBRES CWR A3,A2 REM LGTH RF(NG) OPE160 TAKE SHORTEST LDR A3,A2 EJECT OPE160 EQU * LDR A2,A3 ADK A2,FPB:IV+FPBRES ST A2,ECBEL,A6 SET EFFECTIVE LENGTH LD A2,ECBBA,A6 ADK A2,FPB:IV+FPBRES TO ADDER IFT MMUPAG=0 CF A14,MOVFW MOVE XIF IFT MMUPAG=1 LD A4,DWTTAB,A10 USER TTAB ADDR CF A14,MOV:SU XIF EJECT * **************** * OPEN END * **************** * LDR A11,A10 MAIN FDB ADDRESS LDK A1,0 RET CODE ABL SDMERX TENDIO+EXIT IN SDMTSK EJECT ***************** * C L O S E * ***************** SDMCLO EQU * CLOSE * * (A4= BLOCK BUFFER ADDRESS ) * (A5 = BLOCK BUFFER DATA ADDRESS ) * A11= FDB ADDRESS ALL ORDERS * A7 = ORDER CODE ALL ORDERS * (A8 = FDBECB ADDRESS ) * (A9 = USER ECB ADDRESS ) * LD A9,DWTECB,A11 USER ECB ADDRESS LD A3,FDBDBR,A11 RF(NN) SDMC10 NO DELAY CF A14,FMIOWR WRITE ORS A1,ECBRC,A9 SET RETURN CODE SDMC10 EQU * IFT CRDEEX=1 =8 LC A3,DWTOPT,A11 ANK A3,2 RF(NZ) SDMC20 CLOSE DISCARD EJECT * * CLOSE LOCK * LC A3,FDBOMD,A11 OPEN MODE CWK A3,SDMOOR RF(E) SDMC20 DON'T FORMAT,OUTPUT RANDOM CWK A3,SDMOEE RF(L) SDMC20 DON'T FORMAT,NOT EXTEND OR SEQ. * * FORMAT FILE IF OPENED OUTPUT SEQUENTIAL OR EXTEND * LDR A4,A5 BLOCK BUFFER DATA ADDRESS LD A3,FDBRRO,A11 RECORD OFFSET IN BLOCK =1 LD A1,FDBBLZ,A11 SLL A1,8 BLOCK SIZE IN BYTES LD A5,FDBLRN+1,A11 =3 RF(NZ) SDMC12 FILE NOT EMPTY =3 LC A5,FDBLRN,A11 =3 ADK A5,0 SET CR =3 RF(Z) SDMC16 FILE EMPTY =3 SDMC12 EQU * =3 AD A3,FDBRLE,A11 RECORD LENGTH =1 ADK A3,1 OFFSET TO LRN + 1 =1 SUR A1,A3 LENGTH LEFT IN BUFFER =1 SDMC16 EQU * =3 ADR A3,A4 RECORD POINTER LRN+1 =1 CF A14,FORMER BUILD FORMATTED BUFFER =1 CF A14,FMIOWR WRITE BLOCK BUFFER LDR A2,A1 RETURN CODE SLL A2,2 RF(N) SDMC20 END OF FILE ORS A1,ECBRC,A9 SET RETURN CODE LD A1,FDBSNR,A11 SECTOR NUMBER LD A2,FDBSNR+2,A11 LDK A6,0 LD A7,FDBBLZ,A11 BLOCK SIZE IN SECTORS CF A14,ADDMOD GET NEXT SECTOR ST A1,FDBSNR,A11 ST A2,FDBSNR+2,A11 CF A14,FRMFIL FORMAT REST OF FILE ORS A1,ECBRC,A9 SET RETURN CODE RF SDMC30 SDMC20 EQU * XIF =8 LD A4,FDBEXC,A11 EXCLUSIVE ACCESS INDICATOR =7 RF(NZ) SDMC25 OPENED EXCLUSIVE =7 SC A4,DWTOPT,A11 INDICATE CLOSE LOCK =7 SDMC25 EQU * =7 CF A14,SDMRLB RELEASE BLOCK BUFFER SDMC30 EQU * * * CLEAR CURRENCY * CF A14,CRNGET GET CURRENCY BUFFER LDK A1,0 SC A1,CRNSTA,A2 STATUS CM CRNCDF,A2 CM CRNCDF+2,A2 IFT INDXAC=1 CM CRNCIF,A2 CM CRNCIF+2,A2 XIF EJECT * * BUILD CLOSE TABLES * LC A7,ECBFC,A9 FILE CODE LDK A5,10 2 * FILES SDMC40 EQU * SUK A5,2 RF(N) SDMC60 ALL FILES LDR A4,A11 ADR A4,A5 LDK A1,0 LDK A2,0 LDK A6,0 SUR A9,A9 SUR A10,A10 LD A3,FDBADF,A4 FDB ADDR RF(Z) SDMC50 NO FILE LD A6,FDBMIA,A3 MASTER INDEX ADDR LC A2,FWTFNR,A3 FILE NR LC A9,FDBLRN,A3 LAST REC NR LD A10,FDBLRN+1,A3 SDMC50 EQU * ST A6,OPEMXI,A5 ST A3,OPEFWT,A5 LDR A4,A5 SRL A4,1 SC A2,OPEFNR,A4 FILE NR SC A1,OPEFCD,A4 FILE CODE SLL A4,2 ST A9,OPELRN,A4 LAST REC NR ST A10,OPELRN+2,A4 RB SDMC40 NEXT FILE EJECT SDMC60 EQU * SC A7,OPEFCD FILE CODE * * A11=MAIN FDB ADDRESS * CLOCOM EQU * RECOVERY AT ERRORS LC A2,DWTOR+1,A11 ORDER CODE INTERNAL CWK A2,ORDFLP ABL(E) SDMERX READ FILE PARAMETERS * * FREE FILE CODES,MASTER INDEXES,FILES, CURRENCY * LDKL A9,5 OPEE10 EQU * SUKL A9,1 RF(NN) OPEE20 MORE FILES EJECT * ***************** * CLOSE END * ***************** * LDK A1,0 RET CODE ABL SDMERX EJECT * * RESET FILE CODE* * OPEE20 EQU * LC A2,OPEFCD,A9 FILE CODE ANK A2,/FF RF(Z) OPEE25 NO CODE LDK A5,0 TTAB AND CDTAB LD A1,DWTTAB,A11 USER TTAB ADDR CF A14,FNDFDB LDR A2,A2 RET CD RF(Z) OPEE25 NO ENTRY LDKL A7,FDBSTA SYSTEM FDB ADDRESS ST A7,2,A4 SYSTEM FWT ADDR OPEE25 EQU * EJECT * * RELEASE EA+CRN BUFFERS * LDR A7,A9 SLL A7,1 WORDS LDR A13,A11 SAVE FDB ADDRESS LD A11,OPEFWT,A7 FDB ADDR RF(Z) CLODEL NO FDB LDKL A1,/C000 LDK A3,0 CF A14,EARELB REL PROTECT BUFFERS ENB LC A5,FWTPAR,A11 ANK A5,/3F NR OF USERS SUK A5,1 RF(NZ) CLODEL MORE THAN ONE OPEN LD A5,FDBEAL,A11 PRO LINK ABL(NZ) TASHLT DM ERR EJECT * * RELEASE CURRENCY BUFFERS * LDKL A5,FDBCRL ADR A5,A11 LINK ROOT LDR* A4,A5 CMR A5 CLEAR FDB RF RCRN20 RCRN10 EQU * LDR A4,A5 BUFFER ADDRESS RCRN20 EQU * RF(Z) RMIX10 ALL BUFFER S REMOVED LDR* A5,A4 NEXT BUFFER ADDRESS * * RETURN BUFFER TO POOL * INH LD A3,CRNQUE STR A3,A4 ST A4,CRNQUE ENB RB RCRN10 EJECT RMIX10 EQU * IFT INDXAC=1 * * RELEASE MASTER INDEX * LD A1,OPEMXI,A7 MASTER INDEX ADDR RF(Z) CLODEL NO MX LD A5,MXIND LENTH SUK A5,2 RMIX20 EQU * SUK A5,4 RF(Z) RMIX30 FIRST INDEX RF(N) CLODEL NO MASTER INDEX CW A1,MXIND+2,A5 RB(NE) RMIX20 LD A4,MXIND,A5 RF(N) RMIX30 PREVIOUS ENTRY USED LD A4,MXIND+4,A5 NO OF WORDS ANKL A4,/7FFF REMOV USE BIT ADS A4,MXIND,A5 NR OF WORDS EJECT * * MOVE UP REST OF MXIND * LDKL A1,MXIND+6 ADR A1,A5 FROM ADDR LDR A2,A1 SUK A2,4 TO ADDR LD A3,MXIND SUR A3,A5 SUK A3,2 NO OF CHAR CF A14,MOVFW MOVE RF CLODEL RMIX30 EQU * LDKL A4,/7FFF ANS A4,MXIND+4,A5 REMOVE USE BIT XIF EJECT * * CLOSE OR DELETE FILE * CLODEL EQU * LDR A7,A9 SLL A7,2 2 WORD INDEX LD A1,OPELRN,A7 LAST REC NR ST A1,FPB:FR,A12 LD A1,OPELRN+2,A7 ST A1,FPB:FR+2,A12 LC A7,OPEFNR,A9 ANK A7,/FF RF(Z) CLDL20 NO FILE OPENED ST A7,ECBFC-1,A8 FILE NR ST A12,ECBBA,A8 PAR BLOCK ADDR CF A14,CLRBUF CLEAR FREE BUFFERS LDR A11,A13 MAIN FDB ADDRESS EJECT IFT CRDEEX=1 =8 LC A7,DWTOPT,A11 ANK A7,/4F TEST MASK =5 SUK A7,2 =5 RF(Z) DELETE CLOSE DISCARD,OPEN OUT SEQ OR OPEN OUT RAN =5 XIF =8 CF A14,FMIOCL CLOSE IFT CRDEEX=1 =8 RF CLDL10 DELETE EQU * CF A14,FMIODL DELETE CLDL10 EQU * XIF =8 LD A2,DWTECB,A11 USER ECB ADDRESS ORS A1,ECBRC,A2 SEND CODE CLDL20 EQU * LDR A11,A13 MAIN FDB ADDRESS ABL OPEE10 NEXT FILE END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SDMOCR REL 11.0 81-05-12 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0062 Head {h00=0x0020, h01=0x0050, text=» =8,CONDITION FOR CR,DE,EX«, t00=0x0000, t01=0x0042}
0x0062…0082 Head {h00=0x001c, h01=0x0050, text=» =8,REL 11.0 81-04-02 «, t00=0x0000, t01=0x0066}
0x0082…00b0 Head {h00=0x002a, h01=0x0050, text=» =7,NO DEL OF FILE WHEN NOT OP. EXC.«, t00=0x0000, t01=0x0086}
0x00b0…00d0 Head {h00=0x001c, h01=0x0050, text=» =7,REL 11.0 81-03-24 «, t00=0x0000, t01=0x00b4}
0x00d0…0102 Head {h00=0x002e, h01=0x0050, text=» =6,NO EXCLUSIVE ACCESS WHEN MXIND READ «, t00=0x0000, t01=0x00d4}
0x0102…0122 Head {h00=0x001c, h01=0x0050, text=» =6,REL 11.0 81-03-16 «, t00=0x0000, t01=0x0106}
0x0122…0158 Head {h00=0x0032, h01=0x0050, text=» =5,NO DEL OF FIL WHEN OPEN I/O EXCL. FAILS «, t00=0x0000, t01=0x0126}
0x0158…0178 Head {h00=0x001c, h01=0x0050, text=» =5,REL 11.0 81-03-16 «, t00=0x0000, t01=0x015c}
0x0178…019e Head {h00=0x0022, h01=0x0050, text=» =4,STATUS INF. NOT CORRECT «, t00=0x0000, t01=0x017c}
0x019e…01be Head {h00=0x001c, h01=0x0050, text=» =4,REL 11.0 81-02-24 «, t00=0x0001, t01=0x0012}
0x01be…01f0 Head {h00=0x002e, h01=0x0050, text=» =3,FORMAT FIRST RECORD ALSO WHEN LRN=0 «, t00=0x0001, t01=0x0032}
0x01f0…0210 Head {h00=0x001c, h01=0x0050, text=» =3,REL 11.0 81-02-12 «, t00=0x0001, t01=0x0064}
0x0210…023e Head {h00=0x002a, h01=0x0050, text=» =2,FILE NBR IN WRONG REG. WHEN RFP «, t00=0x0001, t01=0x0084}
0x023e…025e Head {h00=0x001c, h01=0x0050, text=» =2,REL 11.0 81-02-04 «, t00=0x0001, t01=0x00b2}
0x025e…0280 Head {h00=0x001e, h01=0x0050, text=» =1,CLOSE FORMAT CHANGED«, t00=0x0001, t01=0x00d2}
0x0280…02a0 Head {h00=0x001c, h01=0x0050, text=» =1,REL 11.0 81-01-26 «, t00=0x0001, t01=0x00f4}
0x02a0…02dc Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x0114}
0x02dc…02e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0150}
0x02e6…030e Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0001, t01=0x015a}
0x030e…0318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0182}
0x0318…0356 Head {h00=0x003a, h01=0x0050, text=»* SDMOCR HANDLES OPEN CLOSE AND READ FILE PARAMETERS«, t00=0x0001, t01=0x018c}
0x0356…037e Head {h00=0x0024, h01=0x0050, text=»* IT IS ACTIVATED FROM SDMTSK «, t00=0x0002, t01=0x003a}
0x037e…0388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0062}
0x0388…0392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0392…039c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0076}
0x039c…03a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0080}
0x03a6…03b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008a}
0x03b0…03ec Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0002, t01=0x0094}
0x03ec…03f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d0}
0x03f6…0404 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00da}
0x0404…040e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e8}
0x040e…0426 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x00f2}
0x0426…043e Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x010a}
0x043e…0456 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x0122}
0x0456…0460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013a}
0x0460…046a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0144}
0x046a…048e Head {h00=0x0020, h01=0x0050, text=» ENTRY SDMOPN,SDMCLO,SDMRFP «, t00=0x0002, t01=0x014e}
0x048e…04a4 Head {h00=0x0012, h01=0x0050, text=» ENTRY OPEFPB «, t00=0x0002, t01=0x0172}
0x04a4…04b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0188}
0x04b2…04bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0008}
0x04bc…04d6 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0003, t01=0x0012}
0x04d6…04f0 Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x002c}
0x04f0…050a Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0003, t01=0x0046}
0x050a…0514 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0060}
0x0514…0546 Head {h00=0x002e, h01=0x0050, text=» EXTRN CLRBUF,CRNCDF,CRNCIF,CRNGET,CRNQUE «, t00=0x0003, t01=0x006a}
0x0546…055a Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRC«, t00=0x0003, t01=0x009c}
0x055a…0592 Head {h00=0x0034, h01=0x0050, text=» EXTRN FDBADF,FDBBLF,FDBCRL,FDBECB,FDBKA,FDBLRN «, t00=0x0003, t01=0x00b0}
0x0592…05ca Head {h00=0x0034, h01=0x0050, text=» EXTRN FDBMEC,FDBMIA,FDBNIF,FDBRLE,FDBSTA,FDBEXC«, t00=0x0003, t01=0x00e8}
0x05ca…05e0 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBENL «, t00=0x0003, t01=0x0120}
0x05e0…05f6 Head {h00=0x0012, h01=0x0050, text=» EXTRN FNDFDB «, t00=0x0003, t01=0x0136}
0x05f6…061a Head {h00=0x0020, h01=0x0050, text=» EXTRN FWTFNR,FWTPAR,FWTVOL «, t00=0x0003, t01=0x014c}
0x061a…0636 Head {h00=0x0018, h01=0x0050, text=» EXTRN MOV:SU,MOV:US«, t00=0x0003, t01=0x0170}
0x0636…0652 Head {h00=0x0018, h01=0x0050, text=» EXTRN MPYMOD,MXIND «, t00=0x0003, t01=0x018c}
0x0652…0668 Head {h00=0x0012, h01=0x0050, text=» EXTRN DIVMOD «, t00=0x0004, t01=0x0018}
0x0668…0692 Head {h00=0x0026, h01=0x0050, text=» EXTRN FDBDBR,FDBMRO,FDBDMI,FDBBLZ«, t00=0x0004, t01=0x002e}
0x0692…06a8 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBOMD «, t00=0x0004, t01=0x0058}
0x06a8…06bc Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBFC«, t00=0x0004, t01=0x006e}
0x06bc…06d0 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBBA«, t00=0x0004, t01=0x0082}
0x06d0…06e4 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBEL«, t00=0x0004, t01=0x0096}
0x06e4…06f8 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRL«, t00=0x0004, t01=0x00aa}
0x06f8…070e Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECB «, t00=0x0004, t01=0x00be}
0x070e…0722 Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTOR«, t00=0x0004, t01=0x00d4}
0x0722…073e Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTTAB,DWTOPT«, t00=0x0004, t01=0x00e8}
0x073e…0770 Head {h00=0x002e, h01=0x0050, text=» EXTRN FPB:RL,FPB:BF,FPB:FO,FPB:BO,FPB:FN «, t00=0x0004, t01=0x0104}
0x0770…07a2 Head {h00=0x002e, h01=0x0050, text=» EXTRN FPB:V1,FPB:S1,FPB:V2,FPB:MN,FPB:EL «, t00=0x0004, t01=0x0136}
0x07a2…07cc Head {h00=0x0026, h01=0x0050, text=» EXTRN FPB:FR,FPB:US,FPB:SH,FPB:KA«, t00=0x0004, t01=0x0168}
0x07cc…07e8 (5, 0, 400) Head {h00=0x0018, h01=0x0050, text=» EXTRN CASZEN,COSZEN«, t00=0x0005, t01=0x0004}
0x07e8…0812 Head {h00=0x0026, h01=0x0050, text=» EXTRN GTBKBU,FRMFIL,FMIOCR,FMIODL«, t00=0x0005, t01=0x0020}
0x0812…0820 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x004a}
0x0820…0842 Head {h00=0x001e, h01=0x0050, text=» EXTRN CRNSTA,DFTAB,DMTIDP«, t00=0x0005, t01=0x0058}
0x0842…0858 Head {h00=0x0012, h01=0x0050, text=» EXTRN SDMERX «, t00=0x0005, t01=0x007a}
0x0858…086c Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVFW«, t00=0x0005, t01=0x0090}
0x086c…0882 Head {h00=0x0012, h01=0x0050, text=» EXTRN EARELB «, t00=0x0005, t01=0x00a4}
0x0882…0898 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASHLT «, t00=0x0005, t01=0x00ba}
0x0898…08ae Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBEAL «, t00=0x0005, t01=0x00d0}
0x08ae…08ca Head {h00=0x0018, h01=0x0050, text=» EXTRN RECBFZ,REQERR«, t00=0x0005, t01=0x00e6}
0x08ca…08de Head {h00=0x0010, h01=0x0050, text=» EXTRN MOVBW«, t00=0x0005, t01=0x0102}
0x08de…0908 Head {h00=0x0026, h01=0x0050, text=» EXTRN FMIOOP,FMIOCL,FMIORF,FMIOWR«, t00=0x0005, t01=0x0116}
0x0908…0924 Head {h00=0x0018, h01=0x0050, text=» EXTRN SDMOIE,SDMOOS«, t00=0x0005, t01=0x0140}
0x0924…093a Head {h00=0x0012, h01=0x0050, text=» EXTRN CARRBL «, t00=0x0005, t01=0x015c}
0x093a…0956 Head {h00=0x0018, h01=0x0050, text=» EXTRN SDMOOR,SDMOEE«, t00=0x0005, t01=0x0172}
0x0956…0972 Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBRRO,FDBSNR«, t00=0x0005, t01=0x018e}
0x0972…0988 Head {h00=0x0012, h01=0x0050, text=» EXTRN FORMER «, t00=0x0006, t01=0x001a}
0x0988…099e Head {h00=0x0012, h01=0x0050, text=» EXTRN ADDMOD «, t00=0x0006, t01=0x0030}
0x099e…09ba Head {h00=0x0018, h01=0x0050, text=» EXTRN SDMRLB,SDMTTD«, t00=0x0006, t01=0x0046}
0x09ba…09d0 Head {h00=0x0012, h01=0x0050, text=» EXTRN ORDFLP «, t00=0x0006, t01=0x0062}
0x09d0…09e6 Head {h00=0x0012, h01=0x0050, text=» EXTRN ENLFAC «, t00=0x0006, t01=0x0078}
0x09e6…09fe Head {h00=0x0014, h01=0x0050, text=» EJECT SDMTSK «, t00=0x0006, t01=0x008e}
0x09fe…0a20 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0006, t01=0x00a6}
0x0a20…0a40 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0006, t01=0x00c8}
0x0a40…0a62 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0006, t01=0x00e8}
0x0a62…0a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010a}
0x0a6c…0a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0114}
0x0a76…0aa8 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x011e}
0x0aa8…0ad6 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0006, t01=0x0150}
0x0ad6…0ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017e}
0x0ae0…0af4 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0006, t01=0x0188}
0x0af4…0afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000c}
0x0afe…0b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0016}
0x0b08…0b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0020}
0x0b12…0b4c Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION FOR INDEXED ACCESS HANDLING «, t00=0x0007, t01=0x002a}
0x0b4c…0b7a Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING INDXAC = 1 «, t00=0x0007, t01=0x0064}
0x0b7a…0b8c Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0007, t01=0x0092}
0x0b8c…0ba2 Head {h00=0x0012, h01=0x0050, text=»INDXAC EQU X:A«, t00=0x0007, t01=0x00a4}
0x0ba2…0bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ba}
0x0bac…0bd8 Head {h00=0x0028, h01=0x0050, text=»* A VERSION LEAVING OUT OPEN MODES: «, t00=0x0007, t01=0x00c4}
0x0bd8…0c06 Head {h00=0x002a, h01=0x0050, text=»* OPEN OUTPUT,OPEN EXTEND AND DISCARD «, t00=0x0007, t01=0x00f0}
0x0c06…0c2c Head {h00=0x0022, h01=0x0050, text=»* IS OBTAINED BY SETTING Y:C=0«, t00=0x0007, t01=0x011e}
0x0c2c…0c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0144}
0x0c36…0c4c Head {h00=0x0012, h01=0x0050, text=»X:B EQU 0 =8 «, t00=0x0007, t01=0x014e}
0x0c4c…0c66 Head {h00=0x0016, h01=0x0050, text=»CRDEEX EQU X:B =8«, t00=0x0007, t01=0x0164}
0x0c66…0c74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x017e}
0x0c74…0c98 Head {h00=0x0020, h01=0x0050, text=»FPBSTA EQU 0 START ADDR FPB «, t00=0x0007, t01=0x018c}
0x0c98…0cc4 Head {h00=0x0028, h01=0x0050, text=»FPB:IV EQU FPBSTA+58 VOL NAME INDEX «, t00=0x0008, t01=0x0020}
0x0cc4…0cec Head {h00=0x0024, h01=0x0050, text=»FPB:IS EQU FPBSTA+64 INDEX SIZE «, t00=0x0008, t01=0x004c}
0x0cec…0d14 Head {h00=0x0024, h01=0x0050, text=»FPB:NI EQU FPBSTA+68 NR OF INDEX«, t00=0x0008, t01=0x0074}
0x0d14…0d3c Head {h00=0x0024, h01=0x0050, text=»FPB:I1 EQU FPBSTA+70 INDEX ID 1 «, t00=0x0008, t01=0x009c}
0x0d3c…0d64 Head {h00=0x0024, h01=0x0050, text=»FPB:A1 EQU FPBSTA+78 KEY ADDR 1 «, t00=0x0008, t01=0x00c4}
0x0d64…0d8e Head {h00=0x0026, h01=0x0050, text=»FPB:L1 EQU FPBSTA+80 KEY LENGTH 1 «, t00=0x0008, t01=0x00ec}
0x0d8e…0daa Head {h00=0x0018, h01=0x0050, text=»FPB:I2 EQU FPBSTA+82«, t00=0x0008, t01=0x0116}
0x0daa…0dc8 Head {h00=0x001a, h01=0x0050, text=»FPB:L4 EQU FPBSTA+116 «, t00=0x0008, t01=0x0132}
0x0dc8…0dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0150}
0x0dd2…0dfa Head {h00=0x0024, h01=0x0050, text=»FPB:FM EQU FPBSTA+6 TOSS FILE NR«, t00=0x0008, t01=0x015a}
0x0dfa…0e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0182}
0x0e04…0e34 Head {h00=0x002c, h01=0x0050, text=»FPBSIZ EQU 60 SIZE OF FPB AREA IN WORDS «, t00=0x0008, t01=0x018c}
0x0e34…0e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002c}
0x0e3e…0e7a Head {h00=0x0038, h01=0x0050, text=»FPBRES EQU 8 RESERVED FIELD LENGTH IN FILE PAR BLOCK«, t00=0x0009, t01=0x0036}
0x0e7a…0e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0072}
0x0e84…0eac Head {h00=0x0024, h01=0x0050, text=»NOCORE EQU 1 NO CORE ERROR CODE «, t00=0x0009, t01=0x007c}
0x0eac…0eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a4}
0x0eb6…0edc Head {h00=0x0022, h01=0x0050, text=»ERPAR EQU 4 WRONG PAR ERR CODE«, t00=0x0009, t01=0x00ae}
0x0edc…0ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d4}
0x0ee6…0f0a Head {h00=0x0020, h01=0x0050, text=»OFLW EQU 3 OVERFLOW ERR CODE«, t00=0x0009, t01=0x00de}
0x0f0a…0f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0102}
0x0f14…0f3a Head {h00=0x0022, h01=0x0050, text=»ERKEYL EQU 8 LONG KEY ERR CODE«, t00=0x0009, t01=0x010c}
0x0f3a…0f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0132}
0x0f44…0f68 Head {h00=0x0020, h01=0x0050, text=»ILLNAM EQU 9 ILLEGAL NAME =4«, t00=0x0009, t01=0x013c}
0x0f68…0f76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0160}
0x0f76…0f96 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x016e}
0x0f96…0fb6 Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x0009, t01=0x018e}
0x0fb6…0fd6 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x001e}
0x0fd6…1014 Head {h00=0x003a, h01=0x0050, text=»* HERE FOLLOWS NON-REENTRANT AREAS USED BY ORDERS : «, t00=0x000a, t01=0x003e}
0x1014…1040 Head {h00=0x0028, h01=0x0050, text=»* OPEN,CLOSE,READ FILE PARAMETERS.«, t00=0x000a, t01=0x007c}
0x1040…104a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a8}
0x104a…106c Head {h00=0x001e, h01=0x0050, text=»OPESPA DATA ' ' 2 SPACES «, t00=0x000a, t01=0x00b2}
0x106c…1092 Head {h00=0x0022, h01=0x0050, text=»OPEFN EQU * FILE NAME PREFIXES«, t00=0x000a, t01=0x00d4}
0x1092…10a6 Head {h00=0x0010, h01=0x0050, text=» DATA ' '«, t00=0x000a, t01=0x00fa}
0x10a6…10ba Head {h00=0x0010, h01=0x0050, text=» DATA 'I1M1'«, t00=0x000a, t01=0x010e}
0x10ba…10ce Head {h00=0x0010, h01=0x0050, text=» DATA 'I2M2'«, t00=0x000a, t01=0x0122}
0x10ce…10e2 Head {h00=0x0010, h01=0x0050, text=» DATA 'I3M3'«, t00=0x000a, t01=0x0136}
0x10e2…10f6 Head {h00=0x0010, h01=0x0050, text=» DATA 'I4M4'«, t00=0x000a, t01=0x014a}
0x10f6…111a Head {h00=0x0020, h01=0x0050, text=»OPEFNR EQU * OPENED FILE NRS«, t00=0x000a, t01=0x015e}
0x111a…112e Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x000a, t01=0x0182}
0x112e…1154 Head {h00=0x0022, h01=0x0050, text=»OPEFCD EQU * OPENED FILE CODES«, t00=0x000b, t01=0x0008}
0x1154…1168 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x000b, t01=0x002e}
0x1168…118a Head {h00=0x001e, h01=0x0050, text=»OPEFWT EQU * FWT ADDRESSES«, t00=0x000b, t01=0x0042}
0x118a…11a2 Head {h00=0x0014, h01=0x0050, text=» DATA 0,0,0,0,0 «, t00=0x000b, t01=0x0064}
0x11a2…11ce Head {h00=0x0028, h01=0x0050, text=»OPEMXI EQU * MASTER INDEX ADDRESSES «, t00=0x000b, t01=0x007c}
0x11ce…11e6 Head {h00=0x0014, h01=0x0050, text=» DATA 0,0,0,0,0 «, t00=0x000b, t01=0x00a8}
0x11e6…121a Head {h00=0x0030, h01=0x0050, text=»OPELRN DATA 0,0,0,0,0,0,0,0,0,0 LAST REC NRS«, t00=0x000b, t01=0x00c0}
0x121a…1228 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x00f4}
0x1228…1254 Head {h00=0x0028, h01=0x0050, text=»OPEKAD DATA 0,0,0,0,0 KEY ADDRESSES «, t00=0x000b, t01=0x0102}
0x1254…127c Head {h00=0x0024, h01=0x0050, text=»OPEKYL DATA 0,0,0,0,0 KEY LENGTH«, t00=0x000b, t01=0x012e}
0x127c…1290 Head {h00=0x0010, h01=0x0050, text=»DELAY DATA 0«, t00=0x000b, t01=0x0156}
0x1290…12b8 Head {h00=0x0024, h01=0x0050, text=»NROFIX DATA 0 NR OF INDEX FILES «, t00=0x000b, t01=0x016a}
0x12b8…12e4 (12, 0, 400) Head {h00=0x0028, h01=0x0050, text=»INDVOL RES 3 VOLUME NAME INDEX FILES«, t00=0x000c, t01=0x0004}
0x12e4…1314 Head {h00=0x002c, h01=0x0050, text=»OPEFPB RES FPBSIZ FILE ADM PARAM. BLOCK «, t00=0x000c, t01=0x0030}
0x1314…133e Head {h00=0x0026, h01=0x0050, text=»OPEEND EQU *-OPEFNR-2 NR OF BYTES «, t00=0x000c, t01=0x0060}
0x133e…134c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x008a}
0x134c…1382 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000c, t01=0x0098}
0x1382…13b8 Head {h00=0x0032, h01=0x0050, text=»* R E A D F I L E P A R A M E T E R S * «, t00=0x000c, t01=0x00ce}
0x13b8…13ee Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000c, t01=0x0104}
0x13ee…13f6 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x013a}
0x13f6…1420 Head {h00=0x0026, h01=0x0050, text=»SDMRFP EQU * READ FILE PARAMETERS «, t00=0x000c, t01=0x0142}
0x1420…142a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016c}
0x142a…1456 Head {h00=0x0028, h01=0x0050, text=»* A10,A11 = FDB ADDRESS ALL ORDERS«, t00=0x000c, t01=0x0176}
0x1456…147c Head {h00=0x0022, h01=0x0050, text=»* A7 = ORDER CODE ALL ORDERS«, t00=0x000d, t01=0x0012}
0x147c…1486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0038}
0x1486…14a4 Head {h00=0x001a, h01=0x0050, text=» LDR A10,A11 FBD ADDR «, t00=0x000d, t01=0x0042}
0x14a4…14ca Head {h00=0x0022, h01=0x0050, text=» LC A2,FDBNIF,A11 NR OF INDEX «, t00=0x000d, t01=0x0060}
0x14ca…14de Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x000d, t01=0x0086}
0x14de…14f4 Head {h00=0x0012, h01=0x0050, text=» ST A2,NROFIX «, t00=0x000d, t01=0x009a}
0x14f4…1518 Head {h00=0x0020, h01=0x0050, text=»* STORE FILE NRS IN OPEFNR«, t00=0x000d, t01=0x00b0}
0x1518…1522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d4}
0x1522…1540 Head {h00=0x001a, h01=0x0050, text=» LDK A5,10 2 * INDEXES«, t00=0x000d, t01=0x00de}
0x1540…1554 Head {h00=0x0010, h01=0x0050, text=»RFP100 EQU *«, t00=0x000d, t01=0x00fc}
0x1554…1566 Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x000d, t01=0x0110}
0x1566…1586 Head {h00=0x001c, h01=0x0050, text=» RF(N) SDMO30 ALL FILES «, t00=0x000d, t01=0x0122}
0x1586…159a Head {h00=0x0010, h01=0x0050, text=» LDR A4,A11 «, t00=0x000d, t01=0x0142}
0x159a…15ac Head {h00=0x000e, h01=0x0050, text=» ADR A4,A5«, t00=0x000d, t01=0x0156}
0x15ac…15ce Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBADF,A4 FDB ADDR «, t00=0x000d, t01=0x0168}
0x15ce…15ec Head {h00=0x001a, h01=0x0050, text=» RF(Z) RFP130 NO FILE «, t00=0x000d, t01=0x018a}
0x15ec…160c Head {h00=0x001c, h01=0x0050, text=» LC A2,FWTFNR,A3 FILE NR«, t00=0x000e, t01=0x0018}
0x160c…1620 Head {h00=0x0010, h01=0x0050, text=»RFP130 EQU *«, t00=0x000e, t01=0x0038}
0x1620…1632 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x000e, t01=0x004c}
0x1632…1644 Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x000e, t01=0x005e}
0x1644…166a Head {h00=0x0022, h01=0x0050, text=» SC A2,OPEFNR,A4 SAVE FILE NR «, t00=0x000e, t01=0x0070}
0x166a…1686 Head {h00=0x0018, h01=0x0050, text=» RB RFP100 NEXT FILE«, t00=0x000e, t01=0x0096}
0x1686…1694 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00b2}
0x1694…16ac Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x00c0}
0x16ac…16c4 Head {h00=0x0014, h01=0x0050, text=»* O P E N * «, t00=0x000e, t01=0x00d8}
0x16c4…16dc Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x00f0}
0x16dc…16e4 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0108}
0x16e4…16fe Head {h00=0x0016, h01=0x0050, text=»SDMOPN EQU * OPEN «, t00=0x000e, t01=0x0110}
0x16fe…1708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012a}
0x1708…1722 Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x000e, t01=0x0134}
0x1722…1740 Head {h00=0x001a, h01=0x0050, text=»* A9 = LOOP COUNTER «, t00=0x000e, t01=0x014e}
0x1740…1768 Head {h00=0x0024, h01=0x0050, text=»* A10,A11 = SYSTEM FDB ADDRESS«, t00=0x000e, t01=0x016c}
0x1768…1786 (15, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* A12 = FPB ADDRESS «, t00=0x000f, t01=0x0004}
0x1786…1790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0022}
0x1790…17b4 Head {h00=0x0020, h01=0x0050, text=»* A9 = LOOP COUNTER FILES«, t00=0x000f, t01=0x002c}
0x17b4…17be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0050}
0x17be…17de Head {h00=0x001c, h01=0x0050, text=»* 1 = DATA FILE «, t00=0x000f, t01=0x005a}
0x17de…17fc Head {h00=0x001a, h01=0x0050, text=»* 2 = INDEX 1 «, t00=0x000f, t01=0x007a}
0x17fc…1820 Head {h00=0x0020, h01=0x0050, text=»* 3 = MASTER INDEX 1«, t00=0x000f, t01=0x0098}
0x1820…183e Head {h00=0x001a, h01=0x0050, text=»* 4 = INDEX 2 «, t00=0x000f, t01=0x00bc}
0x183e…1854 Head {h00=0x0012, h01=0x0050, text=»* ETC «, t00=0x000f, t01=0x00da}
0x1854…185e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f0}
0x185e…1882 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A11 SYSTEM FWT ADDR«, t00=0x000f, t01=0x00fa}
0x1882…1890 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x011e}
0x1890…189a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012c}
0x189a…18b6 Head {h00=0x0018, h01=0x0050, text=»* CLEAR WORK AREA «, t00=0x000f, t01=0x0136}
0x18b6…18c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0152}
0x18c0…18ea Head {h00=0x0026, h01=0x0050, text=» LDK A2,OPEEND NR OF BYTE TO CLEAR«, t00=0x000f, t01=0x015c}
0x18ea…18fe Head {h00=0x0010, h01=0x0050, text=»SDMO10 EQU *«, t00=0x000f, t01=0x0186}
0x18fe…1914 Head {h00=0x0012, h01=0x0050, text=» CM OPEFNR,A2 «, t00=0x0010, t01=0x000a}
0x1914…1926 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0010, t01=0x0020}
0x1926…1954 Head {h00=0x002a, h01=0x0050, text=» RB(NN) SDMO10 NO MORE WORDS TO CLEAR «, t00=0x0010, t01=0x0032}
0x1954…195e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0060}
0x195e…1982 Head {h00=0x0020, h01=0x0050, text=»* MOVE IN PARAMETER BLOCK «, t00=0x0010, t01=0x006a}
0x1982…198c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008e}
0x198c…19b6 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTECB,A11 USER ECB ADDRESS«, t00=0x0010, t01=0x0098}
0x19b6…19dc Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A1 FD ADDR USER «, t00=0x0010, t01=0x00c2}
0x19dc…1a02 Head {h00=0x0022, h01=0x0050, text=» ADK A1,FPBRES RESERVED FIELDS«, t00=0x0010, t01=0x00e8}
0x1a02…1a1e Head {h00=0x0018, h01=0x0050, text=» LDR A2,A12 FPB ADDR«, t00=0x0010, t01=0x010e}
0x1a1e…1a46 Head {h00=0x0024, h01=0x0050, text=» LDK A3,FPB:L4+1 MAX SIGN LENGTH«, t00=0x0010, t01=0x012a}
0x1a46…1a5c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x0152}
0x1a5c…1a84 Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTTAB,A11 USER TTAB ADDR«, t00=0x0010, t01=0x0168}
0x1a84…1a9a Head {h00=0x0012, h01=0x0050, text=» CF A14,MOV:US«, t00=0x0010, t01=0x0190}
0x1a9a…1aa6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0016}
0x1aa6…1abc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0011, t01=0x0022}
0x1abc…1ad2 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVFW «, t00=0x0011, t01=0x0038}
0x1ad2…1ade Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x004e}
0x1ade…1af4 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0011, t01=0x005a}
0x1af4…1b02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0070}
0x1b02…1b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007e}
0x1b0c…1b34 Head {h00=0x0024, h01=0x0050, text=»* SAVE VOLUME NAME INDEX FILES«, t00=0x0011, t01=0x0088}
0x1b34…1b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b0}
0x1b3e…1b5a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A12 FPB ADDR«, t00=0x0011, t01=0x00ba}
0x1b5a…1b7c Head {h00=0x001e, h01=0x0050, text=» ADKL A1,FPB:IV FROM ADDR «, t00=0x0011, t01=0x00d6}
0x1b7c…1b9c Head {h00=0x001c, h01=0x0050, text=» LDKL A2,INDVOL TO ADDR «, t00=0x0011, t01=0x00f8}
0x1b9c…1bae Head {h00=0x000e, h01=0x0050, text=» LDK A3,6 «, t00=0x0011, t01=0x0118}
0x1bae…1bc4 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVFW «, t00=0x0011, t01=0x012a}
0x1bc4…1bd0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0140}
0x1bd0…1bf6 Head {h00=0x0022, h01=0x0050, text=» LC A5,FPB:BO,A12 TOSS OPTIONS«, t00=0x0011, t01=0x014c}
0x1bf6…1c08 Head {h00=0x000e, h01=0x0050, text=» ANK A5,2 «, t00=0x0011, t01=0x0172}
0x1c08…1c1a Head {h00=0x000e, h01=0x0050, text=» SLL A5,14«, t00=0x0011, t01=0x0184}
0x1c1a…1c2e Head {h00=0x0010, h01=0x0050, text=» ST A5,DELAY«, t00=0x0012, t01=0x0008}
0x1c2e…1c44 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0012, t01=0x001c}
0x1c44…1c5e Head {h00=0x0016, h01=0x0050, text=» LC A5,FPB:FO,A12 «, t00=0x0012, t01=0x0032}
0x1c5e…1c72 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x0012, t01=0x004c}
0x1c72…1c96 Head {h00=0x0020, h01=0x0050, text=» RF(Z) SDMO30 STANDARD FILE «, t00=0x0012, t01=0x0060}
0x1c96…1cbc Head {h00=0x0022, h01=0x0050, text=» LC A5,DWTOR+1,A11 ORDER CODE «, t00=0x0012, t01=0x0084}
0x1cbc…1cd4 Head {h00=0x0014, h01=0x0050, text=» SUKL A5,SDMOEE «, t00=0x0012, t01=0x00aa}
0x1cd4…1d0e Head {h00=0x0036, h01=0x0050, text=» ABL(NN) OERQER OUTPUT SEQ.,RAND.,EXT. NOT ALLOWED«, t00=0x0012, t01=0x00c2}
0x1d0e…1d36 Head {h00=0x0024, h01=0x0050, text=» LD A5,DWTECB,A11 USER ECB ADDR «, t00=0x0012, t01=0x00fc}
0x1d36…1d56 Head {h00=0x001c, h01=0x0050, text=» LD A5,ECBRL,A5 REQ LGTH«, t00=0x0012, t01=0x0124}
0x1d56…1d74 Head {h00=0x001a, h01=0x0050, text=» SUK A5,FPB:NI+FPBRES «, t00=0x0012, t01=0x0144}
0x1d74…1d9e Head {h00=0x0026, h01=0x0050, text=» ABL(NP) OERQER INDEX NOT DEFINED «, t00=0x0012, t01=0x0162}
0x1d9e…1dc6 Head {h00=0x0024, h01=0x0050, text=» LC A5,FPB:NI,A12 NR OF INDEXES «, t00=0x0012, t01=0x018c}
0x1dc6…1dde Head {h00=0x0014, h01=0x0050, text=» SC A5,NROFIX+1 «, t00=0x0013, t01=0x0024}
0x1dde…1dec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x003c}
0x1dec…1df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004a}
0x1df6…1e22 Head {h00=0x0028, h01=0x0050, text=»* SAVE BASE ADDRESSES FOR INDEXES «, t00=0x0013, t01=0x0054}
0x1e22…1e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0080}
0x1e2c…1e42 Head {h00=0x0012, h01=0x0050, text=» LDK A2,FPB:A1«, t00=0x0013, t01=0x008a}
0x1e42…1e6a Head {h00=0x0024, h01=0x0050, text=» ADR A2,A12 ADDR FIRST KEY ADDR «, t00=0x0013, t01=0x00a0}
0x1e6a…1e7c Head {h00=0x000e, h01=0x0050, text=» ANK A5,/F«, t00=0x0013, t01=0x00c8}
0x1e7c…1e9c Head {h00=0x001c, h01=0x0050, text=» LDK A3,2 OFFSET INDEX 1«, t00=0x0013, t01=0x00da}
0x1e9c…1eb0 Head {h00=0x0010, h01=0x0050, text=»SDMO20 EQU *«, t00=0x0013, t01=0x00fa}
0x1eb0…1ec2 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0013, t01=0x010e}
0x1ec2…1ee4 Head {h00=0x001e, h01=0x0050, text=» RF(N) SDMO30 ALL INDEXES «, t00=0x0013, t01=0x0120}
0x1ee4…1ef6 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0013, t01=0x0142}
0x1ef6…1f1a Head {h00=0x0020, h01=0x0050, text=» LC A1,-1,A2 NR OF KEY ITEMS«, t00=0x0013, t01=0x0154}
0x1f1a…1f2c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0013, t01=0x0178}
0x1f2c…1f48 Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) OESWP4 ERR «, t00=0x0013, t01=0x018a}
0x1f48…1f66 Head {h00=0x001a, h01=0x0050, text=» LC A1,2,A2 KEY LENGTH«, t00=0x0014, t01=0x0016}
0x1f66…1f7e Head {h00=0x0014, h01=0x0050, text=» ST A1,OPEKYL,A3«, t00=0x0014, t01=0x0034}
0x1f7e…1f9c Head {h00=0x001a, h01=0x0050, text=» LDR* A1,A2 KEY OFFSET«, t00=0x0014, t01=0x004c}
0x1f9c…1fb4 Head {h00=0x0014, h01=0x0050, text=» ST A1,OPEKAD,A3«, t00=0x0014, t01=0x006a}
0x1fb4…1fd2 Head {h00=0x001a, h01=0x0050, text=» ADK A2,FPB:I2-FPB:I1 «, t00=0x0014, t01=0x0082}
0x1fd2…1fe4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0014, t01=0x00a0}
0x1fe4…1ff6 Head {h00=0x000e, h01=0x0050, text=» RB SDMO20«, t00=0x0014, t01=0x00b2}
0x1ff6…2002 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00c4}
0x2002…2016 Head {h00=0x0010, h01=0x0050, text=»SDMO30 EQU *«, t00=0x0014, t01=0x00d0}
0x2016…203c Head {h00=0x0022, h01=0x0050, text=» LDKL A9,1 INDICATE DATA FILE «, t00=0x0014, t01=0x00e4}
0x203c…204a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x010a}
0x204a…2052 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0118}
0x2052…2080 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0014, t01=0x0120}
0x2080…20ae Head {h00=0x002a, h01=0x0050, text=»* F I L E L O O P E N T R Y * «, t00=0x0014, t01=0x014e}
0x20ae…20dc Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0014, t01=0x017c}
0x20dc…20e4 Head {h00=0x0004, h01=0x0050, t00=0x0015, t01=0x001a}
0x20e4…20ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0022}
0x20ee…2132 Head {h00=0x0040, h01=0x0050, text=»* O P E N O R C R E A T E F I L E W I T H F M «, t00=0x0015, t01=0x002c}
0x2132…213c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x213c…2150 Head {h00=0x0010, h01=0x0050, text=»OPLENT EQU *«, t00=0x0015, t01=0x007a}
0x2150…2172 Head {h00=0x001e, h01=0x0050, text=» ST A12,ECBBA,A8 FPB ADDR «, t00=0x0015, t01=0x008e}
0x2172…218c Head {h00=0x0016, h01=0x0050, text=» LC A5,FPB:BO,A12 «, t00=0x0015, t01=0x00b0}
0x218c…219e Head {h00=0x000e, h01=0x0050, text=» ANK A5,1 «, t00=0x0015, t01=0x00ca}
0x219e…21ca Head {h00=0x0028, h01=0x0050, text=» SC A5,FPB:BO,A12 ONLY BASIC ALLOWED«, t00=0x0015, t01=0x00dc}
0x21ca…21dc Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0015, t01=0x0108}
0x21dc…2204 Head {h00=0x0024, h01=0x0050, text=» SC A5,FPB:SH,A12 NOT EXCLUSIVE «, t00=0x0015, t01=0x011a}
0x2204…221c Head {h00=0x0014, h01=0x0050, text=» CWK A11,FDBSTA «, t00=0x0015, t01=0x0142}
0x221c…2246 Head {h00=0x0026, h01=0x0050, text=» RF(NE) OPL130 READ FILE PAR ORDER«, t00=0x0015, t01=0x015a}
0x2246…2260 Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=1 =8 «, t00=0x0015, t01=0x0184}
0x2260…226a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000e}
0x226a…2290 Head {h00=0x0022, h01=0x0050, text=»* IF OPEN OUTPUT RANDOM OR «, t00=0x0016, t01=0x0018}
0x2290…22b6 Head {h00=0x0022, h01=0x0050, text=»* OPEN OUTPUT SEQUENTIAL «, t00=0x0016, t01=0x003e}
0x22b6…22d0 Head {h00=0x0016, h01=0x0050, text=»* THEN CREATE FILE«, t00=0x0016, t01=0x0064}
0x22d0…22da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x007e}
0x22da…22f4 Head {h00=0x0016, h01=0x0050, text=» LC A5,DWTOR+1,A11«, t00=0x0016, t01=0x0088}
0x22f4…230c Head {h00=0x0014, h01=0x0050, text=» SUKL A5,SDMOOS «, t00=0x0016, t01=0x00a2}
0x230c…2336 Head {h00=0x0026, h01=0x0050, text=» RF(N) OPL120 NO CREATION OF FILE «, t00=0x0016, t01=0x00ba}
0x2336…2344 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00e4}
0x2344…234e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f2}
0x234e…236e Head {h00=0x001c, h01=0x0050, text=»* C R E A T E F I L E «, t00=0x0016, t01=0x00fc}
0x236e…2378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x011c}
0x2378…239e Head {h00=0x0022, h01=0x0050, text=» CF A14,CASZEN CALCULATE SIZES«, t00=0x0016, t01=0x0126}
0x239e…23a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x014c}
0x23a8…23d6 Head {h00=0x002a, h01=0x0050, text=»* BUILD PART OF FPB SPECIAL FOR CREATE«, t00=0x0016, t01=0x0156}
0x23d6…23e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0184}
0x23e0…23fe Head {h00=0x001a, h01=0x0050, text=» LDK A1,'S' FILE TYPE «, t00=0x0016, t01=0x018e}
0x23fe…2418 Head {h00=0x0016, h01=0x0050, text=» SC A1,FPB:FO,A12 «, t00=0x0017, t01=0x001c}
0x2418…2430 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,FPB:MN «, t00=0x0017, t01=0x0036}
0x2430…2452 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A12 POINTER IN FPB«, t00=0x0017, t01=0x004e}
0x2452…247e Head {h00=0x0028, h01=0x0050, text=» LDK A2,11 NUMBER OF BYTES TO RESET «, t00=0x0017, t01=0x0070}
0x247e…2490 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0017, t01=0x009c}
0x2490…24a4 Head {h00=0x0010, h01=0x0050, text=»OPL110 EQU *«, t00=0x0017, t01=0x00ae}
0x24a4…24c2 Head {h00=0x001a, h01=0x0050, text=» SCR A3,A1 RESET BYTE «, t00=0x0017, t01=0x00c2}
0x24c2…24e2 Head {h00=0x001c, h01=0x0050, text=» ADK A1,1 UPDATE POINTER«, t00=0x0017, t01=0x00e0}
0x24e2…24f4 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0017, t01=0x0100}
0x24f4…2518 Head {h00=0x0020, h01=0x0050, text=» RB(P) OPL110 NEXT CHARACTER«, t00=0x0017, t01=0x0112}
0x2518…252e Head {h00=0x0012, h01=0x0050, text=» LDKL A3,' ' «, t00=0x0017, t01=0x0136}
0x252e…2552 Head {h00=0x0020, h01=0x0050, text=» STR A3,A1 RETENTION PERIOD «, t00=0x0017, t01=0x014c}
0x2552…2566 Head {h00=0x0010, h01=0x0050, text=» SC A3,2,A1 «, t00=0x0017, t01=0x0170}
0x2566…2588 Head {h00=0x001e, h01=0x0050, text=» CF A14,FMIOCR CREATE FILE«, t00=0x0017, t01=0x0184}
0x2588…25a4 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) OERCA1 ERROR«, t00=0x0018, t01=0x0016}
0x25a4…25b6 Head {h00=0x000e, h01=0x0050, text=» RF OPL125«, t00=0x0018, t01=0x0032}
0x25b6…25c8 Head {h00=0x000e, h01=0x0050, text=» XIF =8 «, t00=0x0018, t01=0x0044}
0x25c8…25d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0056}
0x25d6…25e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0064}
0x25e0…25fc Head {h00=0x0018, h01=0x0050, text=»* O P E N F I L E «, t00=0x0018, t01=0x006e}
0x25fc…2606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008a}
0x2606…261a Head {h00=0x0010, h01=0x0050, text=»OPL120 EQU *«, t00=0x0018, t01=0x0094}
0x261a…2636 Head {h00=0x0018, h01=0x0050, text=» CF A14,FMIOOP OPEN «, t00=0x0018, t01=0x00a8}
0x2636…2650 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) OERCA1 ERR«, t00=0x0018, t01=0x00c4}
0x2650…265a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00de}
0x265a…2672 Head {h00=0x0014, h01=0x0050, text=»* SAVE FILE NR«, t00=0x0018, t01=0x00e8}
0x2672…267c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0100}
0x267c…2690 Head {h00=0x0010, h01=0x0050, text=»OPL125 EQU *«, t00=0x0018, t01=0x010a}
0x2690…26ae Head {h00=0x001a, h01=0x0050, text=» LDR A1,A9 LOOP INDEX «, t00=0x0018, t01=0x011e}
0x26ae…26c0 Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0018, t01=0x013c}
0x26c0…26d4 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0018, t01=0x014e}
0x26d4…26fc Head {h00=0x0024, h01=0x0050, text=» SC A2,OPEFNR,A1 OPENED FILE NRS«, t00=0x0018, t01=0x0162}
0x26fc…2710 Head {h00=0x0010, h01=0x0050, text=»OPL130 EQU *«, t00=0x0018, t01=0x018a}
0x2710…271a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000e}
0x271a…273a Head {h00=0x001c, h01=0x0050, text=»* GET FWT ADDR IN A10 «, t00=0x0019, t01=0x0018}
0x273a…2744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0038}
0x2744…2758 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0019, t01=0x0042}
0x2758…277e Head {h00=0x0022, h01=0x0050, text=» LDKL A10,FDBSTA SYST FDB ADDR«, t00=0x0019, t01=0x0056}
0x277e…2798 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A2 FILE NR«, t00=0x0019, t01=0x007c}
0x2798…27ac Head {h00=0x0010, h01=0x0050, text=»OPL140 EQU *«, t00=0x0019, t01=0x0096}
0x27ac…27cc Head {h00=0x001c, h01=0x0050, text=» RF(Z) OPL150 END COUNT «, t00=0x0019, t01=0x00aa}
0x27cc…27ea Head {h00=0x001a, h01=0x0050, text=» LDR* A10,A10 NEXT FDB«, t00=0x0019, t01=0x00ca}
0x27ea…280a Head {h00=0x001c, h01=0x0050, text=» ANKL A10,/FFFE USE BIT «, t00=0x0019, t01=0x00e8}
0x280a…281c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0019, t01=0x0108}
0x281c…282e Head {h00=0x000e, h01=0x0050, text=» RB OPL140«, t00=0x0019, t01=0x011a}
0x282e…283c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x012c}
0x283c…2846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x013a}
0x2846…2878 Head {h00=0x002e, h01=0x0050, text=»* R E A D F I L E P A R A M E T E R S «, t00=0x0019, t01=0x0144}
0x2878…2882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0176}
0x2882…28a6 Head {h00=0x0020, h01=0x0050, text=»OPL150 EQU * FWT ADDR IN A11«, t00=0x0019, t01=0x0180}
0x28a6…28ce Head {h00=0x0024, h01=0x0050, text=» LDK A6,0 DEFAULT ENLARGE FACTOR«, t00=0x001a, t01=0x0014}
0x28ce…28fa Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTOR+1,A11 INTERN ORDER CODE«, t00=0x001a, t01=0x003c}
0x28fa…2912 Head {h00=0x0014, h01=0x0050, text=» SUKL A3,SDMOEE «, t00=0x001a, t01=0x0068}
0x2912…293c Head {h00=0x0026, h01=0x0050, text=» RF(N) OPL155 NO ENLARGE DECLARED «, t00=0x001a, t01=0x0080}
0x293c…2964 Head {h00=0x0024, h01=0x0050, text=» LD A6,FPB:EL,A12 ENLARGE FACTOR«, t00=0x001a, t01=0x00aa}
0x2964…2978 Head {h00=0x0010, h01=0x0050, text=»OPL155 EQU *«, t00=0x001a, t01=0x00d2}
0x2978…2992 Head {h00=0x0016, h01=0x0050, text=» STR A2,A8 FILE NR«, t00=0x001a, t01=0x00e6}
0x2992…29ca Head {h00=0x0034, h01=0x0050, text=» CF A14,FMIORF READ FILE PARAMETERS (A11=SYSFDB)«, t00=0x001a, t01=0x0100}
0x29ca…29f6 Head {h00=0x0028, h01=0x0050, text=» ST A6,FPB:EL,A12 SET ENLARGE FACTOR«, t00=0x001a, t01=0x0138}
0x29f6…2a20 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTECB,A11 USER ECB ADDRESS«, t00=0x001a, t01=0x0164}
0x2a20…2a42 Head {h00=0x001e, h01=0x0050, text=» ORS A1,ECBRC,A2 RET CODE «, t00=0x001a, t01=0x018e}
0x2a42…2a56 Head {h00=0x0010, h01=0x0050, text=» XRR A10,A11«, t00=0x001b, t01=0x0020}
0x2a56…2a6a Head {h00=0x0010, h01=0x0050, text=» XRR A11,A10«, t00=0x001b, t01=0x0034}
0x2a6a…2a7e Head {h00=0x0010, h01=0x0050, text=» XRR A10,A11«, t00=0x001b, t01=0x0048}
0x2a7e…2a8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x005c}
0x2a8c…2a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006a}
0x2a96…2ab8 Head {h00=0x001e, h01=0x0050, text=»* A10 = SYSTEM FDB ADDRESS«, t00=0x001b, t01=0x0074}
0x2ab8…2adc Head {h00=0x0020, h01=0x0050, text=»* A11 = CURRENT FDB ADDRESS «, t00=0x001b, t01=0x0096}
0x2adc…2ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ba}
0x2ae6…2afc Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x001b, t01=0x00c4}
0x2afc…2b0e Head {h00=0x000e, h01=0x0050, text=» CWK A9,1 «, t00=0x001b, t01=0x00da}
0x2b0e…2b30 Head {h00=0x001e, h01=0x0050, text=» RF(NE) OPL160 INDEX FILE «, t00=0x001b, t01=0x00ec}
0x2b30…2b54 Head {h00=0x0020, h01=0x0050, text=» LD A7,NROFIX NR OF INDEXES «, t00=0x001b, t01=0x010e}
0x2b54…2b66 Head {h00=0x000e, h01=0x0050, text=» CWK A7,4 «, t00=0x001b, t01=0x0132}
0x2b66…2b8c Head {h00=0x0022, h01=0x0050, text=» RF(G) OERQER TOO MANY INDEXES«, t00=0x001b, t01=0x0144}
0x2b8c…2b9e Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x001b, t01=0x016a}
0x2b9e…2bb0 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x001b, t01=0x017c}
0x2bb0…2bce Head {h00=0x001a, h01=0x0050, text=» LDR A9,A7 NEW LOOPER «, t00=0x001b, t01=0x018e}
0x2bce…2bfe Head {h00=0x002c, h01=0x0050, text=» SUR A13,A13 REL ADDR IN TABLES OF OPEN «, t00=0x001c, t01=0x001c}
0x2bfe…2c10 Head {h00=0x000e, h01=0x0050, text=» RF OPL170«, t00=0x001c, t01=0x004c}
0x2c10…2c24 Head {h00=0x0010, h01=0x0050, text=»OPL160 EQU *«, t00=0x001c, t01=0x005e}
0x2c24…2c36 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A9«, t00=0x001c, t01=0x0072}
0x2c36…2c52 Head {h00=0x0018, h01=0x0050, text=» ANK A7,/FE REL ADDR«, t00=0x001c, t01=0x0084}
0x2c52…2c66 Head {h00=0x0010, h01=0x0050, text=» LDR A13,A7 «, t00=0x001c, t01=0x00a0}
0x2c66…2c7a Head {h00=0x0010, h01=0x0050, text=»OPL170 EQU *«, t00=0x001c, t01=0x00b4}
0x2c7a…2c86 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00c8}
0x2c86…2c9c Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x001c, t01=0x00d4}
0x2c9c…2cc2 Head {h00=0x0022, h01=0x0050, text=» SUR A13,A13 IDICATE DATA FILE«, t00=0x001c, t01=0x00ea}
0x2cc2…2cce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0110}
0x2cce…2ce6 Head {h00=0x0014, h01=0x0050, text=» CWK A10,FDBSTA «, t00=0x001c, t01=0x011c}
0x2ce6…2d12 Head {h00=0x0028, h01=0x0050, text=» ABL(NE) OPSPLT READ FILE PAR ORDER «, t00=0x001c, t01=0x0134}
0x2d12…2d24 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001c, t01=0x0160}
0x2d24…2d3a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) OERCOM«, t00=0x001c, t01=0x0172}
0x2d3a…2d48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0188}
0x2d48…2d50 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0008}
0x2d50…2d82 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x001d, t01=0x0010}
0x2d82…2db4 Head {h00=0x002e, h01=0x0050, text=»* C H E C K O P E N E D F I L E *«, t00=0x001d, t01=0x0042}
0x2db4…2de6 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x001d, t01=0x0074}
0x2de6…2dee Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x00a6}
0x2dee…2e06 Head {h00=0x0014, h01=0x0050, text=» LDK A3,'S' 'S' «, t00=0x001d, t01=0x00ae}
0x2e06…2e20 Head {h00=0x0016, h01=0x0050, text=» CC A3,FPB:FO,A12 «, t00=0x001d, t01=0x00c6}
0x2e20…2e48 Head {h00=0x0024, h01=0x0050, text=» RF(NE) OERQER NOT STANDARD FILE«, t00=0x001d, t01=0x00e0}
0x2e48…2e6e Head {h00=0x0022, h01=0x0050, text=» LC A3,FPB:US,A12 NR OF USERS «, t00=0x001d, t01=0x0108}
0x2e6e…2e80 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001d, t01=0x012e}
0x2e80…2ea0 Head {h00=0x001c, h01=0x0050, text=» RF(Z) OPFRST FIRST OPEN«, t00=0x001d, t01=0x0140}
0x2ea0…2eba Head {h00=0x0016, h01=0x0050, text=» LC A3,DWTOR+1,A10«, t00=0x001d, t01=0x0160}
0x2eba…2eec Head {h00=0x002e, h01=0x0050, text=» LD A2,FDBEXC,A11 TTAB IF OPENED EXCLUSIVE«, t00=0x001d, t01=0x017a}
0x2eec…2f1a Head {h00=0x002a, h01=0x0050, text=» RF(NZ) OERQER OPENED EXCLUSIVE BEFORE«, t00=0x001e, t01=0x001c}
0x2f1a…2f34 Head {h00=0x0016, h01=0x0050, text=» CC A3,FDBOMD,A11 «, t00=0x001e, t01=0x004a}
0x2f34…2f6a Head {h00=0x0032, h01=0x0050, text=» RF(NE) OERQER THIS OPEN NOT SAME AS OLD OPEN «, t00=0x001e, t01=0x0064}
0x2f6a…2fa4 Head {h00=0x0036, h01=0x0050, text=» LC A3,FDBNIF,A11 NR OF INDEX BEFORE FOR THIS FILE«, t00=0x001e, t01=0x009a}
0x2fa4…2fc8 Head {h00=0x0020, h01=0x0050, text=» CW A3,NROFIX NR OF INDEXES «, t00=0x001e, t01=0x00d4}
0x2fc8…2ff0 Head {h00=0x0024, h01=0x0050, text=» RF(NE) OESWP4 ALW SAME INDEXES «, t00=0x001e, t01=0x00f8}
0x2ff0…3004 Head {h00=0x0010, h01=0x0050, text=» LD A2,DELAY«, t00=0x001e, t01=0x0120}
0x3004…3032 Head {h00=0x002a, h01=0x0050, text=» RF(N) OPL180 2ND DELAY WANTED IN VAIN«, t00=0x001e, t01=0x0134}
0x3032…3048 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x001e, t01=0x0162}
0x3048…306c Head {h00=0x0020, h01=0x0050, text=» ANS A2,FDBDBR,A11 NO DELAY «, t00=0x001e, t01=0x0178}
0x306c…3080 Head {h00=0x0010, h01=0x0050, text=»OPL180 EQU *«, t00=0x001f, t01=0x000c}
0x3080…3094 Head {h00=0x0010, h01=0x0050, text=» ABL OPSPLT «, t00=0x001f, t01=0x0020}
0x3094…30a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0034}
0x30a2…30aa Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0042}
0x30aa…30c6 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x001f, t01=0x004a}
0x30c6…30e2 Head {h00=0x0018, h01=0x0050, text=»* E R R O R S * «, t00=0x001f, t01=0x0066}
0x30e2…30fe Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x001f, t01=0x0082}
0x30fe…3106 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x009e}
0x3106…311e Head {h00=0x0014, h01=0x0050, text=»OERCA1 EQU * =4«, t00=0x001f, t01=0x00a6}
0x311e…3140 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 RETURN CODE =4 «, t00=0x001f, t01=0x00be}
0x3140…3170 Head {h00=0x002c, h01=0x0050, text=» ANKL A6,/E10 MASK BITS 4,5,6 AND 11 =4 «, t00=0x001f, t01=0x00e0}
0x3170…319a Head {h00=0x0026, h01=0x0050, text=» RF(Z) OERCOM NO STATUS TO SET =4 «, t00=0x001f, t01=0x0110}
0x319a…31b4 Head {h00=0x0016, h01=0x0050, text=» SLL A6,4 BIT 4 =4«, t00=0x001f, t01=0x013a}
0x31b4…31da Head {h00=0x0022, h01=0x0050, text=» RF(N) OESIN9 ILLEGAL NAME =4 «, t00=0x001f, t01=0x0154}
0x31da…31f4 Head {h00=0x0016, h01=0x0050, text=» SLL A6,1 BIT 5 =4«, t00=0x001f, t01=0x017a}
0x31f4…3214 (32, 0, 400) Head {h00=0x001c, h01=0x0050, text=» RF(N) OESNC1 NO CORE =4«, t00=0x0020, t01=0x0004}
0x3214…322c Head {h00=0x0014, h01=0x0050, text=»OESOF3 EQU * =4«, t00=0x0020, t01=0x0024}
0x322c…324c Head {h00=0x001c, h01=0x0050, text=» LDK A6,OFLW OVERFLOW =4«, t00=0x0020, t01=0x003c}
0x324c…3262 Head {h00=0x0012, h01=0x0050, text=» RF OESCOM =4«, t00=0x0020, t01=0x005c}
0x3262…327a Head {h00=0x0014, h01=0x0050, text=»OESIN9 EQU * =4«, t00=0x0020, t01=0x0072}
0x327a…32a0 Head {h00=0x0022, h01=0x0050, text=» LDK A6,ILLNAM ILLEGAL NAME =4«, t00=0x0020, t01=0x008a}
0x32a0…32b6 Head {h00=0x0012, h01=0x0050, text=» RF OESCOM =4«, t00=0x0020, t01=0x00b0}
0x32b6…32ce Head {h00=0x0014, h01=0x0050, text=»OESNC1 EQU * =4«, t00=0x0020, t01=0x00c6}
0x32ce…32f6 Head {h00=0x0024, h01=0x0050, text=» LDK A6,NOCORE CORE EXHAUSTED =4«, t00=0x0020, t01=0x00de}
0x32f6…330c Head {h00=0x0012, h01=0x0050, text=» RF OESCOM =4«, t00=0x0020, t01=0x0106}
0x330c…3324 Head {h00=0x0014, h01=0x0050, text=»OESWP4 EQU * =4«, t00=0x0020, t01=0x011c}
0x3324…334c Head {h00=0x0024, h01=0x0050, text=» LDK A6,ERPAR WRONG PARAMETER =4«, t00=0x0020, t01=0x0134}
0x334c…3362 Head {h00=0x0012, h01=0x0050, text=» RF OESCOM =4«, t00=0x0020, t01=0x015c}
0x3362…337a Head {h00=0x0014, h01=0x0050, text=»OESLK8 EQU * =4«, t00=0x0020, t01=0x0172}
0x337a…339c Head {h00=0x001e, h01=0x0050, text=» LDK A6,ERKEYL LONG KEY =4«, t00=0x0020, t01=0x018a}
0x339c…33b4 Head {h00=0x0014, h01=0x0050, text=»OESCOM EQU * =4«, t00=0x0021, t01=0x001c}
0x33b4…33dc Head {h00=0x0024, h01=0x0050, text=» LDR A11,A10 MAIN FDB ADDRESS =4«, t00=0x0021, t01=0x0034}
0x33dc…340a Head {h00=0x002a, h01=0x0050, text=» CF A14,CRNGET GET CURRENCY BUFFER =4 «, t00=0x0021, t01=0x005c}
0x340a…3430 Head {h00=0x0022, h01=0x0050, text=» SC A6,CRNSTA,A2 SET STATUS =4«, t00=0x0021, t01=0x008a}
0x3430…345a Head {h00=0x0026, h01=0x0050, text=» LDKL A1,/8080 SET RETURN CODE =4 «, t00=0x0021, t01=0x00b0}
0x345a…3470 Head {h00=0x0012, h01=0x0050, text=» RF OERCOM =4«, t00=0x0021, t01=0x00da}
0x3470…3488 Head {h00=0x0014, h01=0x0050, text=»OERQER EQU * =4«, t00=0x0021, t01=0x00f0}
0x3488…34b2 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,/8000 RC REQUEST ERROR =4«, t00=0x0021, t01=0x0108}
0x34b2…34ca Head {h00=0x0014, h01=0x0050, text=»OERCOM EQU * =4«, t00=0x0021, t01=0x0132}
0x34ca…34f2 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A10 MAIN FDB ADDRESS =4«, t00=0x0021, t01=0x014a}
0x34f2…3520 Head {h00=0x002a, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB ADDRESS =4 «, t00=0x0021, t01=0x0172}
0x3520…354c Head {h00=0x0028, h01=0x0050, text=» ORS A1,ECBRC,A9 SET RETURN CODE =4 «, t00=0x0022, t01=0x0010}
0x354c…357a Head {h00=0x002a, h01=0x0050, text=» ABL CLOCOM CLOSE EVENTUALLY FILES =4 «, t00=0x0022, t01=0x003c}
0x357a…3588 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x006a}
0x3588…3590 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0078}
0x3590…35b4 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0022, t01=0x0080}
0x35b4…35d8 Head {h00=0x0020, h01=0x0050, text=»* F I R S T O P E N * «, t00=0x0022, t01=0x00a4}
0x35d8…35fc Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0022, t01=0x00c8}
0x35fc…3604 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x00ec}
0x3604…360e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f4}
0x360e…3624 Head {h00=0x0012, h01=0x0050, text=»* CLEAR FDB «, t00=0x0022, t01=0x00fe}
0x3624…362e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0114}
0x362e…3642 Head {h00=0x0010, h01=0x0050, text=»OPFRST EQU *«, t00=0x0022, t01=0x011e}
0x3642…365a Head {h00=0x0014, h01=0x0050, text=» LDKL A2,FDBMEC «, t00=0x0022, t01=0x0132}
0x365a…3678 Head {h00=0x001a, h01=0x0050, text=» SUKL A2,FDBECB LENGTH«, t00=0x0022, t01=0x014a}
0x3678…368c Head {h00=0x0010, h01=0x0050, text=»OPF100 EQU *«, t00=0x0022, t01=0x0168}
0x368c…369e Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0022, t01=0x017c}
0x369e…36b6 Head {h00=0x0014, h01=0x0050, text=» RF(N) OPF110 OK«, t00=0x0022, t01=0x018e}
0x36b6…36ca Head {h00=0x0010, h01=0x0050, text=» LDR A7,A11 «, t00=0x0023, t01=0x0016}
0x36ca…36dc Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x0023, t01=0x002a}
0x36dc…36f2 Head {h00=0x0012, h01=0x0050, text=» CM FDBECB,A7 «, t00=0x0023, t01=0x003c}
0x36f2…3704 Head {h00=0x000e, h01=0x0050, text=» RB OPF100«, t00=0x0023, t01=0x0052}
0x3704…3712 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0064}
0x3712…371c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0072}
0x371c…373a Head {h00=0x001a, h01=0x0050, text=»* BUILD FWT FDB PART«, t00=0x0023, t01=0x007c}
0x373a…3744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009a}
0x3744…3758 Head {h00=0x0010, h01=0x0050, text=»OPF110 EQU *«, t00=0x0023, t01=0x00a4}
0x3758…376c Head {h00=0x0010, h01=0x0050, text=» LD A2,DELAY«, t00=0x0023, t01=0x00b8}
0x376c…379c Head {h00=0x002c, h01=0x0050, text=» ST A2,FDBDBR,A11 SET DELAY FOR NEW FILE«, t00=0x0023, t01=0x00cc}
0x379c…37b6 Head {h00=0x0016, h01=0x0050, text=» LD A3,FPB:RL,A12 «, t00=0x0023, t01=0x00fc}
0x37b6…37de Head {h00=0x0024, h01=0x0050, text=» ST A3,FDBRLE,A11 RECORD LENGTH «, t00=0x0023, t01=0x0116}
0x37de…37f8 Head {h00=0x0016, h01=0x0050, text=» LC A3,FPB:BF,A12 «, t00=0x0023, t01=0x013e}
0x37f8…381e Head {h00=0x0022, h01=0x0050, text=» SC A3,FDBBLF,A11 BLOCK FACTOR«, t00=0x0023, t01=0x0158}
0x381e…3842 Head {h00=0x0020, h01=0x0050, text=» LD A3,NROFIX NR OF INDEXES «, t00=0x0023, t01=0x017e}
0x3842…386e Head {h00=0x0028, h01=0x0050, text=» SC A3,FDBNIF,A11 NR OF INDEX FILES «, t00=0x0024, t01=0x0012}
0x386e…388a Head {h00=0x0018, h01=0x0050, text=» LC A3,FPB:FR+1,A12 «, t00=0x0024, t01=0x003e}
0x388a…38a4 Head {h00=0x0016, h01=0x0050, text=» SC A3,FDBLRN,A11 «, t00=0x0024, t01=0x005a}
0x38a4…38c0 Head {h00=0x0018, h01=0x0050, text=» LD A3,FPB:FR+2,A12 «, t00=0x0024, t01=0x0074}
0x38c0…38e8 Head {h00=0x0024, h01=0x0050, text=» ST A3,FDBLRN+1,A11 LAST REC NR «, t00=0x0024, t01=0x0090}
0x38e8…38fe Head {h00=0x0012, h01=0x0050, text=» CM FDBSNR,A11«, t00=0x0024, t01=0x00b8}
0x38fe…3910 Head {h00=0x000e, h01=0x0050, text=» LDK A3,1 «, t00=0x0024, t01=0x00ce}
0x3910…3940 Head {h00=0x002c, h01=0x0050, text=» ST A3,FDBSNR+2,A11 RESET SECTOR NUMBER «, t00=0x0024, t01=0x00e0}
0x3940…395a Head {h00=0x0016, h01=0x0050, text=» LD A3,OPEMXI,A13 «, t00=0x0024, t01=0x0110}
0x395a…3986 Head {h00=0x0028, h01=0x0050, text=» ST A3,FDBMIA,A11 MASTER INDEX ADDR «, t00=0x0024, t01=0x012a}
0x3986…39ac Head {h00=0x0022, h01=0x0050, text=» RF(Z) OPF120 NO MASTER INDEX «, t00=0x0024, t01=0x0156}
0x39ac…39c6 Head {h00=0x0016, h01=0x0050, text=» LD A3,FPB:KA,A12 «, t00=0x0024, t01=0x017c}
0x39c6…39e0 Head {h00=0x0016, h01=0x0050, text=» CW A3,OPEKAD,A13 «, t00=0x0025, t01=0x0008}
0x39e0…3a00 Head {h00=0x001c, h01=0x0050, text=» RB(NE) OESWP4 WRONG KEY«, t00=0x0025, t01=0x0022}
0x3a00…3a22 Head {h00=0x001e, h01=0x0050, text=» ST A3,FDBKA,A11 KEY ADDR «, t00=0x0025, t01=0x0042}
0x3a22…3a36 Head {h00=0x0010, h01=0x0050, text=»OPF120 EQU *«, t00=0x0025, t01=0x0064}
0x3a36…3a50 Head {h00=0x0016, h01=0x0050, text=» LC A3,FPB:BO,A12 «, t00=0x0025, t01=0x0078}
0x3a50…3a62 Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0025, t01=0x0092}
0x3a62…3a8c Head {h00=0x0026, h01=0x0050, text=» ORS A3,FDBDBR,A11 BASIC + OPTION «, t00=0x0025, t01=0x00a4}
0x3a8c…3a9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00ce}
0x3a9a…3aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00dc}
0x3aa4…3ac4 Head {h00=0x001c, h01=0x0050, text=»* CALCULATE SDMTSK ID «, t00=0x0025, t01=0x00e6}
0x3ac4…3ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0106}
0x3ace…3afe Head {h00=0x002c, h01=0x0050, text=» LC A3,FWTVOL,A11 FIRST EXTENT VOLUME FC«, t00=0x0025, t01=0x0110}
0x3afe…3b12 Head {h00=0x0010, h01=0x0050, text=» LDKL A6,-1 «, t00=0x0025, t01=0x0140}
0x3b12…3b26 Head {h00=0x0010, h01=0x0050, text=»OPF140 EQU *«, t00=0x0025, t01=0x0154}
0x3b26…3b38 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0025, t01=0x0168}
0x3b38…3b50 Head {h00=0x0014, h01=0x0050, text=» CC A3,DFTAB,A6 «, t00=0x0025, t01=0x017a}
0x3b50…3b74 (38, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RB(NE) OPF140 NOT THIS DISC«, t00=0x0026, t01=0x0004}
0x3b74…3b9c Head {h00=0x0024, h01=0x0050, text=» LC A3,DMTIDP,A6 REL DM TASK ID «, t00=0x0026, t01=0x0028}
0x3b9c…3bc4 Head {h00=0x0024, h01=0x0050, text=» SC A3,FDBDMI,A11 MAIN SDMTSK ID«, t00=0x0026, t01=0x0050}
0x3bc4…3bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0078}
0x3bce…3c06 Head {h00=0x0034, h01=0x0050, text=»* CALCULATE MAX FDBRRO AND BLOCKSIZE IN SECTORS «, t00=0x0026, t01=0x0082}
0x3c06…3c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ba}
0x3c10…3c26 Head {h00=0x0012, h01=0x0050, text=» CF A14,CARRBL«, t00=0x0026, t01=0x00c4}
0x3c26…3c50 Head {h00=0x0026, h01=0x0050, text=» RB(G) OESWP4 TOO LARGE BLOCK SIZE«, t00=0x0026, t01=0x00da}
0x3c50…3c74 Head {h00=0x0020, h01=0x0050, text=» ST A1,FDBMRO,A11 MAX FDBRRO«, t00=0x0026, t01=0x0104}
0x3c74…3ca4 Head {h00=0x002c, h01=0x0050, text=» SC A2,FDBBLZ,A11 BLOCK SIZE IN SECTORS «, t00=0x0026, t01=0x0128}
0x3ca4…3cc0 Head {h00=0x0018, h01=0x0050, text=» ST A11,FDBADF,A11 «, t00=0x0026, t01=0x0158}
0x3cc0…3cda Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=1 =8 «, t00=0x0026, t01=0x0174}
0x3cda…3ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x018e}
0x3ce4…3d06 Head {h00=0x001e, h01=0x0050, text=»* CALCULATE ENLARGE FACTOR«, t00=0x0027, t01=0x0008}
0x3d06…3d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002a}
0x3d10…3d38 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A2 BLOCK SIZE IN SECTORS«, t00=0x0027, t01=0x0034}
0x3d38…3d4e Head {h00=0x0012, h01=0x0050, text=» CF A14,ENLFAC«, t00=0x0027, t01=0x005c}
0x3d4e…3d6c Head {h00=0x001a, h01=0x0050, text=» RB(O) OESOF3 OVERFLOW«, t00=0x0027, t01=0x0072}
0x3d6c…3d9a Head {h00=0x002a, h01=0x0050, text=» ST A3,FDBENL,A11 SAVE ENLARGE FACTOR «, t00=0x0027, t01=0x0090}
0x3d9a…3dac Head {h00=0x000e, h01=0x0050, text=» XIF =8 «, t00=0x0027, t01=0x00be}
0x3dac…3dba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00d0}
0x3dba…3dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00de}
0x3dc4…3ddc Head {h00=0x0014, h01=0x0050, text=»* SET OPEN MODE «, t00=0x0027, t01=0x00e8}
0x3ddc…3de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0100}
0x3de6…3e06 Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 DEFAULT VALUE «, t00=0x0027, t01=0x010a}
0x3e06…3e1e Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTOR,A10«, t00=0x0027, t01=0x012a}
0x3e1e…3e42 Head {h00=0x0020, h01=0x0050, text=» SC A3,FDBOMD,A11 OPEN MODE «, t00=0x0027, t01=0x0142}
0x3e42…3e54 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0027, t01=0x0166}
0x3e54…3e66 Head {h00=0x000e, h01=0x0050, text=» SLL A2,6 «, t00=0x0027, t01=0x0178}
0x3e66…3e98 Head {h00=0x002e, h01=0x0050, text=» RF(NN) OPF150 EXCLUSIVE ACCESS NOT WANTED«, t00=0x0027, t01=0x018a}
0x3e98…3ebe Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTTAB,A10 TTAB ADDRESS«, t00=0x0028, t01=0x002c}
0x3ebe…3ed2 Head {h00=0x0010, h01=0x0050, text=»OPF150 EQU *«, t00=0x0028, t01=0x0052}
0x3ed2…3f06 Head {h00=0x0030, h01=0x0050, text=» ST A1,FDBEXC,A11 SET EXCLUSIVE ACCESS USER «, t00=0x0028, t01=0x0066}
0x3f06…3f20 Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=1 =8 «, t00=0x0028, t01=0x009a}
0x3f20…3f34 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0028, t01=0x00b4}
0x3f34…3f4a Head {h00=0x0012, h01=0x0050, text=» CWK A3,SDMOOR«, t00=0x0028, t01=0x00c8}
0x3f4a…3f80 Head {h00=0x0032, h01=0x0050, text=» RF(NE) OPSPLT NOT OUTPUT RANDOM,DON'T FORMAT «, t00=0x0028, t01=0x00de}
0x3f80…3f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0114}
0x3f8a…3fb6 Head {h00=0x0028, h01=0x0050, text=»* FORMAT FILE IF OPEN OUTPUT RANDOM «, t00=0x0028, t01=0x011e}
0x3fb6…3fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x014a}
0x3fc0…3fe8 Head {h00=0x0024, h01=0x0050, text=» CF A14,GTBKBU GET BLOCK BUFFER «, t00=0x0028, t01=0x0154}
0x3fe8…400a Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 BUFFER ADDRESS «, t00=0x0028, t01=0x017c}
0x400a…402c Head {h00=0x001e, h01=0x0050, text=» CF A14,FRMFIL FORMAT FILE«, t00=0x0029, t01=0x000e}
0x402c…4058 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) OERCOM ERROR WHEN FORMATTING«, t00=0x0029, t01=0x0030}
0x4058…406a Head {h00=0x000e, h01=0x0050, text=» XIF =8 «, t00=0x0029, t01=0x005c}
0x406a…4078 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x006e}
0x4078…4080 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x007c}
0x4080…40d0 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0029, t01=0x0084}
0x40d0…4120 Head {h00=0x004c, h01=0x0050, text=»* D A T A , I N D E X O R M A S T E R I N D E X F I L E * «, t00=0x0029, t01=0x00d4}
0x4120…4170 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0029, t01=0x0124}
0x4170…4178 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x0174}
0x4178…418c Head {h00=0x0010, h01=0x0050, text=»OPSPLT EQU *«, t00=0x0029, t01=0x017c}
0x418c…41b4 Head {h00=0x0024, h01=0x0050, text=» ST A11,OPEFWT,A13 SAVE FWT ADDR«, t00=0x0029, t01=0x0190}
0x41b4…41ca Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002a, t01=0x0028}
0x41ca…41de Head {h00=0x0010, h01=0x0050, text=» LDR A13,A13«, t00=0x002a, t01=0x003e}
0x41de…41fe Head {h00=0x001c, h01=0x0050, text=» ABL(Z) OPDATA DATA FILE«, t00=0x002a, t01=0x0052}
0x41fe…4210 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A9«, t00=0x002a, t01=0x0072}
0x4210…4222 Head {h00=0x000e, h01=0x0050, text=» ANK A3,/1«, t00=0x002a, t01=0x0084}
0x4222…4244 Head {h00=0x001e, h01=0x0050, text=» ABL(Z) OPINDX INDEX FILE «, t00=0x002a, t01=0x0096}
0x4244…4252 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x00b8}
0x4252…425a Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00c6}
0x425a…4282 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x002a, t01=0x00ce}
0x4282…42aa Head {h00=0x0024, h01=0x0050, text=»* M A S T E R I N D E X * «, t00=0x002a, t01=0x00f6}
0x42aa…42d2 Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x002a, t01=0x011e}
0x42d2…42da Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0146}
0x42da…42ee Head {h00=0x0010, h01=0x0050, text=»OPMRIX EQU *«, t00=0x002a, t01=0x014e}
0x42ee…4306 Head {h00=0x0014, h01=0x0050, text=» CWK A10,FDBSTA «, t00=0x002a, t01=0x0162}
0x4306…4332 Head {h00=0x0028, h01=0x0050, text=» ABL(NE) OPCHEK ORDER READ FILE PAR «, t00=0x002a, t01=0x017a}
0x4332…4356 Head {h00=0x0020, h01=0x0050, text=» LD* A3,DWTECB,A10 FILE CODE«, t00=0x002b, t01=0x0016}
0x4356…436a Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x002b, t01=0x003a}
0x436a…439c Head {h00=0x002e, h01=0x0050, text=» ST A3,SDMTTD,A14 FC ENTRY IN TTAB SDMTSK «, t00=0x002b, t01=0x004e}
0x439c…43b8 Head {h00=0x0018, h01=0x0050, text=» ST A11,SDMTTD+2,A14«, t00=0x002b, t01=0x0080}
0x43b8…43ca Head {h00=0x000e, h01=0x0050, text=» STR A3,A8«, t00=0x002b, t01=0x009c}
0x43ca…43dc Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002b, t01=0x00ae}
0x43dc…4412 Head {h00=0x0032, h01=0x0050, text=» SC A2,FDBDBR,A11 NO SPECIAL FUNCTIONS ALLOWED«, t00=0x002b, t01=0x00c0}
0x4412…443e Head {h00=0x0028, h01=0x0050, text=» SC A2,FDBBLZ+1,A11 NO COMMIT CHECK «, t00=0x002b, t01=0x00f6}
0x443e…4450 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x002b, t01=0x0122}
0x4450…4488 Head {h00=0x0034, h01=0x0050, text=» SC A2,FDBDMI,A11 LET SDMTSK 1 READ MASTER INDEX«, t00=0x002b, t01=0x0134}
0x4488…4496 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x016c}
0x4496…44a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x017a}
0x44a0…44d4 Head {h00=0x0030, h01=0x0050, text=»* CALC NO OF WORDS NEEDED IN MASTER INDEX «, t00=0x002b, t01=0x0184}
0x44d4…44de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0028}
0x44de…4500 Head {h00=0x001e, h01=0x0050, text=» LD A6,FPB:RL,A12 REC LGTH«, t00=0x002c, t01=0x0032}
0x4500…4512 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x002c, t01=0x0054}
0x4512…452e Head {h00=0x0018, h01=0x0050, text=» SUK A1,3 KEY LENGTH«, t00=0x002c, t01=0x0066}
0x452e…4552 Head {h00=0x0020, h01=0x0050, text=» CW A1,OPEKYL,A13 REQUESTED «, t00=0x002c, t01=0x0082}
0x4552…456e Head {h00=0x0018, h01=0x0050, text=» ABL(NE) OESWP4 ERR «, t00=0x002c, t01=0x00a6}
0x456e…4594 Head {h00=0x0022, h01=0x0050, text=» LD A7,FPB:FR+2,A12 NO OF RECS«, t00=0x002c, t01=0x00c2}
0x4594…45c4 Head {h00=0x002c, h01=0x0050, text=» CF A14,MPYMOD A1,A2=NO OF BYTES NEEDED «, t00=0x002c, t01=0x00e8}
0x45c4…45d6 Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x002c, t01=0x0118}
0x45d6…45fa Head {h00=0x0020, h01=0x0050, text=» ORR A2,A1 GET MOST SIGN BIT«, t00=0x002c, t01=0x012a}
0x45fa…460c Head {h00=0x000e, h01=0x0050, text=» ADK A2,5 «, t00=0x002c, t01=0x014e}
0x460c…4630 Head {h00=0x0020, h01=0x0050, text=» SRL A2,1 NO OF WORDS NEEDED«, t00=0x002c, t01=0x0160}
0x4630…4650 Head {h00=0x001c, h01=0x0050, text=» RF(Z) OPM140 WRONG SIZE«, t00=0x002c, t01=0x0184}
0x4650…4672 Head {h00=0x001e, h01=0x0050, text=» LD A4,MXIND LENGTH MXIND «, t00=0x002d, t01=0x0014}
0x4672…4690 Head {h00=0x001a, h01=0x0050, text=» SUK A4,4 MAX A5 VALUE«, t00=0x002d, t01=0x0036}
0x4690…46aa Head {h00=0x0016, h01=0x0050, text=» LDKL A5,-2 OFFSET«, t00=0x002d, t01=0x0054}
0x46aa…46be Head {h00=0x0010, h01=0x0050, text=»OPM100 EQU *«, t00=0x002d, t01=0x006e}
0x46be…46da Head {h00=0x0018, h01=0x0050, text=» ADK A5,4 GET ENTRY «, t00=0x002d, t01=0x0082}
0x46da…46ec Head {h00=0x000e, h01=0x0050, text=» CWR A5,A4«, t00=0x002d, t01=0x009e}
0x46ec…4710 Head {h00=0x0020, h01=0x0050, text=» RF(G) OPM140 NO ENTRY FOUND«, t00=0x002d, t01=0x00b0}
0x4710…4728 Head {h00=0x0014, h01=0x0050, text=» LD A3,MXIND,A5 «, t00=0x002d, t01=0x00d4}
0x4728…4748 Head {h00=0x001c, h01=0x0050, text=» RB(Z) OPM100 ZERO ENTRY«, t00=0x002d, t01=0x00ec}
0x4748…4762 Head {h00=0x0016, h01=0x0050, text=» LD A6,MXIND+2,A5 «, t00=0x002d, t01=0x010c}
0x4762…4782 Head {h00=0x001c, h01=0x0050, text=» RB(N) OPM100 ENTRY USED«, t00=0x002d, t01=0x0126}
0x4782…47a6 Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 NO OF SPARE WORDS«, t00=0x002d, t01=0x0146}
0x47a6…47d0 Head {h00=0x0026, h01=0x0050, text=» RB(N) OPM100 LARGER ENTRY NEEDED «, t00=0x002d, t01=0x016a}
0x47d0…47de (46, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0004}
0x47de…47e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0012}
0x47e8…480a Head {h00=0x001e, h01=0x0050, text=»* SUFFICIENT SPACE FOUND«, t00=0x002e, t01=0x001c}
0x480a…4814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x003e}
0x4814…4834 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/8000 USED BIT «, t00=0x002e, t01=0x0048}
0x4834…485e Head {h00=0x0026, h01=0x0050, text=» ORS A1,MXIND+2,A5 MARK ENTRY USED«, t00=0x002e, t01=0x0068}
0x485e…4870 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A9«, t00=0x002e, t01=0x0092}
0x4870…4884 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/0E «, t00=0x002e, t01=0x00a4}
0x4884…48ae Head {h00=0x0026, h01=0x0050, text=» ST A3,OPEMXI,A7 MASTER INDEX ADDR«, t00=0x002e, t01=0x00b8}
0x48ae…48ca Head {h00=0x0018, h01=0x0050, text=» LD A7,FPB:FR+2,A12 «, t00=0x002e, t01=0x00e2}
0x48ca…48ea Head {h00=0x001c, h01=0x0050, text=» STR A7,A3 NO OF ENTRIES«, t00=0x002e, t01=0x00fe}
0x48ea…4904 Head {h00=0x0016, h01=0x0050, text=» LD A1,FPB:RL,A12 «, t00=0x002e, t01=0x011e}
0x4904…4924 Head {h00=0x001c, h01=0x0050, text=» ST A1,2,A3 ENTRY LENGTH«, t00=0x002e, t01=0x0138}
0x4924…4946 Head {h00=0x001e, h01=0x0050, text=» ADK A3,4 SKIP MX HEADRER «, t00=0x002e, t01=0x0158}
0x4946…496a Head {h00=0x0020, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDR «, t00=0x002e, t01=0x017a}
0x496a…498a Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LGTH«, t00=0x002f, t01=0x000e}
0x498a…49bc Head {h00=0x002e, h01=0x0050, text=» LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION«, t00=0x002f, t01=0x002e}
0x49bc…49da Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 MXIND ENTRY«, t00=0x002f, t01=0x0060}
0x49da…49fc Head {h00=0x001e, h01=0x0050, text=» RF(NL) OPM110 LAST ENTRY «, t00=0x002f, t01=0x007e}
0x49fc…4a16 Head {h00=0x0016, h01=0x0050, text=» LD A3,MXIND+6,A1 «, t00=0x002f, t01=0x00a0}
0x4a16…4a3c Head {h00=0x0022, h01=0x0050, text=» RF(N) OPM110 NEXT ENTRY USED «, t00=0x002f, t01=0x00ba}
0x4a3c…4a4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00e0}
0x4a4a…4a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ee}
0x4a54…4a7e Head {h00=0x0026, h01=0x0050, text=»* MOVE SPARE WORDS TO NEXT ENTRY«, t00=0x002f, t01=0x00f8}
0x4a7e…4a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0122}
0x4a88…4aa2 Head {h00=0x0016, h01=0x0050, text=» LD A2,MXIND+2,A1 «, t00=0x002f, t01=0x012c}
0x4aa2…4ac8 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/7FFF REMOVE USE BIT «, t00=0x002f, t01=0x0146}
0x4ac8…4ada Head {h00=0x000e, h01=0x0050, text=» SUR A2,A6«, t00=0x002f, t01=0x016c}
0x4ada…4af8 Head {h00=0x001a, h01=0x0050, text=» ORKL A2,/8000 USE BIT«, t00=0x002f, t01=0x017e}
0x4af8…4b12 Head {h00=0x0016, h01=0x0050, text=» ST A2,MXIND+2,A1 «, t00=0x0030, t01=0x000c}
0x4b12…4b44 Head {h00=0x002e, h01=0x0050, text=» ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER «, t00=0x0030, t01=0x0026}
0x4b44…4b6c Head {h00=0x0024, h01=0x0050, text=» LD A7,MXIND,A1 PREVIOUS POINTER«, t00=0x0030, t01=0x0058}
0x4b6c…4b8a Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 NO OF BYTES «, t00=0x0030, t01=0x0080}
0x4b8a…4b9c Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x0030, t01=0x009e}
0x4b9c…4bb6 Head {h00=0x0016, h01=0x0050, text=» ST A7,MXIND+4,A1 «, t00=0x0030, t01=0x00b0}
0x4bb6…4bc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00ca}
0x4bc4…4bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d8}
0x4bce…4bfa Head {h00=0x0028, h01=0x0050, text=»* R E A D M A S T E R I N D E X «, t00=0x0030, t01=0x00e2}
0x4bfa…4c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010e}
0x4c04…4c18 Head {h00=0x0010, h01=0x0050, text=»OPM110 EQU *«, t00=0x0030, t01=0x0118}
0x4c18…4c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x012c}
0x4c22…4c44 Head {h00=0x001e, h01=0x0050, text=»* DATA MANAGEMENT REQUEST:«, t00=0x0030, t01=0x0136}
0x4c44…4c74 Head {h00=0x002c, h01=0x0050, text=»* GET MASTER INDEX WITH READ SEQUENTIAL «, t00=0x0030, t01=0x0158}
0x4c74…4c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0188}
0x4c7e…4caa (49, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LD A2,FDBEXC,A11 EXCLUSIVE TTAB =6 «, t00=0x0031, t01=0x0004}
0x4caa…4ce0 Head {h00=0x0032, h01=0x0050, text=» CM FDBEXC,A11 INDICATE NO EXCLUSIVE ACCESS =6«, t00=0x0031, t01=0x0030}
0x4ce0…4d04 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/82 READ SEQUENTIAL «, t00=0x0031, t01=0x0066}
0x4d04…4d10 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0031, t01=0x008a}
0x4d10…4d20 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0031, t01=0x0096}
0x4d20…4d5c Head {h00=0x0038, h01=0x0050, text=» ST A2,FDBEXC,A11 EXCLUSIVE ACCESS CORRECT AGAIN =6 «, t00=0x0031, t01=0x00a6}
0x4d5c…4d74 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0031, t01=0x00e2}
0x4d74…4d9e Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/FEFF BIT 7 ONLY RETRIES «, t00=0x0031, t01=0x00fa}
0x4d9e…4dbc Head {h00=0x001a, h01=0x0050, text=» RF(Z) OPM130 NO ERROR«, t00=0x0031, t01=0x0124}
0x4dbc…4dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0142}
0x4dc6…4dec Head {h00=0x0022, h01=0x0050, text=»* REMOVE THE ONLY CRN BUFFER«, t00=0x0031, t01=0x014c}
0x4dec…4df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0172}
0x4df6…4e1c Head {h00=0x0022, h01=0x0050, text=» LD A5,FDBCRL,A11 CRN BUF ADR «, t00=0x0031, t01=0x017c}
0x4e1c…4e38 Head {h00=0x0018, h01=0x0050, text=» RF(Z) OPM120 NO CRN«, t00=0x0032, t01=0x0012}
0x4e38…4e4e Head {h00=0x0012, h01=0x0050, text=» CM FDBCRL,A11«, t00=0x0032, t01=0x002e}
0x4e4e…4e5a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0032, t01=0x0044}
0x4e5a…4e70 Head {h00=0x0012, h01=0x0050, text=» LD A6,CRNQUE «, t00=0x0032, t01=0x0050}
0x4e70…4e82 Head {h00=0x000e, h01=0x0050, text=» STR A6,A5«, t00=0x0032, t01=0x0066}
0x4e82…4e98 Head {h00=0x0012, h01=0x0050, text=» ST A5,CRNQUE «, t00=0x0032, t01=0x0078}
0x4e98…4ea4 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0032, t01=0x008e}
0x4ea4…4eb8 Head {h00=0x0010, h01=0x0050, text=»OPM120 EQU *«, t00=0x0032, t01=0x009a}
0x4eb8…4eca Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0032, t01=0x00ae}
0x4eca…4eec Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/1000 BIT 3 = EOF«, t00=0x0032, t01=0x00c0}
0x4eec…4f20 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) OPM150 READY ,WHOLIE MXINDEX IS READ«, t00=0x0032, t01=0x00e2}
0x4f20…4f38 Head {h00=0x0014, h01=0x0050, text=» ABL OERCOM ERR «, t00=0x0032, t01=0x0116}
0x4f38…4f46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x012e}
0x4f46…4f5a Head {h00=0x0010, h01=0x0050, text=»OPM130 EQU *«, t00=0x0032, t01=0x013c}
0x4f5a…4f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0150}
0x4f64…4f86 Head {h00=0x001e, h01=0x0050, text=»* RECORD READ,READ NEXRT«, t00=0x0032, t01=0x015a}
0x4f86…4f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x017c}
0x4f90…4fa8 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x0032, t01=0x0186}
0x4fa8…4fcc Head {h00=0x0020, h01=0x0050, text=» ADS A2,ECBBA,A8 REC LENGTH «, t00=0x0033, t01=0x000e}
0x4fcc…4ff0 Head {h00=0x0020, h01=0x0050, text=» RB OPM110 READ NEXT RECORD «, t00=0x0033, t01=0x0032}
0x4ff0…5004 Head {h00=0x0010, h01=0x0050, text=»OPM140 EQU *«, t00=0x0033, t01=0x0056}
0x5004…502a Head {h00=0x0022, h01=0x0050, text=» ABL OESNC1 CORE EXHAUSTED =4 «, t00=0x0033, t01=0x006a}
0x502a…5038 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0090}
0x5038…5042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x009e}
0x5042…508a Head {h00=0x0044, h01=0x0050, text=»* C O M P L E T E M A S T E R I N D E X F I L E R E A D «, t00=0x0033, t01=0x00a8}
0x508a…5094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f0}
0x5094…50b8 Head {h00=0x0020, h01=0x0050, text=»* CLOSE MASTER INDEX FILE «, t00=0x0033, t01=0x00fa}
0x50b8…50c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x011e}
0x50c2…50d6 Head {h00=0x0010, h01=0x0050, text=»OPM150 EQU *«, t00=0x0033, t01=0x0128}
0x50d6…5102 Head {h00=0x0028, h01=0x0050, text=» ST A10,SDMTTD+2,A14 CLOSE FC ENTRY «, t00=0x0033, t01=0x013c}
0x5102…512c Head {h00=0x0026, h01=0x0050, text=» CM FPB:FR+2,A12 DO NOT WRITE LRN «, t00=0x0033, t01=0x0168}
0x512c…514a (52, 0, 398) Head {h00=0x001a, h01=0x0050, text=» LDR A7,A9 LOOP COUNT «, t00=0x0034, t01=0x0004}
0x514a…515c Head {h00=0x000e, h01=0x0050, text=» SRL A7,1 «, t00=0x0034, t01=0x0022}
0x515c…517c Head {h00=0x001c, h01=0x0050, text=» LC A7,OPEFNR,A7 FILE NR«, t00=0x0034, t01=0x0034}
0x517c…5194 Head {h00=0x0014, h01=0x0050, text=» SC A7,ECBFC,A8 «, t00=0x0034, t01=0x0054}
0x5194…51bc Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 PAR BLOCK ADDR «, t00=0x0034, t01=0x006c}
0x51bc…51ec Head {h00=0x002c, h01=0x0050, text=» CF A14,CLRBUF RELEASE ALL FREE BUFFERS «, t00=0x0034, t01=0x0094}
0x51ec…5200 Head {h00=0x0010, h01=0x0050, text=» XRR A10,A11«, t00=0x0034, t01=0x00c4}
0x5200…5214 Head {h00=0x0010, h01=0x0050, text=» XRR A11,A10«, t00=0x0034, t01=0x00d8}
0x5214…5228 Head {h00=0x0010, h01=0x0050, text=» XRR A10,A11«, t00=0x0034, t01=0x00ec}
0x5228…5258 Head {h00=0x002c, h01=0x0050, text=» CF A14,FMIOCL CLOSE (MAIN FDB ADDRESS) «, t00=0x0034, t01=0x0100}
0x5258…526c Head {h00=0x0010, h01=0x0050, text=» XRR A10,A11«, t00=0x0034, t01=0x0130}
0x526c…5280 Head {h00=0x0010, h01=0x0050, text=» XRR A11,A10«, t00=0x0034, t01=0x0144}
0x5280…5294 Head {h00=0x0010, h01=0x0050, text=» XRR A10,A11«, t00=0x0034, t01=0x0158}
0x5294…52a6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0034, t01=0x016c}
0x52a6…52be Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) OERCOM «, t00=0x0034, t01=0x017e}
0x52be…52dc Head {h00=0x001a, h01=0x0050, text=» ABL OPCHEK NEXT FILE «, t00=0x0035, t01=0x0008}
0x52dc…52ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0026}
0x52ea…52f2 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0034}
0x52f2…5316 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0035, t01=0x003c}
0x5316…533a Head {h00=0x0020, h01=0x0050, text=»* I N D E X F I L E * «, t00=0x0035, t01=0x0060}
0x533a…535e Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0035, t01=0x0084}
0x535e…5366 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00a8}
0x5366…5386 Head {h00=0x001c, h01=0x0050, text=»OPINDX EQU * INDEX FILE «, t00=0x0035, t01=0x00b0}
0x5386…5390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d0}
0x5390…53ac Head {h00=0x0018, h01=0x0050, text=»* UPDATE PAR BLOCK«, t00=0x0035, t01=0x00da}
0x53ac…53b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00f6}
0x53b6…53de Head {h00=0x0024, h01=0x0050, text=» LD A3,OPEFWT DATA FILE FDB ADDR«, t00=0x0035, t01=0x0100}
0x53de…53f8 Head {h00=0x0016, h01=0x0050, text=» LC A2,FDBNIF,A3 «, t00=0x0035, t01=0x0128}
0x53f8…5416 Head {h00=0x001a, h01=0x0050, text=» CM FPB:NI,A12 FILLER «, t00=0x0035, t01=0x0142}
0x5416…543c Head {h00=0x0022, h01=0x0050, text=» SC A2,FPB:NI,A12 NR OF INDEX «, t00=0x0035, t01=0x0160}
0x543c…544e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A9«, t00=0x0035, t01=0x0186}
0x544e…5460 Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0036, t01=0x0008}
0x5460…5472 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0036, t01=0x001a}
0x5472…5486 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A12 «, t00=0x0036, t01=0x002c}
0x5486…54a4 Head {h00=0x001a, h01=0x0050, text=» LDK A5,FPB:I2-FPB:I1 «, t00=0x0036, t01=0x0040}
0x54a4…54b6 Head {h00=0x000e, h01=0x0050, text=» SUR A4,A5«, t00=0x0036, t01=0x005e}
0x54b6…54c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0070}
0x54c4…54d8 Head {h00=0x0010, h01=0x0050, text=»OPI100 EQU *«, t00=0x0036, t01=0x007e}
0x54d8…54f4 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A5 REL ADDR «, t00=0x0036, t01=0x0092}
0x54f4…5510 Head {h00=0x0018, h01=0x0050, text=» SUK A2,1 NEXT INDEX«, t00=0x0036, t01=0x00ae}
0x5510…5526 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) OPI100«, t00=0x0036, t01=0x00ca}
0x5526…5538 Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x0036, t01=0x00e0}
0x5538…5554 Head {h00=0x0018, h01=0x0050, text=» ADK A3,1 TYPE DUPL «, t00=0x0036, t01=0x00f2}
0x5554…5578 Head {h00=0x0020, h01=0x0050, text=» ST A3,FPB:I1,A4 ID AND TYPE«, t00=0x0036, t01=0x010e}
0x5578…5590 Head {h00=0x0014, h01=0x0050, text=» CM FPB:I1+2,A4 «, t00=0x0036, t01=0x0132}
0x5590…55a8 Head {h00=0x0014, h01=0x0050, text=» CM FPB:I1+4,A4 «, t00=0x0036, t01=0x014a}
0x55a8…55ba Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0036, t01=0x0162}
0x55ba…55e0 Head {h00=0x0022, h01=0x0050, text=» ST A7,FPB:I1+6,A4 NR OF ITEMS«, t00=0x0036, t01=0x0174}
0x55e0…5604 Head {h00=0x0020, h01=0x0050, text=» LD A7,FDBKA,A11 KEY OFFSET «, t00=0x0037, t01=0x000a}
0x5604…5626 Head {h00=0x001e, h01=0x0050, text=» ST A7,FPB:A1,A4 KEY ADDR «, t00=0x0037, t01=0x002e}
0x5626…5648 Head {h00=0x001e, h01=0x0050, text=» LD A7,FDBRLE,A11 REC LGTH«, t00=0x0037, t01=0x0050}
0x5648…565a Head {h00=0x000e, h01=0x0050, text=» SUK A7,6 «, t00=0x0037, t01=0x0072}
0x565a…5676 Head {h00=0x0018, h01=0x0050, text=» CM FPB:L1,A4 FILLER«, t00=0x0037, t01=0x0084}
0x5676…569a Head {h00=0x0020, h01=0x0050, text=» SC A7,FPB:L1,A4 KEY LENGTH «, t00=0x0037, t01=0x00a0}
0x569a…56ac Head {h00=0x000e, h01=0x0050, text=» ADK A7,8 «, t00=0x0037, t01=0x00c4}
0x56ac…56c2 Head {h00=0x0012, h01=0x0050, text=» SRL A7,1 WORD«, t00=0x0037, t01=0x00d6}
0x56c2…56d8 Head {h00=0x0012, h01=0x0050, text=» CWK A7,RECBFZ«, t00=0x0037, t01=0x00ec}
0x56d8…56f8 Head {h00=0x001c, h01=0x0050, text=» ABL(G) OESLK8 LONG KEY «, t00=0x0037, t01=0x0102}
0x56f8…5706 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0122}
0x5706…5710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0130}
0x5710…5730 Head {h00=0x001c, h01=0x0050, text=»* CALCULATE INDEX SIZE«, t00=0x0037, t01=0x013a}
0x5730…573a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x015a}
0x573a…5754 Head {h00=0x0016, h01=0x0050, text=» LD A1,FPB:S1,A12 «, t00=0x0037, t01=0x0164}
0x5754…5780 Head {h00=0x0028, h01=0x0050, text=» LD A2,FPB:S1+2,A12 SIZE IN SECTORS «, t00=0x0037, t01=0x017e}
0x5780…57a4 Head {h00=0x0020, h01=0x0050, text=» LC A6,FDBBLZ,A11 BLOCK SIZE«, t00=0x0038, t01=0x001a}
0x57a4…57b8 Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x0038, t01=0x003e}
0x57b8…57ce Head {h00=0x0012, h01=0x0050, text=» CF A14,DIVMOD«, t00=0x0038, t01=0x0052}
0x57ce…57ee Head {h00=0x001c, h01=0x0050, text=» ABL(O) OESOF3 LONG FILE«, t00=0x0038, t01=0x0068}
0x57ee…5804 Head {h00=0x0012, h01=0x0050, text=» CM FPB:IS,A12«, t00=0x0038, t01=0x0088}
0x5804…582e Head {h00=0x0026, h01=0x0050, text=» ST A2,FPB:IS+2,A12 SIZE IN BLOCKS«, t00=0x0038, t01=0x009e}
0x582e…5838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c8}
0x5838…585a Head {h00=0x001e, h01=0x0050, text=»* GET INDEX VOLUME NAME «, t00=0x0038, t01=0x00d2}
0x585a…5864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00f4}
0x5864…587c Head {h00=0x0014, h01=0x0050, text=» LDKL A1,FPB:V1 «, t00=0x0038, t01=0x00fe}
0x587c…589a Head {h00=0x001a, h01=0x0050, text=» ADR A1,A12 FROM ADDR «, t00=0x0038, t01=0x0116}
0x589a…58b0 Head {h00=0x0012, h01=0x0050, text=» LDK A2,FPB:IV«, t00=0x0038, t01=0x0134}
0x58b0…58c6 Head {h00=0x0012, h01=0x0050, text=» ADR A2,A12 TO«, t00=0x0038, t01=0x014a}
0x58c6…58dc Head {h00=0x0012, h01=0x0050, text=» LDK A3,6 LGTH«, t00=0x0038, t01=0x0160}
0x58dc…58f6 Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVFW MOVE«, t00=0x0038, t01=0x0176}
0x58f6…5908 Head {h00=0x000e, h01=0x0050, text=» RF OPCHEK«, t00=0x0038, t01=0x0190}
0x5908…5914 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0012}
0x5914…5922 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x001e}
0x5922…592a Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x002c}
0x592a…594c Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0039, t01=0x0034}
0x594c…596e Head {h00=0x001e, h01=0x0050, text=»* D A T A F I L E * «, t00=0x0039, t01=0x0056}
0x596e…5990 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0039, t01=0x0078}
0x5990…5998 Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x009a}
0x5998…59b6 Head {h00=0x001a, h01=0x0050, text=»OPDATA EQU * DATA FILE«, t00=0x0039, t01=0x00a2}
0x59b6…59c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00c0}
0x59c0…59e2 Head {h00=0x001e, h01=0x0050, text=»* UPDATE USER PAR BLOCK «, t00=0x0039, t01=0x00ca}
0x59e2…59ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ec}
0x59ec…5a06 Head {h00=0x0016, h01=0x0050, text=» LC A2,FDBNIF,A11 «, t00=0x0039, t01=0x00f6}
0x5a06…5a1a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0039, t01=0x0110}
0x5a1a…5a38 Head {h00=0x001a, h01=0x0050, text=» RF(Z) OPD100 NO INDEX«, t00=0x0039, t01=0x0124}
0x5a38…5a4a Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0039, t01=0x0142}
0x5a4a…5a5e Head {h00=0x0010, h01=0x0050, text=»OPD100 EQU *«, t00=0x0039, t01=0x0154}
0x5a5e…5a80 Head {h00=0x001e, h01=0x0050, text=» SC A2,FPB:FO,A12 FILE ORG«, t00=0x0039, t01=0x0168}
0x5a80…5a92 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0039, t01=0x018a}
0x5a92…5aba Head {h00=0x0024, h01=0x0050, text=» SC A2,FPB:FO+1,A12 DEVICE TYPE «, t00=0x003a, t01=0x000c}
0x5aba…5ad8 Head {h00=0x001a, h01=0x0050, text=» LC A2,OPEFNR FILE NR «, t00=0x003a, t01=0x0034}
0x5ad8…5af2 Head {h00=0x0016, h01=0x0050, text=» SC A2,FPB:FM,A12 «, t00=0x003a, t01=0x0052}
0x5af2…5b0c Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBDBR,A11 «, t00=0x003a, t01=0x006c}
0x5b0c…5b1e Head {h00=0x000e, h01=0x0050, text=» SRL A2,14«, t00=0x003a, t01=0x0086}
0x5b1e…5b50 Head {h00=0x002e, h01=0x0050, text=» SC A2,FPB:BO,A12 DELAY BASIC TOSS OPTIONS«, t00=0x003a, t01=0x0098}
0x5b50…5b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ca}
0x5b5a…5b8a Head {h00=0x002c, h01=0x0050, text=»* CONVERT SIZE TO NUMBER OF RECORDS AND «, t00=0x003a, t01=0x00d4}
0x5b8a…5bb8 Head {h00=0x002a, h01=0x0050, text=»* ENLARGE FACTOR TO PERCENTAGE«, t00=0x003a, t01=0x0104}
0x5bb8…5bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0132}
0x5bc2…5bd8 Head {h00=0x0012, h01=0x0050, text=» CF A14,COSZEN«, t00=0x003a, t01=0x013c}
0x5bd8…5be6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0152}
0x5be6…5bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0160}
0x5bf0…5c16 Head {h00=0x0022, h01=0x0050, text=»* MOVE PART OF BLOCK TO USER«, t00=0x003a, t01=0x016a}
0x5c16…5c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0190}
0x5c20…5c38 Head {h00=0x0014, h01=0x0050, text=» LDKL A3,FPB:FR «, t00=0x003b, t01=0x000a}
0x5c38…5c56 Head {h00=0x001a, h01=0x0050, text=» SUKL A3,FPB:RL LENGTH«, t00=0x003b, t01=0x0022}
0x5c56…5c7e Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTECB,A10 USER ECB ADDR «, t00=0x003b, t01=0x0040}
0x5c7e…5ca0 Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBRL,A4 REQ LENGTH«, t00=0x003b, t01=0x0068}
0x5ca0…5cc0 Head {h00=0x001c, h01=0x0050, text=» SUK A1,FPBRES RESERVED «, t00=0x003b, t01=0x008a}
0x5cc0…5cd2 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A1«, t00=0x003b, t01=0x00aa}
0x5cd2…5cf6 Head {h00=0x0020, h01=0x0050, text=» RF(NG) OPD120 TAKE SHORTEST«, t00=0x003b, t01=0x00bc}
0x5cf6…5d08 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x003b, t01=0x00e0}
0x5d08…5d1c Head {h00=0x0010, h01=0x0050, text=»OPD120 EQU *«, t00=0x003b, t01=0x00f2}
0x5d1c…5d2e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003b, t01=0x0106}
0x5d2e…5d44 Head {h00=0x0012, h01=0x0050, text=» ADK A1,FPBRES«, t00=0x003b, t01=0x0118}
0x5d44…5d70 Head {h00=0x0028, h01=0x0050, text=» ST A1,ECBEL,A4 SET EFFECTIVE LENGTH«, t00=0x003b, t01=0x012e}
0x5d70…5d8e Head {h00=0x001a, h01=0x0050, text=» LDR A1,A12 FROM ADDR «, t00=0x003b, t01=0x015a}
0x5d8e…5dae Head {h00=0x001c, h01=0x0050, text=» LD A2,ECBBA,A4 TO ADDR «, t00=0x003b, t01=0x0178}
0x5dae…5dd4 Head {h00=0x0022, h01=0x0050, text=» ADK A2,FPBRES RESERVED FIELD «, t00=0x003c, t01=0x0008}
0x5dd4…5dea Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003c, t01=0x002e}
0x5dea…5e12 Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTTAB,A10 TTAB ADDR USER«, t00=0x003c, t01=0x0044}
0x5e12…5e28 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOV:SU«, t00=0x003c, t01=0x006c}
0x5e28…5e34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0082}
0x5e34…5e4a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x003c, t01=0x008e}
0x5e4a…5e64 Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVFW MOVE«, t00=0x003c, t01=0x00a4}
0x5e64…5e70 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00be}
0x5e70…5e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ca}
0x5e7a…5ea2 Head {h00=0x0024, h01=0x0050, text=»* ADJUST FILE NAME FOR INDEXES«, t00=0x003c, t01=0x00d4}
0x5ea2…5eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00fc}
0x5eac…5ec0 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x003c, t01=0x0106}
0x5ec0…5ee2 Head {h00=0x001e, h01=0x0050, text=» ADKL A1,FPB:FN FROM ADDR «, t00=0x003c, t01=0x011a}
0x5ee2…5ef4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x003c, t01=0x013c}
0x5ef4…5f08 Head {h00=0x0010, h01=0x0050, text=» ADK A2,2 TO«, t00=0x003c, t01=0x014e}
0x5f08…5f24 Head {h00=0x0018, h01=0x0050, text=» LDK A3,6 NO OF CHAR«, t00=0x003c, t01=0x0162}
0x5f24…5f3e Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVBW MOVE«, t00=0x003c, t01=0x017e}
0x5f3e…5f4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0008}
0x5f4c…5f54 Head {h00=0x0004, h01=0x0050, t00=0x003d, t01=0x0016}
0x5f54…5f9e Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x003d, t01=0x001e}
0x5f9e…5fe8 Head {h00=0x0046, h01=0x0050, text=»* C H E C K I F A L L F I L E S A R E O P E N E D * «, t00=0x003d, t01=0x0068}
0x5fe8…6032 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x003d, t01=0x00b2}
0x6032…603a Head {h00=0x0004, h01=0x0050, t00=0x003d, t01=0x00fc}
0x603a…6058 Head {h00=0x001a, h01=0x0050, text=»OPCHEK EQU * NEXT FILE«, t00=0x003d, t01=0x0104}
0x6058…607a Head {h00=0x001e, h01=0x0050, text=» IFT INDXAC=1 INDEXES YES «, t00=0x003d, t01=0x0122}
0x607a…6096 Head {h00=0x0018, h01=0x0050, text=» SUKL A9,1 FILE LOOP«, t00=0x003d, t01=0x0144}
0x6096…60a8 Head {h00=0x000e, h01=0x0050, text=» CWK A9,1 «, t00=0x003d, t01=0x0160}
0x60a8…60d4 Head {h00=0x0028, h01=0x0050, text=» RF(NG) OPEND ALL INDEXES ARE OPENED«, t00=0x003d, t01=0x0172}
0x60d4…60e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x000e}
0x60e2…60ea Head {h00=0x0004, h01=0x0050, t00=0x003e, t01=0x001c}
0x60ea…611e Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003e, t01=0x0024}
0x611e…6152 Head {h00=0x0030, h01=0x0050, text=»* M O R E F I L E S T O O P E N * «, t00=0x003e, t01=0x0058}
0x6152…6186 Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003e, t01=0x008c}
0x6186…618e Head {h00=0x0004, h01=0x0050, t00=0x003e, t01=0x00c0}
0x618e…61a6 Head {h00=0x0014, h01=0x0050, text=» CWK A10,FDBSTA «, t00=0x003e, t01=0x00c8}
0x61a6…61d0 Head {h00=0x0026, h01=0x0050, text=» RF(NE) OPN120 READ FILE PAR ORDER«, t00=0x003e, t01=0x00e0}
0x61d0…61e4 Head {h00=0x0010, h01=0x0050, text=»OPNEXT EQU *«, t00=0x003e, t01=0x010a}
0x61e4…61ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x011e}
0x61ee…621e Head {h00=0x002c, h01=0x0050, text=»* SKIP MASTER INDEX AT SECONDARY OPEN «, t00=0x003e, t01=0x0128}
0x621e…6228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0158}
0x6228…6248 Head {h00=0x001c, h01=0x0050, text=» LD A1,OPEFWT DATA FILE «, t00=0x003e, t01=0x0162}
0x6248…6260 Head {h00=0x0014, h01=0x0050, text=» LC A1,FWTPAR,A1«, t00=0x003e, t01=0x0182}
0x6260…6288 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/3E NR OF OPEN BEYOND 1 «, t00=0x003f, t01=0x000a}
0x6288…62a4 Head {h00=0x0018, h01=0x0050, text=» RF(Z) OPN100 FIRST «, t00=0x003f, t01=0x0032}
0x62a4…62c8 Head {h00=0x0020, h01=0x0050, text=» ANKL A9,/E NO MASTER INDEX «, t00=0x003f, t01=0x004e}
0x62c8…62dc Head {h00=0x0010, h01=0x0050, text=»OPN100 EQU *«, t00=0x003f, t01=0x0072}
0x62dc…62e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0086}
0x62e6…6300 Head {h00=0x0016, h01=0x0050, text=»* NEXT FILE NAME«, t00=0x003f, t01=0x0090}
0x6300…6312 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A9«, t00=0x003f, t01=0x00aa}
0x6312…632e Head {h00=0x0018, h01=0x0050, text=» SLL A7,1 WORD ADDR «, t00=0x003f, t01=0x00bc}
0x632e…6360 Head {h00=0x002e, h01=0x0050, text=» LD A1,OPEFN,A7 FIRST 2 CHAR IN FILE NAME «, t00=0x003f, t01=0x00d8}
0x6360…6384 Head {h00=0x0020, h01=0x0050, text=» ST A1,FPB:FN,A12 FILE NAME «, t00=0x003f, t01=0x010a}
0x6384…638e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x012e}
0x638e…63b8 Head {h00=0x0026, h01=0x0050, text=»* FETCH VOLUME NAME FOR INDEXES «, t00=0x003f, t01=0x0138}
0x63b8…63c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0162}
0x63c2…63e4 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,INDVOL FROM ADDR «, t00=0x003f, t01=0x016c}
0x63e4…63f8 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A12 «, t00=0x003f, t01=0x018e}
0x63f8…6418 Head {h00=0x001c, h01=0x0050, text=» ADKL A2,FPB:V1 TO ADDR «, t00=0x0040, t01=0x0012}
0x6418…642a Head {h00=0x000e, h01=0x0050, text=» LDK A3,6 «, t00=0x0040, t01=0x0032}
0x642a…6450 Head {h00=0x0022, h01=0x0050, text=» CF A14,MOVFW MOVE VOLUME NAME«, t00=0x0040, t01=0x0044}
0x6450…645e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x006a}
0x645e…6468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0078}
0x6468…6496 Head {h00=0x002a, h01=0x0050, text=»* MOVE SPACES TO OTHER VOLUME NAMES «, t00=0x0040, t01=0x0082}
0x6496…64a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00b0}
0x64a0…64ca Head {h00=0x0026, h01=0x0050, text=» LDK A6,30 NR OF VOLUME NAMES * 10«, t00=0x0040, t01=0x00ba}
0x64ca…64de Head {h00=0x0010, h01=0x0050, text=»OPN110 EQU *«, t00=0x0040, t01=0x00e4}
0x64de…64f0 Head {h00=0x000e, h01=0x0050, text=» SUK A6,10«, t00=0x0040, t01=0x00f8}
0x64f0…650a Head {h00=0x0016, h01=0x0050, text=» RF(N) OPN130 ALL «, t00=0x0040, t01=0x010a}
0x650a…652c Head {h00=0x001e, h01=0x0050, text=» LDKL A1,OPESPA FROM ADDR «, t00=0x0040, t01=0x0124}
0x652c…6540 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A12 «, t00=0x0040, t01=0x0146}
0x6540…6558 Head {h00=0x0014, h01=0x0050, text=» ADKL A2,FPB:V2 «, t00=0x0040, t01=0x015a}
0x6558…6572 Head {h00=0x0016, h01=0x0050, text=» ADR A2,A6 TO ADDR«, t00=0x0040, t01=0x0172}
0x6572…658e Head {h00=0x0018, h01=0x0050, text=» LDK A3,6 NR OF CHAR«, t00=0x0040, t01=0x018c}
0x658e…65a4 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVFW «, t00=0x0041, t01=0x0018}
0x65a4…65b6 Head {h00=0x000e, h01=0x0050, text=» RB OPN110«, t00=0x0041, t01=0x002e}
0x65b6…65e8 Head {h00=0x002e, h01=0x0050, text=»OPN120 EQU * GET FILE NR FOR READ FILE PAR«, t00=0x0041, t01=0x0040}
0x65e8…65fa Head {h00=0x000e, h01=0x0050, text=» LDR A7,A9«, t00=0x0041, t01=0x0072}
0x65fa…660c Head {h00=0x000e, h01=0x0050, text=» SRL A7,1 «, t00=0x0041, t01=0x0084}
0x660c…6638 Head {h00=0x0028, h01=0x0050, text=» LC A2,OPEFNR,A7 GET FILE NUMBER =2 «, t00=0x0041, t01=0x0096}
0x6638…664c Head {h00=0x0010, h01=0x0050, text=»OPN130 EQU *«, t00=0x0041, t01=0x00c2}
0x664c…6672 Head {h00=0x0022, h01=0x0050, text=» CM DELAY NO DELAY FOR INDEXES«, t00=0x0041, t01=0x00d6}
0x6672…669c Head {h00=0x0026, h01=0x0050, text=» CM NROFIX NO INDEX FOR NEXT FILE «, t00=0x0041, t01=0x00fc}
0x669c…66c4 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A10 SYSTEM FDB ADDRESS «, t00=0x0041, t01=0x0126}
0x66c4…66d8 Head {h00=0x0010, h01=0x0050, text=» ABL OPLENT «, t00=0x0041, t01=0x014e}
0x66d8…66e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0162}
0x66e4…66f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x016e}
0x66f2…66fa Head {h00=0x0004, h01=0x0050, t00=0x0041, t01=0x017c}
0x66fa…6732 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0041, t01=0x0184}
0x6732…676a Head {h00=0x0034, h01=0x0050, text=»* A L L F I L E S A R E O P E N E D * «, t00=0x0042, t01=0x002c}
0x676a…67a2 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0042, t01=0x0064}
0x67a2…67aa Head {h00=0x0004, h01=0x0050, t00=0x0042, t01=0x009c}
0x67aa…67c4 Head {h00=0x0016, h01=0x0050, text=»OPEND EQU * FINISH«, t00=0x0042, t01=0x00a4}
0x67c4…67ee Head {h00=0x0026, h01=0x0050, text=» LD A11,OPEFWT FDB ADDR DATA FILE «, t00=0x0042, t01=0x00be}
0x67ee…6806 Head {h00=0x0014, h01=0x0050, text=» CWK A10,FDBSTA «, t00=0x0042, t01=0x00e8}
0x6806…6830 Head {h00=0x0026, h01=0x0050, text=» RF(NE) OPE140 READ FILE PAR ORDER«, t00=0x0042, t01=0x0100}
0x6830…683a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x012a}
0x683a…6866 Head {h00=0x0028, h01=0x0050, text=»* STORE FDB ADDRESSES IN ALL FDB'S«, t00=0x0042, t01=0x0134}
0x6866…6870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0160}
0x6870…6892 Head {h00=0x001e, h01=0x0050, text=» LDK A5,10 NR OF FILES * 2«, t00=0x0042, t01=0x016a}
0x6892…68a6 Head {h00=0x0010, h01=0x0050, text=»OPE100 EQU *«, t00=0x0042, t01=0x018c}
0x68a6…68b8 Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0043, t01=0x0010}
0x68b8…68de Head {h00=0x0022, h01=0x0050, text=» RF(N) OPE110 ALL FDB UPPDATED«, t00=0x0043, t01=0x0022}
0x68de…68e6 Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x0048}
0x68e6…690e Head {h00=0x0024, h01=0x0050, text=» LD A2,OPEFWT,A5 FDB ADDR INDEX «, t00=0x0043, t01=0x0050}
0x690e…6932 Head {h00=0x0020, h01=0x0050, text=» RB(Z) OPE100 NO INDEX FILE «, t00=0x0043, t01=0x0078}
0x6932…6954 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,OPEFWT FROM ADDR «, t00=0x0043, t01=0x009c}
0x6954…6974 Head {h00=0x001c, h01=0x0050, text=» ADKL A2,FDBADF TO ADDR «, t00=0x0043, t01=0x00be}
0x6974…6992 Head {h00=0x001a, h01=0x0050, text=» LDK A3,10 NO OF BYTES«, t00=0x0043, t01=0x00de}
0x6992…69b4 Head {h00=0x001e, h01=0x0050, text=» CF A14,MOVFW MOVE 5 WORDS«, t00=0x0043, t01=0x00fc}
0x69b4…69c6 Head {h00=0x000e, h01=0x0050, text=» RB OPE100«, t00=0x0043, t01=0x011e}
0x69c6…69da Head {h00=0x0010, h01=0x0050, text=»OPE110 EQU *«, t00=0x0043, t01=0x0130}
0x69da…69e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0144}
0x69e4…6a0e Head {h00=0x0026, h01=0x0050, text=»* CONNECT FILE CODE OF DATA FILE«, t00=0x0043, t01=0x014e}
0x6a0e…6a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0178}
0x6a18…6a3c Head {h00=0x0020, h01=0x0050, text=» LD* A2,DWTECB,A10 FILE CODE«, t00=0x0043, t01=0x0182}
0x6a3c…6a50 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0044, t01=0x0016}
0x6a50…6a6a Head {h00=0x0016, h01=0x0050, text=» SC A2,OPEFCD SAVE«, t00=0x0044, t01=0x002a}
0x6a6a…6a8a Head {h00=0x001c, h01=0x0050, text=» LDK A5,0 TTAB AND CDTAB«, t00=0x0044, t01=0x0044}
0x6a8a…6ab2 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTTAB,A10 USER TTAB ADDR«, t00=0x0044, t01=0x0064}
0x6ab2…6ae6 Head {h00=0x0030, h01=0x0050, text=» CF A14,FNDFDB A4=TTAB/SCTCDT ENTRY ADDRESS «, t00=0x0044, t01=0x008c}
0x6ae6…6b04 Head {h00=0x001a, h01=0x0050, text=» ST A11,2,A4 FWT ADDR «, t00=0x0044, t01=0x00c0}
0x6b04…6b12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x00de}
0x6b12…6b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00ec}
0x6b1c…6b3e Head {h00=0x001e, h01=0x0050, text=»* REMOVE CURRENCY BUFFER«, t00=0x0044, t01=0x00f6}
0x6b3e…6b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0118}
0x6b48…6b5c Head {h00=0x0010, h01=0x0050, text=» XRR A10,A11«, t00=0x0044, t01=0x0122}
0x6b5c…6b70 Head {h00=0x0010, h01=0x0050, text=» XRR A11,A10«, t00=0x0044, t01=0x0136}
0x6b70…6b84 Head {h00=0x0010, h01=0x0050, text=» XRR A10,A11«, t00=0x0044, t01=0x014a}
0x6b84…6ba6 Head {h00=0x001e, h01=0x0050, text=» CF A14,CRNGET ADDR IN A2 «, t00=0x0044, t01=0x015e}
0x6ba6…6bba Head {h00=0x0010, h01=0x0050, text=» XRR A10,A11«, t00=0x0044, t01=0x0180}
0x6bba…6bce (69, 0, 400) Head {h00=0x0010, h01=0x0050, text=» XRR A11,A10«, t00=0x0045, t01=0x0004}
0x6bce…6be2 Head {h00=0x0010, h01=0x0050, text=» XRR A10,A11«, t00=0x0045, t01=0x0018}
0x6be2…6bf6 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A10 «, t00=0x0045, t01=0x002c}
0x6bf6…6c12 Head {h00=0x0018, h01=0x0050, text=» ADKL A3,FDBCRL ROOT«, t00=0x0045, t01=0x0040}
0x6c12…6c1e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0045, t01=0x005c}
0x6c1e…6c32 Head {h00=0x0010, h01=0x0050, text=»OPE120 EQU *«, t00=0x0045, t01=0x0068}
0x6c32…6c44 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0045, t01=0x007c}
0x6c44…6c64 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A3 NEXT BUFFER «, t00=0x0045, t01=0x008e}
0x6c64…6c76 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x0045, t01=0x00ae}
0x6c76…6c98 Head {h00=0x001e, h01=0x0050, text=» RB(NE) OPE120 NEXT BUFFER«, t00=0x0045, t01=0x00c0}
0x6c98…6cb0 Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A3 NEXT«, t00=0x0045, t01=0x00e2}
0x6cb0…6cc2 Head {h00=0x000e, h01=0x0050, text=» STR A4,A1«, t00=0x0045, t01=0x00fa}
0x6cc2…6cd8 Head {h00=0x0012, h01=0x0050, text=» LD A3,CRNQUE «, t00=0x0045, t01=0x010c}
0x6cd8…6cea Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0045, t01=0x0122}
0x6cea…6d00 Head {h00=0x0012, h01=0x0050, text=» ST A2,CRNQUE «, t00=0x0045, t01=0x0134}
0x6d00…6d0e Head {h00=0x000a, h01=0x0050, text=» ENB «, t00=0x0045, t01=0x014a}
0x6d0e…6d1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0158}
0x6d1c…6d30 Head {h00=0x0010, h01=0x0050, text=»OPE140 EQU *«, t00=0x0045, t01=0x0166}
0x6d30…6d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x017a}
0x6d3a…6d70 Head {h00=0x0032, h01=0x0050, text=»* CHECK USER SIZE AND UPDATE PARAMETER BLOCK«, t00=0x0045, t01=0x0184}
0x6d70…6d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x002a}
0x6d7a…6d90 Head {h00=0x0012, h01=0x0050, text=» LDK A1,FPB:IV«, t00=0x0046, t01=0x0034}
0x6d90…6db6 Head {h00=0x0022, h01=0x0050, text=» LC A3,FDBNIF,A11 NR OF INDEX «, t00=0x0046, t01=0x004a}
0x6db6…6dc8 Head {h00=0x000e, h01=0x0050, text=» ANK A3,/F«, t00=0x0046, t01=0x0070}
0x6dc8…6dde Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0046, t01=0x0082}
0x6dde…6df4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) OPE150 «, t00=0x0046, t01=0x0098}
0x6df4…6e06 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0046, t01=0x00ae}
0x6e06…6e18 Head {h00=0x000e, h01=0x0050, text=» SLL A3,3 «, t00=0x0046, t01=0x00c0}
0x6e18…6e2a Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x0046, t01=0x00d2}
0x6e2a…6e4a Head {h00=0x001c, h01=0x0050, text=» ADR A3,A4 MULT WITH 12 «, t00=0x0046, t01=0x00e4}
0x6e4a…6e60 Head {h00=0x0012, h01=0x0050, text=» ADK A3,FPB:I1«, t00=0x0046, t01=0x0104}
0x6e60…6e86 Head {h00=0x0022, h01=0x0050, text=» SUR A3,A1 MAX NR OF REM CHAR «, t00=0x0046, t01=0x011a}
0x6e86…6e9a Head {h00=0x0010, h01=0x0050, text=»OPE150 EQU *«, t00=0x0046, t01=0x0140}
0x6e9a…6ea6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0154}
0x6ea6…6ec4 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A12 FROM ADDR «, t00=0x0046, t01=0x0160}
0x6ec4…6ee6 Head {h00=0x001e, h01=0x0050, text=» LD A6,DWTECB,A10 USER ECB«, t00=0x0046, t01=0x017e}
0x6ee6…6f08 Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBRL,A6 TOT LENGTH«, t00=0x0047, t01=0x0010}
0x6f08…6f26 Head {h00=0x001a, h01=0x0050, text=» SUK A2,FPB:IV+FPBRES «, t00=0x0047, t01=0x0032}
0x6f26…6f42 Head {h00=0x0018, h01=0x0050, text=» CWR A3,A2 REM LGTH «, t00=0x0047, t01=0x0050}
0x6f42…6f66 Head {h00=0x0020, h01=0x0050, text=» RF(NG) OPE160 TAKE SHORTEST«, t00=0x0047, t01=0x006c}
0x6f66…6f78 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0047, t01=0x0090}
0x6f78…6f86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x00a2}
0x6f86…6f9a Head {h00=0x0010, h01=0x0050, text=»OPE160 EQU *«, t00=0x0047, t01=0x00b0}
0x6f9a…6fac Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0047, t01=0x00c4}
0x6fac…6fca Head {h00=0x001a, h01=0x0050, text=» ADK A2,FPB:IV+FPBRES «, t00=0x0047, t01=0x00d6}
0x6fca…6ff6 Head {h00=0x0028, h01=0x0050, text=» ST A2,ECBEL,A6 SET EFFECTIVE LENGTH«, t00=0x0047, t01=0x00f4}
0x6ff6…700e Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A6 «, t00=0x0047, t01=0x0120}
0x700e…7034 Head {h00=0x0022, h01=0x0050, text=» ADK A2,FPB:IV+FPBRES TO ADDER«, t00=0x0047, t01=0x0138}
0x7034…704a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0047, t01=0x015e}
0x704a…7064 Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVFW MOVE«, t00=0x0047, t01=0x0174}
0x7064…7070 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x018e}
0x7070…7086 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0048, t01=0x000a}
0x7086…70ae Head {h00=0x0024, h01=0x0050, text=» LD A4,DWTTAB,A10 USER TTAB ADDR«, t00=0x0048, t01=0x0020}
0x70ae…70c4 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOV:SU«, t00=0x0048, t01=0x0048}
0x70c4…70d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x005e}
0x70d0…70de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x006a}
0x70de…70e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0078}
0x70e8…7100 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0048, t01=0x0082}
0x7100…7118 Head {h00=0x0014, h01=0x0050, text=»* OPEN END *«, t00=0x0048, t01=0x009a}
0x7118…7130 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0048, t01=0x00b2}
0x7130…713a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ca}
0x713a…7160 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A10 MAIN FDB ADDRESS «, t00=0x0048, t01=0x00d4}
0x7160…717a Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RET CODE«, t00=0x0048, t01=0x00fa}
0x717a…71a4 Head {h00=0x0026, h01=0x0050, text=» ABL SDMERX TENDIO+EXIT IN SDMTSK «, t00=0x0048, t01=0x0114}
0x71a4…71b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x013e}
0x71b2…71cc Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0048, t01=0x014c}
0x71cc…71e6 Head {h00=0x0016, h01=0x0050, text=»* C L O S E * «, t00=0x0048, t01=0x0166}
0x71e6…7200 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0048, t01=0x0180}
0x7200…7208 Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x000a}
0x7208…7222 Head {h00=0x0016, h01=0x0050, text=»SDMCLO EQU * CLOSE«, t00=0x0049, t01=0x0012}
0x7222…722c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x002c}
0x722c…7252 Head {h00=0x0022, h01=0x0050, text=»* (A4= BLOCK BUFFER ADDRESS )«, t00=0x0049, t01=0x0036}
0x7252…727e Head {h00=0x0028, h01=0x0050, text=»* (A5 = BLOCK BUFFER DATA ADDRESS )«, t00=0x0049, t01=0x005c}
0x727e…72a6 Head {h00=0x0024, h01=0x0050, text=»* A11= FDB ADDRESS ALL ORDERS «, t00=0x0049, t01=0x0088}
0x72a6…72cc Head {h00=0x0022, h01=0x0050, text=»* A7 = ORDER CODE ALL ORDERS«, t00=0x0049, t01=0x00b0}
0x72cc…72ee Head {h00=0x001e, h01=0x0050, text=»* (A8 = FDBECB ADDRESS ) «, t00=0x0049, t01=0x00d6}
0x72ee…7312 Head {h00=0x0020, h01=0x0050, text=»* (A9 = USER ECB ADDRESS ) «, t00=0x0049, t01=0x00f8}
0x7312…731c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x011c}
0x731c…7346 Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB ADDRESS«, t00=0x0049, t01=0x0126}
0x7346…7360 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBDBR,A11 «, t00=0x0049, t01=0x0150}
0x7360…7380 Head {h00=0x001c, h01=0x0050, text=» RF(NN) SDMC10 NO DELAY «, t00=0x0049, t01=0x016a}
0x7380…739c Head {h00=0x0018, h01=0x0050, text=» CF A14,FMIOWR WRITE«, t00=0x0049, t01=0x018a}
0x739c…73c4 Head {h00=0x0024, h01=0x0050, text=» ORS A1,ECBRC,A9 SET RETURN CODE«, t00=0x004a, t01=0x0016}
0x73c4…73d8 Head {h00=0x0010, h01=0x0050, text=»SDMC10 EQU *«, t00=0x004a, t01=0x003e}
0x73d8…73f2 Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=1 =8 «, t00=0x004a, t01=0x0052}
0x73f2…740c Head {h00=0x0016, h01=0x0050, text=» LC A3,DWTOPT,A11 «, t00=0x004a, t01=0x006c}
0x740c…741e Head {h00=0x000e, h01=0x0050, text=» ANK A3,2 «, t00=0x004a, t01=0x0086}
0x741e…7442 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SDMC20 CLOSE DISCARD«, t00=0x004a, t01=0x0098}
0x7442…7450 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x00bc}
0x7450…745a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ca}
0x745a…746e Head {h00=0x0010, h01=0x0050, text=»* CLOSE LOCK«, t00=0x004a, t01=0x00d4}
0x746e…7478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00e8}
0x7478…749c Head {h00=0x0020, h01=0x0050, text=» LC A3,FDBOMD,A11 OPEN MODE «, t00=0x004a, t01=0x00f2}
0x749c…74b2 Head {h00=0x0012, h01=0x0050, text=» CWK A3,SDMOOR«, t00=0x004a, t01=0x0116}
0x74b2…74e2 Head {h00=0x002c, h01=0x0050, text=» RF(E) SDMC20 DON'T FORMAT,OUTPUT RANDOM«, t00=0x004a, t01=0x012c}
0x74e2…74f8 Head {h00=0x0012, h01=0x0050, text=» CWK A3,SDMOEE«, t00=0x004a, t01=0x015c}
0x74f8…752e Head {h00=0x0032, h01=0x0050, text=» RF(L) SDMC20 DON'T FORMAT,NOT EXTEND OR SEQ. «, t00=0x004a, t01=0x0172}
0x752e…7538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0018}
0x7538…7574 Head {h00=0x0038, h01=0x0050, text=»* FORMAT FILE IF OPENED OUTPUT SEQUENTIAL OR EXTEND «, t00=0x004b, t01=0x0022}
0x7574…757e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x005e}
0x757e…75aa Head {h00=0x0028, h01=0x0050, text=» LDR A4,A5 BLOCK BUFFER DATA ADDRESS«, t00=0x004b, t01=0x0068}
0x75aa…75de Head {h00=0x0030, h01=0x0050, text=» LD A3,FDBRRO,A11 RECORD OFFSET IN BLOCK =1 «, t00=0x004b, t01=0x0094}
0x75de…75f8 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBBLZ,A11 «, t00=0x004b, t01=0x00c8}
0x75f8…761e Head {h00=0x0022, h01=0x0050, text=» SLL A1,8 BLOCK SIZE IN BYTES «, t00=0x004b, t01=0x00e2}
0x761e…763e Head {h00=0x001c, h01=0x0050, text=» LD A5,FDBLRN+1,A11 =3 «, t00=0x004b, t01=0x0108}
0x763e…7666 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) SDMC12 FILE NOT EMPTY =3«, t00=0x004b, t01=0x0128}
0x7666…7684 Head {h00=0x001a, h01=0x0050, text=» LC A5,FDBLRN,A11 =3 «, t00=0x004b, t01=0x0150}
0x7684…76a0 Head {h00=0x0018, h01=0x0050, text=» ADK A5,0 SET CR =3 «, t00=0x004b, t01=0x016e}
0x76a0…76c4 Head {h00=0x0020, h01=0x0050, text=» RF(Z) SDMC16 FILE EMPTY =3 «, t00=0x004b, t01=0x018a}
0x76c4…76dc Head {h00=0x0014, h01=0x0050, text=»SDMC12 EQU * =3«, t00=0x004c, t01=0x001e}
0x76dc…7706 Head {h00=0x0026, h01=0x0050, text=» AD A3,FDBRLE,A11 RECORD LENGTH =1«, t00=0x004c, t01=0x0036}
0x7706…772c Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 OFFSET TO LRN + 1 =1«, t00=0x004c, t01=0x0060}
0x772c…7758 Head {h00=0x0028, h01=0x0050, text=» SUR A1,A3 LENGTH LEFT IN BUFFER =1 «, t00=0x004c, t01=0x0086}
0x7758…7770 Head {h00=0x0014, h01=0x0050, text=»SDMC16 EQU * =3«, t00=0x004c, t01=0x00b2}
0x7770…779a Head {h00=0x0026, h01=0x0050, text=» ADR A3,A4 RECORD POINTER LRN+1 =1«, t00=0x004c, t01=0x00ca}
0x779a…77ca Head {h00=0x002c, h01=0x0050, text=» CF A14,FORMER BUILD FORMATTED BUFFER =1«, t00=0x004c, t01=0x00f4}
0x77ca…77f4 Head {h00=0x0026, h01=0x0050, text=» CF A14,FMIOWR WRITE BLOCK BUFFER «, t00=0x004c, t01=0x0124}
0x77f4…7812 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A1 RETURN CODE«, t00=0x004c, t01=0x014e}
0x7812…7824 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x004c, t01=0x016c}
0x7824…7846 Head {h00=0x001e, h01=0x0050, text=» RF(N) SDMC20 END OF FILE «, t00=0x004c, t01=0x017e}
0x7846…786e Head {h00=0x0024, h01=0x0050, text=» ORS A1,ECBRC,A9 SET RETURN CODE«, t00=0x004d, t01=0x0010}
0x786e…7896 Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBSNR,A11 SECTOR NUMBER «, t00=0x004d, t01=0x0038}
0x7896…78b2 Head {h00=0x0018, h01=0x0050, text=» LD A2,FDBSNR+2,A11 «, t00=0x004d, t01=0x0060}
0x78b2…78c4 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x004d, t01=0x007c}
0x78c4…78f4 Head {h00=0x002c, h01=0x0050, text=» LD A7,FDBBLZ,A11 BLOCK SIZE IN SECTORS «, t00=0x004d, t01=0x008e}
0x78f4…791a Head {h00=0x0022, h01=0x0050, text=» CF A14,ADDMOD GET NEXT SECTOR«, t00=0x004d, t01=0x00be}
0x791a…7934 Head {h00=0x0016, h01=0x0050, text=» ST A1,FDBSNR,A11 «, t00=0x004d, t01=0x00e4}
0x7934…7950 Head {h00=0x0018, h01=0x0050, text=» ST A2,FDBSNR+2,A11 «, t00=0x004d, t01=0x00fe}
0x7950…797a Head {h00=0x0026, h01=0x0050, text=» CF A14,FRMFIL FORMAT REST OF FILE«, t00=0x004d, t01=0x011a}
0x797a…79a2 Head {h00=0x0024, h01=0x0050, text=» ORS A1,ECBRC,A9 SET RETURN CODE«, t00=0x004d, t01=0x0144}
0x79a2…79b4 Head {h00=0x000e, h01=0x0050, text=» RF SDMC30«, t00=0x004d, t01=0x016c}
0x79b4…79c8 Head {h00=0x0010, h01=0x0050, text=»SDMC20 EQU *«, t00=0x004d, t01=0x017e}
0x79c8…79da (78, 0, 400) Head {h00=0x000e, h01=0x0050, text=» XIF =8 «, t00=0x004e, t01=0x0004}
0x79da…7a12 Head {h00=0x0034, h01=0x0050, text=» LD A4,FDBEXC,A11 EXCLUSIVE ACCESS INDICATOR =7 «, t00=0x004e, t01=0x0016}
0x7a12…7a3c Head {h00=0x0026, h01=0x0050, text=» RF(NZ) SDMC25 OPENED EXCLUSIVE =7«, t00=0x004e, t01=0x004e}
0x7a3c…7a6c Head {h00=0x002c, h01=0x0050, text=» SC A4,DWTOPT,A11 INDICATE CLOSE LOCK =7«, t00=0x004e, t01=0x0078}
0x7a6c…7a84 Head {h00=0x0014, h01=0x0050, text=»SDMC25 EQU * =7«, t00=0x004e, t01=0x00a8}
0x7a84…7ab0 Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMRLB RELEASE BLOCK BUFFER «, t00=0x004e, t01=0x00c0}
0x7ab0…7ac4 Head {h00=0x0010, h01=0x0050, text=»SDMC30 EQU *«, t00=0x004e, t01=0x00ec}
0x7ac4…7ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0100}
0x7ace…7ae8 Head {h00=0x0016, h01=0x0050, text=»* CLEAR CURRENCY«, t00=0x004e, t01=0x010a}
0x7ae8…7af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0124}
0x7af2…7b1c Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNGET GET CURRENCY BUFFER«, t00=0x004e, t01=0x012e}
0x7b1c…7b2e Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x004e, t01=0x0158}
0x7b2e…7b4e Head {h00=0x001c, h01=0x0050, text=» SC A1,CRNSTA,A2 STATUS «, t00=0x004e, t01=0x016a}
0x7b4e…7b64 Head {h00=0x0012, h01=0x0050, text=» CM CRNCDF,A2 «, t00=0x004e, t01=0x018a}
0x7b64…7b7c Head {h00=0x0014, h01=0x0050, text=» CM CRNCDF+2,A2 «, t00=0x004f, t01=0x0010}
0x7b7c…7b92 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x004f, t01=0x0028}
0x7b92…7ba8 Head {h00=0x0012, h01=0x0050, text=» CM CRNCIF,A2 «, t00=0x004f, t01=0x003e}
0x7ba8…7bc0 Head {h00=0x0014, h01=0x0050, text=» CM CRNCIF+2,A2 «, t00=0x004f, t01=0x0054}
0x7bc0…7bcc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x006c}
0x7bcc…7bda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0078}
0x7bda…7be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0086}
0x7be4…7c02 Head {h00=0x001a, h01=0x0050, text=»* BUILD CLOSE TABLES«, t00=0x004f, t01=0x0090}
0x7c02…7c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00ae}
0x7c0c…7c2e Head {h00=0x001e, h01=0x0050, text=» LC A7,ECBFC,A9 FILE CODE «, t00=0x004f, t01=0x00b8}
0x7c2e…7c4a Head {h00=0x0018, h01=0x0050, text=» LDK A5,10 2 * FILES«, t00=0x004f, t01=0x00da}
0x7c4a…7c5e Head {h00=0x0010, h01=0x0050, text=»SDMC40 EQU *«, t00=0x004f, t01=0x00f6}
0x7c5e…7c70 Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x004f, t01=0x010a}
0x7c70…7c90 Head {h00=0x001c, h01=0x0050, text=» RF(N) SDMC60 ALL FILES «, t00=0x004f, t01=0x011c}
0x7c90…7ca4 Head {h00=0x0010, h01=0x0050, text=» LDR A4,A11 «, t00=0x004f, t01=0x013c}
0x7ca4…7cb6 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A5«, t00=0x004f, t01=0x0150}
0x7cb6…7cc8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x004f, t01=0x0162}
0x7cc8…7cda Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x004f, t01=0x0174}
0x7cda…7cec Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x004f, t01=0x0186}
0x7cec…7cfe Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0050, t01=0x0008}
0x7cfe…7d12 Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0050, t01=0x001a}
0x7d12…7d34 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBADF,A4 FDB ADDR «, t00=0x0050, t01=0x002e}
0x7d34…7d52 Head {h00=0x001a, h01=0x0050, text=» RF(Z) SDMC50 NO FILE «, t00=0x0050, t01=0x0050}
0x7d52…7d7c Head {h00=0x0026, h01=0x0050, text=» LD A6,FDBMIA,A3 MASTER INDEX ADDR«, t00=0x0050, t01=0x006e}
0x7d7c…7d9c Head {h00=0x001c, h01=0x0050, text=» LC A2,FWTFNR,A3 FILE NR«, t00=0x0050, t01=0x0098}
0x7d9c…7dc0 Head {h00=0x0020, h01=0x0050, text=» LC A9,FDBLRN,A3 LAST REC NR«, t00=0x0050, t01=0x00b8}
0x7dc0…7ddc Head {h00=0x0018, h01=0x0050, text=» LD A10,FDBLRN+1,A3 «, t00=0x0050, t01=0x00dc}
0x7ddc…7df0 Head {h00=0x0010, h01=0x0050, text=»SDMC50 EQU *«, t00=0x0050, t01=0x00f8}
0x7df0…7e08 Head {h00=0x0014, h01=0x0050, text=» ST A6,OPEMXI,A5«, t00=0x0050, t01=0x010c}
0x7e08…7e20 Head {h00=0x0014, h01=0x0050, text=» ST A3,OPEFWT,A5«, t00=0x0050, t01=0x0124}
0x7e20…7e32 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A5«, t00=0x0050, t01=0x013c}
0x7e32…7e44 Head {h00=0x000e, h01=0x0050, text=» SRL A4,1 «, t00=0x0050, t01=0x014e}
0x7e44…7e64 Head {h00=0x001c, h01=0x0050, text=» SC A2,OPEFNR,A4 FILE NR«, t00=0x0050, t01=0x0160}
0x7e64…7e86 Head {h00=0x001e, h01=0x0050, text=» SC A1,OPEFCD,A4 FILE CODE«, t00=0x0050, t01=0x0180}
0x7e86…7e98 Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x0051, t01=0x0012}
0x7e98…7ebc Head {h00=0x0020, h01=0x0050, text=» ST A9,OPELRN,A4 LAST REC NR«, t00=0x0051, t01=0x0024}
0x7ebc…7ed8 Head {h00=0x0018, h01=0x0050, text=» ST A10,OPELRN+2,A4 «, t00=0x0051, t01=0x0048}
0x7ed8…7ef4 Head {h00=0x0018, h01=0x0050, text=» RB SDMC40 NEXT FILE«, t00=0x0051, t01=0x0064}
0x7ef4…7f02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0080}
0x7f02…7f16 Head {h00=0x0010, h01=0x0050, text=»SDMC60 EQU *«, t00=0x0051, t01=0x008e}
0x7f16…7f36 Head {h00=0x001c, h01=0x0050, text=» SC A7,OPEFCD FILE CODE «, t00=0x0051, t01=0x00a2}
0x7f36…7f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00c2}
0x7f40…7f5e Head {h00=0x001a, h01=0x0050, text=»* A11=MAIN FDB ADDRESS«, t00=0x0051, t01=0x00cc}
0x7f5e…7f68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00ea}
0x7f68…7f90 Head {h00=0x0024, h01=0x0050, text=»CLOCOM EQU * RECOVERY AT ERRORS «, t00=0x0051, t01=0x00f4}
0x7f90…7fbe Head {h00=0x002a, h01=0x0050, text=» LC A2,DWTOR+1,A11 ORDER CODE INTERNAL«, t00=0x0051, t01=0x011c}
0x7fbe…7fd4 Head {h00=0x0012, h01=0x0050, text=» CWK A2,ORDFLP«, t00=0x0051, t01=0x014a}
0x7fd4…8000 Head {h00=0x0028, h01=0x0050, text=» ABL(E) SDMERX READ FILE PARAMETERS «, t00=0x0051, t01=0x0160}
0x8000…800a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x018c}
0x800a…8044 Head {h00=0x0036, h01=0x0050, text=»* FREE FILE CODES,MASTER INDEXES,FILES, CURRENCY«, t00=0x0052, t01=0x0008}
0x8044…804e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0042}
0x804e…8060 Head {h00=0x000e, h01=0x0050, text=» LDKL A9,5«, t00=0x0052, t01=0x004c}
0x8060…8074 Head {h00=0x0010, h01=0x0050, text=»OPEE10 EQU *«, t00=0x0052, t01=0x005e}
0x8074…8086 Head {h00=0x000e, h01=0x0050, text=» SUKL A9,1«, t00=0x0052, t01=0x0072}
0x8086…80a8 Head {h00=0x001e, h01=0x0050, text=» RF(NN) OPEE20 MORE FILES «, t00=0x0052, t01=0x0084}
0x80a8…80b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00a6}
0x80b6…80c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00b4}
0x80c0…80da Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0052, t01=0x00be}
0x80da…80f4 Head {h00=0x0016, h01=0x0050, text=»* CLOSE END * «, t00=0x0052, t01=0x00d8}
0x80f4…810e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0052, t01=0x00f2}
0x810e…8118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x010c}
0x8118…8132 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RET CODE«, t00=0x0052, t01=0x0116}
0x8132…8146 Head {h00=0x0010, h01=0x0050, text=» ABL SDMERX «, t00=0x0052, t01=0x0130}
0x8146…8154 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0144}
0x8154…815e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0152}
0x815e…817a Head {h00=0x0018, h01=0x0050, text=»* RESET FILE CODE*«, t00=0x0052, t01=0x015c}
0x817a…8184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0178}
0x8184…8198 Head {h00=0x0010, h01=0x0050, text=»OPEE20 EQU *«, t00=0x0052, t01=0x0182}
0x8198…81ba Head {h00=0x001e, h01=0x0050, text=» LC A2,OPEFCD,A9 FILE CODE«, t00=0x0053, t01=0x0008}
0x81ba…81ce Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0053, t01=0x002a}
0x81ce…81ec Head {h00=0x001a, h01=0x0050, text=» RF(Z) OPEE25 NO CODE «, t00=0x0053, t01=0x003e}
0x81ec…820c Head {h00=0x001c, h01=0x0050, text=» LDK A5,0 TTAB AND CDTAB«, t00=0x0053, t01=0x005c}
0x820c…8234 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTTAB,A11 USER TTAB ADDR«, t00=0x0053, t01=0x007c}
0x8234…824a Head {h00=0x0012, h01=0x0050, text=» CF A14,FNDFDB«, t00=0x0053, t01=0x00a4}
0x824a…8264 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 RET CD «, t00=0x0053, t01=0x00ba}
0x8264…8282 Head {h00=0x001a, h01=0x0050, text=» RF(Z) OPEE25 NO ENTRY«, t00=0x0053, t01=0x00d4}
0x8282…82ac Head {h00=0x0026, h01=0x0050, text=» LDKL A7,FDBSTA SYSTEM FDB ADDRESS«, t00=0x0053, t01=0x00f2}
0x82ac…82d0 Head {h00=0x0020, h01=0x0050, text=» ST A7,2,A4 SYSTEM FWT ADDR «, t00=0x0053, t01=0x011c}
0x82d0…82e4 Head {h00=0x0010, h01=0x0050, text=»OPEE25 EQU *«, t00=0x0053, t01=0x0140}
0x82e4…82f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0154}
0x82f2…82fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0162}
0x82fc…831e Head {h00=0x001e, h01=0x0050, text=»* RELEASE EA+CRN BUFFERS«, t00=0x0053, t01=0x016c}
0x831e…8328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x018e}
0x8328…833a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A9«, t00=0x0054, t01=0x0008}
0x833a…8352 Head {h00=0x0014, h01=0x0050, text=» SLL A7,1 WORDS «, t00=0x0054, t01=0x001a}
0x8352…8378 Head {h00=0x0022, h01=0x0050, text=» LDR A13,A11 SAVE FDB ADDRESS «, t00=0x0054, t01=0x0032}
0x8378…839a Head {h00=0x001e, h01=0x0050, text=» LD A11,OPEFWT,A7 FDB ADDR«, t00=0x0054, t01=0x0058}
0x839a…83b6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) CLODEL NO FDB«, t00=0x0054, t01=0x007a}
0x83b6…83cc Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C000«, t00=0x0054, t01=0x0096}
0x83cc…83de Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0054, t01=0x00ac}
0x83de…8408 Head {h00=0x0026, h01=0x0050, text=» CF A14,EARELB REL PROTECT BUFFERS«, t00=0x0054, t01=0x00be}
0x8408…8414 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0054, t01=0x00e8}
0x8414…842e Head {h00=0x0016, h01=0x0050, text=» LC A5,FWTPAR,A11 «, t00=0x0054, t01=0x00f4}
0x842e…844e Head {h00=0x001c, h01=0x0050, text=» ANK A5,/3F NR OF USERS «, t00=0x0054, t01=0x010e}
0x844e…8460 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0054, t01=0x012e}
0x8460…848a Head {h00=0x0026, h01=0x0050, text=» RF(NZ) CLODEL MORE THAN ONE OPEN «, t00=0x0054, t01=0x0140}
0x848a…84ac Head {h00=0x001e, h01=0x0050, text=» LD A5,FDBEAL,A11 PRO LINK«, t00=0x0054, t01=0x016a}
0x84ac…84ca Head {h00=0x001a, h01=0x0050, text=» ABL(NZ) TASHLT DM ERR«, t00=0x0054, t01=0x018c}
0x84ca…84d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x001a}
0x84d8…84e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0028}
0x84e2…8506 Head {h00=0x0020, h01=0x0050, text=»* RELEASE CURRENCY BUFFERS«, t00=0x0055, t01=0x0032}
0x8506…8510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0056}
0x8510…8528 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,FDBCRL «, t00=0x0055, t01=0x0060}
0x8528…8546 Head {h00=0x001a, h01=0x0050, text=» ADR A5,A11 LINK ROOT «, t00=0x0055, t01=0x0078}
0x8546…855a Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0055, t01=0x0096}
0x855a…8574 Head {h00=0x0016, h01=0x0050, text=» CMR A5 CLEAR FDB «, t00=0x0055, t01=0x00aa}
0x8574…8586 Head {h00=0x000e, h01=0x0050, text=» RF RCRN20«, t00=0x0055, t01=0x00c4}
0x8586…859a Head {h00=0x0010, h01=0x0050, text=»RCRN10 EQU *«, t00=0x0055, t01=0x00d6}
0x859a…85bc Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 BUFFER ADDRESS «, t00=0x0055, t01=0x00ea}
0x85bc…85d0 Head {h00=0x0010, h01=0x0050, text=»RCRN20 EQU *«, t00=0x0055, t01=0x010c}
0x85d0…85fa Head {h00=0x0026, h01=0x0050, text=» RF(Z) RMIX10 ALL BUFFER S REMOVED«, t00=0x0055, t01=0x0120}
0x85fa…8622 Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A4 NEXT BUFFER ADDRESS «, t00=0x0055, t01=0x014a}
0x8622…862c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0172}
0x862c…864e Head {h00=0x001e, h01=0x0050, text=»* RETURN BUFFER TO POOL «, t00=0x0055, t01=0x017c}
0x864e…8658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x000e}
0x8658…8664 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0056, t01=0x0018}
0x8664…867a Head {h00=0x0012, h01=0x0050, text=» LD A3,CRNQUE «, t00=0x0056, t01=0x0024}
0x867a…868c Head {h00=0x000e, h01=0x0050, text=» STR A3,A4«, t00=0x0056, t01=0x003a}
0x868c…86a2 Head {h00=0x0012, h01=0x0050, text=» ST A4,CRNQUE «, t00=0x0056, t01=0x004c}
0x86a2…86ae Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0056, t01=0x0062}
0x86ae…86c0 Head {h00=0x000e, h01=0x0050, text=» RB RCRN10«, t00=0x0056, t01=0x006e}
0x86c0…86ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0080}
0x86ce…86e2 Head {h00=0x0010, h01=0x0050, text=»RMIX10 EQU *«, t00=0x0056, t01=0x008e}
0x86e2…86f8 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0056, t01=0x00a2}
0x86f8…8702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00b8}
0x8702…8722 Head {h00=0x001c, h01=0x0050, text=»* RELEASE MASTER INDEX«, t00=0x0056, t01=0x00c2}
0x8722…872c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00e2}
0x872c…8756 Head {h00=0x0026, h01=0x0050, text=» LD A1,OPEMXI,A7 MASTER INDEX ADDR«, t00=0x0056, t01=0x00ec}
0x8756…8772 Head {h00=0x0018, h01=0x0050, text=» RF(Z) CLODEL NO MX «, t00=0x0056, t01=0x0116}
0x8772…878c Head {h00=0x0016, h01=0x0050, text=» LD A5,MXIND LENTH«, t00=0x0056, t01=0x0132}
0x878c…879e Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0056, t01=0x014c}
0x879e…87b2 Head {h00=0x0010, h01=0x0050, text=»RMIX20 EQU *«, t00=0x0056, t01=0x015e}
0x87b2…87c4 Head {h00=0x000e, h01=0x0050, text=» SUK A5,4 «, t00=0x0056, t01=0x0172}
0x87c4…87e6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) RMIX30 FIRST INDEX «, t00=0x0056, t01=0x0184}
0x87e6…880c Head {h00=0x0022, h01=0x0050, text=» RF(N) CLODEL NO MASTER INDEX «, t00=0x0057, t01=0x0016}
0x880c…8826 Head {h00=0x0016, h01=0x0050, text=» CW A1,MXIND+2,A5 «, t00=0x0057, t01=0x003c}
0x8826…883c Head {h00=0x0012, h01=0x0050, text=» RB(NE) RMIX20«, t00=0x0057, t01=0x0056}
0x883c…8854 Head {h00=0x0014, h01=0x0050, text=» LD A4,MXIND,A5 «, t00=0x0057, t01=0x006c}
0x8854…887e Head {h00=0x0026, h01=0x0050, text=» RF(N) RMIX30 PREVIOUS ENTRY USED «, t00=0x0057, t01=0x0084}
0x887e…88a4 Head {h00=0x0022, h01=0x0050, text=» LD A4,MXIND+4,A5 NO OF WORDS «, t00=0x0057, t01=0x00ae}
0x88a4…88c8 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/7FFF REMOV USE BIT«, t00=0x0057, t01=0x00d4}
0x88c8…88ec Head {h00=0x0020, h01=0x0050, text=» ADS A4,MXIND,A5 NR OF WORDS«, t00=0x0057, t01=0x00f8}
0x88ec…88fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x011c}
0x88fa…8904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x012a}
0x8904…8926 Head {h00=0x001e, h01=0x0050, text=»* MOVE UP REST OF MXIND «, t00=0x0057, t01=0x0134}
0x8926…8930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0156}
0x8930…8948 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,MXIND+6«, t00=0x0057, t01=0x0160}
0x8948…8964 Head {h00=0x0018, h01=0x0050, text=» ADR A1,A5 FROM ADDR«, t00=0x0057, t01=0x0178}
0x8964…8976 (88, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0058, t01=0x0004}
0x8976…8990 Head {h00=0x0016, h01=0x0050, text=» SUK A2,4 TO ADDR «, t00=0x0058, t01=0x0016}
0x8990…89a4 Head {h00=0x0010, h01=0x0050, text=» LD A3,MXIND«, t00=0x0058, t01=0x0030}
0x89a4…89b6 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A5«, t00=0x0058, t01=0x0044}
0x89b6…89d2 Head {h00=0x0018, h01=0x0050, text=» SUK A3,2 NO OF CHAR«, t00=0x0058, t01=0x0056}
0x89d2…89ec Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVFW MOVE«, t00=0x0058, t01=0x0072}
0x89ec…89fe Head {h00=0x000e, h01=0x0050, text=» RF CLODEL«, t00=0x0058, t01=0x008c}
0x89fe…8a12 Head {h00=0x0010, h01=0x0050, text=»RMIX30 EQU *«, t00=0x0058, t01=0x009e}
0x8a12…8a28 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/7FFF«, t00=0x0058, t01=0x00b2}
0x8a28…8a52 Head {h00=0x0026, h01=0x0050, text=» ANS A4,MXIND+4,A5 REMOVE USE BIT «, t00=0x0058, t01=0x00c8}
0x8a52…8a5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x00f2}
0x8a5e…8a6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x00fe}
0x8a6c…8a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x010c}
0x8a76…8a94 Head {h00=0x001a, h01=0x0050, text=»* CLOSE OR DELETE FILE«, t00=0x0058, t01=0x0116}
0x8a94…8a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0134}
0x8a9e…8ab2 Head {h00=0x0010, h01=0x0050, text=»CLODEL EQU *«, t00=0x0058, t01=0x013e}
0x8ab2…8ac4 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A9«, t00=0x0058, t01=0x0152}
0x8ac4…8ae2 Head {h00=0x001a, h01=0x0050, text=» SLL A7,2 2 WORD INDEX«, t00=0x0058, t01=0x0164}
0x8ae2…8b06 Head {h00=0x0020, h01=0x0050, text=» LD A1,OPELRN,A7 LAST REC NR«, t00=0x0058, t01=0x0182}
0x8b06…8b20 Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:FR,A12 «, t00=0x0059, t01=0x0016}
0x8b20…8b3a Head {h00=0x0016, h01=0x0050, text=» LD A1,OPELRN+2,A7«, t00=0x0059, t01=0x0030}
0x8b3a…8b56 Head {h00=0x0018, h01=0x0050, text=» ST A1,FPB:FR+2,A12 «, t00=0x0059, t01=0x004a}
0x8b56…8b6e Head {h00=0x0014, h01=0x0050, text=» LC A7,OPEFNR,A9«, t00=0x0059, t01=0x0066}
0x8b6e…8b82 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0059, t01=0x007e}
0x8b82…8ba6 Head {h00=0x0020, h01=0x0050, text=» RF(Z) CLDL20 NO FILE OPENED«, t00=0x0059, t01=0x0092}
0x8ba6…8bc8 Head {h00=0x001e, h01=0x0050, text=» ST A7,ECBFC-1,A8 FILE NR «, t00=0x0059, t01=0x00b6}
0x8bc8…8bf0 Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 PAR BLOCK ADDR «, t00=0x0059, t01=0x00d8}
0x8bf0…8c1a Head {h00=0x0026, h01=0x0050, text=» CF A14,CLRBUF CLEAR FREE BUFFERS «, t00=0x0059, t01=0x0100}
0x8c1a…8c40 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A13 MAIN FDB ADDRESS «, t00=0x0059, t01=0x012a}
0x8c40…8c4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0150}
0x8c4e…8c68 Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=1 =8 «, t00=0x0059, t01=0x015e}
0x8c68…8c82 Head {h00=0x0016, h01=0x0050, text=» LC A7,DWTOPT,A11 «, t00=0x0059, t01=0x0178}
0x8c82…8ca2 (90, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ANK A7,/4F TEST MASK =5«, t00=0x005a, t01=0x0004}
0x8ca2…8cb8 Head {h00=0x0012, h01=0x0050, text=» SUK A7,2 =5 «, t00=0x005a, t01=0x0024}
0x8cb8…8cfc Head {h00=0x0040, h01=0x0050, text=» RF(Z) DELETE CLOSE DISCARD,OPEN OUT SEQ OR OPEN OUT RAN =5 «, t00=0x005a, t01=0x003a}
0x8cfc…8d0e Head {h00=0x000e, h01=0x0050, text=» XIF =8 «, t00=0x005a, t01=0x007e}
0x8d0e…8d2a Head {h00=0x0018, h01=0x0050, text=» CF A14,FMIOCL CLOSE«, t00=0x005a, t01=0x0090}
0x8d2a…8d44 Head {h00=0x0016, h01=0x0050, text=» IFT CRDEEX=1 =8 «, t00=0x005a, t01=0x00ac}
0x8d44…8d56 Head {h00=0x000e, h01=0x0050, text=» RF CLDL10«, t00=0x005a, t01=0x00c6}
0x8d56…8d6a Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x005a, t01=0x00d8}
0x8d6a…8d88 Head {h00=0x001a, h01=0x0050, text=» CF A14,FMIODL DELETE «, t00=0x005a, t01=0x00ec}
0x8d88…8d9c Head {h00=0x0010, h01=0x0050, text=»CLDL10 EQU *«, t00=0x005a, t01=0x010a}
0x8d9c…8dae Head {h00=0x000e, h01=0x0050, text=» XIF =8 «, t00=0x005a, t01=0x011e}
0x8dae…8dd8 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTECB,A11 USER ECB ADDRESS«, t00=0x005a, t01=0x0130}
0x8dd8…8dfa Head {h00=0x001e, h01=0x0050, text=» ORS A1,ECBRC,A2 SEND CODE«, t00=0x005a, t01=0x015a}
0x8dfa…8e0e Head {h00=0x0010, h01=0x0050, text=»CLDL20 EQU *«, t00=0x005a, t01=0x017c}
0x8e0e…8e34 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A13 MAIN FDB ADDRESS «, t00=0x005a, t01=0x0190}
0x8e34…8e52 Head {h00=0x001a, h01=0x0050, text=» ABL OPEE10 NEXT FILE «, t00=0x005b, t01=0x0026}
0x8e52…8e5e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x005b, t01=0x0044}
0x8e5e…8e62 Head {h00=0x4004, h01=0x0000}
0x8e62…8e66 00 5b 00 50 ┆ [ P┆
0x8e66…8e6e (92, 1, 8) 20 04 00 00 00 5c 00 04 ┆ ┆