|
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: 23758 (0x5cce)
Notes: pts_type(SC)
Names: »TIODM.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/TIODM.SC«
IDENT TIODM REL 10.0 80-03-14 870105041000 =1, COMMIT CHECK 79-11-02 **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * TIODM = 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 TIODM AND TIODM HOLDS THE START ADDRESS * * * INPUT A6 = FWT ADDRESS * A7 = ORDER WORD WITH W BIT = 0 * A8 = ECB ADDRESS * * * * 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 TIODM REFERENCED IN DWTADR ENTRY FDBECB ENTRY FDBSNR ENTRY FDBRRO ENTRY FDBRLE ENTRY FDBBLF ENTRY FDBTNR ENTRY FDBLRN ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF ENTRY FDBAI1,CRNTID,CRNCDF,CRNSTA ENTRY FDBBLZ BLOCK SIZE ENTRY FDBDMI DMTASK IDENT ENTRY FDBDBR,FDBMRO ENTRY FDBMEC MMU ECB DISPLACEMENT ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS ENTRY TASHLT,FDBSTA,DWDM01 ENTRY REQER2 ENTRY RETRIE,EOMERR,NOKEY,NXTKYS,EOFRC,NODERR ENTRY PROT,KEYERR,PROERR,REQERR,LGTERR ENTRY EOFERR,EDMERR EJECT EXTRN SCTTCT EXTRN RELPRO EXTRN TDISP EXTRN HALT EXTRN FNDTID EXTRN ACTOT EXTRN DISEND EXTRN DWTECB ECB ADDRESS EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTOPT OPTION BYTE EXTRN DWTTAB DM TASK TTAB ADDRESS EXTRN TTB:ID TASK ID EXTRN MOVZUS,MOVZSU EXTRN DMTASK EXTRN CALSNO EXTRN ECBFC EXTRN ECBBA EXTRN ECBRL EXTRN ECBEL EXTRN ECBRC EXTRN ECBCW EXTRN EARELB,CRNGET,EATEST EXTRN EWTVOL,EWTSEX,EWTEXL,EWTEXB,EWTLNK EXTRN FWTEW1 EXTRN FWTFNR FILE NR EXTRN FNDFDB DMTASK ROUTINE EXTRN FPB:FR EXTRN TTB:SA,QTJOB EXTRN DMTBM EXTRN DMTIDS EXTRN DFTAB,FWTVOL EXTRN CRNCIF INDEX CURRENCY OFFSET 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 * EOMERR EQU /A000 OUTSIDE MEDIUM LIMITS PROT EQU /0040 THIS DATA PROTECTED NODERR EQU /8800 NO EXPECTED DATA KEYERR EQU /8400 EXPECTED KEY NOT FOUND PROERR EQU /0010 ROLLBACK FOR PROTECT REASONS REQERR EQU /8000 GENERAL REQUEST ERROR REQER2 EQU /FFFE REQUEST ERROR LGTERR EQU /0008 INCORRECT LENGTH EDMERR EQU /8080 DATA MANAGEMENT ERROR EOFERR EQU /9000 END OF FILE * * MESSAGES * RETRIE EQU /0100 DISC RETRIES NOKEY EQU /0400 NOT SEARCHED KEY NXTKYS EQU /0200 NEXT KEY SAME EOFRC EQU /1000 END OF FILE * FCUSED EQU 7 INVALID FILE CODE EJECT * ************************ * DATA DEFINITIONS * ************************ * * * * TIODMF EQU * TIODM FUNCTION TABLE DATA READ DIRECT RANDOM DATA READ SEQUENTIAL IFT INDXAC=1 DATA READ INDEXED DATA READ INDEXED NEXT XIF IFT INDXAC=0 DATA TIOD19,TIOD19 XIF DATA WRITE DIRECT RANDOM DATA WRITE SEQUENTIAL IFT INDXAC=1 DATA WRITE INDEXED INSERT XIF IFT INDXAC=0 DATA TIOD19 XIF DATA WRITE (RESERVED) DATA REWRIT REWRITE DIRECT IFT INDXAC=1 DATA REWRIT REWRITE INDEXED XIF IFT INDXAC=0 DATA TIOD19 XIF DATA DELETE DIRECT IFT INDXAC=1 QDEL EQU *-TIODMF DATA DELETE INDEXED XIF IFT INDXAC=0 DATA TIOD19 XIF QSTA EQU *-TIODMF DATA STARTO START DIRECT IFT INDXAC=1 DATA STARTO START INDEXED XIF IFT INDXAC=0 DATA TIOD19 XIF * * FOLLOWING FILE ADMINISTRATION FUNCTIONS MUST ALWAYS BE PLACED * AT THE END OF TIODMF DEP ON TEST PERFORMED AFTER LABEL TIOD68 * OPENOF EQU *-TIODMF DATA OPEN CLOSOF EQU *-TIODMF DATA CLOSE RDSTOF EQU *-TIODMF DATA RDSTAT READ STATUS RDFPOF EQU *-TIODMF DATA RDFILP READ FILE PARAMETERS EJECT * TIODMO EQU * DM ORDERS DATA /02FF READ DATA /FFFF DATA /06FF WRITE DATA /FFFF DATA /07FF REWRITE DATA /08FF DELETE DATA /0BFF START DATA /2122 OPEN,CLOSE DATA /0003 READ STATUS,READ FILE PARAMETERS * NOOFOR EQU 18 NO OF ORDER CODES * EJECT * DWTDRD EQU 42 START OF NON-STANDARD DWT PART * IFT MMUPAG=0 START EQU DWTDRD-2 DWTTDM EXTINGUISHED XIF * IFT MMUPAG=1 START EQU DWTDRD+2 DWTTDM EXTINGUISHED XIF EJECT * * FDB OFFSET DEFINITIONS * FDBSTA EQU * DWDM01 EQU * DATA 0,/8000,0,0,TIODM,0,0,0 DWT STANDARD IFT MMUPAG=1 DATA 0,FDBMMU SPECIAL DWT ITEMS XIF DATA 0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 FWT PART DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 DATA FDBSTA FDBADF DATA 0,0,0,0,0,0,0 54,BYTE FDB AREA SYSTEM FDB IFT MMUPAG=1 FDBMMU RES 7 MMU ECB AREA XIF EJECT FDBECB EQU START+2 ECB START FDBSNR EQU START+16 SECTOR NUMBER FDBRRO EQU START+20 RELATIVE RECORD OFFSET FDBRLE EQU START+22 RECORD LENGTH FDBBLF EQU START+24 BLOCKING FACTOR FDBTNR EQU START+25 TASK NUMBER CALLING TASK FDBLRN EQU START+27 LAST RECORD NUMBER FDBNIF EQU START+26 NO OF INDEX FILES FDBEAL EQU START+30 EA LINK ROOT FDBCRL EQU START+32 CRN LINK ROOT FDBKA EQU START+34 KEY ADDRESS IN DATA FILE FDBMIA EQU START+36 ADDRESS OF MASTER INDEX FDBADF EQU START+38 ADDRESS OF DATA FILE FDB FDBAI1 EQU START+40 ADDRESS OF INDEX FILE FDB FDBDBR EQU START+48 DELAY,BASIC AND REL BUFFER FLAGS FDBDMI EQU START+49 RELATIVE DMTASK ID FDBMRO EQU START+50 MAX FDBRRO FDBBLZ EQU START+52 NR OF SECT IN BLOCK FDBMEC EQU START+54 MMU ECB DISPLACEMENT IFT MMUPAG=1 FDBKEY EQU START+68 SAVE AREA FOR KEY IN INDEXED ACCESS XIF IFT MMUPAG=0 FDBKEY EQU START+54 KEY AREA FOR INDEXED ACC XIF * * CRN BUFFER OFFSET DEFINITIONS * CRNTID EQU 2 TASK ID CRNSTA EQU 3 CURRENT STATUS CRNCDF EQU 4 CURRENT DATA FILE EJECT DATA 0 DATA MANAGEMENT DEVICE INDEX TIODM DATA *+2 TIODM START ADDRESS * * SET UP A14 STACK * LDKL A14,FDBECB ADKL A14,ECBCW ADR A14,A6 USE ECB AS STACK ENB * * GET CALLING TASK NUMBER AND STORE IT IN FDBTNR * LDK A2,0 TIOD05 LD A1,SCTTCT ADR A1,A2 LD A3,2,A1 CW A3,DWTTAB,A6 RF(E) TIOD10 THIS TASK ADK A2,2 NO RB TIOD05 TRY NEXT TIOD10 EQU * SC A2,FDBTNR,A6 USER TASK NR * CHECK ORDER IN A7 * PUT ORDER INDEX IN DWTOR RIGHT BYTE * LD A7,DWTOR,A6 ORDER WORD LDR A5,A7 ANKL A5,/C0C0 SOME BITS FORBIDDEN RF(NZ) TIOD19 ERR LD A5,FDBBLZ,A6 =1 ANK A5,/FF =1 RF(NZ) TIOD19 COMMIT MISSING =1 LDK A5,NOOFOR-1 NO OF ORDERS - 1 TIOD15 CC A7,TIODMO,A5 START AT END OF TIODMO RF(E) TIOD20 MATCH SUK A5,1 RB(NN) TIOD15 >= 0 TIOD19 EQU * LDKL A1,REQERR ABL TIODMX ERR TIOD20 EQU * SLL A5,1 *2 SC A5,DWTOR+1,A6 SAVE ORDER INDEX CWK A6,FDBSTA RF(NE) TIOD25 NOT SYSTEM FWT CWK A5,RDSTOF RF(E) TIOD25 READ STATUS CWK A5,OPENOF RB(NE) TIOD19 NOT OPEN TIOD25 EQU * LDR A1,A6 FDB ADDR CF A14,CRNGET CURRENCY LDK A3,0 NEW STATUS LC A4,CRNSTA,A2 OLD STATUS SC A3,CRNSTA,A2 ABI TIODMF,A5 BRANCH TO DM FUNCTION * * A1 = FDB ADDRESS DATA FILE * A2 = CURRENCY BUFFER ADDRESS * A4 = OLD STATUS IN RIGHT BYTE * A5 = ORDER CODE AT ENTRY TO TIODM * A6 = FDB ADDRESS FILE DEVICE USER QUEUE * A7 = USER ORDER WORD * A8 = USER ECB ADDRESS EJECT RDSTAT EQU * READ STATUS SC A4,CRNSTA,A2 STATUS CHAR ANK A4,/FF ST A4,ECBCW,A8 RETURN STATUS CM ECBCW+2,A8 LDK A1,0 RET CODE OK ABL TIODMX EJECT READ EQU * READ ORDERS LDKL A3,/100 TM A3,A7 TEST BIT RF(NZ) READDI OPTION DIRECT LDKL A3,/700 TM A3,A7 RB(NZ) TIOD19 NOT OPTION SEQUENTIAL SRL A7,10 INDEX * 2 ABL(Z) SEQREA SEQ READ ABL IXRDNX INDEXED SEQ READ NEXT READDI EQU * DIRECT READ SRL A7,10 INDEX * 2 ABL(Z) RANREA DIRECT RANDOM READF RF IXRARE INDEXED DIRECT READ IFT INDXAC=0 EJECT IXRDNX EQU * IXRARE EQU * IXINS EQU * RB TIOD19 XIF EJECT WRITE EQU * WRITE ORDERS LC A3,FDBDBR,A6 ANK A3,/3 SHARABILITY RB(Z) TIOD19 ONLY INPUT ACCEPTED LDKL A4,/100 LC A3,FDBNIF,A6 NR OF INDEXES ANK A3,/FF RF(NZ) WRITE2 INDEXED TM A4,A7 ABL(NZ) TIODMB DIRECT ANKL A7,/700 ABL(Z) SEQWRI SEQUENTIAL WRITE RB TIOD19 ERR WRITE2 EQU * INDEXED TM A4,A7 ABL(NZ) IXINS INDEXED INSERT RB TIOD19 NOT ALLOWED EJECT REWRIT EQU * REWRITE ORDERS * DELETE EQU * DELETE ORDERS * LC A3,FDBDBR,A6 ANK A3,/3 SHARABILITY RB(Z) TIOD19 ONLY INPUT ALLOWED LC A3,FDBNIF,A6 NR OF INDEX ANK A3,/FF RF(Z) REW010 NO INDEX LDK A3,2 ADS A3,DWTOR,A6 ORDER INDEX REW010 EQU * LDKL A4,/400 TM A4,A7 RF(NZ) REW020 CURRENT SRL A7,8 SUK A7,1 RB(NZ) TIOD19 ERROR ABL TIODMB DIRECT REW020 EQU * ANKL A7,/300 RB(NZ) TIOD19 ERR LD A3,CRNCDF+2,A2 LD A2,CRNCDF,A2 REC NR (NO FILE ID FOR DATA FILE) ABL TIODMA IFT INDXAC=1 EJECT STAIND EQU * START INDEXED SRL A7,10 INDEX * 2 LD A9,ECBRL,A8 KEY LENGTH LDK A1,2 RF STA090 EJECT IXRARE EQU * INDEXED RANDOM READ LDK A1,4 LDKL A9,/40 MAX KEY LENGTH STA090 EQU * START ORDER ADS A1,DWTOR,A6 ORDER INDEX SUK A7,2 LDR A2,A7 ANKL A2,/FFF9 1-4 INDEXES RB(NZ) TIOD19 ERROR ADR A7,A6 BASE IN DATA FDB LD A2,FDBAI1,A7 INDEX FDB ADDR ABL(Z) TIOD19 ERR LDR A7,A2 * * COPY DWT ITEMS * LD A1,DWTECB,A6 ST A1,DWTECB,A2 LD A1,DWTOR,A6 ST A1,DWTOR,A2 * PUT ZEROES TO KEY AREA * LD A1,FDBRLE,A2 SUK A1,6 KEY LENGTH IXR050 EQU * CM FDBKEY,A2 ADK A2,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 LDK A3,FDBKEY ADR A3,A7 TO ADDR * * KEY LGTH IS MIN OF A9 AND RECLGTH - 6 * LD A2,FDBRLE,A7 SUK A2,6 MAX KEY LGTH CWR A2,A9 RF(NG) IXR070 LDR A2,A9 TAKE SMALLEST LGTH IXR070 EQU * LDR A9,A2 SAVE IFT MMUPAG=0 CF A14,DMTBM FETCH KEY XIF IFT MMUPAG=1 IFT INDXAC=1 LDR A4,A2 LDR A2,A3 TO ADDR LDR A3,A4 LGTH CF A14,MOVZUS XIF IFT INDXAC=1 * * INCREASE KEY IF 'START GREATER ' IS REQ * CWK A5,QSTA RF(NE) STA020 NOT START LC A2,DWTOPT,A7 ANK A2,/7 OPTION SUK A2,1 RF(NZ) STA020 NOT GREATER LDR A2,A7 ADKL A2,FDBKEY ADDR FIRST BYTE LDR A3,A9 LGTH ADR A3,A2 STA010 EQU * SUK A3,1 ADDR LAST BYTE LCR A1,A3 ADK A1,1 NEXT HIGHER KEY SCR A1,A3 ANK A1,/FF OVERFLOW ? RF(NZ) STA020 NO CWR A2,A3 RB(NE) STA010 MORE BYTES STA020 EQU * * * SWITCH TO INDEX FDB * LDR A6,A7 INDEX FDB RF TIORRO XIF EJECT OPEN EQU * CWK A6,FDBSTA RF(E) OPE050 FILE CODE FREE LDKL A1,EDMERR LDK A4,FCUSED FC USED SC A4,CRNSTA,A2 STATUSA ABL TIODMX OPE050 EQU * LDK A1,LGTERR LDKL A4,FPB:FR+8 MIN LGTH CW A4,ECBRL,A8 REQ ABL(G) TIODMX ERR TIORRO EQU * LDKL A4,-1 ST A4,FDBRRO,A6 MARK ORDER TYPE ABL TIOD68 ACTIVATE DMTASK * RDFILP EQU * READ FILE PARAMETERS LD A3,CRNCDF+2,A2 LD A2,CRNCDF,A2 CURRENT RECORD ST A2,ECBCW,A8 ST A3,ECBCW+2,A8 RB TIORRO EJECT CLOSE EQU * CLOSE FILE * * CONNECT FILE CODE TO SYSTEM FWT * LD A1,DWTTAB,A6 USER TTAB ADDR 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 A2,0 LC A2,FDBLRN,A6 LD A3,FDBLRN+1,A6 LAST RECORD NR RF(NZ) CLO100 LDR A2,A2 RF(NZ) CLO100 LDK A3,1 LRN CLO100 EQU * RF TIODMD EJECT SEQREAD EQU * SEQUENTIAL READ LDK A1,2 ADS A1,DWTOR,A6 ORDER INDEX LD A3,CRNCDF+2,A2 CURR LOG REC NO LD A2,CRNCDF,A2 NO FILE ID FOR DATA FILE ADK A3,1 CRN+1 RF(O) SEQR10 OVERFLOW RF SEQR20 SEQR10 EQU * ANKL A3,/7FFF REMOVE OVERFLOW ADK A2,1 ADD CARRY SEQR20 EQU * RF RAN050 EJECT RANREAD EQU * RANDOM READ * * * TEST IF ECBRL <= 0 * LD A2,ECBCW,A8 REC NR LD A3,ECBCW+2,A8 RAN050 EQU * LDK A1,LGTERR INCORRECT LENGTH LD A4,ECBRL,A8 ABL(NP) TIODME ERROR RETURN IF RL <= 0 RF TIODMA EJECT IFT INDXAC=1 IXINS EQU * INDEXED INSRERT LDK A2,2 ADS A2,DWTOR,A6 ORDER INDEX IFT MMUPAG=1 * * MOVE KEYS TO FDB KEY AREAS * LDK A5,8 IXINS3 EQU * LDR A2,A6 FDB DATA ADR A2,A5 LD A3,FDBADF,A2 FDB INDEX RF(Z) IXINS4 NO INDEX LD A1,FDBKA,A3 KEY ADDR AD A1,ECBBA,A8 ADD USER BUF ADDR LDK A2,FDBKEY KEY AREA DISPL ADR A2,A3 ADD FDB ADDR LD A3,FDBRLE,A3 REC LGTH SUK A3,6 KEY LGTH CF A14,MOVZUS KEY TO FDB AREA IXINS4 EQU * SUK A5,2 RB(NZ) IXINS3 MORE INDEXS XIF * SEQWRITE EQU * SEQUENTIAL WRITE * LDK A2,2 ADS A2,DWTOR,A6 ORDER INDEX LC A2,FDBLRN,A6 LD A3,FDBLRN+1,A6 LRN IFT INDXAC=1 RF IXR020 STORE LOG REC NO EJECT IXRDNX EQU * INDEXED EREAD NEXT LDR A4,A2 CRN BUFFER ADDR LDK A1,6 ADS A1,DWTOR,A6 ORDER INDEX SUK A7,2 LDR A2,A7 ANKL A2,/FFF9 1-4 INDEXES ABL(NZ) TIOD19 ERR LD A2,DWTOR,A6 LD A3,DWTECB,A6 ITEMS TO INDEX FDB * * SWITCH FDB * ADR A7,A6 LD A7,FDBAI1,A7 INDEX FDB ADDR ABL(Z) TIOD19 ERR LDR A6,A7 ST A2,DWTOR,A6 ST A3,DWTECB,A6 ITEMS FROM DATA FILE * * GET CRN * LDK A2,0 LDK A3,0 * * CHECK THAT FILE ID IS OK * LC A7,FWTFNR,A6 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 EJECT IXR020 EQU * ADK A3,1 RF(O) IXR030 OVERFLOW RF IXR040 IXR030 ANKL A3,/7FFF REMOVE OVERFLOW BIT ADK A2,1 ADK CARRY IXR040 EQU * RF TIODMA DO NOT CHECK EOF CONDITION EJECT STARTO EQU * START ORDER IFT INDXAC=1 LDR A4,A7 SRL A4,10 INDEX * 2 ABL(NZ) STAIND START INDEXED XIF LD A2,ECBCW,A8 REC NR LD A3,ECBCW+2,A8 ECR A4,A7 ANK A4,/7 OPTION SUK A4,1 RF(NZ) TIODMA NOT GREATER RB IXR020 GET NEXT REC NR EJECT * ************************* * DMTASK ACTIVATION * ************************* * TIODMA EQU * ST A2,ECBCW,A8 REC NR ST A3,ECBCW+2,A8 RF TIODMC TIODMB LD A2,ECBCW,A8 REC NR LD A3,ECBCW+2,A8 TIODMC EQU * * * NO EA FOR OTHER TASK * LD A1,FDBADF,A6 FDB ADDR CF A14,EATEST LDR A4,A4 RTN INF RF(N) TIODPE EA OTHER TASK TIODMD EQU * LDR A1,A2 LDR A2,A3 REC NR CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR LDR A1,A1 RETURN INF RF(NZ) TIODME EJECT * * ACTIVATE DMTASK WITH FDB ADDRESS IN A1 * TIOD68 EQU * * * PREPARE DM INTERFACE * LDKL A8,'#D' INH LDK A7,0 LD A1,DWTOR,A6 ORDER ANK A1,/FF SUK A1,OPENOF RF(NN) TIOD72 OPEN CLOSE,RDFP LC A7,FDBDMI,A6 TID FOR DMTASK ADR A7,A8 CF A15,FNDTID A2 = TTAB ADDR LDR A5,A2 RF(Z) TASHLT LD A1,TTB:SA,A2 RF(Z) TIOD70 NOT ACTIVE LDK A7,0 EJECT * * GET SECONDARY DMTASK * LC A1,FWTVOL,A6 VOLUME FILE CODE TIOD69 EQU * CC A1,DFTAB,A7 RF(E) TIOD71 SAME CODE ADK A7,1 RB TIOD69 SEARCH NEXT TIOD71 EQU * LC A7,DMTIDS,A7 SECONDARY DMTASK REL ID TIOD72 EQU * ADR A7,A8 TASK ID CF A15,FNDTID A2:=TTAB ADDR LDR A5,A2 RF(NZ) TIOD70 TASHLT EQU * ABNORMAL SYSTEM ERRORS LDK A1,/11 DM ERR CF A15,HALT TIOD70 LDKL A2,DMTASK DISPATCH ADDRESS LDR A1,A6 FDB ADDRESS * USED REGS A1-A3,A5 CF A15,ACTOT ACTIVATE DMTASK ABL TDISP * EJECT * ************** * TIODME * ************** * * TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER * TIODPE EQU * PROTECT ERR EXIT SUR A9,A9 LC A9,FDBTNR,A6 USER TASK ID CF A14,RELPRO RELEASE PROTECT LDKL A1,PROERR TIODME EQU * LD A6,FDBADF,A6 DATA FILE FDB ADDR TIODMX EQU * * A1 = ERROR CODE * A6 = FDB ADDRESS INH ABL DISEND CALL TENDIO GOTO DISPATCHER * END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT TIODM REL 10.0 80-03-14 870105041000«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0058 Head {h00=0x0018, h01=0x0050, text=» =1, COMMIT CHECK «, t00=0x0000, t01=0x0040}
0x0058…006c Head {h00=0x0010, h01=0x0050, text=» 79-11-02 «, t00=0x0000, t01=0x005c}
0x006c…00a8 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0070}
0x00a8…00b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ac}
0x00b2…00da Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00b6}
0x00da…00e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00de}
0x00e4…0118 Head {h00=0x0030, h01=0x0050, text=»* TIODM = DATA MANAGEMENT ACTIVATION PART«, t00=0x0000, t01=0x00e8}
0x0118…0122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…012c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…0136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0130}
0x0136…0140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013a}
0x0140…014a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…0190 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0158}
0x0190…019a (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x019a…01e0 Head {h00=0x0042, h01=0x0050, text=»* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO«, t00=0x0001, t01=0x000e}
0x01e0…0212 Head {h00=0x002e, h01=0x0050, text=»* AND THE DWTADR IN FDB FOR CURRENT FILE«, t00=0x0001, t01=0x0054}
0x0212…021c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0086}
0x021c…0268 Head {h00=0x0048, h01=0x0050, text=»* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR «, t00=0x0001, t01=0x0090}
0x0268…0290 Head {h00=0x0024, h01=0x0050, text=»* FROM A DISC MUST BE ACCESSED«, t00=0x0001, t01=0x00dc}
0x0290…029a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0104}
0x029a…02da Head {h00=0x003c, h01=0x0050, text=»* ENTRY TIODM AND TIODM HOLDS THE START ADDRESS«, t00=0x0001, t01=0x010e}
0x02da…02e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014e}
0x02e4…02ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0158}
0x02ee…0312 Head {h00=0x0020, h01=0x0050, text=»* INPUT A6 = FWT ADDRESS«, t00=0x0001, t01=0x0162}
0x0312…0344 Head {h00=0x002e, h01=0x0050, text=»* A7 = ORDER WORD WITH W BIT = 0«, t00=0x0001, t01=0x0186}
0x0344…0368 Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0002, t01=0x0028}
0x0368…0372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004c}
0x0372…037c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0056}
0x037c…0386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0060}
0x0386…03c0 Head {h00=0x0036, h01=0x0050, text=»* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT «, t00=0x0002, t01=0x006a}
0x03c0…03ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a4}
0x03ca…0402 Head {h00=0x0034, h01=0x0050, text=»* THE FOLLOWING WORDS WILL BE SET IN THE FDB: «, t00=0x0002, t01=0x00ae}
0x0402…042c Head {h00=0x0026, h01=0x0050, text=»* FDBSNR SECTOR NUMBER IN FILE«, t00=0x0002, t01=0x00e6}
0x042c…0460 Head {h00=0x0030, h01=0x0050, text=»* FDBRRO RELATIVE RECORD OFFSET IN BLOCK«, t00=0x0002, t01=0x0110}
0x0460…0492 Head {h00=0x002e, h01=0x0050, text=»* FDBTNR TASK NUMBER FOR CALLING TASK «, t00=0x0002, t01=0x0144}
0x0492…04c4 Head {h00=0x002e, h01=0x0050, text=»* FDBCEX CURRENT EXTENT BLOCK POINTER «, t00=0x0002, t01=0x0176}
0x04c4…04ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0018}
0x04ce…04d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0022}
0x04d8…0520 Head {h00=0x0044, h01=0x0050, text=»* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: «, t00=0x0003, t01=0x002c}
0x0520…0544 Head {h00=0x0020, h01=0x0050, text=»* LDKL A1,/<RETURN CODE>«, t00=0x0003, t01=0x0074}
0x0544…055e Head {h00=0x0016, h01=0x0050, text=»* ABL DISEND «, t00=0x0003, t01=0x0098}
0x055e…0568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b2}
0x0568…0572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00bc}
0x0572…0580 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00c6}
0x0580…058a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d4}
0x058a…05a0 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0003, t01=0x00de}
0x05a0…05b6 Head {h00=0x0012, h01=0x0050, text=»* ENTRIES *«, t00=0x0003, t01=0x00f4}
0x05b6…05cc Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0003, t01=0x010a}
0x05cc…05d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0120}
0x05d6…0600 Head {h00=0x0026, h01=0x0050, text=» ENTRY TIODM REFERENCED IN DWTADR «, t00=0x0003, t01=0x012a}
0x0600…0616 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBECB «, t00=0x0003, t01=0x0154}
0x0616…062c Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBSNR «, t00=0x0003, t01=0x016a}
0x062c…0642 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBRRO «, t00=0x0003, t01=0x0180}
0x0642…0658 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBRLE «, t00=0x0004, t01=0x0008}
0x0658…066e Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBBLF «, t00=0x0004, t01=0x001e}
0x066e…0684 Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBTNR «, t00=0x0004, t01=0x0034}
0x0684…069a Head {h00=0x0012, h01=0x0050, text=» ENTRY FDBLRN «, t00=0x0004, t01=0x004a}
0x069a…06d2 Head {h00=0x0034, h01=0x0050, text=» ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF «, t00=0x0004, t01=0x0060}
0x06d2…06fc Head {h00=0x0026, h01=0x0050, text=» ENTRY FDBAI1,CRNTID,CRNCDF,CRNSTA«, t00=0x0004, t01=0x0098}
0x06fc…071e Head {h00=0x001e, h01=0x0050, text=» ENTRY FDBBLZ BLOCK SIZE «, t00=0x0004, t01=0x00c2}
0x071e…0740 Head {h00=0x001e, h01=0x0050, text=» ENTRY FDBDMI DMTASK IDENT«, t00=0x0004, t01=0x00e4}
0x0740…075c Head {h00=0x0018, h01=0x0050, text=» ENTRY FDBDBR,FDBMRO«, t00=0x0004, t01=0x0106}
0x075c…0786 Head {h00=0x0026, h01=0x0050, text=» ENTRY FDBMEC MMU ECB DISPLACEMENT«, t00=0x0004, t01=0x0122}
0x0786…07c0 Head {h00=0x0036, h01=0x0050, text=» ENTRY FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS «, t00=0x0004, t01=0x014c}
0x07c0…07e4 Head {h00=0x0020, h01=0x0050, text=» ENTRY TASHLT,FDBSTA,DWDM01 «, t00=0x0004, t01=0x0186}
0x07e4…07fa Head {h00=0x0012, h01=0x0050, text=» ENTRY REQER2 «, t00=0x0005, t01=0x001a}
0x07fa…0830 Head {h00=0x0032, h01=0x0050, text=» ENTRY RETRIE,EOMERR,NOKEY,NXTKYS,EOFRC,NODERR«, t00=0x0005, t01=0x0030}
0x0830…0860 Head {h00=0x002c, h01=0x0050, text=» ENTRY PROT,KEYERR,PROERR,REQERR,LGTERR «, t00=0x0005, t01=0x0066}
0x0860…087c Head {h00=0x0018, h01=0x0050, text=» ENTRY EOFERR,EDMERR«, t00=0x0005, t01=0x0096}
0x087c…088a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00b2}
0x088a…08a0 Head {h00=0x0012, h01=0x0050, text=» EXTRN SCTTCT «, t00=0x0005, t01=0x00c0}
0x08a0…08b6 Head {h00=0x0012, h01=0x0050, text=» EXTRN RELPRO «, t00=0x0005, t01=0x00d6}
0x08b6…08ca Head {h00=0x0010, h01=0x0050, text=» EXTRN TDISP«, t00=0x0005, t01=0x00ec}
0x08ca…08de Head {h00=0x0010, h01=0x0050, text=» EXTRN HALT «, t00=0x0005, t01=0x0100}
0x08de…08f4 Head {h00=0x0012, h01=0x0050, text=» EXTRN FNDTID «, t00=0x0005, t01=0x0114}
0x08f4…0908 Head {h00=0x0010, h01=0x0050, text=» EXTRN ACTOT«, t00=0x0005, t01=0x012a}
0x0908…091e Head {h00=0x0012, h01=0x0050, text=» EXTRN DISEND «, t00=0x0005, t01=0x013e}
0x091e…0940 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x0154}
0x0940…0968 Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x0176}
0x0968…098a Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTOPT OPTION BYTE «, t00=0x0006, t01=0x000e}
0x098a…09b4 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTTAB DM TASK TTAB ADDRESS«, t00=0x0006, t01=0x0030}
0x09b4…09d2 Head {h00=0x001a, h01=0x0050, text=» EXTRN TTB:ID TASK ID «, t00=0x0006, t01=0x005a}
0x09d2…09ee Head {h00=0x0018, h01=0x0050, text=» EXTRN MOVZUS,MOVZSU«, t00=0x0006, t01=0x0078}
0x09ee…0a04 Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTASK «, t00=0x0006, t01=0x0094}
0x0a04…0a1a Head {h00=0x0012, h01=0x0050, text=» EXTRN CALSNO «, t00=0x0006, t01=0x00aa}
0x0a1a…0a2e Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBFC«, t00=0x0006, t01=0x00c0}
0x0a2e…0a42 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBBA«, t00=0x0006, t01=0x00d4}
0x0a42…0a56 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRL«, t00=0x0006, t01=0x00e8}
0x0a56…0a6a Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBEL«, t00=0x0006, t01=0x00fc}
0x0a6a…0a7e Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRC«, t00=0x0006, t01=0x0110}
0x0a7e…0a92 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBCW«, t00=0x0006, t01=0x0124}
0x0a92…0ab6 Head {h00=0x0020, h01=0x0050, text=» EXTRN EARELB,CRNGET,EATEST «, t00=0x0006, t01=0x0138}
0x0ab6…0ae8 Head {h00=0x002e, h01=0x0050, text=» EXTRN EWTVOL,EWTSEX,EWTEXL,EWTEXB,EWTLNK «, t00=0x0006, t01=0x015c}
0x0ae8…0afe Head {h00=0x0012, h01=0x0050, text=» EXTRN FWTEW1 «, t00=0x0006, t01=0x018e}
0x0afe…0b1c Head {h00=0x001a, h01=0x0050, text=» EXTRN FWTFNR FILE NR «, t00=0x0007, t01=0x0014}
0x0b1c…0b40 Head {h00=0x0020, h01=0x0050, text=» EXTRN FNDFDB DMTASK ROUTINE«, t00=0x0007, t01=0x0032}
0x0b40…0b56 Head {h00=0x0012, h01=0x0050, text=» EXTRN FPB:FR «, t00=0x0007, t01=0x0056}
0x0b56…0b72 Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:SA,QTJOB «, t00=0x0007, t01=0x006c}
0x0b72…0b86 Head {h00=0x0010, h01=0x0050, text=» EXTRN DMTBM«, t00=0x0007, t01=0x0088}
0x0b86…0b9c Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTIDS «, t00=0x0007, t01=0x009c}
0x0b9c…0bb8 Head {h00=0x0018, h01=0x0050, text=» EXTRN DFTAB,FWTVOL «, t00=0x0007, t01=0x00b2}
0x0bb8…0be4 Head {h00=0x0028, h01=0x0050, text=» EXTRN CRNCIF INDEX CURRENCY OFFSET «, t00=0x0007, t01=0x00ce}
0x0be4…0bf2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00fa}
0x0bf2…0bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0108}
0x0bfc…0c1c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0112}
0x0c1c…0c3c Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x0132}
0x0c3c…0c5c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0152}
0x0c5c…0c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0172}
0x0c66…0c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017c}
0x0c70…0cb4 Head {h00=0x0040, h01=0x0050, text=»* A VERSION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED «, t00=0x0007, t01=0x0186}
0x0cb4…0cd8 Head {h00=0x0020, h01=0x0050, text=»* BY SETTING INDXAC EQU 1 «, t00=0x0008, t01=0x003a}
0x0cd8…0d06 Head {h00=0x002a, h01=0x0050, text=»* INDXAC EQU 0 OTHRERWISE«, t00=0x0008, t01=0x005e}
0x0d06…0d18 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x008c}
0x0d18…0d30 Head {h00=0x0014, h01=0x0050, text=»INDXAC EQU 00001«, t00=0x0008, t01=0x009e}
0x0d30…0d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b6}
0x0d3a…0d6c Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x00c0}
0x0d6c…0d9a Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00f2}
0x0d9a…0da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0120}
0x0da4…0db8 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0008, t01=0x012a}
0x0db8…0dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013e}
0x0dc2…0dd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0148}
0x0dd0…0dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0156}
0x0dda…0df2 Head {h00=0x0014, h01=0x0050, text=»* ERROR CODES «, t00=0x0008, t01=0x0160}
0x0df2…0dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0178}
0x0dfc…0e2a Head {h00=0x002a, h01=0x0050, text=»EOMERR EQU /A000 OUTSIDE MEDIUM LIMITS«, t00=0x0008, t01=0x0182}
0x0e2a…0e54 Head {h00=0x0026, h01=0x0050, text=»PROT EQU /0040 THIS DATA PROTECTED«, t00=0x0009, t01=0x0020}
0x0e54…0e7e Head {h00=0x0026, h01=0x0050, text=»NODERR EQU /8800 NO EXPECTED DATA «, t00=0x0009, t01=0x004a}
0x0e7e…0eae Head {h00=0x002c, h01=0x0050, text=»KEYERR EQU /8400 EXPECTED KEY NOT FOUND «, t00=0x0009, t01=0x0074}
0x0eae…0ee4 Head {h00=0x0032, h01=0x0050, text=»PROERR EQU /0010 ROLLBACK FOR PROTECT REASONS «, t00=0x0009, t01=0x00a4}
0x0ee4…0f12 Head {h00=0x002a, h01=0x0050, text=»REQERR EQU /8000 GENERAL REQUEST ERROR«, t00=0x0009, t01=0x00da}
0x0f12…0f38 Head {h00=0x0022, h01=0x0050, text=»REQER2 EQU /FFFE REQUEST ERROR«, t00=0x0009, t01=0x0108}
0x0f38…0f62 Head {h00=0x0026, h01=0x0050, text=»LGTERR EQU /0008 INCORRECT LENGTH «, t00=0x0009, t01=0x012e}
0x0f62…0f90 Head {h00=0x002a, h01=0x0050, text=»EDMERR EQU /8080 DATA MANAGEMENT ERROR«, t00=0x0009, t01=0x0158}
0x0f90…0fb4 Head {h00=0x0020, h01=0x0050, text=»EOFERR EQU /9000 END OF FILE«, t00=0x0009, t01=0x0186}
0x0fb4…0fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x001a}
0x0fbe…0fd2 Head {h00=0x0010, h01=0x0050, text=»* MESSAGES«, t00=0x000a, t01=0x0024}
0x0fd2…0fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0038}
0x0fdc…1002 Head {h00=0x0022, h01=0x0050, text=»RETRIE EQU /0100 DISC RETRIES «, t00=0x000a, t01=0x0042}
0x1002…102a Head {h00=0x0024, h01=0x0050, text=»NOKEY EQU /0400 NOT SEARCHED KEY«, t00=0x000a, t01=0x0068}
0x102a…1050 Head {h00=0x0022, h01=0x0050, text=»NXTKYS EQU /0200 NEXT KEY SAME«, t00=0x000a, t01=0x0090}
0x1050…1074 Head {h00=0x0020, h01=0x0050, text=»EOFRC EQU /1000 END OF FILE «, t00=0x000a, t01=0x00b6}
0x1074…107e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00da}
0x107e…10a4 Head {h00=0x0022, h01=0x0050, text=»FCUSED EQU 7 INVALID FILE CODE«, t00=0x000a, t01=0x00e4}
0x10a4…10b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x010a}
0x10b2…10bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0118}
0x10bc…10dc Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0122}
0x10dc…10fc Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x000a, t01=0x0142}
0x10fc…111c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0162}
0x111c…1126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0182}
0x1126…1130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018c}
0x1130…113a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x113a…1144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1144…116e Head {h00=0x0026, h01=0x0050, text=»TIODMF EQU * TIODM FUNCTION TABLE «, t00=0x000b, t01=0x001c}
0x116e…118e Head {h00=0x001c, h01=0x0050, text=» DATA READ DIRECT RANDOM«, t00=0x000b, t01=0x0046}
0x118e…11ac Head {h00=0x001a, h01=0x0050, text=» DATA READ SEQUENTIAL «, t00=0x000b, t01=0x0066}
0x11ac…11c2 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000b, t01=0x0084}
0x11c2…11dc Head {h00=0x0016, h01=0x0050, text=» DATA READ INDEXED«, t00=0x000b, t01=0x009a}
0x11dc…11fc Head {h00=0x001c, h01=0x0050, text=» DATA READ INDEXED NEXT «, t00=0x000b, t01=0x00b4}
0x11fc…1208 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00d4}
0x1208…121e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000b, t01=0x00e0}
0x121e…123a Head {h00=0x0018, h01=0x0050, text=» DATA TIOD19,TIOD19 «, t00=0x000b, t01=0x00f6}
0x123a…1246 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0112}
0x1246…1268 Head {h00=0x001e, h01=0x0050, text=» DATA WRITE DIRECT RANDOM «, t00=0x000b, t01=0x011e}
0x1268…1286 Head {h00=0x001a, h01=0x0050, text=» DATA WRITE SEQUENTIAL«, t00=0x000b, t01=0x0140}
0x1286…129c Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000b, t01=0x015e}
0x129c…12be Head {h00=0x001e, h01=0x0050, text=» DATA WRITE INDEXED INSERT«, t00=0x000b, t01=0x0174}
0x12be…12ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0008}
0x12ca…12e0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000c, t01=0x0014}
0x12e0…12f4 Head {h00=0x0010, h01=0x0050, text=» DATA TIOD19«, t00=0x000c, t01=0x002a}
0x12f4…1300 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x003e}
0x1300…131e Head {h00=0x001a, h01=0x0050, text=» DATA WRITE (RESERVED)«, t00=0x000c, t01=0x004a}
0x131e…1342 Head {h00=0x0020, h01=0x0050, text=» DATA REWRIT REWRITE DIRECT «, t00=0x000c, t01=0x0068}
0x1342…1358 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000c, t01=0x008c}
0x1358…137c Head {h00=0x0020, h01=0x0050, text=» DATA REWRIT REWRITE INDEXED«, t00=0x000c, t01=0x00a2}
0x137c…1388 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00c6}
0x1388…139e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000c, t01=0x00d2}
0x139e…13b2 Head {h00=0x0010, h01=0x0050, text=» DATA TIOD19«, t00=0x000c, t01=0x00e8}
0x13b2…13be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00fc}
0x13be…13da Head {h00=0x0018, h01=0x0050, text=» DATA DELETE DIRECT «, t00=0x000c, t01=0x0108}
0x13da…13f0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000c, t01=0x0124}
0x13f0…140a Head {h00=0x0016, h01=0x0050, text=»QDEL EQU *-TIODMF «, t00=0x000c, t01=0x013a}
0x140a…1426 Head {h00=0x0018, h01=0x0050, text=» DATA DELETE INDEXED«, t00=0x000c, t01=0x0154}
0x1426…1432 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0170}
0x1432…1448 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000c, t01=0x017c}
0x1448…145c (13, 0, 400) Head {h00=0x0010, h01=0x0050, text=» DATA TIOD19«, t00=0x000d, t01=0x0004}
0x145c…1468 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0018}
0x1468…1482 Head {h00=0x0016, h01=0x0050, text=»QSTA EQU *-TIODMF «, t00=0x000d, t01=0x0024}
0x1482…14a4 Head {h00=0x001e, h01=0x0050, text=» DATA STARTO START DIRECT «, t00=0x000d, t01=0x003e}
0x14a4…14ba Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000d, t01=0x0060}
0x14ba…14dc Head {h00=0x001e, h01=0x0050, text=» DATA STARTO START INDEXED«, t00=0x000d, t01=0x0076}
0x14dc…14e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0098}
0x14e8…14fe Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000d, t01=0x00a4}
0x14fe…1512 Head {h00=0x0010, h01=0x0050, text=» DATA TIOD19«, t00=0x000d, t01=0x00ba}
0x1512…151e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00ce}
0x151e…1528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00da}
0x1528…1572 Head {h00=0x0046, h01=0x0050, text=»* FOLLOWING FILE ADMINISTRATION FUNCTIONS MUST ALWAYS BE PLACED «, t00=0x000d, t01=0x00e4}
0x1572…15bc Head {h00=0x0046, h01=0x0050, text=»* AT THE END OF TIODMF DEP ON TEST PERFORMED AFTER LABEL TIOD68 «, t00=0x000d, t01=0x012e}
0x15bc…15c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0178}
0x15c6…15e2 Head {h00=0x0018, h01=0x0050, text=»OPENOF EQU *-TIODMF «, t00=0x000d, t01=0x0182}
0x15e2…15f4 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000e, t01=0x000e}
0x15f4…1610 Head {h00=0x0018, h01=0x0050, text=»CLOSOF EQU *-TIODMF «, t00=0x000e, t01=0x0020}
0x1610…1624 Head {h00=0x0010, h01=0x0050, text=» DATA CLOSE «, t00=0x000e, t01=0x003c}
0x1624…1640 Head {h00=0x0018, h01=0x0050, text=»RDSTOF EQU *-TIODMF «, t00=0x000e, t01=0x0050}
0x1640…1660 Head {h00=0x001c, h01=0x0050, text=» DATA RDSTAT READ STATUS«, t00=0x000e, t01=0x006c}
0x1660…167c Head {h00=0x0018, h01=0x0050, text=»RDFPOF EQU *-TIODMF «, t00=0x000e, t01=0x008c}
0x167c…16a6 Head {h00=0x0026, h01=0x0050, text=» DATA RDFILP READ FILE PARAMETERS «, t00=0x000e, t01=0x00a8}
0x16a6…16b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00d2}
0x16b4…16be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e0}
0x16be…16dc Head {h00=0x001a, h01=0x0050, text=»TIODMO EQU * DM ORDERS«, t00=0x000e, t01=0x00ea}
0x16dc…16f4 Head {h00=0x0014, h01=0x0050, text=» DATA /02FF READ«, t00=0x000e, t01=0x0108}
0x16f4…1708 Head {h00=0x0010, h01=0x0050, text=» DATA /FFFF «, t00=0x000e, t01=0x0120}
0x1708…1722 Head {h00=0x0016, h01=0x0050, text=» DATA /06FF WRITE «, t00=0x000e, t01=0x0134}
0x1722…1736 Head {h00=0x0010, h01=0x0050, text=» DATA /FFFF «, t00=0x000e, t01=0x014e}
0x1736…1752 Head {h00=0x0018, h01=0x0050, text=» DATA /07FF REWRITE «, t00=0x000e, t01=0x0162}
0x1752…176c Head {h00=0x0016, h01=0x0050, text=» DATA /08FF DELETE«, t00=0x000e, t01=0x017e}
0x176c…1786 Head {h00=0x0016, h01=0x0050, text=» DATA /0BFF START «, t00=0x000f, t01=0x0008}
0x1786…17a4 Head {h00=0x001a, h01=0x0050, text=» DATA /2122 OPEN,CLOSE«, t00=0x000f, t01=0x0022}
0x17a4…17d8 Head {h00=0x0030, h01=0x0050, text=» DATA /0003 READ STATUS,READ FILE PARAMETERS«, t00=0x000f, t01=0x0040}
0x17d8…17e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0074}
0x17e2…180a Head {h00=0x0024, h01=0x0050, text=»NOOFOR EQU 18 NO OF ORDER CODES «, t00=0x000f, t01=0x007e}
0x180a…1814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a6}
0x1814…1822 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00b0}
0x1822…182c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00be}
0x182c…1860 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU 42 START OF NON-STANDARD DWT PART«, t00=0x000f, t01=0x00c8}
0x1860…186a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fc}
0x186a…1880 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000f, t01=0x0106}
0x1880…18ae Head {h00=0x002a, h01=0x0050, text=»START EQU DWTDRD-2 DWTTDM EXTINGUISHED«, t00=0x000f, t01=0x011c}
0x18ae…18ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x014a}
0x18ba…18c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0156}
0x18c4…18da Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x0160}
0x18da…1908 Head {h00=0x002a, h01=0x0050, text=»START EQU DWTDRD+2 DWTTDM EXTINGUISHED«, t00=0x000f, t01=0x0176}
0x1908…1914 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0014}
0x1914…1922 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0020}
0x1922…192c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002e}
0x192c…194e Head {h00=0x001e, h01=0x0050, text=»* FDB OFFSET DEFINITIONS«, t00=0x0010, t01=0x0038}
0x194e…1958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005a}
0x1958…196c Head {h00=0x0010, h01=0x0050, text=»FDBSTA EQU *«, t00=0x0010, t01=0x0064}
0x196c…1980 Head {h00=0x0010, h01=0x0050, text=»DWDM01 EQU *«, t00=0x0010, t01=0x0078}
0x1980…19b2 Head {h00=0x002e, h01=0x0050, text=» DATA 0,/8000,0,0,TIODM,0,0,0 DWT STANDARD«, t00=0x0010, t01=0x008c}
0x19b2…19c8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x00be}
0x19c8…19f0 Head {h00=0x0024, h01=0x0050, text=» DATA 0,FDBMMU SPECIAL DWT ITEMS«, t00=0x0010, t01=0x00d4}
0x19f0…19fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00fc}
0x19fc…1a12 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0010, t01=0x0108}
0x1a12…1a3a Head {h00=0x0024, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0,0 FWT PART«, t00=0x0010, t01=0x011e}
0x1a3a…1a5a Head {h00=0x001c, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0,0 «, t00=0x0010, t01=0x0146}
0x1a5a…1a7a Head {h00=0x001c, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0,0 «, t00=0x0010, t01=0x0166}
0x1a7a…1a96 Head {h00=0x0018, h01=0x0050, text=» DATA FDBSTA FDBADF «, t00=0x0010, t01=0x0186}
0x1a96…1ace Head {h00=0x0034, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 54,BYTE FDB AREA SYSTEM FDB «, t00=0x0011, t01=0x0012}
0x1ace…1ae4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0011, t01=0x004a}
0x1ae4…1b06 Head {h00=0x001e, h01=0x0050, text=»FDBMMU RES 7 MMU ECB AREA «, t00=0x0011, t01=0x0060}
0x1b06…1b12 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0082}
0x1b12…1b20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x008e}
0x1b20…1b44 Head {h00=0x0020, h01=0x0050, text=»FDBECB EQU START+2 ECB START«, t00=0x0011, t01=0x009c}
0x1b44…1b6e Head {h00=0x0026, h01=0x0050, text=»FDBSNR EQU START+16 SECTOR NUMBER «, t00=0x0011, t01=0x00c0}
0x1b6e…1ba0 Head {h00=0x002e, h01=0x0050, text=»FDBRRO EQU START+20 RELATIVE RECORD OFFSET«, t00=0x0011, t01=0x00ea}
0x1ba0…1bca Head {h00=0x0026, h01=0x0050, text=»FDBRLE EQU START+22 RECORD LENGTH «, t00=0x0011, t01=0x011c}
0x1bca…1bf6 Head {h00=0x0028, h01=0x0050, text=»FDBBLF EQU START+24 BLOCKING FACTOR «, t00=0x0011, t01=0x0146}
0x1bf6…1c2a Head {h00=0x0030, h01=0x0050, text=»FDBTNR EQU START+25 TASK NUMBER CALLING TASK«, t00=0x0011, t01=0x0172}
0x1c2a…1c58 Head {h00=0x002a, h01=0x0050, text=»FDBLRN EQU START+27 LAST RECORD NUMBER«, t00=0x0012, t01=0x0016}
0x1c58…1c86 Head {h00=0x002a, h01=0x0050, text=»FDBNIF EQU START+26 NO OF INDEX FILES «, t00=0x0012, t01=0x0044}
0x1c86…1cae Head {h00=0x0024, h01=0x0050, text=»FDBEAL EQU START+30 EA LINK ROOT«, t00=0x0012, t01=0x0072}
0x1cae…1cd8 Head {h00=0x0026, h01=0x0050, text=»FDBCRL EQU START+32 CRN LINK ROOT «, t00=0x0012, t01=0x009a}
0x1cd8…1d0c Head {h00=0x0030, h01=0x0050, text=»FDBKA EQU START+34 KEY ADDRESS IN DATA FILE «, t00=0x0012, t01=0x00c4}
0x1d0c…1d40 Head {h00=0x0030, h01=0x0050, text=»FDBMIA EQU START+36 ADDRESS OF MASTER INDEX «, t00=0x0012, t01=0x00f8}
0x1d40…1d74 Head {h00=0x0030, h01=0x0050, text=»FDBADF EQU START+38 ADDRESS OF DATA FILE FDB«, t00=0x0012, t01=0x012c}
0x1d74…1daa Head {h00=0x0032, h01=0x0050, text=»FDBAI1 EQU START+40 ADDRESS OF INDEX FILE FDB «, t00=0x0012, t01=0x0160}
0x1daa…1de6 Head {h00=0x0038, h01=0x0050, text=»FDBDBR EQU START+48 DELAY,BASIC AND REL BUFFER FLAGS«, t00=0x0013, t01=0x0008}
0x1de6…1e14 Head {h00=0x002a, h01=0x0050, text=»FDBDMI EQU START+49 RELATIVE DMTASK ID«, t00=0x0013, t01=0x0044}
0x1e14…1e3a Head {h00=0x0022, h01=0x0050, text=»FDBMRO EQU START+50 MAX FDBRRO«, t00=0x0013, t01=0x0072}
0x1e3a…1e6a Head {h00=0x002c, h01=0x0050, text=»FDBBLZ EQU START+52 NR OF SECT IN BLOCK «, t00=0x0013, t01=0x0098}
0x1e6a…1e9a Head {h00=0x002c, h01=0x0050, text=»FDBMEC EQU START+54 MMU ECB DISPLACEMENT«, t00=0x0013, t01=0x00c8}
0x1e9a…1eb0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x00f8}
0x1eb0…1ef0 Head {h00=0x003c, h01=0x0050, text=»FDBKEY EQU START+68 SAVE AREA FOR KEY IN INDEXED ACCESS «, t00=0x0013, t01=0x010e}
0x1ef0…1efc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x014e}
0x1efc…1f12 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x015a}
0x1f12…1f46 Head {h00=0x0030, h01=0x0050, text=»FDBKEY EQU START+54 KEY AREA FOR INDEXED ACC«, t00=0x0013, t01=0x0170}
0x1f46…1f52 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0014}
0x1f52…1f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0020}
0x1f5c…1f86 Head {h00=0x0026, h01=0x0050, text=»* CRN BUFFER OFFSET DEFINITIONS «, t00=0x0014, t01=0x002a}
0x1f86…1f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0054}
0x1f90…1fac Head {h00=0x0018, h01=0x0050, text=»CRNTID EQU 2 TASK ID«, t00=0x0014, t01=0x005e}
0x1fac…1fd0 Head {h00=0x0020, h01=0x0050, text=»CRNSTA EQU 3 CURRENT STATUS «, t00=0x0014, t01=0x007a}
0x1fd0…1ff6 Head {h00=0x0022, h01=0x0050, text=»CRNCDF EQU 4 CURRENT DATA FILE«, t00=0x0014, t01=0x009e}
0x1ff6…2004 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00c4}
0x2004…2030 Head {h00=0x0028, h01=0x0050, text=» DATA 0 DATA MANAGEMENT DEVICE INDEX«, t00=0x0014, t01=0x00d2}
0x2030…205a Head {h00=0x0026, h01=0x0050, text=»TIODM DATA *+2 TIODM START ADDRESS«, t00=0x0014, t01=0x00fe}
0x205a…2064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0128}
0x2064…2080 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0014, t01=0x0132}
0x2080…208a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014e}
0x208a…20a2 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,FDBECB«, t00=0x0014, t01=0x0158}
0x20a2…20ba Head {h00=0x0014, h01=0x0050, text=» ADKL A14,ECBCW «, t00=0x0014, t01=0x0170}
0x20ba…20de Head {h00=0x0020, h01=0x0050, text=» ADR A14,A6 USE ECB AS STACK«, t00=0x0014, t01=0x0188}
0x20de…20ea Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0015, t01=0x001c}
0x20ea…20f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x20f4…212e Head {h00=0x0036, h01=0x0050, text=»* GET CALLING TASK NUMBER AND STORE IT IN FDBTNR«, t00=0x0015, t01=0x0032}
0x212e…2138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006c}
0x2138…214a Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0015, t01=0x0076}
0x214a…2166 Head {h00=0x0018, h01=0x0050, text=»TIOD05 LD A1,SCTTCT «, t00=0x0015, t01=0x0088}
0x2166…2178 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0015, t01=0x00a4}
0x2178…218c Head {h00=0x0010, h01=0x0050, text=» LD A3,2,A1 «, t00=0x0015, t01=0x00b6}
0x218c…21a4 Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTTAB,A6«, t00=0x0015, t01=0x00ca}
0x21a4…21c4 Head {h00=0x001c, h01=0x0050, text=» RF(E) TIOD10 THIS TASK «, t00=0x0015, t01=0x00e2}
0x21c4…21d8 Head {h00=0x0010, h01=0x0050, text=» ADK A2,2 NO«, t00=0x0015, t01=0x0102}
0x21d8…21f4 Head {h00=0x0018, h01=0x0050, text=» RB TIOD05 TRY NEXT «, t00=0x0015, t01=0x0116}
0x21f4…2208 Head {h00=0x0010, h01=0x0050, text=»TIOD10 EQU *«, t00=0x0015, t01=0x0132}
0x2208…222e Head {h00=0x0022, h01=0x0050, text=» SC A2,FDBTNR,A6 USER TASK NR «, t00=0x0015, t01=0x0146}
0x222e…224c Head {h00=0x001a, h01=0x0050, text=»* CHECK ORDER IN A7 «, t00=0x0015, t01=0x016c}
0x224c…227c Head {h00=0x002c, h01=0x0050, text=»* PUT ORDER INDEX IN DWTOR RIGHT BYTE «, t00=0x0015, t01=0x018a}
0x227c…2286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x002a}
0x2286…22a8 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 ORDER WORD«, t00=0x0016, t01=0x0034}
0x22a8…22ba Head {h00=0x000e, h01=0x0050, text=» LDR A5,A7«, t00=0x0016, t01=0x0056}
0x22ba…22e4 Head {h00=0x0026, h01=0x0050, text=» ANKL A5,/C0C0 SOME BITS FORBIDDEN«, t00=0x0016, t01=0x0068}
0x22e4…22fe Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TIOD19 ERR«, t00=0x0016, t01=0x0092}
0x22fe…231a Head {h00=0x0018, h01=0x0050, text=» LD A5,FDBBLZ,A6 =1«, t00=0x0016, t01=0x00ac}
0x231a…2332 Head {h00=0x0014, h01=0x0050, text=» ANK A5,/FF =1 «, t00=0x0016, t01=0x00c8}
0x2332…235a Head {h00=0x0024, h01=0x0050, text=» RF(NZ) TIOD19 COMMIT MISSING =1«, t00=0x0016, t01=0x00e0}
0x235a…2384 Head {h00=0x0026, h01=0x0050, text=» LDK A5,NOOFOR-1 NO OF ORDERS - 1 «, t00=0x0016, t01=0x0108}
0x2384…23ba Head {h00=0x0032, h01=0x0050, text=»TIOD15 CC A7,TIODMO,A5 START AT END OF TIODMO «, t00=0x0016, t01=0x0132}
0x23ba…23d6 Head {h00=0x0018, h01=0x0050, text=» RF(E) TIOD20 MATCH «, t00=0x0016, t01=0x0168}
0x23d6…23e8 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0016, t01=0x0184}
0x23e8…2404 Head {h00=0x0018, h01=0x0050, text=» RB(NN) TIOD15 >= 0 «, t00=0x0017, t01=0x0008}
0x2404…2418 Head {h00=0x0010, h01=0x0050, text=»TIOD19 EQU *«, t00=0x0017, t01=0x0024}
0x2418…2430 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,REQERR «, t00=0x0017, t01=0x0038}
0x2430…2448 Head {h00=0x0014, h01=0x0050, text=» ABL TIODMX ERR «, t00=0x0017, t01=0x0050}
0x2448…245c Head {h00=0x0010, h01=0x0050, text=»TIOD20 EQU *«, t00=0x0017, t01=0x0068}
0x245c…2470 Head {h00=0x0010, h01=0x0050, text=» SLL A5,1 *2«, t00=0x0017, t01=0x007c}
0x2470…249a Head {h00=0x0026, h01=0x0050, text=» SC A5,DWTOR+1,A6 SAVE ORDER INDEX«, t00=0x0017, t01=0x0090}
0x249a…24b0 Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x0017, t01=0x00ba}
0x24b0…24d6 Head {h00=0x0022, h01=0x0050, text=» RF(NE) TIOD25 NOT SYSTEM FWT «, t00=0x0017, t01=0x00d0}
0x24d6…24ec Head {h00=0x0012, h01=0x0050, text=» CWK A5,RDSTOF«, t00=0x0017, t01=0x00f6}
0x24ec…250e Head {h00=0x001e, h01=0x0050, text=» RF(E) TIOD25 READ STATUS «, t00=0x0017, t01=0x010c}
0x250e…2524 Head {h00=0x0012, h01=0x0050, text=» CWK A5,OPENOF«, t00=0x0017, t01=0x012e}
0x2524…2544 Head {h00=0x001c, h01=0x0050, text=» RB(NE) TIOD19 NOT OPEN «, t00=0x0017, t01=0x0144}
0x2544…2558 Head {h00=0x0010, h01=0x0050, text=»TIOD25 EQU *«, t00=0x0017, t01=0x0164}
0x2558…2574 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0017, t01=0x0178}
0x2574…2594 (24, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CF A14,CRNGET CURRENCY «, t00=0x0018, t01=0x0004}
0x2594…25b0 Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 NEW STATUS«, t00=0x0018, t01=0x0024}
0x25b0…25d4 Head {h00=0x0020, h01=0x0050, text=» LC A4,CRNSTA,A2 OLD STATUS «, t00=0x0018, t01=0x0040}
0x25d4…25ec Head {h00=0x0014, h01=0x0050, text=» SC A3,CRNSTA,A2«, t00=0x0018, t01=0x0064}
0x25ec…2618 Head {h00=0x0028, h01=0x0050, text=» ABI TIODMF,A5 BRANCH TO DM FUNCTION«, t00=0x0018, t01=0x007c}
0x2618…2622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a8}
0x2622…2648 Head {h00=0x0022, h01=0x0050, text=»* A1 = FDB ADDRESS DATA FILE«, t00=0x0018, t01=0x00b2}
0x2648…2670 Head {h00=0x0024, h01=0x0050, text=»* A2 = CURRENCY BUFFER ADDRESS«, t00=0x0018, t01=0x00d8}
0x2670…269a Head {h00=0x0026, h01=0x0050, text=»* A4 = OLD STATUS IN RIGHT BYTE «, t00=0x0018, t01=0x0100}
0x269a…26c8 Head {h00=0x002a, h01=0x0050, text=»* A5 = ORDER CODE AT ENTRY TO TIODM «, t00=0x0018, t01=0x012a}
0x26c8…26fc Head {h00=0x0030, h01=0x0050, text=»* A6 = FDB ADDRESS FILE DEVICE USER QUEUE «, t00=0x0018, t01=0x0158}
0x26fc…271c Head {h00=0x001c, h01=0x0050, text=»* A7 = USER ORDER WORD«, t00=0x0018, t01=0x018c}
0x271c…273e Head {h00=0x001e, h01=0x0050, text=»* A8 = USER ECB ADDRESS «, t00=0x0019, t01=0x001c}
0x273e…274c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x003e}
0x274c…276c Head {h00=0x001c, h01=0x0050, text=»RDSTAT EQU * READ STATUS«, t00=0x0019, t01=0x004c}
0x276c…2790 Head {h00=0x0020, h01=0x0050, text=» SC A4,CRNSTA,A2 STATUS CHAR«, t00=0x0019, t01=0x006c}
0x2790…27a4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0019, t01=0x0090}
0x27a4…27ca Head {h00=0x0022, h01=0x0050, text=» ST A4,ECBCW,A8 RETURN STATUS «, t00=0x0019, t01=0x00a4}
0x27ca…27e0 Head {h00=0x0012, h01=0x0050, text=» CM ECBCW+2,A8«, t00=0x0019, t01=0x00ca}
0x27e0…27fe Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RET CODE OK «, t00=0x0019, t01=0x00e0}
0x27fe…2812 Head {h00=0x0010, h01=0x0050, text=» ABL TIODMX «, t00=0x0019, t01=0x00fe}
0x2812…2820 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0112}
0x2820…283e Head {h00=0x001a, h01=0x0050, text=»READ EQU * READ ORDERS«, t00=0x0019, t01=0x0120}
0x283e…2854 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/100 «, t00=0x0019, t01=0x013e}
0x2854…286e Head {h00=0x0016, h01=0x0050, text=» TM A3,A7 TEST BIT«, t00=0x0019, t01=0x0154}
0x286e…2892 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) READDI OPTION DIRECT«, t00=0x0019, t01=0x016e}
0x2892…28a8 (26, 0, 398) Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/700 «, t00=0x001a, t01=0x0004}
0x28a8…28ba Head {h00=0x000e, h01=0x0050, text=» TM A3,A7 «, t00=0x001a, t01=0x001a}
0x28ba…28e6 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) TIOD19 NOT OPTION SEQUENTIAL«, t00=0x001a, t01=0x002c}
0x28e6…2902 Head {h00=0x0018, h01=0x0050, text=» SRL A7,10 INDEX * 2«, t00=0x001a, t01=0x0058}
0x2902…2922 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) SEQREA SEQ READ «, t00=0x001a, t01=0x0074}
0x2922…294c Head {h00=0x0026, h01=0x0050, text=» ABL IXRDNX INDEXED SEQ READ NEXT «, t00=0x001a, t01=0x0094}
0x294c…296c Head {h00=0x001c, h01=0x0050, text=»READDI EQU * DIRECT READ«, t00=0x001a, t01=0x00be}
0x296c…2988 Head {h00=0x0018, h01=0x0050, text=» SRL A7,10 INDEX * 2«, t00=0x001a, t01=0x00de}
0x2988…29b2 Head {h00=0x0026, h01=0x0050, text=» ABL(Z) RANREA DIRECT RANDOM READF«, t00=0x001a, t01=0x00fa}
0x29b2…29d8 Head {h00=0x0022, h01=0x0050, text=» RF IXRARE INDEXED DIRECT READ«, t00=0x001a, t01=0x0124}
0x29d8…29ee Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x001a, t01=0x014a}
0x29ee…29fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0160}
0x29fc…2a10 Head {h00=0x0010, h01=0x0050, text=»IXRDNX EQU *«, t00=0x001a, t01=0x016e}
0x2a10…2a24 Head {h00=0x0010, h01=0x0050, text=»IXRARE EQU *«, t00=0x001a, t01=0x0182}
0x2a24…2a38 Head {h00=0x0010, h01=0x0050, text=»IXINS EQU * «, t00=0x001b, t01=0x0008}
0x2a38…2a4a Head {h00=0x000e, h01=0x0050, text=» RB TIOD19«, t00=0x001b, t01=0x001c}
0x2a4a…2a56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x002e}
0x2a56…2a64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x003a}
0x2a64…2a84 Head {h00=0x001c, h01=0x0050, text=»WRITE EQU * WRITE ORDERS«, t00=0x001b, t01=0x0048}
0x2a84…2a9c Head {h00=0x0014, h01=0x0050, text=» LC A3,FDBDBR,A6«, t00=0x001b, t01=0x0068}
0x2a9c…2aba Head {h00=0x001a, h01=0x0050, text=» ANK A3,/3 SHARABILITY«, t00=0x001b, t01=0x0080}
0x2aba…2ae4 Head {h00=0x0026, h01=0x0050, text=» RB(Z) TIOD19 ONLY INPUT ACCEPTED «, t00=0x001b, t01=0x009e}
0x2ae4…2afa Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/100 «, t00=0x001b, t01=0x00c8}
0x2afa…2b20 Head {h00=0x0022, h01=0x0050, text=» LC A3,FDBNIF,A6 NR OF INDEXES«, t00=0x001b, t01=0x00de}
0x2b20…2b34 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x001b, t01=0x0104}
0x2b34…2b52 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) WRITE2 INDEXED«, t00=0x001b, t01=0x0118}
0x2b52…2b64 Head {h00=0x000e, h01=0x0050, text=» TM A4,A7 «, t00=0x001b, t01=0x0136}
0x2b64…2b82 Head {h00=0x001a, h01=0x0050, text=» ABL(NZ) TIODMB DIRECT«, t00=0x001b, t01=0x0148}
0x2b82…2b98 Head {h00=0x0012, h01=0x0050, text=» ANKL A7,/700 «, t00=0x001b, t01=0x0166}
0x2b98…2bc0 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SEQWRI SEQUENTIAL WRITE «, t00=0x001b, t01=0x017c}
0x2bc0…2bd6 Head {h00=0x0012, h01=0x0050, text=» RB TIOD19 ERR«, t00=0x001c, t01=0x0014}
0x2bd6…2bf2 Head {h00=0x0018, h01=0x0050, text=»WRITE2 EQU * INDEXED«, t00=0x001c, t01=0x002a}
0x2bf2…2c04 Head {h00=0x000e, h01=0x0050, text=» TM A4,A7 «, t00=0x001c, t01=0x0046}
0x2c04…2c2a Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) IXINS INDEXED INSERT «, t00=0x001c, t01=0x0058}
0x2c2a…2c48 Head {h00=0x001a, h01=0x0050, text=» RB TIOD19 NOT ALLOWED«, t00=0x001c, t01=0x007e}
0x2c48…2c56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x009c}
0x2c56…2c7a Head {h00=0x0020, h01=0x0050, text=»REWRIT EQU * REWRITE ORDERS «, t00=0x001c, t01=0x00aa}
0x2c7a…2c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ce}
0x2c84…2ca6 Head {h00=0x001e, h01=0x0050, text=»DELETE EQU * DELETE ORDERS«, t00=0x001c, t01=0x00d8}
0x2ca6…2cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00fa}
0x2cb0…2cc8 Head {h00=0x0014, h01=0x0050, text=» LC A3,FDBDBR,A6«, t00=0x001c, t01=0x0104}
0x2cc8…2ce6 Head {h00=0x001a, h01=0x0050, text=» ANK A3,/3 SHARABILITY«, t00=0x001c, t01=0x011c}
0x2ce6…2d0e Head {h00=0x0024, h01=0x0050, text=» RB(Z) TIOD19 ONLY INPUT ALLOWED«, t00=0x001c, t01=0x013a}
0x2d0e…2d32 Head {h00=0x0020, h01=0x0050, text=» LC A3,FDBNIF,A6 NR OF INDEX«, t00=0x001c, t01=0x0162}
0x2d32…2d46 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x001c, t01=0x0186}
0x2d46…2d64 Head {h00=0x001a, h01=0x0050, text=» RF(Z) REW010 NO INDEX«, t00=0x001d, t01=0x000a}
0x2d64…2d76 Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x001d, t01=0x0028}
0x2d76…2d9a Head {h00=0x0020, h01=0x0050, text=» ADS A3,DWTOR,A6 ORDER INDEX«, t00=0x001d, t01=0x003a}
0x2d9a…2dae Head {h00=0x0010, h01=0x0050, text=»REW010 EQU *«, t00=0x001d, t01=0x005e}
0x2dae…2dc4 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/400 «, t00=0x001d, t01=0x0072}
0x2dc4…2dd6 Head {h00=0x000e, h01=0x0050, text=» TM A4,A7 «, t00=0x001d, t01=0x0088}
0x2dd6…2df4 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) REW020 CURRENT«, t00=0x001d, t01=0x009a}
0x2df4…2e06 Head {h00=0x000e, h01=0x0050, text=» SRL A7,8 «, t00=0x001d, t01=0x00b8}
0x2e06…2e18 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x001d, t01=0x00ca}
0x2e18…2e34 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) TIOD19 ERROR«, t00=0x001d, t01=0x00dc}
0x2e34…2e4e Head {h00=0x0016, h01=0x0050, text=» ABL TIODMB DIRECT«, t00=0x001d, t01=0x00f8}
0x2e4e…2e62 Head {h00=0x0010, h01=0x0050, text=»REW020 EQU *«, t00=0x001d, t01=0x0112}
0x2e62…2e78 Head {h00=0x0012, h01=0x0050, text=» ANKL A7,/300 «, t00=0x001d, t01=0x0126}
0x2e78…2e92 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) TIOD19 ERR«, t00=0x001d, t01=0x013c}
0x2e92…2eac Head {h00=0x0016, h01=0x0050, text=» LD A3,CRNCDF+2,A2«, t00=0x001d, t01=0x0156}
0x2eac…2ee6 Head {h00=0x0036, h01=0x0050, text=» LD A2,CRNCDF,A2 REC NR (NO FILE ID FOR DATA FILE)«, t00=0x001d, t01=0x0170}
0x2ee6…2efa Head {h00=0x0010, h01=0x0050, text=» ABL TIODMA «, t00=0x001e, t01=0x001a}
0x2efa…2f10 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x001e, t01=0x002e}
0x2f10…2f1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0044}
0x2f1e…2f40 Head {h00=0x001e, h01=0x0050, text=»STAIND EQU * START INDEXED«, t00=0x001e, t01=0x0052}
0x2f40…2f5c Head {h00=0x0018, h01=0x0050, text=» SRL A7,10 INDEX * 2«, t00=0x001e, t01=0x0074}
0x2f5c…2f7e Head {h00=0x001e, h01=0x0050, text=» LD A9,ECBRL,A8 KEY LENGTH«, t00=0x001e, t01=0x0090}
0x2f7e…2f90 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x001e, t01=0x00b2}
0x2f90…2fa2 Head {h00=0x000e, h01=0x0050, text=» RF STA090«, t00=0x001e, t01=0x00c4}
0x2fa2…2fb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00d6}
0x2fb0…2fd8 Head {h00=0x0024, h01=0x0050, text=»IXRARE EQU * INDEXED RANDOM READ«, t00=0x001e, t01=0x00e4}
0x2fd8…2fea Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x001e, t01=0x010c}
0x2fea…300e Head {h00=0x0020, h01=0x0050, text=» LDKL A9,/40 MAX KEY LENGTH «, t00=0x001e, t01=0x011e}
0x300e…302e Head {h00=0x001c, h01=0x0050, text=»STA090 EQU * START ORDER«, t00=0x001e, t01=0x0142}
0x302e…3052 Head {h00=0x0020, h01=0x0050, text=» ADS A1,DWTOR,A6 ORDER INDEX«, t00=0x001e, t01=0x0162}
0x3052…3064 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x001e, t01=0x0186}
0x3064…3076 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x001f, t01=0x0008}
0x3076…3098 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/FFF9 1-4 INDEXES«, t00=0x001f, t01=0x001a}
0x3098…30b4 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) TIOD19 ERROR«, t00=0x001f, t01=0x003c}
0x30b4…30d8 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A6 BASE IN DATA FDB «, t00=0x001f, t01=0x0058}
0x30d8…3100 Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBAI1,A7 INDEX FDB ADDR «, t00=0x001f, t01=0x007c}
0x3100…311a Head {h00=0x0016, h01=0x0050, text=» ABL(Z) TIOD19 ERR«, t00=0x001f, t01=0x00a4}
0x311a…312c Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x001f, t01=0x00be}
0x312c…3136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d0}
0x3136…3150 Head {h00=0x0016, h01=0x0050, text=»* COPY DWT ITEMS«, t00=0x001f, t01=0x00da}
0x3150…315a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f4}
0x315a…3174 Head {h00=0x0016, h01=0x0050, text=» LD A1,DWTECB,A6 «, t00=0x001f, t01=0x00fe}
0x3174…318c Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTECB,A2«, t00=0x001f, t01=0x0118}
0x318c…31a4 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x001f, t01=0x0130}
0x31a4…31bc Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTOR,A2 «, t00=0x001f, t01=0x0148}
0x31bc…31de Head {h00=0x001e, h01=0x0050, text=»* PUT ZEROES TO KEY AREA«, t00=0x001f, t01=0x0160}
0x31de…31e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0182}
0x31e8…3200 Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBRLE,A2«, t00=0x001f, t01=0x018c}
0x3200…321c Head {h00=0x0018, h01=0x0050, text=» SUK A1,6 KEY LENGTH«, t00=0x0020, t01=0x0014}
0x321c…3230 Head {h00=0x0010, h01=0x0050, text=»IXR050 EQU *«, t00=0x0020, t01=0x0030}
0x3230…3246 Head {h00=0x0012, h01=0x0050, text=» CM FDBKEY,A2 «, t00=0x0020, t01=0x0044}
0x3246…3258 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0020, t01=0x005a}
0x3258…326a Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0020, t01=0x006c}
0x326a…328e Head {h00=0x0020, h01=0x0050, text=» RB(P) IXR050 MORE TO CLEAR «, t00=0x0020, t01=0x007e}
0x328e…329c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00a2}
0x329c…32a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00b0}
0x32a6…32c8 Head {h00=0x001e, h01=0x0050, text=»* FETCH KEY TO INDEX FDB«, t00=0x0020, t01=0x00ba}
0x32c8…32d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00dc}
0x32d2…32f6 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBBA,A8 RECORD ADDR «, t00=0x0020, t01=0x00e6}
0x32f6…3316 Head {h00=0x001c, h01=0x0050, text=» AD A1,FDBKA,A7 KEY ADDR«, t00=0x0020, t01=0x010a}
0x3316…332c Head {h00=0x0012, h01=0x0050, text=» LDK A3,FDBKEY«, t00=0x0020, t01=0x012a}
0x332c…3346 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A7 TO ADDR«, t00=0x0020, t01=0x0140}
0x3346…3350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x015a}
0x3350…3382 Head {h00=0x002e, h01=0x0050, text=»* KEY LGTH IS MIN OF A9 AND RECLGTH - 6 «, t00=0x0020, t01=0x0164}
0x3382…338c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0008}
0x338c…33a4 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBRLE,A7«, t00=0x0021, t01=0x0012}
0x33a4…33c2 Head {h00=0x001a, h01=0x0050, text=» SUK A2,6 MAX KEY LGTH«, t00=0x0021, t01=0x002a}
0x33c2…33d4 Head {h00=0x000e, h01=0x0050, text=» CWR A2,A9«, t00=0x0021, t01=0x0048}
0x33d4…33ec Head {h00=0x0014, h01=0x0050, text=» RF(NG) IXR070 «, t00=0x0021, t01=0x005a}
0x33ec…3412 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 TAKE SMALLEST LGTH «, t00=0x0021, t01=0x0072}
0x3412…3426 Head {h00=0x0010, h01=0x0050, text=»IXR070 EQU *«, t00=0x0021, t01=0x0098}
0x3426…343e Head {h00=0x0014, h01=0x0050, text=» LDR A9,A2 SAVE «, t00=0x0021, t01=0x00ac}
0x343e…3454 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0021, t01=0x00c4}
0x3454…3474 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTBM FETCH KEY «, t00=0x0021, t01=0x00da}
0x3474…3480 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00fa}
0x3480…3496 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x0106}
0x3496…34ac Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0021, t01=0x011c}
0x34ac…34be Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x0132}
0x34be…34d8 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A3 TO ADDR«, t00=0x0021, t01=0x0144}
0x34d8…34f0 Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 LGTH «, t00=0x0021, t01=0x015e}
0x34f0…3506 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVZUS«, t00=0x0021, t01=0x0176}
0x3506…3512 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x018c}
0x3512…3528 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0022, t01=0x0008}
0x3528…3532 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x001e}
0x3532…3566 Head {h00=0x0030, h01=0x0050, text=»* INCREASE KEY IF 'START GREATER ' IS REQ «, t00=0x0022, t01=0x0028}
0x3566…3570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x005c}
0x3570…3584 Head {h00=0x0010, h01=0x0050, text=» CWK A5,QSTA«, t00=0x0022, t01=0x0066}
0x3584…35a4 Head {h00=0x001c, h01=0x0050, text=» RF(NE) STA020 NOT START«, t00=0x0022, t01=0x007a}
0x35a4…35bc Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTOPT,A7«, t00=0x0022, t01=0x009a}
0x35bc…35d6 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/7 OPTION «, t00=0x0022, t01=0x00b2}
0x35d6…35e8 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0022, t01=0x00cc}
0x35e8…360a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) STA020 NOT GREATER«, t00=0x0022, t01=0x00de}
0x360a…361c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0022, t01=0x0100}
0x361c…3644 Head {h00=0x0024, h01=0x0050, text=» ADKL A2,FDBKEY ADDR FIRST BYTE «, t00=0x0022, t01=0x0112}
0x3644…365c Head {h00=0x0014, h01=0x0050, text=» LDR A3,A9 LGTH «, t00=0x0022, t01=0x013a}
0x365c…366e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0022, t01=0x0152}
0x366e…3682 Head {h00=0x0010, h01=0x0050, text=»STA010 EQU *«, t00=0x0022, t01=0x0164}
0x3682…36a4 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 ADDR LAST BYTE «, t00=0x0022, t01=0x0178}
0x36a4…36b6 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0023, t01=0x000a}
0x36b6…36d8 Head {h00=0x001e, h01=0x0050, text=» ADK A1,1 NEXT HIGHER KEY «, t00=0x0023, t01=0x001c}
0x36d8…36ea Head {h00=0x000e, h01=0x0050, text=» SCR A1,A3«, t00=0x0023, t01=0x003e}
0x36ea…3708 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/FF OVERFLOW ?«, t00=0x0023, t01=0x0050}
0x3708…3722 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) STA020 NO «, t00=0x0023, t01=0x006e}
0x3722…3734 Head {h00=0x000e, h01=0x0050, text=» CWR A2,A3«, t00=0x0023, t01=0x0088}
0x3734…3756 Head {h00=0x001e, h01=0x0050, text=» RB(NE) STA010 MORE BYTES «, t00=0x0023, t01=0x009a}
0x3756…376a Head {h00=0x0010, h01=0x0050, text=»STA020 EQU *«, t00=0x0023, t01=0x00bc}
0x376a…3774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d0}
0x3774…3794 Head {h00=0x001c, h01=0x0050, text=»* SWITCH TO INDEX FDB «, t00=0x0023, t01=0x00da}
0x3794…379e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00fa}
0x379e…37ba Head {h00=0x0018, h01=0x0050, text=» LDR A6,A7 INDEX FDB«, t00=0x0023, t01=0x0104}
0x37ba…37cc Head {h00=0x000e, h01=0x0050, text=» RF TIORRO«, t00=0x0023, t01=0x0120}
0x37cc…37d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0132}
0x37d8…37e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x013e}
0x37e6…37f8 Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0023, t01=0x014c}
0x37f8…380e Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x0023, t01=0x015e}
0x380e…3832 Head {h00=0x0020, h01=0x0050, text=» RF(E) OPE050 FILE CODE FREE«, t00=0x0023, t01=0x0174}
0x3832…384a Head {h00=0x0014, h01=0x0050, text=» LDKL A1,EDMERR «, t00=0x0024, t01=0x0008}
0x384a…3868 Head {h00=0x001a, h01=0x0050, text=» LDK A4,FCUSED FC USED«, t00=0x0024, t01=0x0020}
0x3868…3888 Head {h00=0x001c, h01=0x0050, text=» SC A4,CRNSTA,A2 STATUSA«, t00=0x0024, t01=0x003e}
0x3888…389c Head {h00=0x0010, h01=0x0050, text=» ABL TIODMX «, t00=0x0024, t01=0x005e}
0x389c…38b0 Head {h00=0x0010, h01=0x0050, text=»OPE050 EQU *«, t00=0x0024, t01=0x0072}
0x38b0…38c6 Head {h00=0x0012, h01=0x0050, text=» LDK A1,LGTERR«, t00=0x0024, t01=0x0086}
0x38c6…38e8 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,FPB:FR+8 MIN LGTH«, t00=0x0024, t01=0x009c}
0x38e8…3904 Head {h00=0x0018, h01=0x0050, text=» CW A4,ECBRL,A8 REQ «, t00=0x0024, t01=0x00be}
0x3904…391e Head {h00=0x0016, h01=0x0050, text=» ABL(G) TIODMX ERR«, t00=0x0024, t01=0x00da}
0x391e…3932 Head {h00=0x0010, h01=0x0050, text=»TIORRO EQU *«, t00=0x0024, t01=0x00f4}
0x3932…3946 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-1 «, t00=0x0024, t01=0x0108}
0x3946…396e Head {h00=0x0024, h01=0x0050, text=» ST A4,FDBRRO,A6 MARK ORDER TYPE«, t00=0x0024, t01=0x011c}
0x396e…3992 Head {h00=0x0020, h01=0x0050, text=» ABL TIOD68 ACTIVATE DMTASK «, t00=0x0024, t01=0x0144}
0x3992…399c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0168}
0x399c…39c6 Head {h00=0x0026, h01=0x0050, text=»RDFILP EQU * READ FILE PARAMETERS «, t00=0x0024, t01=0x0172}
0x39c6…39e0 Head {h00=0x0016, h01=0x0050, text=» LD A3,CRNCDF+2,A2«, t00=0x0025, t01=0x000c}
0x39e0…3a08 Head {h00=0x0024, h01=0x0050, text=» LD A2,CRNCDF,A2 CURRENT RECORD «, t00=0x0025, t01=0x0026}
0x3a08…3a20 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0025, t01=0x004e}
0x3a20…3a3a Head {h00=0x0016, h01=0x0050, text=» ST A3,ECBCW+2,A8 «, t00=0x0025, t01=0x0066}
0x3a3a…3a4c Head {h00=0x000e, h01=0x0050, text=» RB TIORRO«, t00=0x0025, t01=0x0080}
0x3a4c…3a5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0092}
0x3a5a…3a78 Head {h00=0x001a, h01=0x0050, text=»CLOSE EQU * CLOSE FILE«, t00=0x0025, t01=0x00a0}
0x3a78…3a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00be}
0x3a82…3aae Head {h00=0x0028, h01=0x0050, text=»* CONNECT FILE CODE TO SYSTEM FWT «, t00=0x0025, t01=0x00c8}
0x3aae…3ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f4}
0x3ab8…3ae0 Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTTAB,A6 USER TTAB ADDR «, t00=0x0025, t01=0x00fe}
0x3ae0…3af4 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0025, t01=0x0126}
0x3af4…3b12 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF FILE CODE «, t00=0x0025, t01=0x013a}
0x3b12…3b3a Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 SEARCH TTAB AND CDTAB «, t00=0x0025, t01=0x0158}
0x3b3a…3b58 Head {h00=0x001a, h01=0x0050, text=» CF A14,FNDFDB SEARCH «, t00=0x0025, t01=0x0180}
0x3b58…3b80 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,FDBSTA SYSTEM FWT ADDR «, t00=0x0026, t01=0x000e}
0x3b80…3b9c Head {h00=0x0018, h01=0x0050, text=» ST A2,2,A4 FC ENTRY«, t00=0x0026, t01=0x0036}
0x3b9c…3bae Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0026, t01=0x0052}
0x3bae…3bc6 Head {h00=0x0014, h01=0x0050, text=» LC A2,FDBLRN,A6«, t00=0x0026, t01=0x0064}
0x3bc6…3bf0 Head {h00=0x0026, h01=0x0050, text=» LD A3,FDBLRN+1,A6 LAST RECORD NR «, t00=0x0026, t01=0x007c}
0x3bf0…3c06 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CLO100«, t00=0x0026, t01=0x00a6}
0x3c06…3c18 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0026, t01=0x00bc}
0x3c18…3c2e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CLO100«, t00=0x0026, t01=0x00ce}
0x3c2e…3c44 Head {h00=0x0012, h01=0x0050, text=» LDK A3,1 LRN «, t00=0x0026, t01=0x00e4}
0x3c44…3c58 Head {h00=0x0010, h01=0x0050, text=»CLO100 EQU *«, t00=0x0026, t01=0x00fa}
0x3c58…3c6a Head {h00=0x000e, h01=0x0050, text=» RF TIODMD«, t00=0x0026, t01=0x010e}
0x3c6a…3c78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0120}
0x3c78…3c9e Head {h00=0x0022, h01=0x0050, text=»SEQREAD EQU * SEQUENTIAL READ «, t00=0x0026, t01=0x012e}
0x3c9e…3cb0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0026, t01=0x0154}
0x3cb0…3cd4 Head {h00=0x0020, h01=0x0050, text=» ADS A1,DWTOR,A6 ORDER INDEX«, t00=0x0026, t01=0x0166}
0x3cd4…3cfe Head {h00=0x0026, h01=0x0050, text=» LD A3,CRNCDF+2,A2 CURR LOG REC NO«, t00=0x0026, t01=0x018a}
0x3cfe…3d30 Head {h00=0x002e, h01=0x0050, text=» LD A2,CRNCDF,A2 NO FILE ID FOR DATA FILE «, t00=0x0027, t01=0x0024}
0x3d30…3d48 Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0027, t01=0x0056}
0x3d48…3d66 Head {h00=0x001a, h01=0x0050, text=» RF(O) SEQR10 OVERFLOW«, t00=0x0027, t01=0x006e}
0x3d66…3d78 Head {h00=0x000e, h01=0x0050, text=» RF SEQR20«, t00=0x0027, t01=0x008c}
0x3d78…3d8c Head {h00=0x0010, h01=0x0050, text=»SEQR10 EQU *«, t00=0x0027, t01=0x009e}
0x3d8c…3db2 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/7FFF REMOVE OVERFLOW«, t00=0x0027, t01=0x00b2}
0x3db2…3dce Head {h00=0x0018, h01=0x0050, text=» ADK A2,1 ADD CARRY «, t00=0x0027, t01=0x00d8}
0x3dce…3de2 Head {h00=0x0010, h01=0x0050, text=»SEQR20 EQU *«, t00=0x0027, t01=0x00f4}
0x3de2…3df4 Head {h00=0x000e, h01=0x0050, text=» RF RAN050«, t00=0x0027, t01=0x0108}
0x3df4…3e02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x011a}
0x3e02…3e24 Head {h00=0x001e, h01=0x0050, text=»RANREAD EQU * RANDOM READ «, t00=0x0027, t01=0x0128}
0x3e24…3e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x014a}
0x3e2e…3e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0154}
0x3e38…3e56 Head {h00=0x001a, h01=0x0050, text=»* TEST IF ECBRL <= 0«, t00=0x0027, t01=0x015e}
0x3e56…3e60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017c}
0x3e60…3e7e Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 REC NR«, t00=0x0027, t01=0x0186}
0x3e7e…3e98 Head {h00=0x0016, h01=0x0050, text=» LD A3,ECBCW+2,A8 «, t00=0x0028, t01=0x0014}
0x3e98…3eac Head {h00=0x0010, h01=0x0050, text=»RAN050 EQU *«, t00=0x0028, t01=0x002e}
0x3eac…3ed4 Head {h00=0x0024, h01=0x0050, text=» LDK A1,LGTERR INCORRECT LENGTH «, t00=0x0028, t01=0x0042}
0x3ed4…3eec Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBRL,A8 «, t00=0x0028, t01=0x006a}
0x3eec…3f1c Head {h00=0x002c, h01=0x0050, text=» ABL(NP) TIODME ERROR RETURN IF RL <= 0 «, t00=0x0028, t01=0x0082}
0x3f1c…3f2e Head {h00=0x000e, h01=0x0050, text=» RF TIODMA«, t00=0x0028, t01=0x00b2}
0x3f2e…3f3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00c4}
0x3f3c…3f52 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0028, t01=0x00d2}
0x3f52…3f76 Head {h00=0x0020, h01=0x0050, text=»IXINS EQU * INDEXED INSRERT «, t00=0x0028, t01=0x00e8}
0x3f76…3f88 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x0028, t01=0x010c}
0x3f88…3fac Head {h00=0x0020, h01=0x0050, text=» ADS A2,DWTOR,A6 ORDER INDEX«, t00=0x0028, t01=0x011e}
0x3fac…3fc2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0028, t01=0x0142}
0x3fc2…3fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0158}
0x3fcc…3ff2 Head {h00=0x0022, h01=0x0050, text=»* MOVE KEYS TO FDB KEY AREAS«, t00=0x0028, t01=0x0162}
0x3ff2…3ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0188}
0x3ffc…400e (41, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A5,8 «, t00=0x0029, t01=0x0004}
0x400e…4022 Head {h00=0x0010, h01=0x0050, text=»IXINS3 EQU *«, t00=0x0029, t01=0x0016}
0x4022…403e Head {h00=0x0018, h01=0x0050, text=» LDR A2,A6 FDB DATA «, t00=0x0029, t01=0x002a}
0x403e…4050 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A5«, t00=0x0029, t01=0x0046}
0x4050…4072 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBADF,A2 FDB INDEX«, t00=0x0029, t01=0x0058}
0x4072…4090 Head {h00=0x001a, h01=0x0050, text=» RF(Z) IXINS4 NO INDEX«, t00=0x0029, t01=0x007a}
0x4090…40b0 Head {h00=0x001c, h01=0x0050, text=» LD A1,FDBKA,A3 KEY ADDR«, t00=0x0029, t01=0x0098}
0x40b0…40da Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBBA,A8 ADD USER BUF ADDR «, t00=0x0029, t01=0x00b8}
0x40da…4100 Head {h00=0x0022, h01=0x0050, text=» LDK A2,FDBKEY KEY AREA DISPL «, t00=0x0029, t01=0x00e2}
0x4100…4120 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A3 ADD FDB ADDR «, t00=0x0029, t01=0x0108}
0x4120…4142 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBRLE,A3 REC LGTH «, t00=0x0029, t01=0x0128}
0x4142…415c Head {h00=0x0016, h01=0x0050, text=» SUK A3,6 KEY LGTH«, t00=0x0029, t01=0x014a}
0x415c…4182 Head {h00=0x0022, h01=0x0050, text=» CF A14,MOVZUS KEY TO FDB AREA«, t00=0x0029, t01=0x0164}
0x4182…4196 Head {h00=0x0010, h01=0x0050, text=»IXINS4 EQU *«, t00=0x0029, t01=0x018a}
0x4196…41a8 Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x002a, t01=0x000e}
0x41a8…41ca Head {h00=0x001e, h01=0x0050, text=» RB(NZ) IXINS3 MORE INDEXS«, t00=0x002a, t01=0x0020}
0x41ca…41d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0042}
0x41d6…41e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x004e}
0x41e0…4208 Head {h00=0x0024, h01=0x0050, text=»SEQWRITE EQU * SEQUENTIAL WRITE «, t00=0x002a, t01=0x0058}
0x4208…4212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0080}
0x4212…4224 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x002a, t01=0x008a}
0x4224…4248 Head {h00=0x0020, h01=0x0050, text=» ADS A2,DWTOR,A6 ORDER INDEX«, t00=0x002a, t01=0x009c}
0x4248…4260 Head {h00=0x0014, h01=0x0050, text=» LC A2,FDBLRN,A6«, t00=0x002a, t01=0x00c0}
0x4260…427e Head {h00=0x001a, h01=0x0050, text=» LD A3,FDBLRN+1,A6 LRN«, t00=0x002a, t01=0x00d8}
0x427e…4294 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002a, t01=0x00f6}
0x4294…42b8 Head {h00=0x0020, h01=0x0050, text=» RF IXR020 STORE LOG REC NO «, t00=0x002a, t01=0x010c}
0x42b8…42c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0130}
0x42c6…42ee Head {h00=0x0024, h01=0x0050, text=»IXRDNX EQU * INDEXED EREAD NEXT «, t00=0x002a, t01=0x013e}
0x42ee…4310 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 CRN BUFFER ADDR«, t00=0x002a, t01=0x0166}
0x4310…4322 Head {h00=0x000e, h01=0x0050, text=» LDK A1,6 «, t00=0x002a, t01=0x0188}
0x4322…4346 Head {h00=0x0020, h01=0x0050, text=» ADS A1,DWTOR,A6 ORDER INDEX«, t00=0x002b, t01=0x000a}
0x4346…4358 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x002b, t01=0x002e}
0x4358…436a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x002b, t01=0x0040}
0x436a…438c Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/FFF9 1-4 INDEXES«, t00=0x002b, t01=0x0052}
0x438c…43a8 Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) TIOD19 ERR «, t00=0x002b, t01=0x0074}
0x43a8…43c0 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A6 «, t00=0x002b, t01=0x0090}
0x43c0…43ec Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTECB,A6 ITEMS TO INDEX FDB «, t00=0x002b, t01=0x00a8}
0x43ec…43f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d4}
0x43f6…440c Head {h00=0x0012, h01=0x0050, text=»* SWITCH FDB«, t00=0x002b, t01=0x00de}
0x440c…4416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f4}
0x4416…4428 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A6«, t00=0x002b, t01=0x00fe}
0x4428…4450 Head {h00=0x0024, h01=0x0050, text=» LD A7,FDBAI1,A7 INDEX FDB ADDR «, t00=0x002b, t01=0x0110}
0x4450…446a Head {h00=0x0016, h01=0x0050, text=» ABL(Z) TIOD19 ERR«, t00=0x002b, t01=0x0138}
0x446a…447c Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x002b, t01=0x0152}
0x447c…4494 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTOR,A6 «, t00=0x002b, t01=0x0164}
0x4494…44c2 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTECB,A6 ITEMS FROM DATA FILE «, t00=0x002b, t01=0x017c}
0x44c2…44cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001a}
0x44cc…44e0 Head {h00=0x0010, h01=0x0050, text=»* GET CRN «, t00=0x002c, t01=0x0024}
0x44e0…44ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0038}
0x44ea…44fc Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002c, t01=0x0042}
0x44fc…450e Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002c, t01=0x0054}
0x450e…4518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0066}
0x4518…453c Head {h00=0x0020, h01=0x0050, text=»* CHECK THAT FILE ID IS OK«, t00=0x002c, t01=0x0070}
0x453c…4546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0094}
0x4546…4566 Head {h00=0x001c, h01=0x0050, text=» LC A7,FWTFNR,A6 FILE NR«, t00=0x002c, t01=0x009e}
0x4566…457e Head {h00=0x0014, h01=0x0050, text=» CC A7,CRNCIF,A4«, t00=0x002c, t01=0x00be}
0x457e…45b0 Head {h00=0x002e, h01=0x0050, text=» RF(NE) IXR020 OTHER INDEX FILE IS CURRENT«, t00=0x002c, t01=0x00d6}
0x45b0…45ca Head {h00=0x0016, h01=0x0050, text=» LC A2,CRNCIF+1,A4«, t00=0x002c, t01=0x0108}
0x45ca…45f0 Head {h00=0x0022, h01=0x0050, text=» LD A3,CRNCIF+2,A4 LOG REC NO «, t00=0x002c, t01=0x0122}
0x45f0…45fc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0148}
0x45fc…460a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0154}
0x460a…461e Head {h00=0x0010, h01=0x0050, text=»IXR020 EQU *«, t00=0x002c, t01=0x0162}
0x461e…4630 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002c, t01=0x0176}
0x4630…464e Head {h00=0x001a, h01=0x0050, text=» RF(O) IXR030 OVERFLOW«, t00=0x002c, t01=0x0188}
0x464e…4660 Head {h00=0x000e, h01=0x0050, text=» RF IXR040«, t00=0x002d, t01=0x0016}
0x4660…4690 Head {h00=0x002c, h01=0x0050, text=»IXR030 ANKL A3,/7FFF REMOVE OVERFLOW BIT«, t00=0x002d, t01=0x0028}
0x4690…46ac Head {h00=0x0018, h01=0x0050, text=» ADK A2,1 ADK CARRY «, t00=0x002d, t01=0x0058}
0x46ac…46c0 Head {h00=0x0010, h01=0x0050, text=»IXR040 EQU *«, t00=0x002d, t01=0x0074}
0x46c0…46ee Head {h00=0x002a, h01=0x0050, text=» RF TIODMA DO NOT CHECK EOF CONDITION «, t00=0x002d, t01=0x0088}
0x46ee…46fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00b6}
0x46fc…471c Head {h00=0x001c, h01=0x0050, text=»STARTO EQU * START ORDER«, t00=0x002d, t01=0x00c4}
0x471c…4732 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002d, t01=0x00e4}
0x4732…4744 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x002d, t01=0x00fa}
0x4744…4760 Head {h00=0x0018, h01=0x0050, text=» SRL A4,10 INDEX * 2«, t00=0x002d, t01=0x010c}
0x4760…4786 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) STAIND START INDEXED «, t00=0x002d, t01=0x0128}
0x4786…4792 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x014e}
0x4792…47b0 Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 REC NR«, t00=0x002d, t01=0x015a}
0x47b0…47ca Head {h00=0x0016, h01=0x0050, text=» LD A3,ECBCW+2,A8 «, t00=0x002d, t01=0x0178}
0x47ca…47dc (46, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ECR A4,A7«, t00=0x002e, t01=0x0004}
0x47dc…47f6 Head {h00=0x0016, h01=0x0050, text=» ANK A4,/7 OPTION «, t00=0x002e, t01=0x0016}
0x47f6…4808 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002e, t01=0x0030}
0x4808…482a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) TIODMA NOT GREATER«, t00=0x002e, t01=0x0042}
0x482a…484c Head {h00=0x001e, h01=0x0050, text=» RB IXR020 GET NEXT REC NR«, t00=0x002e, t01=0x0064}
0x484c…485a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0086}
0x485a…4864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0094}
0x4864…4886 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x002e, t01=0x009e}
0x4886…48a8 Head {h00=0x001e, h01=0x0050, text=»* DMTASK ACTIVATION * «, t00=0x002e, t01=0x00c0}
0x48a8…48ca Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x002e, t01=0x00e2}
0x48ca…48d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0104}
0x48d4…48e8 Head {h00=0x0010, h01=0x0050, text=»TIODMA EQU *«, t00=0x002e, t01=0x010e}
0x48e8…4906 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBCW,A8 REC NR«, t00=0x002e, t01=0x0122}
0x4906…4920 Head {h00=0x0016, h01=0x0050, text=» ST A3,ECBCW+2,A8 «, t00=0x002e, t01=0x0140}
0x4920…4932 Head {h00=0x000e, h01=0x0050, text=» RF TIODMC«, t00=0x002e, t01=0x015a}
0x4932…4956 Head {h00=0x0020, h01=0x0050, text=»TIODMB LD A2,ECBCW,A8 REC NR«, t00=0x002e, t01=0x016c}
0x4956…4970 Head {h00=0x0016, h01=0x0050, text=» LD A3,ECBCW+2,A8 «, t00=0x002e, t01=0x0190}
0x4970…4984 Head {h00=0x0010, h01=0x0050, text=»TIODMC EQU *«, t00=0x002f, t01=0x001a}
0x4984…498e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x002e}
0x498e…49ae Head {h00=0x001c, h01=0x0050, text=»* NO EA FOR OTHER TASK«, t00=0x002f, t01=0x0038}
0x49ae…49b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0058}
0x49b8…49da Head {h00=0x001e, h01=0x0050, text=» LD A1,FDBADF,A6 FDB ADDR «, t00=0x002f, t01=0x0062}
0x49da…49f0 Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x002f, t01=0x0084}
0x49f0…4a0a Head {h00=0x0016, h01=0x0050, text=» LDR A4,A4 RTN INF«, t00=0x002f, t01=0x009a}
0x4a0a…4a2e Head {h00=0x0020, h01=0x0050, text=» RF(N) TIODPE EA OTHER TASK «, t00=0x002f, t01=0x00b4}
0x4a2e…4a42 Head {h00=0x0010, h01=0x0050, text=»TIODMD EQU *«, t00=0x002f, t01=0x00d8}
0x4a42…4a54 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x002f, t01=0x00ec}
0x4a54…4a6e Head {h00=0x0016, h01=0x0050, text=» LDR A2,A3 REC NR «, t00=0x002f, t01=0x00fe}
0x4a6e…4aa8 Head {h00=0x0036, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR «, t00=0x002f, t01=0x0118}
0x4aa8…4ac6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN INF «, t00=0x002f, t01=0x0152}
0x4ac6…4adc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TIODME«, t00=0x002f, t01=0x0170}
0x4adc…4aea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0186}
0x4aea…4af4 (48, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0004}
0x4af4…4b26 Head {h00=0x002e, h01=0x0050, text=»* ACTIVATE DMTASK WITH FDB ADDRESS IN A1«, t00=0x0030, t01=0x000e}
0x4b26…4b30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0040}
0x4b30…4b44 Head {h00=0x0010, h01=0x0050, text=»TIOD68 EQU *«, t00=0x0030, t01=0x004a}
0x4b44…4b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x005e}
0x4b4e…4b6e Head {h00=0x001c, h01=0x0050, text=»* PREPARE DM INTERFACE«, t00=0x0030, t01=0x0068}
0x4b6e…4b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0088}
0x4b78…4b8e Head {h00=0x0012, h01=0x0050, text=» LDKL A8,'#D' «, t00=0x0030, t01=0x0092}
0x4b8e…4b9a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0030, t01=0x00a8}
0x4b9a…4bac Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0030, t01=0x00b4}
0x4bac…4bca Head {h00=0x001a, h01=0x0050, text=» LD A1,DWTOR,A6 ORDER «, t00=0x0030, t01=0x00c6}
0x4bca…4bde Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0030, t01=0x00e4}
0x4bde…4bf4 Head {h00=0x0012, h01=0x0050, text=» SUK A1,OPENOF«, t00=0x0030, t01=0x00f8}
0x4bf4…4c1a Head {h00=0x0022, h01=0x0050, text=» RF(NN) TIOD72 OPEN CLOSE,RDFP«, t00=0x0030, t01=0x010e}
0x4c1a…4c42 Head {h00=0x0024, h01=0x0050, text=» LC A7,FDBDMI,A6 TID FOR DMTASK «, t00=0x0030, t01=0x0134}
0x4c42…4c54 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A8«, t00=0x0030, t01=0x015c}
0x4c54…4c7a Head {h00=0x0022, h01=0x0050, text=» CF A15,FNDTID A2 = TTAB ADDR «, t00=0x0030, t01=0x016e}
0x4c7a…4c8c (49, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0031, t01=0x0004}
0x4c8c…4ca2 Head {h00=0x0012, h01=0x0050, text=» RF(Z) TASHLT «, t00=0x0031, t01=0x0016}
0x4ca2…4cba Head {h00=0x0014, h01=0x0050, text=» LD A1,TTB:SA,A2«, t00=0x0031, t01=0x002c}
0x4cba…4cda Head {h00=0x001c, h01=0x0050, text=» RF(Z) TIOD70 NOT ACTIVE«, t00=0x0031, t01=0x0044}
0x4cda…4cec Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0031, t01=0x0064}
0x4cec…4cfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0076}
0x4cfa…4d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0084}
0x4d04…4d24 Head {h00=0x001c, h01=0x0050, text=»* GET SECONDARY DMTASK«, t00=0x0031, t01=0x008e}
0x4d24…4d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ae}
0x4d2e…4d58 Head {h00=0x0026, h01=0x0050, text=» LC A1,FWTVOL,A6 VOLUME FILE CODE «, t00=0x0031, t01=0x00b8}
0x4d58…4d6c Head {h00=0x0010, h01=0x0050, text=»TIOD69 EQU *«, t00=0x0031, t01=0x00e2}
0x4d6c…4d84 Head {h00=0x0014, h01=0x0050, text=» CC A1,DFTAB,A7 «, t00=0x0031, t01=0x00f6}
0x4d84…4da4 Head {h00=0x001c, h01=0x0050, text=» RF(E) TIOD71 SAME CODE «, t00=0x0031, t01=0x010e}
0x4da4…4db6 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0031, t01=0x012e}
0x4db6…4dd4 Head {h00=0x001a, h01=0x0050, text=» RB TIOD69 SEARCH NEXT«, t00=0x0031, t01=0x0140}
0x4dd4…4de8 Head {h00=0x0010, h01=0x0050, text=»TIOD71 EQU *«, t00=0x0031, t01=0x015e}
0x4de8…4e18 Head {h00=0x002c, h01=0x0050, text=» LC A7,DMTIDS,A7 SECONDARY DMTASK REL ID«, t00=0x0031, t01=0x0172}
0x4e18…4e2c Head {h00=0x0010, h01=0x0050, text=»TIOD72 EQU *«, t00=0x0032, t01=0x0012}
0x4e2c…4e46 Head {h00=0x0016, h01=0x0050, text=» ADR A7,A8 TASK ID«, t00=0x0032, t01=0x0026}
0x4e46…4e6a Head {h00=0x0020, h01=0x0050, text=» CF A15,FNDTID A2:=TTAB ADDR«, t00=0x0032, t01=0x0040}
0x4e6a…4e7c Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0032, t01=0x0064}
0x4e7c…4e92 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TIOD70«, t00=0x0032, t01=0x0076}
0x4e92…4ebe Head {h00=0x0028, h01=0x0050, text=»TASHLT EQU * ABNORMAL SYSTEM ERRORS «, t00=0x0032, t01=0x008c}
0x4ebe…4ed8 Head {h00=0x0016, h01=0x0050, text=» LDK A1,/11 DM ERR«, t00=0x0032, t01=0x00b8}
0x4ed8…4eec Head {h00=0x0010, h01=0x0050, text=» CF A15,HALT«, t00=0x0032, t01=0x00d2}
0x4eec…4f1a Head {h00=0x002a, h01=0x0050, text=»TIOD70 LDKL A2,DMTASK DISPATCH ADDRESS«, t00=0x0032, t01=0x00e6}
0x4f1a…4f38 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS«, t00=0x0032, t01=0x0114}
0x4f38…4f56 Head {h00=0x001a, h01=0x0050, text=»* USED REGS A1-A3,A5«, t00=0x0032, t01=0x0132}
0x4f56…4f7c Head {h00=0x0022, h01=0x0050, text=» CF A15,ACTOT ACTIVATE DMTASK «, t00=0x0032, t01=0x0150}
0x4f7c…4f8e Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0032, t01=0x0176}
0x4f8e…4f98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0188}
0x4f98…4fa6 (51, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0004}
0x4fa6…4fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0012}
0x4fb0…4fc6 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0033, t01=0x001c}
0x4fc6…4fdc Head {h00=0x0012, h01=0x0050, text=»* TIODME *«, t00=0x0033, t01=0x0032}
0x4fdc…4ff2 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0033, t01=0x0048}
0x4ff2…4ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x005e}
0x4ffc…504a Head {h00=0x004a, h01=0x0050, text=»* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER«, t00=0x0033, t01=0x0068}
0x504a…5054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b6}
0x5054…507a Head {h00=0x0022, h01=0x0050, text=»TIODPE EQU * PROTECT ERR EXIT «, t00=0x0033, t01=0x00c0}
0x507a…508c Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0033, t01=0x00e6}
0x508c…50b2 Head {h00=0x0022, h01=0x0050, text=» LC A9,FDBTNR,A6 USER TASK ID «, t00=0x0033, t01=0x00f8}
0x50b2…50d8 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELPRO RELEASE PROTECT«, t00=0x0033, t01=0x011e}
0x50d8…50f0 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PROERR «, t00=0x0033, t01=0x0144}
0x50f0…5104 Head {h00=0x0010, h01=0x0050, text=»TIODME EQU *«, t00=0x0033, t01=0x015c}
0x5104…5130 Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBADF,A6 DATA FILE FDB ADDR «, t00=0x0033, t01=0x0170}
0x5130…5144 Head {h00=0x0010, h01=0x0050, text=»TIODMX EQU *«, t00=0x0034, t01=0x000c}
0x5144…5160 Head {h00=0x0018, h01=0x0050, text=»* A1 = ERROR CODE «, t00=0x0034, t01=0x0020}
0x5160…517c Head {h00=0x0018, h01=0x0050, text=»* A6 = FDB ADDRESS«, t00=0x0034, t01=0x003c}
0x517c…5188 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0034, t01=0x0058}
0x5188…51b8 Head {h00=0x002c, h01=0x0050, text=» ABL DISEND CALL TENDIO GOTO DISPATCHER«, t00=0x0034, t01=0x0064}
0x51b8…51c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0094}
0x51c2…51ce Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0034, t01=0x009e}
0x51ce…51d2 Head {h00=0x4004, h01=0x0000}
0x51d2…51d6 00 34 00 aa ┆ 4 ┆
0x51d6…51de (53, 1, 8) 20 04 00 00 00 35 00 04 ┆ 5 ┆
0x51de…522e (54, 0, 400) 30 30 5c 45 51 55 5c 2a 00 25 01 8c 00 08 00 50 5c 45 4e 42 00 26 00 10 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 26 00 1c 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 4d 53 55 42 52 20 00 26 00 2c 00 38 00 50 2a 2a 2a 2a 44 45 53 43 52 49 50 54 ┆00 EQU * % P ENB & P RTN A14 & P EJECT DMSUBR & , 8 P****DESCRIPT┆
0x522e…527e 49 4f 4e 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 00 26 00 44 00 06 00 50 2a 20 00 26 00 80 00 32 00 50 2a 20 20 20 43 41 4c 53 4e 4f 20 57 49 4c 4c 20 43 4f 4e 56 45 52 ┆ION************************************* & D P* & 2 P* CALSNO WILL CONVER┆
0x527e…52ce 54 20 41 20 4c 4f 47 49 43 41 4c 20 52 45 43 4f 52 44 20 4e 4f 20 54 4f 00 26 00 8a 00 10 00 50 2a 20 20 20 52 45 4c 41 54 49 56 45 00 26 00 c0 00 1a 00 50 2a 20 20 20 53 45 43 54 4f 52 20 41 4e 44 20 4f 46 46 53 45 54 20 00 26 00 d4 00 06 ┆T A LOGICAL RECORD NO TO & P* RELATIVE & P* SECTOR AND OFFSET & ┆
0x52ce…531e 00 50 2a 20 00 26 00 f2 00 38 00 50 2a 2a 2a 2a 45 4e 54 52 59 20 50 41 52 41 4d 45 54 45 52 53 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 00 26 00 fc 00 06 00 50 2a 20 00 26 01 38 00 22 ┆ P* & 8 P****ENTRY PARAMETERS******************************** & P* & 8 "┆
0x531e…536e 00 50 2a 20 20 20 41 31 2c 41 32 20 3d 20 4c 4f 47 49 43 41 4c 20 52 45 43 4f 52 44 20 4e 4f 20 00 26 01 42 00 16 00 50 2a 20 20 20 41 36 20 3d 20 46 44 42 20 41 44 44 52 20 00 26 01 68 00 06 00 50 2a 20 00 26 01 82 00 18 00 50 2a 20 20 20 ┆ P* A1,A2 = LOGICAL RECORD NO & B P* A6 = FDB ADDR & h P* & P* ┆
0x536e…53be (55, 0, 400) 43 46 20 20 20 41 31 34 2c 43 41 4c 53 4e 4f 20 00 26 01 8c 00 06 00 50 2a 20 00 27 00 18 00 38 00 50 2a 2a 2a 2a 45 58 49 54 20 50 41 52 41 4d 45 54 45 52 53 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 ┆CF A14,CALSNO & P* ' 8 P****EXIT PARAMETERS***************************┆
0x53be…540e 2a 2a 2a 2a 2a 2a 00 27 00 22 00 06 00 50 2a 20 00 27 00 5e 00 12 00 50 2a 20 20 20 41 31 20 3d 20 20 30 20 4f 4b 00 27 00 68 00 2c 00 50 2a 20 20 20 20 20 4e 45 20 30 20 2c 20 45 52 52 4f 52 20 3d 2f 41 30 30 30 3d 45 4e 44 20 4f 46 20 4d ┆****** ' " P* ' ^ P* A1 = 0 OK ' h , P* NE 0 , ERROR =/A000=END OF M┆
0x540e…545e 45 44 49 55 4d 20 00 27 00 7e 00 16 00 50 2a 20 20 20 41 36 20 3d 20 55 4e 43 48 41 4e 47 45 44 00 27 00 ae 00 24 00 50 2a 20 20 20 49 4e 20 46 44 42 20 3a 20 46 44 42 53 4e 52 20 3d 20 53 45 43 54 4f 52 20 4e 52 20 00 27 00 c8 00 2a 00 50 ┆EDIUM ' ~ P* A6 = UNCHANGED ' $ P* IN FDB : FDBSNR = SECTOR NR ' * P┆
0x545e…54ae 2a 20 20 20 20 20 20 20 20 20 20 20 20 46 44 42 52 52 4f 20 3d 20 4f 46 46 53 45 54 20 20 49 4e 20 42 4c 4f 43 4b 00 27 00 f0 00 06 00 50 2a 20 00 27 01 1e 00 38 00 50 2a 2a 2a 2a 55 53 45 44 20 52 45 47 49 53 54 45 52 53 2a 2a 2a 2a 2a 2a ┆* FDBRRO = OFFSET IN BLOCK ' P* ' 8 P****USED REGISTERS******┆
0x54ae…54fe 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 00 27 01 28 00 06 00 50 2a 20 00 27 01 64 00 10 00 50 2a 20 20 20 41 31 20 2d 20 41 39 20 00 27 01 6e 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 4d 53 55 42 ┆**************************** ' ( P* ' d P* A1 - A9 ' n P EJECT DMSUB┆
0x54fe…554e (56, 0, 400) 52 20 00 27 01 82 00 10 00 50 43 41 4c 53 4e 4f 5c 45 51 55 5c 2a 00 28 00 0a 00 06 00 50 2a 20 00 28 00 1e 00 22 00 50 2a 20 20 20 46 49 4e 44 20 42 4c 4f 43 4b 20 4e 4f 20 57 49 54 48 49 4e 20 46 49 4c 45 20 00 28 00 28 00 06 00 50 2a 20 ┆R ' PCALSNO EQU * ( P* ( " P* FIND BLOCK NO WITHIN FILE ( ( P* ┆
0x554e…559e 00 28 00 4e 00 1c 00 50 5c 4c 44 52 5c 41 35 2c 41 36 5c 53 41 56 45 20 46 44 42 20 41 44 44 52 00 28 00 58 00 0e 00 50 5c 4c 44 4b 5c 41 36 2c 30 20 00 28 00 78 00 24 00 50 5c 4c 43 5c 41 36 2c 46 44 42 42 4c 46 2c 41 35 5c 42 4c 4f 43 4b ┆ ( N P LDR A5,A6 SAVE FDB ADDR ( X P LDK A6,0 ( x $ P LC A6,FDBBLF,A5 BLOCK┆
0x559e…55ee 49 4e 47 20 46 41 43 54 4f 52 00 28 00 8a 00 2c 00 50 5c 43 46 5c 41 31 34 2c 44 49 56 4d 4f 44 5c 41 32 3d 41 31 2c 41 32 2f 2f 41 36 2c 41 31 3d 52 45 4d 41 49 4e 44 45 52 00 28 00 b2 00 1a 00 50 5c 52 46 28 4f 29 5c 43 41 4c 45 52 52 5c ┆ING FACTOR ( , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER ( P RF(O) CALERR ┆
0x55ee…563e 4f 56 45 52 46 4c 4f 57 00 28 00 e2 00 18 00 50 5c 4c 44 52 5c 41 33 2c 41 32 5c 51 55 4f 54 49 45 4e 54 20 00 28 01 00 00 18 00 50 5c 4c 44 52 5c 41 39 2c 41 31 5c 52 45 4d 41 49 4e 44 45 52 00 28 01 1c 00 1a 00 50 5c 52 46 28 5a 29 5c 54 ┆OVERFLOW ( P LDR A3,A2 QUOTIENT ( P LDR A9,A1 REMAINDER ( P RF(Z) T┆
0x563e…568e 49 4f 44 33 30 5c 52 45 53 54 20 3d 20 30 00 28 01 38 00 22 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 52 45 43 4f 52 44 20 49 4e 20 4e 45 58 54 20 42 4c 4f 43 4b 00 28 01 56 00 0e 00 50 5c 52 46 5c 54 49 4f 44 34 30 00 28 01 7c 00 2c 00 50 54 49 ┆IOD30 REST = 0 ( 8 " P ADK A3,1 RECORD IN NEXT BLOCK ( V P RF TIOD40 ( | , PTI┆
0x568e…56de (57, 0, 400) 4f 44 33 30 5c 4c 43 5c 41 39 2c 46 44 42 42 4c 46 2c 41 35 5c 4c 41 53 54 20 52 45 43 20 49 4e 20 42 4c 4f 43 4b 00 28 01 8e 00 10 00 50 54 49 4f 44 34 30 5c 45 51 55 5c 2a 00 29 00 2e 00 2a 00 50 2a 20 20 20 46 49 4e 44 20 4c 4f 47 49 43 ┆OD30 LC A9,FDBBLF,A5 LAST REC IN BLOCK ( PTIOD40 EQU * ) . * P* FIND LOGIC┆
0x56de…572e 41 4c 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 20 4f 4e 20 44 49 53 43 00 29 00 42 00 06 00 50 2a 20 00 29 00 70 00 18 00 50 5c 4c 44 52 5c 41 36 2c 41 33 5c 42 4c 4f 43 4b 20 4e 52 20 00 29 00 7a 00 12 00 50 5c 52 46 28 4e 50 29 5c 43 41 ┆AL SECTOR NUMBER ON DISC ) B P* ) p P LDR A6,A3 BLOCK NR ) z P RF(NP) CA┆
0x572e…577e 4c 45 52 52 00 29 00 96 00 0e 00 50 5c 53 55 4b 5c 41 36 2c 31 20 00 29 00 ac 00 0e 00 50 5c 4c 44 4b 5c 41 37 2c 30 20 00 29 00 be 00 28 00 50 5c 4c 43 5c 41 37 2c 46 44 42 42 4c 5a 2c 41 35 5c 4e 52 20 4f 46 20 53 45 43 54 20 49 4e 20 42 ┆LERR ) P SUK A6,1 ) P LDK A7,0 ) ( P LC A7,FDBBLZ,A5 NR OF SECT IN B┆
0x577e…57ce 4c 4f 43 4b 00 29 00 d0 00 12 00 50 5c 43 46 5c 41 31 34 2c 4d 50 59 4d 4f 44 00 29 00 fc 00 0e 00 50 5c 41 44 4b 5c 41 32 2c 31 20 00 29 01 12 00 12 00 50 5c 52 46 28 4f 29 5c 43 41 4c 30 35 30 20 00 29 01 24 00 0e 00 50 5c 52 46 5c 43 41 ┆LOCK ) P CF A14,MPYMOD ) P ADK A2,1 ) P RF(O) CAL050 ) $ P RF CA┆
0x57ce…581e 4c 30 39 30 00 29 01 3a 00 10 00 50 43 41 4c 30 35 30 5c 45 51 55 5c 2a 00 29 01 4c 00 12 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 37 46 46 46 00 29 01 60 00 14 00 50 5c 41 44 4b 5c 41 31 2c 31 5c 43 41 52 52 59 20 00 29 01 76 00 10 00 50 43 41 ┆L090 ) : PCAL050 EQU * ) L P ANKL A2,/7FFF ) ` P ADK A1,1 CARRY ) v PCA┆
0x581e…586e (58, 0, 400) 4c 30 39 30 5c 45 51 55 5c 2a 00 29 01 8e 00 14 00 50 5c 53 54 5c 41 31 2c 46 44 42 53 4e 52 2c 41 35 00 2a 00 12 00 1e 00 50 5c 53 54 5c 41 32 2c 46 44 42 53 4e 52 2b 32 2c 41 35 5c 53 45 43 54 20 4e 52 00 2a 00 2a 00 30 00 50 2a 20 20 20 ┆L090 EQU * ) P ST A1,FDBSNR,A5 * P ST A2,FDBSNR+2,A5 SECT NR * * 0 P* ┆
0x586e…58be 46 49 4e 44 20 52 45 4c 41 54 49 56 45 20 52 45 43 4f 52 44 20 4f 46 46 53 45 54 20 57 49 54 48 49 4e 20 42 4c 4f 43 4b 00 2a 00 4c 00 06 00 50 2a 20 00 2a 00 80 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 2a 00 8a 00 22 00 50 5c 4c 44 52 ┆FIND RELATIVE RECORD OFFSET WITHIN BLOCK * L P* * P LDK A3,0 * " P LDR┆
0x58be…590e 5c 41 32 2c 41 39 5c 52 45 4c 20 52 45 43 20 4e 52 20 49 4e 20 42 4c 4f 43 4b 00 2a 00 9c 00 10 00 50 54 49 4f 44 36 30 5c 45 51 55 5c 2a 00 2a 00 c2 00 1c 00 50 5c 53 55 4b 5c 41 32 2c 31 5c 41 32 3d 52 45 4c 20 52 45 43 20 4e 52 20 00 2a ┆ A2,A9 REL REC NR IN BLOCK * PTIOD60 EQU * * P SUK A2,1 A2=REL REC NR *┆
0x590e…595e 00 d6 00 28 00 50 5c 52 46 28 5a 29 5c 54 49 4f 44 36 35 5c 52 45 4c 20 52 45 43 20 4f 46 46 53 20 49 4e 20 41 33 20 4e 4f 57 00 2a 00 f6 00 2a 00 50 5c 41 44 5c 41 33 2c 46 44 42 52 4c 45 2c 41 35 5c 4e 4f 20 20 41 44 44 20 52 45 43 4f 52 ┆ ( P RF(Z) TIOD65 REL REC OFFS IN A3 NOW * * P AD A3,FDBRLE,A5 NO ADD RECOR┆
0x595e…59ae 44 20 4c 45 4e 47 54 48 00 2a 01 22 00 1e 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 53 4b 49 50 20 53 54 41 54 55 53 20 42 59 54 45 00 2a 01 50 00 0e 00 50 5c 52 42 5c 54 49 4f 44 36 30 00 2a 01 72 00 28 00 50 43 41 4c 45 52 52 5c 4c 44 4b 4c 5c ┆D LENGTH * " P ADK A3,1 SKIP STATUS BYTE * P P RB TIOD60 * r ( PCALERR LDKL ┆
0x59ae…59fe (59, 0, 400) 41 31 2c 45 4f 4d 45 52 52 5c 4f 55 54 20 4f 46 20 4d 45 44 49 55 4d 20 00 2a 01 84 00 0e 00 50 5c 52 46 5c 54 49 4f 44 4d 46 00 2b 00 20 00 06 00 50 2a 20 00 2b 00 32 00 2c 00 50 2a 20 20 20 53 54 4f 52 45 20 52 45 4c 41 54 49 56 45 20 52 ┆A1,EOMERR OUT OF MEDIUM * P RF TIODMF + P* + 2 , P* STORE RELATIVE R┆
0x59fe…5a4e 45 43 20 4f 46 46 53 45 54 20 49 4e 20 46 42 44 52 52 4f 20 00 2b 00 3c 00 06 00 50 2a 20 00 2b 00 6c 00 10 00 50 54 49 4f 44 36 35 5c 45 51 55 5c 2a 00 2b 00 76 00 10 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 4f 4b 00 2b 00 8a 00 14 00 50 5c 53 ┆EC OFFSET IN FBDRRO + < P* + l PTIOD65 EQU * + v P LDK A1,0 OK + P S┆
0x5a4e…5a9e 54 5c 41 33 2c 46 44 42 52 52 4f 2c 41 35 00 2b 00 9e 00 10 00 50 54 49 4f 44 4d 46 5c 45 51 55 5c 2a 00 2b 00 b6 00 18 00 50 5c 4c 44 52 5c 41 36 2c 41 35 5c 46 44 42 20 41 44 44 52 20 00 2b 00 ca 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 2b ┆T A3,FDBRRO,A5 + PTIODMF EQU * + P LDR A6,A5 FDB ADDR + P RTN A14 +┆
0x5a9e…5aee 00 e6 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 4d 53 55 42 52 20 00 2b 00 f6 00 06 00 50 2a 20 00 2b 01 0e 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2b 01 18 00 0e 00 50 2a 20 20 20 44 4d 54 49 4f 54 00 2b 01 2e 00 12 00 50 ┆ P EJECT DMSUBR + P* + P************** + P* DMTIOT + . P┆
0x5aee…5b3e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2b 01 40 00 06 00 50 2a 20 00 2b 01 56 00 3e 00 50 2a 20 20 20 45 4e 54 52 59 20 20 20 44 4d 54 49 4f 54 20 20 20 43 48 45 43 4b 20 52 45 54 55 52 4e 20 43 4f 44 45 53 20 46 52 4f 4d 20 50 48 59 ┆************** + @ P* + V > P* ENTRY DMTIOT CHECK RETURN CODES FROM PHY┆
0x5b3e…5b8e (60, 0, 400) 53 20 44 49 53 43 20 49 2f 4f 00 2b 01 60 00 06 00 50 2a 20 00 2c 00 12 00 20 00 50 2a 20 20 20 49 4e 50 55 54 20 20 20 41 31 20 3d 20 46 44 42 20 41 44 44 52 45 53 53 00 2c 00 1c 00 06 00 50 2a 20 00 2c 00 40 00 20 00 50 2a 20 20 20 4f 55 ┆S DISC I/O + ` P* , P* INPUT A1 = FDB ADDRESS , P* , @ P* OU┆
0x5b8e…5bde 54 50 55 54 20 20 41 36 20 3d 20 46 44 42 20 41 44 44 52 45 53 53 00 2c 00 4a 00 1e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 41 31 20 3d 20 30 20 57 48 45 4e 20 4f 4b 00 2c 00 6e 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3d ┆TPUT A6 = FDB ADDRESS , J P* A1 = 0 WHEN OK , n $ P* =┆
0x5bde…5c2e 20 45 52 52 4f 52 20 43 4f 44 45 20 45 4c 53 45 00 2c 00 90 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 41 39 20 3d 20 44 4d 20 45 43 42 20 41 44 44 52 45 53 53 20 00 2c 00 b8 00 2a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 41 38 20 3d ┆ ERROR CODE ELSE , $ P* A9 = DM ECB ADDRESS , * P* A8 =┆
0x5c2e…5c7e 20 50 48 59 53 20 49 2f 4f 20 45 43 42 20 41 44 44 52 45 53 53 20 00 2c 00 e0 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 41 32 20 57 49 4c 4c 20 42 45 20 44 45 53 54 52 4f 59 45 44 00 2c 01 0e 00 06 00 50 2a 20 00 2c 01 36 00 28 00 50 ┆ PHYS I/O ECB ADDRESS , $ P* A2 WILL BE DESTROYED , P* , 6 ( P┆
0x5c7e…5cce 2a 20 20 20 55 53 45 44 20 52 45 47 49 53 54 45 52 53 20 3a 20 41 31 2c 41 32 2c 41 36 2c 41 38 2c 41 39 20 00 2c 01 40 00 06 00 50 2a 20 00 2c 01 6c 00 06 00 50 2a 20 00 2c 01 76 00 10 00 50 44 4d 54 49 4f 54 5c 45 51 55 5c 2a 00 2c 01 80 ┆* USED REGISTERS : A1,A2,A6,A8,A9 , @ P* , l P* , v PDMTIOT EQU * , ┆