|
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: 46288 (0xb4d0)
Notes: pts_type(SC)
Names: »SDMTSK.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/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 00001 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 00000 =A * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * 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…1082 Head {h00=0x0014, h01=0x0050, text=»INDXAC EQU 00001«, t00=0x000a, t01=0x00d0}
0x1082…10b6 Head {h00=0x0030, h01=0x0050, text=»INSLAS EQU Y:A INSERT SAME KEY LAST WHEN = 1«, t00=0x000a, t01=0x00e8}
0x10b6…10e2 Head {h00=0x0028, h01=0x0050, text=»* A VERSION LEAVING OUT OPEN MODES: «, t00=0x000a, t01=0x011c}
0x10e2…1110 Head {h00=0x002a, h01=0x0050, text=»* OPEN OUTPUT,OPEN EXTEND AND DISCARD «, t00=0x000a, t01=0x0148}
0x1110…1136 Head {h00=0x0022, h01=0x0050, text=»* IS OBTAINED BY SETTING Y:C=0«, t00=0x000a, t01=0x0176}
0x1136…1140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000c}
0x1140…115c Head {h00=0x0018, h01=0x0050, text=»CRDEEX EQU 00000 =A«, t00=0x000b, t01=0x0016}
0x115c…1166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0032}
0x1166…1198 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000b, t01=0x003c}
0x1198…11c6 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000b, t01=0x006e}
0x11c6…11d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009c}
0x11d0…11e4 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x000b, t01=0x00a6}
0x11e4…11ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ba}
0x11ee…11f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c4}
0x11f8…122e Head {h00=0x0032, h01=0x0050, text=»* KEYDUP=1 MEANS THAT PRIMARY INDEX (I1) DON'T«, t00=0x000b, t01=0x00ce}
0x122e…125e Head {h00=0x002c, h01=0x0050, text=»* ALLOW DUPLICATE KEY WHEN READ OR WRITE«, t00=0x000b, t01=0x0104}
0x125e…1268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0134}
0x1268…127e Head {h00=0x0012, h01=0x0050, text=»KEYDUP EQU Y:B«, t00=0x000b, t01=0x013e}
0x127e…128c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0154}
0x128c…12a4 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000b, t01=0x0162}
0x12a4…12bc Head {h00=0x0014, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x017a}
0x12bc…12d4 (12, 0, 400) Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000c, t01=0x0004}
0x12d4…12dc Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x001c}
0x12dc…130e Head {h00=0x002e, h01=0x0050, text=»FMFPBL EQU 80 FILE PARAMETER BLOCK LENGTH «, t00=0x000c, t01=0x0024}
0x130e…131c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0056}
0x131c…1326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0064}
0x1326…1346 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000c, t01=0x006e}
0x1346…1366 Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x000c, t01=0x008e}
0x1366…1386 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000c, t01=0x00ae}
0x1386…1390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ce}
0x1390…13c6 Head {h00=0x0032, h01=0x0050, text=»* THE FOLLOWING INTERNAL ORDER CODES ARE THE«, t00=0x000c, t01=0x00d8}
0x13c6…13ee Head {h00=0x0024, h01=0x0050, text=»* RELATIVE POSITION IN ORDTAB «, t00=0x000c, t01=0x010e}
0x13ee…1422 Head {h00=0x0030, h01=0x0050, text=»* ORDER FROM TIOSDM IS CHANGED AS FOLLOWED«, t00=0x000c, t01=0x0136}
0x1422…145e Head {h00=0x0038, h01=0x0050, text=»* DWTOR TIOSDM DWTOR AFTER CHANGE A7 «, t00=0x000c, t01=0x016a}
0x145e…1498 Head {h00=0x0036, h01=0x0050, text=»* 0<X<=7 NOT CHANGED 0«, t00=0x000d, t01=0x0016}
0x1498…14d2 Head {h00=0x0036, h01=0x0050, text=»* X>7 ODD X=(X+17)/2 -«, t00=0x000d, t01=0x0050}
0x14d2…150c Head {h00=0x0036, h01=0x0050, text=»* X>7 EVEN X=(X-8)/2 -«, t00=0x000d, t01=0x008a}
0x150c…1516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c4}
0x1516…152a Head {h00=0x0010, h01=0x0050, text=»ORDERS EQU *«, t00=0x000d, t01=0x00ce}
0x152a…1532 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x00e2}
0x1532…154e Head {h00=0x0018, h01=0x0050, text=»OROPEN EQU *-ORDERS «, t00=0x000d, t01=0x00ea}
0x154e…1568 Head {h00=0x0016, h01=0x0050, text=» DATA SDMOPN OPEN «, t00=0x000d, t01=0x0106}
0x1568…1570 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0120}
0x1570…158c Head {h00=0x0018, h01=0x0050, text=»ORDRM0 EQU *-ORDERS «, t00=0x000d, t01=0x0128}
0x158c…15ac Head {h00=0x001c, h01=0x0050, text=» DATA RDRM00 READ RANDOM«, t00=0x000d, t01=0x0144}
0x15ac…15b4 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0164}
0x15b4…15d0 Head {h00=0x0018, h01=0x0050, text=»ORDSQ0 EQU *-ORDERS «, t00=0x000d, t01=0x016c}
0x15d0…15f4 Head {h00=0x0020, h01=0x0050, text=» DATA RDSQ00 READ SEQUENTIAL«, t00=0x000d, t01=0x0188}
0x15f4…15fc Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x001c}
0x15fc…1618 Head {h00=0x0018, h01=0x0050, text=»OWRRM0 EQU *-ORDERS «, t00=0x000e, t01=0x0024}
0x1618…163a Head {h00=0x001e, h01=0x0050, text=» DATA WRRM00 WRITE RANDOM «, t00=0x000e, t01=0x0040}
0x163a…1642 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0062}
0x1642…165e Head {h00=0x0018, h01=0x0050, text=»OWRSQ0 EQU *-ORDERS «, t00=0x000e, t01=0x006a}
0x165e…1684 Head {h00=0x0022, h01=0x0050, text=» DATA WRSQ00 WRITE SEQUENTIAL «, t00=0x000e, t01=0x0086}
0x1684…168c Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x00ac}
0x168c…16a8 Head {h00=0x0018, h01=0x0050, text=»OREWR0 EQU *-ORDERS «, t00=0x000e, t01=0x00b4}
0x16a8…16e2 Head {h00=0x0036, h01=0x0050, text=» DATA REWR00 REWRITE NOT INDEXED (DIRECT,CURRENT) «, t00=0x000e, t01=0x00d0}
0x16e2…16f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x010a}
0x16f0…170c Head {h00=0x0018, h01=0x0050, text=»ODELT0 EQU *-ORDERS «, t00=0x000e, t01=0x0118}
0x170c…1744 Head {h00=0x0034, h01=0x0050, text=» DATA DELT00 DELETE NOT INDEXED (DIRECT,CURRENT)«, t00=0x000e, t01=0x0134}
0x1744…174c Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x016c}
0x174c…1768 Head {h00=0x0018, h01=0x0050, text=»OSTRTD EQU *-ORDERS «, t00=0x000e, t01=0x0174}
0x1768…17a2 Head {h00=0x0036, h01=0x0050, text=» DATA STRTDI START DIRECT (EQUAL,GREATER,NOT LESS)«, t00=0x000e, t01=0x0190}
0x17a2…17aa Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x003a}
0x17aa…17c6 Head {h00=0x0018, h01=0x0050, text=»OEXTND EQU *-ORDERS «, t00=0x000f, t01=0x0042}
0x17c6…17e6 Head {h00=0x001c, h01=0x0050, text=» DATA EXTEND EXTEND FILE«, t00=0x000f, t01=0x005e}
0x17e6…17ee Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x007e}
0x17ee…180a Head {h00=0x0018, h01=0x0050, text=»OCLOSE EQU *-ORDERS «, t00=0x000f, t01=0x0086}
0x180a…1824 Head {h00=0x0016, h01=0x0050, text=» DATA SDMCLO CLOSE«, t00=0x000f, t01=0x00a2}
0x1824…182c Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x00bc}
0x182c…1848 Head {h00=0x0018, h01=0x0050, text=»ORDFLP EQU *-ORDERS «, t00=0x000f, t01=0x00c4}
0x1848…1872 Head {h00=0x0026, h01=0x0050, text=» DATA SDMRFP READ FILE PARAMETERS «, t00=0x000f, t01=0x00e0}
0x1872…187a Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x010a}
0x187a…1890 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000f, t01=0x0112}
0x1890…189e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0128}
0x189e…18a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0136}
0x18a8…18be Head {h00=0x0012, h01=0x0050, text=»* INDEX ORDERS«, t00=0x000f, t01=0x0140}
0x18be…18c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0156}
0x18c8…18e4 Head {h00=0x0018, h01=0x0050, text=»ORDRMX EQU *-ORDERS «, t00=0x000f, t01=0x0160}
0x18e4…190c Head {h00=0x0024, h01=0x0050, text=» DATA RDRMIX READ RANDOM INDEXED«, t00=0x000f, t01=0x017c}
0x190c…1914 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0014}
0x1914…1930 Head {h00=0x0018, h01=0x0050, text=»ORDSQX EQU *-ORDERS «, t00=0x0010, t01=0x001c}
0x1930…195c Head {h00=0x0028, h01=0x0050, text=» DATA RDSQIX READ SEQUENTIAL INDEXED«, t00=0x0010, t01=0x0038}
0x195c…1964 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0064}
0x1964…1980 Head {h00=0x0018, h01=0x0050, text=»OWRRMX EQU *-ORDERS «, t00=0x0010, t01=0x006c}
0x1980…19aa Head {h00=0x0026, h01=0x0050, text=» DATA WRRMIX WRITE RANDOM INDEXED «, t00=0x0010, t01=0x0088}
0x19aa…19b2 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x00b2}
0x19b2…19ce Head {h00=0x0018, h01=0x0050, text=»OWRSQX EQU *-ORDERS «, t00=0x0010, t01=0x00ba}
0x19ce…1a0a Head {h00=0x0038, h01=0x0050, text=» DATA DMTERR WRITE SEQUENTIAL INDEXED (NOT ALLOWED) «, t00=0x0010, t01=0x00d6}
0x1a0a…1a12 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0112}
0x1a12…1a2e Head {h00=0x0018, h01=0x0050, text=»OREWRX EQU *-ORDERS «, t00=0x0010, t01=0x011a}
0x1a2e…1a64 Head {h00=0x0032, h01=0x0050, text=» DATA REWRIX REWRITE INDEXED (DIRECT,CURRENT) «, t00=0x0010, t01=0x0136}
0x1a64…1a6c Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x016c}
0x1a6c…1a88 Head {h00=0x0018, h01=0x0050, text=»ODELTX EQU *-ORDERS «, t00=0x0010, t01=0x0174}
0x1a88…1abc Head {h00=0x0030, h01=0x0050, text=» DATA DELTIX DELETE INDEXED (DIRECT,CURRENT)«, t00=0x0010, t01=0x0190}
0x1abc…1ac4 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0034}
0x1ac4…1ae0 Head {h00=0x0018, h01=0x0050, text=»OSTRTX EQU *-ORDERS «, t00=0x0011, t01=0x003c}
0x1ae0…1b1c Head {h00=0x0038, h01=0x0050, text=» DATA STRTIX START INDEXED (EQUAL,GREATER,NOT LESS) «, t00=0x0011, t01=0x0058}
0x1b1c…1b24 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0094}
0x1b24…1b30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x009c}
0x1b30…1b3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00a8}
0x1b3e…1b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b48…1b64 Head {h00=0x0018, h01=0x0050, text=»* ORDER INDEX TABLE «, t00=0x0011, t01=0x00c0}
0x1b64…1b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00dc}
0x1b6e…1b84 Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x0011, t01=0x00e6}
0x1b84…1b8c Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00fc}
0x1b8c…1ba0 Head {h00=0x0010, h01=0x0050, text=»ORDTAB EQU *«, t00=0x0011, t01=0x0104}
0x1ba0…1bd6 Head {h00=0x0032, h01=0x0050, text=» BYTE OCLOSE,ORDFLP CLOSE,READ FILE PARAMETERS«, t00=0x0011, t01=0x0118}
0x1bd6…1c10 Head {h00=0x0036, h01=0x0050, text=» BYTE OWRSQ0,OWRRM0 WRITE SEQUENTIAL,WRITE RANDOM «, t00=0x0011, t01=0x014e}
0x1c10…1c40 Head {h00=0x002c, h01=0x0050, text=» BYTE OREWR0,OREWR0 REWRITE NOT INDEXED «, t00=0x0011, t01=0x0188}
0x1c40…1c6e Head {h00=0x002a, h01=0x0050, text=» BYTE ODELT0,ODELT0 DELETE NOT INDEXED«, t00=0x0012, t01=0x0028}
0x1c6e…1ca6 Head {h00=0x0034, h01=0x0050, text=» BYTE ORDSQ0,ORDRM0 READ SEQUENTIAL,READ RANDOM «, t00=0x0012, t01=0x0056}
0x1ca6…1cce Head {h00=0x0024, h01=0x0050, text=» BYTE OSTRTD,OSTRTD START DIRECT«, t00=0x0012, t01=0x008e}
0x1cce…1cfc Head {h00=0x002a, h01=0x0050, text=» BYTE OSTRTD,OCLOSE START DIRECT,CLOSE«, t00=0x0012, t01=0x00b6}
0x1cfc…1d18 Head {h00=0x0018, h01=0x0050, text=»ORDTEX EQU *-ORDTAB «, t00=0x0012, t01=0x00e4}
0x1d18…1d2e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x0012, t01=0x0100}
0x1d2e…1d4c Head {h00=0x001a, h01=0x0050, text=» BYTE OEXTND,0 EXTEND «, t00=0x0012, t01=0x0116}
0x1d4c…1d58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0134}
0x1d58…1d6e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0012, t01=0x0140}
0x1d6e…1daa Head {h00=0x0038, h01=0x0050, text=» BYTE OEXTND,OWRSQX EXTEND,WRITE SEQUENTIAL INDEXED «, t00=0x0012, t01=0x0156}
0x1daa…1dea (19, 0, 400) Head {h00=0x003c, h01=0x0050, text=» BYTE OWRRMX,OREWRX WRITE RANDOM INDEXED,REWRITE INDEXED«, t00=0x0013, t01=0x0004}
0x1dea…1e24 Head {h00=0x0036, h01=0x0050, text=» BYTE OREWRX,ODELTX REWRITE INDEXED,DELETE INDEXED«, t00=0x0013, t01=0x0044}
0x1e24…1e66 Head {h00=0x003e, h01=0x0050, text=» BYTE ODELTX,ORDSQX DELETE INDEXED,READ SEQUENTIAL INDEXED«, t00=0x0013, t01=0x007e}
0x1e66…1ea4 Head {h00=0x003a, h01=0x0050, text=» BYTE ORDRMX,OSTRTX READ RANDOM INDEXED,START INDEXED «, t00=0x0013, t01=0x00c0}
0x1ea4…1ece Head {h00=0x0026, h01=0x0050, text=» BYTE OSTRTX,OSTRTX START INDEXED «, t00=0x0013, t01=0x00fe}
0x1ece…1eda Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0128}
0x1eda…1f16 Head {h00=0x0038, h01=0x0050, text=»ORDEXT EQU ORDTEX+ORDTEX-17 TIOSDM ORDER FOR EXTEND «, t00=0x0013, t01=0x0134}
0x1f16…1f24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0170}
0x1f24…1f3a Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0013, t01=0x017e}
0x1f3a…1f50 (20, 0, 398) Head {h00=0x0012, h01=0x0050, text=»* SDMTSK *«, t00=0x0014, t01=0x0004}
0x1f50…1f66 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0014, t01=0x001a}
0x1f66…1f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0030}
0x1f70…1f84 Head {h00=0x0010, h01=0x0050, text=»SDMTSK EQU *«, t00=0x0014, t01=0x003a}
0x1f84…1f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x004e}
0x1f8e…1faa Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0014, t01=0x0058}
0x1faa…1fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0074}
0x1fb4…1fc8 Head {h00=0x0010, h01=0x0050, text=» LD A14,PRUN«, t00=0x0014, t01=0x007e}
0x1fc8…1fec Head {h00=0x0020, h01=0x0050, text=» ADKL A14,DMTTSB STACK BASE «, t00=0x0014, t01=0x0092}
0x1fec…2008 Head {h00=0x0018, h01=0x0050, text=» LDR A11,A1 FDB ADDR«, t00=0x0014, t01=0x00b6}
0x2008…201c Head {h00=0x0010, h01=0x0050, text=» LDR A8,A11 «, t00=0x0014, t01=0x00d2}
0x201c…2044 Head {h00=0x0024, h01=0x0050, text=» ADKL A8,FDBECB FDB ECB ADDRESS «, t00=0x0014, t01=0x00e6}
0x2044…206e Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB ADDRESS«, t00=0x0014, t01=0x010e}
0x206e…2084 Head {h00=0x0012, h01=0x0050, text=» LDK A7,OROPEN«, t00=0x0014, t01=0x0138}
0x2084…20b4 Head {h00=0x002c, h01=0x0050, text=» LD A5,DWTOR,A11 ORDER CODE FROM TIOSDM «, t00=0x0014, t01=0x014e}
0x20b4…20c8 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/7F «, t00=0x0014, t01=0x017e}
0x20c8…20fc (21, 0, 400) Head {h00=0x0030, h01=0x0050, text=» SUKL A5,SDMLIM LIMIT BETWEEN OPEN AND CLOSE«, t00=0x0015, t01=0x0004}
0x20fc…211c Head {h00=0x001c, h01=0x0050, text=» RF(N) DMT100 OPEN ORDER«, t00=0x0015, t01=0x0038}
0x211c…2136 Head {h00=0x0016, h01=0x0050, text=» LDK A7,2 MASK BIT«, t00=0x0015, t01=0x0058}
0x2136…2148 Head {h00=0x000e, h01=0x0050, text=» TM A7,A5 «, t00=0x0015, t01=0x0072}
0x2148…216e Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT010 ORDER CODE EVEN «, t00=0x0015, t01=0x0084}
0x216e…2194 Head {h00=0x0022, h01=0x0050, text=» ADK A5,50 CORRECT ORDER INDEX«, t00=0x0015, t01=0x00aa}
0x2194…21a8 Head {h00=0x0010, h01=0x0050, text=»DMT010 EQU *«, t00=0x0015, t01=0x00d0}
0x21a8…21ce Head {h00=0x0022, h01=0x0050, text=» SRL A5,2 INDEX IN ORDER TABLE«, t00=0x0015, t01=0x00e4}
0x21ce…21f6 Head {h00=0x0024, h01=0x0050, text=» LC A7,ORDTAB,A5 NEW ORDER INDEX«, t00=0x0015, t01=0x010a}
0x21f6…222c Head {h00=0x0032, h01=0x0050, text=» SC A7,DWTOR+1,A11 SAVE NEW INTERN ORDER INDEX«, t00=0x0015, t01=0x0132}
0x222c…2246 Head {h00=0x0016, h01=0x0050, text=» LD A5,FDBRRO,A11 «, t00=0x0015, t01=0x0168}
0x2246…2254 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0182}
0x2254…225e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0190}
0x225e…228a Head {h00=0x0028, h01=0x0050, text=»* READ RANDOM INDEXED,START INDEXED «, t00=0x0016, t01=0x000a}
0x228a…22c0 Head {h00=0x0032, h01=0x0050, text=»* DELETE DIRECT INDEXED,REWRITE DIRECT INDEXED«, t00=0x0016, t01=0x0036}
0x22c0…22f6 Head {h00=0x0032, h01=0x0050, text=»* OPEN AND READ FILE PARAMETERS DON'T NEED ANY«, t00=0x0016, t01=0x006c}
0x22f6…2310 Head {h00=0x0016, h01=0x0050, text=»* BLOCK BUFFER YET«, t00=0x0016, t01=0x00a2}
0x2310…233a Head {h00=0x0026, h01=0x0050, text=» RF(N) DMT090 NO BLOCK BUFFER YET «, t00=0x0016, t01=0x00bc}
0x233a…2352 Head {h00=0x0014, h01=0x0050, text=»DMT015 EQU * =8«, t00=0x0016, t01=0x00e6}
0x2352…2376 Head {h00=0x0020, h01=0x0050, text=» LD A4,FDBADF,A11 DATA FILE «, t00=0x0016, t01=0x00fe}
0x2376…23a8 Head {h00=0x002e, h01=0x0050, text=» CM FDBKA,A4 MARK 1ST PASS DELETE INDEXED «, t00=0x0016, t01=0x0122}
0x23a8…23bc Head {h00=0x0010, h01=0x0050, text=»DMT020 EQU *«, t00=0x0016, t01=0x0154}
0x23bc…23c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0168}
0x23c6…23de Head {h00=0x0014, h01=0x0050, text=»* LOOP ENTRY FOR«, t00=0x0016, t01=0x0172}
0x23de…2414 Head {h00=0x0032, h01=0x0050, text=»* READ RANDOM INDEXED,READ SEQUENTIAL INDEXED «, t00=0x0016, t01=0x018a}
0x2414…2446 Head {h00=0x002e, h01=0x0050, text=»* DELETE INDEXED,START AND READ SEQUENTIAL«, t00=0x0017, t01=0x0030}
0x2446…2450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0062}
0x2450…2478 Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDBLB FIND BLOCK BUFFER«, t00=0x0017, t01=0x006c}
0x2478…248e Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=0 «, t00=0x0017, t01=0x0094}
0x248e…24ae Head {h00=0x001c, h01=0x0050, text=» ABL(N) DMTERR I/O ERROR«, t00=0x0017, t01=0x00aa}
0x24ae…24de Head {h00=0x002c, h01=0x0050, text=» ABL(P) SDMERX EOF WHEN READ SEQUENTIAL «, t00=0x0017, t01=0x00ca}
0x24de…24f6 Head {h00=0x0014, h01=0x0050, text=»EXTEND EQU * =A«, t00=0x0017, t01=0x00fa}
0x24f6…2502 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0112}
0x2502…2518 Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0017, t01=0x011e}
0x2518…2534 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DMT090 I/O OK«, t00=0x0017, t01=0x0134}
0x2534…2564 Head {h00=0x002c, h01=0x0050, text=» ABL(P) SDMERX EOF WHEN READ SEQUENTIAL «, t00=0x0017, t01=0x0150}
0x2564…2572 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0180}
0x2572…257c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018e}
0x257c…25a4 Head {h00=0x0024, h01=0x0050, text=»* TEST IF EXTEND SHOULD BE DONE «, t00=0x0018, t01=0x0008}
0x25a4…25ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0030}
0x25ae…25c6 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A11«, t00=0x0018, t01=0x003a}
0x25c6…25e6 Head {h00=0x001c, h01=0x0050, text=» ANK A7,/3F ORDER INDEX «, t00=0x0018, t01=0x0052}
0x25e6…25fc Head {h00=0x0012, h01=0x0050, text=» CWK A7,OEXTND«, t00=0x0018, t01=0x0072}
0x25fc…261e Head {h00=0x001e, h01=0x0050, text=» RF(E) DMT030 ORDER EXTEND«, t00=0x0018, t01=0x0088}
0x261e…2634 Head {h00=0x0012, h01=0x0050, text=» SUK A7,OWRSQ0«, t00=0x0018, t01=0x00aa}
0x2634…265e Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DMTER NOT WRITE SEQUENTIAL«, t00=0x0018, t01=0x00c0}
0x265e…2672 Head {h00=0x0010, h01=0x0050, text=»DMT030 EQU *«, t00=0x0018, t01=0x00ea}
0x2672…2684 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0018, t01=0x00fe}
0x2684…2696 Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0018, t01=0x0110}
0x2696…26bc Head {h00=0x0022, h01=0x0050, text=» RF(NN) DMTER NOT END OF FILE «, t00=0x0018, t01=0x0122}
0x26bc…26e4 Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBENL,A11 ENLARGE FACTOR«, t00=0x0018, t01=0x0148}
0x26e4…2714 Head {h00=0x002c, h01=0x0050, text=» RF(Z) DMTER NO ENLARGE FACTOR DECLARED «, t00=0x0018, t01=0x0170}
0x2714…2726 Head {h00=0x000e, h01=0x0050, text=» ADK A7,0 «, t00=0x0019, t01=0x0010}
0x2726…274a Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DMT090 ORDER EXTEND «, t00=0x0019, t01=0x0022}
0x274a…277a Head {h00=0x002c, h01=0x0050, text=» LDKL A1,SDMOEX TIOSDM ORDER FOR EXTEND «, t00=0x0019, t01=0x0046}
0x277a…2794 Head {h00=0x0016, h01=0x0050, text=» SC A1,DWTOR+1,A11«, t00=0x0019, t01=0x0076}
0x2794…27c0 Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMRLB RELEASE BLOCK BUFFER «, t00=0x0019, t01=0x0090}
0x27c0…27e6 Head {h00=0x0022, h01=0x0050, text=» LDKL A8,SDMTSK DISPATCH ENTRY«, t00=0x0019, t01=0x00bc}
0x27e6…2806 Head {h00=0x001c, h01=0x0050, text=» LDR A6,A11 FDB ADDRESS «, t00=0x0019, t01=0x00e2}
0x2806…282e Head {h00=0x0024, h01=0x0050, text=» ABL DMXACD EXIT AND ACTIVATE #D«, t00=0x0019, t01=0x0102}
0x282e…2836 Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x012a}
0x2836…283e Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0132}
0x283e…2852 Head {h00=0x0010, h01=0x0050, text=»DMTER EQU * «, t00=0x0019, t01=0x013a}
0x2852…286c Head {h00=0x0016, h01=0x0050, text=» ABL DMTERR ERROR «, t00=0x0019, t01=0x014e}
0x286c…287a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0168}
0x287a…2886 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0176}
0x2886…289a Head {h00=0x0010, h01=0x0050, text=»DMT090 EQU *«, t00=0x0019, t01=0x0182}
0x289a…28b2 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A11«, t00=0x001a, t01=0x0008}
0x28b2…28da Head {h00=0x0024, h01=0x0050, text=» LDR A2,A7 OPTION AND ORDER CODE«, t00=0x001a, t01=0x0020}
0x28da…2904 Head {h00=0x0026, h01=0x0050, text=» ANK A7,/3F A7=INTERNAL ORDER CODE«, t00=0x001a, t01=0x0048}
0x2904…2918 Head {h00=0x0010, h01=0x0050, text=»DMT100 EQU *«, t00=0x001a, t01=0x0072}
0x2918…295c Head {h00=0x0040, h01=0x0050, text=» LDKL A12,OPEFPB FPB ADDRESS FOR OPEN CLOSE READ FILE PARAM.«, t00=0x001a, t01=0x0086}
0x295c…2964 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00ca}
0x2964…296c Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00d2}
0x296c…2992 Head {h00=0x0022, h01=0x0050, text=»* (A4= BLOCK BUFFER ADDRESS )«, t00=0x001a, t01=0x00da}
0x2992…29be Head {h00=0x0028, h01=0x0050, text=»* (A5 = BLOCK BUFFER DATA ADDRESS )«, t00=0x001a, t01=0x0100}
0x29be…29e6 Head {h00=0x0024, h01=0x0050, text=»* A11= FDB ADDRESS ALL ORDERS «, t00=0x001a, t01=0x012c}
0x29e6…2a0c Head {h00=0x0022, h01=0x0050, text=»* A7 = ORDER CODE ALL ORDERS«, t00=0x001a, t01=0x0154}
0x2a0c…2a2e Head {h00=0x001e, h01=0x0050, text=»* (A8 = FDBECB ADDRESS ) «, t00=0x001a, t01=0x017a}
0x2a2e…2a52 Head {h00=0x0020, h01=0x0050, text=»* (A9 = USER ECB ADDRESS ) «, t00=0x001b, t01=0x000c}
0x2a52…2a5a Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0030}
0x2a5a…2a62 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x0038}
0x2a62…2a88 Head {h00=0x0022, h01=0x0050, text=» ABI ORDERS,A7 SDMTSK FUNCTION«, t00=0x001b, t01=0x0040}
0x2a88…2a96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0066}
0x2a96…2ace Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x001b, t01=0x0074}
0x2ace…2b06 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x001b, t01=0x00ac}
0x2b06…2b3e Head {h00=0x0034, h01=0x0050, text=»* R E A D S E Q U E N T I A L * «, t00=0x001b, t01=0x00e4}
0x2b3e…2b76 Head {h00=0x0034, h01=0x0050, text=»* R E A D R A N D O M * «, t00=0x001b, t01=0x011c}
0x2b76…2bae Head {h00=0x0034, h01=0x0050, text=»* S T A R T D I R E C T * «, t00=0x001b, t01=0x0154}
0x2bae…2be6 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x001b, t01=0x018c}
0x2be6…2c1e Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x001c, t01=0x0034}
0x2c1e…2c26 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x006c}
0x2c26…2c4a Head {h00=0x0020, h01=0x0050, text=»RDSQ00 EQU * SEQUENTIAL READ«, t00=0x001c, t01=0x0074}
0x2c4a…2c6a Head {h00=0x001c, h01=0x0050, text=»RDRM00 EQU * RANDOM READ«, t00=0x001c, t01=0x0098}
0x2c6a…2c8c Head {h00=0x001e, h01=0x0050, text=»STRTDI EQU * START DIRECT «, t00=0x001c, t01=0x00b8}
0x2c8c…2c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00da}
0x2c96…2cae Head {h00=0x0014, h01=0x0050, text=»* CHECK STATUS«, t00=0x001c, t01=0x00e4}
0x2cae…2cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00fc}
0x2cb8…2cdc Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKSTS CHECK STATUS «, t00=0x001c, t01=0x0106}
0x2cdc…2cfe Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DMT200 STATUS=USED«, t00=0x001c, t01=0x012a}
0x2cfe…2d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x014c}
0x2d08…2d28 Head {h00=0x001c, h01=0x0050, text=»* RECORD STATUS=NOT USED«, t00=0x001c, t01=0x0156}
0x2d28…2d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0176}
0x2d32…2d48 Head {h00=0x0012, h01=0x0050, text=» SUK A7,ORDRM0«, t00=0x001c, t01=0x0180}
0x2d48…2d72 Head {h00=0x0026, h01=0x0050, text=» ABL(Z) DMERND READ RANDOM,NO DATA«, t00=0x001d, t01=0x0008}
0x2d72…2d90 Head {h00=0x001a, h01=0x0050, text=» SUK A7,OSTRTD-ORDRM0 «, t00=0x001d, t01=0x0032}
0x2d90…2db6 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMT250 READ SEQUENTIAL«, t00=0x001d, t01=0x0050}
0x2db6…2dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0076}
0x2dc0…2dd6 Head {h00=0x0012, h01=0x0050, text=»* START DIRECT«, t00=0x001d, t01=0x0080}
0x2dd6…2de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0096}
0x2de0…2dfa Head {h00=0x0016, h01=0x0050, text=» LC A3,DWTOPT,A11 «, t00=0x001d, t01=0x00a0}
0x2dfa…2e12 Head {h00=0x0014, h01=0x0050, text=» ANK A3,7 OPTION«, t00=0x001d, t01=0x00ba}
0x2e12…2e38 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMT250 OPTION DEFINED «, t00=0x001d, t01=0x00d2}
0x2e38…2e54 Head {h00=0x0018, h01=0x0050, text=» RF DMT230 NO OPTION«, t00=0x001d, t01=0x00f8}
0x2e54…2e62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0114}
0x2e62…2e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0122}
0x2e6c…2e88 Head {h00=0x0018, h01=0x0050, text=»* RECORD STATUS=USED«, t00=0x001d, t01=0x012c}
0x2e88…2e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0148}
0x2e92…2ea6 Head {h00=0x0010, h01=0x0050, text=»DMT200 EQU *«, t00=0x001d, t01=0x0152}
0x2ea6…2ebc Head {h00=0x0012, h01=0x0050, text=» SUK A7,OSTRTD«, t00=0x001d, t01=0x0166}
0x2ebc…2ede Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT230 START DIRECT«, t00=0x001d, t01=0x017c}
0x2ede…2efe Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBRL,A9 REQ LGTH«, t00=0x001e, t01=0x000e}
0x2efe…2f26 Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBRLE,A11 RECORD LENGTH «, t00=0x001e, t01=0x002e}
0x2f26…2f38 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x001e, t01=0x0056}
0x2f38…2f4e Head {h00=0x0012, h01=0x0050, text=» RF(NG) DMT220«, t00=0x001e, t01=0x0068}
0x2f4e…2f6c Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 MAX LENGTH «, t00=0x001e, t01=0x007e}
0x2f6c…2f80 Head {h00=0x0010, h01=0x0050, text=»DMT220 EQU *«, t00=0x001e, t01=0x009c}
0x2f80…2fac Head {h00=0x0028, h01=0x0050, text=» ST A3,ECBEL,A9 SET EFFECTIVE LENGTH«, t00=0x001e, t01=0x00b0}
0x2fac…2fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00dc}
0x2fb6…2fd2 Head {h00=0x0018, h01=0x0050, text=»* MOVE THE RECORD «, t00=0x001e, t01=0x00e6}
0x2fd2…2fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0102}
0x2fdc…2ff6 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRRO,A11 «, t00=0x001e, t01=0x010c}
0x2ff6…3018 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A5 SOURCE ADDRESS «, t00=0x001e, t01=0x0126}
0x3018…3044 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBA,A9 DESTINATION ADDRESS «, t00=0x001e, t01=0x0148}
0x3044…305a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001e, t01=0x0174}
0x305a…3084 Head {h00=0x0026, h01=0x0050, text=» CF A14,MOVFW MOVE RECORD TO USER «, t00=0x001e, t01=0x018a}
0x3084…3090 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0024}
0x3090…30a6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x0030}
0x30a6…30cc Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTAB,A11 TTAB ADDRESS«, t00=0x001f, t01=0x0046}
0x30cc…30fa Head {h00=0x002a, h01=0x0050, text=» LD A7,TTB:PW,A4 PSW FOR THIS TASK =4 «, t00=0x001f, t01=0x006c}
0x30fa…3124 Head {h00=0x0026, h01=0x0050, text=» ANK A7,1 SYSTEM,USER MODE BIT =4 «, t00=0x001f, t01=0x009a}
0x3124…3148 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DMT225 USER MODE =4 «, t00=0x001f, t01=0x00c4}
0x3148…316c Head {h00=0x0020, h01=0x0050, text=» CF A14,MOVFW MOVE RECORD =4«, t00=0x001f, t01=0x00e8}
0x316c…3182 Head {h00=0x0012, h01=0x0050, text=» RF DMT230 =4«, t00=0x001f, t01=0x010c}
0x3182…319a Head {h00=0x0014, h01=0x0050, text=»DMT225 EQU * =4«, t00=0x001f, t01=0x0122}
0x319a…31c4 Head {h00=0x0026, h01=0x0050, text=» CF A14,MOV:SU MOVE RECORD TO USER«, t00=0x001f, t01=0x013a}
0x31c4…31d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0164}
0x31d0…31da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0170}
0x31da…320e Head {h00=0x0030, h01=0x0050, text=»* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT «, t00=0x001f, t01=0x017a}
0x320e…3218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x001e}
0x3218…322c Head {h00=0x0010, h01=0x0050, text=»DMT230 EQU *«, t00=0x0020, t01=0x0028}
0x322c…324e Head {h00=0x001e, h01=0x0050, text=» ABL DMT400 PUT CRN AND EA«, t00=0x0020, t01=0x003c}
0x324e…325c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x005e}
0x325c…3266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x006c}
0x3266…32a0 Head {h00=0x0036, h01=0x0050, text=»* STATUS BYTE = NOT USED AND ORDER IS SEQ. READ OR«, t00=0x0020, t01=0x0076}
0x32a0…32c2 Head {h00=0x001e, h01=0x0050, text=»* START DIRECT WITH OPTION«, t00=0x0020, t01=0x00b0}
0x32c2…32cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d2}
0x32cc…32f4 Head {h00=0x0024, h01=0x0050, text=»DMT250 EQU * NO DATA AT SEQ READ«, t00=0x0020, t01=0x00dc}
0x32f4…32fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0104}
0x32fe…331a Head {h00=0x0018, h01=0x0050, text=»* GET NEXT RECORD «, t00=0x0020, t01=0x010e}
0x331a…3324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x012a}
0x3324…3336 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0020, t01=0x0134}
0x3336…3364 Head {h00=0x002a, h01=0x0050, text=» RF(P) DMT260 NOT OVERFLOW OR NEGATIVE«, t00=0x0020, t01=0x0146}
0x3364…3376 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0020, t01=0x0174}
0x3376…3388 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0020, t01=0x0186}
0x3388…339c Head {h00=0x0010, h01=0x0050, text=»DMT260 EQU *«, t00=0x0021, t01=0x0008}
0x339c…33b4 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW,A9 «, t00=0x0021, t01=0x001c}
0x33b4…33ce Head {h00=0x0016, h01=0x0050, text=» ST A2,ECBCW+2,A9 «, t00=0x0021, t01=0x0034}
0x33ce…33d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x004e}
0x33d8…3416 Head {h00=0x003a, h01=0x0050, text=»* ENTRY ALSO FOR READ RANDOM INDEXED AND START INDEXED«, t00=0x0021, t01=0x0058}
0x3416…3420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0096}
0x3420…3434 Head {h00=0x0010, h01=0x0050, text=»DMT280 EQU *«, t00=0x0021, t01=0x00a0}
0x3434…343e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b4}
0x343e…3452 Head {h00=0x0010, h01=0x0050, text=»* CHECK EA«, t00=0x0021, t01=0x00be}
0x3452…345c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d2}
0x345c…3474 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A9 «, t00=0x0021, t01=0x00dc}
0x3474…3494 Head {h00=0x001c, h01=0x0050, text=» LD A2,ECBCW+2,A9 REC NR«, t00=0x0021, t01=0x00f4}
0x3494…34aa Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x0021, t01=0x0114}
0x34aa…34ce Head {h00=0x0020, h01=0x0050, text=» ABL(N) DMEAER PROTECT ERROR«, t00=0x0021, t01=0x012a}
0x34ce…34e4 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0021, t01=0x014e}
0x34e4…3502 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTOR,A11 ORDER«, t00=0x0021, t01=0x0164}
0x3502…3516 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x0021, t01=0x0182}
0x3516…352c Head {h00=0x0012, h01=0x0050, text=» CWK A4,OSTRTX«, t00=0x0022, t01=0x0008}
0x352c…3550 Head {h00=0x0020, h01=0x0050, text=» RB(E) DMT230 START INDEXED «, t00=0x0022, t01=0x001e}
0x3550…355c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0042}
0x355c…356a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x004e}
0x356a…3588 Head {h00=0x001a, h01=0x0050, text=» CF A14,CALSNO PREP IO«, t00=0x0022, t01=0x005c}
0x3588…35ae Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMTERR OUT OF MEDIUM «, t00=0x0022, t01=0x007a}
0x35ae…35ce Head {h00=0x001c, h01=0x0050, text=» LC A3,FDBDBR,A11 DELAY «, t00=0x0022, t01=0x00a0}
0x35ce…35e2 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0022, t01=0x00c0}
0x35e2…3604 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DMT290 KEEP BUFFER«, t00=0x0022, t01=0x00d4}
0x3604…360e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f6}
0x360e…362e Head {h00=0x001c, h01=0x0050, text=»* RELEASE BLOCK BUFFER«, t00=0x0022, t01=0x0100}
0x362e…3638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0120}
0x3638…3664 Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMRLB RELEASE BLOCK BUFFER «, t00=0x0022, t01=0x012a}
0x3664…366e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0156}
0x366e…3688 Head {h00=0x0016, h01=0x0050, text=»* TAKE NEXT RECORD«, t00=0x0022, t01=0x0160}
0x3688…3692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x017a}
0x3692…36a6 Head {h00=0x0010, h01=0x0050, text=»DMT290 EQU *«, t00=0x0022, t01=0x0184}
0x36a6…36c4 Head {h00=0x001a, h01=0x0050, text=» RB DMT020 NEXT RECORD«, t00=0x0023, t01=0x0008}
0x36c4…36da Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0023, t01=0x0026}
0x36da…36e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x003c}
0x36e8…370e Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0023, t01=0x004a}
0x370e…3734 Head {h00=0x0022, h01=0x0050, text=»* E X T E N D F I L E * «, t00=0x0023, t01=0x0070}
0x3734…375a Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0023, t01=0x0096}
0x375a…3762 Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x00bc}
0x3762…3776 Head {h00=0x0010, h01=0x0050, text=»EXTEND EQU *«, t00=0x0023, t01=0x00c4}
0x3776…37a2 Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 BLOCK BUFFER ADDRESS«, t00=0x0023, t01=0x00d8}
0x37a2…37da Head {h00=0x0034, h01=0x0050, text=» LDKL A3,OPEFPB BUFFER FOR FILE PARAMETER BLOCK «, t00=0x0023, t01=0x0104}
0x37da…3808 Head {h00=0x002a, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDRESS IN ECB «, t00=0x0023, t01=0x013c}
0x3808…383a Head {h00=0x002e, h01=0x0050, text=» LDK A2,FMFPBL FILE PARAMETER BLOCK LENGTH«, t00=0x0023, t01=0x016a}
0x383a…3852 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0024, t01=0x000c}
0x3852…387e Head {h00=0x0028, h01=0x0050, text=» CF A14,FMIORF READ FILE PARAMETERS «, t00=0x0024, t01=0x0024}
0x387e…38a6 Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBENL,A11 ENLARGE FACTOR«, t00=0x0024, t01=0x0050}
0x38a6…38ce Head {h00=0x0024, h01=0x0050, text=» ST A1,FPB:EL,A3 FILL IN ENLARGE«, t00=0x0024, t01=0x0078}
0x38ce…38f0 Head {h00=0x001e, h01=0x0050, text=» CF A14,FMIOEX EXTEND FILE«, t00=0x0024, t01=0x00a0}
0x38f0…3920 Head {h00=0x002c, h01=0x0050, text=» ST A4,ECBBA,A8 SET BLOCK BUFFER ADDRESS«, t00=0x0024, t01=0x00c2}
0x3920…393c Head {h00=0x0018, h01=0x0050, text=» RB(NZ) DMTER ERROR «, t00=0x0024, t01=0x00f2}
0x393c…395e Head {h00=0x001e, h01=0x0050, text=» CF A14,FRMFIL FORMAT FILE«, t00=0x0024, t01=0x010e}
0x395e…398a Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DMTER ERROR WHEN FORMATTING «, t00=0x0024, t01=0x0130}
0x398a…39b8 Head {h00=0x002a, h01=0x0050, text=» LDK A7,OWRSQ0 WRITE SEQUENTIAL ORDER «, t00=0x0024, t01=0x015c}
0x39b8…39d2 Head {h00=0x0016, h01=0x0050, text=» SC A7,DWTOR+1,A11«, t00=0x0024, t01=0x018a}
0x39d2…3a00 Head {h00=0x002a, h01=0x0050, text=» ABL DMT020 TRY WRITE SEQUENTIAL AGAIN«, t00=0x0025, t01=0x0014}
0x3a00…3a0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0042}
0x3a0c…3a1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x004e}
0x3a1a…3a52 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0025, t01=0x005c}
0x3a52…3a8a Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0094}
0x3a8a…3ac2 Head {h00=0x0034, h01=0x0050, text=»* D E L E T E I N D E X E D * «, t00=0x0025, t01=0x00cc}
0x3ac2…3afa Head {h00=0x0034, h01=0x0050, text=»* R E W R I T E I N D E X E D * «, t00=0x0025, t01=0x0104}
0x3afa…3b32 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0025, t01=0x013c}
0x3b32…3b6a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0025, t01=0x0174}
0x3b6a…3b72 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x001c}
0x3b72…3b96 Head {h00=0x0020, h01=0x0050, text=»DELTIX EQU * DELETE INDEXED «, t00=0x0026, t01=0x0024}
0x3b96…3bba Head {h00=0x0020, h01=0x0050, text=»REWRIX EQU * REWRITE INDEXED«, t00=0x0026, t01=0x0048}
0x3bba…3bd0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0026, t01=0x006c}
0x3bd0…3be6 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/100 «, t00=0x0026, t01=0x0082}
0x3be6…3c06 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DELT00 NOT DIRECT«, t00=0x0026, t01=0x0098}
0x3c06…3c36 Head {h00=0x002c, h01=0x0050, text=» CF A14,FNDKYP SET PARAM AND THEN FNDKEY«, t00=0x0026, t01=0x00b8}
0x3c36…3c5c Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMIER2 KEY NOT FOUND «, t00=0x0026, t01=0x00e8}
0x3c5c…3c82 Head {h00=0x0022, h01=0x0050, text=» LD A9,DWTECB,A11 ECB ADDRESS «, t00=0x0026, t01=0x010e}
0x3c82…3cb2 Head {h00=0x002c, h01=0x0050, text=» CF A14,RECECB MOVE RECORD NUMBER TO ECB«, t00=0x0026, t01=0x0134}
0x3cb2…3ce2 Head {h00=0x002c, h01=0x0050, text=» CF A14,SDMRBU REALEASE BLOCK BUFFER =B «, t00=0x0026, t01=0x0164}
0x3ce2…3d10 (39, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTOR,A11 INTERN ORDER INDEX =6«, t00=0x0027, t01=0x0004}
0x3d10…3d44 Head {h00=0x0030, h01=0x0050, text=» LD A11,FDBADF,A11 FDB ADDRESS DATA FILE =6 «, t00=0x0027, t01=0x0032}
0x3d44…3d80 Head {h00=0x0038, h01=0x0050, text=» ANKL A1,/FEFF INDICATE CURRENT INSTEAD OF DIRECT =6«, t00=0x0027, t01=0x0066}
0x3d80…3db2 Head {h00=0x002e, h01=0x0050, text=» ST A1,DWTOR,A11 SAVE IN FDB DATA FILE =6 «, t00=0x0027, t01=0x00a2}
0x3db2…3dca Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A9 «, t00=0x0027, t01=0x00d4}
0x3dca…3de4 Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A9 «, t00=0x0027, t01=0x00ec}
0x3de4…3dfa Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x0027, t01=0x0106}
0x3dfa…3e1e Head {h00=0x0020, h01=0x0050, text=» ABL(N) DMEAER EA OTHER TASK«, t00=0x0027, t01=0x011c}
0x3e1e…3e5c Head {h00=0x003a, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NUMBER AND OFFSET IN SECTOR «, t00=0x0027, t01=0x0140}
0x3e5c…3e7a Head {h00=0x001a, h01=0x0050, text=» ABL(NZ) SDMERX ERROR «, t00=0x0027, t01=0x017e}
0x3e7a…3e92 Head {h00=0x0014, h01=0x0050, text=» LDR A8,A11 =6 «, t00=0x0028, t01=0x000c}
0x3e92…3ebc Head {h00=0x0026, h01=0x0050, text=» ADKL A8,FDBECB SDM ECB ADDRESS =6«, t00=0x0028, t01=0x0024}
0x3ebc…3ee6 Head {h00=0x0026, h01=0x0050, text=» ABL DMT015 GET BLOCK BUFFER =6 =8«, t00=0x0028, t01=0x004e}
0x3ee6…3ef2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0078}
0x3ef2…3f00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0084}
0x3f00…3f38 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0028, t01=0x0092}
0x3f38…3f70 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0028, t01=0x00ca}
0x3f70…3fa8 Head {h00=0x0034, h01=0x0050, text=»* W R I T E S E Q U E N T I A L * «, t00=0x0028, t01=0x0102}
0x3fa8…3fe0 Head {h00=0x0034, h01=0x0050, text=»* W R I T E R A N D O M * «, t00=0x0028, t01=0x013a}
0x3fe0…4018 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=0x0172}
0x4018…4050 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=0x001a}
0x4050…4088 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=0x0052}
0x4088…40c0 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0029, t01=0x008a}
0x40c0…40f8 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0029, t01=0x00c2}
0x40f8…4100 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x00fa}
0x4100…4126 Head {h00=0x0022, h01=0x0050, text=»WRSQ00 EQU * WRITE SEQUENTIAL «, t00=0x0029, t01=0x0102}
0x4126…4148 Head {h00=0x001e, h01=0x0050, text=»WRRM00 EQU * WRITE RANDOM «, t00=0x0029, t01=0x0128}
0x4148…4172 Head {h00=0x0026, h01=0x0050, text=»WRRMIX EQU * WRITE RANDOM INDEXED «, t00=0x0029, t01=0x014a}
0x4172…419a Head {h00=0x0024, h01=0x0050, text=»REWR00 EQU * REWRITE NOT INDEXED«, t00=0x0029, t01=0x0174}
0x419a…41c2 Head {h00=0x0024, h01=0x0050, text=»DELT00 EQU * DELETE NOT INDEXED «, t00=0x002a, t01=0x000c}
0x41c2…41cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0034}
0x41cc…41f6 Head {h00=0x0026, h01=0x0050, text=»* TEST IF OPENED OUTPUT SEQUENTIAL«, t00=0x002a, t01=0x003e}
0x41f6…4200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0068}
0x4200…4234 Head {h00=0x0030, h01=0x0050, text=» CF A14,CHKSTS A10=POINTER TO RECORD STATUS «, t00=0x002a, t01=0x0072}
0x4234…424e Head {h00=0x0016, h01=0x0050, text=» LC A1,FDBOMD,A11 «, t00=0x002a, t01=0x00a6}
0x424e…4262 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x002a, t01=0x00c0}
0x4262…4278 Head {h00=0x0012, h01=0x0050, text=» CWK A1,SDMOOS«, t00=0x002a, t01=0x00d4}
0x4278…42ac Head {h00=0x0030, h01=0x0050, text=» RF(E) DMS110 OUTPUT SEQ.,DON'T CHECK STATUS«, t00=0x002a, t01=0x00ea}
0x42ac…42b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x011e}
0x42b6…42cc Head {h00=0x0012, h01=0x0050, text=»* CHECK STATUS«, t00=0x002a, t01=0x0128}
0x42cc…42d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x013e}
0x42d6…4300 Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKSTS CHECK RECORD STATUS«, t00=0x002a, t01=0x0148}
0x4300…432c Head {h00=0x0028, h01=0x0050, text=» RF(Z) DMS110 RECORD STATUS=NOT USED«, t00=0x002a, t01=0x0172}
0x432c…433a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x000e}
0x433a…4344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x001c}
0x4344…4360 Head {h00=0x0018, h01=0x0050, text=»* RECORD STATUS=USED«, t00=0x002b, t01=0x0026}
0x4360…436a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0042}
0x436a…4380 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002b, t01=0x004c}
0x4380…4392 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x002b, t01=0x0062}
0x4392…43a8 Head {h00=0x0012, h01=0x0050, text=» SUK A4,OWRRMX«, t00=0x002b, t01=0x0074}
0x43a8…43d2 Head {h00=0x0026, h01=0x0050, text=» RF(Z) DMS100 WRITE RANDOM INDEXED«, t00=0x002b, t01=0x008a}
0x43d2…43de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00b4}
0x43de…43f0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x002b, t01=0x00c0}
0x43f0…4406 Head {h00=0x0012, h01=0x0050, text=» SUK A4,OWRRM0«, t00=0x002b, t01=0x00d2}
0x4406…4428 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMS100 WRITE RANDOM«, t00=0x002b, t01=0x00e8}
0x4428…4446 Head {h00=0x001a, h01=0x0050, text=» SUK A4,OWRSQ0-OWRRM0 «, t00=0x002b, t01=0x010a}
0x4446…4472 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DMS120 NOT WRITE SEQUENTIAL «, t00=0x002b, t01=0x0128}
0x4472…4486 Head {h00=0x0010, h01=0x0050, text=»DMS100 EQU *«, t00=0x002b, t01=0x0154}
0x4486…44a2 Head {h00=0x0018, h01=0x0050, text=» RF DMERPR PROTECTED«, t00=0x002b, t01=0x0168}
0x44a2…44b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0184}
0x44b0…44ba (44, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0004}
0x44ba…44da Head {h00=0x001c, h01=0x0050, text=»* RECORD STATUS=NOT USED«, t00=0x002c, t01=0x000e}
0x44da…44e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x002e}
0x44e4…44f8 Head {h00=0x0010, h01=0x0050, text=»DMS110 EQU *«, t00=0x002c, t01=0x0038}
0x44f8…450e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002c, t01=0x004c}
0x450e…4520 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x002c, t01=0x0062}
0x4520…4536 Head {h00=0x0012, h01=0x0050, text=» SUK A4,OREWRX«, t00=0x002c, t01=0x0074}
0x4536…455c Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMERND REWRITE INDEXED «, t00=0x002c, t01=0x008a}
0x455c…457a Head {h00=0x001a, h01=0x0050, text=» SUK A4,ODELTX-OREWRX «, t00=0x002c, t01=0x00b0}
0x457a…459e Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMERND DELETE INDEXED«, t00=0x002c, t01=0x00ce}
0x459e…45aa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00f2}
0x45aa…45bc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x002c, t01=0x00fe}
0x45bc…45d2 Head {h00=0x0012, h01=0x0050, text=» SUK A4,OREWR0«, t00=0x002c, t01=0x0110}
0x45d2…45fc Head {h00=0x0026, h01=0x0050, text=» RF(Z) DMERND REWRITE NOT INDEXED «, t00=0x002c, t01=0x0126}
0x45fc…461a Head {h00=0x001a, h01=0x0050, text=» SUK A4,ODELT0-OREWR0 «, t00=0x002c, t01=0x0150}
0x461a…4642 Head {h00=0x0024, h01=0x0050, text=» RF(Z) DMERND DELETE NOT INDEXED«, t00=0x002c, t01=0x016e}
0x4642…4656 Head {h00=0x0010, h01=0x0050, text=»DMS120 EQU *«, t00=0x002d, t01=0x0008}
0x4656…466c Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x002d, t01=0x001c}
0x466c…4690 Head {h00=0x0020, h01=0x0050, text=» RF(N) DMEAER EA OTHER TASK «, t00=0x002d, t01=0x0032}
0x4690…469e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0056}
0x469e…46bc Head {h00=0x001a, h01=0x0050, text=» LDK A3,0 STATUS FREE «, t00=0x002d, t01=0x0064}
0x46bc…46d2 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002d, t01=0x0082}
0x46d2…46e4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x002d, t01=0x0098}
0x46e4…46fa Head {h00=0x0012, h01=0x0050, text=» SUK A2,OWRRMX«, t00=0x002d, t01=0x00aa}
0x46fa…4724 Head {h00=0x0026, h01=0x0050, text=» RF(E) CHK010 WRITE RANDOM INDEXED«, t00=0x002d, t01=0x00c0}
0x4724…4742 Head {h00=0x001a, h01=0x0050, text=» SUK A2,OREWRX-OWRRMX «, t00=0x002d, t01=0x00ea}
0x4742…4768 Head {h00=0x0022, h01=0x0050, text=» RF(E) CHK010 REWRITE INDEXED «, t00=0x002d, t01=0x0108}
0x4768…4780 Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBKA,A11«, t00=0x002d, t01=0x012e}
0x4780…47b4 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) DMT350 DELETE INDEXED (SECOND PASS) «, t00=0x002d, t01=0x0146}
0x47b4…47d2 Head {h00=0x001a, h01=0x0050, text=» SUK A2,ODELTX-OREWRX «, t00=0x002d, t01=0x017a}
0x47d2…47f6 Head {h00=0x0020, h01=0x0050, text=» RF(E) CHK010 DELETE INDEXED«, t00=0x002e, t01=0x0008}
0x47f6…4802 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x002c}
0x4802…4814 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x002e, t01=0x0038}
0x4814…482a Head {h00=0x0012, h01=0x0050, text=» SUK A2,ODELT0«, t00=0x002e, t01=0x004a}
0x482a…4852 Head {h00=0x0024, h01=0x0050, text=» RF(E) DMT350 DELETE NOT INDEXED«, t00=0x002e, t01=0x0060}
0x4852…4868 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x002e, t01=0x0088}
0x4868…487a Head {h00=0x000e, h01=0x0050, text=» RF DMT320«, t00=0x002e, t01=0x009e}
0x487a…4886 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00b0}
0x4886…489c Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002e, t01=0x00bc}
0x489c…48ae Head {h00=0x000e, h01=0x0050, text=» RF DMT310«, t00=0x002e, t01=0x00d2}
0x48ae…48bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00e4}
0x48bc…48d0 Head {h00=0x0010, h01=0x0050, text=»CHK010 EQU *«, t00=0x002e, t01=0x00f2}
0x48d0…4920 Head {h00=0x004c, h01=0x0050, text=»* REWRITE INDEXED,WRITE RANDOM INDEXED AND DELETE INDEXED ENTERS HERE «, t00=0x002e, t01=0x0106}
0x4920…492a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0156}
0x492a…495a Head {h00=0x002c, h01=0x0050, text=»* COMPARE KEYS IN FILE AND USER BUFFER«, t00=0x002e, t01=0x0160}
0x495a…4964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0190}
0x4964…4982 Head {h00=0x001a, h01=0x0050, text=» LDK A4,8 MAX 4 INDEX «, t00=0x002f, t01=0x000a}
0x4982…4996 Head {h00=0x0010, h01=0x0050, text=»CHK040 EQU *«, t00=0x002f, t01=0x0028}
0x4996…49a8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x002f, t01=0x003c}
0x49a8…49d0 Head {h00=0x0024, h01=0x0050, text=» RF(N) CHK100 ALL INDEX CHECKED «, t00=0x002f, t01=0x004e}
0x49d0…49ec Head {h00=0x0018, h01=0x0050, text=» LDR A2,A11 FDB ADD «, t00=0x002f, t01=0x0076}
0x49ec…49fe Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x002f, t01=0x0092}
0x49fe…4a2a Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBAI1,A2 FDB ADDR INDEX FILE«, t00=0x002f, t01=0x00a4}
0x4a2a…4a48 Head {h00=0x001a, h01=0x0050, text=» RB(Z) CHK040 NO INDEX«, t00=0x002f, t01=0x00d0}
0x4a48…4a60 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A11«, t00=0x002f, t01=0x00ee}
0x4a60…4a80 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F ORDER INDEX «, t00=0x002f, t01=0x0106}
0x4a80…4a96 Head {h00=0x0012, h01=0x0050, text=» SUK A2,OWRRMX«, t00=0x002f, t01=0x0126}
0x4a96…4abe Head {h00=0x0024, h01=0x0050, text=» RB(Z) CHK040 NO CHECK ON INSERT«, t00=0x002f, t01=0x013c}
0x4abe…4adc Head {h00=0x001a, h01=0x0050, text=» SUK A2,OREWRX-OWRRMX «, t00=0x002f, t01=0x0164}
0x4adc…4b00 Head {h00=0x0020, h01=0x0050, text=» RF(Z) CHK050 CHECK REWRITE «, t00=0x002f, t01=0x0182}
0x4b00…4b20 Head {h00=0x001c, h01=0x0050, text=» LC A2,DWTOPT,A11 OPTION«, t00=0x0030, t01=0x0016}
0x4b20…4b32 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/4«, t00=0x0030, t01=0x0036}
0x4b32…4b60 Head {h00=0x002a, h01=0x0050, text=» RB(NZ) CHK040 NO CHECK ON DEL CURRENT«, t00=0x0030, t01=0x0048}
0x4b60…4b6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0076}
0x4b6e…4b7c Head {h00=0x000a, h01=0x0050, text=»* =3«, t00=0x0030, t01=0x0084}
0x4b7c…4ba4 Head {h00=0x0024, h01=0x0050, text=»* A6=FDB ADDRESS INDEX FILE =3 «, t00=0x0030, t01=0x0092}
0x4ba4…4bb2 Head {h00=0x000a, h01=0x0050, text=»* =3«, t00=0x0030, t01=0x00ba}
0x4bb2…4bc6 Head {h00=0x0010, h01=0x0050, text=»CHK050 EQU *«, t00=0x0030, t01=0x00c8}
0x4bc6…4bf0 Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 GET USER ECB =9 «, t00=0x0030, t01=0x00dc}
0x4bf0…4c06 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0030, t01=0x0106}
0x4c06…4c36 Head {h00=0x002c, h01=0x0050, text=» LD A1,FDBKA,A6 GET KEY START ADDRESS =3«, t00=0x0030, t01=0x011c}
0x4c36…4c4e Head {h00=0x0014, h01=0x0050, text=» AD A1,ECBBA,A9 «, t00=0x0030, t01=0x014c}
0x4c4e…4c84 Head {h00=0x0032, h01=0x0050, text=» LDKL A2,FDBKEY GET KEY SAVE AREA DISPLACEMENT«, t00=0x0030, t01=0x0164}
0x4c84…4cae Head {h00=0x0026, h01=0x0050, text=» ADR A2,A6 GET KEY AREA POINTER =3«, t00=0x0031, t01=0x000a}
0x4cae…4cd8 Head {h00=0x0026, h01=0x0050, text=» LD A3,FDBRLE,A6 RECORD LENGTH =3 «, t00=0x0031, t01=0x0034}
0x4cd8…4cf4 Head {h00=0x0018, h01=0x0050, text=» SUK A3,6 KEY LENGTH«, t00=0x0031, t01=0x005e}
0x4cf4…4d12 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A4 SAVE A4 =1 «, t00=0x0031, t01=0x007a}
0x4d12…4d3c Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTTAB,A11 GET TTAB ADDRESS«, t00=0x0031, t01=0x0098}
0x4d3c…4d6c Head {h00=0x002c, h01=0x0050, text=» CF A14,MOV:US MOVE KEY TO FDB KEY AREA «, t00=0x0031, t01=0x00c2}
0x4d6c…4d8c Head {h00=0x001c, h01=0x0050, text=» LDR A4,A9 RESTORE A4 =1«, t00=0x0031, t01=0x00f2}
0x4d8c…4dc2 Head {h00=0x0032, h01=0x0050, text=» LD A9,FDBKA,A6 GET KEY START DISPLACEMENT =3 «, t00=0x0031, t01=0x0112}
0x4dc2…4dce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0148}
0x4dce…4de4 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0031, t01=0x0154}
0x4de4…4dfa Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0031, t01=0x016a}
0x4dfa…4e26 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBA,A9 USER BUFFER ADDRESS «, t00=0x0031, t01=0x0180}
0x4e26…4e50 Head {h00=0x0026, h01=0x0050, text=» LD A9,FDBKA,A11 KEY START ADDRESS«, t00=0x0032, t01=0x001c}
0x4e50…4e62 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A9«, t00=0x0032, t01=0x0046}
0x4e62…4e6e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0058}
0x4e6e…4e84 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0032, t01=0x0064}
0x4e84…4e92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x007a}
0x4e92…4eb6 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A2 ENTRY KEY ADDRESS«, t00=0x0032, t01=0x0088}
0x4eb6…4ed0 Head {h00=0x0016, h01=0x0050, text=» AD A9,FDBRRO,A11 «, t00=0x0032, t01=0x00ac}
0x4ed0…4eee Head {h00=0x001a, h01=0x0050, text=» ADR A9,A5 KEY IN FILE«, t00=0x0032, t01=0x00c6}
0x4eee…4f00 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0032, t01=0x00e4}
0x4f00…4f26 Head {h00=0x0022, h01=0x0050, text=» LD A6,FDBRLE,A6 RECORD LENGTH«, t00=0x0032, t01=0x00f6}
0x4f26…4f42 Head {h00=0x0018, h01=0x0050, text=» SUK A6,6 KEY LENGTH«, t00=0x0032, t01=0x011c}
0x4f42…4f66 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0032, t01=0x0138}
0x4f66…4f78 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x0032, t01=0x015c}
0x4f78…4fa6 Head {h00=0x002a, h01=0x0050, text=» RB(E) CHK040 KEY UNCHANGED CHECK NEXT«, t00=0x0032, t01=0x016e}
0x4fa6…4fc2 Head {h00=0x0018, h01=0x0050, text=» RF DMERPR PROTECTED«, t00=0x0033, t01=0x000c}
0x4fc2…4fd2 Head {h00=0x000c, h01=0x0050, text=»* =3 «, t00=0x0033, t01=0x0028}
0x4fd2…4ff6 Head {h00=0x0020, h01=0x0050, text=»* END OF CHECK KEY LOOP =3 «, t00=0x0033, t01=0x0038}
0x4ff6…5006 Head {h00=0x000c, h01=0x0050, text=»* =3 «, t00=0x0033, t01=0x005c}
0x5006…501a Head {h00=0x0010, h01=0x0050, text=»CHK100 EQU *«, t00=0x0033, t01=0x006c}
0x501a…5032 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A11«, t00=0x0033, t01=0x0080}
0x5032…5052 Head {h00=0x001c, h01=0x0050, text=» ANK A7,/3F ORDER INDEX «, t00=0x0033, t01=0x0098}
0x5052…505e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x00b8}
0x505e…506c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x00c4}
0x506c…5076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00d2}
0x5076…508e Head {h00=0x0014, h01=0x0050, text=»* MOVE RECORD «, t00=0x0033, t01=0x00dc}
0x508e…5098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f4}
0x5098…50ac Head {h00=0x0010, h01=0x0050, text=»DMT310 EQU *«, t00=0x0033, t01=0x00fe}
0x50ac…50c2 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0033, t01=0x0112}
0x50c2…50d8 Head {h00=0x0012, h01=0x0050, text=» SUK A7,ODELTX«, t00=0x0033, t01=0x0128}
0x50d8…5102 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DMT320 NOT DELETE INDEXED «, t00=0x0033, t01=0x013e}
0x5102…510c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0168}
0x510c…5132 Head {h00=0x0022, h01=0x0050, text=»* MOVE KEYS TO FDB KEY AREAS«, t00=0x0033, t01=0x0172}
0x5132…513c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0008}
0x513c…514e Head {h00=0x000e, h01=0x0050, text=» LDK A4,8 «, t00=0x0034, t01=0x0012}
0x514e…5162 Head {h00=0x0010, h01=0x0050, text=»IXINS3 EQU *«, t00=0x0034, t01=0x0024}
0x5162…517e Head {h00=0x0018, h01=0x0050, text=» LDR A3,A11 FDB DATA«, t00=0x0034, t01=0x0038}
0x517e…5190 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0034, t01=0x0054}
0x5190…51b2 Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBADF,A3 FDB INDEX«, t00=0x0034, t01=0x0066}
0x51b2…51d0 Head {h00=0x001a, h01=0x0050, text=» RF(Z) IXINS4 NO INDEX«, t00=0x0034, t01=0x0088}
0x51d0…51f0 Head {h00=0x001c, h01=0x0050, text=» LD A1,FDBKA,A2 KEY ADDR«, t00=0x0034, t01=0x00a6}
0x51f0…5212 Head {h00=0x001e, h01=0x0050, text=» AD A1,FDBRRO,A11 REC OFFS«, t00=0x0034, t01=0x00c6}
0x5212…523e Head {h00=0x0028, h01=0x0050, text=» ADR A1,A5 BUFFERADDR GIVES KEY ADDR«, t00=0x0034, t01=0x00e8}
0x523e…5264 Head {h00=0x0022, h01=0x0050, text=» LD A3,FDBRLE,A2 RECORD LENGTH«, t00=0x0034, t01=0x0114}
0x5264…527e Head {h00=0x0016, h01=0x0050, text=» SUK A3,6 KEY LGTH«, t00=0x0034, t01=0x013a}
0x527e…529e Head {h00=0x001c, h01=0x0050, text=» ADKL A2,FDBKEY TO ADDR «, t00=0x0034, t01=0x0154}
0x529e…52c4 Head {h00=0x0022, h01=0x0050, text=» CF A14,MOVFW KEY TO FDB AREA «, t00=0x0034, t01=0x0174}
0x52c4…52d8 Head {h00=0x0010, h01=0x0050, text=»IXINS4 EQU *«, t00=0x0035, t01=0x000a}
0x52d8…52ea Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0035, t01=0x001e}
0x52ea…530c Head {h00=0x001e, h01=0x0050, text=» RB(NZ) IXINS3 MORE INDEXS«, t00=0x0035, t01=0x0030}
0x530c…532e Head {h00=0x001e, h01=0x0050, text=» ABL DMXDEL DELETE INDEXED«, t00=0x0035, t01=0x0052}
0x532e…533a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0074}
0x533a…5348 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0080}
0x5348…5364 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x008e}
0x5364…5380 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0035, t01=0x00aa}
0x5380…539c Head {h00=0x0018, h01=0x0050, text=»* E R R O R *«, t00=0x0035, t01=0x00c6}
0x539c…53b8 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0035, t01=0x00e2}
0x53b8…53d4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0035, t01=0x00fe}
0x53d4…53dc Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x011a}
0x53dc…53f0 Head {h00=0x0010, h01=0x0050, text=»DMERPR EQU *«, t00=0x0035, t01=0x0122}
0x53f0…5410 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,PROT PROTECTED «, t00=0x0035, t01=0x0136}
0x5410…5422 Head {h00=0x000e, h01=0x0050, text=» RF DMERR «, t00=0x0035, t01=0x0156}
0x5422…5448 Head {h00=0x0022, h01=0x0050, text=»DMERND LDKL A1,NODERR NO DATA «, t00=0x0035, t01=0x0168}
0x5448…545a Head {h00=0x000e, h01=0x0050, text=» RF DMERR «, t00=0x0035, t01=0x018e}
0x545a…5488 Head {h00=0x002a, h01=0x0050, text=»DMEAER EQU * RELEASE EA FOR ALL FILES «, t00=0x0036, t01=0x0010}
0x5488…54ae Head {h00=0x0022, h01=0x0050, text=» LC A3,FDBTNR,A11 USER TASK ID«, t00=0x0036, t01=0x003e}
0x54ae…54c2 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0036, t01=0x0064}
0x54c2…54e8 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELPRO RELEASE PROTECT«, t00=0x0036, t01=0x0078}
0x54e8…550c Head {h00=0x0020, h01=0x0050, text=» LDKL A1,PROERR PROTECT ERR «, t00=0x0036, t01=0x009e}
0x550c…5520 Head {h00=0x0010, h01=0x0050, text=»DMERR EQU * «, t00=0x0036, t01=0x00c2}
0x5520…5532 Head {h00=0x000e, h01=0x0050, text=» RF DMTERR«, t00=0x0036, t01=0x00d6}
0x5532…5540 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00e8}
0x5540…554a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00f6}
0x554a…5578 Head {h00=0x002a, h01=0x0050, text=»* MOVE RECORD FROM USER TO SYSTEM AREA«, t00=0x0036, t01=0x0100}
0x5578…5582 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x012e}
0x5582…5596 Head {h00=0x0010, h01=0x0050, text=»DMT320 EQU *«, t00=0x0036, t01=0x0138}
0x5596…55c0 Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB ADDRESS«, t00=0x0036, t01=0x014c}
0x55c0…55e8 Head {h00=0x0024, h01=0x0050, text=» LD A3,FDBRLE,A11 RECORD LENGTH «, t00=0x0036, t01=0x0176}
0x55e8…5602 Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBRRO,A11 «, t00=0x0037, t01=0x000e}
0x5602…5620 Head {h00=0x001a, h01=0x0050, text=» ADR A2,A5 TO ADDRESS «, t00=0x0037, t01=0x0028}
0x5620…5644 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBBA,A9 FROM ADDRESS«, t00=0x0037, t01=0x0046}
0x5644…565a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0037, t01=0x006a}
0x565a…5670 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVFW «, t00=0x0037, t01=0x0080}
0x5670…567c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0096}
0x567c…5692 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0037, t01=0x00a2}
0x5692…56bc Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTTAB,A11 GET TTAB ADDRESS«, t00=0x0037, t01=0x00b8}
0x56bc…56f8 Head {h00=0x0038, h01=0x0050, text=» CF A14,MOV:US MOVE RECORD FROM USER TO SYSTEM AREA «, t00=0x0037, t01=0x00e2}
0x56f8…5704 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x011e}
0x5704…5712 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x012a}
0x5712…571c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0138}
0x571c…5726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0142}
0x5726…5742 Head {h00=0x0018, h01=0x0050, text=»* SET STATUS USED «, t00=0x0037, t01=0x014c}
0x5742…574c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0168}
0x574c…5760 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/FF «, t00=0x0037, t01=0x0172}
0x5760…577a Head {h00=0x0016, h01=0x0050, text=»DMT350 SCR A3,A10 «, t00=0x0037, t01=0x0186}
0x577a…5794 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBDBR,A11 «, t00=0x0038, t01=0x0010}
0x5794…57b4 Head {h00=0x001c, h01=0x0050, text=» RF(NN) DMT390 NO DELAY «, t00=0x0038, t01=0x002a}
0x57b4…57be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x004a}
0x57be…57ce Head {h00=0x000c, h01=0x0050, text=»* DELAY «, t00=0x0038, t01=0x0054}
0x57ce…57d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0064}
0x57d8…57ee Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/1000«, t00=0x0038, t01=0x006e}
0x57ee…5814 Head {h00=0x0022, h01=0x0050, text=» ORS A2,FDBDBR,A11 KEEP BUFFER«, t00=0x0038, t01=0x0084}
0x5814…5826 Head {h00=0x000e, h01=0x0050, text=» RF DMT400«, t00=0x0038, t01=0x00aa}
0x5826…5830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00bc}
0x5830…5850 Head {h00=0x001c, h01=0x0050, text=»* WRITE BLOCK TO DISC «, t00=0x0038, t01=0x00c6}
0x5850…585a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e6}
0x585a…586e Head {h00=0x0010, h01=0x0050, text=»DMT390 EQU *«, t00=0x0038, t01=0x00f0}
0x586e…5884 Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x0038, t01=0x0104}
0x5884…589a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMTERR«, t00=0x0038, t01=0x011a}
0x589a…58a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0130}
0x58a8…58b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x013e}
0x58b2…58de Head {h00=0x0028, h01=0x0050, text=»* SET CURRENCY AND EXCLUSIVE ACCESS «, t00=0x0038, t01=0x0148}
0x58de…58e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0174}
0x58e8…58fc Head {h00=0x0010, h01=0x0050, text=»DMT400 EQU *«, t00=0x0038, t01=0x017e}
0x58fc…5926 (57, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNGET GET CURRENCY BUFFER«, t00=0x0039, t01=0x0004}
0x5926…5946 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A2 BUFFER ADDR «, t00=0x0039, t01=0x002e}
0x5946…595e Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A9 «, t00=0x0039, t01=0x004e}
0x595e…5982 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW+2,A9 LOG REC NR«, t00=0x0039, t01=0x0066}
0x5982…599a Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A11«, t00=0x0039, t01=0x008a}
0x599a…59ba Head {h00=0x001c, h01=0x0050, text=» ANK A7,/3F ORDER INDEX «, t00=0x0039, t01=0x00a2}
0x59ba…59cc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0039, t01=0x00c2}
0x59cc…59e2 Head {h00=0x0012, h01=0x0050, text=» SUK A4,OWRRM0«, t00=0x0039, t01=0x00d4}
0x59e2…5a04 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT450 WRITE RANDOM«, t00=0x0039, t01=0x00ea}
0x5a04…5a22 Head {h00=0x001a, h01=0x0050, text=» SUK A4,OWRSQ0-OWRRM0 «, t00=0x0039, t01=0x010c}
0x5a22…5a48 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT440 WRITE SEQUENTIAL«, t00=0x0039, t01=0x012a}
0x5a48…5a66 Head {h00=0x001a, h01=0x0050, text=» SUK A4,OREWR0-OWRSQ0 «, t00=0x0039, t01=0x0150}
0x5a66…5a90 Head {h00=0x0026, h01=0x0050, text=» RF(Z) DMT450 REWRITE NOT INDEXED «, t00=0x0039, t01=0x016e}
0x5a90…5aa6 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x003a, t01=0x0008}
0x5aa6…5ac4 Head {h00=0x001a, h01=0x0050, text=» SUK A4,OREWRX-OREWR0 «, t00=0x003a, t01=0x001e}
0x5ac4…5aea Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT450 REWRITE INDEXED «, t00=0x003a, t01=0x003c}
0x5aea…5b08 Head {h00=0x001a, h01=0x0050, text=» ADK A4,OREWRX-OWRRMX «, t00=0x003a, t01=0x0062}
0x5b08…5b32 Head {h00=0x0026, h01=0x0050, text=» RF(Z) DMT440 WRITE RANDOM INDEXED«, t00=0x003a, t01=0x0080}
0x5b32…5b50 Head {h00=0x001a, h01=0x0050, text=» SUK A4,OSTRTX-OWRRMX «, t00=0x003a, t01=0x00aa}
0x5b50…5b74 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMT410 START INDEXED «, t00=0x003a, t01=0x00c8}
0x5b74…5b80 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00ec}
0x5b80…5b9e Head {h00=0x001a, h01=0x0050, text=» LDR A4,A7 ORDER INDEX«, t00=0x003a, t01=0x00f8}
0x5b9e…5bb4 Head {h00=0x0012, h01=0x0050, text=» SUK A4,OSTRTD«, t00=0x003a, t01=0x0116}
0x5bb4…5bdc Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT430 NOT START DIRECT «, t00=0x003a, t01=0x012c}
0x5bdc…5bea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0154}
0x5bea…5bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0162}
0x5bf4…5c22 Head {h00=0x002a, h01=0x0050, text=»* START A1,A2=LOGICAL RECORD NUMBER «, t00=0x003a, t01=0x016c}
0x5c22…5c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x000a}
0x5c2c…5c40 Head {h00=0x0010, h01=0x0050, text=»* LRN=LRN-1 «, t00=0x003b, t01=0x0014}
0x5c40…5c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0028}
0x5c4a…5c5e Head {h00=0x0010, h01=0x0050, text=»DMT410 EQU *«, t00=0x003b, t01=0x0032}
0x5c5e…5c70 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x003b, t01=0x0046}
0x5c70…5c82 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003b, t01=0x0058}
0x5c82…5c94 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x003b, t01=0x006a}
0x5c94…5caa Head {h00=0x0012, h01=0x0050, text=» RF(NN) DMT420«, t00=0x003b, t01=0x007c}
0x5caa…5cc0 Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/7FFF«, t00=0x003b, t01=0x0092}
0x5cc0…5cd2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x003b, t01=0x00a8}
0x5cd2…5cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ba}
0x5cdc…5d04 Head {h00=0x0024, h01=0x0050, text=»* SET NEW CURRENT RECORD NUMBER «, t00=0x003b, t01=0x00c4}
0x5d04…5d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ec}
0x5d0e…5d22 Head {h00=0x0010, h01=0x0050, text=»DMT420 EQU *«, t00=0x003b, t01=0x00f6}
0x5d22…5d48 Head {h00=0x0022, h01=0x0050, text=» ST A3,CRNCDF,A10 NEW CURRENCY«, t00=0x003b, t01=0x010a}
0x5d48…5d64 Head {h00=0x0018, h01=0x0050, text=» ST A4,CRNCDF+2,A10 «, t00=0x003b, t01=0x0130}
0x5d64…5d76 Head {h00=0x000e, h01=0x0050, text=» RF DMT450«, t00=0x003b, t01=0x014c}
0x5d76…5d7e Head {h00=0x0004, h01=0x0050, t00=0x003b, t01=0x015e}
0x5d7e…5d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0166}
0x5d88…5dac Head {h00=0x0020, h01=0x0050, text=»* SET CURRENT RECORD NUMBER «, t00=0x003b, t01=0x0170}
0x5dac…5db6 (60, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0004}
0x5db6…5dca Head {h00=0x0010, h01=0x0050, text=»DMT430 EQU *«, t00=0x003c, t01=0x000e}
0x5dca…5de4 Head {h00=0x0016, h01=0x0050, text=» ST A1,CRNCDF,A10 «, t00=0x003c, t01=0x0022}
0x5de4…5e0e Head {h00=0x0026, h01=0x0050, text=» ST A2,CRNCDF+2,A10 CRN DATA FILE «, t00=0x003c, t01=0x003c}
0x5e0e…5e20 Head {h00=0x000e, h01=0x0050, text=» RF DMT450«, t00=0x003c, t01=0x0066}
0x5e20…5e28 Head {h00=0x0004, h01=0x0050, t00=0x003c, t01=0x0078}
0x5e28…5e32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0080}
0x5e32…5e48 Head {h00=0x0012, h01=0x0050, text=»* UPDATE LRN«, t00=0x003c, t01=0x008a}
0x5e48…5e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00a0}
0x5e52…5e66 Head {h00=0x0010, h01=0x0050, text=»DMT440 EQU *«, t00=0x003c, t01=0x00aa}
0x5e66…5e80 Head {h00=0x0016, h01=0x0050, text=» SC A1,FDBLRN,A11 «, t00=0x003c, t01=0x00be}
0x5e80…5e9c Head {h00=0x0018, h01=0x0050, text=» ST A2,FDBLRN+1,A11 «, t00=0x003c, t01=0x00d8}
0x5e9c…5eaa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00f4}
0x5eaa…5ebe Head {h00=0x0010, h01=0x0050, text=»DMT450 EQU *«, t00=0x003c, t01=0x0102}
0x5ebe…5ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0116}
0x5ec8…5ee2 Head {h00=0x0016, h01=0x0050, text=»* CHECK PROTECT «, t00=0x003c, t01=0x0120}
0x5ee2…5eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x013a}
0x5eec…5f10 Head {h00=0x0020, h01=0x0050, text=» LC A4,FDBOMD,A11 OPEN MODE «, t00=0x003c, t01=0x0144}
0x5f10…5f24 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x003c, t01=0x0168}
0x5f24…5f3a Head {h00=0x0012, h01=0x0050, text=» CWK A4,SDMOIP«, t00=0x003c, t01=0x017c}
0x5f3a…5f64 (61, 0, 398) Head {h00=0x0026, h01=0x0050, text=» RF(E) DMT460 OPEN INPUT PROTECTED«, t00=0x003d, t01=0x0004}
0x5f64…5f7a Head {h00=0x0012, h01=0x0050, text=» CWK A4,SDMIOP«, t00=0x003d, t01=0x002e}
0x5f7a…5fb0 Head {h00=0x0032, h01=0x0050, text=» RF(NE) DMT470 NOT OPEN INPUT OUTPUT PROTECTED«, t00=0x003d, t01=0x0044}
0x5fb0…5fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x007a}
0x5fba…5fe0 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF EA IS SET ALREADY«, t00=0x003d, t01=0x0084}
0x5fe0…5fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00aa}
0x5fea…5ffe Head {h00=0x0010, h01=0x0050, text=»DMT460 EQU *«, t00=0x003d, t01=0x00b4}
0x5ffe…601e Head {h00=0x001c, h01=0x0050, text=» CF A14,EATEST CHECK EA «, t00=0x003d, t01=0x00c8}
0x601e…6044 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMT470 EA ALREADY SET «, t00=0x003d, t01=0x00e8}
0x6044…604e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x010e}
0x604e…6060 Head {h00=0x000e, h01=0x0050, text=»* SET EA«, t00=0x003d, t01=0x0118}
0x6060…606a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x012a}
0x606a…6080 Head {h00=0x0012, h01=0x0050, text=» CF A14,EASETB«, t00=0x003d, t01=0x0134}
0x6080…6094 Head {h00=0x0010, h01=0x0050, text=»DMT470 EQU *«, t00=0x003d, t01=0x014a}
0x6094…60b6 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET RETURN CODE «, t00=0x003d, t01=0x015e}
0x60b6…60cc Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x003d, t01=0x0180}
0x60cc…60e2 Head {h00=0x0012, h01=0x0050, text=» LDK A4,OWRRMX«, t00=0x003e, t01=0x0008}
0x60e2…60f4 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x003e, t01=0x001e}
0x60f4…6120 Head {h00=0x0028, h01=0x0050, text=» ABL(E) DMINS2 WRITE RANDOM INDEXED «, t00=0x003e, t01=0x0030}
0x6120…612c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x005c}
0x612c…613a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0068}
0x613a…616a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x003e, t01=0x0076}
0x616a…619a Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x003e, t01=0x00a6}
0x619a…61ca Head {h00=0x002c, h01=0x0050, text=»* E X I T D M T A S K * «, t00=0x003e, t01=0x00d6}
0x61ca…61fa Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x003e, t01=0x0106}
0x61fa…622a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x003e, t01=0x0136}
0x622a…6232 Head {h00=0x0004, h01=0x0050, t00=0x003e, t01=0x0166}
0x6232…623c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x016e}
0x623c…6250 Head {h00=0x0010, h01=0x0050, text=»DMTERR EQU *«, t00=0x003e, t01=0x0178}
0x6250…626a Head {h00=0x0016, h01=0x0050, text=» LC A4,FDBDBR,A11 «, t00=0x003e, t01=0x018c}
0x626a…627e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x003f, t01=0x0016}
0x627e…62a0 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SDMERX KEEP BUFFER«, t00=0x003f, t01=0x002a}
0x62a0…62cc Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMRLB RELEASE BLOCK BUFFER «, t00=0x003f, t01=0x004c}
0x62cc…62e0 Head {h00=0x0010, h01=0x0050, text=»SDMERX EQU *«, t00=0x003f, t01=0x0078}
0x62e0…630c Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBADF,A11 GET FDB DATA FILE «, t00=0x003f, t01=0x008c}
0x630c…6318 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x003f, t01=0x00b8}
0x6318…6322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00c4}
0x6322…633c Head {h00=0x0016, h01=0x0050, text=»* A1 = RET CODE «, t00=0x003f, t01=0x00ce}
0x633c…6356 Head {h00=0x0016, h01=0x0050, text=»* A6 = DWT ADDR «, t00=0x003f, t01=0x00e8}
0x6356…6360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0102}
0x6360…6376 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x003f, t01=0x010c}
0x6376…6382 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x003f, t01=0x0122}
0x6382…638e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003f, t01=0x012e}
0x638e…639e Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x003f, t01=0x013a}
0x639e…63b4 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x003f, t01=0x014a}
0x63b4…63c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0160}
0x63c2…63fa Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x003f, t01=0x016e}
0x63fa…6432 Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0040, t01=0x0016}
0x6432…646a 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=0x004e}
0x646a…64a2 Head {h00=0x0034, h01=0x0050, text=»* S T A R T I N D E X E D *«, t00=0x0040, t01=0x0086}
0x64a2…64da Head {h00=0x0034, h01=0x0050, text=»* *«, t00=0x0040, t01=0x00be}
0x64da…6512 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0040, t01=0x00f6}
0x6512…651a Head {h00=0x0004, h01=0x0050, t00=0x0040, t01=0x012e}
0x651a…6542 Head {h00=0x0024, h01=0x0050, text=»RDRMIX EQU * READ RANDOM INDEXED«, t00=0x0040, t01=0x0136}
0x6542…6564 Head {h00=0x001e, h01=0x0050, text=»STRTIX EQU * START INDEXED«, t00=0x0040, t01=0x015e}
0x6564…6594 Head {h00=0x002c, h01=0x0050, text=» CF A14,FNDKYP SET PARAM AND THEN FNDKEY«, t00=0x0040, t01=0x0180}
0x6594…659e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0020}
0x659e…65ce Head {h00=0x002c, h01=0x0050, text=»* ENTRY ALSO FOR READ SEQUENTIAL INDEXED«, t00=0x0041, t01=0x002a}
0x65ce…65d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x005a}
0x65d8…660a Head {h00=0x002e, h01=0x0050, text=»DMR100 EQU * FROM READ SEQUENTIAL INDEXED «, t00=0x0041, t01=0x0064}
0x660a…6624 Head {h00=0x0016, h01=0x0050, text=» LD A9,DWTECB,A11 «, t00=0x0041, t01=0x0096}
0x6624…663c Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A11«, t00=0x0041, t01=0x00b0}
0x663c…6656 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/3F ORDER «, t00=0x0041, t01=0x00c8}
0x6656…666c Head {h00=0x0012, h01=0x0050, text=» SUK A2,OSTRTX«, t00=0x0041, t01=0x00e2}
0x666c…668c Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DMR110 NOT START«, t00=0x0041, t01=0x00f8}
0x668c…66a6 Head {h00=0x0016, h01=0x0050, text=» LC A2,DWTOPT,A11 «, t00=0x0041, t01=0x0118}
0x66a6…66be Head {h00=0x0014, h01=0x0050, text=» ANK A2,7 OPTION«, t00=0x0041, t01=0x0132}
0x66be…66da Head {h00=0x0018, h01=0x0050, text=» RF(Z) DMR110 EQUAL «, t00=0x0041, t01=0x014a}
0x66da…66fe Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FBFF IGNORE NOKEY «, t00=0x0041, t01=0x0166}
0x66fe…6712 Head {h00=0x0010, h01=0x0050, text=»DMR110 EQU *«, t00=0x0041, t01=0x018a}
0x6712…6724 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0042, t01=0x000e}
0x6724…6746 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMIER4 NOT OPERABLE«, t00=0x0042, t01=0x0020}
0x6746…6758 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0042, t01=0x0042}
0x6758…677c Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DMIER1 KEY NOT FOUND«, t00=0x0042, t01=0x0054}
0x677c…67ac Head {h00=0x002c, h01=0x0050, text=» CF A14,RECECB MOVE RECORD NUMBER TO ECB«, t00=0x0042, t01=0x0078}
0x67ac…67ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x00a8}
0x67ba…67c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b6}
0x67c4…67d8 Head {h00=0x0010, h01=0x0050, text=»* SET CRN «, t00=0x0042, t01=0x00c0}
0x67d8…67e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00d4}
0x67e2…680a Head {h00=0x0024, h01=0x0050, text=» LDR A13,A11 SAVE FDB INDEX FILE«, t00=0x0042, t01=0x00de}
0x680a…6832 Head {h00=0x0024, h01=0x0050, text=» LD A11,FDBADF,A11 FDB DATA FILE«, t00=0x0042, t01=0x0106}
0x6832…6864 Head {h00=0x002e, h01=0x0050, text=» LD A5,DWTOR,A13 GET INTERN ORDER INDEX =5«, t00=0x0042, t01=0x012e}
0x6864…6884 Head {h00=0x001c, h01=0x0050, text=» ANK A5,/3F ORDER INDEX «, t00=0x0042, t01=0x0160}
0x6884…68a6 Head {h00=0x001e, h01=0x0050, text=» LDR A12,A11 FDB DATA FILE«, t00=0x0042, t01=0x0180}
0x68a6…68d0 Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER ADDR«, t00=0x0043, t01=0x0012}
0x68d0…68f4 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A2 CRN BUFFER ADDR «, t00=0x0043, t01=0x003c}
0x68f4…6918 Head {h00=0x0020, h01=0x0050, text=» LDR A11,A13 FDB INDEX FILE «, t00=0x0043, t01=0x0060}
0x6918…6944 Head {h00=0x0028, h01=0x0050, text=» CF A14,GTLGRN GET INDE X LOG REC NO«, t00=0x0043, t01=0x0084}
0x6944…6966 Head {h00=0x001e, h01=0x0050, text=» LDK A7,ORDRM0 RANDOM READ«, t00=0x0043, t01=0x00b0}
0x6966…697c Head {h00=0x0012, h01=0x0050, text=» SUK A5,OSTRTX«, t00=0x0043, t01=0x00d2}
0x697c…69a0 Head {h00=0x0020, h01=0x0050, text=» RF(NE) DMR120 INDEXED READ «, t00=0x0043, t01=0x00e8}
0x69a0…69c4 Head {h00=0x0020, h01=0x0050, text=» LDK A7,OSTRTX START INDEXED«, t00=0x0043, t01=0x010c}
0x69c4…69d6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0043, t01=0x0130}
0x69d6…69fa Head {h00=0x0020, h01=0x0050, text=» RF(NN) DMR120 NOT UNDERFLOW«, t00=0x0043, t01=0x0142}
0x69fa…6a10 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x0043, t01=0x0166}
0x6a10…6a22 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0043, t01=0x017c}
0x6a22…6a36 Head {h00=0x0010, h01=0x0050, text=»DMR120 EQU *«, t00=0x0043, t01=0x018e}
0x6a36…6a52 Head {h00=0x0018, h01=0x0050, text=» SC A1,CRNCIF+1,A10 «, t00=0x0044, t01=0x0012}
0x6a52…6a7c Head {h00=0x0026, h01=0x0050, text=» ST A2,CRNCIF+2,A10 CRN INDEX FILE«, t00=0x0044, t01=0x002e}
0x6a7c…6aa0 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW,A9 REC NR DATA «, t00=0x0044, t01=0x0058}
0x6aa0…6aba Head {h00=0x0016, h01=0x0050, text=» ST A2,CRNCDF,A10 «, t00=0x0044, t01=0x007c}
0x6aba…6ad4 Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A9 «, t00=0x0044, t01=0x0096}
0x6ad4…6af0 Head {h00=0x0018, h01=0x0050, text=» ST A2,CRNCDF+2,A10 «, t00=0x0044, t01=0x00b0}
0x6af0…6b12 Head {h00=0x001e, h01=0x0050, text=» LC A2,FWTFNR,A11 FILE NR «, t00=0x0044, t01=0x00cc}
0x6b12…6b2c Head {h00=0x0016, h01=0x0050, text=» SC A2,CRNCIF,A10 «, t00=0x0044, t01=0x00ee}
0x6b2c…6b4e Head {h00=0x001e, h01=0x0050, text=» LDR A11,A12 FDB DATA FILE«, t00=0x0044, t01=0x0108}
0x6b4e…6b72 Head {h00=0x0020, h01=0x0050, text=» SC A7,DWTOR+1,A11 NEW ORDER«, t00=0x0044, t01=0x012a}
0x6b72…6b88 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/CFFF«, t00=0x0044, t01=0x014e}
0x6b88…6bb8 Head {h00=0x002c, h01=0x0050, text=» ANS A2,FDBDBR,A11 RELEASE INDEX BUFFERS«, t00=0x0044, t01=0x0164}
0x6bb8…6bcc (69, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ABL DMT280 «, t00=0x0045, t01=0x0004}
0x6bcc…6bda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0018}
0x6bda…6c18 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0045, t01=0x0026}
0x6c18…6c56 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0045, t01=0x0064}
0x6c56…6c94 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=0x00a2}
0x6c94…6cd2 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0045, t01=0x00e0}
0x6cd2…6d10 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0045, t01=0x011e}
0x6d10…6d18 Head {h00=0x0004, h01=0x0050, t00=0x0045, t01=0x015c}
0x6d18…6d44 Head {h00=0x0028, h01=0x0050, text=»RDSQIX EQU * READ SEQUENTIAL INDEXED«, t00=0x0045, t01=0x0164}
0x6d44…6d6c Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRRO,A11 RECORD OFFSET «, t00=0x0045, t01=0x0190}
0x6d6c…6d8e Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 BUFFER ADDRESS «, t00=0x0046, t01=0x0028}
0x6d8e…6da6 Head {h00=0x0014, h01=0x0050, text=» SUKL A4,BUFSTA «, t00=0x0046, t01=0x004a}
0x6da6…6dba Head {h00=0x0010, h01=0x0050, text=»DMI100 EQU *«, t00=0x0046, t01=0x0062}
0x6dba…6de4 Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKRCD CHECK RECORD STATUS«, t00=0x0046, t01=0x0076}
0x6de4…6dfe Head {h00=0x0016, h01=0x0050, text=» RF(E) DMI130 USED«, t00=0x0046, t01=0x00a0}
0x6dfe…6e18 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBMRO,A11 «, t00=0x0046, t01=0x00ba}
0x6e18…6e46 Head {h00=0x002a, h01=0x0050, text=» ST A3,FDBRRO,A11 LAST RECORD IN BLOCK«, t00=0x0046, t01=0x00d4}
0x6e46…6e54 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0102}
0x6e54…6e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0110}
0x6e5e…6e7e Head {h00=0x001c, h01=0x0050, text=»* CHECK IF END OF FILE«, t00=0x0046, t01=0x011a}
0x6e7e…6e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x013a}
0x6e88…6eaa Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x0046, t01=0x0144}
0x6eaa…6ec4 Head {h00=0x0016, h01=0x0050, text=» CC A1,FDBLRN,A11 «, t00=0x0046, t01=0x0166}
0x6ec4…6ee2 Head {h00=0x001a, h01=0x0050, text=» RF(L) DMI120 NOT EOF «, t00=0x0046, t01=0x0180}
0x6ee2…6efc Head {h00=0x0016, h01=0x0050, text=» RF(G) DMIER6 EOF «, t00=0x0047, t01=0x000e}
0x6efc…6f18 Head {h00=0x0018, h01=0x0050, text=» CW A2,FDBLRN+1,A11 «, t00=0x0047, t01=0x0028}
0x6f18…6f3a Head {h00=0x001e, h01=0x0050, text=» RF(NL) DMIER6 END OF FILE«, t00=0x0047, t01=0x0044}
0x6f3a…6f4e Head {h00=0x0010, h01=0x0050, text=»DMI120 EQU *«, t00=0x0047, t01=0x0066}
0x6f4e…6f7a Head {h00=0x0028, h01=0x0050, text=» CF A14,RDNXTR GET NEXT INDEX RECORD«, t00=0x0047, t01=0x007a}
0x6f7a…6f9e Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DMI100 RECORD FOUND «, t00=0x0047, t01=0x00a6}
0x6f9e…6fb6 Head {h00=0x0014, h01=0x0050, text=» RF DMIER2 ERROR«, t00=0x0047, t01=0x00ca}
0x6fb6…6fc4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x00e2}
0x6fc4…6fda Head {h00=0x0012, h01=0x0050, text=»DMI130 EQU * «, t00=0x0047, t01=0x00f0}
0x6fda…6fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0106}
0x6fe4…7006 Head {h00=0x001e, h01=0x0050, text=»* INDEX RECORD IS FOUND «, t00=0x0047, t01=0x0110}
0x7006…7010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0132}
0x7010…7032 Head {h00=0x001e, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB«, t00=0x0047, t01=0x013c}
0x7032…703c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x015e}
0x703c…7058 Head {h00=0x0018, h01=0x0050, text=»* KEY RECORD FOUND«, t00=0x0047, t01=0x0168}
0x7058…708a Head {h00=0x002e, h01=0x0050, text=»* CHECK IF NEXT RECORD HAS THE SAME KEY «, t00=0x0047, t01=0x0184}
0x708a…7094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0026}
0x7094…70bc Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRRO,A11 RECORD OFFSET «, t00=0x0048, t01=0x0030}
0x70bc…70d4 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFSTA «, t00=0x0048, t01=0x0058}
0x70d4…70f0 Head {h00=0x0018, h01=0x0050, text=» ADR A1,A4 REC ADDR «, t00=0x0048, t01=0x0070}
0x70f0…7114 Head {h00=0x0020, h01=0x0050, text=» LD A3,FDBRLE,A11 REC LENGTH«, t00=0x0048, t01=0x008c}
0x7114…7130 Head {h00=0x0018, h01=0x0050, text=» SUK A3,6 KEY LENGTH«, t00=0x0048, t01=0x00b0}
0x7130…7142 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0048, t01=0x00cc}
0x7142…716e Head {h00=0x0028, h01=0x0050, text=» CC A3,2,A1 DUPLICATE KEY CHARACTER «, t00=0x0048, t01=0x00de}
0x716e…7196 Head {h00=0x0024, h01=0x0050, text=» RF(NE) DMI140 NEXT KEY NOT SAME«, t00=0x0048, t01=0x010a}
0x7196…71b4 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,NXTKYS BIT 6 «, t00=0x0048, t01=0x0132}
0x71b4…71da Head {h00=0x0022, h01=0x0050, text=» ORS A1,ECBRC,A9 NEXT KEY SAME«, t00=0x0048, t01=0x0150}
0x71da…71ee Head {h00=0x0010, h01=0x0050, text=»DMI140 EQU *«, t00=0x0048, t01=0x0176}
0x71ee…720a Head {h00=0x0018, h01=0x0050, text=» LDK A1,0 MARK FOUND«, t00=0x0048, t01=0x018a}
0x720a…723c Head {h00=0x002e, h01=0x0050, text=» ABL DMR100 CONT AS FOR INDEXED RAND READ «, t00=0x0049, t01=0x0016}
0x723c…724a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0048}
0x724a…7266 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0049, t01=0x0056}
0x7266…7282 Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0049, t01=0x0072}
0x7282…729e Head {h00=0x0018, h01=0x0050, text=»* E R R O R *«, t00=0x0049, t01=0x008e}
0x729e…72ba Head {h00=0x0018, h01=0x0050, text=»* *«, t00=0x0049, t01=0x00aa}
0x72ba…72d6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0049, t01=0x00c6}
0x72d6…72de Head {h00=0x0004, h01=0x0050, t00=0x0049, t01=0x00e2}
0x72de…730a Head {h00=0x0028, h01=0x0050, text=»DMIER1 LDKL A1,KEYERR KEY NOT FOUND «, t00=0x0049, t01=0x00ea}
0x730a…731e Head {h00=0x0010, h01=0x0050, text=» RF DMIERR «, t00=0x0049, t01=0x0116}
0x731e…7332 Head {h00=0x0010, h01=0x0050, text=»DMIER2 EQU *«, t00=0x0049, t01=0x012a}
0x7332…7352 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,NODERR NO IDENT«, t00=0x0049, t01=0x013e}
0x7352…7366 Head {h00=0x0010, h01=0x0050, text=»DMIERR EQU *«, t00=0x0049, t01=0x015e}
0x7366…7384 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A4 BUFFER ADDR«, t00=0x0049, t01=0x0172}
0x7384…73a4 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) SDMERX NO BUFFER«, t00=0x0049, t01=0x0190}
0x73a4…73c8 Head {h00=0x0020, h01=0x0050, text=» ABL DMTERR ERROR AND BUFFER«, t00=0x004a, t01=0x0020}
0x73c8…73dc Head {h00=0x0010, h01=0x0050, text=»DMIER3 EQU *«, t00=0x004a, t01=0x0044}
0x73dc…73f0 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/27 «, t00=0x004a, t01=0x0058}
0x73f0…7416 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) DMIERR BIT 10,13,14,15«, t00=0x004a, t01=0x006c}
0x7416…743c Head {h00=0x0022, h01=0x0050, text=» LDKL A1,EOMERR GRAVE ERR ALSO«, t00=0x004a, t01=0x0092}
0x743c…744e Head {h00=0x000e, h01=0x0050, text=» RB DMIERR«, t00=0x004a, t01=0x00b8}
0x744e…7462 Head {h00=0x0010, h01=0x0050, text=»DMIER4 EQU *«, t00=0x004a, t01=0x00ca}
0x7462…7480 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x004a, t01=0x00de}
0x7480…7492 Head {h00=0x000e, h01=0x0050, text=» RB DMIERR«, t00=0x004a, t01=0x00fc}
0x7492…74a6 Head {h00=0x0010, h01=0x0050, text=»DMIER5 EQU *«, t00=0x004a, t01=0x010e}
0x74a6…74c6 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,PROT PROTECTED «, t00=0x004a, t01=0x0122}
0x74c6…74d8 Head {h00=0x000e, h01=0x0050, text=» RB DMIERR«, t00=0x004a, t01=0x0142}
0x74d8…74ec Head {h00=0x0010, h01=0x0050, text=»DMIER6 EQU *«, t00=0x004a, t01=0x0154}
0x74ec…7504 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,EOFERR «, t00=0x004a, t01=0x0168}
0x7504…7516 Head {h00=0x000e, h01=0x0050, text=» RB DMIERR«, t00=0x004a, t01=0x0180}
0x7516…7524 (75, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0004}
0x7524…7562 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004b, t01=0x0012}
0x7562…75a0 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x004b, t01=0x0050}
0x75a0…75de 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=0x008e}
0x75de…761c Head {h00=0x003a, h01=0x0050, text=»* D E L E T E I N D E X E D * «, t00=0x004b, t01=0x00cc}
0x761c…765a Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x004b, t01=0x010a}
0x765a…7698 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004b, t01=0x0148}
0x7698…76a0 Head {h00=0x0004, h01=0x0050, t00=0x004b, t01=0x0186}
0x76a0…76d0 Head {h00=0x002c, h01=0x0050, text=»DMINS2 EQU * WRITE RANDOM INDEXED PART 2«, t00=0x004b, t01=0x018e}
0x76d0…76f4 Head {h00=0x0020, h01=0x0050, text=»DMXDEL EQU * DELETE INDEXED «, t00=0x004c, t01=0x002e}
0x76f4…770e Head {h00=0x0016, h01=0x0050, text=» LC A4,FDBDBR,A11 «, t00=0x004c, t01=0x0052}
0x770e…7722 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x004c, t01=0x006c}
0x7722…7744 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DXI010 KEEP BUFFER«, t00=0x004c, t01=0x0080}
0x7744…7770 Head {h00=0x0028, h01=0x0050, text=» CF A14,SDMRLB RELEASE BLOCK BUFFER «, t00=0x004c, t01=0x00a2}
0x7770…7784 Head {h00=0x0010, h01=0x0050, text=»DXI010 EQU *«, t00=0x004c, t01=0x00ce}
0x7784…779e Head {h00=0x0016, h01=0x0050, text=» LDK A5,10 LOOPER «, t00=0x004c, t01=0x00e2}
0x779e…77be Head {h00=0x001c, h01=0x0050, text=»DXI020 EQU * NEXT INDEX «, t00=0x004c, t01=0x00fc}
0x77be…77dc Head {h00=0x001a, h01=0x0050, text=» LD A7,DWTOR,A11 ORDER«, t00=0x004c, t01=0x011c}
0x77dc…77f0 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x004c, t01=0x013a}
0x77f0…7802 Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x004c, t01=0x014e}
0x7802…7824 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DXI100 ALL INDEXES «, t00=0x004c, t01=0x0160}
0x7824…7840 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A11 FDB DATA«, t00=0x004c, t01=0x0182}
0x7840…7852 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A5«, t00=0x004d, t01=0x000e}
0x7852…7874 Head {h00=0x001e, h01=0x0050, text=» LD A1,FDBADF,A1 FDB INDEX«, t00=0x004d, t01=0x0020}
0x7874…7892 Head {h00=0x001a, h01=0x0050, text=» RB(Z) DXI020 NO INDEX«, t00=0x004d, t01=0x0042}
0x7892…78b0 Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTOR,A11 ORDER«, t00=0x004d, t01=0x0060}
0x78b0…78c8 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTOR,A1 «, t00=0x004d, t01=0x007e}
0x78c8…78f0 Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTECB,A11 USER ECB ADDR «, t00=0x004d, t01=0x0096}
0x78f0…7908 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTECB,A1«, t00=0x004d, t01=0x00be}
0x7908…792e Head {h00=0x0022, h01=0x0050, text=» ST A5,FDBKA,A11 SAVE COUNTER «, t00=0x004d, t01=0x00d6}
0x792e…7958 Head {h00=0x0026, h01=0x0050, text=» LDR A11,A1 FDB ADDRESS INDEX FILE«, t00=0x004d, t01=0x00fc}
0x7958…796e Head {h00=0x0012, h01=0x0050, text=» SUK A7,OWRRMX«, t00=0x004d, t01=0x0126}
0x796e…7998 Head {h00=0x0026, h01=0x0050, text=» RF(E) DMINIX WRITE RANDOM INDEXED«, t00=0x004d, t01=0x013c}
0x7998…79ba Head {h00=0x001e, h01=0x0050, text=» RF DMDELX DELETE INDEXED «, t00=0x004d, t01=0x0166}
0x79ba…79c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0188}
0x79c8…79d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0008}
0x79d2…7a00 Head {h00=0x002a, h01=0x0050, text=»* RETURN FROM UPDATING OF ONE INDEX «, t00=0x004e, t01=0x0012}
0x7a00…7a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0040}
0x7a0a…7a1e Head {h00=0x0010, h01=0x0050, text=»DMTAR5 EQU *«, t00=0x004e, t01=0x004a}
0x7a1e…7a4e Head {h00=0x002c, h01=0x0050, text=» LD A11,FDBADF,A11 FDB ADDRESS DATA FILE«, t00=0x004e, t01=0x005e}
0x7a4e…7a7e Head {h00=0x002c, h01=0x0050, text=» LD A5,FDBKA,A11 GET COUNTER OF INDEXES «, t00=0x004e, t01=0x008e}
0x7a7e…7aa0 Head {h00=0x001e, h01=0x0050, text=» RB DXI020 TAKE NEXT INDEX«, t00=0x004e, t01=0x00be}
0x7aa0…7aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e0}
0x7aaa…7ade Head {h00=0x0030, h01=0x0050, text=»* END IF WRITE RANDOM INDEXED ELSE CONTINUE «, t00=0x004e, t01=0x00ea}
0x7ade…7ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x011e}
0x7ae8…7b0a Head {h00=0x001e, h01=0x0050, text=»DXI100 EQU * INDEXES READY«, t00=0x004e, t01=0x0128}
0x7b0a…7b24 Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 RET CODE«, t00=0x004e, t01=0x014a}
0x7b24…7b50 Head {h00=0x0028, h01=0x0050, text=» SUK A7,OWRRMX WRITE RANDOM INDEXED «, t00=0x004e, t01=0x0164}
0x7b50…7b6c Head {h00=0x0018, h01=0x0050, text=» ABL(E) SDMERX READY«, t00=0x004e, t01=0x0190}
0x7b6c…7b8e Head {h00=0x001e, h01=0x0050, text=» ABL DMT020 RESTART SDMTSK«, t00=0x004f, t01=0x001c}
0x7b8e…7b9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x003e}
0x7b9c…7bda Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004f, t01=0x004c}
0x7bda…7c18 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x004f, t01=0x008a}
0x7c18…7c56 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=0x00c8}
0x7c56…7c94 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=0x0106}
0x7c94…7cd2 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x004f, t01=0x0144}
0x7cd2…7d10 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x004f, t01=0x0182}
0x7d10…7d18 Head {h00=0x0004, h01=0x0050, t00=0x0050, t01=0x0030}
0x7d18…7d42 Head {h00=0x0026, h01=0x0050, text=»DMINIX EQU * WRITE RANDOM INDEXED «, t00=0x0050, t01=0x0038}
0x7d42…7d58 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0050, t01=0x0062}
0x7d58…7d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0078}
0x7d62…7d84 Head {h00=0x001e, h01=0x0050, text=»* GET KEY IN USER BUFFER«, t00=0x0050, t01=0x0082}
0x7d84…7d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00a4}
0x7d8e…7dbe Head {h00=0x002c, h01=0x0050, text=» LD A9,FDBADF,A11 FDB ADDRESS DATA FILE «, t00=0x0050, t01=0x00ae}
0x7dbe…7de8 Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A9 USER ECB ADDRESS «, t00=0x0050, t01=0x00de}
0x7de8…7e0c Head {h00=0x0020, h01=0x0050, text=» LD A9,ECBBA,A9 USER BUFFER «, t00=0x0050, t01=0x0108}
0x7e0c…7e30 Head {h00=0x0020, h01=0x0050, text=» AD A9,FDBKA,A11 KEY ADDRESS«, t00=0x0050, t01=0x012c}
0x7e30…7e42 Head {h00=0x000e, h01=0x0050, text=» RF INS010«, t00=0x0050, t01=0x0150}
0x7e42…7e4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0162}
0x7e4e…7e64 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0050, t01=0x016e}
0x7e64…7e8c Head {h00=0x0024, h01=0x0050, text=»DMDELX EQU * DELETE INDEX RECORD«, t00=0x0050, t01=0x0184}
0x7e8c…7ea0 Head {h00=0x0010, h01=0x0050, text=» LDR A9,A11 «, t00=0x0051, t01=0x001c}
0x7ea0…7ec0 Head {h00=0x001c, h01=0x0050, text=» ADKL A9,FDBKEY KEY ADDR«, t00=0x0051, t01=0x0030}
0x7ec0…7ed4 Head {h00=0x0010, h01=0x0050, text=»INS010 EQU *«, t00=0x0051, t01=0x0050}
0x7ed4…7ee8 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A9 «, t00=0x0051, t01=0x0064}
0x7ee8…7f10 Head {h00=0x0024, h01=0x0050, text=» LD A10,FDBRLE,A11 RECORD LENGTH«, t00=0x0051, t01=0x0078}
0x7f10…7f2e Head {h00=0x001a, h01=0x0050, text=» SUKL A10,6 KEY LENGTH«, t00=0x0051, t01=0x00a0}
0x7f2e…7f42 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A14 «, t00=0x0051, t01=0x00be}
0x7f42…7f76 Head {h00=0x0030, h01=0x0050, text=» ADKL A8,2 ECB ADDR TO RECORD BUFFER AREASS «, t00=0x0051, t01=0x00d2}
0x7f76…7f9e Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDKEY GET INDEX RECORD «, t00=0x0051, t01=0x0106}
0x7f9e…7fb0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0051, t01=0x012e}
0x7fb0…7fd6 Head {h00=0x0022, h01=0x0050, text=» RB(Z) DMIER3 NO SECTOR FOUND «, t00=0x0051, t01=0x0140}
0x7fd6…8002 Head {h00=0x0028, h01=0x0050, text=» LDR A6,A7 NUMBER OF SAME CHARACTERS«, t00=0x0051, t01=0x0166}
0x8002…802c (82, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB ADDRESS«, t00=0x0052, t01=0x0004}
0x802c…8050 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTOR,A11 ORDER CODE «, t00=0x0052, t01=0x002e}
0x8050…8064 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0052, t01=0x0052}
0x8064…807a Head {h00=0x0012, h01=0x0050, text=» SUK A2,ODELTX«, t00=0x0052, t01=0x0066}
0x807a…80a4 Head {h00=0x0026, h01=0x0050, text=» ABL(E) DEL000 DELETE INDEX RECORD«, t00=0x0052, t01=0x007c}
0x80a4…80b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00a6}
0x80b2…80bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00b4}
0x80bc…80e8 Head {h00=0x0028, h01=0x0050, text=»* SET RC BIT 6 TO USER IF NEXT KEY«, t00=0x0052, t01=0x00be}
0x80e8…810e Head {h00=0x0022, h01=0x0050, text=»* IS SAME IN REQUESTED INDEX«, t00=0x0052, t01=0x00ea}
0x810e…8118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0110}
0x8118…812a Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0052, t01=0x011a}
0x812a…8152 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) INS180 NEXT KEY NOT SAME«, t00=0x0052, t01=0x012c}
0x8152…8168 Head {h00=0x0012, h01=0x0050, text=» IFT KEYDUP=1 «, t00=0x0052, t01=0x0154}
0x8168…8184 Head {h00=0x0018, h01=0x0050, text=» CW A11,FDBAI1,A11 «, t00=0x0052, t01=0x016a}
0x8184…81a6 Head {h00=0x001e, h01=0x0050, text=» RB(E) DMIER5 FIRST INDEX «, t00=0x0052, t01=0x0186}
0x81a6…81b4 Head {h00=0x000a, h01=0x0050, text=» XIF «, t00=0x0053, t01=0x0018}
0x81b4…81ca Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0053, t01=0x0026}
0x81ca…81f0 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,NXTKYS NEXT KEY SAME «, t00=0x0053, t01=0x003c}
0x81f0…8218 Head {h00=0x0024, h01=0x0050, text=» ORS A1,ECBRC,A9 SET RETURN CODE«, t00=0x0053, t01=0x0062}
0x8218…822e Head {h00=0x0012, h01=0x0050, text=» IFT INSLAS=1 «, t00=0x0053, t01=0x008a}
0x822e…823c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x00a0}
0x823c…8246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00ae}
0x8246…8266 Head {h00=0x001c, h01=0x0050, text=»* INSERT SAME KEY LAST«, t00=0x0053, t01=0x00b8}
0x8266…8270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00d8}
0x8270…8298 Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRRO,A11 RECORD OFFSET «, t00=0x0053, t01=0x00e2}
0x8298…82aa Head {h00=0x000e, h01=0x0050, text=» RF INS100«, t00=0x0053, t01=0x010a}
0x82aa…82be Head {h00=0x0010, h01=0x0050, text=»INS080 EQU *«, t00=0x0053, t01=0x011c}
0x82be…82e2 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDNXTR GET NEXT REC «, t00=0x0053, t01=0x0130}
0x82e2…82f6 Head {h00=0x0010, h01=0x0050, text=»INS090 EQU *«, t00=0x0053, t01=0x0154}
0x82f6…8312 Head {h00=0x0018, h01=0x0050, text=» RB(Z) DMIER3 ERROR «, t00=0x0053, t01=0x0168}
0x8312…8326 Head {h00=0x0010, h01=0x0050, text=»INS100 EQU *«, t00=0x0053, t01=0x0184}
0x8326…8350 Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKRCD CHECK RECORD STATUS«, t00=0x0054, t01=0x0008}
0x8350…836a Head {h00=0x0016, h01=0x0050, text=» RF(E) INS150 USED«, t00=0x0054, t01=0x0032}
0x836a…8384 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBMRO,A11 «, t00=0x0054, t01=0x004c}
0x8384…839e Head {h00=0x0016, h01=0x0050, text=» ST A3,FDBRRO,A11 «, t00=0x0054, t01=0x0066}
0x839e…83cc Head {h00=0x002a, h01=0x0050, text=» RB INS080 GET FIRST RE C IN NXT SECT «, t00=0x0054, t01=0x0080}
0x83cc…83e0 Head {h00=0x0010, h01=0x0050, text=»INS150 EQU *«, t00=0x0054, t01=0x00ae}
0x83e0…840c Head {h00=0x0028, h01=0x0050, text=» LC A6,-4,A1 DUPLICATE KEY CHARACTER«, t00=0x0054, t01=0x00c2}
0x840c…8430 Head {h00=0x0020, h01=0x0050, text=» CWR A6,A10 CHECK KEY LENGTH«, t00=0x0054, t01=0x00ee}
0x8430…8458 Head {h00=0x0024, h01=0x0050, text=» RB(E) INS080 NEXT SAME GET NEXT«, t00=0x0054, t01=0x0112}
0x8458…8466 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x013a}
0x8466…8470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0148}
0x8470…8494 Head {h00=0x0020, h01=0x0050, text=»* UPDATE LAST SAME RECORD «, t00=0x0054, t01=0x0152}
0x8494…849e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0176}
0x849e…84be Head {h00=0x001c, h01=0x0050, text=» SC A10,-4,A1 NEXT SAME «, t00=0x0054, t01=0x0180}
0x84be…84d8 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRRO,A11 «, t00=0x0055, t01=0x0010}
0x84d8…84f2 Head {h00=0x0016, h01=0x0050, text=» CW A1,FDBMRO,A11 «, t00=0x0055, t01=0x002a}
0x84f2…851c Head {h00=0x0026, h01=0x0050, text=» RF(NE) INS160 SECT WRITTEN LATER «, t00=0x0055, t01=0x0044}
0x851c…8526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x006e}
0x8526…853e Head {h00=0x0014, h01=0x0050, text=»* WRITE BLOCK «, t00=0x0055, t01=0x0078}
0x853e…8548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0090}
0x8548…855e Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x0055, t01=0x009a}
0x855e…8576 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x0055, t01=0x00b0}
0x8576…8580 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c8}
0x8580…859c Head {h00=0x0018, h01=0x0050, text=»* GET NEXT RECORD «, t00=0x0055, t01=0x00d2}
0x859c…85a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00ee}
0x85a6…85ba Head {h00=0x0010, h01=0x0050, text=»INS160 EQU *«, t00=0x0055, t01=0x00f8}
0x85ba…85dc Head {h00=0x001e, h01=0x0050, text=» CF A14,RDNXTR GET NEXT RC«, t00=0x0055, t01=0x010c}
0x85dc…85f0 Head {h00=0x0010, h01=0x0050, text=»INS170 EQU *«, t00=0x0055, t01=0x012e}
0x85f0…861c Head {h00=0x0028, h01=0x0050, text=» RB(Z) INS090 GO TO DMIER3 IF ERROR «, t00=0x0055, t01=0x0142}
0x861c…8628 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x016e}
0x8628…863e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0055, t01=0x017a}
0x863e…864c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0190}
0x864c…8660 Head {h00=0x0010, h01=0x0050, text=»INS180 EQU *«, t00=0x0056, t01=0x000e}
0x8660…866a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0022}
0x866a…8696 Head {h00=0x0028, h01=0x0050, text=»* CREATE AN INDEX RECORD IN AREA 1«, t00=0x0056, t01=0x002c}
0x8696…86a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0058}
0x86a0…86be Head {h00=0x001a, h01=0x0050, text=» LDR A1,A12 FROM ADDR «, t00=0x0056, t01=0x0062}
0x86be…86d2 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A14 «, t00=0x0056, t01=0x0080}
0x86d2…86f4 Head {h00=0x001e, h01=0x0050, text=» ADKL A2,SDMBF1 TO ADDRESS«, t00=0x0056, t01=0x0094}
0x86f4…8712 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A10 KEY LENGTH«, t00=0x0056, t01=0x00b6}
0x8712…8730 Head {h00=0x001a, h01=0x0050, text=» CF A14,MOVFW MOVE KEY«, t00=0x0056, t01=0x00d4}
0x8730…8748 Head {h00=0x0014, h01=0x0050, text=» SCR A3,A2 DUMMY«, t00=0x0056, t01=0x00f2}
0x8748…875a Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0056, t01=0x010a}
0x875a…8772 Head {h00=0x0014, h01=0x0050, text=» SCR A3,A2 DUMMY«, t00=0x0056, t01=0x011c}
0x8772…8784 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0056, t01=0x0134}
0x8784…87a6 Head {h00=0x001e, h01=0x0050, text=» SCR A6,A2 NR OF SAME CHAR«, t00=0x0056, t01=0x0146}
0x87a6…87b8 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0056, t01=0x0168}
0x87b8…87e2 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTECB,A11 USER ECB ADDRESS«, t00=0x0056, t01=0x017a}
0x87e2…880a Head {h00=0x0024, h01=0x0050, text=» ADKL A1,ECBCW+1 SOURCE POINTER «, t00=0x0057, t01=0x0014}
0x880a…8838 Head {h00=0x002a, h01=0x0050, text=» LDK A3,3 NUMBER OF CHARACTERS TO MOVE«, t00=0x0057, t01=0x003c}
0x8838…884e Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVFW «, t00=0x0057, t01=0x006a}
0x884e…8866 Head {h00=0x0014, h01=0x0050, text=» LDK A1,/FF USED«, t00=0x0057, t01=0x0080}
0x8866…8884 Head {h00=0x001a, h01=0x0050, text=» SCR A1,A2 STATUS CHAR«, t00=0x0057, t01=0x0098}
0x8884…88ac Head {h00=0x0024, h01=0x0050, text=» CF A14,GTLGRN GET REC NR INDEX «, t00=0x0057, t01=0x00b6}
0x88ac…88b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00de}
0x88b6…88e6 Head {h00=0x002c, h01=0x0050, text=»* SAVE RECORD NR FOR FIRST MOVED INDEX«, t00=0x0057, t01=0x00e8}
0x88e6…88f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0118}
0x88f0…8904 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A1 «, t00=0x0057, t01=0x0122}
0x8904…8918 Head {h00=0x0010, h01=0x0050, text=» LDR A13,A2 «, t00=0x0057, t01=0x0136}
0x8918…8926 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x014a}
0x8926…8930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0158}
0x8930…896e Head {h00=0x003a, h01=0x0050, text=»* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING«, t00=0x0057, t01=0x0162}
0x896e…8996 Head {h00=0x0024, h01=0x0050, text=»* USED RECORDS ROLLED FORWARD «, t00=0x0058, t01=0x0010}
0x8996…89be Head {h00=0x0024, h01=0x0050, text=»* A4,A10,A11 IS USED AT ENTRY «, t00=0x0058, t01=0x0038}
0x89be…89e6 Head {h00=0x0024, h01=0x0050, text=» ADKL A10,7 RECORD LENGTH TOTAL «, t00=0x0058, t01=0x0060}
0x89e6…89f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0088}
0x89f0…8a0c Head {h00=0x0018, h01=0x0050, text=»* USE D REGISTERS «, t00=0x0058, t01=0x0092}
0x8a0c…8a2e Head {h00=0x001e, h01=0x0050, text=»* A11 = FDB ADDR INDEX «, t00=0x0058, t01=0x00ae}
0x8a2e…8a4a Head {h00=0x0018, h01=0x0050, text=»* A9 = AREA ADDR«, t00=0x0058, t01=0x00d0}
0x8a4a…8a70 Head {h00=0x0022, h01=0x0050, text=»* A10 = RECORD LENGTH INDEX«, t00=0x0058, t01=0x00ec}
0x8a70…8aa0 Head {h00=0x002c, h01=0x0050, text=»* A5 = AREA INDEX 0=BUFAR1,1=BUFAR2 «, t00=0x0058, t01=0x0112}
0x8aa0…8ac8 Head {h00=0x0024, h01=0x0050, text=»* A4 = BUFFER ADDRESS BLOCK «, t00=0x0058, t01=0x0142}
0x8ac8…8ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x016a}
0x8ad2…8aec Head {h00=0x0016, h01=0x0050, text=» LDK A5,1 BUF ADR2«, t00=0x0058, t01=0x0174}
0x8aec…8b00 Head {h00=0x0010, h01=0x0050, text=»INS200 EQU *«, t00=0x0058, t01=0x018e}
0x8b00…8b20 Head {h00=0x001c, h01=0x0050, text=» LDKL A9,SDMBF1 BUFFER 1«, t00=0x0059, t01=0x0012}
0x8b20…8b32 Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x0059, t01=0x0032}
0x8b32…8b4e Head {h00=0x0018, h01=0x0050, text=» RF(Z) INS210 BUFAR1«, t00=0x0059, t01=0x0044}
0x8b4e…8b6e Head {h00=0x001c, h01=0x0050, text=» LDKL A9,SDMBF2 BUFFER 2«, t00=0x0059, t01=0x0060}
0x8b6e…8b82 Head {h00=0x0010, h01=0x0050, text=»INS210 EQU *«, t00=0x0059, t01=0x0080}
0x8b82…8bac Head {h00=0x0026, h01=0x0050, text=» ADR A9,A14 RECORD BUFFER ADDRESS «, t00=0x0059, t01=0x0094}
0x8bac…8bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00be}
0x8bb6…8bd2 Head {h00=0x0018, h01=0x0050, text=»* SAVE LAST RECORD«, t00=0x0059, t01=0x00c8}
0x8bd2…8bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00e4}
0x8bdc…8bee Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0059, t01=0x00ee}
0x8bee…8c06 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFSTA «, t00=0x0059, t01=0x0100}
0x8c06…8c38 Head {h00=0x002e, h01=0x0050, text=» AD A1,FDBMRO,A11 ADDR OF LAST REC IN SECT«, t00=0x0059, t01=0x0118}
0x8c38…8c4c Head {h00=0x0010, h01=0x0050, text=» LDR A3,A10 «, t00=0x0059, t01=0x014a}
0x8c4c…8c5e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A9«, t00=0x0059, t01=0x015e}
0x8c5e…8c84 Head {h00=0x0022, h01=0x0050, text=» CF A14,MOVFW SAVE LAST RECORD«, t00=0x0059, t01=0x0170}
0x8c84…8c92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0008}
0x8c92…8c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0016}
0x8c9c…8cd4 Head {h00=0x0034, h01=0x0050, text=»* MOVE REST OF BLOCK DOWN ONE RECORD POSITION «, t00=0x005a, t01=0x0020}
0x8cd4…8cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0058}
0x8cde…8cf0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x005a, t01=0x0062}
0x8cf0…8d08 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFSTA «, t00=0x005a, t01=0x0074}
0x8d08…8d2c Head {h00=0x0020, h01=0x0050, text=» AD A1,FDBRRO,A11 FROM ADDR «, t00=0x005a, t01=0x008c}
0x8d2c…8d3e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x005a, t01=0x00b0}
0x8d3e…8d58 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBMRO,A11 «, t00=0x005a, t01=0x00c2}
0x8d58…8d7c Head {h00=0x0020, h01=0x0050, text=» SU A3,FDBRRO,A11 NR OF CHAR«, t00=0x005a, t01=0x00dc}
0x8d7c…8d8e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x005a, t01=0x0100}
0x8d8e…8daa Head {h00=0x0018, h01=0x0050, text=» ADR A2,A10 TO ADDR «, t00=0x005a, t01=0x0112}
0x8daa…8dc4 Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVBW MOVE«, t00=0x005a, t01=0x012e}
0x8dc4…8dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0148}
0x8dce…8dec Head {h00=0x001a, h01=0x0050, text=»* INSERT NEW RECORD «, t00=0x005a, t01=0x0152}
0x8dec…8df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0170}
0x8df6…8e0e Head {h00=0x0014, h01=0x0050, text=» LDKL A1,SDMBF2 «, t00=0x005a, t01=0x017a}
0x8e0e…8e20 (91, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x005b, t01=0x0004}
0x8e20…8e3c Head {h00=0x0018, h01=0x0050, text=» RF(Z) INS250 BUFAR1«, t00=0x005b, t01=0x0016}
0x8e3c…8e54 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,SDMBF1 «, t00=0x005b, t01=0x0032}
0x8e54…8e68 Head {h00=0x0010, h01=0x0050, text=»INS250 EQU *«, t00=0x005b, t01=0x004a}
0x8e68…8e86 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A14 FROM ADDR «, t00=0x005b, t01=0x005e}
0x8e86…8ea4 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A10 NR OF CHAR«, t00=0x005b, t01=0x007c}
0x8ea4…8ebe Head {h00=0x0016, h01=0x0050, text=» LDR A2,A6 TO ADDR«, t00=0x005b, t01=0x009a}
0x8ebe…8ed8 Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVFW MOVE«, t00=0x005b, t01=0x00b4}
0x8ed8…8ee6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005b, t01=0x00ce}
0x8ee6…8ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00dc}
0x8ef0…8f08 Head {h00=0x0014, h01=0x0050, text=»* WRITE BUFFER«, t00=0x005b, t01=0x00e6}
0x8f08…8f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00fe}
0x8f12…8f3a Head {h00=0x0024, h01=0x0050, text=» LDR A8,A14 USE STACK AS ECB :=S«, t00=0x005b, t01=0x0108}
0x8f3a…8f64 Head {h00=0x0026, h01=0x0050, text=» SUKL A8,SDMSTS 7 WORDS NEEDED :=S«, t00=0x005b, t01=0x0130}
0x8f64…8f8a Head {h00=0x0022, h01=0x0050, text=» LC A2,FWTFNR,A11 VOL DEV CODE«, t00=0x005b, t01=0x015a}
0x8f8a…8f9e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005b, t01=0x0180}
0x8f9e…8fb2 (92, 0, 400) Head {h00=0x0010, h01=0x0050, text=» STR A2,A8 «, t00=0x005c, t01=0x0004}
0x8fb2…8fc4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x005c, t01=0x0018}
0x8fc4…8fdc Head {h00=0x0014, h01=0x0050, text=» ADKL A2,BUFSTA «, t00=0x005c, t01=0x002a}
0x8fdc…9000 Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBBA,A8 SECTOR ADDR «, t00=0x005c, t01=0x0042}
0x9000…9024 Head {h00=0x0020, h01=0x0050, text=» LC A2,FDBBLZ,A11 BLOCK SIZE«, t00=0x005c, t01=0x0066}
0x9024…903e Head {h00=0x0016, h01=0x0050, text=» SLL A2,8 IN BYTE «, t00=0x005c, t01=0x008a}
0x903e…9056 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x005c, t01=0x00a4}
0x9056…907a Head {h00=0x0020, h01=0x0050, text=» LD A2,FDBSNR,A11 SECTOR NR «, t00=0x005c, t01=0x00bc}
0x907a…909c Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBCW,A8 SECTOR NR «, t00=0x005c, t01=0x00e0}
0x909c…90b8 Head {h00=0x0018, h01=0x0050, text=» LD A3,FDBSNR+2,A11 «, t00=0x005c, t01=0x0102}
0x90b8…90da Head {h00=0x001e, h01=0x0050, text=» ST A3,ECBCW+2,A8 SECT NR «, t00=0x005c, t01=0x011e}
0x90da…90f0 Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x005c, t01=0x0140}
0x90f0…9108 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x005c, t01=0x0156}
0x9108…9112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x016e}
0x9112…914c Head {h00=0x0036, h01=0x0050, text=»* IF SPILLED RECORD IS FREE, OPERATION IS READY «, t00=0x005c, t01=0x0178}
0x914c…9156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0022}
0x9156…917a Head {h00=0x0020, h01=0x0050, text=» LDR A2,A9 RECORD AREA ADDR «, t00=0x005d, t01=0x002c}
0x917a…9196 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A10 REC LGTH«, t00=0x005d, t01=0x0050}
0x9196…91bc Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 ADDR OF STATUS CHAR «, t00=0x005d, t01=0x006c}
0x91bc…91d6 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBMRO,A11 «, t00=0x005d, t01=0x0092}
0x91d6…9202 Head {h00=0x0028, h01=0x0050, text=» ST A3,FDBRRO,A11 MAX OFFSET IN SECT«, t00=0x005d, t01=0x00ac}
0x9202…9214 Head {h00=0x000e, h01=0x0050, text=» CCR A1,A2«, t00=0x005d, t01=0x00d8}
0x9214…9236 Head {h00=0x001e, h01=0x0050, text=» RF(Z) INS400 FREE RECORD «, t00=0x005d, t01=0x00ea}
0x9236…9244 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x010c}
0x9244…924e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x011a}
0x924e…9268 Head {h00=0x0016, h01=0x0050, text=»* GET NEXT BLOCK«, t00=0x005d, t01=0x0124}
0x9268…9272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x013e}
0x9272…9290 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A5 SAVE A5 =7 «, t00=0x005d, t01=0x0148}
0x9290…92c8 Head {h00=0x0034, h01=0x0050, text=» CF A14,RDNXTR GET RECORD (7 WORDS ON STACK) :=S«, t00=0x005d, t01=0x0166}
0x92c8…92ee Head {h00=0x0022, h01=0x0050, text=» LDR A5,A9 RESTORE REGISTER =7«, t00=0x005e, t01=0x000e}
0x92ee…930a Head {h00=0x0018, h01=0x0050, text=» ADK A4,0 SET CR =7 «, t00=0x005e, t01=0x0034}
0x930a…931e Head {h00=0x0010, h01=0x0050, text=»INS260 EQU *«, t00=0x005e, t01=0x0050}
0x931e…934a Head {h00=0x0028, h01=0x0050, text=» RB(Z) INS170 GO TO DMIER3 IF ERROR «, t00=0x005e, t01=0x0064}
0x934a…9378 Head {h00=0x002a, h01=0x0050, text=» XRK A5,1 SWITCH KEY RECORD BUFFERS =7«, t00=0x005e, t01=0x0090}
0x9378…938a Head {h00=0x000e, h01=0x0050, text=» RB INS200«, t00=0x005e, t01=0x00be}
0x938a…939e Head {h00=0x0010, h01=0x0050, text=»INS400 EQU *«, t00=0x005e, t01=0x00d0}
0x939e…93a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00e4}
0x93a8…93d4 Head {h00=0x0028, h01=0x0050, text=»* UPDATE LRN IF EOF IS ENCOUNTERED«, t00=0x005e, t01=0x00ee}
0x93d4…93de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x011a}
0x93de…93f6 Head {h00=0x0014, h01=0x0050, text=» CF A14,GTLGRN «, t00=0x005e, t01=0x0124}
0x93f6…9410 Head {h00=0x0016, h01=0x0050, text=» CC A1,FDBLRN,A11 «, t00=0x005e, t01=0x013c}
0x9410…942c Head {h00=0x0018, h01=0x0050, text=» RF(L) INS430 NO EOF«, t00=0x005e, t01=0x0156}
0x942c…9446 Head {h00=0x0016, h01=0x0050, text=» RF(G) INS410 EOF «, t00=0x005e, t01=0x0172}
0x9446…9462 Head {h00=0x0018, h01=0x0050, text=» CW A2,FDBLRN+1,A11 «, t00=0x005e, t01=0x018c}
0x9462…9480 Head {h00=0x001a, h01=0x0050, text=» RF(NG) INS430 NO EOF «, t00=0x005f, t01=0x0018}
0x9480…9494 Head {h00=0x0010, h01=0x0050, text=»INS410 EQU *«, t00=0x005f, t01=0x0036}
0x9494…94c0 Head {h00=0x0028, h01=0x0050, text=» SC A1,FDBLRN,A11 LAST RECORD NUMBER«, t00=0x005f, t01=0x004a}
0x94c0…94dc Head {h00=0x0018, h01=0x0050, text=» ST A2,FDBLRN+1,A11 «, t00=0x005f, t01=0x0076}
0x94dc…9506 Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A11 USER ECB ADDRESS«, t00=0x005f, t01=0x0092}
0x9506…9528 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,EOFRC END OF FILE«, t00=0x005f, t01=0x00bc}
0x9528…9548 Head {h00=0x001c, h01=0x0050, text=» ORS A3,ECBRC,A9 TO USER«, t00=0x005f, t01=0x00de}
0x9548…9556 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005f, t01=0x00fe}
0x9556…956a Head {h00=0x0010, h01=0x0050, text=»INS430 EQU *«, t00=0x005f, t01=0x010c}
0x956a…9574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0120}
0x9574…95a8 Head {h00=0x0030, h01=0x0050, text=»* UPDATE CRN-LINK FOR MOVED INDEX RECORDS «, t00=0x005f, t01=0x012a}
0x95a8…95b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x015e}
0x95b2…95d2 Head {h00=0x001c, h01=0x0050, text=» LDK A7,1 ADD ONE TO CRN«, t00=0x005f, t01=0x0168}
0x95d2…9600 Head {h00=0x002a, h01=0x0050, text=» CF A14,CRNUPD ADD 1 TO RECORD NUMBERS«, t00=0x005f, t01=0x0188}
0x9600…9614 Head {h00=0x0010, h01=0x0050, text=»INS440 EQU *«, t00=0x0060, t01=0x0026}
0x9614…9636 Head {h00=0x001e, h01=0x0050, text=» CF A14,SDMRBU REL BUFFER «, t00=0x0060, t01=0x003a}
0x9636…9664 Head {h00=0x002a, h01=0x0050, text=» ABL DMTAR5 ONE INDEX READY TAKE NEXT «, t00=0x0060, t01=0x005c}
0x9664…9672 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x008a}
0x9672…96a0 Head {h00=0x002a, h01=0x0050, text=»DEL000 EQU * DELETE INDEX RECORD CONT «, t00=0x0060, t01=0x0098}
0x96a0…96b2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0060, t01=0x00c6}
0x96b2…96c6 Head {h00=0x0010, h01=0x0050, text=»DEL010 EQU *«, t00=0x0060, t01=0x00d8}
0x96c6…96ec Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMIER3 KEY NOT FOUND «, t00=0x0060, t01=0x00ec}
0x96ec…96f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0112}
0x96f6…971a Head {h00=0x0020, h01=0x0050, text=»* CHECK RECORD NR DATA REC«, t00=0x0060, t01=0x011c}
0x971a…9724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0140}
0x9724…9738 Head {h00=0x0010, h01=0x0050, text=»DEL020 EQU *«, t00=0x0060, t01=0x014a}
0x9738…9752 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRRO,A11 «, t00=0x0060, t01=0x015e}
0x9752…9764 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A4«, t00=0x0060, t01=0x0178}
0x9764…977e Head {h00=0x0016, h01=0x0050, text=» AD A1,FDBRLE,A11 «, t00=0x0060, t01=0x018a}
0x977e…97a4 Head {h00=0x0022, h01=0x0050, text=» ADK A1,7 BUFSTA-3=ADDR REC NR«, t00=0x0061, t01=0x0014}
0x97a4…97b6 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0061, t01=0x003a}
0x97b6…97d6 Head {h00=0x001c, h01=0x0050, text=» CC A2,ECBCW+1,A9 REC NR«, t00=0x0061, t01=0x004c}
0x97d6…97fa Head {h00=0x0020, h01=0x0050, text=» RF(NE) DEL030 WRONG RECORD «, t00=0x0061, t01=0x006c}
0x97fa…980e Head {h00=0x0010, h01=0x0050, text=» LC A2,1,A1 «, t00=0x0061, t01=0x0090}
0x980e…9820 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0061, t01=0x00a4}
0x9820…983a Head {h00=0x0016, h01=0x0050, text=» LC A2,2,A1 REC NR«, t00=0x0061, t01=0x00b6}
0x983a…9854 Head {h00=0x0016, h01=0x0050, text=» CW A2,ECBCW+2,A9 «, t00=0x0061, t01=0x00d0}
0x9854…9876 Head {h00=0x001e, h01=0x0050, text=» RF(E) DEL200 RECORD FOUND«, t00=0x0061, t01=0x00ea}
0x9876…988a Head {h00=0x0010, h01=0x0050, text=»DEL030 EQU *«, t00=0x0061, t01=0x010c}
0x988a…9898 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x0120}
0x9898…98a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x012e}
0x98a2…98c4 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF NEXT KEY SAME«, t00=0x0061, t01=0x0138}
0x98c4…98ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x015a}
0x98ce…98ee Head {h00=0x001c, h01=0x0050, text=» CC A10,-1,A1 KEY LENGTH«, t00=0x0061, t01=0x0164}
0x98ee…9916 Head {h00=0x0024, h01=0x0050, text=» RB(NE) DEL010 NEXT KEY NOT SAME«, t00=0x0061, t01=0x0184}
0x9916…992a Head {h00=0x0010, h01=0x0050, text=»DEL040 EQU *«, t00=0x0062, t01=0x001c}
0x992a…9956 Head {h00=0x0028, h01=0x0050, text=» CF A14,RDNXTR GET NEXT INDEX RECORD«, t00=0x0062, t01=0x0030}
0x9956…996a Head {h00=0x0010, h01=0x0050, text=»DEL045 EQU *«, t00=0x0062, t01=0x005c}
0x996a…9996 Head {h00=0x0028, h01=0x0050, text=» RB(Z) INS260 GO TO DMIER3 IF ERROR «, t00=0x0062, t01=0x0070}
0x9996…99a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x009c}
0x99a0…99c4 Head {h00=0x0020, h01=0x0050, text=»* CHECK IF RECORD IS USED «, t00=0x0062, t01=0x00a6}
0x99c4…99ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00ca}
0x99ce…99f8 Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKRCD CHECK RECORD STATUS«, t00=0x0062, t01=0x00d4}
0x99f8…9a12 Head {h00=0x0016, h01=0x0050, text=» RB(E) DEL020 USED«, t00=0x0062, t01=0x00fe}
0x9a12…9a2c Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBMRO,A11 «, t00=0x0062, t01=0x0118}
0x9a2c…9a5c Head {h00=0x002c, h01=0x0050, text=» ST A1,FDBRRO,A11 LAST RECORD IN SECTOR «, t00=0x0062, t01=0x0132}
0x9a5c…9a78 Head {h00=0x0018, h01=0x0050, text=» RB DEL040 NEXT REC «, t00=0x0062, t01=0x0162}
0x9a78…9a86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x017e}
0x9a86…9aa8 Head {h00=0x001e, h01=0x0050, text=»DEL200 EQU * RECORD FOUND «, t00=0x0062, t01=0x018c}
0x9aa8…9ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x001e}
0x9ab2…9adc Head {h00=0x0026, h01=0x0050, text=»* SET RC BIT 6 IF NEXT KEY SAME «, t00=0x0063, t01=0x0028}
0x9adc…9ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0052}
0x9ae6…9b0a Head {h00=0x0020, h01=0x0050, text=» LC A7,-1,A1 NR OF SAME CHAR«, t00=0x0063, t01=0x005c}
0x9b0a…9b1e Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0063, t01=0x0080}
0x9b1e…9b54 Head {h00=0x0032, h01=0x0050, text=» ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB «, t00=0x0063, t01=0x0094}
0x9b54…9b72 Head {h00=0x001a, h01=0x0050, text=» CWR A10,A7 KEY LENGTH«, t00=0x0063, t01=0x00ca}
0x9b72…9b9a Head {h00=0x0024, h01=0x0050, text=» RF(NE) DEL220 NEXT KEY NOT SAME«, t00=0x0063, t01=0x00e8}
0x9b9a…9bb2 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,NXTKYS «, t00=0x0063, t01=0x0110}
0x9bb2…9bd8 Head {h00=0x0022, h01=0x0050, text=» ORS A2,ECBRC,A9 NEXT KEY SAME«, t00=0x0063, t01=0x0128}
0x9bd8…9bec Head {h00=0x0010, h01=0x0050, text=»DEL220 EQU *«, t00=0x0063, t01=0x014e}
0x9bec…9bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0162}
0x9bf6…9c1e Head {h00=0x0024, h01=0x0050, text=»* MOVE UP RECORDS OVER DELETED«, t00=0x0063, t01=0x016c}
0x9c1e…9c28 (100, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0004}
0x9c28…9c50 Head {h00=0x0024, h01=0x0050, text=» ADKL A10,7 TOTAL RECORD LENGTH «, t00=0x0064, t01=0x000e}
0x9c50…9c62 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0064, t01=0x0036}
0x9c62…9c7a Head {h00=0x0014, h01=0x0050, text=» ADKL A2,BUFSTA «, t00=0x0064, t01=0x0048}
0x9c7a…9c9c Head {h00=0x001e, h01=0x0050, text=» AD A2,FDBRRO,A11 TO ADDR «, t00=0x0064, t01=0x0060}
0x9c9c…9cae Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0064, t01=0x0082}
0x9cae…9ccc Head {h00=0x001a, h01=0x0050, text=» ADR A1,A10 FROM ADDR «, t00=0x0064, t01=0x0094}
0x9ccc…9ce6 Head {h00=0x0016, h01=0x0050, text=» LD A3,FDBMRO,A11 «, t00=0x0064, t01=0x00b2}
0x9ce6…9d0a Head {h00=0x0020, h01=0x0050, text=» SU A3,FDBRRO,A11 NR OF CHAR«, t00=0x0064, t01=0x00cc}
0x9d0a…9d24 Head {h00=0x0016, h01=0x0050, text=» CF A14,MOVFW MOVE«, t00=0x0064, t01=0x00f0}
0x9d24…9d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x010a}
0x9d2e…9d4e Head {h00=0x001c, h01=0x0050, text=»* SET LAST RECORD FREE«, t00=0x0064, t01=0x0114}
0x9d4e…9d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0134}
0x9d58…9d6c Head {h00=0x0010, h01=0x0050, text=» ADR A2,A10 «, t00=0x0064, t01=0x013e}
0x9d6c…9d7e Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0064, t01=0x0152}
0x9d7e…9d9c Head {h00=0x001a, h01=0x0050, text=» SCR A3,A2 STATUS FREE«, t00=0x0064, t01=0x0164}
0x9d9c…9daa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x0182}
0x9daa…9db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0190}
0x9db4…9ddc Head {h00=0x0024, h01=0x0050, text=»* UPDATE CRN FOR MOVED RECORDS«, t00=0x0065, t01=0x000a}
0x9ddc…9de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0032}
0x9de6…9e08 Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x0065, t01=0x003c}
0x9e08…9e1c Head {h00=0x0010, h01=0x0050, text=» LDR A12,A1 «, t00=0x0065, t01=0x005e}
0x9e1c…9e42 Head {h00=0x0022, h01=0x0050, text=» LDR A13,A2 FIRST REC NR MOVED«, t00=0x0065, t01=0x0072}
0x9e42…9e78 Head {h00=0x0032, h01=0x0050, text=» LD A3,FDBRRO,A11 SAVE RELATIVE RECORD OFFSET «, t00=0x0065, t01=0x0098}
0x9e78…9e92 Head {h00=0x0016, h01=0x0050, text=» LD A6,FDBMRO,A11 «, t00=0x0065, t01=0x00ce}
0x9e92…9eb6 Head {h00=0x0020, h01=0x0050, text=» ST A6,FDBRRO,A11 MAX OFFSET«, t00=0x0065, t01=0x00e8}
0x9eb6…9ede Head {h00=0x0024, h01=0x0050, text=» CF A14,GTLGRN LAST REC NR MOVED«, t00=0x0065, t01=0x010c}
0x9ede…9f04 Head {h00=0x0022, h01=0x0050, text=» ST A3,FDBRRO,A11 RESET OFFSET«, t00=0x0065, t01=0x0134}
0x9f04…9f18 Head {h00=0x0010, h01=0x0050, text=» LDKL A7,-1 «, t00=0x0065, t01=0x015a}
0x9f18…9f42 Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNUPD UPDATE CRN BUFFERS «, t00=0x0065, t01=0x016e}
0x9f42…9f68 Head {h00=0x0022, h01=0x0050, text=» LDK A5,1 MARK BUFFER CHANGED «, t00=0x0066, t01=0x0008}
0x9f68…9f76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x002e}
0x9f76…9f8a Head {h00=0x0010, h01=0x0050, text=»DEL240 EQU *«, t00=0x0066, t01=0x003c}
0x9f8a…9fa4 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRRO,A11 «, t00=0x0066, t01=0x0050}
0x9fa4…9fcc Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DEL290 NOT FIRST RECORD «, t00=0x0066, t01=0x006a}
0x9fcc…9fee Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x0066, t01=0x0092}
0x9fee…a000 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0066, t01=0x00b4}
0xa000…a012 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x0066, t01=0x00c6}
0xa012…a03a Head {h00=0x0024, h01=0x0050, text=» CF A14,DSUMOD A1,A2 = A1,A2 - 1«, t00=0x0066, t01=0x00d8}
0xa03a…a05a Head {h00=0x001c, h01=0x0050, text=» RF(Z) DEL600 FILE START«, t00=0x0066, t01=0x0100}
0xa05a…a07e Head {h00=0x0020, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NR«, t00=0x0066, t01=0x0120}
0xa07e…a0a0 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DEL600 FILE START «, t00=0x0066, t01=0x0144}
0xa0a0…a0b2 Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x0066, t01=0x0166}
0xa0b2…a0da Head {h00=0x0024, h01=0x0050, text=» RF(Z) DEL245 BUFFER NOT CHANGED«, t00=0x0066, t01=0x0178}
0xa0da…a0e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x0010}
0xa0e8…a0f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x001e}
0xa0f2…a10a Head {h00=0x0014, h01=0x0050, text=»* WRITE SECTOR«, t00=0x0067, t01=0x0028}
0xa10a…a114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0040}
0xa114…a12a Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x0067, t01=0x004a}
0xa12a…a142 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x0067, t01=0x0060}
0xa142…a16a Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 BUFFER NOT CHANGED YET«, t00=0x0067, t01=0x0078}
0xa16a…a17e Head {h00=0x0010, h01=0x0050, text=»DEL245 EQU *«, t00=0x0067, t01=0x00a0}
0xa17e…a1a4 Head {h00=0x0022, h01=0x0050, text=» CF A14,SDMRBU RELEASE BUFFER «, t00=0x0067, t01=0x00b4}
0xa1a4…a1ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00da}
0xa1ae…a1ce Head {h00=0x001c, h01=0x0050, text=»* GET PREVIOUS SECTOR «, t00=0x0067, t01=0x00e4}
0xa1ce…a1d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0104}
0xa1d8…a1ea Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0067, t01=0x010e}
0xa1ea…a20c Head {h00=0x001e, h01=0x0050, text=» CF A14,RDNXTR GET SECTOR «, t00=0x0067, t01=0x0120}
0xa20c…a238 Head {h00=0x0028, h01=0x0050, text=» RB(Z) DEL045 GO TO DMIER3 IF ERROR «, t00=0x0067, t01=0x0142}
0xa238…a24c Head {h00=0x0010, h01=0x0050, text=»DEL250 EQU *«, t00=0x0067, t01=0x016e}
0xa24c…a266 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBMRO,A11 «, t00=0x0067, t01=0x0182}
0xa266…a278 Head {h00=0x000e, h01=0x0050, text=» RF DEL300«, t00=0x0068, t01=0x000c}
0xa278…a28c Head {h00=0x0010, h01=0x0050, text=»DEL290 EQU *«, t00=0x0068, t01=0x001e}
0xa28c…a2a6 Head {h00=0x0016, h01=0x0050, text=» SU A1,FDBRLE,A11 «, t00=0x0068, t01=0x0032}
0xa2a6…a2b8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0068, t01=0x004c}
0xa2b8…a2cc Head {h00=0x0010, h01=0x0050, text=»DEL300 EQU *«, t00=0x0068, t01=0x005e}
0xa2cc…a2fc Head {h00=0x002c, h01=0x0050, text=» ST A1,FDBRRO,A11 PREVIOS RECORD OFFSET «, t00=0x0068, t01=0x0072}
0xa2fc…a326 Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKRCD CHECK RECORD STATUS«, t00=0x0068, t01=0x00a2}
0xa326…a342 Head {h00=0x0018, h01=0x0050, text=» RB(NE) DEL240 FREE «, t00=0x0068, t01=0x00cc}
0xa342…a350 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x00e8}
0xa350…a35a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00f6}
0xa35a…a372 Head {h00=0x0014, h01=0x0050, text=»* SET CURRENCY«, t00=0x0068, t01=0x0100}
0xa372…a37c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0118}
0xa37c…a39a Head {h00=0x001a, h01=0x0050, text=» LDR A9,A3 STATUS ADDR«, t00=0x0068, t01=0x0122}
0xa39a…a3c6 Head {h00=0x0028, h01=0x0050, text=» LDR A12,A11 FDB ADDRESS INDEX FILE «, t00=0x0068, t01=0x0140}
0xa3c6…a3f6 Head {h00=0x002c, h01=0x0050, text=» LD A11,FDBADF,A11 FDB ADDRESS DATA FILE«, t00=0x0068, t01=0x016c}
0xa3f6…a41c Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x0069, t01=0x000c}
0xa41c…a448 Head {h00=0x0028, h01=0x0050, text=» LDR A11,A12 FDB ADDRESS INDEX FILE «, t00=0x0069, t01=0x0032}
0xa448…a470 Head {h00=0x0024, h01=0x0050, text=» LC A1,FWTFNR,A11 INDEX FILE NR «, t00=0x0069, t01=0x005e}
0xa470…a498 Head {h00=0x0024, h01=0x0050, text=» CC A1,CRNCIF,A2 LAST REF INDEX «, t00=0x0069, t01=0x0086}
0xa498…a4bc Head {h00=0x0020, h01=0x0050, text=» RF(NE) DEL350 NOT THIS IND «, t00=0x0069, t01=0x00ae}
0xa4bc…a4c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00d2}
0xa4c6…a4e2 Head {h00=0x0018, h01=0x0050, text=»* UPDATE CURRENCY «, t00=0x0069, t01=0x00dc}
0xa4e2…a4ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00f8}
0xa4ec…a508 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 CRN ADDR «, t00=0x0069, t01=0x0102}
0xa508…a52a Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x0069, t01=0x011e}
0xa52a…a544 Head {h00=0x0016, h01=0x0050, text=» SC A1,CRNCIF+1,A3«, t00=0x0069, t01=0x0140}
0xa544…a56c Head {h00=0x0024, h01=0x0050, text=» ST A2,CRNCIF+2,A3 RECORD NUMBER«, t00=0x0069, t01=0x015a}
0xa56c…a580 Head {h00=0x0010, h01=0x0050, text=»DEL350 EQU *«, t00=0x0069, t01=0x0182}
0xa580…a5b2 Head {h00=0x002e, h01=0x0050, text=» LC A2,17,A14 NR OF SAME IN DELETED RECORD«, t00=0x006a, t01=0x0008}
0xa5b2…a5d8 Head {h00=0x0022, h01=0x0050, text=»* WAS SAVED AT LABEL DEL200 «, t00=0x006a, t01=0x003a}
0xa5d8…a5ec Head {h00=0x0010, h01=0x0050, text=» CC A2,-4,A9«, t00=0x006a, t01=0x0060}
0xa5ec…a602 Head {h00=0x0012, h01=0x0050, text=» RF(NL) DEL600«, t00=0x006a, t01=0x0074}
0xa602…a62e Head {h00=0x0028, h01=0x0050, text=» SC A2,-4,A9 MAKE NR OF SAME SMALLER«, t00=0x006a, t01=0x008a}
0xa62e…a64e Head {h00=0x001c, h01=0x0050, text=» RF DEL700 WRITE SECTOR «, t00=0x006a, t01=0x00b6}
0xa64e…a662 Head {h00=0x0010, h01=0x0050, text=»DEL600 EQU *«, t00=0x006a, t01=0x00d6}
0xa662…a674 Head {h00=0x000e, h01=0x0050, text=» ADK A5,0 «, t00=0x006a, t01=0x00ea}
0xa674…a69c Head {h00=0x0024, h01=0x0050, text=» RF(Z) DEL900 BUFFER NOT CHANGED«, t00=0x006a, t01=0x00fc}
0xa69c…a6aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x0124}
0xa6aa…a6b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0132}
0xa6b4…a6cc Head {h00=0x0014, h01=0x0050, text=»* WRITE SECTOR«, t00=0x006a, t01=0x013c}
0xa6cc…a6d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0154}
0xa6d6…a6ea Head {h00=0x0010, h01=0x0050, text=»DEL700 EQU *«, t00=0x006a, t01=0x015e}
0xa6ea…a700 Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x006a, t01=0x0172}
0xa700…a718 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x006a, t01=0x0188}
0xa718…a72c Head {h00=0x0010, h01=0x0050, text=»DEL900 EQU *«, t00=0x006b, t01=0x0010}
0xa72c…a740 Head {h00=0x0010, h01=0x0050, text=» ABL INS440 «, t00=0x006b, t01=0x0024}
0xa740…a74c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0038}
0xa74c…a75a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006b, t01=0x0044}
0xa75a…a764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0052}
0xa764…a786 Head {h00=0x001e, h01=0x0050, text=»* FNDBLB=FIND BLOCK BUFFER«, t00=0x006b, t01=0x005c}
0xa786…a790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x007e}
0xa790…a7a4 Head {h00=0x0010, h01=0x0050, text=»FNDBLB EQU *«, t00=0x006b, t01=0x0088}
0xa7a4…a7c2 Head {h00=0x001a, h01=0x0050, text=» LD A7,DWTOR,A11 ORDER«, t00=0x006b, t01=0x009c}
0xa7c2…a7d6 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x006b, t01=0x00ba}
0xa7d6…a7ec Head {h00=0x0012, h01=0x0050, text=» SUK A7,ORDSQ0«, t00=0x006b, t01=0x00ce}
0xa7ec…a816 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FBL110 NOT READ SEQUENTIAL«, t00=0x006b, t01=0x00e4}
0xa816…a820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x010e}
0xa820…a838 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A9 «, t00=0x006b, t01=0x0118}
0xa838…a858 Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBCW+2,A9 REC NR«, t00=0x006b, t01=0x0130}
0xa858…a872 Head {h00=0x0016, h01=0x0050, text=» CC A2,FDBLRN,A11 «, t00=0x006b, t01=0x0150}
0xa872…a88e Head {h00=0x0018, h01=0x0050, text=» RF(L) FBL110 NO EOF«, t00=0x006b, t01=0x016a}
0xa88e…a8a8 Head {h00=0x0016, h01=0x0050, text=» RF(G) FBL100 EOF «, t00=0x006b, t01=0x0186}
0xa8a8…a8c4 Head {h00=0x0018, h01=0x0050, text=» CW A3,FDBLRN+1,A11 «, t00=0x006c, t01=0x0010}
0xa8c4…a8e2 Head {h00=0x001a, h01=0x0050, text=» RF(NG) FBL110 NO EOF «, t00=0x006c, t01=0x002c}
0xa8e2…a8f6 Head {h00=0x0010, h01=0x0050, text=»FBL100 EQU *«, t00=0x006c, t01=0x004a}
0xa8f6…a916 Head {h00=0x001c, h01=0x0050, text=» LDK A2,1 INDICATE ERROR«, t00=0x006c, t01=0x005e}
0xa916…a932 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,EOFERR EOF «, t00=0x006c, t01=0x007e}
0xa932…a94c Head {h00=0x0016, h01=0x0050, text=» RF FBL170 RETURN «, t00=0x006c, t01=0x009a}
0xa94c…a960 Head {h00=0x0010, h01=0x0050, text=»FBL110 EQU *«, t00=0x006c, t01=0x00b4}
0xa960…a976 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/CFFF«, t00=0x006c, t01=0x00c8}
0xa976…a9a0 Head {h00=0x0026, h01=0x0050, text=» ANS A2,FDBDBR,A11 RELEASE BUFFER «, t00=0x006c, t01=0x00de}
0xa9a0…a9c8 Head {h00=0x0024, h01=0x0050, text=» CF A14,GTBKBU GET BLOCK BUFFER «, t00=0x006c, t01=0x0108}
0xa9c8…a9f0 Head {h00=0x0024, h01=0x0050, text=» RF(N) FBL120 NO DATA IN BUFFER «, t00=0x006c, t01=0x0130}
0xa9f0…a9fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x0158}
0xa9fe…aa08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0166}
0xaa08…aa2e Head {h00=0x0022, h01=0x0050, text=»* DELAYED BUFFER IS WRITTEN «, t00=0x006c, t01=0x0170}
0xaa2e…aa58 Head {h00=0x0026, h01=0x0050, text=»* IF IT IS NOT THE WANTED BLOCK «, t00=0x006d, t01=0x0008}
0xaa58…aa62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0032}
0xaa62…aa84 Head {h00=0x001e, h01=0x0050, text=» LC A7,BUFOR,A4 DELAY FLAG«, t00=0x006d, t01=0x003c}
0xaa84…aa96 Head {h00=0x000e, h01=0x0050, text=» ANK A7,/3«, t00=0x006d, t01=0x005e}
0xaa96…aab4 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FBL150 NO DELAY«, t00=0x006d, t01=0x0070}
0xaab4…aace Head {h00=0x0016, h01=0x0050, text=» CM BUFOR,A4 RESET«, t00=0x006d, t01=0x008e}
0xaace…aae0 Head {h00=0x000e, h01=0x0050, text=» ANK A7,1 «, t00=0x006d, t01=0x00a8}
0xaae0…ab04 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) FBL130 RIGHT SECTOR «, t00=0x006d, t01=0x00ba}
0xab04…ab24 Head {h00=0x001c, h01=0x0050, text=» LD A7,BUFSNR,A4 SECT NR«, t00=0x006d, t01=0x00de}
0xab24…ab3c Head {h00=0x0014, h01=0x0050, text=» ST A7,ECBCW,A8 «, t00=0x006d, t01=0x00fe}
0xab3c…ab56 Head {h00=0x0016, h01=0x0050, text=» LD A7,BUFSNR+2,A4«, t00=0x006d, t01=0x0116}
0xab56…ab70 Head {h00=0x0016, h01=0x0050, text=» ST A7,ECBCW+2,A8 «, t00=0x006d, t01=0x0130}
0xab70…ab86 Head {h00=0x0012, h01=0x0050, text=» CF A14,FMIOWR«, t00=0x006d, t01=0x014a}
0xab86…aba2 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FBL160 ERROR«, t00=0x006d, t01=0x0160}
0xaba2…abc8 Head {h00=0x0022, h01=0x0050, text=» CF A14,SDMRBU RELEASE BUFFER «, t00=0x006d, t01=0x017c}
0xabc8…abea Head {h00=0x001e, h01=0x0050, text=» RB FNDBLB GET NEW BUFFER «, t00=0x006e, t01=0x0012}
0xabea…abf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x0034}
0xabf8…ac0c Head {h00=0x0010, h01=0x0050, text=»FBL120 EQU *«, t00=0x006e, t01=0x0042}
0xac0c…ac16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0056}
0xac16…ac38 Head {h00=0x001e, h01=0x0050, text=»* READ BLOCK INTO BUFFER«, t00=0x006e, t01=0x0060}
0xac38…ac42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0082}
0xac42…ac68 Head {h00=0x0022, h01=0x0050, text=» CF A14,FMIORD PHYSICAL READW «, t00=0x006e, t01=0x008c}
0xac68…ac84 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FBL160 ERROR«, t00=0x006e, t01=0x00b2}
0xac84…ac9c Head {h00=0x0014, h01=0x0050, text=» LD A5,ECBBA,A8 «, t00=0x006e, t01=0x00ce}
0xac9c…acae Head {h00=0x000e, h01=0x0050, text=» RF FBL150«, t00=0x006e, t01=0x00e6}
0xacae…ace0 Head {h00=0x002e, h01=0x0050, text=»FBL130 EQU * RIGHT DELAYED BUFFER IS FOUND«, t00=0x006e, t01=0x00f8}
0xace0…acf6 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/1000«, t00=0x006e, t01=0x012a}
0xacf6…ad1c Head {h00=0x0022, h01=0x0050, text=» ORS A2,FDBDBR,A11 KEEP BUFFER«, t00=0x006e, t01=0x0140}
0xad1c…ad30 Head {h00=0x0010, h01=0x0050, text=»FBL150 EQU *«, t00=0x006e, t01=0x0166}
0xad30…ad4e Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 INDICATE OK «, t00=0x006e, t01=0x017a}
0xad4e…ad60 Head {h00=0x000e, h01=0x0050, text=» RF FBL170«, t00=0x006f, t01=0x0008}
0xad60…ad74 Head {h00=0x0010, h01=0x0050, text=»FBL160 EQU *«, t00=0x006f, t01=0x001a}
0xad74…ad96 Head {h00=0x001e, h01=0x0050, text=» LDKL A2,-1 INDICATE ERROR«, t00=0x006f, t01=0x002e}
0xad96…adaa Head {h00=0x0010, h01=0x0050, text=»FBL170 EQU *«, t00=0x006f, t01=0x0050}
0xadaa…adbe Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x006f, t01=0x0064}
0xadbe…add6 Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x006f, t01=0x0078}
0xadd6…ade8 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x006f, t01=0x0090}
0xade8…adf6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006f, t01=0x00a2}
0xadf6…ae00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00b0}
0xae00…ae44 Head {h00=0x0040, h01=0x0050, text=»* CHKSTS=CHECK RECORD STATUS AND LOAD LOGICAL RECORD NUMBER «, t00=0x006f, t01=0x00ba}
0xae44…ae4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00fe}
0xae4e…ae70 Head {h00=0x001e, h01=0x0050, text=»* ENTRY : A11=FWT ADDRESS «, t00=0x006f, t01=0x0108}
0xae70…ae92 Head {h00=0x001e, h01=0x0050, text=»* A5=BLOCK ADDRESS«, t00=0x006f, t01=0x012a}
0xae92…aeb8 Head {h00=0x0022, h01=0x0050, text=»* A9=USER ECB ADDRESS «, t00=0x006f, t01=0x014c}
0xaeb8…aec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0172}
0xaec2…aef0 Head {h00=0x002a, h01=0x0050, text=»* EXIT : A1,A2=LOGICAL RECORD NUMBER «, t00=0x006f, t01=0x017c}
0xaef0…af1c Head {h00=0x0028, h01=0x0050, text=»* A10=RECORD STATUS POINTER «, t00=0x0070, t01=0x001a}
0xaf1c…af3a Head {h00=0x001a, h01=0x0050, text=»* A4=DESTROYED«, t00=0x0070, t01=0x0046}
0xaf3a…af64 Head {h00=0x0026, h01=0x0050, text=»* CR=0 IF RECORD NOT USED «, t00=0x0070, t01=0x0064}
0xaf64…af6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x008e}
0xaf6e…af82 Head {h00=0x0010, h01=0x0050, text=»CHKSTS EQU *«, t00=0x0070, t01=0x0098}
0xaf82…af9c Head {h00=0x0016, h01=0x0050, text=» LD A10,FDBRRO,A11«, t00=0x0070, t01=0x00ac}
0xaf9c…afb6 Head {h00=0x0016, h01=0x0050, text=» AD A10,FDBRLE,A11«, t00=0x0070, t01=0x00c6}
0xafb6…afca Head {h00=0x0010, h01=0x0050, text=» ADR A10,A5 «, t00=0x0070, t01=0x00e0}
0xafca…afe2 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW,A9 «, t00=0x0070, t01=0x00f4}
0xafe2…affc Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A9 «, t00=0x0070, t01=0x010c}
0xaffc…b00e Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0070, t01=0x0126}
0xb00e…b022 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0070, t01=0x0138}
0xb022…b036 Head {h00=0x0010, h01=0x0050, text=» CCR A4,A10 «, t00=0x0070, t01=0x014c}
0xb036…b048 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0070, t01=0x0160}
0xb048…b056 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0070, t01=0x0172}
0xb056…b060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0180}
0xb060…b0a0 Head {h00=0x003c, h01=0x0050, text=»* FNDKYP=SET PARAMETERS AND THEN GO TO FNDKEY SUBROUTINE«, t00=0x0070, t01=0x018a}
0xb0a0…b0aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x003a}
0xb0aa…b0c0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0071, t01=0x0044}
0xb0c0…b0d4 Head {h00=0x0010, h01=0x0050, text=»FNDKYP EQU *«, t00=0x0071, t01=0x005a}
0xb0d4…b0e8 Head {h00=0x0010, h01=0x0050, text=» LDR A9,A11 «, t00=0x0071, t01=0x006e}
0xb0e8…b110 Head {h00=0x0024, h01=0x0050, text=» ADKL A9,FDBKEY KEY AREA ADDRESS«, t00=0x0071, t01=0x0082}
0xb110…b13e Head {h00=0x002a, h01=0x0050, text=» LD A10,FDBRLE,A11 RECORD LENGTH INDEX«, t00=0x0071, t01=0x00aa}
0xb13e…b15c Head {h00=0x001a, h01=0x0050, text=» SUKL A10,6 KEY LENGTH«, t00=0x0071, t01=0x00d8}
0xb15c…b170 Head {h00=0x0010, h01=0x0050, text=» ABL FNDKEY «, t00=0x0071, t01=0x00f6}
0xb170…b17c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x010a}
0xb17c…b184 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x0116}
0xb184…b18c Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x011e}
0xb18c…b194 Head {h00=0x0004, h01=0x0050, t00=0x0071, t01=0x0126}
0xb194…b1a0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0071, t01=0x012e}
0xb1a0…b1a4 Head {h00=0x4004, h01=0x0000}
0xb1a4…b1a8 00 71 01 3a ┆ q :┆
0xb1a8…b1b0 (114, 1, 8) 20 04 00 00 00 72 00 04 ┆ r ┆
0xb1b0…b200 (115, 0, 400) 00 22 01 8e 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 46 4d 54 41 53 4b 20 00 23 00 08 00 06 00 50 2a 20 00 23 00 20 00 24 00 50 2a 5c 43 48 45 43 4b 20 46 49 4c 45 20 4e 55 4d 42 45 52 20 41 4e 44 20 46 49 4e 44 20 46 57 54 00 23 00 2a 00 06 ┆ " P EJECT FMTASK # P* # $ P* CHECK FILE NUMBER AND FIND FWT # * ┆
0xb200…b250 00 50 2a 20 00 23 00 52 00 24 00 50 5c 41 44 4b 4c 5c 41 31 35 2c 34 5c 41 44 4a 55 53 54 20 53 54 41 43 4b 50 4f 49 4e 54 45 52 20 00 23 00 5c 00 10 00 50 5c 41 4e 4b 5c 41 34 2c 2f 46 46 20 00 23 00 84 00 22 00 50 5c 52 46 28 5a 29 5c 46 ┆ P* # R $ P ADKL A15,4 ADJUST STACKPOINTER # P ANK A4,/FF # " P RF(Z) F┆
0xb250…b2a0 43 3a 30 35 30 5c 46 49 4c 45 20 4e 55 4d 42 45 52 20 3d 20 30 20 00 23 00 98 00 12 00 50 5c 43 57 5c 41 34 2c 53 43 54 4e 4f 46 20 00 23 00 be 00 26 00 50 5c 52 46 28 47 29 5c 46 43 3a 30 35 30 5c 46 49 4c 45 20 4e 55 4d 42 45 52 20 54 4f ┆C:050 FILE NUMBER = 0 # P CW A4,SCTNOF # & P RF(G) FC:050 FILE NUMBER TO┆
0xb2a0…b2f0 4f 20 42 49 47 20 00 23 00 d4 00 30 00 50 5c 4c 44 4b 4c 5c 41 36 2c 53 43 54 46 57 54 5c 41 44 44 52 45 53 53 20 54 4f 20 46 57 54 20 43 48 41 49 4e 20 50 4f 49 4e 54 45 52 00 23 00 fe 00 06 00 50 2a 20 00 23 01 32 00 24 00 50 46 43 3a 30 ┆O BIG # 0 P LDKL A6,SCTFWT ADDRESS TO FWT CHAIN POINTER # P* # 2 $ PFC:0┆
0xb2f0…b340 31 30 5c 45 51 55 5c 2a 5c 43 4f 4d 50 55 54 45 20 46 57 54 20 41 44 44 52 45 53 53 00 23 01 3c 00 20 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 36 5c 4e 45 58 54 20 46 57 54 20 41 44 44 52 45 53 53 00 23 01 64 00 0e 00 50 5c 53 55 4b 5c 41 34 2c ┆10 EQU * COMPUTE FWT ADDRESS # < P LDR* A6,A6 NEXT FWT ADDRESS # d P SUK A4,┆
0xb340…b390 (116, 0, 400) 31 20 00 23 01 88 00 12 00 50 5c 52 42 28 50 29 5c 46 43 3a 30 31 30 20 00 24 00 0a 00 06 00 50 2a 20 00 24 00 20 00 1e 00 50 2a 5c 43 48 45 43 4b 20 41 43 43 45 53 53 20 50 41 52 41 4d 45 54 45 52 53 20 00 24 00 2a 00 06 00 50 2a 20 00 24 ┆1 # P RB(P) FC:010 $ P* $ P* CHECK ACCESS PARAMETERS $ * P* $┆
0xb390…b3e0 00 4c 00 34 00 50 5c 41 4e 4b 4c 5c 41 36 2c 2f 46 46 46 45 5c 43 4f 52 52 45 43 54 20 46 57 54 20 41 44 44 52 45 53 53 20 4a 55 53 54 20 49 4e 20 43 41 53 45 20 00 24 00 56 00 32 00 50 5c 4c 44 5c 41 32 2c 46 57 54 56 54 43 2c 41 36 5c 56 ┆ L 4 P ANKL A6,/FFFE CORRECT FWT ADDRESS JUST IN CASE $ V 2 P LD A2,FWTVTC,A6 V┆
0xb3e0…b430 54 4f 43 20 53 45 43 54 4f 52 20 4e 4f 20 28 46 49 52 53 54 20 45 58 54 45 4e 54 29 00 24 00 8e 00 22 00 50 5c 52 46 28 5a 29 5c 46 43 3a 30 35 30 5c 46 49 4c 45 20 4e 4f 54 20 4f 50 45 4e 45 44 20 00 24 00 c4 00 26 00 50 5c 4c 44 5c 41 32 ┆TOC SECTOR NO (FIRST EXTENT) $ " P RF(Z) FC:050 FILE NOT OPENED $ & P LD A2┆
0xb430…b480 2c 46 57 54 50 41 52 2c 41 36 5c 41 43 43 45 53 53 20 50 41 52 41 4d 45 54 45 52 53 00 24 00 ea 00 24 00 50 5c 52 46 28 4e 29 5c 46 43 3a 30 37 30 5c 4e 45 57 20 56 4f 4c 55 4d 45 20 4c 4f 41 44 45 44 20 00 24 01 14 00 0e 00 50 5c 53 4c 4c ┆,FWTPAR,A6 ACCESS PARAMETERS $ $ P RF(N) FC:070 NEW VOLUME LOADED $ P SLL┆
0xb480…b4d0 5c 41 32 2c 31 20 00 24 01 3c 00 22 00 50 5c 52 46 28 4e 4e 29 5c 46 43 3a 30 32 30 5c 50 48 59 53 49 43 41 4c 20 4f 52 44 45 52 53 00 24 01 4e 00 1c 00 50 5c 41 4e 4b 5c 41 37 2c 2f 38 35 5c 42 41 53 49 43 20 4f 52 44 45 52 20 00 24 01 74 ┆ A2,1 $ < " P RF(NN) FC:020 PHYSICAL ORDERS $ N P ANK A7,/85 BASIC ORDER $ t┆