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

⟦6968936c9⟧

    Length: 62004 (0xf234)
    Notes: pts_type(SC)
    Names: »FMTASK.SC«

Derivation

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »TOSSWORK/FMTASK.SC« 
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
    └─⟦this⟧ »TOSSWORK/FMTASK.SC« 

	IDENT FMTASK 	REL 11.0 81-05-13 870105041100 

			=7, FDBMEC NOT SET IN SYSTEMS WITHOUT DM 
			=7, REL 11.0 81-02-04
			=6,EDM INITIALIZATION 3 DISCS
			=6, REL 11.0 81-02-03
			=5, ADM INITIALIZATION 
			REL 11.0  81-01-21 
			=4, NO NVL BITS FOR DM TASKS 
			PRR 11.0  80-11-27  CHLO 
			=3, SPLIT EXTENT HANDELING NOT WORKING 
			PRR 11.0  80-11-20  CHLO 
			=2, EDM INITIALIZATION ALLWAYS HALTED
			PRR 11.0  80-11-19  CHLO 
			=1, HALT IF TTAB NOT FOUND 
			PRR 11.0  80-11-19  POHO 
* 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS                  *
* 
*   FMTASK = TOSS FILE MANAGEMENT TASK           *
* 
* 
* 
* 
**************************************************
* 
* 
*   TOSS FILE MANAGEMENT TASK CONTAINS THE
*   FOLLOWING FILE ADMINISTRATION MODULES:
* 
*   - FMOPEN   OPEN FILE
*   - FMCLOS   CLOSE FILE 
*   - FMRPAR   READ FILE PARAMETERS 
*   - FMSPLI   READ/WRITE (SPLIT I/O) 
* 
*   FMTASK ALSO CONTAINS THE FILE MANAGEMENT
*   SYSTEM INITIALIZATION ROUTINE, FMINIT.
*   FMINIT ALSO HOLDS THE EDM INITIALIZATION ROUTINE. 
* 
* 
	EJECT			FMTASK 
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	OPEN	OPEN FILE 
	ENTRY	OPEXT	OPEN EXTENDED FILE (CALLED FROM EXTEND)
	ENTRY	DLCLO1	CLOSE FILE (CALLED FROM DELETE) 
	ENTRY	DLCLO2	CLOSE FILE (CALLED FROM DELETE) 
	ENTRY	FMTASK	FMTASK ACTIVATION ADDRESS 
	ENTRY	FMINIT	FILE MANAGEMENT INITIALIZATION
	ENTRY	FMREAD	FMTASK READ DISC SECTOR ROUTINE 
	ENTRY	FM:PWR	FMTASK WRITE DISC SECTOR ROUTINE
	ENTRY	FM:IO	FMTASK I/O ROUTINE 
	ENTRY	FM:ECB	FM ECB ADDRESS
	ENTRY	FMEXIT	FMTASK SET RETURN CODE EXIT 
	ENTRY	FM:INE	FMTASK ILLEGAL NAME EXIT
	ENTRY	FM:RQE	FMTASK REQUEST ERROR EXIT 
	ENTRY	FNDNAM	FIND VOLUME NAME ADDRESS IN DISC DWT
	ENTRY	FNDVTC	FIND ONE FILE EXTENT (VTOC) 
	ENTRY	FNDVT2	FNDVTC 2ND ENTRY
	ENTRY	RDVTO2	READ VTOC, FIRST EXTENT 
	ENTRY	FM:MOV	MOVE STRING 
	ENTRY	FM:MV4	MOVE 4 CHARACTERS 
	ENTRY	FM:MV8	MOVE 8 CHARACTERS 
	ENTRY	CMPSTR	COMPARE STRINGS 
	ENTRY	CMPDWD	COMPARE TWO DOUBLE WORDS
	ENTRY	FILCOD	FILE CODE TABLE 
	ENTRY	VOLUME	CURRENT VOLUME FILE CODE POINTER
	ENTRY	FM:BUF	FMTASK DISC SECTOR BUFFER 
	ENTRY	TTABFM	FMTASK TTAB 
	ENTRY	FEXTNO	NO OF FILE EXTENTS
	ENTRY	RETCOD	ACKUMULATED RETURN CODE 
	EJECT			FMTASK 
* 
	ENTRY	FWTVTC	VTOC SECTOR NUMBER (FIRST EXTENT) 
	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	FWTVOL	VOLUME FILE CODE
	ENTRY	FWTEXB	EXTENT BASE (FIRST EXTENT)
	ENTRY	FWTNAM	FILE NAME 
	ENTRY	FWTQUE	QUEUE ANCHOR FOR FILE I/O REQUESTS
	ENTRY	FWTSEX	FILE SECTION AND EXTENT NUMBER
	ENTRY	FPB:RL	RECORD LENGTH 
	ENTRY	FPB:BF	BLOCK FACTOR
	ENTRY	FPB:FO	FILE ORGANIZATION 
	ENTRY	FPB:DT	DEVICE TYPE	=1
	ENTRY	FPB:BO	BASIC ORDERS
	ENTRY	FPB:NO	FILE NUMBER	=1
	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 
* 
* 
	ENTRY	EWTEXL	EXTENT LENGTH 
	ENTRY	EWTEXB	EXTENT BASE 
	ENTRY	EWTVOL	VOLUME FILE CODE
	ENTRY	EWTSEX	FILE SECTION AND EXTENT NUMBER
	ENTRY	VOL:VN	VOLUME NAME 
	ENTRY	VOL:EL	VTOC EXTENT LENGTH
	ENTRY	VOL:EB	VTOC EXTENT BASE
	ENTRY	VOL:RL	VTOC RECORD LENGTH
	ENTRY	VOL:FS	FSAT LENGTH 
	ENTRY	VTOCRL	VTOC RECORD LENGTH
	ENTRY	VTOCBF	VTOC BLOCK FACTOR 
	ENTRY	VTC:FN	FILE NAME 
	ENTRY	VTC:MN	MONITOR NUMBER (L-FILE) 
	ENTRY	VTC:FS	FILE SECTION NUMBER (S-FILE)
	ENTRY	VTC:SN	SOP SWITCH NUMBER 
	ENTRY	VTC:EN	FILE EXTENT NUMBER
	ENTRY	VTC:EL	FILE EXTENT LENGTH
	ENTRY	VTC:EB	FILE EXTENT BASE
	ENTRY	VTC:LR	LAST RECORD NUMBER
	ENTRY	VTC:RL	RECORD LENGTH 
	ENTRY	VTC:BF	BLOCK FACTOR
	ENTRY	VTC:FO	FILE ORGANIZATION 
	ENTRY	VTC:CD	CREATION DATE 
	ENTRY	VTC:RP	RETENTION PERIOD
	ENTRY	VTC:IF	NUMBER OF INDEX FILES 
	ENTRY	VTC:KA	KEY ADDRESS IN RECORD 
	ENTRY	VTC:NE	NO OF FILE EXTENTS
	ENTRY	VTC:ST	STATUS BYTE 
	EJECT			FMTASK 
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	CREATE	FM CREATE FILE
	EXTRN	EXTEND	FM EXTEND FILE
	EXTRN	DELETE	FM DELETE FILE
	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	FINDTT	FIND DATA MANAGEMENT TASK	=1
	EXTRN	FNDDWD	FIND DISC DWT ADDRESS 
	EXTRN	ACTOT	ACTIVATE TASK
	EXTRN	SDMINI	DM INITIALIZATION ROUTINE 
	EXTRN	TIOMXI	CONVERT LOGICAL ADDRESS TO PHYSICAL 
	EXTRN	DET:FM	FILE MANAGEMENT DETACH
	EXTRN	FCHEC2	CHECK ACCESS PAR. AND RETURN FWT ADDRESS
	EXTRN	TIODM	(E)DM ADDRESS BLOCK
	EXTRN	SEXTNO	START EXTENT NUMBER (EXTEND)
	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	(E)DM TASKS IN SYSTEM 
	EXTRN	SCTMOX	DISPATCH ADDRESS TABLE POINTER
	EXTRN	DWDM01	(E)DM SYSTEM DWT/FWT
	EXTRN	NVLTAB	NVL TABLE 
	EXTRN	NVLEND	END OF NVLTAB 
	EXTRN	NVLBIT	NVL BIT MASK
	EJECT			FMTASK 
* 
* 
	EXTRN	DWTST	DWT STATUS 
	EXTRN	DWTADR	ADDRESS TO ADDRESS BLOCK
	EXTRN	DWTMEC	MMU ECB ADDRESS 
	EXTRN	DWTVOL	VOLUME NAME 
	EXTRN	DWTNVL	NVL INDICATOR 
	EXTRN	DWTPAB	PARAMETER BLOCK ADDRESS 
	EXTRN	FDBMEC	FDB MMU ECB DISPLACEMENT IN FWT 
	EXTRN	TTB:MT	MMU TABLE 
	EXTRN	TTB:SA	DISPATCH ADDRESS
	EXTRN	ECBFC	ECB FILE CODE
	EXTRN	ECBFN	ECB FILE NUMBER
	EXTRN	ECBBA	ECB BUFFER ADDRESS (FPB ADDRESS) 
	EXTRN	ECBRL	ECB REQUESTED LENGTH 
	EXTRN	ECBEL	ECB EFFECTIVE LENGTH 
	EXTRN	ECBRC	ECB RETURN CODE
	EXTRN	ECBCW1	CONTROL WORD 1
	EXTRN	ECBCW2	CONTROL WORD 2
	EXTRN	HALT 
	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 USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	0
* 
* 
*	A PROGRAM VERSION INCLUDING CREATE/DELETE FILE
*	IS OBTAINED BY SETTING FMCDEF (X:A) EQU 1.
* 
X:A	EQU	0 
FMCDEF	EQU	X:A
* 
	EJECT			FMTASK 
* 
* 
*	A PROGRAM VERSION SUPPORTING DATA MANAGEMENT
*	IS OBTAINED BY SETTING DM (X:B) EQU 1.
* 
X:B	EQU	0 
SDM	EQU	X:B 
* 
* 
*	A PROGRAM VERSION SUPPORTING EXTENDED DATA MANAGEMENT 
*	IS OBTAINED BY SETTING EDM (X:C) EQU 1. 
* 
X:C	EQU	0 
EDM	EQU	X:C 
* 
* 
*	A PROGRAM VERSION SUPPORTING ABRIDGED DATA MANAGEMENT	=5
*	IS OBTAINED BY SETTING X:D EQU 1	=5 
* 
* 
X:D	EQU	0 
ADM	EQU	X:D 
* 
* 
*	COMBINED CONDITION ADMEDM	=5
	IFF	ADM+EDM=0	=5 
ADMEDM	EQU	1		=5
	XIF		=5
	IFT	ADM+EDM=0		=5
ADMEDM	EQU	0		=5
	XIF			=5 
* 
	EJECT			FMTASK 
* 
* 
*	THE ATTACH/DETACH FILE FUNCTION 
*	IS OBTAINED BY SETTING ATTDET EQU 1.
* 
ATTDET	EQU	1
X:E	EQU	ATTDET
* 
* 
*	THE MULTIPLE EXTENT I/O FUNCTION
*	IS OBTAINED BY SETTING MULEXT EQU 1.
* 
MULEXT	EQU	1
X:F	EQU	MULEXT
* 
	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 
* 
* 
******************
* VTOC 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:NE	EQU	40	NO OF FILE EXTENTS
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 
FWTQUE	EQU	FWTBAS+/1A	QUEUE ANCHOR FOR FILE I/O REQUESTS
* 
	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:DT	EQU	4	DEVICE TYPE	=1 
FPB:BO	EQU	5	BASIC ORDERS 
FPB:NO	EQU	6	FILE NUMBER	=1 
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
* 
	IFF	MMUPAG+DSKPAG=0
	DATA	0	CURRENT SEGMENT BASE (DUMMY)
	DATA	0	SEGMENT TABLE ADDRESS (DUMMY) 
	DATA	0	SEGMENT BLOCK ADDRESS (DUMMY) 
	XIF
* 
	DATA	0	ACB ADDRESS (DUMMY) 
* 
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 
	DATA	2	TASK DEVICE TABLE (DUMMY) 
* 
	EJECT			FMTASK 
* 
* 
***************************** 
* ECB, STACK AND DATA AREAS * 
***************************** 
* 
* 
FM:ECB	DATA	/8000,0,0	FMTASK ECB AREA 
	DATA	0,0,0,0 
* 
	DATA	0,0	FMTASK STACK (5 LEVELS) 
	DATA	0,0 
	DATA	0,0 
	DATA	0,0 
	DATA	0,0 
FM:STB	EQU	*-2	FMTASK STACK BASE
* 
FEXTNO	DATA	0	NO OF FILE EXTENTS
FILCOD	DATA	0,0	FILE CODE TABLE 
RETCOD	DATA	0	ACKUMULATED RETURN CODE 
TTAB	DATA	0	TTAB ADDRESS CALLING TASK 
VOLUME	DATA	0	CURRENT VOLUME FILE CODE POINTER
* 
	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). 
*   FMINIT ALSO HOLDS INITIALIZATION ROUTINES FOR 
*   (EXTENDED) DATA MANAGEMENT. 
*   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
* 
*	FMTASK DISC SECTOR BUFFER 
* 
FM:BUF	EQU	FMINIT+2	INITIALIZATION ROUTINE USED AS BUFFER 
* 
FMINI2	EQU	*	INITIALIZATION ROUTINE ENTRY 
	RES	125
* 
	EJECT			FMTASK 
* 
*	PERFORM INITIALIZATION
* 
FMI:00	EQU	*
	RORG	FMINI2	PUT THE CODE BELOW INTO FM:BUF 
	LD	A1,SCTFWT	FWT CHAIN START ADDRESS 
	LD	A4,SCTNOF	NUMBER OF FILES 
	LDK	A5,0 
	LDKL	A6,/8000	DWT BUSY BIT 
* 
FMI:30	EQU	*
* 
	IFF	ADMEDM+SDM=0	=7
	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 
* 
	IFF	ADMEDM+SDM=0		=7 
	IFT	MMUPAG=1 
	ST	A8,DWTMEC,A2	SET MMU ECB ADDRESS
	XIF
* 
	IFF	ADMEDM+SDM=0 
	LDKL	A7,TIODM		=5
	ST	A7,DWTADR,A2		=5
	XIF			=5 
	RB	FMI:30	CONTINUE WITH NEXT FWT 
* 
				=4
	EJECT			FMTASK 
* 
*	COMPUTE NVL BIT MASK
* 
FMI:50	EQU	*
	LDK	A1,0		=4 
	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	*
	ADR	A2,A2
	ADK	A3,2	INCREMENT NVLTAB POINTER
	CWK	A3,NVLEND	CHECK IF END OF NVLTAB 
	RB(NE)	FMI:80	NOT END OF NVLTAB
	ORR	A1,A2	ADD ONE BIT FOR USER TASKS 
	ST	A1,NVLBIT	SET NVL BIT MASK
* 
	IFT	SDM=1
	ABL	SDMINI	PERFORM DM INITIALIZATION AND RETURN
	XIF
* 
				=2
	EJECT			FMTASK 
* 
* 
	IFT	EDM=1
* 
*	INITIALIZE ALL EDM TASKS
* 
	LDKL	A1,DWDM01	PARAMETER BLOCK ADDRESS 
	ADKL	A1,DWTPAB 
	LDK	A2,2	INDICATE INITIALIZATION 
	SCR	A2,A1
	LDKL	A7,'$D'	TASK ID,FIRST EDM TASK
	LD	A3,SCTDMT	EDM TASKS IN SYSTEM 
* 
FMI:90	EQU	*
	SRC	A3,1 
	RF(NN)	FMI:99	NEXT TASK
	CF	A15,FNDTID	FIND (E)DM TASK TTAB ADDRESS 
	LDR	A5,A2
	RF(Z)	FMIHLT	TTAB NOT FOUND	=2 
* 
	EJECT			FMTASK 
* 
* 
	LD	A4,SCTMOX	ADDRESS OF DISPATCH ADDRESS TABLE 
	LDR	A2,A4
	ADR*	A2,A4	END ADDRESS 
	SUK	A4,2	ADJUST POINTER
* 
FMI:95	EQU	*
	ADK	A4,4	NEXT ENTRY
	CWR*	A7,A4 
	RB(NE)	FMI:95	NOT SAME ID
	LD	A2,2,A4	DISPATCH ADDRESS
	CF	A15,ACTOT	ACTIVATE EDM TASK 
* 
FMI:99	EQU	*
	ADK	A7,1	NEXT EDM TASK 
	ANK	A3,/FF		=6 
	RB(NZ)	FMI:90	MORE TASKS TO ACTIVATE 
	XIF
* 
	RTN	A15	FM/EDM INITIALIZATION COMPLETED, RETURN
* 
*	TTAB NOT FOUND			=2 
* 
FMIHLT	EQU	*		=2
	LDK	A1,/11	DM ERROR	=2 
	CF	A15,HALT		=2
	RORG	FMI:00	END OF RELOCATION
* 
	EJECT			FMTASK 
