|
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: 23756 (0x5ccc)
Notes: pts_type(SC)
Names: »TIODM.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/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 X:A * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * 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…0d2e Head {h00=0x0012, h01=0x0050, text=»INDXAC EQU X:A«, t00=0x0008, t01=0x009e}
0x0d2e…0d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b4}
0x0d38…0d6a Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x00be}
0x0d6a…0d98 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00f0}
0x0d98…0da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011e}
0x0da2…0db6 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0008, t01=0x0128}
0x0db6…0dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013c}
0x0dc0…0dce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0146}
0x0dce…0dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0154}
0x0dd8…0df0 Head {h00=0x0014, h01=0x0050, text=»* ERROR CODES «, t00=0x0008, t01=0x015e}
0x0df0…0dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0176}
0x0dfa…0e28 Head {h00=0x002a, h01=0x0050, text=»EOMERR EQU /A000 OUTSIDE MEDIUM LIMITS«, t00=0x0008, t01=0x0180}
0x0e28…0e52 Head {h00=0x0026, h01=0x0050, text=»PROT EQU /0040 THIS DATA PROTECTED«, t00=0x0009, t01=0x001e}
0x0e52…0e7c Head {h00=0x0026, h01=0x0050, text=»NODERR EQU /8800 NO EXPECTED DATA «, t00=0x0009, t01=0x0048}
0x0e7c…0eac Head {h00=0x002c, h01=0x0050, text=»KEYERR EQU /8400 EXPECTED KEY NOT FOUND «, t00=0x0009, t01=0x0072}
0x0eac…0ee2 Head {h00=0x0032, h01=0x0050, text=»PROERR EQU /0010 ROLLBACK FOR PROTECT REASONS «, t00=0x0009, t01=0x00a2}
0x0ee2…0f10 Head {h00=0x002a, h01=0x0050, text=»REQERR EQU /8000 GENERAL REQUEST ERROR«, t00=0x0009, t01=0x00d8}
0x0f10…0f36 Head {h00=0x0022, h01=0x0050, text=»REQER2 EQU /FFFE REQUEST ERROR«, t00=0x0009, t01=0x0106}
0x0f36…0f60 Head {h00=0x0026, h01=0x0050, text=»LGTERR EQU /0008 INCORRECT LENGTH «, t00=0x0009, t01=0x012c}
0x0f60…0f8e Head {h00=0x002a, h01=0x0050, text=»EDMERR EQU /8080 DATA MANAGEMENT ERROR«, t00=0x0009, t01=0x0156}
0x0f8e…0fb2 Head {h00=0x0020, h01=0x0050, text=»EOFERR EQU /9000 END OF FILE«, t00=0x0009, t01=0x0184}
0x0fb2…0fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0018}
0x0fbc…0fd0 Head {h00=0x0010, h01=0x0050, text=»* MESSAGES«, t00=0x000a, t01=0x0022}
0x0fd0…0fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0036}
0x0fda…1000 Head {h00=0x0022, h01=0x0050, text=»RETRIE EQU /0100 DISC RETRIES «, t00=0x000a, t01=0x0040}
0x1000…1028 Head {h00=0x0024, h01=0x0050, text=»NOKEY EQU /0400 NOT SEARCHED KEY«, t00=0x000a, t01=0x0066}
0x1028…104e Head {h00=0x0022, h01=0x0050, text=»NXTKYS EQU /0200 NEXT KEY SAME«, t00=0x000a, t01=0x008e}
0x104e…1072 Head {h00=0x0020, h01=0x0050, text=»EOFRC EQU /1000 END OF FILE «, t00=0x000a, t01=0x00b4}
0x1072…107c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d8}
0x107c…10a2 Head {h00=0x0022, h01=0x0050, text=»FCUSED EQU 7 INVALID FILE CODE«, t00=0x000a, t01=0x00e2}
0x10a2…10b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0108}
0x10b0…10ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0116}
0x10ba…10da Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0120}
0x10da…10fa Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x000a, t01=0x0140}
0x10fa…111a Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0160}
0x111a…1124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0180}
0x1124…112e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018a}
0x112e…1138 (11, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0004}
0x1138…1142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000e}
0x1142…116c Head {h00=0x0026, h01=0x0050, text=»TIODMF EQU * TIODM FUNCTION TABLE «, t00=0x000b, t01=0x0018}
0x116c…118c Head {h00=0x001c, h01=0x0050, text=» DATA READ DIRECT RANDOM«, t00=0x000b, t01=0x0042}
0x118c…11aa Head {h00=0x001a, h01=0x0050, text=» DATA READ SEQUENTIAL «, t00=0x000b, t01=0x0062}
0x11aa…11c0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000b, t01=0x0080}
0x11c0…11da Head {h00=0x0016, h01=0x0050, text=» DATA READ INDEXED«, t00=0x000b, t01=0x0096}
0x11da…11fa Head {h00=0x001c, h01=0x0050, text=» DATA READ INDEXED NEXT «, t00=0x000b, t01=0x00b0}
0x11fa…1206 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00d0}
0x1206…121c Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000b, t01=0x00dc}
0x121c…1238 Head {h00=0x0018, h01=0x0050, text=» DATA TIOD19,TIOD19 «, t00=0x000b, t01=0x00f2}
0x1238…1244 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x010e}
0x1244…1266 Head {h00=0x001e, h01=0x0050, text=» DATA WRITE DIRECT RANDOM «, t00=0x000b, t01=0x011a}
0x1266…1284 Head {h00=0x001a, h01=0x0050, text=» DATA WRITE SEQUENTIAL«, t00=0x000b, t01=0x013c}
0x1284…129a Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000b, t01=0x015a}
0x129a…12bc Head {h00=0x001e, h01=0x0050, text=» DATA WRITE INDEXED INSERT«, t00=0x000b, t01=0x0170}
0x12bc…12c8 (12, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0004}
0x12c8…12de Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000c, t01=0x0010}
0x12de…12f2 Head {h00=0x0010, h01=0x0050, text=» DATA TIOD19«, t00=0x000c, t01=0x0026}
0x12f2…12fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x003a}
0x12fe…131c Head {h00=0x001a, h01=0x0050, text=» DATA WRITE (RESERVED)«, t00=0x000c, t01=0x0046}
0x131c…1340 Head {h00=0x0020, h01=0x0050, text=» DATA REWRIT REWRITE DIRECT «, t00=0x000c, t01=0x0064}
0x1340…1356 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000c, t01=0x0088}
0x1356…137a Head {h00=0x0020, h01=0x0050, text=» DATA REWRIT REWRITE INDEXED«, t00=0x000c, t01=0x009e}
0x137a…1386 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00c2}
0x1386…139c Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000c, t01=0x00ce}
0x139c…13b0 Head {h00=0x0010, h01=0x0050, text=» DATA TIOD19«, t00=0x000c, t01=0x00e4}
0x13b0…13bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00f8}
0x13bc…13d8 Head {h00=0x0018, h01=0x0050, text=» DATA DELETE DIRECT «, t00=0x000c, t01=0x0104}
0x13d8…13ee Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000c, t01=0x0120}
0x13ee…1408 Head {h00=0x0016, h01=0x0050, text=»QDEL EQU *-TIODMF «, t00=0x000c, t01=0x0136}
0x1408…1424 Head {h00=0x0018, h01=0x0050, text=» DATA DELETE INDEXED«, t00=0x000c, t01=0x0150}
0x1424…1430 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x016c}
0x1430…1446 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000c, t01=0x0178}
0x1446…145a Head {h00=0x0010, h01=0x0050, text=» DATA TIOD19«, t00=0x000c, t01=0x018e}
0x145a…1466 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0012}
0x1466…1480 Head {h00=0x0016, h01=0x0050, text=»QSTA EQU *-TIODMF «, t00=0x000d, t01=0x001e}
0x1480…14a2 Head {h00=0x001e, h01=0x0050, text=» DATA STARTO START DIRECT «, t00=0x000d, t01=0x0038}
0x14a2…14b8 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000d, t01=0x005a}
0x14b8…14da Head {h00=0x001e, h01=0x0050, text=» DATA STARTO START INDEXED«, t00=0x000d, t01=0x0070}
0x14da…14e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0092}
0x14e6…14fc Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x000d, t01=0x009e}
0x14fc…1510 Head {h00=0x0010, h01=0x0050, text=» DATA TIOD19«, t00=0x000d, t01=0x00b4}
0x1510…151c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00c8}
0x151c…1526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d4}
0x1526…1570 Head {h00=0x0046, h01=0x0050, text=»* FOLLOWING FILE ADMINISTRATION FUNCTIONS MUST ALWAYS BE PLACED «, t00=0x000d, t01=0x00de}
0x1570…15ba Head {h00=0x0046, h01=0x0050, text=»* AT THE END OF TIODMF DEP ON TEST PERFORMED AFTER LABEL TIOD68 «, t00=0x000d, t01=0x0128}
0x15ba…15c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0172}
0x15c4…15e0 Head {h00=0x0018, h01=0x0050, text=»OPENOF EQU *-TIODMF «, t00=0x000d, t01=0x017c}
0x15e0…15f2 Head {h00=0x000e, h01=0x0050, text=» DATA OPEN«, t00=0x000e, t01=0x0008}
0x15f2…160e Head {h00=0x0018, h01=0x0050, text=»CLOSOF EQU *-TIODMF «, t00=0x000e, t01=0x001a}
0x160e…1622 Head {h00=0x0010, h01=0x0050, text=» DATA CLOSE «, t00=0x000e, t01=0x0036}
0x1622…163e Head {h00=0x0018, h01=0x0050, text=»RDSTOF EQU *-TIODMF «, t00=0x000e, t01=0x004a}
0x163e…165e Head {h00=0x001c, h01=0x0050, text=» DATA RDSTAT READ STATUS«, t00=0x000e, t01=0x0066}
0x165e…167a Head {h00=0x0018, h01=0x0050, text=»RDFPOF EQU *-TIODMF «, t00=0x000e, t01=0x0086}
0x167a…16a4 Head {h00=0x0026, h01=0x0050, text=» DATA RDFILP READ FILE PARAMETERS «, t00=0x000e, t01=0x00a2}
0x16a4…16b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00cc}
0x16b2…16bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00da}
0x16bc…16da Head {h00=0x001a, h01=0x0050, text=»TIODMO EQU * DM ORDERS«, t00=0x000e, t01=0x00e4}
0x16da…16f2 Head {h00=0x0014, h01=0x0050, text=» DATA /02FF READ«, t00=0x000e, t01=0x0102}
0x16f2…1706 Head {h00=0x0010, h01=0x0050, text=» DATA /FFFF «, t00=0x000e, t01=0x011a}
0x1706…1720 Head {h00=0x0016, h01=0x0050, text=» DATA /06FF WRITE «, t00=0x000e, t01=0x012e}
0x1720…1734 Head {h00=0x0010, h01=0x0050, text=» DATA /FFFF «, t00=0x000e, t01=0x0148}
0x1734…1750 Head {h00=0x0018, h01=0x0050, text=» DATA /07FF REWRITE «, t00=0x000e, t01=0x015c}
0x1750…176a Head {h00=0x0016, h01=0x0050, text=» DATA /08FF DELETE«, t00=0x000e, t01=0x0178}
0x176a…1784 (15, 0, 400) Head {h00=0x0016, h01=0x0050, text=» DATA /0BFF START «, t00=0x000f, t01=0x0004}
0x1784…17a2 Head {h00=0x001a, h01=0x0050, text=» DATA /2122 OPEN,CLOSE«, t00=0x000f, t01=0x001e}
0x17a2…17d6 Head {h00=0x0030, h01=0x0050, text=» DATA /0003 READ STATUS,READ FILE PARAMETERS«, t00=0x000f, t01=0x003c}
0x17d6…17e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0070}
0x17e0…1808 Head {h00=0x0024, h01=0x0050, text=»NOOFOR EQU 18 NO OF ORDER CODES «, t00=0x000f, t01=0x007a}
0x1808…1812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a2}
0x1812…1820 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00ac}
0x1820…182a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ba}
0x182a…185e Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU 42 START OF NON-STANDARD DWT PART«, t00=0x000f, t01=0x00c4}
0x185e…1868 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f8}
0x1868…187e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000f, t01=0x0102}
0x187e…18ac Head {h00=0x002a, h01=0x0050, text=»START EQU DWTDRD-2 DWTTDM EXTINGUISHED«, t00=0x000f, t01=0x0118}
0x18ac…18b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0146}
0x18b8…18c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0152}
0x18c2…18d8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x015c}
0x18d8…1906 Head {h00=0x002a, h01=0x0050, text=»START EQU DWTDRD+2 DWTTDM EXTINGUISHED«, t00=0x000f, t01=0x0172}
0x1906…1912 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0010}
0x1912…1920 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x001c}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x192a…194c Head {h00=0x001e, h01=0x0050, text=»* FDB OFFSET DEFINITIONS«, t00=0x0010, t01=0x0034}
0x194c…1956 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x1956…196a Head {h00=0x0010, h01=0x0050, text=»FDBSTA EQU *«, t00=0x0010, t01=0x0060}
0x196a…197e Head {h00=0x0010, h01=0x0050, text=»DWDM01 EQU *«, t00=0x0010, t01=0x0074}
0x197e…19b0 Head {h00=0x002e, h01=0x0050, text=» DATA 0,/8000,0,0,TIODM,0,0,0 DWT STANDARD«, t00=0x0010, t01=0x0088}
0x19b0…19c6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x00ba}
0x19c6…19ee Head {h00=0x0024, h01=0x0050, text=» DATA 0,FDBMMU SPECIAL DWT ITEMS«, t00=0x0010, t01=0x00d0}
0x19ee…19fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00f8}
0x19fa…1a10 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0010, t01=0x0104}
0x1a10…1a38 Head {h00=0x0024, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0,0 FWT PART«, t00=0x0010, t01=0x011a}
0x1a38…1a58 Head {h00=0x001c, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0,0 «, t00=0x0010, t01=0x0142}
0x1a58…1a78 Head {h00=0x001c, h01=0x0050, text=» DATA 0,0,0,0,0,0,0,0,0 «, t00=0x0010, t01=0x0162}
0x1a78…1a94 Head {h00=0x0018, h01=0x0050, text=» DATA FDBSTA FDBADF «, t00=0x0010, t01=0x0182}
0x1a94…1acc Head {h00=0x0034, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 54,BYTE FDB AREA SYSTEM FDB «, t00=0x0011, t01=0x000e}
0x1acc…1ae2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0011, t01=0x0046}
0x1ae2…1b04 Head {h00=0x001e, h01=0x0050, text=»FDBMMU RES 7 MMU ECB AREA «, t00=0x0011, t01=0x005c}
0x1b04…1b10 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x007e}
0x1b10…1b1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x008a}
0x1b1e…1b42 Head {h00=0x0020, h01=0x0050, text=»FDBECB EQU START+2 ECB START«, t00=0x0011, t01=0x0098}
0x1b42…1b6c Head {h00=0x0026, h01=0x0050, text=»FDBSNR EQU START+16 SECTOR NUMBER «, t00=0x0011, t01=0x00bc}
0x1b6c…1b9e Head {h00=0x002e, h01=0x0050, text=»FDBRRO EQU START+20 RELATIVE RECORD OFFSET«, t00=0x0011, t01=0x00e6}
0x1b9e…1bc8 Head {h00=0x0026, h01=0x0050, text=»FDBRLE EQU START+22 RECORD LENGTH «, t00=0x0011, t01=0x0118}
0x1bc8…1bf4 Head {h00=0x0028, h01=0x0050, text=»FDBBLF EQU START+24 BLOCKING FACTOR «, t00=0x0011, t01=0x0142}
0x1bf4…1c28 Head {h00=0x0030, h01=0x0050, text=»FDBTNR EQU START+25 TASK NUMBER CALLING TASK«, t00=0x0011, t01=0x016e}
0x1c28…1c56 Head {h00=0x002a, h01=0x0050, text=»FDBLRN EQU START+27 LAST RECORD NUMBER«, t00=0x0012, t01=0x0012}
0x1c56…1c84 Head {h00=0x002a, h01=0x0050, text=»FDBNIF EQU START+26 NO OF INDEX FILES «, t00=0x0012, t01=0x0040}
0x1c84…1cac Head {h00=0x0024, h01=0x0050, text=»FDBEAL EQU START+30 EA LINK ROOT«, t00=0x0012, t01=0x006e}
0x1cac…1cd6 Head {h00=0x0026, h01=0x0050, text=»FDBCRL EQU START+32 CRN LINK ROOT «, t00=0x0012, t01=0x0096}
0x1cd6…1d0a Head {h00=0x0030, h01=0x0050, text=»FDBKA EQU START+34 KEY ADDRESS IN DATA FILE «, t00=0x0012, t01=0x00c0}
0x1d0a…1d3e Head {h00=0x0030, h01=0x0050, text=»FDBMIA EQU START+36 ADDRESS OF MASTER INDEX «, t00=0x0012, t01=0x00f4}
0x1d3e…1d72 Head {h00=0x0030, h01=0x0050, text=»FDBADF EQU START+38 ADDRESS OF DATA FILE FDB«, t00=0x0012, t01=0x0128}
0x1d72…1da8 Head {h00=0x0032, h01=0x0050, text=»FDBAI1 EQU START+40 ADDRESS OF INDEX FILE FDB «, t00=0x0012, t01=0x015c}
0x1da8…1de4 (19, 0, 400) Head {h00=0x0038, h01=0x0050, text=»FDBDBR EQU START+48 DELAY,BASIC AND REL BUFFER FLAGS«, t00=0x0013, t01=0x0004}
0x1de4…1e12 Head {h00=0x002a, h01=0x0050, text=»FDBDMI EQU START+49 RELATIVE DMTASK ID«, t00=0x0013, t01=0x0040}
0x1e12…1e38 Head {h00=0x0022, h01=0x0050, text=»FDBMRO EQU START+50 MAX FDBRRO«, t00=0x0013, t01=0x006e}
0x1e38…1e68 Head {h00=0x002c, h01=0x0050, text=»FDBBLZ EQU START+52 NR OF SECT IN BLOCK «, t00=0x0013, t01=0x0094}
0x1e68…1e98 Head {h00=0x002c, h01=0x0050, text=»FDBMEC EQU START+54 MMU ECB DISPLACEMENT«, t00=0x0013, t01=0x00c4}
0x1e98…1eae Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x00f4}
0x1eae…1eee Head {h00=0x003c, h01=0x0050, text=»FDBKEY EQU START+68 SAVE AREA FOR KEY IN INDEXED ACCESS «, t00=0x0013, t01=0x010a}
0x1eee…1efa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x014a}
0x1efa…1f10 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0156}
0x1f10…1f44 Head {h00=0x0030, h01=0x0050, text=»FDBKEY EQU START+54 KEY AREA FOR INDEXED ACC«, t00=0x0013, t01=0x016c}
0x1f44…1f50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0010}
0x1f50…1f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001c}
0x1f5a…1f84 Head {h00=0x0026, h01=0x0050, text=»* CRN BUFFER OFFSET DEFINITIONS «, t00=0x0014, t01=0x0026}
0x1f84…1f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0050}
0x1f8e…1faa Head {h00=0x0018, h01=0x0050, text=»CRNTID EQU 2 TASK ID«, t00=0x0014, t01=0x005a}
0x1faa…1fce Head {h00=0x0020, h01=0x0050, text=»CRNSTA EQU 3 CURRENT STATUS «, t00=0x0014, t01=0x0076}
0x1fce…1ff4 Head {h00=0x0022, h01=0x0050, text=»CRNCDF EQU 4 CURRENT DATA FILE«, t00=0x0014, t01=0x009a}
0x1ff4…2002 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00c0}
0x2002…202e Head {h00=0x0028, h01=0x0050, text=» DATA 0 DATA MANAGEMENT DEVICE INDEX«, t00=0x0014, t01=0x00ce}
0x202e…2058 Head {h00=0x0026, h01=0x0050, text=»TIODM DATA *+2 TIODM START ADDRESS«, t00=0x0014, t01=0x00fa}
0x2058…2062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0124}
0x2062…207e Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0014, t01=0x012e}
0x207e…2088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x014a}
0x2088…20a0 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,FDBECB«, t00=0x0014, t01=0x0154}
0x20a0…20b8 Head {h00=0x0014, h01=0x0050, text=» ADKL A14,ECBCW «, t00=0x0014, t01=0x016c}
0x20b8…20dc Head {h00=0x0020, h01=0x0050, text=» ADR A14,A6 USE ECB AS STACK«, t00=0x0014, t01=0x0184}
0x20dc…20e8 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0015, t01=0x0018}
0x20e8…20f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0024}
0x20f2…212c Head {h00=0x0036, h01=0x0050, text=»* GET CALLING TASK NUMBER AND STORE IT IN FDBTNR«, t00=0x0015, t01=0x002e}
0x212c…2136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0068}
0x2136…2148 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0015, t01=0x0072}
0x2148…2164 Head {h00=0x0018, h01=0x0050, text=»TIOD05 LD A1,SCTTCT «, t00=0x0015, t01=0x0084}
0x2164…2176 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0015, t01=0x00a0}
0x2176…218a Head {h00=0x0010, h01=0x0050, text=» LD A3,2,A1 «, t00=0x0015, t01=0x00b2}
0x218a…21a2 Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTTAB,A6«, t00=0x0015, t01=0x00c6}
0x21a2…21c2 Head {h00=0x001c, h01=0x0050, text=» RF(E) TIOD10 THIS TASK «, t00=0x0015, t01=0x00de}
0x21c2…21d6 Head {h00=0x0010, h01=0x0050, text=» ADK A2,2 NO«, t00=0x0015, t01=0x00fe}
0x21d6…21f2 Head {h00=0x0018, h01=0x0050, text=» RB TIOD05 TRY NEXT «, t00=0x0015, t01=0x0112}
0x21f2…2206 Head {h00=0x0010, h01=0x0050, text=»TIOD10 EQU *«, t00=0x0015, t01=0x012e}
0x2206…222c Head {h00=0x0022, h01=0x0050, text=» SC A2,FDBTNR,A6 USER TASK NR «, t00=0x0015, t01=0x0142}
0x222c…224a Head {h00=0x001a, h01=0x0050, text=»* CHECK ORDER IN A7 «, t00=0x0015, t01=0x0168}
0x224a…227a Head {h00=0x002c, h01=0x0050, text=»* PUT ORDER INDEX IN DWTOR RIGHT BYTE «, t00=0x0015, t01=0x0186}
0x227a…2284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0026}
0x2284…22a6 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 ORDER WORD«, t00=0x0016, t01=0x0030}
0x22a6…22b8 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A7«, t00=0x0016, t01=0x0052}
0x22b8…22e2 Head {h00=0x0026, h01=0x0050, text=» ANKL A5,/C0C0 SOME BITS FORBIDDEN«, t00=0x0016, t01=0x0064}
0x22e2…22fc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) TIOD19 ERR«, t00=0x0016, t01=0x008e}
0x22fc…2318 Head {h00=0x0018, h01=0x0050, text=» LD A5,FDBBLZ,A6 =1«, t00=0x0016, t01=0x00a8}
0x2318…2330 Head {h00=0x0014, h01=0x0050, text=» ANK A5,/FF =1 «, t00=0x0016, t01=0x00c4}
0x2330…2358 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) TIOD19 COMMIT MISSING =1«, t00=0x0016, t01=0x00dc}
0x2358…2382 Head {h00=0x0026, h01=0x0050, text=» LDK A5,NOOFOR-1 NO OF ORDERS - 1 «, t00=0x0016, t01=0x0104}
0x2382…23b8 Head {h00=0x0032, h01=0x0050, text=»TIOD15 CC A7,TIODMO,A5 START AT END OF TIODMO «, t00=0x0016, t01=0x012e}
0x23b8…23d4 Head {h00=0x0018, h01=0x0050, text=» RF(E) TIOD20 MATCH «, t00=0x0016, t01=0x0164}
0x23d4…23e6 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0016, t01=0x0180}
0x23e6…2402 (23, 0, 400) Head {h00=0x0018, h01=0x0050, text=» RB(NN) TIOD15 >= 0 «, t00=0x0017, t01=0x0004}
0x2402…2416 Head {h00=0x0010, h01=0x0050, text=»TIOD19 EQU *«, t00=0x0017, t01=0x0020}
0x2416…242e Head {h00=0x0014, h01=0x0050, text=» LDKL A1,REQERR «, t00=0x0017, t01=0x0034}
0x242e…2446 Head {h00=0x0014, h01=0x0050, text=» ABL TIODMX ERR «, t00=0x0017, t01=0x004c}
0x2446…245a Head {h00=0x0010, h01=0x0050, text=»TIOD20 EQU *«, t00=0x0017, t01=0x0064}
0x245a…246e Head {h00=0x0010, h01=0x0050, text=» SLL A5,1 *2«, t00=0x0017, t01=0x0078}
0x246e…2498 Head {h00=0x0026, h01=0x0050, text=» SC A5,DWTOR+1,A6 SAVE ORDER INDEX«, t00=0x0017, t01=0x008c}
0x2498…24ae Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x0017, t01=0x00b6}
0x24ae…24d4 Head {h00=0x0022, h01=0x0050, text=» RF(NE) TIOD25 NOT SYSTEM FWT «, t00=0x0017, t01=0x00cc}
0x24d4…24ea Head {h00=0x0012, h01=0x0050, text=» CWK A5,RDSTOF«, t00=0x0017, t01=0x00f2}
0x24ea…250c Head {h00=0x001e, h01=0x0050, text=» RF(E) TIOD25 READ STATUS «, t00=0x0017, t01=0x0108}
0x250c…2522 Head {h00=0x0012, h01=0x0050, text=» CWK A5,OPENOF«, t00=0x0017, t01=0x012a}
0x2522…2542 Head {h00=0x001c, h01=0x0050, text=» RB(NE) TIOD19 NOT OPEN «, t00=0x0017, t01=0x0140}
0x2542…2556 Head {h00=0x0010, h01=0x0050, text=»TIOD25 EQU *«, t00=0x0017, t01=0x0160}
0x2556…2572 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0017, t01=0x0174}
0x2572…2592 Head {h00=0x001c, h01=0x0050, text=» CF A14,CRNGET CURRENCY «, t00=0x0017, t01=0x0190}
0x2592…25ae Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 NEW STATUS«, t00=0x0018, t01=0x0020}
0x25ae…25d2 Head {h00=0x0020, h01=0x0050, text=» LC A4,CRNSTA,A2 OLD STATUS «, t00=0x0018, t01=0x003c}
0x25d2…25ea Head {h00=0x0014, h01=0x0050, text=» SC A3,CRNSTA,A2«, t00=0x0018, t01=0x0060}
0x25ea…2616 Head {h00=0x0028, h01=0x0050, text=» ABI TIODMF,A5 BRANCH TO DM FUNCTION«, t00=0x0018, t01=0x0078}
0x2616…2620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a4}
0x2620…2646 Head {h00=0x0022, h01=0x0050, text=»* A1 = FDB ADDRESS DATA FILE«, t00=0x0018, t01=0x00ae}
0x2646…266e Head {h00=0x0024, h01=0x0050, text=»* A2 = CURRENCY BUFFER ADDRESS«, t00=0x0018, t01=0x00d4}
0x266e…2698 Head {h00=0x0026, h01=0x0050, text=»* A4 = OLD STATUS IN RIGHT BYTE «, t00=0x0018, t01=0x00fc}
0x2698…26c6 Head {h00=0x002a, h01=0x0050, text=»* A5 = ORDER CODE AT ENTRY TO TIODM «, t00=0x0018, t01=0x0126}
0x26c6…26fa Head {h00=0x0030, h01=0x0050, text=»* A6 = FDB ADDRESS FILE DEVICE USER QUEUE «, t00=0x0018, t01=0x0154}
0x26fa…271a Head {h00=0x001c, h01=0x0050, text=»* A7 = USER ORDER WORD«, t00=0x0018, t01=0x0188}
0x271a…273c Head {h00=0x001e, h01=0x0050, text=»* A8 = USER ECB ADDRESS «, t00=0x0019, t01=0x0018}
0x273c…274a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x003a}
0x274a…276a Head {h00=0x001c, h01=0x0050, text=»RDSTAT EQU * READ STATUS«, t00=0x0019, t01=0x0048}
0x276a…278e Head {h00=0x0020, h01=0x0050, text=» SC A4,CRNSTA,A2 STATUS CHAR«, t00=0x0019, t01=0x0068}
0x278e…27a2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0019, t01=0x008c}
0x27a2…27c8 Head {h00=0x0022, h01=0x0050, text=» ST A4,ECBCW,A8 RETURN STATUS «, t00=0x0019, t01=0x00a0}
0x27c8…27de Head {h00=0x0012, h01=0x0050, text=» CM ECBCW+2,A8«, t00=0x0019, t01=0x00c6}
0x27de…27fc Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RET CODE OK «, t00=0x0019, t01=0x00dc}
0x27fc…2810 Head {h00=0x0010, h01=0x0050, text=» ABL TIODMX «, t00=0x0019, t01=0x00fa}
0x2810…281e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x010e}
0x281e…283c Head {h00=0x001a, h01=0x0050, text=»READ EQU * READ ORDERS«, t00=0x0019, t01=0x011c}
0x283c…2852 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/100 «, t00=0x0019, t01=0x013a}
0x2852…286c Head {h00=0x0016, h01=0x0050, text=» TM A3,A7 TEST BIT«, t00=0x0019, t01=0x0150}
0x286c…2890 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) READDI OPTION DIRECT«, t00=0x0019, t01=0x016a}
0x2890…28a6 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/700 «, t00=0x0019, t01=0x018e}
0x28a6…28b8 Head {h00=0x000e, h01=0x0050, text=» TM A3,A7 «, t00=0x001a, t01=0x0014}
0x28b8…28e4 Head {h00=0x0028, h01=0x0050, text=» RB(NZ) TIOD19 NOT OPTION SEQUENTIAL«, t00=0x001a, t01=0x0026}
0x28e4…2900 Head {h00=0x0018, h01=0x0050, text=» SRL A7,10 INDEX * 2«, t00=0x001a, t01=0x0052}
0x2900…2920 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) SEQREA SEQ READ «, t00=0x001a, t01=0x006e}
0x2920…294a Head {h00=0x0026, h01=0x0050, text=» ABL IXRDNX INDEXED SEQ READ NEXT «, t00=0x001a, t01=0x008e}
0x294a…296a Head {h00=0x001c, h01=0x0050, text=»READDI EQU * DIRECT READ«, t00=0x001a, t01=0x00b8}
0x296a…2986 Head {h00=0x0018, h01=0x0050, text=» SRL A7,10 INDEX * 2«, t00=0x001a, t01=0x00d8}
0x2986…29b0 Head {h00=0x0026, h01=0x0050, text=» ABL(Z) RANREA DIRECT RANDOM READF«, t00=0x001a, t01=0x00f4}
0x29b0…29d6 Head {h00=0x0022, h01=0x0050, text=» RF IXRARE INDEXED DIRECT READ«, t00=0x001a, t01=0x011e}
0x29d6…29ec Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=0 «, t00=0x001a, t01=0x0144}
0x29ec…29fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x015a}
0x29fa…2a0e Head {h00=0x0010, h01=0x0050, text=»IXRDNX EQU *«, t00=0x001a, t01=0x0168}
0x2a0e…2a22 Head {h00=0x0010, h01=0x0050, text=»IXRARE EQU *«, t00=0x001a, t01=0x017c}
0x2a22…2a36 Head {h00=0x0010, h01=0x0050, text=»IXINS EQU * «, t00=0x001a, t01=0x0190}
0x2a36…2a48 Head {h00=0x000e, h01=0x0050, text=» RB TIOD19«, t00=0x001b, t01=0x0014}
0x2a48…2a54 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0026}
0x2a54…2a62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0032}
0x2a62…2a82 Head {h00=0x001c, h01=0x0050, text=»WRITE EQU * WRITE ORDERS«, t00=0x001b, t01=0x0040}
0x2a82…2a9a Head {h00=0x0014, h01=0x0050, text=» LC A3,FDBDBR,A6«, t00=0x001b, t01=0x0060}
0x2a9a…2ab8 Head {h00=0x001a, h01=0x0050, text=» ANK A3,/3 SHARABILITY«, t00=0x001b, t01=0x0078}
0x2ab8…2ae2 Head {h00=0x0026, h01=0x0050, text=» RB(Z) TIOD19 ONLY INPUT ACCEPTED «, t00=0x001b, t01=0x0096}
0x2ae2…2af8 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/100 «, t00=0x001b, t01=0x00c0}
0x2af8…2b1e Head {h00=0x0022, h01=0x0050, text=» LC A3,FDBNIF,A6 NR OF INDEXES«, t00=0x001b, t01=0x00d6}
0x2b1e…2b32 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x001b, t01=0x00fc}
0x2b32…2b50 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) WRITE2 INDEXED«, t00=0x001b, t01=0x0110}
0x2b50…2b62 Head {h00=0x000e, h01=0x0050, text=» TM A4,A7 «, t00=0x001b, t01=0x012e}
0x2b62…2b80 Head {h00=0x001a, h01=0x0050, text=» ABL(NZ) TIODMB DIRECT«, t00=0x001b, t01=0x0140}
0x2b80…2b96 Head {h00=0x0012, h01=0x0050, text=» ANKL A7,/700 «, t00=0x001b, t01=0x015e}
0x2b96…2bbe Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SEQWRI SEQUENTIAL WRITE «, t00=0x001b, t01=0x0174}
0x2bbe…2bd4 Head {h00=0x0012, h01=0x0050, text=» RB TIOD19 ERR«, t00=0x001c, t01=0x000c}
0x2bd4…2bf0 Head {h00=0x0018, h01=0x0050, text=»WRITE2 EQU * INDEXED«, t00=0x001c, t01=0x0022}
0x2bf0…2c02 Head {h00=0x000e, h01=0x0050, text=» TM A4,A7 «, t00=0x001c, t01=0x003e}
0x2c02…2c28 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) IXINS INDEXED INSERT «, t00=0x001c, t01=0x0050}
0x2c28…2c46 Head {h00=0x001a, h01=0x0050, text=» RB TIOD19 NOT ALLOWED«, t00=0x001c, t01=0x0076}
0x2c46…2c54 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0094}
0x2c54…2c78 Head {h00=0x0020, h01=0x0050, text=»REWRIT EQU * REWRITE ORDERS «, t00=0x001c, t01=0x00a2}
0x2c78…2c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c6}
0x2c82…2ca4 Head {h00=0x001e, h01=0x0050, text=»DELETE EQU * DELETE ORDERS«, t00=0x001c, t01=0x00d0}
0x2ca4…2cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f2}
0x2cae…2cc6 Head {h00=0x0014, h01=0x0050, text=» LC A3,FDBDBR,A6«, t00=0x001c, t01=0x00fc}
0x2cc6…2ce4 Head {h00=0x001a, h01=0x0050, text=» ANK A3,/3 SHARABILITY«, t00=0x001c, t01=0x0114}
0x2ce4…2d0c Head {h00=0x0024, h01=0x0050, text=» RB(Z) TIOD19 ONLY INPUT ALLOWED«, t00=0x001c, t01=0x0132}
0x2d0c…2d30 Head {h00=0x0020, h01=0x0050, text=» LC A3,FDBNIF,A6 NR OF INDEX«, t00=0x001c, t01=0x015a}
0x2d30…2d44 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x001c, t01=0x017e}
0x2d44…2d62 (29, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RF(Z) REW010 NO INDEX«, t00=0x001d, t01=0x0004}
0x2d62…2d74 Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x001d, t01=0x0022}
0x2d74…2d98 Head {h00=0x0020, h01=0x0050, text=» ADS A3,DWTOR,A6 ORDER INDEX«, t00=0x001d, t01=0x0034}
0x2d98…2dac Head {h00=0x0010, h01=0x0050, text=»REW010 EQU *«, t00=0x001d, t01=0x0058}
0x2dac…2dc2 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/400 «, t00=0x001d, t01=0x006c}
0x2dc2…2dd4 Head {h00=0x000e, h01=0x0050, text=» TM A4,A7 «, t00=0x001d, t01=0x0082}
0x2dd4…2df2 Head {h00=0x001a, h01=0x0050, text=» RF(NZ) REW020 CURRENT«, t00=0x001d, t01=0x0094}
0x2df2…2e04 Head {h00=0x000e, h01=0x0050, text=» SRL A7,8 «, t00=0x001d, t01=0x00b2}
0x2e04…2e16 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x001d, t01=0x00c4}
0x2e16…2e32 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) TIOD19 ERROR«, t00=0x001d, t01=0x00d6}
0x2e32…2e4c Head {h00=0x0016, h01=0x0050, text=» ABL TIODMB DIRECT«, t00=0x001d, t01=0x00f2}
0x2e4c…2e60 Head {h00=0x0010, h01=0x0050, text=»REW020 EQU *«, t00=0x001d, t01=0x010c}
0x2e60…2e76 Head {h00=0x0012, h01=0x0050, text=» ANKL A7,/300 «, t00=0x001d, t01=0x0120}
0x2e76…2e90 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) TIOD19 ERR«, t00=0x001d, t01=0x0136}
0x2e90…2eaa Head {h00=0x0016, h01=0x0050, text=» LD A3,CRNCDF+2,A2«, t00=0x001d, t01=0x0150}
0x2eaa…2ee4 Head {h00=0x0036, h01=0x0050, text=» LD A2,CRNCDF,A2 REC NR (NO FILE ID FOR DATA FILE)«, t00=0x001d, t01=0x016a}
0x2ee4…2ef8 Head {h00=0x0010, h01=0x0050, text=» ABL TIODMA «, t00=0x001e, t01=0x0014}
0x2ef8…2f0e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x001e, t01=0x0028}
0x2f0e…2f1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x003e}
0x2f1c…2f3e Head {h00=0x001e, h01=0x0050, text=»STAIND EQU * START INDEXED«, t00=0x001e, t01=0x004c}
0x2f3e…2f5a Head {h00=0x0018, h01=0x0050, text=» SRL A7,10 INDEX * 2«, t00=0x001e, t01=0x006e}
0x2f5a…2f7c Head {h00=0x001e, h01=0x0050, text=» LD A9,ECBRL,A8 KEY LENGTH«, t00=0x001e, t01=0x008a}
0x2f7c…2f8e Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x001e, t01=0x00ac}
0x2f8e…2fa0 Head {h00=0x000e, h01=0x0050, text=» RF STA090«, t00=0x001e, t01=0x00be}
0x2fa0…2fae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00d0}
0x2fae…2fd6 Head {h00=0x0024, h01=0x0050, text=»IXRARE EQU * INDEXED RANDOM READ«, t00=0x001e, t01=0x00de}
0x2fd6…2fe8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x001e, t01=0x0106}
0x2fe8…300c Head {h00=0x0020, h01=0x0050, text=» LDKL A9,/40 MAX KEY LENGTH «, t00=0x001e, t01=0x0118}
0x300c…302c Head {h00=0x001c, h01=0x0050, text=»STA090 EQU * START ORDER«, t00=0x001e, t01=0x013c}
0x302c…3050 Head {h00=0x0020, h01=0x0050, text=» ADS A1,DWTOR,A6 ORDER INDEX«, t00=0x001e, t01=0x015c}
0x3050…3062 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x001e, t01=0x0180}
0x3062…3074 (31, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x001f, t01=0x0004}
0x3074…3096 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/FFF9 1-4 INDEXES«, t00=0x001f, t01=0x0016}
0x3096…30b2 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) TIOD19 ERROR«, t00=0x001f, t01=0x0038}
0x30b2…30d6 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A6 BASE IN DATA FDB «, t00=0x001f, t01=0x0054}
0x30d6…30fe Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBAI1,A7 INDEX FDB ADDR «, t00=0x001f, t01=0x0078}
0x30fe…3118 Head {h00=0x0016, h01=0x0050, text=» ABL(Z) TIOD19 ERR«, t00=0x001f, t01=0x00a0}
0x3118…312a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x001f, t01=0x00ba}
0x312a…3134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00cc}
0x3134…314e Head {h00=0x0016, h01=0x0050, text=»* COPY DWT ITEMS«, t00=0x001f, t01=0x00d6}
0x314e…3158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f0}
0x3158…3172 Head {h00=0x0016, h01=0x0050, text=» LD A1,DWTECB,A6 «, t00=0x001f, t01=0x00fa}
0x3172…318a Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTECB,A2«, t00=0x001f, t01=0x0114}
0x318a…31a2 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x001f, t01=0x012c}
0x31a2…31ba Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTOR,A2 «, t00=0x001f, t01=0x0144}
0x31ba…31dc Head {h00=0x001e, h01=0x0050, text=»* PUT ZEROES TO KEY AREA«, t00=0x001f, t01=0x015c}
0x31dc…31e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017e}
0x31e6…31fe Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBRLE,A2«, t00=0x001f, t01=0x0188}
0x31fe…321a Head {h00=0x0018, h01=0x0050, text=» SUK A1,6 KEY LENGTH«, t00=0x0020, t01=0x0010}
0x321a…322e Head {h00=0x0010, h01=0x0050, text=»IXR050 EQU *«, t00=0x0020, t01=0x002c}
0x322e…3244 Head {h00=0x0012, h01=0x0050, text=» CM FDBKEY,A2 «, t00=0x0020, t01=0x0040}
0x3244…3256 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0020, t01=0x0056}
0x3256…3268 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0020, t01=0x0068}
0x3268…328c Head {h00=0x0020, h01=0x0050, text=» RB(P) IXR050 MORE TO CLEAR «, t00=0x0020, t01=0x007a}
0x328c…329a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x009e}
0x329a…32a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ac}
0x32a4…32c6 Head {h00=0x001e, h01=0x0050, text=»* FETCH KEY TO INDEX FDB«, t00=0x0020, t01=0x00b6}
0x32c6…32d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d8}
0x32d0…32f4 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBBA,A8 RECORD ADDR «, t00=0x0020, t01=0x00e2}
0x32f4…3314 Head {h00=0x001c, h01=0x0050, text=» AD A1,FDBKA,A7 KEY ADDR«, t00=0x0020, t01=0x0106}
0x3314…332a Head {h00=0x0012, h01=0x0050, text=» LDK A3,FDBKEY«, t00=0x0020, t01=0x0126}
0x332a…3344 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A7 TO ADDR«, t00=0x0020, t01=0x013c}
0x3344…334e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0156}
0x334e…3380 Head {h00=0x002e, h01=0x0050, text=»* KEY LGTH IS MIN OF A9 AND RECLGTH - 6 «, t00=0x0020, t01=0x0160}
0x3380…338a (33, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0004}
0x338a…33a2 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBRLE,A7«, t00=0x0021, t01=0x000e}
0x33a2…33c0 Head {h00=0x001a, h01=0x0050, text=» SUK A2,6 MAX KEY LGTH«, t00=0x0021, t01=0x0026}
0x33c0…33d2 Head {h00=0x000e, h01=0x0050, text=» CWR A2,A9«, t00=0x0021, t01=0x0044}
0x33d2…33ea Head {h00=0x0014, h01=0x0050, text=» RF(NG) IXR070 «, t00=0x0021, t01=0x0056}
0x33ea…3410 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 TAKE SMALLEST LGTH «, t00=0x0021, t01=0x006e}
0x3410…3424 Head {h00=0x0010, h01=0x0050, text=»IXR070 EQU *«, t00=0x0021, t01=0x0094}
0x3424…343c Head {h00=0x0014, h01=0x0050, text=» LDR A9,A2 SAVE «, t00=0x0021, t01=0x00a8}
0x343c…3452 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0021, t01=0x00c0}
0x3452…3472 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTBM FETCH KEY «, t00=0x0021, t01=0x00d6}
0x3472…347e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00f6}
0x347e…3494 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x0102}
0x3494…34aa Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0021, t01=0x0118}
0x34aa…34bc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0021, t01=0x012e}
0x34bc…34d6 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A3 TO ADDR«, t00=0x0021, t01=0x0140}
0x34d6…34ee Head {h00=0x0014, h01=0x0050, text=» LDR A3,A4 LGTH «, t00=0x0021, t01=0x015a}
0x34ee…3504 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVZUS«, t00=0x0021, t01=0x0172}
0x3504…3510 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0188}
0x3510…3526 (34, 0, 398) Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0022, t01=0x0004}
0x3526…3530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x001a}
0x3530…3564 Head {h00=0x0030, h01=0x0050, text=»* INCREASE KEY IF 'START GREATER ' IS REQ «, t00=0x0022, t01=0x0024}
0x3564…356e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0058}
0x356e…3582 Head {h00=0x0010, h01=0x0050, text=» CWK A5,QSTA«, t00=0x0022, t01=0x0062}
0x3582…35a2 Head {h00=0x001c, h01=0x0050, text=» RF(NE) STA020 NOT START«, t00=0x0022, t01=0x0076}
0x35a2…35ba Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTOPT,A7«, t00=0x0022, t01=0x0096}
0x35ba…35d4 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/7 OPTION «, t00=0x0022, t01=0x00ae}
0x35d4…35e6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0022, t01=0x00c8}
0x35e6…3608 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) STA020 NOT GREATER«, t00=0x0022, t01=0x00da}
0x3608…361a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0022, t01=0x00fc}
0x361a…3642 Head {h00=0x0024, h01=0x0050, text=» ADKL A2,FDBKEY ADDR FIRST BYTE «, t00=0x0022, t01=0x010e}
0x3642…365a Head {h00=0x0014, h01=0x0050, text=» LDR A3,A9 LGTH «, t00=0x0022, t01=0x0136}
0x365a…366c Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0022, t01=0x014e}
0x366c…3680 Head {h00=0x0010, h01=0x0050, text=»STA010 EQU *«, t00=0x0022, t01=0x0160}
0x3680…36a2 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 ADDR LAST BYTE «, t00=0x0022, t01=0x0174}
0x36a2…36b4 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x0023, t01=0x0008}
0x36b4…36d6 Head {h00=0x001e, h01=0x0050, text=» ADK A1,1 NEXT HIGHER KEY «, t00=0x0023, t01=0x001a}
0x36d6…36e8 Head {h00=0x000e, h01=0x0050, text=» SCR A1,A3«, t00=0x0023, t01=0x003c}
0x36e8…3706 Head {h00=0x001a, h01=0x0050, text=» ANK A1,/FF OVERFLOW ?«, t00=0x0023, t01=0x004e}
0x3706…3720 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) STA020 NO «, t00=0x0023, t01=0x006c}
0x3720…3732 Head {h00=0x000e, h01=0x0050, text=» CWR A2,A3«, t00=0x0023, t01=0x0086}
0x3732…3754 Head {h00=0x001e, h01=0x0050, text=» RB(NE) STA010 MORE BYTES «, t00=0x0023, t01=0x0098}
0x3754…3768 Head {h00=0x0010, h01=0x0050, text=»STA020 EQU *«, t00=0x0023, t01=0x00ba}
0x3768…3772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ce}
0x3772…3792 Head {h00=0x001c, h01=0x0050, text=»* SWITCH TO INDEX FDB «, t00=0x0023, t01=0x00d8}
0x3792…379c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f8}
0x379c…37b8 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A7 INDEX FDB«, t00=0x0023, t01=0x0102}
0x37b8…37ca Head {h00=0x000e, h01=0x0050, text=» RF TIORRO«, t00=0x0023, t01=0x011e}
0x37ca…37d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0130}
0x37d6…37e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x013c}
0x37e4…37f6 Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0023, t01=0x014a}
0x37f6…380c Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x0023, t01=0x015c}
0x380c…3830 Head {h00=0x0020, h01=0x0050, text=» RF(E) OPE050 FILE CODE FREE«, t00=0x0023, t01=0x0172}
0x3830…3848 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,EDMERR «, t00=0x0024, t01=0x0008}
0x3848…3866 Head {h00=0x001a, h01=0x0050, text=» LDK A4,FCUSED FC USED«, t00=0x0024, t01=0x0020}
0x3866…3886 Head {h00=0x001c, h01=0x0050, text=» SC A4,CRNSTA,A2 STATUSA«, t00=0x0024, t01=0x003e}
0x3886…389a Head {h00=0x0010, h01=0x0050, text=» ABL TIODMX «, t00=0x0024, t01=0x005e}
0x389a…38ae Head {h00=0x0010, h01=0x0050, text=»OPE050 EQU *«, t00=0x0024, t01=0x0072}
0x38ae…38c4 Head {h00=0x0012, h01=0x0050, text=» LDK A1,LGTERR«, t00=0x0024, t01=0x0086}
0x38c4…38e6 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,FPB:FR+8 MIN LGTH«, t00=0x0024, t01=0x009c}
0x38e6…3902 Head {h00=0x0018, h01=0x0050, text=» CW A4,ECBRL,A8 REQ «, t00=0x0024, t01=0x00be}
0x3902…391c Head {h00=0x0016, h01=0x0050, text=» ABL(G) TIODMX ERR«, t00=0x0024, t01=0x00da}
0x391c…3930 Head {h00=0x0010, h01=0x0050, text=»TIORRO EQU *«, t00=0x0024, t01=0x00f4}
0x3930…3944 Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-1 «, t00=0x0024, t01=0x0108}
0x3944…396c Head {h00=0x0024, h01=0x0050, text=» ST A4,FDBRRO,A6 MARK ORDER TYPE«, t00=0x0024, t01=0x011c}
0x396c…3990 Head {h00=0x0020, h01=0x0050, text=» ABL TIOD68 ACTIVATE DMTASK «, t00=0x0024, t01=0x0144}
0x3990…399a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0168}
0x399a…39c4 Head {h00=0x0026, h01=0x0050, text=»RDFILP EQU * READ FILE PARAMETERS «, t00=0x0024, t01=0x0172}
0x39c4…39de Head {h00=0x0016, h01=0x0050, text=» LD A3,CRNCDF+2,A2«, t00=0x0025, t01=0x000c}
0x39de…3a06 Head {h00=0x0024, h01=0x0050, text=» LD A2,CRNCDF,A2 CURRENT RECORD «, t00=0x0025, t01=0x0026}
0x3a06…3a1e Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0025, t01=0x004e}
0x3a1e…3a38 Head {h00=0x0016, h01=0x0050, text=» ST A3,ECBCW+2,A8 «, t00=0x0025, t01=0x0066}
0x3a38…3a4a Head {h00=0x000e, h01=0x0050, text=» RB TIORRO«, t00=0x0025, t01=0x0080}
0x3a4a…3a58 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0092}
0x3a58…3a76 Head {h00=0x001a, h01=0x0050, text=»CLOSE EQU * CLOSE FILE«, t00=0x0025, t01=0x00a0}
0x3a76…3a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00be}
0x3a80…3aac Head {h00=0x0028, h01=0x0050, text=»* CONNECT FILE CODE TO SYSTEM FWT «, t00=0x0025, t01=0x00c8}
0x3aac…3ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f4}
0x3ab6…3ade Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTTAB,A6 USER TTAB ADDR «, t00=0x0025, t01=0x00fe}
0x3ade…3af2 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A8 «, t00=0x0025, t01=0x0126}
0x3af2…3b10 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF FILE CODE «, t00=0x0025, t01=0x013a}
0x3b10…3b38 Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 SEARCH TTAB AND CDTAB «, t00=0x0025, t01=0x0158}
0x3b38…3b56 Head {h00=0x001a, h01=0x0050, text=» CF A14,FNDFDB SEARCH «, t00=0x0025, t01=0x0180}
0x3b56…3b7e Head {h00=0x0024, h01=0x0050, text=» LDKL A2,FDBSTA SYSTEM FWT ADDR «, t00=0x0026, t01=0x000e}
0x3b7e…3b9a Head {h00=0x0018, h01=0x0050, text=» ST A2,2,A4 FC ENTRY«, t00=0x0026, t01=0x0036}
0x3b9a…3bac Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0026, t01=0x0052}
0x3bac…3bc4 Head {h00=0x0014, h01=0x0050, text=» LC A2,FDBLRN,A6«, t00=0x0026, t01=0x0064}
0x3bc4…3bee Head {h00=0x0026, h01=0x0050, text=» LD A3,FDBLRN+1,A6 LAST RECORD NR «, t00=0x0026, t01=0x007c}
0x3bee…3c04 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CLO100«, t00=0x0026, t01=0x00a6}
0x3c04…3c16 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0026, t01=0x00bc}
0x3c16…3c2c Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CLO100«, t00=0x0026, t01=0x00ce}
0x3c2c…3c42 Head {h00=0x0012, h01=0x0050, text=» LDK A3,1 LRN «, t00=0x0026, t01=0x00e4}
0x3c42…3c56 Head {h00=0x0010, h01=0x0050, text=»CLO100 EQU *«, t00=0x0026, t01=0x00fa}
0x3c56…3c68 Head {h00=0x000e, h01=0x0050, text=» RF TIODMD«, t00=0x0026, t01=0x010e}
0x3c68…3c76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0120}
0x3c76…3c9c Head {h00=0x0022, h01=0x0050, text=»SEQREAD EQU * SEQUENTIAL READ «, t00=0x0026, t01=0x012e}
0x3c9c…3cae Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0026, t01=0x0154}
0x3cae…3cd2 Head {h00=0x0020, h01=0x0050, text=» ADS A1,DWTOR,A6 ORDER INDEX«, t00=0x0026, t01=0x0166}
0x3cd2…3cfc Head {h00=0x0026, h01=0x0050, text=» LD A3,CRNCDF+2,A2 CURR LOG REC NO«, t00=0x0026, t01=0x018a}
0x3cfc…3d2e Head {h00=0x002e, h01=0x0050, text=» LD A2,CRNCDF,A2 NO FILE ID FOR DATA FILE «, t00=0x0027, t01=0x0024}
0x3d2e…3d46 Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0027, t01=0x0056}
0x3d46…3d64 Head {h00=0x001a, h01=0x0050, text=» RF(O) SEQR10 OVERFLOW«, t00=0x0027, t01=0x006e}
0x3d64…3d76 Head {h00=0x000e, h01=0x0050, text=» RF SEQR20«, t00=0x0027, t01=0x008c}
0x3d76…3d8a Head {h00=0x0010, h01=0x0050, text=»SEQR10 EQU *«, t00=0x0027, t01=0x009e}
0x3d8a…3db0 Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/7FFF REMOVE OVERFLOW«, t00=0x0027, t01=0x00b2}
0x3db0…3dcc Head {h00=0x0018, h01=0x0050, text=» ADK A2,1 ADD CARRY «, t00=0x0027, t01=0x00d8}
0x3dcc…3de0 Head {h00=0x0010, h01=0x0050, text=»SEQR20 EQU *«, t00=0x0027, t01=0x00f4}
0x3de0…3df2 Head {h00=0x000e, h01=0x0050, text=» RF RAN050«, t00=0x0027, t01=0x0108}
0x3df2…3e00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x011a}
0x3e00…3e22 Head {h00=0x001e, h01=0x0050, text=»RANREAD EQU * RANDOM READ «, t00=0x0027, t01=0x0128}
0x3e22…3e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x014a}
0x3e2c…3e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0154}
0x3e36…3e54 Head {h00=0x001a, h01=0x0050, text=»* TEST IF ECBRL <= 0«, t00=0x0027, t01=0x015e}
0x3e54…3e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017c}
0x3e5e…3e7c Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 REC NR«, t00=0x0027, t01=0x0186}
0x3e7c…3e96 Head {h00=0x0016, h01=0x0050, text=» LD A3,ECBCW+2,A8 «, t00=0x0028, t01=0x0014}
0x3e96…3eaa Head {h00=0x0010, h01=0x0050, text=»RAN050 EQU *«, t00=0x0028, t01=0x002e}
0x3eaa…3ed2 Head {h00=0x0024, h01=0x0050, text=» LDK A1,LGTERR INCORRECT LENGTH «, t00=0x0028, t01=0x0042}
0x3ed2…3eea Head {h00=0x0014, h01=0x0050, text=» LD A4,ECBRL,A8 «, t00=0x0028, t01=0x006a}
0x3eea…3f1a Head {h00=0x002c, h01=0x0050, text=» ABL(NP) TIODME ERROR RETURN IF RL <= 0 «, t00=0x0028, t01=0x0082}
0x3f1a…3f2c Head {h00=0x000e, h01=0x0050, text=» RF TIODMA«, t00=0x0028, t01=0x00b2}
0x3f2c…3f3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00c4}
0x3f3a…3f50 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0028, t01=0x00d2}
0x3f50…3f74 Head {h00=0x0020, h01=0x0050, text=»IXINS EQU * INDEXED INSRERT «, t00=0x0028, t01=0x00e8}
0x3f74…3f86 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x0028, t01=0x010c}
0x3f86…3faa Head {h00=0x0020, h01=0x0050, text=» ADS A2,DWTOR,A6 ORDER INDEX«, t00=0x0028, t01=0x011e}
0x3faa…3fc0 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0028, t01=0x0142}
0x3fc0…3fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0158}
0x3fca…3ff0 Head {h00=0x0022, h01=0x0050, text=»* MOVE KEYS TO FDB KEY AREAS«, t00=0x0028, t01=0x0162}
0x3ff0…3ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0188}
0x3ffa…400c (41, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDK A5,8 «, t00=0x0029, t01=0x0004}
0x400c…4020 Head {h00=0x0010, h01=0x0050, text=»IXINS3 EQU *«, t00=0x0029, t01=0x0016}
0x4020…403c Head {h00=0x0018, h01=0x0050, text=» LDR A2,A6 FDB DATA «, t00=0x0029, t01=0x002a}
0x403c…404e Head {h00=0x000e, h01=0x0050, text=» ADR A2,A5«, t00=0x0029, t01=0x0046}
0x404e…4070 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBADF,A2 FDB INDEX«, t00=0x0029, t01=0x0058}
0x4070…408e Head {h00=0x001a, h01=0x0050, text=» RF(Z) IXINS4 NO INDEX«, t00=0x0029, t01=0x007a}
0x408e…40ae Head {h00=0x001c, h01=0x0050, text=» LD A1,FDBKA,A3 KEY ADDR«, t00=0x0029, t01=0x0098}
0x40ae…40d8 Head {h00=0x0026, h01=0x0050, text=» AD A1,ECBBA,A8 ADD USER BUF ADDR «, t00=0x0029, t01=0x00b8}
0x40d8…40fe Head {h00=0x0022, h01=0x0050, text=» LDK A2,FDBKEY KEY AREA DISPL «, t00=0x0029, t01=0x00e2}
0x40fe…411e Head {h00=0x001c, h01=0x0050, text=» ADR A2,A3 ADD FDB ADDR «, t00=0x0029, t01=0x0108}
0x411e…4140 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBRLE,A3 REC LGTH «, t00=0x0029, t01=0x0128}
0x4140…415a Head {h00=0x0016, h01=0x0050, text=» SUK A3,6 KEY LGTH«, t00=0x0029, t01=0x014a}
0x415a…4180 Head {h00=0x0022, h01=0x0050, text=» CF A14,MOVZUS KEY TO FDB AREA«, t00=0x0029, t01=0x0164}
0x4180…4194 Head {h00=0x0010, h01=0x0050, text=»IXINS4 EQU *«, t00=0x0029, t01=0x018a}
0x4194…41a6 Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x002a, t01=0x000e}
0x41a6…41c8 Head {h00=0x001e, h01=0x0050, text=» RB(NZ) IXINS3 MORE INDEXS«, t00=0x002a, t01=0x0020}
0x41c8…41d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0042}
0x41d4…41de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x004e}
0x41de…4206 Head {h00=0x0024, h01=0x0050, text=»SEQWRITE EQU * SEQUENTIAL WRITE «, t00=0x002a, t01=0x0058}
0x4206…4210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0080}
0x4210…4222 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x002a, t01=0x008a}
0x4222…4246 Head {h00=0x0020, h01=0x0050, text=» ADS A2,DWTOR,A6 ORDER INDEX«, t00=0x002a, t01=0x009c}
0x4246…425e Head {h00=0x0014, h01=0x0050, text=» LC A2,FDBLRN,A6«, t00=0x002a, t01=0x00c0}
0x425e…427c Head {h00=0x001a, h01=0x0050, text=» LD A3,FDBLRN+1,A6 LRN«, t00=0x002a, t01=0x00d8}
0x427c…4292 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002a, t01=0x00f6}
0x4292…42b6 Head {h00=0x0020, h01=0x0050, text=» RF IXR020 STORE LOG REC NO «, t00=0x002a, t01=0x010c}
0x42b6…42c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0130}
0x42c4…42ec Head {h00=0x0024, h01=0x0050, text=»IXRDNX EQU * INDEXED EREAD NEXT «, t00=0x002a, t01=0x013e}
0x42ec…430e Head {h00=0x001e, h01=0x0050, text=» LDR A4,A2 CRN BUFFER ADDR«, t00=0x002a, t01=0x0166}
0x430e…4320 Head {h00=0x000e, h01=0x0050, text=» LDK A1,6 «, t00=0x002a, t01=0x0188}
0x4320…4344 Head {h00=0x0020, h01=0x0050, text=» ADS A1,DWTOR,A6 ORDER INDEX«, t00=0x002b, t01=0x000a}
0x4344…4356 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x002b, t01=0x002e}
0x4356…4368 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x002b, t01=0x0040}
0x4368…438a Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/FFF9 1-4 INDEXES«, t00=0x002b, t01=0x0052}
0x438a…43a6 Head {h00=0x0018, h01=0x0050, text=» ABL(NZ) TIOD19 ERR «, t00=0x002b, t01=0x0074}
0x43a6…43be Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A6 «, t00=0x002b, t01=0x0090}
0x43be…43ea Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTECB,A6 ITEMS TO INDEX FDB «, t00=0x002b, t01=0x00a8}
0x43ea…43f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d4}
0x43f4…440a Head {h00=0x0012, h01=0x0050, text=»* SWITCH FDB«, t00=0x002b, t01=0x00de}
0x440a…4414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f4}
0x4414…4426 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A6«, t00=0x002b, t01=0x00fe}
0x4426…444e Head {h00=0x0024, h01=0x0050, text=» LD A7,FDBAI1,A7 INDEX FDB ADDR «, t00=0x002b, t01=0x0110}
0x444e…4468 Head {h00=0x0016, h01=0x0050, text=» ABL(Z) TIOD19 ERR«, t00=0x002b, t01=0x0138}
0x4468…447a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A7«, t00=0x002b, t01=0x0152}
0x447a…4492 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTOR,A6 «, t00=0x002b, t01=0x0164}
0x4492…44c0 Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTECB,A6 ITEMS FROM DATA FILE «, t00=0x002b, t01=0x017c}
0x44c0…44ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001a}
0x44ca…44de Head {h00=0x0010, h01=0x0050, text=»* GET CRN «, t00=0x002c, t01=0x0024}
0x44de…44e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0038}
0x44e8…44fa Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x002c, t01=0x0042}
0x44fa…450c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002c, t01=0x0054}
0x450c…4516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0066}
0x4516…453a Head {h00=0x0020, h01=0x0050, text=»* CHECK THAT FILE ID IS OK«, t00=0x002c, t01=0x0070}
0x453a…4544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0094}
0x4544…4564 Head {h00=0x001c, h01=0x0050, text=» LC A7,FWTFNR,A6 FILE NR«, t00=0x002c, t01=0x009e}
0x4564…457c Head {h00=0x0014, h01=0x0050, text=» CC A7,CRNCIF,A4«, t00=0x002c, t01=0x00be}
0x457c…45ae Head {h00=0x002e, h01=0x0050, text=» RF(NE) IXR020 OTHER INDEX FILE IS CURRENT«, t00=0x002c, t01=0x00d6}
0x45ae…45c8 Head {h00=0x0016, h01=0x0050, text=» LC A2,CRNCIF+1,A4«, t00=0x002c, t01=0x0108}
0x45c8…45ee Head {h00=0x0022, h01=0x0050, text=» LD A3,CRNCIF+2,A4 LOG REC NO «, t00=0x002c, t01=0x0122}
0x45ee…45fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0148}
0x45fa…4608 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0154}
0x4608…461c Head {h00=0x0010, h01=0x0050, text=»IXR020 EQU *«, t00=0x002c, t01=0x0162}
0x461c…462e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002c, t01=0x0176}
0x462e…464c Head {h00=0x001a, h01=0x0050, text=» RF(O) IXR030 OVERFLOW«, t00=0x002c, t01=0x0188}
0x464c…465e Head {h00=0x000e, h01=0x0050, text=» RF IXR040«, t00=0x002d, t01=0x0016}
0x465e…468e Head {h00=0x002c, h01=0x0050, text=»IXR030 ANKL A3,/7FFF REMOVE OVERFLOW BIT«, t00=0x002d, t01=0x0028}
0x468e…46aa Head {h00=0x0018, h01=0x0050, text=» ADK A2,1 ADK CARRY «, t00=0x002d, t01=0x0058}
0x46aa…46be Head {h00=0x0010, h01=0x0050, text=»IXR040 EQU *«, t00=0x002d, t01=0x0074}
0x46be…46ec Head {h00=0x002a, h01=0x0050, text=» RF TIODMA DO NOT CHECK EOF CONDITION «, t00=0x002d, t01=0x0088}
0x46ec…46fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00b6}
0x46fa…471a Head {h00=0x001c, h01=0x0050, text=»STARTO EQU * START ORDER«, t00=0x002d, t01=0x00c4}
0x471a…4730 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002d, t01=0x00e4}
0x4730…4742 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x002d, t01=0x00fa}
0x4742…475e Head {h00=0x0018, h01=0x0050, text=» SRL A4,10 INDEX * 2«, t00=0x002d, t01=0x010c}
0x475e…4784 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) STAIND START INDEXED «, t00=0x002d, t01=0x0128}
0x4784…4790 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x014e}
0x4790…47ae Head {h00=0x001a, h01=0x0050, text=» LD A2,ECBCW,A8 REC NR«, t00=0x002d, t01=0x015a}
0x47ae…47c8 Head {h00=0x0016, h01=0x0050, text=» LD A3,ECBCW+2,A8 «, t00=0x002d, t01=0x0178}
0x47c8…47da (46, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ECR A4,A7«, t00=0x002e, t01=0x0004}
0x47da…47f4 Head {h00=0x0016, h01=0x0050, text=» ANK A4,/7 OPTION «, t00=0x002e, t01=0x0016}
0x47f4…4806 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002e, t01=0x0030}
0x4806…4828 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) TIODMA NOT GREATER«, t00=0x002e, t01=0x0042}
0x4828…484a Head {h00=0x001e, h01=0x0050, text=» RB IXR020 GET NEXT REC NR«, t00=0x002e, t01=0x0064}
0x484a…4858 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0086}
0x4858…4862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0094}
0x4862…4884 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x002e, t01=0x009e}
0x4884…48a6 Head {h00=0x001e, h01=0x0050, text=»* DMTASK ACTIVATION * «, t00=0x002e, t01=0x00c0}
0x48a6…48c8 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x002e, t01=0x00e2}
0x48c8…48d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0104}
0x48d2…48e6 Head {h00=0x0010, h01=0x0050, text=»TIODMA EQU *«, t00=0x002e, t01=0x010e}
0x48e6…4904 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBCW,A8 REC NR«, t00=0x002e, t01=0x0122}
0x4904…491e Head {h00=0x0016, h01=0x0050, text=» ST A3,ECBCW+2,A8 «, t00=0x002e, t01=0x0140}
0x491e…4930 Head {h00=0x000e, h01=0x0050, text=» RF TIODMC«, t00=0x002e, t01=0x015a}
0x4930…4954 Head {h00=0x0020, h01=0x0050, text=»TIODMB LD A2,ECBCW,A8 REC NR«, t00=0x002e, t01=0x016c}
0x4954…496e Head {h00=0x0016, h01=0x0050, text=» LD A3,ECBCW+2,A8 «, t00=0x002e, t01=0x0190}
0x496e…4982 Head {h00=0x0010, h01=0x0050, text=»TIODMC EQU *«, t00=0x002f, t01=0x001a}
0x4982…498c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x002e}
0x498c…49ac Head {h00=0x001c, h01=0x0050, text=»* NO EA FOR OTHER TASK«, t00=0x002f, t01=0x0038}
0x49ac…49b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0058}
0x49b6…49d8 Head {h00=0x001e, h01=0x0050, text=» LD A1,FDBADF,A6 FDB ADDR «, t00=0x002f, t01=0x0062}
0x49d8…49ee Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x002f, t01=0x0084}
0x49ee…4a08 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A4 RTN INF«, t00=0x002f, t01=0x009a}
0x4a08…4a2c Head {h00=0x0020, h01=0x0050, text=» RF(N) TIODPE EA OTHER TASK «, t00=0x002f, t01=0x00b4}
0x4a2c…4a40 Head {h00=0x0010, h01=0x0050, text=»TIODMD EQU *«, t00=0x002f, t01=0x00d8}
0x4a40…4a52 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x002f, t01=0x00ec}
0x4a52…4a6c Head {h00=0x0016, h01=0x0050, text=» LDR A2,A3 REC NR «, t00=0x002f, t01=0x00fe}
0x4a6c…4aa6 Head {h00=0x0036, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NO AND OFFSET IN SECTOR «, t00=0x002f, t01=0x0118}
0x4aa6…4ac4 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN INF «, t00=0x002f, t01=0x0152}
0x4ac4…4ada Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TIODME«, t00=0x002f, t01=0x0170}
0x4ada…4ae8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0186}
0x4ae8…4af2 (48, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0004}
0x4af2…4b24 Head {h00=0x002e, h01=0x0050, text=»* ACTIVATE DMTASK WITH FDB ADDRESS IN A1«, t00=0x0030, t01=0x000e}
0x4b24…4b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0040}
0x4b2e…4b42 Head {h00=0x0010, h01=0x0050, text=»TIOD68 EQU *«, t00=0x0030, t01=0x004a}
0x4b42…4b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x005e}
0x4b4c…4b6c Head {h00=0x001c, h01=0x0050, text=»* PREPARE DM INTERFACE«, t00=0x0030, t01=0x0068}
0x4b6c…4b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0088}
0x4b76…4b8c Head {h00=0x0012, h01=0x0050, text=» LDKL A8,'#D' «, t00=0x0030, t01=0x0092}
0x4b8c…4b98 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0030, t01=0x00a8}
0x4b98…4baa Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0030, t01=0x00b4}
0x4baa…4bc8 Head {h00=0x001a, h01=0x0050, text=» LD A1,DWTOR,A6 ORDER «, t00=0x0030, t01=0x00c6}
0x4bc8…4bdc Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0030, t01=0x00e4}
0x4bdc…4bf2 Head {h00=0x0012, h01=0x0050, text=» SUK A1,OPENOF«, t00=0x0030, t01=0x00f8}
0x4bf2…4c18 Head {h00=0x0022, h01=0x0050, text=» RF(NN) TIOD72 OPEN CLOSE,RDFP«, t00=0x0030, t01=0x010e}
0x4c18…4c40 Head {h00=0x0024, h01=0x0050, text=» LC A7,FDBDMI,A6 TID FOR DMTASK «, t00=0x0030, t01=0x0134}
0x4c40…4c52 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A8«, t00=0x0030, t01=0x015c}
0x4c52…4c78 Head {h00=0x0022, h01=0x0050, text=» CF A15,FNDTID A2 = TTAB ADDR «, t00=0x0030, t01=0x016e}
0x4c78…4c8a (49, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0031, t01=0x0004}
0x4c8a…4ca0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) TASHLT «, t00=0x0031, t01=0x0016}
0x4ca0…4cb8 Head {h00=0x0014, h01=0x0050, text=» LD A1,TTB:SA,A2«, t00=0x0031, t01=0x002c}
0x4cb8…4cd8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TIOD70 NOT ACTIVE«, t00=0x0031, t01=0x0044}
0x4cd8…4cea Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0031, t01=0x0064}
0x4cea…4cf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0076}
0x4cf8…4d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0084}
0x4d02…4d22 Head {h00=0x001c, h01=0x0050, text=»* GET SECONDARY DMTASK«, t00=0x0031, t01=0x008e}
0x4d22…4d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ae}
0x4d2c…4d56 Head {h00=0x0026, h01=0x0050, text=» LC A1,FWTVOL,A6 VOLUME FILE CODE «, t00=0x0031, t01=0x00b8}
0x4d56…4d6a Head {h00=0x0010, h01=0x0050, text=»TIOD69 EQU *«, t00=0x0031, t01=0x00e2}
0x4d6a…4d82 Head {h00=0x0014, h01=0x0050, text=» CC A1,DFTAB,A7 «, t00=0x0031, t01=0x00f6}
0x4d82…4da2 Head {h00=0x001c, h01=0x0050, text=» RF(E) TIOD71 SAME CODE «, t00=0x0031, t01=0x010e}
0x4da2…4db4 Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0031, t01=0x012e}
0x4db4…4dd2 Head {h00=0x001a, h01=0x0050, text=» RB TIOD69 SEARCH NEXT«, t00=0x0031, t01=0x0140}
0x4dd2…4de6 Head {h00=0x0010, h01=0x0050, text=»TIOD71 EQU *«, t00=0x0031, t01=0x015e}
0x4de6…4e16 Head {h00=0x002c, h01=0x0050, text=» LC A7,DMTIDS,A7 SECONDARY DMTASK REL ID«, t00=0x0031, t01=0x0172}
0x4e16…4e2a Head {h00=0x0010, h01=0x0050, text=»TIOD72 EQU *«, t00=0x0032, t01=0x0012}
0x4e2a…4e44 Head {h00=0x0016, h01=0x0050, text=» ADR A7,A8 TASK ID«, t00=0x0032, t01=0x0026}
0x4e44…4e68 Head {h00=0x0020, h01=0x0050, text=» CF A15,FNDTID A2:=TTAB ADDR«, t00=0x0032, t01=0x0040}
0x4e68…4e7a Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x0032, t01=0x0064}
0x4e7a…4e90 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) TIOD70«, t00=0x0032, t01=0x0076}
0x4e90…4ebc Head {h00=0x0028, h01=0x0050, text=»TASHLT EQU * ABNORMAL SYSTEM ERRORS «, t00=0x0032, t01=0x008c}
0x4ebc…4ed6 Head {h00=0x0016, h01=0x0050, text=» LDK A1,/11 DM ERR«, t00=0x0032, t01=0x00b8}
0x4ed6…4eea Head {h00=0x0010, h01=0x0050, text=» CF A15,HALT«, t00=0x0032, t01=0x00d2}
0x4eea…4f18 Head {h00=0x002a, h01=0x0050, text=»TIOD70 LDKL A2,DMTASK DISPATCH ADDRESS«, t00=0x0032, t01=0x00e6}
0x4f18…4f36 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS«, t00=0x0032, t01=0x0114}
0x4f36…4f54 Head {h00=0x001a, h01=0x0050, text=»* USED REGS A1-A3,A5«, t00=0x0032, t01=0x0132}
0x4f54…4f7a Head {h00=0x0022, h01=0x0050, text=» CF A15,ACTOT ACTIVATE DMTASK «, t00=0x0032, t01=0x0150}
0x4f7a…4f8c Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0032, t01=0x0176}
0x4f8c…4f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0188}
0x4f96…4fa4 (51, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0004}
0x4fa4…4fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0012}
0x4fae…4fc4 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0033, t01=0x001c}
0x4fc4…4fda Head {h00=0x0012, h01=0x0050, text=»* TIODME *«, t00=0x0033, t01=0x0032}
0x4fda…4ff0 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0033, t01=0x0048}
0x4ff0…4ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x005e}
0x4ffa…5048 Head {h00=0x004a, h01=0x0050, text=»* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER«, t00=0x0033, t01=0x0068}
0x5048…5052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b6}
0x5052…5078 Head {h00=0x0022, h01=0x0050, text=»TIODPE EQU * PROTECT ERR EXIT «, t00=0x0033, t01=0x00c0}
0x5078…508a Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0033, t01=0x00e6}
0x508a…50b0 Head {h00=0x0022, h01=0x0050, text=» LC A9,FDBTNR,A6 USER TASK ID «, t00=0x0033, t01=0x00f8}
0x50b0…50d6 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELPRO RELEASE PROTECT«, t00=0x0033, t01=0x011e}
0x50d6…50ee Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PROERR «, t00=0x0033, t01=0x0144}
0x50ee…5102 Head {h00=0x0010, h01=0x0050, text=»TIODME EQU *«, t00=0x0033, t01=0x015c}
0x5102…512e Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBADF,A6 DATA FILE FDB ADDR «, t00=0x0033, t01=0x0170}
0x512e…5142 Head {h00=0x0010, h01=0x0050, text=»TIODMX EQU *«, t00=0x0034, t01=0x000c}
0x5142…515e Head {h00=0x0018, h01=0x0050, text=»* A1 = ERROR CODE «, t00=0x0034, t01=0x0020}
0x515e…517a Head {h00=0x0018, h01=0x0050, text=»* A6 = FDB ADDRESS«, t00=0x0034, t01=0x003c}
0x517a…5186 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0034, t01=0x0058}
0x5186…51b6 Head {h00=0x002c, h01=0x0050, text=» ABL DISEND CALL TENDIO GOTO DISPATCHER«, t00=0x0034, t01=0x0064}
0x51b6…51c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0094}
0x51c0…51cc Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0034, t01=0x009e}
0x51cc…51d0 Head {h00=0x4004, h01=0x0000}
0x51d0…51d4 00 34 00 aa ┆ 4 ┆
0x51d4…51dc (53, 1, 8) 20 04 00 00 00 35 00 04 ┆ 5 ┆
0x51dc…522c (54, 0, 400) 5c 45 51 55 5c 54 54 50 41 47 2d 2a 5c 44 49 53 50 4c 2e 20 54 4f 20 27 45 4e 54 52 59 2d 50 4f 49 4e 54 45 52 27 00 35 01 8a 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 36 00 2e 00 04 00 50 00 36 00 3e 00 16 00 50 4d 4d 42 45 47 5c 45 51 55 5c ┆ EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 5 P DATA 0 6 . P 6 > PMMBEG EQU ┆
0x522c…527c 54 41 42 42 45 2d 2a 20 00 36 00 46 00 0a 00 50 5c 45 4a 45 43 54 00 36 00 60 00 08 00 50 5c 5c 5c 5c 00 36 00 6e 00 36 00 50 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TABBE-* 6 F P EJECT 6 ` P 6 n 6 P*** ┆
0x527c…52cc 20 20 20 20 20 20 20 20 2a 2a 2a 20 00 36 00 7a 00 36 00 50 2a 2a 2a 20 20 20 20 20 20 53 20 20 55 20 20 42 20 20 52 20 20 4f 20 20 55 20 20 54 20 20 49 20 20 4e 20 20 45 20 20 53 20 20 20 20 20 20 2a 2a 2a 20 00 36 00 b4 00 36 00 50 2a 2a ┆ *** 6 z 6 P*** S U B R O U T I N E S *** 6 6 P**┆
0x52cc…531c 2a 20 20 2d 43 4f 4d 4d 4f 4e 20 54 4f 20 41 4c 4c 20 50 41 52 54 53 20 49 4e 20 50 52 4f 47 52 41 4d 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 00 36 00 ee 00 36 00 50 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* -COMMON TO ALL PARTS IN PROGRAM *** 6 6 P*** ┆
0x531c…536c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 20 00 36 01 28 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *** 6 ( 6 P**********************************************┆
0x536c…53bc (55, 0, 400) 2a 2a 2a 20 00 36 01 62 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 37 00 0c 00 08 00 50 5c 5c 5c 5c 00 37 00 46 00 08 ┆*** 6 b 6 P************************************************* 7 P 7 F ┆
0x53bc…540c 00 50 5c 5c 5c 5c 00 37 00 52 00 2c 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 20 52 20 52 20 4f 20 52 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 37 00 5e 00 2c 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P 7 R , P** E R R O R ** 7 ^ , P** ┆
0x540c…545c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 37 00 8e 00 2c 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 37 00 be 00 2c 00 50 2a 2a ┆ ** 7 , P** ** 7 , P**┆
0x545c…54ac 20 20 45 52 52 4f 52 20 48 41 4e 44 4c 49 4e 47 20 52 4f 55 54 49 4e 45 2e 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 37 00 ee 00 2c 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ERROR HANDLING ROUTINE. ** 7 , P** ┆
0x54ac…54fc 20 20 20 20 2a 2a 00 37 01 1e 00 2c 00 50 2a 2a 20 20 49 4e 50 55 54 20 3a 41 31 3d 53 4f 50 2d 4d 45 53 53 41 47 45 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 00 37 01 4e 00 2c 00 50 2a 2a 20 20 4f 55 54 50 55 54 3a 41 32 3d 52 45 4c 41 ┆ ** 7 , P** INPUT :A1=SOP-MESSAGE ** 7 N , P** OUTPUT:A2=RELA┆
0x54fc…554c (56, 0, 400) 54 49 56 45 20 43 41 4c 4c 49 4e 47 20 41 44 44 52 45 53 53 2a 2a 00 37 01 7e 00 2c 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 28 52 45 47 2d 43 4f 4e 54 45 4e 54 53 20 49 53 20 53 41 56 45 44 29 20 2a 2a 00 38 00 1e 00 2c 00 50 2a 2a ┆TIVE CALLING ADDRESS** 7 ~ , P** (REG-CONTENTS IS SAVED) ** 8 , P**┆
0x554c…559c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 38 00 4e 00 04 00 50 00 38 00 7e 00 10 00 50 45 52 52 4f 52 5c 45 51 55 5c 2a 20 00 38 00 86 00 1e 00 50 5c 53 54 5c 41 32 ┆************************************** 8 N P 8 ~ PERROR EQU * 8 P ST A2┆
0x559c…55ec 2c 53 41 56 45 30 31 2c 41 31 33 5c 53 41 56 45 20 41 32 20 00 38 00 9a 00 2e 00 50 5c 4c 44 5c 41 32 2c 34 2c 41 31 34 5c 47 45 54 20 43 41 4c 4c 49 4e 47 20 41 42 53 4f 4c 55 54 45 20 41 44 44 52 45 53 53 20 00 38 00 bc 00 1e 00 50 5c 53 ┆,SAVE01,A13 SAVE A2 8 . P LD A2,4,A14 GET CALLING ABSOLUTE ADDRESS 8 P S┆
0x55ec…563c 55 52 5c 41 32 2c 41 31 33 5c 52 45 4c 41 54 49 56 45 20 44 49 54 4f 20 00 38 00 ee 00 12 00 50 5c 4f 54 52 5c 41 31 2c 30 2c 53 4f 50 20 00 38 01 10 00 08 00 50 5c 48 4c 54 00 38 01 26 00 22 00 50 5c 44 41 54 41 5c 2f 36 33 30 30 5c 28 44 ┆UR A2,A13 RELATIVE DITO 8 P OTR A1,0,SOP 8 P HLT 8 & " P DATA /6300 (D┆
0x563c…568c 45 42 55 47 47 49 4e 47 20 50 55 52 50 4f 53 29 00 38 01 32 00 0a 00 50 5c 45 4a 45 43 54 00 38 01 58 00 04 00 50 00 38 01 66 00 26 00 50 2a 2a 20 20 20 20 20 20 20 20 20 4d 20 4f 20 56 20 45 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 ┆EBUGGING PURPOS) 8 2 P EJECT 8 X P 8 f & P** M O V E ** ┆
0x568c…56dc (57, 0, 400) 00 38 01 6e 00 26 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 39 00 08 00 26 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 8 n & P** ** 9 & P** ┆
0x56dc…572c 20 2a 2a 20 00 39 00 32 00 26 00 50 2a 2a 20 20 4d 4f 56 45 20 20 42 4c 4f 43 4b 53 20 49 4e 53 49 44 45 20 4d 45 4d 4f 52 59 20 2a 2a 20 00 39 00 5c 00 26 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ** 9 2 & P** MOVE BLOCKS INSIDE MEMORY ** 9 & P** ┆
0x572c…577c 20 20 20 20 20 2a 2a 20 00 39 00 86 00 26 00 50 2a 2a 20 20 49 4e 50 55 54 3a 41 31 3d 46 52 4f 4d 2d 41 44 44 52 45 53 53 20 20 20 20 20 20 2a 2a 20 00 39 00 b0 00 26 00 50 2a 2a 20 20 20 20 20 20 20 20 41 32 3d 54 4f 2d 41 44 44 52 45 53 ┆ ** 9 & P** INPUT:A1=FROM-ADDRESS ** 9 & P** A2=TO-ADDRES┆
0x577c…57cc 53 20 20 20 20 20 20 20 20 2a 2a 20 00 39 00 da 00 26 00 50 2a 2a 20 20 20 20 20 20 20 20 41 33 3d 4c 45 4e 47 54 48 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 39 01 04 00 26 00 50 2a 2a 20 4f 55 54 50 55 54 3a 41 33 3d 2d 31 20 20 20 ┆S ** 9 & P** A3=LENGTH ** 9 & P** OUTPUT:A3=-1 ┆
0x57cc…581c 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 39 01 2e 00 26 00 50 2a 2a 20 20 57 4f 52 4b 2d 52 45 47 3a 20 41 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 39 01 58 00 26 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ** 9 . & P** WORK-REG: A4 ** 9 X & P**************┆
0x581c…586c (58, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 39 01 82 00 08 00 50 5c 5c 5c 20 00 3a 00 1c 00 0e 00 50 4d 4f 56 45 5c 45 51 55 5c 2a 00 3a 00 28 00 24 00 50 4d 4f 56 45 53 5c 41 44 52 5c 41 31 2c 41 33 5c 45 4e 44 20 4f 46 ┆******************* 9 P : PMOVE EQU * : ( $ PMOVES ADR A1,A3 END OF┆
0x586c…58bc 20 46 52 4f 4d 20 41 52 45 41 00 3a 00 3a 00 1e 00 50 5c 41 44 52 5c 41 32 2c 41 33 5c 45 4e 44 20 4f 46 20 54 4f 2d 41 52 45 41 20 00 3a 00 62 00 26 00 50 5c 4c 44 5c 41 34 2c 53 43 54 45 46 41 5c 47 45 54 20 45 4e 44 20 4f 46 20 46 52 45 ┆ FROM AREA : : P ADR A2,A3 END OF TO-AREA : b & P LD A4,SCTEFA GET END OF FRE┆
0x58bc…590c 45 20 41 52 45 41 00 3a 00 84 00 1a 00 50 5c 54 4e 4d 5c 41 32 2c 41 34 5c 53 49 47 4e 20 45 51 55 41 4c 3f 00 3a 00 ae 00 16 00 50 5c 52 46 28 4e 4e 29 5c 4d 4f 56 4e 4e 5c 59 45 53 20 00 3a 00 cc 00 28 00 50 5c 43 57 52 5c 41 34 2c 41 32 ┆E AREA : P TNM A2,A4 SIGN EQUAL? : P RF(NN) MOVNN YES : ( P CWR A4,A2┆
0x590c…595c 5c 43 4f 4d 50 41 52 45 20 57 48 45 4e 20 55 4e 45 51 55 41 4c 20 53 49 47 4e 00 3a 00 e6 00 0e 00 50 5c 52 46 5c 4d 4f 56 43 4b 20 00 3a 01 12 00 2c 00 50 4d 4f 56 4e 4e 5c 43 57 52 5c 41 32 2c 41 34 5c 43 4f 4d 50 41 52 45 20 57 48 45 4e ┆ COMPARE WHEN UNEQUAL SIGN : P RF MOVCK : , PMOVNN CWR A2,A4 COMPARE WHEN┆
0x595c…59ac 20 45 51 55 41 4c 20 53 49 47 4e 20 00 3a 01 24 00 38 00 50 4d 4f 56 43 4b 5c 52 46 28 4e 47 29 5c 4d 4f 56 45 31 30 5c 45 4e 44 20 4f 46 20 54 4f 2d 41 52 45 41 3c 3d 45 4e 44 20 4f 46 20 46 52 45 45 20 41 52 45 41 00 3a 01 54 00 2a 00 50 ┆ EQUAL SIGN : $ 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA : T * P┆
0x59ac…59fc (59, 0, 400) 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 33 5c 49 4e 44 49 43 41 54 45 20 4d 45 4d 4f 52 59 20 4f 56 45 52 46 4c 4f 57 00 3a 01 90 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 00 3b 00 2e 00 1e 00 50 4d 4f 56 45 31 30 5c 53 55 4b 5c 41 33 2c ┆ LDKL A1,LMP3 INDICATE MEMORY OVERFLOW : P CALL ERROR ; . PMOVE10 SUK A3,┆
0x59fc…5a4c 31 5c 44 45 43 20 4c 45 4e 47 54 48 00 3b 00 42 00 1a 00 50 5c 52 46 28 4e 29 5c 4d 4f 56 45 32 30 5c 41 4c 4c 20 44 4f 4e 45 00 3b 00 64 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 31 20 00 3b 00 82 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 31 20 00 3b ┆1 DEC LENGTH ; B P RF(N) MOVE20 ALL DONE ; d P SUK A1,1 ; P SUK A2,1 ;┆
0x5a4c…5a9c 00 94 00 1c 00 50 5c 4c 43 52 5c 41 34 2c 41 31 5c 47 45 54 20 43 48 41 52 41 43 54 45 52 00 3b 00 a6 00 1e 00 50 5c 53 43 52 5c 41 34 2c 41 32 5c 53 54 4f 52 45 20 43 48 41 52 41 43 54 45 52 00 3b 00 c6 00 0e 00 50 5c 52 42 5c 4d 4f 56 45 ┆ P LCR A4,A1 GET CHARACTER ; P SCR A4,A2 STORE CHARACTER ; P RB MOVE┆
0x5a9c…5aec 31 30 00 3b 00 e8 00 12 00 50 4d 4f 56 45 32 30 5c 52 54 4e 5c 41 31 34 00 3b 00 fa 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 00 3b 01 10 00 0a 00 50 5c 45 4a 45 43 54 00 3b 01 2c 00 08 00 50 5c 5c 5c 5c 00 3b ┆10 ; PMOVE20 RTN A14 ; P IFT CREDIT-MMUPAG=1 ; P EJECT ; , P ;┆
0x5aec…5b3c 01 3a 00 08 00 50 5c 5c 5c 5c 00 3b 01 46 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 20 4f 20 56 20 49 20 4e 20 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 3b 01 52 00 34 00 50 2a 2a 20 20 20 20 ┆ : P ; F 4 P** M O V I N G ** ; R 4 P** ┆
0x5b3c…5b8c (60, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 3b 01 8a 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ** ; 4 P** ┆
0x5b8c…5bdc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 3c 00 32 00 34 00 50 2a 2a 20 20 55 53 45 53 20 52 4f 55 54 49 4e 45 20 27 4d 4f 56 45 27 20 41 42 4f 56 45 2e 20 54 4f 2d 41 44 44 52 45 53 53 20 49 53 20 2a 2a 20 00 3c 00 6a 00 34 ┆ ** < 2 4 P** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** < j 4┆
0x5bdc…5c2c 00 50 2a 2a 20 20 41 53 53 55 4d 45 44 20 54 4f 20 42 45 20 44 41 54 41 2d 50 41 52 54 20 4f 46 20 4d 45 4d 4f 52 59 20 20 20 20 20 20 20 20 2a 2a 20 00 3c 00 a2 00 34 00 50 2a 2a 20 20 4c 53 54 41 44 52 20 50 4f 49 4e 54 53 20 41 54 20 4c ┆ P** ASSUMED TO BE DATA-PART OF MEMORY ** < 4 P** LSTADR POINTS AT L┆
0x5c2c…5c7c 41 53 54 20 28 48 49 47 48 45 53 54 29 20 46 52 45 45 20 20 20 20 20 2a 2a 20 00 3c 00 da 00 34 00 50 2a 2a 20 20 41 44 44 52 45 53 53 2e 20 4c 53 54 41 44 52 20 49 53 20 55 50 44 41 54 45 44 20 41 4e 44 20 43 48 45 43 4b 45 44 20 20 20 2a ┆AST (HIGHEST) FREE ** < 4 P** ADDRESS. LSTADR IS UPDATED AND CHECKED *┆
0x5c7c…5ccc 2a 20 00 3c 01 12 00 34 00 50 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 00 3c 01 4a 00 34 00 50 2a 2a 20 20 49 4e 50 55 54 3a 41 33 20 26 ┆* < 4 P** ** < J 4 P** INPUT:A3 &┆