DataMuseum.dk Presents historical artifacts from the history of: Philips Data Systems

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦b2da399c9⟧

    Length: 44524 (0xadec)
    Notes: pts_type(SC)
    Names: »FMTASK.SC«

Derivation

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »M:DE10/FMTASK.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »M:DE10/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	0
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
* 
*	A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O 
*	IS OBTAINED BY SETTING XTSPLI EQU 1.
* 
XTSPLI	EQU	0
* 
	EJECT			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=0x000c, text=»MMUPAG EQU 0«, 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=0x000c, text=»CPU852 EQU 1«, 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  ┆

Reduced view