|
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: 14138 (0x373a)
Notes: pts_type(SC)
Names: »TOSSFM.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/TOSSFM.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/TOSSFM.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/TOSSFM.SC«
IDENT TOSSFM REL 10.0 80-03-14 870105041000 * * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * * TOSSFM = TOSS FILE MANAGEMENT LKM PROCESSOR * * * * * ************************************************** * * * TOSS FILE MANAGEMENT LKM PROCESSOR HANDLES * PREPARATIONS FOR DISC I/O, AND ACTIVATION OF * THE FILE MANAGEMENT TASK (FMTASK) FOR FILE * ADMINISTRATION FUNCTIONS. * * EJECT TOSSFM * * *********** * ENTRIES * *********** * * ENTRY TOSSFM TOSS FILE MANAGEMENT LKM PROCESSOR ENTRY FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS ENTRY FCHEC2 FCHECK 2ND ENTRY EJECT TOSSFM * * ************* * EXTERNALS * ************* * * EXTRN FMRDWR FM READ/WRITE EXTRN FM:ADM FM ADMINISTRATION FUNCTIONS EXTRN TTABFM FMTASK TTAB EXTRN QUEDEV QUEUE REQUEST IN DEVICE QUEUE EXTRN TIO:FM FM ENTRY IN TIO EXTRN ACTDIS ACTIVATE TASK AND DISPATCH EXTRN FNDDWD FIND DWT ADDRESS EXTRN TIOERR ERROR: QUEUE TASK AND DISPATCH EXTRN SCTFWT FWT CHAIN START ADDRESS EXTRN SCTNOF NUMBER OF FILES EXTRN FWTPAR FILE ACCESS PARAMETERS EXTRN FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT EXTRN EWTEXL EXTENT LENGTH EXTRN EWTEXB EXTENT BASE EXTRN EWTVOL VOLUME FILE CODE EXTRN ECBRL ECB REQUESTED LENGTH EXTRN ECBCW1 ECB CONTROL WORD 1 EXTRN ECBCW2 ECB CONTROL WORD 2 EXTRN DWTST DWT STATUS WORD EJECT TOSSFM * * **************************************** * * CONDITIONAL ASSEMBLY * **************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O * IS OBTAINED BY SETTING XTSPLI EQU 1. * XTSPLI EQU 0 * EJECT TOSSFM * * ********** * TOSSFM * ********** * * * THIS IS THE TOSS FILE MANAGEMENT LKM PROCESSOR. * * IT IS ENTERED FROM THE LKM HANDLER * WITH THE FOLLOWING PARAMETERS: * * A5 = TTAB ADDRESS * A7 = ORDER CODE * A8 = ECB ADDRESS * * WHEN FILE ADMINISTRATION IS REQUESTED, * TOSSFM WILL ACTIVATE THE FMTASK. * * WHEN I/O FUNCTION IS REQUESTED, TOSSFM * WILL PREPARE FOR DISC I/O. THE I/O WILL * THEN RUN THE NORMAL WAY VIA TIO-DRIVER-TENDIO. * * EJECT TOSSFM * * TOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY * * CHECK ORDER CODE * LDR A2,A7 ORDER CODE ANK A2,/FF SKIP OPTION XRK A2,/80 WAIT BIT SUK A2,/01 RF(Z) FM:030 BASIC READ SUK A2,/03-/01 RF(Z) FM:010 READ FILE PARAMETERS SUK A2,/05-/03 RF(Z) FM:030 BASIC WRITE SUK A2,/11-/05 RF(Z) FM:030 PHYSICAL READ SUK A2,/15-/11 RF(Z) FM:030 PHYSICAL WRITE SUK A2,/21-/15 RF(Z) FM:010 OPEN/CREATE/EXTEND SUK A2,/22-/21 RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELETE * EJECT TOSSFM * * FILE ADMINISTRATION REQUESTED. * ACTIVATE FMTASK WITH THE FOLLOWING PARAMETERS: * * A1 = ORDER CODE AND OPTION * A2 = DISPATCH ADDRESS * A3 = TTAB ADDRESS OF CALLING TASK * A4 = ECB ADDRESS * A5 = FMTASK TTAB ADDRESS * FM:010 EQU * LDR A1,A7 ORDER CODE AND OPTION LDKL A2,FM:ADM DISPATCH ADDRESS * FM:020 EQU * LDR A3,A5 TTAB ADDRESS OF CALLING TASK LDR A4,A8 ECB ADDRESS LDKL A5,TTABFM FMTASK TTAB ADDRESS ABL ACTDIS ACTIVATE FMTASK AND DISPATCH * EJECT TOSSFM * * ********** * FM I/O * ********** * * FILE MANAGEMENT I/O FUNCTIONS * FM:030 EQU * BASIC AND PHYSICAL READ/WRITE CF A15,FCHECK FIND FWT AND CHECK ACCESS PARAMETERS ADK A1,0 CHECK RETURN CODE RF(Z) FM:050 OK * FM:040 EQU * LDR A3,A1 RETURN CODE ABL TIOERR ERROR: QUEUE TASK AND DISPATCH * EJECT TOSSFM * * CHECK RELATIVE SECTOR NUMBER * FM:050 EQU * IFT MMUPAG=0 LD A1,ECBCW1,A8 RELATIVE SECTOR NUMBER LD A2,ECBCW2,A8 XIF * IFT MMUPAG=1 EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER EL A2,ECBCW2,A8 XIF * RF(NZ) FM:060 ADK A1,0 RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0 * FM:060 EQU * ECR A6,A1 ANK A6,/FF RF(NZ) FM:RQE ILLEGAL RELATIVE SECTOR NUMBER LDR A9,A7 SAVE ORDER CODE ADKL A3,FWTEW1 ADDRESS TO 1ST EWT STRUCTURE LDKL A14,/7FFF * EJECT TOSSFM * * SEARCH THE FILE EXTENT THAT HOLDS * THE REQUESTED SECTORS * FM:070 EQU * LC A6,EWTEXL-1,A3 FILE EXTENT LENGTH LD A7,EWTEXL,A3 CWR A1,A6 CHECK EXTENT LENGTH RF(L) FM:100 EXTENT FOUND RF(G) FM:080 EXTENT NOT FOUND CWR A2,A7 RF(NG) FM:100 EXTENT FOUND * FM:080 EQU * IFT CPU852=0 DSR A6 SUBTRACT LENGTH FROM SECTOR NUMBER XIF * IFT CPU852=1 SUR A1,A6 SUBTRACT LENGTH FROM SECTOR NUMBER SUR A2,A7 RF(NN) FM:090 NOT UNDERFLOW SUK A1,1 UNDERFLOW CORRECTION ANR A2,A14 SKIP SIGN BIT XIF * FM:090 EQU * LDR* A3,A3 ADDRESS TO 2ND EWT BLOCK LDR* A3,A3 ADDRESS TO NEXT EWT STRUCTURE RB(NZ) FM:070 CHECK NEXT EXTENT * FM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT LDKL A1,/A000 REQUEST ERROR RB FM:040 * EJECT TOSSFM * * EXTENT FOUND * FM:100 EQU * LDR* A4,A3 ADDRESS TO 2ND EWT BLOCK SUR A10,A10 LC A10,EWTEXB-1,A4 FILE EXTENT BASE LD A11,EWTEXB,A4 * IFT CPU852=0 DAR A10 COMPUTE SECTOR NUMBER XIF * IFT CPU852=1 ADR A1,A10 COMPUTE SECTOR NUMBER ADR A2,A11 RF(O) FM:140 OVERFLOW XIF * FM:110 EQU * SUK A2,1 RF(NN) FM:115 NOT UNDERFLOW SRL A2,1 UNDERFLOW CORRECTION SUK A1,1 * EJECT TOSSFM * * FM:115 EQU * LDR A12,A1 SAVE SECTOR NUMBER LDR A13,A2 * IFT MMUPAG=0 LC A3,ECBRL,A8 REQUESTED LENGTH (SECTORS) XIF * IFT MMUPAG=1 EL A3,ECBRL,A8 REQUESTED LENGTH (BYTES) ECR A3,A3 SECTORS XIF * ANK A3,/FF ADR A2,A3 COMPUTE LAST REQUESTED SECTOR+1 RF(O) FM:150 OVERFLOW * FM:120 EQU * ADR A6,A10 COMPUTE LAST SECTOR+1 IN EXTENT ADR A7,A11 RF(O) FM:160 OVERFLOW * FM:125 EQU * CWR A6,A1 RF(G) FM:130 ALL SECTORS WITHIN THIS EXTENT * IFT XTSPLI=0 RB(L) FM:RQE ALL SECTORS NOT WITHIN THIS EXTENT CWR A7,A2 RB(L) FM:RQE ALL SECTORS NOT WITHIN THIS EXTENT XIF * IFT XTSPLI=1 RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT CWR A7,A2 RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT XIF * EJECT TOSSFM * * PREPARE PARAMETERS FOR DISC I/O * * EXIT PARAMETERS: * * A2 = DISC INDEX (FROM FNDDWD) * A4 = 0 (INDICATES NOT I/O-AND-ACTIVATION) * A5 = TTAB ADDRESS * A6 = DISC DWT ADDRESS (FROM FNDDWD) * A7 = ORDER CODE * A8 = ECB ADDRESS * FM:130 EQU * LC A2,EWTVOL,A4 FILE CODE DISC CF A15,FNDDWD FIND DISC DWT ADDRESS LDK A4,0 INDICATE NOT I/O-AND-ACTIVATE LDR A7,A9 RESTORE ORDER CODE LD A1,DWTST,A6 DWT STATUS ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST * IFT MMUPAG=0 ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB ST A13,ECBCW2,A8 XIF * IFT MMUPAG=1 ES A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB ES A13,ECBCW2,A8 XIF * ABL TIO:FM BRANCH TO FM ENTRY IN TIO * EJECT TOSSFM * * OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS * FM:140 EQU * IFT CPU852=1 ADK A1,1 ANR A2,A14 SKIP SIGN BIT RB FM:110 XIF * FM:150 EQU * ADK A1,1 ANR A2,A14 SKIP SIGN BIT RB FM:120 * FM:160 EQU * ADK A6,1 ANR A7,A14 SKIP SIGN BIT RB FM:125 * EJECT TOSSFM * * REQUESTED SECTORS CONTINUE IN NEXT EXTENT * FM:170 EQU * IFT XTSPLI=1 LDR A1,A4 EWT ADDRESS (2ND BLOCK) LDKL A2,FMRDWR DISPATCH ADDRESS *****A7????????????***** RB FM:020 ACTIVATE FMTASK XIF * EJECT TOSSFM * * ********** * FCHECK * * FCHEC2 * ********** * * * FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT * ADDRESS AND CHECKS ACCESS PARAMETERS. * * INPUT: A5 = TTAB ADDRESS * A7 = ORDER CODE * A8 = ECB ADDRESS * * OUTPUT: A1 = RETURN CODE (=0 IF OK) * A3 = FWT ADDRESS * A2 IS DESTROYED * FCHECK EQU * FCHECK MAIN ENTRY IFT MMUPAG=0 LDR* A2,A8 FILE NUMBER XIF * IFT MMUPAG=1 ELR A2,A8 FILE NUMBER XIF * FCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FILE NUMBER) LDK A1,0 ANK A2,/FF RF(Z) FC:050 FILE NUMBER = 0 CW A2,SCTNOF RF(G) FC:050 FILE NUMBER TOO BIG LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER * EJECT TOSSFM * * FC:010 EQU * COMPUTE FWT ADDRESS LDR* A3,A3 NEXT FWT ADDRESS SUK A2,1 RB(P) FC:010 * * CHECK ACCESS PARAMETERS * ANKL A3,/FFFE CORRECT FWT ADDRESS JUST IN CASE LDR* A2,A3 FIRST WORD OF FWT ANK A2,1 CHECK IF FWT USED RF(Z) FC:050 FILE NOT OPENED LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) RF(Z) FC:020 OPENED NON-EXCLUSIVELY CWR A2,A5 EA, CHECK IF THIS TASK RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK * FC:020 EQU * LD A2,FWTPAR,A3 ACCESS PARAMETERS RF(N) FC:070 NEW VOLUME LOADED SLL A2,1 RF(NN) FC:040 PHYSICAL ORDERS ANK A7,/85 BASIC ORDER * FC:040 EQU * COMMON FCHECK RETURN LABEL RTN A15 * EJECT TOSSFM * * ERROR RETURNS * FC:050 EQU * REQUEST ERROR EXIT LDKL A1,/7FC0 RETURN CODE = /8000 * FC:060 EQU * FILE PROTECTED EXIT ADK A1,/20 RETURN CODE = /40 * FC:070 EQU * NEW VOLUME LOADED EXIT ADK A1,/20 RETURN CODE = /20 RB FC:040 RETURN * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TOSSFM REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…008c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0056}
0x008c…0096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00d0 Head {h00=0x0036, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS *«, t00=0x0000, t01=0x009a}
0x00d0…00da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d4}
0x00da…0114 Head {h00=0x0036, h01=0x0050, text=»* TOSSFM = TOSS FILE MANAGEMENT LKM PROCESSOR *«, t00=0x0000, t01=0x00de}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012c}
0x0132…013c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…0176 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0140}
0x0176…0180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017a}
0x0180…018a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0184}
0x018a…01c0 Head {h00=0x0032, h01=0x0050, text=»* TOSS FILE MANAGEMENT LKM PROCESSOR HANDLES«, t00=0x0000, t01=0x018e}
0x01c0…01f8 Head {h00=0x0034, h01=0x0050, text=»* PREPARATIONS FOR DISC I/O, AND ACTIVATION OF«, t00=0x0001, t01=0x0034}
0x01f8…022e Head {h00=0x0032, h01=0x0050, text=»* THE FILE MANAGEMENT TASK (FMTASK) FOR FILE«, t00=0x0001, t01=0x006c}
0x022e…0254 Head {h00=0x0022, h01=0x0050, text=»* ADMINISTRATION FUNCTIONS. «, t00=0x0001, t01=0x00a2}
0x0254…025e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c8}
0x025e…0268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d2}
0x0268…0280 Head {h00=0x0014, h01=0x0050, text=» EJECT TOSSFM «, t00=0x0001, t01=0x00dc}
0x0280…028a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f4}
0x028a…0294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…02a8 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0108}
0x02a8…02bc Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x011c}
0x02bc…02d0 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0130}
0x02d0…02da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0144}
0x02da…02e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014e}
0x02e4…031c Head {h00=0x0034, h01=0x0050, text=» ENTRY TOSSFM TOSS FILE MANAGEMENT LKM PROCESSOR«, t00=0x0001, t01=0x0158}
0x031c…035a Head {h00=0x003a, h01=0x0050, text=» ENTRY FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS«, t00=0x0001, t01=0x0190}
0x035a…0380 Head {h00=0x0022, h01=0x0050, text=» ENTRY FCHEC2 FCHECK 2ND ENTRY«, t00=0x0002, t01=0x003e}
0x0380…0398 Head {h00=0x0014, h01=0x0050, text=» EJECT TOSSFM «, t00=0x0002, t01=0x0064}
0x0398…03a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007c}
0x03a2…03ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0086}
0x03ac…03c2 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x0090}
0x03c2…03d8 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x00a6}
0x03d8…03ee Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x00bc}
0x03ee…03f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d2}
0x03f8…0402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00dc}
0x0402…0426 Head {h00=0x0020, h01=0x0050, text=» EXTRN FMRDWR FM READ/WRITE «, t00=0x0002, t01=0x00e6}
0x0426…0458 Head {h00=0x002e, h01=0x0050, text=» EXTRN FM:ADM FM ADMINISTRATION FUNCTIONS «, t00=0x0002, t01=0x010a}
0x0458…047a Head {h00=0x001e, h01=0x0050, text=» EXTRN TTABFM FMTASK TTAB «, t00=0x0002, t01=0x013c}
0x047a…04ae Head {h00=0x0030, h01=0x0050, text=» EXTRN QUEDEV QUEUE REQUEST IN DEVICE QUEUE «, t00=0x0002, t01=0x015e}
0x04ae…04d4 (3, 0, 400) Head {h00=0x0022, h01=0x0050, text=» EXTRN TIO:FM FM ENTRY IN TIO «, t00=0x0003, t01=0x0004}
0x04d4…0504 Head {h00=0x002c, h01=0x0050, text=» EXTRN ACTDIS ACTIVATE TASK AND DISPATCH«, t00=0x0003, t01=0x002a}
0x0504…052a Head {h00=0x0022, h01=0x0050, text=» EXTRN FNDDWD FIND DWT ADDRESS«, t00=0x0003, t01=0x005a}
0x052a…055e Head {h00=0x0030, h01=0x0050, text=» EXTRN TIOERR ERROR: QUEUE TASK AND DISPATCH«, t00=0x0003, t01=0x0080}
0x055e…058c Head {h00=0x002a, h01=0x0050, text=» EXTRN SCTFWT FWT CHAIN START ADDRESS «, t00=0x0003, t01=0x00b4}
0x058c…05b2 Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOF NUMBER OF FILES «, t00=0x0003, t01=0x00e2}
0x05b2…05de Head {h00=0x0028, h01=0x0050, text=» EXTRN FWTPAR FILE ACCESS PARAMETERS«, t00=0x0003, t01=0x0108}
0x05de…0618 Head {h00=0x0036, h01=0x0050, text=» EXTRN FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS «, t00=0x0003, t01=0x0134}
0x0618…064e Head {h00=0x0032, h01=0x0050, text=» EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT «, t00=0x0003, t01=0x016e}
0x064e…0672 Head {h00=0x0020, h01=0x0050, text=» EXTRN EWTEXL EXTENT LENGTH «, t00=0x0004, t01=0x0014}
0x0672…0694 Head {h00=0x001e, h01=0x0050, text=» EXTRN EWTEXB EXTENT BASE «, t00=0x0004, t01=0x0038}
0x0694…06ba Head {h00=0x0022, h01=0x0050, text=» EXTRN EWTVOL VOLUME FILE CODE«, t00=0x0004, t01=0x005a}
0x06ba…06e4 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0004, t01=0x0080}
0x06e4…070c Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 ECB CONTROL WORD 1«, t00=0x0004, t01=0x00aa}
0x070c…0734 Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW2 ECB CONTROL WORD 2«, t00=0x0004, t01=0x00d2}
0x0734…0758 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTST DWT STATUS WORD«, t00=0x0004, t01=0x00fa}
0x0758…0770 Head {h00=0x0014, h01=0x0050, text=» EJECT TOSSFM «, t00=0x0004, t01=0x011e}
0x0770…077a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0136}
0x077a…0784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0140}
0x0784…07b4 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0004, t01=0x014a}
0x07b4…07be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017a}
0x07be…07dc Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x0184}
0x07dc…07e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0012}
0x07e6…0816 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0005, t01=0x001c}
0x0816…0820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004c}
0x0820…0852 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0005, t01=0x0056}
0x0852…0880 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0005, t01=0x0088}
0x0880…088a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b6}
0x088a…089e Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0005, t01=0x00c0}
0x089e…08a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d4}
0x08a8…08b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00de}
0x08b2…08ec Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0005, t01=0x00e8}
0x08ec…091e Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0005, t01=0x0122}
0x091e…0928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0154}
0x0928…093c Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0005, t01=0x015e}
0x093c…0946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0172}
0x0946…0950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017c}
0x0950…0988 Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O «, t00=0x0005, t01=0x0186}
0x0988…09b6 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING XTSPLI EQU 1.«, t00=0x0006, t01=0x002e}
0x09b6…09c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x005c}
0x09c0…09d4 Head {h00=0x0010, h01=0x0050, text=»XTSPLI EQU 0«, t00=0x0006, t01=0x0066}
0x09d4…09de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007a}
0x09de…09f6 Head {h00=0x0014, h01=0x0050, text=» EJECT TOSSFM «, t00=0x0006, t01=0x0084}
0x09f6…0a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009c}
0x0a00…0a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a6}
0x0a0a…0a1c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x00b0}
0x0a1c…0a2e Head {h00=0x000e, h01=0x0050, text=»* TOSSFM *«, t00=0x0006, t01=0x00c2}
0x0a2e…0a40 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x00d4}
0x0a40…0a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e6}
0x0a4a…0a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f0}
0x0a54…0a90 Head {h00=0x0038, h01=0x0050, text=»* THIS IS THE TOSS FILE MANAGEMENT LKM PROCESSOR. «, t00=0x0006, t01=0x00fa}
0x0a90…0a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0136}
0x0a9a…0ac8 Head {h00=0x002a, h01=0x0050, text=»* IT IS ENTERED FROM THE LKM HANDLER«, t00=0x0006, t01=0x0140}
0x0ac8…0af2 Head {h00=0x0026, h01=0x0050, text=»* WITH THE FOLLOWING PARAMETERS:«, t00=0x0006, t01=0x016e}
0x0af2…0afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afc…0b1a Head {h00=0x001a, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0007, t01=0x0012}
0x0b1a…0b36 Head {h00=0x0018, h01=0x0050, text=»* A7 = ORDER CODE «, t00=0x0007, t01=0x0030}
0x0b36…0b52 Head {h00=0x0018, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0007, t01=0x004c}
0x0b52…0b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0068}
0x0b5c…0b8e Head {h00=0x002e, h01=0x0050, text=»* WHEN FILE ADMINISTRATION IS REQUESTED,«, t00=0x0007, t01=0x0072}
0x0b8e…0bba Head {h00=0x0028, h01=0x0050, text=»* TOSSFM WILL ACTIVATE THE FMTASK.«, t00=0x0007, t01=0x00a4}
0x0bba…0bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d0}
0x0bc4…0bf6 Head {h00=0x002e, h01=0x0050, text=»* WHEN I/O FUNCTION IS REQUESTED, TOSSFM«, t00=0x0007, t01=0x00da}
0x0bf6…0c2a Head {h00=0x0030, h01=0x0050, text=»* WILL PREPARE FOR DISC I/O. THE I/O WILL «, t00=0x0007, t01=0x010c}
0x0c2a…0c64 Head {h00=0x0036, h01=0x0050, text=»* THEN RUN THE NORMAL WAY VIA TIO-DRIVER-TENDIO.«, t00=0x0007, t01=0x0140}
0x0c64…0c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017a}
0x0c6e…0c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0184}
0x0c78…0c90 Head {h00=0x0014, h01=0x0050, text=» EJECT TOSSFM «, t00=0x0007, t01=0x018e}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0016}
0x0c9a…0ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0020}
0x0ca4…0cdc Head {h00=0x0034, h01=0x0050, text=»TOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY«, t00=0x0008, t01=0x002a}
0x0cdc…0ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0062}
0x0ce6…0d00 Head {h00=0x0016, h01=0x0050, text=»* CHECK ORDER CODE«, t00=0x0008, t01=0x006c}
0x0d00…0d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0086}
0x0d0a…0d28 Head {h00=0x001a, h01=0x0015, text=» LDR A2,A7 ORDER CODE «, t00=0x0008, t01=0x0090}
0x0d28…0d48 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/FF SKIP OPTION «, t00=0x0008, t01=0x00ae}
0x0d48…0d64 Head {h00=0x0018, h01=0x0050, text=» XRK A2,/80 WAIT BIT«, t00=0x0008, t01=0x00ce}
0x0d64…0d78 Head {h00=0x0010, h01=0x000b, text=» SUK A2,/01 «, t00=0x0008, t01=0x00ea}
0x0d78…0d98 Head {h00=0x001c, h01=0x0050, text=» RF(Z) FM:030 BASIC READ«, t00=0x0008, t01=0x00fe}
0x0d98…0db0 Head {h00=0x0014, h01=0x000f, text=» SUK A2,/03-/01 «, t00=0x0008, t01=0x011e}
0x0db0…0dda Head {h00=0x0026, h01=0x0050, text=» RF(Z) FM:010 READ FILE PARAMETERS«, t00=0x0008, t01=0x0136}
0x0dda…0df2 Head {h00=0x0014, h01=0x000f, text=» SUK A2,/05-/03 «, t00=0x0008, t01=0x0160}
0x0df2…0e14 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FM:030 BASIC WRITE «, t00=0x0008, t01=0x0178}
0x0e14…0e2c Head {h00=0x0014, h01=0x000f, text=» SUK A2,/11-/05 «, t00=0x0009, t01=0x000a}
0x0e2c…0e50 Head {h00=0x0020, h01=0x0050, text=» RF(Z) FM:030 PHYSICAL READ «, t00=0x0009, t01=0x0022}
0x0e50…0e68 Head {h00=0x0014, h01=0x000f, text=» SUK A2,/15-/11 «, t00=0x0009, t01=0x0046}
0x0e68…0e8c Head {h00=0x0020, h01=0x0050, text=» RF(Z) FM:030 PHYSICAL WRITE«, t00=0x0009, t01=0x005e}
0x0e8c…0ea4 Head {h00=0x0014, h01=0x000f, text=» SUK A2,/21-/15 «, t00=0x0009, t01=0x0082}
0x0ea4…0ecc Head {h00=0x0024, h01=0x0050, text=» RF(Z) FM:010 OPEN/CREATE/EXTEND«, t00=0x0009, t01=0x009a}
0x0ecc…0ee4 Head {h00=0x0014, h01=0x000f, text=» SUK A2,/22-/21 «, t00=0x0009, t01=0x00c2}
0x0ee4…0f1c Head {h00=0x0034, h01=0x0050, text=» RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELETE«, t00=0x0009, t01=0x00da}
0x0f1c…0f26 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0112}
0x0f26…0f3e Head {h00=0x0014, h01=0x000f, text=» EJECT TOSSFM «, t00=0x0009, t01=0x011c}
0x0f3e…0f48 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0009, t01=0x0134}
0x0f48…0f72 Head {h00=0x0026, h01=0x0050, text=»* FILE ADMINISTRATION REQUESTED.«, t00=0x0009, t01=0x013e}
0x0f72…0fac Head {h00=0x0036, h01=0x0050, text=»* ACTIVATE FMTASK WITH THE FOLLOWING PARAMETERS:«, t00=0x0009, t01=0x0168}
0x0fac…0fb6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0012}
0x0fb6…0fdc Head {h00=0x0022, h01=0x0050, text=»* A1 = ORDER CODE AND OPTION«, t00=0x000a, t01=0x001c}
0x0fdc…0ffe Head {h00=0x001e, h01=0x0019, text=»* A2 = DISPATCH ADDRESS «, t00=0x000a, t01=0x0042}
0x0ffe…102c Head {h00=0x002a, h01=0x0025, text=»* A3 = TTAB ADDRESS OF CALLING TASK «, t00=0x000a, t01=0x0064}
0x102c…1048 Head {h00=0x0018, h01=0x0050, text=»* A4 = ECB ADDRESS«, t00=0x000a, t01=0x0092}
0x1048…106c Head {h00=0x0020, h01=0x001c, text=»* A5 = FMTASK TTAB ADDRESS«, t00=0x000a, t01=0x00ae}
0x106c…1076 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00d2}
0x1076…108a Head {h00=0x0010, h01=0x0050, text=»FM:010 EQU *«, t00=0x000a, t01=0x00dc}
0x108a…10b2 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A7 ORDER CODE AND OPTION«, t00=0x000a, t01=0x00f0}
0x10b2…10da Head {h00=0x0024, h01=0x0050, text=» LDKL A2,FM:ADM DISPATCH ADDRESS«, t00=0x000a, t01=0x0118}
0x10da…10e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0140}
0x10e4…10f8 Head {h00=0x0010, h01=0x0050, text=»FM:020 EQU *«, t00=0x000a, t01=0x014a}
0x10f8…1128 Head {h00=0x002c, h01=0x0027, text=» LDR A3,A5 TTAB ADDRESS OF CALLING TASK «, t00=0x000a, t01=0x015e}
0x1128…1146 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A8 ECB ADDRESS«, t00=0x000a, t01=0x018e}
0x1146…1172 Head {h00=0x0028, h01=0x0023, text=» LDKL A5,TTABFM FMTASK TTAB ADDRESS «, t00=0x000b, t01=0x001c}
0x1172…11a2 Head {h00=0x002c, h01=0x0050, text=» ABL ACTDIS ACTIVATE FMTASK AND DISPATCH«, t00=0x000b, t01=0x0048}
0x11a2…11ac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0078}
0x11ac…11c4 Head {h00=0x0014, h01=0x000f, text=» EJECT TOSSFM «, t00=0x000b, t01=0x0082}
0x11c4…11ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x009a}
0x11ce…11d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00a4}
0x11d8…11ea Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x000b, t01=0x00ae}
0x11ea…11fc Head {h00=0x000e, h01=0x000a, text=»* FM I/O *«, t00=0x000b, t01=0x00c0}
0x11fc…120e Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x000b, t01=0x00d2}
0x120e…1218 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00e4}
0x1218…1240 Head {h00=0x0024, h01=0x001f, text=»* FILE MANAGEMENT I/O FUNCTIONS «, t00=0x000b, t01=0x00ee}
0x1240…124a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0116}
0x124a…127c Head {h00=0x002e, h01=0x0050, text=»FM:030 EQU * BASIC AND PHYSICAL READ/WRITE«, t00=0x000b, t01=0x0120}
0x127c…12b8 Head {h00=0x0038, h01=0x0033, text=» CF A15,FCHECK FIND FWT AND CHECK ACCESS PARAMETERS «, t00=0x000b, t01=0x0152}
0x12b8…12dc Head {h00=0x0020, h01=0x001b, text=» ADK A1,0 CHECK RETURN CODE «, t00=0x000b, t01=0x018e}
0x12dc…12f4 Head {h00=0x0014, h01=0x0050, text=» RF(Z) FM:050 OK«, t00=0x000c, t01=0x0022}
0x12f4…12fe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x003a}
0x12fe…1312 Head {h00=0x0010, h01=0x0050, text=»FM:040 EQU *«, t00=0x000c, t01=0x0044}
0x1312…1330 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A1 RETURN CODE«, t00=0x000c, t01=0x0058}
0x1330…1362 Head {h00=0x002e, h01=0x0050, text=» ABL TIOERR ERROR: QUEUE TASK AND DISPATCH«, t00=0x000c, t01=0x0076}
0x1362…136c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00a8}
0x136c…1384 Head {h00=0x0014, h01=0x000f, text=» EJECT TOSSFM «, t00=0x000c, t01=0x00b2}
0x1384…138e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00ca}
0x138e…13b4 Head {h00=0x0022, h01=0x0050, text=»* CHECK RELATIVE SECTOR NUMBER«, t00=0x000c, t01=0x00d4}
0x13b4…13be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00fa}
0x13be…13d2 Head {h00=0x0010, h01=0x0050, text=»FM:050 EQU *«, t00=0x000c, t01=0x0104}
0x13d2…13e8 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=0 «, t00=0x000c, t01=0x0118}
0x13e8…1418 Head {h00=0x002c, h01=0x0027, text=» LD A1,ECBCW1,A8 RELATIVE SECTOR NUMBER «, t00=0x000c, t01=0x012e}
0x1418…1430 Head {h00=0x0014, h01=0x0010, text=» LD A2,ECBCW2,A8«, t00=0x000c, t01=0x015e}
0x1430…143c Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x000c, t01=0x0176}
0x143c…1446 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x0182}
0x1446…145c Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x000c, t01=0x018c}
0x145c…148c Head {h00=0x002c, h01=0x0027, text=» EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER «, t00=0x000d, t01=0x0012}
0x148c…14a4 Head {h00=0x0014, h01=0x0010, text=» EL A2,ECBCW2,A8«, t00=0x000d, t01=0x0042}
0x14a4…14b0 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x000d, t01=0x005a}
0x14b0…14ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0066}
0x14ba…14d0 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) FM:060«, t00=0x000d, t01=0x0070}
0x14d0…14e2 Head {h00=0x000e, h01=0x0009, text=» ADK A1,0 «, t00=0x000d, t01=0x0086}
0x14e2…1512 Head {h00=0x002c, h01=0x0050, text=» RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0«, t00=0x000d, t01=0x0098}
0x1512…151c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x00c8}
0x151c…1530 Head {h00=0x0010, h01=0x0050, text=»FM:060 EQU *«, t00=0x000d, t01=0x00d2}
0x1530…1542 Head {h00=0x000e, h01=0x0050, text=» ECR A6,A1«, t00=0x000d, t01=0x00e6}
0x1542…1556 Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x000d, t01=0x00f8}
0x1556…158c Head {h00=0x0032, h01=0x0050, text=» RF(NZ) FM:RQE ILLEGAL RELATIVE SECTOR NUMBER «, t00=0x000d, t01=0x010c}
0x158c…15ae Head {h00=0x001e, h01=0x001a, text=» LDR A9,A7 SAVE ORDER CODE«, t00=0x000d, t01=0x0142}
0x15ae…15e4 Head {h00=0x0032, h01=0x0050, text=» ADKL A3,FWTEW1 ADDRESS TO 1ST EWT STRUCTURE«, t00=0x000d, t01=0x0164}
0x15e4…15fc Head {h00=0x0014, h01=0x0050, text=» LDKL A14,/7FFF «, t00=0x000e, t01=0x000a}
0x15fc…1606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0022}
0x1606…161e Head {h00=0x0014, h01=0x0050, text=» EJECT TOSSFM «, t00=0x000e, t01=0x002c}
0x161e…1628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0044}
0x1628…1654 Head {h00=0x0028, h01=0x0050, text=»* SEARCH THE FILE EXTENT THAT HOLDS «, t00=0x000e, t01=0x004e}
0x1654…1674 Head {h00=0x001c, h01=0x0050, text=»* THE REQUESTED SECTORS «, t00=0x000e, t01=0x007a}
0x1674…167e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x009a}
0x167e…1692 Head {h00=0x0010, h01=0x0050, text=»FM:070 EQU *«, t00=0x000e, t01=0x00a4}
0x1692…16c0 Head {h00=0x002a, h01=0x0050, text=» LC A6,EWTEXL-1,A3 FILE EXTENT LENGTH «, t00=0x000e, t01=0x00b8}
0x16c0…16d8 Head {h00=0x0014, h01=0x0050, text=» LD A7,EWTEXL,A3«, t00=0x000e, t01=0x00e6}
0x16d8…16fe Head {h00=0x0022, h01=0x0050, text=» CWR A1,A6 CHECK EXTENT LENGTH«, t00=0x000e, t01=0x00fe}
0x16fe…1720 Head {h00=0x001e, h01=0x0050, text=» RF(L) FM:100 EXTENT FOUND«, t00=0x000e, t01=0x0124}
0x1720…1746 Head {h00=0x0022, h01=0x0050, text=» RF(G) FM:080 EXTENT NOT FOUND«, t00=0x000e, t01=0x0146}
0x1746…1758 Head {h00=0x000e, h01=0x0050, text=» CWR A2,A7«, t00=0x000e, t01=0x016c}
0x1758…177c Head {h00=0x0020, h01=0x0050, text=» RF(NG) FM:100 EXTENT FOUND «, t00=0x000e, t01=0x017e}
0x177c…1786 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0012}
0x1786…179a Head {h00=0x0010, h01=0x0050, text=»FM:080 EQU *«, t00=0x000f, t01=0x001c}
0x179a…17b0 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x000f, t01=0x0030}
0x17b0…17e2 Head {h00=0x002e, h01=0x0050, text=» DSR A6 SUBTRACT LENGTH FROM SECTOR NUMBER«, t00=0x000f, t01=0x0046}
0x17e2…17ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0078}
0x17ee…17f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0084}
0x17f8…180e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x000f, t01=0x008e}
0x180e…1844 Head {h00=0x0032, h01=0x0050, text=» SUR A1,A6 SUBTRACT LENGTH FROM SECTOR NUMBER «, t00=0x000f, t01=0x00a4}
0x1844…1856 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A7«, t00=0x000f, t01=0x00da}
0x1856…187a Head {h00=0x0020, h01=0x0050, text=» RF(NN) FM:090 NOT UNDERFLOW«, t00=0x000f, t01=0x00ec}
0x187a…18a0 Head {h00=0x0022, h01=0x0050, text=» SUK A1,1 UNDERFLOW CORRECTION«, t00=0x000f, t01=0x0110}
0x18a0…18c2 Head {h00=0x001e, h01=0x0050, text=» ANR A2,A14 SKIP SIGN BIT «, t00=0x000f, t01=0x0136}
0x18c2…18ce Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0158}
0x18ce…18d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0164}
0x18d8…18ec Head {h00=0x0010, h01=0x0050, text=»FM:090 EQU *«, t00=0x000f, t01=0x016e}
0x18ec…1918 Head {h00=0x0028, h01=0x0024, text=» LDR* A3,A3 ADDRESS TO 2ND EWT BLOCK«, t00=0x000f, t01=0x0182}
0x1918…194a Head {h00=0x002e, h01=0x0029, text=» LDR* A3,A3 ADDRESS TO NEXT EWT STRUCTURE «, t00=0x0010, t01=0x001e}
0x194a…1972 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) FM:070 CHECK NEXT EXTENT«, t00=0x0010, t01=0x0050}
0x1972…197c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0078}
0x197c…19b4 Head {h00=0x0034, h01=0x002f, text=»FM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT «, t00=0x0010, t01=0x0082}
0x19b4…19d8 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/A000 REQUEST ERROR«, t00=0x0010, t01=0x00ba}
0x19d8…19ea Head {h00=0x000e, h01=0x0050, text=» RB FM:040«, t00=0x0010, t01=0x00de}
0x19ea…19f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x00f0}
0x19f4…1a0c Head {h00=0x0014, h01=0x000f, text=» EJECT TOSSFM «, t00=0x0010, t01=0x00fa}
0x1a0c…1a16 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0112}
0x1a16…1a2c Head {h00=0x0012, h01=0x0050, text=»* EXTENT FOUND«, t00=0x0010, t01=0x011c}
0x1a2c…1a36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0132}
0x1a36…1a4a Head {h00=0x0010, h01=0x0050, text=»FM:100 EQU *«, t00=0x0010, t01=0x013c}
0x1a4a…1a76 Head {h00=0x0028, h01=0x0050, text=» LDR* A4,A3 ADDRESS TO 2ND EWT BLOCK«, t00=0x0010, t01=0x0150}
0x1a76…1a8a Head {h00=0x0010, h01=0x0050, text=» SUR A10,A10«, t00=0x0010, t01=0x017c}
0x1a8a…1ab6 Head {h00=0x0028, h01=0x0050, text=» LC A10,EWTEXB-1,A4 FILE EXTENT BASE«, t00=0x0010, t01=0x0190}
0x1ab6…1ad0 Head {h00=0x0016, h01=0x0050, text=» LD A11,EWTEXB,A4 «, t00=0x0011, t01=0x002c}
0x1ad0…1ada Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0046}
0x1ada…1af0 Head {h00=0x0012, h01=0x000d, text=» IFT CPU852=0 «, t00=0x0011, t01=0x0050}
0x1af0…1b16 Head {h00=0x0022, h01=0x0050, text=» DAR A10 COMPUTE SECTOR NUMBER«, t00=0x0011, t01=0x0066}
0x1b16…1b22 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0011, t01=0x008c}
0x1b22…1b2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0098}
0x1b2c…1b42 Head {h00=0x0012, h01=0x000d, text=» IFT CPU852=1 «, t00=0x0011, t01=0x00a2}
0x1b42…1b6c Head {h00=0x0026, h01=0x0050, text=» ADR A1,A10 COMPUTE SECTOR NUMBER «, t00=0x0011, t01=0x00b8}
0x1b6c…1b80 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A11 «, t00=0x0011, t01=0x00e2}
0x1b80…1b9e Head {h00=0x001a, h01=0x0016, text=» RF(O) FM:140 OVERFLOW«, t00=0x0011, t01=0x00f6}
0x1b9e…1baa Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0011, t01=0x0114}
0x1baa…1bb4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0120}
0x1bb4…1bc8 Head {h00=0x0010, h01=0x0050, text=»FM:110 EQU *«, t00=0x0011, t01=0x012a}
0x1bc8…1bda Head {h00=0x000e, h01=0x0009, text=» SUK A2,1 «, t00=0x0011, t01=0x013e}
0x1bda…1bfe Head {h00=0x0020, h01=0x0050, text=» RF(NN) FM:115 NOT UNDERFLOW«, t00=0x0011, t01=0x0150}
0x1bfe…1c24 Head {h00=0x0022, h01=0x001e, text=» SRL A2,1 UNDERFLOW CORRECTION«, t00=0x0011, t01=0x0174}
0x1c24…1c36 Head {h00=0x000e, h01=0x0009, text=» SUK A1,1 «, t00=0x0012, t01=0x000a}
0x1c36…1c40 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x001c}
0x1c40…1c58 Head {h00=0x0014, h01=0x000f, text=» EJECT TOSSFM «, t00=0x0012, t01=0x0026}
0x1c58…1c62 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x003e}
0x1c62…1c6c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0048}
0x1c6c…1c80 Head {h00=0x0010, h01=0x0050, text=»FM:115 EQU *«, t00=0x0012, t01=0x0052}
0x1c80…1ca6 Head {h00=0x0022, h01=0x0050, text=» LDR A12,A1 SAVE SECTOR NUMBER«, t00=0x0012, t01=0x0066}
0x1ca6…1cba Head {h00=0x0010, h01=0x0050, text=» LDR A13,A2 «, t00=0x0012, t01=0x008c}
0x1cba…1cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a0}
0x1cc4…1cda Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x00aa}
0x1cda…1d0c Head {h00=0x002e, h01=0x0050, text=» LC A3,ECBRL,A8 REQUESTED LENGTH (SECTORS)«, t00=0x0012, t01=0x00c0}
0x1d0c…1d18 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0012, t01=0x00f2}
0x1d18…1d22 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x00fe}
0x1d22…1d38 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x0108}
0x1d38…1d68 Head {h00=0x002c, h01=0x0050, text=» EL A3,ECBRL,A8 REQUESTED LENGTH (BYTES)«, t00=0x0012, t01=0x011e}
0x1d68…1d82 Head {h00=0x0016, h01=0x0050, text=» ECR A3,A3 SECTORS«, t00=0x0012, t01=0x014e}
0x1d82…1d8e Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0012, t01=0x0168}
0x1d8e…1d98 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0174}
0x1d98…1dac Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0012, t01=0x017e}
0x1dac…1dde (19, 0, 400) Head {h00=0x002e, h01=0x0050, text=» ADR A2,A3 COMPUTE LAST REQUESTED SECTOR+1«, t00=0x0013, t01=0x0004}
0x1dde…1dfc Head {h00=0x001a, h01=0x0016, text=» RF(O) FM:150 OVERFLOW«, t00=0x0013, t01=0x0036}
0x1dfc…1e06 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0054}
0x1e06…1e1a Head {h00=0x0010, h01=0x0050, text=»FM:120 EQU *«, t00=0x0013, t01=0x005e}
0x1e1a…1e4e Head {h00=0x0030, h01=0x0050, text=» ADR A6,A10 COMPUTE LAST SECTOR+1 IN EXTENT «, t00=0x0013, t01=0x0072}
0x1e4e…1e62 Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0013, t01=0x00a6}
0x1e62…1e80 Head {h00=0x001a, h01=0x0050, text=» RF(O) FM:160 OVERFLOW«, t00=0x0013, t01=0x00ba}
0x1e80…1e8a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00d8}
0x1e8a…1e9e Head {h00=0x0010, h01=0x0050, text=»FM:125 EQU *«, t00=0x0013, t01=0x00e2}
0x1e9e…1eb0 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A1«, t00=0x0013, t01=0x00f6}
0x1eb0…1ee4 Head {h00=0x0030, h01=0x0050, text=» RF(G) FM:130 ALL SECTORS WITHIN THIS EXTENT«, t00=0x0013, t01=0x0108}
0x1ee4…1eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013c}
0x1eee…1f04 Head {h00=0x0012, h01=0x0050, text=» IFT XTSPLI=0 «, t00=0x0013, t01=0x0146}
0x1f04…1f3c Head {h00=0x0034, h01=0x0050, text=» RB(L) FM:RQE ALL SECTORS NOT WITHIN THIS EXTENT«, t00=0x0013, t01=0x015c}
0x1f3c…1f4e (20, 0, 400) Head {h00=0x000e, h01=0x0050, text=» CWR A7,A2«, t00=0x0014, t01=0x0004}
0x1f4e…1f86 Head {h00=0x0034, h01=0x0050, text=» RB(L) FM:RQE ALL SECTORS NOT WITHIN THIS EXTENT«, t00=0x0014, t01=0x0016}
0x1f86…1f92 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x004e}
0x1f92…1f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x005a}
0x1f9c…1fb2 Head {h00=0x0012, h01=0x0050, text=» IFT XTSPLI=1 «, t00=0x0014, t01=0x0064}
0x1fb2…1fea Head {h00=0x0034, h01=0x0050, text=» RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT«, t00=0x0014, t01=0x007a}
0x1fea…1ffc Head {h00=0x000e, h01=0x0050, text=» CWR A7,A2«, t00=0x0014, t01=0x00b2}
0x1ffc…2034 Head {h00=0x0034, h01=0x0050, text=» RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT«, t00=0x0014, t01=0x00c4}
0x2034…2040 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00fc}
0x2040…204a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0108}
0x204a…2062 Head {h00=0x0014, h01=0x000f, text=» EJECT TOSSFM «, t00=0x0014, t01=0x0112}
0x2062…206c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x012a}
0x206c…2096 Head {h00=0x0026, h01=0x0050, text=»* PREPARE PARAMETERS FOR DISC I/O «, t00=0x0014, t01=0x0134}
0x2096…20a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015e}
0x20a0…20ba Head {h00=0x0016, h01=0x0050, text=»* EXIT PARAMETERS:«, t00=0x0014, t01=0x0168}
0x20ba…20c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0182}
0x20c4…20ec Head {h00=0x0024, h01=0x0050, text=»* A2 = DISC INDEX (FROM FNDDWD) «, t00=0x0014, t01=0x018c}
0x20ec…2120 Head {h00=0x0030, h01=0x0050, text=»* A4 = 0 (INDICATES NOT I/O-AND-ACTIVATION) «, t00=0x0015, t01=0x0024}
0x2120…213c Head {h00=0x0018, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0015, t01=0x0058}
0x213c…216a Head {h00=0x002a, h01=0x0050, text=»* A6 = DISC DWT ADDRESS (FROM FNDDWD) «, t00=0x0015, t01=0x0074}
0x216a…2184 Head {h00=0x0016, h01=0x0050, text=»* A7 = ORDER CODE «, t00=0x0015, t01=0x00a2}
0x2184…219e Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x0015, t01=0x00bc}
0x219e…21a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00d6}
0x21a8…21bc Head {h00=0x0010, h01=0x0050, text=»FM:130 EQU *«, t00=0x0015, t01=0x00e0}
0x21bc…21e4 Head {h00=0x0024, h01=0x0050, text=» LC A2,EWTVOL,A4 FILE CODE DISC «, t00=0x0015, t01=0x00f4}
0x21e4…2210 Head {h00=0x0028, h01=0x0050, text=» CF A15,FNDDWD FIND DISC DWT ADDRESS«, t00=0x0015, t01=0x011c}
0x2210…2240 Head {h00=0x002c, h01=0x0027, text=» LDK A4,0 INDICATE NOT I/O-AND-ACTIVATE «, t00=0x0015, t01=0x0148}
0x2240…2266 Head {h00=0x0022, h01=0x001d, text=» LDR A7,A9 RESTORE ORDER CODE «, t00=0x0015, t01=0x0178}
0x2266…2288 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTST,A6 DWT STATUS«, t00=0x0016, t01=0x000e}
0x2288…22b8 Head {h00=0x002c, h01=0x0050, text=» ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST«, t00=0x0016, t01=0x0030}
0x22b8…22c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0060}
0x22c2…22d8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0016, t01=0x006a}
0x22d8…230a Head {h00=0x002e, h01=0x0050, text=» ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB«, t00=0x0016, t01=0x0080}
0x230a…2324 Head {h00=0x0016, h01=0x0050, text=» ST A13,ECBCW2,A8 «, t00=0x0016, t01=0x00b2}
0x2324…2330 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00cc}
0x2330…233a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d8}
0x233a…2350 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0016, t01=0x00e2}
0x2350…2382 Head {h00=0x002e, h01=0x0050, text=» ES A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB«, t00=0x0016, t01=0x00f8}
0x2382…239c Head {h00=0x0016, h01=0x0050, text=» ES A13,ECBCW2,A8 «, t00=0x0016, t01=0x012a}
0x239c…23a8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0144}
0x23a8…23b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0150}
0x23b2…23e0 Head {h00=0x002a, h01=0x0025, text=» ABL TIO:FM BRANCH TO FM ENTRY IN TIO «, t00=0x0016, t01=0x015a}
0x23e0…23ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0188}
0x23ea…2402 (23, 0, 400) Head {h00=0x0014, h01=0x000f, text=» EJECT TOSSFM «, t00=0x0017, t01=0x0004}
0x2402…240c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x001c}
0x240c…2446 Head {h00=0x0036, h01=0x0032, text=»* OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS«, t00=0x0017, t01=0x0026}
0x2446…2450 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0060}
0x2450…2464 Head {h00=0x0010, h01=0x000c, text=»FM:140 EQU *«, t00=0x0017, t01=0x006a}
0x2464…247a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0017, t01=0x007e}
0x247a…248c Head {h00=0x000e, h01=0x0009, text=» ADK A1,1 «, t00=0x0017, t01=0x0094}
0x248c…24ae Head {h00=0x001e, h01=0x0050, text=» ANR A2,A14 SKIP SIGN BIT «, t00=0x0017, t01=0x00a6}
0x24ae…24c0 Head {h00=0x000e, h01=0x0050, text=» RB FM:110«, t00=0x0017, t01=0x00c8}
0x24c0…24cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00da}
0x24cc…24d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x00e6}
0x24d6…24ea Head {h00=0x0010, h01=0x000c, text=»FM:150 EQU *«, t00=0x0017, t01=0x00f0}
0x24ea…24fc Head {h00=0x000e, h01=0x0009, text=» ADK A1,1 «, t00=0x0017, t01=0x0104}
0x24fc…251e Head {h00=0x001e, h01=0x0050, text=» ANR A2,A14 SKIP SIGN BIT «, t00=0x0017, t01=0x0116}
0x251e…2530 Head {h00=0x000e, h01=0x0050, text=» RB FM:120«, t00=0x0017, t01=0x0138}
0x2530…253a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x014a}
0x253a…254e Head {h00=0x0010, h01=0x000c, text=»FM:160 EQU *«, t00=0x0017, t01=0x0154}
0x254e…2560 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0017, t01=0x0168}
0x2560…2582 Head {h00=0x001e, h01=0x0050, text=» ANR A7,A14 SKIP SIGN BIT «, t00=0x0017, t01=0x017a}
0x2582…2594 Head {h00=0x000e, h01=0x0050, text=» RB FM:125«, t00=0x0018, t01=0x000c}
0x2594…259e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x001e}
0x259e…25b6 Head {h00=0x0014, h01=0x000f, text=» EJECT TOSSFM «, t00=0x0018, t01=0x0028}
0x25b6…25c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0040}
0x25c0…25f4 Head {h00=0x0030, h01=0x0050, text=»* REQUESTED SECTORS CONTINUE IN NEXT EXTENT «, t00=0x0018, t01=0x004a}
0x25f4…25fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x007e}
0x25fe…2612 Head {h00=0x0010, h01=0x0050, text=»FM:170 EQU *«, t00=0x0018, t01=0x0088}
0x2612…2628 Head {h00=0x0012, h01=0x000d, text=» IFT XTSPLI=1 «, t00=0x0018, t01=0x009c}
0x2628…2652 Head {h00=0x0026, h01=0x0050, text=» LDR A1,A4 EWT ADDRESS (2ND BLOCK)«, t00=0x0018, t01=0x00b2}
0x2652…267a Head {h00=0x0024, h01=0x0020, text=» LDKL A2,FMRDWR DISPATCH ADDRESS«, t00=0x0018, t01=0x00dc}
0x267a…269a Head {h00=0x001c, h01=0x0018, text=»*****A7????????????*****«, t00=0x0018, t01=0x0104}
0x269a…26bc Head {h00=0x001e, h01=0x0050, text=» RB FM:020 ACTIVATE FMTASK«, t00=0x0018, t01=0x0124}
0x26bc…26c8 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0018, t01=0x0146}
0x26c8…26d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0152}
0x26d2…26ea Head {h00=0x0014, h01=0x0050, text=» EJECT TOSSFM «, t00=0x0018, t01=0x015c}
0x26ea…26f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0174}
0x26f4…26fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017e}
0x26fe…2710 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0018, t01=0x0188}
0x2710…2722 Head {h00=0x000e, h01=0x0050, text=»* FCHECK *«, t00=0x0019, t01=0x000a}
0x2722…2734 Head {h00=0x000e, h01=0x0050, text=»* FCHEC2 *«, t00=0x0019, t01=0x001c}
0x2734…2746 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x002e}
0x2746…2750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0040}
0x2750…275a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004a}
0x275a…2794 Head {h00=0x0036, h01=0x0050, text=»* FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT «, t00=0x0019, t01=0x0054}
0x2794…27c6 Head {h00=0x002e, h01=0x0050, text=»* ADDRESS AND CHECKS ACCESS PARAMETERS. «, t00=0x0019, t01=0x008e}
0x27c6…27d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c0}
0x27d0…27f6 Head {h00=0x0022, h01=0x0050, text=»* INPUT: A5 = TTAB ADDRESS «, t00=0x0019, t01=0x00ca}
0x27f6…281a Head {h00=0x0020, h01=0x0050, text=»* A7 = ORDER CODE «, t00=0x0019, t01=0x00f0}
0x281a…2838 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB ADDRESS «, t00=0x0019, t01=0x0114}
0x2838…2842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0132}
0x2842…2872 Head {h00=0x002c, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE (=0 IF OK) «, t00=0x0019, t01=0x013c}
0x2872…2896 Head {h00=0x0020, h01=0x0050, text=»* A3 = FWT ADDRESS«, t00=0x0019, t01=0x016c}
0x2896…28b2 Head {h00=0x0018, h01=0x0050, text=»* A2 IS DESTROYED«, t00=0x0019, t01=0x0190}
0x28b2…28bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001c}
0x28bc…28e2 Head {h00=0x0022, h01=0x0050, text=»FCHECK EQU * FCHECK MAIN ENTRY«, t00=0x001a, t01=0x0026}
0x28e2…28f8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001a, t01=0x004c}
0x28f8…2918 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A8 FILE NUMBER «, t00=0x001a, t01=0x0062}
0x2918…2924 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0082}
0x2924…292e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x008e}
0x292e…2944 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001a, t01=0x0098}
0x2944…2962 Head {h00=0x001a, h01=0x0050, text=» ELR A2,A8 FILE NUMBER«, t00=0x001a, t01=0x00ae}
0x2962…296e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00cc}
0x296e…2978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d8}
0x2978…29b0 Head {h00=0x0034, h01=0x0050, text=»FCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FILE NUMBER)«, t00=0x001a, t01=0x00e2}
0x29b0…29c2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001a, t01=0x011a}
0x29c2…29d6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001a, t01=0x012c}
0x29d6…29fc Head {h00=0x0022, h01=0x0050, text=» RF(Z) FC:050 FILE NUMBER = 0 «, t00=0x001a, t01=0x0140}
0x29fc…2a12 Head {h00=0x0012, h01=0x0050, text=» CW A2,SCTNOF «, t00=0x001a, t01=0x0166}
0x2a12…2a3c Head {h00=0x0026, h01=0x0050, text=» RF(G) FC:050 FILE NUMBER TOO BIG «, t00=0x001a, t01=0x017c}
0x2a3c…2a70 Head {h00=0x0030, h01=0x0050, text=» LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER«, t00=0x001b, t01=0x0016}
0x2a70…2a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x004a}
0x2a7a…2a92 Head {h00=0x0014, h01=0x0050, text=» EJECT TOSSFM «, t00=0x001b, t01=0x0054}
0x2a92…2a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006c}
0x2a9c…2aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0076}
0x2aa6…2ace Head {h00=0x0024, h01=0x0050, text=»FC:010 EQU * COMPUTE FWT ADDRESS«, t00=0x001b, t01=0x0080}
0x2ace…2af2 Head {h00=0x0020, h01=0x0050, text=» LDR* A3,A3 NEXT FWT ADDRESS«, t00=0x001b, t01=0x00a8}
0x2af2…2b04 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001b, t01=0x00cc}
0x2b04…2b1a Head {h00=0x0012, h01=0x0050, text=» RB(P) FC:010 «, t00=0x001b, t01=0x00de}
0x2b1a…2b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f4}
0x2b24…2b46 Head {h00=0x001e, h01=0x0050, text=»* CHECK ACCESS PARAMETERS «, t00=0x001b, t01=0x00fe}
0x2b46…2b50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0120}
0x2b50…2b88 Head {h00=0x0034, h01=0x0050, text=» ANKL A3,/FFFE CORRECT FWT ADDRESS JUST IN CASE «, t00=0x001b, t01=0x012a}
0x2b88…2bae Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A3 FIRST WORD OF FWT «, t00=0x001b, t01=0x0162}
0x2bae…2bd2 Head {h00=0x0020, h01=0x0050, text=» ANK A2,1 CHECK IF FWT USED «, t00=0x001b, t01=0x0188}
0x2bd2…2bf8 Head {h00=0x0022, h01=0x0050, text=» RF(Z) FC:050 FILE NOT OPENED «, t00=0x001c, t01=0x001c}
0x2bf8…2c28 Head {h00=0x002c, h01=0x0050, text=» LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) «, t00=0x001c, t01=0x0042}
0x2c28…2c54 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FC:020 OPENED NON-EXCLUSIVELY«, t00=0x001c, t01=0x0072}
0x2c54…2c7e Head {h00=0x0026, h01=0x0050, text=» CWR A2,A5 EA, CHECK IF THIS TASK «, t00=0x001c, t01=0x009e}
0x2c7e…2cb0 Head {h00=0x002e, h01=0x0050, text=» RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK «, t00=0x001c, t01=0x00c8}
0x2cb0…2cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00fa}
0x2cba…2cce Head {h00=0x0010, h01=0x0050, text=»FC:020 EQU *«, t00=0x001c, t01=0x0104}
0x2cce…2cf8 Head {h00=0x0026, h01=0x0050, text=» LD A2,FWTPAR,A3 ACCESS PARAMETERS«, t00=0x001c, t01=0x0118}
0x2cf8…2d20 Head {h00=0x0024, h01=0x0050, text=» RF(N) FC:070 NEW VOLUME LOADED «, t00=0x001c, t01=0x0142}
0x2d20…2d32 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x001c, t01=0x016a}
0x2d32…2d58 Head {h00=0x0022, h01=0x0050, text=» RF(NN) FC:040 PHYSICAL ORDERS«, t00=0x001c, t01=0x017c}
0x2d58…2d78 Head {h00=0x001c, h01=0x0050, text=» ANK A7,/85 BASIC ORDER «, t00=0x001d, t01=0x0012}
0x2d78…2d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0032}
0x2d82…2db2 Head {h00=0x002c, h01=0x0050, text=»FC:040 EQU * COMMON FCHECK RETURN LABEL «, t00=0x001d, t01=0x003c}
0x2db2…2dc2 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x001d, t01=0x006c}
0x2dc2…2dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007c}
0x2dcc…2de4 Head {h00=0x0014, h01=0x0050, text=» EJECT TOSSFM «, t00=0x001d, t01=0x0086}
0x2de4…2dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x009e}
0x2dee…2e06 Head {h00=0x0014, h01=0x0050, text=»* ERROR RETURNS «, t00=0x001d, t01=0x00a8}
0x2e06…2e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c0}
0x2e10…2e38 Head {h00=0x0024, h01=0x0050, text=»FC:050 EQU * REQUEST ERROR EXIT «, t00=0x001d, t01=0x00ca}
0x2e38…2e62 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,/7FC0 RETURN CODE = /8000«, t00=0x001d, t01=0x00f2}
0x2e62…2e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x011c}
0x2e6c…2e94 Head {h00=0x0024, h01=0x0050, text=»FC:060 EQU * FILE PROTECTED EXIT«, t00=0x001d, t01=0x0126}
0x2e94…2eba Head {h00=0x0022, h01=0x0050, text=» ADK A1,/20 RETURN CODE = /40 «, t00=0x001d, t01=0x014e}
0x2eba…2ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0174}
0x2ec4…2ef0 Head {h00=0x0028, h01=0x0050, text=»FC:070 EQU * NEW VOLUME LOADED EXIT «, t00=0x001d, t01=0x017e}
0x2ef0…2f16 Head {h00=0x0022, h01=0x0050, text=» ADK A1,/20 RETURN CODE = /20 «, t00=0x001e, t01=0x001a}
0x2f16…2f30 Head {h00=0x0016, h01=0x0050, text=» RB FC:040 RETURN «, t00=0x001e, t01=0x0040}
0x2f30…2f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x005a}
0x2f3a…2f44 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x0064}
0x2f44…2f4e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x006e}
0x2f4e…2f5a Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x001e, t01=0x0078}
0x2f5a…2f5e Head {h00=0x4004, h01=0x0000}
0x2f5e…2f62 00 1e 00 84 ┆ ┆
0x2f62…2f6a (31, 1, 8) 20 04 00 00 00 1f 00 04 ┆ ┆
0x2f6a…2fba (32, 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 2a 00 97 01 6c 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * l @ P* ┆
0x2fba…300a 20 20 20 20 20 20 20 20 20 20 20 2a 00 98 00 20 00 40 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 53 59 53 4c 44 41 20 20 50 41 52 54 20 32 20 42 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ * @ P* REFERENCED IN: SYSLDA PART 2 B. *┆
0x300a…305a 00 98 00 64 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 98 00 a8 00 40 00 50 2a 20 20 45 ┆ d @ P* * @ P* E┆
0x305a…30aa 4e 54 52 59 3a 20 20 41 35 20 2d 20 50 4f 49 4e 54 45 52 20 54 4f 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 98 00 ec 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 37 20 2d 20 ┆NTRY: A5 - POINTER TO NUMBER OF COPIES * @ P* A7 - ┆
0x30aa…30fa 50 4f 49 4e 54 45 52 20 54 4f 20 4e 45 58 54 20 46 52 45 45 20 45 4e 54 52 59 20 49 4e 20 52 45 41 4c 20 54 3a 41 54 41 42 20 20 2a 00 98 01 30 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆POINTER TO NEXT FREE ENTRY IN REAL T:ATAB * 0 @ P* ┆
0x30fa…314a (33, 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 2a 00 98 01 74 00 40 00 50 2a 20 20 45 58 49 54 3a 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 ┆ * t @ P* EXIT: ┆
0x314a…319a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 99 00 28 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ( @ P* ┆
0x319a…31ea 20 20 20 20 20 20 20 2a 00 99 00 6c 00 40 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 41 31 2c 41 33 2c 41 36 2c 41 38 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 00 99 00 b0 ┆ * l @ P* WORK REGISTERS: A1,A3,A6,A8 * ┆
0x31ea…323a 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 99 00 f4 00 40 00 50 2a 20 20 53 55 42 52 4f ┆ @ P* * @ P* SUBRO┆
0x323a…328a 55 54 49 4e 45 53 3a 20 20 47 45 54 54 54 42 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 00 99 01 38 00 40 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UTINES: GETTTB * 8 @ P* ┆
0x328a…32da (34, 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 00 99 01 7c 00 40 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 ┆ * | @ P********************************┆
0x32da…332a 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 9a 00 30 00 10 00 50 43 48 54 41 49 44 5c 45 51 55 5c 2a 00 9a 00 74 00 32 00 50 5c 4c 44 52 5c 41 38 2c 41 37 5c 47 45 54 20 4e 45 58 54 20 46 52 45 45 ┆**************************** 0 PCHTAID EQU * t 2 P LDR A8,A7 GET NEXT FREE┆
0x332a…337a 20 45 4e 54 52 59 20 49 4e 20 52 45 41 4c 20 54 3a 41 54 41 42 20 00 9a 00 88 00 24 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 35 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 43 4f 50 49 45 53 00 9a 00 be 00 22 00 50 43 48 54 3a 31 30 5c 52 46 28 ┆ ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES " PCHT:10 RF(┆
0x337a…33ca 5a 29 5c 43 48 54 3a 39 30 5c 4e 4f 20 4d 4f 4f 52 45 21 20 00 9a 00 e6 00 2e 00 50 5c 53 55 4b 4c 5c 41 38 2c 32 5c 4c 41 53 54 20 55 53 45 44 20 45 4e 54 52 59 20 49 4e 20 52 45 41 4c 20 54 3a 41 54 41 42 20 00 9a 01 0c 00 18 00 50 5c 49 ┆Z) CHT:90 NO MOORE! . P SUKL A8,2 LAST USED ENTRY IN REAL T:ATAB P I┆
0x33ca…341a 46 54 5c 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 00 9a 01 3e 00 28 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 38 5c 47 45 54 20 50 4f 49 4e 54 45 52 20 54 4f 20 52 45 41 4c 20 54 3a 41 20 00 9a 01 5a 00 24 00 50 5c 4c 44 5c 41 31 2c 54 3a 41 ┆FT CREDIT-MMUPAG=1 > ( P LDR* A1,A8 GET POINTER TO REAL T:A Z $ P LD A1,T:A┆
0x341a…346a (35, 0, 400) 54 49 44 2c 41 31 5c 47 45 54 20 54 43 4c 20 49 4e 20 54 3a 41 20 00 9a 01 86 00 2e 00 50 43 48 54 3a 32 30 5c 43 41 4c 4c 5c 47 45 54 54 54 42 5c 47 45 54 20 43 4f 52 52 45 53 50 4f 4e 44 49 4e 47 20 54 54 41 42 20 00 9b 00 1e 00 2a 00 50 ┆TID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB * P┆
0x346a…34ba 5c 4c 44 5c 41 34 2c 54 54 42 54 49 44 2c 41 32 5c 47 45 54 20 52 45 41 4c 20 54 49 44 20 49 4e 20 54 54 41 42 20 00 9b 00 50 00 36 00 50 5c 4c 44 5c 41 33 2c 54 54 42 3a 53 41 2b 32 36 2c 41 32 5c 47 45 54 20 43 4f 52 52 45 53 50 4f 4e 44 ┆ LD A4,TTBTID,A2 GET REAL TID IN TTAB P 6 P LD A3,TTB:SA+26,A2 GET CORRESPOND┆
0x34ba…350a 49 4e 47 20 54 3a 41 2d 41 44 44 52 45 53 53 20 00 9b 00 7e 00 28 00 50 5c 53 54 5c 41 34 2c 54 3a 41 54 49 44 2c 41 33 5c 52 45 50 4c 41 43 45 20 54 43 4c 20 49 4e 20 54 3a 41 20 00 9b 00 b8 00 26 00 50 5c 4c 44 52 5c 41 33 2c 41 38 5c 47 ┆ING T:A-ADDRESS ~ ( P ST A4,T:ATID,A3 REPLACE TCL IN T:A & P LDR A3,A8 G┆
0x350a…355a 45 54 20 52 45 41 4c 20 54 3a 41 54 41 42 20 50 4f 49 4e 54 45 52 00 9b 00 e4 00 36 00 50 5c 53 55 2a 5c 41 33 2c 54 3a 41 54 4e 57 2c 41 31 33 5c 43 4f 4d 50 55 54 45 20 45 4e 54 52 59 20 49 4e 20 41 55 58 2e 20 54 49 44 20 54 41 42 4c 45 ┆ET REAL T:ATAB POINTER 6 P SU* A3,T:ATNW,A13 COMPUTE ENTRY IN AUX. TID TABLE┆
0x355a…35aa 00 9b 01 0e 00 2c 00 50 5c 53 54 52 5c 41 34 2c 41 33 5c 53 41 56 45 20 54 49 44 20 46 4f 52 20 44 45 42 55 47 47 45 52 20 50 55 52 50 4f 53 45 00 9b 01 48 00 08 00 50 5c 58 49 46 00 9b 01 78 00 18 00 50 5c 49 46 54 5c 43 52 45 44 49 54 2b ┆ , P STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE H P XIF x P IFT CREDIT+┆
0x35aa…35fa (36, 0, 400) 4d 4d 55 50 41 47 3d 32 00 9b 01 84 00 26 00 50 5c 45 4c 52 5c 41 31 2c 41 38 5c 47 45 54 20 50 4f 49 4e 54 45 52 20 54 4f 20 52 45 41 4c 20 54 3a 41 00 9c 00 10 00 24 00 50 5c 45 4c 5c 41 31 2c 54 3a 41 54 49 44 2c 41 31 5c 47 45 54 20 54 ┆MMUPAG=2 & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET T┆
0x35fa…364a 43 4c 20 49 4e 20 54 3a 41 20 00 9c 00 3a 00 2e 00 50 43 48 54 3a 32 30 5c 43 41 4c 4c 5c 47 45 54 54 54 42 5c 47 45 54 20 43 4f 52 52 45 53 50 4f 4e 44 49 4e 47 20 54 54 41 42 20 00 9c 00 62 00 28 00 50 5c 4c 44 52 5c 41 33 2c 41 32 5c 47 ┆CL IN T:A : . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB b ( P LDR A3,A2 G┆
0x364a…369a 45 54 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 54 41 42 20 45 4e 54 52 59 00 9c 00 94 00 32 00 50 5c 41 44 4b 4c 5c 41 33 2c 4d 4d 42 45 47 5c 53 54 41 52 54 20 4f 46 20 4d 4d 2d 54 41 42 4c 45 20 46 4f 52 20 54 48 49 53 20 54 54 41 42 00 9c ┆ET POINTER TO TTAB ENTRY 2 P ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB ┆
0x369a…36ea 00 c0 00 0c 00 50 5c 54 4c 52 5c 41 33 20 00 9c 00 f6 00 34 00 50 5c 4c 44 5c 41 34 2c 54 54 42 54 49 44 2c 41 32 5c 47 45 54 20 52 45 41 4c 20 54 49 44 20 49 4e 20 54 54 41 42 5c 2a 37 39 2d 30 34 2d 31 31 2a 00 9c 01 06 00 36 00 50 5c 4c ┆ P TLR A3 4 P LD A4,TTBTID,A2 GET REAL TID IN TTAB *79-04-11* 6 P L┆
0x36ea…373a 44 5c 41 33 2c 54 54 42 3a 53 41 2b 32 36 2c 41 32 5c 47 45 54 20 43 4f 52 52 45 53 50 4f 4e 44 49 4e 47 20 54 3a 41 2d 41 44 44 52 45 53 53 20 00 9c 01 3e 00 32 00 50 5c 45 53 5c 41 34 2c 54 3a 41 54 49 44 2c 41 33 5c 52 45 50 4c 41 43 45 ┆D A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS > 2 P ES A4,T:ATID,A3 REPLACE┆