|
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: 23908 (0x5d64)
Notes: pts_type(SC)
Names: »TIOSDM.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/TIOSDM.SC«
IDENT TIOSDM REL 11.0 81-02-26 870105041100 =4,MOVE KEY WHEN DELETE,REWRITE DIRECT INDEXED =4,REL 11.0 81-02-24 =3,SKIP BITS 1-4 IN ORDER WHEN WRITE,DELETE,REWRITE =3,REL 11.0 81-02-12 =2,CLOSE D. WILL BE CLOSE IF WR. OP MODE =2,REL 11.0 81-02-05 =1, OPEN MODES ALLOWED WRONG ORDERS =1, REL 11.0 81-01-26 **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TIOSDM = STANDARD DATA MANAGEMENT ACTIVATION PART * * * * * * **************************************************** * * THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO * AND THE DWTADR IN FDB FOR CURRENT FILE * * THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR * FROM A DISC MUST BE ACCESSED * * ENTRY TIOSDM AND TIOSDM HOLDS THE START ADDRESS * * * INPUT A11= FWT ADDRESS * A7 = ORDER WORD WITH W BIT = 0 * A8 = ECB ADDRESS * * EJECT TIOSDM * * IN ALL DM MODULES FDB WILL BE THE SAME AS FWT * * THE FOLLOWING WORDS WILL BE SET IN THE FDB: * FDBSNR SECTOR NUMBER IN FILE * FDBRRO RELATIVE RECORD OFFSET IN BLOCK * FDBTNR TASK NUMBER FOR CALLING TASK * FDBCEX CURRENT EXTENT BLOCK POINTER * * * IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: * LDKL A1,/<RETURN CODE> * ABL DISEND * * EJECT * ************** * ENTRIES * ************** * ENTRY TIOSDM REFERENCED IN DWTADR * ENTRY SDMOIE,SDMIOP,SDMOEE ENTRY SDMOOS,SDMOOR,SDMLIM ENTRY SDMOEX,SDMOIP EJECT TIOSDM * ****************** * EXTERNALS * ****************** * EXTRN FDBRRO EXTRN FDBRLE EXTRN FDBTNR EXTRN FDBLRN EXTRN FDBNIF,FDBKA,FDBADF EXTRN FDBAI1,CRNCDF,CRNSTA EXTRN FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS EXTRN FDBSTA EXTRN FDBOMD EXTRN PROERR,LGTERR,EDMERR EXTRN SCTTCT EXTRN RELPRO EXTRN ACTOT EXTRN DISEND EXTRN DWTECB ECB ADDRESS EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTTAB DM TASK TTAB ADDRESS EXTRN SDMTSK EXTRN CALSNO EXTRN ECBBA,ECBRL,ECBCW,ECBRC EXTRN CRNGET,EATEST EXTRN FWTFNR FILE NR EXTRN FNDFDB SDMTSK ROUTINE EXTRN FPB:FR EXTRN FDBEXC,MOVUS EXTRN CRNCIF INDEX CURRENCY OFFSET EXTRN DMACTI,DMACTD EXTRN DISIOE EXTRN TTABD,TTABLN,TABEND * EJECT * ************************ * CONDITIONAL ASSEMBLY * ************************ * * * A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED * BY SETTING INDXAC EQU 1 * INDXAC EQU 0 OTHRERWISE X:A EQU 0 INDXAC EQU X:A * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * EJECT * * ERROR CODES * * MESSAGES * * FCUSED EQU 7 INVALID FILE CODE RQERR EQU /8000 EJECT * ************************ * DATA DEFINITIONS * ************************ * * BRANCH TABLE * TIODMF EQU * IFT INDXAC=1 DATA OPEN DATA OPEN DATA OPEN DATA OPEN DATA OPEN DATA OPEN DATA OPEN DATA OPEN QCLDIS EQU *-TIODMF DATA CLOSED DATA CLOSE DATA RDFIPA SDMOEX EQU *-TIODMF DATA DISIOE NOT USED * EJECT TIOSDM * * QWRSQ0 EQU *-TIODMF DATA WRSQ00 DATA DISIOE NOT ALLOWED DATA WRRN00 DATA WRRNIX DATA RWCU00 DATA RWCUIX DATA RWDI00 DATA RWDIIX DATA DECU00 DATA DECUIX DATA DEDI00 DATA DEDIIX QRDSQ0 EQU *-TIODMF DATA RDSQ00 DATA RDSQIX DATA RDRN00 DATA RDRNIX DATA STEQ00 DATA STEQIX QSTG00 EQU *-TIODMF DATA STGR00 QSTGIX EQU *-TIODMF DATA STGRIX DATA STNL00 DATA STNLIX * XIF IFT INDXAC=0 DATA OPEN DATA OPEN DATA OPEN DATA OPEN DATA OPEN DATA OPEN DATA OPEN DATA OPEN QCLDIS EQU *-TIODMF DATA CLOSE DATA CLOSE DATA RDFIPA SDMOEX EQU *-TIODMF DATA DISIOE NOT USED * EJECT TIOSDM * * QWRSQ0 EQU *-TIODMF DATA WRSQ00 DATA DISIOE NOT ALLOWED DATA WRRN00 DATA DISIOE NOT ALLOWED DATA RWCU00 DATA DISIOE NOT ALLOWED DATA RWDI00 DATA DISIOE NOT ALLOWED DATA DECU00 DATA DISIOE NOT ALLOWED DATA DEDI00 DATA DISIOE NOT ALLOWED QRDSQ0 EQU *-TIODMF DATA RDSQ00 DATA DISIOE NOT ALLOWED DATA RDRN00 DATA DISIOE NOT ALLOWED DATA STEQ00 DATA DISIOE NOT ALLOWED QSTG00 EQU *-TIODMF DATA STGR00 DATA DISIOE NOT ALLOWED DATA STNL00 DATA DISIOE NOT ALLOWED XIF * EJECT TIOSDM * ********** * OPEMOD * ********** * * TABLE OVER ALLOWED IO ORDERS VS OPENMODES * * BIT ORDER * 0 NOT USED =1 * 1 NOT USED =1 * 2 START NOT LESS =1 * 3 START GREATER =1 * 4 START EQUAL =1 * 5 READ RANDOM =1 * 6 READ SEQUENTIAL =1 * 7 DELETE DIRECT =1 * 8 DELETE CURRENT =1 * 9 REWRITE DIRECT =1 * 10 REWRITE CURRENT =1 * 11 WRITE RANDOM =1 * 12 WRITE SEQUENTIAL =1 * 13 NOT USED =2 * 14 NOT USED =2 * 15 NOT USED =2 * OPEMOD EQU * DATA /3E00 INPUT UNPROT. =2 DATA /3E00 INPUT PROTECTED =2 DATA /3E00 INPUT EXCLUSIVE =2 DATA /3FF8 INPUT/OUTPUT PROT. =2 DATA /3FF8 INPUT/OUTPUT EXCL. =2 DATA /0008 EXTEND EXCLUSIVE =2 DATA /0008 OUTPUT SEQUENTIAL =2 DATA /0018 OUTPUT RANDOM =2 EJECT TIOSDM * * ********** * ORDTA1 * * ORDTA2 * * ORDTA3 * ********** * * * * ORDTA1: ADMINISTATION FUNCTION ORDERS (NO INDEX) * ORDTA2: ORDER WITH SPECIAL INDEX HANDLING (FDBNIF CONTAIN INDEX) * ORDTA3: ORDERS WITH INTERNAL INDEX IN ORDER WORD * * EJECT TIOSDM * * * ORDTA1 EQU * DATA /821 OPEN INPUT UNPROTECTED SDMOIP EQU *-ORDTA1 DATA /921 OPEN INPUT PROTECTED SDMOIE EQU *-ORDTA1 DATA /A21 OPEN INPUT EXCLUSIVE SDMIOP EQU *-ORDTA1 DATA /3921 OPEN INPUT/OUTPUT PROTECTED DATA /3A21 OPEN INPUT/OUTPUT EXCLUSIVE SDMOEE EQU *-ORDTA1 DATA /5221 OPEN EXTEND EXCLUSIVE SDMOOS EQU *-ORDTA1 DATA /1221 OPEN OUTPUT SEQUENTIAL EXCLUSIVE SDMOOR EQU *-ORDTA1 DATA /3221 OPEN OUTPUT RANDOM EXCLUSIVE SDMLIM EQU *-ORDTA1 DATA /222 CLOSE DISCARD DATA /022 CLOSE LOCK DATA /3 READ FILE PARAMETERS ORDTL1 EQU *-ORDTA1 ORDTA2 EQU * DATA /006 WRITE SEQUENTIAL DATA /106 WRITE RANDOM DATA /407 REWRITE CURRENT DATA /107 REWRITE DIRECT DATA /408 DELETE CURRENT DATA /108 DELETE DIRECT ORDTL2 EQU *-ORDTA2 EJECT ORDTA3 EQU * DATA /002 READ SEQUENTIAL DATA /102 READ RANDOM DATA /00B START EQUAL DATA /10B START GREATER DATA /20B START NOT LESS ORDTL3 EQU *-ORDTA3 ORDTEN EQU * * * EJECT TIOSDM * ************ * ENTRY ************ * * INPUT : A14 = STACK POINTER * A8 = ECB ADDRESS * A6 = FDB ADDRESS * TIOSDM EQU * LDR A11,A6 FDB ADDRESS LDKL A2,/4000 ORDER CHECK BIT LDKL A10,ORDTEN-2 CHECK ORDER AND OPTION LDK A3,ORDTL3-2 LD A7,DWTOR,A11 ORDER AND OPTION LDR A1,A7 ANKL A7,/7FF NOT INDEX CF A14,CHKORD RF(N) TIOS10 NOT IN TABLE SLL A3,1 ADK A3,QRDSQ0 ADJUST DISPLACEMENT SRL A1,11 RF(Z) TIOS20 NO INDEX SUK A1,4 MAX INDEX RF(NP) TIOS15 ALLOWED INDEX REQERR EQU * LDR A6,A11 FDB ADDRESS ABL DISIOE REQUEST IO * EJECT TIOSDM * * * TIOS10 EQU * LDK A3,ORDTL2-2 TABLE LENGTH * LDR A7,A1 =3 CF A14,CHKORD RF(N) TIOS25 ORDER NOT IN TABLE SLL A3,1 ADK A3,QWRSQ0 ADJUST DISPLACEMENT LC A1,FDBNIF,A11 ANK A1,/FF RF(Z) TIOS20 NO INDEX TIOS15 EQU * ADK A3,2 INDICATE INDEXED TIOS20 EQU * CHECK ORDER VS OPEN MODE LC A1,FDBOMD,A11 GET OPEN MODE ANK A1,/7F AN A2,OPEMOD,A1 RB(Z) REQERR ILLEGAL ORDER RF TIOS30 * TIOS25 EQU * LDR A7,A1 ORDER WITH ALL BITS =3 LDK A3,ORDTL1-2 CF A14,CHKORD RB(N) REQERR ORDER NOT FOUND * EJECT TIOSDM * * TIOS30 EQU * LDR A10,A3 SC A3,DWTOR+1,A11 LD A5,DWTTAB,A11 GET CALLING TASK TTAB ADDRESS SUK A3,QCLDIS CLOSE DISCARD RF(N) TIOS35 OPEN ORDER CWK A11,FDBSTA RB(E) REQERR NOT OPENED LD A1,FDBEXC,A11 EXCLUSIVE ACCESS INDICATOR RF(Z) TIOS35 NOT OPENED EXCLUSIVE CWR A1,A5 RB(NE) REQERR OTHER TASK EXCLUSIVE ACCESS TIOS35 EQU * LD A1,SCTTCT LDR* A2,A1 TAB LENGTH ADR A1,A2 SRL A2,1 TIOS40 EQU * SUK A1,2 SUK A2,1 RF(Z) TIOS50 END OF SCTTCT CWR* A5,A1 RB(NE) TIOS40 NOT THIS TASK TIOS45 EQU * SC A2,FDBTNR,A11 USER TASK NUMBER RF TIOS90 EJECT * * SEARCH DM TASK * TIOS50 EQU * LDK A2,/FF DATA MANAGEMENT TASK LDKL A1,TTABD TTAB ADDRESS #D TIOS55 EQU * CWR A5,A1 RB(E) TIOS45 CORRECT TASK ADKL A1,TTABLN NEXT TTAB CWK A1,TABEND RB(E) REQERR TASK NOT FOUND SUK A2,1 RB TIOS55 EJECT TIOSDM * * TIOS90 EQU * CF A14,CRNGET CURRENCY INH LDR A4,A2 CURRENCY BUFFER ADDRESS LDK A2,0 SC A2,CRNSTA,A4 RESET STATUS LC A2,CRNCDF+1,A4 GET CURRENCY LD A3,CRNCDF+2,A4 LDKL A9,/40 MAX KEY LENGTH ABI TIODMF,A10 BRANCH TO DM FUNCTION * * A2,A3 = CURRENCY (CRNCDF) * A4 = CURRENCY BUFFER ADDRESS * A5 = TTAB ADDRESS CALLING TASK * A11= FDB ADDRESS DATA FILE * A7 = USER ORDER WORD * A8 = USER ECB ADDRESS * A9 = MAX KEY LENGTH = /40 * A10= DISPLACEMENT IN TIODMF TABLE * * IFT INDXAC=1 * EJECT * ********** * RWDIIX * * DEDIIX * ********** * * REWRITE DIRECT INDEXED,DELETE DIRECT INDEXED * RWDIIX EQU * REWRITE DIRECT INDEXED DEDIIX EQU * DELETE DIRECT INDEXED LD A7,FDBAI1,A11 PRIMARY INDEX FDB =4 CF A14,SWHECO SWITCH ECB AND ORDER CODE =4 RF IXR030 MOVE KEY =4 EJECT * ********** * STEQIX * * STGRIX * * STNLIX * * RDRNIX * ********** * * START INDEXED AND READ RANDOM INDEXED * STEQIX EQU * STGRIX EQU * STNLIX EQU * LD A9,ECBRL,A8 KEY LENGTH RDRNIX EQU * CF A14,SWHFDB SWITCH FDB IXR030 EQU * =4 RB(Z) REQERR NO FDB LDR A2,A7 INDEXED FDB ADDRESS ADKL A2,FDBKEY KEY AREA ADDRESS LDR A4,A2 LD A1,FDBRLE,A7 SUK A1,6 KEY LENGTH LDR A3,A1 KEY LENGTH IXR050 EQU * CMR A4 CLEAR KEY AREA ADK A4,2 SUK A1,2 RB(P) IXR050 MORE TO CLEAR * EJECT * * FETCH KEY TO INDEX FDB * LD A1,ECBBA,A8 RECORD ADDR AD A1,FDBKA,A7 KEY ADDR CWR A3,A9 KEY LENGTH = MIN(A9,RECLEN-6) RF(NG) IXR070 LDR A3,A9 IXR070 EQU * LDR A6,A3 SAVE MIN LENGTH CF A15,MOVUS MOVE KEY * EJECT TIOSDM * * INCREASE KEY IF 'START GREATER ' IS REQ * CWK A10,QSTGIX RF(NE) STA020 NOT START GREATER STA010 EQU * SUK A2,1 ADDR LAST BYTE LCR A1,A2 ADK A1,1 NEXT HIGHER KEY SCR A1,A2 ANK A1,/FF OVERFLOW ? RF(NZ) STA020 NO SUK A6,1 RB(P) STA010 MORE BYTES STA020 EQU * * * SWITCH TO INDEX FDB * LDR A11,A7 INDEX FDB RF TIORRO EJECT * * ********** * WRRNIX * ********** * * WRITE RANDOM INDEXED * WRRNIX EQU * IDEXED INSERT IFT MMUPAG=1 * * MOVE KEYS TO FDB KEY AREAS * LDK A4,8 IXINS3 EQU * LDR A2,A11 FDB DATA ADR A2,A4 LD A2,FDBADF,A2 FDB INDEX RF(Z) IXINS4 NO INDEX LD A1,FDBKA,A2 KEY ADDR LD A3,FDBRLE,A2 RECORD LENGTH AD A1,ECBBA,A8 ADD USER BUF ADDR ADKL A2,FDBKEY KEY ADDRESS SUK A3,6 KEY LGTH CF A15,MOVUS MOVE KEY IXINS4 EQU * SUK A4,2 RB(NZ) IXINS3 MORE INDEXS XIF * EJECT TIOSDM * * ********** * WRSQ00 * ********** * * WRITE SEQUENTIAL * WRSQ00 EQU * LC A2,FDBLRN,A11 ANK A2,/FF LD A3,FDBLRN+1,A11 LRN IFT INDXAC=1 RF IXR020 STORE LOG REC NO EJECT * ********** * RDSQIX * ********** * * READ SEQUENTIAL INDEXED * * RDSQIX EQU * CF A14,SWHFDB SWITCH FDB ABL(Z) REQERR FDB NOT FOUND LDR A11,A7 INDEXED FDB ADDRESS * * GET CRN * LDK A2,0 LDK A3,0 * * CHECK THAT FILE ID IS OK * LC A7,FWTFNR,A11 FILE NR CC A7,CRNCIF,A4 RF(NE) IXR020 OTHER INDEX FILE IS CURRENT LC A2,CRNCIF+1,A4 LD A3,CRNCIF+2,A4 LOG REC NO XIF IXR020 EQU * CF A14,ADDONE A2,A3 = A2,A3 + 1 RF TIODMA DO NOT CHECK EOF CONDITION EJECT * ********** * RDSQ00 * ********** * * READ SEQUENTIAL * RDSQ00 EQU * CF A14,ADDONE A2,A3=A2,A3 + 1 RF RAN050 EJECT * ********** * RDRN00 * ********** * * READ RANDOM * RDRN00 EQU * LD A2,ECBCW,A8 REC NR LD A3,ECBCW+2,A8 RAN050 EQU * LDKL A1,LGTERR INCORRECT LENGTH LD A4,ECBRL,A8 RF(NP) TIODME ERROR RETURN IF RL <= 0 RF TIODMA EJECT * * ********** * OPEN * ********** * * OPEN * OPEN EQU * CWK A11,FDBSTA RF(E) OPE050 FILE CODE FREE LDKL A1,EDMERR LDK A2,FCUSED FC USED SC A2,CRNSTA,A4 STATUS RF ENDIO OPE050 EQU * LDKL A1,LGTERR LDKL A4,FPB:FR+8 MIN LGTH CW A4,ECBRL,A8 REQ RF(G) ENDIO ERROR RF TIORRO * EJECT TIOSDM * * ********** * RDFIPA * ********** * * READ FILE PARAMETR * RDFIPA EQU * ST A2,ECBCW,A8 ST A3,ECBCW+2,A8 TIORRO EQU * LDKL A4,-1 ST A4,FDBRRO,A11 MARK ORDER TYPE RF ACTDM0 ACTIVATE DN TASK #D * EJECT * ********** * CLOSED * ********** * * CLOSED EQU * * * TEST IF INDEX * * LC A1,FDBNIF,A11 * ANK A1,/F NUMBER OF INDEX FILES * ABL(NZ) REQERR INDEX NOT ALLOWED WHEN CLOSE DISCARD LD A1,FDBEXC,A11 TTAB EXCLUSIVE =2 RF(NZ) CLOSE CLOSE DISCARD ALLOWED =2 LDKL A1,RQERR INDICATE REQUEST ERROR =2 ORS A1,ECBRC,A8 SET RETURN CODE =2 SC A1,DWTOR,A11 CHANGE CLOSE D. TO CLOSE =2 EJECT * ********** * CLOSE * ********** * * CLOSE EQU * * * CONNECT FILE CODE TO SYSTEM FWT * LDR A1,A5 USER TTAB LDR* A2,A8 ANK A2,/FF FILE CODE LDK A5,0 SEARCH TTAB AND CDTAB CF A14,FNDFDB SEARCH LDKL A2,FDBSTA SYSTEM FWT ADDR ST A2,2,A4 FC ENTRY LDK A1,0 LC A1,FDBLRN,A11 LD A2,FDBLRN+1,A11 LAST RECORD NR RF(NZ) CLO100 LDR A1,A1 RF(NZ) CLO100 LDK A2,1 LRN CLO100 EQU * RF TIODMD EJECT * ********** * STEQ00 * * STGR00 * * STNL00 * ********** * * START EQUAL,GREATER AND NOT LESS * STEQ00 EQU * STGR00 EQU * STNL00 EQU * LD A2,ECBCW,A8 REC NR LD A3,ECBCW+2,A8 CWK A10,QSTG00 START GREATER RB(E) IXR020 GET NEXT RECORD NUMBER EJECT * ********** * RWCU00 * * RWCUIX * * DECU00 * * DECUIX * * WRRN00 * * RWDI00 * * DEDI00 * * TIODMA * ********** * * REWRITE CURRENT,REWRITE CURRENT INDEXED * DELETE CURRENT,DELETE CURRENT INDEXED * WRITE RANDOM,REWRITE DIRECT * DELETE DIRECT * RWCU00 EQU * RWCUIX EQU * DECU00 EQU * DECUIX EQU * TIODMA EQU * ST A2,ECBCW,A8 REC NR ST A3,ECBCW+2,A8 WRRN00 EQU * WRITE RANDOM RWDI00 EQU * REWRITE DIRECT DEDI00 EQU * DELETE DIRECT LD A1,ECBCW,A8 RECORD NUMBER LD A2,ECBCW+2,A8 * EJECT TIOSDM * * NO EA FOR OTHER TASK * LDR A9,A11 SAVE FDB ADDRESS LD A11,FDBADF,A11 CF A14,EATEST LDR A11,A9 SAVED FDB ADDRESS ADK A3,0 RF(N) TIODPE EA OTHER TASK TIODMD EQU * CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR RF(NZ) TIODME * EJECT * ************************* * SDMTSK ACTIVATION * ************************* * * ACTDM0 EQU * LDR A6,A11 FDB ADDRESS LDKL A2,SDMTSK ACTIVATION ADDRESS CWK A10,QWRSQ0 ABL(L) DMACTD ADMINISTRATION FUNCTION ABL DMACTI ACTIVATE DM TASK * EJECT * ********** * TIODPE * * TIODME * * ENDIO * ********** * * ERROR :RETURN VIA DISEND * TIODPE EQU * PROTECT ERR EXIT LC A3,FDBTNR,A11 USER TASK ID ANK A3,/FF CF A14,RELPRO RELEASE PROTECT LDKL A1,PROERR TIODME EQU * LD A6,FDBADF,A11 DATA FILE FDB ADDR ENDIOL EQU * ABL DISEND CALL TENDIO GOTO DISPATCHER ENDIO EQU * LDR A6,A11 FDB ADDRESS RB ENDIOL * EJECT TIOSDM * * ********** * CHKORD * ********** * * CHECK IF ORDER IN TABLE * * INPUT : A10=ADDRESS TO ORDER TABLE END * A3=LENGTH * A7=ORDER/OPTION * * OUTPUT: A2=ORDER BIT * A3=ENTRY NUMBER IN TABLE * A10=ADDRESS TO FIT OR IF NOT FIT * TABLE BEGINNING - 2 * CR=0 IF ORDER FOUND IN TABLE * CR=2 ELSE * CHKORD EQU * ADKL A14,4 CHKO10 EQU * SRL A2,1 CWR* A7,A10 RF(E) CHKO20 ORDER IN TABLE SUKL A10,2 NEXT ENTRY SUK A3,2 RB(NN) CHKO10 NEXT ENTRY IN TABLE CHKO20 EQU * ABR* A14 * * EJECT TIOSDM * ********** * ADDONE * ********** * * DOUBLE ADD ONE ON REGISTERS A2,A3 * ADDONE EQU * ADK A3,1 RF(P) ADDO10 NOT OVERFLOW OR NEGATIVE LDK A3,0 ADK A2,1 ADD CARRY ADDO10 EQU * RTN A14 * EJECT TIOSDM * ********** * SWHFDB * ********** * * SWITCH FDB ADDRESS AND MOVE PARAMETERS * * INPUT : A11=FDB ADDRESS * OUTPUT : A7=INDEX FDB ADDRESS * A7=0 , IF NO INDEX FDB ADDRESS FOUND * CR SET ACCORDING TO A7 * A3 IS USED * SWHFDB EQU * LD A7,DWTOR,A11 GET INDEX SRL A7,10 SUK A7,2 ADR A7,A11 BASE IN DATA FDB LD A7,FDBAI1,A7 INDEX FDB ADDR RF(Z) SWHF90 NOT FOUND SWHECO EQU * SWITCH ECB AND ORDER =4 LD A3,DWTECB,A11 MOVE PARAMETERS ST A3,DWTECB,A7 LD A3,DWTOR,A11 ST A3,DWTOR,A7 SWHF90 EQU * ADKL A14,4 ADK A7,0 ABR* A14 * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TIOSDM REL 11.0 81-02-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0078 Head {h00=0x0036, h01=0x0050, text=» =4,MOVE KEY WHEN DELETE,REWRITE DIRECT INDEXED «, t00=0x0000, t01=0x0042}
0x0078…0098 Head {h00=0x001c, h01=0x0050, text=» =4,REL 11.0 81-02-24 «, t00=0x0000, t01=0x007c}
0x0098…00d6 Head {h00=0x003a, h01=0x0050, text=» =3,SKIP BITS 1-4 IN ORDER WHEN WRITE,DELETE,REWRITE«, t00=0x0000, t01=0x009c}
0x00d6…00f6 Head {h00=0x001c, h01=0x0050, text=» =3,REL 11.0 81-02-12 «, t00=0x0000, t01=0x00da}
0x00f6…012a Head {h00=0x0030, h01=0x0050, text=» =2,CLOSE D. WILL BE CLOSE IF WR. OP MODE «, t00=0x0000, t01=0x00fa}
0x012a…014a Head {h00=0x001c, h01=0x0050, text=» =2,REL 11.0 81-02-05 «, t00=0x0000, t01=0x012e}
0x014a…0178 Head {h00=0x002a, h01=0x0050, text=» =1, OPEN MODES ALLOWED WRONG ORDERS«, t00=0x0000, t01=0x014e}
0x0178…0198 Head {h00=0x001c, h01=0x0050, text=» =1, REL 11.0 81-01-26«, t00=0x0000, t01=0x017c}
0x0198…01d4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x000c}
0x01d4…01de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0048}
0x01de…0206 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0001, t01=0x0052}
0x0206…0210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007a}
0x0210…024e Head {h00=0x003a, h01=0x0050, text=»* TIOSDM = STANDARD DATA MANAGEMENT ACTIVATION PART«, t00=0x0001, t01=0x0084}
0x024e…0258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c2}
0x0258…0262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00cc}
0x0262…026c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026c…0276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0276…0280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x0280…028a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f4}
0x028a…02c6 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x00fe}
0x02c6…02d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02d0…0316 Head {h00=0x0042, h01=0x0050, text=»* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO«, t00=0x0001, t01=0x0144}
0x0316…0348 Head {h00=0x002e, h01=0x0050, text=»* AND THE DWTADR IN FDB FOR CURRENT FILE«, t00=0x0001, t01=0x018a}
0x0348…0352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002c}
0x0352…039e Head {h00=0x0048, h01=0x0050, text=»* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR «, t00=0x0002, t01=0x0036}
0x039e…03c6 Head {h00=0x0024, h01=0x0050, text=»* FROM A DISC MUST BE ACCESSED«, t00=0x0002, t01=0x0082}
0x03c6…03d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00aa}
0x03d0…0412 Head {h00=0x003e, h01=0x0050, text=»* ENTRY TIOSDM AND TIOSDM HOLDS THE START ADDRESS«, t00=0x0002, t01=0x00b4}
0x0412…041c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f6}
0x041c…0426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0100}
0x0426…044a Head {h00=0x0020, h01=0x0050, text=»* INPUT A11= FWT ADDRESS«, t00=0x0002, t01=0x010a}
0x044a…047c Head {h00=0x002e, h01=0x0050, text=»* A7 = ORDER WORD WITH W BIT = 0«, t00=0x0002, t01=0x012e}
0x047c…04a0 Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0002, t01=0x0160}
0x04a0…04aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0184}
0x04aa…04b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018e}
0x04b4…04ca Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0003, t01=0x0008}
0x04ca…04d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001e}
0x04d4…050e Head {h00=0x0036, h01=0x0050, text=»* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT «, t00=0x0003, t01=0x0028}
0x050e…0518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0062}
0x0518…0550 Head {h00=0x0034, h01=0x0050, text=»* THE FOLLOWING WORDS WILL BE SET IN THE FDB: «, t00=0x0003, t01=0x006c}
0x0550…057a Head {h00=0x0026, h01=0x0050, text=»* FDBSNR SECTOR NUMBER IN FILE«, t00=0x0003, t01=0x00a4}
0x057a…05ae Head {h00=0x0030, h01=0x0050, text=»* FDBRRO RELATIVE RECORD OFFSET IN BLOCK«, t00=0x0003, t01=0x00ce}
0x05ae…05e0 Head {h00=0x002e, h01=0x0050, text=»* FDBTNR TASK NUMBER FOR CALLING TASK «, t00=0x0003, t01=0x0102}
0x05e0…0612 Head {h00=0x002e, h01=0x0050, text=»* FDBCEX CURRENT EXTENT BLOCK POINTER «, t00=0x0003, t01=0x0134}
0x0612…061c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0166}
0x061c…0626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0170}
0x0626…066e Head {h00=0x0044, h01=0x0050, text=»* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: «, t00=0x0003, t01=0x017a}
0x066e…0692 Head {h00=0x0020, h01=0x0050, text=»* LDKL A1,/<RETURN CODE>«, t00=0x0004, t01=0x0032}
0x0692…06ac Head {h00=0x0016, h01=0x0050, text=»* ABL DISEND «, t00=0x0004, t01=0x0056}
0x06ac…06b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0070}
0x06b6…06c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007a}
0x06c0…06ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0084}
0x06ce…06d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0092}
0x06d8…06ee Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0004, t01=0x009c}
0x06ee…0704 Head {h00=0x0012, h01=0x0050, text=»* ENTRIES *«, t00=0x0004, t01=0x00b2}
0x0704…071a Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0004, t01=0x00c8}
0x071a…0724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00de}
0x0724…074e Head {h00=0x0026, h01=0x0050, text=» ENTRY TIOSDM REFERENCED IN DWTADR«, t00=0x0004, t01=0x00e8}
0x074e…0758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0112}
0x0758…077c Head {h00=0x0020, h01=0x0050, text=» ENTRY SDMOIE,SDMIOP,SDMOEE «, t00=0x0004, t01=0x011c}
0x077c…07a0 Head {h00=0x0020, h01=0x0050, text=» ENTRY SDMOOS,SDMOOR,SDMLIM «, t00=0x0004, t01=0x0140}
0x07a0…07bc Head {h00=0x0018, h01=0x0050, text=» ENTRY SDMOEX,SDMOIP«, t00=0x0004, t01=0x0164}
0x07bc…07d2 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0004, t01=0x0180}
0x07d2…07dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07dc…07f6 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0005, t01=0x0012}
0x07f6…0810 Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS *«, t00=0x0005, t01=0x002c}
0x0810…082a Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0005, t01=0x0046}
0x082a…0834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0060}
0x0834…084a Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBRRO «, t00=0x0005, t01=0x006a}
0x084a…0860 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBRLE «, t00=0x0005, t01=0x0080}
0x0860…0876 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBTNR «, t00=0x0005, t01=0x0096}
0x0876…088c Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBLRN «, t00=0x0005, t01=0x00ac}
0x088c…08ae Head {h00=0x001e, h01=0x0050, text=» EXTRN FDBNIF,FDBKA,FDBADF«, t00=0x0005, t01=0x00c2}
0x08ae…08d2 Head {h00=0x0020, h01=0x0050, text=» EXTRN FDBAI1,CRNCDF,CRNSTA «, t00=0x0005, t01=0x00e4}
0x08d2…090c Head {h00=0x0036, h01=0x0050, text=» EXTRN FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS «, t00=0x0005, t01=0x0108}
0x090c…0922 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBSTA «, t00=0x0005, t01=0x0142}
0x0922…0938 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBOMD «, t00=0x0005, t01=0x0158}
0x0938…095c Head {h00=0x0020, h01=0x0050, text=» EXTRN PROERR,LGTERR,EDMERR «, t00=0x0005, t01=0x016e}
0x095c…0972 (6, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTTCT «, t00=0x0006, t01=0x0004}
0x0972…0988 Head {h00=0x0012, h01=0x0050, text=» EXTRN RELPRO «, t00=0x0006, t01=0x001a}
0x0988…099c Head {h00=0x0010, h01=0x0050, text=» EXTRN ACTOT«, t00=0x0006, t01=0x0030}
0x099c…09b2 Head {h00=0x0012, h01=0x0050, text=» EXTRN DISEND «, t00=0x0006, t01=0x0044}
0x09b2…09d4 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0006, t01=0x005a}
0x09d4…09fc Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0006, t01=0x007c}
0x09fc…0a26 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTTAB DM TASK TTAB ADDRESS«, t00=0x0006, t01=0x00a4}
0x0a26…0a3c Head {h00=0x0012, h01=0x0050, text=» EXTRN SDMTSK «, t00=0x0006, t01=0x00ce}
0x0a3c…0a52 Head {h00=0x0012, h01=0x0050, text=» EXTRN CALSNO «, t00=0x0006, t01=0x00e4}
0x0a52…0a78 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBBA,ECBRL,ECBCW,ECBRC«, t00=0x0006, t01=0x00fa}
0x0a78…0a94 Head {h00=0x0018, h01=0x0050, text=» EXTRN CRNGET,EATEST«, t00=0x0006, t01=0x0120}
0x0a94…0ab2 Head {h00=0x001a, h01=0x0050, text=» EXTRN FWTFNR FILE NR «, t00=0x0006, t01=0x013c}
0x0ab2…0ad6 Head {h00=0x0020, h01=0x0050, text=» EXTRN FNDFDB SDMTSK ROUTINE«, t00=0x0006, t01=0x015a}
0x0ad6…0aec Head {h00=0x0012, h01=0x0050, text=» EXTRN FPB:FR «, t00=0x0006, t01=0x017e}
0x0aec…0b08 (7, 0, 400) Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBEXC,MOVUS «, t00=0x0007, t01=0x0004}
0x0b08…0b34 Head {h00=0x0028, h01=0x0050, text=» EXTRN CRNCIF INDEX CURRENCY OFFSET «, t00=0x0007, t01=0x0020}
0x0b34…0b50 Head {h00=0x0018, h01=0x0050, text=» EXTRN DMACTI,DMACTD«, t00=0x0007, t01=0x004c}
0x0b50…0b66 Head {h00=0x0012, h01=0x0050, text=» EXTRN DISIOE «, t00=0x0007, t01=0x0068}
0x0b66…0b88 Head {h00=0x001e, h01=0x0050, text=» EXTRN TTABD,TTABLN,TABEND«, t00=0x0007, t01=0x007e}
0x0b88…0b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a0}
0x0b92…0ba0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00aa}
0x0ba0…0baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b8}
0x0baa…0bca Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x00c2}
0x0bca…0bea Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x00e2}
0x0bea…0c0a Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0102}
0x0c0a…0c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0122}
0x0c14…0c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012c}
0x0c1e…0c62 Head {h00=0x0040, h01=0x0050, text=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED «, t00=0x0007, t01=0x0136}
0x0c62…0c86 Head {h00=0x0020, h01=0x0050, text=»* BY SETTING INDXAC EQU 1 «, t00=0x0007, t01=0x017a}
0x0c86…0cb4 Head {h00=0x002a, h01=0x0050, text=»* INDXAC EQU 0 OTHRERWISE«, t00=0x0008, t01=0x000e}
0x0cb4…0cc6 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x003c}
0x0cc6…0cdc Head {h00=0x0012, h01=0x0050, text=»INDXAC EQU X:A«, t00=0x0008, t01=0x004e}
0x0cdc…0ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0064}
0x0ce6…0cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006e}
0x0cf0…0d22 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0078}
0x0d22…0d50 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00aa}
0x0d50…0d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d8}
0x0d5a…0d6e Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0008, t01=0x00e2}
0x0d6e…0d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d78…0d86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0100}
0x0d86…0d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010e}
0x0d90…0da8 Head {h00=0x0014, h01=0x0050, text=»* ERROR CODES «, t00=0x0008, t01=0x0118}
0x0da8…0db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x0db2…0dc6 Head {h00=0x0010, h01=0x0050, text=»* MESSAGES«, t00=0x0008, t01=0x013a}
0x0dc6…0dd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x014e}
0x0dd0…0dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0158}
0x0dda…0e00 Head {h00=0x0022, h01=0x0050, text=»FCUSED EQU 7 INVALID FILE CODE«, t00=0x0008, t01=0x0162}
0x0e00…0e08 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0188}
0x0e08…0e20 Head {h00=0x0014, h01=0x0050, text=»RQERR EQU /8000 «, t00=0x0008, t01=0x0190}
0x0e20…0e2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0018}
0x0e2e…0e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0026}
0x0e38…0e58 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0030}
0x0e58…0e78 Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x0009, t01=0x0050}
0x0e78…0e98 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0070}
0x0e98…0ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0090}
0x0ea2…0eba Head {h00=0x0014, h01=0x0050, text=»* BRANCH TABLE«, t00=0x0009, t01=0x009a}
0x0eba…0ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b2}
0x0ec4…0ed8 Head {h00=0x0010, h01=0x0050, text=»TIODMF EQU *«, t00=0x0009, t01=0x00bc}
0x0ed8…0eee Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0009, t01=0x00d0}
0x0eee…0f00 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x00e6}
0x0f00…0f12 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x00f8}
0x0f12…0f24 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x010a}
0x0f24…0f36 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x011c}
0x0f36…0f48 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x012e}
0x0f48…0f5a Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x0140}
0x0f5a…0f6c Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x0152}
0x0f6c…0f7e Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x0164}
0x0f7e…0f9a Head {h00=0x0018, h01=0x0050, text=»QCLDIS EQU *-TIODMF «, t00=0x0009, t01=0x0176}
0x0f9a…0fae (10, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA CLOSED«, t00=0x000a, t01=0x0004}
0x0fae…0fc2 Head {h00=0x0010, h01=0x0050, text=» DATA CLOSE «, t00=0x000a, t01=0x0018}
0x0fc2…0fd6 Head {h00=0x0010, h01=0x0050, text=» DATA RDFIPA«, t00=0x000a, t01=0x002c}
0x0fd6…0ff2 Head {h00=0x0018, h01=0x0050, text=»SDMOEX EQU *-TIODMF «, t00=0x000a, t01=0x0040}
0x0ff2…1010 Head {h00=0x001a, h01=0x0050, text=» DATA DISIOE NOT USED «, t00=0x000a, t01=0x005c}
0x1010…101a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007a}
0x101a…1030 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x000a, t01=0x0084}
0x1030…103a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009a}
0x103a…1044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a4}
0x1044…1060 Head {h00=0x0018, h01=0x0050, text=»QWRSQ0 EQU *-TIODMF «, t00=0x000a, t01=0x00ae}
0x1060…1074 Head {h00=0x0010, h01=0x0050, text=» DATA WRSQ00«, t00=0x000a, t01=0x00ca}
0x1074…1094 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000a, t01=0x00de}
0x1094…10a8 Head {h00=0x0010, h01=0x0050, text=» DATA WRRN00«, t00=0x000a, t01=0x00fe}
0x10a8…10bc Head {h00=0x0010, h01=0x0050, text=» DATA WRRNIX«, t00=0x000a, t01=0x0112}
0x10bc…10d0 Head {h00=0x0010, h01=0x0050, text=» DATA RWCU00«, t00=0x000a, t01=0x0126}
0x10d0…10e4 Head {h00=0x0010, h01=0x0050, text=» DATA RWCUIX«, t00=0x000a, t01=0x013a}
0x10e4…10f8 Head {h00=0x0010, h01=0x0050, text=» DATA RWDI00«, t00=0x000a, t01=0x014e}
0x10f8…110c Head {h00=0x0010, h01=0x0050, text=» DATA RWDIIX«, t00=0x000a, t01=0x0162}
0x110c…1120 Head {h00=0x0010, h01=0x0050, text=» DATA DECU00«, t00=0x000a, t01=0x0176}
0x1120…1134 Head {h00=0x0010, h01=0x0050, text=» DATA DECUIX«, t00=0x000a, t01=0x018a}
0x1134…1148 Head {h00=0x0010, h01=0x0050, text=» DATA DEDI00«, t00=0x000b, t01=0x000e}
0x1148…115c Head {h00=0x0010, h01=0x0050, text=» DATA DEDIIX«, t00=0x000b, t01=0x0022}
0x115c…1178 Head {h00=0x0018, h01=0x0050, text=»QRDSQ0 EQU *-TIODMF «, t00=0x000b, t01=0x0036}
0x1178…118c Head {h00=0x0010, h01=0x0050, text=» DATA RDSQ00«, t00=0x000b, t01=0x0052}
0x118c…11a0 Head {h00=0x0010, h01=0x0050, text=» DATA RDSQIX«, t00=0x000b, t01=0x0066}
0x11a0…11b4 Head {h00=0x0010, h01=0x0050, text=» DATA RDRN00«, t00=0x000b, t01=0x007a}
0x11b4…11c8 Head {h00=0x0010, h01=0x0050, text=» DATA RDRNIX«, t00=0x000b, t01=0x008e}
0x11c8…11dc Head {h00=0x0010, h01=0x0050, text=» DATA STEQ00«, t00=0x000b, t01=0x00a2}
0x11dc…11f0 Head {h00=0x0010, h01=0x0050, text=» DATA STEQIX«, t00=0x000b, t01=0x00b6}
0x11f0…120c Head {h00=0x0018, h01=0x0050, text=»QSTG00 EQU *-TIODMF «, t00=0x000b, t01=0x00ca}
0x120c…1220 Head {h00=0x0010, h01=0x0050, text=» DATA STGR00«, t00=0x000b, t01=0x00e6}
0x1220…123c Head {h00=0x0018, h01=0x0050, text=»QSTGIX EQU *-TIODMF «, t00=0x000b, t01=0x00fa}
0x123c…1250 Head {h00=0x0010, h01=0x0050, text=» DATA STGRIX«, t00=0x000b, t01=0x0116}
0x1250…1264 Head {h00=0x0010, h01=0x0050, text=» DATA STNL00«, t00=0x000b, t01=0x012a}
0x1264…1278 Head {h00=0x0010, h01=0x0050, text=» DATA STNLIX«, t00=0x000b, t01=0x013e}
0x1278…1282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0152}
0x1282…128e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x015c}
0x128e…12a4 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000b, t01=0x0168}
0x12a4…12b6 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000b, t01=0x017e}
0x12b6…12c8 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000b, t01=0x0190}
0x12c8…12da Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x0012}
0x12da…12ec Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x0024}
0x12ec…12fe Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x0036}
0x12fe…1310 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x0048}
0x1310…1322 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x005a}
0x1322…1334 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x006c}
0x1334…1350 Head {h00=0x0018, h01=0x0050, text=»QCLDIS EQU *-TIODMF «, t00=0x000c, t01=0x007e}
0x1350…1364 Head {h00=0x0010, h01=0x0050, text=» DATA CLOSE «, t00=0x000c, t01=0x009a}
0x1364…1378 Head {h00=0x0010, h01=0x0050, text=» DATA CLOSE «, t00=0x000c, t01=0x00ae}
0x1378…138c Head {h00=0x0010, h01=0x0050, text=» DATA RDFIPA«, t00=0x000c, t01=0x00c2}
0x138c…13a8 Head {h00=0x0018, h01=0x0050, text=»SDMOEX EQU *-TIODMF «, t00=0x000c, t01=0x00d6}
0x13a8…13c6 Head {h00=0x001a, h01=0x0050, text=» DATA DISIOE NOT USED «, t00=0x000c, t01=0x00f2}
0x13c6…13d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0110}
0x13d0…13e6 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x000c, t01=0x011a}
0x13e6…13f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0130}
0x13f0…13fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013a}
0x13fa…1416 Head {h00=0x0018, h01=0x0050, text=»QWRSQ0 EQU *-TIODMF «, t00=0x000c, t01=0x0144}
0x1416…142a Head {h00=0x0010, h01=0x0050, text=» DATA WRSQ00«, t00=0x000c, t01=0x0160}
0x142a…144a Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000c, t01=0x0174}
0x144a…145e (13, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA WRRN00«, t00=0x000d, t01=0x0004}
0x145e…147e Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x0018}
0x147e…1492 Head {h00=0x0010, h01=0x0050, text=» DATA RWCU00«, t00=0x000d, t01=0x0038}
0x1492…14b2 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x004c}
0x14b2…14c6 Head {h00=0x0010, h01=0x0050, text=» DATA RWDI00«, t00=0x000d, t01=0x006c}
0x14c6…14e6 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x0080}
0x14e6…14fa Head {h00=0x0010, h01=0x0050, text=» DATA DECU00«, t00=0x000d, t01=0x00a0}
0x14fa…151a Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x00b4}
0x151a…152e Head {h00=0x0010, h01=0x0050, text=» DATA DEDI00«, t00=0x000d, t01=0x00d4}
0x152e…154e Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x00e8}
0x154e…156a Head {h00=0x0018, h01=0x0050, text=»QRDSQ0 EQU *-TIODMF «, t00=0x000d, t01=0x0108}
0x156a…157e Head {h00=0x0010, h01=0x0050, text=» DATA RDSQ00«, t00=0x000d, t01=0x0124}
0x157e…159e Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x0138}
0x159e…15b2 Head {h00=0x0010, h01=0x0050, text=» DATA RDRN00«, t00=0x000d, t01=0x0158}
0x15b2…15d2 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x016c}
0x15d2…15e6 Head {h00=0x0010, h01=0x0050, text=» DATA STEQ00«, t00=0x000d, t01=0x018c}
0x15e6…1606 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000e, t01=0x0010}
0x1606…1622 Head {h00=0x0018, h01=0x0050, text=»QSTG00 EQU *-TIODMF «, t00=0x000e, t01=0x0030}
0x1622…1636 Head {h00=0x0010, h01=0x0050, text=» DATA STGR00«, t00=0x000e, t01=0x004c}
0x1636…1656 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000e, t01=0x0060}
0x1656…166a Head {h00=0x0010, h01=0x0050, text=» DATA STNL00«, t00=0x000e, t01=0x0080}
0x166a…168a Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000e, t01=0x0094}
0x168a…1696 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00b4}
0x1696…16a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c0}
0x16a0…16b6 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x000e, t01=0x00ca}
0x16b6…16c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e0}
0x16c0…16d2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00ea}
0x16d2…16e4 Head {h00=0x000e, h01=0x0050, text=»* OPEMOD *«, t00=0x000e, t01=0x00fc}
0x16e4…16f6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x010e}
0x16f6…1700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0120}
0x1700…1736 Head {h00=0x0032, h01=0x0050, text=»* TABLE OVER ALLOWED IO ORDERS VS OPENMODES «, t00=0x000e, t01=0x012a}
0x1736…1740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0160}
0x1740…1754 Head {h00=0x0010, h01=0x0050, text=»* BIT ORDER «, t00=0x000e, t01=0x016a}
0x1754…176c Head {h00=0x0014, h01=0x0050, text=»* 0 NOT USED =1 «, t00=0x000e, t01=0x017e}
0x176c…1784 Head {h00=0x0014, h01=0x0050, text=»* 1 NOT USED =1 «, t00=0x000f, t01=0x0008}
0x1784…17a2 Head {h00=0x001a, h01=0x0050, text=»* 2 START NOT LESS =1 «, t00=0x000f, t01=0x0020}
0x17a2…17be Head {h00=0x0018, h01=0x0050, text=»* 3 START GREATER =1«, t00=0x000f, t01=0x003e}
0x17be…17d8 Head {h00=0x0016, h01=0x0050, text=»* 4 START EQUAL =1«, t00=0x000f, t01=0x005a}
0x17d8…17f2 Head {h00=0x0016, h01=0x0050, text=»* 5 READ RANDOM =1«, t00=0x000f, t01=0x0074}
0x17f2…1810 Head {h00=0x001a, h01=0x0050, text=»* 6 READ SEQUENTIAL =1«, t00=0x000f, t01=0x008e}
0x1810…182c Head {h00=0x0018, h01=0x0050, text=»* 7 DELETE DIRECT =1«, t00=0x000f, t01=0x00ac}
0x182c…184a Head {h00=0x001a, h01=0x0050, text=»* 8 DELETE CURRENT =1 «, t00=0x000f, t01=0x00c8}
0x184a…1868 Head {h00=0x001a, h01=0x0050, text=»* 9 REWRITE DIRECT =1 «, t00=0x000f, t01=0x00e6}
0x1868…1888 Head {h00=0x001c, h01=0x0050, text=»* 10 REWRITE CURRENT =1 «, t00=0x000f, t01=0x0104}
0x1888…18a4 Head {h00=0x0018, h01=0x0050, text=»* 11 WRITE RANDOM =1«, t00=0x000f, t01=0x0124}
0x18a4…18c4 Head {h00=0x001c, h01=0x0050, text=»* 12 WRITE SEQUENTIAL =1«, t00=0x000f, t01=0x0140}
0x18c4…18de Head {h00=0x0016, h01=0x0050, text=»* 13 NOT USED =2 «, t00=0x000f, t01=0x0160}
0x18de…18f8 Head {h00=0x0016, h01=0x0050, text=»* 14 NOT USED =2 «, t00=0x000f, t01=0x017a}
0x18f8…1912 (16, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* 15 NOT USED =2 «, t00=0x0010, t01=0x0004}
0x1912…191c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001e}
0x191c…1930 Head {h00=0x0010, h01=0x0050, text=»OPEMOD EQU *«, t00=0x0010, t01=0x0028}
0x1930…1954 Head {h00=0x0020, h01=0x0050, text=» DATA /3E00 INPUT UNPROT. =2«, t00=0x0010, t01=0x003c}
0x1954…197a Head {h00=0x0022, h01=0x0050, text=» DATA /3E00 INPUT PROTECTED =2«, t00=0x0010, t01=0x0060}
0x197a…19a0 Head {h00=0x0022, h01=0x0050, text=» DATA /3E00 INPUT EXCLUSIVE =2«, t00=0x0010, t01=0x0086}
0x19a0…19ca Head {h00=0x0026, h01=0x0050, text=» DATA /3FF8 INPUT/OUTPUT PROT. =2 «, t00=0x0010, t01=0x00ac}
0x19ca…19f4 Head {h00=0x0026, h01=0x0050, text=» DATA /3FF8 INPUT/OUTPUT EXCL. =2 «, t00=0x0010, t01=0x00d6}
0x19f4…1a1c Head {h00=0x0024, h01=0x0050, text=» DATA /0008 EXTEND EXCLUSIVE =2 «, t00=0x0010, t01=0x0100}
0x1a1c…1a44 Head {h00=0x0024, h01=0x0050, text=» DATA /0008 OUTPUT SEQUENTIAL =2«, t00=0x0010, t01=0x0128}
0x1a44…1a68 Head {h00=0x0020, h01=0x0050, text=» DATA /0018 OUTPUT RANDOM =2«, t00=0x0010, t01=0x0150}
0x1a68…1a7e Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0010, t01=0x0174}
0x1a7e…1a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018a}
0x1a88…1a92 (17, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0004}
0x1a92…1aa4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x000e}
0x1aa4…1ab6 Head {h00=0x000e, h01=0x0050, text=»* ORDTA1 *«, t00=0x0011, t01=0x0020}
0x1ab6…1ac8 Head {h00=0x000e, h01=0x0050, text=»* ORDTA2 *«, t00=0x0011, t01=0x0032}
0x1ac8…1ada Head {h00=0x000e, h01=0x0050, text=»* ORDTA3 *«, t00=0x0011, t01=0x0044}
0x1ada…1aec Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x0056}
0x1aec…1af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0068}
0x1af6…1b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0072}
0x1b00…1b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007c}
0x1b0a…1b48 Head {h00=0x003a, h01=0x0050, text=»* ORDTA1: ADMINISTATION FUNCTION ORDERS (NO INDEX)«, t00=0x0011, t01=0x0086}
0x1b48…1b96 Head {h00=0x004a, h01=0x0050, text=»* ORDTA2: ORDER WITH SPECIAL INDEX HANDLING (FDBNIF CONTAIN INDEX)«, t00=0x0011, t01=0x00c4}
0x1b96…1bd4 Head {h00=0x003a, h01=0x0050, text=»* ORDTA3: ORDERS WITH INTERNAL INDEX IN ORDER WORD«, t00=0x0011, t01=0x0112}
0x1bd4…1bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0150}
0x1bde…1be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015a}
0x1be8…1bfe Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0011, t01=0x0164}
0x1bfe…1c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017a}
0x1c08…1c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0184}
0x1c12…1c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018e}
0x1c1c…1c30 Head {h00=0x0010, h01=0x0050, text=»ORDTA1 EQU *«, t00=0x0012, t01=0x0008}
0x1c30…1c5c Head {h00=0x0028, h01=0x0050, text=» DATA /821 OPEN INPUT UNPROTECTED«, t00=0x0012, t01=0x001c}
0x1c5c…1c78 Head {h00=0x0018, h01=0x0050, text=»SDMOIP EQU *-ORDTA1 «, t00=0x0012, t01=0x0048}
0x1c78…1ca2 Head {h00=0x0026, h01=0x0050, text=» DATA /921 OPEN INPUT PROTECTED«, t00=0x0012, t01=0x0064}
0x1ca2…1cbe Head {h00=0x0018, h01=0x0050, text=»SDMOIE EQU *-ORDTA1 «, t00=0x0012, t01=0x008e}
0x1cbe…1ce8 Head {h00=0x0026, h01=0x0050, text=» DATA /A21 OPEN INPUT EXCLUSIVE«, t00=0x0012, t01=0x00aa}
0x1ce8…1d04 Head {h00=0x0018, h01=0x0050, text=»SDMIOP EQU *-ORDTA1 «, t00=0x0012, t01=0x00d4}
0x1d04…1d36 Head {h00=0x002e, h01=0x0050, text=» DATA /3921 OPEN INPUT/OUTPUT PROTECTED«, t00=0x0012, t01=0x00f0}
0x1d36…1d68 Head {h00=0x002e, h01=0x0050, text=» DATA /3A21 OPEN INPUT/OUTPUT EXCLUSIVE«, t00=0x0012, t01=0x0122}
0x1d68…1d84 Head {h00=0x0018, h01=0x0050, text=»SDMOEE EQU *-ORDTA1 «, t00=0x0012, t01=0x0154}
0x1d84…1db0 Head {h00=0x0028, h01=0x0050, text=» DATA /5221 OPEN EXTEND EXCLUSIVE«, t00=0x0012, t01=0x0170}
0x1db0…1dcc Head {h00=0x0018, h01=0x0050, text=»SDMOOS EQU *-ORDTA1 «, t00=0x0013, t01=0x000c}
0x1dcc…1e04 Head {h00=0x0034, h01=0x0050, text=» DATA /1221 OPEN OUTPUT SEQUENTIAL EXCLUSIVE «, t00=0x0013, t01=0x0028}
0x1e04…1e20 Head {h00=0x0018, h01=0x0050, text=»SDMOOR EQU *-ORDTA1 «, t00=0x0013, t01=0x0060}
0x1e20…1e58 Head {h00=0x0034, h01=0x0050, text=» DATA /3221 OPEN OUTPUT RANDOM EXCLUSIVE «, t00=0x0013, t01=0x007c}
0x1e58…1e74 Head {h00=0x0018, h01=0x0050, text=»SDMLIM EQU *-ORDTA1 «, t00=0x0013, t01=0x00b4}
0x1e74…1e96 Head {h00=0x001e, h01=0x0050, text=» DATA /222 CLOSE DISCARD«, t00=0x0013, t01=0x00d0}
0x1e96…1eb4 Head {h00=0x001a, h01=0x0050, text=» DATA /022 CLOSE LOCK«, t00=0x0013, t01=0x00f2}
0x1eb4…1eda Head {h00=0x0022, h01=0x0050, text=» DATA /3 READ FILE PARAMETERS «, t00=0x0013, t01=0x0110}
0x1eda…1ef6 Head {h00=0x0018, h01=0x0050, text=»ORDTL1 EQU *-ORDTA1 «, t00=0x0013, t01=0x0136}
0x1ef6…1f0a Head {h00=0x0010, h01=0x0050, text=»ORDTA2 EQU *«, t00=0x0013, t01=0x0152}
0x1f0a…1f2e Head {h00=0x0020, h01=0x0050, text=» DATA /006 WRITE SEQUENTIAL«, t00=0x0013, t01=0x0166}
0x1f2e…1f4e Head {h00=0x001c, h01=0x0050, text=» DATA /106 WRITE RANDOM «, t00=0x0013, t01=0x018a}
0x1f4e…1f70 Head {h00=0x001e, h01=0x0050, text=» DATA /407 REWRITE CURRENT«, t00=0x0014, t01=0x001a}
0x1f70…1f92 Head {h00=0x001e, h01=0x0050, text=» DATA /107 REWRITE DIRECT «, t00=0x0014, t01=0x003c}
0x1f92…1fb4 Head {h00=0x001e, h01=0x0050, text=» DATA /408 DELETE CURRENT «, t00=0x0014, t01=0x005e}
0x1fb4…1fd4 Head {h00=0x001c, h01=0x0050, text=» DATA /108 DELETE DIRECT«, t00=0x0014, t01=0x0080}
0x1fd4…1ff0 Head {h00=0x0018, h01=0x0050, text=»ORDTL2 EQU *-ORDTA2 «, t00=0x0014, t01=0x00a0}
0x1ff0…1ffe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00bc}
0x1ffe…2012 Head {h00=0x0010, h01=0x0050, text=»ORDTA3 EQU *«, t00=0x0014, t01=0x00ca}
0x2012…2034 Head {h00=0x001e, h01=0x0050, text=» DATA /002 READ SEQUENTIAL«, t00=0x0014, t01=0x00de}
0x2034…2052 Head {h00=0x001a, h01=0x0050, text=» DATA /102 READ RANDOM«, t00=0x0014, t01=0x0100}
0x2052…2070 Head {h00=0x001a, h01=0x0050, text=» DATA /00B START EQUAL«, t00=0x0014, t01=0x011e}
0x2070…2090 Head {h00=0x001c, h01=0x0050, text=» DATA /10B START GREATER«, t00=0x0014, t01=0x013c}
0x2090…20b2 Head {h00=0x001e, h01=0x0050, text=» DATA /20B START NOT LESS «, t00=0x0014, t01=0x015c}
0x20b2…20ce Head {h00=0x0018, h01=0x0050, text=»ORDTL3 EQU *-ORDTA3 «, t00=0x0014, t01=0x017e}
0x20ce…20e2 Head {h00=0x0010, h01=0x0050, text=»ORDTEN EQU *«, t00=0x0015, t01=0x000a}
0x20e2…20ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001e}
0x20ec…20f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x20f6…210c Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0015, t01=0x0032}
0x210c…2116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0048}
0x2116…212a Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0015, t01=0x0052}
0x212a…213c Head {h00=0x000e, h01=0x0050, text=»* ENTRY «, t00=0x0015, t01=0x0066}
0x213c…2150 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0015, t01=0x0078}
0x2150…215a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x008c}
0x215a…2182 Head {h00=0x0024, h01=0x0050, text=»* INPUT : A14 = STACK POINTER «, t00=0x0015, t01=0x0096}
0x2182…21a8 Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB ADDRESS «, t00=0x0015, t01=0x00be}
0x21a8…21ce Head {h00=0x0022, h01=0x0050, text=»* A6 = FDB ADDRESS «, t00=0x0015, t01=0x00e4}
0x21ce…21d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010a}
0x21d8…21ec Head {h00=0x0010, h01=0x0050, text=»TIOSDM EQU *«, t00=0x0015, t01=0x0114}
0x21ec…220c Head {h00=0x001c, h01=0x0050, text=» LDR A11,A6 FDB ADDRESS «, t00=0x0015, t01=0x0128}
0x220c…2232 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,/4000 ORDER CHECK BIT«, t00=0x0015, t01=0x0148}
0x2232…2264 Head {h00=0x002e, h01=0x0050, text=» LDKL A10,ORDTEN-2 CHECK ORDER AND OPTION «, t00=0x0015, t01=0x016e}
0x2264…227c Head {h00=0x0014, h01=0x0050, text=» LDK A3,ORDTL3-2«, t00=0x0016, t01=0x0010}
0x227c…22a6 Head {h00=0x0026, h01=0x0050, text=» LD A7,DWTOR,A11 ORDER AND OPTION «, t00=0x0016, t01=0x0028}
0x22a6…22b8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0016, t01=0x0052}
0x22b8…22d8 Head {h00=0x001c, h01=0x0050, text=» ANKL A7,/7FF NOT INDEX «, t00=0x0016, t01=0x0064}
0x22d8…22ee Head {h00=0x0012, h01=0x0050, text=» CF A14,CHKORD«, t00=0x0016, t01=0x0084}
0x22ee…2310 Head {h00=0x001e, h01=0x0050, text=» RF(N) TIOS10 NOT IN TABLE«, t00=0x0016, t01=0x009a}
0x2310…2322 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0016, t01=0x00bc}
0x2322…234c Head {h00=0x0026, h01=0x0050, text=» ADK A3,QRDSQ0 ADJUST DISPLACEMENT«, t00=0x0016, t01=0x00ce}
0x234c…235e Head {h00=0x000e, h01=0x0050, text=» SRL A1,11«, t00=0x0016, t01=0x00f8}
0x235e…237c Head {h00=0x001a, h01=0x0050, text=» RF(Z) TIOS20 NO INDEX«, t00=0x0016, t01=0x010a}
0x237c…2398 Head {h00=0x0018, h01=0x0050, text=» SUK A1,4 MAX INDEX «, t00=0x0016, t01=0x0128}
0x2398…23bc Head {h00=0x0020, h01=0x0050, text=» RF(NP) TIOS15 ALLOWED INDEX«, t00=0x0016, t01=0x0144}
0x23bc…23d0 Head {h00=0x0010, h01=0x0050, text=»REQERR EQU *«, t00=0x0016, t01=0x0168}
0x23d0…23f0 Head {h00=0x001c, h01=0x0050, text=» LDR A6,A11 FDB ADDRESS «, t00=0x0016, t01=0x017c}
0x23f0…240e Head {h00=0x001a, h01=0x0050, text=» ABL DISIOE REQUEST IO«, t00=0x0017, t01=0x000c}
0x240e…2418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x002a}
0x2418…242e Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0017, t01=0x0034}
0x242e…2438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004a}
0x2438…2442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0054}
0x2442…244c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x005e}
0x244c…2460 Head {h00=0x0010, h01=0x0050, text=»TIOS10 EQU *«, t00=0x0017, t01=0x0068}
0x2460…2486 Head {h00=0x0022, h01=0x0050, text=» LDK A3,ORDTL2-2 TABLE LENGTH «, t00=0x0017, t01=0x007c}
0x2486…249e Head {h00=0x0014, h01=0x0050, text=»* LDR A7,A1 =3 «, t00=0x0017, t01=0x00a2}
0x249e…24b4 Head {h00=0x0012, h01=0x0050, text=» CF A14,CHKORD«, t00=0x0017, t01=0x00ba}
0x24b4…24dc Head {h00=0x0024, h01=0x0050, text=» RF(N) TIOS25 ORDER NOT IN TABLE«, t00=0x0017, t01=0x00d0}
0x24dc…24ee Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0017, t01=0x00f8}
0x24ee…2518 Head {h00=0x0026, h01=0x0050, text=» ADK A3,QWRSQ0 ADJUST DISPLACEMENT«, t00=0x0017, t01=0x010a}
0x2518…2532 Head {h00=0x0016, h01=0x0050, text=» LC A1,FDBNIF,A11 «, t00=0x0017, t01=0x0134}
0x2532…2546 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0017, t01=0x014e}
0x2546…2564 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TIOS20 NO INDEX«, t00=0x0017, t01=0x0162}
0x2564…2578 Head {h00=0x0010, h01=0x0050, text=»TIOS15 EQU *«, t00=0x0017, t01=0x0180}
0x2578…259a (24, 0, 400) Head {h00=0x001e, h01=0x0050, text=» ADK A3,2 INDICATE INDEXED«, t00=0x0018, t01=0x0004}
0x259a…25c8 Head {h00=0x002a, h01=0x0050, text=»TIOS20 EQU * CHECK ORDER VS OPEN MODE«, t00=0x0018, t01=0x0026}
0x25c8…25f0 Head {h00=0x0024, h01=0x0050, text=» LC A1,FDBOMD,A11 GET OPEN MODE «, t00=0x0018, t01=0x0054}
0x25f0…2604 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x0018, t01=0x007c}
0x2604…261c Head {h00=0x0014, h01=0x0050, text=» AN A2,OPEMOD,A1«, t00=0x0018, t01=0x0090}
0x261c…2640 Head {h00=0x0020, h01=0x0050, text=» RB(Z) REQERR ILLEGAL ORDER «, t00=0x0018, t01=0x00a8}
0x2640…2652 Head {h00=0x000e, h01=0x0050, text=» RF TIOS30«, t00=0x0018, t01=0x00cc}
0x2652…265c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00de}
0x265c…2670 Head {h00=0x0010, h01=0x0050, text=»TIOS25 EQU *«, t00=0x0018, t01=0x00e8}
0x2670…269a Head {h00=0x0026, h01=0x0050, text=» LDR A7,A1 ORDER WITH ALL BITS =3 «, t00=0x0018, t01=0x00fc}
0x269a…26b2 Head {h00=0x0014, h01=0x0050, text=» LDK A3,ORDTL1-2«, t00=0x0018, t01=0x0126}
0x26b2…26c8 Head {h00=0x0012, h01=0x0050, text=» CF A14,CHKORD«, t00=0x0018, t01=0x013e}
0x26c8…26ee Head {h00=0x0022, h01=0x0050, text=» RB(N) REQERR ORDER NOT FOUND «, t00=0x0018, t01=0x0154}
0x26ee…26f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017a}
0x26f8…270e Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0018, t01=0x0184}
0x270e…2718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000a}
0x2718…2722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0014}
0x2722…2736 Head {h00=0x0010, h01=0x0050, text=»TIOS30 EQU *«, t00=0x0019, t01=0x001e}
0x2736…274a Head {h00=0x0010, h01=0x0050, text=» LDR A10,A3 «, t00=0x0019, t01=0x0032}
0x274a…2764 Head {h00=0x0016, h01=0x0050, text=» SC A3,DWTOR+1,A11«, t00=0x0019, t01=0x0046}
0x2764…279c Head {h00=0x0034, h01=0x0050, text=» LD A5,DWTTAB,A11 GET CALLING TASK TTAB ADDRESS «, t00=0x0019, t01=0x0060}
0x279c…27c0 Head {h00=0x0020, h01=0x0050, text=» SUK A3,QCLDIS CLOSE DISCARD«, t00=0x0019, t01=0x0098}
0x27c0…27e0 Head {h00=0x001c, h01=0x0050, text=» RF(N) TIOS35 OPEN ORDER«, t00=0x0019, t01=0x00bc}
0x27e0…27f8 Head {h00=0x0014, h01=0x0050, text=» CWK A11,FDBSTA «, t00=0x0019, t01=0x00dc}
0x27f8…2818 Head {h00=0x001c, h01=0x0050, text=» RB(E) REQERR NOT OPENED«, t00=0x0019, t01=0x00f4}
0x2818…284c Head {h00=0x0030, h01=0x0050, text=» LD A1,FDBEXC,A11 EXCLUSIVE ACCESS INDICATOR«, t00=0x0019, t01=0x0114}
0x284c…2876 Head {h00=0x0026, h01=0x0050, text=» RF(Z) TIOS35 NOT OPENED EXCLUSIVE«, t00=0x0019, t01=0x0148}
0x2876…2888 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A5«, t00=0x0019, t01=0x0172}
0x2888…28ba Head {h00=0x002e, h01=0x0050, text=» RB(NE) REQERR OTHER TASK EXCLUSIVE ACCESS«, t00=0x0019, t01=0x0184}
0x28ba…28ce Head {h00=0x0010, h01=0x0050, text=»TIOS35 EQU *«, t00=0x001a, t01=0x0026}
0x28ce…28e4 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTTCT «, t00=0x001a, t01=0x003a}
0x28e4…2902 Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A1 TAB LENGTH«, t00=0x001a, t01=0x0050}
0x2902…2914 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x001a, t01=0x006e}
0x2914…2926 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x001a, t01=0x0080}
0x2926…293a Head {h00=0x0010, h01=0x0050, text=»TIOS40 EQU *«, t00=0x001a, t01=0x0092}
0x293a…294c Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x001a, t01=0x00a6}
0x294c…295e Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001a, t01=0x00b8}
0x295e…2982 Head {h00=0x0020, h01=0x0050, text=» RF(Z) TIOS50 END OF SCTTCT «, t00=0x001a, t01=0x00ca}
0x2982…2996 Head {h00=0x0010, h01=0x0050, text=» CWR* A5,A1 «, t00=0x001a, t01=0x00ee}
0x2996…29ba Head {h00=0x0020, h01=0x0050, text=» RB(NE) TIOS40 NOT THIS TASK«, t00=0x001a, t01=0x0102}
0x29ba…29ce Head {h00=0x0010, h01=0x0050, text=»TIOS45 EQU *«, t00=0x001a, t01=0x0126}
0x29ce…29f8 Head {h00=0x0026, h01=0x0050, text=» SC A2,FDBTNR,A11 USER TASK NUMBER«, t00=0x001a, t01=0x013a}
0x29f8…2a0a Head {h00=0x000e, h01=0x0050, text=» RF TIOS90«, t00=0x001a, t01=0x0164}
0x2a0a…2a18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0176}
0x2a18…2a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0184}
0x2a22…2a3a Head {h00=0x0014, h01=0x0050, text=»* SEARCH DM TASK«, t00=0x001a, t01=0x018e}
0x2a3a…2a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0016}
0x2a44…2a58 Head {h00=0x0010, h01=0x0050, text=»TIOS50 EQU *«, t00=0x001b, t01=0x0020}
0x2a58…2a80 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/FF DATA MANAGEMENT TASK«, t00=0x001b, t01=0x0034}
0x2a80…2aa6 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,TTABD TTAB ADDRESS #D«, t00=0x001b, t01=0x005c}
0x2aa6…2aba Head {h00=0x0010, h01=0x0050, text=»TIOS55 EQU *«, t00=0x001b, t01=0x0082}
0x2aba…2acc Head {h00=0x000e, h01=0x0050, text=» CWR A5,A1«, t00=0x001b, t01=0x0096}
0x2acc…2aee Head {h00=0x001e, h01=0x0050, text=» RB(E) TIOS45 CORRECT TASK«, t00=0x001b, t01=0x00a8}
0x2aee…2b10 Head {h00=0x001e, h01=0x0050, text=» ADKL A1,TTABLN NEXT TTAB «, t00=0x001b, t01=0x00ca}
0x2b10…2b26 Head {h00=0x0012, h01=0x0050, text=» CWK A1,TABEND«, t00=0x001b, t01=0x00ec}
0x2b26…2b4a Head {h00=0x0020, h01=0x0050, text=» RB(E) REQERR TASK NOT FOUND«, t00=0x001b, t01=0x0102}
0x2b4a…2b5c Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001b, t01=0x0126}
0x2b5c…2b6e Head {h00=0x000e, h01=0x0050, text=» RB TIOS55«, t00=0x001b, t01=0x0138}
0x2b6e…2b84 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x001b, t01=0x014a}
0x2b84…2b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0160}
0x2b8e…2b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x016a}
0x2b98…2bac Head {h00=0x0010, h01=0x0050, text=»TIOS90 EQU *«, t00=0x001b, t01=0x0174}
0x2bac…2bcc Head {h00=0x001c, h01=0x0050, text=» CF A14,CRNGET CURRENCY «, t00=0x001b, t01=0x0188}
0x2bcc…2bd8 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001c, t01=0x0018}
0x2bd8…2c02 Head {h00=0x0026, h01=0x0050, text=» LDR A4,A2 CURRENCY BUFFER ADDRESS«, t00=0x001c, t01=0x0024}
0x2c02…2c14 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001c, t01=0x004e}
0x2c14…2c3a Head {h00=0x0022, h01=0x0050, text=» SC A2,CRNSTA,A4 RESET STATUS «, t00=0x001c, t01=0x0060}
0x2c3a…2c62 Head {h00=0x0024, h01=0x0050, text=» LC A2,CRNCDF+1,A4 GET CURRENCY «, t00=0x001c, t01=0x0086}
0x2c62…2c7c Head {h00=0x0016, h01=0x0050, text=» LD A3,CRNCDF+2,A4«, t00=0x001c, t01=0x00ae}
0x2c7c…2ca0 Head {h00=0x0020, h01=0x0050, text=» LDKL A9,/40 MAX KEY LENGTH «, t00=0x001c, t01=0x00c8}
0x2ca0…2cce Head {h00=0x002a, h01=0x0050, text=» ABI TIODMF,A10 BRANCH TO DM FUNCTION «, t00=0x001c, t01=0x00ec}
0x2cce…2cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x011a}
0x2cd8…2cfe Head {h00=0x0022, h01=0x0050, text=»* A2,A3 = CURRENCY (CRNCDF) «, t00=0x001c, t01=0x0124}
0x2cfe…2d26 Head {h00=0x0024, h01=0x0050, text=»* A4 = CURRENCY BUFFER ADDRESS«, t00=0x001c, t01=0x014a}
0x2d26…2d50 Head {h00=0x0026, h01=0x0050, text=»* A5 = TTAB ADDRESS CALLING TASK«, t00=0x001c, t01=0x0172}
0x2d50…2d76 Head {h00=0x0022, h01=0x0050, text=»* A11= FDB ADDRESS DATA FILE«, t00=0x001d, t01=0x000c}
0x2d76…2d96 Head {h00=0x001c, h01=0x0050, text=»* A7 = USER ORDER WORD«, t00=0x001d, t01=0x0032}
0x2d96…2db8 Head {h00=0x001e, h01=0x0050, text=»* A8 = USER ECB ADDRESS «, t00=0x001d, t01=0x0052}
0x2db8…2dde Head {h00=0x0022, h01=0x0050, text=»* A9 = MAX KEY LENGTH = /40 «, t00=0x001d, t01=0x0074}
0x2dde…2e0c Head {h00=0x002a, h01=0x0050, text=»* A10= DISPLACEMENT IN TIODMF TABLE «, t00=0x001d, t01=0x009a}
0x2e0c…2e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c8}
0x2e16…2e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d2}
0x2e20…2e36 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x001d, t01=0x00dc}
0x2e36…2e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f2}
0x2e40…2e4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00fc}
0x2e4e…2e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x010a}
0x2e58…2e6a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x0114}
0x2e6a…2e7c Head {h00=0x000e, h01=0x0050, text=»* RWDIIX *«, t00=0x001d, t01=0x0126}
0x2e7c…2e8e Head {h00=0x000e, h01=0x0050, text=»* DEDIIX *«, t00=0x001d, t01=0x0138}
0x2e8e…2ea0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x014a}
0x2ea0…2eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015c}
0x2eaa…2ee2 Head {h00=0x0034, h01=0x0050, text=»* REWRITE DIRECT INDEXED,DELETE DIRECT INDEXED«, t00=0x001d, t01=0x0166}
0x2ee2…2eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000e}
0x2eec…2f18 Head {h00=0x0028, h01=0x0050, text=»RWDIIX EQU * REWRITE DIRECT INDEXED «, t00=0x001e, t01=0x0018}
0x2f18…2f42 Head {h00=0x0026, h01=0x0050, text=»DEDIIX EQU * DELETE DIRECT INDEXED«, t00=0x001e, t01=0x0044}
0x2f42…2f70 Head {h00=0x002a, h01=0x0050, text=» LD A7,FDBAI1,A11 PRIMARY INDEX FDB =4«, t00=0x001e, t01=0x006e}
0x2f70…2fa4 Head {h00=0x0030, h01=0x0050, text=» CF A14,SWHECO SWITCH ECB AND ORDER CODE =4 «, t00=0x001e, t01=0x009c}
0x2fa4…2fc2 Head {h00=0x001a, h01=0x0050, text=» RF IXR030 MOVE KEY =4«, t00=0x001e, t01=0x00d0}
0x2fc2…2fd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00ee}
0x2fd0…2fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fc}
0x2fda…2fec Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x0106}
0x2fec…2ffe Head {h00=0x000e, h01=0x0050, text=»* STEQIX *«, t00=0x001e, t01=0x0118}
0x2ffe…3010 Head {h00=0x000e, h01=0x0050, text=»* STGRIX *«, t00=0x001e, t01=0x012a}
0x3010…3022 Head {h00=0x000e, h01=0x0050, text=»* STNLIX *«, t00=0x001e, t01=0x013c}
0x3022…3034 Head {h00=0x000e, h01=0x0050, text=»* RDRNIX *«, t00=0x001e, t01=0x014e}
0x3034…3046 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x0160}
0x3046…3050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0172}
0x3050…3082 Head {h00=0x002e, h01=0x0050, text=»* START INDEXED AND READ RANDOM INDEXED «, t00=0x001e, t01=0x017c}
0x3082…308c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x001e}
0x308c…30a0 Head {h00=0x0010, h01=0x0050, text=»STEQIX EQU *«, t00=0x001f, t01=0x0028}
0x30a0…30b4 Head {h00=0x0010, h01=0x0050, text=»STGRIX EQU *«, t00=0x001f, t01=0x003c}
0x30b4…30c8 Head {h00=0x0010, h01=0x0050, text=»STNLIX EQU *«, t00=0x001f, t01=0x0050}
0x30c8…30ea Head {h00=0x001e, h01=0x0050, text=» LD A9,ECBRL,A8 KEY LENGTH«, t00=0x001f, t01=0x0064}
0x30ea…30fe Head {h00=0x0010, h01=0x0050, text=»RDRNIX EQU *«, t00=0x001f, t01=0x0086}
0x30fe…3120 Head {h00=0x001e, h01=0x0050, text=» CF A14,SWHFDB SWITCH FDB «, t00=0x001f, t01=0x009a}
0x3120…3138 Head {h00=0x0014, h01=0x0050, text=»IXR030 EQU * =4«, t00=0x001f, t01=0x00bc}
0x3138…3154 Head {h00=0x0018, h01=0x0050, text=» RB(Z) REQERR NO FDB«, t00=0x001f, t01=0x00d4}
0x3154…317a Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 INDEXED FDB ADDRESS«, t00=0x001f, t01=0x00f0}
0x317a…31a2 Head {h00=0x0024, h01=0x0050, text=» ADKL A2,FDBKEY KEY AREA ADDRESS«, t00=0x001f, t01=0x0116}
0x31a2…31b4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001f, t01=0x013e}
0x31b4…31cc Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBRLE,A7«, t00=0x001f, t01=0x0150}
0x31cc…31e8 Head {h00=0x0018, h01=0x0050, text=» SUK A1,6 KEY LENGTH«, t00=0x001f, t01=0x0168}
0x31e8…3206 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A1 KEY LENGTH «, t00=0x001f, t01=0x0184}
0x3206…321a Head {h00=0x0010, h01=0x0050, text=»IXR050 EQU *«, t00=0x0020, t01=0x0012}
0x321a…3238 Head {h00=0x001a, h01=0x0050, text=» CMR A4 CLEAR KEY AREA«, t00=0x0020, t01=0x0026}
0x3238…324a Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0020, t01=0x0044}
0x324a…325c Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0020, t01=0x0056}
0x325c…3280 Head {h00=0x0020, h01=0x0050, text=» RB(P) IXR050 MORE TO CLEAR «, t00=0x0020, t01=0x0068}
0x3280…328a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x008c}
0x328a…3298 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0096}
0x3298…32a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00a4}
0x32a2…32c4 Head {h00=0x001e, h01=0x0050, text=»* FETCH KEY TO INDEX FDB«, t00=0x0020, t01=0x00ae}
0x32c4…32ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d0}
0x32ce…32f2 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBBA,A8 RECORD ADDR «, t00=0x0020, t01=0x00da}
0x32f2…3312 Head {h00=0x001c, h01=0x0050, text=» AD A1,FDBKA,A7 KEY ADDR«, t00=0x0020, t01=0x00fe}
0x3312…3342 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A9 KEY LENGTH = MIN(A9,RECLEN-6)«, t00=0x0020, t01=0x011e}
0x3342…3358 Head {h00=0x0012, h01=0x0050, text=» RF(NG) IXR070«, t00=0x0020, t01=0x014e}
0x3358…336a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A9«, t00=0x0020, t01=0x0164}
0x336a…337e Head {h00=0x0010, h01=0x0050, text=»IXR070 EQU *«, t00=0x0020, t01=0x0176}
0x337e…33a0 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A3 SAVE MIN LENGTH«, t00=0x0020, t01=0x018a}
0x33a0…33be Head {h00=0x001a, h01=0x0050, text=» CF A15,MOVUS MOVE KEY«, t00=0x0021, t01=0x001c}
0x33be…33c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x003a}
0x33c8…33de Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0021, t01=0x0044}
0x33de…33e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x005a}
0x33e8…341c Head {h00=0x0030, h01=0x0050, text=»* INCREASE KEY IF 'START GREATER ' IS REQ «, t00=0x0021, t01=0x0064}
0x341c…3426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0098}
0x3426…343e Head {h00=0x0014, h01=0x0050, text=» CWK A10,QSTGIX «, t00=0x0021, t01=0x00a2}
0x343e…3466 Head {h00=0x0024, h01=0x0050, text=» RF(NE) STA020 NOT START GREATER«, t00=0x0021, t01=0x00ba}
0x3466…347a Head {h00=0x0010, h01=0x0050, text=»STA010 EQU *«, t00=0x0021, t01=0x00e2}
0x347a…349c Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 ADDR LAST BYTE «, t00=0x0021, t01=0x00f6}
0x349c…34ae Head {h00=0x000e, h01=0x0050, text=» LCR A1,A2«, t00=0x0021, t01=0x0118}
0x34ae…34d0 Head {h00=0x001e, h01=0x0050, text=» ADK A1,1 NEXT HIGHER KEY «, t00=0x0021, t01=0x012a}
0x34d0…34e2 Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0021, t01=0x014c}
0x34e2…3500 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/FF OVERFLOW ?«, t00=0x0021, t01=0x015e}
0x3500…351a Head {h00=0x0016, h01=0x0050, text=» RF(NZ) STA020 NO «, t00=0x0021, t01=0x017c}
0x351a…352c Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0022, t01=0x0008}
0x352c…354c Head {h00=0x001c, h01=0x0050, text=» RB(P) STA010 MORE BYTES«, t00=0x0022, t01=0x001a}
0x354c…3560 Head {h00=0x0010, h01=0x0050, text=»STA020 EQU *«, t00=0x0022, t01=0x003a}
0x3560…356a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x004e}
0x356a…358a Head {h00=0x001c, h01=0x0050, text=»* SWITCH TO INDEX FDB «, t00=0x0022, t01=0x0058}
0x358a…3594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0078}
0x3594…35b2 Head {h00=0x001a, h01=0x0050, text=» LDR A11,A7 INDEX FDB «, t00=0x0022, t01=0x0082}
0x35b2…35c4 Head {h00=0x000e, h01=0x0050, text=» RF TIORRO«, t00=0x0022, t01=0x00a0}
0x35c4…35d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00b2}
0x35d2…35dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00c0}
0x35dc…35e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ca}
0x35e6…35f8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x00d4}
0x35f8…360a Head {h00=0x000e, h01=0x0050, text=»* WRRNIX *«, t00=0x0022, t01=0x00e6}
0x360a…361c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x00f8}
0x361c…3626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x010a}
0x3626…3646 Head {h00=0x001c, h01=0x0050, text=»* WRITE RANDOM INDEXED«, t00=0x0022, t01=0x0114}
0x3646…3650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0134}
0x3650…3672 Head {h00=0x001e, h01=0x0050, text=»WRRNIX EQU * IDEXED INSERT«, t00=0x0022, t01=0x013e}
0x3672…3688 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x0160}
0x3688…3692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0176}
0x3692…36b8 Head {h00=0x0022, h01=0x0050, text=»* MOVE KEYS TO FDB KEY AREAS«, t00=0x0022, t01=0x0180}
0x36b8…36c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0016}
0x36c2…36d4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,8 «, t00=0x0023, t01=0x0020}
0x36d4…36e8 Head {h00=0x0010, h01=0x0050, text=»IXINS3 EQU *«, t00=0x0023, t01=0x0032}
0x36e8…3704 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A11 FDB DATA«, t00=0x0023, t01=0x0046}
0x3704…3716 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0023, t01=0x0062}
0x3716…3738 Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBADF,A2 FDB INDEX«, t00=0x0023, t01=0x0074}
0x3738…3756 Head {h00=0x001a, h01=0x0050, text=» RF(Z) IXINS4 NO INDEX«, t00=0x0023, t01=0x0096}
0x3756…3776 Head {h00=0x001c, h01=0x0050, text=» LD A1,FDBKA,A2 KEY ADDR«, t00=0x0023, t01=0x00b4}
0x3776…379c Head {h00=0x0022, h01=0x0050, text=» LD A3,FDBRLE,A2 RECORD LENGTH«, t00=0x0023, t01=0x00d4}
0x379c…37c6 Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBBA,A8 ADD USER BUF ADDR «, t00=0x0023, t01=0x00fa}
0x37c6…37ea Head {h00=0x0020, h01=0x0050, text=» ADKL A2,FDBKEY KEY ADDRESS «, t00=0x0023, t01=0x0124}
0x37ea…3804 Head {h00=0x0016, h01=0x0050, text=» SUK A3,6 KEY LGTH«, t00=0x0023, t01=0x0148}
0x3804…3822 Head {h00=0x001a, h01=0x0050, text=» CF A15,MOVUS MOVE KEY«, t00=0x0023, t01=0x0162}
0x3822…3836 Head {h00=0x0010, h01=0x0050, text=»IXINS4 EQU *«, t00=0x0023, t01=0x0180}
0x3836…3848 (36, 0, 398) Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0024, t01=0x0004}
0x3848…386a Head {h00=0x001e, h01=0x0050, text=» RB(NZ) IXINS3 MORE INDEXS«, t00=0x0024, t01=0x0016}
0x386a…3876 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0038}
0x3876…3880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0044}
0x3880…3896 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0024, t01=0x004e}
0x3896…38a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0064}
0x38a0…38aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x006e}
0x38aa…38bc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0024, t01=0x0078}
0x38bc…38ce Head {h00=0x000e, h01=0x0050, text=»* WRSQ00 *«, t00=0x0024, t01=0x008a}
0x38ce…38e0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0024, t01=0x009c}
0x38e0…38ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ae}
0x38ea…3906 Head {h00=0x0018, h01=0x0050, text=»* WRITE SEQUENTIAL«, t00=0x0024, t01=0x00b8}
0x3906…3910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d4}
0x3910…3924 Head {h00=0x0010, h01=0x0050, text=»WRSQ00 EQU *«, t00=0x0024, t01=0x00de}
0x3924…393e Head {h00=0x0016, h01=0x0050, text=» LC A2,FDBLRN,A11 «, t00=0x0024, t01=0x00f2}
0x393e…3952 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0024, t01=0x010c}
0x3952…3972 Head {h00=0x001c, h01=0x0050, text=» LD A3,FDBLRN+1,A11 LRN «, t00=0x0024, t01=0x0120}
0x3972…3988 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0024, t01=0x0140}
0x3988…39ac Head {h00=0x0020, h01=0x0050, text=» RF IXR020 STORE LOG REC NO «, t00=0x0024, t01=0x0156}
0x39ac…39ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x017a}
0x39ba…39c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0188}
0x39c4…39d6 (37, 0, 400) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x0004}
0x39d6…39e8 Head {h00=0x000e, h01=0x0050, text=»* RDSQIX *«, t00=0x0025, t01=0x0016}
0x39e8…39fa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x0028}
0x39fa…3a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x003a}
0x3a04…3a28 Head {h00=0x0020, h01=0x0050, text=»* READ SEQUENTIAL INDEXED «, t00=0x0025, t01=0x0044}
0x3a28…3a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0068}
0x3a32…3a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0072}
0x3a3c…3a50 Head {h00=0x0010, h01=0x0050, text=»RDSQIX EQU *«, t00=0x0025, t01=0x007c}
0x3a50…3a72 Head {h00=0x001e, h01=0x0050, text=» CF A14,SWHFDB SWITCH FDB «, t00=0x0025, t01=0x0090}
0x3a72…3a96 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) REQERR FDB NOT FOUND«, t00=0x0025, t01=0x00b2}
0x3a96…3abe Head {h00=0x0024, h01=0x0050, text=» LDR A11,A7 INDEXED FDB ADDRESS «, t00=0x0025, t01=0x00d6}
0x3abe…3ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fe}
0x3ac8…3adc Head {h00=0x0010, h01=0x0050, text=»* GET CRN «, t00=0x0025, t01=0x0108}
0x3adc…3ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x011c}
0x3ae6…3af8 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0025, t01=0x0126}
0x3af8…3b0a Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0025, t01=0x0138}
0x3b0a…3b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x014a}
0x3b14…3b38 Head {h00=0x0020, h01=0x0050, text=»* CHECK THAT FILE ID IS OK«, t00=0x0025, t01=0x0154}
0x3b38…3b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0178}
0x3b42…3b64 Head {h00=0x001e, h01=0x0050, text=» LC A7,FWTFNR,A11 FILE NR «, t00=0x0025, t01=0x0182}
0x3b64…3b7c Head {h00=0x0014, h01=0x0050, text=» CC A7,CRNCIF,A4«, t00=0x0026, t01=0x0014}
0x3b7c…3bae Head {h00=0x002e, h01=0x0050, text=» RF(NE) IXR020 OTHER INDEX FILE IS CURRENT«, t00=0x0026, t01=0x002c}
0x3bae…3bc8 Head {h00=0x0016, h01=0x0050, text=» LC A2,CRNCIF+1,A4«, t00=0x0026, t01=0x005e}
0x3bc8…3bee Head {h00=0x0022, h01=0x0050, text=» LD A3,CRNCIF+2,A4 LOG REC NO «, t00=0x0026, t01=0x0078}
0x3bee…3bfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x009e}
0x3bfa…3c0e Head {h00=0x0010, h01=0x0050, text=»IXR020 EQU *«, t00=0x0026, t01=0x00aa}
0x3c0e…3c36 Head {h00=0x0024, h01=0x0050, text=» CF A14,ADDONE A2,A3 = A2,A3 + 1«, t00=0x0026, t01=0x00be}
0x3c36…3c64 Head {h00=0x002a, h01=0x0050, text=» RF TIODMA DO NOT CHECK EOF CONDITION «, t00=0x0026, t01=0x00e6}
0x3c64…3c72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0114}
0x3c72…3c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0122}
0x3c7c…3c8e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x012c}
0x3c8e…3ca0 Head {h00=0x000e, h01=0x0050, text=»* RDSQ00 *«, t00=0x0026, t01=0x013e}
0x3ca0…3cb2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x0150}
0x3cb2…3cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0162}
0x3cbc…3cd8 Head {h00=0x0018, h01=0x0050, text=»* READ SEQUENTIAL «, t00=0x0026, t01=0x016c}
0x3cd8…3ce2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0188}
0x3ce2…3cf6 (39, 0, 400) Head {h00=0x0010, h01=0x0050, text=»RDSQ00 EQU *«, t00=0x0027, t01=0x0004}
0x3cf6…3d1c Head {h00=0x0022, h01=0x0050, text=» CF A14,ADDONE A2,A3=A2,A3 + 1«, t00=0x0027, t01=0x0018}
0x3d1c…3d2e Head {h00=0x000e, h01=0x0050, text=» RF RAN050«, t00=0x0027, t01=0x003e}
0x3d2e…3d3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0050}
0x3d3c…3d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x005e}
0x3d46…3d58 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x0068}
0x3d58…3d6a Head {h00=0x000e, h01=0x0050, text=»* RDRN00 *«, t00=0x0027, t01=0x007a}
0x3d6a…3d7c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x008c}
0x3d7c…3d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x009e}
0x3d86…3d9e Head {h00=0x0014, h01=0x0050, text=»* READ RANDOM «, t00=0x0027, t01=0x00a8}
0x3d9e…3da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c0}
0x3da8…3dbc Head {h00=0x0010, h01=0x0050, text=»RDRN00 EQU *«, t00=0x0027, t01=0x00ca}
0x3dbc…3dda Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 REC NR«, t00=0x0027, t01=0x00de}
0x3dda…3df4 Head {h00=0x0016, h01=0x0050, text=» LD A3,ECBCW+2,A8 «, t00=0x0027, t01=0x00fc}
0x3df4…3e08 Head {h00=0x0010, h01=0x0050, text=»RAN050 EQU *«, t00=0x0027, t01=0x0116}
0x3e08…3e30 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,LGTERR INCORRECT LENGTH«, t00=0x0027, t01=0x012a}
0x3e30…3e48 Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBRL,A8 «, t00=0x0027, t01=0x0152}
0x3e48…3e76 Head {h00=0x002a, h01=0x0050, text=» RF(NP) TIODME ERROR RETURN IF RL <= 0«, t00=0x0027, t01=0x016a}
0x3e76…3e88 Head {h00=0x000e, h01=0x0050, text=» RF TIODMA«, t00=0x0028, t01=0x0008}
0x3e88…3e96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x001a}
0x3e96…3ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0028}
0x3ea0…3eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0032}
0x3eaa…3ebc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0028, t01=0x003c}
0x3ebc…3ece Head {h00=0x000e, h01=0x0050, text=»* OPEN *«, t00=0x0028, t01=0x004e}
0x3ece…3ee0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0028, t01=0x0060}
0x3ee0…3eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0072}
0x3eea…3efa Head {h00=0x000c, h01=0x0050, text=»* OPEN«, t00=0x0028, t01=0x007c}
0x3efa…3f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x008c}
0x3f04…3f16 Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0028, t01=0x0096}
0x3f16…3f2e Head {h00=0x0014, h01=0x0050, text=» CWK A11,FDBSTA «, t00=0x0028, t01=0x00a8}
0x3f2e…3f52 Head {h00=0x0020, h01=0x0050, text=» RF(E) OPE050 FILE CODE FREE«, t00=0x0028, t01=0x00c0}
0x3f52…3f6a Head {h00=0x0014, h01=0x0050, text=» LDKL A1,EDMERR «, t00=0x0028, t01=0x00e4}
0x3f6a…3f88 Head {h00=0x001a, h01=0x0050, text=» LDK A2,FCUSED FC USED«, t00=0x0028, t01=0x00fc}
0x3f88…3fa8 Head {h00=0x001c, h01=0x0050, text=» SC A2,CRNSTA,A4 STATUS «, t00=0x0028, t01=0x011a}
0x3fa8…3fba Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0028, t01=0x013a}
0x3fba…3fce Head {h00=0x0010, h01=0x0050, text=»OPE050 EQU *«, t00=0x0028, t01=0x014c}
0x3fce…3fe6 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LGTERR «, t00=0x0028, t01=0x0160}
0x3fe6…4008 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,FPB:FR+8 MIN LGTH«, t00=0x0028, t01=0x0178}
0x4008…4024 Head {h00=0x0018, h01=0x0050, text=» CW A4,ECBRL,A8 REQ «, t00=0x0029, t01=0x000a}
0x4024…403e Head {h00=0x0016, h01=0x0050, text=» RF(G) ENDIO ERROR«, t00=0x0029, t01=0x0026}
0x403e…4050 Head {h00=0x000e, h01=0x0050, text=» RF TIORRO«, t00=0x0029, t01=0x0040}
0x4050…405a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0052}
0x405a…4070 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0029, t01=0x005c}
0x4070…407a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0072}
0x407a…4084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x007c}
0x4084…4096 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x0086}
0x4096…40a8 Head {h00=0x000e, h01=0x0050, text=»* RDFIPA *«, t00=0x0029, t01=0x0098}
0x40a8…40ba Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00aa}
0x40ba…40c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00bc}
0x40c4…40e2 Head {h00=0x001a, h01=0x0050, text=»* READ FILE PARAMETR«, t00=0x0029, t01=0x00c6}
0x40e2…40ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e4}
0x40ec…4100 Head {h00=0x0010, h01=0x0050, text=»RDFIPA EQU *«, t00=0x0029, t01=0x00ee}
0x4100…4118 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0029, t01=0x0102}
0x4118…4132 Head {h00=0x0016, h01=0x0050, text=» ST A3,ECBCW+2,A8 «, t00=0x0029, t01=0x011a}
0x4132…4146 Head {h00=0x0010, h01=0x0050, text=»TIORRO EQU *«, t00=0x0029, t01=0x0134}
0x4146…415a Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-1 «, t00=0x0029, t01=0x0148}
0x415a…4184 Head {h00=0x0026, h01=0x0050, text=» ST A4,FDBRRO,A11 MARK ORDER TYPE «, t00=0x0029, t01=0x015c}
0x4184…41aa Head {h00=0x0022, h01=0x0050, text=» RF ACTDM0 ACTIVATE DN TASK #D«, t00=0x0029, t01=0x0186}
0x41aa…41b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x001c}
0x41b4…41c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0026}
0x41c2…41cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0034}
0x41cc…41de Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x003e}
0x41de…41f0 Head {h00=0x000e, h01=0x0050, text=»* CLOSED *«, t00=0x002a, t01=0x0050}
0x41f0…4202 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x0062}
0x4202…420c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0074}
0x420c…4216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x007e}
0x4216…422a Head {h00=0x0010, h01=0x0050, text=»CLOSED EQU *«, t00=0x002a, t01=0x0088}
0x422a…4234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x009c}
0x4234…424c Head {h00=0x0014, h01=0x0050, text=»* TEST IF INDEX «, t00=0x002a, t01=0x00a6}
0x424c…4256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00be}
0x4256…4270 Head {h00=0x0016, h01=0x0050, text=»* LC A1,FDBNIF,A11«, t00=0x002a, t01=0x00c8}
0x4270…429a Head {h00=0x0026, h01=0x0050, text=»* ANK A1,/F NUMBER OF INDEX FILES «, t00=0x002a, t01=0x00e2}
0x429a…42d8 Head {h00=0x003a, h01=0x0050, text=»* ABL(NZ) REQERR INDEX NOT ALLOWED WHEN CLOSE DISCARD «, t00=0x002a, t01=0x010c}
0x42d8…4304 Head {h00=0x0028, h01=0x0050, text=» LD A1,FDBEXC,A11 TTAB EXCLUSIVE =2 «, t00=0x002a, t01=0x014a}
0x4304…4332 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) CLOSE CLOSE DISCARD ALLOWED =2«, t00=0x002a, t01=0x0176}
0x4332…4362 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,RQERR INDICATE REQUEST ERROR =2«, t00=0x002b, t01=0x0014}
0x4362…438e Head {h00=0x0028, h01=0x0050, text=» ORS A1,ECBRC,A8 SET RETURN CODE =2 «, t00=0x002b, t01=0x0044}
0x438e…43c2 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTOR,A11 CHANGE CLOSE D. TO CLOSE =2«, t00=0x002b, t01=0x0070}
0x43c2…43d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00a4}
0x43d0…43da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b2}
0x43da…43ec Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x00bc}
0x43ec…43fe Head {h00=0x000e, h01=0x0050, text=»* CLOSE *«, t00=0x002b, t01=0x00ce}
0x43fe…4410 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x00e0}
0x4410…441a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f2}
0x441a…4424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00fc}
0x4424…4438 Head {h00=0x0010, h01=0x0050, text=»CLOSE EQU * «, t00=0x002b, t01=0x0106}
0x4438…4442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x011a}
0x4442…446e Head {h00=0x0028, h01=0x0050, text=»* CONNECT FILE CODE TO SYSTEM FWT «, t00=0x002b, t01=0x0124}
0x446e…4478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0150}
0x4478…4494 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 USER TTAB«, t00=0x002b, t01=0x015a}
0x4494…44a8 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x002b, t01=0x0176}
0x44a8…44c6 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF FILE CODE «, t00=0x002b, t01=0x018a}
0x44c6…44ee Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 SEARCH TTAB AND CDTAB «, t00=0x002c, t01=0x0018}
0x44ee…450c Head {h00=0x001a, h01=0x0050, text=» CF A14,FNDFDB SEARCH «, t00=0x002c, t01=0x0040}
0x450c…4534 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,FDBSTA SYSTEM FWT ADDR «, t00=0x002c, t01=0x005e}
0x4534…4550 Head {h00=0x0018, h01=0x0050, text=» ST A2,2,A4 FC ENTRY«, t00=0x002c, t01=0x0086}
0x4550…4562 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x00a2}
0x4562…457c Head {h00=0x0016, h01=0x0050, text=» LC A1,FDBLRN,A11 «, t00=0x002c, t01=0x00b4}
0x457c…45a6 Head {h00=0x0026, h01=0x0050, text=» LD A2,FDBLRN+1,A11 LAST RECORD NR«, t00=0x002c, t01=0x00ce}
0x45a6…45bc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CLO100«, t00=0x002c, t01=0x00f8}
0x45bc…45ce Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x002c, t01=0x010e}
0x45ce…45e4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CLO100«, t00=0x002c, t01=0x0120}
0x45e4…45fa Head {h00=0x0012, h01=0x0050, text=» LDK A2,1 LRN «, t00=0x002c, t01=0x0136}
0x45fa…460e Head {h00=0x0010, h01=0x0050, text=»CLO100 EQU *«, t00=0x002c, t01=0x014c}
0x460e…4620 Head {h00=0x000e, h01=0x0050, text=» RF TIODMD«, t00=0x002c, t01=0x0160}
0x4620…462e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0172}
0x462e…4638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0180}
0x4638…464a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x018a}
0x464a…465c Head {h00=0x000e, h01=0x0050, text=»* STEQ00 *«, t00=0x002d, t01=0x000c}
0x465c…466e Head {h00=0x000e, h01=0x0050, text=»* STGR00 *«, t00=0x002d, t01=0x001e}
0x466e…4680 Head {h00=0x000e, h01=0x0050, text=»* STNL00 *«, t00=0x002d, t01=0x0030}
0x4680…4692 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0042}
0x4692…469c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0054}
0x469c…46c8 Head {h00=0x0028, h01=0x0050, text=»* START EQUAL,GREATER AND NOT LESS«, t00=0x002d, t01=0x005e}
0x46c8…46d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x008a}
0x46d2…46e6 Head {h00=0x0010, h01=0x0050, text=»STEQ00 EQU *«, t00=0x002d, t01=0x0094}
0x46e6…46fa Head {h00=0x0010, h01=0x0050, text=»STGR00 EQU *«, t00=0x002d, t01=0x00a8}
0x46fa…470e Head {h00=0x0010, h01=0x0050, text=»STNL00 EQU *«, t00=0x002d, t01=0x00bc}
0x470e…472c Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 REC NR«, t00=0x002d, t01=0x00d0}
0x472c…4746 Head {h00=0x0016, h01=0x0050, text=» LD A3,ECBCW+2,A8 «, t00=0x002d, t01=0x00ee}
0x4746…476c Head {h00=0x0022, h01=0x0050, text=» CWK A10,QSTG00 START GREATER «, t00=0x002d, t01=0x0108}
0x476c…4798 Head {h00=0x0028, h01=0x0050, text=» RB(E) IXR020 GET NEXT RECORD NUMBER«, t00=0x002d, t01=0x012e}
0x4798…47a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x015a}
0x47a6…47b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0168}
0x47b0…47c2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0172}
0x47c2…47d4 Head {h00=0x000e, h01=0x0050, text=»* RWCU00 *«, t00=0x002d, t01=0x0184}
0x47d4…47e6 Head {h00=0x000e, h01=0x0050, text=»* RWCUIX *«, t00=0x002e, t01=0x0008}
0x47e6…47f8 Head {h00=0x000e, h01=0x0050, text=»* DECU00 *«, t00=0x002e, t01=0x001a}
0x47f8…480a Head {h00=0x000e, h01=0x0050, text=»* DECUIX *«, t00=0x002e, t01=0x002c}
0x480a…481c Head {h00=0x000e, h01=0x0050, text=»* WRRN00 *«, t00=0x002e, t01=0x003e}
0x481c…482e Head {h00=0x000e, h01=0x0050, text=»* RWDI00 *«, t00=0x002e, t01=0x0050}
0x482e…4840 Head {h00=0x000e, h01=0x0050, text=»* DEDI00 *«, t00=0x002e, t01=0x0062}
0x4840…4852 Head {h00=0x000e, h01=0x0050, text=»* TIODMA *«, t00=0x002e, t01=0x0074}
0x4852…4864 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002e, t01=0x0086}
0x4864…486e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0098}
0x486e…48a2 Head {h00=0x0030, h01=0x0050, text=»* REWRITE CURRENT,REWRITE CURRENT INDEXED «, t00=0x002e, t01=0x00a2}
0x48a2…48d4 Head {h00=0x002e, h01=0x0050, text=»* DELETE CURRENT,DELETE CURRENT INDEXED «, t00=0x002e, t01=0x00d6}
0x48d4…48fc Head {h00=0x0024, h01=0x0050, text=»* WRITE RANDOM,REWRITE DIRECT «, t00=0x002e, t01=0x0108}
0x48fc…4916 Head {h00=0x0016, h01=0x0050, text=»* DELETE DIRECT «, t00=0x002e, t01=0x0130}
0x4916…4920 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014a}
0x4920…4934 Head {h00=0x0010, h01=0x0050, text=»RWCU00 EQU *«, t00=0x002e, t01=0x0154}
0x4934…4948 Head {h00=0x0010, h01=0x0050, text=»RWCUIX EQU *«, t00=0x002e, t01=0x0168}
0x4948…495c Head {h00=0x0010, h01=0x0050, text=»DECU00 EQU *«, t00=0x002e, t01=0x017c}
0x495c…4970 Head {h00=0x0010, h01=0x0050, text=»DECUIX EQU *«, t00=0x002e, t01=0x0190}
0x4970…4984 Head {h00=0x0010, h01=0x0050, text=»TIODMA EQU *«, t00=0x002f, t01=0x0014}
0x4984…49a2 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBCW,A8 REC NR«, t00=0x002f, t01=0x0028}
0x49a2…49bc Head {h00=0x0016, h01=0x0050, text=» ST A3,ECBCW+2,A8 «, t00=0x002f, t01=0x0046}
0x49bc…49de Head {h00=0x001e, h01=0x0050, text=»WRRN00 EQU * WRITE RANDOM «, t00=0x002f, t01=0x0060}
0x49de…4a02 Head {h00=0x0020, h01=0x0050, text=»RWDI00 EQU * REWRITE DIRECT «, t00=0x002f, t01=0x0082}
0x4a02…4a24 Head {h00=0x001e, h01=0x0050, text=»DEDI00 EQU * DELETE DIRECT«, t00=0x002f, t01=0x00a6}
0x4a24…4a4a Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBCW,A8 RECORD NUMBER «, t00=0x002f, t01=0x00c8}
0x4a4a…4a64 Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A8 «, t00=0x002f, t01=0x00ee}
0x4a64…4a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0108}
0x4a6e…4a84 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x002f, t01=0x0112}
0x4a84…4a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0128}
0x4a8e…4aae Head {h00=0x001c, h01=0x0050, text=»* NO EA FOR OTHER TASK«, t00=0x002f, t01=0x0132}
0x4aae…4ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0152}
0x4ab8…4adc Head {h00=0x0020, h01=0x0050, text=» LDR A9,A11 SAVE FDB ADDRESS«, t00=0x002f, t01=0x015c}
0x4adc…4af6 Head {h00=0x0016, h01=0x0050, text=» LD A11,FDBADF,A11«, t00=0x002f, t01=0x0180}
0x4af6…4b0c Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x0030, t01=0x000a}
0x4b0c…4b32 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A9 SAVED FDB ADDRESS «, t00=0x0030, t01=0x0020}
0x4b32…4b44 Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x0030, t01=0x0046}
0x4b44…4b68 Head {h00=0x0020, h01=0x0050, text=» RF(N) TIODPE EA OTHER TASK «, t00=0x0030, t01=0x0058}
0x4b68…4b7c Head {h00=0x0010, h01=0x0050, text=»TIODMD EQU *«, t00=0x0030, t01=0x007c}
0x4b7c…4bb6 Head {h00=0x0036, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR «, t00=0x0030, t01=0x0090}
0x4bb6…4bcc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TIODME«, t00=0x0030, t01=0x00ca}
0x4bcc…4bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e0}
0x4bd6…4be4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00ea}
0x4be4…4bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00f8}
0x4bee…4c10 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0030, t01=0x0102}
0x4c10…4c32 Head {h00=0x001e, h01=0x0050, text=»* SDMTSK ACTIVATION * «, t00=0x0030, t01=0x0124}
0x4c32…4c54 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0030, t01=0x0146}
0x4c54…4c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0168}
0x4c5e…4c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0172}
0x4c68…4c7c Head {h00=0x0010, h01=0x0050, text=»ACTDM0 EQU *«, t00=0x0030, t01=0x017c}
0x4c7c…4c9c Head {h00=0x001c, h01=0x0050, text=» LDR A6,A11 FDB ADDRESS «, t00=0x0030, t01=0x0190}
0x4c9c…4cc6 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,SDMTSK ACTIVATION ADDRESS«, t00=0x0031, t01=0x0020}
0x4cc6…4cde Head {h00=0x0014, h01=0x0050, text=» CWK A10,QWRSQ0 «, t00=0x0031, t01=0x004a}
0x4cde…4d0c Head {h00=0x002a, h01=0x0050, text=» ABL(L) DMACTD ADMINISTRATION FUNCTION«, t00=0x0031, t01=0x0062}
0x4d0c…4d30 Head {h00=0x0020, h01=0x0050, text=» ABL DMACTI ACTIVATE DM TASK«, t00=0x0031, t01=0x0090}
0x4d30…4d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b4}
0x4d3a…4d48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00be}
0x4d48…4d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00cc}
0x4d52…4d64 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x00d6}
0x4d64…4d76 Head {h00=0x000e, h01=0x0050, text=»* TIODPE *«, t00=0x0031, t01=0x00e8}
0x4d76…4d88 Head {h00=0x000e, h01=0x0050, text=»* TIODME *«, t00=0x0031, t01=0x00fa}
0x4d88…4d9a Head {h00=0x000e, h01=0x0050, text=»* ENDIO *«, t00=0x0031, t01=0x010c}
0x4d9a…4dac Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x011e}
0x4dac…4db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0130}
0x4db6…4dda Head {h00=0x0020, h01=0x0050, text=»* ERROR :RETURN VIA DISEND«, t00=0x0031, t01=0x013a}
0x4dda…4de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015e}
0x4de4…4e0a Head {h00=0x0022, h01=0x0050, text=»TIODPE EQU * PROTECT ERR EXIT «, t00=0x0031, t01=0x0168}
0x4e0a…4e30 Head {h00=0x0022, h01=0x0050, text=» LC A3,FDBTNR,A11 USER TASK ID«, t00=0x0031, t01=0x018e}
0x4e30…4e44 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0032, t01=0x0024}
0x4e44…4e6a Head {h00=0x0022, h01=0x0050, text=» CF A14,RELPRO RELEASE PROTECT«, t00=0x0032, t01=0x0038}
0x4e6a…4e82 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PROERR «, t00=0x0032, t01=0x005e}
0x4e82…4e96 Head {h00=0x0010, h01=0x0050, text=»TIODME EQU *«, t00=0x0032, t01=0x0076}
0x4e96…4ec2 Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBADF,A11 DATA FILE FDB ADDR«, t00=0x0032, t01=0x008a}
0x4ec2…4ed6 Head {h00=0x0010, h01=0x0050, text=»ENDIOL EQU *«, t00=0x0032, t01=0x00b6}
0x4ed6…4f06 Head {h00=0x002c, h01=0x0050, text=» ABL DISEND CALL TENDIO GOTO DISPATCHER«, t00=0x0032, t01=0x00ca}
0x4f06…4f1a Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0032, t01=0x00fa}
0x4f1a…4f3a Head {h00=0x001c, h01=0x0050, text=» LDR A6,A11 FDB ADDRESS «, t00=0x0032, t01=0x010e}
0x4f3a…4f4c Head {h00=0x000e, h01=0x0050, text=» RB ENDIOL«, t00=0x0032, t01=0x012e}
0x4f4c…4f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0140}
0x4f56…4f6c Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0032, t01=0x014a}
0x4f6c…4f76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0160}
0x4f76…4f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x016a}
0x4f80…4f92 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x0174}
0x4f92…4fa4 Head {h00=0x000e, h01=0x0050, text=»* CHKORD *«, t00=0x0032, t01=0x0186}
0x4fa4…4fb6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0033, t01=0x0008}
0x4fb6…4fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x001a}
0x4fc0…4fe4 Head {h00=0x0020, h01=0x0050, text=»* CHECK IF ORDER IN TABLE «, t00=0x0033, t01=0x0024}
0x4fe4…4fee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0048}
0x4fee…5020 Head {h00=0x002e, h01=0x0050, text=»* INPUT : A10=ADDRESS TO ORDER TABLE END«, t00=0x0033, t01=0x0052}
0x5020…503e Head {h00=0x001a, h01=0x0050, text=»* A3=LENGTH«, t00=0x0033, t01=0x0084}
0x503e…5062 Head {h00=0x0020, h01=0x0050, text=»* A7=ORDER/OPTION«, t00=0x0033, t01=0x00a2}
0x5062…506c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c6}
0x506c…508e Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A2=ORDER BIT «, t00=0x0033, t01=0x00d0}
0x508e…50bc Head {h00=0x002a, h01=0x0050, text=»* A3=ENTRY NUMBER IN TABLE «, t00=0x0033, t01=0x00f2}
0x50bc…50f0 Head {h00=0x0030, h01=0x0050, text=»* A10=ADDRESS TO FIT OR IF NOT FIT«, t00=0x0033, t01=0x0120}
0x50f0…511c Head {h00=0x0028, h01=0x0050, text=»* TABLE BEGINNING - 2 «, t00=0x0033, t01=0x0154}
0x511c…514e Head {h00=0x002e, h01=0x0050, text=»* CR=0 IF ORDER FOUND IN TABLE «, t00=0x0033, t01=0x0180}
0x514e…516c Head {h00=0x001a, h01=0x0050, text=»* CR=2 ELSE«, t00=0x0034, t01=0x0022}
0x516c…5176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0040}
0x5176…518a Head {h00=0x0010, h01=0x0050, text=»CHKORD EQU *«, t00=0x0034, t01=0x004a}
0x518a…519e Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0034, t01=0x005e}
0x519e…51b2 Head {h00=0x0010, h01=0x0050, text=»CHKO10 EQU *«, t00=0x0034, t01=0x0072}
0x51b2…51c4 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0034, t01=0x0086}
0x51c4…51d8 Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A10«, t00=0x0034, t01=0x0098}
0x51d8…51fc Head {h00=0x0020, h01=0x0050, text=» RF(E) CHKO20 ORDER IN TABLE«, t00=0x0034, t01=0x00ac}
0x51fc…521a Head {h00=0x001a, h01=0x0050, text=» SUKL A10,2 NEXT ENTRY«, t00=0x0034, t01=0x00d0}
0x521a…522c Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0034, t01=0x00ee}
0x522c…5256 Head {h00=0x0026, h01=0x0050, text=» RB(NN) CHKO10 NEXT ENTRY IN TABLE«, t00=0x0034, t01=0x0100}
0x5256…526a Head {h00=0x0010, h01=0x0050, text=»CHKO20 EQU *«, t00=0x0034, t01=0x012a}
0x526a…527c Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0034, t01=0x013e}
0x527c…5286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0150}
0x5286…5290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x015a}
0x5290…52a6 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0034, t01=0x0164}
0x52a6…52b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x017a}
0x52b0…52c2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x0184}
0x52c2…52d4 Head {h00=0x000e, h01=0x0050, text=»* ADDONE *«, t00=0x0035, t01=0x0008}
0x52d4…52e6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x001a}
0x52e6…52f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x002c}
0x52f0…531e Head {h00=0x002a, h01=0x0050, text=»* DOUBLE ADD ONE ON REGISTERS A2,A3 «, t00=0x0035, t01=0x0036}
0x531e…5328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0064}
0x5328…533c Head {h00=0x0010, h01=0x0050, text=»ADDONE EQU *«, t00=0x0035, t01=0x006e}
0x533c…534e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0035, t01=0x0082}
0x534e…537c Head {h00=0x002a, h01=0x0050, text=» RF(P) ADDO10 NOT OVERFLOW OR NEGATIVE«, t00=0x0035, t01=0x0094}
0x537c…538e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0035, t01=0x00c2}
0x538e…53aa Head {h00=0x0018, h01=0x0050, text=» ADK A2,1 ADD CARRY «, t00=0x0035, t01=0x00d4}
0x53aa…53be Head {h00=0x0010, h01=0x0050, text=»ADDO10 EQU *«, t00=0x0035, t01=0x00f0}
0x53be…53ce Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x0104}
0x53ce…53d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0114}
0x53d8…53ee Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0035, t01=0x011e}
0x53ee…53f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0134}
0x53f8…540a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x013e}
0x540a…541c Head {h00=0x000e, h01=0x0050, text=»* SWHFDB *«, t00=0x0035, t01=0x0150}
0x541c…542e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x0162}
0x542e…5438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0174}
0x5438…546a Head {h00=0x002e, h01=0x0050, text=»* SWITCH FDB ADDRESS AND MOVE PARAMETERS«, t00=0x0035, t01=0x017e}
0x546a…5474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0020}
0x5474…5498 Head {h00=0x0020, h01=0x0050, text=»* INPUT : A11=FDB ADDRESS«, t00=0x0036, t01=0x002a}
0x5498…54c2 Head {h00=0x0026, h01=0x0050, text=»* OUTPUT : A7=INDEX FDB ADDRESS «, t00=0x0036, t01=0x004e}
0x54c2…54fc Head {h00=0x0036, h01=0x0050, text=»* A7=0 , IF NO INDEX FDB ADDRESS FOUND «, t00=0x0036, t01=0x0078}
0x54fc…5528 Head {h00=0x0028, h01=0x0050, text=»* CR SET ACCORDING TO A7 «, t00=0x0036, t01=0x00b2}
0x5528…5548 Head {h00=0x001c, h01=0x0050, text=»* A3 IS USED «, t00=0x0036, t01=0x00de}
0x5548…5552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00fe}
0x5552…5566 Head {h00=0x0010, h01=0x0050, text=»SWHFDB EQU *«, t00=0x0036, t01=0x0108}
0x5566…5588 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A11 GET INDEX«, t00=0x0036, t01=0x011c}
0x5588…559a Head {h00=0x000e, h01=0x0050, text=» SRL A7,10«, t00=0x0036, t01=0x013e}
0x559a…55ac Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0036, t01=0x0150}
0x55ac…55d0 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A11 BASE IN DATA FDB«, t00=0x0036, t01=0x0162}
0x55d0…55f8 Head {h00=0x0024, h01=0x0050, text=» LD A7,FDBAI1,A7 INDEX FDB ADDR «, t00=0x0036, t01=0x0186}
0x55f8…5618 Head {h00=0x001c, h01=0x0050, text=» RF(Z) SWHF90 NOT FOUND «, t00=0x0037, t01=0x001e}
0x5618…5644 Head {h00=0x0028, h01=0x0050, text=»SWHECO EQU * SWITCH ECB AND ORDER =4«, t00=0x0037, t01=0x003e}
0x5644…566e Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTECB,A11 MOVE PARAMETERS «, t00=0x0037, t01=0x006a}
0x566e…5686 Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTECB,A7«, t00=0x0037, t01=0x0094}
0x5686…569e Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTOR,A11«, t00=0x0037, t01=0x00ac}
0x569e…56b6 Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTOR,A7 «, t00=0x0037, t01=0x00c4}
0x56b6…56ca Head {h00=0x0010, h01=0x0050, text=»SWHF90 EQU *«, t00=0x0037, t01=0x00dc}
0x56ca…56de Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0037, t01=0x00f0}
0x56de…56f0 Head {h00=0x000e, h01=0x0050, text=» ADK A7,0 «, t00=0x0037, t01=0x0104}
0x56f0…5702 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0037, t01=0x0116}
0x5702…570c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0128}
0x570c…5718 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0037, t01=0x0132}
0x5718…571c Head {h00=0x4004, h01=0x0000}
0x571c…5720 00 37 01 3e ┆ 7 >┆
0x5720…5728 (56, 1, 8) 20 04 00 00 00 38 00 04 ┆ 8 ┆
0x5728…5778 (57, 0, 398) 00 38 01 6c 00 1a 00 50 5c 53 55 4b 5c 41 34 2c 4f 53 54 52 54 58 2d 4f 57 52 52 4d 58 20 00 39 00 08 00 20 00 50 5c 52 46 28 5a 29 5c 44 4d 54 34 31 30 5c 53 54 41 52 54 20 49 4e 44 45 58 45 44 20 00 39 00 26 00 08 00 50 5c 58 49 46 00 39 ┆ 8 l P SUK A4,OSTRTX-OWRRMX 9 P RF(Z) DMT410 START INDEXED 9 & P XIF 9┆
0x5778…57c8 00 4a 00 1a 00 50 5c 4c 44 52 5c 41 34 2c 41 37 5c 4f 52 44 45 52 20 49 4e 44 45 58 00 39 00 56 00 12 00 50 5c 53 55 4b 5c 41 34 2c 4f 53 54 52 54 44 00 39 00 74 00 24 00 50 5c 52 46 28 4e 5a 29 5c 44 4d 54 34 33 30 5c 4e 4f 54 20 53 54 41 ┆ J P LDR A4,A7 ORDER INDEX 9 V P SUK A4,OSTRTD 9 t $ P RF(NZ) DMT430 NOT STA┆
0x57c8…5818 52 54 20 44 49 52 45 43 54 20 00 39 00 8a 00 0a 00 50 5c 45 4a 45 43 54 00 39 00 b2 00 06 00 50 2a 20 00 39 00 c0 00 2a 00 50 2a 5c 53 54 41 52 54 20 20 20 41 31 2c 41 32 3d 4c 4f 47 49 43 41 4c 20 52 45 43 4f 52 44 20 4e 55 4d 42 45 52 20 ┆RT DIRECT 9 P EJECT 9 P* 9 * P* START A1,A2=LOGICAL RECORD NUMBER ┆
0x5818…5868 00 39 00 ca 00 06 00 50 2a 20 00 39 00 f8 00 10 00 50 2a 5c 4c 52 4e 3d 4c 52 4e 2d 31 20 00 39 01 02 00 06 00 50 2a 20 00 39 01 16 00 10 00 50 44 4d 54 34 31 30 5c 45 51 55 5c 2a 00 39 01 20 00 0e 00 50 5c 4c 44 52 5c 41 33 2c 41 31 00 39 ┆ 9 P* 9 P* LRN=LRN-1 9 P* 9 PDMT410 EQU * 9 P LDR A3,A1 9┆
0x5868…58b6 01 34 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 32 00 39 01 46 00 0e 00 50 5c 53 55 4b 5c 41 34 2c 31 20 00 39 01 58 00 12 00 50 5c 52 46 28 4e 4e 29 5c 44 4d 54 34 32 30 00 39 01 6a 00 12 00 50 5c 41 4e 4b 4c 5c 41 34 2c 2f 37 46 46 46 ┆ 4 P LDR A4,A2 9 F P SUK A4,1 9 X P RF(NN) DMT420 9 j P ANKL A4,/7FFF┆
0x58b6…5906 (58, 0, 400) 00 39 01 80 00 0e 00 50 5c 53 55 4b 5c 41 33 2c 31 20 00 3a 00 08 00 06 00 50 2a 20 00 3a 00 1a 00 24 00 50 2a 5c 53 45 54 20 4e 45 57 20 43 55 52 52 45 4e 54 20 52 45 43 4f 52 44 20 4e 55 4d 42 45 52 20 00 3a 00 24 00 06 00 50 2a 20 00 3a ┆ 9 P SUK A3,1 : P* : $ P* SET NEW CURRENT RECORD NUMBER : $ P* :┆
0x5906…5956 00 4c 00 10 00 50 44 4d 54 34 32 30 5c 45 51 55 5c 2a 00 3a 00 56 00 22 00 50 5c 53 54 5c 41 33 2c 43 52 4e 43 44 46 2c 41 31 30 5c 4e 45 57 20 43 55 52 52 45 4e 43 59 00 3a 00 6a 00 18 00 50 5c 53 54 5c 41 34 2c 43 52 4e 43 44 46 2b 32 2c ┆ L PDMT420 EQU * : V " P ST A3,CRNCDF,A10 NEW CURRENCY : j P ST A4,CRNCDF+2,┆
0x5956…59a6 41 31 30 20 00 3a 00 90 00 0e 00 50 5c 52 46 5c 44 4d 54 34 35 30 00 3a 00 ac 00 04 00 50 00 3a 00 be 00 06 00 50 2a 20 00 3a 00 c6 00 20 00 50 2a 5c 53 45 54 20 43 55 52 52 45 4e 54 20 52 45 43 4f 52 44 20 4e 55 4d 42 45 52 20 00 3a 00 d0 ┆A10 : P RF DMT450 : P : P* : P* SET CURRENT RECORD NUMBER : ┆
0x59a6…59f6 00 06 00 50 2a 20 00 3a 00 f4 00 10 00 50 44 4d 54 34 33 30 5c 45 51 55 5c 2a 00 3a 00 fe 00 16 00 50 5c 53 54 5c 41 31 2c 43 52 4e 43 44 46 2c 41 31 30 20 00 3a 01 12 00 26 00 50 5c 53 54 5c 41 32 2c 43 52 4e 43 44 46 2b 32 2c 41 31 30 5c ┆ P* : PDMT430 EQU * : P ST A1,CRNCDF,A10 : & P ST A2,CRNCDF+2,A10 ┆
0x59f6…5a46 43 52 4e 20 44 41 54 41 20 46 49 4c 45 20 00 3a 01 2c 00 0e 00 50 5c 52 46 5c 44 4d 54 34 35 30 00 3a 01 56 00 04 00 50 00 3a 01 68 00 06 00 50 2a 20 00 3a 01 70 00 12 00 50 2a 20 20 20 55 50 44 41 54 45 20 4c 52 4e 00 3a 01 7a 00 06 00 50 ┆CRN DATA FILE : , P RF DMT450 : V P : h P* : p P* UPDATE LRN : z P┆
0x5a46…5a96 (59, 0, 400) 2a 20 00 3a 01 90 00 10 00 50 44 4d 54 34 34 30 5c 45 51 55 5c 2a 00 3b 00 0a 00 16 00 50 5c 53 43 5c 41 31 2c 46 44 42 4c 52 4e 2c 41 31 31 20 00 3b 00 1e 00 18 00 50 5c 53 54 5c 41 32 2c 46 44 42 4c 52 4e 2b 31 2c 41 31 31 20 00 3b 00 38 ┆* : PDMT440 EQU * ; P SC A1,FDBLRN,A11 ; P ST A2,FDBLRN+1,A11 ; 8┆
0x5a96…5ae6 00 0a 00 50 5c 45 4a 45 43 54 00 3b 00 54 00 10 00 50 44 4d 54 34 35 30 5c 45 51 55 5c 2a 00 3b 00 62 00 06 00 50 2a 20 00 3b 00 76 00 16 00 50 2a 20 20 20 43 48 45 43 4b 20 50 52 4f 54 45 43 54 20 00 3b 00 80 00 06 00 50 2a 20 00 3b 00 9a ┆ P EJECT ; T PDMT450 EQU * ; b P* ; v P* CHECK PROTECT ; P* ; ┆
0x5ae6…5b36 00 20 00 50 5c 4c 43 5c 41 34 2c 46 44 42 4f 4d 44 2c 41 31 31 5c 4f 50 45 4e 20 4d 4f 44 45 20 00 3b 00 a4 00 10 00 50 5c 41 4e 4b 5c 41 34 2c 2f 46 46 20 00 3b 00 c8 00 12 00 50 5c 43 57 4b 5c 41 34 2c 53 44 4d 4f 49 50 00 3b 00 dc 00 26 ┆ P LC A4,FDBOMD,A11 OPEN MODE ; P ANK A4,/FF ; P CWK A4,SDMOIP ; &┆
0x5b36…5b86 00 50 5c 52 46 28 45 29 5c 44 4d 54 34 36 30 5c 4f 50 45 4e 20 49 4e 50 55 54 20 50 52 4f 54 45 43 54 45 44 00 3b 00 f2 00 12 00 50 5c 43 57 4b 5c 41 34 2c 53 44 4d 49 4f 50 00 3b 01 1c 00 32 00 50 5c 52 46 28 4e 45 29 5c 44 4d 54 34 37 30 ┆ P RF(E) DMT460 OPEN INPUT PROTECTED ; P CWK A4,SDMIOP ; 2 P RF(NE) DMT470┆
0x5b86…5bd6 5c 4e 4f 54 20 4f 50 45 4e 20 49 4e 50 55 54 20 4f 55 54 50 55 54 20 50 52 4f 54 45 43 54 45 44 00 3b 01 32 00 06 00 50 2a 20 00 3b 01 68 00 22 00 50 2a 20 20 20 43 48 45 43 4b 20 49 46 20 45 41 20 49 53 20 53 45 54 20 41 4c 52 45 41 44 59 ┆ NOT OPEN INPUT OUTPUT PROTECTED ; 2 P* ; h " P* CHECK IF EA IS SET ALREADY┆
0x5bd6…5c26 (60, 0, 398) 00 3b 01 72 00 06 00 50 2a 20 00 3c 00 08 00 10 00 50 44 4d 54 34 36 30 5c 45 51 55 5c 2a 00 3c 00 12 00 1c 00 50 5c 43 46 5c 41 31 34 2c 45 41 54 45 53 54 5c 43 48 45 43 4b 20 45 41 20 00 3c 00 26 00 22 00 50 5c 52 46 28 4e 5a 29 5c 44 4d ┆ ; r P* < PDMT460 EQU * < P CF A14,EATEST CHECK EA < & " P RF(NZ) DM┆
0x5c26…5c76 54 34 37 30 5c 45 41 20 41 4c 52 45 41 44 59 20 53 45 54 20 00 3c 00 46 00 06 00 50 2a 20 00 3c 00 6c 00 0e 00 50 2a 20 20 20 53 45 54 20 45 41 00 3c 00 76 00 06 00 50 2a 20 00 3c 00 88 00 12 00 50 5c 43 46 5c 41 31 34 2c 45 41 53 45 54 42 ┆T470 EA ALREADY SET < F P* < l P* SET EA < v P* < P CF A14,EASETB┆
0x5c76…5cc6 00 3c 00 92 00 10 00 50 44 4d 54 34 37 30 5c 45 51 55 5c 2a 00 3c 00 a8 00 1e 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 3c 00 bc 00 12 00 50 5c 49 46 54 5c 49 4e 44 58 41 43 3d 31 20 00 3c 00 de ┆ < PDMT470 EQU * < P LDK A1,0 SET RETURN CODE < P IFT INDXAC=1 < ┆
0x5cc6…5d16 00 12 00 50 5c 4c 44 4b 5c 41 34 2c 4f 57 52 52 4d 58 00 3c 00 f4 00 0e 00 50 5c 43 57 52 5c 41 37 2c 41 34 00 3c 01 0a 00 28 00 50 5c 41 42 4c 28 45 29 5c 44 4d 49 4e 53 32 5c 57 52 49 54 45 20 52 41 4e 44 4f 4d 20 49 4e 44 45 58 45 44 20 ┆ P LDK A4,OWRRMX < P CWR A7,A4 < ( P ABL(E) DMINS2 WRITE RANDOM INDEXED ┆
0x5d16…5d64 00 3c 01 1c 00 08 00 50 5c 58 49 46 00 3c 01 48 00 0a 00 50 5c 45 4a 45 43 54 00 3c 01 54 00 2c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 3c 01 62 ┆ < P XIF < H P EJECT < T , P*************************************** < b┆