|
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: 46164 (0xb454)
Notes: pts_type(SC)
Names: »SDMTSK.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/SDMTSK.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/SDMTSK.SC«
IDENT SDMTSK REL 11.0 81-05-13 870105041100 =B, REW. AND DEL. INDEXED,NO RELEASE OF KEY BLK BUF =B, REL 11.0 81-05-12 =A, CONDITION FOR CR,DE,EX =A, REL 11.0 81-04-15 =9, REWRITE WITH DUP KEY DIDN'T WORK =9, REL 11.0 81-03-09 =8, DELETE DIRECT INDEXED DIDN'T WORK =8, REL 11.0 81-03-09 =7, W.R.I. KEYS NOT CORRECT WRITTEN =7, REL 11.0 81-02-26 =6, DELETE,REWRITE DIRECT INDEXED REFORMED =6, REL 11.0 81-02-25 =5, CURRENCY NOT CORRECT WHEN START INDX =5, REL 11.0 81-02-24 =4, MOV:SU DON'T WORK WHEN TASK NOT IN TCTAB =4, REL 11.0 81-02-12 ,LIKE SDM TASK =3, COMPARE KEYS WRONG FDB ADDRESS =3, REL 11.0 81-02-06 =2, INTERN ORDER START N.L WRONG =2, REL 11.0 81-02-06 =1, REG. CRASH WHEN COMP. KEYS =1, REL 11.0 81-01-26 **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * SDMTSK = HANDLES DATAMANAGEMENT DISC I/O * * * * * **************************************************** * * THIS MODULE IS ACTIVATED FROM TIODM. * * INPUT PARAMETERS: * A1 = FDB ADDRESS * A2 = TID TASK IDENT OF SDMTSK AT PRESENT NOT USED * * THE BLOCK TO BE ACCESSED IS DEFINED IN FDB (FDBDMI, , -SNR). * ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS BLOCK * IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET * TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT * THE BLOCK MUST FIRST BE READ INTO A FREE BUFFER. * EJECT * *************** * ENTRIES * *************** * * ENTRY SDMTSK * * FOLLOWING ENTRIES ARE USED BY MODULE DMOPCL ENTRY SDMERX,ORDFLP EJECT * ***************** * EXTERNALS * ***************** * * * DEFINED IN TDISP EXTRN PRUN TTAB ADDRESS OF RUNNING TASK * DEFINED IN TOSSIO EXTRN TENDIO EXTRN ECBBA,ECBRL,ECBEL,ECBRC,ECBCW EXTRN DWTTAB,DWTOPT,DWTECB,DWTOR EXTRN TTB:PW =4 * DEFINED IN FMTASK EXTRN FWTFNR EXTRN FPB:EL * DEFINED IN TIODM EXTRN FDBADF,FDBAI1,FDBBLZ,FDBDBR EXTRN FDBECB,FDBENL,FDBKA,FDBKEY EXTRN FDBLRN,FDBMRO,FDBOMD,FDBRLE EXTRN FDBRRO,FDBSNR,FDBTNR EXTRN PROT,KEYERR,NXTKYS,EOFERR EXTRN EOFRC,NODERR,PROERR,EOMERR EXTRN CRNCDF EXTRN DMTTSB A14 STACK BASE EXTRN DMXACD EXIT RUNNING TASK AND ACTIVATE #D EXTRN SDMSTS STACK START EXTRN SDMBF1,SDMBF2 EJECT * DEFINED IN TIOSDM EXTRN SDMOOR,SDMLIM,SDMOEX,SDMOOS EXTRN SDMOIP,SDMIOP * DEFINED IN SDMSUB EXTRN CALSNO EXTRN EATEST,EASETB,CRNGET,GTBKBU EXTRN MOV:US,MOV:SU,MOVFW,MOVBW EXTRN RELPRO EXTRN FMIORD,FMIOWR,FMIORF,FMIOEX EXTRN FRMFIL EXTRN RLBLKB,CHKRCD EXTRN GTLGRN EXTRN CRNUPD,CRNCIF EXTRN CHKKEY EXTRN RDNXTR EXTRN RECECB MOVE RECORD NUMBER TO ECBCW1,ECBCW2 EXTRN FNDKEY * DEFINED IN DMBUF EXTRN BUFSNR,BUFOR,BUFSTA EXTRN SDMRBU RELEASE A DISC BUFFER EXTRN SDMRLB * DEFINED IN DMOPCL EXTRN SDMOPN,SDMCLO,SDMRFP EXTRN OPEFPB * DEFINED IN DSUMOD EXTRN DSUMOD EJECT * * * ************************ * CONDITIONAL ASSEMBLY * ************************ * X:A EQU 0 X:B EQU 0 =A * NOT SYSGEN SUPPORTED Y:A EQU 1 Y:B EQU 1 * * INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH * INDXAC EQU 1 = INDEX ACCESS INCLUDED * INDXAC EQU 0 = INDEX ACCESS FUNCTIONS OMITTED INDXAC EQU X:A INSLAS EQU Y:A INSERT SAME KEY LAST WHEN = 1 * A VERSION LEAVING OUT OPEN MODES: * OPEN OUTPUT,OPEN EXTEND AND DISCARD * IS OBTAINED BY SETTING Y:C=0 * CRDEEX EQU X:B =A * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * KEYDUP=1 MEANS THAT PRIMARY INDEX (I1) DON'T * ALLOW DUPLICATE KEY WHEN READ OR WRITE * KEYDUP EQU Y:B EJECT *************** * CONSTANTS * *************** FMFPBL EQU 80 FILE PARAMETER BLOCK LENGTH EJECT * ************************ * DATA DEFINITIONS * ************************ * * THE FOLLOWING INTERNAL ORDER CODES ARE THE * RELATIVE POSITION IN ORDTAB * ORDER FROM TIOSDM IS CHANGED AS FOLLOWED * DWTOR TIOSDM DWTOR AFTER CHANGE A7 * 0<X<=7 NOT CHANGED 0 * X>7 ODD X=(X+17)/2 - * X>7 EVEN X=(X-8)/2 - * ORDERS EQU * OROPEN EQU *-ORDERS DATA SDMOPN OPEN ORDRM0 EQU *-ORDERS DATA RDRM00 READ RANDOM ORDSQ0 EQU *-ORDERS DATA RDSQ00 READ SEQUENTIAL OWRRM0 EQU *-ORDERS DATA WRRM00 WRITE RANDOM OWRSQ0 EQU *-ORDERS DATA WRSQ00 WRITE SEQUENTIAL OREWR0 EQU *-ORDERS DATA REWR00 REWRITE NOT INDEXED (DIRECT,CURRENT) EJECT ODELT0 EQU *-ORDERS DATA DELT00 DELETE NOT INDEXED (DIRECT,CURRENT) OSTRTD EQU *-ORDERS DATA STRTDI START DIRECT (EQUAL,GREATER,NOT LESS) OEXTND EQU *-ORDERS DATA EXTEND EXTEND FILE OCLOSE EQU *-ORDERS DATA SDMCLO CLOSE ORDFLP EQU *-ORDERS DATA SDMRFP READ FILE PARAMETERS IFT INDXAC=1 EJECT * * INDEX ORDERS * ORDRMX EQU *-ORDERS DATA RDRMIX READ RANDOM INDEXED ORDSQX EQU *-ORDERS DATA RDSQIX READ SEQUENTIAL INDEXED OWRRMX EQU *-ORDERS DATA WRRMIX WRITE RANDOM INDEXED OWRSQX EQU *-ORDERS DATA DMTERR WRITE SEQUENTIAL INDEXED (NOT ALLOWED) OREWRX EQU *-ORDERS DATA REWRIX REWRITE INDEXED (DIRECT,CURRENT) ODELTX EQU *-ORDERS DATA DELTIX DELETE INDEXED (DIRECT,CURRENT) OSTRTX EQU *-ORDERS DATA STRTIX START INDEXED (EQUAL,GREATER,NOT LESS) XIF EJECT * * ORDER INDEX TABLE * BYTE FORM 8,8 ORDTAB EQU * BYTE OCLOSE,ORDFLP CLOSE,READ FILE PARAMETERS BYTE OWRSQ0,OWRRM0 WRITE SEQUENTIAL,WRITE RANDOM BYTE OREWR0,OREWR0 REWRITE NOT INDEXED BYTE ODELT0,ODELT0 DELETE NOT INDEXED BYTE ORDSQ0,ORDRM0 READ SEQUENTIAL,READ RANDOM BYTE OSTRTD,OSTRTD START DIRECT BYTE OSTRTD,OCLOSE START DIRECT,CLOSE ORDTEX EQU *-ORDTAB IFT INDXAC=0 BYTE OEXTND,0 EXTEND XIF IFT INDXAC=1 BYTE OEXTND,OWRSQX EXTEND,WRITE SEQUENTIAL INDEXED BYTE OWRRMX,OREWRX WRITE RANDOM INDEXED,REWRITE INDEXED BYTE OREWRX,ODELTX REWRITE INDEXED,DELETE INDEXED BYTE ODELTX,ORDSQX DELETE INDEXED,READ SEQUENTIAL INDEXED BYTE ORDRMX,OSTRTX READ RANDOM INDEXED,START INDEXED BYTE OSTRTX,OSTRTX START INDEXED XIF ORDEXT EQU ORDTEX+ORDTEX-17 TIOSDM ORDER FOR EXTEND EJECT ************** * SDMTSK * ************** * SDMTSK EQU * * * SET UP A14 STACK * LD A14,PRUN ADKL A14,DMTTSB STACK BASE LDR A11,A1 FDB ADDR LDR A8,A11 ADKL A8,FDBECB FDB ECB ADDRESS LD A9,DWTECB,A11 USER ECB ADDRESS LDK A7,OROPEN LD A5,DWTOR,A11 ORDER CODE FROM TIOSDM ANK A5,/7F SUKL A5,SDMLIM LIMIT BETWEEN OPEN AND CLOSE RF(N) DMT100 OPEN ORDER LDK A7,2 MASK BIT TM A7,A5 RF(Z) DMT010 ORDER CODE EVEN ADK A5,50 CORRECT ORDER INDEX DMT010 EQU * SRL A5,2 INDEX IN ORDER TABLE LC A7,ORDTAB,A5 NEW ORDER INDEX SC A7,DWTOR+1,A11 SAVE NEW INTERN ORDER INDEX LD A5,FDBRRO,A11 EJECT * * READ RANDOM INDEXED,START INDEXED * DELETE DIRECT INDEXED,REWRITE DIRECT INDEXED * OPEN AND READ FILE PARAMETERS DON'T NEED ANY * BLOCK BUFFER YET RF(N) DMT090 NO BLOCK BUFFER YET DMT015 EQU * =8 LD A4,FDBADF,A11 DATA FILE CM FDBKA,A4 MARK 1ST PASS DELETE INDEXED DMT020 EQU * * * LOOP ENTRY FOR * READ RANDOM INDEXED,READ SEQUENTIAL INDEXED * DELETE INDEXED,START AND READ SEQUENTIAL * CF A14,FNDBLB FIND BLOCK BUFFER IFT CRDEEX=0 ABL(N) DMTERR I/O ERROR ABL(P) SDMERX EOF WHEN READ SEQUENTIAL EXTEND EQU * =A XIF IFT CRDEEX=1 RF(Z) DMT090 I/O OK ABL(P) SDMERX EOF WHEN READ SEQUENTIAL EJECT * * TEST IF EXTEND SHOULD BE DONE * LD A7,DWTOR,A11 ANK A7,/3F ORDER INDEX CWK A7,OEXTND RF(E) DMT030 ORDER EXTEND SUK A7,OWRSQ0 RF(NZ) DMTER NOT WRITE SEQUENTIAL DMT030 EQU * LDR A2,A1 SLL A2,2 RF(NN) DMTER NOT END OF FILE LD A2,FDBENL,A11 ENLARGE FACTOR RF(Z) DMTER NO ENLARGE FACTOR DECLARED ADK A7,0 RF(NZ) DMT090 ORDER EXTEND LDKL A1,SDMOEX TIOSDM ORDER FOR EXTEND SC A1,DWTOR+1,A11 CF A14,SDMRLB RELEASE BLOCK BUFFER LDKL A8,SDMTSK DISPATCH ENTRY LDR A6,A11 FDB ADDRESS ABL DMXACD EXIT AND ACTIVATE #D DMTER EQU * ABL DMTERR ERROR EJECT XIF DMT090 EQU * LD A7,DWTOR,A11 LDR A2,A7 OPTION AND ORDER CODE ANK A7,/3F A7=INTERNAL ORDER CODE DMT100 EQU * LDKL A12,OPEFPB FPB ADDRESS FOR OPEN CLOSE READ FILE PARAM. * (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 ) ABI ORDERS,A7 SDMTSK FUNCTION EJECT *********************************************** * * * R E A D S E Q U E N T I A L * * R E A D R A N D O M * * S T A R T D I R E C T * * * *********************************************** RDSQ00 EQU * SEQUENTIAL READ RDRM00 EQU * RANDOM READ STRTDI EQU * START DIRECT * * CHECK STATUS * CF A14,CHKSTS CHECK STATUS RF(NZ) DMT200 STATUS=USED * * RECORD STATUS=NOT USED * SUK A7,ORDRM0 ABL(Z) DMERND READ RANDOM,NO DATA SUK A7,OSTRTD-ORDRM0 RF(NZ) DMT250 READ SEQUENTIAL * * START DIRECT * LC A3,DWTOPT,A11 ANK A3,7 OPTION RF(NZ) DMT250 OPTION DEFINED RF DMT230 NO OPTION EJECT * * RECORD STATUS=USED * DMT200 EQU * SUK A7,OSTRTD RF(Z) DMT230 START DIRECT LD A3,ECBRL,A9 REQ LGTH LD A2,FDBRLE,A11 RECORD LENGTH CWR A3,A2 RF(NG) DMT220 LDR A3,A2 MAX LENGTH DMT220 EQU * ST A3,ECBEL,A9 SET EFFECTIVE LENGTH * * MOVE THE RECORD * LD A1,FDBRRO,A11 ADR A1,A5 SOURCE ADDRESS LD A2,ECBBA,A9 DESTINATION ADDRESS IFT MMUPAG=0 CF A14,MOVFW MOVE RECORD TO USER XIF IFT MMUPAG=1 LD A4,DWTTAB,A11 TTAB ADDRESS LD A7,TTB:PW,A4 PSW FOR THIS TASK =4 ANK A7,1 SYSTEM,USER MODE BIT =4 RF(NZ) DMT225 USER MODE =4 CF A14,MOVFW MOVE RECORD =4 RF DMT230 =4 DMT225 EQU * =4 CF A14,MOV:SU MOVE RECORD TO USER XIF * * UPDATE CRN AND SET EXCLUSIVE ACCESS BIT * DMT230 EQU * ABL DMT400 PUT CRN AND EA EJECT * * STATUS BYTE = NOT USED AND ORDER IS SEQ. READ OR * START DIRECT WITH OPTION * DMT250 EQU * NO DATA AT SEQ READ * * GET NEXT RECORD * ADK A2,1 RF(P) DMT260 NOT OVERFLOW OR NEGATIVE LDK A2,0 ADK A1,1 DMT260 EQU * ST A1,ECBCW,A9 ST A2,ECBCW+2,A9 * * ENTRY ALSO FOR READ RANDOM INDEXED AND START INDEXED * DMT280 EQU * * * CHECK EA * LD A1,ECBCW,A9 LD A2,ECBCW+2,A9 REC NR CF A14,EATEST ABL(N) DMEAER PROTECT ERROR IFT INDXAC=1 LD A4,DWTOR,A11 ORDER ANK A4,/3F CWK A4,OSTRTX RB(E) DMT230 START INDEXED XIF EJECT CF A14,CALSNO PREP IO ABL(NZ) DMTERR OUT OF MEDIUM LC A3,FDBDBR,A11 DELAY ANK A3,/10 RF(NZ) DMT290 KEEP BUFFER * * RELEASE BLOCK BUFFER * CF A14,SDMRLB RELEASE BLOCK BUFFER * * TAKE NEXT RECORD * DMT290 EQU * RB DMT020 NEXT RECORD IFT CRDEEX=1 EJECT ***************************** * E X T E N D F I L E * ***************************** EXTEND EQU * LD A4,ECBBA,A8 BLOCK BUFFER ADDRESS LDKL A3,OPEFPB BUFFER FOR FILE PARAMETER BLOCK ST A3,ECBBA,A8 BUFFER ADDRESS IN ECB LDK A2,FMFPBL FILE PARAMETER BLOCK LENGTH ST A2,ECBRL,A8 CF A14,FMIORF READ FILE PARAMETERS LD A1,FDBENL,A11 ENLARGE FACTOR ST A1,FPB:EL,A3 FILL IN ENLARGE CF A14,FMIOEX EXTEND FILE ST A4,ECBBA,A8 SET BLOCK BUFFER ADDRESS RB(NZ) DMTER ERROR CF A14,FRMFIL FORMAT FILE RB(NZ) DMTER ERROR WHEN FORMATTING LDK A7,OWRSQ0 WRITE SEQUENTIAL ORDER SC A7,DWTOR+1,A11 ABL DMT020 TRY WRITE SEQUENTIAL AGAIN XIF EJECT *********************************************** * * * D E L E T E I N D E X E D * * R E W R I T E I N D E X E D * * * *********************************************** DELTIX EQU * DELETE INDEXED REWRIX EQU * REWRITE INDEXED IFT INDXAC=1 ANKL A2,/100 RF(Z) DELT00 NOT DIRECT CF A14,FNDKYP SET PARAM AND THEN FNDKEY ABL(NZ) DMIER2 KEY NOT FOUND LD A9,DWTECB,A11 ECB ADDRESS CF A14,RECECB MOVE RECORD NUMBER TO ECB CF A14,SDMRBU REALEASE BLOCK BUFFER =B LD A1,DWTOR,A11 INTERN ORDER INDEX =6 LD A11,FDBADF,A11 FDB ADDRESS DATA FILE =6 ANKL A1,/FEFF INDICATE CURRENT INSTEAD OF DIRECT =6 ST A1,DWTOR,A11 SAVE IN FDB DATA FILE =6 LD A1,ECBCW,A9 LD A2,ECBCW+2,A9 CF A14,EATEST ABL(N) DMEAER EA OTHER TASK CF A14,CALSNO GET SECTOR NUMBER AND OFFSET IN SECTOR ABL(NZ) SDMERX ERROR LDR A8,A11 =6 ADKL A8,FDBECB SDM ECB ADDRESS =6 ABL DMT015 GET BLOCK BUFFER =6 =8 XIF EJECT *********************************************** * * * W R I T E S E Q U E N T I A L * * W R I T E R A N D O M * * R E W R I T E N O T I N D E X E D * * D E L E T E N O T I N D E X E D * * W R I T E R A N D O M I N D E X E D * * * *********************************************** WRSQ00 EQU * WRITE SEQUENTIAL WRRM00 EQU * WRITE RANDOM WRRMIX EQU * WRITE RANDOM INDEXED REWR00 EQU * REWRITE NOT INDEXED DELT00 EQU * DELETE NOT INDEXED * * TEST IF OPENED OUTPUT SEQUENTIAL * CF A14,CHKSTS A10=POINTER TO RECORD STATUS LC A1,FDBOMD,A11 ANK A1,/FF CWK A1,SDMOOS RF(E) DMS110 OUTPUT SEQ.,DON'T CHECK STATUS * * CHECK STATUS * CF A14,CHKSTS CHECK RECORD STATUS RF(Z) DMS110 RECORD STATUS=NOT USED EJECT * * RECORD STATUS=USED * IFT INDXAC=1 LDR A4,A7 SUK A4,OWRRMX RF(Z) DMS100 WRITE RANDOM INDEXED XIF LDR A4,A7 SUK A4,OWRRM0 RF(Z) DMS100 WRITE RANDOM SUK A4,OWRSQ0-OWRRM0 RF(NZ) DMS120 NOT WRITE SEQUENTIAL DMS100 EQU * RF DMERPR PROTECTED EJECT * * RECORD STATUS=NOT USED * DMS110 EQU * IFT INDXAC=1 LDR A4,A7 SUK A4,OREWRX RF(Z) DMERND REWRITE INDEXED SUK A4,ODELTX-OREWRX RF(Z) DMERND DELETE INDEXED XIF LDR A4,A7 SUK A4,OREWR0 RF(Z) DMERND REWRITE NOT INDEXED SUK A4,ODELT0-OREWR0 RF(Z) DMERND DELETE NOT INDEXED DMS120 EQU * CF A14,EATEST RF(N) DMEAER EA OTHER TASK EJECT LDK A3,0 STATUS FREE IFT INDXAC=1 LDR A2,A7 SUK A2,OWRRMX RF(E) CHK010 WRITE RANDOM INDEXED SUK A2,OREWRX-OWRRMX RF(E) CHK010 REWRITE INDEXED LD A1,FDBKA,A11 RF(NZ) DMT350 DELETE INDEXED (SECOND PASS) SUK A2,ODELTX-OREWRX RF(E) CHK010 DELETE INDEXED XIF LDR A2,A7 SUK A2,ODELT0 RF(E) DMT350 DELETE NOT INDEXED IFT INDXAC=0 RF DMT320 XIF IFT INDXAC=1 RF DMT310 EJECT CHK010 EQU * * REWRITE INDEXED,WRITE RANDOM INDEXED AND DELETE INDEXED ENTERS HERE * * COMPARE KEYS IN FILE AND USER BUFFER * LDK A4,8 MAX 4 INDEX CHK040 EQU * SUK A4,2 RF(N) CHK100 ALL INDEX CHECKED LDR A2,A11 FDB ADD ADR A2,A4 LD A6,FDBAI1,A2 FDB ADDR INDEX FILE RB(Z) CHK040 NO INDEX LD A2,DWTOR,A11 ANK A2,/3F ORDER INDEX SUK A2,OWRRMX RB(Z) CHK040 NO CHECK ON INSERT SUK A2,OREWRX-OWRRMX RF(Z) CHK050 CHECK REWRITE LC A2,DWTOPT,A11 OPTION ANK A2,/4 RB(NZ) CHK040 NO CHECK ON DEL CURRENT EJECT * =3 * A6=FDB ADDRESS INDEX FILE =3 * =3 CHK050 EQU * LD A9,DWTECB,A11 GET USER ECB =9 IFT MMUPAG=1 LD A1,FDBKA,A6 GET KEY START ADDRESS =3 AD A1,ECBBA,A9 LDKL A2,FDBKEY GET KEY SAVE AREA DISPLACEMENT ADR A2,A6 GET KEY AREA POINTER =3 LD A3,FDBRLE,A6 RECORD LENGTH =3 SUK A3,6 KEY LENGTH LDR A9,A4 SAVE A4 =1 LD A4,DWTTAB,A11 GET TTAB ADDRESS CF A14,MOV:US MOVE KEY TO FDB KEY AREA LDR A4,A9 RESTORE A4 =1 LD A9,FDBKA,A6 GET KEY START DISPLACEMENT =3 XIF IFT INDXAC=1 IFT MMUPAG=0 LD A2,ECBBA,A9 USER BUFFER ADDRESS LD A9,FDBKA,A11 KEY START ADDRESS ADR A2,A9 XIF IFT INDXAC=1 EJECT LDR A1,A2 ENTRY KEY ADDRESS AD A9,FDBRRO,A11 ADR A9,A5 KEY IN FILE LDK A7,0 LD A6,FDBRLE,A6 RECORD LENGTH SUK A6,6 KEY LENGTH CF A14,CHKKEY COMPARE KEYS CWR A6,A7 RB(E) CHK040 KEY UNCHANGED CHECK NEXT RF DMERPR PROTECTED * =3 * END OF CHECK KEY LOOP =3 * =3 CHK100 EQU * LD A7,DWTOR,A11 ANK A7,/3F ORDER INDEX XIF EJECT * * MOVE RECORD * DMT310 EQU * IFT INDXAC=1 SUK A7,ODELTX RF(NZ) DMT320 NOT DELETE INDEXED * * MOVE KEYS TO FDB KEY AREAS * LDK A4,8 IXINS3 EQU * LDR A3,A11 FDB DATA ADR A3,A4 LD A2,FDBADF,A3 FDB INDEX RF(Z) IXINS4 NO INDEX LD A1,FDBKA,A2 KEY ADDR AD A1,FDBRRO,A11 REC OFFS ADR A1,A5 BUFFERADDR GIVES KEY ADDR LD A3,FDBRLE,A2 RECORD LENGTH SUK A3,6 KEY LGTH ADKL A2,FDBKEY TO ADDR CF A14,MOVFW KEY TO FDB AREA IXINS4 EQU * SUK A4,2 RB(NZ) IXINS3 MORE INDEXS ABL DMXDEL DELETE INDEXED XIF EJECT ******************** * * * E R R O R * * * ******************** DMERPR EQU * LDKL A1,PROT PROTECTED RF DMERR DMERND LDKL A1,NODERR NO DATA RF DMERR DMEAER EQU * RELEASE EA FOR ALL FILES LC A3,FDBTNR,A11 USER TASK ID ANK A3,/FF CF A14,RELPRO RELEASE PROTECT LDKL A1,PROERR PROTECT ERR DMERR EQU * RF DMTERR EJECT * * MOVE RECORD FROM USER TO SYSTEM AREA * DMT320 EQU * LD A9,DWTECB,A11 USER ECB ADDRESS LD A3,FDBRLE,A11 RECORD LENGTH LD A2,FDBRRO,A11 ADR A2,A5 TO ADDRESS LD A1,ECBBA,A9 FROM ADDRESS IFT MMUPAG=0 CF A14,MOVFW XIF IFT MMUPAG=1 LD A4,DWTTAB,A11 GET TTAB ADDRESS CF A14,MOV:US MOVE RECORD FROM USER TO SYSTEM AREA XIF EJECT * * * SET STATUS USED * LDK A3,/FF DMT350 SCR A3,A10 LD A3,FDBDBR,A11 RF(NN) DMT390 NO DELAY * * DELAY * LDKL A2,/1000 ORS A2,FDBDBR,A11 KEEP BUFFER RF DMT400 * * WRITE BLOCK TO DISC * DMT390 EQU * CF A14,FMIOWR RF(NZ) DMTERR EJECT * * SET CURRENCY AND EXCLUSIVE ACCESS * DMT400 EQU * CF A14,CRNGET GET CURRENCY BUFFER LDR A10,A2 BUFFER ADDR LD A1,ECBCW,A9 LD A2,ECBCW+2,A9 LOG REC NR LD A7,DWTOR,A11 ANK A7,/3F ORDER INDEX LDR A4,A7 SUK A4,OWRRM0 RF(Z) DMT450 WRITE RANDOM SUK A4,OWRSQ0-OWRRM0 RF(Z) DMT440 WRITE SEQUENTIAL SUK A4,OREWR0-OWRSQ0 RF(Z) DMT450 REWRITE NOT INDEXED IFT INDXAC=1 SUK A4,OREWRX-OREWR0 RF(Z) DMT450 REWRITE INDEXED ADK A4,OREWRX-OWRRMX RF(Z) DMT440 WRITE RANDOM INDEXED SUK A4,OSTRTX-OWRRMX RF(Z) DMT410 START INDEXED XIF LDR A4,A7 ORDER INDEX SUK A4,OSTRTD RF(NZ) DMT430 NOT START DIRECT EJECT * * START A1,A2=LOGICAL RECORD NUMBER * * LRN=LRN-1 * DMT410 EQU * LDR A3,A1 LDR A4,A2 SUK A4,1 RF(NN) DMT420 ANKL A4,/7FFF SUK A3,1 * * SET NEW CURRENT RECORD NUMBER * DMT420 EQU * ST A3,CRNCDF,A10 NEW CURRENCY ST A4,CRNCDF+2,A10 RF DMT450 * * SET CURRENT RECORD NUMBER * DMT430 EQU * ST A1,CRNCDF,A10 ST A2,CRNCDF+2,A10 CRN DATA FILE RF DMT450 * * UPDATE LRN * DMT440 EQU * SC A1,FDBLRN,A11 ST A2,FDBLRN+1,A11 EJECT DMT450 EQU * * * CHECK PROTECT * LC A4,FDBOMD,A11 OPEN MODE ANK A4,/FF CWK A4,SDMOIP RF(E) DMT460 OPEN INPUT PROTECTED CWK A4,SDMIOP RF(NE) DMT470 NOT OPEN INPUT OUTPUT PROTECTED * * CHECK IF EA IS SET ALREADY * DMT460 EQU * CF A14,EATEST CHECK EA RF(NZ) DMT470 EA ALREADY SET * * SET EA * CF A14,EASETB DMT470 EQU * LDK A1,0 SET RETURN CODE IFT INDXAC=1 LDK A4,OWRRMX CWR A7,A4 ABL(E) DMINS2 WRITE RANDOM INDEXED XIF EJECT *************************************** * * * E X I T D M T A S K * * * *************************************** * DMTERR EQU * LC A4,FDBDBR,A11 ANK A4,/10 RF(NZ) SDMERX KEEP BUFFER CF A14,SDMRLB RELEASE BLOCK BUFFER SDMERX EQU * LD A6,FDBADF,A11 GET FDB DATA FILE INH * * A1 = RET CODE * A6 = DWT ADDR * CF A15,TENDIO ENB LKM DATA 3 IFT INDXAC=1 EJECT ************************************************ * * * R E A D R A N D O M I N D E X E D * * S T A R T I N D E X E D * * * ************************************************ RDRMIX EQU * READ RANDOM INDEXED STRTIX EQU * START INDEXED CF A14,FNDKYP SET PARAM AND THEN FNDKEY * * ENTRY ALSO FOR READ SEQUENTIAL INDEXED * DMR100 EQU * FROM READ SEQUENTIAL INDEXED LD A9,DWTECB,A11 LD A2,DWTOR,A11 ANK A2,/3F ORDER SUK A2,OSTRTX RF(NZ) DMR110 NOT START LC A2,DWTOPT,A11 ANK A2,7 OPTION RF(Z) DMR110 EQUAL ANKL A1,/FBFF IGNORE NOKEY DMR110 EQU * SUK A1,1 RF(Z) DMIER4 NOT OPERABLE ADK A1,1 RF(NZ) DMIER1 KEY NOT FOUND CF A14,RECECB MOVE RECORD NUMBER TO ECB EJECT * * SET CRN * LDR A13,A11 SAVE FDB INDEX FILE LD A11,FDBADF,A11 FDB DATA FILE LD A5,DWTOR,A13 GET INTERN ORDER INDEX =5 ANK A5,/3F ORDER INDEX LDR A12,A11 FDB DATA FILE CF A14,CRNGET GET CRN BUFFER ADDR LDR A10,A2 CRN BUFFER ADDR LDR A11,A13 FDB INDEX FILE CF A14,GTLGRN GET INDE X LOG REC NO LDK A7,ORDRM0 RANDOM READ SUK A5,OSTRTX RF(NE) DMR120 INDEXED READ LDK A7,OSTRTX START INDEXED SUK A2,1 RF(NN) DMR120 NOT UNDERFLOW ANKL A2,/7FFF SUK A1,1 DMR120 EQU * SC A1,CRNCIF+1,A10 ST A2,CRNCIF+2,A10 CRN INDEX FILE LD A2,ECBCW,A9 REC NR DATA ST A2,CRNCDF,A10 LD A2,ECBCW+2,A9 ST A2,CRNCDF+2,A10 LC A2,FWTFNR,A11 FILE NR SC A2,CRNCIF,A10 LDR A11,A12 FDB DATA FILE SC A7,DWTOR+1,A11 NEW ORDER LDKL A2,/CFFF ANS A2,FDBDBR,A11 RELEASE INDEX BUFFERS ABL DMT280 EJECT ***************************************************** * * * R E A D S E Q U E N T I A L I N D E X E D * * * ***************************************************** RDSQIX EQU * READ SEQUENTIAL INDEXED LD A1,FDBRRO,A11 RECORD OFFSET LDR A4,A5 BUFFER ADDRESS SUKL A4,BUFSTA DMI100 EQU * CF A14,CHKRCD CHECK RECORD STATUS RF(E) DMI130 USED LD A3,FDBMRO,A11 ST A3,FDBRRO,A11 LAST RECORD IN BLOCK EJECT * * CHECK IF END OF FILE * CF A14,GTLGRN GET REC NR CC A1,FDBLRN,A11 RF(L) DMI120 NOT EOF RF(G) DMIER6 EOF CW A2,FDBLRN+1,A11 RF(NL) DMIER6 END OF FILE DMI120 EQU * CF A14,RDNXTR GET NEXT INDEX RECORD RB(NZ) DMI100 RECORD FOUND RF DMIER2 ERROR EJECT DMI130 EQU * * * INDEX RECORD IS FOUND * LD A9,DWTECB,A11 USER ECB * * KEY RECORD FOUND * CHECK IF NEXT RECORD HAS THE SAME KEY * LD A1,FDBRRO,A11 RECORD OFFSET ADKL A1,BUFSTA ADR A1,A4 REC ADDR LD A3,FDBRLE,A11 REC LENGTH SUK A3,6 KEY LENGTH ADR A1,A3 CC A3,2,A1 DUPLICATE KEY CHARACTER RF(NE) DMI140 NEXT KEY NOT SAME LDKL A1,NXTKYS BIT 6 ORS A1,ECBRC,A9 NEXT KEY SAME DMI140 EQU * LDK A1,0 MARK FOUND ABL DMR100 CONT AS FOR INDEXED RAND READ EJECT ******************** * * * E R R O R * * * ******************** DMIER1 LDKL A1,KEYERR KEY NOT FOUND RF DMIERR DMIER2 EQU * LDKL A1,NODERR NO IDENT DMIERR EQU * LDR A4,A4 BUFFER ADDR ABL(Z) SDMERX NO BUFFER ABL DMTERR ERROR AND BUFFER DMIER3 EQU * ANK A1,/27 RB(NZ) DMIERR BIT 10,13,14,15 LDKL A1,EOMERR GRAVE ERR ALSO RB DMIERR DMIER4 EQU * LDK A1,1 NOT OPERABLE RB DMIERR DMIER5 EQU * LDKL A1,PROT PROTECTED RB DMIERR DMIER6 EQU * LDKL A1,EOFERR RB DMIERR EJECT ***************************************************** * * * W R I T E R A N D O M I N D E X E D (P2) * * D E L E T E I N D E X E D * * * ***************************************************** DMINS2 EQU * WRITE RANDOM INDEXED PART 2 DMXDEL EQU * DELETE INDEXED LC A4,FDBDBR,A11 ANK A4,/10 RF(NZ) DXI010 KEEP BUFFER CF A14,SDMRLB RELEASE BLOCK BUFFER DXI010 EQU * LDK A5,10 LOOPER DXI020 EQU * NEXT INDEX LD A7,DWTOR,A11 ORDER ANK A7,/3F SUK A5,2 RF(Z) DXI100 ALL INDEXES LDR A1,A11 FDB DATA ADR A1,A5 LD A1,FDBADF,A1 FDB INDEX RB(Z) DXI020 NO INDEX LD A2,DWTOR,A11 ORDER ST A2,DWTOR,A1 LD A2,DWTECB,A11 USER ECB ADDR ST A2,DWTECB,A1 ST A5,FDBKA,A11 SAVE COUNTER LDR A11,A1 FDB ADDRESS INDEX FILE SUK A7,OWRRMX RF(E) DMINIX WRITE RANDOM INDEXED RF DMDELX DELETE INDEXED EJECT * * RETURN FROM UPDATING OF ONE INDEX * DMTAR5 EQU * LD A11,FDBADF,A11 FDB ADDRESS DATA FILE LD A5,FDBKA,A11 GET COUNTER OF INDEXES RB DXI020 TAKE NEXT INDEX * * END IF WRITE RANDOM INDEXED ELSE CONTINUE * DXI100 EQU * INDEXES READY LDK A1,0 RET CODE SUK A7,OWRRMX WRITE RANDOM INDEXED ABL(E) SDMERX READY ABL DMT020 RESTART SDMTSK EJECT ***************************************************** * * * W R I T E R A N D O M I N D E X E D * * D E L E T E I N D E X R E C O R D * * * ***************************************************** DMINIX EQU * WRITE RANDOM INDEXED IFT MMUPAG=0 * * GET KEY IN USER BUFFER * LD A9,FDBADF,A11 FDB ADDRESS DATA FILE LD A9,DWTECB,A9 USER ECB ADDRESS LD A9,ECBBA,A9 USER BUFFER AD A9,FDBKA,A11 KEY ADDRESS RF INS010 XIF IFT INDXAC=1 DMDELX EQU * DELETE INDEX RECORD LDR A9,A11 ADKL A9,FDBKEY KEY ADDR INS010 EQU * LDR A12,A9 LD A10,FDBRLE,A11 RECORD LENGTH SUKL A10,6 KEY LENGTH LDR A8,A14 ADKL A8,2 ECB ADDR TO RECORD BUFFER AREASS CF A14,FNDKEY GET INDEX RECORD ADK A4,0 RB(Z) DMIER3 NO SECTOR FOUND LDR A6,A7 NUMBER OF SAME CHARACTERS LD A9,DWTECB,A11 USER ECB ADDRESS LD A2,DWTOR,A11 ORDER CODE ANK A2,/3F SUK A2,ODELTX ABL(E) DEL000 DELETE INDEX RECORD EJECT * * SET RC BIT 6 TO USER IF NEXT KEY * IS SAME IN REQUESTED INDEX * ADK A1,0 RF(NZ) INS180 NEXT KEY NOT SAME IFT KEYDUP=1 CW A11,FDBAI1,A11 RB(E) DMIER5 FIRST INDEX XIF IFT INDXAC=1 LDKL A1,NXTKYS NEXT KEY SAME ORS A1,ECBRC,A9 SET RETURN CODE IFT INSLAS=1 EJECT * * INSERT SAME KEY LAST * LD A1,FDBRRO,A11 RECORD OFFSET RF INS100 INS080 EQU * CF A14,RDNXTR GET NEXT REC INS090 EQU * RB(Z) DMIER3 ERROR INS100 EQU * CF A14,CHKRCD CHECK RECORD STATUS RF(E) INS150 USED LD A3,FDBMRO,A11 ST A3,FDBRRO,A11 RB INS080 GET FIRST RE C IN NXT SECT INS150 EQU * LC A6,-4,A1 DUPLICATE KEY CHARACTER CWR A6,A10 CHECK KEY LENGTH RB(E) INS080 NEXT SAME GET NEXT EJECT * * UPDATE LAST SAME RECORD * SC A10,-4,A1 NEXT SAME LD A1,FDBRRO,A11 CW A1,FDBMRO,A11 RF(NE) INS160 SECT WRITTEN LATER * * WRITE BLOCK * CF A14,FMIOWR ABL(NZ) DMTERR * * GET NEXT RECORD * INS160 EQU * CF A14,RDNXTR GET NEXT RC INS170 EQU * RB(Z) INS090 GO TO DMIER3 IF ERROR XIF IFT INDXAC=1 EJECT INS180 EQU * * * CREATE AN INDEX RECORD IN AREA 1 * LDR A1,A12 FROM ADDR LDR A2,A14 ADKL A2,SDMBF1 TO ADDRESS LDR A3,A10 KEY LENGTH CF A14,MOVFW MOVE KEY SCR A3,A2 DUMMY ADK A2,1 SCR A3,A2 DUMMY ADK A2,1 SCR A6,A2 NR OF SAME CHAR ADK A2,1 LD A1,DWTECB,A11 USER ECB ADDRESS ADKL A1,ECBCW+1 SOURCE POINTER LDK A3,3 NUMBER OF CHARACTERS TO MOVE CF A14,MOVFW LDK A1,/FF USED SCR A1,A2 STATUS CHAR CF A14,GTLGRN GET REC NR INDEX * * SAVE RECORD NR FOR FIRST MOVED INDEX * LDR A12,A1 LDR A13,A2 EJECT * * BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING * USED RECORDS ROLLED FORWARD * A4,A10,A11 IS USED AT ENTRY ADKL A10,7 RECORD LENGTH TOTAL * * USE D REGISTERS * A11 = FDB ADDR INDEX * A9 = AREA ADDR * A10 = RECORD LENGTH INDEX * A5 = AREA INDEX 0=BUFAR1,1=BUFAR2 * A4 = BUFFER ADDRESS BLOCK * LDK A5,1 BUF ADR2 INS200 EQU * LDKL A9,SDMBF1 BUFFER 1 ADK A5,0 RF(Z) INS210 BUFAR1 LDKL A9,SDMBF2 BUFFER 2 INS210 EQU * ADR A9,A14 RECORD BUFFER ADDRESS * * SAVE LAST RECORD * LDR A1,A4 ADKL A1,BUFSTA AD A1,FDBMRO,A11 ADDR OF LAST REC IN SECT LDR A3,A10 LDR A2,A9 CF A14,MOVFW SAVE LAST RECORD EJECT * * MOVE REST OF BLOCK DOWN ONE RECORD POSITION * LDR A1,A4 ADKL A1,BUFSTA AD A1,FDBRRO,A11 FROM ADDR LDR A6,A1 LD A3,FDBMRO,A11 SU A3,FDBRRO,A11 NR OF CHAR LDR A2,A1 ADR A2,A10 TO ADDR CF A14,MOVBW MOVE * * INSERT NEW RECORD * LDKL A1,SDMBF2 ADK A5,0 RF(Z) INS250 BUFAR1 LDKL A1,SDMBF1 INS250 EQU * ADR A1,A14 FROM ADDR LDR A3,A10 NR OF CHAR LDR A2,A6 TO ADDR CF A14,MOVFW MOVE EJECT * * WRITE BUFFER * LDR A8,A14 USE STACK AS ECB :=S SUKL A8,SDMSTS 7 WORDS NEEDED :=S LC A2,FWTFNR,A11 VOL DEV CODE ANK A2,/FF STR A2,A8 LDR A2,A4 ADKL A2,BUFSTA ST A2,ECBBA,A8 SECTOR ADDR LC A2,FDBBLZ,A11 BLOCK SIZE SLL A2,8 IN BYTE ST A2,ECBRL,A8 LD A2,FDBSNR,A11 SECTOR NR ST A2,ECBCW,A8 SECTOR NR LD A3,FDBSNR+2,A11 ST A3,ECBCW+2,A8 SECT NR CF A14,FMIOWR ABL(NZ) DMTERR * * IF SPILLED RECORD IS FREE, OPERATION IS READY * LDR A2,A9 RECORD AREA ADDR ADR A2,A10 REC LGTH SUK A2,1 ADDR OF STATUS CHAR LD A3,FDBMRO,A11 ST A3,FDBRRO,A11 MAX OFFSET IN SECT CCR A1,A2 RF(Z) INS400 FREE RECORD EJECT * * GET NEXT BLOCK * LDR A9,A5 SAVE A5 =7 CF A14,RDNXTR GET RECORD (7 WORDS ON STACK) :=S LDR A5,A9 RESTORE REGISTER =7 ADK A4,0 SET CR =7 INS260 EQU * RB(Z) INS170 GO TO DMIER3 IF ERROR XRK A5,1 SWITCH KEY RECORD BUFFERS =7 RB INS200 INS400 EQU * * * UPDATE LRN IF EOF IS ENCOUNTERED * CF A14,GTLGRN CC A1,FDBLRN,A11 RF(L) INS430 NO EOF RF(G) INS410 EOF CW A2,FDBLRN+1,A11 RF(NG) INS430 NO EOF INS410 EQU * SC A1,FDBLRN,A11 LAST RECORD NUMBER ST A2,FDBLRN+1,A11 LD A9,DWTECB,A11 USER ECB ADDRESS LDKL A3,EOFRC END OF FILE ORS A3,ECBRC,A9 TO USER EJECT INS430 EQU * * * UPDATE CRN-LINK FOR MOVED INDEX RECORDS * LDK A7,1 ADD ONE TO CRN CF A14,CRNUPD ADD 1 TO RECORD NUMBERS INS440 EQU * CF A14,SDMRBU REL BUFFER ABL DMTAR5 ONE INDEX READY TAKE NEXT EJECT DEL000 EQU * DELETE INDEX RECORD CONT ADK A1,0 DEL010 EQU * ABL(NZ) DMIER3 KEY NOT FOUND * * CHECK RECORD NR DATA REC * DEL020 EQU * LD A1,FDBRRO,A11 ADR A1,A4 AD A1,FDBRLE,A11 ADK A1,7 BUFSTA-3=ADDR REC NR LCR A2,A1 CC A2,ECBCW+1,A9 REC NR RF(NE) DEL030 WRONG RECORD LC A2,1,A1 ECR A2,A2 LC A2,2,A1 REC NR CW A2,ECBCW+2,A9 RF(E) DEL200 RECORD FOUND DEL030 EQU * EJECT * * CHECK IF NEXT KEY SAME * CC A10,-1,A1 KEY LENGTH RB(NE) DEL010 NEXT KEY NOT SAME DEL040 EQU * CF A14,RDNXTR GET NEXT INDEX RECORD DEL045 EQU * RB(Z) INS260 GO TO DMIER3 IF ERROR * * CHECK IF RECORD IS USED * CF A14,CHKRCD CHECK RECORD STATUS RB(E) DEL020 USED LD A1,FDBMRO,A11 ST A1,FDBRRO,A11 LAST RECORD IN SECTOR RB DEL040 NEXT REC EJECT DEL200 EQU * RECORD FOUND * * SET RC BIT 6 IF NEXT KEY SAME * LC A7,-1,A1 NR OF SAME CHAR ANK A7,/FF ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB CWR A10,A7 KEY LENGTH RF(NE) DEL220 NEXT KEY NOT SAME LDKL A2,NXTKYS ORS A2,ECBRC,A9 NEXT KEY SAME DEL220 EQU * * * MOVE UP RECORDS OVER DELETED * ADKL A10,7 TOTAL RECORD LENGTH LDR A2,A4 ADKL A2,BUFSTA AD A2,FDBRRO,A11 TO ADDR LDR A1,A2 ADR A1,A10 FROM ADDR LD A3,FDBMRO,A11 SU A3,FDBRRO,A11 NR OF CHAR CF A14,MOVFW MOVE * * SET LAST RECORD FREE * ADR A2,A10 SUK A2,1 SCR A3,A2 STATUS FREE EJECT * * UPDATE CRN FOR MOVED RECORDS * CF A14,GTLGRN GET REC NR LDR A12,A1 LDR A13,A2 FIRST REC NR MOVED LD A3,FDBRRO,A11 SAVE RELATIVE RECORD OFFSET LD A6,FDBMRO,A11 ST A6,FDBRRO,A11 MAX OFFSET CF A14,GTLGRN LAST REC NR MOVED ST A3,FDBRRO,A11 RESET OFFSET LDKL A7,-1 CF A14,CRNUPD UPDATE CRN BUFFERS LDK A5,1 MARK BUFFER CHANGED EJECT DEL240 EQU * LD A1,FDBRRO,A11 RF(NZ) DEL290 NOT FIRST RECORD CF A14,GTLGRN GET REC NR LDK A6,0 LDK A7,1 CF A14,DSUMOD A1,A2 = A1,A2 - 1 RF(Z) DEL600 FILE START CF A14,CALSNO GET SECTOR NR RF(NZ) DEL600 FILE START ADK A5,0 RF(Z) DEL245 BUFFER NOT CHANGED EJECT * * WRITE SECTOR * CF A14,FMIOWR ABL(NZ) DMTERR LDK A5,0 BUFFER NOT CHANGED YET DEL245 EQU * CF A14,SDMRBU RELEASE BUFFER * * GET PREVIOUS SECTOR * LDK A4,0 CF A14,RDNXTR GET SECTOR RB(Z) DEL045 GO TO DMIER3 IF ERROR DEL250 EQU * LD A1,FDBMRO,A11 RF DEL300 DEL290 EQU * SU A1,FDBRLE,A11 SUK A1,1 DEL300 EQU * ST A1,FDBRRO,A11 PREVIOS RECORD OFFSET CF A14,CHKRCD CHECK RECORD STATUS RB(NE) DEL240 FREE EJECT * * SET CURRENCY * LDR A9,A3 STATUS ADDR LDR A12,A11 FDB ADDRESS INDEX FILE LD A11,FDBADF,A11 FDB ADDRESS DATA FILE CF A14,CRNGET GET CRN BUFFER LDR A11,A12 FDB ADDRESS INDEX FILE LC A1,FWTFNR,A11 INDEX FILE NR CC A1,CRNCIF,A2 LAST REF INDEX RF(NE) DEL350 NOT THIS IND * * UPDATE CURRENCY * LDR A3,A2 CRN ADDR CF A14,GTLGRN GET REC NR SC A1,CRNCIF+1,A3 ST A2,CRNCIF+2,A3 RECORD NUMBER DEL350 EQU * LC A2,17,A14 NR OF SAME IN DELETED RECORD * WAS SAVED AT LABEL DEL200 CC A2,-4,A9 RF(NL) DEL600 SC A2,-4,A9 MAKE NR OF SAME SMALLER RF DEL700 WRITE SECTOR DEL600 EQU * ADK A5,0 RF(Z) DEL900 BUFFER NOT CHANGED EJECT * * WRITE SECTOR * DEL700 EQU * CF A14,FMIOWR ABL(NZ) DMTERR DEL900 EQU * ABL INS440 XIF EJECT * * FNDBLB=FIND BLOCK BUFFER * FNDBLB EQU * LD A7,DWTOR,A11 ORDER ANK A7,/3F SUK A7,ORDSQ0 RF(NZ) FBL110 NOT READ SEQUENTIAL * LD A2,ECBCW,A9 LD A3,ECBCW+2,A9 REC NR CC A2,FDBLRN,A11 RF(L) FBL110 NO EOF RF(G) FBL100 EOF CW A3,FDBLRN+1,A11 RF(NG) FBL110 NO EOF FBL100 EQU * LDK A2,1 INDICATE ERROR LDKL A1,EOFERR EOF RF FBL170 RETURN FBL110 EQU * LDKL A2,/CFFF ANS A2,FDBDBR,A11 RELEASE BUFFER CF A14,GTBKBU GET BLOCK BUFFER RF(N) FBL120 NO DATA IN BUFFER EJECT * * DELAYED BUFFER IS WRITTEN * IF IT IS NOT THE WANTED BLOCK * LC A7,BUFOR,A4 DELAY FLAG ANK A7,/3 RF(Z) FBL150 NO DELAY CM BUFOR,A4 RESET ANK A7,1 RF(NZ) FBL130 RIGHT SECTOR LD A7,BUFSNR,A4 SECT NR ST A7,ECBCW,A8 LD A7,BUFSNR+2,A4 ST A7,ECBCW+2,A8 CF A14,FMIOWR RF(NZ) FBL160 ERROR CF A14,SDMRBU RELEASE BUFFER RB FNDBLB GET NEW BUFFER EJECT FBL120 EQU * * * READ BLOCK INTO BUFFER * CF A14,FMIORD PHYSICAL READW RF(NZ) FBL160 ERROR LD A5,ECBBA,A8 RF FBL150 FBL130 EQU * RIGHT DELAYED BUFFER IS FOUND LDKL A2,/1000 ORS A2,FDBDBR,A11 KEEP BUFFER FBL150 EQU * LDK A2,0 INDICATE OK RF FBL170 FBL160 EQU * LDKL A2,-1 INDICATE ERROR FBL170 EQU * ADKL A14,4 ADK A2,0 SET CR ABR* A14 EJECT * * CHKSTS=CHECK RECORD STATUS AND LOAD LOGICAL RECORD NUMBER * * ENTRY : A11=FWT ADDRESS * A5=BLOCK ADDRESS * A9=USER ECB ADDRESS * * EXIT : A1,A2=LOGICAL RECORD NUMBER * A10=RECORD STATUS POINTER * A4=DESTROYED * CR=0 IF RECORD NOT USED * CHKSTS EQU * LD A10,FDBRRO,A11 AD A10,FDBRLE,A11 ADR A10,A5 LD A1,ECBCW,A9 LD A2,ECBCW+2,A9 LDK A4,0 ADKL A14,4 CCR A4,A10 ABR* A14 EJECT * * FNDKYP=SET PARAMETERS AND THEN GO TO FNDKEY SUBROUTINE * IFT INDXAC=1 FNDKYP EQU * LDR A9,A11 ADKL A9,FDBKEY KEY AREA ADDRESS LD A10,FDBRLE,A11 RECORD LENGTH INDEX SUKL A10,6 KEY LENGTH ABL FNDKEY XIF END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT SDMTSK REL 11.0 81-05-13 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…007c Head {h00=0x003a, h01=0x0050, text=» =B, REW. AND DEL. INDEXED,NO RELEASE OF KEY BLK BUF«, t00=0x0000, t01=0x0042}
0x007c…009c Head {h00=0x001c, h01=0x0050, text=» =B, REL 11.0 81-05-12«, t00=0x0000, t01=0x0080}
0x009c…00c2 Head {h00=0x0022, h01=0x0050, text=» =A, CONDITION FOR CR,DE,EX «, t00=0x0000, t01=0x00a0}
0x00c2…00e2 Head {h00=0x001c, h01=0x0050, text=» =A, REL 11.0 81-04-15«, t00=0x0000, t01=0x00c6}
0x00e2…0112 Head {h00=0x002c, h01=0x0050, text=» =9, REWRITE WITH DUP KEY DIDN'T WORK «, t00=0x0000, t01=0x00e6}
0x0112…0132 Head {h00=0x001c, h01=0x0050, text=» =9, REL 11.0 81-03-09«, t00=0x0000, t01=0x0116}
0x0132…0162 Head {h00=0x002c, h01=0x0050, text=» =8, DELETE DIRECT INDEXED DIDN'T WORK«, t00=0x0000, t01=0x0136}
0x0162…0182 Head {h00=0x001c, h01=0x0050, text=» =8, REL 11.0 81-03-09«, t00=0x0000, t01=0x0166}
0x0182…01b0 Head {h00=0x002a, h01=0x0050, text=» =7, W.R.I. KEYS NOT CORRECT WRITTEN«, t00=0x0000, t01=0x0186}
0x01b0…01d0 Head {h00=0x001c, h01=0x0050, text=» =7, REL 11.0 81-02-26«, t00=0x0001, t01=0x0024}
0x01d0…0206 Head {h00=0x0032, h01=0x0050, text=» =6, DELETE,REWRITE DIRECT INDEXED REFORMED «, t00=0x0001, t01=0x0044}
0x0206…0226 Head {h00=0x001c, h01=0x0050, text=» =6, REL 11.0 81-02-25«, t00=0x0001, t01=0x007a}
0x0226…025a Head {h00=0x0030, h01=0x0050, text=» =5, CURRENCY NOT CORRECT WHEN START INDX «, t00=0x0001, t01=0x009a}
0x025a…027a Head {h00=0x001c, h01=0x0050, text=» =5, REL 11.0 81-02-24«, t00=0x0001, t01=0x00ce}
0x027a…02b2 Head {h00=0x0034, h01=0x0050, text=» =4, MOV:SU DON'T WORK WHEN TASK NOT IN TCTAB «, t00=0x0001, t01=0x00ee}
0x02b2…02e2 Head {h00=0x002c, h01=0x0050, text=» =4, REL 11.0 81-02-12 ,LIKE SDM TASK «, t00=0x0001, t01=0x0126}
0x02e2…0310 Head {h00=0x002a, h01=0x0050, text=» =3, COMPARE KEYS WRONG FDB ADDRESS «, t00=0x0001, t01=0x0156}
0x0310…0330 Head {h00=0x001c, h01=0x0050, text=» =3, REL 11.0 81-02-06«, t00=0x0001, t01=0x0184}
0x0330…035c Head {h00=0x0028, h01=0x0050, text=» =2, INTERN ORDER START N.L WRONG «, t00=0x0002, t01=0x0014}
0x035c…037c Head {h00=0x001c, h01=0x0050, text=» =2, REL 11.0 81-02-06«, t00=0x0002, t01=0x0040}
0x037c…03a6 Head {h00=0x0026, h01=0x0050, text=» =1, REG. CRASH WHEN COMP. KEYS «, t00=0x0002, t01=0x0060}
0x03a6…03c6 Head {h00=0x001c, h01=0x0050, text=» =1, REL 11.0 81-01-26«, t00=0x0002, t01=0x008a}
0x03c6…0402 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0002, t01=0x00aa}
0x0402…040c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e6}
0x040c…0434 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0002, t01=0x00f0}
0x0434…043e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0118}
0x043e…0472 Head {h00=0x0030, h01=0x0050, text=»* SDMTSK = HANDLES DATAMANAGEMENT DISC I/O«, t00=0x0002, t01=0x0122}
0x0472…047c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0156}
0x047c…0486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0160}
0x0486…0490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016a}
0x0490…049a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0174}
0x049a…04a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017e}
0x04a4…04e0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0002, t01=0x0188}
0x04e0…04ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0034}
0x04ea…051a Head {h00=0x002c, h01=0x0050, text=»* THIS MODULE IS ACTIVATED FROM TIODM.«, t00=0x0003, t01=0x003e}
0x051a…0524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006e}
0x0524…0542 Head {h00=0x001a, h01=0x0050, text=»* INPUT PARAMETERS: «, t00=0x0003, t01=0x0078}
0x0542…055e Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0003, t01=0x0096}
0x055e…059e Head {h00=0x003c, h01=0x0050, text=»* A2 = TID TASK IDENT OF SDMTSK AT PRESENT NOT USED«, t00=0x0003, t01=0x00b2}
0x059e…05a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f2}
0x05a8…05f0 Head {h00=0x0044, h01=0x0050, text=»* THE BLOCK TO BE ACCESSED IS DEFINED IN FDB (FDBDMI, , -SNR).«, t00=0x0003, t01=0x00fc}
0x05f0…062e Head {h00=0x003a, h01=0x0050, text=»* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS BLOCK «, t00=0x0003, t01=0x0144}
0x062e…0678 Head {h00=0x0046, h01=0x0050, text=»* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET«, t00=0x0003, t01=0x0182}
0x0678…06c0 Head {h00=0x0044, h01=0x0050, text=»* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT«, t00=0x0004, t01=0x003c}
0x06c0…06fc Head {h00=0x0038, h01=0x0050, text=»* THE BLOCK MUST FIRST BE READ INTO A FREE BUFFER.«, t00=0x0004, t01=0x0084}
0x06fc…0706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c0}
0x0706…0714 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00ca}
0x0714…071e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d8}
0x071e…0736 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x00e2}
0x0736…074e Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0004, t01=0x00fa}
0x074e…0766 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x0112}
0x0766…0770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012a}
0x0770…077a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0134}
0x077a…0790 Head {h00=0x0012, h01=0x0050, text=» ENTRY SDMTSK «, t00=0x0004, t01=0x013e}
0x0790…079a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0154}
0x079a…07d2 Head {h00=0x0034, h01=0x0050, text=»* FOLLOWING ENTRIES ARE USED BY MODULE DMOPCL «, t00=0x0004, t01=0x015e}
0x07d2…07ee Head {h00=0x0018, h01=0x0050, text=» ENTRY SDMERX,ORDFLP«, t00=0x0005, t01=0x0008}
0x07ee…07fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0024}
0x07fc…0806 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0032}
0x0806…0820 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0005, t01=0x003c}
0x0820…083a Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x0056}
0x083a…0854 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0005, t01=0x0070}
0x0854…085e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008a}
0x085e…0868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0094}
0x0868…0870 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x009e}
0x0870…088a Head {h00=0x0016, h01=0x0050, text=»* DEFINED IN TDISP«, t00=0x0005, t01=0x00a6}
0x088a…08ba Head {h00=0x002c, h01=0x0050, text=» EXTRN PRUN TTAB ADDRESS OF RUNNING TASK«, t00=0x0005, t01=0x00c0}
0x08ba…08c2 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00f0}
0x08c2…08de Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN TOSSIO «, t00=0x0005, t01=0x00f8}
0x08de…08f4 Head {h00=0x0012, h01=0x0050, text=» EXTRN TENDIO «, t00=0x0005, t01=0x0114}
0x08f4…0920 Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBBA,ECBRL,ECBEL,ECBRC,ECBCW«, t00=0x0005, t01=0x012a}
0x0920…094a Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTTAB,DWTOPT,DWTECB,DWTOR «, t00=0x0005, t01=0x0156}
0x094a…0964 Head {h00=0x0016, h01=0x0050, text=» EXTRN TTB:PW =4 «, t00=0x0005, t01=0x0180}
0x0964…096c Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x000a}
0x096c…0988 Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN FMTASK «, t00=0x0006, t01=0x0012}
0x0988…099e Head {h00=0x0012, h01=0x0050, text=» EXTRN FWTFNR «, t00=0x0006, t01=0x002e}
0x099e…09b4 Head {h00=0x0012, h01=0x0050, text=» EXTRN FPB:EL «, t00=0x0006, t01=0x0044}
0x09b4…09bc Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x005a}
0x09bc…09d6 Head {h00=0x0016, h01=0x0050, text=»* DEFINED IN TIODM«, t00=0x0006, t01=0x0062}
0x09d6…0a00 Head {h00=0x0026, h01=0x0050, text=» EXTRN FDBADF,FDBAI1,FDBBLZ,FDBDBR«, t00=0x0006, t01=0x007c}
0x0a00…0a2a Head {h00=0x0026, h01=0x0050, text=» EXTRN FDBECB,FDBENL,FDBKA,FDBKEY «, t00=0x0006, t01=0x00a6}
0x0a2a…0a54 Head {h00=0x0026, h01=0x0050, text=» EXTRN FDBLRN,FDBMRO,FDBOMD,FDBRLE«, t00=0x0006, t01=0x00d0}
0x0a54…0a78 Head {h00=0x0020, h01=0x0050, text=» EXTRN FDBRRO,FDBSNR,FDBTNR «, t00=0x0006, t01=0x00fa}
0x0a78…0aa0 Head {h00=0x0024, h01=0x0050, text=» EXTRN PROT,KEYERR,NXTKYS,EOFERR«, t00=0x0006, t01=0x011e}
0x0aa0…0aca Head {h00=0x0026, h01=0x0050, text=» EXTRN EOFRC,NODERR,PROERR,EOMERR «, t00=0x0006, t01=0x0146}
0x0aca…0ae0 Head {h00=0x0012, h01=0x0050, text=» EXTRN CRNCDF «, t00=0x0006, t01=0x0170}
0x0ae0…0b04 Head {h00=0x0020, h01=0x0050, text=» EXTRN DMTTSB A14 STACK BASE«, t00=0x0006, t01=0x0186}
0x0b04…0b3c Head {h00=0x0034, h01=0x0050, text=» EXTRN DMXACD EXIT RUNNING TASK AND ACTIVATE #D «, t00=0x0007, t01=0x001a}
0x0b3c…0b5e Head {h00=0x001e, h01=0x0050, text=» EXTRN SDMSTS STACK START «, t00=0x0007, t01=0x0052}
0x0b5e…0b7a Head {h00=0x0018, h01=0x0050, text=» EXTRN SDMBF1,SDMBF2«, t00=0x0007, t01=0x0074}
0x0b7a…0b88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0090}
0x0b88…0b90 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x009e}
0x0b90…0bac Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN TIOSDM «, t00=0x0007, t01=0x00a6}
0x0bac…0bd6 Head {h00=0x0026, h01=0x0050, text=» EXTRN SDMOOR,SDMLIM,SDMOEX,SDMOOS«, t00=0x0007, t01=0x00c2}
0x0bd6…0bf2 Head {h00=0x0018, h01=0x0050, text=» EXTRN SDMOIP,SDMIOP«, t00=0x0007, t01=0x00ec}
0x0bf2…0bfa Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0108}
0x0bfa…0c16 Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN SDMSUB «, t00=0x0007, t01=0x0110}
0x0c16…0c2c Head {h00=0x0012, h01=0x0050, text=» EXTRN CALSNO «, t00=0x0007, t01=0x012c}
0x0c2c…0c56 Head {h00=0x0026, h01=0x0050, text=» EXTRN EATEST,EASETB,CRNGET,GTBKBU«, t00=0x0007, t01=0x0142}
0x0c56…0c7e Head {h00=0x0024, h01=0x0050, text=» EXTRN MOV:US,MOV:SU,MOVFW,MOVBW«, t00=0x0007, t01=0x016c}
0x0c7e…0c94 (8, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXTRN RELPRO «, t00=0x0008, t01=0x0004}
0x0c94…0cbe Head {h00=0x0026, h01=0x0050, text=» EXTRN FMIORD,FMIOWR,FMIORF,FMIOEX«, t00=0x0008, t01=0x001a}
0x0cbe…0cd4 Head {h00=0x0012, h01=0x0050, text=» EXTRN FRMFIL «, t00=0x0008, t01=0x0044}
0x0cd4…0cf0 Head {h00=0x0018, h01=0x0050, text=» EXTRN RLBLKB,CHKRCD«, t00=0x0008, t01=0x005a}
0x0cf0…0d06 Head {h00=0x0012, h01=0x0050, text=» EXTRN GTLGRN «, t00=0x0008, t01=0x0076}
0x0d06…0d22 Head {h00=0x0018, h01=0x0050, text=» EXTRN CRNUPD,CRNCIF«, t00=0x0008, t01=0x008c}
0x0d22…0d38 Head {h00=0x0012, h01=0x0050, text=» EXTRN CHKKEY «, t00=0x0008, t01=0x00a8}
0x0d38…0d4e Head {h00=0x0012, h01=0x0050, text=» EXTRN RDNXTR «, t00=0x0008, t01=0x00be}
0x0d4e…0d88 Head {h00=0x0036, h01=0x0050, text=» EXTRN RECECB MOVE RECORD NUMBER TO ECBCW1,ECBCW2 «, t00=0x0008, t01=0x00d4}
0x0d88…0d9e Head {h00=0x0012, h01=0x0050, text=» EXTRN FNDKEY «, t00=0x0008, t01=0x010e}
0x0d9e…0da6 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0124}
0x0da6…0dc0 Head {h00=0x0016, h01=0x0050, text=»* DEFINED IN DMBUF«, t00=0x0008, t01=0x012c}
0x0dc0…0de2 Head {h00=0x001e, h01=0x0050, text=» EXTRN BUFSNR,BUFOR,BUFSTA«, t00=0x0008, t01=0x0146}
0x0de2…0e0e Head {h00=0x0028, h01=0x0050, text=» EXTRN SDMRBU RELEASE A DISC BUFFER «, t00=0x0008, t01=0x0168}
0x0e0e…0e24 (9, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXTRN SDMRLB «, t00=0x0009, t01=0x0004}
0x0e24…0e2c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x001a}
0x0e2c…0e48 Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN DMOPCL «, t00=0x0009, t01=0x0022}
0x0e48…0e6c Head {h00=0x0020, h01=0x0050, text=» EXTRN SDMOPN,SDMCLO,SDMRFP «, t00=0x0009, t01=0x003e}
0x0e6c…0e82 Head {h00=0x0012, h01=0x0050, text=» EXTRN OPEFPB «, t00=0x0009, t01=0x0062}
0x0e82…0e8a Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0078}
0x0e8a…0ea6 Head {h00=0x0018, h01=0x0050, text=»* DEFINED IN DSUMOD «, t00=0x0009, t01=0x0080}
0x0ea6…0ebc Head {h00=0x0012, h01=0x0050, text=» EXTRN DSUMOD «, t00=0x0009, t01=0x009c}
0x0ebc…0eca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00b2}
0x0eca…0ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c0}
0x0ed4…0ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ca}
0x0ede…0ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d4}
0x0ee8…0f08 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x00de}
0x0f08…0f28 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0009, t01=0x00fe}
0x0f28…0f48 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x011e}
0x0f48…0f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x013e}
0x0f52…0f64 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0009, t01=0x0148}
0x0f64…0f7a Head {h00=0x0012, h01=0x0050, text=»X:B EQU 0 =A «, t00=0x0009, t01=0x015a}
0x0f7a…0f98 Head {h00=0x001a, h01=0x0050, text=»* NOT SYSGEN SUPPORTED«, t00=0x0009, t01=0x0170}
0x0f98…0faa Head {h00=0x000e, h01=0x0050, text=»Y:A EQU 1 «, t00=0x0009, t01=0x018e}
0x0faa…0fbc Head {h00=0x000e, h01=0x0050, text=»Y:B EQU 1 «, t00=0x000a, t01=0x0010}
0x0fbc…0fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0022}
0x0fc6…1000 Head {h00=0x0036, h01=0x0050, text=»* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH «, t00=0x000a, t01=0x002c}
0x1000…1030 Head {h00=0x002c, h01=0x0050, text=»* INDXAC EQU 1 = INDEX ACCESS INCLUDED«, t00=0x000a, t01=0x0066}
0x1030…106a Head {h00=0x0036, h01=0x0050, text=»* INDXAC EQU 0 = INDEX ACCESS FUNCTIONS OMITTED «, t00=0x000a, t01=0x0096}
0x106a…1080 Head {h00=0x0012, h01=0x0050, text=»INDXAC EQU X:A«, t00=0x000a, t01=0x00d0}
0x1080…10b4 Head {h00=0x0030, h01=0x0050, text=»INSLAS EQU Y:A INSERT SAME KEY LAST WHEN = 1«, t00=0x000a, t01=0x00e6}
0x10b4…10e0 Head {h00=0x0028, h01=0x0050, text=»* A VERSION LEAVING OUT OPEN MODES: «, t00=0x000a, t01=0x011a}
0x10e0…110e Head {h00=0x002a, h01=0x0050, text=»* OPEN OUTPUT,OPEN EXTEND AND DISCARD «, t00=0x000a, t01=0x0146}
0x110e…1134 Head {h00=0x0022, h01=0x0050, text=»* IS OBTAINED BY SETTING Y:C=0«, t00=0x000a, t01=0x0174}
0x1134…113e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000a}
0x113e…1158 Head {h00=0x0016, h01=0x0050, text=»CRDEEX EQU X:B =A«, t00=0x000b, t01=0x0014}
0x1158…1162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002e}
0x1162…1194 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000b, t01=0x0038}
0x1194…11c2 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000b, t01=0x006a}
0x11c2…11cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0098}
0x11cc…11e0 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x000b, t01=0x00a2}
0x11e0…11ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b6}
0x11ea…11f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c0}
0x11f4…122a Head {h00=0x0032, h01=0x0050, text=»* KEYDUP=1 MEANS THAT PRIMARY INDEX (I1) DON'T«, t00=0x000b, t01=0x00ca}
0x122a…125a Head {h00=0x002c, h01=0x0050, text=»* ALLOW DUPLICATE KEY WHEN READ OR WRITE«, t00=0x000b, t01=0x0100}
0x125a…1264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0130}
0x1264…127a Head {h00=0x0012, h01=0x0050, text=»KEYDUP EQU Y:B«, t00=0x000b, t01=0x013a}
0x127a…1288 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0150}
0x1288…12a0 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000b, t01=0x015e}
0x12a0…12b8 Head {h00=0x0014, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x0176}
0x12b8…12d0 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000b, t01=0x018e}
0x12d0…12d8 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0016}
0x12d8…130a Head {h00=0x002e, h01=0x0050, text=»FMFPBL EQU 80 FILE PARAMETER BLOCK LENGTH «, t00=0x000c, t01=0x001e}
0x130a…1318 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0050}
0x1318…1322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005e}
0x1322…1342 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000c, t01=0x0068}
0x1342…1362 Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x000c, t01=0x0088}
0x1362…1382 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000c, t01=0x00a8}
0x1382…138c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c8}
0x138c…13c2 Head {h00=0x0032, h01=0x0050, text=»* THE FOLLOWING INTERNAL ORDER CODES ARE THE«, t00=0x000c, t01=0x00d2}
0x13c2…13ea Head {h00=0x0024, h01=0x0050, text=»* RELATIVE POSITION IN ORDTAB «, t00=0x000c, t01=0x0108}
0x13ea…141e Head {h00=0x0030, h01=0x0050, text=»* ORDER FROM TIOSDM IS CHANGED AS FOLLOWED«, t00=0x000c, t01=0x0130}
0x141e…145a Head {h00=0x0038, h01=0x0050, text=»* DWTOR TIOSDM DWTOR AFTER CHANGE A7 «, t00=0x000c, t01=0x0164}
0x145a…1494 Head {h00=0x0036, h01=0x0050, text=»* 0<X<=7 NOT CHANGED 0«, t00=0x000d, t01=0x0010}
0x1494…14ce Head {h00=0x0036, h01=0x0050, text=»* X>7 ODD X=(X+17)/2 -«, t00=0x000d, t01=0x004a}
0x14ce…1508 Head {h00=0x0036, h01=0x0050, text=»* X>7 EVEN X=(X-8)/2 -«, t00=0x000d, t01=0x0084}
0x1508…1512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00be}
0x1512…1526 Head {h00=0x0010, h01=0x0050, text=»ORDERS EQU *«, t00=0x000d, t01=0x00c8}
0x1526…152e Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00dc}
0x152e…154a Head {h00=0x0018, h01=0x0050, text=»OROPEN EQU *-ORDERS «, t00=0x000d, t01=0x00e4}
0x154a…1564 Head {h00=0x0016, h01=0x0050, text=» DATA SDMOPN OPEN «, t00=0x000d, t01=0x0100}
0x1564…156c Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x011a}
0x156c…1588 Head {h00=0x0018, h01=0x0050, text=»ORDRM0 EQU *-ORDERS «, t00=0x000d, t01=0x0122}
0x1588…15a8 Head {h00=0x001c, h01=0x0050, text=» DATA RDRM00 READ RANDOM«, t00=0x000d, t01=0x013e}
0x15a8…15b0 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x015e}
0x15b0…15cc Head {h00=0x0018, h01=0x0050, text=»ORDSQ0 EQU *-ORDERS «, t00=0x000d, t01=0x0166}
0x15cc…15f0 Head {h00=0x0020, h01=0x0050, text=» DATA RDSQ00 READ SEQUENTIAL«, t00=0x000d, t01=0x0182}
0x15f0…15f8 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0016}
0x15f8…1614 Head {h00=0x0018, h01=0x0050, text=»OWRRM0 EQU *-ORDERS «, t00=0x000e, t01=0x001e}
0x1614…1636 Head {h00=0x001e, h01=0x0050, text=» DATA WRRM00 WRITE RANDOM «, t00=0x000e, t01=0x003a}
0x1636…163e Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x005c}
0x163e…165a Head {h00=0x0018, h01=0x0050, text=»OWRSQ0 EQU *-ORDERS «, t00=0x000e, t01=0x0064}
0x165a…1680 Head {h00=0x0022, h01=0x0050, text=» DATA WRSQ00 WRITE SEQUENTIAL «, t00=0x000e, t01=0x0080}
0x1680…1688 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00a6}
0x1688…16a4 Head {h00=0x0018, h01=0x0050, text=»OREWR0 EQU *-ORDERS «, t00=0x000e, t01=0x00ae}
0x16a4…16de Head {h00=0x0036, h01=0x0050, text=» DATA REWR00 REWRITE NOT INDEXED (DIRECT,CURRENT) «, t00=0x000e, t01=0x00ca}
0x16de…16ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0104}
0x16ec…1708 Head {h00=0x0018, h01=0x0050, text=»ODELT0 EQU *-ORDERS «, t00=0x000e, t01=0x0112}
0x1708…1740 Head {h00=0x0034, h01=0x0050, text=» DATA DELT00 DELETE NOT INDEXED (DIRECT,CURRENT)«, t00=0x000e, t01=0x012e}
0x1740…1748 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0166}
0x1748…1764 Head {h00=0x0018, h01=0x0050, text=»OSTRTD EQU *-ORDERS «, t00=0x000e, t01=0x016e}
0x1764…179e Head {h00=0x0036, h01=0x0050, text=» DATA STRTDI START DIRECT (EQUAL,GREATER,NOT LESS)«, t00=0x000e, t01=0x018a}
0x179e…17a6 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0034}
0x17a6…17c2 Head {h00=0x0018, h01=0x0050, text=»OEXTND EQU *-ORDERS «, t00=0x000f, t01=0x003c}
0x17c2…17e2 Head {h00=0x001c, h01=0x0050, text=» DATA EXTEND EXTEND FILE«, t00=0x000f, t01=0x0058}
0x17e2…17ea Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0078}
0x17ea…1806 Head {h00=0x0018, h01=0x0050, text=»OCLOSE EQU *-ORDERS «, t00=0x000f, t01=0x0080}
0x1806…1820 Head {h00=0x0016, h01=0x0050, text=» DATA SDMCLO CLOSE«, t00=0x000f, t01=0x009c}
0x1820…1828 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00b6}
0x1828…1844 Head {h00=0x0018, h01=0x0050, text=»ORDFLP EQU *-ORDERS «, t00=0x000f, t01=0x00be}
0x1844…186e Head {h00=0x0026, h01=0x0050, text=» DATA SDMRFP READ FILE PARAMETERS «, t00=0x000f, t01=0x00da}
0x186e…1876 Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x0104}
0x1876…188c Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000f, t01=0x010c}
0x188c…189a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0122}
0x189a…18a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0130}
0x18a4…18ba Head {h00=0x0012, h01=0x0050, text=»* INDEX ORDERS«, t00=0x000f, t01=0x013a}
0x18ba…18c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0150}
0x18c4…18e0 Head {h00=0x0018, h01=0x0050, text=»ORDRMX EQU *-ORDERS «, t00=0x000f, t01=0x015a}
0x18e0…1908 Head {h00=0x0024, h01=0x0050, text=» DATA RDRMIX READ RANDOM INDEXED«, t00=0x000f, t01=0x0176}
0x1908…1910 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x000e}
0x1910…192c Head {h00=0x0018, h01=0x0050, text=»ORDSQX EQU *-ORDERS «, t00=0x0010, t01=0x0016}
0x192c…1958 Head {h00=0x0028, h01=0x0050, text=» DATA RDSQIX READ SEQUENTIAL INDEXED«, t00=0x0010, t01=0x0032}
0x1958…1960 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x005e}
0x1960…197c Head {h00=0x0018, h01=0x0050, text=»OWRRMX EQU *-ORDERS «, t00=0x0010, t01=0x0066}
0x197c…19a6 Head {h00=0x0026, h01=0x0050, text=» DATA WRRMIX WRITE RANDOM INDEXED «, t00=0x0010, t01=0x0082}
0x19a6…19ae Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00ac}
0x19ae…19ca Head {h00=0x0018, h01=0x0050, text=»OWRSQX EQU *-ORDERS «, t00=0x0010, t01=0x00b4}
0x19ca…1a06 Head {h00=0x0038, h01=0x0050, text=» DATA DMTERR WRITE SEQUENTIAL INDEXED (NOT ALLOWED) «, t00=0x0010, t01=0x00d0}
0x1a06…1a0e Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x010c}
0x1a0e…1a2a Head {h00=0x0018, h01=0x0050, text=»OREWRX EQU *-ORDERS «, t00=0x0010, t01=0x0114}
0x1a2a…1a60 Head {h00=0x0032, h01=0x0050, text=» DATA REWRIX REWRITE INDEXED (DIRECT,CURRENT) «, t00=0x0010, t01=0x0130}
0x1a60…1a68 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0166}
0x1a68…1a84 Head {h00=0x0018, h01=0x0050, text=»ODELTX EQU *-ORDERS «, t00=0x0010, t01=0x016e}
0x1a84…1ab8 Head {h00=0x0030, h01=0x0050, text=» DATA DELTIX DELETE INDEXED (DIRECT,CURRENT)«, t00=0x0010, t01=0x018a}
0x1ab8…1ac0 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x002e}
0x1ac0…1adc Head {h00=0x0018, h01=0x0050, text=»OSTRTX EQU *-ORDERS «, t00=0x0011, t01=0x0036}
0x1adc…1b18 Head {h00=0x0038, h01=0x0050, text=» DATA STRTIX START INDEXED (EQUAL,GREATER,NOT LESS) «, t00=0x0011, t01=0x0052}
0x1b18…1b20 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x008e}
0x1b20…1b2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0096}
0x1b2c…1b3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00a2}
0x1b3a…1b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b0}
0x1b44…1b60 Head {h00=0x0018, h01=0x0050, text=»* ORDER INDEX TABLE «, t00=0x0011, t01=0x00ba}
0x1b60…1b6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d6}
0x1b6a…1b80 Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x0011, t01=0x00e0}
0x1b80…1b88 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00f6}
0x1b88…1b9c Head {h00=0x0010, h01=0x0050, text=»ORDTAB EQU *«, t00=0x0011, t01=0x00fe}
0x1b9c…1bd2 Head {h00=0x0032, h01=0x0050, text=» BYTE OCLOSE,ORDFLP CLOSE,READ FILE PARAMETERS«, t00=0x0011, t01=0x0112}
0x1bd2…1c0c Head {h00=0x0036, h01=0x0050, text=» BYTE OWRSQ0,OWRRM0 WRITE SEQUENTIAL,WRITE RANDOM «, t00=0x0011, t01=0x0148}
0x1c0c…1c3c Head {h00=0x002c, h01=0x0050, text=» BYTE OREWR0,OREWR0 REWRITE NOT INDEXED «, t00=0x0011, t01=0x0182}
0x1c3c…1c6a Head {h00=0x002a, h01=0x0050, text=» BYTE ODELT0,ODELT0 DELETE NOT INDEXED«, t00=0x0012, t01=0x0022}
0x1c6a…1ca2 Head {h00=0x0034, h01=0x0050, text=» BYTE ORDSQ0,ORDRM0 READ SEQUENTIAL,READ RANDOM «, t00=0x0012, t01=0x0050}
0x1ca2…1cca Head {h00=0x0024, h01=0x0050, text=» BYTE OSTRTD,OSTRTD START DIRECT«, t00=0x0012, t01=0x0088}
0x1cca…1cf8 Head {h00=0x002a, h01=0x0050, text=» BYTE OSTRTD,OCLOSE START DIRECT,CLOSE«, t00=0x0012, t01=0x00b0}
0x1cf8…1d14 Head {h00=0x0018, h01=0x0050, text=»ORDTEX EQU *-ORDTAB «, t00=0x0012, t01=0x00de}
0x1d14…1d2a Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x0012, t01=0x00fa}
0x1d2a…1d48 Head {h00=0x001a, h01=0x0050, text=» BYTE OEXTND,0 EXTEND «, t00=0x0012, t01=0x0110}
0x1d48…1d54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x012e}
0x1d54…1d6a Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0012, t01=0x013a}
0x1d6a…1da6 Head {h00=0x0038, h01=0x0050, text=» BYTE OEXTND,OWRSQX EXTEND,WRITE SEQUENTIAL INDEXED «, t00=0x0012, t01=0x0150}
0x1da6…1de6 Head {h00=0x003c, h01=0x0050, text=» BYTE OWRRMX,OREWRX WRITE RANDOM INDEXED,REWRITE INDEXED«, t00=0x0012, t01=0x018c}
0x1de6…1e20 Head {h00=0x0036, h01=0x0050, text=» BYTE OREWRX,ODELTX REWRITE INDEXED,DELETE INDEXED«, t00=0x0013, t01=0x003c}
0x1e20…1e62 Head {h00=0x003e, h01=0x0050, text=» BYTE ODELTX,ORDSQX DELETE INDEXED,READ SEQUENTIAL INDEXED«, t00=0x0013, t01=0x0076}
0x1e62…1ea0 Head {h00=0x003a, h01=0x0050, text=» BYTE ORDRMX,OSTRTX READ RANDOM INDEXED,START INDEXED «, t00=0x0013, t01=0x00b8}
0x1ea0…1eca Head {h00=0x0026, h01=0x0050, text=» BYTE OSTRTX,OSTRTX START INDEXED «, t00=0x0013, t01=0x00f6}
0x1eca…1ed6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0120}
0x1ed6…1f12 Head {h00=0x0038, h01=0x0050, text=»ORDEXT EQU ORDTEX+ORDTEX-17 TIOSDM ORDER FOR EXTEND «, t00=0x0013, t01=0x012c}
0x1f12…1f20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0168}
0x1f20…1f36 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0013, t01=0x0176}
0x1f36…1f4c Head {h00=0x0012, h01=0x0050, text=»* SDMTSK *«, t00=0x0013, t01=0x018c}
0x1f4c…1f62 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0014, t01=0x0012}
0x1f62…1f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0028}
0x1f6c…1f80 Head {h00=0x0010, h01=0x0050, text=»SDMTSK EQU *«, t00=0x0014, t01=0x0032}
0x1f80…1f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0046}
0x1f8a…1fa6 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0014, t01=0x0050}
0x1fa6…1fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006c}
0x1fb0…1fc4 Head {h00=0x0010, h01=0x0050, text=» LD A14,PRUN«, t00=0x0014, t01=0x0076}
0x1fc4…1fe8 Head {h00=0x0020, h01=0x0050, text=» ADKL A14,DMTTSB STACK BASE «, t00=0x0014, t01=0x008a}
0x1fe8…2004 Head {h00=0x0018, h01=0x0050, text=» LDR A11,A1 FDB ADDR«, t00=0x0014, t01=0x00ae}
0x2004…2018 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A11 «, t00=0x0014, t01=0x00ca}
0x2018…2040 Head {h00=0x0024, h01=0x0050, text=» ADKL A8,FDBECB FDB ECB ADDRESS «, t00=0x0014, t01=0x00de}
0x2040…206a Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB ADDRESS«, t00=0x0014, t01=0x0106}
0x206a…2080 Head {h00=0x0012, h01=0x0050, text=» LDK A7,OROPEN«, t00=0x0014, t01=0x0130}
0x2080…20b0 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTOR,A11 ORDER CODE FROM TIOSDM «, t00=0x0014, t01=0x0146}
0x20b0…20c4 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/7F «, t00=0x0014, t01=0x0176}
0x20c4…20f8 Head {h00=0x0030, h01=0x0050, text=» SUKL A5,SDMLIM LIMIT BETWEEN OPEN AND CLOSE«, t00=0x0014, t01=0x018a}
0x20f8…2118 Head {h00=0x001c, h01=0x0050, text=» RF(N) DMT100 OPEN ORDER«, t00=0x0015, t01=0x002e}
0x2118…2132 Head {h00=0x0016, h01=0x0050, text=» LDK A7,2 MASK BIT«, t00=0x0015, t01=0x004e}
0x2132…2144 Head {h00=0x000e, h01=0x0050, text=» TM A7,A5 «, t00=0x0015, t01=0x0068}
0x2144…216a Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT010 ORDER CODE EVEN «, t00=0x0015, t01=0x007a}
0x216a…2190 Head {h00=0x0022, h01=0x0050, text=» ADK A5,50 CORRECT ORDER INDEX«, t00=0x0015, t01=0x00a0}
0x2190…21a4 Head {h00=0x0010, h01=0x0050, text=»DMT010 EQU *«, t00=0x0015, t01=0x00c6}
0x21a4…21ca Head {h00=0x0022, h01=0x0050, text=» SRL A5,2 INDEX IN ORDER TABLE«, t00=0x0015, t01=0x00da}
0x21ca…21f2 Head {h00=0x0024, h01=0x0050, text=» LC A7,ORDTAB,A5 NEW ORDER INDEX«, t00=0x0015, t01=0x0100}
0x21f2…2228 Head {h00=0x0032, h01=0x0050, text=» SC A7,DWTOR+1,A11 SAVE NEW INTERN ORDER INDEX«, t00=0x0015, t01=0x0128}
0x2228…2242 Head {h00=0x0016, h01=0x0050, text=» LD A5,FDBRRO,A11 «, t00=0x0015, t01=0x015e}
0x2242…2250 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0178}
0x2250…225a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0186}
0x225a…2286 Head {h00=0x0028, h01=0x0050, text=»* READ RANDOM INDEXED,START INDEXED «, t00=0x0015, t01=0x0190}
0x2286…22bc Head {h00=0x0032, h01=0x0050, text=»* DELETE DIRECT INDEXED,REWRITE DIRECT INDEXED«, t00=0x0016, t01=0x002c}
0x22bc…22f2 Head {h00=0x0032, h01=0x0050, text=»* OPEN AND READ FILE PARAMETERS DON'T NEED ANY«, t00=0x0016, t01=0x0062}
0x22f2…230c Head {h00=0x0016, h01=0x0050, text=»* BLOCK BUFFER YET«, t00=0x0016, t01=0x0098}
0x230c…2336 Head {h00=0x0026, h01=0x0050, text=» RF(N) DMT090 NO BLOCK BUFFER YET «, t00=0x0016, t01=0x00b2}
0x2336…234e Head {h00=0x0014, h01=0x0050, text=»DMT015 EQU * =8«, t00=0x0016, t01=0x00dc}
0x234e…2372 Head {h00=0x0020, h01=0x0050, text=» LD A4,FDBADF,A11 DATA FILE «, t00=0x0016, t01=0x00f4}
0x2372…23a4 Head {h00=0x002e, h01=0x0050, text=» CM FDBKA,A4 MARK 1ST PASS DELETE INDEXED «, t00=0x0016, t01=0x0118}
0x23a4…23b8 Head {h00=0x0010, h01=0x0050, text=»DMT020 EQU *«, t00=0x0016, t01=0x014a}
0x23b8…23c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015e}
0x23c2…23da Head {h00=0x0014, h01=0x0050, text=»* LOOP ENTRY FOR«, t00=0x0016, t01=0x0168}
0x23da…2410 Head {h00=0x0032, h01=0x0050, text=»* READ RANDOM INDEXED,READ SEQUENTIAL INDEXED «, t00=0x0016, t01=0x0180}
0x2410…2442 Head {h00=0x002e, h01=0x0050, text=»* DELETE INDEXED,START AND READ SEQUENTIAL«, t00=0x0017, t01=0x0026}
0x2442…244c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0058}
0x244c…2474 Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDBLB FIND BLOCK BUFFER«, t00=0x0017, t01=0x0062}
0x2474…248a Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=0 «, t00=0x0017, t01=0x008a}
0x248a…24aa Head {h00=0x001c, h01=0x0050, text=» ABL(N) DMTERR I/O ERROR«, t00=0x0017, t01=0x00a0}
0x24aa…24da Head {h00=0x002c, h01=0x0050, text=» ABL(P) SDMERX EOF WHEN READ SEQUENTIAL «, t00=0x0017, t01=0x00c0}
0x24da…24f2 Head {h00=0x0014, h01=0x0050, text=»EXTEND EQU * =A«, t00=0x0017, t01=0x00f0}
0x24f2…24fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0108}
0x24fe…2514 Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0017, t01=0x0114}
0x2514…2530 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DMT090 I/O OK«, t00=0x0017, t01=0x012a}
0x2530…2560 Head {h00=0x002c, h01=0x0050, text=» ABL(P) SDMERX EOF WHEN READ SEQUENTIAL «, t00=0x0017, t01=0x0146}
0x2560…256e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0176}
0x256e…2578 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0184}
0x2578…25a0 Head {h00=0x0024, h01=0x0050, text=»* TEST IF EXTEND SHOULD BE DONE «, t00=0x0017, t01=0x018e}
0x25a0…25aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0026}
0x25aa…25c2 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A11«, t00=0x0018, t01=0x0030}
0x25c2…25e2 Head {h00=0x001c, h01=0x0050, text=» ANK A7,/3F ORDER INDEX «, t00=0x0018, t01=0x0048}
0x25e2…25f8 Head {h00=0x0012, h01=0x0050, text=» CWK A7,OEXTND«, t00=0x0018, t01=0x0068}
0x25f8…261a Head {h00=0x001e, h01=0x0050, text=» RF(E) DMT030 ORDER EXTEND«, t00=0x0018, t01=0x007e}
0x261a…2630 Head {h00=0x0012, h01=0x0050, text=» SUK A7,OWRSQ0«, t00=0x0018, t01=0x00a0}
0x2630…265a Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DMTER NOT WRITE SEQUENTIAL«, t00=0x0018, t01=0x00b6}
0x265a…266e Head {h00=0x0010, h01=0x0050, text=»DMT030 EQU *«, t00=0x0018, t01=0x00e0}
0x266e…2680 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0018, t01=0x00f4}
0x2680…2692 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0018, t01=0x0106}
0x2692…26b8 Head {h00=0x0022, h01=0x0050, text=» RF(NN) DMTER NOT END OF FILE «, t00=0x0018, t01=0x0118}
0x26b8…26e0 Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBENL,A11 ENLARGE FACTOR«, t00=0x0018, t01=0x013e}
0x26e0…2710 Head {h00=0x002c, h01=0x0050, text=» RF(Z) DMTER NO ENLARGE FACTOR DECLARED «, t00=0x0018, t01=0x0166}
0x2710…2722 Head {h00=0x000e, h01=0x0050, text=» ADK A7,0 «, t00=0x0019, t01=0x0008}
0x2722…2746 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DMT090 ORDER EXTEND «, t00=0x0019, t01=0x001a}
0x2746…2776 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,SDMOEX TIOSDM ORDER FOR EXTEND «, t00=0x0019, t01=0x003e}
0x2776…2790 Head {h00=0x0016, h01=0x0050, text=» SC A1,DWTOR+1,A11«, t00=0x0019, t01=0x006e}
0x2790…27bc Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMRLB RELEASE BLOCK BUFFER «, t00=0x0019, t01=0x0088}
0x27bc…27e2 Head {h00=0x0022, h01=0x0050, text=» LDKL A8,SDMTSK DISPATCH ENTRY«, t00=0x0019, t01=0x00b4}
0x27e2…2802 Head {h00=0x001c, h01=0x0050, text=» LDR A6,A11 FDB ADDRESS «, t00=0x0019, t01=0x00da}
0x2802…282a Head {h00=0x0024, h01=0x0050, text=» ABL DMXACD EXIT AND ACTIVATE #D«, t00=0x0019, t01=0x00fa}
0x282a…2832 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0122}
0x2832…283a Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x012a}
0x283a…284e Head {h00=0x0010, h01=0x0050, text=»DMTER EQU * «, t00=0x0019, t01=0x0132}
0x284e…2868 Head {h00=0x0016, h01=0x0050, text=» ABL DMTERR ERROR «, t00=0x0019, t01=0x0146}
0x2868…2876 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0160}
0x2876…2882 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x016e}
0x2882…2896 Head {h00=0x0010, h01=0x0050, text=»DMT090 EQU *«, t00=0x0019, t01=0x017a}
0x2896…28ae Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A11«, t00=0x0019, t01=0x018e}
0x28ae…28d6 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 OPTION AND ORDER CODE«, t00=0x001a, t01=0x0016}
0x28d6…2900 Head {h00=0x0026, h01=0x0050, text=» ANK A7,/3F A7=INTERNAL ORDER CODE«, t00=0x001a, t01=0x003e}
0x2900…2914 Head {h00=0x0010, h01=0x0050, text=»DMT100 EQU *«, t00=0x001a, t01=0x0068}
0x2914…2958 Head {h00=0x0040, h01=0x0050, text=» LDKL A12,OPEFPB FPB ADDRESS FOR OPEN CLOSE READ FILE PARAM.«, t00=0x001a, t01=0x007c}
0x2958…2960 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00c0}
0x2960…2968 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00c8}
0x2968…298e Head {h00=0x0022, h01=0x0050, text=»* (A4= BLOCK BUFFER ADDRESS )«, t00=0x001a, t01=0x00d0}
0x298e…29ba Head {h00=0x0028, h01=0x0050, text=»* (A5 = BLOCK BUFFER DATA ADDRESS )«, t00=0x001a, t01=0x00f6}
0x29ba…29e2 Head {h00=0x0024, h01=0x0050, text=»* A11= FDB ADDRESS ALL ORDERS «, t00=0x001a, t01=0x0122}
0x29e2…2a08 Head {h00=0x0022, h01=0x0050, text=»* A7 = ORDER CODE ALL ORDERS«, t00=0x001a, t01=0x014a}
0x2a08…2a2a Head {h00=0x001e, h01=0x0050, text=»* (A8 = FDBECB ADDRESS ) «, t00=0x001a, t01=0x0170}
0x2a2a…2a4e (27, 0, 400) Head {h00=0x0020, h01=0x0050, text=»* (A9 = USER ECB ADDRESS ) «, t00=0x001b, t01=0x0004}
0x2a4e…2a56 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0028}
0x2a56…2a5e Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0030}
0x2a5e…2a84 Head {h00=0x0022, h01=0x0050, text=» ABI ORDERS,A7 SDMTSK FUNCTION«, t00=0x001b, t01=0x0038}
0x2a84…2a92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x005e}
0x2a92…2aca Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x001b, t01=0x006c}
0x2aca…2b02 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x001b, t01=0x00a4}
0x2b02…2b3a Head {h00=0x0034, h01=0x0050, text=»* R E A D S E Q U E N T I A L * «, t00=0x001b, t01=0x00dc}
0x2b3a…2b72 Head {h00=0x0034, h01=0x0050, text=»* R E A D R A N D O M * «, t00=0x001b, t01=0x0114}
0x2b72…2baa Head {h00=0x0034, h01=0x0050, text=»* S T A R T D I R E C T * «, t00=0x001b, t01=0x014c}
0x2baa…2be2 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x001b, t01=0x0184}
0x2be2…2c1a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x001c, t01=0x002c}
0x2c1a…2c22 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0064}
0x2c22…2c46 Head {h00=0x0020, h01=0x0050, text=»RDSQ00 EQU * SEQUENTIAL READ«, t00=0x001c, t01=0x006c}
0x2c46…2c66 Head {h00=0x001c, h01=0x0050, text=»RDRM00 EQU * RANDOM READ«, t00=0x001c, t01=0x0090}
0x2c66…2c88 Head {h00=0x001e, h01=0x0050, text=»STRTDI EQU * START DIRECT «, t00=0x001c, t01=0x00b0}
0x2c88…2c92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d2}
0x2c92…2caa Head {h00=0x0014, h01=0x0050, text=»* CHECK STATUS«, t00=0x001c, t01=0x00dc}
0x2caa…2cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f4}
0x2cb4…2cd8 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKSTS CHECK STATUS «, t00=0x001c, t01=0x00fe}
0x2cd8…2cfa Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DMT200 STATUS=USED«, t00=0x001c, t01=0x0122}
0x2cfa…2d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0144}
0x2d04…2d24 Head {h00=0x001c, h01=0x0050, text=»* RECORD STATUS=NOT USED«, t00=0x001c, t01=0x014e}
0x2d24…2d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016e}
0x2d2e…2d44 Head {h00=0x0012, h01=0x0050, text=» SUK A7,ORDRM0«, t00=0x001c, t01=0x0178}
0x2d44…2d6e Head {h00=0x0026, h01=0x0050, text=» ABL(Z) DMERND READ RANDOM,NO DATA«, t00=0x001c, t01=0x018e}
0x2d6e…2d8c Head {h00=0x001a, h01=0x0050, text=» SUK A7,OSTRTD-ORDRM0 «, t00=0x001d, t01=0x0028}
0x2d8c…2db2 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMT250 READ SEQUENTIAL«, t00=0x001d, t01=0x0046}
0x2db2…2dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x006c}
0x2dbc…2dd2 Head {h00=0x0012, h01=0x0050, text=»* START DIRECT«, t00=0x001d, t01=0x0076}
0x2dd2…2ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008c}
0x2ddc…2df6 Head {h00=0x0016, h01=0x0050, text=» LC A3,DWTOPT,A11 «, t00=0x001d, t01=0x0096}
0x2df6…2e0e Head {h00=0x0014, h01=0x0050, text=» ANK A3,7 OPTION«, t00=0x001d, t01=0x00b0}
0x2e0e…2e34 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMT250 OPTION DEFINED «, t00=0x001d, t01=0x00c8}
0x2e34…2e50 Head {h00=0x0018, h01=0x0050, text=» RF DMT230 NO OPTION«, t00=0x001d, t01=0x00ee}
0x2e50…2e5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x010a}
0x2e5e…2e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0118}
0x2e68…2e84 Head {h00=0x0018, h01=0x0050, text=»* RECORD STATUS=USED«, t00=0x001d, t01=0x0122}
0x2e84…2e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013e}
0x2e8e…2ea2 Head {h00=0x0010, h01=0x0050, text=»DMT200 EQU *«, t00=0x001d, t01=0x0148}
0x2ea2…2eb8 Head {h00=0x0012, h01=0x0050, text=» SUK A7,OSTRTD«, t00=0x001d, t01=0x015c}
0x2eb8…2eda Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT230 START DIRECT«, t00=0x001d, t01=0x0172}
0x2eda…2efa (30, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBRL,A9 REQ LGTH«, t00=0x001e, t01=0x0004}
0x2efa…2f22 Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBRLE,A11 RECORD LENGTH «, t00=0x001e, t01=0x0024}
0x2f22…2f34 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x001e, t01=0x004c}
0x2f34…2f4a Head {h00=0x0012, h01=0x0050, text=» RF(NG) DMT220«, t00=0x001e, t01=0x005e}
0x2f4a…2f68 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 MAX LENGTH «, t00=0x001e, t01=0x0074}
0x2f68…2f7c Head {h00=0x0010, h01=0x0050, text=»DMT220 EQU *«, t00=0x001e, t01=0x0092}
0x2f7c…2fa8 Head {h00=0x0028, h01=0x0050, text=» ST A3,ECBEL,A9 SET EFFECTIVE LENGTH«, t00=0x001e, t01=0x00a6}
0x2fa8…2fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d2}
0x2fb2…2fce Head {h00=0x0018, h01=0x0050, text=»* MOVE THE RECORD «, t00=0x001e, t01=0x00dc}
0x2fce…2fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f8}
0x2fd8…2ff2 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRRO,A11 «, t00=0x001e, t01=0x0102}
0x2ff2…3014 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A5 SOURCE ADDRESS «, t00=0x001e, t01=0x011c}
0x3014…3040 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBA,A9 DESTINATION ADDRESS «, t00=0x001e, t01=0x013e}
0x3040…3056 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001e, t01=0x016a}
0x3056…3080 Head {h00=0x0026, h01=0x0050, text=» CF A14,MOVFW MOVE RECORD TO USER «, t00=0x001e, t01=0x0180}
0x3080…308c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x001a}
0x308c…30a2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x0026}
0x30a2…30c8 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTAB,A11 TTAB ADDRESS«, t00=0x001f, t01=0x003c}
0x30c8…30f6 Head {h00=0x002a, h01=0x0050, text=» LD A7,TTB:PW,A4 PSW FOR THIS TASK =4 «, t00=0x001f, t01=0x0062}
0x30f6…3120 Head {h00=0x0026, h01=0x0050, text=» ANK A7,1 SYSTEM,USER MODE BIT =4 «, t00=0x001f, t01=0x0090}
0x3120…3144 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DMT225 USER MODE =4 «, t00=0x001f, t01=0x00ba}
0x3144…3168 Head {h00=0x0020, h01=0x0050, text=» CF A14,MOVFW MOVE RECORD =4«, t00=0x001f, t01=0x00de}
0x3168…317e Head {h00=0x0012, h01=0x0050, text=» RF DMT230 =4«, t00=0x001f, t01=0x0102}
0x317e…3196 Head {h00=0x0014, h01=0x0050, text=»DMT225 EQU * =4«, t00=0x001f, t01=0x0118}
0x3196…31c0 Head {h00=0x0026, h01=0x0050, text=» CF A14,MOV:SU MOVE RECORD TO USER«, t00=0x001f, t01=0x0130}
0x31c0…31cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x015a}
0x31cc…31d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0166}
0x31d6…320a Head {h00=0x0030, h01=0x0050, text=»* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT «, t00=0x001f, t01=0x0170}
0x320a…3214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0014}
0x3214…3228 Head {h00=0x0010, h01=0x0050, text=»DMT230 EQU *«, t00=0x0020, t01=0x001e}
0x3228…324a Head {h00=0x001e, h01=0x0050, text=» ABL DMT400 PUT CRN AND EA«, t00=0x0020, t01=0x0032}
0x324a…3258 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0054}
0x3258…3262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0062}
0x3262…329c Head {h00=0x0036, h01=0x0050, text=»* STATUS BYTE = NOT USED AND ORDER IS SEQ. READ OR«, t00=0x0020, t01=0x006c}
0x329c…32be Head {h00=0x001e, h01=0x0050, text=»* START DIRECT WITH OPTION«, t00=0x0020, t01=0x00a6}
0x32be…32c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00c8}
0x32c8…32f0 Head {h00=0x0024, h01=0x0050, text=»DMT250 EQU * NO DATA AT SEQ READ«, t00=0x0020, t01=0x00d2}
0x32f0…32fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00fa}
0x32fa…3316 Head {h00=0x0018, h01=0x0050, text=»* GET NEXT RECORD «, t00=0x0020, t01=0x0104}
0x3316…3320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0120}
0x3320…3332 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0020, t01=0x012a}
0x3332…3360 Head {h00=0x002a, h01=0x0050, text=» RF(P) DMT260 NOT OVERFLOW OR NEGATIVE«, t00=0x0020, t01=0x013c}
0x3360…3372 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0020, t01=0x016a}
0x3372…3384 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0020, t01=0x017c}
0x3384…3398 Head {h00=0x0010, h01=0x0050, text=»DMT260 EQU *«, t00=0x0020, t01=0x018e}
0x3398…33b0 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A9 «, t00=0x0021, t01=0x0012}
0x33b0…33ca Head {h00=0x0016, h01=0x0050, text=» ST A2,ECBCW+2,A9 «, t00=0x0021, t01=0x002a}
0x33ca…33d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0044}
0x33d4…3412 Head {h00=0x003a, h01=0x0050, text=»* ENTRY ALSO FOR READ RANDOM INDEXED AND START INDEXED«, t00=0x0021, t01=0x004e}
0x3412…341c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x008c}
0x341c…3430 Head {h00=0x0010, h01=0x0050, text=»DMT280 EQU *«, t00=0x0021, t01=0x0096}
0x3430…343a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00aa}
0x343a…344e Head {h00=0x0010, h01=0x0050, text=»* CHECK EA«, t00=0x0021, t01=0x00b4}
0x344e…3458 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00c8}
0x3458…3470 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A9 «, t00=0x0021, t01=0x00d2}
0x3470…3490 Head {h00=0x001c, h01=0x0050, text=» LD A2,ECBCW+2,A9 REC NR«, t00=0x0021, t01=0x00ea}
0x3490…34a6 Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x0021, t01=0x010a}
0x34a6…34ca Head {h00=0x0020, h01=0x0050, text=» ABL(N) DMEAER PROTECT ERROR«, t00=0x0021, t01=0x0120}
0x34ca…34e0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0021, t01=0x0144}
0x34e0…34fe Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTOR,A11 ORDER«, t00=0x0021, t01=0x015a}
0x34fe…3512 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x0021, t01=0x0178}
0x3512…3528 Head {h00=0x0012, h01=0x0050, text=» CWK A4,OSTRTX«, t00=0x0021, t01=0x018c}
0x3528…354c Head {h00=0x0020, h01=0x0050, text=» RB(E) DMT230 START INDEXED «, t00=0x0022, t01=0x0012}
0x354c…3558 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0036}
0x3558…3566 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0042}
0x3566…3584 Head {h00=0x001a, h01=0x0050, text=» CF A14,CALSNO PREP IO«, t00=0x0022, t01=0x0050}
0x3584…35aa Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMTERR OUT OF MEDIUM «, t00=0x0022, t01=0x006e}
0x35aa…35ca Head {h00=0x001c, h01=0x0050, text=» LC A3,FDBDBR,A11 DELAY «, t00=0x0022, t01=0x0094}
0x35ca…35de Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0022, t01=0x00b4}
0x35de…3600 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DMT290 KEEP BUFFER«, t00=0x0022, t01=0x00c8}
0x3600…360a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ea}
0x360a…362a Head {h00=0x001c, h01=0x0050, text=»* RELEASE BLOCK BUFFER«, t00=0x0022, t01=0x00f4}
0x362a…3634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0114}
0x3634…3660 Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMRLB RELEASE BLOCK BUFFER «, t00=0x0022, t01=0x011e}
0x3660…366a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x014a}
0x366a…3684 Head {h00=0x0016, h01=0x0050, text=»* TAKE NEXT RECORD«, t00=0x0022, t01=0x0154}
0x3684…368e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x016e}
0x368e…36a2 Head {h00=0x0010, h01=0x0050, text=»DMT290 EQU *«, t00=0x0022, t01=0x0178}
0x36a2…36c0 Head {h00=0x001a, h01=0x0050, text=» RB DMT020 NEXT RECORD«, t00=0x0022, t01=0x018c}
0x36c0…36d6 Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0023, t01=0x001a}
0x36d6…36e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0030}
0x36e4…370a Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0023, t01=0x003e}
0x370a…3730 Head {h00=0x0022, h01=0x0050, text=»* E X T E N D F I L E * «, t00=0x0023, t01=0x0064}
0x3730…3756 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0023, t01=0x008a}
0x3756…375e Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00b0}
0x375e…3772 Head {h00=0x0010, h01=0x0050, text=»EXTEND EQU *«, t00=0x0023, t01=0x00b8}
0x3772…379e Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 BLOCK BUFFER ADDRESS«, t00=0x0023, t01=0x00cc}
0x379e…37d6 Head {h00=0x0034, h01=0x0050, text=» LDKL A3,OPEFPB BUFFER FOR FILE PARAMETER BLOCK «, t00=0x0023, t01=0x00f8}
0x37d6…3804 Head {h00=0x002a, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS IN ECB «, t00=0x0023, t01=0x0130}
0x3804…3836 Head {h00=0x002e, h01=0x0050, text=» LDK A2,FMFPBL FILE PARAMETER BLOCK LENGTH«, t00=0x0023, t01=0x015e}
0x3836…384e Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0023, t01=0x0190}
0x384e…387a Head {h00=0x0028, h01=0x0050, text=» CF A14,FMIORF READ FILE PARAMETERS «, t00=0x0024, t01=0x0018}
0x387a…38a2 Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBENL,A11 ENLARGE FACTOR«, t00=0x0024, t01=0x0044}
0x38a2…38ca Head {h00=0x0024, h01=0x0050, text=» ST A1,FPB:EL,A3 FILL IN ENLARGE«, t00=0x0024, t01=0x006c}
0x38ca…38ec Head {h00=0x001e, h01=0x0050, text=» CF A14,FMIOEX EXTEND FILE«, t00=0x0024, t01=0x0094}
0x38ec…391c Head {h00=0x002c, h01=0x0050, text=» ST A4,ECBBA,A8 SET BLOCK BUFFER ADDRESS«, t00=0x0024, t01=0x00b6}
0x391c…3938 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) DMTER ERROR «, t00=0x0024, t01=0x00e6}
0x3938…395a Head {h00=0x001e, h01=0x0050, text=» CF A14,FRMFIL FORMAT FILE«, t00=0x0024, t01=0x0102}
0x395a…3986 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DMTER ERROR WHEN FORMATTING «, t00=0x0024, t01=0x0124}
0x3986…39b4 Head {h00=0x002a, h01=0x0050, text=» LDK A7,OWRSQ0 WRITE SEQUENTIAL ORDER «, t00=0x0024, t01=0x0150}
0x39b4…39ce Head {h00=0x0016, h01=0x0050, text=» SC A7,DWTOR+1,A11«, t00=0x0024, t01=0x017e}
0x39ce…39fc Head {h00=0x002a, h01=0x0050, text=» ABL DMT020 TRY WRITE SEQUENTIAL AGAIN«, t00=0x0025, t01=0x0008}
0x39fc…3a08 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0036}
0x3a08…3a16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0042}
0x3a16…3a4e Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0025, t01=0x0050}
0x3a4e…3a86 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0088}
0x3a86…3abe Head {h00=0x0034, h01=0x0050, text=»* D E L E T E I N D E X E D * «, t00=0x0025, t01=0x00c0}
0x3abe…3af6 Head {h00=0x0034, h01=0x0050, text=»* R E W R I T E I N D E X E D * «, t00=0x0025, t01=0x00f8}
0x3af6…3b2e Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0130}
0x3b2e…3b66 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0025, t01=0x0168}
0x3b66…3b6e Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x0010}
0x3b6e…3b92 Head {h00=0x0020, h01=0x0050, text=»DELTIX EQU * DELETE INDEXED «, t00=0x0026, t01=0x0018}
0x3b92…3bb6 Head {h00=0x0020, h01=0x0050, text=»REWRIX EQU * REWRITE INDEXED«, t00=0x0026, t01=0x003c}
0x3bb6…3bcc Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0026, t01=0x0060}
0x3bcc…3be2 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/100 «, t00=0x0026, t01=0x0076}
0x3be2…3c02 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DELT00 NOT DIRECT«, t00=0x0026, t01=0x008c}
0x3c02…3c32 Head {h00=0x002c, h01=0x0050, text=» CF A14,FNDKYP SET PARAM AND THEN FNDKEY«, t00=0x0026, t01=0x00ac}
0x3c32…3c58 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMIER2 KEY NOT FOUND «, t00=0x0026, t01=0x00dc}
0x3c58…3c7e Head {h00=0x0022, h01=0x0050, text=» LD A9,DWTECB,A11 ECB ADDRESS «, t00=0x0026, t01=0x0102}
0x3c7e…3cae Head {h00=0x002c, h01=0x0050, text=» CF A14,RECECB MOVE RECORD NUMBER TO ECB«, t00=0x0026, t01=0x0128}
0x3cae…3cde Head {h00=0x002c, h01=0x0050, text=» CF A14,SDMRBU REALEASE BLOCK BUFFER =B «, t00=0x0026, t01=0x0158}
0x3cde…3d0c Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTOR,A11 INTERN ORDER INDEX =6«, t00=0x0026, t01=0x0188}
0x3d0c…3d40 Head {h00=0x0030, h01=0x0050, text=» LD A11,FDBADF,A11 FDB ADDRESS DATA FILE =6 «, t00=0x0027, t01=0x0026}
0x3d40…3d7c Head {h00=0x0038, h01=0x0050, text=» ANKL A1,/FEFF INDICATE CURRENT INSTEAD OF DIRECT =6«, t00=0x0027, t01=0x005a}
0x3d7c…3dae Head {h00=0x002e, h01=0x0050, text=» ST A1,DWTOR,A11 SAVE IN FDB DATA FILE =6 «, t00=0x0027, t01=0x0096}
0x3dae…3dc6 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A9 «, t00=0x0027, t01=0x00c8}
0x3dc6…3de0 Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A9 «, t00=0x0027, t01=0x00e0}
0x3de0…3df6 Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x0027, t01=0x00fa}
0x3df6…3e1a Head {h00=0x0020, h01=0x0050, text=» ABL(N) DMEAER EA OTHER TASK«, t00=0x0027, t01=0x0110}
0x3e1a…3e58 Head {h00=0x003a, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NUMBER AND OFFSET IN SECTOR «, t00=0x0027, t01=0x0134}
0x3e58…3e76 Head {h00=0x001a, h01=0x0050, text=» ABL(NZ) SDMERX ERROR «, t00=0x0027, t01=0x0172}
0x3e76…3e8e Head {h00=0x0014, h01=0x0050, text=» LDR A8,A11 =6 «, t00=0x0027, t01=0x0190}
0x3e8e…3eb8 Head {h00=0x0026, h01=0x0050, text=» ADKL A8,FDBECB SDM ECB ADDRESS =6«, t00=0x0028, t01=0x0018}
0x3eb8…3ee2 Head {h00=0x0026, h01=0x0050, text=» ABL DMT015 GET BLOCK BUFFER =6 =8«, t00=0x0028, t01=0x0042}
0x3ee2…3eee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x006c}
0x3eee…3efc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0078}
0x3efc…3f34 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0028, t01=0x0086}
0x3f34…3f6c Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0028, t01=0x00be}
0x3f6c…3fa4 Head {h00=0x0034, h01=0x0050, text=»* W R I T E S E Q U E N T I A L * «, t00=0x0028, t01=0x00f6}
0x3fa4…3fdc Head {h00=0x0034, h01=0x0050, text=»* W R I T E R A N D O M * «, t00=0x0028, t01=0x012e}
0x3fdc…4014 Head {h00=0x0034, h01=0x0050, text=»* R E W R I T E N O T I N D E X E D * «, t00=0x0028, t01=0x0166}
0x4014…404c Head {h00=0x0034, h01=0x0050, text=»* D E L E T E N O T I N D E X E D * «, t00=0x0029, t01=0x000e}
0x404c…4084 Head {h00=0x0034, h01=0x0050, text=»* W R I T E R A N D O M I N D E X E D * «, t00=0x0029, t01=0x0046}
0x4084…40bc Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0029, t01=0x007e}
0x40bc…40f4 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0029, t01=0x00b6}
0x40f4…40fc Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x00ee}
0x40fc…4122 Head {h00=0x0022, h01=0x0050, text=»WRSQ00 EQU * WRITE SEQUENTIAL «, t00=0x0029, t01=0x00f6}
0x4122…4144 Head {h00=0x001e, h01=0x0050, text=»WRRM00 EQU * WRITE RANDOM «, t00=0x0029, t01=0x011c}
0x4144…416e Head {h00=0x0026, h01=0x0050, text=»WRRMIX EQU * WRITE RANDOM INDEXED «, t00=0x0029, t01=0x013e}
0x416e…4196 Head {h00=0x0024, h01=0x0050, text=»REWR00 EQU * REWRITE NOT INDEXED«, t00=0x0029, t01=0x0168}
0x4196…41be Head {h00=0x0024, h01=0x0050, text=»DELT00 EQU * DELETE NOT INDEXED «, t00=0x0029, t01=0x0190}
0x41be…41c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0028}
0x41c8…41f2 Head {h00=0x0026, h01=0x0050, text=»* TEST IF OPENED OUTPUT SEQUENTIAL«, t00=0x002a, t01=0x0032}
0x41f2…41fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x005c}
0x41fc…4230 Head {h00=0x0030, h01=0x0050, text=» CF A14,CHKSTS A10=POINTER TO RECORD STATUS «, t00=0x002a, t01=0x0066}
0x4230…424a Head {h00=0x0016, h01=0x0050, text=» LC A1,FDBOMD,A11 «, t00=0x002a, t01=0x009a}
0x424a…425e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x002a, t01=0x00b4}
0x425e…4274 Head {h00=0x0012, h01=0x0050, text=» CWK A1,SDMOOS«, t00=0x002a, t01=0x00c8}
0x4274…42a8 Head {h00=0x0030, h01=0x0050, text=» RF(E) DMS110 OUTPUT SEQ.,DON'T CHECK STATUS«, t00=0x002a, t01=0x00de}
0x42a8…42b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0112}
0x42b2…42c8 Head {h00=0x0012, h01=0x0050, text=»* CHECK STATUS«, t00=0x002a, t01=0x011c}
0x42c8…42d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0132}
0x42d2…42fc Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKSTS CHECK RECORD STATUS«, t00=0x002a, t01=0x013c}
0x42fc…4328 Head {h00=0x0028, h01=0x0050, text=» RF(Z) DMS110 RECORD STATUS=NOT USED«, t00=0x002a, t01=0x0166}
0x4328…4336 (43, 0, 398) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0004}
0x4336…4340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0012}
0x4340…435c Head {h00=0x0018, h01=0x0050, text=»* RECORD STATUS=USED«, t00=0x002b, t01=0x001c}
0x435c…4366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0038}
0x4366…437c Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002b, t01=0x0042}
0x437c…438e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x002b, t01=0x0058}
0x438e…43a4 Head {h00=0x0012, h01=0x0050, text=» SUK A4,OWRRMX«, t00=0x002b, t01=0x006a}
0x43a4…43ce Head {h00=0x0026, h01=0x0050, text=» RF(Z) DMS100 WRITE RANDOM INDEXED«, t00=0x002b, t01=0x0080}
0x43ce…43da Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00aa}
0x43da…43ec Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x002b, t01=0x00b6}
0x43ec…4402 Head {h00=0x0012, h01=0x0050, text=» SUK A4,OWRRM0«, t00=0x002b, t01=0x00c8}
0x4402…4424 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMS100 WRITE RANDOM«, t00=0x002b, t01=0x00de}
0x4424…4442 Head {h00=0x001a, h01=0x0050, text=» SUK A4,OWRSQ0-OWRRM0 «, t00=0x002b, t01=0x0100}
0x4442…446e Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DMS120 NOT WRITE SEQUENTIAL «, t00=0x002b, t01=0x011e}
0x446e…4482 Head {h00=0x0010, h01=0x0050, text=»DMS100 EQU *«, t00=0x002b, t01=0x014a}
0x4482…449e Head {h00=0x0018, h01=0x0050, text=» RF DMERPR PROTECTED«, t00=0x002b, t01=0x015e}
0x449e…44ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x017a}
0x44ac…44b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0188}
0x44b6…44d6 (44, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* RECORD STATUS=NOT USED«, t00=0x002c, t01=0x0004}
0x44d6…44e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0024}
0x44e0…44f4 Head {h00=0x0010, h01=0x0050, text=»DMS110 EQU *«, t00=0x002c, t01=0x002e}
0x44f4…450a Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002c, t01=0x0042}
0x450a…451c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x002c, t01=0x0058}
0x451c…4532 Head {h00=0x0012, h01=0x0050, text=» SUK A4,OREWRX«, t00=0x002c, t01=0x006a}
0x4532…4558 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMERND REWRITE INDEXED «, t00=0x002c, t01=0x0080}
0x4558…4576 Head {h00=0x001a, h01=0x0050, text=» SUK A4,ODELTX-OREWRX «, t00=0x002c, t01=0x00a6}
0x4576…459a Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMERND DELETE INDEXED«, t00=0x002c, t01=0x00c4}
0x459a…45a6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00e8}
0x45a6…45b8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x002c, t01=0x00f4}
0x45b8…45ce Head {h00=0x0012, h01=0x0050, text=» SUK A4,OREWR0«, t00=0x002c, t01=0x0106}
0x45ce…45f8 Head {h00=0x0026, h01=0x0050, text=» RF(Z) DMERND REWRITE NOT INDEXED «, t00=0x002c, t01=0x011c}
0x45f8…4616 Head {h00=0x001a, h01=0x0050, text=» SUK A4,ODELT0-OREWR0 «, t00=0x002c, t01=0x0146}
0x4616…463e Head {h00=0x0024, h01=0x0050, text=» RF(Z) DMERND DELETE NOT INDEXED«, t00=0x002c, t01=0x0164}
0x463e…4652 Head {h00=0x0010, h01=0x0050, text=»DMS120 EQU *«, t00=0x002c, t01=0x018c}
0x4652…4668 Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x002d, t01=0x0010}
0x4668…468c Head {h00=0x0020, h01=0x0050, text=» RF(N) DMEAER EA OTHER TASK «, t00=0x002d, t01=0x0026}
0x468c…469a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x004a}
0x469a…46b8 Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 STATUS FREE «, t00=0x002d, t01=0x0058}
0x46b8…46ce Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002d, t01=0x0076}
0x46ce…46e0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x002d, t01=0x008c}
0x46e0…46f6 Head {h00=0x0012, h01=0x0050, text=» SUK A2,OWRRMX«, t00=0x002d, t01=0x009e}
0x46f6…4720 Head {h00=0x0026, h01=0x0050, text=» RF(E) CHK010 WRITE RANDOM INDEXED«, t00=0x002d, t01=0x00b4}
0x4720…473e Head {h00=0x001a, h01=0x0050, text=» SUK A2,OREWRX-OWRRMX «, t00=0x002d, t01=0x00de}
0x473e…4764 Head {h00=0x0022, h01=0x0050, text=» RF(E) CHK010 REWRITE INDEXED «, t00=0x002d, t01=0x00fc}
0x4764…477c Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBKA,A11«, t00=0x002d, t01=0x0122}
0x477c…47b0 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) DMT350 DELETE INDEXED (SECOND PASS) «, t00=0x002d, t01=0x013a}
0x47b0…47ce Head {h00=0x001a, h01=0x0050, text=» SUK A2,ODELTX-OREWRX «, t00=0x002d, t01=0x016e}
0x47ce…47f2 Head {h00=0x0020, h01=0x0050, text=» RF(E) CHK010 DELETE INDEXED«, t00=0x002d, t01=0x018c}
0x47f2…47fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0020}
0x47fe…4810 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x002e, t01=0x002c}
0x4810…4826 Head {h00=0x0012, h01=0x0050, text=» SUK A2,ODELT0«, t00=0x002e, t01=0x003e}
0x4826…484e Head {h00=0x0024, h01=0x0050, text=» RF(E) DMT350 DELETE NOT INDEXED«, t00=0x002e, t01=0x0054}
0x484e…4864 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x002e, t01=0x007c}
0x4864…4876 Head {h00=0x000e, h01=0x0050, text=» RF DMT320«, t00=0x002e, t01=0x0092}
0x4876…4882 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00a4}
0x4882…4898 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002e, t01=0x00b0}
0x4898…48aa Head {h00=0x000e, h01=0x0050, text=» RF DMT310«, t00=0x002e, t01=0x00c6}
0x48aa…48b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00d8}
0x48b8…48cc Head {h00=0x0010, h01=0x0050, text=»CHK010 EQU *«, t00=0x002e, t01=0x00e6}
0x48cc…491c Head {h00=0x004c, h01=0x0050, text=»* REWRITE INDEXED,WRITE RANDOM INDEXED AND DELETE INDEXED ENTERS HERE «, t00=0x002e, t01=0x00fa}
0x491c…4926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014a}
0x4926…4956 Head {h00=0x002c, h01=0x0050, text=»* COMPARE KEYS IN FILE AND USER BUFFER«, t00=0x002e, t01=0x0154}
0x4956…4960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0184}
0x4960…497e Head {h00=0x001a, h01=0x0050, text=» LDK A4,8 MAX 4 INDEX «, t00=0x002e, t01=0x018e}
0x497e…4992 Head {h00=0x0010, h01=0x0050, text=»CHK040 EQU *«, t00=0x002f, t01=0x001c}
0x4992…49a4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x002f, t01=0x0030}
0x49a4…49cc Head {h00=0x0024, h01=0x0050, text=» RF(N) CHK100 ALL INDEX CHECKED «, t00=0x002f, t01=0x0042}
0x49cc…49e8 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A11 FDB ADD «, t00=0x002f, t01=0x006a}
0x49e8…49fa Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x002f, t01=0x0086}
0x49fa…4a26 Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBAI1,A2 FDB ADDR INDEX FILE«, t00=0x002f, t01=0x0098}
0x4a26…4a44 Head {h00=0x001a, h01=0x0050, text=» RB(Z) CHK040 NO INDEX«, t00=0x002f, t01=0x00c4}
0x4a44…4a5c Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A11«, t00=0x002f, t01=0x00e2}
0x4a5c…4a7c Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F ORDER INDEX «, t00=0x002f, t01=0x00fa}
0x4a7c…4a92 Head {h00=0x0012, h01=0x0050, text=» SUK A2,OWRRMX«, t00=0x002f, t01=0x011a}
0x4a92…4aba Head {h00=0x0024, h01=0x0050, text=» RB(Z) CHK040 NO CHECK ON INSERT«, t00=0x002f, t01=0x0130}
0x4aba…4ad8 Head {h00=0x001a, h01=0x0050, text=» SUK A2,OREWRX-OWRRMX «, t00=0x002f, t01=0x0158}
0x4ad8…4afc Head {h00=0x0020, h01=0x0050, text=» RF(Z) CHK050 CHECK REWRITE «, t00=0x002f, t01=0x0176}
0x4afc…4b1c Head {h00=0x001c, h01=0x0050, text=» LC A2,DWTOPT,A11 OPTION«, t00=0x0030, t01=0x000a}
0x4b1c…4b2e Head {h00=0x000e, h01=0x0050, text=» ANK A2,/4«, t00=0x0030, t01=0x002a}
0x4b2e…4b5c Head {h00=0x002a, h01=0x0050, text=» RB(NZ) CHK040 NO CHECK ON DEL CURRENT«, t00=0x0030, t01=0x003c}
0x4b5c…4b6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x006a}
0x4b6a…4b78 Head {h00=0x000a, h01=0x0050, text=»* =3«, t00=0x0030, t01=0x0078}
0x4b78…4ba0 Head {h00=0x0024, h01=0x0050, text=»* A6=FDB ADDRESS INDEX FILE =3 «, t00=0x0030, t01=0x0086}
0x4ba0…4bae Head {h00=0x000a, h01=0x0050, text=»* =3«, t00=0x0030, t01=0x00ae}
0x4bae…4bc2 Head {h00=0x0010, h01=0x0050, text=»CHK050 EQU *«, t00=0x0030, t01=0x00bc}
0x4bc2…4bec Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 GET USER ECB =9 «, t00=0x0030, t01=0x00d0}
0x4bec…4c02 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0030, t01=0x00fa}
0x4c02…4c32 Head {h00=0x002c, h01=0x0050, text=» LD A1,FDBKA,A6 GET KEY START ADDRESS =3«, t00=0x0030, t01=0x0110}
0x4c32…4c4a Head {h00=0x0014, h01=0x0050, text=» AD A1,ECBBA,A9 «, t00=0x0030, t01=0x0140}
0x4c4a…4c80 Head {h00=0x0032, h01=0x0050, text=» LDKL A2,FDBKEY GET KEY SAVE AREA DISPLACEMENT«, t00=0x0030, t01=0x0158}
0x4c80…4caa Head {h00=0x0026, h01=0x0050, text=» ADR A2,A6 GET KEY AREA POINTER =3«, t00=0x0030, t01=0x018e}
0x4caa…4cd4 Head {h00=0x0026, h01=0x0050, text=» LD A3,FDBRLE,A6 RECORD LENGTH =3 «, t00=0x0031, t01=0x0028}
0x4cd4…4cf0 Head {h00=0x0018, h01=0x0050, text=» SUK A3,6 KEY LENGTH«, t00=0x0031, t01=0x0052}
0x4cf0…4d0e Head {h00=0x001a, h01=0x0050, text=» LDR A9,A4 SAVE A4 =1 «, t00=0x0031, t01=0x006e}
0x4d0e…4d38 Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTTAB,A11 GET TTAB ADDRESS«, t00=0x0031, t01=0x008c}
0x4d38…4d68 Head {h00=0x002c, h01=0x0050, text=» CF A14,MOV:US MOVE KEY TO FDB KEY AREA «, t00=0x0031, t01=0x00b6}
0x4d68…4d88 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A9 RESTORE A4 =1«, t00=0x0031, t01=0x00e6}
0x4d88…4dbe Head {h00=0x0032, h01=0x0050, text=» LD A9,FDBKA,A6 GET KEY START DISPLACEMENT =3 «, t00=0x0031, t01=0x0106}
0x4dbe…4dca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x013c}
0x4dca…4de0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0031, t01=0x0148}
0x4de0…4df6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0031, t01=0x015e}
0x4df6…4e22 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBA,A9 USER BUFFER ADDRESS «, t00=0x0031, t01=0x0174}
0x4e22…4e4c Head {h00=0x0026, h01=0x0050, text=» LD A9,FDBKA,A11 KEY START ADDRESS«, t00=0x0032, t01=0x0010}
0x4e4c…4e5e Head {h00=0x000e, h01=0x0050, text=» ADR A2,A9«, t00=0x0032, t01=0x003a}
0x4e5e…4e6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x004c}
0x4e6a…4e80 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0032, t01=0x0058}
0x4e80…4e8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x006e}
0x4e8e…4eb2 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A2 ENTRY KEY ADDRESS«, t00=0x0032, t01=0x007c}
0x4eb2…4ecc Head {h00=0x0016, h01=0x0050, text=» AD A9,FDBRRO,A11 «, t00=0x0032, t01=0x00a0}
0x4ecc…4eea Head {h00=0x001a, h01=0x0050, text=» ADR A9,A5 KEY IN FILE«, t00=0x0032, t01=0x00ba}
0x4eea…4efc Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0032, t01=0x00d8}
0x4efc…4f22 Head {h00=0x0022, h01=0x0050, text=» LD A6,FDBRLE,A6 RECORD LENGTH«, t00=0x0032, t01=0x00ea}
0x4f22…4f3e Head {h00=0x0018, h01=0x0050, text=» SUK A6,6 KEY LENGTH«, t00=0x0032, t01=0x0110}
0x4f3e…4f62 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0032, t01=0x012c}
0x4f62…4f74 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x0032, t01=0x0150}
0x4f74…4fa2 Head {h00=0x002a, h01=0x0050, text=» RB(E) CHK040 KEY UNCHANGED CHECK NEXT«, t00=0x0032, t01=0x0162}
0x4fa2…4fbe Head {h00=0x0018, h01=0x0050, text=» RF DMERPR PROTECTED«, t00=0x0032, t01=0x0190}
0x4fbe…4fce Head {h00=0x000c, h01=0x0050, text=»* =3 «, t00=0x0033, t01=0x001c}
0x4fce…4ff2 Head {h00=0x0020, h01=0x0050, text=»* END OF CHECK KEY LOOP =3 «, t00=0x0033, t01=0x002c}
0x4ff2…5002 Head {h00=0x000c, h01=0x0050, text=»* =3 «, t00=0x0033, t01=0x0050}
0x5002…5016 Head {h00=0x0010, h01=0x0050, text=»CHK100 EQU *«, t00=0x0033, t01=0x0060}
0x5016…502e Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A11«, t00=0x0033, t01=0x0074}
0x502e…504e Head {h00=0x001c, h01=0x0050, text=» ANK A7,/3F ORDER INDEX «, t00=0x0033, t01=0x008c}
0x504e…505a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x00ac}
0x505a…5068 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x00b8}
0x5068…5072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c6}
0x5072…508a Head {h00=0x0014, h01=0x0050, text=»* MOVE RECORD «, t00=0x0033, t01=0x00d0}
0x508a…5094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00e8}
0x5094…50a8 Head {h00=0x0010, h01=0x0050, text=»DMT310 EQU *«, t00=0x0033, t01=0x00f2}
0x50a8…50be Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0033, t01=0x0106}
0x50be…50d4 Head {h00=0x0012, h01=0x0050, text=» SUK A7,ODELTX«, t00=0x0033, t01=0x011c}
0x50d4…50fe Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DMT320 NOT DELETE INDEXED «, t00=0x0033, t01=0x0132}
0x50fe…5108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x015c}
0x5108…512e Head {h00=0x0022, h01=0x0050, text=»* MOVE KEYS TO FDB KEY AREAS«, t00=0x0033, t01=0x0166}
0x512e…5138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x018c}
0x5138…514a Head {h00=0x000e, h01=0x0050, text=» LDK A4,8 «, t00=0x0034, t01=0x0008}
0x514a…515e Head {h00=0x0010, h01=0x0050, text=»IXINS3 EQU *«, t00=0x0034, t01=0x001a}
0x515e…517a Head {h00=0x0018, h01=0x0050, text=» LDR A3,A11 FDB DATA«, t00=0x0034, t01=0x002e}
0x517a…518c Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0034, t01=0x004a}
0x518c…51ae Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBADF,A3 FDB INDEX«, t00=0x0034, t01=0x005c}
0x51ae…51cc Head {h00=0x001a, h01=0x0050, text=» RF(Z) IXINS4 NO INDEX«, t00=0x0034, t01=0x007e}
0x51cc…51ec Head {h00=0x001c, h01=0x0050, text=» LD A1,FDBKA,A2 KEY ADDR«, t00=0x0034, t01=0x009c}
0x51ec…520e Head {h00=0x001e, h01=0x0050, text=» AD A1,FDBRRO,A11 REC OFFS«, t00=0x0034, t01=0x00bc}
0x520e…523a Head {h00=0x0028, h01=0x0050, text=» ADR A1,A5 BUFFERADDR GIVES KEY ADDR«, t00=0x0034, t01=0x00de}
0x523a…5260 Head {h00=0x0022, h01=0x0050, text=» LD A3,FDBRLE,A2 RECORD LENGTH«, t00=0x0034, t01=0x010a}
0x5260…527a Head {h00=0x0016, h01=0x0050, text=» SUK A3,6 KEY LGTH«, t00=0x0034, t01=0x0130}
0x527a…529a Head {h00=0x001c, h01=0x0050, text=» ADKL A2,FDBKEY TO ADDR «, t00=0x0034, t01=0x014a}
0x529a…52c0 Head {h00=0x0022, h01=0x0050, text=» CF A14,MOVFW KEY TO FDB AREA «, t00=0x0034, t01=0x016a}
0x52c0…52d4 Head {h00=0x0010, h01=0x0050, text=»IXINS4 EQU *«, t00=0x0034, t01=0x0190}
0x52d4…52e6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0035, t01=0x0014}
0x52e6…5308 Head {h00=0x001e, h01=0x0050, text=» RB(NZ) IXINS3 MORE INDEXS«, t00=0x0035, t01=0x0026}
0x5308…532a Head {h00=0x001e, h01=0x0050, text=» ABL DMXDEL DELETE INDEXED«, t00=0x0035, t01=0x0048}
0x532a…5336 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x006a}
0x5336…5344 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0076}
0x5344…5360 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x0084}
0x5360…537c Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0035, t01=0x00a0}
0x537c…5398 Head {h00=0x0018, h01=0x0050, text=»* E R R O R *«, t00=0x0035, t01=0x00bc}
0x5398…53b4 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0035, t01=0x00d8}
0x53b4…53d0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x00f4}
0x53d0…53d8 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x0110}
0x53d8…53ec Head {h00=0x0010, h01=0x0050, text=»DMERPR EQU *«, t00=0x0035, t01=0x0118}
0x53ec…540c Head {h00=0x001c, h01=0x0050, text=» LDKL A1,PROT PROTECTED «, t00=0x0035, t01=0x012c}
0x540c…541e Head {h00=0x000e, h01=0x0050, text=» RF DMERR «, t00=0x0035, t01=0x014c}
0x541e…5444 Head {h00=0x0022, h01=0x0050, text=»DMERND LDKL A1,NODERR NO DATA «, t00=0x0035, t01=0x015e}
0x5444…5456 Head {h00=0x000e, h01=0x0050, text=» RF DMERR «, t00=0x0035, t01=0x0184}
0x5456…5484 Head {h00=0x002a, h01=0x0050, text=»DMEAER EQU * RELEASE EA FOR ALL FILES «, t00=0x0036, t01=0x0008}
0x5484…54aa Head {h00=0x0022, h01=0x0050, text=» LC A3,FDBTNR,A11 USER TASK ID«, t00=0x0036, t01=0x0036}
0x54aa…54be Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0036, t01=0x005c}
0x54be…54e4 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELPRO RELEASE PROTECT«, t00=0x0036, t01=0x0070}
0x54e4…5508 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,PROERR PROTECT ERR «, t00=0x0036, t01=0x0096}
0x5508…551c Head {h00=0x0010, h01=0x0050, text=»DMERR EQU * «, t00=0x0036, t01=0x00ba}
0x551c…552e Head {h00=0x000e, h01=0x0050, text=» RF DMTERR«, t00=0x0036, t01=0x00ce}
0x552e…553c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00e0}
0x553c…5546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00ee}
0x5546…5574 Head {h00=0x002a, h01=0x0050, text=»* MOVE RECORD FROM USER TO SYSTEM AREA«, t00=0x0036, t01=0x00f8}
0x5574…557e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0126}
0x557e…5592 Head {h00=0x0010, h01=0x0050, text=»DMT320 EQU *«, t00=0x0036, t01=0x0130}
0x5592…55bc Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB ADDRESS«, t00=0x0036, t01=0x0144}
0x55bc…55e4 Head {h00=0x0024, h01=0x0050, text=» LD A3,FDBRLE,A11 RECORD LENGTH «, t00=0x0036, t01=0x016e}
0x55e4…55fe Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBRRO,A11 «, t00=0x0037, t01=0x0008}
0x55fe…561c Head {h00=0x001a, h01=0x0050, text=» ADR A2,A5 TO ADDRESS «, t00=0x0037, t01=0x0022}
0x561c…5640 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBBA,A9 FROM ADDRESS«, t00=0x0037, t01=0x0040}
0x5640…5656 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0037, t01=0x0064}
0x5656…566c Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVFW «, t00=0x0037, t01=0x007a}
0x566c…5678 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0090}
0x5678…568e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0037, t01=0x009c}
0x568e…56b8 Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTTAB,A11 GET TTAB ADDRESS«, t00=0x0037, t01=0x00b2}
0x56b8…56f4 Head {h00=0x0038, h01=0x0050, text=» CF A14,MOV:US MOVE RECORD FROM USER TO SYSTEM AREA «, t00=0x0037, t01=0x00dc}
0x56f4…5700 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0118}
0x5700…570e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0124}
0x570e…5718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0132}
0x5718…5722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x013c}
0x5722…573e Head {h00=0x0018, h01=0x0050, text=»* SET STATUS USED «, t00=0x0037, t01=0x0146}
0x573e…5748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0162}
0x5748…575c Head {h00=0x0010, h01=0x0050, text=» LDK A3,/FF «, t00=0x0037, t01=0x016c}
0x575c…5776 Head {h00=0x0016, h01=0x0050, text=»DMT350 SCR A3,A10 «, t00=0x0037, t01=0x0180}
0x5776…5790 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBDBR,A11 «, t00=0x0038, t01=0x000a}
0x5790…57b0 Head {h00=0x001c, h01=0x0050, text=» RF(NN) DMT390 NO DELAY «, t00=0x0038, t01=0x0024}
0x57b0…57ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0044}
0x57ba…57ca Head {h00=0x000c, h01=0x0050, text=»* DELAY «, t00=0x0038, t01=0x004e}
0x57ca…57d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x005e}
0x57d4…57ea Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/1000«, t00=0x0038, t01=0x0068}
0x57ea…5810 Head {h00=0x0022, h01=0x0050, text=» ORS A2,FDBDBR,A11 KEEP BUFFER«, t00=0x0038, t01=0x007e}
0x5810…5822 Head {h00=0x000e, h01=0x0050, text=» RF DMT400«, t00=0x0038, t01=0x00a4}
0x5822…582c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b6}
0x582c…584c Head {h00=0x001c, h01=0x0050, text=»* WRITE BLOCK TO DISC «, t00=0x0038, t01=0x00c0}
0x584c…5856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e0}
0x5856…586a Head {h00=0x0010, h01=0x0050, text=»DMT390 EQU *«, t00=0x0038, t01=0x00ea}
0x586a…5880 Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x0038, t01=0x00fe}
0x5880…5896 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMTERR«, t00=0x0038, t01=0x0114}
0x5896…58a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x012a}
0x58a4…58ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0138}
0x58ae…58da Head {h00=0x0028, h01=0x0050, text=»* SET CURRENCY AND EXCLUSIVE ACCESS «, t00=0x0038, t01=0x0142}
0x58da…58e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x016e}
0x58e4…58f8 Head {h00=0x0010, h01=0x0050, text=»DMT400 EQU *«, t00=0x0038, t01=0x0178}
0x58f8…5922 Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNGET GET CURRENCY BUFFER«, t00=0x0038, t01=0x018c}
0x5922…5942 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A2 BUFFER ADDR «, t00=0x0039, t01=0x0026}
0x5942…595a Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A9 «, t00=0x0039, t01=0x0046}
0x595a…597e Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW+2,A9 LOG REC NR«, t00=0x0039, t01=0x005e}
0x597e…5996 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A11«, t00=0x0039, t01=0x0082}
0x5996…59b6 Head {h00=0x001c, h01=0x0050, text=» ANK A7,/3F ORDER INDEX «, t00=0x0039, t01=0x009a}
0x59b6…59c8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0039, t01=0x00ba}
0x59c8…59de Head {h00=0x0012, h01=0x0050, text=» SUK A4,OWRRM0«, t00=0x0039, t01=0x00cc}
0x59de…5a00 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT450 WRITE RANDOM«, t00=0x0039, t01=0x00e2}
0x5a00…5a1e Head {h00=0x001a, h01=0x0050, text=» SUK A4,OWRSQ0-OWRRM0 «, t00=0x0039, t01=0x0104}
0x5a1e…5a44 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT440 WRITE SEQUENTIAL«, t00=0x0039, t01=0x0122}
0x5a44…5a62 Head {h00=0x001a, h01=0x0050, text=» SUK A4,OREWR0-OWRSQ0 «, t00=0x0039, t01=0x0148}
0x5a62…5a8c Head {h00=0x0026, h01=0x0050, text=» RF(Z) DMT450 REWRITE NOT INDEXED «, t00=0x0039, t01=0x0166}
0x5a8c…5aa2 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0039, t01=0x0190}
0x5aa2…5ac0 Head {h00=0x001a, h01=0x0050, text=» SUK A4,OREWRX-OREWR0 «, t00=0x003a, t01=0x0016}
0x5ac0…5ae6 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT450 REWRITE INDEXED «, t00=0x003a, t01=0x0034}
0x5ae6…5b04 Head {h00=0x001a, h01=0x0050, text=» ADK A4,OREWRX-OWRRMX «, t00=0x003a, t01=0x005a}
0x5b04…5b2e Head {h00=0x0026, h01=0x0050, text=» RF(Z) DMT440 WRITE RANDOM INDEXED«, t00=0x003a, t01=0x0078}
0x5b2e…5b4c Head {h00=0x001a, h01=0x0050, text=» SUK A4,OSTRTX-OWRRMX «, t00=0x003a, t01=0x00a2}
0x5b4c…5b70 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMT410 START INDEXED «, t00=0x003a, t01=0x00c0}
0x5b70…5b7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00e4}
0x5b7c…5b9a Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 ORDER INDEX«, t00=0x003a, t01=0x00f0}
0x5b9a…5bb0 Head {h00=0x0012, h01=0x0050, text=» SUK A4,OSTRTD«, t00=0x003a, t01=0x010e}
0x5bb0…5bd8 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT430 NOT START DIRECT «, t00=0x003a, t01=0x0124}
0x5bd8…5be6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x014c}
0x5be6…5bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x015a}
0x5bf0…5c1e Head {h00=0x002a, h01=0x0050, text=»* START A1,A2=LOGICAL RECORD NUMBER «, t00=0x003a, t01=0x0164}
0x5c1e…5c28 (59, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0004}
0x5c28…5c3c Head {h00=0x0010, h01=0x0050, text=»* LRN=LRN-1 «, t00=0x003b, t01=0x000e}
0x5c3c…5c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0022}
0x5c46…5c5a Head {h00=0x0010, h01=0x0050, text=»DMT410 EQU *«, t00=0x003b, t01=0x002c}
0x5c5a…5c6c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x003b, t01=0x0040}
0x5c6c…5c7e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003b, t01=0x0052}
0x5c7e…5c90 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x003b, t01=0x0064}
0x5c90…5ca6 Head {h00=0x0012, h01=0x0050, text=» RF(NN) DMT420«, t00=0x003b, t01=0x0076}
0x5ca6…5cbc Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/7FFF«, t00=0x003b, t01=0x008c}
0x5cbc…5cce Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x003b, t01=0x00a2}
0x5cce…5cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00b4}
0x5cd8…5d00 Head {h00=0x0024, h01=0x0050, text=»* SET NEW CURRENT RECORD NUMBER «, t00=0x003b, t01=0x00be}
0x5d00…5d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00e6}
0x5d0a…5d1e Head {h00=0x0010, h01=0x0050, text=»DMT420 EQU *«, t00=0x003b, t01=0x00f0}
0x5d1e…5d44 Head {h00=0x0022, h01=0x0050, text=» ST A3,CRNCDF,A10 NEW CURRENCY«, t00=0x003b, t01=0x0104}
0x5d44…5d60 Head {h00=0x0018, h01=0x0050, text=» ST A4,CRNCDF+2,A10 «, t00=0x003b, t01=0x012a}
0x5d60…5d72 Head {h00=0x000e, h01=0x0050, text=» RF DMT450«, t00=0x003b, t01=0x0146}
0x5d72…5d7a Head {h00=0x0004, h01=0x0050, t00=0x003b, t01=0x0158}
0x5d7a…5d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0160}
0x5d84…5da8 Head {h00=0x0020, h01=0x0050, text=»* SET CURRENT RECORD NUMBER «, t00=0x003b, t01=0x016a}
0x5da8…5db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x018e}
0x5db2…5dc6 Head {h00=0x0010, h01=0x0050, text=»DMT430 EQU *«, t00=0x003c, t01=0x0008}
0x5dc6…5de0 Head {h00=0x0016, h01=0x0050, text=» ST A1,CRNCDF,A10 «, t00=0x003c, t01=0x001c}
0x5de0…5e0a Head {h00=0x0026, h01=0x0050, text=» ST A2,CRNCDF+2,A10 CRN DATA FILE «, t00=0x003c, t01=0x0036}
0x5e0a…5e1c Head {h00=0x000e, h01=0x0050, text=» RF DMT450«, t00=0x003c, t01=0x0060}
0x5e1c…5e24 Head {h00=0x0004, h01=0x0050, t00=0x003c, t01=0x0072}
0x5e24…5e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x007a}
0x5e2e…5e44 Head {h00=0x0012, h01=0x0050, text=»* UPDATE LRN«, t00=0x003c, t01=0x0084}
0x5e44…5e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x009a}
0x5e4e…5e62 Head {h00=0x0010, h01=0x0050, text=»DMT440 EQU *«, t00=0x003c, t01=0x00a4}
0x5e62…5e7c Head {h00=0x0016, h01=0x0050, text=» SC A1,FDBLRN,A11 «, t00=0x003c, t01=0x00b8}
0x5e7c…5e98 Head {h00=0x0018, h01=0x0050, text=» ST A2,FDBLRN+1,A11 «, t00=0x003c, t01=0x00d2}
0x5e98…5ea6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00ee}
0x5ea6…5eba Head {h00=0x0010, h01=0x0050, text=»DMT450 EQU *«, t00=0x003c, t01=0x00fc}
0x5eba…5ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0110}
0x5ec4…5ede Head {h00=0x0016, h01=0x0050, text=»* CHECK PROTECT «, t00=0x003c, t01=0x011a}
0x5ede…5ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0134}
0x5ee8…5f0c Head {h00=0x0020, h01=0x0050, text=» LC A4,FDBOMD,A11 OPEN MODE «, t00=0x003c, t01=0x013e}
0x5f0c…5f20 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003c, t01=0x0162}
0x5f20…5f36 Head {h00=0x0012, h01=0x0050, text=» CWK A4,SDMOIP«, t00=0x003c, t01=0x0176}
0x5f36…5f60 Head {h00=0x0026, h01=0x0050, text=» RF(E) DMT460 OPEN INPUT PROTECTED«, t00=0x003c, t01=0x018c}
0x5f60…5f76 Head {h00=0x0012, h01=0x0050, text=» CWK A4,SDMIOP«, t00=0x003d, t01=0x0026}
0x5f76…5fac Head {h00=0x0032, h01=0x0050, text=» RF(NE) DMT470 NOT OPEN INPUT OUTPUT PROTECTED«, t00=0x003d, t01=0x003c}
0x5fac…5fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0072}
0x5fb6…5fdc Head {h00=0x0022, h01=0x0050, text=»* CHECK IF EA IS SET ALREADY«, t00=0x003d, t01=0x007c}
0x5fdc…5fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00a2}
0x5fe6…5ffa Head {h00=0x0010, h01=0x0050, text=»DMT460 EQU *«, t00=0x003d, t01=0x00ac}
0x5ffa…601a Head {h00=0x001c, h01=0x0050, text=» CF A14,EATEST CHECK EA «, t00=0x003d, t01=0x00c0}
0x601a…6040 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMT470 EA ALREADY SET «, t00=0x003d, t01=0x00e0}
0x6040…604a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0106}
0x604a…605c Head {h00=0x000e, h01=0x0050, text=»* SET EA«, t00=0x003d, t01=0x0110}
0x605c…6066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0122}
0x6066…607c Head {h00=0x0012, h01=0x0050, text=» CF A14,EASETB«, t00=0x003d, t01=0x012c}
0x607c…6090 Head {h00=0x0010, h01=0x0050, text=»DMT470 EQU *«, t00=0x003d, t01=0x0142}
0x6090…60b2 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET RETURN CODE «, t00=0x003d, t01=0x0156}
0x60b2…60c8 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x003d, t01=0x0178}
0x60c8…60de Head {h00=0x0012, h01=0x0050, text=» LDK A4,OWRRMX«, t00=0x003d, t01=0x018e}
0x60de…60f0 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x003e, t01=0x0014}
0x60f0…611c Head {h00=0x0028, h01=0x0050, text=» ABL(E) DMINS2 WRITE RANDOM INDEXED «, t00=0x003e, t01=0x0026}
0x611c…6128 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0052}
0x6128…6136 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x005e}
0x6136…6166 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x003e, t01=0x006c}
0x6166…6196 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x003e, t01=0x009c}
0x6196…61c6 Head {h00=0x002c, h01=0x0050, text=»* E X I T D M T A S K * «, t00=0x003e, t01=0x00cc}
0x61c6…61f6 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x003e, t01=0x00fc}
0x61f6…6226 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x003e, t01=0x012c}
0x6226…622e Head {h00=0x0004, h01=0x0050, t00=0x003e, t01=0x015c}
0x622e…6238 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0164}
0x6238…624c Head {h00=0x0010, h01=0x0050, text=»DMTERR EQU *«, t00=0x003e, t01=0x016e}
0x624c…6266 Head {h00=0x0016, h01=0x0050, text=» LC A4,FDBDBR,A11 «, t00=0x003e, t01=0x0182}
0x6266…627a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x003f, t01=0x000c}
0x627a…629c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SDMERX KEEP BUFFER«, t00=0x003f, t01=0x0020}
0x629c…62c8 Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMRLB RELEASE BLOCK BUFFER «, t00=0x003f, t01=0x0042}
0x62c8…62dc Head {h00=0x0010, h01=0x0050, text=»SDMERX EQU *«, t00=0x003f, t01=0x006e}
0x62dc…6308 Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBADF,A11 GET FDB DATA FILE «, t00=0x003f, t01=0x0082}
0x6308…6314 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x003f, t01=0x00ae}
0x6314…631e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00ba}
0x631e…6338 Head {h00=0x0016, h01=0x0050, text=»* A1 = RET CODE «, t00=0x003f, t01=0x00c4}
0x6338…6352 Head {h00=0x0016, h01=0x0050, text=»* A6 = DWT ADDR «, t00=0x003f, t01=0x00de}
0x6352…635c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00f8}
0x635c…6372 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x003f, t01=0x0102}
0x6372…637e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x003f, t01=0x0118}
0x637e…638a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003f, t01=0x0124}
0x638a…639a Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x003f, t01=0x0130}
0x639a…63b0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x003f, t01=0x0140}
0x63b0…63be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0156}
0x63be…63f6 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x003f, t01=0x0164}
0x63f6…642e Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0040, t01=0x000c}
0x642e…6466 Head {h00=0x0034, h01=0x0050, text=»* R E A D R A N D O M I N D E X E D *«, t00=0x0040, t01=0x0044}
0x6466…649e Head {h00=0x0034, h01=0x0050, text=»* S T A R T I N D E X E D *«, t00=0x0040, t01=0x007c}
0x649e…64d6 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0040, t01=0x00b4}
0x64d6…650e Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0040, t01=0x00ec}
0x650e…6516 Head {h00=0x0004, h01=0x0050, t00=0x0040, t01=0x0124}
0x6516…653e Head {h00=0x0024, h01=0x0050, text=»RDRMIX EQU * READ RANDOM INDEXED«, t00=0x0040, t01=0x012c}
0x653e…6560 Head {h00=0x001e, h01=0x0050, text=»STRTIX EQU * START INDEXED«, t00=0x0040, t01=0x0154}
0x6560…6590 Head {h00=0x002c, h01=0x0050, text=» CF A14,FNDKYP SET PARAM AND THEN FNDKEY«, t00=0x0040, t01=0x0176}
0x6590…659a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0016}
0x659a…65ca Head {h00=0x002c, h01=0x0050, text=»* ENTRY ALSO FOR READ SEQUENTIAL INDEXED«, t00=0x0041, t01=0x0020}
0x65ca…65d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0050}
0x65d4…6606 Head {h00=0x002e, h01=0x0050, text=»DMR100 EQU * FROM READ SEQUENTIAL INDEXED «, t00=0x0041, t01=0x005a}
0x6606…6620 Head {h00=0x0016, h01=0x0050, text=» LD A9,DWTECB,A11 «, t00=0x0041, t01=0x008c}
0x6620…6638 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A11«, t00=0x0041, t01=0x00a6}
0x6638…6652 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/3F ORDER «, t00=0x0041, t01=0x00be}
0x6652…6668 Head {h00=0x0012, h01=0x0050, text=» SUK A2,OSTRTX«, t00=0x0041, t01=0x00d8}
0x6668…6688 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DMR110 NOT START«, t00=0x0041, t01=0x00ee}
0x6688…66a2 Head {h00=0x0016, h01=0x0050, text=» LC A2,DWTOPT,A11 «, t00=0x0041, t01=0x010e}
0x66a2…66ba Head {h00=0x0014, h01=0x0050, text=» ANK A2,7 OPTION«, t00=0x0041, t01=0x0128}
0x66ba…66d6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DMR110 EQUAL «, t00=0x0041, t01=0x0140}
0x66d6…66fa Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FBFF IGNORE NOKEY «, t00=0x0041, t01=0x015c}
0x66fa…670e Head {h00=0x0010, h01=0x0050, text=»DMR110 EQU *«, t00=0x0041, t01=0x0180}
0x670e…6720 (66, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0042, t01=0x0004}
0x6720…6742 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMIER4 NOT OPERABLE«, t00=0x0042, t01=0x0016}
0x6742…6754 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0042, t01=0x0038}
0x6754…6778 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DMIER1 KEY NOT FOUND«, t00=0x0042, t01=0x004a}
0x6778…67a8 Head {h00=0x002c, h01=0x0050, text=» CF A14,RECECB MOVE RECORD NUMBER TO ECB«, t00=0x0042, t01=0x006e}
0x67a8…67b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x009e}
0x67b6…67c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ac}
0x67c0…67d4 Head {h00=0x0010, h01=0x0050, text=»* SET CRN «, t00=0x0042, t01=0x00b6}
0x67d4…67de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ca}
0x67de…6806 Head {h00=0x0024, h01=0x0050, text=» LDR A13,A11 SAVE FDB INDEX FILE«, t00=0x0042, t01=0x00d4}
0x6806…682e Head {h00=0x0024, h01=0x0050, text=» LD A11,FDBADF,A11 FDB DATA FILE«, t00=0x0042, t01=0x00fc}
0x682e…6860 Head {h00=0x002e, h01=0x0050, text=» LD A5,DWTOR,A13 GET INTERN ORDER INDEX =5«, t00=0x0042, t01=0x0124}
0x6860…6880 Head {h00=0x001c, h01=0x0050, text=» ANK A5,/3F ORDER INDEX «, t00=0x0042, t01=0x0156}
0x6880…68a2 Head {h00=0x001e, h01=0x0050, text=» LDR A12,A11 FDB DATA FILE«, t00=0x0042, t01=0x0176}
0x68a2…68cc Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER ADDR«, t00=0x0043, t01=0x0008}
0x68cc…68f0 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A2 CRN BUFFER ADDR «, t00=0x0043, t01=0x0032}
0x68f0…6914 Head {h00=0x0020, h01=0x0050, text=» LDR A11,A13 FDB INDEX FILE «, t00=0x0043, t01=0x0056}
0x6914…6940 Head {h00=0x0028, h01=0x0050, text=» CF A14,GTLGRN GET INDE X LOG REC NO«, t00=0x0043, t01=0x007a}
0x6940…6962 Head {h00=0x001e, h01=0x0050, text=» LDK A7,ORDRM0 RANDOM READ«, t00=0x0043, t01=0x00a6}
0x6962…6978 Head {h00=0x0012, h01=0x0050, text=» SUK A5,OSTRTX«, t00=0x0043, t01=0x00c8}
0x6978…699c Head {h00=0x0020, h01=0x0050, text=» RF(NE) DMR120 INDEXED READ «, t00=0x0043, t01=0x00de}
0x699c…69c0 Head {h00=0x0020, h01=0x0050, text=» LDK A7,OSTRTX START INDEXED«, t00=0x0043, t01=0x0102}
0x69c0…69d2 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0043, t01=0x0126}
0x69d2…69f6 Head {h00=0x0020, h01=0x0050, text=» RF(NN) DMR120 NOT UNDERFLOW«, t00=0x0043, t01=0x0138}
0x69f6…6a0c Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x0043, t01=0x015c}
0x6a0c…6a1e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0043, t01=0x0172}
0x6a1e…6a32 Head {h00=0x0010, h01=0x0050, text=»DMR120 EQU *«, t00=0x0043, t01=0x0184}
0x6a32…6a4e Head {h00=0x0018, h01=0x0050, text=» SC A1,CRNCIF+1,A10 «, t00=0x0044, t01=0x0008}
0x6a4e…6a78 Head {h00=0x0026, h01=0x0050, text=» ST A2,CRNCIF+2,A10 CRN INDEX FILE«, t00=0x0044, t01=0x0024}
0x6a78…6a9c Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW,A9 REC NR DATA «, t00=0x0044, t01=0x004e}
0x6a9c…6ab6 Head {h00=0x0016, h01=0x0050, text=» ST A2,CRNCDF,A10 «, t00=0x0044, t01=0x0072}
0x6ab6…6ad0 Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A9 «, t00=0x0044, t01=0x008c}
0x6ad0…6aec Head {h00=0x0018, h01=0x0050, text=» ST A2,CRNCDF+2,A10 «, t00=0x0044, t01=0x00a6}
0x6aec…6b0e Head {h00=0x001e, h01=0x0050, text=» LC A2,FWTFNR,A11 FILE NR «, t00=0x0044, t01=0x00c2}
0x6b0e…6b28 Head {h00=0x0016, h01=0x0050, text=» SC A2,CRNCIF,A10 «, t00=0x0044, t01=0x00e4}
0x6b28…6b4a Head {h00=0x001e, h01=0x0050, text=» LDR A11,A12 FDB DATA FILE«, t00=0x0044, t01=0x00fe}
0x6b4a…6b6e Head {h00=0x0020, h01=0x0050, text=» SC A7,DWTOR+1,A11 NEW ORDER«, t00=0x0044, t01=0x0120}
0x6b6e…6b84 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/CFFF«, t00=0x0044, t01=0x0144}
0x6b84…6bb4 Head {h00=0x002c, h01=0x0050, text=» ANS A2,FDBDBR,A11 RELEASE INDEX BUFFERS«, t00=0x0044, t01=0x015a}
0x6bb4…6bc8 Head {h00=0x0010, h01=0x0050, text=» ABL DMT280 «, t00=0x0044, t01=0x018a}
0x6bc8…6bd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x000e}
0x6bd6…6c14 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0045, t01=0x001c}
0x6c14…6c52 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0045, t01=0x005a}
0x6c52…6c90 Head {h00=0x003a, h01=0x0050, text=»* R E A D S E Q U E N T I A L I N D E X E D * «, t00=0x0045, t01=0x0098}
0x6c90…6cce Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0045, t01=0x00d6}
0x6cce…6d0c Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0045, t01=0x0114}
0x6d0c…6d14 Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x0152}
0x6d14…6d40 Head {h00=0x0028, h01=0x0050, text=»RDSQIX EQU * READ SEQUENTIAL INDEXED«, t00=0x0045, t01=0x015a}
0x6d40…6d68 Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRRO,A11 RECORD OFFSET «, t00=0x0045, t01=0x0186}
0x6d68…6d8a Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 BUFFER ADDRESS «, t00=0x0046, t01=0x001e}
0x6d8a…6da2 Head {h00=0x0014, h01=0x0050, text=» SUKL A4,BUFSTA «, t00=0x0046, t01=0x0040}
0x6da2…6db6 Head {h00=0x0010, h01=0x0050, text=»DMI100 EQU *«, t00=0x0046, t01=0x0058}
0x6db6…6de0 Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKRCD CHECK RECORD STATUS«, t00=0x0046, t01=0x006c}
0x6de0…6dfa Head {h00=0x0016, h01=0x0050, text=» RF(E) DMI130 USED«, t00=0x0046, t01=0x0096}
0x6dfa…6e14 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBMRO,A11 «, t00=0x0046, t01=0x00b0}
0x6e14…6e42 Head {h00=0x002a, h01=0x0050, text=» ST A3,FDBRRO,A11 LAST RECORD IN BLOCK«, t00=0x0046, t01=0x00ca}
0x6e42…6e50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x00f8}
0x6e50…6e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0106}
0x6e5a…6e7a Head {h00=0x001c, h01=0x0050, text=»* CHECK IF END OF FILE«, t00=0x0046, t01=0x0110}
0x6e7a…6e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0130}
0x6e84…6ea6 Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x0046, t01=0x013a}
0x6ea6…6ec0 Head {h00=0x0016, h01=0x0050, text=» CC A1,FDBLRN,A11 «, t00=0x0046, t01=0x015c}
0x6ec0…6ede Head {h00=0x001a, h01=0x0050, text=» RF(L) DMI120 NOT EOF «, t00=0x0046, t01=0x0176}
0x6ede…6ef8 (71, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(G) DMIER6 EOF «, t00=0x0047, t01=0x0004}
0x6ef8…6f14 Head {h00=0x0018, h01=0x0050, text=» CW A2,FDBLRN+1,A11 «, t00=0x0047, t01=0x001e}
0x6f14…6f36 Head {h00=0x001e, h01=0x0050, text=» RF(NL) DMIER6 END OF FILE«, t00=0x0047, t01=0x003a}
0x6f36…6f4a Head {h00=0x0010, h01=0x0050, text=»DMI120 EQU *«, t00=0x0047, t01=0x005c}
0x6f4a…6f76 Head {h00=0x0028, h01=0x0050, text=» CF A14,RDNXTR GET NEXT INDEX RECORD«, t00=0x0047, t01=0x0070}
0x6f76…6f9a Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DMI100 RECORD FOUND «, t00=0x0047, t01=0x009c}
0x6f9a…6fb2 Head {h00=0x0014, h01=0x0050, text=» RF DMIER2 ERROR«, t00=0x0047, t01=0x00c0}
0x6fb2…6fc0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x00d8}
0x6fc0…6fd6 Head {h00=0x0012, h01=0x0050, text=»DMI130 EQU * «, t00=0x0047, t01=0x00e6}
0x6fd6…6fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00fc}
0x6fe0…7002 Head {h00=0x001e, h01=0x0050, text=»* INDEX RECORD IS FOUND «, t00=0x0047, t01=0x0106}
0x7002…700c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0128}
0x700c…702e Head {h00=0x001e, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB«, t00=0x0047, t01=0x0132}
0x702e…7038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0154}
0x7038…7054 Head {h00=0x0018, h01=0x0050, text=»* KEY RECORD FOUND«, t00=0x0047, t01=0x015e}
0x7054…7086 Head {h00=0x002e, h01=0x0050, text=»* CHECK IF NEXT RECORD HAS THE SAME KEY «, t00=0x0047, t01=0x017a}
0x7086…7090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x001c}
0x7090…70b8 Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRRO,A11 RECORD OFFSET «, t00=0x0048, t01=0x0026}
0x70b8…70d0 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFSTA «, t00=0x0048, t01=0x004e}
0x70d0…70ec Head {h00=0x0018, h01=0x0050, text=» ADR A1,A4 REC ADDR «, t00=0x0048, t01=0x0066}
0x70ec…7110 Head {h00=0x0020, h01=0x0050, text=» LD A3,FDBRLE,A11 REC LENGTH«, t00=0x0048, t01=0x0082}
0x7110…712c Head {h00=0x0018, h01=0x0050, text=» SUK A3,6 KEY LENGTH«, t00=0x0048, t01=0x00a6}
0x712c…713e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0048, t01=0x00c2}
0x713e…716a Head {h00=0x0028, h01=0x0050, text=» CC A3,2,A1 DUPLICATE KEY CHARACTER «, t00=0x0048, t01=0x00d4}
0x716a…7192 Head {h00=0x0024, h01=0x0050, text=» RF(NE) DMI140 NEXT KEY NOT SAME«, t00=0x0048, t01=0x0100}
0x7192…71b0 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,NXTKYS BIT 6 «, t00=0x0048, t01=0x0128}
0x71b0…71d6 Head {h00=0x0022, h01=0x0050, text=» ORS A1,ECBRC,A9 NEXT KEY SAME«, t00=0x0048, t01=0x0146}
0x71d6…71ea Head {h00=0x0010, h01=0x0050, text=»DMI140 EQU *«, t00=0x0048, t01=0x016c}
0x71ea…7206 Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 MARK FOUND«, t00=0x0048, t01=0x0180}
0x7206…7238 Head {h00=0x002e, h01=0x0050, text=» ABL DMR100 CONT AS FOR INDEXED RAND READ «, t00=0x0049, t01=0x000c}
0x7238…7246 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x003e}
0x7246…7262 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0049, t01=0x004c}
0x7262…727e Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0068}
0x727e…729a Head {h00=0x0018, h01=0x0050, text=»* E R R O R *«, t00=0x0049, t01=0x0084}
0x729a…72b6 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0049, t01=0x00a0}
0x72b6…72d2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0049, t01=0x00bc}
0x72d2…72da Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x00d8}
0x72da…7306 Head {h00=0x0028, h01=0x0050, text=»DMIER1 LDKL A1,KEYERR KEY NOT FOUND «, t00=0x0049, t01=0x00e0}
0x7306…731a Head {h00=0x0010, h01=0x0050, text=» RF DMIERR «, t00=0x0049, t01=0x010c}
0x731a…732e Head {h00=0x0010, h01=0x0050, text=»DMIER2 EQU *«, t00=0x0049, t01=0x0120}
0x732e…734e Head {h00=0x001c, h01=0x0050, text=» LDKL A1,NODERR NO IDENT«, t00=0x0049, t01=0x0134}
0x734e…7362 Head {h00=0x0010, h01=0x0050, text=»DMIERR EQU *«, t00=0x0049, t01=0x0154}
0x7362…7380 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A4 BUFFER ADDR«, t00=0x0049, t01=0x0168}
0x7380…73a0 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) SDMERX NO BUFFER«, t00=0x0049, t01=0x0186}
0x73a0…73c4 Head {h00=0x0020, h01=0x0050, text=» ABL DMTERR ERROR AND BUFFER«, t00=0x004a, t01=0x0016}
0x73c4…73d8 Head {h00=0x0010, h01=0x0050, text=»DMIER3 EQU *«, t00=0x004a, t01=0x003a}
0x73d8…73ec Head {h00=0x0010, h01=0x0050, text=» ANK A1,/27 «, t00=0x004a, t01=0x004e}
0x73ec…7412 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) DMIERR BIT 10,13,14,15«, t00=0x004a, t01=0x0062}
0x7412…7438 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,EOMERR GRAVE ERR ALSO«, t00=0x004a, t01=0x0088}
0x7438…744a Head {h00=0x000e, h01=0x0050, text=» RB DMIERR«, t00=0x004a, t01=0x00ae}
0x744a…745e Head {h00=0x0010, h01=0x0050, text=»DMIER4 EQU *«, t00=0x004a, t01=0x00c0}
0x745e…747c Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x004a, t01=0x00d4}
0x747c…748e Head {h00=0x000e, h01=0x0050, text=» RB DMIERR«, t00=0x004a, t01=0x00f2}
0x748e…74a2 Head {h00=0x0010, h01=0x0050, text=»DMIER5 EQU *«, t00=0x004a, t01=0x0104}
0x74a2…74c2 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,PROT PROTECTED «, t00=0x004a, t01=0x0118}
0x74c2…74d4 Head {h00=0x000e, h01=0x0050, text=» RB DMIERR«, t00=0x004a, t01=0x0138}
0x74d4…74e8 Head {h00=0x0010, h01=0x0050, text=»DMIER6 EQU *«, t00=0x004a, t01=0x014a}
0x74e8…7500 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,EOFERR «, t00=0x004a, t01=0x015e}
0x7500…7512 Head {h00=0x000e, h01=0x0050, text=» RB DMIERR«, t00=0x004a, t01=0x0176}
0x7512…7520 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0188}
0x7520…755e Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004b, t01=0x0008}
0x755e…759c Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0046}
0x759c…75da Head {h00=0x003a, h01=0x0050, text=»* W R I T E R A N D O M I N D E X E D (P2) * «, t00=0x004b, t01=0x0084}
0x75da…7618 Head {h00=0x003a, h01=0x0050, text=»* D E L E T E I N D E X E D * «, t00=0x004b, t01=0x00c2}
0x7618…7656 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0100}
0x7656…7694 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004b, t01=0x013e}
0x7694…769c Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x017c}
0x769c…76cc Head {h00=0x002c, h01=0x0050, text=»DMINS2 EQU * WRITE RANDOM INDEXED PART 2«, t00=0x004b, t01=0x0184}
0x76cc…76f0 Head {h00=0x0020, h01=0x0050, text=»DMXDEL EQU * DELETE INDEXED «, t00=0x004c, t01=0x0024}
0x76f0…770a Head {h00=0x0016, h01=0x0050, text=» LC A4,FDBDBR,A11 «, t00=0x004c, t01=0x0048}
0x770a…771e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x004c, t01=0x0062}
0x771e…7740 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DXI010 KEEP BUFFER«, t00=0x004c, t01=0x0076}
0x7740…776c Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMRLB RELEASE BLOCK BUFFER «, t00=0x004c, t01=0x0098}
0x776c…7780 Head {h00=0x0010, h01=0x0050, text=»DXI010 EQU *«, t00=0x004c, t01=0x00c4}
0x7780…779a Head {h00=0x0016, h01=0x0050, text=» LDK A5,10 LOOPER «, t00=0x004c, t01=0x00d8}
0x779a…77ba Head {h00=0x001c, h01=0x0050, text=»DXI020 EQU * NEXT INDEX «, t00=0x004c, t01=0x00f2}
0x77ba…77d8 Head {h00=0x001a, h01=0x0050, text=» LD A7,DWTOR,A11 ORDER«, t00=0x004c, t01=0x0112}
0x77d8…77ec Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x004c, t01=0x0130}
0x77ec…77fe Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x004c, t01=0x0144}
0x77fe…7820 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DXI100 ALL INDEXES «, t00=0x004c, t01=0x0156}
0x7820…783c Head {h00=0x0018, h01=0x0050, text=» LDR A1,A11 FDB DATA«, t00=0x004c, t01=0x0178}
0x783c…784e (77, 0, 398) Head {h00=0x000e, h01=0x0050, text=» ADR A1,A5«, t00=0x004d, t01=0x0004}
0x784e…7870 Head {h00=0x001e, h01=0x0050, text=» LD A1,FDBADF,A1 FDB INDEX«, t00=0x004d, t01=0x0016}
0x7870…788e Head {h00=0x001a, h01=0x0050, text=» RB(Z) DXI020 NO INDEX«, t00=0x004d, t01=0x0038}
0x788e…78ac Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTOR,A11 ORDER«, t00=0x004d, t01=0x0056}
0x78ac…78c4 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTOR,A1 «, t00=0x004d, t01=0x0074}
0x78c4…78ec Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTECB,A11 USER ECB ADDR «, t00=0x004d, t01=0x008c}
0x78ec…7904 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTECB,A1«, t00=0x004d, t01=0x00b4}
0x7904…792a Head {h00=0x0022, h01=0x0050, text=» ST A5,FDBKA,A11 SAVE COUNTER «, t00=0x004d, t01=0x00cc}
0x792a…7954 Head {h00=0x0026, h01=0x0050, text=» LDR A11,A1 FDB ADDRESS INDEX FILE«, t00=0x004d, t01=0x00f2}
0x7954…796a Head {h00=0x0012, h01=0x0050, text=» SUK A7,OWRRMX«, t00=0x004d, t01=0x011c}
0x796a…7994 Head {h00=0x0026, h01=0x0050, text=» RF(E) DMINIX WRITE RANDOM INDEXED«, t00=0x004d, t01=0x0132}
0x7994…79b6 Head {h00=0x001e, h01=0x0050, text=» RF DMDELX DELETE INDEXED «, t00=0x004d, t01=0x015c}
0x79b6…79c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x017e}
0x79c4…79ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x018c}
0x79ce…79fc Head {h00=0x002a, h01=0x0050, text=»* RETURN FROM UPDATING OF ONE INDEX «, t00=0x004e, t01=0x0008}
0x79fc…7a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0036}
0x7a06…7a1a Head {h00=0x0010, h01=0x0050, text=»DMTAR5 EQU *«, t00=0x004e, t01=0x0040}
0x7a1a…7a4a Head {h00=0x002c, h01=0x0050, text=» LD A11,FDBADF,A11 FDB ADDRESS DATA FILE«, t00=0x004e, t01=0x0054}
0x7a4a…7a7a Head {h00=0x002c, h01=0x0050, text=» LD A5,FDBKA,A11 GET COUNTER OF INDEXES «, t00=0x004e, t01=0x0084}
0x7a7a…7a9c Head {h00=0x001e, h01=0x0050, text=» RB DXI020 TAKE NEXT INDEX«, t00=0x004e, t01=0x00b4}
0x7a9c…7aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00d6}
0x7aa6…7ada Head {h00=0x0030, h01=0x0050, text=»* END IF WRITE RANDOM INDEXED ELSE CONTINUE «, t00=0x004e, t01=0x00e0}
0x7ada…7ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0114}
0x7ae4…7b06 Head {h00=0x001e, h01=0x0050, text=»DXI100 EQU * INDEXES READY«, t00=0x004e, t01=0x011e}
0x7b06…7b20 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RET CODE«, t00=0x004e, t01=0x0140}
0x7b20…7b4c Head {h00=0x0028, h01=0x0050, text=» SUK A7,OWRRMX WRITE RANDOM INDEXED «, t00=0x004e, t01=0x015a}
0x7b4c…7b68 Head {h00=0x0018, h01=0x0050, text=» ABL(E) SDMERX READY«, t00=0x004e, t01=0x0186}
0x7b68…7b8a Head {h00=0x001e, h01=0x0050, text=» ABL DMT020 RESTART SDMTSK«, t00=0x004f, t01=0x0012}
0x7b8a…7b98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0034}
0x7b98…7bd6 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004f, t01=0x0042}
0x7bd6…7c14 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x004f, t01=0x0080}
0x7c14…7c52 Head {h00=0x003a, h01=0x0050, text=»* W R I T E R A N D O M I N D E X E D * «, t00=0x004f, t01=0x00be}
0x7c52…7c90 Head {h00=0x003a, h01=0x0050, text=»* D E L E T E I N D E X R E C O R D * «, t00=0x004f, t01=0x00fc}
0x7c90…7cce Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x004f, t01=0x013a}
0x7cce…7d0c Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004f, t01=0x0178}
0x7d0c…7d14 Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0026}
0x7d14…7d3e Head {h00=0x0026, h01=0x0050, text=»DMINIX EQU * WRITE RANDOM INDEXED «, t00=0x0050, t01=0x002e}
0x7d3e…7d54 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0050, t01=0x0058}
0x7d54…7d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x006e}
0x7d5e…7d80 Head {h00=0x001e, h01=0x0050, text=»* GET KEY IN USER BUFFER«, t00=0x0050, t01=0x0078}
0x7d80…7d8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x009a}
0x7d8a…7dba Head {h00=0x002c, h01=0x0050, text=» LD A9,FDBADF,A11 FDB ADDRESS DATA FILE «, t00=0x0050, t01=0x00a4}
0x7dba…7de4 Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A9 USER ECB ADDRESS «, t00=0x0050, t01=0x00d4}
0x7de4…7e08 Head {h00=0x0020, h01=0x0050, text=» LD A9,ECBBA,A9 USER BUFFER «, t00=0x0050, t01=0x00fe}
0x7e08…7e2c Head {h00=0x0020, h01=0x0050, text=» AD A9,FDBKA,A11 KEY ADDRESS«, t00=0x0050, t01=0x0122}
0x7e2c…7e3e Head {h00=0x000e, h01=0x0050, text=» RF INS010«, t00=0x0050, t01=0x0146}
0x7e3e…7e4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0158}
0x7e4a…7e60 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0050, t01=0x0164}
0x7e60…7e88 Head {h00=0x0024, h01=0x0050, text=»DMDELX EQU * DELETE INDEX RECORD«, t00=0x0050, t01=0x017a}
0x7e88…7e9c Head {h00=0x0010, h01=0x0050, text=» LDR A9,A11 «, t00=0x0051, t01=0x0012}
0x7e9c…7ebc Head {h00=0x001c, h01=0x0050, text=» ADKL A9,FDBKEY KEY ADDR«, t00=0x0051, t01=0x0026}
0x7ebc…7ed0 Head {h00=0x0010, h01=0x0050, text=»INS010 EQU *«, t00=0x0051, t01=0x0046}
0x7ed0…7ee4 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A9 «, t00=0x0051, t01=0x005a}
0x7ee4…7f0c Head {h00=0x0024, h01=0x0050, text=» LD A10,FDBRLE,A11 RECORD LENGTH«, t00=0x0051, t01=0x006e}
0x7f0c…7f2a Head {h00=0x001a, h01=0x0050, text=» SUKL A10,6 KEY LENGTH«, t00=0x0051, t01=0x0096}
0x7f2a…7f3e Head {h00=0x0010, h01=0x0050, text=» LDR A8,A14 «, t00=0x0051, t01=0x00b4}
0x7f3e…7f72 Head {h00=0x0030, h01=0x0050, text=» ADKL A8,2 ECB ADDR TO RECORD BUFFER AREASS «, t00=0x0051, t01=0x00c8}
0x7f72…7f9a Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDKEY GET INDEX RECORD «, t00=0x0051, t01=0x00fc}
0x7f9a…7fac Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0051, t01=0x0124}
0x7fac…7fd2 Head {h00=0x0022, h01=0x0050, text=» RB(Z) DMIER3 NO SECTOR FOUND «, t00=0x0051, t01=0x0136}
0x7fd2…7ffe Head {h00=0x0028, h01=0x0050, text=» LDR A6,A7 NUMBER OF SAME CHARACTERS«, t00=0x0051, t01=0x015c}
0x7ffe…8028 Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB ADDRESS«, t00=0x0051, t01=0x0188}
0x8028…804c Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTOR,A11 ORDER CODE «, t00=0x0052, t01=0x0022}
0x804c…8060 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0052, t01=0x0046}
0x8060…8076 Head {h00=0x0012, h01=0x0050, text=» SUK A2,ODELTX«, t00=0x0052, t01=0x005a}
0x8076…80a0 Head {h00=0x0026, h01=0x0050, text=» ABL(E) DEL000 DELETE INDEX RECORD«, t00=0x0052, t01=0x0070}
0x80a0…80ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x009a}
0x80ae…80b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00a8}
0x80b8…80e4 Head {h00=0x0028, h01=0x0050, text=»* SET RC BIT 6 TO USER IF NEXT KEY«, t00=0x0052, t01=0x00b2}
0x80e4…810a Head {h00=0x0022, h01=0x0050, text=»* IS SAME IN REQUESTED INDEX«, t00=0x0052, t01=0x00de}
0x810a…8114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0104}
0x8114…8126 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0052, t01=0x010e}
0x8126…814e Head {h00=0x0024, h01=0x0050, text=» RF(NZ) INS180 NEXT KEY NOT SAME«, t00=0x0052, t01=0x0120}
0x814e…8164 Head {h00=0x0012, h01=0x0050, text=» IFT KEYDUP=1 «, t00=0x0052, t01=0x0148}
0x8164…8180 Head {h00=0x0018, h01=0x0050, text=» CW A11,FDBAI1,A11 «, t00=0x0052, t01=0x015e}
0x8180…81a2 Head {h00=0x001e, h01=0x0050, text=» RB(E) DMIER5 FIRST INDEX «, t00=0x0052, t01=0x017a}
0x81a2…81b0 Head {h00=0x000a, h01=0x0050, text=» XIF «, t00=0x0053, t01=0x000c}
0x81b0…81c6 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0053, t01=0x001a}
0x81c6…81ec Head {h00=0x0022, h01=0x0050, text=» LDKL A1,NXTKYS NEXT KEY SAME «, t00=0x0053, t01=0x0030}
0x81ec…8214 Head {h00=0x0024, h01=0x0050, text=» ORS A1,ECBRC,A9 SET RETURN CODE«, t00=0x0053, t01=0x0056}
0x8214…822a Head {h00=0x0012, h01=0x0050, text=» IFT INSLAS=1 «, t00=0x0053, t01=0x007e}
0x822a…8238 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x0094}
0x8238…8242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00a2}
0x8242…8262 Head {h00=0x001c, h01=0x0050, text=»* INSERT SAME KEY LAST«, t00=0x0053, t01=0x00ac}
0x8262…826c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00cc}
0x826c…8294 Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRRO,A11 RECORD OFFSET «, t00=0x0053, t01=0x00d6}
0x8294…82a6 Head {h00=0x000e, h01=0x0050, text=» RF INS100«, t00=0x0053, t01=0x00fe}
0x82a6…82ba Head {h00=0x0010, h01=0x0050, text=»INS080 EQU *«, t00=0x0053, t01=0x0110}
0x82ba…82de Head {h00=0x0020, h01=0x0050, text=» CF A14,RDNXTR GET NEXT REC «, t00=0x0053, t01=0x0124}
0x82de…82f2 Head {h00=0x0010, h01=0x0050, text=»INS090 EQU *«, t00=0x0053, t01=0x0148}
0x82f2…830e Head {h00=0x0018, h01=0x0050, text=» RB(Z) DMIER3 ERROR «, t00=0x0053, t01=0x015c}
0x830e…8322 Head {h00=0x0010, h01=0x0050, text=»INS100 EQU *«, t00=0x0053, t01=0x0178}
0x8322…834c Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKRCD CHECK RECORD STATUS«, t00=0x0053, t01=0x018c}
0x834c…8366 Head {h00=0x0016, h01=0x0050, text=» RF(E) INS150 USED«, t00=0x0054, t01=0x0026}
0x8366…8380 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBMRO,A11 «, t00=0x0054, t01=0x0040}
0x8380…839a Head {h00=0x0016, h01=0x0050, text=» ST A3,FDBRRO,A11 «, t00=0x0054, t01=0x005a}
0x839a…83c8 Head {h00=0x002a, h01=0x0050, text=» RB INS080 GET FIRST RE C IN NXT SECT «, t00=0x0054, t01=0x0074}
0x83c8…83dc Head {h00=0x0010, h01=0x0050, text=»INS150 EQU *«, t00=0x0054, t01=0x00a2}
0x83dc…8408 Head {h00=0x0028, h01=0x0050, text=» LC A6,-4,A1 DUPLICATE KEY CHARACTER«, t00=0x0054, t01=0x00b6}
0x8408…842c Head {h00=0x0020, h01=0x0050, text=» CWR A6,A10 CHECK KEY LENGTH«, t00=0x0054, t01=0x00e2}
0x842c…8454 Head {h00=0x0024, h01=0x0050, text=» RB(E) INS080 NEXT SAME GET NEXT«, t00=0x0054, t01=0x0106}
0x8454…8462 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x012e}
0x8462…846c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x013c}
0x846c…8490 Head {h00=0x0020, h01=0x0050, text=»* UPDATE LAST SAME RECORD «, t00=0x0054, t01=0x0146}
0x8490…849a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x016a}
0x849a…84ba Head {h00=0x001c, h01=0x0050, text=» SC A10,-4,A1 NEXT SAME «, t00=0x0054, t01=0x0174}
0x84ba…84d4 (85, 0, 398) Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRRO,A11 «, t00=0x0055, t01=0x0004}
0x84d4…84ee Head {h00=0x0016, h01=0x0050, text=» CW A1,FDBMRO,A11 «, t00=0x0055, t01=0x001e}
0x84ee…8518 Head {h00=0x0026, h01=0x0050, text=» RF(NE) INS160 SECT WRITTEN LATER «, t00=0x0055, t01=0x0038}
0x8518…8522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0062}
0x8522…853a Head {h00=0x0014, h01=0x0050, text=»* WRITE BLOCK «, t00=0x0055, t01=0x006c}
0x853a…8544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0084}
0x8544…855a Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x0055, t01=0x008e}
0x855a…8572 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x0055, t01=0x00a4}
0x8572…857c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00bc}
0x857c…8598 Head {h00=0x0018, h01=0x0050, text=»* GET NEXT RECORD «, t00=0x0055, t01=0x00c6}
0x8598…85a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00e2}
0x85a2…85b6 Head {h00=0x0010, h01=0x0050, text=»INS160 EQU *«, t00=0x0055, t01=0x00ec}
0x85b6…85d8 Head {h00=0x001e, h01=0x0050, text=» CF A14,RDNXTR GET NEXT RC«, t00=0x0055, t01=0x0100}
0x85d8…85ec Head {h00=0x0010, h01=0x0050, text=»INS170 EQU *«, t00=0x0055, t01=0x0122}
0x85ec…8618 Head {h00=0x0028, h01=0x0050, text=» RB(Z) INS090 GO TO DMIER3 IF ERROR «, t00=0x0055, t01=0x0136}
0x8618…8624 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0162}
0x8624…863a Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0055, t01=0x016e}
0x863a…8648 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0184}
0x8648…865c (86, 0, 400) Head {h00=0x0010, h01=0x0050, text=»INS180 EQU *«, t00=0x0056, t01=0x0004}
0x865c…8666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0018}
0x8666…8692 Head {h00=0x0028, h01=0x0050, text=»* CREATE AN INDEX RECORD IN AREA 1«, t00=0x0056, t01=0x0022}
0x8692…869c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x004e}
0x869c…86ba Head {h00=0x001a, h01=0x0050, text=» LDR A1,A12 FROM ADDR «, t00=0x0056, t01=0x0058}
0x86ba…86ce Head {h00=0x0010, h01=0x0050, text=» LDR A2,A14 «, t00=0x0056, t01=0x0076}
0x86ce…86f0 Head {h00=0x001e, h01=0x0050, text=» ADKL A2,SDMBF1 TO ADDRESS«, t00=0x0056, t01=0x008a}
0x86f0…870e Head {h00=0x001a, h01=0x0050, text=» LDR A3,A10 KEY LENGTH«, t00=0x0056, t01=0x00ac}
0x870e…872c Head {h00=0x001a, h01=0x0050, text=» CF A14,MOVFW MOVE KEY«, t00=0x0056, t01=0x00ca}
0x872c…8744 Head {h00=0x0014, h01=0x0050, text=» SCR A3,A2 DUMMY«, t00=0x0056, t01=0x00e8}
0x8744…8756 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0056, t01=0x0100}
0x8756…876e Head {h00=0x0014, h01=0x0050, text=» SCR A3,A2 DUMMY«, t00=0x0056, t01=0x0112}
0x876e…8780 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0056, t01=0x012a}
0x8780…87a2 Head {h00=0x001e, h01=0x0050, text=» SCR A6,A2 NR OF SAME CHAR«, t00=0x0056, t01=0x013c}
0x87a2…87b4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0056, t01=0x015e}
0x87b4…87de Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTECB,A11 USER ECB ADDRESS«, t00=0x0056, t01=0x0170}
0x87de…8806 Head {h00=0x0024, h01=0x0050, text=» ADKL A1,ECBCW+1 SOURCE POINTER «, t00=0x0057, t01=0x000a}
0x8806…8834 Head {h00=0x002a, h01=0x0050, text=» LDK A3,3 NUMBER OF CHARACTERS TO MOVE«, t00=0x0057, t01=0x0032}
0x8834…884a Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVFW «, t00=0x0057, t01=0x0060}
0x884a…8862 Head {h00=0x0014, h01=0x0050, text=» LDK A1,/FF USED«, t00=0x0057, t01=0x0076}
0x8862…8880 Head {h00=0x001a, h01=0x0050, text=» SCR A1,A2 STATUS CHAR«, t00=0x0057, t01=0x008e}
0x8880…88a8 Head {h00=0x0024, h01=0x0050, text=» CF A14,GTLGRN GET REC NR INDEX «, t00=0x0057, t01=0x00ac}
0x88a8…88b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00d4}
0x88b2…88e2 Head {h00=0x002c, h01=0x0050, text=»* SAVE RECORD NR FOR FIRST MOVED INDEX«, t00=0x0057, t01=0x00de}
0x88e2…88ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x010e}
0x88ec…8900 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A1 «, t00=0x0057, t01=0x0118}
0x8900…8914 Head {h00=0x0010, h01=0x0050, text=» LDR A13,A2 «, t00=0x0057, t01=0x012c}
0x8914…8922 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0140}
0x8922…892c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x014e}
0x892c…896a Head {h00=0x003a, h01=0x0050, text=»* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING«, t00=0x0057, t01=0x0158}
0x896a…8992 Head {h00=0x0024, h01=0x0050, text=»* USED RECORDS ROLLED FORWARD «, t00=0x0058, t01=0x0008}
0x8992…89ba Head {h00=0x0024, h01=0x0050, text=»* A4,A10,A11 IS USED AT ENTRY «, t00=0x0058, t01=0x0030}
0x89ba…89e2 Head {h00=0x0024, h01=0x0050, text=» ADKL A10,7 RECORD LENGTH TOTAL «, t00=0x0058, t01=0x0058}
0x89e2…89ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0080}
0x89ec…8a08 Head {h00=0x0018, h01=0x0050, text=»* USE D REGISTERS «, t00=0x0058, t01=0x008a}
0x8a08…8a2a Head {h00=0x001e, h01=0x0050, text=»* A11 = FDB ADDR INDEX «, t00=0x0058, t01=0x00a6}
0x8a2a…8a46 Head {h00=0x0018, h01=0x0050, text=»* A9 = AREA ADDR«, t00=0x0058, t01=0x00c8}
0x8a46…8a6c Head {h00=0x0022, h01=0x0050, text=»* A10 = RECORD LENGTH INDEX«, t00=0x0058, t01=0x00e4}
0x8a6c…8a9c Head {h00=0x002c, h01=0x0050, text=»* A5 = AREA INDEX 0=BUFAR1,1=BUFAR2 «, t00=0x0058, t01=0x010a}
0x8a9c…8ac4 Head {h00=0x0024, h01=0x0050, text=»* A4 = BUFFER ADDRESS BLOCK «, t00=0x0058, t01=0x013a}
0x8ac4…8ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0162}
0x8ace…8ae8 Head {h00=0x0016, h01=0x0050, text=» LDK A5,1 BUF ADR2«, t00=0x0058, t01=0x016c}
0x8ae8…8afc Head {h00=0x0010, h01=0x0050, text=»INS200 EQU *«, t00=0x0058, t01=0x0186}
0x8afc…8b1c Head {h00=0x001c, h01=0x0050, text=» LDKL A9,SDMBF1 BUFFER 1«, t00=0x0059, t01=0x000a}
0x8b1c…8b2e Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x0059, t01=0x002a}
0x8b2e…8b4a Head {h00=0x0018, h01=0x0050, text=» RF(Z) INS210 BUFAR1«, t00=0x0059, t01=0x003c}
0x8b4a…8b6a Head {h00=0x001c, h01=0x0050, text=» LDKL A9,SDMBF2 BUFFER 2«, t00=0x0059, t01=0x0058}
0x8b6a…8b7e Head {h00=0x0010, h01=0x0050, text=»INS210 EQU *«, t00=0x0059, t01=0x0078}
0x8b7e…8ba8 Head {h00=0x0026, h01=0x0050, text=» ADR A9,A14 RECORD BUFFER ADDRESS «, t00=0x0059, t01=0x008c}
0x8ba8…8bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00b6}
0x8bb2…8bce Head {h00=0x0018, h01=0x0050, text=»* SAVE LAST RECORD«, t00=0x0059, t01=0x00c0}
0x8bce…8bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00dc}
0x8bd8…8bea Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0059, t01=0x00e6}
0x8bea…8c02 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFSTA «, t00=0x0059, t01=0x00f8}
0x8c02…8c34 Head {h00=0x002e, h01=0x0050, text=» AD A1,FDBMRO,A11 ADDR OF LAST REC IN SECT«, t00=0x0059, t01=0x0110}
0x8c34…8c48 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A10 «, t00=0x0059, t01=0x0142}
0x8c48…8c5a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A9«, t00=0x0059, t01=0x0156}
0x8c5a…8c80 Head {h00=0x0022, h01=0x0050, text=» CF A14,MOVFW SAVE LAST RECORD«, t00=0x0059, t01=0x0168}
0x8c80…8c8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x018e}
0x8c8e…8c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x000c}
0x8c98…8cd0 Head {h00=0x0034, h01=0x0050, text=»* MOVE REST OF BLOCK DOWN ONE RECORD POSITION «, t00=0x005a, t01=0x0016}
0x8cd0…8cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x004e}
0x8cda…8cec Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005a, t01=0x0058}
0x8cec…8d04 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFSTA «, t00=0x005a, t01=0x006a}
0x8d04…8d28 Head {h00=0x0020, h01=0x0050, text=» AD A1,FDBRRO,A11 FROM ADDR «, t00=0x005a, t01=0x0082}
0x8d28…8d3a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x005a, t01=0x00a6}
0x8d3a…8d54 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBMRO,A11 «, t00=0x005a, t01=0x00b8}
0x8d54…8d78 Head {h00=0x0020, h01=0x0050, text=» SU A3,FDBRRO,A11 NR OF CHAR«, t00=0x005a, t01=0x00d2}
0x8d78…8d8a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x005a, t01=0x00f6}
0x8d8a…8da6 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A10 TO ADDR «, t00=0x005a, t01=0x0108}
0x8da6…8dc0 Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVBW MOVE«, t00=0x005a, t01=0x0124}
0x8dc0…8dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x013e}
0x8dca…8de8 Head {h00=0x001a, h01=0x0050, text=»* INSERT NEW RECORD «, t00=0x005a, t01=0x0148}
0x8de8…8df2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0166}
0x8df2…8e0a Head {h00=0x0014, h01=0x0050, text=» LDKL A1,SDMBF2 «, t00=0x005a, t01=0x0170}
0x8e0a…8e1c Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x005a, t01=0x0188}
0x8e1c…8e38 Head {h00=0x0018, h01=0x0050, text=» RF(Z) INS250 BUFAR1«, t00=0x005b, t01=0x000a}
0x8e38…8e50 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,SDMBF1 «, t00=0x005b, t01=0x0026}
0x8e50…8e64 Head {h00=0x0010, h01=0x0050, text=»INS250 EQU *«, t00=0x005b, t01=0x003e}
0x8e64…8e82 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A14 FROM ADDR «, t00=0x005b, t01=0x0052}
0x8e82…8ea0 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A10 NR OF CHAR«, t00=0x005b, t01=0x0070}
0x8ea0…8eba Head {h00=0x0016, h01=0x0050, text=» LDR A2,A6 TO ADDR«, t00=0x005b, t01=0x008e}
0x8eba…8ed4 Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVFW MOVE«, t00=0x005b, t01=0x00a8}
0x8ed4…8ee2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x00c2}
0x8ee2…8eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00d0}
0x8eec…8f04 Head {h00=0x0014, h01=0x0050, text=»* WRITE BUFFER«, t00=0x005b, t01=0x00da}
0x8f04…8f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00f2}
0x8f0e…8f36 Head {h00=0x0024, h01=0x0050, text=» LDR A8,A14 USE STACK AS ECB :=S«, t00=0x005b, t01=0x00fc}
0x8f36…8f60 Head {h00=0x0026, h01=0x0050, text=» SUKL A8,SDMSTS 7 WORDS NEEDED :=S«, t00=0x005b, t01=0x0124}
0x8f60…8f86 Head {h00=0x0022, h01=0x0050, text=» LC A2,FWTFNR,A11 VOL DEV CODE«, t00=0x005b, t01=0x014e}
0x8f86…8f9a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005b, t01=0x0174}
0x8f9a…8fae Head {h00=0x0010, h01=0x0050, text=» STR A2,A8 «, t00=0x005b, t01=0x0188}
0x8fae…8fc0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x005c, t01=0x000c}
0x8fc0…8fd8 Head {h00=0x0014, h01=0x0050, text=» ADKL A2,BUFSTA «, t00=0x005c, t01=0x001e}
0x8fd8…8ffc Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBBA,A8 SECTOR ADDR «, t00=0x005c, t01=0x0036}
0x8ffc…9020 Head {h00=0x0020, h01=0x0050, text=» LC A2,FDBBLZ,A11 BLOCK SIZE«, t00=0x005c, t01=0x005a}
0x9020…903a Head {h00=0x0016, h01=0x0050, text=» SLL A2,8 IN BYTE «, t00=0x005c, t01=0x007e}
0x903a…9052 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x005c, t01=0x0098}
0x9052…9076 Head {h00=0x0020, h01=0x0050, text=» LD A2,FDBSNR,A11 SECTOR NR «, t00=0x005c, t01=0x00b0}
0x9076…9098 Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBCW,A8 SECTOR NR «, t00=0x005c, t01=0x00d4}
0x9098…90b4 Head {h00=0x0018, h01=0x0050, text=» LD A3,FDBSNR+2,A11 «, t00=0x005c, t01=0x00f6}
0x90b4…90d6 Head {h00=0x001e, h01=0x0050, text=» ST A3,ECBCW+2,A8 SECT NR «, t00=0x005c, t01=0x0112}
0x90d6…90ec Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x005c, t01=0x0134}
0x90ec…9104 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x005c, t01=0x014a}
0x9104…910e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0162}
0x910e…9148 Head {h00=0x0036, h01=0x0050, text=»* IF SPILLED RECORD IS FREE, OPERATION IS READY «, t00=0x005c, t01=0x016c}
0x9148…9152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0016}
0x9152…9176 Head {h00=0x0020, h01=0x0050, text=» LDR A2,A9 RECORD AREA ADDR «, t00=0x005d, t01=0x0020}
0x9176…9192 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A10 REC LGTH«, t00=0x005d, t01=0x0044}
0x9192…91b8 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 ADDR OF STATUS CHAR «, t00=0x005d, t01=0x0060}
0x91b8…91d2 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBMRO,A11 «, t00=0x005d, t01=0x0086}
0x91d2…91fe Head {h00=0x0028, h01=0x0050, text=» ST A3,FDBRRO,A11 MAX OFFSET IN SECT«, t00=0x005d, t01=0x00a0}
0x91fe…9210 Head {h00=0x000e, h01=0x0050, text=» CCR A1,A2«, t00=0x005d, t01=0x00cc}
0x9210…9232 Head {h00=0x001e, h01=0x0050, text=» RF(Z) INS400 FREE RECORD «, t00=0x005d, t01=0x00de}
0x9232…9240 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x0100}
0x9240…924a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x010e}
0x924a…9264 Head {h00=0x0016, h01=0x0050, text=»* GET NEXT BLOCK«, t00=0x005d, t01=0x0118}
0x9264…926e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0132}
0x926e…928c Head {h00=0x001a, h01=0x0050, text=» LDR A9,A5 SAVE A5 =7 «, t00=0x005d, t01=0x013c}
0x928c…92c4 Head {h00=0x0034, h01=0x0050, text=» CF A14,RDNXTR GET RECORD (7 WORDS ON STACK) :=S«, t00=0x005d, t01=0x015a}
0x92c4…92ea (94, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDR A5,A9 RESTORE REGISTER =7«, t00=0x005e, t01=0x0004}
0x92ea…9306 Head {h00=0x0018, h01=0x0050, text=» ADK A4,0 SET CR =7 «, t00=0x005e, t01=0x002a}
0x9306…931a Head {h00=0x0010, h01=0x0050, text=»INS260 EQU *«, t00=0x005e, t01=0x0046}
0x931a…9346 Head {h00=0x0028, h01=0x0050, text=» RB(Z) INS170 GO TO DMIER3 IF ERROR «, t00=0x005e, t01=0x005a}
0x9346…9374 Head {h00=0x002a, h01=0x0050, text=» XRK A5,1 SWITCH KEY RECORD BUFFERS =7«, t00=0x005e, t01=0x0086}
0x9374…9386 Head {h00=0x000e, h01=0x0050, text=» RB INS200«, t00=0x005e, t01=0x00b4}
0x9386…939a Head {h00=0x0010, h01=0x0050, text=»INS400 EQU *«, t00=0x005e, t01=0x00c6}
0x939a…93a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00da}
0x93a4…93d0 Head {h00=0x0028, h01=0x0050, text=»* UPDATE LRN IF EOF IS ENCOUNTERED«, t00=0x005e, t01=0x00e4}
0x93d0…93da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0110}
0x93da…93f2 Head {h00=0x0014, h01=0x0050, text=» CF A14,GTLGRN «, t00=0x005e, t01=0x011a}
0x93f2…940c Head {h00=0x0016, h01=0x0050, text=» CC A1,FDBLRN,A11 «, t00=0x005e, t01=0x0132}
0x940c…9428 Head {h00=0x0018, h01=0x0050, text=» RF(L) INS430 NO EOF«, t00=0x005e, t01=0x014c}
0x9428…9442 Head {h00=0x0016, h01=0x0050, text=» RF(G) INS410 EOF «, t00=0x005e, t01=0x0168}
0x9442…945e Head {h00=0x0018, h01=0x0050, text=» CW A2,FDBLRN+1,A11 «, t00=0x005e, t01=0x0182}
0x945e…947c Head {h00=0x001a, h01=0x0050, text=» RF(NG) INS430 NO EOF «, t00=0x005f, t01=0x000e}
0x947c…9490 Head {h00=0x0010, h01=0x0050, text=»INS410 EQU *«, t00=0x005f, t01=0x002c}
0x9490…94bc Head {h00=0x0028, h01=0x0050, text=» SC A1,FDBLRN,A11 LAST RECORD NUMBER«, t00=0x005f, t01=0x0040}
0x94bc…94d8 Head {h00=0x0018, h01=0x0050, text=» ST A2,FDBLRN+1,A11 «, t00=0x005f, t01=0x006c}
0x94d8…9502 Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB ADDRESS«, t00=0x005f, t01=0x0088}
0x9502…9524 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,EOFRC END OF FILE«, t00=0x005f, t01=0x00b2}
0x9524…9544 Head {h00=0x001c, h01=0x0050, text=» ORS A3,ECBRC,A9 TO USER«, t00=0x005f, t01=0x00d4}
0x9544…9552 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x00f4}
0x9552…9566 Head {h00=0x0010, h01=0x0050, text=»INS430 EQU *«, t00=0x005f, t01=0x0102}
0x9566…9570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0116}
0x9570…95a4 Head {h00=0x0030, h01=0x0050, text=»* UPDATE CRN-LINK FOR MOVED INDEX RECORDS «, t00=0x005f, t01=0x0120}
0x95a4…95ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0154}
0x95ae…95ce Head {h00=0x001c, h01=0x0050, text=» LDK A7,1 ADD ONE TO CRN«, t00=0x005f, t01=0x015e}
0x95ce…95fc Head {h00=0x002a, h01=0x0050, text=» CF A14,CRNUPD ADD 1 TO RECORD NUMBERS«, t00=0x005f, t01=0x017e}
0x95fc…9610 Head {h00=0x0010, h01=0x0050, text=»INS440 EQU *«, t00=0x0060, t01=0x001c}
0x9610…9632 Head {h00=0x001e, h01=0x0050, text=» CF A14,SDMRBU REL BUFFER «, t00=0x0060, t01=0x0030}
0x9632…9660 Head {h00=0x002a, h01=0x0050, text=» ABL DMTAR5 ONE INDEX READY TAKE NEXT «, t00=0x0060, t01=0x0052}
0x9660…966e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x0080}
0x966e…969c Head {h00=0x002a, h01=0x0050, text=»DEL000 EQU * DELETE INDEX RECORD CONT «, t00=0x0060, t01=0x008e}
0x969c…96ae Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0060, t01=0x00bc}
0x96ae…96c2 Head {h00=0x0010, h01=0x0050, text=»DEL010 EQU *«, t00=0x0060, t01=0x00ce}
0x96c2…96e8 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMIER3 KEY NOT FOUND «, t00=0x0060, t01=0x00e2}
0x96e8…96f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0108}
0x96f2…9716 Head {h00=0x0020, h01=0x0050, text=»* CHECK RECORD NR DATA REC«, t00=0x0060, t01=0x0112}
0x9716…9720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0136}
0x9720…9734 Head {h00=0x0010, h01=0x0050, text=»DEL020 EQU *«, t00=0x0060, t01=0x0140}
0x9734…974e Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRRO,A11 «, t00=0x0060, t01=0x0154}
0x974e…9760 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A4«, t00=0x0060, t01=0x016e}
0x9760…977a Head {h00=0x0016, h01=0x0050, text=» AD A1,FDBRLE,A11 «, t00=0x0060, t01=0x0180}
0x977a…97a0 Head {h00=0x0022, h01=0x0050, text=» ADK A1,7 BUFSTA-3=ADDR REC NR«, t00=0x0061, t01=0x000a}
0x97a0…97b2 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0061, t01=0x0030}
0x97b2…97d2 Head {h00=0x001c, h01=0x0050, text=» CC A2,ECBCW+1,A9 REC NR«, t00=0x0061, t01=0x0042}
0x97d2…97f6 Head {h00=0x0020, h01=0x0050, text=» RF(NE) DEL030 WRONG RECORD «, t00=0x0061, t01=0x0062}
0x97f6…980a Head {h00=0x0010, h01=0x0050, text=» LC A2,1,A1 «, t00=0x0061, t01=0x0086}
0x980a…981c Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0061, t01=0x009a}
0x981c…9836 Head {h00=0x0016, h01=0x0050, text=» LC A2,2,A1 REC NR«, t00=0x0061, t01=0x00ac}
0x9836…9850 Head {h00=0x0016, h01=0x0050, text=» CW A2,ECBCW+2,A9 «, t00=0x0061, t01=0x00c6}
0x9850…9872 Head {h00=0x001e, h01=0x0050, text=» RF(E) DEL200 RECORD FOUND«, t00=0x0061, t01=0x00e0}
0x9872…9886 Head {h00=0x0010, h01=0x0050, text=»DEL030 EQU *«, t00=0x0061, t01=0x0102}
0x9886…9894 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0116}
0x9894…989e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0124}
0x989e…98c0 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF NEXT KEY SAME«, t00=0x0061, t01=0x012e}
0x98c0…98ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0150}
0x98ca…98ea Head {h00=0x001c, h01=0x0050, text=» CC A10,-1,A1 KEY LENGTH«, t00=0x0061, t01=0x015a}
0x98ea…9912 Head {h00=0x0024, h01=0x0050, text=» RB(NE) DEL010 NEXT KEY NOT SAME«, t00=0x0061, t01=0x017a}
0x9912…9926 Head {h00=0x0010, h01=0x0050, text=»DEL040 EQU *«, t00=0x0062, t01=0x0012}
0x9926…9952 Head {h00=0x0028, h01=0x0050, text=» CF A14,RDNXTR GET NEXT INDEX RECORD«, t00=0x0062, t01=0x0026}
0x9952…9966 Head {h00=0x0010, h01=0x0050, text=»DEL045 EQU *«, t00=0x0062, t01=0x0052}
0x9966…9992 Head {h00=0x0028, h01=0x0050, text=» RB(Z) INS260 GO TO DMIER3 IF ERROR «, t00=0x0062, t01=0x0066}
0x9992…999c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0092}
0x999c…99c0 Head {h00=0x0020, h01=0x0050, text=»* CHECK IF RECORD IS USED «, t00=0x0062, t01=0x009c}
0x99c0…99ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00c0}
0x99ca…99f4 Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKRCD CHECK RECORD STATUS«, t00=0x0062, t01=0x00ca}
0x99f4…9a0e Head {h00=0x0016, h01=0x0050, text=» RB(E) DEL020 USED«, t00=0x0062, t01=0x00f4}
0x9a0e…9a28 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBMRO,A11 «, t00=0x0062, t01=0x010e}
0x9a28…9a58 Head {h00=0x002c, h01=0x0050, text=» ST A1,FDBRRO,A11 LAST RECORD IN SECTOR «, t00=0x0062, t01=0x0128}
0x9a58…9a74 Head {h00=0x0018, h01=0x0050, text=» RB DEL040 NEXT REC «, t00=0x0062, t01=0x0158}
0x9a74…9a82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x0174}
0x9a82…9aa4 Head {h00=0x001e, h01=0x0050, text=»DEL200 EQU * RECORD FOUND «, t00=0x0062, t01=0x0182}
0x9aa4…9aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0014}
0x9aae…9ad8 Head {h00=0x0026, h01=0x0050, text=»* SET RC BIT 6 IF NEXT KEY SAME «, t00=0x0063, t01=0x001e}
0x9ad8…9ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0048}
0x9ae2…9b06 Head {h00=0x0020, h01=0x0050, text=» LC A7,-1,A1 NR OF SAME CHAR«, t00=0x0063, t01=0x0052}
0x9b06…9b1a Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0063, t01=0x0076}
0x9b1a…9b50 Head {h00=0x0032, h01=0x0050, text=» ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB «, t00=0x0063, t01=0x008a}
0x9b50…9b6e Head {h00=0x001a, h01=0x0050, text=» CWR A10,A7 KEY LENGTH«, t00=0x0063, t01=0x00c0}
0x9b6e…9b96 Head {h00=0x0024, h01=0x0050, text=» RF(NE) DEL220 NEXT KEY NOT SAME«, t00=0x0063, t01=0x00de}
0x9b96…9bae Head {h00=0x0014, h01=0x0050, text=» LDKL A2,NXTKYS «, t00=0x0063, t01=0x0106}
0x9bae…9bd4 Head {h00=0x0022, h01=0x0050, text=» ORS A2,ECBRC,A9 NEXT KEY SAME«, t00=0x0063, t01=0x011e}
0x9bd4…9be8 Head {h00=0x0010, h01=0x0050, text=»DEL220 EQU *«, t00=0x0063, t01=0x0144}
0x9be8…9bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0158}
0x9bf2…9c1a Head {h00=0x0024, h01=0x0050, text=»* MOVE UP RECORDS OVER DELETED«, t00=0x0063, t01=0x0162}
0x9c1a…9c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x018a}
0x9c24…9c4c (100, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ADKL A10,7 TOTAL RECORD LENGTH «, t00=0x0064, t01=0x0004}
0x9c4c…9c5e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0064, t01=0x002c}
0x9c5e…9c76 Head {h00=0x0014, h01=0x0050, text=» ADKL A2,BUFSTA «, t00=0x0064, t01=0x003e}
0x9c76…9c98 Head {h00=0x001e, h01=0x0050, text=» AD A2,FDBRRO,A11 TO ADDR «, t00=0x0064, t01=0x0056}
0x9c98…9caa Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0064, t01=0x0078}
0x9caa…9cc8 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A10 FROM ADDR «, t00=0x0064, t01=0x008a}
0x9cc8…9ce2 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBMRO,A11 «, t00=0x0064, t01=0x00a8}
0x9ce2…9d06 Head {h00=0x0020, h01=0x0050, text=» SU A3,FDBRRO,A11 NR OF CHAR«, t00=0x0064, t01=0x00c2}
0x9d06…9d20 Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVFW MOVE«, t00=0x0064, t01=0x00e6}
0x9d20…9d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0100}
0x9d2a…9d4a Head {h00=0x001c, h01=0x0050, text=»* SET LAST RECORD FREE«, t00=0x0064, t01=0x010a}
0x9d4a…9d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x012a}
0x9d54…9d68 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A10 «, t00=0x0064, t01=0x0134}
0x9d68…9d7a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0064, t01=0x0148}
0x9d7a…9d98 Head {h00=0x001a, h01=0x0050, text=» SCR A3,A2 STATUS FREE«, t00=0x0064, t01=0x015a}
0x9d98…9da6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0178}
0x9da6…9db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0186}
0x9db0…9dd8 Head {h00=0x0024, h01=0x0050, text=»* UPDATE CRN FOR MOVED RECORDS«, t00=0x0064, t01=0x0190}
0x9dd8…9de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0028}
0x9de2…9e04 Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x0065, t01=0x0032}
0x9e04…9e18 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A1 «, t00=0x0065, t01=0x0054}
0x9e18…9e3e Head {h00=0x0022, h01=0x0050, text=» LDR A13,A2 FIRST REC NR MOVED«, t00=0x0065, t01=0x0068}
0x9e3e…9e74 Head {h00=0x0032, h01=0x0050, text=» LD A3,FDBRRO,A11 SAVE RELATIVE RECORD OFFSET «, t00=0x0065, t01=0x008e}
0x9e74…9e8e Head {h00=0x0016, h01=0x0050, text=» LD A6,FDBMRO,A11 «, t00=0x0065, t01=0x00c4}
0x9e8e…9eb2 Head {h00=0x0020, h01=0x0050, text=» ST A6,FDBRRO,A11 MAX OFFSET«, t00=0x0065, t01=0x00de}
0x9eb2…9eda Head {h00=0x0024, h01=0x0050, text=» CF A14,GTLGRN LAST REC NR MOVED«, t00=0x0065, t01=0x0102}
0x9eda…9f00 Head {h00=0x0022, h01=0x0050, text=» ST A3,FDBRRO,A11 RESET OFFSET«, t00=0x0065, t01=0x012a}
0x9f00…9f14 Head {h00=0x0010, h01=0x0050, text=» LDKL A7,-1 «, t00=0x0065, t01=0x0150}
0x9f14…9f3e Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNUPD UPDATE CRN BUFFERS «, t00=0x0065, t01=0x0164}
0x9f3e…9f64 Head {h00=0x0022, h01=0x0050, text=» LDK A5,1 MARK BUFFER CHANGED «, t00=0x0065, t01=0x018e}
0x9f64…9f72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x0024}
0x9f72…9f86 Head {h00=0x0010, h01=0x0050, text=»DEL240 EQU *«, t00=0x0066, t01=0x0032}
0x9f86…9fa0 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRRO,A11 «, t00=0x0066, t01=0x0046}
0x9fa0…9fc8 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DEL290 NOT FIRST RECORD «, t00=0x0066, t01=0x0060}
0x9fc8…9fea Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x0066, t01=0x0088}
0x9fea…9ffc Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0066, t01=0x00aa}
0x9ffc…a00e Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0066, t01=0x00bc}
0xa00e…a036 Head {h00=0x0024, h01=0x0050, text=» CF A14,DSUMOD A1,A2 = A1,A2 - 1«, t00=0x0066, t01=0x00ce}
0xa036…a056 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DEL600 FILE START«, t00=0x0066, t01=0x00f6}
0xa056…a07a Head {h00=0x0020, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NR«, t00=0x0066, t01=0x0116}
0xa07a…a09c Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DEL600 FILE START «, t00=0x0066, t01=0x013a}
0xa09c…a0ae Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x0066, t01=0x015c}
0xa0ae…a0d6 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DEL245 BUFFER NOT CHANGED«, t00=0x0066, t01=0x016e}
0xa0d6…a0e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x0008}
0xa0e4…a0ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0016}
0xa0ee…a106 Head {h00=0x0014, h01=0x0050, text=»* WRITE SECTOR«, t00=0x0067, t01=0x0020}
0xa106…a110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0038}
0xa110…a126 Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x0067, t01=0x0042}
0xa126…a13e Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x0067, t01=0x0058}
0xa13e…a166 Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 BUFFER NOT CHANGED YET«, t00=0x0067, t01=0x0070}
0xa166…a17a Head {h00=0x0010, h01=0x0050, text=»DEL245 EQU *«, t00=0x0067, t01=0x0098}
0xa17a…a1a0 Head {h00=0x0022, h01=0x0050, text=» CF A14,SDMRBU RELEASE BUFFER «, t00=0x0067, t01=0x00ac}
0xa1a0…a1aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00d2}
0xa1aa…a1ca Head {h00=0x001c, h01=0x0050, text=»* GET PREVIOUS SECTOR «, t00=0x0067, t01=0x00dc}
0xa1ca…a1d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00fc}
0xa1d4…a1e6 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0067, t01=0x0106}
0xa1e6…a208 Head {h00=0x001e, h01=0x0050, text=» CF A14,RDNXTR GET SECTOR «, t00=0x0067, t01=0x0118}
0xa208…a234 Head {h00=0x0028, h01=0x0050, text=» RB(Z) DEL045 GO TO DMIER3 IF ERROR «, t00=0x0067, t01=0x013a}
0xa234…a248 Head {h00=0x0010, h01=0x0050, text=»DEL250 EQU *«, t00=0x0067, t01=0x0166}
0xa248…a262 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBMRO,A11 «, t00=0x0067, t01=0x017a}
0xa262…a274 (104, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF DEL300«, t00=0x0068, t01=0x0004}
0xa274…a288 Head {h00=0x0010, h01=0x0050, text=»DEL290 EQU *«, t00=0x0068, t01=0x0016}
0xa288…a2a2 Head {h00=0x0016, h01=0x0050, text=» SU A1,FDBRLE,A11 «, t00=0x0068, t01=0x002a}
0xa2a2…a2b4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0068, t01=0x0044}
0xa2b4…a2c8 Head {h00=0x0010, h01=0x0050, text=»DEL300 EQU *«, t00=0x0068, t01=0x0056}
0xa2c8…a2f8 Head {h00=0x002c, h01=0x0050, text=» ST A1,FDBRRO,A11 PREVIOS RECORD OFFSET «, t00=0x0068, t01=0x006a}
0xa2f8…a322 Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKRCD CHECK RECORD STATUS«, t00=0x0068, t01=0x009a}
0xa322…a33e Head {h00=0x0018, h01=0x0050, text=» RB(NE) DEL240 FREE «, t00=0x0068, t01=0x00c4}
0xa33e…a34c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x00e0}
0xa34c…a356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00ee}
0xa356…a36e Head {h00=0x0014, h01=0x0050, text=»* SET CURRENCY«, t00=0x0068, t01=0x00f8}
0xa36e…a378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0110}
0xa378…a396 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A3 STATUS ADDR«, t00=0x0068, t01=0x011a}
0xa396…a3c2 Head {h00=0x0028, h01=0x0050, text=» LDR A12,A11 FDB ADDRESS INDEX FILE «, t00=0x0068, t01=0x0138}
0xa3c2…a3f2 Head {h00=0x002c, h01=0x0050, text=» LD A11,FDBADF,A11 FDB ADDRESS DATA FILE«, t00=0x0068, t01=0x0164}
0xa3f2…a418 (105, 0, 400) Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x0069, t01=0x0004}
0xa418…a444 Head {h00=0x0028, h01=0x0050, text=» LDR A11,A12 FDB ADDRESS INDEX FILE «, t00=0x0069, t01=0x002a}
0xa444…a46c Head {h00=0x0024, h01=0x0050, text=» LC A1,FWTFNR,A11 INDEX FILE NR «, t00=0x0069, t01=0x0056}
0xa46c…a494 Head {h00=0x0024, h01=0x0050, text=» CC A1,CRNCIF,A2 LAST REF INDEX «, t00=0x0069, t01=0x007e}
0xa494…a4b8 Head {h00=0x0020, h01=0x0050, text=» RF(NE) DEL350 NOT THIS IND «, t00=0x0069, t01=0x00a6}
0xa4b8…a4c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00ca}
0xa4c2…a4de Head {h00=0x0018, h01=0x0050, text=»* UPDATE CURRENCY «, t00=0x0069, t01=0x00d4}
0xa4de…a4e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00f0}
0xa4e8…a504 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 CRN ADDR «, t00=0x0069, t01=0x00fa}
0xa504…a526 Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x0069, t01=0x0116}
0xa526…a540 Head {h00=0x0016, h01=0x0050, text=» SC A1,CRNCIF+1,A3«, t00=0x0069, t01=0x0138}
0xa540…a568 Head {h00=0x0024, h01=0x0050, text=» ST A2,CRNCIF+2,A3 RECORD NUMBER«, t00=0x0069, t01=0x0152}
0xa568…a57c Head {h00=0x0010, h01=0x0050, text=»DEL350 EQU *«, t00=0x0069, t01=0x017a}
0xa57c…a5ae Head {h00=0x002e, h01=0x0050, text=» LC A2,17,A14 NR OF SAME IN DELETED RECORD«, t00=0x0069, t01=0x018e}
0xa5ae…a5d4 Head {h00=0x0022, h01=0x0050, text=»* WAS SAVED AT LABEL DEL200 «, t00=0x006a, t01=0x0030}
0xa5d4…a5e8 Head {h00=0x0010, h01=0x0050, text=» CC A2,-4,A9«, t00=0x006a, t01=0x0056}
0xa5e8…a5fe Head {h00=0x0012, h01=0x0050, text=» RF(NL) DEL600«, t00=0x006a, t01=0x006a}
0xa5fe…a62a Head {h00=0x0028, h01=0x0050, text=» SC A2,-4,A9 MAKE NR OF SAME SMALLER«, t00=0x006a, t01=0x0080}
0xa62a…a64a Head {h00=0x001c, h01=0x0050, text=» RF DEL700 WRITE SECTOR «, t00=0x006a, t01=0x00ac}
0xa64a…a65e Head {h00=0x0010, h01=0x0050, text=»DEL600 EQU *«, t00=0x006a, t01=0x00cc}
0xa65e…a670 Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x006a, t01=0x00e0}
0xa670…a698 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DEL900 BUFFER NOT CHANGED«, t00=0x006a, t01=0x00f2}
0xa698…a6a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x011a}
0xa6a6…a6b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0128}
0xa6b0…a6c8 Head {h00=0x0014, h01=0x0050, text=»* WRITE SECTOR«, t00=0x006a, t01=0x0132}
0xa6c8…a6d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x014a}
0xa6d2…a6e6 Head {h00=0x0010, h01=0x0050, text=»DEL700 EQU *«, t00=0x006a, t01=0x0154}
0xa6e6…a6fc Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x006a, t01=0x0168}
0xa6fc…a714 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x006a, t01=0x017e}
0xa714…a728 Head {h00=0x0010, h01=0x0050, text=»DEL900 EQU *«, t00=0x006b, t01=0x0008}
0xa728…a73c Head {h00=0x0010, h01=0x0050, text=» ABL INS440 «, t00=0x006b, t01=0x001c}
0xa73c…a748 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0030}
0xa748…a756 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x003c}
0xa756…a760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x004a}
0xa760…a782 Head {h00=0x001e, h01=0x0050, text=»* FNDBLB=FIND BLOCK BUFFER«, t00=0x006b, t01=0x0054}
0xa782…a78c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0076}
0xa78c…a7a0 Head {h00=0x0010, h01=0x0050, text=»FNDBLB EQU *«, t00=0x006b, t01=0x0080}
0xa7a0…a7be Head {h00=0x001a, h01=0x0050, text=» LD A7,DWTOR,A11 ORDER«, t00=0x006b, t01=0x0094}
0xa7be…a7d2 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x006b, t01=0x00b2}
0xa7d2…a7e8 Head {h00=0x0012, h01=0x0050, text=» SUK A7,ORDSQ0«, t00=0x006b, t01=0x00c6}
0xa7e8…a812 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FBL110 NOT READ SEQUENTIAL«, t00=0x006b, t01=0x00dc}
0xa812…a81c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0106}
0xa81c…a834 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A9 «, t00=0x006b, t01=0x0110}
0xa834…a854 Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBCW+2,A9 REC NR«, t00=0x006b, t01=0x0128}
0xa854…a86e Head {h00=0x0016, h01=0x0050, text=» CC A2,FDBLRN,A11 «, t00=0x006b, t01=0x0148}
0xa86e…a88a Head {h00=0x0018, h01=0x0050, text=» RF(L) FBL110 NO EOF«, t00=0x006b, t01=0x0162}
0xa88a…a8a4 Head {h00=0x0016, h01=0x0050, text=» RF(G) FBL100 EOF «, t00=0x006b, t01=0x017e}
0xa8a4…a8c0 Head {h00=0x0018, h01=0x0050, text=» CW A3,FDBLRN+1,A11 «, t00=0x006c, t01=0x0008}
0xa8c0…a8de Head {h00=0x001a, h01=0x0050, text=» RF(NG) FBL110 NO EOF «, t00=0x006c, t01=0x0024}
0xa8de…a8f2 Head {h00=0x0010, h01=0x0050, text=»FBL100 EQU *«, t00=0x006c, t01=0x0042}
0xa8f2…a912 Head {h00=0x001c, h01=0x0050, text=» LDK A2,1 INDICATE ERROR«, t00=0x006c, t01=0x0056}
0xa912…a92e Head {h00=0x0018, h01=0x0050, text=» LDKL A1,EOFERR EOF «, t00=0x006c, t01=0x0076}
0xa92e…a948 Head {h00=0x0016, h01=0x0050, text=» RF FBL170 RETURN «, t00=0x006c, t01=0x0092}
0xa948…a95c Head {h00=0x0010, h01=0x0050, text=»FBL110 EQU *«, t00=0x006c, t01=0x00ac}
0xa95c…a972 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/CFFF«, t00=0x006c, t01=0x00c0}
0xa972…a99c Head {h00=0x0026, h01=0x0050, text=» ANS A2,FDBDBR,A11 RELEASE BUFFER «, t00=0x006c, t01=0x00d6}
0xa99c…a9c4 Head {h00=0x0024, h01=0x0050, text=» CF A14,GTBKBU GET BLOCK BUFFER «, t00=0x006c, t01=0x0100}
0xa9c4…a9ec Head {h00=0x0024, h01=0x0050, text=» RF(N) FBL120 NO DATA IN BUFFER «, t00=0x006c, t01=0x0128}
0xa9ec…a9fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x0150}
0xa9fa…aa04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x015e}
0xaa04…aa2a Head {h00=0x0022, h01=0x0050, text=»* DELAYED BUFFER IS WRITTEN «, t00=0x006c, t01=0x0168}
0xaa2a…aa54 Head {h00=0x0026, h01=0x0050, text=»* IF IT IS NOT THE WANTED BLOCK «, t00=0x006c, t01=0x018e}
0xaa54…aa5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0028}
0xaa5e…aa80 Head {h00=0x001e, h01=0x0050, text=» LC A7,BUFOR,A4 DELAY FLAG«, t00=0x006d, t01=0x0032}
0xaa80…aa92 Head {h00=0x000e, h01=0x0050, text=» ANK A7,/3«, t00=0x006d, t01=0x0054}
0xaa92…aab0 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FBL150 NO DELAY«, t00=0x006d, t01=0x0066}
0xaab0…aaca Head {h00=0x0016, h01=0x0050, text=» CM BUFOR,A4 RESET«, t00=0x006d, t01=0x0084}
0xaaca…aadc Head {h00=0x000e, h01=0x0050, text=» ANK A7,1 «, t00=0x006d, t01=0x009e}
0xaadc…ab00 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) FBL130 RIGHT SECTOR «, t00=0x006d, t01=0x00b0}
0xab00…ab20 Head {h00=0x001c, h01=0x0050, text=» LD A7,BUFSNR,A4 SECT NR«, t00=0x006d, t01=0x00d4}
0xab20…ab38 Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x006d, t01=0x00f4}
0xab38…ab52 Head {h00=0x0016, h01=0x0050, text=» LD A7,BUFSNR+2,A4«, t00=0x006d, t01=0x010c}
0xab52…ab6c Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW+2,A8 «, t00=0x006d, t01=0x0126}
0xab6c…ab82 Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x006d, t01=0x0140}
0xab82…ab9e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FBL160 ERROR«, t00=0x006d, t01=0x0156}
0xab9e…abc4 Head {h00=0x0022, h01=0x0050, text=» CF A14,SDMRBU RELEASE BUFFER «, t00=0x006d, t01=0x0172}
0xabc4…abe6 Head {h00=0x001e, h01=0x0050, text=» RB FNDBLB GET NEW BUFFER «, t00=0x006e, t01=0x0008}
0xabe6…abf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x002a}
0xabf4…ac08 Head {h00=0x0010, h01=0x0050, text=»FBL120 EQU *«, t00=0x006e, t01=0x0038}
0xac08…ac12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x004c}
0xac12…ac34 Head {h00=0x001e, h01=0x0050, text=»* READ BLOCK INTO BUFFER«, t00=0x006e, t01=0x0056}
0xac34…ac3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0078}
0xac3e…ac64 Head {h00=0x0022, h01=0x0050, text=» CF A14,FMIORD PHYSICAL READW «, t00=0x006e, t01=0x0082}
0xac64…ac80 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FBL160 ERROR«, t00=0x006e, t01=0x00a8}
0xac80…ac98 Head {h00=0x0014, h01=0x0050, text=» LD A5,ECBBA,A8 «, t00=0x006e, t01=0x00c4}
0xac98…acaa Head {h00=0x000e, h01=0x0050, text=» RF FBL150«, t00=0x006e, t01=0x00dc}
0xacaa…acdc Head {h00=0x002e, h01=0x0050, text=»FBL130 EQU * RIGHT DELAYED BUFFER IS FOUND«, t00=0x006e, t01=0x00ee}
0xacdc…acf2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/1000«, t00=0x006e, t01=0x0120}
0xacf2…ad18 Head {h00=0x0022, h01=0x0050, text=» ORS A2,FDBDBR,A11 KEEP BUFFER«, t00=0x006e, t01=0x0136}
0xad18…ad2c Head {h00=0x0010, h01=0x0050, text=»FBL150 EQU *«, t00=0x006e, t01=0x015c}
0xad2c…ad4a Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 INDICATE OK «, t00=0x006e, t01=0x0170}
0xad4a…ad5c Head {h00=0x000e, h01=0x0050, text=» RF FBL170«, t00=0x006e, t01=0x018e}
0xad5c…ad70 Head {h00=0x0010, h01=0x0050, text=»FBL160 EQU *«, t00=0x006f, t01=0x0010}
0xad70…ad92 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,-1 INDICATE ERROR«, t00=0x006f, t01=0x0024}
0xad92…ada6 Head {h00=0x0010, h01=0x0050, text=»FBL170 EQU *«, t00=0x006f, t01=0x0046}
0xada6…adba Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x006f, t01=0x005a}
0xadba…add2 Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x006f, t01=0x006e}
0xadd2…ade4 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x006f, t01=0x0086}
0xade4…adf2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006f, t01=0x0098}
0xadf2…adfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00a6}
0xadfc…ae40 Head {h00=0x0040, h01=0x0050, text=»* CHKSTS=CHECK RECORD STATUS AND LOAD LOGICAL RECORD NUMBER «, t00=0x006f, t01=0x00b0}
0xae40…ae4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00f4}
0xae4a…ae6c Head {h00=0x001e, h01=0x0050, text=»* ENTRY : A11=FWT ADDRESS «, t00=0x006f, t01=0x00fe}
0xae6c…ae8e Head {h00=0x001e, h01=0x0050, text=»* A5=BLOCK ADDRESS«, t00=0x006f, t01=0x0120}
0xae8e…aeb4 Head {h00=0x0022, h01=0x0050, text=»* A9=USER ECB ADDRESS «, t00=0x006f, t01=0x0142}
0xaeb4…aebe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0168}
0xaebe…aeec Head {h00=0x002a, h01=0x0050, text=»* EXIT : A1,A2=LOGICAL RECORD NUMBER «, t00=0x006f, t01=0x0172}
0xaeec…af18 Head {h00=0x0028, h01=0x0050, text=»* A10=RECORD STATUS POINTER «, t00=0x0070, t01=0x0010}
0xaf18…af36 Head {h00=0x001a, h01=0x0050, text=»* A4=DESTROYED«, t00=0x0070, t01=0x003c}
0xaf36…af60 Head {h00=0x0026, h01=0x0050, text=»* CR=0 IF RECORD NOT USED «, t00=0x0070, t01=0x005a}
0xaf60…af6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0084}
0xaf6a…af7e Head {h00=0x0010, h01=0x0050, text=»CHKSTS EQU *«, t00=0x0070, t01=0x008e}
0xaf7e…af98 Head {h00=0x0016, h01=0x0050, text=» LD A10,FDBRRO,A11«, t00=0x0070, t01=0x00a2}
0xaf98…afb2 Head {h00=0x0016, h01=0x0050, text=» AD A10,FDBRLE,A11«, t00=0x0070, t01=0x00bc}
0xafb2…afc6 Head {h00=0x0010, h01=0x0050, text=» ADR A10,A5 «, t00=0x0070, t01=0x00d6}
0xafc6…afde Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A9 «, t00=0x0070, t01=0x00ea}
0xafde…aff8 Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A9 «, t00=0x0070, t01=0x0102}
0xaff8…b00a Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0070, t01=0x011c}
0xb00a…b01e Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0070, t01=0x012e}
0xb01e…b032 Head {h00=0x0010, h01=0x0050, text=» CCR A4,A10 «, t00=0x0070, t01=0x0142}
0xb032…b044 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0070, t01=0x0156}
0xb044…b052 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0168}
0xb052…b05c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0176}
0xb05c…b09c Head {h00=0x003c, h01=0x0050, text=»* FNDKYP=SET PARAMETERS AND THEN GO TO FNDKEY SUBROUTINE«, t00=0x0070, t01=0x0180}
0xb09c…b0a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0030}
0xb0a6…b0bc Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0071, t01=0x003a}
0xb0bc…b0d0 Head {h00=0x0010, h01=0x0050, text=»FNDKYP EQU *«, t00=0x0071, t01=0x0050}
0xb0d0…b0e4 Head {h00=0x0010, h01=0x0050, text=» LDR A9,A11 «, t00=0x0071, t01=0x0064}
0xb0e4…b10c Head {h00=0x0024, h01=0x0050, text=» ADKL A9,FDBKEY KEY AREA ADDRESS«, t00=0x0071, t01=0x0078}
0xb10c…b13a Head {h00=0x002a, h01=0x0050, text=» LD A10,FDBRLE,A11 RECORD LENGTH INDEX«, t00=0x0071, t01=0x00a0}
0xb13a…b158 Head {h00=0x001a, h01=0x0050, text=» SUKL A10,6 KEY LENGTH«, t00=0x0071, t01=0x00ce}
0xb158…b16c Head {h00=0x0010, h01=0x0050, text=» ABL FNDKEY «, t00=0x0071, t01=0x00ec}
0xb16c…b178 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x0100}
0xb178…b180 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x010c}
0xb180…b188 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x0114}
0xb188…b190 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x011c}
0xb190…b19c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0071, t01=0x0124}
0xb19c…b1a0 Head {h00=0x4004, h01=0x0000}
0xb1a0…b1a4 00 71 01 30 ┆ q 0┆
0xb1a4…b1ac (114, 1, 8) 20 04 00 00 00 72 00 04 ┆ r ┆
0xb1ac…b1fc (115, 0, 400) 54 1c 00 71 04 50 00 7b 00 82 00 87 00 50 00 8b 57 22 00 93 00 15 00 97 04 ae 00 06 01 66 00 48 00 44 04 21 40 00 00 9f 52 12 00 a5 01 ec 00 c9 56 04 00 f5 00 60 00 f9 00 5e 01 01 00 5a 01 09 00 64 01 13 56 08 01 1f 00 62 01 23 00 5c 01 27 ┆T q P { P W" f H D !@ R V ` ^ Z d V b # '┆
0xb1fc…b24c 00 60 01 2b 00 5a 01 2f 00 64 01 31 54 0a 01 35 56 22 01 39 00 5c 00 07 00 22 00 48 00 44 04 21 00 92 01 3b 52 1c 01 49 00 68 01 4f 00 6a 01 5b 00 6c 01 67 50 4e 01 6b 50 10 01 6f 50 46 01 73 50 06 01 81 04 68 01 85 00 6c 01 87 50 1e 01 8f ┆ ` + Z / d 1T 5V" 9 " H D ! ;R I h O j [ l gPN kP oPF sP h l P ┆
0xb24c…b29c 04 be 01 99 00 68 01 a5 00 66 01 a9 02 3a 01 af 50 04 00 07 00 6e 00 48 00 44 04 21 4a 29 01 b5 57 32 01 b9 04 68 01 bd 00 6c 01 bf 50 08 01 c3 04 be 01 c7 00 66 01 cb 02 3e 01 cf 00 6c 01 d1 50 16 01 d5 00 5c 01 d9 04 be 01 e1 00 68 01 eb ┆ h f : P n H D !J) W2 h l P f > l P h ┆
0xb29c…b2ec 02 5e 01 ef 50 36 01 f3 50 04 01 fd 02 3e 00 07 00 ba 00 48 00 44 04 21 1e 00 02 01 54 08 02 05 00 14 02 09 00 4e 02 0d 02 98 02 19 02 3e 02 23 04 be 02 2b 02 3e 02 33 00 14 02 37 00 4e 02 3d 57 02 02 43 00 58 02 47 00 54 02 4d 00 56 02 51 ┆ ^ P6 P > H D ! T N > # + > 3 7 N =W C X G T M V Q┆
0xb2ec…b33c 00 48 02 57 54 46 02 5b 53 46 00 07 01 06 00 48 00 44 04 21 00 04 02 5d 57 40 02 61 00 5e 02 67 54 30 02 6b 00 62 02 6f 00 5e 02 73 00 5c 02 7b 00 60 02 7d 55 1a 02 81 00 5a 02 87 00 5a 02 89 52 0a 02 8d 56 06 02 93 00 64 02 af 06 be 02 bb ┆ H WTF [SF H D ! ]W@ a ^ gT0 k b o ^ s { ` }U Z Z R V d ┆
0xb33c…b38c (116, 2, 280) 00 4c 02 bd 50 0a 00 07 01 52 00 48 00 44 04 21 22 40 02 c5 00 4c 02 c9 04 4c 02 d3 02 d8 02 dd 00 4c 02 e7 00 46 02 f5 00 15 02 f9 04 ae 03 03 50 08 03 0b 57 0a 03 0f 04 82 03 2d 00 46 03 35 00 50 03 37 50 06 03 3d 00 50 03 4b 00 52 03 57 ┆ L P R H D !"@ L L L F P W - F 5 P 7P = P K R W┆
0xb38c…b3dc 00 4e 00 08 00 0e 00 48 00 44 04 21 20 40 03 5b 50 1c 03 5f 00 14 03 65 04 ae 03 6f 00 14 03 73 50 04 03 77 00 4e 03 83 00 52 03 8b 00 52 03 a1 00 4a 03 cf 06 be 03 d5 00 54 03 d9 00 56 03 df 50 30 03 e5 54 14 03 e9 00 58 03 eb 54 12 00 08 ┆ N H D ! @ [P _ e o sP w N R R J T V P0 T X T ┆
0xb3dc…b42c 00 5a 00 48 00 44 04 21 00 14 04 19 00 48 04 23 00 4a 04 25 50 0c 04 29 00 4a 04 2f 50 02 04 37 50 2c 04 43 50 02 04 6b 00 5e 04 71 00 62 04 7b 00 5a 04 7f 00 5c 04 89 04 be 04 91 54 1a 04 95 04 be 04 9b 00 46 04 9d 54 04 00 08 00 a6 00 0c ┆ Z H D ! H # J %P ) J /P 7P, CP k ^ q b { Z T F T ┆
0xb42c…b454 00 08 04 03 80 00 06 d1 07 2c 00 08 00 f2 00 0e 00 0a 07 04 00 00 00 00 07 3a 00 00 00 08 01 02 40 04 00 00 00 08 01 14 ┆ , : @ ┆