|
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: 10944 (0x2ac0)
Notes: pts_type(SC)
Names: »TIOADM.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/TIOADM.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/TIOADM.SC«
IDENT TIOADM REL 11.0 81-02-10 870105041100 =1, CLOSE DISCARD EXECUTES CLOSE LOCK IF WRONG OPEN MODE REL 11.0 81-01-26 * *********************************************** * * TIOADM TOSS ABRIDGED DATA MANAGEMENT * ACTIVATION MODULE * *********************************************** * * * INPUT : A6 = FDB ADDRESS * A8 = ECB ADDRESS * A14 = STACK BASE * * OUTPUT: A2=DISPATCH ADDRESS * EJECT TIOADM * * **************** * ENTRY * **************** * * ENTRY TIOADM ACTIVATION ADDRESS * EJECT TIOADM * * **************** * EXTERNALS * **************** * EXTRN DWTOR EXTRN DWTTAB EXTRN FPB:BF BLOCK FACTOR EXTRN FPB:BO TOSS OPTION EXTRN FPB:EL ENLARGE FACTOR EXTRN DISIOE EXTRN ECBBA EXTRN ECBRL EXTRN ECBRC =1 EXTRN ECBCW1 EXTRN ECBCW2 EXTRN FPB:FO FILE ORGANISATION EXTRN FPB:RL RECORD LENGTH EXTRN FDBEXC EXCLUSIVE ACCESS EXTRN FDBRLE RECORD LENGTH EXTRN FDBOMD OPEN MODE EXTRN DMACTI ACTIVATE DM TASK EXTRN DMACTD ACTIVATE DM TASK #D EXTRN FDBSTA EXTRN FNDFDB EXTRN ADMTSK * EJECT TIOADM * * ***************************** * * * CONDITIONAL ASSEMBLY * * * ***************************** * * * A VERSION INCLUDING OPENEN MODES * EXTEND AND OUTPUT AND CLOSE DISCARD * IS OBTAINED BY SETTING X:A EQU 1 * X:A EQU 0 CRDEEX EQU X:A * MMUPAG EQU 0 * EJECT TIOADM * * ****************************** * * * CONSTANTS * * * ****************************** * * LFILEN EQU 256 L-FILE RECORD LENGTH * EJECT TIOADM * ********** * ORDTAB * ********** * * TABLE OVER ALLOWED ORDERS AND ORDER OPTIONS * ORDTAB EQU * DATA /821 OPEN INPUT UNPROTECTED DATA /921 OPEN INPUT PROTECTED DATA /A21 OPEN INPUT EXCLUSIVE DATA /3921 OPEN INPUT/OUTPUT PROTECTED DATA /3A21 OPEN INPUT/OUTPUT EXCLUSIVE ORDOP1 EQU *-ORDTAB IFT CRDEEX=1 DATA /3221 OPEN OUTPUT RANDOM EXCLUSIVE DATA /5221 OPEN EXTEND EXCLUSIVE DATA /1221 OPEN OUTPUT SEQUENTIAL EXCLUSIVE XIF ORDOPE EQU *-ORDTAB IFT CRDEEX=1 DATA /222 CLOSE DISCARD XIF ORDCLO EQU *-ORDTAB DATA /022 CLOSE LOCK ORDRFP EQU *-ORDTAB DATA /3 READ FILE PARAMETERS ORDSQW EQU *-ORDTAB DATA /006 WRITE SEQUENTIAL DATA /107 REWRITE DATA /108 DELETE DATA /106 WRITE RANDOM ORDRED EQU *-ORDTAB DATA /102 READ DIRECT ORDLGT EQU *-ORDTAB LENGTH OF TABLE * EJECT TIOADM * * ********** * OPEMOD * ********** * * BIT MAP OVER ALLOWED COMBINATIONS * IO FUNCTIONS VS. OPEN MODES * * OPEMOD EQU * DATA /1010 IN UNPRO,IN PROT DATA /101F INP EXC,IN/OUT PROT DATA /1F09 IN/OUT EXC,OUT RAN DATA /0101 EXTEND EXC,OUT SEQ * EJECT TIOADM * * * INPUT : A6 = FDB ADDRESS * A8 = ECB ADDRESS * A14 = STACK BASE 2-LEVEL STACK * TIOADM EQU * LD A1,DWTTAB,A6 USER TTAB ADDRESS LDR* A2,A8 FILE CODE ANK A2,/FF LDK A5,0 CF A14,FNDFDB LDK A2,0 SCR A2,A4 RESET STATUS LD A7,DWTOR,A6 GET ORDER AND OPTION LDK A2,/20 ORDER BIT MASK LDK A3,ORDLGT LENGTH OF TABLE TIOA20 EQU * SUK A3,2 NEXT ORDER IN TABLE RF(N) ER:IRQ ERROR: NOT ALLOWED ORDER SRL A2,1 BIT MASK CW A7,ORDTAB,A3 CHECK IF ORDER ALLOWED RB(NE) TIOA20 NO MATCH TRY NEXT SC A3,DWTOR+1,A6 SAVE ORDER DISPLACEMENT SUK A3,ORDOPE RF(N) TAOPEN OPEN * EJECT TIOADM * * CWK A6,FDBSTA RF(E) ER:IRQ FILE NOT OPENED LD A1,FDBEXC,A6 EXCUSIVE ACCESS POINTER RF(Z) TIOA30 NOT EXCLUSIVE ACCESS CW A1,DWTTAB,A6 RF(NE) ER:IRQ ERROR: NOT SAME USER TIOA30 EQU * IFT CRDEEX=1 SUK A3,ORDCLO-ORDOPE RF(N) TACLOD CLOSE DISCARD RF(Z) TACLOS CLOSE LOCK XIF IFT CRDEEX=0 SUK A3,ORDCLO-ORDOP1 RF(Z) TACLOS CLOSE XIF SUK A3,ORDRFP-ORDCLO RF(Z) TARFP READ FILE PARAMETERS SUK A3,ORDSQW-ORDRFP RF(Z) TIA100 WRITE SEQUENTIAL LD A4,ECBCW1,A8 CHECK RECORD NUMBER OR A4,ECBCW2,A8 RF(NP) ER:IRQ ILLEGAL SUK A3,ORDRED-ORDSQW RF(NZ) TIA100 NOT READ DIRECT LD A3,ECBRL,A8 GET REQUESTED LENGTH CW A3,FDBRLE,A6 RECORD LENGTH RF(NE) ER:IRQ ERROR: ILLEGAL REQUESTED LENGTH * EJECT TIOADM * * TIA100 EQU * LC A3,FDBOMD,A6 OPEN MODE ANK A3,/7F SRL A3,1 BYTE MODE LC A3,OPEMOD,A3 ANR A2,A3 RF(Z) ER:IRQ ERROR: INCORRECT OPEN MODE LDKL A2,ADMTSK DISPATCH ADDRESS ABL DMACTI ACTIVATE DM TASK * EJECT TIOADM * ********** * TAOPEN * ********** * * OPEN * TAOPEN EQU * CWK A6,FDBSTA RF(NE) ER:IRQ FILE CODE USED LD A1,ECBBA,A8 FPB ADDRESS ADK A1,8 IFT MMUPAG=0 LC A4,FPB:BO,A1 TOSS OPTION ANK A4,/FF SUK A4,1 RF(P) ER:IRQ OPTION NOT 0 OR 1 LC A4,FPB:FO,A1 FILE ORGANIZATION XIF IFT MMUPAG=1 EL A4,FPB:BO,A1 TOSS OPTION ANK A4,/FF SUK A4,1 RF(P) ER:IRQ OPTION NOT 0 OR 1 EL A4,FPB:FO-1,A1 FILE ORGANISATION XIF ANK A4,/FF SUK A4,3 RF(P) ER:IRQ ERROR ADK A4,2 RF(Z) ER:IRQ ERROR IFT CRDEEX=1 RF(P) TAOP10 L,X-FILE LDK A2,1 S-FILE TAOP10 EQU * EJECT TIOADM * * ADK A3,ORDOPE-ORDOP1 RF(N) TAOPE2 OPEN EXISTING FILE IFT MMUPAG=0 AD A2,FPB:RL,A1 RECORD LENGTH XIF IFT MMUPAG+CRDEEX=2 EL A3,FPB:RL,A1 SUK A4,1 FILE ORGANIZATION RF(NZ) TAOP20 NOT L-FILE CWK A3,LFILEN L-FILE LENGTH RF(NE) ER:IRQ ILLEGAL REQUESTED LENGTH TAOP20 EQU * ADR A2,A3 XIF IFT CRDEEX=1 RF(NP) ER:IRQ NOT ALLOWED ANK A2,/FF RF(NZ) ER:IRQ ERROR:ILLEGAL LENGTH IFT MMUPAG=0 SUK A4,1 FILE ORGANIZATION RF(NZ) TAOP20 NOT L-FILE LDKL A3,LFILEN L-FILE LENGTH CW A3,FPB:RL,A1 RECORD LENGTH RF(NE) ER:IRQ TAOP20 EQU * LC A2,FPB:BF,A1 BLOCKING FACTOR XIF IFT MMUPAG+CRDEEX=2 EL A2,FPB:BF,A1 BLOCK FACTOR SRL A2,8 XIF IFT CRDEEX=1 SUK A2,1 RF(Z) TARFP ACTIVATE #D RF ER:IRQ ILLEGAL BLOCK FACTOR XIF * EJECT TIOADM * * ********** * TAOPE2 * ********** * * TAOPE2 EQU * OPEN EXISTING FILE IFT MMUPAG=0 LD A2,FPB:EL,A1 ENLARGE FACTOR XIF IFT MMUPAG=1 EL A2,FPB:EL,A1 ENLARGE FACTOR XIF RF(Z) TARFP ACTIVATE #D ER:IRQ EQU * ILLEGAL REQUEST ABL DISIOE * * EJECT TIOADM * * ********** * TACLOD * * TACLOS * * TARFP * ********** * * CLOSE AND READ FILE PARAMETERS * * A4 = FILE CODE REFERENCE ADDRESS * * IFT CRDEEX=1 TACLOD EQU * CLOSE DISCARD ADK A1,0 RF(NZ) TACLOS OPENED EXCLUSIVE LDKL A1,/8000 RC: REQUEST ERROR =1 ST A1,ECBRC,A8 =1 LDK A1,ORDCLO PERFORM CLOSE LOCK =1 SC A1,DWTOR+1,A6 =1 XIF TACLOS EQU * CLOSE LOCK LDKL A2,FDBSTA ST A2,2,A4 FC ENTRY TARFP EQU * LDKL A2,ADMTSK DISPATCH ADDRESS ABL DMACTD ACTIVATE DM TASK #D * END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT TIOADM REL 11.0 81-02-10 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0082 Head {h00=0x0040, h01=0x0050, text=» =1, CLOSE DISCARD EXECUTES CLOSE LOCK IF WRONG OPEN MODE «, t00=0x0000, t01=0x0042}
0x0082…009e Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-26«, t00=0x0000, t01=0x0086}
0x009e…00a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a2}
0x00a8…00e0 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0000, t01=0x00ac}
0x00e0…00ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x00ea…011c Head {h00=0x002e, h01=0x0050, text=»* TIOADM TOSS ABRIDGED DATA MANAGEMENT«, t00=0x0000, t01=0x00ee}
0x011c…0142 Head {h00=0x0022, h01=0x0050, text=»* ACTIVATION MODULE«, t00=0x0000, t01=0x0120}
0x0142…014c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…0184 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0000, t01=0x0150}
0x0184…018e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0188}
0x018e…0198 (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01bc Head {h00=0x0020, h01=0x0050, text=»* INPUT : A6 = FDB ADDRESS«, t00=0x0001, t01=0x000e}
0x01bc…01e0 Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0001, t01=0x0032}
0x01e0…0204 Head {h00=0x0020, h01=0x0050, text=»* A14 = STACK BASE «, t00=0x0001, t01=0x0056}
0x0204…020e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007a}
0x020e…0236 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: A2=DISPATCH ADDRESS «, t00=0x0001, t01=0x0084}
0x0236…0240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ac}
0x0240…0256 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x0001, t01=0x00b6}
0x0256…0260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00cc}
0x0260…026a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026a…0282 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0001, t01=0x00e0}
0x0282…029a Head {h00=0x0014, h01=0x0050, text=»* ENTRY *«, t00=0x0001, t01=0x00f8}
0x029a…02b2 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0001, t01=0x0110}
0x02b2…02bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02bc…02c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0132}
0x02c6…02ee Head {h00=0x0024, h01=0x0050, text=» ENTRY TIOADM ACTIVATION ADDRESS«, t00=0x0001, t01=0x013c}
0x02ee…02f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0164}
0x02f8…030e Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x0001, t01=0x016e}
0x030e…0318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0184}
0x0318…0322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018e}
0x0322…033a Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0002, t01=0x0008}
0x033a…0352 Head {h00=0x0014, h01=0x0050, text=»* EXTERNALS *«, t00=0x0002, t01=0x0020}
0x0352…036a Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0002, t01=0x0038}
0x036a…0374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0050}
0x0374…0388 Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTOR«, t00=0x0002, t01=0x005a}
0x0388…039e Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTTAB «, t00=0x0002, t01=0x006e}
0x039e…03c0 Head {h00=0x001e, h01=0x0050, text=» EXTRN FPB:BF BLOCK FACTOR«, t00=0x0002, t01=0x0084}
0x03c0…03e2 Head {h00=0x001e, h01=0x0050, text=» EXTRN FPB:BO TOSS OPTION «, t00=0x0002, t01=0x00a6}
0x03e2…0406 Head {h00=0x0020, h01=0x0050, text=» EXTRN FPB:EL ENLARGE FACTOR«, t00=0x0002, t01=0x00c8}
0x0406…041c Head {h00=0x0012, h01=0x0050, text=» EXTRN DISIOE «, t00=0x0002, t01=0x00ec}
0x041c…0430 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBBA«, t00=0x0002, t01=0x0102}
0x0430…0444 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRL«, t00=0x0002, t01=0x0116}
0x0444…045c Head {h00=0x0014, h01=0x0050, text=» EXTRN ECBRC =1«, t00=0x0002, t01=0x012a}
0x045c…0472 Head {h00=0x0012, h01=0x0050, text=» EXTRN ECBCW1 «, t00=0x0002, t01=0x0142}
0x0472…0488 Head {h00=0x0012, h01=0x0050, text=» EXTRN ECBCW2 «, t00=0x0002, t01=0x0158}
0x0488…04b0 Head {h00=0x0024, h01=0x0050, text=» EXTRN FPB:FO FILE ORGANISATION «, t00=0x0002, t01=0x016e}
0x04b0…04d4 Head {h00=0x0020, h01=0x0050, text=» EXTRN FPB:RL RECORD LENGTH «, t00=0x0003, t01=0x0008}
0x04d4…04fa Head {h00=0x0022, h01=0x0050, text=» EXTRN FDBEXC EXCLUSIVE ACCESS«, t00=0x0003, t01=0x002c}
0x04fa…051e Head {h00=0x0020, h01=0x0050, text=» EXTRN FDBRLE RECORD LENGTH «, t00=0x0003, t01=0x0052}
0x051e…053e Head {h00=0x001c, h01=0x0050, text=» EXTRN FDBOMD OPEN MODE «, t00=0x0003, t01=0x0076}
0x053e…0564 Head {h00=0x0022, h01=0x0050, text=» EXTRN DMACTI ACTIVATE DM TASK«, t00=0x0003, t01=0x0096}
0x0564…058e Head {h00=0x0026, h01=0x0050, text=» EXTRN DMACTD ACTIVATE DM TASK #D «, t00=0x0003, t01=0x00bc}
0x058e…05a4 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBSTA «, t00=0x0003, t01=0x00e6}
0x05a4…05ba Head {h00=0x0012, h01=0x0050, text=» EXTRN FNDFDB «, t00=0x0003, t01=0x00fc}
0x05ba…05d0 Head {h00=0x0012, h01=0x0050, text=» EXTRN ADMTSK «, t00=0x0003, t01=0x0112}
0x05d0…05da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0128}
0x05da…05f0 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x0003, t01=0x0132}
0x05f0…05fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0148}
0x05fa…0604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0152}
0x0604…062a Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0003, t01=0x015c}
0x062a…0650 Head {h00=0x0022, h01=0x0050, text=»* * «, t00=0x0003, t01=0x0182}
0x0650…0676 Head {h00=0x0022, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x0004, t01=0x0018}
0x0676…069c Head {h00=0x0022, h01=0x0050, text=»* * «, t00=0x0004, t01=0x003e}
0x069c…06c2 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0004, t01=0x0064}
0x06c2…06cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008a}
0x06cc…06d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0094}
0x06d6…0702 Head {h00=0x0028, h01=0x0050, text=»* A VERSION INCLUDING OPENEN MODES«, t00=0x0004, t01=0x009e}
0x0702…0732 Head {h00=0x002c, h01=0x0050, text=»* EXTEND AND OUTPUT AND CLOSE DISCARD «, t00=0x0004, t01=0x00ca}
0x0732…075e Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING X:A EQU 1«, t00=0x0004, t01=0x00fa}
0x075e…0768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0126}
0x0768…077a Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0004, t01=0x0130}
0x077a…0790 Head {h00=0x0012, h01=0x0050, text=»CRDEEX EQU X:A«, t00=0x0004, t01=0x0142}
0x0790…079a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0158}
0x079a…07ae Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0004, t01=0x0162}
0x07ae…07b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0176}
0x07b8…07ce Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x0004, t01=0x0180}
0x07ce…07d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0008}
0x07d8…07e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0012}
0x07e2…0808 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0005, t01=0x001c}
0x0808…082e Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0042}
0x082e…0854 Head {h00=0x0022, h01=0x0050, text=»* CONSTANTS *«, t00=0x0005, t01=0x0068}
0x0854…087a Head {h00=0x0022, h01=0x0050, text=»* *«, t00=0x0005, t01=0x008e}
0x087a…08a0 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0005, t01=0x00b4}
0x08a0…08aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00da}
0x08aa…08b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e4}
0x08b4…08e0 Head {h00=0x0028, h01=0x0050, text=»LFILEN EQU 256 L-FILE RECORD LENGTH «, t00=0x0005, t01=0x00ee}
0x08e0…08ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011a}
0x08ea…0900 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x0005, t01=0x0124}
0x0900…090a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013a}
0x090a…091c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x0144}
0x091c…092e Head {h00=0x000e, h01=0x0050, text=»* ORDTAB *«, t00=0x0005, t01=0x0156}
0x092e…0940 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0005, t01=0x0168}
0x0940…094a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017a}
0x094a…0982 Head {h00=0x0034, h01=0x0050, text=»* TABLE OVER ALLOWED ORDERS AND ORDER OPTIONS «, t00=0x0005, t01=0x0184}
0x0982…098c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002c}
0x098c…09a0 Head {h00=0x0010, h01=0x0050, text=»ORDTAB EQU *«, t00=0x0006, t01=0x0036}
0x09a0…09cc Head {h00=0x0028, h01=0x0050, text=» DATA /821 OPEN INPUT UNPROTECTED«, t00=0x0006, t01=0x004a}
0x09cc…09f6 Head {h00=0x0026, h01=0x0050, text=» DATA /921 OPEN INPUT PROTECTED«, t00=0x0006, t01=0x0076}
0x09f6…0a20 Head {h00=0x0026, h01=0x0050, text=» DATA /A21 OPEN INPUT EXCLUSIVE«, t00=0x0006, t01=0x00a0}
0x0a20…0a52 Head {h00=0x002e, h01=0x0050, text=» DATA /3921 OPEN INPUT/OUTPUT PROTECTED«, t00=0x0006, t01=0x00ca}
0x0a52…0a84 Head {h00=0x002e, h01=0x0050, text=» DATA /3A21 OPEN INPUT/OUTPUT EXCLUSIVE«, t00=0x0006, t01=0x00fc}
0x0a84…0aa0 Head {h00=0x0018, h01=0x0050, text=»ORDOP1 EQU *-ORDTAB «, t00=0x0006, t01=0x012e}
0x0aa0…0ab6 Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0006, t01=0x014a}
0x0ab6…0aee Head {h00=0x0034, h01=0x0050, text=» DATA /3221 OPEN OUTPUT RANDOM EXCLUSIVE «, t00=0x0006, t01=0x0160}
0x0aee…0b1a Head {h00=0x0028, h01=0x0050, text=» DATA /5221 OPEN EXTEND EXCLUSIVE«, t00=0x0007, t01=0x0008}
0x0b1a…0b52 Head {h00=0x0034, h01=0x0050, text=» DATA /1221 OPEN OUTPUT SEQUENTIAL EXCLUSIVE «, t00=0x0007, t01=0x0034}
0x0b52…0b5e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x006c}
0x0b5e…0b7a Head {h00=0x0018, h01=0x0050, text=»ORDOPE EQU *-ORDTAB «, t00=0x0007, t01=0x0078}
0x0b7a…0b90 Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0007, t01=0x0094}
0x0b90…0bb2 Head {h00=0x001e, h01=0x0050, text=» DATA /222 CLOSE DISCARD«, t00=0x0007, t01=0x00aa}
0x0bb2…0bbe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0007, t01=0x00cc}
0x0bbe…0bda Head {h00=0x0018, h01=0x0050, text=»ORDCLO EQU *-ORDTAB «, t00=0x0007, t01=0x00d8}
0x0bda…0bf8 Head {h00=0x001a, h01=0x0050, text=» DATA /022 CLOSE LOCK«, t00=0x0007, t01=0x00f4}
0x0bf8…0c14 Head {h00=0x0018, h01=0x0050, text=»ORDRFP EQU *-ORDTAB «, t00=0x0007, t01=0x0112}
0x0c14…0c3a Head {h00=0x0022, h01=0x0050, text=» DATA /3 READ FILE PARAMETERS «, t00=0x0007, t01=0x012e}
0x0c3a…0c56 Head {h00=0x0018, h01=0x0050, text=»ORDSQW EQU *-ORDTAB «, t00=0x0007, t01=0x0154}
0x0c56…0c7a Head {h00=0x0020, h01=0x0050, text=» DATA /006 WRITE SEQUENTIAL«, t00=0x0007, t01=0x0170}
0x0c7a…0c94 (8, 0, 400) Head {h00=0x0016, h01=0x0050, text=» DATA /107 REWRITE«, t00=0x0008, t01=0x0004}
0x0c94…0cae Head {h00=0x0016, h01=0x0050, text=» DATA /108 DELETE «, t00=0x0008, t01=0x001e}
0x0cae…0cce Head {h00=0x001c, h01=0x0050, text=» DATA /106 WRITE RANDOM«, t00=0x0008, t01=0x0038}
0x0cce…0cea Head {h00=0x0018, h01=0x0050, text=»ORDRED EQU *-ORDTAB «, t00=0x0008, t01=0x0058}
0x0cea…0d0a Head {h00=0x001c, h01=0x0050, text=» DATA /102 READ DIRECT«, t00=0x0008, t01=0x0074}
0x0d0a…0d36 Head {h00=0x0028, h01=0x0050, text=»ORDLGT EQU *-ORDTAB LENGTH OF TABLE «, t00=0x0008, t01=0x0094}
0x0d36…0d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c0}
0x0d40…0d56 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x0008, t01=0x00ca}
0x0d56…0d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e0}
0x0d60…0d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ea}
0x0d6a…0d7c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x00f4}
0x0d7c…0d8e Head {h00=0x000e, h01=0x0050, text=»* OPEMOD *«, t00=0x0008, t01=0x0106}
0x0d8e…0da0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0008, t01=0x0118}
0x0da0…0daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012a}
0x0daa…0dd8 Head {h00=0x002a, h01=0x0050, text=»* BIT MAP OVER ALLOWED COMBINATIONS «, t00=0x0008, t01=0x0134}
0x0dd8…0e00 Head {h00=0x0024, h01=0x0050, text=»* IO FUNCTIONS VS. OPEN MODES «, t00=0x0008, t01=0x0162}
0x0e00…0e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e0a…0e14 (9, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e14…0e28 Head {h00=0x0010, h01=0x0050, text=»OPEMOD EQU *«, t00=0x0009, t01=0x000e}
0x0e28…0e4c Head {h00=0x0020, h01=0x0050, text=» DATA /1010 IN UNPRO,IN PROT«, t00=0x0009, t01=0x0022}
0x0e4c…0e74 Head {h00=0x0024, h01=0x0050, text=» DATA /101F INP EXC,IN/OUT PROT «, t00=0x0009, t01=0x0046}
0x0e74…0e9a Head {h00=0x0022, h01=0x0050, text=» DATA /1F09 IN/OUT EXC,OUT RAN«, t00=0x0009, t01=0x006e}
0x0e9a…0ec0 Head {h00=0x0022, h01=0x0050, text=» DATA /0101 EXTEND EXC,OUT SEQ«, t00=0x0009, t01=0x0094}
0x0ec0…0eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ba}
0x0eca…0ee0 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x0009, t01=0x00c4}
0x0ee0…0eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00da}
0x0eea…0ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e4}
0x0ef4…0f18 Head {h00=0x0020, h01=0x0050, text=»* INPUT : A6 = FDB ADDRESS«, t00=0x0009, t01=0x00ee}
0x0f18…0f3c Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0009, t01=0x0112}
0x0f3c…0f6e Head {h00=0x002e, h01=0x0050, text=»* A14 = STACK BASE 2-LEVEL STACK «, t00=0x0009, t01=0x0136}
0x0f6e…0f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0168}
0x0f78…0f8c Head {h00=0x0010, h01=0x0050, text=»TIOADM EQU *«, t00=0x0009, t01=0x0172}
0x0f8c…0fb6 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTTAB,A6 USER TTAB ADDRESS«, t00=0x0009, t01=0x0186}
0x0fb6…0fd4 Head {h00=0x001a, h01=0x0050, text=» LDR* A2,A8 FILE CODE «, t00=0x000a, t01=0x0020}
0x0fd4…0fe8 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x000a, t01=0x003e}
0x0fe8…0ffa Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x000a, t01=0x0052}
0x0ffa…1010 Head {h00=0x0012, h01=0x0050, text=» CF A14,FNDFDB«, t00=0x000a, t01=0x0064}
0x1010…1022 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x000a, t01=0x007a}
0x1022…1042 Head {h00=0x001c, h01=0x0050, text=» SCR A2,A4 RESET STATUS «, t00=0x000a, t01=0x008c}
0x1042…106e Head {h00=0x0028, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER AND OPTION«, t00=0x000a, t01=0x00ac}
0x106e…1090 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/20 ORDER BIT MASK«, t00=0x000a, t01=0x00d8}
0x1090…10b6 Head {h00=0x0022, h01=0x0050, text=» LDK A3,ORDLGT LENGTH OF TABLE«, t00=0x000a, t01=0x00fa}
0x10b6…10ca Head {h00=0x0010, h01=0x0050, text=»TIOA20 EQU *«, t00=0x000a, t01=0x0120}
0x10ca…10f0 Head {h00=0x0022, h01=0x0050, text=» SUK A3,2 NEXT ORDER IN TABLE «, t00=0x000a, t01=0x0134}
0x10f0…111e Head {h00=0x002a, h01=0x0050, text=» RF(N) ER:IRQ ERROR: NOT ALLOWED ORDER«, t00=0x000a, t01=0x015a}
0x111e…1138 Head {h00=0x0016, h01=0x0050, text=» SRL A2,1 BIT MASK«, t00=0x000a, t01=0x0188}
0x1138…1168 Head {h00=0x002c, h01=0x0050, text=» CW A7,ORDTAB,A3 CHECK IF ORDER ALLOWED «, t00=0x000b, t01=0x0012}
0x1168…1190 Head {h00=0x0024, h01=0x0050, text=» RB(NE) TIOA20 NO MATCH TRY NEXT«, t00=0x000b, t01=0x0042}
0x1190…11c2 Head {h00=0x002e, h01=0x0050, text=» SC A3,DWTOR+1,A6 SAVE ORDER DISPLACEMENT «, t00=0x000b, t01=0x006a}
0x11c2…11d8 Head {h00=0x0012, h01=0x0050, text=» SUK A3,ORDOPE«, t00=0x000b, t01=0x009c}
0x11d8…11f2 Head {h00=0x0016, h01=0x0050, text=» RF(N) TAOPEN OPEN«, t00=0x000b, t01=0x00b2}
0x11f2…11fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00cc}
0x11fc…1212 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x000b, t01=0x00d6}
0x1212…121c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ec}
0x121c…1226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f6}
0x1226…123c Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x000b, t01=0x0100}
0x123c…1262 Head {h00=0x0022, h01=0x0050, text=» RF(E) ER:IRQ FILE NOT OPENED «, t00=0x000b, t01=0x0116}
0x1262…1292 Head {h00=0x002c, h01=0x0050, text=» LD A1,FDBEXC,A6 EXCUSIVE ACCESS POINTER«, t00=0x000b, t01=0x013c}
0x1292…12bc Head {h00=0x0026, h01=0x0050, text=» RF(Z) TIOA30 NOT EXCLUSIVE ACCESS«, t00=0x000b, t01=0x016c}
0x12bc…12d6 Head {h00=0x0016, h01=0x0050, text=» CW A1,DWTTAB,A6 «, t00=0x000c, t01=0x0008}
0x12d6…1302 Head {h00=0x0028, h01=0x0050, text=» RF(NE) ER:IRQ ERROR: NOT SAME USER «, t00=0x000c, t01=0x0022}
0x1302…1316 Head {h00=0x0010, h01=0x0050, text=»TIOA30 EQU *«, t00=0x000c, t01=0x004e}
0x1316…132c Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x000c, t01=0x0062}
0x132c…134a Head {h00=0x001a, h01=0x0050, text=» SUK A3,ORDCLO-ORDOPE «, t00=0x000c, t01=0x0078}
0x134a…136e Head {h00=0x0020, h01=0x0050, text=» RF(N) TACLOD CLOSE DISCARD «, t00=0x000c, t01=0x0096}
0x136e…138e Head {h00=0x001c, h01=0x0050, text=» RF(Z) TACLOS CLOSE LOCK«, t00=0x000c, t01=0x00ba}
0x138e…139a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00da}
0x139a…13b0 Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=0 «, t00=0x000c, t01=0x00e6}
0x13b0…13ce Head {h00=0x001a, h01=0x0050, text=» SUK A3,ORDCLO-ORDOP1 «, t00=0x000c, t01=0x00fc}
0x13ce…13ea Head {h00=0x0018, h01=0x0050, text=» RF(Z) TACLOS CLOSE «, t00=0x000c, t01=0x011a}
0x13ea…13f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0136}
0x13f6…1414 Head {h00=0x001a, h01=0x0050, text=» SUK A3,ORDRFP-ORDCLO «, t00=0x000c, t01=0x0142}
0x1414…143e Head {h00=0x0026, h01=0x0050, text=» RF(Z) TARFP READ FILE PARAMETERS «, t00=0x000c, t01=0x0160}
0x143e…145c Head {h00=0x001a, h01=0x0050, text=» SUK A3,ORDSQW-ORDRFP «, t00=0x000c, t01=0x018a}
0x145c…1482 Head {h00=0x0022, h01=0x0050, text=» RF(Z) TIA100 WRITE SEQUENTIAL«, t00=0x000d, t01=0x0018}
0x1482…14ae Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBCW1,A8 CHECK RECORD NUMBER«, t00=0x000d, t01=0x003e}
0x14ae…14c6 Head {h00=0x0014, h01=0x0050, text=» OR A4,ECBCW2,A8«, t00=0x000d, t01=0x006a}
0x14c6…14e4 Head {h00=0x001a, h01=0x0050, text=» RF(NP) ER:IRQ ILLEGAL«, t00=0x000d, t01=0x0082}
0x14e4…1502 Head {h00=0x001a, h01=0x0050, text=» SUK A3,ORDRED-ORDSQW «, t00=0x000d, t01=0x00a0}
0x1502…1528 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) TIA100 NOT READ DIRECT«, t00=0x000d, t01=0x00be}
0x1528…1554 Head {h00=0x0028, h01=0x0050, text=» LD A3,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x000d, t01=0x00e4}
0x1554…157a Head {h00=0x0022, h01=0x0050, text=» CW A3,FDBRLE,A6 RECORD LENGTH«, t00=0x000d, t01=0x0110}
0x157a…15b0 Head {h00=0x0032, h01=0x0050, text=» RF(NE) ER:IRQ ERROR: ILLEGAL REQUESTED LENGTH«, t00=0x000d, t01=0x0136}
0x15b0…15ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016c}
0x15ba…15d0 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x000d, t01=0x0176}
0x15d0…15da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x018c}
0x15da…15e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15e4…15f8 Head {h00=0x0010, h01=0x0050, text=»TIA100 EQU *«, t00=0x000e, t01=0x0012}
0x15f8…161a Head {h00=0x001e, h01=0x0050, text=» LC A3,FDBOMD,A6 OPEN MODE«, t00=0x000e, t01=0x0026}
0x161a…162e Head {h00=0x0010, h01=0x0050, text=» ANK A3,/7F «, t00=0x000e, t01=0x0048}
0x162e…164a Head {h00=0x0018, h01=0x0050, text=» SRL A3,1 BYTE MODE «, t00=0x000e, t01=0x005c}
0x164a…1662 Head {h00=0x0014, h01=0x0050, text=» LC A3,OPEMOD,A3«, t00=0x000e, t01=0x0078}
0x1662…1674 Head {h00=0x000e, h01=0x0050, text=» ANR A2,A3«, t00=0x000e, t01=0x0090}
0x1674…16a4 Head {h00=0x002c, h01=0x0050, text=» RF(Z) ER:IRQ ERROR: INCORRECT OPEN MODE«, t00=0x000e, t01=0x00a2}
0x16a4…16cc Head {h00=0x0024, h01=0x0050, text=» LDKL A2,ADMTSK DISPATCH ADDRESS«, t00=0x000e, t01=0x00d2}
0x16cc…16f0 Head {h00=0x0020, h01=0x0050, text=» ABL DMACTI ACTIVATE DM TASK«, t00=0x000e, t01=0x00fa}
0x16f0…16fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011e}
0x16fa…1710 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x000e, t01=0x0128}
0x1710…171a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013e}
0x171a…172c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0148}
0x172c…173e Head {h00=0x000e, h01=0x0050, text=»* TAOPEN *«, t00=0x000e, t01=0x015a}
0x173e…1750 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x016c}
0x1750…175a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017e}
0x175a…176a Head {h00=0x000c, h01=0x0050, text=»* OPEN«, t00=0x000e, t01=0x0188}
0x176a…1774 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0008}
0x1774…1788 Head {h00=0x0010, h01=0x0050, text=»TAOPEN EQU *«, t00=0x000f, t01=0x0012}
0x1788…179e Head {h00=0x0012, h01=0x0050, text=» CWK A6,FDBSTA«, t00=0x000f, t01=0x0026}
0x179e…17c4 Head {h00=0x0022, h01=0x0050, text=» RF(NE) ER:IRQ FILE CODE USED «, t00=0x000f, t01=0x003c}
0x17c4…17e8 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBBA,A8 FPB ADDRESS «, t00=0x000f, t01=0x0062}
0x17e8…17fa Head {h00=0x000e, h01=0x0050, text=» ADK A1,8 «, t00=0x000f, t01=0x0086}
0x17fa…1810 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000f, t01=0x0098}
0x1810…1834 Head {h00=0x0020, h01=0x0050, text=» LC A4,FPB:BO,A1 TOSS OPTION«, t00=0x000f, t01=0x00ae}
0x1834…1848 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x000f, t01=0x00d2}
0x1848…185a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000f, t01=0x00e6}
0x185a…1882 Head {h00=0x0024, h01=0x0050, text=» RF(P) ER:IRQ OPTION NOT 0 OR 1 «, t00=0x000f, t01=0x00f8}
0x1882…18ac Head {h00=0x0026, h01=0x0050, text=» LC A4,FPB:FO,A1 FILE ORGANIZATION«, t00=0x000f, t01=0x0120}
0x18ac…18b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x014a}
0x18b8…18ce Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x0156}
0x18ce…18f2 Head {h00=0x0020, h01=0x0050, text=» EL A4,FPB:BO,A1 TOSS OPTION«, t00=0x000f, t01=0x016c}
0x18f2…1906 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x000f, t01=0x0190}
0x1906…1918 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0010, t01=0x0014}
0x1918…1940 Head {h00=0x0024, h01=0x0050, text=» RF(P) ER:IRQ OPTION NOT 0 OR 1 «, t00=0x0010, t01=0x0026}
0x1940…196c Head {h00=0x0028, h01=0x0050, text=» EL A4,FPB:FO-1,A1 FILE ORGANISATION«, t00=0x0010, t01=0x004e}
0x196c…1978 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x007a}
0x1978…198c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0010, t01=0x0086}
0x198c…199e Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0010, t01=0x009a}
0x199e…19ba Head {h00=0x0018, h01=0x0050, text=» RF(P) ER:IRQ ERROR «, t00=0x0010, t01=0x00ac}
0x19ba…19cc Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0010, t01=0x00c8}
0x19cc…19e8 Head {h00=0x0018, h01=0x0050, text=» RF(Z) ER:IRQ ERROR «, t00=0x0010, t01=0x00da}
0x19e8…19fe Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0010, t01=0x00f6}
0x19fe…1a1c Head {h00=0x001a, h01=0x0050, text=» RF(P) TAOP10 L,X-FILE«, t00=0x0010, t01=0x010c}
0x1a1c…1a34 Head {h00=0x0014, h01=0x0050, text=» LDK A2,1 S-FILE«, t00=0x0010, t01=0x012a}
0x1a34…1a48 Head {h00=0x0010, h01=0x0050, text=»TAOP10 EQU *«, t00=0x0010, t01=0x0142}
0x1a48…1a5e Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x0010, t01=0x0156}
0x1a5e…1a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016c}
0x1a68…1a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0176}
0x1a72…1a90 Head {h00=0x001a, h01=0x0050, text=» ADK A3,ORDOPE-ORDOP1 «, t00=0x0010, t01=0x0180}
0x1a90…1ab8 Head {h00=0x0024, h01=0x0050, text=» RF(N) TAOPE2 OPEN EXISTING FILE«, t00=0x0011, t01=0x000e}
0x1ab8…1ace Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0011, t01=0x0036}
0x1ace…1af4 Head {h00=0x0022, h01=0x0050, text=» AD A2,FPB:RL,A1 RECORD LENGTH«, t00=0x0011, t01=0x004c}
0x1af4…1b00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0072}
0x1b00…1b1c Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CRDEEX=2«, t00=0x0011, t01=0x007e}
0x1b1c…1b34 Head {h00=0x0014, h01=0x0050, text=» EL A3,FPB:RL,A1«, t00=0x0011, t01=0x009a}
0x1b34…1b58 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 FILE ORGANIZATION «, t00=0x0011, t01=0x00b2}
0x1b58…1b7a Head {h00=0x001e, h01=0x0050, text=» RF(NZ) TAOP20 NOT L-FILE «, t00=0x0011, t01=0x00d6}
0x1b7a…1b9e Head {h00=0x0020, h01=0x0050, text=» CWK A3,LFILEN L-FILE LENGTH«, t00=0x0011, t01=0x00f8}
0x1b9e…1bce Head {h00=0x002c, h01=0x0050, text=» RF(NE) ER:IRQ ILLEGAL REQUESTED LENGTH «, t00=0x0011, t01=0x011c}
0x1bce…1be2 Head {h00=0x0010, h01=0x0050, text=»TAOP20 EQU *«, t00=0x0011, t01=0x014c}
0x1be2…1bf4 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x0011, t01=0x0160}
0x1bf4…1c00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0172}
0x1c00…1c16 Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0011, t01=0x017e}
0x1c16…1c38 (18, 0, 400) Head {h00=0x001e, h01=0x0050, text=» RF(NP) ER:IRQ NOT ALLOWED«, t00=0x0012, t01=0x0004}
0x1c38…1c4c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0012, t01=0x0026}
0x1c4c…1c78 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ER:IRQ ERROR:ILLEGAL LENGTH «, t00=0x0012, t01=0x003a}
0x1c78…1c8e Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x0066}
0x1c8e…1cb2 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 FILE ORGANIZATION «, t00=0x0012, t01=0x007c}
0x1cb2…1cd4 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) TAOP20 NOT L-FILE «, t00=0x0012, t01=0x00a0}
0x1cd4…1cfa Head {h00=0x0022, h01=0x0050, text=» LDKL A3,LFILEN L-FILE LENGTH «, t00=0x0012, t01=0x00c2}
0x1cfa…1d20 Head {h00=0x0022, h01=0x0050, text=» CW A3,FPB:RL,A1 RECORD LENGTH«, t00=0x0012, t01=0x00e8}
0x1d20…1d36 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ER:IRQ«, t00=0x0012, t01=0x010e}
0x1d36…1d4a Head {h00=0x0010, h01=0x0050, text=»TAOP20 EQU *«, t00=0x0012, t01=0x0124}
0x1d4a…1d72 Head {h00=0x0024, h01=0x0050, text=» LC A2,FPB:BF,A1 BLOCKING FACTOR«, t00=0x0012, t01=0x0138}
0x1d72…1d7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0160}
0x1d7e…1d9a Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CRDEEX=2«, t00=0x0012, t01=0x016c}
0x1d9a…1dc0 Head {h00=0x0022, h01=0x0050, text=» EL A2,FPB:BF,A1 BLOCK FACTOR «, t00=0x0012, t01=0x0188}
0x1dc0…1dd2 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0013, t01=0x001e}
0x1dd2…1dde Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0030}
0x1dde…1df4 Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0013, t01=0x003c}
0x1df4…1e06 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0013, t01=0x0052}
0x1e06…1e26 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TARFP ACTIVATE #D«, t00=0x0013, t01=0x0064}
0x1e26…1e4e Head {h00=0x0024, h01=0x0050, text=» RF ER:IRQ ILLEGAL BLOCK FACTOR «, t00=0x0013, t01=0x0084}
0x1e4e…1e5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00ac}
0x1e5a…1e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b8}
0x1e64…1e7a Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x0013, t01=0x00c2}
0x1e7a…1e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d8}
0x1e84…1e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e2}
0x1e8e…1ea0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00ec}
0x1ea0…1eb2 Head {h00=0x000e, h01=0x0050, text=»* TAOPE2 *«, t00=0x0013, t01=0x00fe}
0x1eb2…1ec4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0110}
0x1ec4…1ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0122}
0x1ece…1ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012c}
0x1ed8…1f00 Head {h00=0x0024, h01=0x0050, text=»TAOPE2 EQU * OPEN EXISTING FILE «, t00=0x0013, t01=0x0136}
0x1f00…1f16 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x015e}
0x1f16…1f3e Head {h00=0x0024, h01=0x0050, text=» LD A2,FPB:EL,A1 ENLARGE FACTOR «, t00=0x0013, t01=0x0174}
0x1f3e…1f4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x000c}
0x1f4a…1f60 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0014, t01=0x0018}
0x1f60…1f88 Head {h00=0x0024, h01=0x0050, text=» EL A2,FPB:EL,A1 ENLARGE FACTOR «, t00=0x0014, t01=0x002e}
0x1f88…1f94 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0056}
0x1f94…1fb4 Head {h00=0x001c, h01=0x0050, text=» RF(Z) TARFP ACTIVATE #D«, t00=0x0014, t01=0x0062}
0x1fb4…1fd8 Head {h00=0x0020, h01=0x0050, text=»ER:IRQ EQU * ILLEGAL REQUEST«, t00=0x0014, t01=0x0082}
0x1fd8…1fec Head {h00=0x0010, h01=0x0050, text=» ABL DISIOE «, t00=0x0014, t01=0x00a6}
0x1fec…1ff6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ba}
0x1ff6…2000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c4}
0x2000…2016 Head {h00=0x0012, h01=0x0050, text=» EJECT TIOADM«, t00=0x0014, t01=0x00ce}
0x2016…2020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e4}
0x2020…202a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ee}
0x202a…203c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x00f8}
0x203c…204e Head {h00=0x000e, h01=0x0050, text=»* TACLOD *«, t00=0x0014, t01=0x010a}
0x204e…2060 Head {h00=0x000e, h01=0x0050, text=»* TACLOS *«, t00=0x0014, t01=0x011c}
0x2060…2072 Head {h00=0x000e, h01=0x0050, text=»* TARFP *«, t00=0x0014, t01=0x012e}
0x2072…2084 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x0140}
0x2084…208e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0152}
0x208e…20b8 Head {h00=0x0026, h01=0x0050, text=»* CLOSE AND READ FILE PARAMETERS«, t00=0x0014, t01=0x015c}
0x20b8…20c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0186}
0x20c2…20ee Head {h00=0x0028, h01=0x0050, text=»* A4 = FILE CODE REFERENCE ADDRESS«, t00=0x0014, t01=0x0190}
0x20ee…20f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002c}
0x20f8…2102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0036}
0x2102…2118 Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0015, t01=0x0040}
0x2118…213a Head {h00=0x001e, h01=0x0050, text=»TACLOD EQU * CLOSE DISCARD«, t00=0x0015, t01=0x0056}
0x213a…214c Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0015, t01=0x0078}
0x214c…2174 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) TACLOS OPENED EXCLUSIVE «, t00=0x0015, t01=0x008a}
0x2174…21a0 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,/8000 RC: REQUEST ERROR =1 «, t00=0x0015, t01=0x00b2}
0x21a0…21bc Head {h00=0x0018, h01=0x0050, text=» ST A1,ECBRC,A8 =1 «, t00=0x0015, t01=0x00de}
0x21bc…21e8 Head {h00=0x0028, h01=0x0050, text=» LDK A1,ORDCLO PERFORM CLOSE LOCK =1«, t00=0x0015, t01=0x00fa}
0x21e8…2206 Head {h00=0x001a, h01=0x0050, text=» SC A1,DWTOR+1,A6 =1 «, t00=0x0015, t01=0x0126}
0x2206…2212 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0144}
0x2212…2232 Head {h00=0x001c, h01=0x0050, text=»TACLOS EQU * CLOSE LOCK «, t00=0x0015, t01=0x0150}
0x2232…224a Head {h00=0x0014, h01=0x0050, text=» LDKL A2,FDBSTA «, t00=0x0015, t01=0x0170}
0x224a…2266 Head {h00=0x0018, h01=0x0050, text=» ST A2,2,A4 FC ENTRY«, t00=0x0015, t01=0x0188}
0x2266…227a Head {h00=0x0010, h01=0x0050, text=»TARFP EQU * «, t00=0x0016, t01=0x0014}
0x227a…22a2 Head {h00=0x0024, h01=0x0050, text=» LDKL A2,ADMTSK DISPATCH ADDRESS«, t00=0x0016, t01=0x0028}
0x22a2…22ca Head {h00=0x0024, h01=0x0050, text=» ABL DMACTD ACTIVATE DM TASK #D «, t00=0x0016, t01=0x0050}
0x22ca…22d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0078}
0x22d4…22e0 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0016, t01=0x0082}
0x22e0…22e4 Head {h00=0x4004, h01=0x0000}
0x22e4…22e8 00 16 00 8e ┆ ┆
0x22e8…22f0 (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x22f0…2340 (24, 0, 400) 46 52 53 54 5c 45 51 55 5c 2a 00 1f 01 8e 00 14 00 50 5c 4c 44 4b 4c 5c 41 32 2c 46 44 42 4d 45 43 20 00 20 00 12 00 1a 00 50 5c 53 55 4b 4c 5c 41 32 2c 46 44 42 45 43 42 5c 4c 45 4e 47 54 48 00 20 00 2a 00 10 00 50 4f 50 46 31 30 30 5c 45 ┆FRST EQU * P LDKL A2,FDBMEC P SUKL A2,FDBECB LENGTH * POPF100 E┆
0x2340…2390 51 55 5c 2a 00 20 00 48 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 32 20 00 20 00 5c 00 14 00 50 5c 52 46 28 4e 29 5c 4f 50 46 31 31 30 5c 4f 4b 00 20 00 6e 00 10 00 50 5c 4c 44 52 5c 41 37 2c 41 31 31 20 00 20 00 86 00 0e 00 50 5c 41 44 52 5c 41 ┆QU * H P SUK A2,2 P RF(N) OPF110 OK n P LDR A7,A11 P ADR A┆
0x2390…23e0 37 2c 41 32 00 20 00 9a 00 12 00 50 5c 43 4d 5c 46 44 42 45 43 42 2c 41 37 20 00 20 00 ac 00 0e 00 50 5c 52 42 5c 4f 50 46 31 30 30 00 20 00 c2 00 0a 00 50 5c 45 4a 45 43 54 00 20 00 d4 00 06 00 50 2a 20 00 20 00 e2 00 1a 00 50 2a 20 20 20 ┆7,A2 P CM FDBECB,A7 P RB OPF100 P EJECT P* P* ┆
0x23e0…2430 42 55 49 4c 44 20 46 57 54 20 46 44 42 20 50 41 52 54 00 20 00 ec 00 06 00 50 2a 20 00 20 01 0a 00 10 00 50 4f 50 46 31 31 30 5c 45 51 55 5c 2a 00 20 01 14 00 10 00 50 5c 4c 44 5c 41 32 2c 44 45 4c 41 59 00 20 01 28 00 2c 00 50 5c 53 54 5c ┆BUILD FWT FDB PART P* POPF110 EQU * P LD A2,DELAY ( , P ST ┆
0x2430…2480 41 32 2c 46 44 42 44 42 52 2c 41 31 31 5c 53 45 54 20 44 45 4c 41 59 20 46 4f 52 20 4e 45 57 20 46 49 4c 45 00 20 01 3c 00 16 00 50 5c 4c 44 5c 41 33 2c 46 50 42 3a 52 4c 2c 41 31 32 5c 00 20 01 6c 00 24 00 50 5c 53 54 5c 41 33 2c 46 44 42 ┆A2,FDBDBR,A11 SET DELAY FOR NEW FILE < P LD A3,FPB:RL,A12 l $ P ST A3,FDB┆
0x2480…24d0 (25, 0, 400) 52 4c 45 2c 41 31 31 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 00 20 01 86 00 16 00 50 5c 4c 43 5c 41 33 2c 46 50 42 3a 42 46 2c 41 31 32 20 00 21 00 1e 00 22 00 50 5c 53 43 5c 41 33 2c 46 44 42 42 4c 46 2c 41 31 31 5c 42 4c 4f 43 4b 20 ┆RLE,A11 RECORD LENGTH P LC A3,FPB:BF,A12 ! " P SC A3,FDBBLF,A11 BLOCK ┆
0x24d0…2520 46 41 43 54 4f 52 00 21 00 38 00 20 00 50 5c 4c 44 5c 41 33 2c 4e 52 4f 46 49 58 5c 4e 52 20 4f 46 20 49 4e 44 45 58 45 53 20 00 21 00 5e 00 28 00 50 5c 53 43 5c 41 33 2c 46 44 42 4e 49 46 2c 41 31 31 5c 4e 52 20 4f 46 20 49 4e 44 45 58 20 ┆FACTOR ! 8 P LD A3,NROFIX NR OF INDEXES ! ^ ( P SC A3,FDBNIF,A11 NR OF INDEX ┆
0x2520…2570 46 49 4c 45 53 20 00 21 00 82 00 18 00 50 5c 4c 43 5c 41 33 2c 46 50 42 3a 46 52 2b 31 2c 41 31 32 20 00 21 00 ae 00 16 00 50 5c 53 43 5c 41 33 2c 46 44 42 4c 52 4e 2c 41 31 31 20 00 21 00 ca 00 18 00 50 5c 4c 44 5c 41 33 2c 46 50 42 3a 46 ┆FILES ! P LC A3,FPB:FR+1,A12 ! P SC A3,FDBLRN,A11 ! P LD A3,FPB:F┆
0x2570…25c0 52 2b 32 2c 41 31 32 20 00 21 00 e4 00 24 00 50 5c 53 54 5c 41 33 2c 46 44 42 4c 52 4e 2b 31 2c 41 31 31 5c 4c 41 53 54 20 52 45 43 20 4e 52 20 00 21 01 00 00 12 00 50 5c 43 4d 5c 46 44 42 53 4e 52 2c 41 31 31 00 21 01 28 00 0e 00 50 5c 4c ┆R+2,A12 ! $ P ST A3,FDBLRN+1,A11 LAST REC NR ! P CM FDBSNR,A11 ! ( P L┆
0x25c0…2610 44 4b 5c 41 33 2c 31 20 00 21 01 3e 00 2c 00 50 5c 53 54 5c 41 33 2c 46 44 42 53 4e 52 2b 32 2c 41 31 31 5c 52 45 53 45 54 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 20 00 21 01 50 00 16 00 50 5c 4c 44 5c 41 33 2c 4f 50 45 4d 58 49 2c 41 31 ┆DK A3,1 ! > , P ST A3,FDBSNR+2,A11 RESET SECTOR NUMBER ! P P LD A3,OPEMXI,A1┆
0x2610…2660 (26, 0, 400) 33 20 00 21 01 80 00 28 00 50 5c 53 54 5c 41 33 2c 46 44 42 4d 49 41 2c 41 31 31 5c 4d 41 53 54 45 52 20 49 4e 44 45 58 20 41 44 44 52 20 00 22 00 0a 00 22 00 50 5c 52 46 28 5a 29 5c 4f 50 46 31 32 30 5c 4e 4f 20 4d 41 53 54 45 52 20 49 4e ┆3 ! ( P ST A3,FDBMIA,A11 MASTER INDEX ADDR " " P RF(Z) OPF120 NO MASTER IN┆
0x2660…26b0 44 45 58 20 00 22 00 36 00 16 00 50 5c 4c 44 5c 41 33 2c 46 50 42 3a 4b 41 2c 41 31 32 20 00 22 00 5c 00 16 00 50 5c 43 57 5c 41 33 2c 4f 50 45 4b 41 44 2c 41 31 33 20 00 22 00 76 00 1c 00 50 5c 52 42 28 4e 45 29 5c 4f 50 45 45 52 34 5c 57 ┆DEX " 6 P LD A3,FPB:KA,A12 " P CW A3,OPEKAD,A13 " v P RB(NE) OPEER4 W┆
0x26b0…2700 52 4f 4e 47 20 4b 45 59 00 22 00 90 00 1e 00 50 5c 53 54 5c 41 33 2c 46 44 42 4b 41 2c 41 31 31 5c 4b 45 59 20 41 44 44 52 20 00 22 00 b0 00 10 00 50 4f 50 46 31 32 30 5c 45 51 55 5c 2a 00 22 00 d2 00 16 00 50 5c 4c 43 5c 41 33 2c 46 50 42 ┆RONG KEY " P ST A3,FDBKA,A11 KEY ADDR " POPF120 EQU * " P LC A3,FPB┆
0x2700…2750 3a 42 4f 2c 41 31 32 20 00 22 00 e6 00 0e 00 50 5c 53 4c 4c 5c 41 33 2c 38 20 00 22 01 00 00 26 00 50 5c 4f 52 53 5c 41 33 2c 46 44 42 44 42 52 2c 41 31 31 5c 42 41 53 49 43 20 2b 20 4f 50 54 49 4f 4e 20 00 22 01 12 00 0a 00 50 5c 45 4a 45 ┆:BO,A12 " P SLL A3,8 " & P ORS A3,FDBDBR,A11 BASIC + OPTION " P EJE┆
0x2750…27a0 43 54 00 22 01 3c 00 06 00 50 2a 20 00 22 01 4a 00 1c 00 50 2a 20 20 20 43 41 4c 43 55 4c 41 54 45 20 53 44 4d 54 53 4b 20 49 44 20 00 22 01 54 00 06 00 50 2a 20 00 22 01 74 00 2c 00 50 5c 4c 43 5c 41 33 2c 46 57 54 56 4f 4c 2c 41 31 31 5c ┆CT " < P* " J P* CALCULATE SDMTSK ID " T P* " t , P LC A3,FWTVOL,A11 ┆
0x27a0…27f0 (27, 0, 400) 46 49 52 53 54 20 45 58 54 45 4e 54 20 56 4f 4c 55 4d 45 20 46 43 00 22 01 7e 00 10 00 50 5c 4c 44 4b 4c 5c 41 36 2c 2d 31 20 00 23 00 1e 00 10 00 50 4f 50 46 31 34 30 5c 45 51 55 5c 2a 00 23 00 32 00 0e 00 50 5c 41 44 4b 5c 41 36 2c 31 20 ┆FIRST EXTENT VOLUME FC " ~ P LDKL A6,-1 # POPF140 EQU * # 2 P ADK A6,1 ┆
0x27f0…2840 00 23 00 46 00 14 00 50 5c 43 43 5c 41 33 2c 44 46 54 41 42 2c 41 36 20 00 23 00 58 00 20 00 50 5c 52 42 28 4e 45 29 5c 4f 50 46 31 34 30 5c 4e 4f 54 20 54 48 49 53 20 44 49 53 43 00 23 00 70 00 24 00 50 5c 4c 43 5c 41 33 2c 44 4d 54 49 44 ┆ # F P CC A3,DFTAB,A6 # X P RB(NE) OPF140 NOT THIS DISC # p $ P LC A3,DMTID┆
0x2840…2890 50 2c 41 36 5c 52 45 4c 20 44 4d 20 54 41 53 4b 20 49 44 20 00 23 00 94 00 24 00 50 5c 53 43 5c 41 33 2c 46 44 42 44 4d 49 2c 41 31 31 5c 4d 41 49 4e 20 53 44 4d 54 53 4b 20 49 44 00 23 00 bc 00 06 00 50 2a 20 00 23 00 e4 00 34 00 50 2a 5c ┆P,A6 REL DM TASK ID # $ P SC A3,FDBDMI,A11 MAIN SDMTSK ID # P* # 4 P* ┆
0x2890…28e0 43 41 4c 43 55 4c 41 54 45 20 4d 41 58 20 46 44 42 52 52 4f 20 41 4e 44 20 42 4c 4f 43 4b 53 49 5a 45 20 49 4e 20 53 45 43 54 4f 52 53 20 00 23 00 ee 00 06 00 50 2a 20 00 23 01 26 00 12 00 50 5c 43 46 5c 41 31 34 2c 43 41 52 52 42 4c 00 23 ┆CALCULATE MAX FDBRRO AND BLOCKSIZE IN SECTORS # P* # & P CF A14,CARRBL #┆
0x28e0…2930 01 30 00 26 00 50 5c 52 42 28 47 29 5c 4f 50 45 45 52 34 5c 54 4f 4f 20 4c 41 52 47 45 20 42 4c 4f 43 4b 20 53 49 5a 45 00 23 01 46 00 20 00 50 5c 53 54 5c 41 31 2c 46 44 42 4d 52 4f 2c 41 31 31 5c 4d 41 58 20 46 44 42 52 52 4f 00 23 01 70 ┆ 0 & P RB(G) OPEER4 TOO LARGE BLOCK SIZE # F P ST A1,FDBMRO,A11 MAX FDBRRO # p┆
0x2930…2980 (28, 0, 400) 00 2c 00 50 5c 53 43 5c 41 32 2c 46 44 42 42 4c 5a 2c 41 31 31 5c 42 4c 4f 43 4b 20 53 49 5a 45 20 49 4e 20 53 45 43 54 4f 52 53 20 00 24 00 04 00 18 00 50 5c 53 54 5c 41 31 31 2c 46 44 42 41 44 46 2c 41 31 31 5c 20 00 24 00 34 00 06 00 50 ┆ , P SC A2,FDBBLZ,A11 BLOCK SIZE IN SECTORS $ P ST A11,FDBADF,A11 $ 4 P┆
0x2980…29d0 2a 20 00 24 00 50 00 1e 00 50 2a 5c 43 41 4c 43 55 4c 41 54 45 20 45 4e 4c 41 52 47 45 20 46 41 43 54 4f 52 00 24 00 5a 00 06 00 50 2a 20 00 24 00 7c 00 24 00 50 5c 4c 44 52 5c 41 34 2c 41 32 5c 42 4c 4f 43 4b 20 53 49 5a 45 20 49 4e 20 53 ┆* $ P P* CALCULATE ENLARGE FACTOR $ Z P* $ | $ P LDR A4,A2 BLOCK SIZE IN S┆
0x29d0…2a20 45 43 54 4f 52 53 00 24 00 86 00 12 00 50 5c 43 46 5c 41 31 34 2c 45 4e 4c 46 41 43 00 24 00 ae 00 1a 00 50 5c 52 42 28 4f 29 5c 4f 50 45 45 52 33 5c 4f 56 45 52 46 4c 4f 57 00 24 00 c4 00 2a 00 50 5c 53 54 5c 41 33 2c 46 44 42 45 4e 4c 2c ┆ECTORS $ P CF A14,ENLFAC $ P RB(O) OPEER3 OVERFLOW $ * P ST A3,FDBENL,┆
0x2a20…2a70 41 31 31 5c 53 41 56 45 20 45 4e 4c 41 52 47 45 20 46 41 43 54 4f 52 20 00 24 00 e2 00 0a 00 50 5c 45 4a 45 43 54 00 24 01 10 00 06 00 50 2a 20 00 24 01 1e 00 14 00 50 2a 5c 53 45 54 20 4f 50 45 4e 20 4d 4f 44 45 20 00 24 01 28 00 06 00 50 ┆A11 SAVE ENLARGE FACTOR $ P EJECT $ P* $ P* SET OPEN MODE $ ( P┆
0x2a70…2ac0 2a 20 00 24 01 40 00 1c 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 44 45 46 41 55 4c 54 20 56 41 4c 55 45 20 00 24 01 4a 00 14 00 50 5c 4c 44 5c 41 33 2c 44 57 54 4f 52 2c 41 31 30 00 24 01 6a 00 20 00 50 5c 53 43 5c 41 33 2c 46 44 42 4f 4d 44 2c ┆* $ @ P LDK A1,0 DEFAULT VALUE $ J P LD A3,DWTOR,A10 $ j P SC A3,FDBOMD,┆