* 
* 
**********
* FMTASK *
**********
* 
* 
*   THE FILE MANAGEMENT TASK PERFORMS 
*   FILE ADMINISTRATION FUNCTIONS. IT 
*   IS ACTIVATED BY THE FILE MANAGEMENT 
*   LKM PROCESSOR 'TIOFM' AT ENTRY FMTASK BELOW.
*   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) 
*   - FMRPAR   READ FILE PARAMETERS           (   "   : 0)
* 
*   NOTICE THAT FUNCTIONS CREATE/EXTEND/DELETE ARE SITUATED 
*   IN MODULE 'FMCDEF' BUT LOGICALLY BELONG TO OPEN/CLOSE.
* 
*   A SPECIAL ENTRY IS USED FOR I/O 
*   FUNCTIONS WHERE REQUESTED SECTORS ARE 
*   SPLIT OVER TWO OR MORE FILE EXTENTS:
* 
*   - FMSPLI   READ/WRITE (SPLIT I/O)         (OPTIONS: 0)
* 
* 
*   ENTRY PARAMETERS: 
* 
*   A1 = ORDER OPTION AND CODE (RFP/OPEN/CLOSE) 
*      = PARAMETER BLOCK ADDRESS (SPLIT I/O)
*   A3 = TTAB ADDRESS OF CALLING TASK 
*   A4 = FUNCTION INDEX (0 = RFP, 2 = OPEN, 4 = CLOSE, 6 = SPLIT I/O) 
*   A8 = FM:ECB ADDRESS 
* 
	EJECT			FMTASK 
* 
* 
FMTASK	EQU	*	FMTASK ACTIVATION ENTRY
* 
*	PERFORM SOME HOUSEKEEPING 
* 
	CM	ECBCW1,A8	CLEAR 1ST CW
	LDR	A5,A3	TTAB ADDRESS OF CALLING TASK 
	ST	A5,TTAB	SAVE TTAB ADDRESS CALLING TASK
	LDR	A7,A1	SAVE PARAMETER 
* 
	IFT	CPU852=1 
	LDKL	A2,FM:BUF	FMTASK DISC SECTOR BUFFER 
	ST	A2,ECBBA,A8	SET BUFFER ADDRESS IN ECB 
	LDKL	A2,256
	ST	A2,ECBRL,A8	SET REQUESTED LENGTH IN ECB 
	XIF
* 
	IFT	CPU852=0 
	MLK	3
	DATA	/8000,FM:BUF,256
	MSR	3,A8	INITIALIZE FM:ECB 
	LDR	A1,A7	RESTORE PARAMETER
	XIF
* 
	CM	RETCOD	RESET RETURN CODE
	LD	A9,TTB:SA+16,A5	USER ECB ADDRESS
	LDKL	A14,FM:STB	FMTASK STACK BASE
* 
	IFT	MMUPAG=0 
	LD	A10,ECBBA,A9	FPB/BUFFER 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 
	EL	A10,ECBBA,A9	USER FPB/BUFFER ADDRESS
	XIF
* 
	EJECT			FMTASK 
* 
*   BRANCH TO APPROPRIATE FUNCTION HANDLER. 
* 
*   THE FOLLOWING PARAMETERS ARE SUPPLIED TO
*   THE RESP. FUNCTION HANDLER: 
* 
*   A1 = ORDER OPTION 
*   A5 = TTAB ADDRESS OF CALLING TASK 
*   A7 = COMPLETE PARAMETER FROM A1 
*   A8 = FM:ECB ADDRESS 
*   A9 = USER ECB ADDRESS 
*  A10 = FPB ADDRESS
* 
	ANK	A1,/FF	ORDER OPTION
	ABI	ORDTAB,A4	BRANCH TO FUNCTION HANDLER 
* 
ORDTAB	EQU	*	ADDRESSES TO FUNCTION HANDLERS 
	DATA	FMRPAR	READ FILE PARAMETERS 
	DATA	FMOPEN	OPEN/CREATE/EXTEND FILE
	DATA	FMCLOS	CLOSE/DELETE FILE
* 
	IFT	MULEXT=1 
	DATA	FMSPLI	SPLIT I/O
	XIF
* 
	IFT	MULEXT=0 
	DATA	FM:RQE	SPLIT I/O NOT INCLUDED 
	XIF
* 
	EJECT			FMTASK 
* 
* 
**********
* FMOPEN *
**********
* 
* 
*   FILE MANAGEMENT ADMINISTRATION FUNCTIONS: 
*   OPEN/CREATE/EXTEND FILE 
* 
*   ENTRY PARAMETERS: 
* 
*   A1 = ORDER OPTION 
*   A8 = FM:ECB ADDRESS 
*   A9 = USER ECB ADDRESS 
*  A10 = FPB ADDRESS
* 
FMOPEN	EQU	*	OPEN/CREATE/EXTEND FILE
	LDR	A13,A1	SAVE ORDER OPTION 
* 
	IFT	MMUPAG=1 
* 
*	MOVE USER FPB TO SYSTEM FPB (FM:FPB)
* 
	LDR	A1,A10	USER FPB ADDRESS
	LDKL	A2,FM:FPB	FM FPB ADDRESS
	LDR	A10,A2	SAVE IT 
	LDK	A3,FPBLEN	FPB LENGTH (BYTES) 
	MVUS	A3	MOVE USER FPB TO FM:FPB
	XIF
* 
	EJECT			FMTASK 
* 
* 
	LDKL	A5,FILCOD	FILE CODE TABLE ADDRESS 
	LDK	A7,FPB:V1	1ST VOLUME NAME DISPLACEMENT IN FPB
* 
*	CHECK IF ANY VOLUME NAME SPECIFIED
* 
FMOP00	EQU	*
	LDR	A2,A10	FPB ADDRESS 
	ADR	A2,A7	POINT TO VOLUME NAME 
	LDR*	A2,A2	FIRST WORD OF VOLUME NAME 
	RF(Z)	FMOP20	NO VOLUME NAME SPECIFIED
	SUKL	A2,/2020	CHECK IF SPACES
	RF(Z)	FMOP20	NO VOLUME NAME SPECIFIED
	LDKL	A4,DFTAB-1	DISC FILE CODE TABLE ADDRESS-1 
* 
*	CONVERT VOLUME NAME TO FILE CODE
* 
FMOP10	EQU	*
	LDK	A2,0 
	ADK	A4,1	POINT TO NEXT FILE CODE 
	CWK	A4,DFTABE	CHECK IF END OF DFTAB
	RF(E)	FM:INE	FILE CODE NOT FOUND, RETURN 
	LCR	A2,A4	NEXT FILE CODE 
	CF	A14,FNDNAM	FIND VOLUME NAME ADDRESS 
	LDR	A2,A10	FPB ADDRESS 
	ADR	A2,A7	POINT TO CURRENT VOLUME NAME IN FPB
	LDK	A3,6	VOLUME NAME LENGTH
	CF	A14,CMPSTR	COMPARE VOLUME NAMES 
	RB(NE)	FMOP10	VOLUME NAMES NOT EQUAL 
	LCR	A2,A4	FILE CODE
	SC	A3,DWTNVL+1,A6	CLEAR NVL BITS (A3 = 0 FROM CMPSTR)
* 
	EJECT			FMTASK 
* 
*	STORE FILE CODE (OR ZERO) IN FILE CODE TABLE (FILCOD) 
* 
FMOP20	EQU	*
	SCR	A2,A5	SAVE FILE CODE 
	ADK	A5,1 
	ADK	A7,FPB:V2-FPB:V1	NEXT VOLUME NAME DISPLACEMENT 
	CWK	A5,FILCOD+4	CHECK IF END OF TABLE
	RB(NE)	FMOP00	MORE VOLUMES TO CHECK
	SUK	A5,4	FILE CODE TABLE ADDRESS 
* 
*	GET FILE CODE OF FIRST SPECIFIED VOLUME 
* 
FMOP30	EQU	*
	LCR	A7,A5	ONE FILE CODE
	ANK	A7,/FF 
	RF(NZ)	FMOP40	FIRST FILE CODE TO TREAT 
	ADK	A5,1	POINT TO NEXT FILE CODE 
	CWK	A5,FILCOD+4	CHECK IF END OF TABLE
	RB(NE)	FMOP30	CHECK NEXT FILE CODE 
* 
*	VOLUME/FILE NOT FOUND 
* 
FM:INE	EQU	*	VOLUME/FILE NOT FOUND
	LDKL	A4,/8800	RETURN CODE
	RF	ER:RTN
* 
	EJECT			FMTASK 
* 
*	CHECK ORDER OPTION
* 
FMOP40	EQU	*
	ST	A5,VOLUME	CURRENT VOLUME FILE CODE ADDRESS
	LDR	A4,A13	ORDER OPTION
	RF(Z)	OPEN	OPEN FILE 
* 
	IFT	FMCDEF=1 
	SUK	A4,1 
	ABL(Z)	EXTEND	EXTEND FILE
	SUK	A4,1 
	ABL(Z)	CREATE	CREATE FILE
	XIF
* 
*	REQUEST ERROR 
* 
FM:RQE	EQU	*	REQUEST ERROR EXIT 
	LDKL	A4,/8000	RETURN CODE
	RF	ER:RTN
* 
	EJECT			FMTASK 
* 
* 
********
* OPEN *
********
* 
* 
*   ENTRY PARAMETERS: 
* 
*   A4 = 0
*   A5 = VOLUME FILE CODE ADDRESS IN FILCOD 
*   A7 = FILE CODE, FIRST VOLUME
*   A8 = FM:ECB ADDRESS 
*   A9 = USER ECB ADDRESS 
*  A10 = FPB ADDRESS
* 
OPEN	EQU	*	OPEN FILE
* 
	EJECT			FMTASK 
* 
*	CHECK IF FILE IS ALREADY OPENED AND 
*	FIND FWT ADDRESS
* 
	LD	A12,SCTFWT	FWT CHAIN START ADDRESS
* 
OP:005	EQU	*
	LDK	A2,1 
* 
OP:010	EQU	*
	LDR	A6,A12	NEXT FWT ADDRESS
	RF(Z)	OP:060	NO MORE FWT:S AVAILABLE 
	LDR*	A12,A6	FIRST WORD OF FWT
	TM	A12,A2	CHECK IF USED
	RF(NZ)	OP:015	USED, CHECK FILE NAME
	ADK	A4,0	CHECK IF FREE FWT ADDRESS ALREADY SAVED 
	RB(NZ)	OP:010	YES, DON'T SAVE IT 
	LDR	A4,A6	NO, SAVE THIS FWT ADDRESS
	RB	OP:010	CONTINUE SEARCH
* 
OP:015	EQU	*
	XRR	A12,A2	RESET FWT USED BIT
	LDR	A2,A10	FPB ADDRESS 
	ADK	A2,FPB:FN
	CF	A14,CMPFIL	COMPARE FILE NAMES 
	RB(NE)	OP:005	FILE NAMES NOT EQUAL 
	CC	A7,FWTVOL,A6	CHECK FILE CODE OF FIRST EXTENT
	RB(NE)	OP:005	NOT THIS FILE
* 
	EJECT			FMTASK 
* 
*	FILE IS ALREADY OPENED: 
*	CHECK ATTACH PARAMETER AND NUMBER OF USERS
* 
	IFT	ATTDET=1 
	LC	A1,FPB:SH,A10	SHAREABILITY PARAMETER
	ANK	A1,/FF 
	RF(Z)	OP:020	NO ATTACH REQUESTED 
	LD	A2,FWTTAB,A6	ATTACH WORD (TTAB ADDRESS) 
	RF(Z)	OP:018	FILE NOT ATTACHED 
	CW	A2,TTAB	CHECK IF ATTACHED BY THIS TASK
	RF(NE)	OP:040	NO, ATTACHED TO ANOTHER TASK 
* 
OP:018	EQU	*
	LD	A5,TTAB	TTAB ADDRESS CALLING TASK 
	ST	A5,FWTTAB,A6	INDICATE ATTACHED
	XIF
* 
OP:020	EQU	*
	LC	A1,FWTPAR,A6	ACCESS PARAMETERS
	LDR	A2,A1
	ANK	A1,/3F	NUMBER OF USERS 
	SUK	A1,/3F 
	ABL(NZ)	OPEXIT 
* 
	EJECT			FMTASK 
* 
*	ERROR EXITS 
* 
	LDKL	A4,/0210	RETURN CODE (TOO MANY USERS) 
	RF	ER:RTN
* 
OP:030	EQU	*	NO FREE FWT AVAILABLE
	LDKL	A4,/8400	RETURN CODE
* 
	IFT	ATTDET=1 
	RF	ER:RTN
* 
OP:040	EQU	*	FILE ATTACHED
	LDK	A4,/40	RETURN CODE 
	XIF
* 
ER:RTN	EQU	*
	ORS	A4,RETCOD	PREPARE RETURN CODE
	ABL	FMEXIT	RETURN
* 
	EJECT			FMTASK 
* 
*	FILE IS NOT OPENED BEFORE:
*	FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S
* 
*	MOVE FILE NAME FROM FPB TO FWT
* 
OP:060	EQU	*
	LDR	A6,A4	FREE FWT ADDRESS 
	RB(Z)	OP:030	NO FREE FWT AVAILABLE 
	LDR	A1,A10	FPB ADDRESS 
	ADK	A1,FPB:FN
	LDR	A3,A6	FWT ADDRESS
	ADK	A3,FWTNAM
	CF	A14,FM:MV8	MOVE FILE NAME 
	LDR	A2,A7	RESTORE FILE CODE
* 
	EJECT			FMTASK 
* 
* 
********* 
* OPEXT * 
********* 
* 
* 
*   OPEN EXTENDED FILE (CALLED FROM EXTEND) 
* 
*   A2 = DISC FILE CODE 
*   A6 = FWT ADDRESS
*   A8 = FM:ECB ADDRESS 
*   A9 = USER ECB ADDRESS 
*  A10 = FPB ADDRESS
* 
OPEXT	EQU	*	ENTRY USED BY EXTEND FILE 
OP:070	EQU	*
* 
*	FIND ONE FILE EXTENT
* 
	CM	FEXTNO	RESET NO OF FILE EXTENTS 
	LD	A5,TTAB	TTAB ADDRESS OF CALLING TASK
	CF	A14,FNDVTC	FIND VTOC ENTRY
* 
OP:075	EQU	*
	LDR	A11,A2	SAVE CURRENT VTOC SECTOR NUMBER 
	RF(NZ)	OP:080	ONE FILE EXTENT FOUND
	ADK	A4,0	CHECK DISC RETURN CODE
	RF(Z)	OP:160	NO MORE FILE EXTENTS ON THIS VOLUME 
	ABL	OPCLOS	DISC ERROR, CLOSE FILE
* 
	EJECT			FMTASK 
* 
*	MOVE EXTENT LENGTH AND EXTENT BASE
*	TO FWT AND/OR EWT BLOCKS
* 
OP:080	EQU	*
	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 
	SLL	A2,6 
	ORR	A2,A3	FILE SECTION AND EXTENT NUMBER 
	ECR	A2,A2
* 
	IFT	FMCDEF=1 
	LC	A4,TTB:SA+14,A5	ORDER OPTION
	SRC	A4,1	CHECK IF EXTEND 
	RF(NN)	OP:085	NOT EXTEND 
	CW	A3,SEXTNO	CHECK IF VTOC ALREADY TREATED 
	RF(NG)	OP:110	YES, SKIP THIS VTOC
	XIF
* 
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:095	FIRST FILE EXTENT 
* 
OP:090	EQU	*
	INH
	CF	A15,GETBLK	EWT BLOCK 1
	RF	OP:100
* 
	EJECT			FMTASK 
* 
* 
OP:095	EQU	*
	LC	A4,VTC:NE,A13	NO OF FILE EXTENTS
	ANK	A4,/FF 
	NGR	A4,A4	NEGATE VALUE 
	ADS	A4,FEXTNO
	LD	A4,FWTVTC,A6	VTOC SECTOR NUMBER, FIRST EXTENT 
	RB(NZ)	OP:090	FIRST EXTENT ALREADY FOUND 
	ST	A2,FWTEXL-2,A6	STORE FILE EXTENT LENGTH, FIRST EXTENT 
	ST	A1,FWTEXL,A6
* 
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 
	OR	A3,FWTVTC,A6	CHECK IF FIRST EXTENT
	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	*
	IM	FEXTNO	INDICATE ONE MORE EXTENT FOUND 
	RF(Z)	OP:160	NO MORE FILE EXTENTS ON THIS VOLUME 
	CF	A14,FNDVT3	FIND NEXT VTOC ENTRY 
	RB	OP:075
* 
	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
* 
*	CHECK IF MORE VOLUMES SPECIFIED 
* 
OP:160	EQU	*
	IM	VOLUME	NEXT VOLUME FILE CODE ADDRESS
	LD	A7,VOLUME	VOLUME FILE CODE ADDRESS
	CWK	A7,FILCOD+4	CHECK IF END OF TABLE
	RF(E)	OP:170	ALL VOLUMES CHECKED 
* 
	EJECT			FMTASK 
* 
* 
	IFT	FMCDEF=1 
	LDKL	A2,-1 
	ST	A2,SEXTNO	RESET START EXTENT NUMBER 
	XIF
* 
	LCR	A2,A7	NEXT FILE CODE 
	ANK	A2,/FF 
	RB(NZ)	OP:070	NEXT VOLUME
	RB	OP:160
* 
OP:170	EQU	*
	LD	A2,FWTVTC,A6	VTOC SECTOR NUMBER, FIRST EXTENT 
	ABL(Z)	FM:INE	NO FILE EXTENT FOUND 
* 
	IFT	FMCDEF=1 
	LC	A2,TTB:SA+14,A5	ORDER OPTION
	SRC	A2,1	CHECK IF EXTEND 
	RF(N)	FM:270	YES, RETURN 
	XIF
* 
*	CHECK ATTACH PARAMETER
* 
	IFT	ATTDET=1 
	LC	A2,FPB:SH,A10	SHAREABILITY PARAMETER
	ANK	A2,/FF 
	RF(Z)	OP:240	NO ATTACH REQUESTED 
	LDR	A2,A5	TTAB ADDRESS 
* 
OP:240	EQU	*
	ST	A2,FWTTAB,A6	SET ATTACH WORD
	XIF
* 
	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: 
*	CHECK BASIC ORDERS PARAMETER, INCREMENT NUMBER OF USERS 
*	BY ONE AND RETURN FILE NUMBER FOR THIS FILE TO THE USER 
* 
OPEXIT	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
* 
	IFT	MMUPAG=0 
	LD	A4,FWTFNR,A6	FILE NUMBER
	SC	A4,ECBFN,A9	SET FILE NUMBER IN ECB
	XIF
* 
	IFT	MMUPAG=1 
	ELR	A4,A9
	LC	A4,FWTFNR,A6	FILE NUMBER
	ESR	A4,A9	SET FILE NUMBER IN ECB 
	XIF
* 
FM:270	EQU	*
	RF	OCEXIT	RETURN VIA OPEN/CLOSE EXIT 
* 
	EJECT			FMTASK 
* 
* 
**********
* FMCLOS *
**********
* 
* 
*   FILE MANAGEMENT ADMINISTRATION FUNCTIONS: 
*   CLOSE/DELETE FILE 
* 
*   ENTRY PARAMETERS: 
* 
*   CR = 0 IF CLOSE, ELSE CR > 0
*   A1 = ORDER OPTION 
*   A5 = TTAB ADDRESS OF CALLING TASK 
*   A8 = FM:ECB ADDRESS 
*   A9 = USER ECB ADDRESS 
*  A10 = FPB ADDRESS
* 
FMCLOS	EQU	*	CLOSE/DELETE FILE
* 
*	CHECK ORDER OPTION
* 
	IFT	FMCDEF=0 
	ABL(NZ)	FM:RQE	ILLEGAL ORDER OPTION
	XIF
* 
	IFT	FMCDEF=1 
	RF(Z)	CLOSE	CLOSE FILE 
	SUK	A1,2 
	ABL(Z)	DELETE	DELETE FILE
	ABL	FM:RQE	ILLEGAL ORDER OPTION
	XIF
* 
	EJECT			FMTASK 
* 
* 
********* 
* CLOSE * 
********* 
* 
*   ENTRY PARAMETERS: 
* 
*   A5 = TTAB ADDRESS OF CALLING TASK 
*   A8 = FM:ECB ADDRESS 
*   A9 = USER ECB ADDRESS 
*  A10 = FPB ADDRESS
* 
* 
CLOSE	EQU	*	CLOSE FILE
	CF	A14,RDVTOC	READ VTOC RECORD (FIRST EXTENT)
	ADK	A4,0	CHECK RETURN CODE 
	RF(NZ)	CL:000	ERROR
	LD	A3,FWTPAR,A6	ACCESS PARAMETERS
	RF(NN)	CL:005	NOT NVL
	LDK	A4,/20	SET NVL IN RETURN CODE
* 
*	ERROR AT CLOSE: CHECK HOW SERIOUS 
* 
CL:000	EQU	*
	ORS	A4,RETCOD	PREPARE RETURN CODE
* 
	IFT	ATTDET=1 
	SUK	A4,/40 
	RF(Z)	OCEXIT	FILE ATTACHED, DON'T CLOSE
	XIF
* 
	ADK	A6,0	CHECK FWT ADDRESS 
	RF(Z)	OCEXIT	NO FWT FOUND, RETURN
	RF	CL:010	DON'T WRITE VTOC 
* 
	EJECT			FMTASK 
* 
*	MOVE FRN FROM FPB TO VTOC 
* 
CL:005	EQU	*
	IFT	MMUPAG=0 
	IFT	CPU852=1 
	LD	A1,FPB:FR,A10	FILE RECORD NUMBER
	LD	A2,FPB:FR+2,A10 
	ST	A1,VTC:LR,A13	SET LRN IN VTOC RECORD
	ST	A2,VTC:LR+2,A13 
	XIF
* 
	IFT	MMUPAG=0 
	IFT	CPU852=0 
	ML	2,FPB:FR,A10	FILE RECORD NUMBER 
	MS	2,VTC:LR,A13	SET LRN IN VTOC RECORD 
	XIF
* 
	IFT	MMUPAG=1 
	EL	A1,FPB:FR,A10	FILE RECORD NUMBER
	EL	A2,FPB:FR+2,A10 
	MS	2,VTC:LR,A13	SET LRN IN VTOC RECORD 
	XIF
* 
*	WRITE VTOC TO DISC WITH NEW FILE RECORD NUMBER IF REQUESTED 
* 
	ORR	A1,A2	CHECK FILE RECORD NUMBER 
	RF(Z)	CL:010	FRN ZERO, DON'T WRITE VTOC
	LDK	A7,/95	PHYSICAL WRITE
	CF	A14,FM:IO	WRITE VTOC RECORD TO DISC 
* 
	EJECT			FMTASK 
* 
*	DECREMENT NUMBER OF USERS FOR THIS FILE BY ONE. 
*	FWT AND EWT ARE RELEASED IF NO USER REMAINS.
* 
CL:010	EQU	*
	LC	A1,FWTPAR,A6	ACCESS PARAMETERS
	LDR	A2,A1
	ANK	A2,/3F	NUMBER OF USERS 
	SUK	A2,1	DECREMENT NO OF USERS BY ONE
* 
	IFT	MMUPAG=0 
	SC	A2,FPB:US,A10	RETURN REMAINING NO OF USERS
	XIF
* 
	IFT	MMUPAG=1 
	EL	A3,FPB:US,A10 
	ANK	A3,/FF 
	ECR	A2,A2	NUMBER OF USERS TO LEFT BYTE 
	ORR	A3,A2
	ES	A3,FPB:US,A10	RETURN REMAINING NO OF USERS
	SRL	A2,8	NUMBER OF USERS TO RIGHT BYTE 
	XIF
* 
	RF(P)	DLCLO2	DON'T RELEASE FWT IF ANY USER LEFT
* 
	EJECT			FMTASK 
* 
* 
**********
* DLCLO1 *
* OPCLOS *
**********
* 
* 
*   RELEASE FWT AND EWT BLOCKS
* 
*   INPUT:  A6 = FWT ADDRESS
*           A9 = USER ECB ADDRESS 
* 
DLCLO1	EQU	*	ENTRY USED BY DELETE FILE
	LDK	A2,1 
	XRRS	A2,A6	RESET USED BIT IN FWT 
* 
OPCLOS	EQU	*	ENTRY USED BY OPEN FILE
	LD	A4,FWTEW2,A6	ADDRESS TO FIRST EWT STRUCTURE 
	RF(Z)	CL:030	NO MORE BLOCKS TO RELEASE 
* 
*	RETURN EWT BLOCKS TO MONITOR BLOCK POOL 
* 
CL:020	EQU	*
	INH
	CF	A15,FREBLK	RELEASE EWT BLOCK
	ENB
	LDR	A4,A3	EWT BLOCK ADDRESS
	RB(NZ)	CL:020
	CM	FWTEW2,A6	RESET EWT STRUCTURE POINTER 
* 
CL:030	EQU	*
	CM	FWTVTC,A6	RESET VTOC SECTOR NUMBER
	RF	CL:050	RETURN 
* 
	EJECT			FMTASK 
* 
* 
DLCLO2	EQU	*	ENTRY USED BY DELETE FILE
	ANK	A1,/C0	SKIP NUMBER OF USERS
	ORR	A1,A2	PUT TOGETHER ACCESS PARAMETERS 
	SC	A1,FWTPAR,A6
* 
*	DETACH FILE 
* 
CL:050	EQU	*
	IFT	FMCDEF=1 
	LD	A5,TTAB	TTAB ADDRESS OF CALLING TASK
	XIF
* 
	IFT	ATTDET=1 
	INH
	CF	A15,DET:FM	DETACH FILE
	XIF
* 
OCEXIT	EQU	*	OPEN/CLOSE COMMON EXIT LABEL 
	ABL	FMEXIT 
* 
	EJECT			FMTASK 
* 
* 
**********
* FMRPAR *
**********
* 
* 
*   FILE MANAGEMENT ADMINISTRATION FUNCTIONS: 
*   READ FILE PARAMETERS
* 
*   ENTRY PARAMETERS: 
* 
*   CR = 0 IF LEGAL ORDER OPTION
*   A1 = ORDER OPTION 
*   A5 = TTAB ADDRESS OF CALLING TASK 
*   A8 = FM:ECB ADDRESS 
*   A9 = USER ECB ADDRESS 
*  A10 = FPB ADDRESS
* 
FMRPAR	EQU	*	READ FILE PARAMETERS 
* 
*	CHECK ORDER OPTION
* 
	ABL(NZ)	FM:RQE	ILLEGAL ORDER OPTION
* 
	IFT	MMUPAG=1 
	LDKL	A10,FM:FPB	SYSTEM FPB ADDRESS 
	XIF
* 
	EJECT			FMTASK 
* 
* 
	CF	A14,RDVTOC	READ VTOC RECORD (FIRST EXTENT)
	ADK	A4,0	CHECK RETURN CODE 
	RF(NZ)	FMEXIT	ERROR, RETURN
	SC	A4,FPB:BO,A10	RESET BASIC ORDER PARAMETER 
* 
*	MOVE SPACES TO VOLUME NAMES 
*	AND RESET FILE SECTION SIZES. 
* 
	IFT	CPU852=1 
	LDR	A1,A10	FPB ADDRESS 
	ADK	A1,FPB:V1	1ST VOLUME NAME
	LDK	A2,4	LOOP COUNTER, OUTER LOOP
	LDK	A4,/20	SPACE 
* 
FMR:02	EQU	*	OUTER LOOP ENTRY 
	LDK	A3,6	LOOP COUNTER, INNER LOOP
* 
FMR:04	EQU	*	INNER LOOP ENTRY 
	SCR	A4,A1	MOVE SPACES TO VOLUME NAME 
	ADK	A1,1 
	SUK	A3,1 
	RB(P)	FMR:04 
	CMR	A1	RESET FILE SECTION SIZE 
	CM	2,A1
	ADK	A1,FPB:V2-FPB:S1	NEXT VOLUME NAME
	SUK	A2,1 
	RB(P)	FMR:02 
	XIF
* 
	IFT	CPU852=0 
	MLK	3
	DATA	/2020,/2020,/2020 
	LDK	A5,0	(A4 = 0 FROM RDVTOC)
	MS	5,FPB:V1,A10
	MS	5,FPB:V2,A10
	MS	5,FPB:V3,A10
	MS	5,FPB:V4,A10
	XIF
* 
	EJECT			FMTASK 
* 
*	MOVE PARAMETERS FROM VTOC AND FWT TO FPB
* 
	IFT	CPU852=1 
	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 
	XIF
* 
	IFT	CPU852=0 
	ML	4,VTC:LR,A13	LRN, RECORD LENGTH AND BLOCK FACTOR
	MS	2,FPB:FR,A10
	STR	A3,A10 
	ST	A4,FPB:BF,A10 
	LD	A1,VTC:MN,A13	MONITOR AND SOP SWITCH NUMBER 
	ECR	A1,A1
	LDR	A2,A1
	LC	A2,VTC:IF,A13	NUMBER OF INDEX FILES 
	LD	A3,VTC:KA,A13	KEY ADDRESS IN RECORD 
	MS	3,FPB:MN,A10
	XIF
* 
	IFT	ATTDET=1 
	LD	A1,FWTTAB,A6	SHAREABILITY PARAMETER 
	RF(Z)	FMR:05	NOT ATTACHED
	LDK	A1,1 
	XIF
* 
	IFT	ATTDET=0 
	LDK	A1,0	NOT ATTACHED
	XIF
* 
FMR:05	EQU	*
	SC	A1,FPB:SH,A10	SET ATTACH PARAMETER
* 
	EJECT			FMTASK 
* 
* 
	LD	A1,FWTPAR,A6	ACCESS PARAMETERS
	SLL	A1,1 
	RF(NN)	FMR:10	PHYSICAL ORDERS FOR THIS FILE
	LDK	A2,1 
	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 
* 
*	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,FM:MOV	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
	CF	A14,FM:MV8	MOVE FILE NAME 
	ADK	A6,FWTEW1	ADDRESS TO FIRST EWT STRUCTURE 
	LDR	A11,A6 
	LDR*	A12,A11	ADDRESS TO 2ND EWT BLOCK
* 
	EJECT			FMTASK 
* 
*	MOVE VOLUME NAME FROM DWT TO FPB
* 
FMR:20	EQU	*
	LDR	A3,A10	FPB ADDRESS 
	ADK	A3,FPB:V1-10 
	LD	A1,EWTSEX,A11	FILE SECTION AND EXTENT NUMBER
	SLC	A1,2 
	ANK	A1,3	FILE SECTION NUMBER 
* 
FMR:30	EQU	*
	ADK	A3,FPB:V2-FPB:V1	COMPUTE VOLUME NAME DISPLACEMENT
	SUK	A1,1 
	RB(NN)	FMR:30
	LC	A2,EWTVOL,A12	DISC FILE CODE
	LDR	A13,A2	SAVE FILE CODE
	CF	A14,FNDNAM	FIND VOLUME NAME ADDRESS 
	CF	A14,FM:MOV	MOVE VOLUME NAME 
* 
	IFT	CPU852=1 
	LD	A1,EWTEXL-2,A11	FILE EXTENT LENGTH
	ANK	A1,/FF 
	LD	A2,EWTEXL,A11 
	XIF
* 
	IFT	CPU852=0 
	ML	2,EWTEXL-2,A11	FILE EXTENT LENGTH 
	ANK	A1,/FF 
	XIF
* 
	EJECT			FMTASK 
* 
*	COMPUTE FILE SECTION SIZE 
* 
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
	RB	FMR:35
* 
FMR:50	EQU	*
	MSR	2,A3	STORE FILE SECTION SIZE IN FPB
	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
	RB	FMR:35
* 
FMR:50	EQU	*
	STR	A1,A3	STORE FILE SECTION SIZE IN FPB 
	ST	A2,2,A3 
	XIF
* 
	LDR	A4,A11	CHECK EWT BLOCK ADDRESS 
	RB(NZ)	FMR:20	NOT END OF EWT CHAIN 
* 
	EJECT			FMTASK 
* 
* 
	IFT	MMUPAG=1 
* 
*   MOVE SYSTEM FPB (FM:FPB) TO 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 
* 
* 
**********
* FMEXIT *
**********
* 
* 
*   SET RETURN CODE IN USER ECB, QUEUE TASK 
*   AND PERFORM EXIT ON FMTASK. 
* 
*   INPUT:  A9 = USER ECB ADDRESS 
* 
FMEXIT	EQU	*	GENERAL RETURN CODE EXIT 
	LD	A4,RETCOD	RETURN CODE 
* 
	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
* 
	LD	A5,TTAB	RESTORE TTAB ADDRESS CALLING TASK 
	ABL	QMEXIT	QUEUE TASK AND EXIT FMTASK
* 
	EJECT			FMTASK 
* 
* 
**********
* FMSPLI *
**********
* 
* 
*   FILE MANAGEMENT I/O FUNCTIONS:
*   FMSPLI IS ENTERED WHEN THE REQUESTED
*   SECTORS ARE SPLIT OVER TWO OR MORE
*   FILE EXTENTS. 
* 
*   A5 = TTAB ADDRESS OF CALLING TASK 
*   A7 = PARAMETER BLOCK ADDRESS
*   A8 = FM:ECB ADDRESS 
*   A9 = USER ECB ADDRESS 
*  A10 = USER BUFFER ADDRESS
* 
FMSPLI	EQU	*	BASIC AND PHYSICAL READ/WRITE
	IFT	MULEXT=1 
	LDR	A4,A7	PARAMETER BLOCK ADDRESS
	INH
	CF	A15,FREBLK	RELEASE BLOCK AND GET PARAMETERS 
	LDR	A13,A2	2ND EWT BLOCK ADDRESS 
	CF	A15,FCHEC2	CHECK ACCESS PAR. AND RETURN FWT ADDRESS 
	ENB
	ORS	A4,RETCOD
	RB(NZ)	FMEXIT	ERROR, RETURN
	LDR	A7,A1	ORDER CODE 
* 
	EJECT			FMTASK 
* 
* 
	IFT	MMUPAG=0 
	IFT	CPU852=1 
	LD	A1,ECBCW1,A9	SECTOR NUMBER
	LD	A2,ECBCW2,A9
	ST	A10,ECBBA,A8	SET BUFFER ADDRESS 
	LD	A10,ECBRL,A9	TOTAL REQUESTED LENGTH 
	LDR	A11,A10	SAVE IT
* 
*	SET ECB PARAMETERS AND PERFORM DISC I/O 
* 
FMSP00	EQU	*	MAIN I/O LOOP ENTRY
	ST	A1,ECBCW1,A8	SET SECTOR NO IN ECB 
	ST	A2,ECBCW2,A8
	XIF
* 
	IFT	MULEXT=1 
	IFT	MMUPAG=0 
	IFT	CPU852=0 
	ML	2,ECBCW1,A9	SECTOR NUMBER 
	ST	A10,ECBBA,A8	SET BUFFER ADDRESS 
	LD	A10,ECBRL,A9	TOTAL REQUESTED LENGTH 
	LDR	A11,A10	SAVE IT
* 
FMSP00	EQU	*	MAIN I/O LOOP ENTRY
	MS	2,ECBCW1,A8	SET SECTOR NO IN ECB
	XIF
* 
	IFT	MULEXT=1 
	IFT	MMUPAG=1 
	INH			=3 
	CF	A15,TIOMXI	CONVERT LOGICAL ADDRESS TO PHYSICAL
	ENB			=3 
	EL	A1,ECBCW1,A9	SECTOR NUMBER
	EL	A2,ECBCW2,A9
	EL	A10,ECBRL,A9	TOTAL REQUESTED LENGTH 
	LDR	A11,A10
* 
FMSP00	EQU	*	MAIN I/O LOOP ENTRY
	MS	2,ECBCW1,A8	SET SECTOR NO IN ECB
	XIF
* 
	IFT	MULEXT=1 
	LC	A1,EWTVOL,A13	DISC FILE CODE
	SC	A1,ECBFC,A8	SET FILE CODE IN ECB
	ST	A3,ECBRL,A8	SET REQUESTED LENGTH IN ECB 
	CF	A14,FM:IO	PERFORM DISC I/O
	RF(NZ)	FMSP50	DISC ERROR 
	LD	A4,ECBEL,A8	EFFECTIVE LENGTH
	SUR	A11,A4	UPDATE REMAINING LENGTH 
	RF(Z)	FMSP50	I/O COMPLETED 
* 
	EJECT			FMTASK 
* 
*	UPDATE BUFFER ADDRESS 
* 
	IFT	MMUPAG=0 
	ADS	A4,ECBBA,A8	UPDATE BUFFER ADDRESS
	XIF
* 
	IFT	MULEXT=1 
	IFT	MMUPAG=1 
	LDK	A3,0	MOST SIGNIFICANT PART OF LENGTH	=3
	SRL	A4,1	WORD MODE	=3
	MLR	2,A8	BUFFER ADDRESS
	SLC	A1,4 
	SRL	A2,1	WORD MODE 
	DAR	A3		=3 
	SLL	A2,1	BYTE MODE 
	SRC	A1,4 
	MSR	2,A8	SET UPDATED BUFFER ADDRESS IN ECB 
	XIF
* 
	EJECT			FMTASK 
* 
*	GET PARAMETERS FROM NEXT EWT STRUCTURE
*	AND COMPUTE NEW REQUESTED LENGTH
* 
	IFT	MULEXT=1 
	LDR*	A13,A13	NEXT EWT STRUCTURE
	RF(Z)	FMSP40	END OF EWT STRUCTURE
	ECR	A3,A11	CONVERT REMAINING LENGTH TO SECTORS 
* 
	IFT	CPU852=1 
	LD	A1,EWTEXL-1,A13	EXTENT LENGTH, PART 1 
	ANK	A1,/FF 
	RF(NZ)	FMSP30	EXTENT LARGE ENOUGH
	LD	A2,EWTEXL,A13	EXTENT LENGTH, PART 2 
	XIF
* 
	IFT	MULEXT=1 
	IFT	CPU852=0 
	ML	2,EWTEXL-1,A13	EXTENT LENGTH
	ANK	A1,/FF 
	RF(NZ)	FMSP30	EXTENT LARGE ENOUGH
	XIF
* 
	EJECT			FMTASK 
* 
* 
	IFT	MULEXT=1 
	CWR	A3,A2
	RF(NG)	FMSP30	EXTENT LARGE ENOUGH
	LDR	A3,A2	NO OF SECTORS IN THIS I/O
* 
FMSP30	EQU	*
	ECR	A3,A3	CONVERT LENGTH TO BYTES
	LDR*	A13,A13	2ND EWT BLOCK 
* 
	IFT	CPU852=1 
	LD	A1,EWTEXB-1,A13	EXTENT BASE 
	ANK	A1,/FF 
	LD	A2,EWTEXB,A13 
	RB	FMSP00
	XIF
* 
	IFT	MULEXT=1 
	IFT	CPU852=0 
	ML	2,EWTEXB-1,A13	EXTENT BASE
	ANK	A1,/FF 
	RB	FMSP00
	XIF
* 
	EJECT			FMTASK 
* 
* 
FMSP40	EQU	*	ILLEGAL REQUESTED LENGTH 
	IFT	MULEXT=1 
	LDKL	A1,/2000	RETURN CODE
	ORS	A1,RETCOD
* 
FMSP50	EQU	*
	SUR	A10,A11	COMPUTE EFFECTIVE LENGTH 
* 
	IFT	MMUPAG=0 
	ST	A10,ECBEL,A9	SET EFFECTIVE LENGTH IN USER ECB 
	XIF
* 
	IFT	MULEXT=1 
	IFT	MMUPAG=1 
	ES	A10,ECBEL,A9	SET EFFECTIVE LENGTH IN USER ECB 
	XIF
* 
	IFT	MULEXT=1 
	RB	FMEXIT	RETURN 
	XIF
* 
	EJECT			FMTASK 
* 
* 
**********
* FM:PWR *
* FMREAD *
**********
* 
* 
*   INPUT:  A2 = SECTOR NUMBER, PART 2
*           A8 = FM:ECB/FMECB2 ECB ADDRESS
* 
*   OUTPUT: CR = 0 IF OK, ELSE
*             <> 0 IF DISC ERROR
*           A4 = DISC RETURN CODE (EXCEPT RETRY BIT)
*	   A7 IS DESTROYED
* 
FM:PWR	EQU	*	PHYSICAL WRITE ENTRY 
	LDK	A7,/95	ORDER CODE
	RF	FM:LKM
* 
FMREAD	EQU	*	PHYSICAL READ ENTRY
	LDK	A7,/91	ORDER CODE
* 
FM:LKM	EQU	*	COMMON I/O ROUTINE ENTRY 
	ST	A2,ECBCW2,A8	SET SECTOR NUMBER IN ECB 
* 
FM:IO	EQU	* 
	ADKL	A14,4	ADJUST STACK POINTER
	LKM
	DATA	1 
	LD	A4,ECBRC,A8	RETURN CODE 
	ORS	A4,RETCOD	PREPARE RETURN CODE
	ANKL	A4,/FEFF	SKIP RETRY BIT 
	ABR*	A14	RETURN (WITHOUT CHANGING CR)
* 
	EJECT			FMTASK 
* 
* 
**********
* FNDNAM *
**********
* 
* 
*   FNDNAM WILL CONVERT THE SUPPLIED FILE CODE
*   TO VOLUME NAME ADDRESS IN THE DISC DWT. 
* 
*   INPUT:  A2 = FILE CODE
* 
*   OUTPUT: A1 = VOLUME NAME ADDRESS
*	   A2 = 6 
*	   A6 = DISC DWT ADDRESS + DOUBLE INDEX 
* 
FNDNAM	EQU	*	FIND VOLUME NAME ADDRESS 
	INH
	CF	A15,FNDDWD	FIND DISC DWT ADDRESS
	ENB
* 
*	CHECK IF DISC RECOVERY GOING ON AND IN THAT CASE
*	SWITCH TASK WHILE WAITING FOR RECOVERY COMPLETION 
* 
FNAM05	EQU	*
	LD	A1,DWTST,A6 
	ANK	A1,1 
	RF(NZ)	FNAM10	POWER ON COMPLETED FOR THIS DISC 
	LKM		WAIT FOR RECOVERY COMPLETION
	DATA	0	SWITCH TASKS
	RB	FNAM05	CHECK DISC AGAIN 
* 
	EJECT			FMTASK 
* 
* 
FNAM10	EQU	*
	LDR	A1,A6	DISC DWT ADDRESS 
	LDR	A6,A2	DISC INDEX 
	ADR	A6,A6	DOUBLE INDEX 
	ADR	A6,A1	ADD DWT ADDRESS
* 
*	COMPUTE VOLUME NAME ADDRESS IN DWT
* 
FNAM20	EQU	*
	ADK	A1,6	NEXT VOLUME NAME IN DWT 
	SUK	A2,1	DECREMENT INDEX 
	RB(NN)	FNAM20
	LDK	A2,6 
	ADKL	A1,DWTVOL-6 
	RTN	A14
* 
	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 
*	   A8 = FM:ECB ADDRESS
*           A9 = USER ECB ADDRESS 
* 
*   OUTPUT: A1 = 0 IF FIRST FILE EXTENT FOUND 
*           A2 = VTOC SECTOR NUMBER (FIRST EXTENT)
*	   A4 = RETURN CODE (=0 IF OK)
*           A6 = FWT ADDRESS
*          A13 = VTOC RECORD ADDRESS IN FM:BUF
*           A3, A7, A11 ARE DESTROYED 
* 
RDVTOC	EQU	*	CHECK ACCESS PAR. AND READ VTOC RECORD 
	INH
	CF	A15,FCHEC2	CHECK ACCESS PAR. AND RETURN FWT ADDRESS 
	ENB
	RF(NZ)	RDVT20	ERROR, RETURN
* 
	EJECT			FMTASK 
* 
* 
	LC	A4,FWTVOL,A6	DISC FILE CODE (FIRST EXTENT)
	STR	A4,A8
	LD	A2,FWTVTC,A6	VTOC SECTOR NUMBER (FIRST EXTENT)
* 
RDVTO2	EQU	*	ENTRY USED BY FMCDEF 
	CF	A14,FNDVT2	READ VTOC SECTOR AND ONE VTOC RECORD 
* 
RDVT10	EQU	*
	ADK	A4,0	CHECK RETURN CODE 
	RF(NZ)	RDVT20	DISC ERROR, RETURN 
	LD	A1,VTC:EN,A13	FILE EXTENT NUMBER
	RF(Z)	RDVT20	FIRST EXTENT FOUND
	CF	A14,FNDVT3	READ NEXT VTOC RECORD FOR THIS FILE
	RB	RDVT10	CHECK IF THIS IS THE FIRST EXTENT
* 
RDVT20	EQU	*
	ORS	A4,RETCOD	PREPARE RETURN CODE
	RTN	A14
* 
	EJECT			FMTASK 
* 
* 
**********
* FNDVTC *
**********
* 
* 
*   FNDVTC SEARCHES THE REQUESTED 
*   FILE SPECIFIED IN THE FPB.
*   RETURN IS MADE WHEN ONE EXTENT
*   HAS BEEN FOUND OR WHEN THE COMPLETE 
*   VTOC HAS BEEN SEARCHED WITHOUT MATCH. 
* 
*   INPUT:  A2 = FILE CODE
*	   A6 = FWT ADDRESS 
*	   A8 = FM:ECB ADDRESS
* 
*   OUTPUT: A2 = VTOC SECTOR NUMBER IF FOUND, ELSE
*              = 0 IF NO FILE EXTENT FOUND
*	   A4 = DISC RETURN CODE (=0 IF OK) 
*          A13 = VTOC RECORD ADDRESS IN FM:BUF
*           A1, A3, A7, A11-A12 ARE DESTROYED 
* 
FNDVTC	EQU	*	FIND VTOC ENTRY
* 
*	READ VOLUME LABEL (SECTOR 0)
* 
	SC	A2,ECBFC,A8	SET FILE CODE IN ECB
	LDK	A2,0	SECTOR NUMBER 
	CF	A14,FMREAD	READ SECTOR 0
	RF(NZ)	FVTC40	DISC ERROR, RETURN 
	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 
* 
*	READ NEXT VTOC SECTOR 
* 
FNDVT2	EQU	*	ENTRY USED BY RDVTOC/FMCDEF
	CF	A14,FMREAD	READ ONE VTOC SECTOR 
	RF(NZ)	FVTC40	DISC ERROR, RETURN 
	LDKL	A13,FM:BUF	FM:BUF ADDRESS 
	LDK	A7,VTOCBF	VTOC BLOCK FACTOR
* 
FVTC20	EQU	*
	LD	A1,VTC:ST,A13	VTOC STATUS BYTE
	ANK	A1,/FF 
	RF(NZ)	FVTC50	VTOC USED
* 
FNDVT3	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)	FNDVT2	NOT LAST VTOC SECTOR 
* 
FVTC40	EQU	*	ERROR RETURN 
	LDK	A2,0	RETURN CODE 
	RTN	A14
* 
*	VTOC USED: COMPARE FILE NAMES AND RETURN IF EQUAL 
* 
FVTC50	EQU	*
	LDR	A2,A13	VTOC ADDRESS
	CF	A14,CMPFIL	COMPARE FILE NAMES 
	RB(NE)	FNDVT3	FILE NAMES NOT EQUAL 
	LD	A2,ECBCW2,A8	CURRENT VTOC SECTOR NUMBER 
	RTN	A14	ONE FILE EXTENT FOUND
* 
	EJECT			FMTASK 
* 
* 
**********
* CMPFIL *
* CMPSTR *
* CPMDWD *
**********
* 
* 
*   CMPFIL COMPARES ONE CHARACTER STRING
*   WITH THE FILE NAME IN SPECIFIED FWT 
*   AND SETS THE CR ACCORDING TO THE RESULT.
* 
*   CMPSTR COMPARES TWO CHARACTER STRINGS 
*   AND SETS THE CR ACCORDING TO THE RESULT.
* 
*   CMPDWD COMPARES TWO DOUBLE WORDS
*   AND SETS THE CR ACCORDING TO THE RESULT.
* 
*   INPUT:  A1 = ADDRESS OF CHARACTER STRING 1 (CMPSTR/CMPDWD ONLY) 
*           A2 =    "    "      "       "    2
*           A3 = NO OF CHARACTERS TO COMPARE (CMPSTR ONLY)
*	   A6 = FWT ADDRESS (CMPFIL ONLY) 
* 
*   OUTPUT: CR = 0 IF STRINGS EQUAL, ELSE 
*              > 0 IF STRING 1 GREATER THAN STRING 2, ELSE
*              < 0 IF STRING 1 LESS THAN STRING 2 
*           A1-A3, A11 ARE DESTROYED
* 
	EJECT			FMTASK 
* 
* 
CMPFIL	EQU	*	COMPARE FILE NAMES 
	LDR	A1,A6	FWT ADDRESS
	ADK	A1,FWTNAM	POINT TO FILE NAME 
	LDK	A3,8	FILE NAME LENGTH
* 
CMPSTR	EQU	*	COMPARE CHARACTER STRINGS
	ADKL	A14,4	ADJUST STACK POINTER
* 
*	COMPARE STRINGS CHARACTER BY CHARACTER
* 
CMP:10	EQU	*
	LCR	A11,A1	ONE CHARACTER FROM STRING 1 
	CCR	A11,A2	COMPARE WITH CORR. CHAR. IN STRING 2
	ABR(NE)*	A14	STRINGS NOT EQUAL, RETURN 
	ADK	A1,1	INCREMENT STRING POINTERS 
	ADK	A2,1 
	SUK	A3,1	DECREMENT LOOP COUNTER
	RB(P)	CMP:10	CONTINUE IF NOT END OF STRINGS
	ABR*	A14	STRINGS EQUAL, RETURN 
* 
CMPDWD	EQU	*	COMPARE TWO DOUBLE WORDS 
	LDK	A3,4	LENGTH
	RB	CMPSTR
* 
	EJECT			FMTASK 
* 
* 
**********
* FM:MOV *
**********
* 
* 
*   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 
* 
FM:MV8	EQU	*	MOVE 8 CHARACTERS
	LDK	A2,8	LENGTH
	RF	FM:MOV
* 
FM:MV4	EQU	*	MOVE 4 CHARACTERS
	LDK	A2,4	LENGTH
* 
*	MOVE STRING CHARACTER BY CHARACTER
* 
FM:MOV	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)	FM:MOV	CONTINUE MOVE 
	RTN	A14
