|
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: 45676 (0xb26c)
Notes: pts_type(SC)
Names: »FMTASK.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »M:DEMO/FMTASK.SC«
IDENT FMTASK REL 10.0 80-03-15 870105041000 * * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * * FMTASK = TOSS FILE MANAGEMENT TASK * * * * * ************************************************** * * * TOSS FILE MANAGEMENT TASK CONTAINS THE * FOLLOWING FILE ADMINISTRATION MODULES: * * - FMOPEN OPEN/CREATE/EXTEND FILE * - FMCLOS CLOSE/DELETE FILE * - FMRDFP READ FILE PARAMETERS * * A SPECIAL ENTRY IS USED FOR I/O * FUNCTIONS WHERE REQUESTED SECTORS ARE * SPLIT OVER TWO OR MORE FILE EXTENTS: * * - FMRDWR READ/WRITE (SPLIT EXTENT I/O) * * FMTASK ALSO CONTAINS THE FILE MANAGEMENT * SYSTEM INITIALIZATION ROUTINE, FMINIT. * * EJECT FMTASK * * *********** * ENTRIES * *********** * * ENTRY FMRDWR READ/WRITE (SPLIT EXTENT I/O) ENTRY FM:ADM FM ADMINISTRATION FUNCTIONS ENTRY FMINIT FILE MANAGEMENT INITIALIZATION ENTRY TTABFM FMTASK TTAB ENTRY FWTPAR FILE ACCESS PARAMETERS ENTRY FWTFNR FILE NUMBER ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS ENTRY FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT ENTRY FWTEXB FILE EXTENT BASE, FIRST EXTENT ENTRY FWTVOL VOLUME FILE CODE ENTRY EWTEXL EXTENT LENGTH ENTRY EWTEXB EXTENT BASE ENTRY EWTVOL VOLUME FILE CODE * EJECT FMTASK * * ENTRY FPB:RL RECORD LENGTH ENTRY FPB:BF BLOCK FACTOR ENTRY FPB:FO FILE ORGANIZATION ENTRY FPB:BO BASIC ORDERS ENTRY FPB:FN FILE NAME ENTRY FPB:EL ENLARGE ENTRY FPB:V1 VOLUME NAME 1 ENTRY FPB:S1 SIZE 1 ENTRY FPB:V2 VOLUME NAME 2 ENTRY FPB:S2 SIZE 2 ENTRY FPB:V3 VOLUME NAME 3 ENTRY FPB:S3 SIZE 3 ENTRY FPB:V4 VOLUME NAME 4 ENTRY FPB:S4 SIZE 4 ENTRY FPB:FR FILE RECORD NUMBER ENTRY FPB:US NUMBER OF USERS ENTRY FPB:SH SHAREABILITY ENTRY FPB:MN MONITOR NUMBER ENTRY FPB:SN SOP SWITCH NUMBER ENTRY FPB:IF NUMBER OF INDEX FILES ENTRY FPB:KA KEY ADDRESS IN RECORD ENTRY FPB:CD CREATION DATE ENTRY FPB:RP RETENTION PERIOD EJECT FMTASK * * ************* * EXTERNALS * ************* * * EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR TASK EXTRN GETBLK STORE PARAMETERS IN MONITOR BLOCK EXTRN FREBLK GET PARAMETERS FROM MONITOR BLOCK EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID EXTRN FNDDWD FIND DISC DWT ADDRESS EXTRN FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS EXTRN FCHEC2 FCHECK 2ND ENTRY EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR EXTRN TIODM DM ADDRESS BLOCK EXTRN DFTAB DISC FILE CODE TABLE EXTRN DFTABE END OF DFTAB EXTRN SCTNOF NUMBER OF FILES EXTRN SCTFWT FWT CHAIN START ADDRESS EXTRN SCTFWL FILE WORK TABLE LENGTH EXTRN SCTDMT DM TASKS IN SYSTEM EXTRN NVLTAB NVL TABLE EXTRN NVLDMT DM TASK NVL TABLE EXTRN NVLEND END OF NVLTAB EXTRN NVLBIT NVL BIT MASK EXTRN DWTST DWT STATUS EXTRN DWTADR ADDRESS TO ADDRESS BLOCK EXTRN DWTMEC MMU ECB ADDRESS EXTRN DWTVOL VOLUME NAME EXTRN DWTNVL NVL INDICATOR EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT * EJECT FMTASK * * EXTRN TTB:MT MMU TABLE EXTRN TTB:SA SAVE AREA EXTRN ECBFC ECB FILE CODE (FILE NUMBER) EXTRN ECBBA ECB BUFFER ADDRESS (FPB ADDRESS) EXTRN ECBRC ECB RETURN CODE EXTRN ECBCW1 CONTROL WORD 1 EXTRN ECBCW2 CONTROL WORD 2 EJECT FMTASK * * *************************************** * * CONDITIONAL ASSEMBLY * *************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * * A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O * IS OBTAINED BY SETTING XTSPLI EQU 1. * XTSPLI EQU 0 * EJECT FMTASK * * ******************** * VL DISPLACEMENTS * ******************** * * VOLUME LABEL DISPLACEMENTS * VOL:VN EQU 0 VOLUME NAME VOL:EL EQU 6 VTOC EXTENT LENGTH VOL:EB EQU 10 VTOC EXTENT BASE VOL:RL EQU 12 VTOC RECORD LENGTH VOL:FS EQU 46 FSAT LENGTH * * ************* * CONSTANTS * ************* * * VTOCRL EQU 42 VTOC RECORD LENGTH VTOCBF EQU 6 VTOC BLOCK FACTOR * EJECT FMTASK * * ********************** * VTOC DISPLACEMENTS * ********************** * * VOLUME TABLE OF CONTENTS DISPLACEMENTS * VTC:FN EQU 0 FILE NAME VTC:MN EQU 8 MONITOR NUMBER (L-FILE) VTC:FS EQU 8 FILE SECTION NUMBER (S-FILE) VTC:SN EQU 9 SOP SWITCH NUMBER VTC:EN EQU 10 FILE EXTENT NUMBER VTC:EL EQU 12 FILE EXTENT LENGTH VTC:EB EQU 16 FILE EXTENT BASE VTC:LR EQU 20 LAST RECORD NUMBER VTC:RL EQU 24 RECORD LENGTH VTC:BF EQU 26 BLOCK FACTOR VTC:FO EQU 27 FILE ORGANIZATION VTC:CD EQU 28 CREATION DATE VTC:RP EQU 34 RETENTION PERIOD VTC:IF EQU 37 NUMBER OF INDEX FILES VTC:KA EQU 38 KEY ADDRESS IN RECORD VTC:ST EQU 41 STATUS BYTE * EJECT FMTASK * * ********************* * FWT DISPLACEMENTS * ********************* * * FILE WORK TABLE DISPLACEMENTS * FWTLNK EQU /00 LINK NEXT FWT * IFT MMUPAG=0 FWTBAS EQU FWTLNK+/10 XIF * IFT MMUPAG=1 FWTBAS EQU FWTLNK+/14 XIF * FWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) FWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS FWTFNR EQU FWTBAS+/03 FILE NUMBER FWTTAB EQU FWTBAS+/04 TTAB FOR TASK WITH EXCLUSIVE ACCESS FWTEW1 EQU FWTBAS+/06 POINTER TO 2ND EWT BLOCK IN FWT FWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER FWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) FWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE FWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) FWTEXB EQU FWTBAS+/10 EXTENT BASE (FIRST EXTENT) FWTNAM EQU FWTBAS+/12 FILE NAME * EJECT FMTASK * * ********************* * EWT DISPLACEMENTS * ********************* * * EXTENT WORK TABLE DISPLACEMENTS * EWTLNK EQU 0 LINK NEXT EWT BLOCK * * BLOCK 1 * EWTSEX EQU 2 FILE SECTION/EXTENT NUMBER EWTEXL EQU 4 EXTENT LENGTH IN SECTORS * * BLOCK 2 * EWTVOL EQU 2 VOLUME FILE CODE EWTEXB EQU 4 EXTENT BASE * EWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH * EJECT FMTASK * * ********************* * FPB DISPLACEMENTS * ********************* * * FILE PARAMETER BLOCK DISPLACEMENTS * FPB:RL EQU 0 RECORD LENGTH FPB:BF EQU 2 BLOCK FACTOR FPB:FO EQU 3 FILE ORGANIZATION FPB:BO EQU 5 BASIC ORDERS FPB:FN EQU 8 FILE NAME FPB:EL EQU 17 ENLARGE FPB:V1 EQU 18 VOLUME NAME 1 FPB:S1 EQU 24 SIZE 1 FPB:V2 EQU 28 VOLUME NAME 2 FPB:S2 EQU 34 SIZE 2 FPB:V3 EQU 38 VOLUME NAME 3 FPB:S3 EQU 44 SIZE 3 FPB:V4 EQU 48 VOLUME NAME 4 FPB:S4 EQU 54 SIZE 4 FPB:FR EQU 58 FILE RECORD NUMBER FPB:US EQU 62 NUMBER OF USERS FPB:SH EQU 64 SHAREABILITY FPB:MN EQU 65 MONITOR NUMBER FPB:SN EQU 66 SOP SWITCH NUMBER FPB:IF EQU 67 NUMBER OF INDEX FILES FPB:KA EQU 68 KEY ADDRESS IN RECORD FPB:CD EQU 70 CREATION DATE FPB:RP EQU 76 RETENTION PERIOD * FPBLEN EQU 80 FILE PARAMETER BLOCK LENGTH * EJECT FMTASK * * TTABFM (FMTASK TTAB) * IFT MMUPAG=1 RES 16 FMTASK MMU TABLE XIF * DATA 0 CURRENT SEGMENT BASE (DUMMY) VOLUME DATA 0 CURRENT VOLUME NAME DISPLACEMENT DATA 0 SEGMENT BLOCK ADDRESS * TTABFM EQU * TTABFM ENTRY DATA 0 DISPATCHER QUEUE LINK DATA '#A' TASK IDENTIFICATION DATA 49 PRIORITY LEVEL DATA 0 PENDING POINTER DATA /C4C0 PSW (PROGRAM STATUS WORD) DATA 0 DISPATCH ADDRESS DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 DATA FM:ECB A8 = FM:ECB ADDRESS DATA 0,0,0,0,0,0 * EJECT FMTASK * * FMTASK DATA AREAS * FM:ECB DATA /8000,FM:BUF,256 FMTASK ECB AREA DATA 0,0,0,0 * RES 6 FMTASK STACK FM:STB EQU *-2 FMTASK STACK BASE * IFT MMUPAG=1 FM:FPB RES 40 FILE PARAMETER BLOCK AREA XIF * EJECT FMTASK * * ********** * FMINIT * ********** * * * FMINIT IS THE FILE MANAGEMENT INITIALIZATION ROUTINE. * IT IS CALLED FROM PFINIT AFTER IPL AND AT POWER ON. * WHEN CALLED AT POWER ON, AN IMMEDIATE RETURN IS MADE. * * FMINIT WILL ZEROIZE THE FWT AREA, AND LINK THE FWT:S * TOGETHER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS * WELL AS FWTFNR (FILE NUMBER). * THE PART OF FMINIT THAT IS NOT EXECUTED AT POWER ON * WILL BE USED AS THE INTERNAL BUFFER FOR THE FMTASK. * FMINIT EQU * FMINIT ENTRY LDKL A1,/F03E RTNA15 INSTRUCTION CODE ST A1,FMINIT CLOSE THE DOOR * EJECT FMTASK * * FM:BUF EQU FMINIT+2 START OF FMTASK INTERNAL BUFFER * * PERFORM INITIALIZATION * LD A1,SCTFWT FWT CHAIN START ADDRESS LD A4,SCTNOF NUMBER OF FILES LDK A5,0 LDKL A6,/8000 DWT BUSY BIT LDKL A7,TIODM DM ADDRESS BLOCK * FMI:30 EQU * IFT MMUPAG=1 LDKL A8,FDBMEC FDB MMU ECB DISPLACEMENT IN FWT ADR A8,A1 MMU ECB ADDRESS XIF * LDR A2,A1 CURRENT FWT ADDRESS LDR A3,A1 AD A3,SCTFWL NEXT FWT ADDRESS ADK A5,1 NEXT FILE NUMBER SUK A4,1 RF(N) FMI:50 INITIALIZATION COMPLETED RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT ADK A1,2 INCREMENT FWT POINTER * EJECT FMTASK * * FMI:40 EQU * CMR A1 ADK A1,2 INCREMENT FWT POINTER CWR A1,A3 CHECK IF END OF THIS FWT RB(NE) FMI:40 NOT END OF THE FWT SU A3,SCTFWL ADK A3,FWTEW2 FWTEW2 ADDRESS ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT ST A6,DWTST,A2 INDICATE FWT NOT BUSY ST A7,DWTADR,A2 DM ADDRESS BLOCK (ACTIVATION ADDRESS) * IFT MMUPAG=1 ST A8,DWTMEC,A2 SET MMU ECB ADDRESS XIF * RB FMI:30 CONTINUE WITH NEXT FWT * EJECT FMTASK * * FILL IN NVLTAB WITH DM TTAB ADDRESSES (IF ANY) * FMI:50 EQU * LD A1,SCTDMT DM TASKS IN SYSTEM RF(Z) FMI:75 NO DM TASKS IN SYSTEM LDK A3,4 LOOP COUNTER LDKL A4,NVLDMT DM TASK NVL TABLE LDKL A7,'#D' TASK ID 1ST DM TASK * FMI:60 EQU * SRC A1,1 RF(NN) FMI:70 THIS DM TASK NOT IN SYSTEM CF A15,FNDTID FIND DM TASK TTAB ADDRESS STR A2,A4 STORE IN NVLTAB * FMI:70 EQU * ADK A4,2 INCREMENT NVLTAB POINTER ADK A7,1 NEXT DM TASK ID SUK A3,1 DECREMENT LOOP COUNTER RB(P) FMI:60 * EJECT FMTASK * * COMPUTE NVL BIT MASK * FMI:75 EQU * LDK A1,0 INITIALIZE BIT MASK LDK A2,1 LDKL A3,NVLTAB NVLTAB ADDRESS * FMI:80 EQU * LDR* A4,A3 GET ONE ENTRY FROM NVLTAB RF(Z) FMI:85 THIS ENTRY NOT USED ORR A1,A2 INDICATE TTAB PRESENT * FMI:85 EQU * SLL A2,1 ADK A3,2 INCREMENT NVLTAB POINTER CWK A3,NVLEND CHECK IF END OF NVLTAB RB(NE) FMI:80 NOT END OF NVLTAB * FMI:90 EQU * ORR A1,A2 ADD ONE BIT FOR USER TASKS ST A1,NVLBIT SET NVL BIT MASK RTN A15 * IFT MMUPAG=0 RES 57 XIF * IFT MMUPAG=1 RES 52 XIF * EJECT FMTASK * * ********** * FMTASK * ********** * * * THE FILE MANAGEMENT TASK PERFORMS * FILE ADMINISTRATION FUNCTIONS. IT * IS ACTIVATED BY THE FILE MANAGEMENT * LKM PROCESSOR AT ENTRY FM:ADM. * AFTER SOME HOUSEKEEPING THE FOLLOWING * MODULES WILL PERFORM THE FILE ADMINISTRATION: * * - FMOPEN OPEN/CREATE/EXTEND FILE (OPTIONS: 0, 2, 1) * - FMCLOS CLOSE/DELETE FILE ( " : 0, 2) * - FMRDFP READ FILE PARAMETERS ( " : 0) * * A SPECIAL ENTRY IS USED FOR I/O * FUNCTIONS WHERE REQUESTED SECTORS ARE * SPLIT OVER TWO OR MORE FILE EXTENTS: * * - FMRDWR READ/WRITE (SPLIT EXTENT I/O) (OPTIONS: 0) * * EJECT FMTASK * * ********** * FM:ADM * ********** * * * ENTRY PARAMETERS: * * A1 = ORDER CODE AND OPTION * A3 = TTAB ADDRESS OF CALLING TASK * A4 = USER ECB ADDRESS * FM:ADM EQU * FM ADMINISTRATION FUNCTIONS ENTRY LDR A5,A3 TTAB ADDRESS OF CALLING TASK LDR A7,A1 ORDER CODE/OPTION LDR A9,A4 USER ECB ADDRESS LDKL A14,FM:STB FMTASK STACK BASE * IFT MMUPAG=0 LD A10,ECBBA,A9 FPB ADDRESS XIF * IFT MMUPAG=1 LDKL A3,TTABFM FMTASK TTAB ADDRESS TL TTB:MT,A5 USER MMU TABLE TS TTB:MT,A3 STORE IN FMTASK MMU TABLE * * MOVE USER FPB TO SYSTEM AREA (FM:FPB) * EL A1,ECBBA,A9 USER FPB ADDRESS LDKL A2,FM:FPB FM FPB ADDRESS LDR A10,A2 SAVE IT LDK A4,FPBLEN FPB LENGTH MVUS A4 MOVE USER FPB TO FM:FPB XIF * EJECT FMTASK * * CHECK WHAT FUNCTION THAT IS REQUESTED * AND BRANCH TO APPROPRIATE FUNCTION HANDLER. * * THE FOLLOWING PARAMETERS ARE SUPPLIED TO * THE RESP. FUNCTION HANDLER: * * A1 = ORDER OPTION * A5 = TTAB ADDRESS OF CALLING TASK * A9 = USER ECB ADDRESS * A10 = FPB ADDRESS * ECR A1,A7 ORDER CODE AND OPTION ANK A7,/7F ORDER CODE SUK A7,/03 ABL(Z) FMRDFP READ FILE PARAMETERS SUK A7,/22-/03 ABL(Z) FMCLOS CLOSE/DELETE * EJECT FMTASK * * ********** * FMOPEN * ********** * * * FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * OPEN/CREATE/EXTEND FILE * * ENTRY PARAMETERS: * * A1 = ORDER OPTION * A5 = TTAB ADDRESS OF CALLING TASK * A9 = USER ECB ADDRESS * A10 = FPB ADDRESS * FMOPEN EQU * OPEN/CREATE/EXTEND FILE ANK A1,/FF ORDER OPTION ABL(NZ) FM:RQE ILLEGAL ORDER OPTION * EJECT FMTASK * * ******** * OPEN * ******** * * OPEN EQU * OPEN FILE LDK A7,FPB:V1 1ST VOLUME NAME DISPLACEMENT ST A7,VOLUME CF A14,FNDVOL FIND VOLUME LDR A12,A2 SAVE FILE CODE RF(Z) OP:055 VOLUME NOT FOUND CF A14,FNDFWT FIND FWT ADDRESS ADK A6,0 SET CR RF(Z) OP:030 NO FREE FWT AVAILABLE LDR* A1,A6 FIRST WORD OF FWT ANK A1,1 CHECK IF ALREADY OPENED RF(Z) OP:060 NOT OPENED * * FILE IS ALREADY OPENED CC A1,FPB:SH,A10 SHAREABILITY PARAMETER RF(E) OP:040 NOT EA WHEN ALREADY OPENED LD A2,FWTTAB,A6 TTAB ADDRESS FOR EA TASK RF(NZ) OP:040 FILE PROTECTED LC A1,FWTPAR,A6 ACCESS PARAMETERS LDR A2,A1 ANK A1,/3F NUMBER OF USERS SUK A1,/3F ABL(NZ) OP:250 * EJECT FMTASK * * ERROR EXITS * LDKL A4,/0210 RETURN CODE (TOO MANY USERS) RF OP:RTN * OP:030 EQU * NO FREE FWT AVAILABLE LDKL A4,/8400 RETURN CODE RF OP:RTN * OP:040 EQU * FILE PROTECTED LDK A4,/40 RETURN CODE RF OP:RTN * OP:050 EQU * VOLUME/FILE NOT FOUND CF A14,RELBLK RELEASE EWT STRUCTURE BLOCKS * OP:055 EQU * LDKL A4,/8800 RETURN CODE * OP:RTN EQU * ABL FM:RTC FMOPEN ERROR EXIT * EJECT FMTASK * * FILE IS NOT OPENED BEFORE: * FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S * OP:060 EQU * * * MOVE FILE NAME FROM FPB TO FWT * LDR A1,A10 FPB ADDRESS ADK A1,FPB:FN LDR A3,A6 FWT ADDRESS ADK A3,FWTNAM LDK A2,8 NO OF CHARACTERS TO MOVE CF A14,MOVE MOVE FILE NAME LDR A2,A12 RESTORE FILE CODE RF OP:075 * * FIND ONE VOLUME * OP:070 EQU * ST A7,VOLUME SAVE VOLUME NAME DISPLACEMENT CF A14,FNDVOL FIND VOLUME ADK A2,0 RB(Z) OP:050 VOLUME NOT FOUND * EJECT FMTASK * * FIND ONE FILE EXTENT * OP:075 EQU * CF A14,FNDVTC FIND VTOC ENTRY LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER RB(Z) OP:050 NO FILE EXTENT FOUND * OP:080 EQU * LDR A1,A6 SAVE FWT ADDRESS LDR* A2,A8 DISC FILE CODE INH CF A15,FNDDWD DISC DWT ADDRESS AND INDEX ENB ADR A2,A2 DOUBLE INDEX ADR A2,A6 ADD DWT ADDRESS LDK A3,0 SC A3,DWTNVL+1,A2 CLEAR NVL BITS LDR A6,A1 RESTORE FWT ADDRESS LD A3,VTC:EN,A13 FILE EXTENT NUMBER LD A2,VTC:FO,A13 FILE ORGANIZATION ANK A2,/FF SUK A2,'L' RF(Z) OP:085 L-FILE LD A2,VTC:FS,A13 FILE SECTION NUMBER SRC A2,2 ECR A3,A3 FILE EXTENT NUMBER NOW IN LEFT BYTE ORR A2,A3 LDR A3,A2 * EJECT FMTASK * * OP:085 EQU * LC A2,VTC:EL+1,A13 FILE EXTENT LENGTH LD A1,VTC:EL+2,A13 ADK A3,0 SET CR RF(Z) OP:090 FIRST FILE EXTENT INH CF A15,GETBLK EWT BLOCK 1 RF OP:100 * OP:090 EQU * ST A2,FWTEXL-2,A6 STORE FILE EXTENT LENGTH, FIRST EXTENT ST A1,FWTEXL,A6 * EJECT FMTASK * * OP:100 EQU * LDR* A2,A8 VOLUME FILE CODE ECR A2,A2 FILE CODE NOW IN LEFT BYTE LC A2,VTC:EB+1,A13 FILE EXTENT BASE LD A1,VTC:EB+2,A13 ADK A3,0 SET CR RF(NZ) OP:120 NOT FIRST FILE EXTENT ST A2,FWTEXB-2,A6 STORE FILE EXTENT BASE, FIRST EXTENT ST A1,FWTEXB,A6 ST A11,FWTVTC,A6 STORE VTOC SECTOR NUMBER, FIRST EXTENT * * FIND REMAINING EXTENTS FOR THIS FILE * OP:110 EQU * CF A14,FVTC30 FIND NEXT VTOC ENTRY LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME RB OP:080 * EJECT FMTASK * * INSERT NEW EWT BLOCKS IN EWT CHAIN * OP:120 EQU * LDR A3,A4 ADDRESS EWT BLOCK 1 CF A15,GETBLK EWT BLOCK 2 ENB STR A4,A3 LINK EWT2 TO EWT1 LDR A1,A6 FWT ADDRESS ADK A1,FWTEW2 * OP:130 EQU * LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE RF(NZ) OP:150 * OP:140 EQU * STR A2,A4 INSERT NEW EWT BLOCK STR A3,A1 RB OP:110 CONTINUE * OP:150 EQU * LC A11,EWTSEX,A2 FILE SECTION AND EXTENT NUMBER CC A11,EWTSEX,A3 RB(G) OP:140 INSERT NEW EWT BLOCKS LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK RB OP:130 * EJECT FMTASK * * OP:160 EQU * LD A7,VOLUME CURRENT VOLUME NAME DISPLACEMENT CWK A7,FPB:V4 RF(E) OP:170 ALL VOLUMES CHECKED ADK A7,FPB:V2-FPB:V1 LDR A1,A10 FPB ADDRESS ADR A1,A7 POINT TO VOLUME NAME LDR* A1,A1 CHECK IF MORE VOLUMES SPECIFIED RF(Z) OP:170 NO MORE VOLUMES SUKL A1,/2020 SPACES IF NO MORE VOLUMES RB(NZ) OP:070 FIND NEXT VOLUME * OP:170 EQU * * * ALL VOLUMES FOUND. * SCAN EWT STRUCTURE CHAIN AND CHECK * THAT ALL FILE EXTENTS ARE PRESENT. * LD A1,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT RB(Z) OP:050 FIRST FILE EXTENT MISSING LDR A1,A6 FWT ADDRESS ADK A1,FWTEW1 LDK A4,0 FILE SECTION AND EXTENT NUMBER * EJECT FMTASK * * OP:180 EQU * LDR* A1,A1 ADDRESS TO 2ND EWT BLOCK LDR* A1,A1 ADDRESS TO NEXT EWT STRUCTURE RF(Z) OP:230 END OF EWT CHAIN LC A13,EWTSEX,A1 FILE SECTION AND EXTENT NUMBER LDR A3,A13 ANK A3,/C0 FILE SECTION NUMBER LDR A7,A4 ANK A7,/C0 FILE SECTION NUMBER SUR A7,A3 COMPARE FILE SECTION NUMBERS RF(Z) OP:190 FILE SECTION NUMBERS EQUAL ADK A7,/40 MAXIMUM DIFFERENCE = 1 RF(NZ) OP:200 FILE SECTION MISSING LDR A3,A13 ANK A3,/3F EXTENT NUMBER SHOULD BE ZERO RF OP:200 * OP:190 EQU * LDR A3,A13 ANK A3,/3F FILE EXTENT NUMBER ANK A4,/3F FILE EXTENT NUMBER SUR A4,A3 COMPARE FILE EXTENT NUMBER ADK A4,1 DIFFERENCE SHOULD BE ONE * OP:200 EQU * ABL(NZ) OP:050 FILE EXTENT MISSING LDR A4,A13 SAVE LAST FILE SECTION AND EXTENT NUMBER RB OP:180 * EJECT FMTASK * * OP:230 EQU * LC A2,FPB:SH,A10 SHAREABILITY PARAMETER ANK A2,/FF RF(Z) OP:240 NO EA REQUESTED ST A5,FWTTAB,A6 SET TTAB ADDRESS IN FWT * OP:240 EQU * IMR A6 INDICATE FWT USED (BIT 15 IN 1ST WORD) LDK A2,/40 PREPARE FOR BASIC ORDERS * EJECT FMTASK * * COMMON EXIT FOR ACCEPTED OPEN REQUESTS * OP:250 EQU * LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS ANK A1,/FF RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION ANK A2,/BF PHYSICAL ORDERS REQUESTED * OP:260 EQU * ADK A2,1 ADD ONE USER TO THIS FILE SC A2,FWTPAR,A6 SET NEW ACCESS PARAMETERS LD A4,FWTFNR,A6 FILE NUMBER * IFT MMUPAG=0 SC A4,ECBFC,A9 SET FILE NUMBER IN ECB XIF * IFT MMUPAG=1 ELR A2,A9 ANKL A2,/FF00 ANK A4,/FF FILE NUMBER ORR A2,A4 ESR A2,A9 SET FILE NUMBER IN ECB XIF * LDK A4,0 RETURN CODE ABL FM:RTC * EJECT FMTASK * * ********** * CREATE * ********** * * CREATE EQU * CREATE FILE * TO BE IMPLEMENTED EJECT FMTASK * * ********** * EXTEND * ********** * * EXTEND EQU * EXTEND FILE * TO BE IMPLEMENTED EJECT FMTASK * * ********** * FMCLOS * ********** * * * FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * CLOSE/DELETE FILE * * ENTRY PARAMETERS: * * A1 = ORDER OPTION * A5 = TTAB ADDRESS OF CALLING TASK * A9 = USER ECB ADDRESS * A10 = FPB ADDRESS * FMCLOS EQU * CLOSE/DELETE FILE ANK A1,/FF ORDER OPTION ABL(NZ) FM:RQE ILLEGAL ORDER OPTION * EJECT FMTASK * * ********* * CLOSE * ********* * * CLOSE EQU * CLOSE FILE CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) ADK A1,0 CHECK RETURN CODE RF(Z) CL:005 OK, CONTINUE ST A4,ECBRC,A8 SET RETURN CODE IN ECB SUK A1,/20 CHECK IF NVL RF(Z) CL:010 NVL, DON'T WRITE VTOC ABL FM:RTC ERROR * CL:005 EQU * LD A1,FPB:FR,A10 FILE RECORD NUMBER LD A3,FPB:FR+2,A10 ST A1,VTC:LR,A13 SET LRN IN VTOC RECORD ST A3,VTC:LR+2,A13 ORR A1,A3 CHECK FILE RECORD NUMBER RF(Z) CL:010 FRN ZERO, DON'T WRITE VTOC LD A1,FWTPAR,A6 ACCESS PARAMETERS RF(NN) CL:007 NOT NVL LDK A1,/20 SET NVL IN RETURN CODE ST A1,ECBRC,A8 RF CL:010 * CL:007 EQU * CF A14,FM:PWR WRITE VTOC RECORD TO DISC * EJECT FMTASK * * CL:010 EQU * LC A1,FWTPAR,A6 ACCESS PARAMETERS LDR A2,A1 ANK A1,/C0 SKIP NUMBER OF USERS ANK A2,/3F NUMBER OF USERS SUK A2,1 DECREMENT NO OF USERS BY ONE SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS RF(P) CL:020 DON'T RELEASE FWT IF ANY USER LEFT * EJECT FMTASK * * RELEASE FWT AND EWT BLOCKS * LDK A2,1 XRRS A2,A6 RESET USED BIT IN FWT CF A14,RELBLK RELEASE EWT STRUCTURE BLOCKS RF CL:030 * CL:020 EQU * ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS SC A1,FWTPAR,A6 * CL:030 EQU * LD A4,ECBRC,A8 RETURN CODE RF FMEXIT RETURN * CL:040 EQU * ENTRY USED BY FM:LKM ADKL A14,4 ADJUST STACK POINTER RB CL:010 * EJECT FMTASK * * ********** * DELETE * ********** * * DELETE EQU * DELETE FILE * TO BE IMPLEMENTED EJECT FMTASK * * ********** * FMRDFP * ********** * * * FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * READ FILE PARAMETERS * * ENTRY PARAMETERS: * * A1 = ORDER OPTION * A5 = TTAB ADDRESS OF CALLING TASK * A9 = USER ECB ADDRESS * A10 = FPB ADDRESS * FMRDFP EQU * READ FILE PARAMETERS ANK A1,/FF ORDER OPTION RF(NZ) FM:RQE ILLEGAL ORDER OPTION CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) ADK A1,0 CHECK RETURN CODE RF(NZ) FM:RTC ERROR * * CLEAR FPB AREA * LDR A1,A10 FPB ADDRESS LDK A2,FPBLEN FPB AREA LENGTH * FMR:00 EQU * CMR A1 ADK A1,2 SUK A2,2 RB(P) FMR:00 * EJECT FMTASK * * LDR A1,A10 FPB ADDRESS ADK A1,FPB:V2 2ND VOLUME NAME LDK A2,3 LOOP COUNTER, OUTER LOOP LDKL A4,/2020 SPACES * FMR:02 EQU * OUTER LOOP ENTRY LDK A3,3 LOOP COUNTER, INNER LOOP * FMR:04 EQU * INNER LOOP ENTRY STR A4,A1 MOVE SPACES TO VOLUME NAME ADK A1,2 SUK A3,1 RB(P) FMR:04 ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME SUK A2,1 RB(P) FMR:02 * EJECT FMTASK * * MOVE PARAMETERS FROM VTOC AND FWT TO FPB * LD A1,VTC:RL,A13 RECORD LENGTH STR A1,A10 LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION ST A1,FPB:BF,A10 LD A1,VTC:LR,A13 LAST RECORD NUMBER ST A1,FPB:FR,A10 LD A1,VTC:LR+2,A13 LRN, PART 2 ST A1,FPB:FR+2,A10 LD A1,VTC:MN,A13 MONITOR AND SOP SWITCH NUMBER ECR A1,A1 SC A1,FPB:MN,A10 STORE MONITOR NUMBER LC A1,VTC:IF,A13 NUMBER OF INDEX FILES ST A1,FPB:IF,A10 LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD ST A1,FPB:KA,A10 LDK A2,1 LD A1,FWTTAB,A6 SHAREABILITY PARAMETER RF(Z) FMR:05 NO EA SC A2,FPB:SH,A10 INDICATE OPENED EXCLUSIVELY * FMR:05 EQU * LD A1,FWTPAR,A6 ACCESS PARAMETERS SLL A1,1 RF(NN) FMR:10 PHYSICAL ORDERS FOR THIS FILE SC A2,FPB:BO,A10 INDICATE BASIC ORDERS * FMR:10 EQU * SLC A1,7 ANK A1,/3F NUMBER OF USERS SC A1,FPB:US,A10 * EJECT FMTASK * * MOVE CREATION DATE AND RETENTION PERIOD * LDR A1,A13 VTOC ADDRESS ADK A1,VTC:CD LDR A3,A10 FPB ADDRESS ADK A3,FPB:CD LDK A2,9 NO OF CHARACTERS TO MOVE CF A14,MOVE MOVE CREATION DATE AND RETENTION PERIOD * * MOVE FILE NAME FROM FWT TO FPB * LDR A1,A6 FWT ADDRESS ADK A1,FWTNAM SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME LDK A2,8 NO OF CHARACTERS TO MOVE CF A14,MOVE MOVE FILE NAME ADK A3,FPB:V1-FPB:FN-8 ADK A6,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE LDR A11,A6 LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK * EJECT FMTASK * * READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION * FMR:20 EQU * LC A2,EWTVOL,A12 DISC FILE CODE LDR A13,A2 SAVE FILE CODE CF A14,FNDNAM FIND VOLUME NAME ADDRESS * * MOVE VOLUME NAME FROM DWT TO FPB * LDR A1,A6 VOLUME NAME ADDRESS CF A14,MOVE MOVE VOLUME NAME LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH ANK A1,/FF LD A2,EWTEXL,A11 * EJECT FMTASK * * COMPUTE FILE SECTION SIZE(S) * FMR:35 EQU * LDR* A11,A12 ADDRESS TO NEXT EWT STRUCTURE RF(Z) FMR:50 END OF EWT CHAIN LD A6,EWTEXL-2,A11 FILE EXTENT LENGTH ANK A6,/FF LD A7,EWTEXL,A11 LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK CC A13,EWTVOL,A12 CHECK FILE CODE RF(NE) FMR:50 END OF THIS FILE SECTION * IFT CPU852=0 DAR A6 ACKUMULATE FILE SECTION LENGTH XIF * IFT CPU852=1 ADR A1,A6 ACKUMULATE FILE SECTION LENGTH ADR A2,A7 RF(O) FMR:45 OVERFLOW RB FMR:35 * FMR:45 EQU * ADK A1,1 OVERFLOW CORRECTION ANKL A2,/7FFF XIF * RB FMR:35 * FMR:50 EQU * STR A1,A3 STORE FILE SECTION SIZE IN FPB ST A2,2,A3 ADK A3,FPB:V2-FPB:S1 INCREMENT FPB POINTER LDR A4,A11 CHECK EWT BLOCK ADDRESS RB(NZ) FMR:20 NOT END OF EWT CHAIN * EJECT FMTASK * * ********** * FMEXIT * ********** * * * COMMON EXIT FOR FILE MANAGEMENT * ADMINISTRATION FUNCTIONS * FMEXIT EQU * IFT MMUPAG=1 * * MOVE SYSTEM FPB (FM:FPB) TO USER AREA (USER FPB) * * INPUT: A9 = USER ECB ADDRESS * A10 = FM:FPB ADDRESS * LDR A1,A10 FM:FPB ADDRESS EL A2,ECBBA,A9 USER FPB ADDRESS LDK A3,FPBLEN FPB LENGTH MVSU A3 MOVE FM:FPB TO USER FPB XIF * EJECT FMTASK * * ********** * FM:RTC * * FM:RQE * ********** * * * SET RETURN CODE IN USER ECB * * INPUT: A4 = RETURN CODE * A5 = TTAB ADDRESS OF CALLING TASK * A9 = USER ECB ADDRESS * FM:RTC EQU * GENERAL RETURN CODE EXIT IFT MMUPAG=0 ST A4,ECBRC,A9 SET RETURN CODE IN ECB XIF * IFT MMUPAG=1 ES A4,ECBRC,A9 SET RETURN CODE IN ECB XIF * ABL QMEXIT QUEUE TASK AND EXIT FMTASK * FM:RQE EQU * REQUEST ERROR EXIT LDKL A4,/8000 RETURN CODE RB FM:RTC * EJECT FMTASK * * ********** * FM:PWR * * FMREAD * ********** * * * INPUT: A2 = SECTOR NUMBER, PART 2 * A5 = TTAB ADDRESS OF CALLING TASK * A8 = FMTASK ECB ADDRESS * A9 = USER ECB ADDRESS * * OUTPUT: A4 = 0 * A7 IS DESTROYED * FM:PWR EQU * PHYSICAL WRITE ENTRY LDK A7,/95 PHYSICAL WRITE RF FM:LKM * FMREAD EQU * PHYSICAL READ ENTRY LDK A7,/91 PHYSICAL READ * EJECT FMTASK * * FM:LKM EQU * COMMON I/O ROUTINE ENTRY ST A2,ECBCW2,A8 SET SECTOR NUMBER IN ECB LKM DATA 1 LD A4,ECBRC,A8 RETURN CODE ANKL A4,/FEFF SKIP RETRY BIT RF(Z) FM:RTN RETURN IF OK * * ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED * LDK A7,/A2 CLOSE ORDER CC A7,TTB:SA+15,A5 CHECK IF CLOSE ORDER RUNNING ABL(E) CL:040 YES, COMPLETE CLOSE ACTION SUK A7,1 OPEN ORDER CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING RB(NE) FM:RTC ABORT IF NOT OPEN LDK A7,/20 NEW VOLUME LOADED BIT TM A4,A7 CHECK RETURN CODE RB(Z) FM:RTC NOT NVL, ABORT RB FMREAD NVL AT OPEN, REPEAT REQUEST * FM:RTN EQU * RTN A14 * EJECT FMTASK * * ********** * RELBLK * ********** * * * RELBLK WILL RELEASE THE MONITOR BLOCKS * THAT ARE USED IN THE EWT STRUCTURE. * * INPUT: A6 = FWT ADDRESS * * OUTPUT: A1-A4 ARE DESTROYED * RELBLK EQU * RELEASE EWT STRUCTURE BLOCKS LD A4,FWTEW2,A6 ADDRESS TO FIRST EWT STRUCTURE RF(Z) REL:20 NO MORE BLOCKS TO RELEASE * REL:10 EQU * INH CF A15,FREBLK RELEASE EWT BLOCK ENB LDR A4,A3 EWT BLOCK ADDRESS RB(NZ) REL:10 * REL:20 EQU * CM FWTVTC,A6 RESET VTOC SECTOR NUMBER CM FWTTAB,A6 RESET TTAB ADDRESS (EA PARAMETER) CM FWTEW2,A6 RESET EWT STRUCTURE POINTER RTN A14 * EJECT FMTASK * * ********** * FNDNAM * ********** * * FNDNAM WILL CONVERT THE SUPPLIED FILE CODE * TO VOLUME NAME ADDRESS IN THE DISC DWT. * * INPUT: A2 = FILE CODE * * OUTPUT: A2 = 6 * A6 = VOLUME NAME ADDRESS * A4 = DESTROYED * FNDNAM EQU * FIND VOLUME NAME ADDRESS ANK A2,/FF INH CF A15,FNDDWD FIND DISC DWT ADDRESS ENB * FNAM05 EQU * LD A4,DWTST,A6 ANK A4,1 RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC LKM DATA 0 SWITCH TASKS RB FNAM05 CHECK DISC AGAIN * FNAM10 EQU * ADK A6,6 NEXT VOLUME NAME IN DWT SUK A2,1 DECREMENT INDEX RB(NN) FNAM10 LDK A2,6 ADKL A6,DWTVOL-6 RTN A14 * EJECT FMTASK * * ********** * FNDVOL * ********** * * * FNDVOL SEARCHES THE REQUESTED * VOLUME SPECIFIED IN THE FPB. * * INPUT: A7 = VOLUME NAME DISPLACEMENT IN FPB * A10 = FPB ADDRESS * * OUTPUT: A2 = DISC FILE CODE IF FOUND, ELSE * = 0 IF VOLUME NOT FOUND * A1, A3-A4, A12 ARE DESTROYED * FNDVOL EQU * FIND VOLUME (FILE CODE) LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 LDR A12,A6 SAVE FWT ADDRESS * FVOL10 EQU * ADK A1,1 POINT TO NEXT FILE CODE CWK A1,DFTABE CHECK IF END OF DFTAB RF(E) FVOL30 END OF DFTAB LCR A2,A1 NEXT FILE CODE CF A14,FNDNAM FIND VOLUME NAME ADDRESS LDR* A3,A6 FIRST WORD OF VOLUME NAME RB(Z) FVOL10 NO VOLUME * EJECT FMTASK * * LDR A3,A10 FPB ADDRESS ADR A3,A7 ADD VOLUME NAME DISPLACEMENT * FVOL20 EQU * COMPARE VOLUME NAMES LDR* A4,A6 CWR* A4,A3 RB(NE) FVOL10 VOLUME NAMES NOT EQUAL ADK A3,2 INCREMENT POINTERS ADK A6,2 SUK A2,2 RB(P) FVOL20 LCR A2,A1 FILE CODE * FVOL25 EQU * LDR A6,A12 RESTORE FWT ADDRESS RTN A14 * FVOL30 EQU * VOLUME NOT FOUND LDK A2,0 RETURN CODE RB FVOL25 * EJECT FMTASK * * ********** * RDVTOC * ********** * * * RDVTOC WILL CALL FCHEC2 FOR CHECK OF THE * ACCESS PARAMETERS AND READ THE VTOC RECORD * OF THE FIRST FILE EXTENT. * * INPUT: A5 = TTAB ADDRESS * A9 = USER ECB ADDRESS * * OUTPUT: A6 = FWT ADDRESS * A13 = VTOC RECORD ADDRESS IN FM:BUF * A1-A4, A7, A11 ARE DESTROYED * RDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD IFT MMUPAG=0 LDR* A2,A9 FILE NUMBER XIF * IFT MMUPAG=1 ELR A2,A9 FILE NUMBER XIF * INH CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS ENB LDR A4,A1 RETURN CODE RF(NZ) RDVT20 ERROR, RETURN * EJECT FMTASK * * LDR A6,A3 FWT ADDRESS LC A2,FWTVOL,A6 DISC FILE CODE (FIRST EXTENT) SC A2,ECBFC,A8 LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) CF A14,FVTC10 READ VTOC SECTOR AND ONE VTOC RECORD * RDVT10 EQU * LD A1,VTC:EN,A13 FILE EXTENT NUMBER RF(Z) RDVT20 FIRST EXTENT FOUND CF A14,FVTC30 READ NEXT VTOC RECORD FOR THIS FILE RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT * RDVT20 EQU * RTN A14 * EJECT FMTASK * * ********** * FNDVTC * ********** * * * FNDVTC SEARCHES THE REQUESTED * FILE SPECIFIED IN THE FPB. * RETURN IS MADE WHEN ONE EXTENT * HAS BEEN FOUND. * * INPUT: A2 = FILE CODE * A5 = TTAB ADDRESS * A6 = FWT ADDRESS * A9 = USER ECB ADDRESS * * OUTPUT: A2 = VTOC SECTOR NUMBER IF FOUND, ELSE * = 0 IF NO FILE EXTENT FOUND * A13 = VTOC RECORD ADDRESS IN FM:BUF * A1, A3-A4, A7, A11-A12 ARE DESTROYED * FNDVTC EQU * FIND VTOC ENTRY SC A2,ECBFC,A8 SET FILE CODE IN ECB LDK A2,0 SECTOR NUMBER CF A14,FMREAD READ SECTOR 0 LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE LDR A12,A2 AD A2,FM:BUF+VOL:FS SKIP FSAT SECTORS AD A12,FM:BUF+VOL:EL LAST VTOC SECTOR+1 * EJECT FMTASK * * FVTC10 EQU * ENTRY USED BY RDVTOC CF A14,FMREAD READ ONE VTOC SECTOR LDKL A13,FM:BUF FM:BUF ADDRESS LDK A7,VTOCBF VTOC BLOCK FACTOR * FVTC20 EQU * LD A4,VTC:ST,A13 VTOC STATUS BYTE ANK A4,/FF RF(NZ) FVTC50 VTOC USED * FVTC30 EQU * ENTRY USED BY OPEN LD A2,ECBCW2,A8 CURRENT VTOC SECTOR NUMBER ADKL A13,VTOCRL NEXT VTOC ADDRESS SUK A7,1 RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR ADK A2,1 NEXT VTOC SECTOR CWR A2,A12 CHECK IF END OF VTOC EXTENT RB(NE) FVTC10 NOT LAST VTOC SECTOR LDK A2,0 RETURN CODE RTN A14 * EJECT FMTASK * * FVTC50 EQU * LDR A1,A6 FWT ADDRESS ADK A1,FWTNAM LDR A3,A13 VTOC ADDRESS LDK A4,4 LOOP COUNTER * FVTC60 EQU * COMPARE FILE NAMES LDR* A11,A3 CWR* A11,A1 RB(NE) FVTC30 FILE NAMES NOT EQUAL ADK A1,2 INCREMENT POINTERS ADK A3,2 SUK A4,1 RB(P) FVTC60 RTN A14 ONE FILE EXTENT FOUND * EJECT FMTASK * * ********** * FNDFWT * ********** * * * FNDFWT IS USED TO FIND OUT IF THE SPECIFIED * FILE IS ALREADY OPENED, AND IF SO RETURN * THE FWT ADDRESS FOR THE FILE. * IF NOT OPENED, A FREE FWT ADDRESS IS RETURNED. * * INPUT: A10 = FPB ADDRESS * A12 = DISC FILE CODE, FIRST EXTENT * * OUTPUT: A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE) * A1-A4, A7, A11 ARE DESTROYED * FNDFWT EQU * LDK A3,0 LD A7,SCTFWT FWT CHAIN START ADDRESS * FNDF10 EQU * LDK A2,1 * FNDF15 EQU * LDR A6,A7 NEXT FWT ADDRESS RF(Z) FNDF40 NO MORE FWT:S AVAILABLE LDR* A7,A6 FIRST WORD OF FWT TM A7,A2 CHECK IF USED RF(NZ) FNDF20 USED, CHECK FILE NAME ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED RB(NZ) FNDF15 YES, DON'T SAVE IT LDR A3,A6 NO, SAVE THIS FWT ADDRESS RB FNDF15 CONTINUE SEARCH * EJECT FMTASK * * FNDF20 EQU * POINT TO FILE NAMES LDK A1,4 LOOP COUNTER LDR A2,A6 FWT ADDRESS ADK A2,FWTNAM LDR A4,A10 FPB ADDRESS ADK A4,FPB:FN SUK A7,1 SKIP FWT USED BIT * FNDF30 EQU * COMPARE FILE NAMES LDR* A11,A2 CWR* A11,A4 RB(NE) FNDF10 FILE NAMES NOT EQUAL ADK A2,2 INCREMENT POINTERS ADK A4,2 SUK A1,1 RB(P) FNDF30 CC A12,FWTVOL,A6 CHECK FILE CODE OF FIRST EXTENT RB(NE) FNDF10 NOT THIS FILE RTN A14 FILE FOUND, RETURN * FNDF40 EQU * FILE NOT FOUND LDR A6,A3 FREE FWT ADDRESS RTN A14 * EJECT FMTASK * * ******** * MOVE * ******** * * * INPUT: A1 = INPUT BUFFER ADDRESS * A2 = NUMBER OF CHARACTERS TO MOVE * A3 = OUTPUT BUFFER ADDRESS * * OUTPUT: A2 = 0 * A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 * A4 IS DESTROYED * MOVE EQU * MOVE STRING LCR A4,A1 MOVE ONE CHARACTER SCR A4,A3 ADK A1,1 INCREMENT BUFFER POINTERS ADK A3,1 SUK A2,1 DECREMENT LOOP COUNTER RB(P) MOVE RTN A14 * EJECT FMTASK * * ********** * FMRDWR * ********** * * * FILE MANAGEMENT I/O FUNCTIONS. * FMRDWR IS ENTERED WHEN THE REQUESTED * SECTORS ARE SPLIT OVER MORE THAN * ONE EXTENT. * FMRDWR EQU * BASIC AND PHYSICAL READ/WRITE IFT XTSPLI=0 ABL LKMERR NOT INCLUDED IN THIS VERSION XIF * IFT XTSPLI=1 ABL LKMERR TO BE IMPLEMENTED XIF * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT FMTASK REL 10.0 80-03-15 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x004c}
0x0052…008c Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0000, t01=0x0056}
0x008c…0096 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00d0 Head {h00=0x0036, h01=0x0032, text=»* PHILIPS TERMINAL SYSTEM PTS *«, t00=0x0000, t01=0x009a}
0x00d0…00da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00d4}
0x00da…0114 Head {h00=0x0036, h01=0x0032, text=»* FMTASK = TOSS FILE MANAGEMENT TASK *«, t00=0x0000, t01=0x00de}
0x0114…011e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0132 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x012c}
0x0132…013c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0136}
0x013c…0176 Head {h00=0x0036, h01=0x0032, text=»**************************************************«, t00=0x0000, t01=0x0140}
0x0176…0180 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x017a}
0x0180…018a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0184}
0x018a…01bc Head {h00=0x002e, h01=0x002a, text=»* TOSS FILE MANAGEMENT TASK CONTAINS THE«, t00=0x0000, t01=0x018e}
0x01bc…01ee Head {h00=0x002e, h01=0x002a, text=»* FOLLOWING FILE ADMINISTRATION MODULES:«, t00=0x0001, t01=0x0030}
0x01ee…01f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0062}
0x01f8…0226 Head {h00=0x002a, h01=0x0026, text=»* - FMOPEN OPEN/CREATE/EXTEND FILE«, t00=0x0001, t01=0x006c}
0x0226…024e Head {h00=0x0024, h01=0x0020, text=»* - FMCLOS CLOSE/DELETE FILE«, t00=0x0001, t01=0x009a}
0x024e…027a Head {h00=0x0028, h01=0x0023, text=»* - FMRDFP READ FILE PARAMETERS «, t00=0x0001, t01=0x00c2}
0x027a…0284 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00ee}
0x0284…02b0 Head {h00=0x0028, h01=0x0050, text=»* A SPECIAL ENTRY IS USED FOR I/O «, t00=0x0001, t01=0x00f8}
0x02b0…02e2 Head {h00=0x002e, h01=0x0050, text=»* FUNCTIONS WHERE REQUESTED SECTORS ARE «, t00=0x0001, t01=0x0124}
0x02e2…0312 Head {h00=0x002c, h01=0x0050, text=»* SPLIT OVER TWO OR MORE FILE EXTENTS:«, t00=0x0001, t01=0x0156}
0x0312…031c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0186}
0x031c…0350 Head {h00=0x0030, h01=0x0050, text=»* - FMRDWR READ/WRITE (SPLIT EXTENT I/O)«, t00=0x0001, t01=0x0190}
0x0350…035a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0034}
0x035a…038e Head {h00=0x0030, h01=0x0050, text=»* FMTASK ALSO CONTAINS THE FILE MANAGEMENT«, t00=0x0002, t01=0x003e}
0x038e…03c0 Head {h00=0x002e, h01=0x0050, text=»* SYSTEM INITIALIZATION ROUTINE, FMINIT.«, t00=0x0002, t01=0x0072}
0x03c0…03ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a4}
0x03ca…03d4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00ae}
0x03d4…03ec Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x0002, t01=0x00b8}
0x03ec…03f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00d0}
0x03f6…0400 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00da}
0x0400…0414 Head {h00=0x0010, h01=0x000b, text=»*********** «, t00=0x0002, t01=0x00e4}
0x0414…0428 Head {h00=0x0010, h01=0x000b, text=»* ENTRIES * «, t00=0x0002, t01=0x00f8}
0x0428…043c Head {h00=0x0010, h01=0x000b, text=»*********** «, t00=0x0002, t01=0x010c}
0x043c…0446 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0120}
0x0446…0450 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x012a}
0x0450…0484 Head {h00=0x0030, h01=0x002b, text=» ENTRY FMRDWR READ/WRITE (SPLIT EXTENT I/O) «, t00=0x0002, t01=0x0134}
0x0484…04b6 Head {h00=0x002e, h01=0x0050, text=» ENTRY FM:ADM FM ADMINISTRATION FUNCTIONS «, t00=0x0002, t01=0x0168}
0x04b6…04ea Head {h00=0x0030, h01=0x0050, text=» ENTRY FMINIT FILE MANAGEMENT INITIALIZATION«, t00=0x0003, t01=0x000a}
0x04ea…050c Head {h00=0x001e, h01=0x0019, text=» ENTRY TTABFM FMTASK TTAB «, t00=0x0003, t01=0x003e}
0x050c…0538 Head {h00=0x0028, h01=0x0050, text=» ENTRY FWTPAR FILE ACCESS PARAMETERS«, t00=0x0003, t01=0x0060}
0x0538…055a Head {h00=0x001e, h01=0x0050, text=» ENTRY FWTFNR FILE NUMBER «, t00=0x0003, t01=0x008c}
0x055a…0594 Head {h00=0x0036, h01=0x0050, text=» ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS «, t00=0x0003, t01=0x00ae}
0x0594…05ca Head {h00=0x0032, h01=0x0050, text=» ENTRY FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT «, t00=0x0003, t01=0x00e8}
0x05ca…05fe Head {h00=0x0030, h01=0x0050, text=» ENTRY FWTEXB FILE EXTENT BASE, FIRST EXTENT«, t00=0x0003, t01=0x011e}
0x05fe…0624 Head {h00=0x0022, h01=0x0050, text=» ENTRY FWTVOL VOLUME FILE CODE«, t00=0x0003, t01=0x0152}
0x0624…0648 Head {h00=0x0020, h01=0x0050, text=» ENTRY EWTEXL EXTENT LENGTH «, t00=0x0003, t01=0x0178}
0x0648…066a Head {h00=0x001e, h01=0x0050, text=» ENTRY EWTEXB EXTENT BASE «, t00=0x0004, t01=0x000c}
0x066a…0690 Head {h00=0x0022, h01=0x0050, text=» ENTRY EWTVOL VOLUME FILE CODE«, t00=0x0004, t01=0x002e}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0054}
0x069a…06b2 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0004, t01=0x005e}
0x06b2…06bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0076}
0x06bc…06c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0080}
0x06c6…06ea Head {h00=0x0020, h01=0x001b, text=» ENTRY FPB:RL RECORD LENGTH «, t00=0x0004, t01=0x008a}
0x06ea…070c Head {h00=0x001e, h01=0x001a, text=» ENTRY FPB:BF BLOCK FACTOR«, t00=0x0004, t01=0x00ae}
0x070c…0734 Head {h00=0x0024, h01=0x001f, text=» ENTRY FPB:FO FILE ORGANIZATION «, t00=0x0004, t01=0x00d0}
0x0734…0756 Head {h00=0x001e, h01=0x001a, text=» ENTRY FPB:BO BASIC ORDERS«, t00=0x0004, t01=0x00f8}
0x0756…0776 Head {h00=0x001c, h01=0x0017, text=» ENTRY FPB:FN FILE NAME «, t00=0x0004, t01=0x011a}
0x0776…0794 Head {h00=0x001a, h01=0x0015, text=» ENTRY FPB:EL ENLARGE «, t00=0x0004, t01=0x013a}
0x0794…07b8 Head {h00=0x0020, h01=0x001b, text=» ENTRY FPB:V1 VOLUME NAME 1 «, t00=0x0004, t01=0x0158}
0x07b8…07d4 Head {h00=0x0018, h01=0x0014, text=» ENTRY FPB:S1 SIZE 1«, t00=0x0004, t01=0x017c}
0x07d4…07f8 Head {h00=0x0020, h01=0x001b, text=» ENTRY FPB:V2 VOLUME NAME 2 «, t00=0x0005, t01=0x0008}
0x07f8…0814 Head {h00=0x0018, h01=0x0014, text=» ENTRY FPB:S2 SIZE 2«, t00=0x0005, t01=0x002c}
0x0814…0838 Head {h00=0x0020, h01=0x001b, text=» ENTRY FPB:V3 VOLUME NAME 3 «, t00=0x0005, t01=0x0048}
0x0838…0854 Head {h00=0x0018, h01=0x0014, text=» ENTRY FPB:S3 SIZE 3«, t00=0x0005, t01=0x006c}
0x0854…0878 Head {h00=0x0020, h01=0x001b, text=» ENTRY FPB:V4 VOLUME NAME 4 «, t00=0x0005, t01=0x0088}
0x0878…0894 Head {h00=0x0018, h01=0x0014, text=» ENTRY FPB:S4 SIZE 4«, t00=0x0005, t01=0x00ac}
0x0894…08bc Head {h00=0x0024, h01=0x0020, text=» ENTRY FPB:FR FILE RECORD NUMBER«, t00=0x0005, t01=0x00c8}
0x08bc…08e2 Head {h00=0x0022, h01=0x001d, text=» ENTRY FPB:US NUMBER OF USERS «, t00=0x0005, t01=0x00f0}
0x08e2…0904 Head {h00=0x001e, h01=0x001a, text=» ENTRY FPB:SH SHAREABILITY«, t00=0x0005, t01=0x0116}
0x0904…0928 Head {h00=0x0020, h01=0x001c, text=» ENTRY FPB:MN MONITOR NUMBER«, t00=0x0005, t01=0x0138}
0x0928…0950 Head {h00=0x0024, h01=0x001f, text=» ENTRY FPB:SN SOP SWITCH NUMBER «, t00=0x0005, t01=0x015c}
0x0950…097c Head {h00=0x0028, h01=0x0023, text=» ENTRY FPB:IF NUMBER OF INDEX FILES «, t00=0x0005, t01=0x0184}
0x097c…09a8 Head {h00=0x0028, h01=0x0023, text=» ENTRY FPB:KA KEY ADDRESS IN RECORD «, t00=0x0006, t01=0x0020}
0x09a8…09cc Head {h00=0x0020, h01=0x0050, text=» ENTRY FPB:CD CREATION DATE «, t00=0x0006, t01=0x004c}
0x09cc…09f2 Head {h00=0x0022, h01=0x0050, text=» ENTRY FPB:RP RETENTION PERIOD«, t00=0x0006, t01=0x0070}
0x09f2…0a0a Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x0006, t01=0x0096}
0x0a0a…0a14 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00ae}
0x0a14…0a1e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00b8}
0x0a1e…0a34 Head {h00=0x0012, h01=0x000d, text=»************* «, t00=0x0006, t01=0x00c2}
0x0a34…0a4a Head {h00=0x0012, h01=0x000d, text=»* EXTERNALS * «, t00=0x0006, t01=0x00d8}
0x0a4a…0a60 Head {h00=0x0012, h01=0x000d, text=»************* «, t00=0x0006, t01=0x00ee}
0x0a60…0a6a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0104}
0x0a6a…0a74 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x010e}
0x0a74…0aaa Head {h00=0x0032, h01=0x0050, text=» EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR TASK«, t00=0x0006, t01=0x0118}
0x0aaa…0ae2 Head {h00=0x0034, h01=0x0050, text=» EXTRN GETBLK STORE PARAMETERS IN MONITOR BLOCK «, t00=0x0006, t01=0x014e}
0x0ae2…0b1a Head {h00=0x0034, h01=0x0050, text=» EXTRN FREBLK GET PARAMETERS FROM MONITOR BLOCK «, t00=0x0006, t01=0x0186}
0x0b1a…0b4e Head {h00=0x0030, h01=0x0050, text=» EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID«, t00=0x0007, t01=0x002e}
0x0b4e…0b7a Head {h00=0x0028, h01=0x0050, text=» EXTRN FNDDWD FIND DISC DWT ADDRESS «, t00=0x0007, t01=0x0062}
0x0b7a…0bb8 Head {h00=0x003a, h01=0x0036, text=» EXTRN FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS«, t00=0x0007, t01=0x008e}
0x0bb8…0bde Head {h00=0x0022, h01=0x0050, text=» EXTRN FCHEC2 FCHECK 2ND ENTRY«, t00=0x0007, t01=0x00cc}
0x0bde…0c16 Head {h00=0x0034, h01=0x0030, text=» EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR«, t00=0x0007, t01=0x00f2}
0x0c16…0c3c Head {h00=0x0022, h01=0x0050, text=» EXTRN TIODM DM ADDRESS BLOCK «, t00=0x0007, t01=0x012a}
0x0c3c…0c66 Head {h00=0x0026, h01=0x0050, text=» EXTRN DFTAB DISC FILE CODE TABLE «, t00=0x0007, t01=0x0150}
0x0c66…0c88 Head {h00=0x001e, h01=0x0050, text=» EXTRN DFTABE END OF DFTAB«, t00=0x0007, t01=0x017a}
0x0c88…0cae Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOF NUMBER OF FILES «, t00=0x0008, t01=0x000c}
0x0cae…0cdc Head {h00=0x002a, h01=0x0050, text=» EXTRN SCTFWT FWT CHAIN START ADDRESS «, t00=0x0008, t01=0x0032}
0x0cdc…0d08 Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTFWL FILE WORK TABLE LENGTH«, t00=0x0008, t01=0x0060}
0x0d08…0d30 Head {h00=0x0024, h01=0x0050, text=» EXTRN SCTDMT DM TASKS IN SYSTEM«, t00=0x0008, t01=0x008c}
0x0d30…0d50 Head {h00=0x001c, h01=0x0050, text=» EXTRN NVLTAB NVL TABLE «, t00=0x0008, t01=0x00b4}
0x0d50…0d78 Head {h00=0x0024, h01=0x0050, text=» EXTRN NVLDMT DM TASK NVL TABLE «, t00=0x0008, t01=0x00d4}
0x0d78…0d9c Head {h00=0x0020, h01=0x0050, text=» EXTRN NVLEND END OF NVLTAB «, t00=0x0008, t01=0x00fc}
0x0d9c…0dbe Head {h00=0x001e, h01=0x0050, text=» EXTRN NVLBIT NVL BIT MASK«, t00=0x0008, t01=0x0120}
0x0dbe…0dde Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0008, t01=0x0142}
0x0dde…0e0c Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTADR ADDRESS TO ADDRESS BLOCK«, t00=0x0008, t01=0x0162}
0x0e0c…0e32 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTMEC MMU ECB ADDRESS «, t00=0x0008, t01=0x0190}
0x0e32…0e54 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTVOL VOLUME NAME «, t00=0x0009, t01=0x0026}
0x0e54…0e78 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTNVL NVL INDICATOR «, t00=0x0009, t01=0x0048}
0x0e78…0eae Head {h00=0x0032, h01=0x0050, text=» EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT «, t00=0x0009, t01=0x006c}
0x0eae…0eb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a2}
0x0eb8…0ed0 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0009, t01=0x00ac}
0x0ed0…0eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c4}
0x0eda…0ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ce}
0x0ee4…0f04 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0009, t01=0x00d8}
0x0f04…0f24 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:SA SAVE AREA «, t00=0x0009, t01=0x00f8}
0x0f24…0f54 Head {h00=0x002c, h01=0x0028, text=» EXTRN ECBFC ECB FILE CODE (FILE NUMBER)«, t00=0x0009, t01=0x0118}
0x0f54…0f8a Head {h00=0x0032, h01=0x002d, text=» EXTRN ECBBA ECB BUFFER ADDRESS (FPB ADDRESS) «, t00=0x0009, t01=0x0148}
0x0f8a…0fae Head {h00=0x0020, h01=0x001c, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0009, t01=0x017e}
0x0fae…0fd2 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBCW1 CONTROL WORD 1«, t00=0x000a, t01=0x0012}
0x0fd2…0ff6 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBCW2 CONTROL WORD 2«, t00=0x000a, t01=0x0036}
0x0ff6…100e Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x000a, t01=0x005a}
0x100e…1018 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0072}
0x1018…1022 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x007c}
0x1022…1052 Head {h00=0x002c, h01=0x0027, text=»*************************************** «, t00=0x000a, t01=0x0086}
0x1052…105c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00b6}
0x105c…107a Head {h00=0x001a, h01=0x0016, text=»* CONDITIONAL ASSEMBLY«, t00=0x000a, t01=0x00c0}
0x107a…1084 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00de}
0x1084…10b4 Head {h00=0x002c, h01=0x0027, text=»*************************************** «, t00=0x000a, t01=0x00e8}
0x10b4…10be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0118}
0x10be…10f0 Head {h00=0x002e, h01=0x0029, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000a, t01=0x0122}
0x10f0…111e Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000a, t01=0x0154}
0x111e…1128 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0182}
0x1128…113c Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x000a, t01=0x018c}
0x113c…1146 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0010}
0x1146…1150 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x001a}
0x1150…118a Head {h00=0x0036, h01=0x0032, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000b, t01=0x0024}
0x118a…11bc Head {h00=0x002e, h01=0x002a, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000b, t01=0x005e}
0x11bc…11c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0090}
0x11c6…11da Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x000b, t01=0x009a}
0x11da…11e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00ae}
0x11e4…11ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00b8}
0x11ee…1226 Head {h00=0x0034, h01=0x002f, text=»* A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O «, t00=0x000b, t01=0x00c2}
0x1226…1254 Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING XTSPLI EQU 1.«, t00=0x000b, t01=0x00fa}
0x1254…125e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0128}
0x125e…1272 Head {h00=0x0010, h01=0x000c, text=»XTSPLI EQU 0«, t00=0x000b, t01=0x0132}
0x1272…127c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0146}
0x127c…1294 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x000b, t01=0x0150}
0x1294…129e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0168}
0x129e…12a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0172}
0x12a8…12c4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000b, t01=0x017c}
0x12c4…12e0 Head {h00=0x0018, h01=0x0050, text=»* VL DISPLACEMENTS *«, t00=0x000c, t01=0x0008}
0x12e0…12fc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0024}
0x12fc…1306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0040}
0x1306…132a Head {h00=0x0020, h01=0x0050, text=»* VOLUME LABEL DISPLACEMENTS«, t00=0x000c, t01=0x004a}
0x132a…1334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006e}
0x1334…1354 Head {h00=0x001c, h01=0x0050, text=»VOL:VN EQU 0 VOLUME NAME«, t00=0x000c, t01=0x0078}
0x1354…137c Head {h00=0x0024, h01=0x0050, text=»VOL:EL EQU 6 VTOC EXTENT LENGTH «, t00=0x000c, t01=0x0098}
0x137c…13a2 Head {h00=0x0022, h01=0x0050, text=»VOL:EB EQU 10 VTOC EXTENT BASE«, t00=0x000c, t01=0x00c0}
0x13a2…13ca Head {h00=0x0024, h01=0x0050, text=»VOL:RL EQU 12 VTOC RECORD LENGTH«, t00=0x000c, t01=0x00e6}
0x13ca…13ec Head {h00=0x001e, h01=0x0050, text=»VOL:FS EQU 46 FSAT LENGTH «, t00=0x000c, t01=0x010e}
0x13ec…13f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0130}
0x13f6…1400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013a}
0x1400…1416 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000c, t01=0x0144}
0x1416…142c Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000c, t01=0x015a}
0x142c…1442 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000c, t01=0x0170}
0x1442…144c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0186}
0x144c…1456 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0190}
0x1456…147e Head {h00=0x0024, h01=0x0050, text=»VTOCRL EQU 42 VTOC RECORD LENGTH«, t00=0x000d, t01=0x000a}
0x147e…14a4 Head {h00=0x0022, h01=0x0050, text=»VTOCBF EQU 6 VTOC BLOCK FACTOR«, t00=0x000d, t01=0x0032}
0x14a4…14ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0058}
0x14ae…14c6 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x000d, t01=0x0062}
0x14c6…14d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007a}
0x14d0…14da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0084}
0x14da…14f8 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x000d, t01=0x008e}
0x14f8…1516 Head {h00=0x001a, h01=0x0050, text=»* VTOC DISPLACEMENTS *«, t00=0x000d, t01=0x00ac}
0x1516…1534 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x000d, t01=0x00ca}
0x1534…153e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e8}
0x153e…156e Head {h00=0x002c, h01=0x0050, text=»* VOLUME TABLE OF CONTENTS DISPLACEMENTS«, t00=0x000d, t01=0x00f2}
0x156e…1578 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0122}
0x1578…1596 Head {h00=0x001a, h01=0x0050, text=»VTC:FN EQU 0 FILE NAME«, t00=0x000d, t01=0x012c}
0x1596…15c2 Head {h00=0x0028, h01=0x0050, text=»VTC:MN EQU 8 MONITOR NUMBER (L-FILE)«, t00=0x000d, t01=0x014a}
0x15c2…15f4 Head {h00=0x002e, h01=0x0050, text=»VTC:FS EQU 8 FILE SECTION NUMBER (S-FILE) «, t00=0x000d, t01=0x0176}
0x15f4…161a Head {h00=0x0022, h01=0x0050, text=»VTC:SN EQU 9 SOP SWITCH NUMBER«, t00=0x000e, t01=0x0018}
0x161a…1642 Head {h00=0x0024, h01=0x0050, text=»VTC:EN EQU 10 FILE EXTENT NUMBER«, t00=0x000e, t01=0x003e}
0x1642…166a Head {h00=0x0024, h01=0x0050, text=»VTC:EL EQU 12 FILE EXTENT LENGTH«, t00=0x000e, t01=0x0066}
0x166a…1690 Head {h00=0x0022, h01=0x0050, text=»VTC:EB EQU 16 FILE EXTENT BASE«, t00=0x000e, t01=0x008e}
0x1690…16b8 Head {h00=0x0024, h01=0x0050, text=»VTC:LR EQU 20 LAST RECORD NUMBER«, t00=0x000e, t01=0x00b4}
0x16b8…16dc Head {h00=0x0020, h01=0x0050, text=»VTC:RL EQU 24 RECORD LENGTH «, t00=0x000e, t01=0x00dc}
0x16dc…16fe Head {h00=0x001e, h01=0x0050, text=»VTC:BF EQU 26 BLOCK FACTOR«, t00=0x000e, t01=0x0100}
0x16fe…1726 Head {h00=0x0024, h01=0x0050, text=»VTC:FO EQU 27 FILE ORGANIZATION «, t00=0x000e, t01=0x0122}
0x1726…174a Head {h00=0x0020, h01=0x0050, text=»VTC:CD EQU 28 CREATION DATE «, t00=0x000e, t01=0x014a}
0x174a…1770 Head {h00=0x0022, h01=0x0050, text=»VTC:RP EQU 34 RETENTION PERIOD«, t00=0x000e, t01=0x016e}
0x1770…179c (15, 0, 400) Head {h00=0x0028, h01=0x0050, text=»VTC:IF EQU 37 NUMBER OF INDEX FILES «, t00=0x000f, t01=0x0004}
0x179c…17c8 Head {h00=0x0028, h01=0x0050, text=»VTC:KA EQU 38 KEY ADDRESS IN RECORD «, t00=0x000f, t01=0x0030}
0x17c8…17ea Head {h00=0x001e, h01=0x0050, text=»VTC:ST EQU 41 STATUS BYTE «, t00=0x000f, t01=0x005c}
0x17ea…17f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007e}
0x17f4…180c Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x000f, t01=0x0088}
0x180c…1816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a0}
0x1816…1820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00aa}
0x1820…183e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000f, t01=0x00b4}
0x183e…185c Head {h00=0x001a, h01=0x0050, text=»* FWT DISPLACEMENTS * «, t00=0x000f, t01=0x00d2}
0x185c…187a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000f, t01=0x00f0}
0x187a…1884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010e}
0x1884…18ac Head {h00=0x0024, h01=0x0050, text=»* FILE WORK TABLE DISPLACEMENTS «, t00=0x000f, t01=0x0118}
0x18ac…18b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0140}
0x18b6…18da Head {h00=0x0020, h01=0x0050, text=»FWTLNK EQU /00 LINK NEXT FWT«, t00=0x000f, t01=0x014a}
0x18da…18e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016e}
0x18e4…18fa Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000f, t01=0x0178}
0x18fa…1918 Head {h00=0x001a, h01=0x0050, text=»FWTBAS EQU FWTLNK+/10 «, t00=0x000f, t01=0x018e}
0x1918…1924 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x001c}
0x1924…192e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0028}
0x192e…1944 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x0032}
0x1944…1962 Head {h00=0x001a, h01=0x0050, text=»FWTBAS EQU FWTLNK+/14 «, t00=0x0010, t01=0x0048}
0x1962…196e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0066}
0x196e…1978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0072}
0x1978…19b8 Head {h00=0x003c, h01=0x0050, text=»FWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) «, t00=0x0010, t01=0x007c}
0x19b8…19ec Head {h00=0x0030, h01=0x0050, text=»FWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS«, t00=0x0010, t01=0x00bc}
0x19ec…1a16 Head {h00=0x0026, h01=0x0050, text=»FWTFNR EQU FWTBAS+/03 FILE NUMBER «, t00=0x0010, t01=0x00f0}
0x1a16…1a58 Head {h00=0x003e, h01=0x0050, text=»FWTTAB EQU FWTBAS+/04 TTAB FOR TASK WITH EXCLUSIVE ACCESS «, t00=0x0010, t01=0x011a}
0x1a58…1a96 Head {h00=0x003a, h01=0x0050, text=»FWTEW1 EQU FWTBAS+/06 POINTER TO 2ND EWT BLOCK IN FWT «, t00=0x0010, t01=0x015c}
0x1a96…1ace Head {h00=0x0034, h01=0x0050, text=»FWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER«, t00=0x0011, t01=0x000a}
0x1ace…1b14 Head {h00=0x0042, h01=0x0050, text=»FWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) «, t00=0x0011, t01=0x0042}
0x1b14…1b50 Head {h00=0x0038, h01=0x0050, text=»FWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE «, t00=0x0011, t01=0x0088}
0x1b50…1b8e Head {h00=0x003a, h01=0x0050, text=»FWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) «, t00=0x0011, t01=0x00c4}
0x1b8e…1bc6 Head {h00=0x0034, h01=0x0050, text=»FWTEXB EQU FWTBAS+/10 EXTENT BASE (FIRST EXTENT)«, t00=0x0011, t01=0x0102}
0x1bc6…1bee Head {h00=0x0024, h01=0x0050, text=»FWTNAM EQU FWTBAS+/12 FILE NAME «, t00=0x0011, t01=0x013a}
0x1bee…1bf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0162}
0x1bf8…1c10 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0011, t01=0x016c}
0x1c10…1c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0184}
0x1c1a…1c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018e}
0x1c24…1c42 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x0008}
0x1c42…1c60 Head {h00=0x001a, h01=0x0050, text=»* EWT DISPLACEMENTS * «, t00=0x0012, t01=0x0026}
0x1c60…1c7e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0012, t01=0x0044}
0x1c7e…1c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0062}
0x1c88…1cb2 Head {h00=0x0026, h01=0x0050, text=»* EXTENT WORK TABLE DISPLACEMENTS «, t00=0x0012, t01=0x006c}
0x1cb2…1cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0096}
0x1cbc…1ce4 Head {h00=0x0024, h01=0x0050, text=»EWTLNK EQU 0 LINK NEXT EWT BLOCK«, t00=0x0012, t01=0x00a0}
0x1ce4…1cee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c8}
0x1cee…1d00 Head {h00=0x000e, h01=0x0050, text=»* BLOCK 1 «, t00=0x0012, t01=0x00d2}
0x1d00…1d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e4}
0x1d0a…1d3a Head {h00=0x002c, h01=0x0050, text=»EWTSEX EQU 2 FILE SECTION/EXTENT NUMBER «, t00=0x0012, t01=0x00ee}
0x1d3a…1d68 Head {h00=0x002a, h01=0x0050, text=»EWTEXL EQU 4 EXTENT LENGTH IN SECTORS «, t00=0x0012, t01=0x011e}
0x1d68…1d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014c}
0x1d72…1d84 Head {h00=0x000e, h01=0x0050, text=»* BLOCK 2 «, t00=0x0012, t01=0x0156}
0x1d84…1d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0168}
0x1d8e…1db4 Head {h00=0x0022, h01=0x0050, text=»EWTVOL EQU 2 VOLUME FILE CODE «, t00=0x0012, t01=0x0172}
0x1db4…1dd4 Head {h00=0x001c, h01=0x0050, text=»EWTEXB EQU 4 EXTENT BASE«, t00=0x0013, t01=0x0008}
0x1dd4…1dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0028}
0x1dde…1e12 Head {h00=0x0030, h01=0x0050, text=»EWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH «, t00=0x0013, t01=0x0032}
0x1e12…1e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0066}
0x1e1c…1e34 Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x0013, t01=0x0070}
0x1e34…1e3e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0088}
0x1e3e…1e48 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0092}
0x1e48…1e66 Head {h00=0x001a, h01=0x0015, text=»********************* «, t00=0x0013, t01=0x009c}
0x1e66…1e84 Head {h00=0x001a, h01=0x0015, text=»* FPB DISPLACEMENTS * «, t00=0x0013, t01=0x00ba}
0x1e84…1ea2 Head {h00=0x001a, h01=0x0015, text=»********************* «, t00=0x0013, t01=0x00d8}
0x1ea2…1eac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00f6}
0x1eac…1ed8 Head {h00=0x0028, h01=0x0024, text=»* FILE PARAMETER BLOCK DISPLACEMENTS«, t00=0x0013, t01=0x0100}
0x1ed8…1ee2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x012c}
0x1ee2…1f04 Head {h00=0x001e, h01=0x001a, text=»FPB:RL EQU 0 RECORD LENGTH«, t00=0x0013, t01=0x0136}
0x1f04…1f26 Head {h00=0x001e, h01=0x0019, text=»FPB:BF EQU 2 BLOCK FACTOR «, t00=0x0013, t01=0x0158}
0x1f26…1f4c Head {h00=0x0022, h01=0x001e, text=»FPB:FO EQU 3 FILE ORGANIZATION«, t00=0x0013, t01=0x017a}
0x1f4c…1f6e Head {h00=0x001e, h01=0x0019, text=»FPB:BO EQU 5 BASIC ORDERS «, t00=0x0014, t01=0x0010}
0x1f6e…1f8c Head {h00=0x001a, h01=0x0016, text=»FPB:FN EQU 8 FILE NAME«, t00=0x0014, t01=0x0032}
0x1f8c…1faa Head {h00=0x001a, h01=0x0015, text=»FPB:EL EQU 17 ENLARGE «, t00=0x0014, t01=0x0050}
0x1faa…1fce Head {h00=0x0020, h01=0x001b, text=»FPB:V1 EQU 18 VOLUME NAME 1 «, t00=0x0014, t01=0x006e}
0x1fce…1fea Head {h00=0x0018, h01=0x0014, text=»FPB:S1 EQU 24 SIZE 1«, t00=0x0014, t01=0x0092}
0x1fea…200e Head {h00=0x0020, h01=0x001b, text=»FPB:V2 EQU 28 VOLUME NAME 2 «, t00=0x0014, t01=0x00ae}
0x200e…202a Head {h00=0x0018, h01=0x0014, text=»FPB:S2 EQU 34 SIZE 2«, t00=0x0014, t01=0x00d2}
0x202a…204e Head {h00=0x0020, h01=0x001b, text=»FPB:V3 EQU 38 VOLUME NAME 3 «, t00=0x0014, t01=0x00ee}
0x204e…206a Head {h00=0x0018, h01=0x0014, text=»FPB:S3 EQU 44 SIZE 3«, t00=0x0014, t01=0x0112}
0x206a…208e Head {h00=0x0020, h01=0x001b, text=»FPB:V4 EQU 48 VOLUME NAME 4 «, t00=0x0014, t01=0x012e}
0x208e…20aa Head {h00=0x0018, h01=0x0014, text=»FPB:S4 EQU 54 SIZE 4«, t00=0x0014, t01=0x0152}
0x20aa…20d2 Head {h00=0x0024, h01=0x0020, text=»FPB:FR EQU 58 FILE RECORD NUMBER«, t00=0x0014, t01=0x016e}
0x20d2…20f8 Head {h00=0x0022, h01=0x001d, text=»FPB:US EQU 62 NUMBER OF USERS «, t00=0x0015, t01=0x0008}
0x20f8…211a Head {h00=0x001e, h01=0x001a, text=»FPB:SH EQU 64 SHAREABILITY«, t00=0x0015, t01=0x002e}
0x211a…213e Head {h00=0x0020, h01=0x001c, text=»FPB:MN EQU 65 MONITOR NUMBER«, t00=0x0015, t01=0x0050}
0x213e…2166 Head {h00=0x0024, h01=0x001f, text=»FPB:SN EQU 66 SOP SWITCH NUMBER «, t00=0x0015, t01=0x0074}
0x2166…2192 Head {h00=0x0028, h01=0x0023, text=»FPB:IF EQU 67 NUMBER OF INDEX FILES «, t00=0x0015, t01=0x009c}
0x2192…21be Head {h00=0x0028, h01=0x0023, text=»FPB:KA EQU 68 KEY ADDRESS IN RECORD «, t00=0x0015, t01=0x00c8}
0x21be…21e2 Head {h00=0x0020, h01=0x0050, text=»FPB:CD EQU 70 CREATION DATE «, t00=0x0015, t01=0x00f4}
0x21e2…2208 Head {h00=0x0022, h01=0x0050, text=»FPB:RP EQU 76 RETENTION PERIOD«, t00=0x0015, t01=0x0118}
0x2208…2212 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x013e}
0x2212…2244 Head {h00=0x002e, h01=0x0050, text=»FPBLEN EQU 80 FILE PARAMETER BLOCK LENGTH «, t00=0x0015, t01=0x0148}
0x2244…224e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017a}
0x224e…2266 Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x0015, t01=0x0184}
0x2266…2270 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x000c}
0x2270…228e Head {h00=0x001a, h01=0x0016, text=»* TTABFM (FMTASK TTAB)«, t00=0x0016, t01=0x0016}
0x228e…2298 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0034}
0x2298…22ae Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0016, t01=0x003e}
0x22ae…22ce Head {h00=0x001c, h01=0x0018, text=» RES 16 FMTASK MMU TABLE«, t00=0x0016, t01=0x0054}
0x22ce…22da Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0016, t01=0x0074}
0x22da…22e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0080}
0x22e4…2310 Head {h00=0x0028, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE (DUMMY)«, t00=0x0016, t01=0x008a}
0x2310…2346 Head {h00=0x0032, h01=0x0050, text=»VOLUME DATA 0 CURRENT VOLUME NAME DISPLACEMENT«, t00=0x0016, t01=0x00b6}
0x2346…236c Head {h00=0x0022, h01=0x001d, text=» DATA 0 SEGMENT BLOCK ADDRESS «, t00=0x0016, t01=0x00ec}
0x236c…2376 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0112}
0x2376…2398 Head {h00=0x001e, h01=0x0019, text=»TTABFM EQU * TTABFM ENTRY «, t00=0x0016, t01=0x011c}
0x2398…23be Head {h00=0x0022, h01=0x001d, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x0016, t01=0x013e}
0x23be…23e4 Head {h00=0x0022, h01=0x0050, text=» DATA '#A' TASK IDENTIFICATION«, t00=0x0016, t01=0x0164}
0x23e4…2404 Head {h00=0x001c, h01=0x0050, text=» DATA 49 PRIORITY LEVEL «, t00=0x0016, t01=0x018a}
0x2404…2424 Head {h00=0x001c, h01=0x0017, text=» DATA 0 PENDING POINTER «, t00=0x0017, t01=0x001a}
0x2424…2452 Head {h00=0x002a, h01=0x0050, text=» DATA /C4C0 PSW (PROGRAM STATUS WORD) «, t00=0x0017, t01=0x003a}
0x2452…2472 Head {h00=0x001c, h01=0x0018, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0017, t01=0x0068}
0x2472…24a8 Head {h00=0x0032, h01=0x002e, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14«, t00=0x0017, t01=0x0088}
0x24a8…24d0 Head {h00=0x0024, h01=0x0050, text=» DATA FM:ECB A8 = FM:ECB ADDRESS«, t00=0x0017, t01=0x00be}
0x24d0…24ea Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0017, t01=0x00e6}
0x24ea…24f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0100}
0x24f4…250c Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x0017, t01=0x010a}
0x250c…2516 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0122}
0x2516…2532 Head {h00=0x0018, h01=0x0013, text=»* FMTASK DATA AREAS «, t00=0x0017, t01=0x012c}
0x2532…253c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0148}
0x253c…2570 Head {h00=0x0030, h01=0x0050, text=»FM:ECB DATA /8000,FM:BUF,256 FMTASK ECB AREA«, t00=0x0017, t01=0x0152}
0x2570…2586 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0017, t01=0x0186}
0x2586…2590 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x000c}
0x2590…25ac Head {h00=0x0018, h01=0x0050, text=» RES 6 FMTASK STACK «, t00=0x0018, t01=0x0016}
0x25ac…25d4 Head {h00=0x0024, h01=0x0020, text=»FM:STB EQU *-2 FMTASK STACK BASE«, t00=0x0018, t01=0x0032}
0x25d4…25de Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x005a}
0x25de…25f4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0018, t01=0x0064}
0x25f4…2624 Head {h00=0x002c, h01=0x0050, text=»FM:FPB RES 40 FILE PARAMETER BLOCK AREA «, t00=0x0018, t01=0x007a}
0x2624…2630 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00aa}
0x2630…263a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b6}
0x263a…2652 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0018, t01=0x00c0}
0x2652…265c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d8}
0x265c…2666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e2}
0x2666…2678 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0018, t01=0x00ec}
0x2678…268a Head {h00=0x000e, h01=0x0050, text=»* FMINIT *«, t00=0x0018, t01=0x00fe}
0x268a…269c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0018, t01=0x0110}
0x269c…26a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0122}
0x26a6…26b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x012c}
0x26b0…26f2 Head {h00=0x003e, h01=0x0050, text=»* FMINIT IS THE FILE MANAGEMENT INITIALIZATION ROUTINE. «, t00=0x0018, t01=0x0136}
0x26f2…2732 Head {h00=0x003c, h01=0x0050, text=»* IT IS CALLED FROM PFINIT AFTER IPL AND AT POWER ON. «, t00=0x0018, t01=0x0178}
0x2732…2774 Head {h00=0x003e, h01=0x0050, text=»* WHEN CALLED AT POWER ON, AN IMMEDIATE RETURN IS MADE. «, t00=0x0019, t01=0x0028}
0x2774…277e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006a}
0x277e…27be Head {h00=0x003c, h01=0x0050, text=»* FMINIT WILL ZEROIZE THE FWT AREA, AND LINK THE FWT:S«, t00=0x0019, t01=0x0074}
0x27be…27fe Head {h00=0x003c, h01=0x0050, text=»* TOGETHER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS«, t00=0x0019, t01=0x00b4}
0x27fe…2828 Head {h00=0x0026, h01=0x0050, text=»* WELL AS FWTFNR (FILE NUMBER). «, t00=0x0019, t01=0x00f4}
0x2828…2868 Head {h00=0x003c, h01=0x0050, text=»* THE PART OF FMINIT THAT IS NOT EXECUTED AT POWER ON «, t00=0x0019, t01=0x011e}
0x2868…28a8 Head {h00=0x003c, h01=0x0050, text=»* WILL BE USED AS THE INTERNAL BUFFER FOR THE FMTASK. «, t00=0x0019, t01=0x015e}
0x28a8…28b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000e}
0x28b2…28d4 Head {h00=0x001e, h01=0x0050, text=»FMINIT EQU * FMINIT ENTRY «, t00=0x001a, t01=0x0018}
0x28d4…2902 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/F03E RTNA15 INSTRUCTION CODE«, t00=0x001a, t01=0x003a}
0x2902…2926 Head {h00=0x0020, h01=0x0050, text=» ST A1,FMINIT CLOSE THE DOOR«, t00=0x001a, t01=0x0068}
0x2926…2930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x008c}
0x2930…2948 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x001a, t01=0x0096}
0x2948…2952 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ae}
0x2952…295c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b8}
0x295c…2998 Head {h00=0x0038, h01=0x0050, text=»FM:BUF EQU FMINIT+2 START OF FMTASK INTERNAL BUFFER «, t00=0x001a, t01=0x00c2}
0x2998…29a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00fe}
0x29a2…29c2 Head {h00=0x001c, h01=0x0050, text=»* PERFORM INITIALIZATION«, t00=0x001a, t01=0x0108}
0x29c2…29cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0128}
0x29cc…29fa Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTFWT FWT CHAIN START ADDRESS «, t00=0x001a, t01=0x0132}
0x29fa…2a20 Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTNOF NUMBER OF FILES «, t00=0x001a, t01=0x0160}
0x2a20…2a32 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x001a, t01=0x0186}
0x2a32…2a56 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,/8000 DWT BUSY BIT «, t00=0x001b, t01=0x0008}
0x2a56…2a7e Head {h00=0x0024, h01=0x0050, text=» LDKL A7,TIODM DM ADDRESS BLOCK «, t00=0x001b, t01=0x002c}
0x2a7e…2a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0054}
0x2a88…2a9c Head {h00=0x0010, h01=0x0050, text=»FMI:30 EQU *«, t00=0x001b, t01=0x005e}
0x2a9c…2ab2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001b, t01=0x0072}
0x2ab2…2aea Head {h00=0x0034, h01=0x0050, text=» LDKL A8,FDBMEC FDB MMU ECB DISPLACEMENT IN FWT «, t00=0x001b, t01=0x0088}
0x2aea…2b0c Head {h00=0x001e, h01=0x0050, text=» ADR A8,A1 MMU ECB ADDRESS«, t00=0x001b, t01=0x00c0}
0x2b0c…2b18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00e2}
0x2b18…2b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ee}
0x2b22…2b48 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 CURRENT FWT ADDRESS«, t00=0x001b, t01=0x00f8}
0x2b48…2b5a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x001b, t01=0x011e}
0x2b5a…2b80 Head {h00=0x0022, h01=0x0050, text=» AD A3,SCTFWL NEXT FWT ADDRESS«, t00=0x001b, t01=0x0130}
0x2b80…2ba2 Head {h00=0x001e, h01=0x0050, text=» ADK A5,1 NEXT FILE NUMBER«, t00=0x001b, t01=0x0156}
0x2ba2…2bb4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001b, t01=0x0178}
0x2bb4…2be2 Head {h00=0x002a, h01=0x0050, text=» RF(N) FMI:50 INITIALIZATION COMPLETED«, t00=0x001b, t01=0x018a}
0x2be2…2c12 Head {h00=0x002c, h01=0x0050, text=» RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE«, t00=0x001c, t01=0x0028}
0x2c12…2c46 Head {h00=0x0030, h01=0x0050, text=» STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT «, t00=0x001c, t01=0x0058}
0x2c46…2c6e Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 INCREMENT FWT POINTER «, t00=0x001c, t01=0x008c}
0x2c6e…2c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b4}
0x2c78…2c90 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x001c, t01=0x00be}
0x2c90…2c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d6}
0x2c9a…2ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e0}
0x2ca4…2cb8 Head {h00=0x0010, h01=0x0050, text=»FMI:40 EQU *«, t00=0x001c, t01=0x00ea}
0x2cb8…2cc8 Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x001c, t01=0x00fe}
0x2cc8…2cf0 Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 INCREMENT FWT POINTER «, t00=0x001c, t01=0x010e}
0x2cf0…2d1c Head {h00=0x0028, h01=0x0050, text=» CWR A1,A3 CHECK IF END OF THIS FWT «, t00=0x001c, t01=0x0136}
0x2d1c…2d46 Head {h00=0x0026, h01=0x0050, text=» RB(NE) FMI:40 NOT END OF THE FWT «, t00=0x001c, t01=0x0162}
0x2d46…2d5c Head {h00=0x0012, h01=0x0050, text=» SU A3,SCTFWL «, t00=0x001c, t01=0x018c}
0x2d5c…2d82 Head {h00=0x0022, h01=0x0050, text=» ADK A3,FWTEW2 FWTEW2 ADDRESS «, t00=0x001d, t01=0x0012}
0x2d82…2db4 Head {h00=0x002e, h01=0x0050, text=» ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER«, t00=0x001d, t01=0x0038}
0x2db4…2de4 Head {h00=0x002c, h01=0x0050, text=» ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT «, t00=0x001d, t01=0x006a}
0x2de4…2e12 Head {h00=0x002a, h01=0x0050, text=» ST A6,DWTST,A2 INDICATE FWT NOT BUSY «, t00=0x001d, t01=0x009a}
0x2e12…2e50 Head {h00=0x003a, h01=0x0050, text=» ST A7,DWTADR,A2 DM ADDRESS BLOCK (ACTIVATION ADDRESS)«, t00=0x001d, t01=0x00c8}
0x2e50…2e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0106}
0x2e5a…2e70 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001d, t01=0x0110}
0x2e70…2e9c Head {h00=0x0028, h01=0x0050, text=» ST A8,DWTMEC,A2 SET MMU ECB ADDRESS«, t00=0x001d, t01=0x0126}
0x2e9c…2ea8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0152}
0x2ea8…2eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015e}
0x2eb2…2edc Head {h00=0x0026, h01=0x0050, text=» RB FMI:30 CONTINUE WITH NEXT FWT «, t00=0x001d, t01=0x0168}
0x2edc…2ee6 (30, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0004}
0x2ee6…2efe Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x001e, t01=0x000e}
0x2efe…2f08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0026}
0x2f08…2f40 Head {h00=0x0034, h01=0x0050, text=»* FILL IN NVLTAB WITH DM TTAB ADDRESSES (IF ANY)«, t00=0x001e, t01=0x0030}
0x2f40…2f4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0068}
0x2f4a…2f5e Head {h00=0x0010, h01=0x0050, text=»FMI:50 EQU *«, t00=0x001e, t01=0x0072}
0x2f5e…2f86 Head {h00=0x0024, h01=0x0050, text=» LD A1,SCTDMT DM TASKS IN SYSTEM«, t00=0x001e, t01=0x0086}
0x2f86…2fb2 Head {h00=0x0028, h01=0x0050, text=» RF(Z) FMI:75 NO DM TASKS IN SYSTEM «, t00=0x001e, t01=0x00ae}
0x2fb2…2fd0 Head {h00=0x001a, h01=0x0050, text=» LDK A3,4 LOOP COUNTER«, t00=0x001e, t01=0x00da}
0x2fd0…2ffa Head {h00=0x0026, h01=0x0050, text=» LDKL A4,NVLDMT DM TASK NVL TABLE «, t00=0x001e, t01=0x00f8}
0x2ffa…3024 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,'#D' TASK ID 1ST DM TASK «, t00=0x001e, t01=0x0122}
0x3024…302e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014c}
0x302e…3042 Head {h00=0x0010, h01=0x0050, text=»FMI:60 EQU *«, t00=0x001e, t01=0x0156}
0x3042…3054 Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x001e, t01=0x016a}
0x3054…3086 Head {h00=0x002e, h01=0x0050, text=» RF(NN) FMI:70 THIS DM TASK NOT IN SYSTEM «, t00=0x001e, t01=0x017c}
0x3086…30b6 Head {h00=0x002c, h01=0x0050, text=» CF A15,FNDTID FIND DM TASK TTAB ADDRESS«, t00=0x001f, t01=0x001e}
0x30b6…30d8 Head {h00=0x001e, h01=0x0050, text=» STR A2,A4 STORE IN NVLTAB«, t00=0x001f, t01=0x004e}
0x30d8…30e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0070}
0x30e2…30f6 Head {h00=0x0010, h01=0x0050, text=»FMI:70 EQU *«, t00=0x001f, t01=0x007a}
0x30f6…3120 Head {h00=0x0026, h01=0x0050, text=» ADK A4,2 INCREMENT NVLTAB POINTER«, t00=0x001f, t01=0x008e}
0x3120…3142 Head {h00=0x001e, h01=0x0050, text=» ADK A7,1 NEXT DM TASK ID «, t00=0x001f, t01=0x00b8}
0x3142…316a Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT LOOP COUNTER«, t00=0x001f, t01=0x00da}
0x316a…3180 Head {h00=0x0012, h01=0x0050, text=» RB(P) FMI:60 «, t00=0x001f, t01=0x0102}
0x3180…318a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0118}
0x318a…31a2 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x001f, t01=0x0122}
0x31a2…31ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013a}
0x31ac…31ca Head {h00=0x001a, h01=0x0050, text=»* COMPUTE NVL BIT MASK«, t00=0x001f, t01=0x0144}
0x31ca…31d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0162}
0x31d4…31e8 Head {h00=0x0010, h01=0x0050, text=»FMI:75 EQU *«, t00=0x001f, t01=0x016c}
0x31e8…320e Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 INITIALIZE BIT MASK «, t00=0x001f, t01=0x0180}
0x320e…3220 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0020, t01=0x0016}
0x3220…3246 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,NVLTAB NVLTAB ADDRESS«, t00=0x0020, t01=0x0028}
0x3246…3250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x004e}
0x3250…3264 Head {h00=0x0010, h01=0x0050, text=»FMI:80 EQU *«, t00=0x0020, t01=0x0058}
0x3264…3292 Head {h00=0x002a, h01=0x0050, text=» LDR* A4,A3 GET ONE ENTRY FROM NVLTAB «, t00=0x0020, t01=0x006c}
0x3292…32bc Head {h00=0x0026, h01=0x0050, text=» RF(Z) FMI:85 THIS ENTRY NOT USED «, t00=0x0020, t01=0x009a}
0x32bc…32e4 Head {h00=0x0024, h01=0x0050, text=» ORR A1,A2 INDICATE TTAB PRESENT«, t00=0x0020, t01=0x00c4}
0x32e4…32ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ec}
0x32ee…3302 Head {h00=0x0010, h01=0x0050, text=»FMI:85 EQU *«, t00=0x0020, t01=0x00f6}
0x3302…3314 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0020, t01=0x010a}
0x3314…333e Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 INCREMENT NVLTAB POINTER«, t00=0x0020, t01=0x011c}
0x333e…336c Head {h00=0x002a, h01=0x0050, text=» CWK A3,NVLEND CHECK IF END OF NVLTAB «, t00=0x0020, t01=0x0146}
0x336c…3394 Head {h00=0x0024, h01=0x0050, text=» RB(NE) FMI:80 NOT END OF NVLTAB«, t00=0x0020, t01=0x0174}
0x3394…339e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x000c}
0x339e…33b2 Head {h00=0x0010, h01=0x0050, text=»FMI:90 EQU *«, t00=0x0021, t01=0x0016}
0x33b2…33e0 Head {h00=0x002a, h01=0x0050, text=» ORR A1,A2 ADD ONE BIT FOR USER TASKS «, t00=0x0021, t01=0x002a}
0x33e0…3406 Head {h00=0x0022, h01=0x0050, text=» ST A1,NVLBIT SET NVL BIT MASK«, t00=0x0021, t01=0x0058}
0x3406…3416 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0021, t01=0x007e}
0x3416…3420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x008e}
0x3420…3436 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0021, t01=0x0098}
0x3436…3446 Head {h00=0x000c, h01=0x0050, text=» RES 57 «, t00=0x0021, t01=0x00ae}
0x3446…3452 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00be}
0x3452…345c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ca}
0x345c…3472 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x00d4}
0x3472…3482 Head {h00=0x000c, h01=0x0050, text=» RES 52 «, t00=0x0021, t01=0x00ea}
0x3482…348e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00fa}
0x348e…3498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0106}
0x3498…34b0 Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x0021, t01=0x0110}
0x34b0…34ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0128}
0x34ba…34c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0132}
0x34c4…34d6 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0021, t01=0x013c}
0x34d6…34e8 Head {h00=0x000e, h01=0x000a, text=»* FMTASK *«, t00=0x0021, t01=0x014e}
0x34e8…34fa Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0021, t01=0x0160}
0x34fa…3504 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0172}
0x3504…350e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x017c}
0x350e…353c Head {h00=0x002a, h01=0x0025, text=»* THE FILE MANAGEMENT TASK PERFORMS «, t00=0x0021, t01=0x0186}
0x353c…356a Head {h00=0x002a, h01=0x0025, text=»* FILE ADMINISTRATION FUNCTIONS. IT «, t00=0x0022, t01=0x0024}
0x356a…359a Head {h00=0x002c, h01=0x0027, text=»* IS ACTIVATED BY THE FILE MANAGEMENT «, t00=0x0022, t01=0x0052}
0x359a…35c4 Head {h00=0x0026, h01=0x0050, text=»* LKM PROCESSOR AT ENTRY FM:ADM.«, t00=0x0022, t01=0x0082}
0x35c4…35f6 Head {h00=0x002e, h01=0x0050, text=»* AFTER SOME HOUSEKEEPING THE FOLLOWING «, t00=0x0022, t01=0x00ac}
0x35f6…3630 Head {h00=0x0036, h01=0x0050, text=»* MODULES WILL PERFORM THE FILE ADMINISTRATION: «, t00=0x0022, t01=0x00de}
0x3630…363a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0022, t01=0x0118}
0x363a…3682 Head {h00=0x0044, h01=0x0050, text=»* - FMOPEN OPEN/CREATE/EXTEND FILE (OPTIONS: 0, 2, 1)«, t00=0x0022, t01=0x0122}
0x3682…36c8 Head {h00=0x0042, h01=0x003d, text=»* - FMCLOS CLOSE/DELETE FILE ( " : 0, 2) «, t00=0x0022, t01=0x016a}
0x36c8…370a Head {h00=0x003e, h01=0x003a, text=»* - FMRDFP READ FILE PARAMETERS ( " : 0)«, t00=0x0023, t01=0x0020}
0x370a…3714 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0062}
0x3714…3740 Head {h00=0x0028, h01=0x0050, text=»* A SPECIAL ENTRY IS USED FOR I/O «, t00=0x0023, t01=0x006c}
0x3740…3772 Head {h00=0x002e, h01=0x0050, text=»* FUNCTIONS WHERE REQUESTED SECTORS ARE «, t00=0x0023, t01=0x0098}
0x3772…37a2 Head {h00=0x002c, h01=0x0050, text=»* SPLIT OVER TWO OR MORE FILE EXTENTS:«, t00=0x0023, t01=0x00ca}
0x37a2…37ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00fa}
0x37ac…37ee Head {h00=0x003e, h01=0x003a, text=»* - FMRDWR READ/WRITE (SPLIT EXTENT I/O) (OPTIONS: 0)«, t00=0x0023, t01=0x0104}
0x37ee…37f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0146}
0x37f8…3802 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0150}
0x3802…381a Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x0023, t01=0x015a}
0x381a…3824 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x0172}
0x3824…382e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0023, t01=0x017c}
0x382e…3840 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0023, t01=0x0186}
0x3840…3852 Head {h00=0x000e, h01=0x0050, text=»* FM:ADM *«, t00=0x0024, t01=0x0008}
0x3852…3864 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0024, t01=0x001a}
0x3864…386e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002c}
0x386e…3878 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x0036}
0x3878…3896 Head {h00=0x001a, h01=0x0015, text=»* ENTRY PARAMETERS: «, t00=0x0024, t01=0x0040}
0x3896…38a0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x005e}
0x38a0…38c6 Head {h00=0x0022, h01=0x0050, text=»* A1 = ORDER CODE AND OPTION«, t00=0x0024, t01=0x0068}
0x38c6…38f4 Head {h00=0x002a, h01=0x0025, text=»* A3 = TTAB ADDRESS OF CALLING TASK «, t00=0x0024, t01=0x008e}
0x38f4…3916 Head {h00=0x001e, h01=0x0050, text=»* A4 = USER ECB ADDRESS «, t00=0x0024, t01=0x00bc}
0x3916…3920 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x00de}
0x3920…3956 Head {h00=0x0032, h01=0x0050, text=»FM:ADM EQU * FM ADMINISTRATION FUNCTIONS ENTRY«, t00=0x0024, t01=0x00e8}
0x3956…3986 Head {h00=0x002c, h01=0x0050, text=» LDR A5,A3 TTAB ADDRESS OF CALLING TASK «, t00=0x0024, t01=0x011e}
0x3986…39aa Head {h00=0x0020, h01=0x0050, text=» LDR A7,A1 ORDER CODE/OPTION«, t00=0x0024, t01=0x014e}
0x39aa…39ce Head {h00=0x0020, h01=0x0050, text=» LDR A9,A4 USER ECB ADDRESS «, t00=0x0024, t01=0x0172}
0x39ce…39f8 Head {h00=0x0026, h01=0x0050, text=» LDKL A14,FM:STB FMTASK STACK BASE«, t00=0x0025, t01=0x0008}
0x39f8…3a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0032}
0x3a02…3a18 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0025, t01=0x003c}
0x3a18…3a3c Head {h00=0x0020, h01=0x0050, text=» LD A10,ECBBA,A9 FPB ADDRESS«, t00=0x0025, t01=0x0052}
0x3a3c…3a48 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0076}
0x3a48…3a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0082}
0x3a52…3a68 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x008c}
0x3a68…3a94 Head {h00=0x0028, h01=0x0050, text=» LDKL A3,TTABFM FMTASK TTAB ADDRESS «, t00=0x0025, t01=0x00a2}
0x3a94…3ab8 Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A5 USER MMU TABLE«, t00=0x0025, t01=0x00ce}
0x3ab8…3ae8 Head {h00=0x002c, h01=0x0050, text=» TS TTB:MT,A3 STORE IN FMTASK MMU TABLE «, t00=0x0025, t01=0x00f2}
0x3ae8…3af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0122}
0x3af2…3b22 Head {h00=0x002c, h01=0x0050, text=»* MOVE USER FPB TO SYSTEM AREA (FM:FPB) «, t00=0x0025, t01=0x012c}
0x3b22…3b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x015c}
0x3b2c…3b54 Head {h00=0x0024, h01=0x0050, text=» EL A1,ECBBA,A9 USER FPB ADDRESS«, t00=0x0025, t01=0x0166}
0x3b54…3b7a Head {h00=0x0022, h01=0x0050, text=» LDKL A2,FM:FPB FM FPB ADDRESS«, t00=0x0025, t01=0x018e}
0x3b7a…3b96 Head {h00=0x0018, h01=0x0050, text=» LDR A10,A2 SAVE IT «, t00=0x0026, t01=0x0024}
0x3b96…3bb8 Head {h00=0x001e, h01=0x0050, text=» LDK A4,FPBLEN FPB LENGTH«, t00=0x0026, t01=0x0040}
0x3bb8…3be0 Head {h00=0x0024, h01=0x0050, text=» MVUS A4 MOVE USER FPB TO FM:FPB«, t00=0x0026, t01=0x0062}
0x3be0…3bec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x008a}
0x3bec…3bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0096}
0x3bf6…3c0e Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0026, t01=0x00a0}
0x3c0e…3c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b8}
0x3c18…3c4a Head {h00=0x002e, h01=0x0050, text=»* CHECK WHAT FUNCTION THAT IS REQUESTED «, t00=0x0026, t01=0x00c2}
0x3c4a…3c82 Head {h00=0x0034, h01=0x0050, text=»* AND BRANCH TO APPROPRIATE FUNCTION HANDLER. «, t00=0x0026, t01=0x00f4}
0x3c82…3c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x012c}
0x3c8c…3cc0 Head {h00=0x0030, h01=0x0050, text=»* THE FOLLOWING PARAMETERS ARE SUPPLIED TO«, t00=0x0026, t01=0x0136}
0x3cc0…3ce8 Head {h00=0x0024, h01=0x0050, text=»* THE RESP. FUNCTION HANDLER: «, t00=0x0026, t01=0x016a}
0x3ce8…3cf2 (39, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0004}
0x3cf2…3d10 Head {h00=0x001a, h01=0x0050, text=»* A1 = ORDER OPTION «, t00=0x0027, t01=0x000e}
0x3d10…3d3e Head {h00=0x002a, h01=0x0050, text=»* A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0027, t01=0x002c}
0x3d3e…3d60 Head {h00=0x001e, h01=0x0050, text=»* A9 = USER ECB ADDRESS «, t00=0x0027, t01=0x005a}
0x3d60…3d7c Head {h00=0x0018, h01=0x0050, text=»* A10 = FPB ADDRESS«, t00=0x0027, t01=0x007c}
0x3d7c…3d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0098}
0x3d86…3dae Head {h00=0x0024, h01=0x0050, text=» ECR A1,A7 ORDER CODE AND OPTION«, t00=0x0027, t01=0x00a2}
0x3dae…3dcc Head {h00=0x001a, h01=0x0050, text=» ANK A7,/7F ORDER CODE«, t00=0x0027, t01=0x00ca}
0x3dcc…3de0 Head {h00=0x0010, h01=0x0050, text=» SUK A7,/03 «, t00=0x0027, t01=0x00e8}
0x3de0…3e0c Head {h00=0x0028, h01=0x0050, text=» ABL(Z) FMRDFP READ FILE PARAMETERS «, t00=0x0027, t01=0x00fc}
0x3e0c…3e24 Head {h00=0x0014, h01=0x0050, text=» SUK A7,/22-/03 «, t00=0x0027, t01=0x0128}
0x3e24…3e48 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) FMCLOS CLOSE/DELETE «, t00=0x0027, t01=0x0140}
0x3e48…3e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0164}
0x3e52…3e6a Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x0027, t01=0x016e}
0x3e6a…3e74 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x0186}
0x3e74…3e7e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0027, t01=0x0190}
0x3e7e…3e90 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0028, t01=0x000a}
0x3e90…3ea2 Head {h00=0x000e, h01=0x000a, text=»* FMOPEN *«, t00=0x0028, t01=0x001c}
0x3ea2…3eb4 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0028, t01=0x002e}
0x3eb4…3ebe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0028, t01=0x0040}
0x3ebe…3ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x004a}
0x3ec8…3efe Head {h00=0x0032, h01=0x0050, text=»* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: «, t00=0x0028, t01=0x0054}
0x3efe…3f22 Head {h00=0x0020, h01=0x0050, text=»* OPEN/CREATE/EXTEND FILE «, t00=0x0028, t01=0x008a}
0x3f22…3f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ae}
0x3f2c…3f4a Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x0028, t01=0x00b8}
0x3f4a…3f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00d6}
0x3f54…3f72 Head {h00=0x001a, h01=0x0050, text=»* A1 = ORDER OPTION «, t00=0x0028, t01=0x00e0}
0x3f72…3fa0 Head {h00=0x002a, h01=0x0050, text=»* A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0028, t01=0x00fe}
0x3fa0…3fc2 Head {h00=0x001e, h01=0x0050, text=»* A9 = USER ECB ADDRESS «, t00=0x0028, t01=0x012c}
0x3fc2…3fde Head {h00=0x0018, h01=0x0050, text=»* A10 = FPB ADDRESS«, t00=0x0028, t01=0x014e}
0x3fde…3fe8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0028, t01=0x016a}
0x3fe8…4014 Head {h00=0x0028, h01=0x0024, text=»FMOPEN EQU * OPEN/CREATE/EXTEND FILE«, t00=0x0028, t01=0x0174}
0x4014…4034 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF ORDER OPTION«, t00=0x0029, t01=0x0010}
0x4034…4060 Head {h00=0x0028, h01=0x0050, text=» ABL(NZ) FM:RQE ILLEGAL ORDER OPTION«, t00=0x0029, t01=0x0030}
0x4060…406a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x005c}
0x406a…4082 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0029, t01=0x0066}
0x4082…408c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x007e}
0x408c…4096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0088}
0x4096…40a6 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0029, t01=0x0092}
0x40a6…40b6 Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0029, t01=0x00a2}
0x40b6…40c6 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0029, t01=0x00b2}
0x40c6…40d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c2}
0x40d0…40da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00cc}
0x40da…40f6 Head {h00=0x0018, h01=0x0050, text=»OPEN EQU * OPEN FILE«, t00=0x0029, t01=0x00d6}
0x40f6…412a Head {h00=0x0030, h01=0x0050, text=» LDK A7,FPB:V1 1ST VOLUME NAME DISPLACEMENT «, t00=0x0029, t01=0x00f2}
0x412a…4140 Head {h00=0x0012, h01=0x0050, text=» ST A7,VOLUME «, t00=0x0029, t01=0x0126}
0x4140…4162 Head {h00=0x001e, h01=0x0050, text=» CF A14,FNDVOL FIND VOLUME«, t00=0x0029, t01=0x013c}
0x4162…4184 Head {h00=0x001e, h01=0x0050, text=» LDR A12,A2 SAVE FILE CODE«, t00=0x0029, t01=0x015e}
0x4184…41aa Head {h00=0x0022, h01=0x0050, text=» RF(Z) OP:055 VOLUME NOT FOUND«, t00=0x0029, t01=0x0180}
0x41aa…41d2 Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDFWT FIND FWT ADDRESS «, t00=0x002a, t01=0x0016}
0x41d2…41ea Head {h00=0x0014, h01=0x0050, text=» ADK A6,0 SET CR«, t00=0x002a, t01=0x003e}
0x41ea…4216 Head {h00=0x0028, h01=0x0050, text=» RF(Z) OP:030 NO FREE FWT AVAILABLE «, t00=0x002a, t01=0x0056}
0x4216…423c Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 FIRST WORD OF FWT «, t00=0x002a, t01=0x0082}
0x423c…4266 Head {h00=0x0026, h01=0x0050, text=» ANK A1,1 CHECK IF ALREADY OPENED «, t00=0x002a, t01=0x00a8}
0x4266…4286 Head {h00=0x001c, h01=0x0050, text=» RF(Z) OP:060 NOT OPENED«, t00=0x002a, t01=0x00d2}
0x4286…4290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f2}
0x4290…42b0 Head {h00=0x001c, h01=0x0050, text=»* FILE IS ALREADY OPENED«, t00=0x002a, t01=0x00fc}
0x42b0…42e0 Head {h00=0x002c, h01=0x0050, text=» CC A1,FPB:SH,A10 SHAREABILITY PARAMETER«, t00=0x002a, t01=0x011c}
0x42e0…4310 Head {h00=0x002c, h01=0x0050, text=» RF(E) OP:040 NOT EA WHEN ALREADY OPENED«, t00=0x002a, t01=0x014c}
0x4310…4342 Head {h00=0x002e, h01=0x0050, text=» LD A2,FWTTAB,A6 TTAB ADDRESS FOR EA TASK «, t00=0x002a, t01=0x017c}
0x4342…4368 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) OP:040 FILE PROTECTED «, t00=0x002b, t01=0x001e}
0x4368…4392 Head {h00=0x0026, h01=0x0050, text=» LC A1,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x002b, t01=0x0044}
0x4392…43a4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x002b, t01=0x006e}
0x43a4…43c8 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/3F NUMBER OF USERS «, t00=0x002b, t01=0x0080}
0x43c8…43dc Head {h00=0x0010, h01=0x0050, text=» SUK A1,/3F «, t00=0x002b, t01=0x00a4}
0x43dc…43f4 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) OP:250 «, t00=0x002b, t01=0x00b8}
0x43f4…43fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d0}
0x43fe…4416 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x002b, t01=0x00da}
0x4416…4420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f2}
0x4420…4436 Head {h00=0x0012, h01=0x0050, text=»* ERROR EXITS «, t00=0x002b, t01=0x00fc}
0x4436…4440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0112}
0x4440…4474 Head {h00=0x0030, h01=0x0050, text=» LDKL A4,/0210 RETURN CODE (TOO MANY USERS) «, t00=0x002b, t01=0x011c}
0x4474…4486 Head {h00=0x000e, h01=0x0050, text=» RF OP:RTN«, t00=0x002b, t01=0x0150}
0x4486…4490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0162}
0x4490…44ba Head {h00=0x0026, h01=0x0050, text=»OP:030 EQU * NO FREE FWT AVAILABLE«, t00=0x002b, t01=0x016c}
0x44ba…44dc Head {h00=0x001e, h01=0x0050, text=» LDKL A4,/8400 RETURN CODE«, t00=0x002c, t01=0x0008}
0x44dc…44ee Head {h00=0x000e, h01=0x0050, text=» RF OP:RTN«, t00=0x002c, t01=0x002a}
0x44ee…44f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x003c}
0x44f8…451c Head {h00=0x0020, h01=0x0050, text=»OP:040 EQU * FILE PROTECTED «, t00=0x002c, t01=0x0046}
0x451c…453c Head {h00=0x001c, h01=0x0050, text=» LDK A4,/40 RETURN CODE «, t00=0x002c, t01=0x006a}
0x453c…454e Head {h00=0x000e, h01=0x0050, text=» RF OP:RTN«, t00=0x002c, t01=0x008a}
0x454e…4558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x009c}
0x4558…4582 Head {h00=0x0026, h01=0x0050, text=»OP:050 EQU * VOLUME/FILE NOT FOUND«, t00=0x002c, t01=0x00a6}
0x4582…45b6 Head {h00=0x0030, h01=0x0050, text=» CF A14,RELBLK RELEASE EWT STRUCTURE BLOCKS «, t00=0x002c, t01=0x00d0}
0x45b6…45c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0104}
0x45c0…45d4 Head {h00=0x0010, h01=0x0050, text=»OP:055 EQU *«, t00=0x002c, t01=0x010e}
0x45d4…45f6 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,/8800 RETURN CODE«, t00=0x002c, t01=0x0122}
0x45f6…4600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0144}
0x4600…4614 Head {h00=0x0010, h01=0x0050, text=»OP:RTN EQU *«, t00=0x002c, t01=0x014e}
0x4614…463a Head {h00=0x0022, h01=0x0050, text=» ABL FM:RTC FMOPEN ERROR EXIT «, t00=0x002c, t01=0x0162}
0x463a…4644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0188}
0x4644…465c (45, 0, 400) Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x002d, t01=0x0004}
0x465c…4666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001c}
0x4666…468a Head {h00=0x0020, h01=0x0050, text=»* FILE IS NOT OPENED BEFORE:«, t00=0x002d, t01=0x0026}
0x468a…46be Head {h00=0x0030, h01=0x0050, text=»* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S«, t00=0x002d, t01=0x004a}
0x46be…46c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007e}
0x46c8…46dc Head {h00=0x0010, h01=0x0050, text=»OP:060 EQU *«, t00=0x002d, t01=0x0088}
0x46dc…46e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x009c}
0x46e6…470e Head {h00=0x0024, h01=0x0050, text=»* MOVE FILE NAME FROM FPB TO FWT«, t00=0x002d, t01=0x00a6}
0x470e…4718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ce}
0x4718…4738 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A10 FPB ADDRESS «, t00=0x002d, t01=0x00d8}
0x4738…474e Head {h00=0x0012, h01=0x0050, text=» ADK A1,FPB:FN«, t00=0x002d, t01=0x00f8}
0x474e…476c Head {h00=0x001a, h01=0x0050, text=» LDR A3,A6 FWT ADDRESS«, t00=0x002d, t01=0x010e}
0x476c…4782 Head {h00=0x0012, h01=0x0050, text=» ADK A3,FWTNAM«, t00=0x002d, t01=0x012c}
0x4782…47ac Head {h00=0x0026, h01=0x0050, text=» LDK A2,8 NO OF CHARACTERS TO MOVE«, t00=0x002d, t01=0x0142}
0x47ac…47d0 Head {h00=0x0020, h01=0x0050, text=» CF A14,MOVE MOVE FILE NAME «, t00=0x002d, t01=0x016c}
0x47d0…47f6 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A12 RESTORE FILE CODE «, t00=0x002d, t01=0x0190}
0x47f6…4808 Head {h00=0x000e, h01=0x0050, text=» RF OP:075«, t00=0x002e, t01=0x0026}
0x4808…4812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0038}
0x4812…482c Head {h00=0x0016, h01=0x0050, text=»* FIND ONE VOLUME «, t00=0x002e, t01=0x0042}
0x482c…4836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x005c}
0x4836…484a Head {h00=0x0010, h01=0x0050, text=»OP:070 EQU *«, t00=0x002e, t01=0x0066}
0x484a…487e Head {h00=0x0030, h01=0x0050, text=» ST A7,VOLUME SAVE VOLUME NAME DISPLACEMENT «, t00=0x002e, t01=0x007a}
0x487e…48a0 Head {h00=0x001e, h01=0x0050, text=» CF A14,FNDVOL FIND VOLUME«, t00=0x002e, t01=0x00ae}
0x48a0…48b2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x002e, t01=0x00d0}
0x48b2…48d8 Head {h00=0x0022, h01=0x0050, text=» RB(Z) OP:050 VOLUME NOT FOUND«, t00=0x002e, t01=0x00e2}
0x48d8…48e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0108}
0x48e2…48fa Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x002e, t01=0x0112}
0x48fa…4904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012a}
0x4904…4922 Head {h00=0x001a, h01=0x0050, text=»* FIND ONE FILE EXTENT«, t00=0x002e, t01=0x0134}
0x4922…492c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0152}
0x492c…4940 Head {h00=0x0010, h01=0x0050, text=»OP:075 EQU *«, t00=0x002e, t01=0x015c}
0x4940…4966 Head {h00=0x0022, h01=0x0050, text=» CF A14,FNDVTC FIND VTOC ENTRY«, t00=0x002e, t01=0x0170}
0x4966…499a Head {h00=0x0030, h01=0x0050, text=» LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER «, t00=0x002f, t01=0x0008}
0x499a…49c4 Head {h00=0x0026, h01=0x0050, text=» RB(Z) OP:050 NO FILE EXTENT FOUND«, t00=0x002f, t01=0x003c}
0x49c4…49ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0066}
0x49ce…49e2 Head {h00=0x0010, h01=0x0050, text=»OP:080 EQU *«, t00=0x002f, t01=0x0070}
0x49e2…4a06 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 SAVE FWT ADDRESS «, t00=0x002f, t01=0x0084}
0x4a06…4a28 Head {h00=0x001e, h01=0x0050, text=» LDR* A2,A8 DISC FILE CODE«, t00=0x002f, t01=0x00a8}
0x4a28…4a34 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002f, t01=0x00ca}
0x4a34…4a66 Head {h00=0x002e, h01=0x0050, text=» CF A15,FNDDWD DISC DWT ADDRESS AND INDEX «, t00=0x002f, t01=0x00d6}
0x4a66…4a72 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002f, t01=0x0108}
0x4a72…4a92 Head {h00=0x001c, h01=0x0050, text=» ADR A2,A2 DOUBLE INDEX «, t00=0x002f, t01=0x0114}
0x4a92…4ab4 Head {h00=0x001e, h01=0x0050, text=» ADR A2,A6 ADD DWT ADDRESS«, t00=0x002f, t01=0x0134}
0x4ab4…4ac6 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002f, t01=0x0156}
0x4ac6…4af0 Head {h00=0x0026, h01=0x0050, text=» SC A3,DWTNVL+1,A2 CLEAR NVL BITS «, t00=0x002f, t01=0x0168}
0x4af0…4b16 (48, 0, 398) Head {h00=0x0022, h01=0x0050, text=» LDR A6,A1 RESTORE FWT ADDRESS«, t00=0x0030, t01=0x0004}
0x4b16…4b42 Head {h00=0x0028, h01=0x0050, text=» LD A3,VTC:EN,A13 FILE EXTENT NUMBER«, t00=0x0030, t01=0x002a}
0x4b42…4b6e Head {h00=0x0028, h01=0x0050, text=» LD A2,VTC:FO,A13 FILE ORGANIZATION «, t00=0x0030, t01=0x0056}
0x4b6e…4b82 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0030, t01=0x0082}
0x4b82…4b96 Head {h00=0x0010, h01=0x0050, text=» SUK A2,'L' «, t00=0x0030, t01=0x0096}
0x4b96…4bb2 Head {h00=0x0018, h01=0x0050, text=» RF(Z) OP:085 L-FILE«, t00=0x0030, t01=0x00aa}
0x4bb2…4be0 Head {h00=0x002a, h01=0x0050, text=» LD A2,VTC:FS,A13 FILE SECTION NUMBER «, t00=0x0030, t01=0x00c6}
0x4be0…4bf2 Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x0030, t01=0x00f4}
0x4bf2…4c28 Head {h00=0x0032, h01=0x0050, text=» ECR A3,A3 FILE EXTENT NUMBER NOW IN LEFT BYTE«, t00=0x0030, t01=0x0106}
0x4c28…4c3a Head {h00=0x000e, h01=0x0050, text=» ORR A2,A3«, t00=0x0030, t01=0x013c}
0x4c3a…4c4c Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0030, t01=0x014e}
0x4c4c…4c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0160}
0x4c56…4c6e Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0030, t01=0x016a}
0x4c6e…4c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0182}
0x4c78…4c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x018c}
0x4c82…4c96 Head {h00=0x0010, h01=0x0050, text=»OP:085 EQU *«, t00=0x0031, t01=0x0008}
0x4c96…4cc4 Head {h00=0x002a, h01=0x0050, text=» LC A2,VTC:EL+1,A13 FILE EXTENT LENGTH«, t00=0x0031, t01=0x001c}
0x4cc4…4ce0 Head {h00=0x0018, h01=0x0050, text=» LD A1,VTC:EL+2,A13 «, t00=0x0031, t01=0x004a}
0x4ce0…4cf8 Head {h00=0x0014, h01=0x0050, text=» ADK A3,0 SET CR«, t00=0x0031, t01=0x0066}
0x4cf8…4d20 Head {h00=0x0024, h01=0x0050, text=» RF(Z) OP:090 FIRST FILE EXTENT «, t00=0x0031, t01=0x007e}
0x4d20…4d2c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0031, t01=0x00a6}
0x4d2c…4d4e Head {h00=0x001e, h01=0x0050, text=» CF A15,GETBLK EWT BLOCK 1«, t00=0x0031, t01=0x00b2}
0x4d4e…4d60 Head {h00=0x000e, h01=0x0050, text=» RF OP:100«, t00=0x0031, t01=0x00d4}
0x4d60…4d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e6}
0x4d6a…4d7e Head {h00=0x0010, h01=0x0050, text=»OP:090 EQU *«, t00=0x0031, t01=0x00f0}
0x4d7e…4dc0 Head {h00=0x003e, h01=0x0050, text=» ST A2,FWTEXL-2,A6 STORE FILE EXTENT LENGTH, FIRST EXTENT «, t00=0x0031, t01=0x0104}
0x4dc0…4dd8 Head {h00=0x0014, h01=0x0050, text=» ST A1,FWTEXL,A6«, t00=0x0031, t01=0x0146}
0x4dd8…4de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015e}
0x4de2…4dfa Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0031, t01=0x0168}
0x4dfa…4e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0180}
0x4e04…4e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x018a}
0x4e0e…4e22 (50, 0, 400) Head {h00=0x0010, h01=0x0050, text=»OP:100 EQU *«, t00=0x0032, t01=0x0004}
0x4e22…4e46 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A8 VOLUME FILE CODE«, t00=0x0032, t01=0x0018}
0x4e46…4e74 Head {h00=0x002a, h01=0x0050, text=» ECR A2,A2 FILE CODE NOW IN LEFT BYTE «, t00=0x0032, t01=0x003c}
0x4e74…4ea0 Head {h00=0x0028, h01=0x0050, text=» LC A2,VTC:EB+1,A13 FILE EXTENT BASE«, t00=0x0032, t01=0x006a}
0x4ea0…4ebc Head {h00=0x0018, h01=0x0050, text=» LD A1,VTC:EB+2,A13 «, t00=0x0032, t01=0x0096}
0x4ebc…4ed4 Head {h00=0x0014, h01=0x0050, text=» ADK A3,0 SET CR«, t00=0x0032, t01=0x00b2}
0x4ed4…4f00 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) OP:120 NOT FIRST FILE EXTENT«, t00=0x0032, t01=0x00ca}
0x4f00…4f40 Head {h00=0x003c, h01=0x0050, text=» ST A2,FWTEXB-2,A6 STORE FILE EXTENT BASE, FIRST EXTENT «, t00=0x0032, t01=0x00f6}
0x4f40…4f58 Head {h00=0x0014, h01=0x0050, text=» ST A1,FWTEXB,A6«, t00=0x0032, t01=0x0136}
0x4f58…4f98 Head {h00=0x003c, h01=0x0050, text=» ST A11,FWTVTC,A6 STORE VTOC SECTOR NUMBER, FIRST EXTENT«, t00=0x0032, t01=0x014e}
0x4f98…4fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x018e}
0x4fa2…4fd0 Head {h00=0x002a, h01=0x0050, text=»* FIND REMAINING EXTENTS FOR THIS FILE«, t00=0x0033, t01=0x0008}
0x4fd0…4fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0036}
0x4fda…4fee Head {h00=0x0010, h01=0x0050, text=»OP:110 EQU *«, t00=0x0033, t01=0x0040}
0x4fee…501a Head {h00=0x0028, h01=0x0050, text=» CF A14,FVTC30 FIND NEXT VTOC ENTRY «, t00=0x0033, t01=0x0054}
0x501a…504e Head {h00=0x0030, h01=0x0050, text=» LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER «, t00=0x0033, t01=0x0080}
0x504e…5088 Head {h00=0x0036, h01=0x0050, text=» RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME «, t00=0x0033, t01=0x00b4}
0x5088…509a Head {h00=0x000e, h01=0x0050, text=» RB OP:080«, t00=0x0033, t01=0x00ee}
0x509a…50a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0100}
0x50a4…50bc Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0033, t01=0x010a}
0x50bc…50c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0122}
0x50c6…50f2 Head {h00=0x0028, h01=0x0050, text=»* INSERT NEW EWT BLOCKS IN EWT CHAIN«, t00=0x0033, t01=0x012c}
0x50f2…50fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0158}
0x50fc…5110 Head {h00=0x0010, h01=0x0050, text=»OP:120 EQU *«, t00=0x0033, t01=0x0162}
0x5110…5136 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A4 ADDRESS EWT BLOCK 1«, t00=0x0033, t01=0x0176}
0x5136…5158 Head {h00=0x001e, h01=0x0050, text=» CF A15,GETBLK EWT BLOCK 2«, t00=0x0034, t01=0x000c}
0x5158…5164 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0034, t01=0x002e}
0x5164…5188 Head {h00=0x0020, h01=0x0050, text=» STR A4,A3 LINK EWT2 TO EWT1«, t00=0x0034, t01=0x003a}
0x5188…51a6 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FWT ADDRESS«, t00=0x0034, t01=0x005e}
0x51a6…51bc Head {h00=0x0012, h01=0x0050, text=» ADK A1,FWTEW2«, t00=0x0034, t01=0x007c}
0x51bc…51c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0092}
0x51c6…51da Head {h00=0x0010, h01=0x0050, text=»OP:130 EQU *«, t00=0x0034, t01=0x009c}
0x51da…5208 Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE«, t00=0x0034, t01=0x00b0}
0x5208…521e Head {h00=0x0012, h01=0x0050, text=» RF(NZ) OP:150«, t00=0x0034, t01=0x00de}
0x521e…5228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00f4}
0x5228…523c Head {h00=0x0010, h01=0x0050, text=»OP:140 EQU *«, t00=0x0034, t01=0x00fe}
0x523c…5264 Head {h00=0x0024, h01=0x0050, text=» STR A2,A4 INSERT NEW EWT BLOCK «, t00=0x0034, t01=0x0112}
0x5264…5276 Head {h00=0x000e, h01=0x0050, text=» STR A3,A1«, t00=0x0034, t01=0x013a}
0x5276…5292 Head {h00=0x0018, h01=0x0050, text=» RB OP:110 CONTINUE «, t00=0x0034, t01=0x014c}
0x5292…529c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0168}
0x529c…52b0 Head {h00=0x0010, h01=0x0050, text=»OP:150 EQU *«, t00=0x0034, t01=0x0172}
0x52b0…52e8 Head {h00=0x0034, h01=0x0050, text=» LC A11,EWTSEX,A2 FILE SECTION AND EXTENT NUMBER«, t00=0x0034, t01=0x0186}
0x52e8…5302 Head {h00=0x0016, h01=0x0050, text=» CC A11,EWTSEX,A3 «, t00=0x0035, t01=0x002e}
0x5302…532e Head {h00=0x0028, h01=0x0050, text=» RB(G) OP:140 INSERT NEW EWT BLOCKS «, t00=0x0035, t01=0x0048}
0x532e…535a Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK«, t00=0x0035, t01=0x0074}
0x535a…536c Head {h00=0x000e, h01=0x0050, text=» RB OP:130«, t00=0x0035, t01=0x00a0}
0x536c…5376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b2}
0x5376…538e Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0035, t01=0x00bc}
0x538e…5398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d4}
0x5398…53a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00de}
0x53a2…53b6 Head {h00=0x0010, h01=0x0050, text=»OP:160 EQU *«, t00=0x0035, t01=0x00e8}
0x53b6…53ec Head {h00=0x0032, h01=0x0050, text=» LD A7,VOLUME CURRENT VOLUME NAME DISPLACEMENT«, t00=0x0035, t01=0x00fc}
0x53ec…5402 Head {h00=0x0012, h01=0x0050, text=» CWK A7,FPB:V4«, t00=0x0035, t01=0x0132}
0x5402…542c Head {h00=0x0026, h01=0x0050, text=» RF(E) OP:170 ALL VOLUMES CHECKED «, t00=0x0035, t01=0x0148}
0x542c…544a Head {h00=0x001a, h01=0x0050, text=» ADK A7,FPB:V2-FPB:V1 «, t00=0x0035, t01=0x0172}
0x544a…546a Head {h00=0x001c, h01=0x0050, text=» LDR A1,A10 FPB ADDRESS «, t00=0x0035, t01=0x0190}
0x546a…5492 Head {h00=0x0024, h01=0x0050, text=» ADR A1,A7 POINT TO VOLUME NAME «, t00=0x0036, t01=0x0020}
0x5492…54c6 Head {h00=0x0030, h01=0x0050, text=» LDR* A1,A1 CHECK IF MORE VOLUMES SPECIFIED «, t00=0x0036, t01=0x0048}
0x54c6…54ec Head {h00=0x0022, h01=0x0050, text=» RF(Z) OP:170 NO MORE VOLUMES «, t00=0x0036, t01=0x007c}
0x54ec…551c Head {h00=0x002c, h01=0x0050, text=» SUKL A1,/2020 SPACES IF NO MORE VOLUMES«, t00=0x0036, t01=0x00a2}
0x551c…5544 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) OP:070 FIND NEXT VOLUME «, t00=0x0036, t01=0x00d2}
0x5544…554e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00fa}
0x554e…5562 Head {h00=0x0010, h01=0x0050, text=»OP:170 EQU *«, t00=0x0036, t01=0x0104}
0x5562…556c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0118}
0x556c…5588 Head {h00=0x0018, h01=0x0050, text=»* ALL VOLUMES FOUND.«, t00=0x0036, t01=0x0122}
0x5588…55b4 Head {h00=0x0028, h01=0x0050, text=»* SCAN EWT STRUCTURE CHAIN AND CHECK«, t00=0x0036, t01=0x013e}
0x55b4…55e0 Head {h00=0x0028, h01=0x0050, text=»* THAT ALL FILE EXTENTS ARE PRESENT.«, t00=0x0036, t01=0x016a}
0x55e0…55ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0008}
0x55ea…5624 Head {h00=0x0036, h01=0x0050, text=» LD A1,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT «, t00=0x0037, t01=0x0012}
0x5624…5654 Head {h00=0x002c, h01=0x0050, text=» RB(Z) OP:050 FIRST FILE EXTENT MISSING «, t00=0x0037, t01=0x004c}
0x5654…5672 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FWT ADDRESS«, t00=0x0037, t01=0x007c}
0x5672…5688 Head {h00=0x0012, h01=0x0050, text=» ADK A1,FWTEW1«, t00=0x0037, t01=0x009a}
0x5688…56b8 Head {h00=0x002c, h01=0x0050, text=» LDK A4,0 FILE SECTION AND EXTENT NUMBER«, t00=0x0037, t01=0x00b0}
0x56b8…56c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00e0}
0x56c2…56da Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0037, t01=0x00ea}
0x56da…56e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0102}
0x56e4…56ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x010c}
0x56ee…5702 Head {h00=0x0010, h01=0x0050, text=»OP:180 EQU *«, t00=0x0037, t01=0x0116}
0x5702…572e Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A1 ADDRESS TO 2ND EWT BLOCK«, t00=0x0037, t01=0x012a}
0x572e…5760 Head {h00=0x002e, h01=0x0050, text=» LDR* A1,A1 ADDRESS TO NEXT EWT STRUCTURE «, t00=0x0037, t01=0x0156}
0x5760…5786 Head {h00=0x0022, h01=0x0050, text=» RF(Z) OP:230 END OF EWT CHAIN«, t00=0x0037, t01=0x0188}
0x5786…57be Head {h00=0x0034, h01=0x0050, text=» LC A13,EWTSEX,A1 FILE SECTION AND EXTENT NUMBER«, t00=0x0038, t01=0x001e}
0x57be…57d2 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x0038, t01=0x0056}
0x57d2…57fa Head {h00=0x0024, h01=0x0050, text=» ANK A3,/C0 FILE SECTION NUMBER «, t00=0x0038, t01=0x006a}
0x57fa…580c Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x0038, t01=0x0092}
0x580c…5834 Head {h00=0x0024, h01=0x0050, text=» ANK A7,/C0 FILE SECTION NUMBER «, t00=0x0038, t01=0x00a4}
0x5834…5864 Head {h00=0x002c, h01=0x0050, text=» SUR A7,A3 COMPARE FILE SECTION NUMBERS «, t00=0x0038, t01=0x00cc}
0x5864…5894 Head {h00=0x002c, h01=0x0050, text=» RF(Z) OP:190 FILE SECTION NUMBERS EQUAL«, t00=0x0038, t01=0x00fc}
0x5894…58be Head {h00=0x0026, h01=0x0050, text=» ADK A7,/40 MAXIMUM DIFFERENCE = 1«, t00=0x0038, t01=0x012c}
0x58be…58ea Head {h00=0x0028, h01=0x0050, text=» RF(NZ) OP:200 FILE SECTION MISSING «, t00=0x0038, t01=0x0156}
0x58ea…58fe Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x0038, t01=0x0182}
0x58fe…592e Head {h00=0x002c, h01=0x0050, text=» ANK A3,/3F EXTENT NUMBER SHOULD BE ZERO«, t00=0x0039, t01=0x0008}
0x592e…5940 Head {h00=0x000e, h01=0x0050, text=» RF OP:200«, t00=0x0039, t01=0x0038}
0x5940…594a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x004a}
0x594a…595e Head {h00=0x0010, h01=0x0050, text=»OP:190 EQU *«, t00=0x0039, t01=0x0054}
0x595e…5972 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x0039, t01=0x0068}
0x5972…5998 Head {h00=0x0022, h01=0x0050, text=» ANK A3,/3F FILE EXTENT NUMBER«, t00=0x0039, t01=0x007c}
0x5998…59be Head {h00=0x0022, h01=0x0050, text=» ANK A4,/3F FILE EXTENT NUMBER«, t00=0x0039, t01=0x00a2}
0x59be…59ec Head {h00=0x002a, h01=0x0050, text=» SUR A4,A3 COMPARE FILE EXTENT NUMBER «, t00=0x0039, t01=0x00c8}
0x59ec…5a16 Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 DIFFERENCE SHOULD BE ONE«, t00=0x0039, t01=0x00f6}
0x5a16…5a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0120}
0x5a20…5a34 Head {h00=0x0010, h01=0x0050, text=»OP:200 EQU *«, t00=0x0039, t01=0x012a}
0x5a34…5a60 Head {h00=0x0028, h01=0x0050, text=» ABL(NZ) OP:050 FILE EXTENT MISSING «, t00=0x0039, t01=0x013e}
0x5a60…5a9c Head {h00=0x0038, h01=0x0050, text=» LDR A4,A13 SAVE LAST FILE SECTION AND EXTENT NUMBER«, t00=0x0039, t01=0x016a}
0x5a9c…5aae Head {h00=0x000e, h01=0x0050, text=» RB OP:180«, t00=0x003a, t01=0x0016}
0x5aae…5ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0028}
0x5ab8…5ad0 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x003a, t01=0x0032}
0x5ad0…5ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x004a}
0x5ada…5ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0054}
0x5ae4…5af8 Head {h00=0x0010, h01=0x0050, text=»OP:230 EQU *«, t00=0x003a, t01=0x005e}
0x5af8…5b28 Head {h00=0x002c, h01=0x0050, text=» LC A2,FPB:SH,A10 SHAREABILITY PARAMETER«, t00=0x003a, t01=0x0072}
0x5b28…5b3c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003a, t01=0x00a2}
0x5b3c…5b62 Head {h00=0x0022, h01=0x0050, text=» RF(Z) OP:240 NO EA REQUESTED «, t00=0x003a, t01=0x00b6}
0x5b62…5b92 Head {h00=0x002c, h01=0x0050, text=» ST A5,FWTTAB,A6 SET TTAB ADDRESS IN FWT«, t00=0x003a, t01=0x00dc}
0x5b92…5b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x010c}
0x5b9c…5bb0 Head {h00=0x0010, h01=0x0050, text=»OP:240 EQU *«, t00=0x003a, t01=0x0116}
0x5bb0…5be6 Head {h00=0x0032, h01=0x0050, text=» IMR A6 INDICATE FWT USED (BIT 15 IN 1ST WORD)«, t00=0x003a, t01=0x012a}
0x5be6…5c12 Head {h00=0x0028, h01=0x0050, text=» LDK A2,/40 PREPARE FOR BASIC ORDERS«, t00=0x003a, t01=0x0160}
0x5c12…5c1c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003a, t01=0x018c}
0x5c1c…5c34 Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x003b, t01=0x0008}
0x5c34…5c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0020}
0x5c3e…5c6e Head {h00=0x002c, h01=0x0050, text=»* COMMON EXIT FOR ACCEPTED OPEN REQUESTS«, t00=0x003b, t01=0x002a}
0x5c6e…5c78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x005a}
0x5c78…5c8c Head {h00=0x0010, h01=0x0050, text=»OP:250 EQU *«, t00=0x003b, t01=0x0064}
0x5c8c…5cbe Head {h00=0x002e, h01=0x0050, text=» LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS «, t00=0x003b, t01=0x0078}
0x5cbe…5cd2 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x003b, t01=0x00aa}
0x5cd2…5d08 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION «, t00=0x003b, t01=0x00be}
0x5d08…5d36 Head {h00=0x002a, h01=0x0050, text=» ANK A2,/BF PHYSICAL ORDERS REQUESTED «, t00=0x003b, t01=0x00f4}
0x5d36…5d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0122}
0x5d40…5d54 Head {h00=0x0010, h01=0x0050, text=»OP:260 EQU *«, t00=0x003b, t01=0x012c}
0x5d54…5d80 Head {h00=0x0028, h01=0x0050, text=» ADK A2,1 ADD ONE USER TO THIS FILE «, t00=0x003b, t01=0x0140}
0x5d80…5db2 Head {h00=0x002e, h01=0x0050, text=» SC A2,FWTPAR,A6 SET NEW ACCESS PARAMETERS«, t00=0x003b, t01=0x016c}
0x5db2…5dd6 Head {h00=0x0020, h01=0x0050, text=» LD A4,FWTFNR,A6 FILE NUMBER«, t00=0x003c, t01=0x000e}
0x5dd6…5de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0032}
0x5de0…5df6 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x003c, t01=0x003c}
0x5df6…5e24 Head {h00=0x002a, h01=0x0050, text=» SC A4,ECBFC,A9 SET FILE NUMBER IN ECB«, t00=0x003c, t01=0x0052}
0x5e24…5e30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0080}
0x5e30…5e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x008c}
0x5e3a…5e50 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003c, t01=0x0096}
0x5e50…5e62 Head {h00=0x000e, h01=0x0050, text=» ELR A2,A9«, t00=0x003c, t01=0x00ac}
0x5e62…5e78 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/FF00«, t00=0x003c, t01=0x00be}
0x5e78…5e98 Head {h00=0x001c, h01=0x0050, text=» ANK A4,/FF FILE NUMBER «, t00=0x003c, t01=0x00d4}
0x5e98…5eaa Head {h00=0x000e, h01=0x0050, text=» ORR A2,A4«, t00=0x003c, t01=0x00f4}
0x5eaa…5ed4 Head {h00=0x0026, h01=0x0050, text=» ESR A2,A9 SET FILE NUMBER IN ECB «, t00=0x003c, t01=0x0106}
0x5ed4…5ee0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0130}
0x5ee0…5eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x013c}
0x5eea…5f08 Head {h00=0x001a, h01=0x0050, text=» LDK A4,0 RETURN CODE «, t00=0x003c, t01=0x0146}
0x5f08…5f1c Head {h00=0x0010, h01=0x0050, text=» ABL FM:RTC «, t00=0x003c, t01=0x0164}
0x5f1c…5f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0178}
0x5f26…5f3e Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x003c, t01=0x0182}
0x5f3e…5f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x000a}
0x5f48…5f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0014}
0x5f52…5f64 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x001e}
0x5f64…5f76 Head {h00=0x000e, h01=0x0050, text=»* CREATE *«, t00=0x003d, t01=0x0030}
0x5f76…5f88 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x0042}
0x5f88…5f92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0054}
0x5f92…5f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x005e}
0x5f9c…5fbc Head {h00=0x001c, h01=0x0050, text=»CREATE EQU * CREATE FILE«, t00=0x003d, t01=0x0068}
0x5fbc…5fda Head {h00=0x001a, h01=0x0050, text=»* TO BE IMPLEMENTED «, t00=0x003d, t01=0x0088}
0x5fda…5ff2 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x003d, t01=0x00a6}
0x5ff2…5ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00be}
0x5ffc…6006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00c8}
0x6006…6018 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x00d2}
0x6018…602a Head {h00=0x000e, h01=0x0050, text=»* EXTEND *«, t00=0x003d, t01=0x00e4}
0x602a…603c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x00f6}
0x603c…6046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0108}
0x6046…6050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0112}
0x6050…6070 Head {h00=0x001c, h01=0x0050, text=»EXTEND EQU * EXTEND FILE«, t00=0x003d, t01=0x011c}
0x6070…608e Head {h00=0x001a, h01=0x0050, text=»* TO BE IMPLEMENTED «, t00=0x003d, t01=0x013c}
0x608e…60a6 Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x003d, t01=0x015a}
0x60a6…60b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003d, t01=0x0172}
0x60b0…60ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003d, t01=0x017c}
0x60ba…60cc Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x003d, t01=0x0186}
0x60cc…60de Head {h00=0x000e, h01=0x000a, text=»* FMCLOS *«, t00=0x003e, t01=0x0008}
0x60de…60f0 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x003e, t01=0x001a}
0x60f0…60fa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003e, t01=0x002c}
0x60fa…6104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0036}
0x6104…613a Head {h00=0x0032, h01=0x0050, text=»* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: «, t00=0x003e, t01=0x0040}
0x613a…6158 Head {h00=0x001a, h01=0x0050, text=»* CLOSE/DELETE FILE «, t00=0x003e, t01=0x0076}
0x6158…6162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0094}
0x6162…6180 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x003e, t01=0x009e}
0x6180…618a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00bc}
0x618a…61a8 Head {h00=0x001a, h01=0x0050, text=»* A1 = ORDER OPTION «, t00=0x003e, t01=0x00c6}
0x61a8…61d6 Head {h00=0x002a, h01=0x0050, text=»* A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x003e, t01=0x00e4}
0x61d6…61f8 Head {h00=0x001e, h01=0x0050, text=»* A9 = USER ECB ADDRESS «, t00=0x003e, t01=0x0112}
0x61f8…6214 Head {h00=0x0018, h01=0x0050, text=»* A10 = FPB ADDRESS«, t00=0x003e, t01=0x0134}
0x6214…621e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003e, t01=0x0150}
0x621e…6244 Head {h00=0x0022, h01=0x001e, text=»FMCLOS EQU * CLOSE/DELETE FILE«, t00=0x003e, t01=0x015a}
0x6244…6264 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF ORDER OPTION«, t00=0x003e, t01=0x0180}
0x6264…6290 Head {h00=0x0028, h01=0x0050, text=» ABL(NZ) FM:RQE ILLEGAL ORDER OPTION«, t00=0x003f, t01=0x0010}
0x6290…629a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x003c}
0x629a…62b2 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x003f, t01=0x0046}
0x62b2…62bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x005e}
0x62bc…62c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0068}
0x62c6…62d8 Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x003f, t01=0x0072}
0x62d8…62ea Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x003f, t01=0x0084}
0x62ea…62fc Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x003f, t01=0x0096}
0x62fc…6306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00a8}
0x6306…6310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00b2}
0x6310…632e Head {h00=0x001a, h01=0x0050, text=»CLOSE EQU * CLOSE FILE«, t00=0x003f, t01=0x00bc}
0x632e…6364 Head {h00=0x0032, h01=0x0050, text=» CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)«, t00=0x003f, t01=0x00da}
0x6364…6388 Head {h00=0x0020, h01=0x0050, text=» ADK A1,0 CHECK RETURN CODE «, t00=0x003f, t01=0x0110}
0x6388…63aa Head {h00=0x001e, h01=0x0050, text=» RF(Z) CL:005 OK, CONTINUE«, t00=0x003f, t01=0x0134}
0x63aa…63d8 Head {h00=0x002a, h01=0x0050, text=» ST A4,ECBRC,A8 SET RETURN CODE IN ECB«, t00=0x003f, t01=0x0156}
0x63d8…63f8 Head {h00=0x001c, h01=0x0050, text=» SUK A1,/20 CHECK IF NVL«, t00=0x003f, t01=0x0184}
0x63f8…6424 Head {h00=0x0028, h01=0x0050, text=» RF(Z) CL:010 NVL, DON'T WRITE VTOC «, t00=0x0040, t01=0x0014}
0x6424…643e Head {h00=0x0016, h01=0x0050, text=» ABL FM:RTC ERROR «, t00=0x0040, t01=0x0040}
0x643e…6448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x005a}
0x6448…645c Head {h00=0x0010, h01=0x0050, text=»CL:005 EQU *«, t00=0x0040, t01=0x0064}
0x645c…6488 Head {h00=0x0028, h01=0x0050, text=» LD A1,FPB:FR,A10 FILE RECORD NUMBER«, t00=0x0040, t01=0x0078}
0x6488…64a4 Head {h00=0x0018, h01=0x0050, text=» LD A3,FPB:FR+2,A10 «, t00=0x0040, t01=0x00a4}
0x64a4…64d4 Head {h00=0x002c, h01=0x0050, text=» ST A1,VTC:LR,A13 SET LRN IN VTOC RECORD«, t00=0x0040, t01=0x00c0}
0x64d4…64f0 Head {h00=0x0018, h01=0x0050, text=» ST A3,VTC:LR+2,A13 «, t00=0x0040, t01=0x00f0}
0x64f0…651c Head {h00=0x0028, h01=0x0050, text=» ORR A1,A3 CHECK FILE RECORD NUMBER «, t00=0x0040, t01=0x010c}
0x651c…654c Head {h00=0x002c, h01=0x0050, text=» RF(Z) CL:010 FRN ZERO, DON'T WRITE VTOC«, t00=0x0040, t01=0x0138}
0x654c…6576 Head {h00=0x0026, h01=0x0050, text=» LD A1,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x0040, t01=0x0168}
0x6576…6594 (65, 0, 398) Head {h00=0x001a, h01=0x0050, text=» RF(NN) CL:007 NOT NVL«, t00=0x0041, t01=0x0004}
0x6594…65be Head {h00=0x0026, h01=0x0050, text=» LDK A1,/20 SET NVL IN RETURN CODE«, t00=0x0041, t01=0x0022}
0x65be…65d6 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRC,A8 «, t00=0x0041, t01=0x004c}
0x65d6…65e8 Head {h00=0x000e, h01=0x0050, text=» RF CL:010«, t00=0x0041, t01=0x0064}
0x65e8…65f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0076}
0x65f2…6606 Head {h00=0x0010, h01=0x0050, text=»CL:007 EQU *«, t00=0x0041, t01=0x0080}
0x6606…6636 Head {h00=0x002c, h01=0x0050, text=» CF A14,FM:PWR WRITE VTOC RECORD TO DISC«, t00=0x0041, t01=0x0094}
0x6636…6640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00c4}
0x6640…6658 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0041, t01=0x00ce}
0x6658…6662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00e6}
0x6662…666c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00f0}
0x666c…6680 Head {h00=0x0010, h01=0x0050, text=»CL:010 EQU *«, t00=0x0041, t01=0x00fa}
0x6680…66aa Head {h00=0x0026, h01=0x0050, text=» LC A1,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x0041, t01=0x010e}
0x66aa…66bc Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0041, t01=0x0138}
0x66bc…66e4 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/C0 SKIP NUMBER OF USERS«, t00=0x0041, t01=0x014a}
0x66e4…6708 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/3F NUMBER OF USERS «, t00=0x0041, t01=0x0172}
0x6708…6736 Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT NO OF USERS BY ONE«, t00=0x0042, t01=0x0008}
0x6736…676c Head {h00=0x0032, h01=0x0050, text=» SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS«, t00=0x0042, t01=0x0036}
0x676c…67a4 Head {h00=0x0034, h01=0x0050, text=» RF(P) CL:020 DON'T RELEASE FWT IF ANY USER LEFT«, t00=0x0042, t01=0x006c}
0x67a4…67ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00a4}
0x67ae…67c6 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0042, t01=0x00ae}
0x67c6…67d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00c6}
0x67d0…67f4 Head {h00=0x0020, h01=0x0050, text=»* RELEASE FWT AND EWT BLOCKS«, t00=0x0042, t01=0x00d0}
0x67f4…67fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00f4}
0x67fe…6810 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0042, t01=0x00fe}
0x6810…683a Head {h00=0x0026, h01=0x0050, text=» XRRS A2,A6 RESET USED BIT IN FWT «, t00=0x0042, t01=0x0110}
0x683a…686e Head {h00=0x0030, h01=0x0050, text=» CF A14,RELBLK RELEASE EWT STRUCTURE BLOCKS «, t00=0x0042, t01=0x013a}
0x686e…6880 Head {h00=0x000e, h01=0x0050, text=» RF CL:030«, t00=0x0042, t01=0x016e}
0x6880…688a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0180}
0x688a…689e Head {h00=0x0010, h01=0x0050, text=»CL:020 EQU *«, t00=0x0042, t01=0x018a}
0x689e…68d0 Head {h00=0x002e, h01=0x0050, text=» ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS «, t00=0x0043, t01=0x000e}
0x68d0…68e8 Head {h00=0x0014, h01=0x0050, text=» SC A1,FWTPAR,A6«, t00=0x0043, t01=0x0040}
0x68e8…68f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0058}
0x68f2…6906 Head {h00=0x0010, h01=0x0050, text=»CL:030 EQU *«, t00=0x0043, t01=0x0062}
0x6906…692a Head {h00=0x0020, h01=0x0050, text=» LD A4,ECBRC,A8 RETURN CODE «, t00=0x0043, t01=0x0076}
0x692a…6944 Head {h00=0x0016, h01=0x0050, text=» RF FMEXIT RETURN «, t00=0x0043, t01=0x009a}
0x6944…694e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0043, t01=0x00b4}
0x694e…6978 Head {h00=0x0026, h01=0x0050, text=»CL:040 EQU * ENTRY USED BY FM:LKM «, t00=0x0043, t01=0x00be}
0x6978…69a0 Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 ADJUST STACK POINTER«, t00=0x0043, t01=0x00e8}
0x69a0…69b2 Head {h00=0x000e, h01=0x0050, text=» RB CL:010«, t00=0x0043, t01=0x0110}
0x69b2…69bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0122}
0x69bc…69d4 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0043, t01=0x012c}
0x69d4…69de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0144}
0x69de…69e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x014e}
0x69e8…69fa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x0158}
0x69fa…6a0c Head {h00=0x000e, h01=0x0050, text=»* DELETE *«, t00=0x0043, t01=0x016a}
0x6a0c…6a1e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x017c}
0x6a1e…6a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x018e}
0x6a28…6a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0008}
0x6a32…6a52 Head {h00=0x001c, h01=0x0050, text=»DELETE EQU * DELETE FILE«, t00=0x0044, t01=0x0012}
0x6a52…6a70 Head {h00=0x001a, h01=0x0050, text=»* TO BE IMPLEMENTED «, t00=0x0044, t01=0x0032}
0x6a70…6a88 Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x0044, t01=0x0050}
0x6a88…6a92 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0044, t01=0x0068}
0x6a92…6a9c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0044, t01=0x0072}
0x6a9c…6aae Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0044, t01=0x007c}
0x6aae…6ac0 Head {h00=0x000e, h01=0x000a, text=»* FMRDFP *«, t00=0x0044, t01=0x008e}
0x6ac0…6ad2 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x0044, t01=0x00a0}
0x6ad2…6adc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0044, t01=0x00b2}
0x6adc…6ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00bc}
0x6ae6…6b1c Head {h00=0x0032, h01=0x0050, text=»* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: «, t00=0x0044, t01=0x00c6}
0x6b1c…6b3c Head {h00=0x001c, h01=0x0050, text=»* READ FILE PARAMETERS«, t00=0x0044, t01=0x00fc}
0x6b3c…6b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x011c}
0x6b46…6b64 Head {h00=0x001a, h01=0x0050, text=»* ENTRY PARAMETERS: «, t00=0x0044, t01=0x0126}
0x6b64…6b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0144}
0x6b6e…6b8c Head {h00=0x001a, h01=0x0050, text=»* A1 = ORDER OPTION «, t00=0x0044, t01=0x014e}
0x6b8c…6bba Head {h00=0x002a, h01=0x0050, text=»* A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0044, t01=0x016c}
0x6bba…6bdc Head {h00=0x001e, h01=0x0050, text=»* A9 = USER ECB ADDRESS «, t00=0x0045, t01=0x000a}
0x6bdc…6bf8 Head {h00=0x0018, h01=0x0050, text=»* A10 = FPB ADDRESS«, t00=0x0045, t01=0x002c}
0x6bf8…6c02 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0045, t01=0x0048}
0x6c02…6c2c Head {h00=0x0026, h01=0x0021, text=»FMRDFP EQU * READ FILE PARAMETERS «, t00=0x0045, t01=0x0052}
0x6c2c…6c4c Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF ORDER OPTION«, t00=0x0045, t01=0x007c}
0x6c4c…6c78 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FM:RQE ILLEGAL ORDER OPTION «, t00=0x0045, t01=0x009c}
0x6c78…6cae Head {h00=0x0032, h01=0x0050, text=» CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)«, t00=0x0045, t01=0x00c8}
0x6cae…6cd2 Head {h00=0x0020, h01=0x0050, text=» ADK A1,0 CHECK RETURN CODE «, t00=0x0045, t01=0x00fe}
0x6cd2…6cee Head {h00=0x0018, h01=0x0050, text=» RF(NZ) FM:RTC ERROR«, t00=0x0045, t01=0x0122}
0x6cee…6cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x013e}
0x6cf8…6d10 Head {h00=0x0014, h01=0x0050, text=»* CLEAR FPB AREA«, t00=0x0045, t01=0x0148}
0x6d10…6d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0160}
0x6d1a…6d3a Head {h00=0x001c, h01=0x0050, text=» LDR A1,A10 FPB ADDRESS «, t00=0x0045, t01=0x016a}
0x6d3a…6d62 Head {h00=0x0024, h01=0x0050, text=» LDK A2,FPBLEN FPB AREA LENGTH «, t00=0x0045, t01=0x018a}
0x6d62…6d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0022}
0x6d6c…6d80 Head {h00=0x0010, h01=0x0050, text=»FMR:00 EQU *«, t00=0x0046, t01=0x002c}
0x6d80…6d90 Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x0046, t01=0x0040}
0x6d90…6da2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0046, t01=0x0050}
0x6da2…6db4 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0046, t01=0x0062}
0x6db4…6dca Head {h00=0x0012, h01=0x0050, text=» RB(P) FMR:00 «, t00=0x0046, t01=0x0074}
0x6dca…6dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008a}
0x6dd4…6dec Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0046, t01=0x0094}
0x6dec…6df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ac}
0x6df6…6e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00b6}
0x6e00…6e20 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A10 FPB ADDRESS «, t00=0x0046, t01=0x00c0}
0x6e20…6e46 Head {h00=0x0022, h01=0x0050, text=» ADK A1,FPB:V2 2ND VOLUME NAME«, t00=0x0046, t01=0x00e0}
0x6e46…6e70 Head {h00=0x0026, h01=0x0050, text=» LDK A2,3 LOOP COUNTER, OUTER LOOP«, t00=0x0046, t01=0x0106}
0x6e70…6e8e Head {h00=0x001a, h01=0x0050, text=» LDKL A4,/2020 SPACES «, t00=0x0046, t01=0x0130}
0x6e8e…6e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x014e}
0x6e98…6ebe Head {h00=0x0022, h01=0x0050, text=»FMR:02 EQU * OUTER LOOP ENTRY «, t00=0x0046, t01=0x0158}
0x6ebe…6ee8 Head {h00=0x0026, h01=0x0050, text=» LDK A3,3 LOOP COUNTER, INNER LOOP«, t00=0x0046, t01=0x017e}
0x6ee8…6ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0018}
0x6ef2…6f18 Head {h00=0x0022, h01=0x0050, text=»FMR:04 EQU * INNER LOOP ENTRY «, t00=0x0047, t01=0x0022}
0x6f18…6f46 Head {h00=0x002a, h01=0x0050, text=» STR A4,A1 MOVE SPACES TO VOLUME NAME «, t00=0x0047, t01=0x0048}
0x6f46…6f58 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0047, t01=0x0076}
0x6f58…6f6a Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0047, t01=0x0088}
0x6f6a…6f80 Head {h00=0x0012, h01=0x0050, text=» RB(P) FMR:04 «, t00=0x0047, t01=0x009a}
0x6f80…6fae Head {h00=0x002a, h01=0x0050, text=» ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME«, t00=0x0047, t01=0x00b0}
0x6fae…6fc0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0047, t01=0x00de}
0x6fc0…6fd6 Head {h00=0x0012, h01=0x0050, text=» RB(P) FMR:02 «, t00=0x0047, t01=0x00f0}
0x6fd6…6fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0106}
0x6fe0…6ff8 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0047, t01=0x0110}
0x6ff8…7002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0128}
0x7002…7034 Head {h00=0x002e, h01=0x0050, text=»* MOVE PARAMETERS FROM VTOC AND FWT TO FPB«, t00=0x0047, t01=0x0132}
0x7034…703e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0164}
0x703e…7066 Head {h00=0x0024, h01=0x0050, text=» LD A1,VTC:RL,A13 RECORD LENGTH «, t00=0x0047, t01=0x016e}
0x7066…707a Head {h00=0x0010, h01=0x0050, text=» STR A1,A10 «, t00=0x0048, t01=0x0008}
0x707a…70b6 Head {h00=0x0038, h01=0x0050, text=» LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION«, t00=0x0048, t01=0x001c}
0x70b6…70d0 Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:BF,A10 «, t00=0x0048, t01=0x0058}
0x70d0…70fc Head {h00=0x0028, h01=0x0050, text=» LD A1,VTC:LR,A13 LAST RECORD NUMBER«, t00=0x0048, t01=0x0072}
0x70fc…7116 Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:FR,A10 «, t00=0x0048, t01=0x009e}
0x7116…713e Head {h00=0x0024, h01=0x0050, text=» LD A1,VTC:LR+2,A13 LRN, PART 2 «, t00=0x0048, t01=0x00b8}
0x713e…715a Head {h00=0x0018, h01=0x0050, text=» ST A1,FPB:FR+2,A10 «, t00=0x0048, t01=0x00e0}
0x715a…7192 Head {h00=0x0034, h01=0x0050, text=» LD A1,VTC:MN,A13 MONITOR AND SOP SWITCH NUMBER «, t00=0x0048, t01=0x00fc}
0x7192…71a4 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0048, t01=0x0134}
0x71a4…71d2 Head {h00=0x002a, h01=0x0050, text=» SC A1,FPB:MN,A10 STORE MONITOR NUMBER«, t00=0x0048, t01=0x0146}
0x71d2…7202 Head {h00=0x002c, h01=0x0050, text=» LC A1,VTC:IF,A13 NUMBER OF INDEX FILES «, t00=0x0048, t01=0x0174}
0x7202…721c Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:IF,A10 «, t00=0x0049, t01=0x0014}
0x721c…724c Head {h00=0x002c, h01=0x0050, text=» LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD «, t00=0x0049, t01=0x002e}
0x724c…7266 Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:KA,A10 «, t00=0x0049, t01=0x005e}
0x7266…7278 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0049, t01=0x0078}
0x7278…72a8 Head {h00=0x002c, h01=0x0050, text=» LD A1,FWTTAB,A6 SHAREABILITY PARAMETER «, t00=0x0049, t01=0x008a}
0x72a8…72c4 Head {h00=0x0018, h01=0x0050, text=» RF(Z) FMR:05 NO EA «, t00=0x0049, t01=0x00ba}
0x72c4…72fa Head {h00=0x0032, h01=0x0050, text=» SC A2,FPB:SH,A10 INDICATE OPENED EXCLUSIVELY «, t00=0x0049, t01=0x00d6}
0x72fa…7304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x010c}
0x7304…7318 Head {h00=0x0010, h01=0x0050, text=»FMR:05 EQU *«, t00=0x0049, t01=0x0116}
0x7318…7342 Head {h00=0x0026, h01=0x0050, text=» LD A1,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x0049, t01=0x012a}
0x7342…7354 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0049, t01=0x0154}
0x7354…7388 Head {h00=0x0030, h01=0x0050, text=» RF(NN) FMR:10 PHYSICAL ORDERS FOR THIS FILE«, t00=0x0049, t01=0x0166}
0x7388…73b8 Head {h00=0x002c, h01=0x0050, text=» SC A2,FPB:BO,A10 INDICATE BASIC ORDERS «, t00=0x004a, t01=0x000a}
0x73b8…73c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x003a}
0x73c2…73d6 Head {h00=0x0010, h01=0x0050, text=»FMR:10 EQU *«, t00=0x004a, t01=0x0044}
0x73d6…73e8 Head {h00=0x000e, h01=0x0050, text=» SLC A1,7 «, t00=0x004a, t01=0x0058}
0x73e8…740c Head {h00=0x0020, h01=0x0050, text=» ANK A1,/3F NUMBER OF USERS «, t00=0x004a, t01=0x006a}
0x740c…7426 Head {h00=0x0016, h01=0x0050, text=» SC A1,FPB:US,A10 «, t00=0x004a, t01=0x008e}
0x7426…7430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00a8}
0x7430…7448 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x004a, t01=0x00b2}
0x7448…7452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ca}
0x7452…7484 Head {h00=0x002e, h01=0x0050, text=»* MOVE CREATION DATE AND RETENTION PERIOD «, t00=0x004a, t01=0x00d4}
0x7484…748e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0106}
0x748e…74ae Head {h00=0x001c, h01=0x0050, text=» LDR A1,A13 VTOC ADDRESS«, t00=0x004a, t01=0x0110}
0x74ae…74c4 Head {h00=0x0012, h01=0x0050, text=» ADK A1,VTC:CD«, t00=0x004a, t01=0x0130}
0x74c4…74e4 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 FPB ADDRESS «, t00=0x004a, t01=0x0146}
0x74e4…74fa Head {h00=0x0012, h01=0x0050, text=» ADK A3,FPB:CD«, t00=0x004a, t01=0x0166}
0x74fa…7524 Head {h00=0x0026, h01=0x0050, text=» LDK A2,9 NO OF CHARACTERS TO MOVE«, t00=0x004a, t01=0x017c}
0x7524…7560 Head {h00=0x0038, h01=0x0050, text=» CF A14,MOVE MOVE CREATION DATE AND RETENTION PERIOD«, t00=0x004b, t01=0x0016}
0x7560…756a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0052}
0x756a…7592 Head {h00=0x0024, h01=0x0050, text=»* MOVE FILE NAME FROM FWT TO FPB«, t00=0x004b, t01=0x005c}
0x7592…759c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0084}
0x759c…75ba Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FWT ADDRESS«, t00=0x004b, t01=0x008e}
0x75ba…75d0 Head {h00=0x0012, h01=0x0050, text=» ADK A1,FWTNAM«, t00=0x004b, t01=0x00ac}
0x75d0…7602 Head {h00=0x002e, h01=0x0050, text=» SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME«, t00=0x004b, t01=0x00c2}
0x7602…762c Head {h00=0x0026, h01=0x0050, text=» LDK A2,8 NO OF CHARACTERS TO MOVE«, t00=0x004b, t01=0x00f4}
0x762c…7650 Head {h00=0x0020, h01=0x0050, text=» CF A14,MOVE MOVE FILE NAME «, t00=0x004b, t01=0x011e}
0x7650…7670 Head {h00=0x001c, h01=0x0050, text=» ADK A3,FPB:V1-FPB:FN-8 «, t00=0x004b, t01=0x0142}
0x7670…76a6 Head {h00=0x0032, h01=0x0050, text=» ADK A6,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE «, t00=0x004b, t01=0x0162}
0x76a6…76ba Head {h00=0x0010, h01=0x0050, text=» LDR A11,A6 «, t00=0x004c, t01=0x0008}
0x76ba…76e8 Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK«, t00=0x004c, t01=0x001c}
0x76e8…76f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x004a}
0x76f2…770a Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x004c, t01=0x0054}
0x770a…7714 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x006c}
0x7714…7750 Head {h00=0x0038, h01=0x0050, text=»* READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION «, t00=0x004c, t01=0x0076}
0x7750…775a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00b2}
0x775a…776e Head {h00=0x0010, h01=0x0050, text=»FMR:20 EQU *«, t00=0x004c, t01=0x00bc}
0x776e…7796 Head {h00=0x0024, h01=0x0050, text=» LC A2,EWTVOL,A12 DISC FILE CODE«, t00=0x004c, t01=0x00d0}
0x7796…77b8 Head {h00=0x001e, h01=0x0050, text=» LDR A13,A2 SAVE FILE CODE«, t00=0x004c, t01=0x00f8}
0x77b8…77e8 Head {h00=0x002c, h01=0x0050, text=» CF A14,FNDNAM FIND VOLUME NAME ADDRESS «, t00=0x004c, t01=0x011a}
0x77e8…77f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x014a}
0x77f2…781c Head {h00=0x0026, h01=0x0050, text=»* MOVE VOLUME NAME FROM DWT TO FPB«, t00=0x004c, t01=0x0154}
0x781c…7826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x017e}
0x7826…784c Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 VOLUME NAME ADDRESS«, t00=0x004c, t01=0x0188}
0x784c…7872 Head {h00=0x0022, h01=0x0050, text=» CF A14,MOVE MOVE VOLUME NAME «, t00=0x004d, t01=0x001e}
0x7872…78a0 Head {h00=0x002a, h01=0x0050, text=» LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH«, t00=0x004d, t01=0x0044}
0x78a0…78b4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x004d, t01=0x0072}
0x78b4…78ce Head {h00=0x0016, h01=0x0050, text=» LD A2,EWTEXL,A11 «, t00=0x004d, t01=0x0086}
0x78ce…78d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00a0}
0x78d8…78f0 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x004d, t01=0x00aa}
0x78f0…78fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00c2}
0x78fa…7920 Head {h00=0x0022, h01=0x0050, text=»* COMPUTE FILE SECTION SIZE(S)«, t00=0x004d, t01=0x00cc}
0x7920…792a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00f2}
0x792a…793e Head {h00=0x0010, h01=0x0050, text=»FMR:35 EQU *«, t00=0x004d, t01=0x00fc}
0x793e…7972 Head {h00=0x0030, h01=0x0050, text=» LDR* A11,A12 ADDRESS TO NEXT EWT STRUCTURE «, t00=0x004d, t01=0x0110}
0x7972…7998 Head {h00=0x0022, h01=0x0050, text=» RF(Z) FMR:50 END OF EWT CHAIN«, t00=0x004d, t01=0x0144}
0x7998…79c6 Head {h00=0x002a, h01=0x0050, text=» LD A6,EWTEXL-2,A11 FILE EXTENT LENGTH«, t00=0x004d, t01=0x016a}
0x79c6…79da Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x004e, t01=0x0008}
0x79da…79f4 Head {h00=0x0016, h01=0x0050, text=» LD A7,EWTEXL,A11 «, t00=0x004e, t01=0x001c}
0x79f4…7a22 Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK«, t00=0x004e, t01=0x0036}
0x7a22…7a4c Head {h00=0x0026, h01=0x0050, text=» CC A13,EWTVOL,A12 CHECK FILE CODE«, t00=0x004e, t01=0x0064}
0x7a4c…7a7c Head {h00=0x002c, h01=0x0050, text=» RF(NE) FMR:50 END OF THIS FILE SECTION «, t00=0x004e, t01=0x008e}
0x7a7c…7a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00be}
0x7a86…7a9c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004e, t01=0x00c8}
0x7a9c…7aca Head {h00=0x002a, h01=0x0050, text=» DAR A6 ACKUMULATE FILE SECTION LENGTH«, t00=0x004e, t01=0x00de}
0x7aca…7ad6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x010c}
0x7ad6…7ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0118}
0x7ae0…7af6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x004e, t01=0x0122}
0x7af6…7b28 Head {h00=0x002e, h01=0x0050, text=» ADR A1,A6 ACKUMULATE FILE SECTION LENGTH «, t00=0x004e, t01=0x0138}
0x7b28…7b3a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x004e, t01=0x016a}
0x7b3a…7b58 Head {h00=0x001a, h01=0x0050, text=» RF(O) FMR:45 OVERFLOW«, t00=0x004e, t01=0x017c}
0x7b58…7b6a Head {h00=0x000e, h01=0x0050, text=» RB FMR:35«, t00=0x004f, t01=0x000a}
0x7b6a…7b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x001c}
0x7b74…7b88 Head {h00=0x0010, h01=0x0050, text=»FMR:45 EQU *«, t00=0x004f, t01=0x0026}
0x7b88…7bae Head {h00=0x0022, h01=0x0050, text=» ADK A1,1 OVERFLOW CORRECTION «, t00=0x004f, t01=0x003a}
0x7bae…7bc4 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x004f, t01=0x0060}
0x7bc4…7bd0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0076}
0x7bd0…7bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0082}
0x7bda…7bec Head {h00=0x000e, h01=0x0050, text=» RB FMR:35«, t00=0x004f, t01=0x008c}
0x7bec…7bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x009e}
0x7bf6…7c0a Head {h00=0x0010, h01=0x0050, text=»FMR:50 EQU *«, t00=0x004f, t01=0x00a8}
0x7c0a…7c3c Head {h00=0x002e, h01=0x0050, text=» STR A1,A3 STORE FILE SECTION SIZE IN FPB «, t00=0x004f, t01=0x00bc}
0x7c3c…7c50 Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A3 «, t00=0x004f, t01=0x00ee}
0x7c50…7c84 Head {h00=0x0030, h01=0x0050, text=» ADK A3,FPB:V2-FPB:S1 INCREMENT FPB POINTER «, t00=0x004f, t01=0x0102}
0x7c84…7cb0 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A11 CHECK EWT BLOCK ADDRESS «, t00=0x004f, t01=0x0136}
0x7cb0…7cdc Head {h00=0x0028, h01=0x0050, text=» RB(NZ) FMR:20 NOT END OF EWT CHAIN «, t00=0x004f, t01=0x0162}
0x7cdc…7ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x018e}
0x7ce6…7cfe Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x0050, t01=0x0008}
0x7cfe…7d08 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0050, t01=0x0020}
0x7d08…7d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x002a}
0x7d12…7d24 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0050, t01=0x0034}
0x7d24…7d36 Head {h00=0x000e, h01=0x0050, text=»* FMEXIT *«, t00=0x0050, t01=0x0046}
0x7d36…7d48 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0050, t01=0x0058}
0x7d48…7d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x006a}
0x7d52…7d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0074}
0x7d5c…7d86 Head {h00=0x0026, h01=0x0050, text=»* COMMON EXIT FOR FILE MANAGEMENT «, t00=0x0050, t01=0x007e}
0x7d86…7da8 Head {h00=0x001e, h01=0x0050, text=»* ADMINISTRATION FUNCTIONS«, t00=0x0050, t01=0x00a8}
0x7da8…7db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00ca}
0x7db2…7dc6 Head {h00=0x0010, h01=0x0050, text=»FMEXIT EQU *«, t00=0x0050, t01=0x00d4}
0x7dc6…7ddc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0050, t01=0x00e8}
0x7ddc…7de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00fe}
0x7de6…7e22 Head {h00=0x0038, h01=0x0050, text=»* MOVE SYSTEM FPB (FM:FPB) TO USER AREA (USER FPB)«, t00=0x0050, t01=0x0108}
0x7e22…7e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0144}
0x7e2c…7e56 Head {h00=0x0026, h01=0x0050, text=»* INPUT: A9 = USER ECB ADDRESS «, t00=0x0050, t01=0x014e}
0x7e56…7e7e Head {h00=0x0024, h01=0x0050, text=»* A10 = FM:FPB ADDRESS «, t00=0x0050, t01=0x0178}
0x7e7e…7e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0010}
0x7e88…7eaa Head {h00=0x001e, h01=0x0050, text=» LDR A1,A10 FM:FPB ADDRESS«, t00=0x0051, t01=0x001a}
0x7eaa…7ed2 Head {h00=0x0024, h01=0x0050, text=» EL A2,ECBBA,A9 USER FPB ADDRESS«, t00=0x0051, t01=0x003c}
0x7ed2…7ef4 Head {h00=0x001e, h01=0x0050, text=» LDK A3,FPBLEN FPB LENGTH«, t00=0x0051, t01=0x0064}
0x7ef4…7f1c Head {h00=0x0024, h01=0x0050, text=» MVSU A3 MOVE FM:FPB TO USER FPB«, t00=0x0051, t01=0x0086}
0x7f1c…7f28 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00ae}
0x7f28…7f32 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0051, t01=0x00ba}
0x7f32…7f4a Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0051, t01=0x00c4}
0x7f4a…7f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00dc}
0x7f54…7f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00e6}
0x7f5e…7f70 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x00f0}
0x7f70…7f82 Head {h00=0x000e, h01=0x0050, text=»* FM:RTC *«, t00=0x0051, t01=0x0102}
0x7f82…7f94 Head {h00=0x000e, h01=0x0050, text=»* FM:RQE *«, t00=0x0051, t01=0x0114}
0x7f94…7fa6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x0126}
0x7fa6…7fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0138}
0x7fb0…7fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0142}
0x7fba…7fe2 Head {h00=0x0024, h01=0x0050, text=»* SET RETURN CODE IN USER ECB «, t00=0x0051, t01=0x014c}
0x7fe2…7fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0174}
0x7fec…8010 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A4 = RETURN CODE«, t00=0x0051, t01=0x017e}
0x8010…803e Head {h00=0x002a, h01=0x0050, text=»* A5 = TTAB ADDRESS OF CALLING TASK«, t00=0x0052, t01=0x0012}
0x803e…8060 Head {h00=0x001e, h01=0x0050, text=»* A9 = USER ECB ADDRESS«, t00=0x0052, t01=0x0040}
0x8060…806a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0062}
0x806a…8098 Head {h00=0x002a, h01=0x0050, text=»FM:RTC EQU * GENERAL RETURN CODE EXIT «, t00=0x0052, t01=0x006c}
0x8098…80ae Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0052, t01=0x009a}
0x80ae…80dc Head {h00=0x002a, h01=0x0050, text=» ST A4,ECBRC,A9 SET RETURN CODE IN ECB«, t00=0x0052, t01=0x00b0}
0x80dc…80e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00de}
0x80e8…80f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00ea}
0x80f2…8108 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0052, t01=0x00f4}
0x8108…8136 Head {h00=0x002a, h01=0x0050, text=» ES A4,ECBRC,A9 SET RETURN CODE IN ECB«, t00=0x0052, t01=0x010a}
0x8136…8142 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0138}
0x8142…814c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0144}
0x814c…817a Head {h00=0x002a, h01=0x0050, text=» ABL QMEXIT QUEUE TASK AND EXIT FMTASK«, t00=0x0052, t01=0x014e}
0x817a…8184 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0052, t01=0x017c}
0x8184…81ac Head {h00=0x0024, h01=0x0050, text=»FM:RQE EQU * REQUEST ERROR EXIT «, t00=0x0052, t01=0x0186}
0x81ac…81ce Head {h00=0x001e, h01=0x0050, text=» LDKL A4,/8000 RETURN CODE«, t00=0x0053, t01=0x001e}
0x81ce…81e0 Head {h00=0x000e, h01=0x0050, text=» RB FM:RTC«, t00=0x0053, t01=0x0040}
0x81e0…81ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0053, t01=0x0052}
0x81ea…8202 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0053, t01=0x005c}
0x8202…820c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0074}
0x820c…8216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x007e}
0x8216…8228 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x0088}
0x8228…823a Head {h00=0x000e, h01=0x0050, text=»* FM:PWR *«, t00=0x0053, t01=0x009a}
0x823a…824c Head {h00=0x000e, h01=0x0050, text=»* FMREAD *«, t00=0x0053, t01=0x00ac}
0x824c…825e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x00be}
0x825e…8268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00d0}
0x8268…8272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00da}
0x8272…82a0 Head {h00=0x002a, h01=0x0050, text=»* INPUT: A2 = SECTOR NUMBER, PART 2«, t00=0x0053, t01=0x00e4}
0x82a0…82d6 Head {h00=0x0032, h01=0x0050, text=»* A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0053, t01=0x0112}
0x82d6…8302 Head {h00=0x0028, h01=0x0050, text=»* A8 = FMTASK ECB ADDRESS «, t00=0x0053, t01=0x0148}
0x8302…832c Head {h00=0x0026, h01=0x0050, text=»* A9 = USER ECB ADDRESS «, t00=0x0053, t01=0x0174}
0x832c…8336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x000e}
0x8336…8350 Head {h00=0x0016, h01=0x0050, text=»* OUTPUT: A4 = 0«, t00=0x0054, t01=0x0018}
0x8350…836c Head {h00=0x0018, h01=0x0050, text=»* A7 IS DESTROYED«, t00=0x0054, t01=0x0032}
0x836c…8376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x004e}
0x8376…83a0 Head {h00=0x0026, h01=0x0050, text=»FM:PWR EQU * PHYSICAL WRITE ENTRY «, t00=0x0054, t01=0x0058}
0x83a0…83c2 Head {h00=0x001e, h01=0x0050, text=» LDK A7,/95 PHYSICAL WRITE«, t00=0x0054, t01=0x0082}
0x83c2…83d4 Head {h00=0x000e, h01=0x0050, text=» RF FM:LKM«, t00=0x0054, t01=0x00a4}
0x83d4…83de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00b6}
0x83de…8406 Head {h00=0x0024, h01=0x0050, text=»FMREAD EQU * PHYSICAL READ ENTRY«, t00=0x0054, t01=0x00c0}
0x8406…8428 Head {h00=0x001e, h01=0x0050, text=» LDK A7,/91 PHYSICAL READ «, t00=0x0054, t01=0x00e8}
0x8428…8432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x010a}
0x8432…844a Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0054, t01=0x0114}
0x844a…8454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x012c}
0x8454…845e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0136}
0x845e…848c Head {h00=0x002a, h01=0x0050, text=»FM:LKM EQU * COMMON I/O ROUTINE ENTRY «, t00=0x0054, t01=0x0140}
0x848c…84be Head {h00=0x002e, h01=0x0050, text=» ST A2,ECBCW2,A8 SET SECTOR NUMBER IN ECB «, t00=0x0054, t01=0x016e}
0x84be…84ca Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0055, t01=0x0010}
0x84ca…84da Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0055, t01=0x001c}
0x84da…84fe Head {h00=0x0020, h01=0x0050, text=» LD A4,ECBRC,A8 RETURN CODE «, t00=0x0055, t01=0x002c}
0x84fe…8524 Head {h00=0x0022, h01=0x0050, text=» ANKL A4,/FEFF SKIP RETRY BIT «, t00=0x0055, t01=0x0050}
0x8524…8546 Head {h00=0x001e, h01=0x0050, text=» RF(Z) FM:RTN RETURN IF OK«, t00=0x0055, t01=0x0076}
0x8546…8550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0098}
0x8550…858e Head {h00=0x003a, h01=0x0050, text=»* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED«, t00=0x0055, t01=0x00a2}
0x858e…8598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00e0}
0x8598…85b8 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/A2 CLOSE ORDER «, t00=0x0055, t01=0x00ea}
0x85b8…85f0 Head {h00=0x0034, h01=0x0050, text=» CC A7,TTB:SA+15,A5 CHECK IF CLOSE ORDER RUNNING«, t00=0x0055, t01=0x010a}
0x85f0…8622 Head {h00=0x002e, h01=0x0050, text=» ABL(E) CL:040 YES, COMPLETE CLOSE ACTION «, t00=0x0055, t01=0x0142}
0x8622…863e Head {h00=0x0018, h01=0x0050, text=» SUK A7,1 OPEN ORDER«, t00=0x0055, t01=0x0174}
0x863e…8676 Head {h00=0x0034, h01=0x0050, text=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING «, t00=0x0055, t01=0x0190}
0x8676…869e Head {h00=0x0024, h01=0x0050, text=» RB(NE) FM:RTC ABORT IF NOT OPEN«, t00=0x0056, t01=0x0038}
0x869e…86c8 Head {h00=0x0026, h01=0x0050, text=» LDK A7,/20 NEW VOLUME LOADED BIT «, t00=0x0056, t01=0x0060}
0x86c8…86ec Head {h00=0x0020, h01=0x0050, text=» TM A4,A7 CHECK RETURN CODE «, t00=0x0056, t01=0x008a}
0x86ec…8710 Head {h00=0x0020, h01=0x0050, text=» RB(Z) FM:RTC NOT NVL, ABORT«, t00=0x0056, t01=0x00ae}
0x8710…873e Head {h00=0x002a, h01=0x0050, text=» RB FMREAD NVL AT OPEN, REPEAT REQUEST«, t00=0x0056, t01=0x00d2}
0x873e…8748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0100}
0x8748…875c Head {h00=0x0010, h01=0x0050, text=»FM:RTN EQU *«, t00=0x0056, t01=0x010a}
0x875c…876c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0056, t01=0x011e}
0x876c…8776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x012e}
0x8776…878e Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0056, t01=0x0138}
0x878e…8798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0150}
0x8798…87a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x015a}
0x87a2…87b4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0056, t01=0x0164}
0x87b4…87c6 Head {h00=0x000e, h01=0x0050, text=»* RELBLK *«, t00=0x0056, t01=0x0176}
0x87c6…87d8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0056, t01=0x0188}
0x87d8…87e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x000a}
0x87e2…87ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0014}
0x87ec…881e Head {h00=0x002e, h01=0x0050, text=»* RELBLK WILL RELEASE THE MONITOR BLOCKS«, t00=0x0057, t01=0x001e}
0x881e…884e Head {h00=0x002c, h01=0x0050, text=»* THAT ARE USED IN THE EWT STRUCTURE. «, t00=0x0057, t01=0x0050}
0x884e…8858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0080}
0x8858…887c Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = FWT ADDRESS«, t00=0x0057, t01=0x008a}
0x887c…8886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00ae}
0x8886…88ae Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: A1-A4 ARE DESTROYED «, t00=0x0057, t01=0x00b8}
0x88ae…88b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00e0}
0x88b8…88ea Head {h00=0x002e, h01=0x0050, text=»RELBLK EQU * RELEASE EWT STRUCTURE BLOCKS «, t00=0x0057, t01=0x00ea}
0x88ea…8922 Head {h00=0x0034, h01=0x0050, text=» LD A4,FWTEW2,A6 ADDRESS TO FIRST EWT STRUCTURE «, t00=0x0057, t01=0x011c}
0x8922…8952 Head {h00=0x002c, h01=0x0050, text=» RF(Z) REL:20 NO MORE BLOCKS TO RELEASE «, t00=0x0057, t01=0x0154}
0x8952…895c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0184}
0x895c…8970 Head {h00=0x0010, h01=0x0050, text=»REL:10 EQU *«, t00=0x0057, t01=0x018e}
0x8970…897c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0058, t01=0x0012}
0x897c…89a4 Head {h00=0x0024, h01=0x0050, text=» CF A15,FREBLK RELEASE EWT BLOCK«, t00=0x0058, t01=0x001e}
0x89a4…89b0 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0058, t01=0x0046}
0x89b0…89d4 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 EWT BLOCK ADDRESS«, t00=0x0058, t01=0x0052}
0x89d4…89ea Head {h00=0x0012, h01=0x0050, text=» RB(NZ) REL:10«, t00=0x0058, t01=0x0076}
0x89ea…89f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x008c}
0x89f4…8a08 Head {h00=0x0010, h01=0x0050, text=»REL:20 EQU *«, t00=0x0058, t01=0x0096}
0x8a08…8a36 Head {h00=0x002a, h01=0x0050, text=» CM FWTVTC,A6 RESET VTOC SECTOR NUMBER«, t00=0x0058, t01=0x00aa}
0x8a36…8a6e Head {h00=0x0034, h01=0x0050, text=» CM FWTTAB,A6 RESET TTAB ADDRESS (EA PARAMETER) «, t00=0x0058, t01=0x00d8}
0x8a6e…8aa0 Head {h00=0x002e, h01=0x0050, text=» CM FWTEW2,A6 RESET EWT STRUCTURE POINTER «, t00=0x0058, t01=0x0110}
0x8aa0…8ab0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0058, t01=0x0142}
0x8ab0…8aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0152}
0x8aba…8ad2 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0058, t01=0x015c}
0x8ad2…8adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0174}
0x8adc…8ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x017e}
0x8ae6…8af8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x0188}
0x8af8…8b0a Head {h00=0x000e, h01=0x0050, text=»* FNDNAM *«, t00=0x0059, t01=0x000a}
0x8b0a…8b1c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0059, t01=0x001c}
0x8b1c…8b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x002e}
0x8b26…8b5c Head {h00=0x0032, h01=0x0050, text=»* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE«, t00=0x0059, t01=0x0038}
0x8b5c…8b90 Head {h00=0x0030, h01=0x0050, text=»* TO VOLUME NAME ADDRESS IN THE DISC DWT. «, t00=0x0059, t01=0x006e}
0x8b90…8b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00a2}
0x8b9a…8bbc Head {h00=0x001e, h01=0x0050, text=»* INPUT: A2 = FILE CODE«, t00=0x0059, t01=0x00ac}
0x8bbc…8bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00ce}
0x8bc6…8be0 Head {h00=0x0016, h01=0x0050, text=»* OUTPUT: A2 = 6«, t00=0x0059, t01=0x00d8}
0x8be0…8c0c Head {h00=0x0028, h01=0x0050, text=»* A6 = VOLUME NAME ADDRESS«, t00=0x0059, t01=0x00f2}
0x8c0c…8c2e Head {h00=0x001e, h01=0x0050, text=»* A4 = DESTROYED«, t00=0x0059, t01=0x011e}
0x8c2e…8c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0140}
0x8c38…8c66 Head {h00=0x002a, h01=0x0050, text=»FNDNAM EQU * FIND VOLUME NAME ADDRESS «, t00=0x0059, t01=0x014a}
0x8c66…8c7a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0059, t01=0x0178}
0x8c7a…8c86 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0059, t01=0x018c}
0x8c86…8cb2 Head {h00=0x0028, h01=0x0050, text=» CF A15,FNDDWD FIND DISC DWT ADDRESS«, t00=0x005a, t01=0x0008}
0x8cb2…8cbe Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x005a, t01=0x0034}
0x8cbe…8cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0040}
0x8cc8…8cdc Head {h00=0x0010, h01=0x0050, text=»FNAM05 EQU *«, t00=0x005a, t01=0x004a}
0x8cdc…8cf4 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTST,A6 «, t00=0x005a, t01=0x005e}
0x8cf4…8d06 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x005a, t01=0x0076}
0x8d06…8d3e Head {h00=0x0034, h01=0x0050, text=» RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC «, t00=0x005a, t01=0x0088}
0x8d3e…8d4a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x005a, t01=0x00c0}
0x8d4a…8d66 Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASKS«, t00=0x005a, t01=0x00cc}
0x8d66…8d8a Head {h00=0x0020, h01=0x0050, text=» RB FNAM05 CHECK DISC AGAIN «, t00=0x005a, t01=0x00e8}
0x8d8a…8d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x010c}
0x8d94…8da8 Head {h00=0x0010, h01=0x0050, text=»FNAM10 EQU *«, t00=0x005a, t01=0x0116}
0x8da8…8dd2 Head {h00=0x0026, h01=0x0050, text=» ADK A6,6 NEXT VOLUME NAME IN DWT «, t00=0x005a, t01=0x012a}
0x8dd2…8df4 Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 DECREMENT INDEX «, t00=0x005a, t01=0x0154}
0x8df4…8e0a Head {h00=0x0012, h01=0x0050, text=» RB(NN) FNAM10«, t00=0x005a, t01=0x0176}
0x8e0a…8e1c Head {h00=0x000e, h01=0x0050, text=» LDK A2,6 «, t00=0x005a, t01=0x018c}
0x8e1c…8e36 Head {h00=0x0016, h01=0x0050, text=» ADKL A6,DWTVOL-6 «, t00=0x005b, t01=0x000e}
0x8e36…8e46 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x0028}
0x8e46…8e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0038}
0x8e50…8e68 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x005b, t01=0x0042}
0x8e68…8e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x005a}
0x8e72…8e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0064}
0x8e7c…8e8e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005b, t01=0x006e}
0x8e8e…8ea0 Head {h00=0x000e, h01=0x0050, text=»* FNDVOL *«, t00=0x005b, t01=0x0080}
0x8ea0…8eb2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005b, t01=0x0092}
0x8eb2…8ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00a4}
0x8ebc…8ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00ae}
0x8ec6…8ef0 Head {h00=0x0026, h01=0x0050, text=»* FNDVOL SEARCHES THE REQUESTED «, t00=0x005b, t01=0x00b8}
0x8ef0…8f18 Head {h00=0x0024, h01=0x0050, text=»* VOLUME SPECIFIED IN THE FPB.«, t00=0x005b, t01=0x00e2}
0x8f18…8f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x010a}
0x8f22…8f5a Head {h00=0x0034, h01=0x0050, text=»* INPUT: A7 = VOLUME NAME DISPLACEMENT IN FPB«, t00=0x005b, t01=0x0114}
0x8f5a…8f7e Head {h00=0x0020, h01=0x0050, text=»* A10 = FPB ADDRESS«, t00=0x005b, t01=0x014c}
0x8f7e…8f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0170}
0x8f88…8fbe Head {h00=0x0032, h01=0x0050, text=»* OUTPUT: A2 = DISC FILE CODE IF FOUND, ELSE«, t00=0x005b, t01=0x017a}
0x8fbe…8fec Head {h00=0x002a, h01=0x0050, text=»* = 0 IF VOLUME NOT FOUND«, t00=0x005c, t01=0x0020}
0x8fec…9016 Head {h00=0x0026, h01=0x0050, text=»* A1, A3-A4, A12 ARE DESTROYED «, t00=0x005c, t01=0x004e}
0x9016…9020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0078}
0x9020…904c Head {h00=0x0028, h01=0x0050, text=»FNDVOL EQU * FIND VOLUME (FILE CODE)«, t00=0x005c, t01=0x0082}
0x904c…9084 Head {h00=0x0034, h01=0x0050, text=» LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 «, t00=0x005c, t01=0x00ae}
0x9084…90a8 Head {h00=0x0020, h01=0x0050, text=» LDR A12,A6 SAVE FWT ADDRESS«, t00=0x005c, t01=0x00e6}
0x90a8…90b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x010a}
0x90b2…90c6 Head {h00=0x0010, h01=0x0050, text=»FVOL10 EQU *«, t00=0x005c, t01=0x0114}
0x90c6…90f0 Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 POINT TO NEXT FILE CODE «, t00=0x005c, t01=0x0128}
0x90f0…911c Head {h00=0x0028, h01=0x0050, text=» CWK A1,DFTABE CHECK IF END OF DFTAB«, t00=0x005c, t01=0x0152}
0x911c…913e Head {h00=0x001e, h01=0x0050, text=» RF(E) FVOL30 END OF DFTAB«, t00=0x005c, t01=0x017e}
0x913e…9160 Head {h00=0x001e, h01=0x0050, text=» LCR A2,A1 NEXT FILE CODE «, t00=0x005d, t01=0x0010}
0x9160…9190 Head {h00=0x002c, h01=0x0050, text=» CF A14,FNDNAM FIND VOLUME NAME ADDRESS «, t00=0x005d, t01=0x0032}
0x9190…91be Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 FIRST WORD OF VOLUME NAME «, t00=0x005d, t01=0x0062}
0x91be…91de Head {h00=0x001c, h01=0x0050, text=» RB(Z) FVOL10 NO VOLUME «, t00=0x005d, t01=0x0090}
0x91de…91e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00b0}
0x91e8…9200 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x005d, t01=0x00ba}
0x9200…920a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00d2}
0x920a…9214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00dc}
0x9214…9234 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 FPB ADDRESS «, t00=0x005d, t01=0x00e6}
0x9234…9264 Head {h00=0x002c, h01=0x0050, text=» ADR A3,A7 ADD VOLUME NAME DISPLACEMENT «, t00=0x005d, t01=0x0106}
0x9264…926e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0136}
0x926e…9298 Head {h00=0x0026, h01=0x0050, text=»FVOL20 EQU * COMPARE VOLUME NAMES «, t00=0x005d, t01=0x0140}
0x9298…92ac Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A6 «, t00=0x005d, t01=0x016a}
0x92ac…92c0 Head {h00=0x0010, h01=0x0050, text=» CWR* A4,A3 «, t00=0x005d, t01=0x017e}
0x92c0…92ee (94, 0, 400) Head {h00=0x002a, h01=0x0050, text=» RB(NE) FVOL10 VOLUME NAMES NOT EQUAL «, t00=0x005e, t01=0x0004}
0x92ee…9312 Head {h00=0x0020, h01=0x0050, text=» ADK A3,2 INCREMENT POINTERS«, t00=0x005e, t01=0x0032}
0x9312…9324 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x005e, t01=0x0056}
0x9324…9336 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x005e, t01=0x0068}
0x9336…934c Head {h00=0x0012, h01=0x0050, text=» RB(P) FVOL20 «, t00=0x005e, t01=0x007a}
0x934c…9368 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A1 FILE CODE«, t00=0x005e, t01=0x0090}
0x9368…9372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00ac}
0x9372…9386 Head {h00=0x0010, h01=0x0050, text=»FVOL25 EQU *«, t00=0x005e, t01=0x00b6}
0x9386…93ae Head {h00=0x0024, h01=0x0050, text=» LDR A6,A12 RESTORE FWT ADDRESS «, t00=0x005e, t01=0x00ca}
0x93ae…93be Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005e, t01=0x00f2}
0x93be…93c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0102}
0x93c8…93ee Head {h00=0x0022, h01=0x0050, text=»FVOL30 EQU * VOLUME NOT FOUND «, t00=0x005e, t01=0x010c}
0x93ee…940c Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 RETURN CODE «, t00=0x005e, t01=0x0132}
0x940c…941e Head {h00=0x000e, h01=0x0050, text=» RB FVOL25«, t00=0x005e, t01=0x0150}
0x941e…9428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0162}
0x9428…9440 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x005e, t01=0x016c}
0x9440…944a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0184}
0x944a…9454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x018e}
0x9454…9466 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005f, t01=0x0008}
0x9466…9478 Head {h00=0x000e, h01=0x0050, text=»* RDVTOC *«, t00=0x005f, t01=0x001a}
0x9478…948a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005f, t01=0x002c}
0x948a…9494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x003e}
0x9494…949e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0048}
0x949e…94d2 Head {h00=0x0030, h01=0x0050, text=»* RDVTOC WILL CALL FCHEC2 FOR CHECK OF THE«, t00=0x005f, t01=0x0052}
0x94d2…9508 Head {h00=0x0032, h01=0x0050, text=»* ACCESS PARAMETERS AND READ THE VTOC RECORD«, t00=0x005f, t01=0x0086}
0x9508…952e Head {h00=0x0022, h01=0x0050, text=»* OF THE FIRST FILE EXTENT. «, t00=0x005f, t01=0x00bc}
0x952e…9538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00e2}
0x9538…955e Head {h00=0x0022, h01=0x0050, text=»* INPUT: A5 = TTAB ADDRESS «, t00=0x005f, t01=0x00ec}
0x955e…9588 Head {h00=0x0026, h01=0x0050, text=»* A9 = USER ECB ADDRESS «, t00=0x005f, t01=0x0112}
0x9588…9592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x013c}
0x9592…95b6 Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: A6 = FWT ADDRESS«, t00=0x005f, t01=0x0146}
0x95b6…95ec Head {h00=0x0032, h01=0x0050, text=»* A13 = VTOC RECORD ADDRESS IN FM:BUF«, t00=0x005f, t01=0x016a}
0x95ec…961c Head {h00=0x002c, h01=0x0050, text=»* A1-A4, A7, A11 ARE DESTROYED«, t00=0x0060, t01=0x0010}
0x961c…9626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0040}
0x9626…9662 Head {h00=0x0038, h01=0x0050, text=»RDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD «, t00=0x0060, t01=0x004a}
0x9662…9678 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0060, t01=0x0086}
0x9678…9698 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A9 FILE NUMBER «, t00=0x0060, t01=0x009c}
0x9698…96a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x00bc}
0x96a4…96ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00c8}
0x96ae…96c4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0060, t01=0x00d2}
0x96c4…96e2 Head {h00=0x001a, h01=0x0050, text=» ELR A2,A9 FILE NUMBER«, t00=0x0060, t01=0x00e8}
0x96e2…96ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0106}
0x96ee…96f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0112}
0x96f8…9704 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0060, t01=0x011c}
0x9704…9744 Head {h00=0x003c, h01=0x0050, text=» CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS «, t00=0x0060, t01=0x0128}
0x9744…9750 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0060, t01=0x0168}
0x9750…976e Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 RETURN CODE«, t00=0x0060, t01=0x0174}
0x976e…9792 (97, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDVT20 ERROR, RETURN«, t00=0x0061, t01=0x0004}
0x9792…979c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0028}
0x979c…97b4 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0061, t01=0x0032}
0x97b4…97be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x004a}
0x97be…97c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0054}
0x97c8…97e6 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A3 FWT ADDRESS«, t00=0x0061, t01=0x005e}
0x97e6…981c Head {h00=0x0032, h01=0x0050, text=» LC A2,FWTVOL,A6 DISC FILE CODE (FIRST EXTENT)«, t00=0x0061, t01=0x007c}
0x981c…9834 Head {h00=0x0014, h01=0x0050, text=» SC A2,ECBFC,A8 «, t00=0x0061, t01=0x00b2}
0x9834…986e Head {h00=0x0036, h01=0x0050, text=» LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT)«, t00=0x0061, t01=0x00ca}
0x986e…98aa Head {h00=0x0038, h01=0x0050, text=» CF A14,FVTC10 READ VTOC SECTOR AND ONE VTOC RECORD «, t00=0x0061, t01=0x0104}
0x98aa…98b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0140}
0x98b4…98c8 Head {h00=0x0010, h01=0x0050, text=»RDVT10 EQU *«, t00=0x0061, t01=0x014a}
0x98c8…98f4 Head {h00=0x0028, h01=0x0050, text=» LD A1,VTC:EN,A13 FILE EXTENT NUMBER«, t00=0x0061, t01=0x015e}
0x98f4…991c Head {h00=0x0024, h01=0x0050, text=» RF(Z) RDVT20 FIRST EXTENT FOUND«, t00=0x0061, t01=0x018a}
0x991c…9956 Head {h00=0x0036, h01=0x0050, text=» CF A14,FVTC30 READ NEXT VTOC RECORD FOR THIS FILE«, t00=0x0062, t01=0x0022}
0x9956…998a Head {h00=0x0030, h01=0x0050, text=» RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT«, t00=0x0062, t01=0x005c}
0x998a…9994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0090}
0x9994…99a8 Head {h00=0x0010, h01=0x0050, text=»RDVT20 EQU *«, t00=0x0062, t01=0x009a}
0x99a8…99b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0062, t01=0x00ae}
0x99b8…99c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00be}
0x99c2…99da Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0062, t01=0x00c8}
0x99da…99e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00e0}
0x99e4…99ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00ea}
0x99ee…9a00 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0062, t01=0x00f4}
0x9a00…9a12 Head {h00=0x000e, h01=0x0050, text=»* FNDVTC *«, t00=0x0062, t01=0x0106}
0x9a12…9a24 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0062, t01=0x0118}
0x9a24…9a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x012a}
0x9a2e…9a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0134}
0x9a38…9a62 Head {h00=0x0026, h01=0x0050, text=»* FNDVTC SEARCHES THE REQUESTED «, t00=0x0062, t01=0x013e}
0x9a62…9a88 Head {h00=0x0022, h01=0x0050, text=»* FILE SPECIFIED IN THE FPB.«, t00=0x0062, t01=0x0168}
0x9a88…9ab2 Head {h00=0x0026, h01=0x0050, text=»* RETURN IS MADE WHEN ONE EXTENT«, t00=0x0062, t01=0x018e}
0x9ab2…9ace Head {h00=0x0018, h01=0x0050, text=»* HAS BEEN FOUND. «, t00=0x0063, t01=0x0028}
0x9ace…9ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0044}
0x9ad8…9afa Head {h00=0x001e, h01=0x0050, text=»* INPUT: A2 = FILE CODE«, t00=0x0063, t01=0x004e}
0x9afa…9b20 Head {h00=0x0022, h01=0x0050, text=»* A5 = TTAB ADDRESS «, t00=0x0063, t01=0x0070}
0x9b20…9b3e Head {h00=0x001a, h01=0x0050, text=»* A6 = FWT ADDRESS «, t00=0x0063, t01=0x0096}
0x9b3e…9b68 Head {h00=0x0026, h01=0x0050, text=»* A9 = USER ECB ADDRESS «, t00=0x0063, t01=0x00b4}
0x9b68…9b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00de}
0x9b72…9bac Head {h00=0x0036, h01=0x0050, text=»* OUTPUT: A2 = VTOC SECTOR NUMBER IF FOUND, ELSE«, t00=0x0063, t01=0x00e8}
0x9bac…9bde Head {h00=0x002e, h01=0x0050, text=»* = 0 IF NO FILE EXTENT FOUND«, t00=0x0063, t01=0x0122}
0x9bde…9c14 Head {h00=0x0032, h01=0x0050, text=»* A13 = VTOC RECORD ADDRESS IN FM:BUF«, t00=0x0063, t01=0x0154}
0x9c14…9c4c Head {h00=0x0034, h01=0x0050, text=»* A1, A3-A4, A7, A11-A12 ARE DESTROYED«, t00=0x0063, t01=0x018a}
0x9c4c…9c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0032}
0x9c56…9c7a Head {h00=0x0020, h01=0x0050, text=»FNDVTC EQU * FIND VTOC ENTRY«, t00=0x0064, t01=0x003c}
0x9c7a…9ca6 Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBFC,A8 SET FILE CODE IN ECB«, t00=0x0064, t01=0x0060}
0x9ca6…9cc6 Head {h00=0x001c, h01=0x0050, text=» LDK A2,0 SECTOR NUMBER «, t00=0x0064, t01=0x008c}
0x9cc6…9cea Head {h00=0x0020, h01=0x0050, text=» CF A14,FMREAD READ SECTOR 0«, t00=0x0064, t01=0x00ac}
0x9cea…9d18 Head {h00=0x002a, h01=0x0050, text=» LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE «, t00=0x0064, t01=0x00d0}
0x9d18…9d2c Head {h00=0x0010, h01=0x0050, text=» LDR A12,A2 «, t00=0x0064, t01=0x00fe}
0x9d2c…9d5a Head {h00=0x002a, h01=0x0050, text=» AD A2,FM:BUF+VOL:FS SKIP FSAT SECTORS«, t00=0x0064, t01=0x0112}
0x9d5a…9d8a Head {h00=0x002c, h01=0x0050, text=» AD A12,FM:BUF+VOL:EL LAST VTOC SECTOR+1«, t00=0x0064, t01=0x0140}
0x9d8a…9d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0170}
0x9d94…9dac Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0064, t01=0x017a}
0x9dac…9db6 (101, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0004}
0x9db6…9dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x000e}
0x9dc0…9dea Head {h00=0x0026, h01=0x0050, text=»FVTC10 EQU * ENTRY USED BY RDVTOC «, t00=0x0065, t01=0x0018}
0x9dea…9e16 Head {h00=0x0028, h01=0x0050, text=» CF A14,FMREAD READ ONE VTOC SECTOR «, t00=0x0065, t01=0x0042}
0x9e16…9e3e Head {h00=0x0024, h01=0x0050, text=» LDKL A13,FM:BUF FM:BUF ADDRESS «, t00=0x0065, t01=0x006e}
0x9e3e…9e66 Head {h00=0x0024, h01=0x0050, text=» LDK A7,VTOCBF VTOC BLOCK FACTOR«, t00=0x0065, t01=0x0096}
0x9e66…9e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00be}
0x9e70…9e84 Head {h00=0x0010, h01=0x0050, text=»FVTC20 EQU *«, t00=0x0065, t01=0x00c8}
0x9e84…9eae Head {h00=0x0026, h01=0x0050, text=» LD A4,VTC:ST,A13 VTOC STATUS BYTE«, t00=0x0065, t01=0x00dc}
0x9eae…9ec2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0065, t01=0x0106}
0x9ec2…9ee2 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FVTC50 VTOC USED«, t00=0x0065, t01=0x011a}
0x9ee2…9eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x013a}
0x9eec…9f14 Head {h00=0x0024, h01=0x0050, text=»FVTC30 EQU * ENTRY USED BY OPEN «, t00=0x0065, t01=0x0144}
0x9f14…9f48 Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBCW2,A8 CURRENT VTOC SECTOR NUMBER «, t00=0x0065, t01=0x016c}
0x9f48…9f72 Head {h00=0x0026, h01=0x0050, text=» ADKL A13,VTOCRL NEXT VTOC ADDRESS«, t00=0x0066, t01=0x0010}
0x9f72…9f84 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0066, t01=0x003a}
0x9f84…9fb4 Head {h00=0x002c, h01=0x0050, text=» RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR«, t00=0x0066, t01=0x004c}
0x9fb4…9fd6 Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 NEXT VTOC SECTOR«, t00=0x0066, t01=0x007c}
0x9fd6…a006 Head {h00=0x002c, h01=0x0050, text=» CWR A2,A12 CHECK IF END OF VTOC EXTENT «, t00=0x0066, t01=0x009e}
0xa006…a032 Head {h00=0x0028, h01=0x0050, text=» RB(NE) FVTC10 NOT LAST VTOC SECTOR «, t00=0x0066, t01=0x00ce}
0xa032…a050 Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 RETURN CODE «, t00=0x0066, t01=0x00fa}
0xa050…a060 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0066, t01=0x0118}
0xa060…a06a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0128}
0xa06a…a082 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0066, t01=0x0132}
0xa082…a08c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x014a}
0xa08c…a096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0154}
0xa096…a0aa Head {h00=0x0010, h01=0x0050, text=»FVTC50 EQU *«, t00=0x0066, t01=0x015e}
0xa0aa…a0c8 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FWT ADDRESS«, t00=0x0066, t01=0x0172}
0xa0c8…a0de Head {h00=0x0012, h01=0x0050, text=» ADK A1,FWTNAM«, t00=0x0066, t01=0x0190}
0xa0de…a0fe Head {h00=0x001c, h01=0x0050, text=» LDR A3,A13 VTOC ADDRESS«, t00=0x0067, t01=0x0016}
0xa0fe…a11c Head {h00=0x001a, h01=0x0050, text=» LDK A4,4 LOOP COUNTER«, t00=0x0067, t01=0x0036}
0xa11c…a126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0054}
0xa126…a14e Head {h00=0x0024, h01=0x0050, text=»FVTC60 EQU * COMPARE FILE NAMES «, t00=0x0067, t01=0x005e}
0xa14e…a162 Head {h00=0x0010, h01=0x0050, text=» LDR* A11,A3«, t00=0x0067, t01=0x0086}
0xa162…a176 Head {h00=0x0010, h01=0x0050, text=» CWR* A11,A1«, t00=0x0067, t01=0x009a}
0xa176…a1a2 Head {h00=0x0028, h01=0x0050, text=» RB(NE) FVTC30 FILE NAMES NOT EQUAL «, t00=0x0067, t01=0x00ae}
0xa1a2…a1c6 Head {h00=0x0020, h01=0x0050, text=» ADK A1,2 INCREMENT POINTERS«, t00=0x0067, t01=0x00da}
0xa1c6…a1d8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0067, t01=0x00fe}
0xa1d8…a1ea Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0067, t01=0x0110}
0xa1ea…a200 Head {h00=0x0012, h01=0x0050, text=» RB(P) FVTC60 «, t00=0x0067, t01=0x0122}
0xa200…a226 Head {h00=0x0022, h01=0x0050, text=» RTN A14 ONE FILE EXTENT FOUND«, t00=0x0067, t01=0x0138}
0xa226…a230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x015e}
0xa230…a248 Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x0067, t01=0x0168}
0xa248…a252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0180}
0xa252…a25c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x018a}
0xa25c…a26e (104, 0, 400) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x0004}
0xa26e…a280 Head {h00=0x000e, h01=0x0050, text=»* FNDFWT *«, t00=0x0068, t01=0x0016}
0xa280…a292 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x0028}
0xa292…a29c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x003a}
0xa29c…a2a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0044}
0xa2a6…a2de Head {h00=0x0034, h01=0x0050, text=»* FNDFWT IS USED TO FIND OUT IF THE SPECIFIED «, t00=0x0068, t01=0x004e}
0xa2de…a312 Head {h00=0x0030, h01=0x0050, text=»* FILE IS ALREADY OPENED, AND IF SO RETURN«, t00=0x0068, t01=0x0086}
0xa312…a33c Head {h00=0x0026, h01=0x0050, text=»* THE FWT ADDRESS FOR THE FILE. «, t00=0x0068, t01=0x00ba}
0xa33c…a376 Head {h00=0x0036, h01=0x0050, text=»* IF NOT OPENED, A FREE FWT ADDRESS IS RETURNED.«, t00=0x0068, t01=0x00e4}
0xa376…a380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x011e}
0xa380…a3a4 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A10 = FPB ADDRESS«, t00=0x0068, t01=0x0128}
0xa3a4…a3d2 Head {h00=0x002a, h01=0x0050, text=»* A12 = DISC FILE CODE, FIRST EXTENT«, t00=0x0068, t01=0x014c}
0xa3d2…a3dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x017a}
0xa3dc…a41e Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE)«, t00=0x0068, t01=0x0184}
0xa41e…a448 Head {h00=0x0026, h01=0x0050, text=»* A1-A4, A7, A11 ARE DESTROYED «, t00=0x0069, t01=0x0036}
0xa448…a452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0060}
0xa452…a466 Head {h00=0x0010, h01=0x0050, text=»FNDFWT EQU *«, t00=0x0069, t01=0x006a}
0xa466…a478 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0069, t01=0x007e}
0xa478…a4a6 Head {h00=0x002a, h01=0x0050, text=» LD A7,SCTFWT FWT CHAIN START ADDRESS «, t00=0x0069, t01=0x0090}
0xa4a6…a4b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00be}
0xa4b0…a4c4 Head {h00=0x0010, h01=0x0050, text=»FNDF10 EQU *«, t00=0x0069, t01=0x00c8}
0xa4c4…a4d6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0069, t01=0x00dc}
0xa4d6…a4e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00ee}
0xa4e0…a4f4 Head {h00=0x0010, h01=0x0050, text=»FNDF15 EQU *«, t00=0x0069, t01=0x00f8}
0xa4f4…a518 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A7 NEXT FWT ADDRESS «, t00=0x0069, t01=0x010c}
0xa518…a546 Head {h00=0x002a, h01=0x0050, text=» RF(Z) FNDF40 NO MORE FWT:S AVAILABLE «, t00=0x0069, t01=0x0130}
0xa546…a56c Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 FIRST WORD OF FWT «, t00=0x0069, t01=0x015e}
0xa56c…a58c Head {h00=0x001c, h01=0x0050, text=» TM A7,A2 CHECK IF USED «, t00=0x0069, t01=0x0184}
0xa58c…a5b8 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FNDF20 USED, CHECK FILE NAME«, t00=0x006a, t01=0x0014}
0xa5b8…a5f2 Head {h00=0x0036, h01=0x0050, text=» ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED «, t00=0x006a, t01=0x0040}
0xa5f2…a61c Head {h00=0x0026, h01=0x0050, text=» RB(NZ) FNDF15 YES, DON'T SAVE IT «, t00=0x006a, t01=0x007a}
0xa61c…a648 Head {h00=0x0028, h01=0x0050, text=» LDR A3,A6 NO, SAVE THIS FWT ADDRESS«, t00=0x006a, t01=0x00a4}
0xa648…a66a Head {h00=0x001e, h01=0x0050, text=» RB FNDF15 CONTINUE SEARCH«, t00=0x006a, t01=0x00d0}
0xa66a…a674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00f2}
0xa674…a68c Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x006a, t01=0x00fc}
0xa68c…a696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0114}
0xa696…a6a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x011e}
0xa6a0…a6c8 Head {h00=0x0024, h01=0x0050, text=»FNDF20 EQU * POINT TO FILE NAMES«, t00=0x006a, t01=0x0128}
0xa6c8…a6e6 Head {h00=0x001a, h01=0x0050, text=» LDK A1,4 LOOP COUNTER«, t00=0x006a, t01=0x0150}
0xa6e6…a704 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A6 FWT ADDRESS«, t00=0x006a, t01=0x016e}
0xa704…a71a Head {h00=0x0012, h01=0x0050, text=» ADK A2,FWTNAM«, t00=0x006a, t01=0x018c}
0xa71a…a73a Head {h00=0x001c, h01=0x0050, text=» LDR A4,A10 FPB ADDRESS «, t00=0x006b, t01=0x0012}
0xa73a…a750 Head {h00=0x0012, h01=0x0050, text=» ADK A4,FPB:FN«, t00=0x006b, t01=0x0032}
0xa750…a774 Head {h00=0x0020, h01=0x0050, text=» SUK A7,1 SKIP FWT USED BIT «, t00=0x006b, t01=0x0048}
0xa774…a77e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x006c}
0xa77e…a7a6 Head {h00=0x0024, h01=0x0050, text=»FNDF30 EQU * COMPARE FILE NAMES «, t00=0x006b, t01=0x0076}
0xa7a6…a7ba Head {h00=0x0010, h01=0x0050, text=» LDR* A11,A2«, t00=0x006b, t01=0x009e}
0xa7ba…a7ce Head {h00=0x0010, h01=0x0050, text=» CWR* A11,A4«, t00=0x006b, t01=0x00b2}
0xa7ce…a7fa Head {h00=0x0028, h01=0x0050, text=» RB(NE) FNDF10 FILE NAMES NOT EQUAL «, t00=0x006b, t01=0x00c6}
0xa7fa…a81e Head {h00=0x0020, h01=0x0050, text=» ADK A2,2 INCREMENT POINTERS«, t00=0x006b, t01=0x00f2}
0xa81e…a830 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x006b, t01=0x0116}
0xa830…a842 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006b, t01=0x0128}
0xa842…a858 Head {h00=0x0012, h01=0x0050, text=» RB(P) FNDF30 «, t00=0x006b, t01=0x013a}
0xa858…a892 Head {h00=0x0036, h01=0x0050, text=» CC A12,FWTVOL,A6 CHECK FILE CODE OF FIRST EXTENT «, t00=0x006b, t01=0x0150}
0xa892…a8b6 Head {h00=0x0020, h01=0x0050, text=» RB(NE) FNDF10 NOT THIS FILE«, t00=0x006b, t01=0x018a}
0xa8b6…a8da Head {h00=0x0020, h01=0x0050, text=» RTN A14 FILE FOUND, RETURN «, t00=0x006c, t01=0x001e}
0xa8da…a8e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0042}
0xa8e4…a908 Head {h00=0x0020, h01=0x0050, text=»FNDF40 EQU * FILE NOT FOUND «, t00=0x006c, t01=0x004c}
0xa908…a92c Head {h00=0x0020, h01=0x0050, text=» LDR A6,A3 FREE FWT ADDRESS «, t00=0x006c, t01=0x0070}
0xa92c…a93c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006c, t01=0x0094}
0xa93c…a946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00a4}
0xa946…a95e Head {h00=0x0014, h01=0x0050, text=» EJECT FMTASK «, t00=0x006c, t01=0x00ae}
0xa95e…a968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00c6}
0xa968…a972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00d0}
0xa972…a982 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x006c, t01=0x00da}
0xa982…a992 Head {h00=0x000c, h01=0x0050, text=»* MOVE *«, t00=0x006c, t01=0x00ea}
0xa992…a9a2 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x006c, t01=0x00fa}
0xa9a2…a9ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x010a}
0xa9ac…a9b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0114}
0xa9b6…a9e4 Head {h00=0x002a, h01=0x0050, text=»* INPUT: A1 = INPUT BUFFER ADDRESS «, t00=0x006c, t01=0x011e}
0xa9e4…aa1a Head {h00=0x0032, h01=0x0050, text=»* A2 = NUMBER OF CHARACTERS TO MOVE «, t00=0x006c, t01=0x014c}
0xaa1a…aa48 Head {h00=0x002a, h01=0x0050, text=»* A3 = OUTPUT BUFFER ADDRESS«, t00=0x006c, t01=0x0182}
0xaa48…aa52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0020}
0xaa52…aa6c Head {h00=0x0016, h01=0x0050, text=»* OUTPUT: A2 = 0«, t00=0x006d, t01=0x002a}
0xaa6c…aaae Head {h00=0x003e, h01=0x0050, text=»* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 «, t00=0x006d, t01=0x0044}
0xaaae…aad2 Head {h00=0x0020, h01=0x0050, text=»* A4 IS DESTROYED «, t00=0x006d, t01=0x0086}
0xaad2…aadc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00aa}
0xaadc…aafa Head {h00=0x001a, h01=0x0050, text=»MOVE EQU * MOVE STRING«, t00=0x006d, t01=0x00b4}
0xaafa…ab20 Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 MOVE ONE CHARACTER «, t00=0x006d, t01=0x00d2}
0xab20…ab32 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x006d, t01=0x00f8}
0xab32…ab5e Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTERS «, t00=0x006d, t01=0x010a}
0xab5e…ab70 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006d, t01=0x0136}
0xab70…ab98 Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT LOOP COUNTER«, t00=0x006d, t01=0x0148}
0xab98…abac Head {h00=0x0010, h01=0x0050, text=» RB(P) MOVE «, t00=0x006d, t01=0x0170}
0xabac…abbc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x006d, t01=0x0184}
0xabbc…abc6 (110, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0004}
0xabc6…abde Head {h00=0x0014, h01=0x000f, text=» EJECT FMTASK «, t00=0x006e, t01=0x000e}
0xabde…abe8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006e, t01=0x0026}
0xabe8…abf2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006e, t01=0x0030}
0xabf2…ac04 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x006e, t01=0x003a}
0xac04…ac16 Head {h00=0x000e, h01=0x000a, text=»* FMRDWR *«, t00=0x006e, t01=0x004c}
0xac16…ac28 Head {h00=0x000e, h01=0x000a, text=»**********«, t00=0x006e, t01=0x005e}
0xac28…ac32 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006e, t01=0x0070}
0xac32…ac3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x007a}
0xac3c…ac64 Head {h00=0x0024, h01=0x0020, text=»* FILE MANAGEMENT I/O FUNCTIONS.«, t00=0x006e, t01=0x0084}
0xac64…ac92 Head {h00=0x002a, h01=0x0026, text=»* FMRDWR IS ENTERED WHEN THE REQUESTED«, t00=0x006e, t01=0x00ac}
0xac92…acbc Head {h00=0x0026, h01=0x0022, text=»* SECTORS ARE SPLIT OVER MORE THAN«, t00=0x006e, t01=0x00da}
0xacbc…acd2 Head {h00=0x0012, h01=0x000d, text=»* ONE EXTENT. «, t00=0x006e, t01=0x0104}
0xacd2…acdc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006e, t01=0x011a}
0xacdc…ad0e Head {h00=0x002e, h01=0x002a, text=»FMRDWR EQU * BASIC AND PHYSICAL READ/WRITE«, t00=0x006e, t01=0x0124}
0xad0e…ad24 Head {h00=0x0012, h01=0x000d, text=» IFT XTSPLI=0 «, t00=0x006e, t01=0x0156}
0xad24…ad54 Head {h00=0x002c, h01=0x0028, text=» ABL LKMERR NOT INCLUDED IN THIS VERSION«, t00=0x006e, t01=0x016c}
0xad54…ad60 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x006f, t01=0x000c}
0xad60…ad6a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x0018}
0xad6a…ad80 Head {h00=0x0012, h01=0x000d, text=» IFT XTSPLI=1 «, t00=0x006f, t01=0x0022}
0xad80…ada6 Head {h00=0x0022, h01=0x001d, text=» ABL LKMERR TO BE IMPLEMENTED «, t00=0x006f, t01=0x0038}
0xada6…adb2 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x006f, t01=0x005e}
0xadb2…adbc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x006a}
0xadbc…adc6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x0074}
0xadc6…add0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x006f, t01=0x007e}
0xadd0…addc Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x006f, t01=0x0088}
0xaddc…ade0 Head {h00=0x4004, h01=0x0000}
0xade0…ade4 00 6f 00 94 ┆ o ┆
0xade4…adec (112, 1, 8) 20 04 00 00 00 70 00 04 ┆ p ┆
0xadec…ae3c (113, 0, 400) 5c 44 41 54 41 5c 44 57 54 45 4e 44 2d 44 56 44 59 30 32 5c 4f 52 44 45 52 20 00 00 01 90 00 28 00 50 5c 44 41 54 41 5c 44 59 41 44 5c 50 4f 49 4e 54 45 52 20 54 4f 20 41 44 44 52 45 53 53 2d 42 4c 4f 43 4b 20 00 01 00 22 00 1c 00 50 5c 44 ┆ DATA DWTEND-DVDY02 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P D┆
0xae3c…ae8c 41 54 41 5c 2f 43 34 35 39 5c 54 54 41 42 2d 41 44 44 52 45 53 53 00 01 00 4e 00 24 00 50 5c 44 41 54 41 5c 30 5c 57 41 49 54 2f 41 43 54 49 56 41 54 45 20 49 4e 44 49 43 41 54 4f 52 20 00 01 00 6e 00 1a 00 50 5c 44 41 54 41 5c 30 5c 54 45 ┆ATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TE┆
0xae8c…aedc 52 4d 49 4e 41 4c 20 51 55 45 55 45 00 01 00 96 00 12 00 0d 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 01 00 b4 00 26 00 22 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 55 53 45 52 20 45 43 42 20 41 44 44 52 45 53 53 00 01 00 ca ┆RMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS ┆
0xaedc…af2c 00 20 00 1c 5c 44 41 54 41 5c 44 45 56 45 43 42 5c 4d 4d 55 20 45 43 42 20 41 44 44 52 45 53 53 00 01 00 f4 00 08 00 04 5c 58 49 46 00 01 01 18 00 1e 00 50 5c 44 41 54 41 5c 30 5c 4f 55 54 50 55 54 20 51 55 45 55 45 20 4c 49 4e 4b 20 00 01 ┆ DATA DEVECB MMU ECB ADDRESS XIF P DATA 0 OUTPUT QUEUE LINK ┆
0xaf2c…af7c 01 24 00 1c 00 50 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 41 33 00 01 01 46 00 1c 00 50 5c 44 41 54 41 5c 30 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 41 34 00 01 01 66 00 1c 00 50 5c 44 41 54 41 5c 30 5c 53 41 ┆ $ P DATA 0 SAVE AREA FOR A3 F P DATA 0 SAVE AREA FOR A4 f P DATA 0 SA┆
0xaf7c…afcc (114, 2, 344) 56 45 20 41 52 45 41 20 46 4f 52 20 41 35 00 01 01 86 00 14 00 50 5c 52 45 53 5c 34 5c 44 57 54 2d 53 54 41 43 4b 00 02 00 16 00 1a 00 50 5c 44 41 54 41 5c 30 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 00 02 00 2e 00 1e 00 50 5c 44 41 54 ┆VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DAT┆
0xafcc…b01c 41 5c 2f 31 30 31 5c 43 55 52 53 4f 52 20 50 4f 49 4e 54 45 52 20 00 02 00 4c 00 2a 00 50 5c 44 41 54 41 5c 2f 31 38 35 30 5c 4c 45 46 54 20 42 59 54 45 3d 4e 55 4d 42 45 52 20 4f 46 20 4c 49 4e 45 53 20 00 02 00 6e 00 22 00 50 5c 5c 5c 52 ┆A /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P R┆
0xb01c…b06c 49 47 48 54 20 42 59 54 45 3d 43 48 41 52 41 43 54 45 52 53 2f 4c 49 4e 45 20 00 02 00 9c 00 18 00 50 5c 44 41 54 41 5c 30 5c 42 55 46 46 45 52 20 49 4e 44 45 58 00 02 00 c2 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 02 00 de ┆IGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 ┆
0xb06c…b0bc 00 1c 00 50 44 45 56 45 43 42 5c 44 41 54 41 5c 30 2c 30 2c 30 2c 30 2c 30 2c 30 20 00 02 00 f4 00 08 00 50 5c 58 49 46 00 02 01 14 00 10 00 50 44 57 54 45 4e 44 5c 45 51 55 5c 2a 00 02 01 20 00 06 00 50 2a 20 00 02 01 34 00 06 00 50 2a 20 ┆ PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* 4 P* ┆
0xb0bc…b0d4 00 02 01 3e 00 08 00 50 5c 45 4e 44 00 02 01 48 40 04 00 00 00 02 01 54 ┆ > P END H@ T┆
0xb0d4…b0dc (115, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0xb0dc…b12c (116, 0, 400) 11 ac 24 ff 88 3e 1c 01 93 10 8f 3e 00 01 01 01 00 0b 0b 0b 0b 00 01 0b 00 00 00 00 00 01 00 00 00 0b 00 00 00 00 00 00 00 00 00 00 00 0b 0b 00 0b 00 00 0b 00 00 00 00 00 01 01 0b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d2 46 00 02 ┆ $ > > F ┆
0xb12c…b17c 82 43 00 02 d2 46 00 0c 82 43 00 0c f0 3e 81 42 00 04 e9 52 ff fc 51 c4 d1 46 00 02 21 01 50 06 a9 43 00 02 f0 3e 19 02 a1 43 00 02 f0 3e d1 46 00 02 e2 04 a1 20 0f ff 3a 63 22 1e 92 14 e2 48 ff da 3a 62 22 3f e2 23 22 0f 3a e4 a9 08 81 43 ┆ C F C > B R Q F ! P C > C > F :c" H :b"? #" : C┆
0xb17c…b1cc 00 02 f0 3e 81 42 00 04 e9 52 ff fc 51 7e f7 a1 12 08 ef 20 00 01 50 30 84 42 00 0a 50 2a 81 06 11 08 90 a0 00 0c 80 c3 ff fe 98 a0 00 04 d3 30 24 01 54 02 e3 0c 23 ff 13 01 eb 52 ff fa 51 4c f7 a1 12 9e 98 a0 00 08 f0 3e 82 58 00 08 83 42 ┆ > B R Q~ P0 B P* 0$ T # R QL > X B┆
0xb1cc…b21c 00 04 55 28 eb 48 ff fc 51 32 81 58 00 10 13 01 a3 20 ff fe d1 44 00 02 82 42 00 02 a2 20 ff fe 84 04 24 01 54 08 82 43 00 02 78 8c f0 3e ac 43 00 02 d4 24 84 29 11 01 12 02 5f 12 20 bf 97 a0 00 04 81 58 00 02 39 42 56 0c 81 18 86 58 00 26 ┆ U( H Q2 X D B $ T C x > C $ ) _ X 9BV X &┆
0xb21c…b26c f7 a1 14 16 86 04 81 20 80 08 8f 20 22 1e 81 58 00 12 81 44 00 0c d1 43 00 0c f0 3e 82 58 00 04 84 48 00 06 55 4a 81 48 00 02 d2 42 00 02 03 01 a3 05 50 1c a3 09 50 4c 80 00 00 00 00 00 00 00 00 00 00 80 00 00 40 00 00 00 00 00 42 00 00 0c ┆ " X D C > X H UJ H B P PL @ B ┆