|
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: 23912 (0x5d68)
Notes: pts_type(SC)
Names: »TIOSDM.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/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 00001 * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * 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=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0006, t01=0x005a}
0x09d4…09fc Head {h00=0x0024, h01=0x0050, 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…0cde Head {h00=0x0014, h01=0x0050, text=»INDXAC EQU 00001«, t00=0x0008, t01=0x004e}
0x0cde…0ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0066}
0x0ce8…0cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0070}
0x0cf2…0d24 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x007a}
0x0d24…0d52 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00ac}
0x0d52…0d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00da}
0x0d5c…0d70 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0008, t01=0x00e4}
0x0d70…0d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7a…0d88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0102}
0x0d88…0d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0110}
0x0d92…0daa Head {h00=0x0014, h01=0x0050, text=»* ERROR CODES «, t00=0x0008, t01=0x011a}
0x0daa…0db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0132}
0x0db4…0dc8 Head {h00=0x0010, h01=0x0050, text=»* MESSAGES«, t00=0x0008, t01=0x013c}
0x0dc8…0dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0150}
0x0dd2…0ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015a}
0x0ddc…0e02 Head {h00=0x0022, h01=0x0050, text=»FCUSED EQU 7 INVALID FILE CODE«, t00=0x0008, t01=0x0164}
0x0e02…0e0a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x018a}
0x0e0a…0e22 (9, 0, 398) Head {h00=0x0014, h01=0x0050, text=»RQERR EQU /8000 «, t00=0x0009, t01=0x0004}
0x0e22…0e30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x001c}
0x0e30…0e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002a}
0x0e3a…0e5a Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0034}
0x0e5a…0e7a Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x0009, t01=0x0054}
0x0e7a…0e9a Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0074}
0x0e9a…0ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0094}
0x0ea4…0ebc Head {h00=0x0014, h01=0x0050, text=»* BRANCH TABLE«, t00=0x0009, t01=0x009e}
0x0ebc…0ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b6}
0x0ec6…0eda Head {h00=0x0010, h01=0x0050, text=»TIODMF EQU *«, t00=0x0009, t01=0x00c0}
0x0eda…0ef0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0009, t01=0x00d4}
0x0ef0…0f02 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x00ea}
0x0f02…0f14 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x00fc}
0x0f14…0f26 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x010e}
0x0f26…0f38 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x0120}
0x0f38…0f4a Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x0132}
0x0f4a…0f5c Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x0144}
0x0f5c…0f6e Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x0156}
0x0f6e…0f80 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x0009, t01=0x0168}
0x0f80…0f9c Head {h00=0x0018, h01=0x0050, text=»QCLDIS EQU *-TIODMF «, t00=0x0009, t01=0x017a}
0x0f9c…0fb0 Head {h00=0x0010, h01=0x0050, text=» DATA CLOSED«, t00=0x000a, t01=0x0008}
0x0fb0…0fc4 Head {h00=0x0010, h01=0x0050, text=» DATA CLOSE «, t00=0x000a, t01=0x001c}
0x0fc4…0fd8 Head {h00=0x0010, h01=0x0050, text=» DATA RDFIPA«, t00=0x000a, t01=0x0030}
0x0fd8…0ff4 Head {h00=0x0018, h01=0x0050, text=»SDMOEX EQU *-TIODMF «, t00=0x000a, t01=0x0044}
0x0ff4…1012 Head {h00=0x001a, h01=0x0050, text=» DATA DISIOE NOT USED «, t00=0x000a, t01=0x0060}
0x1012…101c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007e}
0x101c…1032 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x000a, t01=0x0088}
0x1032…103c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009e}
0x103c…1046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a8}
0x1046…1062 Head {h00=0x0018, h01=0x0050, text=»QWRSQ0 EQU *-TIODMF «, t00=0x000a, t01=0x00b2}
0x1062…1076 Head {h00=0x0010, h01=0x0050, text=» DATA WRSQ00«, t00=0x000a, t01=0x00ce}
0x1076…1096 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000a, t01=0x00e2}
0x1096…10aa Head {h00=0x0010, h01=0x0050, text=» DATA WRRN00«, t00=0x000a, t01=0x0102}
0x10aa…10be Head {h00=0x0010, h01=0x0050, text=» DATA WRRNIX«, t00=0x000a, t01=0x0116}
0x10be…10d2 Head {h00=0x0010, h01=0x0050, text=» DATA RWCU00«, t00=0x000a, t01=0x012a}
0x10d2…10e6 Head {h00=0x0010, h01=0x0050, text=» DATA RWCUIX«, t00=0x000a, t01=0x013e}
0x10e6…10fa Head {h00=0x0010, h01=0x0050, text=» DATA RWDI00«, t00=0x000a, t01=0x0152}
0x10fa…110e Head {h00=0x0010, h01=0x0050, text=» DATA RWDIIX«, t00=0x000a, t01=0x0166}
0x110e…1122 Head {h00=0x0010, h01=0x0050, text=» DATA DECU00«, t00=0x000a, t01=0x017a}
0x1122…1136 Head {h00=0x0010, h01=0x0050, text=» DATA DECUIX«, t00=0x000a, t01=0x018e}
0x1136…114a Head {h00=0x0010, h01=0x0050, text=» DATA DEDI00«, t00=0x000b, t01=0x0012}
0x114a…115e Head {h00=0x0010, h01=0x0050, text=» DATA DEDIIX«, t00=0x000b, t01=0x0026}
0x115e…117a Head {h00=0x0018, h01=0x0050, text=»QRDSQ0 EQU *-TIODMF «, t00=0x000b, t01=0x003a}
0x117a…118e Head {h00=0x0010, h01=0x0050, text=» DATA RDSQ00«, t00=0x000b, t01=0x0056}
0x118e…11a2 Head {h00=0x0010, h01=0x0050, text=» DATA RDSQIX«, t00=0x000b, t01=0x006a}
0x11a2…11b6 Head {h00=0x0010, h01=0x0050, text=» DATA RDRN00«, t00=0x000b, t01=0x007e}
0x11b6…11ca Head {h00=0x0010, h01=0x0050, text=» DATA RDRNIX«, t00=0x000b, t01=0x0092}
0x11ca…11de Head {h00=0x0010, h01=0x0050, text=» DATA STEQ00«, t00=0x000b, t01=0x00a6}
0x11de…11f2 Head {h00=0x0010, h01=0x0050, text=» DATA STEQIX«, t00=0x000b, t01=0x00ba}
0x11f2…120e Head {h00=0x0018, h01=0x0050, text=»QSTG00 EQU *-TIODMF «, t00=0x000b, t01=0x00ce}
0x120e…1222 Head {h00=0x0010, h01=0x0050, text=» DATA STGR00«, t00=0x000b, t01=0x00ea}
0x1222…123e Head {h00=0x0018, h01=0x0050, text=»QSTGIX EQU *-TIODMF «, t00=0x000b, t01=0x00fe}
0x123e…1252 Head {h00=0x0010, h01=0x0050, text=» DATA STGRIX«, t00=0x000b, t01=0x011a}
0x1252…1266 Head {h00=0x0010, h01=0x0050, text=» DATA STNL00«, t00=0x000b, t01=0x012e}
0x1266…127a Head {h00=0x0010, h01=0x0050, text=» DATA STNLIX«, t00=0x000b, t01=0x0142}
0x127a…1284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0156}
0x1284…1290 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0160}
0x1290…12a6 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000b, t01=0x016c}
0x12a6…12b8 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000b, t01=0x0182}
0x12b8…12ca (12, 0, 400) Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x0004}
0x12ca…12dc Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x0016}
0x12dc…12ee Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x0028}
0x12ee…1300 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x003a}
0x1300…1312 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x004c}
0x1312…1324 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x005e}
0x1324…1336 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000c, t01=0x0070}
0x1336…1352 Head {h00=0x0018, h01=0x0050, text=»QCLDIS EQU *-TIODMF «, t00=0x000c, t01=0x0082}
0x1352…1366 Head {h00=0x0010, h01=0x0050, text=» DATA CLOSE «, t00=0x000c, t01=0x009e}
0x1366…137a Head {h00=0x0010, h01=0x0050, text=» DATA CLOSE «, t00=0x000c, t01=0x00b2}
0x137a…138e Head {h00=0x0010, h01=0x0050, text=» DATA RDFIPA«, t00=0x000c, t01=0x00c6}
0x138e…13aa Head {h00=0x0018, h01=0x0050, text=»SDMOEX EQU *-TIODMF «, t00=0x000c, t01=0x00da}
0x13aa…13c8 Head {h00=0x001a, h01=0x0050, text=» DATA DISIOE NOT USED «, t00=0x000c, t01=0x00f6}
0x13c8…13d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0114}
0x13d2…13e8 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x000c, t01=0x011e}
0x13e8…13f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0134}
0x13f2…13fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013e}
0x13fc…1418 Head {h00=0x0018, h01=0x0050, text=»QWRSQ0 EQU *-TIODMF «, t00=0x000c, t01=0x0148}
0x1418…142c Head {h00=0x0010, h01=0x0050, text=» DATA WRSQ00«, t00=0x000c, t01=0x0164}
0x142c…144c Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000c, t01=0x0178}
0x144c…1460 Head {h00=0x0010, h01=0x0050, text=» DATA WRRN00«, t00=0x000d, t01=0x0008}
0x1460…1480 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x001c}
0x1480…1494 Head {h00=0x0010, h01=0x0050, text=» DATA RWCU00«, t00=0x000d, t01=0x003c}
0x1494…14b4 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x0050}
0x14b4…14c8 Head {h00=0x0010, h01=0x0050, text=» DATA RWDI00«, t00=0x000d, t01=0x0070}
0x14c8…14e8 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x0084}
0x14e8…14fc Head {h00=0x0010, h01=0x0050, text=» DATA DECU00«, t00=0x000d, t01=0x00a4}
0x14fc…151c Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x00b8}
0x151c…1530 Head {h00=0x0010, h01=0x0050, text=» DATA DEDI00«, t00=0x000d, t01=0x00d8}
0x1530…1550 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x00ec}
0x1550…156c Head {h00=0x0018, h01=0x0050, text=»QRDSQ0 EQU *-TIODMF «, t00=0x000d, t01=0x010c}
0x156c…1580 Head {h00=0x0010, h01=0x0050, text=» DATA RDSQ00«, t00=0x000d, t01=0x0128}
0x1580…15a0 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x013c}
0x15a0…15b4 Head {h00=0x0010, h01=0x0050, text=» DATA RDRN00«, t00=0x000d, t01=0x015c}
0x15b4…15d4 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000d, t01=0x0170}
0x15d4…15e8 Head {h00=0x0010, h01=0x0050, text=» DATA STEQ00«, t00=0x000d, t01=0x0190}
0x15e8…1608 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000e, t01=0x0014}
0x1608…1624 Head {h00=0x0018, h01=0x0050, text=»QSTG00 EQU *-TIODMF «, t00=0x000e, t01=0x0034}
0x1624…1638 Head {h00=0x0010, h01=0x0050, text=» DATA STGR00«, t00=0x000e, t01=0x0050}
0x1638…1658 Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000e, t01=0x0064}
0x1658…166c Head {h00=0x0010, h01=0x0050, text=» DATA STNL00«, t00=0x000e, t01=0x0084}
0x166c…168c Head {h00=0x001c, h01=0x0050, text=» DATA DISIOE NOT ALLOWED«, t00=0x000e, t01=0x0098}
0x168c…1698 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00b8}
0x1698…16a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c4}
0x16a2…16b8 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x000e, t01=0x00ce}
0x16b8…16c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e4}
0x16c2…16d4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00ee}
0x16d4…16e6 Head {h00=0x000e, h01=0x0050, text=»* OPEMOD *«, t00=0x000e, t01=0x0100}
0x16e6…16f8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0112}
0x16f8…1702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0124}
0x1702…1738 Head {h00=0x0032, h01=0x0050, text=»* TABLE OVER ALLOWED IO ORDERS VS OPENMODES «, t00=0x000e, t01=0x012e}
0x1738…1742 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0164}
0x1742…1756 Head {h00=0x0010, h01=0x0050, text=»* BIT ORDER «, t00=0x000e, t01=0x016e}
0x1756…176e Head {h00=0x0014, h01=0x0050, text=»* 0 NOT USED =1 «, t00=0x000e, t01=0x0182}
0x176e…1786 Head {h00=0x0014, h01=0x0050, text=»* 1 NOT USED =1 «, t00=0x000f, t01=0x000a}
0x1786…17a4 Head {h00=0x001a, h01=0x0050, text=»* 2 START NOT LESS =1 «, t00=0x000f, t01=0x0022}
0x17a4…17c0 Head {h00=0x0018, h01=0x0050, text=»* 3 START GREATER =1«, t00=0x000f, t01=0x0040}
0x17c0…17da Head {h00=0x0016, h01=0x0050, text=»* 4 START EQUAL =1«, t00=0x000f, t01=0x005c}
0x17da…17f4 Head {h00=0x0016, h01=0x0050, text=»* 5 READ RANDOM =1«, t00=0x000f, t01=0x0076}
0x17f4…1812 Head {h00=0x001a, h01=0x0050, text=»* 6 READ SEQUENTIAL =1«, t00=0x000f, t01=0x0090}
0x1812…182e Head {h00=0x0018, h01=0x0050, text=»* 7 DELETE DIRECT =1«, t00=0x000f, t01=0x00ae}
0x182e…184c Head {h00=0x001a, h01=0x0050, text=»* 8 DELETE CURRENT =1 «, t00=0x000f, t01=0x00ca}
0x184c…186a Head {h00=0x001a, h01=0x0050, text=»* 9 REWRITE DIRECT =1 «, t00=0x000f, t01=0x00e8}
0x186a…188a Head {h00=0x001c, h01=0x0050, text=»* 10 REWRITE CURRENT =1 «, t00=0x000f, t01=0x0106}
0x188a…18a6 Head {h00=0x0018, h01=0x0050, text=»* 11 WRITE RANDOM =1«, t00=0x000f, t01=0x0126}
0x18a6…18c6 Head {h00=0x001c, h01=0x0050, text=»* 12 WRITE SEQUENTIAL =1«, t00=0x000f, t01=0x0142}
0x18c6…18e0 Head {h00=0x0016, h01=0x0050, text=»* 13 NOT USED =2 «, t00=0x000f, t01=0x0162}
0x18e0…18fa Head {h00=0x0016, h01=0x0050, text=»* 14 NOT USED =2 «, t00=0x000f, t01=0x017c}
0x18fa…1914 Head {h00=0x0016, h01=0x0050, text=»* 15 NOT USED =2 «, t00=0x0010, t01=0x0008}
0x1914…191e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0022}
0x191e…1932 Head {h00=0x0010, h01=0x0050, text=»OPEMOD EQU *«, t00=0x0010, t01=0x002c}
0x1932…1956 Head {h00=0x0020, h01=0x0050, text=» DATA /3E00 INPUT UNPROT. =2«, t00=0x0010, t01=0x0040}
0x1956…197c Head {h00=0x0022, h01=0x0050, text=» DATA /3E00 INPUT PROTECTED =2«, t00=0x0010, t01=0x0064}
0x197c…19a2 Head {h00=0x0022, h01=0x0050, text=» DATA /3E00 INPUT EXCLUSIVE =2«, t00=0x0010, t01=0x008a}
0x19a2…19cc Head {h00=0x0026, h01=0x0050, text=» DATA /3FF8 INPUT/OUTPUT PROT. =2 «, t00=0x0010, t01=0x00b0}
0x19cc…19f6 Head {h00=0x0026, h01=0x0050, text=» DATA /3FF8 INPUT/OUTPUT EXCL. =2 «, t00=0x0010, t01=0x00da}
0x19f6…1a1e Head {h00=0x0024, h01=0x0050, text=» DATA /0008 EXTEND EXCLUSIVE =2 «, t00=0x0010, t01=0x0104}
0x1a1e…1a46 Head {h00=0x0024, h01=0x0050, text=» DATA /0008 OUTPUT SEQUENTIAL =2«, t00=0x0010, t01=0x012c}
0x1a46…1a6a Head {h00=0x0020, h01=0x0050, text=» DATA /0018 OUTPUT RANDOM =2«, t00=0x0010, t01=0x0154}
0x1a6a…1a80 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0010, t01=0x0178}
0x1a80…1a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018e}
0x1a8a…1a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a94…1aa6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x0012}
0x1aa6…1ab8 Head {h00=0x000e, h01=0x0050, text=»* ORDTA1 *«, t00=0x0011, t01=0x0024}
0x1ab8…1aca Head {h00=0x000e, h01=0x0050, text=»* ORDTA2 *«, t00=0x0011, t01=0x0036}
0x1aca…1adc Head {h00=0x000e, h01=0x0050, text=»* ORDTA3 *«, t00=0x0011, t01=0x0048}
0x1adc…1aee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0011, t01=0x005a}
0x1aee…1af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006c}
0x1af8…1b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0076}
0x1b02…1b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0080}
0x1b0c…1b4a Head {h00=0x003a, h01=0x0050, text=»* ORDTA1: ADMINISTATION FUNCTION ORDERS (NO INDEX)«, t00=0x0011, t01=0x008a}
0x1b4a…1b98 Head {h00=0x004a, h01=0x0050, text=»* ORDTA2: ORDER WITH SPECIAL INDEX HANDLING (FDBNIF CONTAIN INDEX)«, t00=0x0011, t01=0x00c8}
0x1b98…1bd6 Head {h00=0x003a, h01=0x0050, text=»* ORDTA3: ORDERS WITH INTERNAL INDEX IN ORDER WORD«, t00=0x0011, t01=0x0116}
0x1bd6…1be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0154}
0x1be0…1bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015e}
0x1bea…1c00 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0011, t01=0x0168}
0x1c00…1c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017e}
0x1c0a…1c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0188}
0x1c14…1c1e (18, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0004}
0x1c1e…1c32 Head {h00=0x0010, h01=0x0050, text=»ORDTA1 EQU *«, t00=0x0012, t01=0x000e}
0x1c32…1c5e Head {h00=0x0028, h01=0x0050, text=» DATA /821 OPEN INPUT UNPROTECTED«, t00=0x0012, t01=0x0022}
0x1c5e…1c7a Head {h00=0x0018, h01=0x0050, text=»SDMOIP EQU *-ORDTA1 «, t00=0x0012, t01=0x004e}
0x1c7a…1ca4 Head {h00=0x0026, h01=0x0050, text=» DATA /921 OPEN INPUT PROTECTED«, t00=0x0012, t01=0x006a}
0x1ca4…1cc0 Head {h00=0x0018, h01=0x0050, text=»SDMOIE EQU *-ORDTA1 «, t00=0x0012, t01=0x0094}
0x1cc0…1cea Head {h00=0x0026, h01=0x0050, text=» DATA /A21 OPEN INPUT EXCLUSIVE«, t00=0x0012, t01=0x00b0}
0x1cea…1d06 Head {h00=0x0018, h01=0x0050, text=»SDMIOP EQU *-ORDTA1 «, t00=0x0012, t01=0x00da}
0x1d06…1d38 Head {h00=0x002e, h01=0x0050, text=» DATA /3921 OPEN INPUT/OUTPUT PROTECTED«, t00=0x0012, t01=0x00f6}
0x1d38…1d6a Head {h00=0x002e, h01=0x0050, text=» DATA /3A21 OPEN INPUT/OUTPUT EXCLUSIVE«, t00=0x0012, t01=0x0128}
0x1d6a…1d86 Head {h00=0x0018, h01=0x0050, text=»SDMOEE EQU *-ORDTA1 «, t00=0x0012, t01=0x015a}
0x1d86…1db2 Head {h00=0x0028, h01=0x0050, text=» DATA /5221 OPEN EXTEND EXCLUSIVE«, t00=0x0012, t01=0x0176}
0x1db2…1dce Head {h00=0x0018, h01=0x0050, text=»SDMOOS EQU *-ORDTA1 «, t00=0x0013, t01=0x0012}
0x1dce…1e06 Head {h00=0x0034, h01=0x0050, text=» DATA /1221 OPEN OUTPUT SEQUENTIAL EXCLUSIVE «, t00=0x0013, t01=0x002e}
0x1e06…1e22 Head {h00=0x0018, h01=0x0050, text=»SDMOOR EQU *-ORDTA1 «, t00=0x0013, t01=0x0066}
0x1e22…1e5a Head {h00=0x0034, h01=0x0050, text=» DATA /3221 OPEN OUTPUT RANDOM EXCLUSIVE «, t00=0x0013, t01=0x0082}
0x1e5a…1e76 Head {h00=0x0018, h01=0x0050, text=»SDMLIM EQU *-ORDTA1 «, t00=0x0013, t01=0x00ba}
0x1e76…1e98 Head {h00=0x001e, h01=0x0050, text=» DATA /222 CLOSE DISCARD«, t00=0x0013, t01=0x00d6}
0x1e98…1eb6 Head {h00=0x001a, h01=0x0050, text=» DATA /022 CLOSE LOCK«, t00=0x0013, t01=0x00f8}
0x1eb6…1edc Head {h00=0x0022, h01=0x0050, text=» DATA /3 READ FILE PARAMETERS «, t00=0x0013, t01=0x0116}
0x1edc…1ef8 Head {h00=0x0018, h01=0x0050, text=»ORDTL1 EQU *-ORDTA1 «, t00=0x0013, t01=0x013c}
0x1ef8…1f0c Head {h00=0x0010, h01=0x0050, text=»ORDTA2 EQU *«, t00=0x0013, t01=0x0158}
0x1f0c…1f30 Head {h00=0x0020, h01=0x0050, text=» DATA /006 WRITE SEQUENTIAL«, t00=0x0013, t01=0x016c}
0x1f30…1f50 Head {h00=0x001c, h01=0x0050, text=» DATA /106 WRITE RANDOM «, t00=0x0013, t01=0x0190}
0x1f50…1f72 Head {h00=0x001e, h01=0x0050, text=» DATA /407 REWRITE CURRENT«, t00=0x0014, t01=0x0020}
0x1f72…1f94 Head {h00=0x001e, h01=0x0050, text=» DATA /107 REWRITE DIRECT «, t00=0x0014, t01=0x0042}
0x1f94…1fb6 Head {h00=0x001e, h01=0x0050, text=» DATA /408 DELETE CURRENT «, t00=0x0014, t01=0x0064}
0x1fb6…1fd6 Head {h00=0x001c, h01=0x0050, text=» DATA /108 DELETE DIRECT«, t00=0x0014, t01=0x0086}
0x1fd6…1ff2 Head {h00=0x0018, h01=0x0050, text=»ORDTL2 EQU *-ORDTA2 «, t00=0x0014, t01=0x00a6}
0x1ff2…2000 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00c2}
0x2000…2014 Head {h00=0x0010, h01=0x0050, text=»ORDTA3 EQU *«, t00=0x0014, t01=0x00d0}
0x2014…2036 Head {h00=0x001e, h01=0x0050, text=» DATA /002 READ SEQUENTIAL«, t00=0x0014, t01=0x00e4}
0x2036…2054 Head {h00=0x001a, h01=0x0050, text=» DATA /102 READ RANDOM«, t00=0x0014, t01=0x0106}
0x2054…2072 Head {h00=0x001a, h01=0x0050, text=» DATA /00B START EQUAL«, t00=0x0014, t01=0x0124}
0x2072…2092 Head {h00=0x001c, h01=0x0050, text=» DATA /10B START GREATER«, t00=0x0014, t01=0x0142}
0x2092…20b4 Head {h00=0x001e, h01=0x0050, text=» DATA /20B START NOT LESS «, t00=0x0014, t01=0x0162}
0x20b4…20d0 Head {h00=0x0018, h01=0x0050, text=»ORDTL3 EQU *-ORDTA3 «, t00=0x0014, t01=0x0184}
0x20d0…20e4 Head {h00=0x0010, h01=0x0050, text=»ORDTEN EQU *«, t00=0x0015, t01=0x0010}
0x20e4…20ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0024}
0x20ee…20f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002e}
0x20f8…210e Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0015, t01=0x0038}
0x210e…2118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004e}
0x2118…212c Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0015, t01=0x0058}
0x212c…213e Head {h00=0x000e, h01=0x0050, text=»* ENTRY «, t00=0x0015, t01=0x006c}
0x213e…2152 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0015, t01=0x007e}
0x2152…215c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0092}
0x215c…2184 Head {h00=0x0024, h01=0x0050, text=»* INPUT : A14 = STACK POINTER «, t00=0x0015, t01=0x009c}
0x2184…21aa Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB ADDRESS «, t00=0x0015, t01=0x00c4}
0x21aa…21d0 Head {h00=0x0022, h01=0x0050, text=»* A6 = FDB ADDRESS «, t00=0x0015, t01=0x00ea}
0x21d0…21da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0110}
0x21da…21ee Head {h00=0x0010, h01=0x0050, text=»TIOSDM EQU *«, t00=0x0015, t01=0x011a}
0x21ee…220e Head {h00=0x001c, h01=0x0050, text=» LDR A11,A6 FDB ADDRESS «, t00=0x0015, t01=0x012e}
0x220e…2234 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,/4000 ORDER CHECK BIT«, t00=0x0015, t01=0x014e}
0x2234…2266 Head {h00=0x002e, h01=0x0050, text=» LDKL A10,ORDTEN-2 CHECK ORDER AND OPTION «, t00=0x0015, t01=0x0174}
0x2266…227e Head {h00=0x0014, h01=0x0050, text=» LDK A3,ORDTL3-2«, t00=0x0016, t01=0x0016}
0x227e…22a8 Head {h00=0x0026, h01=0x0050, text=» LD A7,DWTOR,A11 ORDER AND OPTION «, t00=0x0016, t01=0x002e}
0x22a8…22ba Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0016, t01=0x0058}
0x22ba…22da Head {h00=0x001c, h01=0x0050, text=» ANKL A7,/7FF NOT INDEX «, t00=0x0016, t01=0x006a}
0x22da…22f0 Head {h00=0x0012, h01=0x0050, text=» CF A14,CHKORD«, t00=0x0016, t01=0x008a}
0x22f0…2312 Head {h00=0x001e, h01=0x0050, text=» RF(N) TIOS10 NOT IN TABLE«, t00=0x0016, t01=0x00a0}
0x2312…2324 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0016, t01=0x00c2}
0x2324…234e Head {h00=0x0026, h01=0x0050, text=» ADK A3,QRDSQ0 ADJUST DISPLACEMENT«, t00=0x0016, t01=0x00d4}
0x234e…2360 Head {h00=0x000e, h01=0x0050, text=» SRL A1,11«, t00=0x0016, t01=0x00fe}
0x2360…237e Head {h00=0x001a, h01=0x0050, text=» RF(Z) TIOS20 NO INDEX«, t00=0x0016, t01=0x0110}
0x237e…239a Head {h00=0x0018, h01=0x0050, text=» SUK A1,4 MAX INDEX «, t00=0x0016, t01=0x012e}
0x239a…23be Head {h00=0x0020, h01=0x0050, text=» RF(NP) TIOS15 ALLOWED INDEX«, t00=0x0016, t01=0x014a}
0x23be…23d2 Head {h00=0x0010, h01=0x0050, text=»REQERR EQU *«, t00=0x0016, t01=0x016e}
0x23d2…23f2 Head {h00=0x001c, h01=0x0050, text=» LDR A6,A11 FDB ADDRESS «, t00=0x0016, t01=0x0182}
0x23f2…2410 Head {h00=0x001a, h01=0x0050, text=» ABL DISIOE REQUEST IO«, t00=0x0017, t01=0x0012}
0x2410…241a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0030}
0x241a…2430 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0017, t01=0x003a}
0x2430…243a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0050}
0x243a…2444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x005a}
0x2444…244e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0064}
0x244e…2462 Head {h00=0x0010, h01=0x0050, text=»TIOS10 EQU *«, t00=0x0017, t01=0x006e}
0x2462…2488 Head {h00=0x0022, h01=0x0050, text=» LDK A3,ORDTL2-2 TABLE LENGTH «, t00=0x0017, t01=0x0082}
0x2488…24a0 Head {h00=0x0014, h01=0x0050, text=»* LDR A7,A1 =3 «, t00=0x0017, t01=0x00a8}
0x24a0…24b6 Head {h00=0x0012, h01=0x0050, text=» CF A14,CHKORD«, t00=0x0017, t01=0x00c0}
0x24b6…24de Head {h00=0x0024, h01=0x0050, text=» RF(N) TIOS25 ORDER NOT IN TABLE«, t00=0x0017, t01=0x00d6}
0x24de…24f0 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0017, t01=0x00fe}
0x24f0…251a Head {h00=0x0026, h01=0x0050, text=» ADK A3,QWRSQ0 ADJUST DISPLACEMENT«, t00=0x0017, t01=0x0110}
0x251a…2534 Head {h00=0x0016, h01=0x0050, text=» LC A1,FDBNIF,A11 «, t00=0x0017, t01=0x013a}
0x2534…2548 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0017, t01=0x0154}
0x2548…2566 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TIOS20 NO INDEX«, t00=0x0017, t01=0x0168}
0x2566…257a Head {h00=0x0010, h01=0x0050, text=»TIOS15 EQU *«, t00=0x0017, t01=0x0186}
0x257a…259c Head {h00=0x001e, h01=0x0050, text=» ADK A3,2 INDICATE INDEXED«, t00=0x0018, t01=0x000a}
0x259c…25ca Head {h00=0x002a, h01=0x0050, text=»TIOS20 EQU * CHECK ORDER VS OPEN MODE«, t00=0x0018, t01=0x002c}
0x25ca…25f2 Head {h00=0x0024, h01=0x0050, text=» LC A1,FDBOMD,A11 GET OPEN MODE «, t00=0x0018, t01=0x005a}
0x25f2…2606 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/7F «, t00=0x0018, t01=0x0082}
0x2606…261e Head {h00=0x0014, h01=0x0050, text=» AN A2,OPEMOD,A1«, t00=0x0018, t01=0x0096}
0x261e…2642 Head {h00=0x0020, h01=0x0050, text=» RB(Z) REQERR ILLEGAL ORDER «, t00=0x0018, t01=0x00ae}
0x2642…2654 Head {h00=0x000e, h01=0x0050, text=» RF TIOS30«, t00=0x0018, t01=0x00d2}
0x2654…265e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e4}
0x265e…2672 Head {h00=0x0010, h01=0x0050, text=»TIOS25 EQU *«, t00=0x0018, t01=0x00ee}
0x2672…269c Head {h00=0x0026, h01=0x0050, text=» LDR A7,A1 ORDER WITH ALL BITS =3 «, t00=0x0018, t01=0x0102}
0x269c…26b4 Head {h00=0x0014, h01=0x0050, text=» LDK A3,ORDTL1-2«, t00=0x0018, t01=0x012c}
0x26b4…26ca Head {h00=0x0012, h01=0x0050, text=» CF A14,CHKORD«, t00=0x0018, t01=0x0144}
0x26ca…26f0 Head {h00=0x0022, h01=0x0050, text=» RB(N) REQERR ORDER NOT FOUND «, t00=0x0018, t01=0x015a}
0x26f0…26fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0180}
0x26fa…2710 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0018, t01=0x018a}
0x2710…271a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0010}
0x271a…2724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001a}
0x2724…2738 Head {h00=0x0010, h01=0x0050, text=»TIOS30 EQU *«, t00=0x0019, t01=0x0024}
0x2738…274c Head {h00=0x0010, h01=0x0050, text=» LDR A10,A3 «, t00=0x0019, t01=0x0038}
0x274c…2766 Head {h00=0x0016, h01=0x0050, text=» SC A3,DWTOR+1,A11«, t00=0x0019, t01=0x004c}
0x2766…279e Head {h00=0x0034, h01=0x0050, text=» LD A5,DWTTAB,A11 GET CALLING TASK TTAB ADDRESS «, t00=0x0019, t01=0x0066}
0x279e…27c2 Head {h00=0x0020, h01=0x0050, text=» SUK A3,QCLDIS CLOSE DISCARD«, t00=0x0019, t01=0x009e}
0x27c2…27e2 Head {h00=0x001c, h01=0x0050, text=» RF(N) TIOS35 OPEN ORDER«, t00=0x0019, t01=0x00c2}
0x27e2…27fa Head {h00=0x0014, h01=0x0050, text=» CWK A11,FDBSTA «, t00=0x0019, t01=0x00e2}
0x27fa…281a Head {h00=0x001c, h01=0x0050, text=» RB(E) REQERR NOT OPENED«, t00=0x0019, t01=0x00fa}
0x281a…284e Head {h00=0x0030, h01=0x0050, text=» LD A1,FDBEXC,A11 EXCLUSIVE ACCESS INDICATOR«, t00=0x0019, t01=0x011a}
0x284e…2878 Head {h00=0x0026, h01=0x0050, text=» RF(Z) TIOS35 NOT OPENED EXCLUSIVE«, t00=0x0019, t01=0x014e}
0x2878…288a Head {h00=0x000e, h01=0x0050, text=» CWR A1,A5«, t00=0x0019, t01=0x0178}
0x288a…28bc Head {h00=0x002e, h01=0x0050, text=» RB(NE) REQERR OTHER TASK EXCLUSIVE ACCESS«, t00=0x0019, t01=0x018a}
0x28bc…28d0 Head {h00=0x0010, h01=0x0050, text=»TIOS35 EQU *«, t00=0x001a, t01=0x002c}
0x28d0…28e6 Head {h00=0x0012, h01=0x0050, text=» LD A1,SCTTCT «, t00=0x001a, t01=0x0040}
0x28e6…2904 Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A1 TAB LENGTH«, t00=0x001a, t01=0x0056}
0x2904…2916 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x001a, t01=0x0074}
0x2916…2928 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x001a, t01=0x0086}
0x2928…293c Head {h00=0x0010, h01=0x0050, text=»TIOS40 EQU *«, t00=0x001a, t01=0x0098}
0x293c…294e Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x001a, t01=0x00ac}
0x294e…2960 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001a, t01=0x00be}
0x2960…2984 Head {h00=0x0020, h01=0x0050, text=» RF(Z) TIOS50 END OF SCTTCT «, t00=0x001a, t01=0x00d0}
0x2984…2998 Head {h00=0x0010, h01=0x0050, text=» CWR* A5,A1 «, t00=0x001a, t01=0x00f4}
0x2998…29bc Head {h00=0x0020, h01=0x0050, text=» RB(NE) TIOS40 NOT THIS TASK«, t00=0x001a, t01=0x0108}
0x29bc…29d0 Head {h00=0x0010, h01=0x0050, text=»TIOS45 EQU *«, t00=0x001a, t01=0x012c}
0x29d0…29fa Head {h00=0x0026, h01=0x0050, text=» SC A2,FDBTNR,A11 USER TASK NUMBER«, t00=0x001a, t01=0x0140}
0x29fa…2a0c Head {h00=0x000e, h01=0x0050, text=» RF TIOS90«, t00=0x001a, t01=0x016a}
0x2a0c…2a1a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x017c}
0x2a1a…2a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018a}
0x2a24…2a3c (27, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* SEARCH DM TASK«, t00=0x001b, t01=0x0004}
0x2a3c…2a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001c}
0x2a46…2a5a Head {h00=0x0010, h01=0x0050, text=»TIOS50 EQU *«, t00=0x001b, t01=0x0026}
0x2a5a…2a82 Head {h00=0x0024, h01=0x0050, text=» LDK A2,/FF DATA MANAGEMENT TASK«, t00=0x001b, t01=0x003a}
0x2a82…2aa8 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,TTABD TTAB ADDRESS #D«, t00=0x001b, t01=0x0062}
0x2aa8…2abc Head {h00=0x0010, h01=0x0050, text=»TIOS55 EQU *«, t00=0x001b, t01=0x0088}
0x2abc…2ace Head {h00=0x000e, h01=0x0050, text=» CWR A5,A1«, t00=0x001b, t01=0x009c}
0x2ace…2af0 Head {h00=0x001e, h01=0x0050, text=» RB(E) TIOS45 CORRECT TASK«, t00=0x001b, t01=0x00ae}
0x2af0…2b12 Head {h00=0x001e, h01=0x0050, text=» ADKL A1,TTABLN NEXT TTAB «, t00=0x001b, t01=0x00d0}
0x2b12…2b28 Head {h00=0x0012, h01=0x0050, text=» CWK A1,TABEND«, t00=0x001b, t01=0x00f2}
0x2b28…2b4c Head {h00=0x0020, h01=0x0050, text=» RB(E) REQERR TASK NOT FOUND«, t00=0x001b, t01=0x0108}
0x2b4c…2b5e Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001b, t01=0x012c}
0x2b5e…2b70 Head {h00=0x000e, h01=0x0050, text=» RB TIOS55«, t00=0x001b, t01=0x013e}
0x2b70…2b86 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x001b, t01=0x0150}
0x2b86…2b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0166}
0x2b90…2b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0170}
0x2b9a…2bae Head {h00=0x0010, h01=0x0050, text=»TIOS90 EQU *«, t00=0x001b, t01=0x017a}
0x2bae…2bce Head {h00=0x001c, h01=0x0050, text=» CF A14,CRNGET CURRENCY «, t00=0x001b, t01=0x018e}
0x2bce…2bda Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001c, t01=0x001e}
0x2bda…2c04 Head {h00=0x0026, h01=0x0050, text=» LDR A4,A2 CURRENCY BUFFER ADDRESS«, t00=0x001c, t01=0x002a}
0x2c04…2c16 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001c, t01=0x0054}
0x2c16…2c3c Head {h00=0x0022, h01=0x0050, text=» SC A2,CRNSTA,A4 RESET STATUS «, t00=0x001c, t01=0x0066}
0x2c3c…2c64 Head {h00=0x0024, h01=0x0050, text=» LC A2,CRNCDF+1,A4 GET CURRENCY «, t00=0x001c, t01=0x008c}
0x2c64…2c7e Head {h00=0x0016, h01=0x0050, text=» LD A3,CRNCDF+2,A4«, t00=0x001c, t01=0x00b4}
0x2c7e…2ca2 Head {h00=0x0020, h01=0x0050, text=» LDKL A9,/40 MAX KEY LENGTH «, t00=0x001c, t01=0x00ce}
0x2ca2…2cd0 Head {h00=0x002a, h01=0x0050, text=» ABI TIODMF,A10 BRANCH TO DM FUNCTION «, t00=0x001c, t01=0x00f2}
0x2cd0…2cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0120}
0x2cda…2d00 Head {h00=0x0022, h01=0x0050, text=»* A2,A3 = CURRENCY (CRNCDF) «, t00=0x001c, t01=0x012a}
0x2d00…2d28 Head {h00=0x0024, h01=0x0050, text=»* A4 = CURRENCY BUFFER ADDRESS«, t00=0x001c, t01=0x0150}
0x2d28…2d52 Head {h00=0x0026, h01=0x0050, text=»* A5 = TTAB ADDRESS CALLING TASK«, t00=0x001c, t01=0x0178}
0x2d52…2d78 Head {h00=0x0022, h01=0x0050, text=»* A11= FDB ADDRESS DATA FILE«, t00=0x001d, t01=0x0012}
0x2d78…2d98 Head {h00=0x001c, h01=0x0050, text=»* A7 = USER ORDER WORD«, t00=0x001d, t01=0x0038}
0x2d98…2dba Head {h00=0x001e, h01=0x0050, text=»* A8 = USER ECB ADDRESS «, t00=0x001d, t01=0x0058}
0x2dba…2de0 Head {h00=0x0022, h01=0x0050, text=»* A9 = MAX KEY LENGTH = /40 «, t00=0x001d, t01=0x007a}
0x2de0…2e0e Head {h00=0x002a, h01=0x0050, text=»* A10= DISPLACEMENT IN TIODMF TABLE «, t00=0x001d, t01=0x00a0}
0x2e0e…2e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ce}
0x2e18…2e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d8}
0x2e22…2e38 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x001d, t01=0x00e2}
0x2e38…2e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f8}
0x2e42…2e50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0102}
0x2e50…2e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0110}
0x2e5a…2e6c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x011a}
0x2e6c…2e7e Head {h00=0x000e, h01=0x0050, text=»* RWDIIX *«, t00=0x001d, t01=0x012c}
0x2e7e…2e90 Head {h00=0x000e, h01=0x0050, text=»* DEDIIX *«, t00=0x001d, t01=0x013e}
0x2e90…2ea2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x0150}
0x2ea2…2eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0162}
0x2eac…2ee4 Head {h00=0x0034, h01=0x0050, text=»* REWRITE DIRECT INDEXED,DELETE DIRECT INDEXED«, t00=0x001d, t01=0x016c}
0x2ee4…2eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0014}
0x2eee…2f1a Head {h00=0x0028, h01=0x0050, text=»RWDIIX EQU * REWRITE DIRECT INDEXED «, t00=0x001e, t01=0x001e}
0x2f1a…2f44 Head {h00=0x0026, h01=0x0050, text=»DEDIIX EQU * DELETE DIRECT INDEXED«, t00=0x001e, t01=0x004a}
0x2f44…2f72 Head {h00=0x002a, h01=0x0050, text=» LD A7,FDBAI1,A11 PRIMARY INDEX FDB =4«, t00=0x001e, t01=0x0074}
0x2f72…2fa6 Head {h00=0x0030, h01=0x0050, text=» CF A14,SWHECO SWITCH ECB AND ORDER CODE =4 «, t00=0x001e, t01=0x00a2}
0x2fa6…2fc4 Head {h00=0x001a, h01=0x0050, text=» RF IXR030 MOVE KEY =4«, t00=0x001e, t01=0x00d6}
0x2fc4…2fd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00f4}
0x2fd2…2fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0102}
0x2fdc…2fee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x010c}
0x2fee…3000 Head {h00=0x000e, h01=0x0050, text=»* STEQIX *«, t00=0x001e, t01=0x011e}
0x3000…3012 Head {h00=0x000e, h01=0x0050, text=»* STGRIX *«, t00=0x001e, t01=0x0130}
0x3012…3024 Head {h00=0x000e, h01=0x0050, text=»* STNLIX *«, t00=0x001e, t01=0x0142}
0x3024…3036 Head {h00=0x000e, h01=0x0050, text=»* RDRNIX *«, t00=0x001e, t01=0x0154}
0x3036…3048 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x0166}
0x3048…3052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0178}
0x3052…3084 Head {h00=0x002e, h01=0x0050, text=»* START INDEXED AND READ RANDOM INDEXED «, t00=0x001e, t01=0x0182}
0x3084…308e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0024}
0x308e…30a2 Head {h00=0x0010, h01=0x0050, text=»STEQIX EQU *«, t00=0x001f, t01=0x002e}
0x30a2…30b6 Head {h00=0x0010, h01=0x0050, text=»STGRIX EQU *«, t00=0x001f, t01=0x0042}
0x30b6…30ca Head {h00=0x0010, h01=0x0050, text=»STNLIX EQU *«, t00=0x001f, t01=0x0056}
0x30ca…30ec Head {h00=0x001e, h01=0x0050, text=» LD A9,ECBRL,A8 KEY LENGTH«, t00=0x001f, t01=0x006a}
0x30ec…3100 Head {h00=0x0010, h01=0x0050, text=»RDRNIX EQU *«, t00=0x001f, t01=0x008c}
0x3100…3122 Head {h00=0x001e, h01=0x0050, text=» CF A14,SWHFDB SWITCH FDB «, t00=0x001f, t01=0x00a0}
0x3122…313a Head {h00=0x0014, h01=0x0050, text=»IXR030 EQU * =4«, t00=0x001f, t01=0x00c2}
0x313a…3156 Head {h00=0x0018, h01=0x0050, text=» RB(Z) REQERR NO FDB«, t00=0x001f, t01=0x00da}
0x3156…317c Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 INDEXED FDB ADDRESS«, t00=0x001f, t01=0x00f6}
0x317c…31a4 Head {h00=0x0024, h01=0x0050, text=» ADKL A2,FDBKEY KEY AREA ADDRESS«, t00=0x001f, t01=0x011c}
0x31a4…31b6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001f, t01=0x0144}
0x31b6…31ce Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBRLE,A7«, t00=0x001f, t01=0x0156}
0x31ce…31ea Head {h00=0x0018, h01=0x0050, text=» SUK A1,6 KEY LENGTH«, t00=0x001f, t01=0x016e}
0x31ea…3208 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A1 KEY LENGTH «, t00=0x001f, t01=0x018a}
0x3208…321c Head {h00=0x0010, h01=0x0050, text=»IXR050 EQU *«, t00=0x0020, t01=0x0018}
0x321c…323a Head {h00=0x001a, h01=0x0050, text=» CMR A4 CLEAR KEY AREA«, t00=0x0020, t01=0x002c}
0x323a…324c Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0020, t01=0x004a}
0x324c…325e Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0020, t01=0x005c}
0x325e…3282 Head {h00=0x0020, h01=0x0050, text=» RB(P) IXR050 MORE TO CLEAR «, t00=0x0020, t01=0x006e}
0x3282…328c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0092}
0x328c…329a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x009c}
0x329a…32a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00aa}
0x32a4…32c6 Head {h00=0x001e, h01=0x0050, text=»* FETCH KEY TO INDEX FDB«, t00=0x0020, t01=0x00b4}
0x32c6…32d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d6}
0x32d0…32f4 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBBA,A8 RECORD ADDR «, t00=0x0020, t01=0x00e0}
0x32f4…3314 Head {h00=0x001c, h01=0x0050, text=» AD A1,FDBKA,A7 KEY ADDR«, t00=0x0020, t01=0x0104}
0x3314…3344 Head {h00=0x002c, h01=0x0050, text=» CWR A3,A9 KEY LENGTH = MIN(A9,RECLEN-6)«, t00=0x0020, t01=0x0124}
0x3344…335a Head {h00=0x0012, h01=0x0050, text=» RF(NG) IXR070«, t00=0x0020, t01=0x0154}
0x335a…336c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A9«, t00=0x0020, t01=0x016a}
0x336c…3380 Head {h00=0x0010, h01=0x0050, text=»IXR070 EQU *«, t00=0x0020, t01=0x017c}
0x3380…33a2 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A3 SAVE MIN LENGTH«, t00=0x0020, t01=0x0190}
0x33a2…33c0 Head {h00=0x001a, h01=0x0050, text=» CF A15,MOVUS MOVE KEY«, t00=0x0021, t01=0x0022}
0x33c0…33ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0040}
0x33ca…33e0 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0021, t01=0x004a}
0x33e0…33ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0060}
0x33ea…341e Head {h00=0x0030, h01=0x0050, text=»* INCREASE KEY IF 'START GREATER ' IS REQ «, t00=0x0021, t01=0x006a}
0x341e…3428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x009e}
0x3428…3440 Head {h00=0x0014, h01=0x0050, text=» CWK A10,QSTGIX «, t00=0x0021, t01=0x00a8}
0x3440…3468 Head {h00=0x0024, h01=0x0050, text=» RF(NE) STA020 NOT START GREATER«, t00=0x0021, t01=0x00c0}
0x3468…347c Head {h00=0x0010, h01=0x0050, text=»STA010 EQU *«, t00=0x0021, t01=0x00e8}
0x347c…349e Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 ADDR LAST BYTE «, t00=0x0021, t01=0x00fc}
0x349e…34b0 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A2«, t00=0x0021, t01=0x011e}
0x34b0…34d2 Head {h00=0x001e, h01=0x0050, text=» ADK A1,1 NEXT HIGHER KEY «, t00=0x0021, t01=0x0130}
0x34d2…34e4 Head {h00=0x000e, h01=0x0050, text=» SCR A1,A2«, t00=0x0021, t01=0x0152}
0x34e4…3502 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/FF OVERFLOW ?«, t00=0x0021, t01=0x0164}
0x3502…351c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) STA020 NO «, t00=0x0021, t01=0x0182}
0x351c…352e Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0022, t01=0x000c}
0x352e…354e Head {h00=0x001c, h01=0x0050, text=» RB(P) STA010 MORE BYTES«, t00=0x0022, t01=0x001e}
0x354e…3562 Head {h00=0x0010, h01=0x0050, text=»STA020 EQU *«, t00=0x0022, t01=0x003e}
0x3562…356c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0052}
0x356c…358c Head {h00=0x001c, h01=0x0050, text=»* SWITCH TO INDEX FDB «, t00=0x0022, t01=0x005c}
0x358c…3596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x007c}
0x3596…35b4 Head {h00=0x001a, h01=0x0050, text=» LDR A11,A7 INDEX FDB «, t00=0x0022, t01=0x0086}
0x35b4…35c6 Head {h00=0x000e, h01=0x0050, text=» RF TIORRO«, t00=0x0022, t01=0x00a4}
0x35c6…35d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00b6}
0x35d4…35de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00c4}
0x35de…35e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ce}
0x35e8…35fa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x00d8}
0x35fa…360c Head {h00=0x000e, h01=0x0050, text=»* WRRNIX *«, t00=0x0022, t01=0x00ea}
0x360c…361e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x00fc}
0x361e…3628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x010e}
0x3628…3648 Head {h00=0x001c, h01=0x0050, text=»* WRITE RANDOM INDEXED«, t00=0x0022, t01=0x0118}
0x3648…3652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0138}
0x3652…3674 Head {h00=0x001e, h01=0x0050, text=»WRRNIX EQU * IDEXED INSERT«, t00=0x0022, t01=0x0142}
0x3674…368a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x0164}
0x368a…3694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x017a}
0x3694…36ba Head {h00=0x0022, h01=0x0050, text=»* MOVE KEYS TO FDB KEY AREAS«, t00=0x0022, t01=0x0184}
0x36ba…36c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x001a}
0x36c4…36d6 Head {h00=0x000e, h01=0x0050, text=» LDK A4,8 «, t00=0x0023, t01=0x0024}
0x36d6…36ea Head {h00=0x0010, h01=0x0050, text=»IXINS3 EQU *«, t00=0x0023, t01=0x0036}
0x36ea…3706 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A11 FDB DATA«, t00=0x0023, t01=0x004a}
0x3706…3718 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0023, t01=0x0066}
0x3718…373a Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBADF,A2 FDB INDEX«, t00=0x0023, t01=0x0078}
0x373a…3758 Head {h00=0x001a, h01=0x0050, text=» RF(Z) IXINS4 NO INDEX«, t00=0x0023, t01=0x009a}
0x3758…3778 Head {h00=0x001c, h01=0x0050, text=» LD A1,FDBKA,A2 KEY ADDR«, t00=0x0023, t01=0x00b8}
0x3778…379e Head {h00=0x0022, h01=0x0050, text=» LD A3,FDBRLE,A2 RECORD LENGTH«, t00=0x0023, t01=0x00d8}
0x379e…37c8 Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBBA,A8 ADD USER BUF ADDR «, t00=0x0023, t01=0x00fe}
0x37c8…37ec Head {h00=0x0020, h01=0x0050, text=» ADKL A2,FDBKEY KEY ADDRESS «, t00=0x0023, t01=0x0128}
0x37ec…3806 Head {h00=0x0016, h01=0x0050, text=» SUK A3,6 KEY LGTH«, t00=0x0023, t01=0x014c}
0x3806…3824 Head {h00=0x001a, h01=0x0050, text=» CF A15,MOVUS MOVE KEY«, t00=0x0023, t01=0x0166}
0x3824…3838 Head {h00=0x0010, h01=0x0050, text=»IXINS4 EQU *«, t00=0x0023, t01=0x0184}
0x3838…384a Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0024, t01=0x0008}
0x384a…386c Head {h00=0x001e, h01=0x0050, text=» RB(NZ) IXINS3 MORE INDEXS«, t00=0x0024, t01=0x001a}
0x386c…3878 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x003c}
0x3878…3882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0048}
0x3882…3898 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0024, t01=0x0052}
0x3898…38a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0068}
0x38a2…38ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0072}
0x38ac…38be Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0024, t01=0x007c}
0x38be…38d0 Head {h00=0x000e, h01=0x0050, text=»* WRSQ00 *«, t00=0x0024, t01=0x008e}
0x38d0…38e2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0024, t01=0x00a0}
0x38e2…38ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b2}
0x38ec…3908 Head {h00=0x0018, h01=0x0050, text=»* WRITE SEQUENTIAL«, t00=0x0024, t01=0x00bc}
0x3908…3912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d8}
0x3912…3926 Head {h00=0x0010, h01=0x0050, text=»WRSQ00 EQU *«, t00=0x0024, t01=0x00e2}
0x3926…3940 Head {h00=0x0016, h01=0x0050, text=» LC A2,FDBLRN,A11 «, t00=0x0024, t01=0x00f6}
0x3940…3954 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0024, t01=0x0110}
0x3954…3974 Head {h00=0x001c, h01=0x0050, text=» LD A3,FDBLRN+1,A11 LRN «, t00=0x0024, t01=0x0124}
0x3974…398a Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0024, t01=0x0144}
0x398a…39ae Head {h00=0x0020, h01=0x0050, text=» RF IXR020 STORE LOG REC NO «, t00=0x0024, t01=0x015a}
0x39ae…39bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x017e}
0x39bc…39c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018c}
0x39c6…39d8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x0008}
0x39d8…39ea Head {h00=0x000e, h01=0x0050, text=»* RDSQIX *«, t00=0x0025, t01=0x001a}
0x39ea…39fc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x002c}
0x39fc…3a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x003e}
0x3a06…3a2a Head {h00=0x0020, h01=0x0050, text=»* READ SEQUENTIAL INDEXED «, t00=0x0025, t01=0x0048}
0x3a2a…3a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006c}
0x3a34…3a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0076}
0x3a3e…3a52 Head {h00=0x0010, h01=0x0050, text=»RDSQIX EQU *«, t00=0x0025, t01=0x0080}
0x3a52…3a74 Head {h00=0x001e, h01=0x0050, text=» CF A14,SWHFDB SWITCH FDB «, t00=0x0025, t01=0x0094}
0x3a74…3a98 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) REQERR FDB NOT FOUND«, t00=0x0025, t01=0x00b6}
0x3a98…3ac0 Head {h00=0x0024, h01=0x0050, text=» LDR A11,A7 INDEXED FDB ADDRESS «, t00=0x0025, t01=0x00da}
0x3ac0…3aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0102}
0x3aca…3ade Head {h00=0x0010, h01=0x0050, text=»* GET CRN «, t00=0x0025, t01=0x010c}
0x3ade…3ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0120}
0x3ae8…3afa Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0025, t01=0x012a}
0x3afa…3b0c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0025, t01=0x013c}
0x3b0c…3b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x014e}
0x3b16…3b3a Head {h00=0x0020, h01=0x0050, text=»* CHECK THAT FILE ID IS OK«, t00=0x0025, t01=0x0158}
0x3b3a…3b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017c}
0x3b44…3b66 Head {h00=0x001e, h01=0x0050, text=» LC A7,FWTFNR,A11 FILE NR «, t00=0x0025, t01=0x0186}
0x3b66…3b7e Head {h00=0x0014, h01=0x0050, text=» CC A7,CRNCIF,A4«, t00=0x0026, t01=0x0018}
0x3b7e…3bb0 Head {h00=0x002e, h01=0x0050, text=» RF(NE) IXR020 OTHER INDEX FILE IS CURRENT«, t00=0x0026, t01=0x0030}
0x3bb0…3bca Head {h00=0x0016, h01=0x0050, text=» LC A2,CRNCIF+1,A4«, t00=0x0026, t01=0x0062}
0x3bca…3bf0 Head {h00=0x0022, h01=0x0050, text=» LD A3,CRNCIF+2,A4 LOG REC NO «, t00=0x0026, t01=0x007c}
0x3bf0…3bfc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00a2}
0x3bfc…3c10 Head {h00=0x0010, h01=0x0050, text=»IXR020 EQU *«, t00=0x0026, t01=0x00ae}
0x3c10…3c38 Head {h00=0x0024, h01=0x0050, text=» CF A14,ADDONE A2,A3 = A2,A3 + 1«, t00=0x0026, t01=0x00c2}
0x3c38…3c66 Head {h00=0x002a, h01=0x0050, text=» RF TIODMA DO NOT CHECK EOF CONDITION «, t00=0x0026, t01=0x00ea}
0x3c66…3c74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0118}
0x3c74…3c7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0126}
0x3c7e…3c90 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x0130}
0x3c90…3ca2 Head {h00=0x000e, h01=0x0050, text=»* RDSQ00 *«, t00=0x0026, t01=0x0142}
0x3ca2…3cb4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x0154}
0x3cb4…3cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0166}
0x3cbe…3cda Head {h00=0x0018, h01=0x0050, text=»* READ SEQUENTIAL «, t00=0x0026, t01=0x0170}
0x3cda…3ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x018c}
0x3ce4…3cf8 Head {h00=0x0010, h01=0x0050, text=»RDSQ00 EQU *«, t00=0x0027, t01=0x0008}
0x3cf8…3d1e Head {h00=0x0022, h01=0x0050, text=» CF A14,ADDONE A2,A3=A2,A3 + 1«, t00=0x0027, t01=0x001c}
0x3d1e…3d30 Head {h00=0x000e, h01=0x0050, text=» RF RAN050«, t00=0x0027, t01=0x0042}
0x3d30…3d3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0054}
0x3d3e…3d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0062}
0x3d48…3d5a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x006c}
0x3d5a…3d6c Head {h00=0x000e, h01=0x0050, text=»* RDRN00 *«, t00=0x0027, t01=0x007e}
0x3d6c…3d7e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0027, t01=0x0090}
0x3d7e…3d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a2}
0x3d88…3da0 Head {h00=0x0014, h01=0x0050, text=»* READ RANDOM «, t00=0x0027, t01=0x00ac}
0x3da0…3daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c4}
0x3daa…3dbe Head {h00=0x0010, h01=0x0050, text=»RDRN00 EQU *«, t00=0x0027, t01=0x00ce}
0x3dbe…3ddc Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 REC NR«, t00=0x0027, t01=0x00e2}
0x3ddc…3df6 Head {h00=0x0016, h01=0x0050, text=» LD A3,ECBCW+2,A8 «, t00=0x0027, t01=0x0100}
0x3df6…3e0a Head {h00=0x0010, h01=0x0050, text=»RAN050 EQU *«, t00=0x0027, t01=0x011a}
0x3e0a…3e32 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,LGTERR INCORRECT LENGTH«, t00=0x0027, t01=0x012e}
0x3e32…3e4a Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBRL,A8 «, t00=0x0027, t01=0x0156}
0x3e4a…3e78 Head {h00=0x002a, h01=0x0050, text=» RF(NP) TIODME ERROR RETURN IF RL <= 0«, t00=0x0027, t01=0x016e}
0x3e78…3e8a Head {h00=0x000e, h01=0x0050, text=» RF TIODMA«, t00=0x0028, t01=0x000c}
0x3e8a…3e98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x001e}
0x3e98…3ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x002c}
0x3ea2…3eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0036}
0x3eac…3ebe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0028, t01=0x0040}
0x3ebe…3ed0 Head {h00=0x000e, h01=0x0050, text=»* OPEN *«, t00=0x0028, t01=0x0052}
0x3ed0…3ee2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0028, t01=0x0064}
0x3ee2…3eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0076}
0x3eec…3efc Head {h00=0x000c, h01=0x0050, text=»* OPEN«, t00=0x0028, t01=0x0080}
0x3efc…3f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0090}
0x3f06…3f18 Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0028, t01=0x009a}
0x3f18…3f30 Head {h00=0x0014, h01=0x0050, text=» CWK A11,FDBSTA «, t00=0x0028, t01=0x00ac}
0x3f30…3f54 Head {h00=0x0020, h01=0x0050, text=» RF(E) OPE050 FILE CODE FREE«, t00=0x0028, t01=0x00c4}
0x3f54…3f6c Head {h00=0x0014, h01=0x0050, text=» LDKL A1,EDMERR «, t00=0x0028, t01=0x00e8}
0x3f6c…3f8a Head {h00=0x001a, h01=0x0050, text=» LDK A2,FCUSED FC USED«, t00=0x0028, t01=0x0100}
0x3f8a…3faa Head {h00=0x001c, h01=0x0050, text=» SC A2,CRNSTA,A4 STATUS «, t00=0x0028, t01=0x011e}
0x3faa…3fbc Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0028, t01=0x013e}
0x3fbc…3fd0 Head {h00=0x0010, h01=0x0050, text=»OPE050 EQU *«, t00=0x0028, t01=0x0150}
0x3fd0…3fe8 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,LGTERR «, t00=0x0028, t01=0x0164}
0x3fe8…400a Head {h00=0x001e, h01=0x0050, text=» LDKL A4,FPB:FR+8 MIN LGTH«, t00=0x0028, t01=0x017c}
0x400a…4026 Head {h00=0x0018, h01=0x0050, text=» CW A4,ECBRL,A8 REQ «, t00=0x0029, t01=0x000e}
0x4026…4040 Head {h00=0x0016, h01=0x0050, text=» RF(G) ENDIO ERROR«, t00=0x0029, t01=0x002a}
0x4040…4052 Head {h00=0x000e, h01=0x0050, text=» RF TIORRO«, t00=0x0029, t01=0x0044}
0x4052…405c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0056}
0x405c…4072 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0029, t01=0x0060}
0x4072…407c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0076}
0x407c…4086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0080}
0x4086…4098 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x008a}
0x4098…40aa Head {h00=0x000e, h01=0x0050, text=»* RDFIPA *«, t00=0x0029, t01=0x009c}
0x40aa…40bc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00ae}
0x40bc…40c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c0}
0x40c6…40e4 Head {h00=0x001a, h01=0x0050, text=»* READ FILE PARAMETR«, t00=0x0029, t01=0x00ca}
0x40e4…40ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e8}
0x40ee…4102 Head {h00=0x0010, h01=0x0050, text=»RDFIPA EQU *«, t00=0x0029, t01=0x00f2}
0x4102…411a Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0029, t01=0x0106}
0x411a…4134 Head {h00=0x0016, h01=0x0050, text=» ST A3,ECBCW+2,A8 «, t00=0x0029, t01=0x011e}
0x4134…4148 Head {h00=0x0010, h01=0x0050, text=»TIORRO EQU *«, t00=0x0029, t01=0x0138}
0x4148…415c Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-1 «, t00=0x0029, t01=0x014c}
0x415c…4186 Head {h00=0x0026, h01=0x0050, text=» ST A4,FDBRRO,A11 MARK ORDER TYPE «, t00=0x0029, t01=0x0160}
0x4186…41ac Head {h00=0x0022, h01=0x0050, text=» RF ACTDM0 ACTIVATE DN TASK #D«, t00=0x0029, t01=0x018a}
0x41ac…41b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0020}
0x41b6…41c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x002a}
0x41c4…41ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0038}
0x41ce…41e0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x0042}
0x41e0…41f2 Head {h00=0x000e, h01=0x0050, text=»* CLOSED *«, t00=0x002a, t01=0x0054}
0x41f2…4204 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002a, t01=0x0066}
0x4204…420e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0078}
0x420e…4218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0082}
0x4218…422c Head {h00=0x0010, h01=0x0050, text=»CLOSED EQU *«, t00=0x002a, t01=0x008c}
0x422c…4236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a0}
0x4236…424e Head {h00=0x0014, h01=0x0050, text=»* TEST IF INDEX «, t00=0x002a, t01=0x00aa}
0x424e…4258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c2}
0x4258…4272 Head {h00=0x0016, h01=0x0050, text=»* LC A1,FDBNIF,A11«, t00=0x002a, t01=0x00cc}
0x4272…429c Head {h00=0x0026, h01=0x0050, text=»* ANK A1,/F NUMBER OF INDEX FILES «, t00=0x002a, t01=0x00e6}
0x429c…42da Head {h00=0x003a, h01=0x0050, text=»* ABL(NZ) REQERR INDEX NOT ALLOWED WHEN CLOSE DISCARD «, t00=0x002a, t01=0x0110}
0x42da…4306 Head {h00=0x0028, h01=0x0050, text=» LD A1,FDBEXC,A11 TTAB EXCLUSIVE =2 «, t00=0x002a, t01=0x014e}
0x4306…4334 Head {h00=0x002a, h01=0x0050, text=» RF(NZ) CLOSE CLOSE DISCARD ALLOWED =2«, t00=0x002a, t01=0x017a}
0x4334…4364 Head {h00=0x002c, h01=0x0050, text=» LDKL A1,RQERR INDICATE REQUEST ERROR =2«, t00=0x002b, t01=0x0018}
0x4364…4390 Head {h00=0x0028, h01=0x0050, text=» ORS A1,ECBRC,A8 SET RETURN CODE =2 «, t00=0x002b, t01=0x0048}
0x4390…43c4 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTOR,A11 CHANGE CLOSE D. TO CLOSE =2«, t00=0x002b, t01=0x0074}
0x43c4…43d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00a8}
0x43d2…43dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b6}
0x43dc…43ee Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x00c0}
0x43ee…4400 Head {h00=0x000e, h01=0x0050, text=»* CLOSE *«, t00=0x002b, t01=0x00d2}
0x4400…4412 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002b, t01=0x00e4}
0x4412…441c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f6}
0x441c…4426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0100}
0x4426…443a Head {h00=0x0010, h01=0x0050, text=»CLOSE EQU * «, t00=0x002b, t01=0x010a}
0x443a…4444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x011e}
0x4444…4470 Head {h00=0x0028, h01=0x0050, text=»* CONNECT FILE CODE TO SYSTEM FWT «, t00=0x002b, t01=0x0128}
0x4470…447a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0154}
0x447a…4496 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 USER TTAB«, t00=0x002b, t01=0x015e}
0x4496…44aa Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x002b, t01=0x017a}
0x44aa…44c8 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF FILE CODE «, t00=0x002b, t01=0x018e}
0x44c8…44f0 Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 SEARCH TTAB AND CDTAB «, t00=0x002c, t01=0x001c}
0x44f0…450e Head {h00=0x001a, h01=0x0050, text=» CF A14,FNDFDB SEARCH «, t00=0x002c, t01=0x0044}
0x450e…4536 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,FDBSTA SYSTEM FWT ADDR «, t00=0x002c, t01=0x0062}
0x4536…4552 Head {h00=0x0018, h01=0x0050, text=» ST A2,2,A4 FC ENTRY«, t00=0x002c, t01=0x008a}
0x4552…4564 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002c, t01=0x00a6}
0x4564…457e Head {h00=0x0016, h01=0x0050, text=» LC A1,FDBLRN,A11 «, t00=0x002c, t01=0x00b8}
0x457e…45a8 Head {h00=0x0026, h01=0x0050, text=» LD A2,FDBLRN+1,A11 LAST RECORD NR«, t00=0x002c, t01=0x00d2}
0x45a8…45be Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CLO100«, t00=0x002c, t01=0x00fc}
0x45be…45d0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x002c, t01=0x0112}
0x45d0…45e6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CLO100«, t00=0x002c, t01=0x0124}
0x45e6…45fc Head {h00=0x0012, h01=0x0050, text=» LDK A2,1 LRN «, t00=0x002c, t01=0x013a}
0x45fc…4610 Head {h00=0x0010, h01=0x0050, text=»CLO100 EQU *«, t00=0x002c, t01=0x0150}
0x4610…4622 Head {h00=0x000e, h01=0x0050, text=» RF TIODMD«, t00=0x002c, t01=0x0164}
0x4622…4630 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0176}
0x4630…463a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0184}
0x463a…464c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002c, t01=0x018e}
0x464c…465e Head {h00=0x000e, h01=0x0050, text=»* STEQ00 *«, t00=0x002d, t01=0x0010}
0x465e…4670 Head {h00=0x000e, h01=0x0050, text=»* STGR00 *«, t00=0x002d, t01=0x0022}
0x4670…4682 Head {h00=0x000e, h01=0x0050, text=»* STNL00 *«, t00=0x002d, t01=0x0034}
0x4682…4694 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0046}
0x4694…469e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0058}
0x469e…46ca Head {h00=0x0028, h01=0x0050, text=»* START EQUAL,GREATER AND NOT LESS«, t00=0x002d, t01=0x0062}
0x46ca…46d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x008e}
0x46d4…46e8 Head {h00=0x0010, h01=0x0050, text=»STEQ00 EQU *«, t00=0x002d, t01=0x0098}
0x46e8…46fc Head {h00=0x0010, h01=0x0050, text=»STGR00 EQU *«, t00=0x002d, t01=0x00ac}
0x46fc…4710 Head {h00=0x0010, h01=0x0050, text=»STNL00 EQU *«, t00=0x002d, t01=0x00c0}
0x4710…472e Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 REC NR«, t00=0x002d, t01=0x00d4}
0x472e…4748 Head {h00=0x0016, h01=0x0050, text=» LD A3,ECBCW+2,A8 «, t00=0x002d, t01=0x00f2}
0x4748…476e Head {h00=0x0022, h01=0x0050, text=» CWK A10,QSTG00 START GREATER «, t00=0x002d, t01=0x010c}
0x476e…479a Head {h00=0x0028, h01=0x0050, text=» RB(E) IXR020 GET NEXT RECORD NUMBER«, t00=0x002d, t01=0x0132}
0x479a…47a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x015e}
0x47a8…47b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x016c}
0x47b2…47c4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002d, t01=0x0176}
0x47c4…47d6 Head {h00=0x000e, h01=0x0050, text=»* RWCU00 *«, t00=0x002d, t01=0x0188}
0x47d6…47e8 Head {h00=0x000e, h01=0x0050, text=»* RWCUIX *«, t00=0x002e, t01=0x000a}
0x47e8…47fa Head {h00=0x000e, h01=0x0050, text=»* DECU00 *«, t00=0x002e, t01=0x001c}
0x47fa…480c Head {h00=0x000e, h01=0x0050, text=»* DECUIX *«, t00=0x002e, t01=0x002e}
0x480c…481e Head {h00=0x000e, h01=0x0050, text=»* WRRN00 *«, t00=0x002e, t01=0x0040}
0x481e…4830 Head {h00=0x000e, h01=0x0050, text=»* RWDI00 *«, t00=0x002e, t01=0x0052}
0x4830…4842 Head {h00=0x000e, h01=0x0050, text=»* DEDI00 *«, t00=0x002e, t01=0x0064}
0x4842…4854 Head {h00=0x000e, h01=0x0050, text=»* TIODMA *«, t00=0x002e, t01=0x0076}
0x4854…4866 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002e, t01=0x0088}
0x4866…4870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x009a}
0x4870…48a4 Head {h00=0x0030, h01=0x0050, text=»* REWRITE CURRENT,REWRITE CURRENT INDEXED «, t00=0x002e, t01=0x00a4}
0x48a4…48d6 Head {h00=0x002e, h01=0x0050, text=»* DELETE CURRENT,DELETE CURRENT INDEXED «, t00=0x002e, t01=0x00d8}
0x48d6…48fe Head {h00=0x0024, h01=0x0050, text=»* WRITE RANDOM,REWRITE DIRECT «, t00=0x002e, t01=0x010a}
0x48fe…4918 Head {h00=0x0016, h01=0x0050, text=»* DELETE DIRECT «, t00=0x002e, t01=0x0132}
0x4918…4922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014c}
0x4922…4936 Head {h00=0x0010, h01=0x0050, text=»RWCU00 EQU *«, t00=0x002e, t01=0x0156}
0x4936…494a Head {h00=0x0010, h01=0x0050, text=»RWCUIX EQU *«, t00=0x002e, t01=0x016a}
0x494a…495e Head {h00=0x0010, h01=0x0050, text=»DECU00 EQU *«, t00=0x002e, t01=0x017e}
0x495e…4972 (47, 0, 400) Head {h00=0x0010, h01=0x0050, text=»DECUIX EQU *«, t00=0x002f, t01=0x0004}
0x4972…4986 Head {h00=0x0010, h01=0x0050, text=»TIODMA EQU *«, t00=0x002f, t01=0x0018}
0x4986…49a4 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBCW,A8 REC NR«, t00=0x002f, t01=0x002c}
0x49a4…49be Head {h00=0x0016, h01=0x0050, text=» ST A3,ECBCW+2,A8 «, t00=0x002f, t01=0x004a}
0x49be…49e0 Head {h00=0x001e, h01=0x0050, text=»WRRN00 EQU * WRITE RANDOM «, t00=0x002f, t01=0x0064}
0x49e0…4a04 Head {h00=0x0020, h01=0x0050, text=»RWDI00 EQU * REWRITE DIRECT «, t00=0x002f, t01=0x0086}
0x4a04…4a26 Head {h00=0x001e, h01=0x0050, text=»DEDI00 EQU * DELETE DIRECT«, t00=0x002f, t01=0x00aa}
0x4a26…4a4c Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBCW,A8 RECORD NUMBER «, t00=0x002f, t01=0x00cc}
0x4a4c…4a66 Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A8 «, t00=0x002f, t01=0x00f2}
0x4a66…4a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x010c}
0x4a70…4a86 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x002f, t01=0x0116}
0x4a86…4a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x012c}
0x4a90…4ab0 Head {h00=0x001c, h01=0x0050, text=»* NO EA FOR OTHER TASK«, t00=0x002f, t01=0x0136}
0x4ab0…4aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0156}
0x4aba…4ade Head {h00=0x0020, h01=0x0050, text=» LDR A9,A11 SAVE FDB ADDRESS«, t00=0x002f, t01=0x0160}
0x4ade…4af8 Head {h00=0x0016, h01=0x0050, text=» LD A11,FDBADF,A11«, t00=0x002f, t01=0x0184}
0x4af8…4b0e Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x0030, t01=0x000e}
0x4b0e…4b34 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A9 SAVED FDB ADDRESS «, t00=0x0030, t01=0x0024}
0x4b34…4b46 Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x0030, t01=0x004a}
0x4b46…4b6a Head {h00=0x0020, h01=0x0050, text=» RF(N) TIODPE EA OTHER TASK «, t00=0x0030, t01=0x005c}
0x4b6a…4b7e Head {h00=0x0010, h01=0x0050, text=»TIODMD EQU *«, t00=0x0030, t01=0x0080}
0x4b7e…4bb8 Head {h00=0x0036, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR «, t00=0x0030, t01=0x0094}
0x4bb8…4bce Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TIODME«, t00=0x0030, t01=0x00ce}
0x4bce…4bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e4}
0x4bd8…4be6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00ee}
0x4be6…4bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00fc}
0x4bf0…4c12 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0030, t01=0x0106}
0x4c12…4c34 Head {h00=0x001e, h01=0x0050, text=»* SDMTSK ACTIVATION * «, t00=0x0030, t01=0x0128}
0x4c34…4c56 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0030, t01=0x014a}
0x4c56…4c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x016c}
0x4c60…4c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0176}
0x4c6a…4c7e Head {h00=0x0010, h01=0x0050, text=»ACTDM0 EQU *«, t00=0x0030, t01=0x0180}
0x4c7e…4c9e (49, 0, 398) Head {h00=0x001c, h01=0x0050, text=» LDR A6,A11 FDB ADDRESS «, t00=0x0031, t01=0x0004}
0x4c9e…4cc8 Head {h00=0x0026, h01=0x0050, text=» LDKL A2,SDMTSK ACTIVATION ADDRESS«, t00=0x0031, t01=0x0024}
0x4cc8…4ce0 Head {h00=0x0014, h01=0x0050, text=» CWK A10,QWRSQ0 «, t00=0x0031, t01=0x004e}
0x4ce0…4d0e Head {h00=0x002a, h01=0x0050, text=» ABL(L) DMACTD ADMINISTRATION FUNCTION«, t00=0x0031, t01=0x0066}
0x4d0e…4d32 Head {h00=0x0020, h01=0x0050, text=» ABL DMACTI ACTIVATE DM TASK«, t00=0x0031, t01=0x0094}
0x4d32…4d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b8}
0x4d3c…4d4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00c2}
0x4d4a…4d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00d0}
0x4d54…4d66 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x00da}
0x4d66…4d78 Head {h00=0x000e, h01=0x0050, text=»* TIODPE *«, t00=0x0031, t01=0x00ec}
0x4d78…4d8a Head {h00=0x000e, h01=0x0050, text=»* TIODME *«, t00=0x0031, t01=0x00fe}
0x4d8a…4d9c Head {h00=0x000e, h01=0x0050, text=»* ENDIO *«, t00=0x0031, t01=0x0110}
0x4d9c…4dae Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x0122}
0x4dae…4db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0134}
0x4db8…4ddc Head {h00=0x0020, h01=0x0050, text=»* ERROR :RETURN VIA DISEND«, t00=0x0031, t01=0x013e}
0x4ddc…4de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0162}
0x4de6…4e0c Head {h00=0x0022, h01=0x0050, text=»TIODPE EQU * PROTECT ERR EXIT «, t00=0x0031, t01=0x016c}
0x4e0c…4e32 (50, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LC A3,FDBTNR,A11 USER TASK ID«, t00=0x0032, t01=0x0004}
0x4e32…4e46 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0032, t01=0x002a}
0x4e46…4e6c Head {h00=0x0022, h01=0x0050, text=» CF A14,RELPRO RELEASE PROTECT«, t00=0x0032, t01=0x003e}
0x4e6c…4e84 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PROERR «, t00=0x0032, t01=0x0064}
0x4e84…4e98 Head {h00=0x0010, h01=0x0050, text=»TIODME EQU *«, t00=0x0032, t01=0x007c}
0x4e98…4ec4 Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBADF,A11 DATA FILE FDB ADDR«, t00=0x0032, t01=0x0090}
0x4ec4…4ed8 Head {h00=0x0010, h01=0x0050, text=»ENDIOL EQU *«, t00=0x0032, t01=0x00bc}
0x4ed8…4f08 Head {h00=0x002c, h01=0x0050, text=» ABL DISEND CALL TENDIO GOTO DISPATCHER«, t00=0x0032, t01=0x00d0}
0x4f08…4f1c Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0032, t01=0x0100}
0x4f1c…4f3c Head {h00=0x001c, h01=0x0050, text=» LDR A6,A11 FDB ADDRESS «, t00=0x0032, t01=0x0114}
0x4f3c…4f4e Head {h00=0x000e, h01=0x0050, text=» RB ENDIOL«, t00=0x0032, t01=0x0134}
0x4f4e…4f58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0146}
0x4f58…4f6e Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0032, t01=0x0150}
0x4f6e…4f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0166}
0x4f78…4f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0170}
0x4f82…4f94 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0032, t01=0x017a}
0x4f94…4fa6 Head {h00=0x000e, h01=0x0050, text=»* CHKORD *«, t00=0x0032, t01=0x018c}
0x4fa6…4fb8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0033, t01=0x000e}
0x4fb8…4fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0020}
0x4fc2…4fe6 Head {h00=0x0020, h01=0x0050, text=»* CHECK IF ORDER IN TABLE «, t00=0x0033, t01=0x002a}
0x4fe6…4ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x004e}
0x4ff0…5022 Head {h00=0x002e, h01=0x0050, text=»* INPUT : A10=ADDRESS TO ORDER TABLE END«, t00=0x0033, t01=0x0058}
0x5022…5040 Head {h00=0x001a, h01=0x0050, text=»* A3=LENGTH«, t00=0x0033, t01=0x008a}
0x5040…5064 Head {h00=0x0020, h01=0x0050, text=»* A7=ORDER/OPTION«, t00=0x0033, t01=0x00a8}
0x5064…506e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00cc}
0x506e…5090 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT: A2=ORDER BIT «, t00=0x0033, t01=0x00d6}
0x5090…50be Head {h00=0x002a, h01=0x0050, text=»* A3=ENTRY NUMBER IN TABLE «, t00=0x0033, t01=0x00f8}
0x50be…50f2 Head {h00=0x0030, h01=0x0050, text=»* A10=ADDRESS TO FIT OR IF NOT FIT«, t00=0x0033, t01=0x0126}
0x50f2…511e Head {h00=0x0028, h01=0x0050, text=»* TABLE BEGINNING - 2 «, t00=0x0033, t01=0x015a}
0x511e…5150 Head {h00=0x002e, h01=0x0050, text=»* CR=0 IF ORDER FOUND IN TABLE «, t00=0x0033, t01=0x0186}
0x5150…516e Head {h00=0x001a, h01=0x0050, text=»* CR=2 ELSE«, t00=0x0034, t01=0x0028}
0x516e…5178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0046}
0x5178…518c Head {h00=0x0010, h01=0x0050, text=»CHKORD EQU *«, t00=0x0034, t01=0x0050}
0x518c…51a0 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0034, t01=0x0064}
0x51a0…51b4 Head {h00=0x0010, h01=0x0050, text=»CHKO10 EQU *«, t00=0x0034, t01=0x0078}
0x51b4…51c6 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0034, t01=0x008c}
0x51c6…51da Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A10«, t00=0x0034, t01=0x009e}
0x51da…51fe Head {h00=0x0020, h01=0x0050, text=» RF(E) CHKO20 ORDER IN TABLE«, t00=0x0034, t01=0x00b2}
0x51fe…521c Head {h00=0x001a, h01=0x0050, text=» SUKL A10,2 NEXT ENTRY«, t00=0x0034, t01=0x00d6}
0x521c…522e Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0034, t01=0x00f4}
0x522e…5258 Head {h00=0x0026, h01=0x0050, text=» RB(NN) CHKO10 NEXT ENTRY IN TABLE«, t00=0x0034, t01=0x0106}
0x5258…526c Head {h00=0x0010, h01=0x0050, text=»CHKO20 EQU *«, t00=0x0034, t01=0x0130}
0x526c…527e Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0034, t01=0x0144}
0x527e…5288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0156}
0x5288…5292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0160}
0x5292…52a8 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0034, t01=0x016a}
0x52a8…52b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0180}
0x52b2…52c4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0034, t01=0x018a}
0x52c4…52d6 Head {h00=0x000e, h01=0x0050, text=»* ADDONE *«, t00=0x0035, t01=0x000c}
0x52d6…52e8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x001e}
0x52e8…52f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0030}
0x52f2…5320 Head {h00=0x002a, h01=0x0050, text=»* DOUBLE ADD ONE ON REGISTERS A2,A3 «, t00=0x0035, t01=0x003a}
0x5320…532a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0068}
0x532a…533e Head {h00=0x0010, h01=0x0050, text=»ADDONE EQU *«, t00=0x0035, t01=0x0072}
0x533e…5350 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0035, t01=0x0086}
0x5350…537e Head {h00=0x002a, h01=0x0050, text=» RF(P) ADDO10 NOT OVERFLOW OR NEGATIVE«, t00=0x0035, t01=0x0098}
0x537e…5390 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0035, t01=0x00c6}
0x5390…53ac Head {h00=0x0018, h01=0x0050, text=» ADK A2,1 ADD CARRY «, t00=0x0035, t01=0x00d8}
0x53ac…53c0 Head {h00=0x0010, h01=0x0050, text=»ADDO10 EQU *«, t00=0x0035, t01=0x00f4}
0x53c0…53d0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x0108}
0x53d0…53da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0118}
0x53da…53f0 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOSDM«, t00=0x0035, t01=0x0122}
0x53f0…53fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0138}
0x53fa…540c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x0142}
0x540c…541e Head {h00=0x000e, h01=0x0050, text=»* SWHFDB *«, t00=0x0035, t01=0x0154}
0x541e…5430 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x0166}
0x5430…543a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0178}
0x543a…546c Head {h00=0x002e, h01=0x0050, text=»* SWITCH FDB ADDRESS AND MOVE PARAMETERS«, t00=0x0035, t01=0x0182}
0x546c…5476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0024}
0x5476…549a Head {h00=0x0020, h01=0x0050, text=»* INPUT : A11=FDB ADDRESS«, t00=0x0036, t01=0x002e}
0x549a…54c4 Head {h00=0x0026, h01=0x0050, text=»* OUTPUT : A7=INDEX FDB ADDRESS «, t00=0x0036, t01=0x0052}
0x54c4…54fe Head {h00=0x0036, h01=0x0050, text=»* A7=0 , IF NO INDEX FDB ADDRESS FOUND «, t00=0x0036, t01=0x007c}
0x54fe…552a Head {h00=0x0028, h01=0x0050, text=»* CR SET ACCORDING TO A7 «, t00=0x0036, t01=0x00b6}
0x552a…554a Head {h00=0x001c, h01=0x0050, text=»* A3 IS USED «, t00=0x0036, t01=0x00e2}
0x554a…5554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0102}
0x5554…5568 Head {h00=0x0010, h01=0x0050, text=»SWHFDB EQU *«, t00=0x0036, t01=0x010c}
0x5568…558a Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A11 GET INDEX«, t00=0x0036, t01=0x0120}
0x558a…559c Head {h00=0x000e, h01=0x0050, text=» SRL A7,10«, t00=0x0036, t01=0x0142}
0x559c…55ae Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0036, t01=0x0154}
0x55ae…55d2 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A11 BASE IN DATA FDB«, t00=0x0036, t01=0x0166}
0x55d2…55fa Head {h00=0x0024, h01=0x0050, text=» LD A7,FDBAI1,A7 INDEX FDB ADDR «, t00=0x0036, t01=0x018a}
0x55fa…561a Head {h00=0x001c, h01=0x0050, text=» RF(Z) SWHF90 NOT FOUND «, t00=0x0037, t01=0x0022}
0x561a…5646 Head {h00=0x0028, h01=0x0050, text=»SWHECO EQU * SWITCH ECB AND ORDER =4«, t00=0x0037, t01=0x0042}
0x5646…5670 Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTECB,A11 MOVE PARAMETERS «, t00=0x0037, t01=0x006e}
0x5670…5688 Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTECB,A7«, t00=0x0037, t01=0x0098}
0x5688…56a0 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTOR,A11«, t00=0x0037, t01=0x00b0}
0x56a0…56b8 Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTOR,A7 «, t00=0x0037, t01=0x00c8}
0x56b8…56cc Head {h00=0x0010, h01=0x0050, text=»SWHF90 EQU *«, t00=0x0037, t01=0x00e0}
0x56cc…56e0 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0037, t01=0x00f4}
0x56e0…56f2 Head {h00=0x000e, h01=0x0050, text=» ADK A7,0 «, t00=0x0037, t01=0x0108}
0x56f2…5704 Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0037, t01=0x011a}
0x5704…570e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x012c}
0x570e…571a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0037, t01=0x0136}
0x571a…571e Head {h00=0x4004, h01=0x0000}
0x571e…5722 00 37 01 42 ┆ 7 B┆
0x5722…572a (56, 1, 8) 20 04 00 00 00 38 00 04 ┆ 8 ┆
0x572a…577a (57, 0, 400) 4f 55 4e 44 00 48 01 80 00 2e 00 50 5c 41 42 4c 5c 44 4d 52 31 30 30 5c 43 4f 4e 54 20 41 53 20 46 4f 52 20 49 4e 44 45 58 45 44 20 52 41 4e 44 20 52 45 41 44 20 00 49 00 0c 00 0a 00 50 5c 45 4a 45 43 54 00 49 00 3e 00 18 00 50 2a 2a 2a 2a ┆OUND H . P ABL DMR100 CONT AS FOR INDEXED RAND READ I P EJECT I > P****┆
0x577a…57ca 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 49 00 4c 00 18 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 49 00 68 00 18 00 50 2a 20 20 20 45 20 52 20 52 20 4f 20 52 20 20 20 20 20 20 2a 00 49 00 84 00 18 00 50 ┆**************** I L P* * I h P* E R R O R * I P┆
0x57ca…581a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 49 00 a0 00 18 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 49 00 bc 00 04 00 50 00 49 00 d8 00 28 00 50 44 4d 49 45 52 31 5c 4c 44 4b 4c 5c 41 31 2c 4b ┆* * I P******************** I P I ( PDMIER1 LDKL A1,K┆
0x581a…586a 45 59 45 52 52 5c 4b 45 59 20 4e 4f 54 20 46 4f 55 4e 44 20 00 49 00 e0 00 10 00 50 5c 52 46 5c 44 4d 49 45 52 52 5c 20 00 49 01 0c 00 10 00 50 44 4d 49 45 52 32 5c 45 51 55 5c 2a 00 49 01 20 00 1c 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4e 4f 44 ┆EYERR KEY NOT FOUND I P RF DMIERR I PDMIER2 EQU * I P LDKL A1,NOD┆
0x586a…58ba 45 52 52 5c 4e 4f 20 49 44 45 4e 54 00 49 01 34 00 10 00 50 44 4d 49 45 52 52 5c 45 51 55 5c 2a 00 49 01 54 00 1a 00 50 5c 4c 44 52 5c 41 34 2c 41 34 5c 42 55 46 46 45 52 20 41 44 44 52 00 49 01 68 00 1c 00 50 5c 41 42 4c 28 5a 29 5c 53 44 ┆ERR NO IDENT I 4 PDMIERR EQU * I T P LDR A4,A4 BUFFER ADDR I h P ABL(Z) SD┆
0x58ba…590a (58, 0, 398) 4d 45 52 58 5c 4e 4f 20 42 55 46 46 45 52 00 49 01 86 00 20 00 50 5c 41 42 4c 5c 44 4d 54 45 52 52 5c 45 52 52 4f 52 20 41 4e 44 20 42 55 46 46 45 52 00 4a 00 16 00 10 00 50 44 4d 49 45 52 33 5c 45 51 55 5c 2a 00 4a 00 3a 00 10 00 50 5c 41 ┆MERX NO BUFFER I P ABL DMTERR ERROR AND BUFFER J PDMIER3 EQU * J : P A┆
0x590a…595a 4e 4b 5c 41 31 2c 2f 32 37 20 00 4a 00 4e 00 22 00 50 5c 52 42 28 4e 5a 29 5c 44 4d 49 45 52 52 5c 42 49 54 20 31 30 2c 31 33 2c 31 34 2c 31 35 00 4a 00 62 00 22 00 50 5c 4c 44 4b 4c 5c 41 31 2c 45 4f 4d 45 52 52 5c 47 52 41 56 45 20 45 52 ┆NK A1,/27 J N " P RB(NZ) DMIERR BIT 10,13,14,15 J b " P LDKL A1,EOMERR GRAVE ER┆
0x595a…59aa 52 20 41 4c 53 4f 00 4a 00 88 00 0e 00 50 5c 52 42 5c 44 4d 49 45 52 52 00 4a 00 ae 00 10 00 50 44 4d 49 45 52 34 5c 45 51 55 5c 2a 00 4a 00 c0 00 1a 00 50 5c 4c 44 4b 5c 41 31 2c 31 5c 4e 4f 54 20 4f 50 45 52 41 42 4c 45 00 4a 00 d4 00 0e ┆R ALSO J P RB DMIERR J PDMIER4 EQU * J P LDK A1,1 NOT OPERABLE J ┆
0x59aa…59fa 00 50 5c 52 42 5c 44 4d 49 45 52 52 00 4a 00 f2 00 10 00 50 44 4d 49 45 52 35 5c 45 51 55 5c 2a 00 4a 01 04 00 1c 00 50 5c 4c 44 4b 4c 5c 41 31 2c 50 52 4f 54 5c 50 52 4f 54 45 43 54 45 44 20 00 4a 01 18 00 0e 00 50 5c 52 42 5c 44 4d 49 45 ┆ P RB DMIERR J PDMIER5 EQU * J P LDKL A1,PROT PROTECTED J P RB DMIE┆
0x59fa…5a48 52 52 00 4a 01 38 00 10 00 50 44 4d 49 45 52 36 5c 45 51 55 5c 2a 00 4a 01 4a 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 2c 45 4f 46 45 52 52 20 00 4a 01 5e 00 0e 00 50 5c 52 42 5c 44 4d 49 45 52 52 00 4a 01 76 00 0a 00 50 5c 45 4a 45 43 54 ┆RR J 8 PDMIER6 EQU * J J P LDKL A1,EOFERR J ^ P RB DMIERR J v P EJECT┆
0x5a48…5a98 (59, 0, 400) 00 4a 01 88 00 3a 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 4b 00 08 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ J : P***************************************************** K : P* ┆
0x5a98…5ae8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 4b 00 46 00 3a 00 50 2a 20 20 20 57 20 52 20 49 20 54 20 45 20 20 20 52 20 41 20 4e 20 44 20 4f 20 4d 20 ┆ * K F : P* W R I T E R A N D O M ┆
0x5ae8…5b38 20 20 49 20 4e 20 44 20 45 20 58 20 45 20 44 20 20 28 50 32 29 20 20 20 2a 20 00 4b 00 84 00 3a 00 50 2a 20 20 20 44 20 45 20 4c 20 45 20 54 20 45 20 20 20 49 20 4e 20 44 20 45 20 58 20 45 20 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I N D E X E D (P2) * K : P* D E L E T E I N D E X E D ┆
0x5b38…5b88 20 20 20 20 20 20 2a 20 00 4b 00 c2 00 3a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 4b 01 00 00 3a 00 50 2a 2a ┆ * K : P* * K : P**┆
0x5b88…5bd8 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 4b 01 3e 00 04 00 50 00 4b 01 7c 00 2c 00 50 44 4d 49 4e 53 32 5c 45 51 55 5c 2a ┆*************************************************** K > P K | , PDMINS2 EQU *┆
0x5bd8…5c28 (60, 0, 400) 5c 57 52 49 54 45 20 52 41 4e 44 4f 4d 20 49 4e 44 45 58 45 44 20 50 41 52 54 20 32 00 4b 01 84 00 20 00 50 44 4d 58 44 45 4c 5c 45 51 55 5c 2a 5c 44 45 4c 45 54 45 20 49 4e 44 45 58 45 44 20 00 4c 00 24 00 16 00 50 5c 4c 43 5c 41 34 2c 46 ┆ WRITE RANDOM INDEXED PART 2 K PDMXDEL EQU * DELETE INDEXED L $ P LC A4,F┆
0x5c28…5c78 44 42 44 42 52 2c 41 31 31 20 00 4c 00 48 00 10 00 50 5c 41 4e 4b 5c 41 34 2c 2f 31 30 20 00 4c 00 62 00 1e 00 50 5c 52 46 28 4e 5a 29 5c 44 58 49 30 31 30 5c 4b 45 45 50 20 42 55 46 46 45 52 00 4c 00 76 00 28 00 50 5c 43 46 5c 41 31 34 2c ┆DBDBR,A11 L H P ANK A4,/10 L b P RF(NZ) DXI010 KEEP BUFFER L v ( P CF A14,┆
0x5c78…5cc8 53 44 4d 52 4c 42 5c 52 45 4c 45 41 53 45 20 42 4c 4f 43 4b 20 42 55 46 46 45 52 20 00 4c 00 98 00 10 00 50 44 58 49 30 31 30 5c 45 51 55 5c 2a 00 4c 00 c4 00 16 00 50 5c 4c 44 4b 5c 41 35 2c 31 30 5c 4c 4f 4f 50 45 52 20 00 4c 00 d8 00 1c ┆SDMRLB RELEASE BLOCK BUFFER L PDXI010 EQU * L P LDK A5,10 LOOPER L ┆
0x5cc8…5d18 00 50 44 58 49 30 32 30 5c 45 51 55 5c 2a 5c 4e 45 58 54 20 49 4e 44 45 58 20 00 4c 00 f2 00 1a 00 50 5c 4c 44 5c 41 37 2c 44 57 54 4f 52 2c 41 31 31 5c 4f 52 44 45 52 00 4c 01 12 00 10 00 50 5c 41 4e 4b 5c 41 37 2c 2f 33 46 20 00 4c 01 30 ┆ PDXI020 EQU * NEXT INDEX L P LD A7,DWTOR,A11 ORDER L P ANK A7,/3F L 0┆
0x5d18…5d68 00 0e 00 50 5c 53 55 4b 5c 41 35 2c 32 20 00 4c 01 44 00 1e 00 50 5c 52 46 28 5a 29 5c 44 58 49 31 30 30 5c 41 4c 4c 20 49 4e 44 45 58 45 53 20 00 4c 01 56 00 18 00 50 5c 4c 44 52 5c 41 31 2c 41 31 31 5c 46 44 42 20 44 41 54 41 00 4c 01 78 ┆ P SUK A5,2 L D P RF(Z) DXI100 ALL INDEXES L V P LDR A1,A11 FDB DATA L x┆