* 
* 
* 
	END

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT FMTASK  REL 11.0 81-05-13 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0072               Head {h00=0x0030, h01=0x0050, text=»   =7, FDBMEC NOT SET IN SYSTEMS WITHOUT DM «, t00=0x0000, t01=0x0042}
0x0072…0092               Head {h00=0x001c, h01=0x0050, text=»   =7, REL 11.0 81-02-04«, t00=0x0000, t01=0x0076}
0x0092…00ba               Head {h00=0x0024, h01=0x0050, text=»   =6,EDM INITIALIZATION 3 DISCS«, t00=0x0000, t01=0x0096}
0x00ba…00da               Head {h00=0x001c, h01=0x0050, text=»   =6, REL 11.0 81-02-03«, t00=0x0000, t01=0x00be}
0x00da…00fc               Head {h00=0x001e, h01=0x0050, text=»   =5, ADM INITIALIZATION «, t00=0x0000, t01=0x00de}
0x00fc…011a               Head {h00=0x001a, h01=0x0050, text=»   REL 11.0  81-01-21 «, t00=0x0000, t01=0x0100}
0x011a…0142               Head {h00=0x0024, h01=0x0050, text=»   =4, NO NVL BITS FOR DM TASKS «, t00=0x0000, t01=0x011e}
0x0142…0166               Head {h00=0x0020, h01=0x0050, text=»   PRR 11.0  80-11-27  CHLO «, t00=0x0000, t01=0x0146}
0x0166…0198               Head {h00=0x002e, h01=0x0050, text=»   =3, SPLIT EXTENT HANDELING NOT WORKING «, t00=0x0000, t01=0x016a}
0x0198…01bc               Head {h00=0x0020, h01=0x0050, text=»   PRR 11.0  80-11-20  CHLO «, t00=0x0001, t01=0x000c}
0x01bc…01ec               Head {h00=0x002c, h01=0x0050, text=»   =2, EDM INITIALIZATION ALLWAYS HALTED«, t00=0x0001, t01=0x0030}
0x01ec…0210               Head {h00=0x0020, h01=0x0050, text=»   PRR 11.0  80-11-19  CHLO «, t00=0x0001, t01=0x0060}
0x0210…0236               Head {h00=0x0022, h01=0x0050, text=»   =1, HALT IF TTAB NOT FOUND «, t00=0x0001, t01=0x0084}
0x0236…025a               Head {h00=0x0020, h01=0x0050, text=»   PRR 11.0  80-11-19  POHO «, t00=0x0001, t01=0x00aa}
0x025a…0264               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0264…026e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d8}
0x026e…02a8               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x00e2}
0x02a8…02b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x02b2…02ec               Head {h00=0x0036, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS                  *«, t00=0x0001, t01=0x0126}
0x02ec…02f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0160}
0x02f6…0330               Head {h00=0x0036, h01=0x0050, text=»*   FMTASK = TOSS FILE MANAGEMENT TASK           *«, t00=0x0001, t01=0x016a}
0x0330…033a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0014}
0x033a…0344               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001e}
0x0344…034e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0028}
0x034e…0358               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0032}
0x0358…0392               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x003c}
0x0392…039c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0076}
0x039c…03a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0080}
0x03a6…03d8               Head {h00=0x002e, h01=0x0050, text=»*   TOSS FILE MANAGEMENT TASK CONTAINS THE«, t00=0x0002, t01=0x008a}
0x03d8…040a               Head {h00=0x002e, h01=0x0050, text=»*   FOLLOWING FILE ADMINISTRATION MODULES:«, t00=0x0002, t01=0x00bc}
0x040a…0414               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ee}
0x0414…0434               Head {h00=0x001c, h01=0x0050, text=»*   - FMOPEN   OPEN FILE«, t00=0x0002, t01=0x00f8}
0x0434…0456               Head {h00=0x001e, h01=0x0050, text=»*   - FMCLOS   CLOSE FILE «, t00=0x0002, t01=0x0118}
0x0456…0482               Head {h00=0x0028, h01=0x0050, text=»*   - FMRPAR   READ FILE PARAMETERS «, t00=0x0002, t01=0x013a}
0x0482…04b0               Head {h00=0x002a, h01=0x0050, text=»*   - FMSPLI   READ/WRITE (SPLIT I/O) «, t00=0x0002, t01=0x0166}
0x04b0…04ba (3, 0, 400)   Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04ba…04ee               Head {h00=0x0030, h01=0x0050, text=»*   FMTASK ALSO CONTAINS THE FILE MANAGEMENT«, t00=0x0003, t01=0x000e}
0x04ee…0520               Head {h00=0x002e, h01=0x0050, text=»*   SYSTEM INITIALIZATION ROUTINE, FMINIT.«, t00=0x0003, t01=0x0042}
0x0520…055e               Head {h00=0x003a, h01=0x0050, text=»*   FMINIT ALSO HOLDS THE EDM INITIALIZATION ROUTINE. «, t00=0x0003, t01=0x0074}
0x055e…0568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b2}
0x0568…0572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00bc}
0x0572…058a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0003, t01=0x00c6}
0x058a…0594               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00de}
0x0594…059e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e8}
0x059e…05b2               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00f2}
0x05b2…05c6               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x0106}
0x05c6…05da               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x011a}
0x05da…05e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x05e4…05ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0138}
0x05ee…060c               Head {h00=0x001a, h01=0x0050, text=» ENTRY OPEN OPEN FILE «, t00=0x0003, t01=0x0142}
0x060c…0648               Head {h00=0x0038, h01=0x0050, text=» ENTRY OPEXT OPEN EXTENDED FILE (CALLED FROM EXTEND)«, t00=0x0003, t01=0x0160}
0x0648…067e               Head {h00=0x0032, h01=0x0050, text=» ENTRY DLCLO1 CLOSE FILE (CALLED FROM DELETE) «, t00=0x0004, t01=0x000c}
0x067e…06b4               Head {h00=0x0032, h01=0x0050, text=» ENTRY DLCLO2 CLOSE FILE (CALLED FROM DELETE) «, t00=0x0004, t01=0x0042}
0x06b4…06e4               Head {h00=0x002c, h01=0x0050, text=» ENTRY FMTASK FMTASK ACTIVATION ADDRESS «, t00=0x0004, t01=0x0078}
0x06e4…0718               Head {h00=0x0030, h01=0x0050, text=» ENTRY FMINIT FILE MANAGEMENT INITIALIZATION«, t00=0x0004, t01=0x00a8}
0x0718…074e               Head {h00=0x0032, h01=0x0050, text=» ENTRY FMREAD FMTASK READ DISC SECTOR ROUTINE «, t00=0x0004, t01=0x00dc}
0x074e…0784               Head {h00=0x0032, h01=0x0050, text=» ENTRY FM:PWR FMTASK WRITE DISC SECTOR ROUTINE«, t00=0x0004, t01=0x0112}
0x0784…07ac               Head {h00=0x0024, h01=0x0050, text=» ENTRY FM:IO FMTASK I/O ROUTINE «, t00=0x0004, t01=0x0148}
0x07ac…07d0               Head {h00=0x0020, h01=0x0050, text=» ENTRY FM:ECB FM ECB ADDRESS«, t00=0x0004, t01=0x0170}
0x07d0…0802 (5, 0, 400)   Head {h00=0x002e, h01=0x0050, text=» ENTRY FMEXIT FMTASK SET RETURN CODE EXIT «, t00=0x0005, t01=0x0004}
0x0802…0830               Head {h00=0x002a, h01=0x0050, text=» ENTRY FM:INE FMTASK ILLEGAL NAME EXIT«, t00=0x0005, t01=0x0036}
0x0830…0860               Head {h00=0x002c, h01=0x0050, text=» ENTRY FM:RQE FMTASK REQUEST ERROR EXIT «, t00=0x0005, t01=0x0064}
0x0860…089a               Head {h00=0x0036, h01=0x0050, text=» ENTRY FNDNAM FIND VOLUME NAME ADDRESS IN DISC DWT«, t00=0x0005, t01=0x0094}
0x089a…08cc               Head {h00=0x002e, h01=0x0050, text=» ENTRY FNDVTC FIND ONE FILE EXTENT (VTOC) «, t00=0x0005, t01=0x00ce}
0x08cc…08f2               Head {h00=0x0022, h01=0x0050, text=» ENTRY FNDVT2 FNDVTC 2ND ENTRY«, t00=0x0005, t01=0x0100}
0x08f2…0920               Head {h00=0x002a, h01=0x0050, text=» ENTRY RDVTO2 READ VTOC, FIRST EXTENT «, t00=0x0005, t01=0x0126}
0x0920…0942               Head {h00=0x001e, h01=0x0050, text=» ENTRY FM:MOV MOVE STRING «, t00=0x0005, t01=0x0154}
0x0942…096a               Head {h00=0x0024, h01=0x0050, text=» ENTRY FM:MV4 MOVE 4 CHARACTERS «, t00=0x0005, t01=0x0176}
0x096a…0992               Head {h00=0x0024, h01=0x0050, text=» ENTRY FM:MV8 MOVE 8 CHARACTERS «, t00=0x0006, t01=0x000e}
0x0992…09b8               Head {h00=0x0022, h01=0x0050, text=» ENTRY CMPSTR COMPARE STRINGS «, t00=0x0006, t01=0x0036}
0x09b8…09e6               Head {h00=0x002a, h01=0x0050, text=» ENTRY CMPDWD COMPARE TWO DOUBLE WORDS«, t00=0x0006, t01=0x005c}
0x09e6…0a0c               Head {h00=0x0022, h01=0x0050, text=» ENTRY FILCOD FILE CODE TABLE «, t00=0x0006, t01=0x008a}
0x0a0c…0a42               Head {h00=0x0032, h01=0x0050, text=» ENTRY VOLUME CURRENT VOLUME FILE CODE POINTER«, t00=0x0006, t01=0x00b0}
0x0a42…0a72               Head {h00=0x002c, h01=0x0050, text=» ENTRY FM:BUF FMTASK DISC SECTOR BUFFER «, t00=0x0006, t01=0x00e6}
0x0a72…0a94               Head {h00=0x001e, h01=0x0050, text=» ENTRY TTABFM FMTASK TTAB «, t00=0x0006, t01=0x0116}
0x0a94…0abc               Head {h00=0x0024, h01=0x0050, text=» ENTRY FEXTNO NO OF FILE EXTENTS«, t00=0x0006, t01=0x0138}
0x0abc…0aea               Head {h00=0x002a, h01=0x0050, text=» ENTRY RETCOD ACKUMULATED RETURN CODE «, t00=0x0006, t01=0x0160}
0x0aea…0b02               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0006, t01=0x018e}
0x0b02…0b0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0016}
0x0b0c…0b44               Head {h00=0x0034, h01=0x0050, text=» ENTRY FWTVTC VTOC SECTOR NUMBER (FIRST EXTENT) «, t00=0x0007, t01=0x0020}
0x0b44…0b70               Head {h00=0x0028, h01=0x0050, text=» ENTRY FWTPAR FILE ACCESS PARAMETERS«, t00=0x0007, t01=0x0058}
0x0b70…0b92               Head {h00=0x001e, h01=0x0050, text=» ENTRY FWTFNR FILE NUMBER «, t00=0x0007, t01=0x0084}
0x0b92…0bcc               Head {h00=0x0036, h01=0x0050, text=» ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS «, t00=0x0007, t01=0x00a6}
0x0bcc…0c02               Head {h00=0x0032, h01=0x0050, text=» ENTRY FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT «, t00=0x0007, t01=0x00e0}
0x0c02…0c28               Head {h00=0x0022, h01=0x0050, text=» ENTRY FWTVOL VOLUME FILE CODE«, t00=0x0007, t01=0x0116}
0x0c28…0c58               Head {h00=0x002c, h01=0x0050, text=» ENTRY FWTEXB EXTENT BASE (FIRST EXTENT)«, t00=0x0007, t01=0x013c}
0x0c58…0c78               Head {h00=0x001c, h01=0x0050, text=» ENTRY FWTNAM FILE NAME «, t00=0x0007, t01=0x016c}
0x0c78…0cb0               Head {h00=0x0034, h01=0x0050, text=» ENTRY FWTQUE QUEUE ANCHOR FOR FILE I/O REQUESTS«, t00=0x0007, t01=0x018c}
0x0cb0…0ce4               Head {h00=0x0030, h01=0x0050, text=» ENTRY FWTSEX FILE SECTION AND EXTENT NUMBER«, t00=0x0008, t01=0x0034}
0x0ce4…0d08               Head {h00=0x0020, h01=0x0050, text=» ENTRY FPB:RL RECORD LENGTH «, t00=0x0008, t01=0x0068}
0x0d08…0d2a               Head {h00=0x001e, h01=0x0050, text=» ENTRY FPB:BF BLOCK FACTOR«, t00=0x0008, t01=0x008c}
0x0d2a…0d52               Head {h00=0x0024, h01=0x0050, text=» ENTRY FPB:FO FILE ORGANIZATION «, t00=0x0008, t01=0x00ae}
0x0d52…0d76               Head {h00=0x0020, h01=0x0050, text=» ENTRY FPB:DT DEVICE TYPE =1«, t00=0x0008, t01=0x00d6}
0x0d76…0d98               Head {h00=0x001e, h01=0x0050, text=» ENTRY FPB:BO BASIC ORDERS«, t00=0x0008, t01=0x00fa}
0x0d98…0dbc               Head {h00=0x0020, h01=0x0050, text=» ENTRY FPB:NO FILE NUMBER =1«, t00=0x0008, t01=0x011c}
0x0dbc…0ddc               Head {h00=0x001c, h01=0x0050, text=» ENTRY FPB:FN FILE NAME «, t00=0x0008, t01=0x0140}
0x0ddc…0dfa               Head {h00=0x001a, h01=0x0050, text=» ENTRY FPB:EL ENLARGE «, t00=0x0008, t01=0x0160}
0x0dfa…0e1e               Head {h00=0x0020, h01=0x0050, text=» ENTRY FPB:V1 VOLUME NAME 1 «, t00=0x0008, t01=0x017e}
0x0e1e…0e3a               Head {h00=0x0018, h01=0x0050, text=» ENTRY FPB:S1 SIZE 1«, t00=0x0009, t01=0x0012}
0x0e3a…0e5e               Head {h00=0x0020, h01=0x0050, text=» ENTRY FPB:V2 VOLUME NAME 2 «, t00=0x0009, t01=0x002e}
0x0e5e…0e7a               Head {h00=0x0018, h01=0x0050, text=» ENTRY FPB:S2 SIZE 2«, t00=0x0009, t01=0x0052}
0x0e7a…0e9e               Head {h00=0x0020, h01=0x0050, text=» ENTRY FPB:V3 VOLUME NAME 3 «, t00=0x0009, t01=0x006e}
0x0e9e…0eba               Head {h00=0x0018, h01=0x0050, text=» ENTRY FPB:S3 SIZE 3«, t00=0x0009, t01=0x0092}
0x0eba…0ede               Head {h00=0x0020, h01=0x0050, text=» ENTRY FPB:V4 VOLUME NAME 4 «, t00=0x0009, t01=0x00ae}
0x0ede…0efa               Head {h00=0x0018, h01=0x0050, text=» ENTRY FPB:S4 SIZE 4«, t00=0x0009, t01=0x00d2}
0x0efa…0f22               Head {h00=0x0024, h01=0x0050, text=» ENTRY FPB:FR FILE RECORD NUMBER«, t00=0x0009, t01=0x00ee}
0x0f22…0f48               Head {h00=0x0022, h01=0x0050, text=» ENTRY FPB:US NUMBER OF USERS «, t00=0x0009, t01=0x0116}
0x0f48…0f6a               Head {h00=0x001e, h01=0x0050, text=» ENTRY FPB:SH SHAREABILITY«, t00=0x0009, t01=0x013c}
0x0f6a…0f8e               Head {h00=0x0020, h01=0x0050, text=» ENTRY FPB:MN MONITOR NUMBER«, t00=0x0009, t01=0x015e}
0x0f8e…0fb6               Head {h00=0x0024, h01=0x0050, text=» ENTRY FPB:SN SOP SWITCH NUMBER «, t00=0x0009, t01=0x0182}
0x0fb6…0fe2               Head {h00=0x0028, h01=0x0050, text=» ENTRY FPB:IF NUMBER OF INDEX FILES «, t00=0x000a, t01=0x001a}
0x0fe2…100e               Head {h00=0x0028, h01=0x0050, text=» ENTRY FPB:KA KEY ADDRESS IN RECORD «, t00=0x000a, t01=0x0046}
0x100e…1032               Head {h00=0x0020, h01=0x0050, text=» ENTRY FPB:CD CREATION DATE «, t00=0x000a, t01=0x0072}
0x1032…1058               Head {h00=0x0022, h01=0x0050, text=» ENTRY FPB:RP RETENTION PERIOD«, t00=0x000a, t01=0x0096}
0x1058…1070               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x000a, t01=0x00bc}
0x1070…107a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d4}
0x107a…1084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00de}
0x1084…10a8               Head {h00=0x0020, h01=0x0050, text=» ENTRY EWTEXL EXTENT LENGTH «, t00=0x000a, t01=0x00e8}
0x10a8…10ca               Head {h00=0x001e, h01=0x0050, text=» ENTRY EWTEXB EXTENT BASE «, t00=0x000a, t01=0x010c}
0x10ca…10f0               Head {h00=0x0022, h01=0x0050, text=» ENTRY EWTVOL VOLUME FILE CODE«, t00=0x000a, t01=0x012e}
0x10f0…1124               Head {h00=0x0030, h01=0x0050, text=» ENTRY EWTSEX FILE SECTION AND EXTENT NUMBER«, t00=0x000a, t01=0x0154}
0x1124…1146               Head {h00=0x001e, h01=0x0050, text=» ENTRY VOL:VN VOLUME NAME «, t00=0x000a, t01=0x0188}
0x1146…116e               Head {h00=0x0024, h01=0x0050, text=» ENTRY VOL:EL VTOC EXTENT LENGTH«, t00=0x000b, t01=0x001a}
0x116e…1194               Head {h00=0x0022, h01=0x0050, text=» ENTRY VOL:EB VTOC EXTENT BASE«, t00=0x000b, t01=0x0042}
0x1194…11bc               Head {h00=0x0024, h01=0x0050, text=» ENTRY VOL:RL VTOC RECORD LENGTH«, t00=0x000b, t01=0x0068}
0x11bc…11de               Head {h00=0x001e, h01=0x0050, text=» ENTRY VOL:FS FSAT LENGTH «, t00=0x000b, t01=0x0090}
0x11de…1206               Head {h00=0x0024, h01=0x0050, text=» ENTRY VTOCRL VTOC RECORD LENGTH«, t00=0x000b, t01=0x00b2}
0x1206…122e               Head {h00=0x0024, h01=0x0050, text=» ENTRY VTOCBF VTOC BLOCK FACTOR «, t00=0x000b, t01=0x00da}
0x122e…124e               Head {h00=0x001c, h01=0x0050, text=» ENTRY VTC:FN FILE NAME «, t00=0x000b, t01=0x0102}
0x124e…127c               Head {h00=0x002a, h01=0x0050, text=» ENTRY VTC:MN MONITOR NUMBER (L-FILE) «, t00=0x000b, t01=0x0122}
0x127c…12ae               Head {h00=0x002e, h01=0x0050, text=» ENTRY VTC:FS FILE SECTION NUMBER (S-FILE)«, t00=0x000b, t01=0x0150}
0x12ae…12d6               Head {h00=0x0024, h01=0x0050, text=» ENTRY VTC:SN SOP SWITCH NUMBER «, t00=0x000b, t01=0x0182}
0x12d6…12fe               Head {h00=0x0024, h01=0x0050, text=» ENTRY VTC:EN FILE EXTENT NUMBER«, t00=0x000c, t01=0x001a}
0x12fe…1326               Head {h00=0x0024, h01=0x0050, text=» ENTRY VTC:EL FILE EXTENT LENGTH«, t00=0x000c, t01=0x0042}
0x1326…134c               Head {h00=0x0022, h01=0x0050, text=» ENTRY VTC:EB FILE EXTENT BASE«, t00=0x000c, t01=0x006a}
0x134c…1374               Head {h00=0x0024, h01=0x0050, text=» ENTRY VTC:LR LAST RECORD NUMBER«, t00=0x000c, t01=0x0090}
0x1374…1398               Head {h00=0x0020, h01=0x0050, text=» ENTRY VTC:RL RECORD LENGTH «, t00=0x000c, t01=0x00b8}
0x1398…13ba               Head {h00=0x001e, h01=0x0050, text=» ENTRY VTC:BF BLOCK FACTOR«, t00=0x000c, t01=0x00dc}
0x13ba…13e2               Head {h00=0x0024, h01=0x0050, text=» ENTRY VTC:FO FILE ORGANIZATION «, t00=0x000c, t01=0x00fe}
0x13e2…1406               Head {h00=0x0020, h01=0x0050, text=» ENTRY VTC:CD CREATION DATE «, t00=0x000c, t01=0x0126}
0x1406…142c               Head {h00=0x0022, h01=0x0050, text=» ENTRY VTC:RP RETENTION PERIOD«, t00=0x000c, t01=0x014a}
0x142c…1458               Head {h00=0x0028, h01=0x0050, text=» ENTRY VTC:IF NUMBER OF INDEX FILES «, t00=0x000c, t01=0x0170}
0x1458…1484               Head {h00=0x0028, h01=0x0050, text=» ENTRY VTC:KA KEY ADDRESS IN RECORD «, t00=0x000d, t01=0x000c}
0x1484…14ac               Head {h00=0x0024, h01=0x0050, text=» ENTRY VTC:NE NO OF FILE EXTENTS«, t00=0x000d, t01=0x0038}
0x14ac…14ce               Head {h00=0x001e, h01=0x0050, text=» ENTRY VTC:ST STATUS BYTE «, t00=0x000d, t01=0x0060}
0x14ce…14e6               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x000d, t01=0x0082}
0x14e6…14f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009a}
0x14f0…14fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a4}
0x14fa…1510               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000d, t01=0x00ae}
0x1510…1526               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x000d, t01=0x00c4}
0x1526…153c               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000d, t01=0x00da}
0x153c…1546               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f0}
0x1546…1550               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00fa}
0x1550…1574               Head {h00=0x0020, h01=0x0050, text=» EXTRN CREATE FM CREATE FILE«, t00=0x000d, t01=0x0104}
0x1574…1598               Head {h00=0x0020, h01=0x0050, text=» EXTRN EXTEND FM EXTEND FILE«, t00=0x000d, t01=0x0128}
0x1598…15bc               Head {h00=0x0020, h01=0x0050, text=» EXTRN DELETE FM DELETE FILE«, t00=0x000d, t01=0x014c}
0x15bc…15f2               Head {h00=0x0032, h01=0x0050, text=» EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR TASK«, t00=0x000d, t01=0x0170}
0x15f2…162a               Head {h00=0x0034, h01=0x0050, text=» EXTRN GETBLK STORE PARAMETERS IN MONITOR BLOCK «, t00=0x000e, t01=0x0016}
0x162a…1662               Head {h00=0x0034, h01=0x0050, text=» EXTRN FREBLK GET PARAMETERS FROM MONITOR BLOCK «, t00=0x000e, t01=0x004e}
0x1662…1696               Head {h00=0x0030, h01=0x0050, text=» EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID«, t00=0x000e, t01=0x0086}
0x1696…16c8               Head {h00=0x002e, h01=0x0050, text=» EXTRN FINDTT FIND DATA MANAGEMENT TASK =1«, t00=0x000e, t01=0x00ba}
0x16c8…16f4               Head {h00=0x0028, h01=0x0050, text=» EXTRN FNDDWD FIND DISC DWT ADDRESS «, t00=0x000e, t01=0x00ec}
0x16f4…1716               Head {h00=0x001e, h01=0x0050, text=» EXTRN ACTOT ACTIVATE TASK«, t00=0x000e, t01=0x0118}
0x1716…1746               Head {h00=0x002c, h01=0x0050, text=» EXTRN SDMINI DM INITIALIZATION ROUTINE «, t00=0x000e, t01=0x013a}
0x1746…1780               Head {h00=0x0036, h01=0x0050, text=» EXTRN TIOMXI CONVERT LOGICAL ADDRESS TO PHYSICAL «, t00=0x000e, t01=0x016a}
0x1780…17ac               Head {h00=0x0028, h01=0x0050, text=» EXTRN DET:FM FILE MANAGEMENT DETACH«, t00=0x000f, t01=0x0014}
0x17ac…17ea               Head {h00=0x003a, h01=0x0050, text=» EXTRN FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS«, t00=0x000f, t01=0x0040}
0x17ea…1812               Head {h00=0x0024, h01=0x0050, text=» EXTRN TIODM (E)DM ADDRESS BLOCK«, t00=0x000f, t01=0x007e}
0x1812…1844               Head {h00=0x002e, h01=0x0050, text=» EXTRN SEXTNO START EXTENT NUMBER (EXTEND)«, t00=0x000f, t01=0x00a6}
0x1844…186e               Head {h00=0x0026, h01=0x0050, text=» EXTRN DFTAB DISC FILE CODE TABLE «, t00=0x000f, t01=0x00d8}
0x186e…1890               Head {h00=0x001e, h01=0x0050, text=» EXTRN DFTABE END OF DFTAB«, t00=0x000f, t01=0x0102}
0x1890…18b6               Head {h00=0x0022, h01=0x0050, text=» EXTRN SCTNOF NUMBER OF FILES «, t00=0x000f, t01=0x0124}
0x18b6…18e4               Head {h00=0x002a, h01=0x0050, text=» EXTRN SCTFWT FWT CHAIN START ADDRESS «, t00=0x000f, t01=0x014a}
0x18e4…1910               Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTFWL FILE WORK TABLE LENGTH«, t00=0x000f, t01=0x0178}
0x1910…193c               Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTDMT (E)DM TASKS IN SYSTEM «, t00=0x0010, t01=0x0014}
0x193c…1970               Head {h00=0x0030, h01=0x0050, text=» EXTRN SCTMOX DISPATCH ADDRESS TABLE POINTER«, t00=0x0010, t01=0x0040}
0x1970…199a               Head {h00=0x0026, h01=0x0050, text=» EXTRN DWDM01 (E)DM SYSTEM DWT/FWT«, t00=0x0010, t01=0x0074}
0x199a…19ba               Head {h00=0x001c, h01=0x0050, text=» EXTRN NVLTAB NVL TABLE «, t00=0x0010, t01=0x009e}
0x19ba…19de               Head {h00=0x0020, h01=0x0050, text=» EXTRN NVLEND END OF NVLTAB «, t00=0x0010, t01=0x00be}
0x19de…1a00               Head {h00=0x001e, h01=0x0050, text=» EXTRN NVLBIT NVL BIT MASK«, t00=0x0010, t01=0x00e2}
0x1a00…1a18               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0010, t01=0x0104}
0x1a18…1a22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x011c}
0x1a22…1a2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0126}
0x1a2c…1a4c               Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0010, t01=0x0130}
0x1a4c…1a7a               Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTADR ADDRESS TO ADDRESS BLOCK«, t00=0x0010, t01=0x0150}
0x1a7a…1aa0               Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTMEC MMU ECB ADDRESS «, t00=0x0010, t01=0x017e}
0x1aa0…1ac2               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTVOL VOLUME NAME «, t00=0x0011, t01=0x0014}
0x1ac2…1ae6               Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTNVL NVL INDICATOR «, t00=0x0011, t01=0x0036}
0x1ae6…1b14               Head {h00=0x002a, h01=0x0050, text=» EXTRN DWTPAB PARAMETER BLOCK ADDRESS «, t00=0x0011, t01=0x005a}
0x1b14…1b4a               Head {h00=0x0032, h01=0x0050, text=» EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT «, t00=0x0011, t01=0x0088}
0x1b4a…1b6a               Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0011, t01=0x00be}
0x1b6a…1b90               Head {h00=0x0022, h01=0x0050, text=» EXTRN TTB:SA DISPATCH ADDRESS«, t00=0x0011, t01=0x00de}
0x1b90…1bb2               Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBFC ECB FILE CODE«, t00=0x0011, t01=0x0104}
0x1bb2…1bd6               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBFN ECB FILE NUMBER«, t00=0x0011, t01=0x0126}
0x1bd6…1c0c               Head {h00=0x0032, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS (FPB ADDRESS) «, t00=0x0011, t01=0x014a}
0x1c0c…1c36               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0011, t01=0x0180}
0x1c36…1c60               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0012, t01=0x001a}
0x1c60…1c84               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0012, t01=0x0044}
0x1c84…1ca8               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBCW1 CONTROL WORD 1«, t00=0x0012, t01=0x0068}
0x1ca8…1ccc               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBCW2 CONTROL WORD 2«, t00=0x0012, t01=0x008c}
0x1ccc…1ce0               Head {h00=0x0010, h01=0x0050, text=» EXTRN HALT «, t00=0x0012, t01=0x00b0}
0x1ce0…1cf8               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0012, t01=0x00c4}
0x1cf8…1d02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00dc}
0x1d02…1d0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e6}
0x1d0c…1d3c               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0012, t01=0x00f0}
0x1d3c…1d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0120}
0x1d46…1d64               Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0012, t01=0x012a}
0x1d64…1d6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0148}
0x1d6e…1d9e               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0012, t01=0x0152}
0x1d9e…1da8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0182}
0x1da8…1dda               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0012, t01=0x018c}
0x1dda…1e08               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0013, t01=0x002e}
0x1e08…1e12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005c}
0x1e12…1e26               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0013, t01=0x0066}
0x1e26…1e30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007a}
0x1e30…1e3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0084}
0x1e3a…1e74               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0013, t01=0x008e}
0x1e74…1ea6               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0013, t01=0x00c8}
0x1ea6…1eb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00fa}
0x1eb0…1ec4               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0013, t01=0x0104}
0x1ec4…1ece               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0118}
0x1ece…1ed8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0122}
0x1ed8…1f0a               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0013, t01=0x012c}
0x1f0a…1f38               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0013, t01=0x015e}
0x1f38…1f42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018c}
0x1f42…1f56               Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0014, t01=0x0008}
0x1f56…1f60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x001c}
0x1f60…1f6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0026}
0x1f6a…1fa2               Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING CREATE/DELETE FILE«, t00=0x0014, t01=0x0030}
0x1fa2…1fd6               Head {h00=0x0030, h01=0x0050, text=»* IS OBTAINED BY SETTING FMCDEF (X:A) EQU 1.«, t00=0x0014, t01=0x0068}
0x1fd6…1fe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009c}
0x1fe0…1ff2               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0014, t01=0x00a6}
0x1ff2…2008               Head {h00=0x0012, h01=0x0050, text=»FMCDEF EQU X:A«, t00=0x0014, t01=0x00b8}
0x2008…2012               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ce}
0x2012…202a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0014, t01=0x00d8}
0x202a…2034               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f0}
0x2034…203e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fa}
0x203e…2074               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING DATA MANAGEMENT«, t00=0x0014, t01=0x0104}
0x2074…20a4               Head {h00=0x002c, h01=0x0050, text=»* IS OBTAINED BY SETTING DM (X:B) EQU 1.«, t00=0x0014, t01=0x013a}
0x20a4…20ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x016a}
0x20ae…20c0               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0014, t01=0x0174}
0x20c0…20d4               Head {h00=0x0010, h01=0x0050, text=»SDM EQU X:B «, t00=0x0014, t01=0x0186}
0x20d4…20de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000a}
0x20de…20e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0014}
0x20e8…2128               Head {h00=0x003c, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING EXTENDED DATA MANAGEMENT «, t00=0x0015, t01=0x001e}
0x2128…215a               Head {h00=0x002e, h01=0x0050, text=»* IS OBTAINED BY SETTING EDM (X:C) EQU 1. «, t00=0x0015, t01=0x005e}
0x215a…2164               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0090}
0x2164…2176               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0015, t01=0x009a}
0x2176…218a               Head {h00=0x0010, h01=0x0050, text=»EDM EQU X:C «, t00=0x0015, t01=0x00ac}
0x218a…2194               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c0}
0x2194…219e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ca}
0x219e…21e0               Head {h00=0x003e, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING ABRIDGED DATA MANAGEMENT =5«, t00=0x0015, t01=0x00d4}
0x21e0…220e               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING X:D EQU 1 =5 «, t00=0x0015, t01=0x0116}
0x220e…2218               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0144}
0x2218…2222               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014e}
0x2222…2234               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0015, t01=0x0158}
0x2234…2248               Head {h00=0x0010, h01=0x0050, text=»ADM EQU X:D «, t00=0x0015, t01=0x016a}
0x2248…2252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017e}
0x2252…225c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0188}
0x225c…2282 (22, 0, 400)  Head {h00=0x0022, h01=0x0050, text=»* COMBINED CONDITION ADMEDM =5«, t00=0x0016, t01=0x0004}
0x2282…229c               Head {h00=0x0016, h01=0x0050, text=» IFF ADM+EDM=0 =5 «, t00=0x0016, t01=0x002a}
0x229c…22b4               Head {h00=0x0014, h01=0x0050, text=»ADMEDM EQU 1  =5«, t00=0x0016, t01=0x0044}
0x22b4…22c4               Head {h00=0x000c, h01=0x0050, text=» XIF  =5«, t00=0x0016, t01=0x005c}
0x22c4…22de               Head {h00=0x0016, h01=0x0050, text=» IFT ADM+EDM=0  =5«, t00=0x0016, t01=0x006c}
0x22de…22f6               Head {h00=0x0014, h01=0x0050, text=»ADMEDM EQU 0  =5«, t00=0x0016, t01=0x0086}
0x22f6…2308               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0016, t01=0x009e}
0x2308…2312               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b0}
0x2312…232a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0016, t01=0x00ba}
0x232a…2334               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d2}
0x2334…233e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00dc}
0x233e…2368               Head {h00=0x0026, h01=0x0050, text=»* THE ATTACH/DETACH FILE FUNCTION «, t00=0x0016, t01=0x00e6}
0x2368…2396               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING ATTDET EQU 1.«, t00=0x0016, t01=0x0110}
0x2396…23a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x013e}
0x23a0…23b4               Head {h00=0x0010, h01=0x0050, text=»ATTDET EQU 1«, t00=0x0016, t01=0x0148}
0x23b4…23ca               Head {h00=0x0012, h01=0x0050, text=»X:E EQU ATTDET«, t00=0x0016, t01=0x015c}
0x23ca…23d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0172}
0x23d4…23de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017c}
0x23de…2408               Head {h00=0x0026, h01=0x0050, text=»* THE MULTIPLE EXTENT I/O FUNCTION«, t00=0x0016, t01=0x0186}
0x2408…2436               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MULEXT EQU 1.«, t00=0x0017, t01=0x0020}
0x2436…2440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004e}
0x2440…2454               Head {h00=0x0010, h01=0x0050, text=»MULEXT EQU 1«, t00=0x0017, t01=0x0058}
0x2454…246a               Head {h00=0x0012, h01=0x0050, text=»X:F EQU MULEXT«, t00=0x0017, t01=0x006c}
0x246a…2474               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0082}
0x2474…248c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0017, t01=0x008c}
0x248c…2496               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a4}
0x2496…24a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ae}
0x24a0…24bc               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x00b8}
0x24bc…24d8               Head {h00=0x0018, h01=0x0050, text=»* VL DISPLACEMENTS *«, t00=0x0017, t01=0x00d4}
0x24d8…24f4               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x00f0}
0x24f4…24fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x010c}
0x24fe…2522               Head {h00=0x0020, h01=0x0050, text=»* VOLUME LABEL DISPLACEMENTS«, t00=0x0017, t01=0x0116}
0x2522…252c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x013a}
0x252c…254c               Head {h00=0x001c, h01=0x0050, text=»VOL:VN EQU 0 VOLUME NAME«, t00=0x0017, t01=0x0144}
0x254c…2574               Head {h00=0x0024, h01=0x0050, text=»VOL:EL EQU 6 VTOC EXTENT LENGTH «, t00=0x0017, t01=0x0164}
0x2574…259a               Head {h00=0x0022, h01=0x0050, text=»VOL:EB EQU 10 VTOC EXTENT BASE«, t00=0x0017, t01=0x018c}
0x259a…25c2               Head {h00=0x0024, h01=0x0050, text=»VOL:RL EQU 12 VTOC RECORD LENGTH«, t00=0x0018, t01=0x0022}
0x25c2…25e4               Head {h00=0x001e, h01=0x0050, text=»VOL:FS EQU 46 FSAT LENGTH «, t00=0x0018, t01=0x004a}
0x25e4…25ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x006c}
0x25ee…25f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0076}
0x25f8…2612               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0018, t01=0x0080}
0x2612…262c               Head {h00=0x0016, h01=0x0050, text=»* VTOC CONSTANTS *«, t00=0x0018, t01=0x009a}
0x262c…2646               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0018, t01=0x00b4}
0x2646…2650               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ce}
0x2650…265a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d8}
0x265a…2682               Head {h00=0x0024, h01=0x0050, text=»VTOCRL EQU 42 VTOC RECORD LENGTH«, t00=0x0018, t01=0x00e2}
0x2682…26a8               Head {h00=0x0022, h01=0x0050, text=»VTOCBF EQU 6 VTOC BLOCK FACTOR«, t00=0x0018, t01=0x010a}
0x26a8…26b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0130}
0x26b2…26ca               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0018, t01=0x013a}
0x26ca…26d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0152}
0x26d4…26de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015c}
0x26de…26fc               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0018, t01=0x0166}
0x26fc…271a               Head {h00=0x001a, h01=0x0050, text=»* VTOC DISPLACEMENTS *«, t00=0x0018, t01=0x0184}
0x271a…2738               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0019, t01=0x0012}
0x2738…2742               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0030}
0x2742…2772               Head {h00=0x002c, h01=0x0050, text=»* VOLUME TABLE OF CONTENTS DISPLACEMENTS«, t00=0x0019, t01=0x003a}
0x2772…277c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006a}
0x277c…279a               Head {h00=0x001a, h01=0x0050, text=»VTC:FN EQU 0 FILE NAME«, t00=0x0019, t01=0x0074}
0x279a…27c6               Head {h00=0x0028, h01=0x0050, text=»VTC:MN EQU 8 MONITOR NUMBER (L-FILE)«, t00=0x0019, t01=0x0092}
0x27c6…27f8               Head {h00=0x002e, h01=0x0050, text=»VTC:FS EQU 8 FILE SECTION NUMBER (S-FILE) «, t00=0x0019, t01=0x00be}
0x27f8…281e               Head {h00=0x0022, h01=0x0050, text=»VTC:SN EQU 9 SOP SWITCH NUMBER«, t00=0x0019, t01=0x00f0}
0x281e…2846               Head {h00=0x0024, h01=0x0050, text=»VTC:EN EQU 10 FILE EXTENT NUMBER«, t00=0x0019, t01=0x0116}
0x2846…286e               Head {h00=0x0024, h01=0x0050, text=»VTC:EL EQU 12 FILE EXTENT LENGTH«, t00=0x0019, t01=0x013e}
0x286e…2894               Head {h00=0x0022, h01=0x0050, text=»VTC:EB EQU 16 FILE EXTENT BASE«, t00=0x0019, t01=0x0166}
0x2894…28bc               Head {h00=0x0024, h01=0x0050, text=»VTC:LR EQU 20 LAST RECORD NUMBER«, t00=0x0019, t01=0x018c}
0x28bc…28e0               Head {h00=0x0020, h01=0x0050, text=»VTC:RL EQU 24 RECORD LENGTH «, t00=0x001a, t01=0x0024}
0x28e0…2902               Head {h00=0x001e, h01=0x0050, text=»VTC:BF EQU 26 BLOCK FACTOR«, t00=0x001a, t01=0x0048}
0x2902…292a               Head {h00=0x0024, h01=0x0050, text=»VTC:FO EQU 27 FILE ORGANIZATION «, t00=0x001a, t01=0x006a}
0x292a…294e               Head {h00=0x0020, h01=0x0050, text=»VTC:CD EQU 28 CREATION DATE «, t00=0x001a, t01=0x0092}
0x294e…2974               Head {h00=0x0022, h01=0x0050, text=»VTC:RP EQU 34 RETENTION PERIOD«, t00=0x001a, t01=0x00b6}
0x2974…29a0               Head {h00=0x0028, h01=0x0050, text=»VTC:IF EQU 37 NUMBER OF INDEX FILES «, t00=0x001a, t01=0x00dc}
0x29a0…29cc               Head {h00=0x0028, h01=0x0050, text=»VTC:KA EQU 38 KEY ADDRESS IN RECORD «, t00=0x001a, t01=0x0108}
0x29cc…29f4               Head {h00=0x0024, h01=0x0050, text=»VTC:NE EQU 40 NO OF FILE EXTENTS«, t00=0x001a, t01=0x0134}
0x29f4…2a16               Head {h00=0x001e, h01=0x0050, text=»VTC:ST EQU 41 STATUS BYTE «, t00=0x001a, t01=0x015c}
0x2a16…2a20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017e}
0x2a20…2a38               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x001a, t01=0x0188}
0x2a38…2a42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0010}
0x2a42…2a4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001a}
0x2a4c…2a6a               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001b, t01=0x0024}
0x2a6a…2a88               Head {h00=0x001a, h01=0x0050, text=»* FWT DISPLACEMENTS * «, t00=0x001b, t01=0x0042}
0x2a88…2aa6               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001b, t01=0x0060}
0x2aa6…2ab0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x007e}
0x2ab0…2ad8               Head {h00=0x0024, h01=0x0050, text=»* FILE WORK TABLE DISPLACEMENTS «, t00=0x001b, t01=0x0088}
0x2ad8…2ae2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b0}
0x2ae2…2b06               Head {h00=0x0020, h01=0x0050, text=»FWTLNK EQU /00 LINK NEXT FWT«, t00=0x001b, t01=0x00ba}
0x2b06…2b10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00de}
0x2b10…2b26               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001b, t01=0x00e8}
0x2b26…2b44               Head {h00=0x001a, h01=0x0050, text=»FWTBAS EQU FWTLNK+/10 «, t00=0x001b, t01=0x00fe}
0x2b44…2b50               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x011c}
0x2b50…2b5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0128}
0x2b5a…2b70               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001b, t01=0x0132}
0x2b70…2b8e               Head {h00=0x001a, h01=0x0050, text=»FWTBAS EQU FWTLNK+/14 «, t00=0x001b, t01=0x0148}
0x2b8e…2b9a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0166}
0x2b9a…2ba4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0172}
0x2ba4…2be4               Head {h00=0x003c, h01=0x0050, text=»FWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) «, t00=0x001b, t01=0x017c}
0x2be4…2c18               Head {h00=0x0030, h01=0x0050, text=»FWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS«, t00=0x001c, t01=0x002c}
0x2c18…2c42               Head {h00=0x0026, h01=0x0050, text=»FWTFNR EQU FWTBAS+/03 FILE NUMBER «, t00=0x001c, t01=0x0060}
0x2c42…2c84               Head {h00=0x003e, h01=0x0050, text=»FWTTAB EQU FWTBAS+/04 TTAB FOR TASK WITH EXCLUSIVE ACCESS «, t00=0x001c, t01=0x008a}
0x2c84…2cc2               Head {h00=0x003a, h01=0x0050, text=»FWTEW1 EQU FWTBAS+/06 POINTER TO 2ND EWT BLOCK IN FWT «, t00=0x001c, t01=0x00cc}
0x2cc2…2cfa               Head {h00=0x0034, h01=0x0050, text=»FWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER«, t00=0x001c, t01=0x010a}
0x2cfa…2d40               Head {h00=0x0042, h01=0x0050, text=»FWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) «, t00=0x001c, t01=0x0142}
0x2d40…2d7c               Head {h00=0x0038, h01=0x0050, text=»FWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE «, t00=0x001c, t01=0x0188}
0x2d7c…2dba               Head {h00=0x003a, h01=0x0050, text=»FWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) «, t00=0x001d, t01=0x0034}
0x2dba…2df2               Head {h00=0x0034, h01=0x0050, text=»FWTEXB EQU FWTBAS+/10 EXTENT BASE (FIRST EXTENT)«, t00=0x001d, t01=0x0072}
0x2df2…2e1a               Head {h00=0x0024, h01=0x0050, text=»FWTNAM EQU FWTBAS+/12 FILE NAME «, t00=0x001d, t01=0x00aa}
0x2e1a…2e5a               Head {h00=0x003c, h01=0x0050, text=»FWTQUE EQU FWTBAS+/1A QUEUE ANCHOR FOR FILE I/O REQUESTS«, t00=0x001d, t01=0x00d2}
0x2e5a…2e64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0112}
0x2e64…2e7c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x001d, t01=0x011c}
0x2e7c…2e86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0134}
0x2e86…2e90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013e}
0x2e90…2eae               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001d, t01=0x0148}
0x2eae…2ecc               Head {h00=0x001a, h01=0x0050, text=»* EWT DISPLACEMENTS * «, t00=0x001d, t01=0x0166}
0x2ecc…2eea               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001d, t01=0x0184}
0x2eea…2ef4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0012}
0x2ef4…2f1e               Head {h00=0x0026, h01=0x0050, text=»* EXTENT WORK TABLE DISPLACEMENTS «, t00=0x001e, t01=0x001c}
0x2f1e…2f28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0046}
0x2f28…2f50               Head {h00=0x0024, h01=0x0050, text=»EWTLNK EQU 0 LINK NEXT EWT BLOCK«, t00=0x001e, t01=0x0050}
0x2f50…2f5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0078}
0x2f5a…2f6c               Head {h00=0x000e, h01=0x0050, text=»* BLOCK 1 «, t00=0x001e, t01=0x0082}
0x2f6c…2f76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0094}
0x2f76…2fa6               Head {h00=0x002c, h01=0x0050, text=»EWTSEX EQU 2 FILE SECTION/EXTENT NUMBER «, t00=0x001e, t01=0x009e}
0x2fa6…2fd4               Head {h00=0x002a, h01=0x0050, text=»EWTEXL EQU 4 EXTENT LENGTH IN SECTORS «, t00=0x001e, t01=0x00ce}
0x2fd4…2fde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fc}
0x2fde…2ff0               Head {h00=0x000e, h01=0x0050, text=»* BLOCK 2 «, t00=0x001e, t01=0x0106}
0x2ff0…2ffa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0118}
0x2ffa…3020               Head {h00=0x0022, h01=0x0050, text=»EWTVOL EQU 2 VOLUME FILE CODE «, t00=0x001e, t01=0x0122}
0x3020…3040               Head {h00=0x001c, h01=0x0050, text=»EWTEXB EQU 4 EXTENT BASE«, t00=0x001e, t01=0x0148}
0x3040…304a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0168}
0x304a…307e               Head {h00=0x0030, h01=0x0050, text=»EWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH «, t00=0x001e, t01=0x0172}
0x307e…3088               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0016}
0x3088…30a0               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x001f, t01=0x0020}
0x30a0…30aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0038}
0x30aa…30b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0042}
0x30b4…30d2               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001f, t01=0x004c}
0x30d2…30f0               Head {h00=0x001a, h01=0x0050, text=»* FPB DISPLACEMENTS * «, t00=0x001f, t01=0x006a}
0x30f0…310e               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001f, t01=0x0088}
0x310e…3118               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00a6}
0x3118…3144               Head {h00=0x0028, h01=0x0050, text=»* FILE PARAMETER BLOCK DISPLACEMENTS«, t00=0x001f, t01=0x00b0}
0x3144…314e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00dc}
0x314e…3170               Head {h00=0x001e, h01=0x0050, text=»FPB:RL EQU 0 RECORD LENGTH«, t00=0x001f, t01=0x00e6}
0x3170…3192               Head {h00=0x001e, h01=0x0050, text=»FPB:BF EQU 2 BLOCK FACTOR «, t00=0x001f, t01=0x0108}
0x3192…31b8               Head {h00=0x0022, h01=0x0050, text=»FPB:FO EQU 3 FILE ORGANIZATION«, t00=0x001f, t01=0x012a}
0x31b8…31dc               Head {h00=0x0020, h01=0x0050, text=»FPB:DT EQU 4 DEVICE TYPE =1 «, t00=0x001f, t01=0x0150}
0x31dc…31fe               Head {h00=0x001e, h01=0x0050, text=»FPB:BO EQU 5 BASIC ORDERS «, t00=0x001f, t01=0x0174}
0x31fe…3222               Head {h00=0x0020, h01=0x0050, text=»FPB:NO EQU 6 FILE NUMBER =1 «, t00=0x0020, t01=0x0008}
0x3222…3240               Head {h00=0x001a, h01=0x0050, text=»FPB:FN EQU 8 FILE NAME«, t00=0x0020, t01=0x002c}
0x3240…325e               Head {h00=0x001a, h01=0x0050, text=»FPB:EL EQU 17 ENLARGE «, t00=0x0020, t01=0x004a}
0x325e…3282               Head {h00=0x0020, h01=0x0050, text=»FPB:V1 EQU 18 VOLUME NAME 1 «, t00=0x0020, t01=0x0068}
0x3282…329e               Head {h00=0x0018, h01=0x0050, text=»FPB:S1 EQU 24 SIZE 1«, t00=0x0020, t01=0x008c}
0x329e…32c2               Head {h00=0x0020, h01=0x0050, text=»FPB:V2 EQU 28 VOLUME NAME 2 «, t00=0x0020, t01=0x00a8}
0x32c2…32de               Head {h00=0x0018, h01=0x0050, text=»FPB:S2 EQU 34 SIZE 2«, t00=0x0020, t01=0x00cc}
0x32de…3302               Head {h00=0x0020, h01=0x0050, text=»FPB:V3 EQU 38 VOLUME NAME 3 «, t00=0x0020, t01=0x00e8}
0x3302…331e               Head {h00=0x0018, h01=0x0050, text=»FPB:S3 EQU 44 SIZE 3«, t00=0x0020, t01=0x010c}
0x331e…3342               Head {h00=0x0020, h01=0x0050, text=»FPB:V4 EQU 48 VOLUME NAME 4 «, t00=0x0020, t01=0x0128}
0x3342…335e               Head {h00=0x0018, h01=0x0050, text=»FPB:S4 EQU 54 SIZE 4«, t00=0x0020, t01=0x014c}
0x335e…3386               Head {h00=0x0024, h01=0x0050, text=»FPB:FR EQU 58 FILE RECORD NUMBER«, t00=0x0020, t01=0x0168}
0x3386…33ac               Head {h00=0x0022, h01=0x0050, text=»FPB:US EQU 62 NUMBER OF USERS «, t00=0x0020, t01=0x0190}
0x33ac…33ce               Head {h00=0x001e, h01=0x0050, text=»FPB:SH EQU 64 SHAREABILITY«, t00=0x0021, t01=0x0026}
0x33ce…33f2               Head {h00=0x0020, h01=0x0050, text=»FPB:MN EQU 65 MONITOR NUMBER«, t00=0x0021, t01=0x0048}
0x33f2…341a               Head {h00=0x0024, h01=0x0050, text=»FPB:SN EQU 66 SOP SWITCH NUMBER «, t00=0x0021, t01=0x006c}
0x341a…3446               Head {h00=0x0028, h01=0x0050, text=»FPB:IF EQU 67 NUMBER OF INDEX FILES «, t00=0x0021, t01=0x0094}
0x3446…3472               Head {h00=0x0028, h01=0x0050, text=»FPB:KA EQU 68 KEY ADDRESS IN RECORD «, t00=0x0021, t01=0x00c0}
0x3472…3496               Head {h00=0x0020, h01=0x0050, text=»FPB:CD EQU 70 CREATION DATE «, t00=0x0021, t01=0x00ec}
0x3496…34bc               Head {h00=0x0022, h01=0x0050, text=»FPB:RP EQU 76 RETENTION PERIOD«, t00=0x0021, t01=0x0110}
0x34bc…34c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0136}
0x34c6…34f8               Head {h00=0x002e, h01=0x0050, text=»FPBLEN EQU 80 FILE PARAMETER BLOCK LENGTH «, t00=0x0021, t01=0x0140}
0x34f8…3502               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0172}
0x3502…351a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0021, t01=0x017c}
0x351a…3524 (34, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0004}
0x3524…352e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x000e}
0x352e…3540               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x0018}
0x3540…3552               Head {h00=0x000e, h01=0x0050, text=»* TTABFM *«, t00=0x0022, t01=0x002a}
0x3552…3564               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x003c}
0x3564…356e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x004e}
0x356e…3584               Head {h00=0x0012, h01=0x0050, text=»* FMTASK TTAB «, t00=0x0022, t01=0x0058}
0x3584…358e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x006e}
0x358e…35a4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x0078}
0x35a4…35c4               Head {h00=0x001c, h01=0x0050, text=» RES 16 FMTASK MMU TABLE«, t00=0x0022, t01=0x008e}
0x35c4…35d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00ae}
0x35d0…35da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ba}
0x35da…35f6               Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0022, t01=0x00c4}
0x35f6…3622               Head {h00=0x0028, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE (DUMMY)«, t00=0x0022, t01=0x00e0}
0x3622…3650               Head {h00=0x002a, h01=0x0050, text=» DATA 0 SEGMENT TABLE ADDRESS (DUMMY) «, t00=0x0022, t01=0x010c}
0x3650…367e               Head {h00=0x002a, h01=0x0050, text=» DATA 0 SEGMENT BLOCK ADDRESS (DUMMY) «, t00=0x0022, t01=0x013a}
0x367e…368a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0168}
0x368a…3694               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0174}
0x3694…36b8               Head {h00=0x0020, h01=0x0050, text=» DATA 0 ACB ADDRESS (DUMMY) «, t00=0x0022, t01=0x017e}
0x36b8…36c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0012}
0x36c2…36e4               Head {h00=0x001e, h01=0x0050, text=»TTABFM EQU * TTABFM ENTRY «, t00=0x0023, t01=0x001c}
0x36e4…370a               Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x0023, t01=0x003e}
0x370a…3730               Head {h00=0x0022, h01=0x0050, text=» DATA '#A' TASK IDENTIFICATION«, t00=0x0023, t01=0x0064}
0x3730…3750               Head {h00=0x001c, h01=0x0050, text=» DATA 49 PRIORITY LEVEL «, t00=0x0023, t01=0x008a}
0x3750…3770               Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x0023, t01=0x00aa}
0x3770…379e               Head {h00=0x002a, h01=0x0050, text=» DATA /C4C0 PSW (PROGRAM STATUS WORD) «, t00=0x0023, t01=0x00ca}
0x379e…37be               Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0023, t01=0x00f8}
0x37be…37f4               Head {h00=0x0032, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14«, t00=0x0023, t01=0x0118}
0x37f4…381c               Head {h00=0x0024, h01=0x0050, text=» DATA FM:ECB A8 = FM:ECB ADDRESS«, t00=0x0023, t01=0x014e}
0x381c…3836               Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0023, t01=0x0176}
0x3836…3860               Head {h00=0x0026, h01=0x0050, text=» DATA 2 TASK DEVICE TABLE (DUMMY) «, t00=0x0023, t01=0x0190}
0x3860…386a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002a}
0x386a…3882               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0024, t01=0x0034}
0x3882…388c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x004c}
0x388c…3896               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0056}
0x3896…38bc               Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0024, t01=0x0060}
0x38bc…38e2               Head {h00=0x0022, h01=0x0050, text=»* ECB, STACK AND DATA AREAS * «, t00=0x0024, t01=0x0086}
0x38e2…3908               Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0024, t01=0x00ac}
0x3908…3912               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d2}
0x3912…391c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00dc}
0x391c…394a               Head {h00=0x002a, h01=0x0050, text=»FM:ECB DATA /8000,0,0 FMTASK ECB AREA «, t00=0x0024, t01=0x00e6}
0x394a…3960               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0024, t01=0x0114}
0x3960…396a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012a}
0x396a…3994               Head {h00=0x0026, h01=0x0050, text=» DATA 0,0 FMTASK STACK (5 LEVELS) «, t00=0x0024, t01=0x0134}
0x3994…39a6               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0024, t01=0x015e}
0x39a6…39b8               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0024, t01=0x0170}
0x39b8…39ca               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0024, t01=0x0182}
0x39ca…39dc (37, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0025, t01=0x0004}
0x39dc…3a04               Head {h00=0x0024, h01=0x0050, text=»FM:STB EQU *-2 FMTASK STACK BASE«, t00=0x0025, t01=0x0016}
0x3a04…3a0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x003e}
0x3a0e…3a36               Head {h00=0x0024, h01=0x0050, text=»FEXTNO DATA 0 NO OF FILE EXTENTS«, t00=0x0025, t01=0x0048}
0x3a36…3a5e               Head {h00=0x0024, h01=0x0050, text=»FILCOD DATA 0,0 FILE CODE TABLE «, t00=0x0025, t01=0x0070}
0x3a5e…3a8c               Head {h00=0x002a, h01=0x0050, text=»RETCOD DATA 0 ACKUMULATED RETURN CODE «, t00=0x0025, t01=0x0098}
0x3a8c…3aba               Head {h00=0x002a, h01=0x0050, text=»TTAB DATA 0 TTAB ADDRESS CALLING TASK «, t00=0x0025, t01=0x00c6}
0x3aba…3af0               Head {h00=0x0032, h01=0x0050, text=»VOLUME DATA 0 CURRENT VOLUME FILE CODE POINTER«, t00=0x0025, t01=0x00f4}
0x3af0…3afa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x012a}
0x3afa…3b10               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x0134}
0x3b10…3b40               Head {h00=0x002c, h01=0x0050, text=»FM:FPB RES 40 FILE PARAMETER BLOCK AREA «, t00=0x0025, t01=0x014a}
0x3b40…3b4c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x017a}
0x3b4c…3b56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0186}
0x3b56…3b6e               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0025, t01=0x0190}
0x3b6e…3b78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0018}
0x3b78…3b82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0022}
0x3b82…3b94               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x002c}
0x3b94…3ba6               Head {h00=0x000e, h01=0x0050, text=»* FMINIT *«, t00=0x0026, t01=0x003e}
0x3ba6…3bb8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x0050}
0x3bb8…3bc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0062}
0x3bc2…3bcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x006c}
0x3bcc…3c0e               Head {h00=0x003e, h01=0x0050, text=»*   FMINIT IS THE FILE MANAGEMENT INITIALIZATION ROUTINE. «, t00=0x0026, t01=0x0076}
0x3c0e…3c4e               Head {h00=0x003c, h01=0x0050, text=»*   IT IS CALLED FROM PFINIT AFTER IPL AND AT POWER ON. «, t00=0x0026, t01=0x00b8}
0x3c4e…3c90               Head {h00=0x003e, h01=0x0050, text=»*   WHEN CALLED AT POWER ON, AN IMMEDIATE RETURN IS MADE. «, t00=0x0026, t01=0x00f8}
0x3c90…3c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x013a}
0x3c9a…3cda               Head {h00=0x003c, h01=0x0050, text=»*   FMINIT WILL ZEROIZE THE FWT AREA, AND LINK THE FWT:S«, t00=0x0026, t01=0x0144}
0x3cda…3d1a               Head {h00=0x003c, h01=0x0050, text=»*   TOGETHER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS«, t00=0x0026, t01=0x0184}
0x3d1a…3d44               Head {h00=0x0026, h01=0x0050, text=»*   WELL AS FWTFNR (FILE NUMBER). «, t00=0x0027, t01=0x0034}
0x3d44…3d7e               Head {h00=0x0036, h01=0x0050, text=»*   FMINIT ALSO HOLDS INITIALIZATION ROUTINES FOR «, t00=0x0027, t01=0x005e}
0x3d7e…3da6               Head {h00=0x0024, h01=0x0050, text=»*   (EXTENDED) DATA MANAGEMENT. «, t00=0x0027, t01=0x0098}
0x3da6…3de6               Head {h00=0x003c, h01=0x0050, text=»*   THE PART OF FMINIT THAT IS NOT EXECUTED AT POWER ON «, t00=0x0027, t01=0x00c0}
0x3de6…3e26               Head {h00=0x003c, h01=0x0050, text=»*   WILL BE USED AS THE INTERNAL BUFFER FOR THE FMTASK. «, t00=0x0027, t01=0x0100}
0x3e26…3e30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0140}
0x3e30…3e52               Head {h00=0x001e, h01=0x0050, text=»FMINIT EQU * FMINIT ENTRY «, t00=0x0027, t01=0x014a}
0x3e52…3e80               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/F03E RTNA15 INSTRUCTION CODE«, t00=0x0027, t01=0x016c}
0x3e80…3ea4               Head {h00=0x0020, h01=0x0050, text=» ST A1,FMINIT CLOSE THE DOOR«, t00=0x0028, t01=0x000a}
0x3ea4…3eae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x002e}
0x3eae…3ed2               Head {h00=0x0020, h01=0x0050, text=»* FMTASK DISC SECTOR BUFFER «, t00=0x0028, t01=0x0038}
0x3ed2…3edc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x005c}
0x3edc…3f1e               Head {h00=0x003e, h01=0x0050, text=»FM:BUF EQU FMINIT+2 INITIALIZATION ROUTINE USED AS BUFFER «, t00=0x0028, t01=0x0066}
0x3f1e…3f28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00a8}
0x3f28…3f5a               Head {h00=0x002e, h01=0x0050, text=»FMINI2 EQU * INITIALIZATION ROUTINE ENTRY «, t00=0x0028, t01=0x00b2}
0x3f5a…3f6a               Head {h00=0x000c, h01=0x0050, text=» RES 125«, t00=0x0028, t01=0x00e4}
0x3f6a…3f74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f4}
0x3f74…3f8c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0028, t01=0x00fe}
0x3f8c…3f96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0116}
0x3f96…3fb6               Head {h00=0x001c, h01=0x0050, text=»* PERFORM INITIALIZATION«, t00=0x0028, t01=0x0120}
0x3fb6…3fc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0140}
0x3fc0…3fd4               Head {h00=0x0010, h01=0x0050, text=»FMI:00 EQU *«, t00=0x0028, t01=0x014a}
0x3fd4…4008               Head {h00=0x0030, h01=0x0050, text=» RORG FMINI2 PUT THE CODE BELOW INTO FM:BUF «, t00=0x0028, t01=0x015e}
0x4008…4036 (41, 0, 400)  Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTFWT FWT CHAIN START ADDRESS «, t00=0x0029, t01=0x0004}
0x4036…405c               Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTNOF NUMBER OF FILES «, t00=0x0029, t01=0x0032}
0x405c…406e               Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0029, t01=0x0058}
0x406e…4092               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,/8000 DWT BUSY BIT «, t00=0x0029, t01=0x006a}
0x4092…409c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x008e}
0x409c…40b0               Head {h00=0x0010, h01=0x0050, text=»FMI:30 EQU *«, t00=0x0029, t01=0x0098}
0x40b0…40ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ac}
0x40ba…40d6               Head {h00=0x0018, h01=0x0050, text=» IFF ADMEDM+SDM=0 =7«, t00=0x0029, t01=0x00b6}
0x40d6…40ec               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0029, t01=0x00d2}
0x40ec…4124               Head {h00=0x0034, h01=0x0050, text=» LDKL A8,FDBMEC FDB MMU ECB DISPLACEMENT IN FWT «, t00=0x0029, t01=0x00e8}
0x4124…4146               Head {h00=0x001e, h01=0x0050, text=» ADR A8,A1 MMU ECB ADDRESS«, t00=0x0029, t01=0x0120}
0x4146…4152               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0142}
0x4152…415c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x014e}
0x415c…4182               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 CURRENT FWT ADDRESS«, t00=0x0029, t01=0x0158}
0x4182…4194               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0029, t01=0x017e}
0x4194…41ba               Head {h00=0x0022, h01=0x0050, text=» AD A3,SCTFWL NEXT FWT ADDRESS«, t00=0x0029, t01=0x0190}
0x41ba…41dc               Head {h00=0x001e, h01=0x0050, text=» ADK A5,1 NEXT FILE NUMBER«, t00=0x002a, t01=0x0026}
0x41dc…41ee               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002a, t01=0x0048}
0x41ee…421c               Head {h00=0x002a, h01=0x0050, text=» RF(N) FMI:50 INITIALIZATION COMPLETED«, t00=0x002a, t01=0x005a}
0x421c…424c               Head {h00=0x002c, h01=0x0050, text=» RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE«, t00=0x002a, t01=0x0088}
0x424c…4280               Head {h00=0x0030, h01=0x0050, text=» STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT «, t00=0x002a, t01=0x00b8}
0x4280…42a8               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 INCREMENT FWT POINTER «, t00=0x002a, t01=0x00ec}
0x42a8…42b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0114}
0x42b2…42ca               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x002a, t01=0x011e}
0x42ca…42d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0136}
0x42d4…42de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0140}
0x42de…42f2               Head {h00=0x0010, h01=0x0050, text=»FMI:40 EQU *«, t00=0x002a, t01=0x014a}
0x42f2…4302               Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x002a, t01=0x015e}
0x4302…432a               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 INCREMENT FWT POINTER «, t00=0x002a, t01=0x016e}
0x432a…4356               Head {h00=0x0028, h01=0x0050, text=» CWR A1,A3 CHECK IF END OF THIS FWT «, t00=0x002b, t01=0x0008}
0x4356…4380               Head {h00=0x0026, h01=0x0050, text=» RB(NE) FMI:40 NOT END OF THE FWT «, t00=0x002b, t01=0x0034}
0x4380…4396               Head {h00=0x0012, h01=0x0050, text=» SU A3,SCTFWL «, t00=0x002b, t01=0x005e}
0x4396…43bc               Head {h00=0x0022, h01=0x0050, text=» ADK A3,FWTEW2 FWTEW2 ADDRESS «, t00=0x002b, t01=0x0074}
0x43bc…43ee               Head {h00=0x002e, h01=0x0050, text=» ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER«, t00=0x002b, t01=0x009a}
0x43ee…441e               Head {h00=0x002c, h01=0x0050, text=» ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT «, t00=0x002b, t01=0x00cc}
0x441e…444c               Head {h00=0x002a, h01=0x0050, text=» ST A6,DWTST,A2 INDICATE FWT NOT BUSY «, t00=0x002b, t01=0x00fc}
0x444c…4456               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x012a}
0x4456…4474               Head {h00=0x001a, h01=0x0050, text=» IFF ADMEDM+SDM=0  =7 «, t00=0x002b, t01=0x0134}
0x4474…448a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002b, t01=0x0152}
0x448a…44b6               Head {h00=0x0028, h01=0x0050, text=» ST A8,DWTMEC,A2 SET MMU ECB ADDRESS«, t00=0x002b, t01=0x0168}
0x44b6…44c2 (44, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0004}
0x44c2…44cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0010}
0x44cc…44e6               Head {h00=0x0016, h01=0x0050, text=» IFF ADMEDM+SDM=0 «, t00=0x002c, t01=0x001a}
0x44e6…4500               Head {h00=0x0016, h01=0x0050, text=» LDKL A7,TIODM  =5«, t00=0x002c, t01=0x0034}
0x4500…451c               Head {h00=0x0018, h01=0x0050, text=» ST A7,DWTADR,A2  =5«, t00=0x002c, t01=0x004e}
0x451c…452e               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x002c, t01=0x006a}
0x452e…4558               Head {h00=0x0026, h01=0x0050, text=» RB FMI:30 CONTINUE WITH NEXT FWT «, t00=0x002c, t01=0x007c}
0x4558…4562               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00a6}
0x4562…4570               Head {h00=0x000a, h01=0x0050, text=»    =4«, t00=0x002c, t01=0x00b0}
0x4570…4588               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x002c, t01=0x00be}
0x4588…4592               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d6}
0x4592…45b0               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE NVL BIT MASK«, t00=0x002c, t01=0x00e0}
0x45b0…45ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00fe}
0x45ba…45ce               Head {h00=0x0010, h01=0x0050, text=»FMI:50 EQU *«, t00=0x002c, t01=0x0108}
0x45ce…45e4               Head {h00=0x0012, h01=0x0050, text=» LDK A1,0  =4 «, t00=0x002c, t01=0x011c}
0x45e4…45f6               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x002c, t01=0x0132}
0x45f6…461c               Head {h00=0x0022, h01=0x0050, text=» LDKL A3,NVLTAB NVLTAB ADDRESS«, t00=0x002c, t01=0x0144}
0x461c…4626               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x016a}
0x4626…463a               Head {h00=0x0010, h01=0x0050, text=»FMI:80 EQU *«, t00=0x002c, t01=0x0174}
0x463a…4668               Head {h00=0x002a, h01=0x0050, text=» LDR* A4,A3 GET ONE ENTRY FROM NVLTAB «, t00=0x002c, t01=0x0188}
0x4668…4692               Head {h00=0x0026, h01=0x0050, text=» RF(Z) FMI:85 THIS ENTRY NOT USED «, t00=0x002d, t01=0x0026}
0x4692…46ba               Head {h00=0x0024, h01=0x0050, text=» ORR A1,A2 INDICATE TTAB PRESENT«, t00=0x002d, t01=0x0050}
0x46ba…46c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0078}
0x46c4…46d8               Head {h00=0x0010, h01=0x0050, text=»FMI:85 EQU *«, t00=0x002d, t01=0x0082}
0x46d8…46ea               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x002d, t01=0x0096}
0x46ea…4714               Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 INCREMENT NVLTAB POINTER«, t00=0x002d, t01=0x00a8}
0x4714…4742               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NVLEND CHECK IF END OF NVLTAB «, t00=0x002d, t01=0x00d2}
0x4742…476a               Head {h00=0x0024, h01=0x0050, text=» RB(NE) FMI:80 NOT END OF NVLTAB«, t00=0x002d, t01=0x0100}
0x476a…4798               Head {h00=0x002a, h01=0x0050, text=» ORR A1,A2 ADD ONE BIT FOR USER TASKS «, t00=0x002d, t01=0x0128}
0x4798…47be               Head {h00=0x0022, h01=0x0050, text=» ST A1,NVLBIT SET NVL BIT MASK«, t00=0x002d, t01=0x0156}
0x47be…47c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x017c}
0x47c8…47da               Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x002d, t01=0x0186}
0x47da…4812               Head {h00=0x0034, h01=0x0050, text=» ABL SDMINI PERFORM DM INITIALIZATION AND RETURN«, t00=0x002e, t01=0x0008}
0x4812…481e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0040}
0x481e…4828               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x004c}
0x4828…4836               Head {h00=0x000a, h01=0x0050, text=»    =2«, t00=0x002e, t01=0x0056}
0x4836…484e               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x002e, t01=0x0064}
0x484e…4858               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x007c}
0x4858…4862               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0086}
0x4862…4874               Head {h00=0x000e, h01=0x0050, text=» IFT EDM=1«, t00=0x002e, t01=0x0090}
0x4874…487e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a2}
0x487e…48a0               Head {h00=0x001e, h01=0x0050, text=»* INITIALIZE ALL EDM TASKS«, t00=0x002e, t01=0x00ac}
0x48a0…48aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ce}
0x48aa…48da               Head {h00=0x002c, h01=0x0050, text=» LDKL A1,DWDM01 PARAMETER BLOCK ADDRESS «, t00=0x002e, t01=0x00d8}
0x48da…48f2               Head {h00=0x0014, h01=0x0050, text=» ADKL A1,DWTPAB «, t00=0x002e, t01=0x0108}
0x48f2…491c               Head {h00=0x0026, h01=0x0050, text=» LDK A2,2 INDICATE INITIALIZATION «, t00=0x002e, t01=0x0120}
0x491c…492e               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x002e, t01=0x014a}
0x492e…495a               Head {h00=0x0028, h01=0x0050, text=» LDKL A7,'$D' TASK ID,FIRST EDM TASK«, t00=0x002e, t01=0x015c}
0x495a…4984               Head {h00=0x0026, h01=0x0050, text=» LD A3,SCTDMT EDM TASKS IN SYSTEM «, t00=0x002e, t01=0x0188}
0x4984…498e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0022}
0x498e…49a2               Head {h00=0x0010, h01=0x0050, text=»FMI:90 EQU *«, t00=0x002f, t01=0x002c}
0x49a2…49b4               Head {h00=0x000e, h01=0x0050, text=» SRC A3,1 «, t00=0x002f, t01=0x0040}
0x49b4…49d4               Head {h00=0x001c, h01=0x0050, text=» RF(NN) FMI:99 NEXT TASK«, t00=0x002f, t01=0x0052}
0x49d4…4a08               Head {h00=0x0030, h01=0x0050, text=» CF A15,FNDTID FIND (E)DM TASK TTAB ADDRESS «, t00=0x002f, t01=0x0072}
0x4a08…4a1a               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x002f, t01=0x00a6}
0x4a1a…4a42               Head {h00=0x0024, h01=0x0050, text=» RF(Z) FMIHLT TTAB NOT FOUND =2 «, t00=0x002f, t01=0x00b8}
0x4a42…4a4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00e0}
0x4a4c…4a64               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x002f, t01=0x00ea}
0x4a64…4a6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0102}
0x4a6e…4a78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x010c}
0x4a78…4ab0               Head {h00=0x0034, h01=0x0050, text=» LD A4,SCTMOX ADDRESS OF DISPATCH ADDRESS TABLE «, t00=0x002f, t01=0x0116}
0x4ab0…4ac2               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x002f, t01=0x014e}
0x4ac2…4ae2               Head {h00=0x001c, h01=0x0050, text=» ADR* A2,A4 END ADDRESS «, t00=0x002f, t01=0x0160}
0x4ae2…4b02               Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 ADJUST POINTER«, t00=0x002f, t01=0x0180}
0x4b02…4b0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0010}
0x4b0c…4b20               Head {h00=0x0010, h01=0x0050, text=»FMI:95 EQU *«, t00=0x0030, t01=0x001a}
0x4b20…4b3c               Head {h00=0x0018, h01=0x0050, text=» ADK A4,4 NEXT ENTRY«, t00=0x0030, t01=0x002e}
0x4b3c…4b50               Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A4 «, t00=0x0030, t01=0x004a}
0x4b50…4b72               Head {h00=0x001e, h01=0x0050, text=» RB(NE) FMI:95 NOT SAME ID«, t00=0x0030, t01=0x005e}
0x4b72…4b96               Head {h00=0x0020, h01=0x0050, text=» LD A2,2,A4 DISPATCH ADDRESS«, t00=0x0030, t01=0x0080}
0x4b96…4bbe               Head {h00=0x0024, h01=0x0050, text=» CF A15,ACTOT ACTIVATE EDM TASK «, t00=0x0030, t01=0x00a4}
0x4bbe…4bc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00cc}
0x4bc8…4bdc               Head {h00=0x0010, h01=0x0050, text=»FMI:99 EQU *«, t00=0x0030, t01=0x00d6}
0x4bdc…4bfc               Head {h00=0x001c, h01=0x0050, text=» ADK A7,1 NEXT EDM TASK «, t00=0x0030, t01=0x00ea}
0x4bfc…4c14               Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF  =6 «, t00=0x0030, t01=0x010a}
0x4c14…4c42               Head {h00=0x002a, h01=0x0050, text=» RB(NZ) FMI:90 MORE TASKS TO ACTIVATE «, t00=0x0030, t01=0x0122}
0x4c42…4c4e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0150}
0x4c4e…4c58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015c}
0x4c58…4c90               Head {h00=0x0034, h01=0x0050, text=» RTN A15 FM/EDM INITIALIZATION COMPLETED, RETURN«, t00=0x0030, t01=0x0166}
0x4c90…4c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x000e}
0x4c9a…4cb8               Head {h00=0x001a, h01=0x0050, text=»* TTAB NOT FOUND   =2 «, t00=0x0031, t01=0x0018}
0x4cb8…4cc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0036}
0x4cc2…4cda               Head {h00=0x0014, h01=0x0050, text=»FMIHLT EQU *  =2«, t00=0x0031, t01=0x0040}
0x4cda…4cfa               Head {h00=0x001c, h01=0x0050, text=» LDK A1,/11 DM ERROR =2 «, t00=0x0031, t01=0x0058}
0x4cfa…4d12               Head {h00=0x0014, h01=0x0050, text=» CF A15,HALT  =2«, t00=0x0031, t01=0x0078}
0x4d12…4d38               Head {h00=0x0022, h01=0x0050, text=» RORG FMI:00 END OF RELOCATION«, t00=0x0031, t01=0x0090}
0x4d38…4d42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b6}
0x4d42…4d5a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0031, t01=0x00c0}
0x4d5a…4d64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00d8}
0x4d64…4d6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e2}
0x4d6e…4d80               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x00ec}
0x4d80…4d92               Head {h00=0x000e, h01=0x0050, text=»* FMTASK *«, t00=0x0031, t01=0x00fe}
0x4d92…4da4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x0110}
0x4da4…4dae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0122}
0x4dae…4db8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x012c}
0x4db8…4de6               Head {h00=0x002a, h01=0x0050, text=»*   THE FILE MANAGEMENT TASK PERFORMS «, t00=0x0031, t01=0x0136}
0x4de6…4e14               Head {h00=0x002a, h01=0x0050, text=»*   FILE ADMINISTRATION FUNCTIONS. IT «, t00=0x0031, t01=0x0164}
0x4e14…4e44 (50, 0, 400)  Head {h00=0x002c, h01=0x0050, text=»*   IS ACTIVATED BY THE FILE MANAGEMENT «, t00=0x0032, t01=0x0004}
0x4e44…4e7c               Head {h00=0x0034, h01=0x0050, text=»*   LKM PROCESSOR 'TIOFM' AT ENTRY FMTASK BELOW.«, t00=0x0032, t01=0x0034}
0x4e7c…4eae               Head {h00=0x002e, h01=0x0050, text=»*   AFTER SOME HOUSEKEEPING THE FOLLOWING «, t00=0x0032, t01=0x006c}
0x4eae…4ee8               Head {h00=0x0036, h01=0x0050, text=»*   MODULES WILL PERFORM THE FILE ADMINISTRATION: «, t00=0x0032, t01=0x009e}
0x4ee8…4ef2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00d8}
0x4ef2…4f3a               Head {h00=0x0044, h01=0x0050, text=»*   - FMOPEN   OPEN/CREATE/EXTEND FILE        (OPTIONS: 0, 2, 1)«, t00=0x0032, t01=0x00e2}
0x4f3a…4f80               Head {h00=0x0042, h01=0x0050, text=»*   - FMCLOS   CLOSE/DELETE FILE              (   "   : 0, 2) «, t00=0x0032, t01=0x012a}
0x4f80…4fc2               Head {h00=0x003e, h01=0x0050, text=»*   - FMRPAR   READ FILE PARAMETERS           (   "   : 0)«, t00=0x0032, t01=0x0170}
0x4fc2…4fcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0022}
0x4fcc…5010               Head {h00=0x0040, h01=0x0050, text=»*   NOTICE THAT FUNCTIONS CREATE/EXTEND/DELETE ARE SITUATED «, t00=0x0033, t01=0x002c}
0x5010…5052               Head {h00=0x003e, h01=0x0050, text=»*   IN MODULE 'FMCDEF' BUT LOGICALLY BELONG TO OPEN/CLOSE.«, t00=0x0033, t01=0x0070}
0x5052…505c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b2}
0x505c…5088               Head {h00=0x0028, h01=0x0050, text=»*   A SPECIAL ENTRY IS USED FOR I/O «, t00=0x0033, t01=0x00bc}
0x5088…50ba               Head {h00=0x002e, h01=0x0050, text=»*   FUNCTIONS WHERE REQUESTED SECTORS ARE «, t00=0x0033, t01=0x00e8}
0x50ba…50ea               Head {h00=0x002c, h01=0x0050, text=»*   SPLIT OVER TWO OR MORE FILE EXTENTS:«, t00=0x0033, t01=0x011a}
0x50ea…50f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x014a}
0x50f4…5136               Head {h00=0x003e, h01=0x0050, text=»*   - FMSPLI   READ/WRITE (SPLIT I/O)         (OPTIONS: 0)«, t00=0x0033, t01=0x0154}
0x5136…5140               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0008}
0x5140…514a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0012}
0x514a…5168               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x0034, t01=0x001c}
0x5168…5172               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x003a}
0x5172…51aa               Head {h00=0x0034, h01=0x0050, text=»*   A1 = ORDER OPTION AND CODE (RFP/OPEN/CLOSE) «, t00=0x0034, t01=0x0044}
0x51aa…51de               Head {h00=0x0030, h01=0x0050, text=»*      = PARAMETER BLOCK ADDRESS (SPLIT I/O)«, t00=0x0034, t01=0x007c}
0x51de…520c               Head {h00=0x002a, h01=0x0050, text=»*   A3 = TTAB ADDRESS OF CALLING TASK «, t00=0x0034, t01=0x00b0}
0x520c…525a               Head {h00=0x004a, h01=0x0050, text=»*   A4 = FUNCTION INDEX (0 = RFP, 2 = OPEN, 4 = CLOSE, 6 = SPLIT I/O) «, t00=0x0034, t01=0x00de}
0x525a…527a               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0034, t01=0x012c}
0x527a…5284               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x014c}
0x5284…529c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0034, t01=0x0156}
0x529c…52a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x016e}
0x52a6…52b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0178}
0x52b0…52dc               Head {h00=0x0028, h01=0x0050, text=»FMTASK EQU * FMTASK ACTIVATION ENTRY«, t00=0x0034, t01=0x0182}
0x52dc…52e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x001e}
0x52e6…530a               Head {h00=0x0020, h01=0x0050, text=»* PERFORM SOME HOUSEKEEPING «, t00=0x0035, t01=0x0028}
0x530a…5314               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004c}
0x5314…5336               Head {h00=0x001e, h01=0x0050, text=» CM ECBCW1,A8 CLEAR 1ST CW«, t00=0x0035, t01=0x0056}
0x5336…5366               Head {h00=0x002c, h01=0x0050, text=» LDR A5,A3 TTAB ADDRESS OF CALLING TASK «, t00=0x0035, t01=0x0078}
0x5366…5398               Head {h00=0x002e, h01=0x0050, text=» ST A5,TTAB SAVE TTAB ADDRESS CALLING TASK«, t00=0x0035, t01=0x00a8}
0x5398…53ba               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A1 SAVE PARAMETER «, t00=0x0035, t01=0x00da}
0x53ba…53c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00fc}
0x53c4…53da               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0035, t01=0x0106}
0x53da…540c               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,FM:BUF FMTASK DISC SECTOR BUFFER «, t00=0x0035, t01=0x011c}
0x540c…543e               Head {h00=0x002e, h01=0x0050, text=» ST A2,ECBBA,A8 SET BUFFER ADDRESS IN ECB «, t00=0x0035, t01=0x014e}
0x543e…5452               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,256«, t00=0x0035, t01=0x0180}
0x5452…5486 (54, 0, 400)  Head {h00=0x0030, h01=0x0050, text=» ST A2,ECBRL,A8 SET REQUESTED LENGTH IN ECB «, t00=0x0036, t01=0x0004}
0x5486…5492               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0038}
0x5492…549c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0044}
0x549c…54b2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0036, t01=0x004e}
0x54b2…54c0               Head {h00=0x000a, h01=0x0050, text=» MLK 3«, t00=0x0036, t01=0x0064}
0x54c0…54de               Head {h00=0x001a, h01=0x0050, text=» DATA /8000,FM:BUF,256«, t00=0x0036, t01=0x0072}
0x54de…5502               Head {h00=0x0020, h01=0x0050, text=» MSR 3,A8 INITIALIZE FM:ECB «, t00=0x0036, t01=0x0090}
0x5502…5526               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A7 RESTORE PARAMETER«, t00=0x0036, t01=0x00b4}
0x5526…5532               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x00d8}
0x5532…553c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00e4}
0x553c…5560               Head {h00=0x0020, h01=0x0050, text=» CM RETCOD RESET RETURN CODE«, t00=0x0036, t01=0x00ee}
0x5560…558c               Head {h00=0x0028, h01=0x0050, text=» LD A9,TTB:SA+16,A5 USER ECB ADDRESS«, t00=0x0036, t01=0x0112}
0x558c…55b6               Head {h00=0x0026, h01=0x0050, text=» LDKL A14,FM:STB FMTASK STACK BASE«, t00=0x0036, t01=0x013e}
0x55b6…55c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0168}
0x55c0…55d6               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0036, t01=0x0172}
0x55d6…5602               Head {h00=0x0028, h01=0x0050, text=» LD A10,ECBBA,A9 FPB/BUFFER ADDRESS «, t00=0x0036, t01=0x0188}
0x5602…560e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0024}
0x560e…5618               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0030}
0x5618…562e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0037, t01=0x003a}
0x562e…565a               Head {h00=0x0028, h01=0x0050, text=» LDKL A3,TTABFM FMTASK TTAB ADDRESS «, t00=0x0037, t01=0x0050}
0x565a…567e               Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A5 USER MMU TABLE«, t00=0x0037, t01=0x007c}
0x567e…56ae               Head {h00=0x002c, h01=0x0050, text=» TS TTB:MT,A3 STORE IN FMTASK MMU TABLE «, t00=0x0037, t01=0x00a0}
0x56ae…56de               Head {h00=0x002c, h01=0x0050, text=» EL A10,ECBBA,A9 USER FPB/BUFFER ADDRESS«, t00=0x0037, t01=0x00d0}
0x56de…56ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0100}
0x56ea…56f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x010c}
0x56f4…570c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0037, t01=0x0116}
0x570c…5716               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x012e}
0x5716…574a               Head {h00=0x0030, h01=0x0050, text=»*   BRANCH TO APPROPRIATE FUNCTION HANDLER. «, t00=0x0037, t01=0x0138}
0x574a…5754               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x016c}
0x5754…5788               Head {h00=0x0030, h01=0x0050, text=»*   THE FOLLOWING PARAMETERS ARE SUPPLIED TO«, t00=0x0037, t01=0x0176}
0x5788…57b0               Head {h00=0x0024, h01=0x0050, text=»*   THE RESP. FUNCTION HANDLER: «, t00=0x0038, t01=0x001a}
0x57b0…57ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0042}
0x57ba…57d8               Head {h00=0x001a, h01=0x0050, text=»*   A1 = ORDER OPTION «, t00=0x0038, t01=0x004c}
0x57d8…5806               Head {h00=0x002a, h01=0x0050, text=»*   A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0038, t01=0x006a}
0x5806…5832               Head {h00=0x0028, h01=0x0050, text=»*   A7 = COMPLETE PARAMETER FROM A1 «, t00=0x0038, t01=0x0098}
0x5832…5852               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0038, t01=0x00c4}
0x5852…5874               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x0038, t01=0x00e4}
0x5874…5890               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x0038, t01=0x0106}
0x5890…589a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0122}
0x589a…58ba               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF ORDER OPTION«, t00=0x0038, t01=0x012c}
0x58ba…58ec               Head {h00=0x002e, h01=0x0050, text=» ABI ORDTAB,A4 BRANCH TO FUNCTION HANDLER «, t00=0x0038, t01=0x014c}
0x58ec…58f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x017e}
0x58f6…592a               Head {h00=0x0030, h01=0x0050, text=»ORDTAB EQU * ADDRESSES TO FUNCTION HANDLERS «, t00=0x0038, t01=0x0188}
0x592a…5954               Head {h00=0x0026, h01=0x0050, text=» DATA FMRPAR READ FILE PARAMETERS «, t00=0x0039, t01=0x002c}
0x5954…5980               Head {h00=0x0028, h01=0x0050, text=» DATA FMOPEN OPEN/CREATE/EXTEND FILE«, t00=0x0039, t01=0x0056}
0x5980…59a6               Head {h00=0x0022, h01=0x0050, text=» DATA FMCLOS CLOSE/DELETE FILE«, t00=0x0039, t01=0x0082}
0x59a6…59b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00a8}
0x59b0…59c6               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0039, t01=0x00b2}
0x59c6…59e4               Head {h00=0x001a, h01=0x0050, text=» DATA FMSPLI SPLIT I/O«, t00=0x0039, t01=0x00c8}
0x59e4…59f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00e6}
0x59f0…59fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f2}
0x59fa…5a10               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=0 «, t00=0x0039, t01=0x00fc}
0x5a10…5a3c               Head {h00=0x0028, h01=0x0050, text=» DATA FM:RQE SPLIT I/O NOT INCLUDED «, t00=0x0039, t01=0x0112}
0x5a3c…5a48               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x013e}
0x5a48…5a52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x014a}
0x5a52…5a6a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0039, t01=0x0154}
0x5a6a…5a74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x016c}
0x5a74…5a7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0176}
0x5a7e…5a90               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0180}
0x5a90…5aa2 (58, 0, 400)  Head {h00=0x000e, h01=0x0050, text=»* FMOPEN *«, t00=0x003a, t01=0x0004}
0x5aa2…5ab4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0016}
0x5ab4…5abe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0028}
0x5abe…5ac8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0032}
0x5ac8…5afe               Head {h00=0x0032, h01=0x0050, text=»*   FILE MANAGEMENT ADMINISTRATION FUNCTIONS: «, t00=0x003a, t01=0x003c}
0x5afe…5b22               Head {h00=0x0020, h01=0x0050, text=»*   OPEN/CREATE/EXTEND FILE «, t00=0x003a, t01=0x0072}
0x5b22…5b2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0096}
0x5b2c…5b4a               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x003a, t01=0x00a0}
0x5b4a…5b54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00be}
0x5b54…5b72               Head {h00=0x001a, h01=0x0050, text=»*   A1 = ORDER OPTION «, t00=0x003a, t01=0x00c8}
0x5b72…5b92               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x003a, t01=0x00e6}
0x5b92…5bb4               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x003a, t01=0x0106}
0x5bb4…5bd0               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x003a, t01=0x0128}
0x5bd0…5bda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0144}
0x5bda…5c06               Head {h00=0x0028, h01=0x0050, text=»FMOPEN EQU * OPEN/CREATE/EXTEND FILE«, t00=0x003a, t01=0x014e}
0x5c06…5c2c               Head {h00=0x0022, h01=0x0050, text=» LDR A13,A1 SAVE ORDER OPTION «, t00=0x003a, t01=0x017a}
0x5c2c…5c36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0010}
0x5c36…5c4c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003b, t01=0x001a}
0x5c4c…5c56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0030}
0x5c56…5c84               Head {h00=0x002a, h01=0x0050, text=»* MOVE USER FPB TO SYSTEM FPB (FM:FPB)«, t00=0x003b, t01=0x003a}
0x5c84…5c8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0068}
0x5c8e…5cb2               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 USER FPB ADDRESS«, t00=0x003b, t01=0x0072}
0x5cb2…5cd8               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,FM:FPB FM FPB ADDRESS«, t00=0x003b, t01=0x0096}
0x5cd8…5cf4               Head {h00=0x0018, h01=0x0050, text=» LDR A10,A2 SAVE IT «, t00=0x003b, t01=0x00bc}
0x5cf4…5d1e               Head {h00=0x0026, h01=0x0050, text=» LDK A3,FPBLEN FPB LENGTH (BYTES) «, t00=0x003b, t01=0x00d8}
0x5d1e…5d46               Head {h00=0x0024, h01=0x0050, text=» MVUS A3 MOVE USER FPB TO FM:FPB«, t00=0x003b, t01=0x0102}
0x5d46…5d52               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x012a}
0x5d52…5d5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0136}
0x5d5c…5d74               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x003b, t01=0x0140}
0x5d74…5d7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0158}
0x5d7e…5d88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0162}
0x5d88…5db8               Head {h00=0x002c, h01=0x0050, text=» LDKL A5,FILCOD FILE CODE TABLE ADDRESS «, t00=0x003b, t01=0x016c}
0x5db8…5df2               Head {h00=0x0036, h01=0x0050, text=» LDK A7,FPB:V1 1ST VOLUME NAME DISPLACEMENT IN FPB«, t00=0x003c, t01=0x000c}
0x5df2…5dfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0046}
0x5dfc…5e28               Head {h00=0x0028, h01=0x0050, text=»* CHECK IF ANY VOLUME NAME SPECIFIED«, t00=0x003c, t01=0x0050}
0x5e28…5e32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x007c}
0x5e32…5e46               Head {h00=0x0010, h01=0x0050, text=»FMOP00 EQU *«, t00=0x003c, t01=0x0086}
0x5e46…5e66               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A10 FPB ADDRESS «, t00=0x003c, t01=0x009a}
0x5e66…5e8e               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A7 POINT TO VOLUME NAME «, t00=0x003c, t01=0x00ba}
0x5e8e…5ebc               Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A2 FIRST WORD OF VOLUME NAME «, t00=0x003c, t01=0x00e2}
0x5ebc…5eea               Head {h00=0x002a, h01=0x0050, text=» RF(Z) FMOP20 NO VOLUME NAME SPECIFIED«, t00=0x003c, t01=0x0110}
0x5eea…5f10               Head {h00=0x0022, h01=0x0050, text=» SUKL A2,/2020 CHECK IF SPACES«, t00=0x003c, t01=0x013e}
0x5f10…5f3e               Head {h00=0x002a, h01=0x0050, text=» RF(Z) FMOP20 NO VOLUME NAME SPECIFIED«, t00=0x003c, t01=0x0164}
0x5f3e…5f76 (61, 0, 400)  Head {h00=0x0034, h01=0x0050, text=» LDKL A4,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 «, t00=0x003d, t01=0x0004}
0x5f76…5f80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x003c}
0x5f80…5faa               Head {h00=0x0026, h01=0x0050, text=»* CONVERT VOLUME NAME TO FILE CODE«, t00=0x003d, t01=0x0046}
0x5faa…5fb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0070}
0x5fb4…5fc8               Head {h00=0x0010, h01=0x0050, text=»FMOP10 EQU *«, t00=0x003d, t01=0x007a}
0x5fc8…5fda               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003d, t01=0x008e}
0x5fda…6004               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 POINT TO NEXT FILE CODE «, t00=0x003d, t01=0x00a0}
0x6004…6030               Head {h00=0x0028, h01=0x0050, text=» CWK A4,DFTABE CHECK IF END OF DFTAB«, t00=0x003d, t01=0x00ca}
0x6030…6062               Head {h00=0x002e, h01=0x0050, text=» RF(E) FM:INE FILE CODE NOT FOUND, RETURN «, t00=0x003d, t01=0x00f6}
0x6062…6084               Head {h00=0x001e, h01=0x0050, text=» LCR A2,A4 NEXT FILE CODE «, t00=0x003d, t01=0x0128}
0x6084…60b4               Head {h00=0x002c, h01=0x0050, text=» CF A14,FNDNAM FIND VOLUME NAME ADDRESS «, t00=0x003d, t01=0x014a}
0x60b4…60d4               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A10 FPB ADDRESS «, t00=0x003d, t01=0x017a}
0x60d4…610a               Head {h00=0x0032, h01=0x0050, text=» ADR A2,A7 POINT TO CURRENT VOLUME NAME IN FPB«, t00=0x003e, t01=0x000a}
0x610a…612e               Head {h00=0x0020, h01=0x0050, text=» LDK A3,6 VOLUME NAME LENGTH«, t00=0x003e, t01=0x0040}
0x612e…615a               Head {h00=0x0028, h01=0x0050, text=» CF A14,CMPSTR COMPARE VOLUME NAMES «, t00=0x003e, t01=0x0064}
0x615a…6188               Head {h00=0x002a, h01=0x0050, text=» RB(NE) FMOP10 VOLUME NAMES NOT EQUAL «, t00=0x003e, t01=0x0090}
0x6188…61a4               Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 FILE CODE«, t00=0x003e, t01=0x00be}
0x61a4…61e2               Head {h00=0x003a, h01=0x0050, text=» SC A3,DWTNVL+1,A6 CLEAR NVL BITS (A3 = 0 FROM CMPSTR)«, t00=0x003e, t01=0x00da}
0x61e2…61ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0118}
0x61ec…6204               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x003e, t01=0x0122}
0x6204…620e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x013a}
0x620e…624e               Head {h00=0x003c, h01=0x0050, text=»* STORE FILE CODE (OR ZERO) IN FILE CODE TABLE (FILCOD) «, t00=0x003e, t01=0x0144}
0x624e…6258               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0184}
0x6258…626c               Head {h00=0x0010, h01=0x0050, text=»FMOP20 EQU *«, t00=0x003e, t01=0x018e}
0x626c…628e               Head {h00=0x001e, h01=0x0050, text=» SCR A2,A5 SAVE FILE CODE «, t00=0x003f, t01=0x0012}
0x628e…62a0               Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x003f, t01=0x0034}
0x62a0…62dc               Head {h00=0x0038, h01=0x0050, text=» ADK A7,FPB:V2-FPB:V1 NEXT VOLUME NAME DISPLACEMENT «, t00=0x003f, t01=0x0046}
0x62dc…630a               Head {h00=0x002a, h01=0x0050, text=» CWK A5,FILCOD+4 CHECK IF END OF TABLE«, t00=0x003f, t01=0x0082}
0x630a…6336               Head {h00=0x0028, h01=0x0050, text=» RB(NE) FMOP00 MORE VOLUMES TO CHECK«, t00=0x003f, t01=0x00b0}
0x6336…6360               Head {h00=0x0026, h01=0x0050, text=» SUK A5,4 FILE CODE TABLE ADDRESS «, t00=0x003f, t01=0x00dc}
0x6360…636a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0106}
0x636a…639c               Head {h00=0x002e, h01=0x0050, text=»* GET FILE CODE OF FIRST SPECIFIED VOLUME «, t00=0x003f, t01=0x0110}
0x639c…63a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0142}
0x63a6…63ba               Head {h00=0x0010, h01=0x0050, text=»FMOP30 EQU *«, t00=0x003f, t01=0x014c}
0x63ba…63da               Head {h00=0x001c, h01=0x0050, text=» LCR A7,A5 ONE FILE CODE«, t00=0x003f, t01=0x0160}
0x63da…63ee               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x003f, t01=0x0180}
0x63ee…641e (64, 0, 398)  Head {h00=0x002c, h01=0x0050, text=» RF(NZ) FMOP40 FIRST FILE CODE TO TREAT «, t00=0x0040, t01=0x0004}
0x641e…6448               Head {h00=0x0026, h01=0x0050, text=» ADK A5,1 POINT TO NEXT FILE CODE «, t00=0x0040, t01=0x0034}
0x6448…6476               Head {h00=0x002a, h01=0x0050, text=» CWK A5,FILCOD+4 CHECK IF END OF TABLE«, t00=0x0040, t01=0x005e}
0x6476…64a2               Head {h00=0x0028, h01=0x0050, text=» RB(NE) FMOP30 CHECK NEXT FILE CODE «, t00=0x0040, t01=0x008c}
0x64a2…64ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00b8}
0x64ac…64cc               Head {h00=0x001c, h01=0x0050, text=»* VOLUME/FILE NOT FOUND «, t00=0x0040, t01=0x00c2}
0x64cc…64d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00e2}
0x64d6…6500               Head {h00=0x0026, h01=0x0050, text=»FM:INE EQU * VOLUME/FILE NOT FOUND«, t00=0x0040, t01=0x00ec}
0x6500…6522               Head {h00=0x001e, h01=0x0050, text=» LDKL A4,/8800 RETURN CODE«, t00=0x0040, t01=0x0116}
0x6522…6534               Head {h00=0x000e, h01=0x0050, text=» RF ER:RTN«, t00=0x0040, t01=0x0138}
0x6534…653e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x014a}
0x653e…6556               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0040, t01=0x0154}
0x6556…6560               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x016c}
0x6560…657c               Head {h00=0x0018, h01=0x0050, text=»* CHECK ORDER OPTION«, t00=0x0040, t01=0x0176}
0x657c…6586 (65, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0004}
0x6586…659a               Head {h00=0x0010, h01=0x0050, text=»FMOP40 EQU *«, t00=0x0041, t01=0x000e}
0x659a…65d0               Head {h00=0x0032, h01=0x0050, text=» ST A5,VOLUME CURRENT VOLUME FILE CODE ADDRESS«, t00=0x0041, t01=0x0022}
0x65d0…65f0               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A13 ORDER OPTION«, t00=0x0041, t01=0x0058}
0x65f0…660e               Head {h00=0x001a, h01=0x0050, text=» RF(Z) OPEN OPEN FILE «, t00=0x0041, t01=0x0078}
0x660e…6618               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0096}
0x6618…662e               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x0041, t01=0x00a0}
0x662e…6640               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0041, t01=0x00b6}
0x6640…6662               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) EXTEND EXTEND FILE«, t00=0x0041, t01=0x00c8}
0x6662…6674               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0041, t01=0x00ea}
0x6674…6696               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) CREATE CREATE FILE«, t00=0x0041, t01=0x00fc}
0x6696…66a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x011e}
0x66a2…66ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x012a}
0x66ac…66c4               Head {h00=0x0014, h01=0x0050, text=»* REQUEST ERROR «, t00=0x0041, t01=0x0134}
0x66c4…66ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x014c}
0x66ce…66f6               Head {h00=0x0024, h01=0x0050, text=»FM:RQE EQU * REQUEST ERROR EXIT «, t00=0x0041, t01=0x0156}
0x66f6…6718               Head {h00=0x001e, h01=0x0050, text=» LDKL A4,/8000 RETURN CODE«, t00=0x0041, t01=0x017e}
0x6718…672a               Head {h00=0x000e, h01=0x0050, text=» RF ER:RTN«, t00=0x0042, t01=0x0010}
0x672a…6734               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0022}
0x6734…674c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0042, t01=0x002c}
0x674c…6756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0044}
0x6756…6760               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x004e}
0x6760…6770               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0042, t01=0x0058}
0x6770…6780               Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0042, t01=0x0068}
0x6780…6790               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0042, t01=0x0078}
0x6790…679a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0088}
0x679a…67a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0092}
0x67a4…67c2               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x0042, t01=0x009c}
0x67c2…67cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00ba}
0x67cc…67de               Head {h00=0x000e, h01=0x0050, text=»*   A4 = 0«, t00=0x0042, t01=0x00c4}
0x67de…6812               Head {h00=0x0030, h01=0x0050, text=»*   A5 = VOLUME FILE CODE ADDRESS IN FILCOD «, t00=0x0042, t01=0x00d6}
0x6812…683a               Head {h00=0x0024, h01=0x0050, text=»*   A7 = FILE CODE, FIRST VOLUME«, t00=0x0042, t01=0x010a}
0x683a…685a               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0042, t01=0x0132}
0x685a…687c               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x0042, t01=0x0152}
0x687c…6898               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x0042, t01=0x0174}
0x6898…68a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0190}
0x68a2…68be               Head {h00=0x0018, h01=0x0050, text=»OPEN EQU * OPEN FILE«, t00=0x0043, t01=0x000a}
0x68be…68c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0026}
0x68c8…68e0               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0043, t01=0x0030}
0x68e0…68ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0048}
0x68ea…6918               Head {h00=0x002a, h01=0x0050, text=»* CHECK IF FILE IS ALREADY OPENED AND «, t00=0x0043, t01=0x0052}
0x6918…6932               Head {h00=0x0016, h01=0x0050, text=»* FIND FWT ADDRESS«, t00=0x0043, t01=0x0080}
0x6932…693c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x009a}
0x693c…696a               Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTFWT FWT CHAIN START ADDRESS«, t00=0x0043, t01=0x00a4}
0x696a…6974               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00d2}
0x6974…6988               Head {h00=0x0010, h01=0x0050, text=»OP:005 EQU *«, t00=0x0043, t01=0x00dc}
0x6988…699a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0043, t01=0x00f0}
0x699a…69a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0102}
0x69a4…69b8               Head {h00=0x0010, h01=0x0050, text=»OP:010 EQU *«, t00=0x0043, t01=0x010c}
0x69b8…69dc               Head {h00=0x0020, h01=0x0050, text=» LDR A6,A12 NEXT FWT ADDRESS«, t00=0x0043, t01=0x0120}
0x69dc…6a0a               Head {h00=0x002a, h01=0x0050, text=» RF(Z) OP:060 NO MORE FWT:S AVAILABLE «, t00=0x0043, t01=0x0144}
0x6a0a…6a30               Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A6 FIRST WORD OF FWT«, t00=0x0043, t01=0x0172}
0x6a30…6a50               Head {h00=0x001c, h01=0x0050, text=» TM A12,A2 CHECK IF USED«, t00=0x0044, t01=0x0008}
0x6a50…6a7c               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) OP:015 USED, CHECK FILE NAME«, t00=0x0044, t01=0x0028}
0x6a7c…6ab6               Head {h00=0x0036, h01=0x0050, text=» ADK A4,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED «, t00=0x0044, t01=0x0054}
0x6ab6…6ae0               Head {h00=0x0026, h01=0x0050, text=» RB(NZ) OP:010 YES, DON'T SAVE IT «, t00=0x0044, t01=0x008e}
0x6ae0…6b0c               Head {h00=0x0028, h01=0x0050, text=» LDR A4,A6 NO, SAVE THIS FWT ADDRESS«, t00=0x0044, t01=0x00b8}
0x6b0c…6b2e               Head {h00=0x001e, h01=0x0050, text=» RB OP:010 CONTINUE SEARCH«, t00=0x0044, t01=0x00e4}
0x6b2e…6b38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0106}
0x6b38…6b4c               Head {h00=0x0010, h01=0x0050, text=»OP:015 EQU *«, t00=0x0044, t01=0x0110}
0x6b4c…6b72               Head {h00=0x0022, h01=0x0050, text=» XRR A12,A2 RESET FWT USED BIT«, t00=0x0044, t01=0x0124}
0x6b72…6b92               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A10 FPB ADDRESS «, t00=0x0044, t01=0x014a}
0x6b92…6ba8               Head {h00=0x0012, h01=0x0050, text=» ADK A2,FPB:FN«, t00=0x0044, t01=0x016a}
0x6ba8…6bd2               Head {h00=0x0026, h01=0x0050, text=» CF A14,CMPFIL COMPARE FILE NAMES «, t00=0x0044, t01=0x0180}
0x6bd2…6bfe               Head {h00=0x0028, h01=0x0050, text=» RB(NE) OP:005 FILE NAMES NOT EQUAL «, t00=0x0045, t01=0x001a}
0x6bfe…6c36               Head {h00=0x0034, h01=0x0050, text=» CC A7,FWTVOL,A6 CHECK FILE CODE OF FIRST EXTENT«, t00=0x0045, t01=0x0046}
0x6c36…6c5a               Head {h00=0x0020, h01=0x0050, text=» RB(NE) OP:005 NOT THIS FILE«, t00=0x0045, t01=0x007e}
0x6c5a…6c64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00a2}
0x6c64…6c7c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0045, t01=0x00ac}
0x6c7c…6c86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00c4}
0x6c86…6ca8               Head {h00=0x001e, h01=0x0050, text=»* FILE IS ALREADY OPENED: «, t00=0x0045, t01=0x00ce}
0x6ca8…6cdc               Head {h00=0x0030, h01=0x0050, text=»* CHECK ATTACH PARAMETER AND NUMBER OF USERS«, t00=0x0045, t01=0x00f0}
0x6cdc…6ce6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0124}
0x6ce6…6cfc               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x0045, t01=0x012e}
0x6cfc…6d2c               Head {h00=0x002c, h01=0x0050, text=» LC A1,FPB:SH,A10 SHAREABILITY PARAMETER«, t00=0x0045, t01=0x0144}
0x6d2c…6d40               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0045, t01=0x0174}
0x6d40…6d6a               Head {h00=0x0026, h01=0x0050, text=» RF(Z) OP:020 NO ATTACH REQUESTED «, t00=0x0045, t01=0x0188}
0x6d6a…6d9e               Head {h00=0x0030, h01=0x0050, text=» LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) «, t00=0x0046, t01=0x0022}
0x6d9e…6dc6               Head {h00=0x0024, h01=0x0050, text=» RF(Z) OP:018 FILE NOT ATTACHED «, t00=0x0046, t01=0x0056}
0x6dc6…6df8               Head {h00=0x002e, h01=0x0050, text=» CW A2,TTAB CHECK IF ATTACHED BY THIS TASK«, t00=0x0046, t01=0x007e}
0x6df8…6e2c               Head {h00=0x0030, h01=0x0050, text=» RF(NE) OP:040 NO, ATTACHED TO ANOTHER TASK «, t00=0x0046, t01=0x00b0}
0x6e2c…6e36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00e4}
0x6e36…6e4a               Head {h00=0x0010, h01=0x0050, text=»OP:018 EQU *«, t00=0x0046, t01=0x00ee}
0x6e4a…6e78               Head {h00=0x002a, h01=0x0050, text=» LD A5,TTAB TTAB ADDRESS CALLING TASK «, t00=0x0046, t01=0x0102}
0x6e78…6ea2               Head {h00=0x0026, h01=0x0050, text=» ST A5,FWTTAB,A6 INDICATE ATTACHED«, t00=0x0046, t01=0x0130}
0x6ea2…6eae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x015a}
0x6eae…6eb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0166}
0x6eb8…6ecc               Head {h00=0x0010, h01=0x0050, text=»OP:020 EQU *«, t00=0x0046, t01=0x0170}
0x6ecc…6ef6               Head {h00=0x0026, h01=0x0050, text=» LC A1,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x0046, t01=0x0184}
0x6ef6…6f08               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0047, t01=0x001e}
0x6f08…6f2c               Head {h00=0x0020, h01=0x0050, text=» ANK A1,/3F NUMBER OF USERS «, t00=0x0047, t01=0x0030}
0x6f2c…6f40               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/3F «, t00=0x0047, t01=0x0054}
0x6f40…6f58               Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) OPEXIT «, t00=0x0047, t01=0x0068}
0x6f58…6f62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0080}
0x6f62…6f7a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0047, t01=0x008a}
0x6f7a…6f84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00a2}
0x6f84…6f9a               Head {h00=0x0012, h01=0x0050, text=»* ERROR EXITS «, t00=0x0047, t01=0x00ac}
0x6f9a…6fa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00c2}
0x6fa4…6fd8               Head {h00=0x0030, h01=0x0050, text=» LDKL A4,/0210 RETURN CODE (TOO MANY USERS) «, t00=0x0047, t01=0x00cc}
0x6fd8…6fea               Head {h00=0x000e, h01=0x0050, text=» RF ER:RTN«, t00=0x0047, t01=0x0100}
0x6fea…6ff4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0112}
0x6ff4…701e               Head {h00=0x0026, h01=0x0050, text=»OP:030 EQU * NO FREE FWT AVAILABLE«, t00=0x0047, t01=0x011c}
0x701e…7040               Head {h00=0x001e, h01=0x0050, text=» LDKL A4,/8400 RETURN CODE«, t00=0x0047, t01=0x0146}
0x7040…704a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0168}
0x704a…7060               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x0047, t01=0x0172}
0x7060…7072               Head {h00=0x000e, h01=0x0050, text=» RF ER:RTN«, t00=0x0047, t01=0x0188}
0x7072…707c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x000a}
0x707c…709e               Head {h00=0x001e, h01=0x0050, text=»OP:040 EQU * FILE ATTACHED«, t00=0x0048, t01=0x0014}
0x709e…70be               Head {h00=0x001c, h01=0x0050, text=» LDK A4,/40 RETURN CODE «, t00=0x0048, t01=0x0036}
0x70be…70ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0056}
0x70ca…70d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0062}
0x70d4…70e8               Head {h00=0x0010, h01=0x0050, text=»ER:RTN EQU *«, t00=0x0048, t01=0x006c}
0x70e8…7112               Head {h00=0x0026, h01=0x0050, text=» ORS A4,RETCOD PREPARE RETURN CODE«, t00=0x0048, t01=0x0080}
0x7112…712c               Head {h00=0x0016, h01=0x0050, text=» ABL FMEXIT RETURN«, t00=0x0048, t01=0x00aa}
0x712c…7136               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c4}
0x7136…714e               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0048, t01=0x00ce}
0x714e…7158               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00e6}
0x7158…717c               Head {h00=0x0020, h01=0x0050, text=»* FILE IS NOT OPENED BEFORE:«, t00=0x0048, t01=0x00f0}
0x717c…71b0               Head {h00=0x0030, h01=0x0050, text=»* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S«, t00=0x0048, t01=0x0114}
0x71b0…71ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0148}
0x71ba…71e2               Head {h00=0x0024, h01=0x0050, text=»* MOVE FILE NAME FROM FPB TO FWT«, t00=0x0048, t01=0x0152}
0x71e2…71ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x017a}
0x71ec…7200               Head {h00=0x0010, h01=0x0050, text=»OP:060 EQU *«, t00=0x0048, t01=0x0184}
0x7200…7224               Head {h00=0x0020, h01=0x0050, text=» LDR A6,A4 FREE FWT ADDRESS «, t00=0x0049, t01=0x0008}
0x7224…7250               Head {h00=0x0028, h01=0x0050, text=» RB(Z) OP:030 NO FREE FWT AVAILABLE «, t00=0x0049, t01=0x002c}
0x7250…7270               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A10 FPB ADDRESS «, t00=0x0049, t01=0x0058}
0x7270…7286               Head {h00=0x0012, h01=0x0050, text=» ADK A1,FPB:FN«, t00=0x0049, t01=0x0078}
0x7286…72a4               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A6 FWT ADDRESS«, t00=0x0049, t01=0x008e}
0x72a4…72ba               Head {h00=0x0012, h01=0x0050, text=» ADK A3,FWTNAM«, t00=0x0049, t01=0x00ac}
0x72ba…72e0               Head {h00=0x0022, h01=0x0050, text=» CF A14,FM:MV8 MOVE FILE NAME «, t00=0x0049, t01=0x00c2}
0x72e0…7304               Head {h00=0x0020, h01=0x0050, text=» LDR A2,A7 RESTORE FILE CODE«, t00=0x0049, t01=0x00e8}
0x7304…730e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x010c}
0x730e…7326               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0049, t01=0x0116}
0x7326…7330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x012e}
0x7330…733a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0138}
0x733a…734c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0049, t01=0x0142}
0x734c…735e               Head {h00=0x000e, h01=0x0050, text=»* OPEXT * «, t00=0x0049, t01=0x0154}
0x735e…7370               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0049, t01=0x0166}
0x7370…737a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0178}
0x737a…7384               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0182}
0x7384…73b8               Head {h00=0x0030, h01=0x0050, text=»*   OPEN EXTENDED FILE (CALLED FROM EXTEND) «, t00=0x0049, t01=0x018c}
0x73b8…73c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0030}
0x73c2…73e2               Head {h00=0x001c, h01=0x0050, text=»*   A2 = DISC FILE CODE «, t00=0x004a, t01=0x003a}
0x73e2…73fe               Head {h00=0x0018, h01=0x0050, text=»*   A6 = FWT ADDRESS«, t00=0x004a, t01=0x005a}
0x73fe…741e               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x004a, t01=0x0076}
0x741e…7440               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x004a, t01=0x0096}
0x7440…745c               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x004a, t01=0x00b8}
0x745c…7466               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00d4}
0x7466…7494               Head {h00=0x002a, h01=0x0050, text=»OPEXT EQU * ENTRY USED BY EXTEND FILE «, t00=0x004a, t01=0x00de}
0x7494…74a8               Head {h00=0x0010, h01=0x0050, text=»OP:070 EQU *«, t00=0x004a, t01=0x010c}
0x74a8…74b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0120}
0x74b2…74d0               Head {h00=0x001a, h01=0x0050, text=»* FIND ONE FILE EXTENT«, t00=0x004a, t01=0x012a}
0x74d0…74da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0148}
0x74da…7506               Head {h00=0x0028, h01=0x0050, text=» CM FEXTNO RESET NO OF FILE EXTENTS «, t00=0x004a, t01=0x0152}
0x7506…7536               Head {h00=0x002c, h01=0x0050, text=» LD A5,TTAB TTAB ADDRESS OF CALLING TASK«, t00=0x004a, t01=0x017e}
0x7536…755c               Head {h00=0x0022, h01=0x0050, text=» CF A14,FNDVTC FIND VTOC ENTRY«, t00=0x004b, t01=0x001e}
0x755c…7566               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0044}
0x7566…757a               Head {h00=0x0010, h01=0x0050, text=»OP:075 EQU *«, t00=0x004b, t01=0x004e}
0x757a…75ae               Head {h00=0x0030, h01=0x0050, text=» LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER «, t00=0x004b, t01=0x0062}
0x75ae…75da               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) OP:080 ONE FILE EXTENT FOUND«, t00=0x004b, t01=0x0096}
0x75da…7602               Head {h00=0x0024, h01=0x0050, text=» ADK A4,0 CHECK DISC RETURN CODE«, t00=0x004b, t01=0x00c2}
0x7602…763c               Head {h00=0x0036, h01=0x0050, text=» RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME «, t00=0x004b, t01=0x00ea}
0x763c…7666               Head {h00=0x0026, h01=0x0050, text=» ABL OPCLOS DISC ERROR, CLOSE FILE«, t00=0x004b, t01=0x0124}
0x7666…7670               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x014e}
0x7670…7688               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x004b, t01=0x0158}
0x7688…7692               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0170}
0x7692…76be               Head {h00=0x0028, h01=0x0050, text=»* MOVE EXTENT LENGTH AND EXTENT BASE«, t00=0x004b, t01=0x017a}
0x76be…76e0               Head {h00=0x001e, h01=0x0050, text=»* TO FWT AND/OR EWT BLOCKS«, t00=0x004c, t01=0x0016}
0x76e0…76ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0038}
0x76ea…76fe               Head {h00=0x0010, h01=0x0050, text=»OP:080 EQU *«, t00=0x004c, t01=0x0042}
0x76fe…772a               Head {h00=0x0028, h01=0x0050, text=» LD A3,VTC:EN,A13 FILE EXTENT NUMBER«, t00=0x004c, t01=0x0056}
0x772a…7756               Head {h00=0x0028, h01=0x0050, text=» LD A2,VTC:FO,A13 FILE ORGANIZATION «, t00=0x004c, t01=0x0082}
0x7756…776a               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004c, t01=0x00ae}
0x776a…777e               Head {h00=0x0010, h01=0x0050, text=» SUK A2,'L' «, t00=0x004c, t01=0x00c2}
0x777e…779a               Head {h00=0x0018, h01=0x0050, text=» RF(Z) OP:085 L-FILE«, t00=0x004c, t01=0x00d6}
0x779a…77c8               Head {h00=0x002a, h01=0x0050, text=» LD A2,VTC:FS,A13 FILE SECTION NUMBER «, t00=0x004c, t01=0x00f2}
0x77c8…77da               Head {h00=0x000e, h01=0x0050, text=» SLL A2,6 «, t00=0x004c, t01=0x0120}
0x77da…780c               Head {h00=0x002e, h01=0x0050, text=» ORR A2,A3 FILE SECTION AND EXTENT NUMBER «, t00=0x004c, t01=0x0132}
0x780c…781e               Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x004c, t01=0x0164}
0x781e…7828               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0176}
0x7828…783e               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x004c, t01=0x0180}
0x783e…7866               Head {h00=0x0024, h01=0x0050, text=» LC A4,TTB:SA+14,A5 ORDER OPTION«, t00=0x004d, t01=0x0008}
0x7866…7888               Head {h00=0x001e, h01=0x0050, text=» SRC A4,1 CHECK IF EXTEND «, t00=0x004d, t01=0x0030}
0x7888…78aa               Head {h00=0x001e, h01=0x0050, text=» RF(NN) OP:085 NOT EXTEND «, t00=0x004d, t01=0x0052}
0x78aa…78de               Head {h00=0x0030, h01=0x0050, text=» CW A3,SEXTNO CHECK IF VTOC ALREADY TREATED «, t00=0x004d, t01=0x0074}
0x78de…7908               Head {h00=0x0026, h01=0x0050, text=» RF(NG) OP:110 YES, SKIP THIS VTOC«, t00=0x004d, t01=0x00a8}
0x7908…7914               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00d2}
0x7914…791e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00de}
0x791e…7932               Head {h00=0x0010, h01=0x0050, text=»OP:085 EQU *«, t00=0x004d, t01=0x00e8}
0x7932…7960               Head {h00=0x002a, h01=0x0050, text=» LC A2,VTC:EL+1,A13 FILE EXTENT LENGTH«, t00=0x004d, t01=0x00fc}
0x7960…797c               Head {h00=0x0018, h01=0x0050, text=» LD A1,VTC:EL+2,A13 «, t00=0x004d, t01=0x012a}
0x797c…7994               Head {h00=0x0014, h01=0x0050, text=» ADK A3,0 SET CR«, t00=0x004d, t01=0x0146}
0x7994…79bc               Head {h00=0x0024, h01=0x0050, text=» RF(Z) OP:095 FIRST FILE EXTENT «, t00=0x004d, t01=0x015e}
0x79bc…79c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0186}
0x79c6…79da               Head {h00=0x0010, h01=0x0050, text=»OP:090 EQU *«, t00=0x004d, t01=0x0190}
0x79da…79e6               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x004e, t01=0x0014}
0x79e6…7a08               Head {h00=0x001e, h01=0x0050, text=» CF A15,GETBLK EWT BLOCK 1«, t00=0x004e, t01=0x0020}
0x7a08…7a1a               Head {h00=0x000e, h01=0x0050, text=» RF OP:100«, t00=0x004e, t01=0x0042}
0x7a1a…7a24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0054}
0x7a24…7a3c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x004e, t01=0x005e}
0x7a3c…7a46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0076}
0x7a46…7a50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0080}
0x7a50…7a64               Head {h00=0x0010, h01=0x0050, text=»OP:095 EQU *«, t00=0x004e, t01=0x008a}
0x7a64…7a90               Head {h00=0x0028, h01=0x0050, text=» LC A4,VTC:NE,A13 NO OF FILE EXTENTS«, t00=0x004e, t01=0x009e}
0x7a90…7aa4               Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x004e, t01=0x00ca}
0x7aa4…7ac4               Head {h00=0x001c, h01=0x0050, text=» NGR A4,A4 NEGATE VALUE «, t00=0x004e, t01=0x00de}
0x7ac4…7ada               Head {h00=0x0012, h01=0x0050, text=» ADS A4,FEXTNO«, t00=0x004e, t01=0x00fe}
0x7ada…7b14               Head {h00=0x0036, h01=0x0050, text=» LD A4,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT «, t00=0x004e, t01=0x0114}
0x7b14…7b46               Head {h00=0x002e, h01=0x0050, text=» RB(NZ) OP:090 FIRST EXTENT ALREADY FOUND «, t00=0x004e, t01=0x014e}
0x7b46…7b88               Head {h00=0x003e, h01=0x0050, text=» ST A2,FWTEXL-2,A6 STORE FILE EXTENT LENGTH, FIRST EXTENT «, t00=0x004e, t01=0x0180}
0x7b88…7ba0               Head {h00=0x0014, h01=0x0050, text=» ST A1,FWTEXL,A6«, t00=0x004f, t01=0x0032}
0x7ba0…7baa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x004a}
0x7baa…7bbe               Head {h00=0x0010, h01=0x0050, text=»OP:100 EQU *«, t00=0x004f, t01=0x0054}
0x7bbe…7be2               Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A8 VOLUME FILE CODE«, t00=0x004f, t01=0x0068}
0x7be2…7c10               Head {h00=0x002a, h01=0x0050, text=» ECR A2,A2 FILE CODE NOW IN LEFT BYTE «, t00=0x004f, t01=0x008c}
0x7c10…7c3c               Head {h00=0x0028, h01=0x0050, text=» LC A2,VTC:EB+1,A13 FILE EXTENT BASE«, t00=0x004f, t01=0x00ba}
0x7c3c…7c58               Head {h00=0x0018, h01=0x0050, text=» LD A1,VTC:EB+2,A13 «, t00=0x004f, t01=0x00e6}
0x7c58…7c86               Head {h00=0x002a, h01=0x0050, text=» OR A3,FWTVTC,A6 CHECK IF FIRST EXTENT«, t00=0x004f, t01=0x0102}
0x7c86…7cb2               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) OP:120 NOT FIRST FILE EXTENT«, t00=0x004f, t01=0x0130}
0x7cb2…7cf2               Head {h00=0x003c, h01=0x0050, text=» ST A2,FWTEXB-2,A6 STORE FILE EXTENT BASE, FIRST EXTENT «, t00=0x004f, t01=0x015c}
0x7cf2…7d0a               Head {h00=0x0014, h01=0x0050, text=» ST A1,FWTEXB,A6«, t00=0x0050, t01=0x000c}
0x7d0a…7d4a               Head {h00=0x003c, h01=0x0050, text=» ST A11,FWTVTC,A6 STORE VTOC SECTOR NUMBER, FIRST EXTENT«, t00=0x0050, t01=0x0024}
0x7d4a…7d54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0064}
0x7d54…7d82               Head {h00=0x002a, h01=0x0050, text=»* FIND REMAINING EXTENTS FOR THIS FILE«, t00=0x0050, t01=0x006e}
0x7d82…7d8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x009c}
0x7d8c…7da0               Head {h00=0x0010, h01=0x0050, text=»OP:110 EQU *«, t00=0x0050, t01=0x00a6}
0x7da0…7dd2               Head {h00=0x002e, h01=0x0050, text=» IM FEXTNO INDICATE ONE MORE EXTENT FOUND «, t00=0x0050, t01=0x00ba}
0x7dd2…7e0c               Head {h00=0x0036, h01=0x0050, text=» RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME «, t00=0x0050, t01=0x00ec}
0x7e0c…7e38               Head {h00=0x0028, h01=0x0050, text=» CF A14,FNDVT3 FIND NEXT VTOC ENTRY «, t00=0x0050, t01=0x0126}
0x7e38…7e4a               Head {h00=0x000e, h01=0x0050, text=» RB OP:075«, t00=0x0050, t01=0x0152}
0x7e4a…7e54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0164}
0x7e54…7e6c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0050, t01=0x016e}
0x7e6c…7e76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0186}
0x7e76…7ea2               Head {h00=0x0028, h01=0x0050, text=»* INSERT NEW EWT BLOCKS IN EWT CHAIN«, t00=0x0050, t01=0x0190}
0x7ea2…7eac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x002c}
0x7eac…7ec0               Head {h00=0x0010, h01=0x0050, text=»OP:120 EQU *«, t00=0x0051, t01=0x0036}
0x7ec0…7ee6               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A4 ADDRESS EWT BLOCK 1«, t00=0x0051, t01=0x004a}
0x7ee6…7f08               Head {h00=0x001e, h01=0x0050, text=» CF A15,GETBLK EWT BLOCK 2«, t00=0x0051, t01=0x0070}
0x7f08…7f14               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0051, t01=0x0092}
0x7f14…7f38               Head {h00=0x0020, h01=0x0050, text=» STR A4,A3 LINK EWT2 TO EWT1«, t00=0x0051, t01=0x009e}
0x7f38…7f56               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FWT ADDRESS«, t00=0x0051, t01=0x00c2}
0x7f56…7f6c               Head {h00=0x0012, h01=0x0050, text=» ADK A1,FWTEW2«, t00=0x0051, t01=0x00e0}
0x7f6c…7f76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00f6}
0x7f76…7f8a               Head {h00=0x0010, h01=0x0050, text=»OP:130 EQU *«, t00=0x0051, t01=0x0100}
0x7f8a…7fb8               Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE«, t00=0x0051, t01=0x0114}
0x7fb8…7fce               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) OP:150«, t00=0x0051, t01=0x0142}
0x7fce…7fd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0158}
0x7fd8…7fec               Head {h00=0x0010, h01=0x0050, text=»OP:140 EQU *«, t00=0x0051, t01=0x0162}
0x7fec…8014               Head {h00=0x0024, h01=0x0050, text=» STR A2,A4 INSERT NEW EWT BLOCK «, t00=0x0051, t01=0x0176}
0x8014…8026               Head {h00=0x000e, h01=0x0050, text=» STR A3,A1«, t00=0x0052, t01=0x000e}
0x8026…8042               Head {h00=0x0018, h01=0x0050, text=» RB OP:110 CONTINUE «, t00=0x0052, t01=0x0020}
0x8042…804c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x003c}
0x804c…8060               Head {h00=0x0010, h01=0x0050, text=»OP:150 EQU *«, t00=0x0052, t01=0x0046}
0x8060…8098               Head {h00=0x0034, h01=0x0050, text=» LC A11,EWTSEX,A2 FILE SECTION AND EXTENT NUMBER«, t00=0x0052, t01=0x005a}
0x8098…80b2               Head {h00=0x0016, h01=0x0050, text=» CC A11,EWTSEX,A3 «, t00=0x0052, t01=0x0092}
0x80b2…80de               Head {h00=0x0028, h01=0x0050, text=» RB(G) OP:140 INSERT NEW EWT BLOCKS «, t00=0x0052, t01=0x00ac}
0x80de…810a               Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK«, t00=0x0052, t01=0x00d8}
0x810a…811c               Head {h00=0x000e, h01=0x0050, text=» RB OP:130«, t00=0x0052, t01=0x0104}
0x811c…8126               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0116}
0x8126…8150               Head {h00=0x0026, h01=0x0050, text=»* CHECK IF MORE VOLUMES SPECIFIED «, t00=0x0052, t01=0x0120}
0x8150…815a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x014a}
0x815a…816e               Head {h00=0x0010, h01=0x0050, text=»OP:160 EQU *«, t00=0x0052, t01=0x0154}
0x816e…819e               Head {h00=0x002c, h01=0x0050, text=» IM VOLUME NEXT VOLUME FILE CODE ADDRESS«, t00=0x0052, t01=0x0168}
0x819e…81cc               Head {h00=0x002a, h01=0x0050, text=» LD A7,VOLUME VOLUME FILE CODE ADDRESS«, t00=0x0053, t01=0x0008}
0x81cc…81fa               Head {h00=0x002a, h01=0x0050, text=» CWK A7,FILCOD+4 CHECK IF END OF TABLE«, t00=0x0053, t01=0x0036}
0x81fa…8224               Head {h00=0x0026, h01=0x0050, text=» RF(E) OP:170 ALL VOLUMES CHECKED «, t00=0x0053, t01=0x0064}
0x8224…822e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x008e}
0x822e…8246               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0053, t01=0x0098}
0x8246…8250               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00b0}
0x8250…825a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00ba}
0x825a…8270               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x0053, t01=0x00c4}
0x8270…8284               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0053, t01=0x00da}
0x8284…82b4               Head {h00=0x002c, h01=0x0050, text=» ST A2,SEXTNO RESET START EXTENT NUMBER «, t00=0x0053, t01=0x00ee}
0x82b4…82c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x011e}
0x82c0…82ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x012a}
0x82ca…82ec               Head {h00=0x001e, h01=0x0050, text=» LCR A2,A7 NEXT FILE CODE «, t00=0x0053, t01=0x0134}
0x82ec…8300               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0053, t01=0x0156}
0x8300…8322               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) OP:070 NEXT VOLUME«, t00=0x0053, t01=0x016a}
0x8322…8334               Head {h00=0x000e, h01=0x0050, text=» RB OP:160«, t00=0x0053, t01=0x018c}
0x8334…833e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x000e}
0x833e…8352               Head {h00=0x0010, h01=0x0050, text=»OP:170 EQU *«, t00=0x0054, t01=0x0018}
0x8352…838c               Head {h00=0x0036, h01=0x0050, text=» LD A2,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT «, t00=0x0054, t01=0x002c}
0x838c…83b8               Head {h00=0x0028, h01=0x0050, text=» ABL(Z) FM:INE NO FILE EXTENT FOUND «, t00=0x0054, t01=0x0066}
0x83b8…83c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0092}
0x83c2…83d8               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x0054, t01=0x009c}
0x83d8…8400               Head {h00=0x0024, h01=0x0050, text=» LC A2,TTB:SA+14,A5 ORDER OPTION«, t00=0x0054, t01=0x00b2}
0x8400…8422               Head {h00=0x001e, h01=0x0050, text=» SRC A2,1 CHECK IF EXTEND «, t00=0x0054, t01=0x00da}
0x8422…8444               Head {h00=0x001e, h01=0x0050, text=» RF(N) FM:270 YES, RETURN «, t00=0x0054, t01=0x00fc}
0x8444…8450               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x011e}
0x8450…845a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x012a}
0x845a…847a               Head {h00=0x001c, h01=0x0050, text=»* CHECK ATTACH PARAMETER«, t00=0x0054, t01=0x0134}
0x847a…8484               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0154}
0x8484…849a               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x0054, t01=0x015e}
0x849a…84ca               Head {h00=0x002c, h01=0x0050, text=» LC A2,FPB:SH,A10 SHAREABILITY PARAMETER«, t00=0x0054, t01=0x0174}
0x84ca…84de               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0055, t01=0x0014}
0x84de…8508               Head {h00=0x0026, h01=0x0050, text=» RF(Z) OP:240 NO ATTACH REQUESTED «, t00=0x0055, t01=0x0028}
0x8508…8528               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A5 TTAB ADDRESS «, t00=0x0055, t01=0x0052}
0x8528…8532               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0072}
0x8532…8546               Head {h00=0x0010, h01=0x0050, text=»OP:240 EQU *«, t00=0x0055, t01=0x007c}
0x8546…856e               Head {h00=0x0024, h01=0x0050, text=» ST A2,FWTTAB,A6 SET ATTACH WORD«, t00=0x0055, t01=0x0090}
0x856e…857a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x00b8}
0x857a…8584               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c4}
0x8584…85ba               Head {h00=0x0032, h01=0x0050, text=» IMR A6 INDICATE FWT USED (BIT 15 IN 1ST WORD)«, t00=0x0055, t01=0x00ce}
0x85ba…85e6               Head {h00=0x0028, h01=0x0050, text=» LDK A2,/40 PREPARE FOR BASIC ORDERS«, t00=0x0055, t01=0x0104}
0x85e6…85f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0130}
0x85f0…8608               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0055, t01=0x013a}
0x8608…8612               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0152}
0x8612…8644               Head {h00=0x002e, h01=0x0050, text=»* COMMON EXIT FOR ACCEPTED OPEN REQUESTS: «, t00=0x0055, t01=0x015c}
0x8644…8686               Head {h00=0x003e, h01=0x0050, text=»* CHECK BASIC ORDERS PARAMETER, INCREMENT NUMBER OF USERS «, t00=0x0055, t01=0x018e}
0x8686…86c8               Head {h00=0x003e, h01=0x0050, text=»* BY ONE AND RETURN FILE NUMBER FOR THIS FILE TO THE USER «, t00=0x0056, t01=0x0040}
0x86c8…86d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0082}
0x86d2…86e6               Head {h00=0x0010, h01=0x0050, text=»OPEXIT EQU *«, t00=0x0056, t01=0x008c}
0x86e6…8718               Head {h00=0x002e, h01=0x0050, text=» LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS «, t00=0x0056, t01=0x00a0}
0x8718…872c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0056, t01=0x00d2}
0x872c…8762               Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION «, t00=0x0056, t01=0x00e6}
0x8762…8790               Head {h00=0x002a, h01=0x0050, text=» ANK A2,/BF PHYSICAL ORDERS REQUESTED «, t00=0x0056, t01=0x011c}
0x8790…879a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x014a}
0x879a…87ae               Head {h00=0x0010, h01=0x0050, text=»OP:260 EQU *«, t00=0x0056, t01=0x0154}
0x87ae…87da               Head {h00=0x0028, h01=0x0050, text=» ADK A2,1 ADD ONE USER TO THIS FILE «, t00=0x0056, t01=0x0168}
0x87da…880c (87, 0, 398)  Head {h00=0x002e, h01=0x0050, text=» SC A2,FWTPAR,A6 SET NEW ACCESS PARAMETERS«, t00=0x0057, t01=0x0004}
0x880c…8816               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0036}
0x8816…882c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0057, t01=0x0040}
0x882c…8850               Head {h00=0x0020, h01=0x0050, text=» LD A4,FWTFNR,A6 FILE NUMBER«, t00=0x0057, t01=0x0056}
0x8850…887e               Head {h00=0x002a, h01=0x0050, text=» SC A4,ECBFN,A9 SET FILE NUMBER IN ECB«, t00=0x0057, t01=0x007a}
0x887e…888a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x00a8}
0x888a…8894               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00b4}
0x8894…88aa               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0057, t01=0x00be}
0x88aa…88bc               Head {h00=0x000e, h01=0x0050, text=» ELR A4,A9«, t00=0x0057, t01=0x00d4}
0x88bc…88e0               Head {h00=0x0020, h01=0x0050, text=» LC A4,FWTFNR,A6 FILE NUMBER«, t00=0x0057, t01=0x00e6}
0x88e0…890a               Head {h00=0x0026, h01=0x0050, text=» ESR A4,A9 SET FILE NUMBER IN ECB «, t00=0x0057, t01=0x010a}
0x890a…8916               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0134}
0x8916…8920               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0140}
0x8920…8934               Head {h00=0x0010, h01=0x0050, text=»FM:270 EQU *«, t00=0x0057, t01=0x014a}
0x8934…8962               Head {h00=0x002a, h01=0x0050, text=» RF OCEXIT RETURN VIA OPEN/CLOSE EXIT «, t00=0x0057, t01=0x015e}
0x8962…896c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x018c}
0x896c…8984               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0058, t01=0x0008}
0x8984…898e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0020}
0x898e…8998               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x002a}
0x8998…89aa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x0034}
0x89aa…89bc               Head {h00=0x000e, h01=0x0050, text=»* FMCLOS *«, t00=0x0058, t01=0x0046}
0x89bc…89ce               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x0058}
0x89ce…89d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x006a}
0x89d8…89e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0074}
0x89e2…8a18               Head {h00=0x0032, h01=0x0050, text=»*   FILE MANAGEMENT ADMINISTRATION FUNCTIONS: «, t00=0x0058, t01=0x007e}
0x8a18…8a36               Head {h00=0x001a, h01=0x0050, text=»*   CLOSE/DELETE FILE «, t00=0x0058, t01=0x00b4}
0x8a36…8a40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00d2}
0x8a40…8a5e               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x0058, t01=0x00dc}
0x8a5e…8a68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00fa}
0x8a68…8a90               Head {h00=0x0024, h01=0x0050, text=»*   CR = 0 IF CLOSE, ELSE CR > 0«, t00=0x0058, t01=0x0104}
0x8a90…8aae               Head {h00=0x001a, h01=0x0050, text=»*   A1 = ORDER OPTION «, t00=0x0058, t01=0x012c}
0x8aae…8adc               Head {h00=0x002a, h01=0x0050, text=»*   A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0058, t01=0x014a}
0x8adc…8afc               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0058, t01=0x0178}
0x8afc…8b1e               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x0059, t01=0x0008}
0x8b1e…8b3a               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x0059, t01=0x002a}
0x8b3a…8b44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0046}
0x8b44…8b6a               Head {h00=0x0022, h01=0x0050, text=»FMCLOS EQU * CLOSE/DELETE FILE«, t00=0x0059, t01=0x0050}
0x8b6a…8b74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0076}
0x8b74…8b90               Head {h00=0x0018, h01=0x0050, text=»* CHECK ORDER OPTION«, t00=0x0059, t01=0x0080}
0x8b90…8b9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x009c}
0x8b9a…8bb0               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=0 «, t00=0x0059, t01=0x00a6}
0x8bb0…8bdc               Head {h00=0x0028, h01=0x0050, text=» ABL(NZ) FM:RQE ILLEGAL ORDER OPTION«, t00=0x0059, t01=0x00bc}
0x8bdc…8be8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x00e8}
0x8be8…8bf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00f4}
0x8bf2…8c08               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x0059, t01=0x00fe}
0x8c08…8c28               Head {h00=0x001c, h01=0x0050, text=» RF(Z) CLOSE CLOSE FILE «, t00=0x0059, t01=0x0114}
0x8c28…8c3a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0059, t01=0x0134}
0x8c3a…8c5c               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) DELETE DELETE FILE«, t00=0x0059, t01=0x0146}
0x8c5c…8c84               Head {h00=0x0024, h01=0x0050, text=» ABL FM:RQE ILLEGAL ORDER OPTION«, t00=0x0059, t01=0x0168}
0x8c84…8c90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0190}
0x8c90…8c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x000c}
0x8c9a…8cb2               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x005a, t01=0x0016}
0x8cb2…8cbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x002e}
0x8cbc…8cc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0038}
0x8cc6…8cd8               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005a, t01=0x0042}
0x8cd8…8cea               Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x005a, t01=0x0054}
0x8cea…8cfc               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005a, t01=0x0066}
0x8cfc…8d06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0078}
0x8d06…8d24               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x005a, t01=0x0082}
0x8d24…8d2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00a0}
0x8d2e…8d5c               Head {h00=0x002a, h01=0x0050, text=»*   A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x005a, t01=0x00aa}
0x8d5c…8d7c               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x005a, t01=0x00d8}
0x8d7c…8d9e               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x005a, t01=0x00f8}
0x8d9e…8dba               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x005a, t01=0x011a}
0x8dba…8dc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0136}
0x8dc4…8dce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0140}
0x8dce…8dec               Head {h00=0x001a, h01=0x0050, text=»CLOSE EQU * CLOSE FILE«, t00=0x005a, t01=0x014a}
0x8dec…8e22               Head {h00=0x0032, h01=0x0050, text=» CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)«, t00=0x005a, t01=0x0168}
0x8e22…8e46               Head {h00=0x0020, h01=0x0050, text=» ADK A4,0 CHECK RETURN CODE «, t00=0x005b, t01=0x000e}
0x8e46…8e62               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) CL:000 ERROR«, t00=0x005b, t01=0x0032}
0x8e62…8e8c               Head {h00=0x0026, h01=0x0050, text=» LD A3,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x005b, t01=0x004e}
0x8e8c…8eaa               Head {h00=0x001a, h01=0x0050, text=» RF(NN) CL:005 NOT NVL«, t00=0x005b, t01=0x0078}
0x8eaa…8ed4               Head {h00=0x0026, h01=0x0050, text=» LDK A4,/20 SET NVL IN RETURN CODE«, t00=0x005b, t01=0x0096}
0x8ed4…8ede               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00c0}
0x8ede…8f0a               Head {h00=0x0028, h01=0x0050, text=»* ERROR AT CLOSE: CHECK HOW SERIOUS «, t00=0x005b, t01=0x00ca}
0x8f0a…8f14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00f6}
0x8f14…8f28               Head {h00=0x0010, h01=0x0050, text=»CL:000 EQU *«, t00=0x005b, t01=0x0100}
0x8f28…8f52               Head {h00=0x0026, h01=0x0050, text=» ORS A4,RETCOD PREPARE RETURN CODE«, t00=0x005b, t01=0x0114}
0x8f52…8f5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x013e}
0x8f5c…8f72               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x005b, t01=0x0148}
0x8f72…8f86               Head {h00=0x0010, h01=0x0050, text=» SUK A4,/40 «, t00=0x005b, t01=0x015e}
0x8f86…8fb6               Head {h00=0x002c, h01=0x0050, text=» RF(Z) OCEXIT FILE ATTACHED, DON'T CLOSE«, t00=0x005b, t01=0x0172}
0x8fb6…8fc2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0012}
0x8fc2…8fcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x001e}
0x8fcc…8ff0               Head {h00=0x0020, h01=0x0050, text=» ADK A6,0 CHECK FWT ADDRESS «, t00=0x005c, t01=0x0028}
0x8ff0…901a               Head {h00=0x0026, h01=0x0050, text=» RF(Z) OCEXIT NO FWT FOUND, RETURN«, t00=0x005c, t01=0x004c}
0x901a…903e               Head {h00=0x0020, h01=0x0050, text=» RF CL:010 DON'T WRITE VTOC «, t00=0x005c, t01=0x0076}
0x903e…9048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x009a}
0x9048…9060               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x005c, t01=0x00a4}
0x9060…906a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00bc}
0x906a…908e               Head {h00=0x0020, h01=0x0050, text=»* MOVE FRN FROM FPB TO VTOC «, t00=0x005c, t01=0x00c6}
0x908e…9098               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00ea}
0x9098…90ac               Head {h00=0x0010, h01=0x0050, text=»CL:005 EQU *«, t00=0x005c, t01=0x00f4}
0x90ac…90c2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005c, t01=0x0108}
0x90c2…90d8               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x005c, t01=0x011e}
0x90d8…9104               Head {h00=0x0028, h01=0x0050, text=» LD A1,FPB:FR,A10 FILE RECORD NUMBER«, t00=0x005c, t01=0x0134}
0x9104…9120               Head {h00=0x0018, h01=0x0050, text=» LD A2,FPB:FR+2,A10 «, t00=0x005c, t01=0x0160}
0x9120…9150               Head {h00=0x002c, h01=0x0050, text=» ST A1,VTC:LR,A13 SET LRN IN VTOC RECORD«, t00=0x005c, t01=0x017c}
0x9150…916c               Head {h00=0x0018, h01=0x0050, text=» ST A2,VTC:LR+2,A13 «, t00=0x005d, t01=0x001c}
0x916c…9178               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x0038}
0x9178…9182               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0044}
0x9182…9198               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005d, t01=0x004e}
0x9198…91ae               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005d, t01=0x0064}
0x91ae…91da               Head {h00=0x0028, h01=0x0050, text=» ML 2,FPB:FR,A10 FILE RECORD NUMBER «, t00=0x005d, t01=0x007a}
0x91da…920a               Head {h00=0x002c, h01=0x0050, text=» MS 2,VTC:LR,A13 SET LRN IN VTOC RECORD «, t00=0x005d, t01=0x00a6}
0x920a…9216               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x00d6}
0x9216…9220               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00e2}
0x9220…9236               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005d, t01=0x00ec}
0x9236…9262               Head {h00=0x0028, h01=0x0050, text=» EL A1,FPB:FR,A10 FILE RECORD NUMBER«, t00=0x005d, t01=0x0102}
0x9262…927e               Head {h00=0x0018, h01=0x0050, text=» EL A2,FPB:FR+2,A10 «, t00=0x005d, t01=0x012e}
0x927e…92ae               Head {h00=0x002c, h01=0x0050, text=» MS 2,VTC:LR,A13 SET LRN IN VTOC RECORD «, t00=0x005d, t01=0x014a}
0x92ae…92ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x017a}
0x92ba…92c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0186}
0x92c4…930a               Head {h00=0x0042, h01=0x0050, text=»* WRITE VTOC TO DISC WITH NEW FILE RECORD NUMBER IF REQUESTED «, t00=0x005d, t01=0x0190}
0x930a…9314               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0046}
0x9314…9340               Head {h00=0x0028, h01=0x0050, text=» ORR A1,A2 CHECK FILE RECORD NUMBER «, t00=0x005e, t01=0x0050}
0x9340…9370               Head {h00=0x002c, h01=0x0050, text=» RF(Z) CL:010 FRN ZERO, DON'T WRITE VTOC«, t00=0x005e, t01=0x007c}
0x9370…9392               Head {h00=0x001e, h01=0x0050, text=» LDK A7,/95 PHYSICAL WRITE«, t00=0x005e, t01=0x00ac}
0x9392…93c2               Head {h00=0x002c, h01=0x0050, text=» CF A14,FM:IO WRITE VTOC RECORD TO DISC «, t00=0x005e, t01=0x00ce}
0x93c2…93cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00fe}
0x93cc…93e4               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x005e, t01=0x0108}
0x93e4…93ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0120}
0x93ee…9428               Head {h00=0x0036, h01=0x0050, text=»* DECREMENT NUMBER OF USERS FOR THIS FILE BY ONE. «, t00=0x005e, t01=0x012a}
0x9428…945e               Head {h00=0x0032, h01=0x0050, text=»* FWT AND EWT ARE RELEASED IF NO USER REMAINS.«, t00=0x005e, t01=0x0164}
0x945e…9468               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x000a}
0x9468…947c               Head {h00=0x0010, h01=0x0050, text=»CL:010 EQU *«, t00=0x005f, t01=0x0014}
0x947c…94a6               Head {h00=0x0026, h01=0x0050, text=» LC A1,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x005f, t01=0x0028}
0x94a6…94b8               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x005f, t01=0x0052}
0x94b8…94dc               Head {h00=0x0020, h01=0x0050, text=» ANK A2,/3F NUMBER OF USERS «, t00=0x005f, t01=0x0064}
0x94dc…950a               Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT NO OF USERS BY ONE«, t00=0x005f, t01=0x0088}
0x950a…9514               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00b6}
0x9514…952a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005f, t01=0x00c0}
0x952a…9560               Head {h00=0x0032, h01=0x0050, text=» SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS«, t00=0x005f, t01=0x00d6}
0x9560…956c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x010c}
0x956c…9576               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0118}
0x9576…958c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005f, t01=0x0122}
0x958c…95a6               Head {h00=0x0016, h01=0x0050, text=» EL A3,FPB:US,A10 «, t00=0x005f, t01=0x0138}
0x95a6…95ba               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x005f, t01=0x0152}
0x95ba…95ea               Head {h00=0x002c, h01=0x0050, text=» ECR A2,A2 NUMBER OF USERS TO LEFT BYTE «, t00=0x005f, t01=0x0166}
0x95ea…95fc               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A2«, t00=0x0060, t01=0x0008}
0x95fc…9632               Head {h00=0x0032, h01=0x0050, text=» ES A3,FPB:US,A10 RETURN REMAINING NO OF USERS«, t00=0x0060, t01=0x001a}
0x9632…9662               Head {h00=0x002c, h01=0x0050, text=» SRL A2,8 NUMBER OF USERS TO RIGHT BYTE «, t00=0x0060, t01=0x0050}
0x9662…966e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0080}
0x966e…9678               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x008c}
0x9678…96b0               Head {h00=0x0034, h01=0x0050, text=» RF(P) DLCLO2 DON'T RELEASE FWT IF ANY USER LEFT«, t00=0x0060, t01=0x0096}
0x96b0…96ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00ce}
0x96ba…96d2               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0060, t01=0x00d8}
0x96d2…96dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00f0}
0x96dc…96e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00fa}
0x96e6…96f8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x0104}
0x96f8…970a               Head {h00=0x000e, h01=0x0050, text=»* DLCLO1 *«, t00=0x0060, t01=0x0116}
0x970a…971c               Head {h00=0x000e, h01=0x0050, text=»* OPCLOS *«, t00=0x0060, t01=0x0128}
0x971c…972e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x013a}
0x972e…9738               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x014c}
0x9738…9742               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0156}
0x9742…9768               Head {h00=0x0022, h01=0x0050, text=»*   RELEASE FWT AND EWT BLOCKS«, t00=0x0060, t01=0x0160}
0x9768…9772               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0186}
0x9772…9796               Head {h00=0x0020, h01=0x0050, text=»*   INPUT:  A6 = FWT ADDRESS«, t00=0x0060, t01=0x0190}
0x9796…97c0               Head {h00=0x0026, h01=0x0050, text=»*           A9 = USER ECB ADDRESS «, t00=0x0061, t01=0x0024}
0x97c0…97ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x004e}
0x97ca…97f8               Head {h00=0x002a, h01=0x0050, text=»DLCLO1 EQU * ENTRY USED BY DELETE FILE«, t00=0x0061, t01=0x0058}
0x97f8…980a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0061, t01=0x0086}
0x980a…9834               Head {h00=0x0026, h01=0x0050, text=» XRRS A2,A6 RESET USED BIT IN FWT «, t00=0x0061, t01=0x0098}
0x9834…983e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00c2}
0x983e…986a               Head {h00=0x0028, h01=0x0050, text=»OPCLOS EQU * ENTRY USED BY OPEN FILE«, t00=0x0061, t01=0x00cc}
0x986a…98a2               Head {h00=0x0034, h01=0x0050, text=» LD A4,FWTEW2,A6 ADDRESS TO FIRST EWT STRUCTURE «, t00=0x0061, t01=0x00f8}
0x98a2…98d2               Head {h00=0x002c, h01=0x0050, text=» RF(Z) CL:030 NO MORE BLOCKS TO RELEASE «, t00=0x0061, t01=0x0130}
0x98d2…98dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0160}
0x98dc…990e               Head {h00=0x002e, h01=0x0050, text=»* RETURN EWT BLOCKS TO MONITOR BLOCK POOL «, t00=0x0061, t01=0x016a}
0x990e…9918               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x000c}
0x9918…992c               Head {h00=0x0010, h01=0x0050, text=»CL:020 EQU *«, t00=0x0062, t01=0x0016}
0x992c…9938               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0062, t01=0x002a}
0x9938…9960               Head {h00=0x0024, h01=0x0050, text=» CF A15,FREBLK RELEASE EWT BLOCK«, t00=0x0062, t01=0x0036}
0x9960…996c               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0062, t01=0x005e}
0x996c…9990               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 EWT BLOCK ADDRESS«, t00=0x0062, t01=0x006a}
0x9990…99a6               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) CL:020«, t00=0x0062, t01=0x008e}
0x99a6…99d8               Head {h00=0x002e, h01=0x0050, text=» CM FWTEW2,A6 RESET EWT STRUCTURE POINTER «, t00=0x0062, t01=0x00a4}
0x99d8…99e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00d6}
0x99e2…99f6               Head {h00=0x0010, h01=0x0050, text=»CL:030 EQU *«, t00=0x0062, t01=0x00e0}
0x99f6…9a24               Head {h00=0x002a, h01=0x0050, text=» CM FWTVTC,A6 RESET VTOC SECTOR NUMBER«, t00=0x0062, t01=0x00f4}
0x9a24…9a3e               Head {h00=0x0016, h01=0x0050, text=» RF CL:050 RETURN «, t00=0x0062, t01=0x0122}
0x9a3e…9a48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x013c}
0x9a48…9a60               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0062, t01=0x0146}
0x9a60…9a6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x015e}
0x9a6a…9a74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0168}
0x9a74…9aa2               Head {h00=0x002a, h01=0x0050, text=»DLCLO2 EQU * ENTRY USED BY DELETE FILE«, t00=0x0062, t01=0x0172}
0x9aa2…9aca               Head {h00=0x0024, h01=0x0050, text=» ANK A1,/C0 SKIP NUMBER OF USERS«, t00=0x0063, t01=0x0010}
0x9aca…9afc               Head {h00=0x002e, h01=0x0050, text=» ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS «, t00=0x0063, t01=0x0038}
0x9afc…9b14               Head {h00=0x0014, h01=0x0050, text=» SC A1,FWTPAR,A6«, t00=0x0063, t01=0x006a}
0x9b14…9b1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0082}
0x9b1e…9b34               Head {h00=0x0012, h01=0x0050, text=»* DETACH FILE «, t00=0x0063, t01=0x008c}
0x9b34…9b3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00a2}
0x9b3e…9b52               Head {h00=0x0010, h01=0x0050, text=»CL:050 EQU *«, t00=0x0063, t01=0x00ac}
0x9b52…9b68               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x0063, t01=0x00c0}
0x9b68…9b98               Head {h00=0x002c, h01=0x0050, text=» LD A5,TTAB TTAB ADDRESS OF CALLING TASK«, t00=0x0063, t01=0x00d6}
0x9b98…9ba4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0106}
0x9ba4…9bae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0112}
0x9bae…9bc4               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x0063, t01=0x011c}
0x9bc4…9bd0               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0063, t01=0x0132}
0x9bd0…9bf2               Head {h00=0x001e, h01=0x0050, text=» CF A15,DET:FM DETACH FILE«, t00=0x0063, t01=0x013e}
0x9bf2…9bfe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0160}
0x9bfe…9c08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x016c}
0x9c08…9c3a               Head {h00=0x002e, h01=0x0050, text=»OCEXIT EQU * OPEN/CLOSE COMMON EXIT LABEL «, t00=0x0063, t01=0x0176}
0x9c3a…9c4e               Head {h00=0x0010, h01=0x0050, text=» ABL FMEXIT «, t00=0x0064, t01=0x0018}
0x9c4e…9c58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x002c}
0x9c58…9c70               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0064, t01=0x0036}
0x9c70…9c7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x004e}
0x9c7a…9c84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0058}
0x9c84…9c96               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0064, t01=0x0062}
0x9c96…9ca8               Head {h00=0x000e, h01=0x0050, text=»* FMRPAR *«, t00=0x0064, t01=0x0074}
0x9ca8…9cba               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0064, t01=0x0086}
0x9cba…9cc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0098}
0x9cc4…9cce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00a2}
0x9cce…9d04               Head {h00=0x0032, h01=0x0050, text=»*   FILE MANAGEMENT ADMINISTRATION FUNCTIONS: «, t00=0x0064, t01=0x00ac}
0x9d04…9d24               Head {h00=0x001c, h01=0x0050, text=»*   READ FILE PARAMETERS«, t00=0x0064, t01=0x00e2}
0x9d24…9d2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0102}
0x9d2e…9d4c               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x0064, t01=0x010c}
0x9d4c…9d56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x012a}
0x9d56…9d7e               Head {h00=0x0024, h01=0x0050, text=»*   CR = 0 IF LEGAL ORDER OPTION«, t00=0x0064, t01=0x0134}
0x9d7e…9d9c               Head {h00=0x001a, h01=0x0050, text=»*   A1 = ORDER OPTION «, t00=0x0064, t01=0x015c}
0x9d9c…9dca               Head {h00=0x002a, h01=0x0050, text=»*   A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0064, t01=0x017a}
0x9dca…9dea               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0065, t01=0x0018}
0x9dea…9e0c               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x0065, t01=0x0038}
0x9e0c…9e28               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x0065, t01=0x005a}
0x9e28…9e32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0076}
0x9e32…9e5c               Head {h00=0x0026, h01=0x0050, text=»FMRPAR EQU * READ FILE PARAMETERS «, t00=0x0065, t01=0x0080}
0x9e5c…9e66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00aa}
0x9e66…9e82               Head {h00=0x0018, h01=0x0050, text=»* CHECK ORDER OPTION«, t00=0x0065, t01=0x00b4}
0x9e82…9e8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00d0}
0x9e8c…9eb8               Head {h00=0x0028, h01=0x0050, text=» ABL(NZ) FM:RQE ILLEGAL ORDER OPTION«, t00=0x0065, t01=0x00da}
0x9eb8…9ec2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0106}
0x9ec2…9ed8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0065, t01=0x0110}
0x9ed8…9f04               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,FM:FPB SYSTEM FPB ADDRESS «, t00=0x0065, t01=0x0126}
0x9f04…9f10               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x0152}
0x9f10…9f1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x015e}
0x9f1a…9f32               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0065, t01=0x0168}
0x9f32…9f3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0180}
0x9f3c…9f46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x018a}
0x9f46…9f7c (102, 0, 400) Head {h00=0x0032, h01=0x0050, text=» CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)«, t00=0x0066, t01=0x0004}
0x9f7c…9fa0               Head {h00=0x0020, h01=0x0050, text=» ADK A4,0 CHECK RETURN CODE «, t00=0x0066, t01=0x003a}
0x9fa0…9fc4               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) FMEXIT ERROR, RETURN«, t00=0x0066, t01=0x005e}
0x9fc4…9ffa               Head {h00=0x0032, h01=0x0050, text=» SC A4,FPB:BO,A10 RESET BASIC ORDER PARAMETER «, t00=0x0066, t01=0x0082}
0x9ffa…a004               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00b8}
0xa004…a02a               Head {h00=0x0022, h01=0x0050, text=»* MOVE SPACES TO VOLUME NAMES «, t00=0x0066, t01=0x00c2}
0xa02a…a052               Head {h00=0x0024, h01=0x0050, text=»* AND RESET FILE SECTION SIZES. «, t00=0x0066, t01=0x00e8}
0xa052…a05c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0110}
0xa05c…a072               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0066, t01=0x011a}
0xa072…a092               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A10 FPB ADDRESS «, t00=0x0066, t01=0x0130}
0xa092…a0b8               Head {h00=0x0022, h01=0x0050, text=» ADK A1,FPB:V1 1ST VOLUME NAME«, t00=0x0066, t01=0x0150}
0xa0b8…a0e2               Head {h00=0x0026, h01=0x0050, text=» LDK A2,4 LOOP COUNTER, OUTER LOOP«, t00=0x0066, t01=0x0176}
0xa0e2…a0fc               Head {h00=0x0016, h01=0x0050, text=» LDK A4,/20 SPACE «, t00=0x0067, t01=0x0010}
0xa0fc…a106               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x002a}
0xa106…a12c               Head {h00=0x0022, h01=0x0050, text=»FMR:02 EQU * OUTER LOOP ENTRY «, t00=0x0067, t01=0x0034}
0xa12c…a156               Head {h00=0x0026, h01=0x0050, text=» LDK A3,6 LOOP COUNTER, INNER LOOP«, t00=0x0067, t01=0x005a}
0xa156…a160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0084}
0xa160…a186               Head {h00=0x0022, h01=0x0050, text=»FMR:04 EQU * INNER LOOP ENTRY «, t00=0x0067, t01=0x008e}
0xa186…a1b4               Head {h00=0x002a, h01=0x0050, text=» SCR A4,A1 MOVE SPACES TO VOLUME NAME «, t00=0x0067, t01=0x00b4}
0xa1b4…a1c6               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0067, t01=0x00e2}
0xa1c6…a1d8               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0067, t01=0x00f4}
0xa1d8…a1ee               Head {h00=0x0012, h01=0x0050, text=» RB(P) FMR:04 «, t00=0x0067, t01=0x0106}
0xa1ee…a216               Head {h00=0x0024, h01=0x0050, text=» CMR A1 RESET FILE SECTION SIZE «, t00=0x0067, t01=0x011c}
0xa216…a226               Head {h00=0x000c, h01=0x0050, text=» CM 2,A1«, t00=0x0067, t01=0x0144}
0xa226…a254               Head {h00=0x002a, h01=0x0050, text=» ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME«, t00=0x0067, t01=0x0154}
0xa254…a266               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0067, t01=0x0182}
0xa266…a27c (104, 0, 400) Head {h00=0x0012, h01=0x0050, text=» RB(P) FMR:02 «, t00=0x0068, t01=0x0004}
0xa27c…a288               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x001a}
0xa288…a292               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0026}
0xa292…a2a8               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0068, t01=0x0030}
0xa2a8…a2b6               Head {h00=0x000a, h01=0x0050, text=» MLK 3«, t00=0x0068, t01=0x0046}
0xa2b6…a2d6               Head {h00=0x001c, h01=0x0050, text=» DATA /2020,/2020,/2020 «, t00=0x0068, t01=0x0054}
0xa2d6…a2fc               Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 (A4 = 0 FROM RDVTOC)«, t00=0x0068, t01=0x0074}
0xa2fc…a314               Head {h00=0x0014, h01=0x0050, text=» MS 5,FPB:V1,A10«, t00=0x0068, t01=0x009a}
0xa314…a32c               Head {h00=0x0014, h01=0x0050, text=» MS 5,FPB:V2,A10«, t00=0x0068, t01=0x00b2}
0xa32c…a344               Head {h00=0x0014, h01=0x0050, text=» MS 5,FPB:V3,A10«, t00=0x0068, t01=0x00ca}
0xa344…a35c               Head {h00=0x0014, h01=0x0050, text=» MS 5,FPB:V4,A10«, t00=0x0068, t01=0x00e2}
0xa35c…a368               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x00fa}
0xa368…a372               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0106}
0xa372…a38a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0068, t01=0x0110}
0xa38a…a394               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0128}
0xa394…a3c6               Head {h00=0x002e, h01=0x0050, text=»* MOVE PARAMETERS FROM VTOC AND FWT TO FPB«, t00=0x0068, t01=0x0132}
0xa3c6…a3d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0164}
0xa3d0…a3e6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0068, t01=0x016e}
0xa3e6…a40e               Head {h00=0x0024, h01=0x0050, text=» LD A1,VTC:RL,A13 RECORD LENGTH «, t00=0x0068, t01=0x0184}
0xa40e…a422               Head {h00=0x0010, h01=0x0050, text=» STR A1,A10 «, t00=0x0069, t01=0x001c}
0xa422…a45e               Head {h00=0x0038, h01=0x0050, text=» LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION«, t00=0x0069, t01=0x0030}
0xa45e…a478               Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:BF,A10 «, t00=0x0069, t01=0x006c}
0xa478…a4a4               Head {h00=0x0028, h01=0x0050, text=» LD A1,VTC:LR,A13 LAST RECORD NUMBER«, t00=0x0069, t01=0x0086}
0xa4a4…a4be               Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:FR,A10 «, t00=0x0069, t01=0x00b2}
0xa4be…a4e6               Head {h00=0x0024, h01=0x0050, text=» LD A1,VTC:LR+2,A13 LRN, PART 2 «, t00=0x0069, t01=0x00cc}
0xa4e6…a502               Head {h00=0x0018, h01=0x0050, text=» ST A1,FPB:FR+2,A10 «, t00=0x0069, t01=0x00f4}
0xa502…a53a               Head {h00=0x0034, h01=0x0050, text=» LD A1,VTC:MN,A13 MONITOR AND SOP SWITCH NUMBER «, t00=0x0069, t01=0x0110}
0xa53a…a54c               Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0069, t01=0x0148}
0xa54c…a57a               Head {h00=0x002a, h01=0x0050, text=» SC A1,FPB:MN,A10 STORE MONITOR NUMBER«, t00=0x0069, t01=0x015a}
0xa57a…a5aa               Head {h00=0x002c, h01=0x0050, text=» LC A1,VTC:IF,A13 NUMBER OF INDEX FILES «, t00=0x0069, t01=0x0188}
0xa5aa…a5c4               Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:IF,A10 «, t00=0x006a, t01=0x0028}
0xa5c4…a5f4               Head {h00=0x002c, h01=0x0050, text=» LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD «, t00=0x006a, t01=0x0042}
0xa5f4…a60e               Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:KA,A10 «, t00=0x006a, t01=0x0072}
0xa60e…a61a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x008c}
0xa61a…a624               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0098}
0xa624…a63a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x006a, t01=0x00a2}
0xa63a…a676               Head {h00=0x0038, h01=0x0050, text=» ML 4,VTC:LR,A13 LRN, RECORD LENGTH AND BLOCK FACTOR«, t00=0x006a, t01=0x00b8}
0xa676…a68e               Head {h00=0x0014, h01=0x0050, text=» MS 2,FPB:FR,A10«, t00=0x006a, t01=0x00f4}
0xa68e…a6a2               Head {h00=0x0010, h01=0x0050, text=» STR A3,A10 «, t00=0x006a, t01=0x010c}
0xa6a2…a6bc               Head {h00=0x0016, h01=0x0050, text=» ST A4,FPB:BF,A10 «, t00=0x006a, t01=0x0120}
0xa6bc…a6f4               Head {h00=0x0034, h01=0x0050, text=» LD A1,VTC:MN,A13 MONITOR AND SOP SWITCH NUMBER «, t00=0x006a, t01=0x013a}
0xa6f4…a706               Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x006a, t01=0x0172}
0xa706…a718               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x006a, t01=0x0184}
0xa718…a748               Head {h00=0x002c, h01=0x0050, text=» LC A2,VTC:IF,A13 NUMBER OF INDEX FILES «, t00=0x006b, t01=0x0008}
0xa748…a778               Head {h00=0x002c, h01=0x0050, text=» LD A3,VTC:KA,A13 KEY ADDRESS IN RECORD «, t00=0x006b, t01=0x0038}
0xa778…a790               Head {h00=0x0014, h01=0x0050, text=» MS 3,FPB:MN,A10«, t00=0x006b, t01=0x0068}
0xa790…a79c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0080}
0xa79c…a7a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x008c}
0xa7a6…a7bc               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x006b, t01=0x0096}
0xa7bc…a7ec               Head {h00=0x002c, h01=0x0050, text=» LD A1,FWTTAB,A6 SHAREABILITY PARAMETER «, t00=0x006b, t01=0x00ac}
0xa7ec…a80e               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FMR:05 NOT ATTACHED«, t00=0x006b, t01=0x00dc}
0xa80e…a820               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x006b, t01=0x00fe}
0xa820…a82c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0110}
0xa82c…a836               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x011c}
0xa836…a84c               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=0 «, t00=0x006b, t01=0x0126}
0xa84c…a86a               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 NOT ATTACHED«, t00=0x006b, t01=0x013c}
0xa86a…a876               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x015a}
0xa876…a880               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0166}
0xa880…a894               Head {h00=0x0010, h01=0x0050, text=»FMR:05 EQU *«, t00=0x006b, t01=0x0170}
0xa894…a8c2               Head {h00=0x002a, h01=0x0050, text=» SC A1,FPB:SH,A10 SET ATTACH PARAMETER«, t00=0x006b, t01=0x0184}
0xa8c2…a8cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0022}
0xa8cc…a8e4               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x006c, t01=0x002c}
0xa8e4…a8ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0044}
0xa8ee…a8f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x004e}
0xa8f8…a922               Head {h00=0x0026, h01=0x0050, text=» LD A1,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x006c, t01=0x0058}
0xa922…a934               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x006c, t01=0x0082}
0xa934…a968               Head {h00=0x0030, h01=0x0050, text=» RF(NN) FMR:10 PHYSICAL ORDERS FOR THIS FILE«, t00=0x006c, t01=0x0094}
0xa968…a97a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x006c, t01=0x00c8}
0xa97a…a9aa               Head {h00=0x002c, h01=0x0050, text=» SC A2,FPB:BO,A10 INDICATE BASIC ORDERS «, t00=0x006c, t01=0x00da}
0xa9aa…a9b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x010a}
0xa9b4…a9c8               Head {h00=0x0010, h01=0x0050, text=»FMR:10 EQU *«, t00=0x006c, t01=0x0114}
0xa9c8…a9da               Head {h00=0x000e, h01=0x0050, text=» SLC A1,7 «, t00=0x006c, t01=0x0128}
0xa9da…a9fe               Head {h00=0x0020, h01=0x0050, text=» ANK A1,/3F NUMBER OF USERS «, t00=0x006c, t01=0x013a}
0xa9fe…aa18               Head {h00=0x0016, h01=0x0050, text=» SC A1,FPB:US,A10 «, t00=0x006c, t01=0x015e}
0xaa18…aa22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0178}
0xaa22…aa54               Head {h00=0x002e, h01=0x0050, text=»* MOVE CREATION DATE AND RETENTION PERIOD «, t00=0x006c, t01=0x0182}
0xaa54…aa5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0024}
0xaa5e…aa7e               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A13 VTOC ADDRESS«, t00=0x006d, t01=0x002e}
0xaa7e…aa94               Head {h00=0x0012, h01=0x0050, text=» ADK A1,VTC:CD«, t00=0x006d, t01=0x004e}
0xaa94…aab4               Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 FPB ADDRESS «, t00=0x006d, t01=0x0064}
0xaab4…aaca               Head {h00=0x0012, h01=0x0050, text=» ADK A3,FPB:CD«, t00=0x006d, t01=0x0084}
0xaaca…aaf4               Head {h00=0x0026, h01=0x0050, text=» LDK A2,9 NO OF CHARACTERS TO MOVE«, t00=0x006d, t01=0x009a}
0xaaf4…ab32               Head {h00=0x003a, h01=0x0050, text=» CF A14,FM:MOV MOVE CREATION DATE AND RETENTION PERIOD«, t00=0x006d, t01=0x00c4}
0xab32…ab3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0102}
0xab3c…ab64               Head {h00=0x0024, h01=0x0050, text=»* MOVE FILE NAME FROM FWT TO FPB«, t00=0x006d, t01=0x010c}
0xab64…ab6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0134}
0xab6e…ab8c               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FWT ADDRESS«, t00=0x006d, t01=0x013e}
0xab8c…aba2               Head {h00=0x0012, h01=0x0050, text=» ADK A1,FWTNAM«, t00=0x006d, t01=0x015c}
0xaba2…abd4               Head {h00=0x002e, h01=0x0050, text=» SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME«, t00=0x006d, t01=0x0172}
0xabd4…abfa               Head {h00=0x0022, h01=0x0050, text=» CF A14,FM:MV8 MOVE FILE NAME «, t00=0x006e, t01=0x0014}
0xabfa…ac30               Head {h00=0x0032, h01=0x0050, text=» ADK A6,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE «, t00=0x006e, t01=0x003a}
0xac30…ac44               Head {h00=0x0010, h01=0x0050, text=» LDR A11,A6 «, t00=0x006e, t01=0x0070}
0xac44…ac72               Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK«, t00=0x006e, t01=0x0084}
0xac72…ac7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00b2}
0xac7c…ac94               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x006e, t01=0x00bc}
0xac94…ac9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00d4}
0xac9e…acc8               Head {h00=0x0026, h01=0x0050, text=»* MOVE VOLUME NAME FROM DWT TO FPB«, t00=0x006e, t01=0x00de}
0xacc8…acd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0108}
0xacd2…ace6               Head {h00=0x0010, h01=0x0050, text=»FMR:20 EQU *«, t00=0x006e, t01=0x0112}
0xace6…ad06               Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 FPB ADDRESS «, t00=0x006e, t01=0x0126}
0xad06…ad20               Head {h00=0x0016, h01=0x0050, text=» ADK A3,FPB:V1-10 «, t00=0x006e, t01=0x0146}
0xad20…ad58               Head {h00=0x0034, h01=0x0050, text=» LD A1,EWTSEX,A11 FILE SECTION AND EXTENT NUMBER«, t00=0x006e, t01=0x0160}
0xad58…ad6a               Head {h00=0x000e, h01=0x0050, text=» SLC A1,2 «, t00=0x006f, t01=0x0008}
0xad6a…ad90               Head {h00=0x0022, h01=0x0050, text=» ANK A1,3 FILE SECTION NUMBER «, t00=0x006f, t01=0x001a}
0xad90…ad9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0040}
0xad9a…adae               Head {h00=0x0010, h01=0x0050, text=»FMR:30 EQU *«, t00=0x006f, t01=0x004a}
0xadae…adec               Head {h00=0x003a, h01=0x0050, text=» ADK A3,FPB:V2-FPB:V1 COMPUTE VOLUME NAME DISPLACEMENT«, t00=0x006f, t01=0x005e}
0xadec…adfe               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006f, t01=0x009c}
0xadfe…ae14               Head {h00=0x0012, h01=0x0050, text=» RB(NN) FMR:30«, t00=0x006f, t01=0x00ae}
0xae14…ae3c               Head {h00=0x0024, h01=0x0050, text=» LC A2,EWTVOL,A12 DISC FILE CODE«, t00=0x006f, t01=0x00c4}
0xae3c…ae5e               Head {h00=0x001e, h01=0x0050, text=» LDR A13,A2 SAVE FILE CODE«, t00=0x006f, t01=0x00ec}
0xae5e…ae8e               Head {h00=0x002c, h01=0x0050, text=» CF A14,FNDNAM FIND VOLUME NAME ADDRESS «, t00=0x006f, t01=0x010e}
0xae8e…aeb6               Head {h00=0x0024, h01=0x0050, text=» CF A14,FM:MOV MOVE VOLUME NAME «, t00=0x006f, t01=0x013e}
0xaeb6…aec0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0166}
0xaec0…aed6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x006f, t01=0x0170}
0xaed6…af04               Head {h00=0x002a, h01=0x0050, text=» LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH«, t00=0x006f, t01=0x0186}
0xaf04…af18               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0070, t01=0x0024}
0xaf18…af32               Head {h00=0x0016, h01=0x0050, text=» LD A2,EWTEXL,A11 «, t00=0x0070, t01=0x0038}
0xaf32…af3e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x0052}
0xaf3e…af48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x005e}
0xaf48…af5e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0070, t01=0x0068}
0xaf5e…af8c               Head {h00=0x002a, h01=0x0050, text=» ML 2,EWTEXL-2,A11 FILE EXTENT LENGTH «, t00=0x0070, t01=0x007e}
0xaf8c…afa0               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0070, t01=0x00ac}
0xafa0…afac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x00c0}
0xafac…afb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00cc}
0xafb6…afce               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0070, t01=0x00d6}
0xafce…afd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00ee}
0xafd8…affc               Head {h00=0x0020, h01=0x0050, text=»* COMPUTE FILE SECTION SIZE «, t00=0x0070, t01=0x00f8}
0xaffc…b006               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x011c}
0xb006…b01a               Head {h00=0x0010, h01=0x0050, text=»FMR:35 EQU *«, t00=0x0070, t01=0x0126}
0xb01a…b04e               Head {h00=0x0030, h01=0x0050, text=» LDR* A11,A12 ADDRESS TO NEXT EWT STRUCTURE «, t00=0x0070, t01=0x013a}
0xb04e…b074               Head {h00=0x0022, h01=0x0050, text=» RF(Z) FMR:50 END OF EWT CHAIN«, t00=0x0070, t01=0x016e}
0xb074…b0a2 (113, 0, 398) Head {h00=0x002a, h01=0x0050, text=» LD A6,EWTEXL-2,A11 FILE EXTENT LENGTH«, t00=0x0071, t01=0x0004}
0xb0a2…b0b6               Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x0071, t01=0x0032}
0xb0b6…b0d0               Head {h00=0x0016, h01=0x0050, text=» LD A7,EWTEXL,A11 «, t00=0x0071, t01=0x0046}
0xb0d0…b0fe               Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK«, t00=0x0071, t01=0x0060}
0xb0fe…b128               Head {h00=0x0026, h01=0x0050, text=» CC A13,EWTVOL,A12 CHECK FILE CODE«, t00=0x0071, t01=0x008e}
0xb128…b158               Head {h00=0x002c, h01=0x0050, text=» RF(NE) FMR:50 END OF THIS FILE SECTION «, t00=0x0071, t01=0x00b8}
0xb158…b162               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00e8}
0xb162…b178               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0071, t01=0x00f2}
0xb178…b1a6               Head {h00=0x002a, h01=0x0050, text=» DAR A6 ACKUMULATE FILE SECTION LENGTH«, t00=0x0071, t01=0x0108}
0xb1a6…b1b8               Head {h00=0x000e, h01=0x0050, text=» RB FMR:35«, t00=0x0071, t01=0x0136}
0xb1b8…b1c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0148}
0xb1c2…b1d6               Head {h00=0x0010, h01=0x0050, text=»FMR:50 EQU *«, t00=0x0071, t01=0x0152}
0xb1d6…b206               Head {h00=0x002c, h01=0x0050, text=» MSR 2,A3 STORE FILE SECTION SIZE IN FPB«, t00=0x0071, t01=0x0166}
0xb206…b212               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0008}
0xb212…b21c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0014}
0xb21c…b232               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0072, t01=0x001e}
0xb232…b264               Head {h00=0x002e, h01=0x0050, text=» ADR A1,A6 ACKUMULATE FILE SECTION LENGTH «, t00=0x0072, t01=0x0034}
0xb264…b276               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x0072, t01=0x0066}
0xb276…b294               Head {h00=0x001a, h01=0x0050, text=» RF(O) FMR:45 OVERFLOW«, t00=0x0072, t01=0x0078}
0xb294…b2a6               Head {h00=0x000e, h01=0x0050, text=» RB FMR:35«, t00=0x0072, t01=0x0096}
0xb2a6…b2b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00a8}
0xb2b0…b2c4               Head {h00=0x0010, h01=0x0050, text=»FMR:45 EQU *«, t00=0x0072, t01=0x00b2}
0xb2c4…b2ea               Head {h00=0x0022, h01=0x0050, text=» ADK A1,1 OVERFLOW CORRECTION «, t00=0x0072, t01=0x00c6}
0xb2ea…b300               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x0072, t01=0x00ec}
0xb300…b312               Head {h00=0x000e, h01=0x0050, text=» RB FMR:35«, t00=0x0072, t01=0x0102}
0xb312…b31c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0114}
0xb31c…b330               Head {h00=0x0010, h01=0x0050, text=»FMR:50 EQU *«, t00=0x0072, t01=0x011e}
0xb330…b362               Head {h00=0x002e, h01=0x0050, text=» STR A1,A3 STORE FILE SECTION SIZE IN FPB «, t00=0x0072, t01=0x0132}
0xb362…b376               Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A3 «, t00=0x0072, t01=0x0164}
0xb376…b382               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0178}
0xb382…b38c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0184}
0xb38c…b3b8               Head {h00=0x0028, h01=0x0050, text=» LDR A4,A11 CHECK EWT BLOCK ADDRESS «, t00=0x0072, t01=0x018e}
0xb3b8…b3e4               Head {h00=0x0028, h01=0x0050, text=» RB(NZ) FMR:20 NOT END OF EWT CHAIN «, t00=0x0073, t01=0x002a}
0xb3e4…b3ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0056}
0xb3ee…b406               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0073, t01=0x0060}
0xb406…b410               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0078}
0xb410…b41a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0082}
0xb41a…b430               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0073, t01=0x008c}
0xb430…b43a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00a2}
0xb43a…b46a               Head {h00=0x002c, h01=0x0050, text=»*   MOVE SYSTEM FPB (FM:FPB) TO USER FPB«, t00=0x0073, t01=0x00ac}
0xb46a…b474               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00dc}
0xb474…b49e               Head {h00=0x0026, h01=0x0050, text=»*   INPUT:  A9 = USER ECB ADDRESS «, t00=0x0073, t01=0x00e6}
0xb49e…b4c6               Head {h00=0x0024, h01=0x0050, text=»*          A10 = FM:FPB ADDRESS «, t00=0x0073, t01=0x0110}
0xb4c6…b4d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0138}
0xb4d0…b4f2               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A10 FM:FPB ADDRESS«, t00=0x0073, t01=0x0142}
0xb4f2…b51a               Head {h00=0x0024, h01=0x0050, text=» EL A2,ECBBA,A9 USER FPB ADDRESS«, t00=0x0073, t01=0x0164}
0xb51a…b53c               Head {h00=0x001e, h01=0x0050, text=» LDK A3,FPBLEN  FPB LENGTH«, t00=0x0073, t01=0x018c}
0xb53c…b564               Head {h00=0x0024, h01=0x0050, text=» MVSU A3 MOVE FM:FPB TO USER FPB«, t00=0x0074, t01=0x001e}
0xb564…b570               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x0046}
0xb570…b57a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0052}
0xb57a…b592               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0074, t01=0x005c}
0xb592…b59c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0074}
0xb59c…b5a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x007e}
0xb5a6…b5b8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0074, t01=0x0088}
0xb5b8…b5ca               Head {h00=0x000e, h01=0x0050, text=»* FMEXIT *«, t00=0x0074, t01=0x009a}
0xb5ca…b5dc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0074, t01=0x00ac}
0xb5dc…b5e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00be}
0xb5e6…b5f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00c8}
0xb5f0…b624               Head {h00=0x0030, h01=0x0050, text=»*   SET RETURN CODE IN USER ECB, QUEUE TASK «, t00=0x0074, t01=0x00d2}
0xb624…b64c               Head {h00=0x0024, h01=0x0050, text=»*   AND PERFORM EXIT ON FMTASK. «, t00=0x0074, t01=0x0106}
0xb64c…b656               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x012e}
0xb656…b680               Head {h00=0x0026, h01=0x0050, text=»*   INPUT:  A9 = USER ECB ADDRESS «, t00=0x0074, t01=0x0138}
0xb680…b68a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0162}
0xb68a…b6b8               Head {h00=0x002a, h01=0x0050, text=»FMEXIT EQU * GENERAL RETURN CODE EXIT «, t00=0x0074, t01=0x016c}
0xb6b8…b6da               Head {h00=0x001e, h01=0x0050, text=» LD A4,RETCOD RETURN CODE «, t00=0x0075, t01=0x000a}
0xb6da…b6e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x002c}
0xb6e4…b6fa               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0075, t01=0x0036}
0xb6fa…b728               Head {h00=0x002a, h01=0x0050, text=» ST A4,ECBRC,A9 SET RETURN CODE IN ECB«, t00=0x0075, t01=0x004c}
0xb728…b734               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x007a}
0xb734…b73e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0086}
0xb73e…b754               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0075, t01=0x0090}
0xb754…b782               Head {h00=0x002a, h01=0x0050, text=» ES A4,ECBRC,A9 SET RETURN CODE IN ECB«, t00=0x0075, t01=0x00a6}
0xb782…b78e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x00d4}
0xb78e…b798               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00e0}
0xb798…b7ce               Head {h00=0x0032, h01=0x0050, text=» LD A5,TTAB RESTORE TTAB ADDRESS CALLING TASK «, t00=0x0075, t01=0x00ea}
0xb7ce…b7fc               Head {h00=0x002a, h01=0x0050, text=» ABL QMEXIT QUEUE TASK AND EXIT FMTASK«, t00=0x0075, t01=0x0120}
0xb7fc…b806               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x014e}
0xb806…b81e               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0075, t01=0x0158}
0xb81e…b828               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0170}
0xb828…b832               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x017a}
0xb832…b844               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0075, t01=0x0184}
0xb844…b856               Head {h00=0x000e, h01=0x0050, text=»* FMSPLI *«, t00=0x0076, t01=0x0008}
0xb856…b868               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0076, t01=0x001a}
0xb868…b872               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x002c}
0xb872…b87c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0036}
0xb87c…b8a6               Head {h00=0x0026, h01=0x0050, text=»*   FILE MANAGEMENT I/O FUNCTIONS:«, t00=0x0076, t01=0x0040}
0xb8a6…b8d6               Head {h00=0x002c, h01=0x0050, text=»*   FMSPLI IS ENTERED WHEN THE REQUESTED«, t00=0x0076, t01=0x006a}
0xb8d6…b904               Head {h00=0x002a, h01=0x0050, text=»*   SECTORS ARE SPLIT OVER TWO OR MORE«, t00=0x0076, t01=0x009a}
0xb904…b91e               Head {h00=0x0016, h01=0x0050, text=»*   FILE EXTENTS. «, t00=0x0076, t01=0x00c8}
0xb91e…b928               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00e2}
0xb928…b956               Head {h00=0x002a, h01=0x0050, text=»*   A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0076, t01=0x00ec}
0xb956…b97e               Head {h00=0x0024, h01=0x0050, text=»*   A7 = PARAMETER BLOCK ADDRESS«, t00=0x0076, t01=0x011a}
0xb97e…b99e               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0076, t01=0x0142}
0xb99e…b9c0               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x0076, t01=0x0162}
0xb9c0…b9e4               Head {h00=0x0020, h01=0x0050, text=»*  A10 = USER BUFFER ADDRESS«, t00=0x0076, t01=0x0184}
0xb9e4…b9ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0018}
0xb9ee…ba20               Head {h00=0x002e, h01=0x0050, text=»FMSPLI EQU * BASIC AND PHYSICAL READ/WRITE«, t00=0x0077, t01=0x0022}
0xba20…ba36               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0077, t01=0x0054}
0xba36…ba60               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A7 PARAMETER BLOCK ADDRESS«, t00=0x0077, t01=0x006a}
0xba60…ba6c               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0077, t01=0x0094}
0xba6c…baa4               Head {h00=0x0034, h01=0x0050, text=» CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS «, t00=0x0077, t01=0x00a0}
0xbaa4…bace               Head {h00=0x0026, h01=0x0050, text=» LDR A13,A2 2ND EWT BLOCK ADDRESS «, t00=0x0077, t01=0x00d8}
0xbace…bb0e               Head {h00=0x003c, h01=0x0050, text=» CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS «, t00=0x0077, t01=0x0102}
0xbb0e…bb1a               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0077, t01=0x0142}
0xbb1a…bb30               Head {h00=0x0012, h01=0x0050, text=» ORS A4,RETCOD«, t00=0x0077, t01=0x014e}
0xbb30…bb54               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) FMEXIT ERROR, RETURN«, t00=0x0077, t01=0x0164}
0xbb54…bb72               Head {h00=0x001a, h01=0x0050, text=» LDR A7,A1 ORDER CODE «, t00=0x0077, t01=0x0188}
0xbb72…bb7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0016}
0xbb7c…bb94               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0078, t01=0x0020}
0xbb94…bb9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0038}
0xbb9e…bba8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0042}
0xbba8…bbbe               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0078, t01=0x004c}
0xbbbe…bbd4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0078, t01=0x0062}
0xbbd4…bbfa               Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBCW1,A9 SECTOR NUMBER«, t00=0x0078, t01=0x0078}
0xbbfa…bc12               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW2,A9«, t00=0x0078, t01=0x009e}
0xbc12…bc3e               Head {h00=0x0028, h01=0x0050, text=» ST A10,ECBBA,A8 SET BUFFER ADDRESS «, t00=0x0078, t01=0x00b6}
0xbc3e…bc6e               Head {h00=0x002c, h01=0x0050, text=» LD A10,ECBRL,A9 TOTAL REQUESTED LENGTH «, t00=0x0078, t01=0x00e2}
0xbc6e…bc8a               Head {h00=0x0018, h01=0x0050, text=» LDR A11,A10 SAVE IT«, t00=0x0078, t01=0x0112}
0xbc8a…bc94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x012e}
0xbc94…bcc6               Head {h00=0x002e, h01=0x0050, text=»* SET ECB PARAMETERS AND PERFORM DISC I/O «, t00=0x0078, t01=0x0138}
0xbcc6…bcd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x016a}
0xbcd0…bcf8               Head {h00=0x0024, h01=0x0050, text=»FMSP00 EQU * MAIN I/O LOOP ENTRY«, t00=0x0078, t01=0x0174}
0xbcf8…bd26               Head {h00=0x002a, h01=0x0050, text=» ST A1,ECBCW1,A8 SET SECTOR NO IN ECB «, t00=0x0079, t01=0x000c}
0xbd26…bd3e               Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW2,A8«, t00=0x0079, t01=0x003a}
0xbd3e…bd4a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x0052}
0xbd4a…bd54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x005e}
0xbd54…bd6a               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0079, t01=0x0068}
0xbd6a…bd80               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0079, t01=0x007e}
0xbd80…bd96               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0079, t01=0x0094}
0xbd96…bdbc               Head {h00=0x0022, h01=0x0050, text=» ML 2,ECBCW1,A9 SECTOR NUMBER «, t00=0x0079, t01=0x00aa}
0xbdbc…bde8               Head {h00=0x0028, h01=0x0050, text=» ST A10,ECBBA,A8 SET BUFFER ADDRESS «, t00=0x0079, t01=0x00d0}
0xbde8…be18               Head {h00=0x002c, h01=0x0050, text=» LD A10,ECBRL,A9 TOTAL REQUESTED LENGTH «, t00=0x0079, t01=0x00fc}
0xbe18…be34               Head {h00=0x0018, h01=0x0050, text=» LDR A11,A10 SAVE IT«, t00=0x0079, t01=0x012c}
0xbe34…be3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0148}
0xbe3e…be66               Head {h00=0x0024, h01=0x0050, text=»FMSP00 EQU * MAIN I/O LOOP ENTRY«, t00=0x0079, t01=0x0152}
0xbe66…be92               Head {h00=0x0028, h01=0x0050, text=» MS 2,ECBCW1,A8 SET SECTOR NO IN ECB«, t00=0x0079, t01=0x017a}
0xbe92…be9e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007a, t01=0x0016}
0xbe9e…bea8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0022}
0xbea8…bebe               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007a, t01=0x002c}
0xbebe…bed4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007a, t01=0x0042}
0xbed4…bee6               Head {h00=0x000e, h01=0x0050, text=» INH   =3 «, t00=0x007a, t01=0x0058}
0xbee6…bf20               Head {h00=0x0036, h01=0x0050, text=» CF A15,TIOMXI CONVERT LOGICAL ADDRESS TO PHYSICAL«, t00=0x007a, t01=0x006a}
0xbf20…bf32               Head {h00=0x000e, h01=0x0050, text=» ENB   =3 «, t00=0x007a, t01=0x00a4}
0xbf32…bf58               Head {h00=0x0022, h01=0x0050, text=» EL A1,ECBCW1,A9 SECTOR NUMBER«, t00=0x007a, t01=0x00b6}
0xbf58…bf70               Head {h00=0x0014, h01=0x0050, text=» EL A2,ECBCW2,A9«, t00=0x007a, t01=0x00dc}
0xbf70…bfa0               Head {h00=0x002c, h01=0x0050, text=» EL A10,ECBRL,A9 TOTAL REQUESTED LENGTH «, t00=0x007a, t01=0x00f4}
0xbfa0…bfb4               Head {h00=0x0010, h01=0x0050, text=» LDR A11,A10«, t00=0x007a, t01=0x0124}
0xbfb4…bfbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0138}
0xbfbe…bfe6               Head {h00=0x0024, h01=0x0050, text=»FMSP00 EQU * MAIN I/O LOOP ENTRY«, t00=0x007a, t01=0x0142}
0xbfe6…c012               Head {h00=0x0028, h01=0x0050, text=» MS 2,ECBCW1,A8 SET SECTOR NO IN ECB«, t00=0x007a, t01=0x016a}
0xc012…c01e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x0008}
0xc01e…c028               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0014}
0xc028…c03e               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007b, t01=0x001e}
0xc03e…c066               Head {h00=0x0024, h01=0x0050, text=» LC A1,EWTVOL,A13 DISC FILE CODE«, t00=0x007b, t01=0x0034}
0xc066…c092               Head {h00=0x0028, h01=0x0050, text=» SC A1,ECBFC,A8 SET FILE CODE IN ECB«, t00=0x007b, t01=0x005c}
0xc092…c0c6               Head {h00=0x0030, h01=0x0050, text=» ST A3,ECBRL,A8 SET REQUESTED LENGTH IN ECB «, t00=0x007b, t01=0x0088}
0xc0c6…c0ec               Head {h00=0x0022, h01=0x0050, text=» CF A14,FM:IO PERFORM DISC I/O«, t00=0x007b, t01=0x00bc}
0xc0ec…c10e               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FMSP50 DISC ERROR «, t00=0x007b, t01=0x00e2}
0xc10e…c136               Head {h00=0x0024, h01=0x0050, text=» LD A4,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x007b, t01=0x0104}
0xc136…c162               Head {h00=0x0028, h01=0x0050, text=» SUR A11,A4 UPDATE REMAINING LENGTH «, t00=0x007b, t01=0x012c}
0xc162…c186               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FMSP50 I/O COMPLETED «, t00=0x007b, t01=0x0158}
0xc186…c190               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x017c}
0xc190…c1a8               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x007b, t01=0x0186}
0xc1a8…c1b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x000e}
0xc1b2…c1d2               Head {h00=0x001c, h01=0x0050, text=»* UPDATE BUFFER ADDRESS «, t00=0x007c, t01=0x0018}
0xc1d2…c1dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0038}
0xc1dc…c1f2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x007c, t01=0x0042}
0xc1f2…c220               Head {h00=0x002a, h01=0x0050, text=» ADS A4,ECBBA,A8 UPDATE BUFFER ADDRESS«, t00=0x007c, t01=0x0058}
0xc220…c22c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x0086}
0xc22c…c236               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0092}
0xc236…c24c               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007c, t01=0x009c}
0xc24c…c262               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007c, t01=0x00b2}
0xc262…c296               Head {h00=0x0030, h01=0x0050, text=» LDK A3,0 MOST SIGNIFICANT PART OF LENGTH =3«, t00=0x007c, t01=0x00c8}
0xc296…c2b4               Head {h00=0x001a, h01=0x0050, text=» SRL A4,1 WORD MODE =3«, t00=0x007c, t01=0x00fc}
0xc2b4…c2d4               Head {h00=0x001c, h01=0x0050, text=» MLR 2,A8 BUFFER ADDRESS«, t00=0x007c, t01=0x011a}
0xc2d4…c2e6               Head {h00=0x000e, h01=0x0050, text=» SLC A1,4 «, t00=0x007c, t01=0x013a}
0xc2e6…c302               Head {h00=0x0018, h01=0x0050, text=» SRL A2,1 WORD MODE «, t00=0x007c, t01=0x014c}
0xc302…c316               Head {h00=0x0010, h01=0x0050, text=» DAR A3  =3 «, t00=0x007c, t01=0x0168}
0xc316…c332               Head {h00=0x0018, h01=0x0050, text=» SLL A2,1 BYTE MODE «, t00=0x007c, t01=0x017c}
0xc332…c344               Head {h00=0x000e, h01=0x0050, text=» SRC A1,4 «, t00=0x007d, t01=0x0008}
0xc344…c378               Head {h00=0x0030, h01=0x0050, text=» MSR 2,A8 SET UPDATED BUFFER ADDRESS IN ECB «, t00=0x007d, t01=0x001a}
0xc378…c384               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x004e}
0xc384…c38e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x005a}
0xc38e…c3a6               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x007d, t01=0x0064}
0xc3a6…c3b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x007c}
0xc3b0…c3e0               Head {h00=0x002c, h01=0x0050, text=»* GET PARAMETERS FROM NEXT EWT STRUCTURE«, t00=0x007d, t01=0x0086}
0xc3e0…c40a               Head {h00=0x0026, h01=0x0050, text=»* AND COMPUTE NEW REQUESTED LENGTH«, t00=0x007d, t01=0x00b6}
0xc40a…c414               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00e0}
0xc414…c42a               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007d, t01=0x00ea}
0xc42a…c452               Head {h00=0x0024, h01=0x0050, text=» LDR* A13,A13 NEXT EWT STRUCTURE«, t00=0x007d, t01=0x0100}
0xc452…c47c               Head {h00=0x0026, h01=0x0050, text=» RF(Z) FMSP40 END OF EWT STRUCTURE«, t00=0x007d, t01=0x0128}
0xc47c…c4b4               Head {h00=0x0034, h01=0x0050, text=» ECR A3,A11 CONVERT REMAINING LENGTH TO SECTORS «, t00=0x007d, t01=0x0152}
0xc4b4…c4be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x018a}
0xc4be…c4d4 (126, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x007e, t01=0x0004}
0xc4d4…c506               Head {h00=0x002e, h01=0x0050, text=» LD A1,EWTEXL-1,A13 EXTENT LENGTH, PART 1 «, t00=0x007e, t01=0x001a}
0xc506…c51a               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x007e, t01=0x004c}
0xc51a…c544               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FMSP30 EXTENT LARGE ENOUGH«, t00=0x007e, t01=0x0060}
0xc544…c574               Head {h00=0x002c, h01=0x0050, text=» LD A2,EWTEXL,A13 EXTENT LENGTH, PART 2 «, t00=0x007e, t01=0x008a}
0xc574…c580               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x00ba}
0xc580…c58a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00c6}
0xc58a…c5a0               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007e, t01=0x00d0}
0xc5a0…c5b6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x007e, t01=0x00e6}
0xc5b6…c5de               Head {h00=0x0024, h01=0x0050, text=» ML 2,EWTEXL-1,A13 EXTENT LENGTH«, t00=0x007e, t01=0x00fc}
0xc5de…c5f2               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x007e, t01=0x0124}
0xc5f2…c61c               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FMSP30 EXTENT LARGE ENOUGH«, t00=0x007e, t01=0x0138}
0xc61c…c628               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0162}
0xc628…c632               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x016e}
0xc632…c64a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x007e, t01=0x0178}
0xc64a…c654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0190}
0xc654…c65e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x000a}
0xc65e…c674               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007f, t01=0x0014}
0xc674…c686               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x007f, t01=0x002a}
0xc686…c6b0               Head {h00=0x0026, h01=0x0050, text=» RF(NG) FMSP30 EXTENT LARGE ENOUGH«, t00=0x007f, t01=0x003c}
0xc6b0…c6dc               Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 NO OF SECTORS IN THIS I/O«, t00=0x007f, t01=0x0066}
0xc6dc…c6e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0092}
0xc6e6…c6fa               Head {h00=0x0010, h01=0x0050, text=»FMSP30 EQU *«, t00=0x007f, t01=0x009c}
0xc6fa…c724               Head {h00=0x0026, h01=0x0050, text=» ECR A3,A3 CONVERT LENGTH TO BYTES«, t00=0x007f, t01=0x00b0}
0xc724…c748               Head {h00=0x0020, h01=0x0050, text=» LDR* A13,A13 2ND EWT BLOCK «, t00=0x007f, t01=0x00da}
0xc748…c752               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00fe}
0xc752…c768               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x007f, t01=0x0108}
0xc768…c790               Head {h00=0x0024, h01=0x0050, text=» LD A1,EWTEXB-1,A13 EXTENT BASE «, t00=0x007f, t01=0x011e}
0xc790…c7a4               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x007f, t01=0x0146}
0xc7a4…c7be               Head {h00=0x0016, h01=0x0050, text=» LD A2,EWTEXB,A13 «, t00=0x007f, t01=0x015a}
0xc7be…c7d0               Head {h00=0x000e, h01=0x0050, text=» RB FMSP00«, t00=0x007f, t01=0x0174}
0xc7d0…c7dc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0186}
0xc7dc…c7e6 (128, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0004}
0xc7e6…c7fc               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0080, t01=0x000e}
0xc7fc…c812               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0080, t01=0x0024}
0xc812…c838               Head {h00=0x0022, h01=0x0050, text=» ML 2,EWTEXB-1,A13 EXTENT BASE«, t00=0x0080, t01=0x003a}
0xc838…c84c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0080, t01=0x0060}
0xc84c…c85e               Head {h00=0x000e, h01=0x0050, text=» RB FMSP00«, t00=0x0080, t01=0x0074}
0xc85e…c86a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0086}
0xc86a…c874               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0092}
0xc874…c88c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0080, t01=0x009c}
0xc88c…c896               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00b4}
0xc896…c8a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00be}
0xc8a0…c8ce               Head {h00=0x002a, h01=0x0050, text=»FMSP40 EQU * ILLEGAL REQUESTED LENGTH «, t00=0x0080, t01=0x00c8}
0xc8ce…c8e4               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0080, t01=0x00f6}
0xc8e4…c906               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/2000 RETURN CODE«, t00=0x0080, t01=0x010c}
0xc906…c91c               Head {h00=0x0012, h01=0x0050, text=» ORS A1,RETCOD«, t00=0x0080, t01=0x012e}
0xc91c…c926               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0144}
0xc926…c93a               Head {h00=0x0010, h01=0x0050, text=»FMSP50 EQU *«, t00=0x0080, t01=0x014e}
0xc93a…c968               Head {h00=0x002a, h01=0x0050, text=» SUR A10,A11 COMPUTE EFFECTIVE LENGTH «, t00=0x0080, t01=0x0162}
0xc968…c972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0190}
0xc972…c988               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0081, t01=0x000a}
0xc988…c9c2               Head {h00=0x0036, h01=0x0050, text=» ST A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB «, t00=0x0081, t01=0x0020}
0xc9c2…c9ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x005a}
0xc9ce…c9d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0066}
0xc9d8…c9ee               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0081, t01=0x0070}
0xc9ee…ca04               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0081, t01=0x0086}
0xca04…ca3e               Head {h00=0x0036, h01=0x0050, text=» ES A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB «, t00=0x0081, t01=0x009c}
0xca3e…ca4a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x00d6}
0xca4a…ca54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00e2}
0xca54…ca6a               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0081, t01=0x00ec}
0xca6a…ca84               Head {h00=0x0016, h01=0x0050, text=» RB FMEXIT RETURN «, t00=0x0081, t01=0x0102}
0xca84…ca90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x011c}
0xca90…ca9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0128}
0xca9a…cab2               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0081, t01=0x0132}
0xcab2…cabc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x014a}
0xcabc…cac6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0154}
0xcac6…cad8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0081, t01=0x015e}
0xcad8…caea               Head {h00=0x000e, h01=0x0050, text=»* FM:PWR *«, t00=0x0081, t01=0x0170}
0xcaea…cafc               Head {h00=0x000e, h01=0x0050, text=»* FMREAD *«, t00=0x0081, t01=0x0182}
0xcafc…cb0e (130, 0, 400) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0082, t01=0x0004}
0xcb0e…cb18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0016}
0xcb18…cb22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0020}
0xcb22…cb50               Head {h00=0x002a, h01=0x0050, text=»*   INPUT:  A2 = SECTOR NUMBER, PART 2«, t00=0x0082, t01=0x002a}
0xcb50…cb82               Head {h00=0x002e, h01=0x0050, text=»*           A8 = FM:ECB/FMECB2 ECB ADDRESS«, t00=0x0082, t01=0x0058}
0xcb82…cb8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x008a}
0xcb8c…cbb2               Head {h00=0x0022, h01=0x0050, text=»*   OUTPUT: CR = 0 IF OK, ELSE«, t00=0x0082, t01=0x0094}
0xcbb2…cbda               Head {h00=0x0024, h01=0x0050, text=»*             <> 0 IF DISC ERROR«, t00=0x0082, t01=0x00ba}
0xcbda…cc16               Head {h00=0x0038, h01=0x0050, text=»*           A4 = DISC RETURN CODE (EXCEPT RETRY BIT)«, t00=0x0082, t01=0x00e2}
0xcc16…cc32               Head {h00=0x0018, h01=0x0050, text=»*    A7 IS DESTROYED«, t00=0x0082, t01=0x011e}
0xcc32…cc3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x013a}
0xcc3c…cc66               Head {h00=0x0026, h01=0x0050, text=»FM:PWR EQU * PHYSICAL WRITE ENTRY «, t00=0x0082, t01=0x0144}
0xcc66…cc84               Head {h00=0x001a, h01=0x0050, text=» LDK A7,/95 ORDER CODE«, t00=0x0082, t01=0x016e}
0xcc84…cc96               Head {h00=0x000e, h01=0x0050, text=» RF FM:LKM«, t00=0x0082, t01=0x018c}
0xcc96…cca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x000e}
0xcca0…ccc8               Head {h00=0x0024, h01=0x0050, text=»FMREAD EQU * PHYSICAL READ ENTRY«, t00=0x0083, t01=0x0018}
0xccc8…cce6               Head {h00=0x001a, h01=0x0050, text=» LDK A7,/91 ORDER CODE«, t00=0x0083, t01=0x0040}
0xcce6…ccf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x005e}
0xccf0…cd1e               Head {h00=0x002a, h01=0x0050, text=»FM:LKM EQU * COMMON I/O ROUTINE ENTRY «, t00=0x0083, t01=0x0068}
0xcd1e…cd50               Head {h00=0x002e, h01=0x0050, text=» ST A2,ECBCW2,A8 SET SECTOR NUMBER IN ECB «, t00=0x0083, t01=0x0096}
0xcd50…cd5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00c8}
0xcd5a…cd6e               Head {h00=0x0010, h01=0x0050, text=»FM:IO EQU * «, t00=0x0083, t01=0x00d2}
0xcd6e…cd96               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 ADJUST STACK POINTER«, t00=0x0083, t01=0x00e6}
0xcd96…cda2               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0083, t01=0x010e}
0xcda2…cdb2               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0083, t01=0x011a}
0xcdb2…cdd6               Head {h00=0x0020, h01=0x0050, text=» LD A4,ECBRC,A8 RETURN CODE «, t00=0x0083, t01=0x012a}
0xcdd6…ce00               Head {h00=0x0026, h01=0x0050, text=» ORS A4,RETCOD PREPARE RETURN CODE«, t00=0x0083, t01=0x014e}
0xce00…ce26               Head {h00=0x0022, h01=0x0050, text=» ANKL A4,/FEFF SKIP RETRY BIT «, t00=0x0083, t01=0x0178}
0xce26…ce54               Head {h00=0x002a, h01=0x0050, text=» ABR* A14 RETURN (WITHOUT CHANGING CR)«, t00=0x0084, t01=0x000e}
0xce54…ce5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x003c}
0xce5e…ce76               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0084, t01=0x0046}
0xce76…ce80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x005e}
0xce80…ce8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0068}
0xce8a…ce9c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0084, t01=0x0072}
0xce9c…ceae               Head {h00=0x000e, h01=0x0050, text=»* FNDNAM *«, t00=0x0084, t01=0x0084}
0xceae…cec0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0084, t01=0x0096}
0xcec0…ceca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00a8}
0xceca…ced4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00b2}
0xced4…cf0a               Head {h00=0x0032, h01=0x0050, text=»*   FNDNAM WILL CONVERT THE SUPPLIED FILE CODE«, t00=0x0084, t01=0x00bc}
0xcf0a…cf3e               Head {h00=0x0030, h01=0x0050, text=»*   TO VOLUME NAME ADDRESS IN THE DISC DWT. «, t00=0x0084, t01=0x00f2}
0xcf3e…cf48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0126}
0xcf48…cf6a               Head {h00=0x001e, h01=0x0050, text=»*   INPUT:  A2 = FILE CODE«, t00=0x0084, t01=0x0130}
0xcf6a…cf74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0152}
0xcf74…cfa0               Head {h00=0x0028, h01=0x0050, text=»*   OUTPUT: A1 = VOLUME NAME ADDRESS«, t00=0x0084, t01=0x015c}
0xcfa0…cfb4               Head {h00=0x0010, h01=0x0050, text=»*    A2 = 6 «, t00=0x0084, t01=0x0188}
0xcfb4…cfe6               Head {h00=0x002e, h01=0x0050, text=»*    A6 = DISC DWT ADDRESS + DOUBLE INDEX «, t00=0x0085, t01=0x000c}
0xcfe6…cff0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x003e}
0xcff0…d01e               Head {h00=0x002a, h01=0x0050, text=»FNDNAM EQU * FIND VOLUME NAME ADDRESS «, t00=0x0085, t01=0x0048}
0xd01e…d02a               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0085, t01=0x0076}
0xd02a…d056               Head {h00=0x0028, h01=0x0050, text=» CF A15,FNDDWD FIND DISC DWT ADDRESS«, t00=0x0085, t01=0x0082}
0xd056…d062               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0085, t01=0x00ae}
0xd062…d06c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00ba}
0xd06c…d0a6               Head {h00=0x0036, h01=0x0050, text=»* CHECK IF DISC RECOVERY GOING ON AND IN THAT CASE«, t00=0x0085, t01=0x00c4}
0xd0a6…d0e2               Head {h00=0x0038, h01=0x0050, text=»* SWITCH TASK WHILE WAITING FOR RECOVERY COMPLETION «, t00=0x0085, t01=0x00fe}
0xd0e2…d0ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x013a}
0xd0ec…d100               Head {h00=0x0010, h01=0x0050, text=»FNAM05 EQU *«, t00=0x0085, t01=0x0144}
0xd100…d118               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST,A6 «, t00=0x0085, t01=0x0158}
0xd118…d12a               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0085, t01=0x0170}
0xd12a…d162               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC «, t00=0x0085, t01=0x0182}
0xd162…d18c               Head {h00=0x0026, h01=0x0050, text=» LKM  WAIT FOR RECOVERY COMPLETION«, t00=0x0086, t01=0x002a}
0xd18c…d1a8               Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASKS«, t00=0x0086, t01=0x0054}
0xd1a8…d1cc               Head {h00=0x0020, h01=0x0050, text=» RB FNAM05 CHECK DISC AGAIN «, t00=0x0086, t01=0x0070}
0xd1cc…d1d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0094}
0xd1d6…d1ee               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0086, t01=0x009e}
0xd1ee…d1f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00b6}
0xd1f8…d202               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00c0}
0xd202…d216               Head {h00=0x0010, h01=0x0050, text=»FNAM10 EQU *«, t00=0x0086, t01=0x00ca}
0xd216…d23a               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 DISC DWT ADDRESS «, t00=0x0086, t01=0x00de}
0xd23a…d258               Head {h00=0x001a, h01=0x0050, text=» LDR A6,A2 DISC INDEX «, t00=0x0086, t01=0x0102}
0xd258…d278               Head {h00=0x001c, h01=0x0050, text=» ADR A6,A6 DOUBLE INDEX «, t00=0x0086, t01=0x0120}
0xd278…d29a               Head {h00=0x001e, h01=0x0050, text=» ADR A6,A1 ADD DWT ADDRESS«, t00=0x0086, t01=0x0140}
0xd29a…d2a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0162}
0xd2a4…d2d0               Head {h00=0x0028, h01=0x0050, text=»* COMPUTE VOLUME NAME ADDRESS IN DWT«, t00=0x0086, t01=0x016c}
0xd2d0…d2da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0008}
0xd2da…d2ee               Head {h00=0x0010, h01=0x0050, text=»FNAM20 EQU *«, t00=0x0087, t01=0x0012}
0xd2ee…d318               Head {h00=0x0026, h01=0x0050, text=» ADK A1,6 NEXT VOLUME NAME IN DWT «, t00=0x0087, t01=0x0026}
0xd318…d33a               Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 DECREMENT INDEX «, t00=0x0087, t01=0x0050}
0xd33a…d350               Head {h00=0x0012, h01=0x0050, text=» RB(NN) FNAM20«, t00=0x0087, t01=0x0072}
0xd350…d362               Head {h00=0x000e, h01=0x0050, text=» LDK A2,6 «, t00=0x0087, t01=0x0088}
0xd362…d37c               Head {h00=0x0016, h01=0x0050, text=» ADKL A1,DWTVOL-6 «, t00=0x0087, t01=0x009a}
0xd37c…d38c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0087, t01=0x00b4}
0xd38c…d396               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00c4}
0xd396…d3ae               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0087, t01=0x00ce}
0xd3ae…d3b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00e6}
0xd3b8…d3c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00f0}
0xd3c2…d3d4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0087, t01=0x00fa}
0xd3d4…d3e6               Head {h00=0x000e, h01=0x0050, text=»* RDVTOC *«, t00=0x0087, t01=0x010c}
0xd3e6…d3f8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0087, t01=0x011e}
0xd3f8…d402               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0130}
0xd402…d40c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x013a}
0xd40c…d440               Head {h00=0x0030, h01=0x0050, text=»*   RDVTOC WILL CALL FCHEC2 FOR CHECK OF THE«, t00=0x0087, t01=0x0144}
0xd440…d476               Head {h00=0x0032, h01=0x0050, text=»*   ACCESS PARAMETERS AND READ THE VTOC RECORD«, t00=0x0087, t01=0x0178}
0xd476…d49c               Head {h00=0x0022, h01=0x0050, text=»*   OF THE FIRST FILE EXTENT. «, t00=0x0088, t01=0x001e}
0xd49c…d4a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0044}
0xd4a6…d4cc               Head {h00=0x0022, h01=0x0050, text=»*   INPUT:  A5 = TTAB ADDRESS «, t00=0x0088, t01=0x004e}
0xd4cc…d4ec               Head {h00=0x001c, h01=0x0050, text=»*    A8 = FM:ECB ADDRESS«, t00=0x0088, t01=0x0074}
0xd4ec…d516               Head {h00=0x0026, h01=0x0050, text=»*           A9 = USER ECB ADDRESS «, t00=0x0088, t01=0x0094}
0xd516…d520               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00be}
0xd520…d556               Head {h00=0x0032, h01=0x0050, text=»*   OUTPUT: A1 = 0 IF FIRST FILE EXTENT FOUND «, t00=0x0088, t01=0x00c8}
0xd556…d590               Head {h00=0x0036, h01=0x0050, text=»*           A2 = VTOC SECTOR NUMBER (FIRST EXTENT)«, t00=0x0088, t01=0x00fe}
0xd590…d5b8               Head {h00=0x0024, h01=0x0050, text=»*    A4 = RETURN CODE (=0 IF OK)«, t00=0x0088, t01=0x0138}
0xd5b8…d5dc               Head {h00=0x0020, h01=0x0050, text=»*           A6 = FWT ADDRESS«, t00=0x0088, t01=0x0160}
0xd5dc…d612               Head {h00=0x0032, h01=0x0050, text=»*          A13 = VTOC RECORD ADDRESS IN FM:BUF«, t00=0x0088, t01=0x0184}
0xd612…d640               Head {h00=0x002a, h01=0x0050, text=»*           A3, A7, A11 ARE DESTROYED «, t00=0x0089, t01=0x002a}
0xd640…d64a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0058}
0xd64a…d686               Head {h00=0x0038, h01=0x0050, text=»RDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD «, t00=0x0089, t01=0x0062}
0xd686…d692               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0089, t01=0x009e}
0xd692…d6d2               Head {h00=0x003c, h01=0x0050, text=» CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS «, t00=0x0089, t01=0x00aa}
0xd6d2…d6de               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0089, t01=0x00ea}
0xd6de…d702               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDVT20 ERROR, RETURN«, t00=0x0089, t01=0x00f6}
0xd702…d70c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x011a}
0xd70c…d724               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0089, t01=0x0124}
0xd724…d72e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x013c}
0xd72e…d738               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0146}
0xd738…d76e               Head {h00=0x0032, h01=0x0050, text=» LC A4,FWTVOL,A6 DISC FILE CODE (FIRST EXTENT)«, t00=0x0089, t01=0x0150}
0xd76e…d780               Head {h00=0x000e, h01=0x0050, text=» STR A4,A8«, t00=0x0089, t01=0x0186}
0xd780…d7ba               Head {h00=0x0036, h01=0x0050, text=» LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT)«, t00=0x008a, t01=0x0008}
0xd7ba…d7c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0042}
0xd7c4…d7ee               Head {h00=0x0026, h01=0x0050, text=»RDVTO2 EQU * ENTRY USED BY FMCDEF «, t00=0x008a, t01=0x004c}
0xd7ee…d82a               Head {h00=0x0038, h01=0x0050, text=» CF A14,FNDVT2 READ VTOC SECTOR AND ONE VTOC RECORD «, t00=0x008a, t01=0x0076}
0xd82a…d834               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x00b2}
0xd834…d848               Head {h00=0x0010, h01=0x0050, text=»RDVT10 EQU *«, t00=0x008a, t01=0x00bc}
0xd848…d86c               Head {h00=0x0020, h01=0x0050, text=» ADK A4,0 CHECK RETURN CODE «, t00=0x008a, t01=0x00d0}
0xd86c…d896               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) RDVT20 DISC ERROR, RETURN «, t00=0x008a, t01=0x00f4}
0xd896…d8c2               Head {h00=0x0028, h01=0x0050, text=» LD A1,VTC:EN,A13 FILE EXTENT NUMBER«, t00=0x008a, t01=0x011e}
0xd8c2…d8ea               Head {h00=0x0024, h01=0x0050, text=» RF(Z) RDVT20 FIRST EXTENT FOUND«, t00=0x008a, t01=0x014a}
0xd8ea…d924               Head {h00=0x0036, h01=0x0050, text=» CF A14,FNDVT3 READ NEXT VTOC RECORD FOR THIS FILE«, t00=0x008a, t01=0x0172}
0xd924…d958               Head {h00=0x0030, h01=0x0050, text=» RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT«, t00=0x008b, t01=0x001c}
0xd958…d962               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0050}
0xd962…d976               Head {h00=0x0010, h01=0x0050, text=»RDVT20 EQU *«, t00=0x008b, t01=0x005a}
0xd976…d9a0               Head {h00=0x0026, h01=0x0050, text=» ORS A4,RETCOD PREPARE RETURN CODE«, t00=0x008b, t01=0x006e}
0xd9a0…d9b0               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008b, t01=0x0098}
0xd9b0…d9ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00a8}
0xd9ba…d9d2               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x008b, t01=0x00b2}
0xd9d2…d9dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00ca}
0xd9dc…d9e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00d4}
0xd9e6…d9f8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x008b, t01=0x00de}
0xd9f8…da0a               Head {h00=0x000e, h01=0x0050, text=»* FNDVTC *«, t00=0x008b, t01=0x00f0}
0xda0a…da1c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x008b, t01=0x0102}
0xda1c…da26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0114}
0xda26…da30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x011e}
0xda30…da5a               Head {h00=0x0026, h01=0x0050, text=»*   FNDVTC SEARCHES THE REQUESTED «, t00=0x008b, t01=0x0128}
0xda5a…da80               Head {h00=0x0022, h01=0x0050, text=»*   FILE SPECIFIED IN THE FPB.«, t00=0x008b, t01=0x0152}
0xda80…daaa               Head {h00=0x0026, h01=0x0050, text=»*   RETURN IS MADE WHEN ONE EXTENT«, t00=0x008b, t01=0x0178}
0xdaaa…dada               Head {h00=0x002c, h01=0x0050, text=»*   HAS BEEN FOUND OR WHEN THE COMPLETE «, t00=0x008c, t01=0x0012}
0xdada…db0c               Head {h00=0x002e, h01=0x0050, text=»*   VTOC HAS BEEN SEARCHED WITHOUT MATCH. «, t00=0x008c, t01=0x0042}
0xdb0c…db16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0074}
0xdb16…db38               Head {h00=0x001e, h01=0x0050, text=»*   INPUT:  A2 = FILE CODE«, t00=0x008c, t01=0x007e}
0xdb38…db56               Head {h00=0x001a, h01=0x0050, text=»*    A6 = FWT ADDRESS «, t00=0x008c, t01=0x00a0}
0xdb56…db76               Head {h00=0x001c, h01=0x0050, text=»*    A8 = FM:ECB ADDRESS«, t00=0x008c, t01=0x00be}
0xdb76…db80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x00de}
0xdb80…dbba               Head {h00=0x0036, h01=0x0050, text=»*   OUTPUT: A2 = VTOC SECTOR NUMBER IF FOUND, ELSE«, t00=0x008c, t01=0x00e8}
0xdbba…dbec               Head {h00=0x002e, h01=0x0050, text=»*              = 0 IF NO FILE EXTENT FOUND«, t00=0x008c, t01=0x0122}
0xdbec…dc1a               Head {h00=0x002a, h01=0x0050, text=»*    A4 = DISC RETURN CODE (=0 IF OK) «, t00=0x008c, t01=0x0154}
0xdc1a…dc50               Head {h00=0x0032, h01=0x0050, text=»*          A13 = VTOC RECORD ADDRESS IN FM:BUF«, t00=0x008c, t01=0x0182}
0xdc50…dc86               Head {h00=0x0032, h01=0x0050, text=»*           A1, A3, A7, A11-A12 ARE DESTROYED «, t00=0x008d, t01=0x0028}
0xdc86…dc90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x005e}
0xdc90…dcb4               Head {h00=0x0020, h01=0x0050, text=»FNDVTC EQU * FIND VTOC ENTRY«, t00=0x008d, t01=0x0068}
0xdcb4…dcbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x008c}
0xdcbe…dce4               Head {h00=0x0022, h01=0x0050, text=»* READ VOLUME LABEL (SECTOR 0)«, t00=0x008d, t01=0x0096}
0xdce4…dcee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x00bc}
0xdcee…dd1a               Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBFC,A8 SET FILE CODE IN ECB«, t00=0x008d, t01=0x00c6}
0xdd1a…dd3a               Head {h00=0x001c, h01=0x0050, text=» LDK A2,0 SECTOR NUMBER «, t00=0x008d, t01=0x00f2}
0xdd3a…dd5e               Head {h00=0x0020, h01=0x0050, text=» CF A14,FMREAD READ SECTOR 0«, t00=0x008d, t01=0x0112}
0xdd5e…dd88               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FVTC40 DISC ERROR, RETURN «, t00=0x008d, t01=0x0136}
0xdd88…ddb6               Head {h00=0x002a, h01=0x0050, text=» LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE «, t00=0x008d, t01=0x0160}
0xddb6…ddca               Head {h00=0x0010, h01=0x0050, text=» LDR A12,A2 «, t00=0x008d, t01=0x018e}
0xddca…ddf8               Head {h00=0x002a, h01=0x0050, text=» AD A2,FM:BUF+VOL:FS SKIP FSAT SECTORS«, t00=0x008e, t01=0x0012}
0xddf8…de28               Head {h00=0x002c, h01=0x0050, text=» AD A12,FM:BUF+VOL:EL LAST VTOC SECTOR+1«, t00=0x008e, t01=0x0040}
0xde28…de32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0070}
0xde32…de4a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x008e, t01=0x007a}
0xde4a…de54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0092}
0xde54…de74               Head {h00=0x001c, h01=0x0050, text=»* READ NEXT VTOC SECTOR «, t00=0x008e, t01=0x009c}
0xde74…de7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x00bc}
0xde7e…deae               Head {h00=0x002c, h01=0x0050, text=»FNDVT2 EQU * ENTRY USED BY RDVTOC/FMCDEF«, t00=0x008e, t01=0x00c6}
0xdeae…deda               Head {h00=0x0028, h01=0x0050, text=» CF A14,FMREAD READ ONE VTOC SECTOR «, t00=0x008e, t01=0x00f6}
0xdeda…df04               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FVTC40 DISC ERROR, RETURN «, t00=0x008e, t01=0x0122}
0xdf04…df2c               Head {h00=0x0024, h01=0x0050, text=» LDKL A13,FM:BUF FM:BUF ADDRESS «, t00=0x008e, t01=0x014c}
0xdf2c…df54               Head {h00=0x0024, h01=0x0050, text=» LDK A7,VTOCBF VTOC BLOCK FACTOR«, t00=0x008e, t01=0x0174}
0xdf54…df5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x000c}
0xdf5e…df72               Head {h00=0x0010, h01=0x0050, text=»FVTC20 EQU *«, t00=0x008f, t01=0x0016}
0xdf72…df9c               Head {h00=0x0026, h01=0x0050, text=» LD A1,VTC:ST,A13 VTOC STATUS BYTE«, t00=0x008f, t01=0x002a}
0xdf9c…dfb0               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x008f, t01=0x0054}
0xdfb0…dfd0               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FVTC50 VTOC USED«, t00=0x008f, t01=0x0068}
0xdfd0…dfda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0088}
0xdfda…e002               Head {h00=0x0024, h01=0x0050, text=»FNDVT3 EQU * ENTRY USED BY OPEN «, t00=0x008f, t01=0x0092}
0xe002…e036               Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBCW2,A8 CURRENT VTOC SECTOR NUMBER «, t00=0x008f, t01=0x00ba}
0xe036…e060               Head {h00=0x0026, h01=0x0050, text=» ADKL A13,VTOCRL NEXT VTOC ADDRESS«, t00=0x008f, t01=0x00ee}
0xe060…e072               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x008f, t01=0x0118}
0xe072…e0a2               Head {h00=0x002c, h01=0x0050, text=» RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR«, t00=0x008f, t01=0x012a}
0xe0a2…e0c4               Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 NEXT VTOC SECTOR«, t00=0x008f, t01=0x015a}
0xe0c4…e0f4               Head {h00=0x002c, h01=0x0050, text=» CWR A2,A12 CHECK IF END OF VTOC EXTENT «, t00=0x008f, t01=0x017c}
0xe0f4…e120               Head {h00=0x0028, h01=0x0050, text=» RB(NE) FNDVT2 NOT LAST VTOC SECTOR «, t00=0x0090, t01=0x001c}
0xe120…e12a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0048}
0xe12a…e14c               Head {h00=0x001e, h01=0x0050, text=»FVTC40 EQU * ERROR RETURN «, t00=0x0090, t01=0x0052}
0xe14c…e16a               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 RETURN CODE «, t00=0x0090, t01=0x0074}
0xe16a…e17a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0090, t01=0x0092}
0xe17a…e184               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00a2}
0xe184…e1c0               Head {h00=0x0038, h01=0x0050, text=»* VTOC USED: COMPARE FILE NAMES AND RETURN IF EQUAL «, t00=0x0090, t01=0x00ac}
0xe1c0…e1ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00e8}
0xe1ca…e1de               Head {h00=0x0010, h01=0x0050, text=»FVTC50 EQU *«, t00=0x0090, t01=0x00f2}
0xe1de…e1fe               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A13 VTOC ADDRESS«, t00=0x0090, t01=0x0106}
0xe1fe…e228               Head {h00=0x0026, h01=0x0050, text=» CF A14,CMPFIL COMPARE FILE NAMES «, t00=0x0090, t01=0x0126}
0xe228…e254               Head {h00=0x0028, h01=0x0050, text=» RB(NE) FNDVT3 FILE NAMES NOT EQUAL «, t00=0x0090, t01=0x0150}
0xe254…e288               Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBCW2,A8 CURRENT VTOC SECTOR NUMBER «, t00=0x0090, t01=0x017c}
0xe288…e2ae               Head {h00=0x0022, h01=0x0050, text=» RTN A14 ONE FILE EXTENT FOUND«, t00=0x0091, t01=0x0020}
0xe2ae…e2b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0046}
0xe2b8…e2d0               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0091, t01=0x0050}
0xe2d0…e2da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0068}
0xe2da…e2e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0072}
0xe2e4…e2f6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0091, t01=0x007c}
0xe2f6…e308               Head {h00=0x000e, h01=0x0050, text=»* CMPFIL *«, t00=0x0091, t01=0x008e}
0xe308…e31a               Head {h00=0x000e, h01=0x0050, text=»* CMPSTR *«, t00=0x0091, t01=0x00a0}
0xe31a…e32c               Head {h00=0x000e, h01=0x0050, text=»* CPMDWD *«, t00=0x0091, t01=0x00b2}
0xe32c…e33e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0091, t01=0x00c4}
0xe33e…e348               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x00d6}
0xe348…e352               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x00e0}
0xe352…e382               Head {h00=0x002c, h01=0x0050, text=»*   CMPFIL COMPARES ONE CHARACTER STRING«, t00=0x0091, t01=0x00ea}
0xe382…e3b2               Head {h00=0x002c, h01=0x0050, text=»*   WITH THE FILE NAME IN SPECIFIED FWT «, t00=0x0091, t01=0x011a}
0xe3b2…e3e6               Head {h00=0x0030, h01=0x0050, text=»*   AND SETS THE CR ACCORDING TO THE RESULT.«, t00=0x0091, t01=0x014a}
0xe3e6…e3f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x017e}
0xe3f0…e422               Head {h00=0x002e, h01=0x0050, text=»*   CMPSTR COMPARES TWO CHARACTER STRINGS «, t00=0x0091, t01=0x0188}
0xe422…e456               Head {h00=0x0030, h01=0x0050, text=»*   AND SETS THE CR ACCORDING TO THE RESULT.«, t00=0x0092, t01=0x002a}
0xe456…e460               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x005e}
0xe460…e48c               Head {h00=0x0028, h01=0x0050, text=»*   CMPDWD COMPARES TWO DOUBLE WORDS«, t00=0x0092, t01=0x0068}
0xe48c…e4c0               Head {h00=0x0030, h01=0x0050, text=»*   AND SETS THE CR ACCORDING TO THE RESULT.«, t00=0x0092, t01=0x0094}
0xe4c0…e4ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x00c8}
0xe4ca…e516               Head {h00=0x0048, h01=0x0050, text=»*   INPUT:  A1 = ADDRESS OF CHARACTER STRING 1 (CMPSTR/CMPDWD ONLY) «, t00=0x0092, t01=0x00d2}
0xe516…e54c               Head {h00=0x0032, h01=0x0050, text=»*           A2 =    "    "      "       "    2«, t00=0x0092, t01=0x011e}
0xe54c…e58e               Head {h00=0x003e, h01=0x0050, text=»*           A3 = NO OF CHARACTERS TO COMPARE (CMPSTR ONLY)«, t00=0x0092, t01=0x0154}
0xe58e…e5ba               Head {h00=0x0028, h01=0x0050, text=»*    A6 = FWT ADDRESS (CMPFIL ONLY) «, t00=0x0093, t01=0x0008}
0xe5ba…e5c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x0034}
0xe5c4…e5f6               Head {h00=0x002e, h01=0x0050, text=»*   OUTPUT: CR = 0 IF STRINGS EQUAL, ELSE «, t00=0x0093, t01=0x003e}
0xe5f6…e638               Head {h00=0x003e, h01=0x0050, text=»*              > 0 IF STRING 1 GREATER THAN STRING 2, ELSE«, t00=0x0093, t01=0x0070}
0xe638…e672               Head {h00=0x0036, h01=0x0050, text=»*              < 0 IF STRING 1 LESS THAN STRING 2 «, t00=0x0093, t01=0x00b2}
0xe672…e69e               Head {h00=0x0028, h01=0x0050, text=»*           A1-A3, A11 ARE DESTROYED«, t00=0x0093, t01=0x00ec}
0xe69e…e6a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x0118}
0xe6a8…e6c0               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0093, t01=0x0122}
0xe6c0…e6ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x013a}
0xe6ca…e6d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x0144}
0xe6d4…e6fc               Head {h00=0x0024, h01=0x0050, text=»CMPFIL EQU * COMPARE FILE NAMES «, t00=0x0093, t01=0x014e}
0xe6fc…e71a               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FWT ADDRESS«, t00=0x0093, t01=0x0176}
0xe71a…e744 (148, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ADK A1,FWTNAM POINT TO FILE NAME «, t00=0x0094, t01=0x0004}
0xe744…e766               Head {h00=0x001e, h01=0x0050, text=» LDK A3,8 FILE NAME LENGTH«, t00=0x0094, t01=0x002e}
0xe766…e770               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x0050}
0xe770…e79e               Head {h00=0x002a, h01=0x0050, text=»CMPSTR EQU * COMPARE CHARACTER STRINGS«, t00=0x0094, t01=0x005a}
0xe79e…e7c6               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 ADJUST STACK POINTER«, t00=0x0094, t01=0x0088}
0xe7c6…e7d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x00b0}
0xe7d0…e800               Head {h00=0x002c, h01=0x0050, text=»* COMPARE STRINGS CHARACTER BY CHARACTER«, t00=0x0094, t01=0x00ba}
0xe800…e80a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x00ea}
0xe80a…e81e               Head {h00=0x0010, h01=0x0050, text=»CMP:10 EQU *«, t00=0x0094, t01=0x00f4}
0xe81e…e84e               Head {h00=0x002c, h01=0x0050, text=» LCR A11,A1 ONE CHARACTER FROM STRING 1 «, t00=0x0094, t01=0x0108}
0xe84e…e886               Head {h00=0x0034, h01=0x0050, text=» CCR A11,A2 COMPARE WITH CORR. CHAR. IN STRING 2«, t00=0x0094, t01=0x0138}
0xe886…e8b6               Head {h00=0x002c, h01=0x0050, text=» ABR(NE)* A14 STRINGS NOT EQUAL, RETURN «, t00=0x0094, t01=0x0170}
0xe8b6…e8e2               Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT STRING POINTERS «, t00=0x0095, t01=0x0010}
0xe8e2…e8f4               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0095, t01=0x003c}
0xe8f4…e91c               Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT LOOP COUNTER«, t00=0x0095, t01=0x004e}
0xe91c…e950               Head {h00=0x0030, h01=0x0050, text=» RB(P) CMP:10 CONTINUE IF NOT END OF STRINGS«, t00=0x0095, t01=0x0076}
0xe950…e978               Head {h00=0x0024, h01=0x0050, text=» ABR* A14 STRINGS EQUAL, RETURN «, t00=0x0095, t01=0x00aa}
0xe978…e982               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x00d2}
0xe982…e9b0               Head {h00=0x002a, h01=0x0050, text=»CMPDWD EQU * COMPARE TWO DOUBLE WORDS «, t00=0x0095, t01=0x00dc}
0xe9b0…e9c8               Head {h00=0x0014, h01=0x0050, text=» LDK A3,4 LENGTH«, t00=0x0095, t01=0x010a}
0xe9c8…e9da               Head {h00=0x000e, h01=0x0050, text=» RB CMPSTR«, t00=0x0095, t01=0x0122}
0xe9da…e9e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0134}
0xe9e4…e9fc               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0095, t01=0x013e}
0xe9fc…ea06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0156}
0xea06…ea10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0160}
0xea10…ea22               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0095, t01=0x016a}
0xea22…ea34               Head {h00=0x000e, h01=0x0050, text=»* FM:MOV *«, t00=0x0095, t01=0x017c}
0xea34…ea46               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0095, t01=0x018e}
0xea46…ea50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0010}
0xea50…ea5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x001a}
0xea5a…ea88               Head {h00=0x002a, h01=0x0050, text=»*   INPUT:  A1 = INPUT BUFFER ADDRESS «, t00=0x0096, t01=0x0024}
0xea88…eabe               Head {h00=0x0032, h01=0x0050, text=»*           A2 = NUMBER OF CHARACTERS TO MOVE «, t00=0x0096, t01=0x0052}
0xeabe…eaec               Head {h00=0x002a, h01=0x0050, text=»*           A3 = OUTPUT BUFFER ADDRESS«, t00=0x0096, t01=0x0088}
0xeaec…eaf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x00b6}
0xeaf6…eb10               Head {h00=0x0016, h01=0x0050, text=»*   OUTPUT: A2 = 0«, t00=0x0096, t01=0x00c0}
0xeb10…eb52               Head {h00=0x003e, h01=0x0050, text=»*           A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 «, t00=0x0096, t01=0x00da}
0xeb52…eb76               Head {h00=0x0020, h01=0x0050, text=»*           A4 IS DESTROYED «, t00=0x0096, t01=0x011c}
0xeb76…eb80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0140}
0xeb80…eba6               Head {h00=0x0022, h01=0x0050, text=»FM:MV8 EQU * MOVE 8 CHARACTERS«, t00=0x0096, t01=0x014a}
0xeba6…ebbe               Head {h00=0x0014, h01=0x0050, text=» LDK A2,8 LENGTH«, t00=0x0096, t01=0x0170}
0xebbe…ebd0               Head {h00=0x000e, h01=0x0050, text=» RF FM:MOV«, t00=0x0096, t01=0x0188}
0xebd0…ebda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x000a}
0xebda…ec00               Head {h00=0x0022, h01=0x0050, text=»FM:MV4 EQU * MOVE 4 CHARACTERS«, t00=0x0097, t01=0x0014}
0xec00…ec18               Head {h00=0x0014, h01=0x0050, text=» LDK A2,4 LENGTH«, t00=0x0097, t01=0x003a}
0xec18…ec22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0052}
0xec22…ec4e               Head {h00=0x0028, h01=0x0050, text=»* MOVE STRING CHARACTER BY CHARACTER«, t00=0x0097, t01=0x005c}
0xec4e…ec58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0088}
0xec58…ec78               Head {h00=0x001c, h01=0x0050, text=»FM:MOV EQU * MOVE STRING«, t00=0x0097, t01=0x0092}
0xec78…ec9e               Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 MOVE ONE CHARACTER «, t00=0x0097, t01=0x00b2}
0xec9e…ecb0               Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0097, t01=0x00d8}
0xecb0…ecdc               Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTERS «, t00=0x0097, t01=0x00ea}
0xecdc…ecee               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0097, t01=0x0116}
0xecee…ed16               Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT LOOP COUNTER«, t00=0x0097, t01=0x0128}
0xed16…ed3a               Head {h00=0x0020, h01=0x0050, text=» RB(P) FM:MOV CONTINUE MOVE «, t00=0x0097, t01=0x0150}
0xed3a…ed4a               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x0174}
0xed4a…ed54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0184}
0xed54…ed5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x018e}
0xed5e…ed68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0008}
0xed68…ed74               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0098, t01=0x0012}
0xed74…ed78               Head {h00=0x4004, h01=0x0000}
0xed78…ed7c               00 98 00 1e                                                                                                                                                                                                                                       ┆    ┆
0xed7c…ed84 (153, 1, 8)   20 04 00 00 00 99 00 04                                                                                                                                                                                                                           ┆        ┆
0xed84…edd4 (154, 0, 400) 30 35 5c 45 51 55 5c 2a 00 41 01 8c 00 0e 00 50 5c 4c 44 4b 5c 41 32 2c 31 20 00 42 00 10 00 06 00 50 2a 20 00 42 00 22 00 10 00 50 4f 50 3a 30 31 30 5c 45 51 55 5c 2a 00 42 00 2c 00 20 00 50 5c 4c 44 52 5c 41 36 2c 41 31 32 5c 4e 45 58 54   ┆05 EQU * A     P LDK A2,1  B     P*  B "   POP:010 EQU * B ,   P LDR A6,A12 NEXT┆
0xedd4…ee24               20 46 57 54 20 41 44 44 52 45 53 53 00 42 00 40 00 2a 00 50 5c 52 46 28 5a 29 5c 4f 50 3a 30 36 30 5c 4e 4f 20 4d 4f 52 45 20 46 57 54 3a 53 20 41 56 41 49 4c 41 42 4c 45 20 00 42 00 64 00 22 00 50 5c 4c 44 52 2a 5c 41 31 32 2c 41 36 5c 46   ┆ FWT ADDRESS B @ * P RF(Z) OP:060 NO MORE FWT:S AVAILABLE  B d " P LDR* A12,A6 F┆
0xee24…ee74               49 52 53 54 20 57 4f 52 44 20 4f 46 20 46 57 54 00 42 00 92 00 1c 00 50 5c 54 4d 5c 41 31 32 2c 41 32 5c 43 48 45 43 4b 20 49 46 20 55 53 45 44 00 42 00 b8 00 28 00 50 5c 52 46 28 4e 5a 29 5c 4f 50 3a 30 31 35 5c 55 53 45 44 2c 20 43 48 45   ┆IRST WORD OF FWT B     P TM A12,A2 CHECK IF USED B   ( P RF(NZ) OP:015 USED, CHE┆
0xee74…eec4               43 4b 20 46 49 4c 45 20 4e 41 4d 45 00 42 00 d8 00 36 00 50 5c 41 44 4b 5c 41 34 2c 30 5c 43 48 45 43 4b 20 49 46 20 46 52 45 45 20 46 57 54 20 41 44 44 52 45 53 53 20 41 4c 52 45 41 44 59 20 53 41 56 45 44 20 00 42 01 04 00 26 00 50 5c 52   ┆CK FILE NAME B   6 P ADK A4,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED  B   & P R┆
0xeec4…ef14               42 28 4e 5a 29 5c 4f 50 3a 30 31 30 5c 59 45 53 2c 20 44 4f 4e 27 54 20 53 41 56 45 20 49 54 20 00 42 01 3e 00 28 00 50 5c 4c 44 52 5c 41 34 2c 41 36 5c 4e 4f 2c 20 53 41 56 45 20 54 48 49 53 20 46 57 54 20 41 44 44 52 45 53 53 00 42 01 68   ┆B(NZ) OP:010 YES, DON'T SAVE IT  B > ( P LDR A4,A6 NO, SAVE THIS FWT ADDRESS B h┆
0xef14…ef64 (155, 0, 400) 00 1e 00 50 5c 52 42 5c 4f 50 3a 30 31 30 5c 43 4f 4e 54 49 4e 55 45 20 53 45 41 52 43 48 00 43 00 04 00 06 00 50 2a 20 00 43 00 26 00 10 00 50 4f 50 3a 30 31 35 5c 45 51 55 5c 2a 00 43 00 30 00 22 00 50 5c 58 52 52 5c 41 31 32 2c 41 32 5c   ┆   P RB OP:010 CONTINUE SEARCH C     P*  C &   POP:015 EQU * C 0 " P XRR A12,A2 ┆
0xef64…efb4               52 45 53 45 54 20 46 57 54 20 55 53 45 44 20 42 49 54 00 43 00 44 00 1c 00 50 5c 4c 44 52 5c 41 32 2c 41 31 30 5c 46 50 42 20 41 44 44 52 45 53 53 20 00 43 00 6a 00 12 00 50 5c 41 44 4b 5c 41 32 2c 46 50 42 3a 46 4e 00 43 00 8a 00 26 00 50   ┆RESET FWT USED BIT C D   P LDR A2,A10 FPB ADDRESS  C j   P ADK A2,FPB:FN C   & P┆
0xefb4…f004               5c 43 46 5c 41 31 34 2c 43 4d 50 46 49 4c 5c 43 4f 4d 50 41 52 45 20 46 49 4c 45 20 4e 41 4d 45 53 20 00 43 00 a0 00 28 00 50 5c 52 42 28 4e 45 29 5c 4f 50 3a 30 30 35 5c 46 49 4c 45 20 4e 41 4d 45 53 20 4e 4f 54 20 45 51 55 41 4c 20 00 43   ┆ CF A14,CMPFIL COMPARE FILE NAMES  C   ( P RB(NE) OP:005 FILE NAMES NOT EQUAL  C┆
0xf004…f054               00 ca 00 34 00 50 5c 43 43 5c 41 37 2c 46 57 54 56 4f 4c 2c 41 36 5c 43 48 45 43 4b 20 46 49 4c 45 20 43 4f 44 45 20 4f 46 20 46 49 52 53 54 20 45 58 54 45 4e 54 00 43 00 f6 00 20 00 50 5c 52 42 28 4e 45 29 5c 4f 50 3a 30 30 35 5c 4e 4f 54   ┆   4 P CC A7,FWTVOL,A6 CHECK FILE CODE OF FIRST EXTENT C     P RB(NE) OP:005 NOT┆
0xf054…f0a4               20 54 48 49 53 20 46 49 4c 45 00 43 01 2e 00 06 00 50 2a 20 00 43 01 52 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 46 4d 54 41 53 4b 20 00 43 01 5c 00 06 00 50 2a 20 00 43 01 74 00 1e 00 50 2a 5c 46 49 4c 45 20 49 53 20 41 4c 52 45 41 44 59 20   ┆ THIS FILE C .   P*  C R   P EJECT   FMTASK  C     P*  C t   P* FILE IS ALREADY ┆
0xf0a4…f0f4 (156, 0, 400) 4f 50 45 4e 45 44 3a 20 00 43 01 7e 00 30 00 50 2a 5c 43 48 45 43 4b 20 41 54 54 41 43 48 20 50 41 52 41 4d 45 54 45 52 20 41 4e 44 20 4e 55 4d 42 45 52 20 4f 46 20 55 53 45 52 53 00 44 00 10 00 06 00 50 2a 20 00 44 00 44 00 2c 00 50 5c 4c   ┆OPENED:  C ~ 0 P* CHECK ATTACH PARAMETER AND NUMBER OF USERS D     P*  D D , P L┆
0xf0f4…f144               43 5c 41 31 2c 46 50 42 3a 53 48 2c 41 31 30 5c 53 48 41 52 45 41 42 49 4c 49 54 59 20 50 41 52 41 4d 45 54 45 52 00 44 00 4e 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 46 20 00 44 00 7e 00 26 00 50 5c 52 46 28 5a 29 5c 4f 50 3a 30 32 30 5c   ┆C A1,FPB:SH,A10 SHAREABILITY PARAMETER D N   P ANK A1,/FF  D ~ & P RF(Z) OP:020 ┆
0xf144…f194               4e 4f 20 41 54 54 41 43 48 20 52 45 51 55 45 53 54 45 44 20 00 44 00 92 00 30 00 50 5c 4c 44 5c 41 32 2c 46 57 54 54 41 42 2c 41 36 5c 41 54 54 41 43 48 20 57 4f 52 44 20 28 54 54 41 42 20 41 44 44 52 45 53 53 29 20 00 44 00 bc 00 24 00 50   ┆NO ATTACH REQUESTED  D   0 P LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS)  D   $ P┆
0xf194…f1e4               5c 52 46 28 5a 29 5c 4f 50 3a 30 31 38 5c 46 49 4c 45 20 4e 4f 54 20 41 54 54 41 43 48 45 44 20 00 44 00 f0 00 2e 00 50 5c 43 57 5c 41 32 2c 54 54 41 42 5c 43 48 45 43 4b 20 49 46 20 41 54 54 41 43 48 45 44 20 42 59 20 54 48 49 53 20 54 41   ┆ RF(Z) OP:018 FILE NOT ATTACHED  D   . P CW A2,TTAB CHECK IF ATTACHED BY THIS TA┆
0xf1e4…f234               53 4b 00 44 01 18 00 30 00 50 5c 52 46 28 4e 45 29 5c 4f 50 3a 30 34 30 5c 4e 4f 2c 20 41 54 54 41 43 48 45 44 20 54 4f 20 41 4e 4f 54 48 45 52 20 54 41 53 4b 20 00 44 01 4a 00 06 00 50 2a 20 00 44 01 7e 00 10 00 50 4f 50 3a 30 31 38 5c 45   ┆SK D   0 P RF(NE) OP:040 NO, ATTACHED TO ANOTHER TASK  D J   P*  D ~   POP:018 E┆

Reduced view