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

⟦cca2cf3c1⟧ 

    Length: 62010 (0xf23a)
    Notes: pts_type(SC)
    Names: »FMTASK.SC«

Derivation

└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »MONGEN/FMTASK.SC«

PTS(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	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
* 
*	A PROGRAM VERSION USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	1
* 
* 
*	A PROGRAM VERSION INCLUDING CREATE/DELETE FILE
*	IS OBTAINED BY SETTING FMCDEF (X:A) EQU 1.
* 
X:A	EQU	0 
FMCDEF	EQU	00000
* 
	EJECT			FMTASK 
* 
* 
*	A PROGRAM VERSION SUPPORTING DATA MANAGEMENT
*	IS OBTAINED BY SETTING DM (X:B) EQU 1.
* 
X:B	EQU	0 
SDM	EQU	00001 
* 
* 
*	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	00000 
* 
* 
*	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

HexDump

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 1«, 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 0«, 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 1«, 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…200a               Head {h00=0x0014, h01=0x0050, text=»FMCDEF EQU 00000«, t00=0x0014, t01=0x00b8}
0x200a…2014               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d0}
0x2014…202c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0014, t01=0x00da}
0x202c…2036               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f2}
0x2036…2040               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fc}
0x2040…2076               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING DATA MANAGEMENT«, t00=0x0014, t01=0x0106}
0x2076…20a6               Head {h00=0x002c, h01=0x0050, text=»* IS OBTAINED BY SETTING DM (X:B) EQU 1.«, t00=0x0014, t01=0x013c}
0x20a6…20b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x016c}
0x20b0…20c2               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0014, t01=0x0176}
0x20c2…20d8               Head {h00=0x0012, h01=0x0050, text=»SDM EQU 00001 «, t00=0x0014, t01=0x0188}
0x20d8…20e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000e}
0x20e2…20ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0018}
0x20ec…212c               Head {h00=0x003c, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING EXTENDED DATA MANAGEMENT «, t00=0x0015, t01=0x0022}
0x212c…215e               Head {h00=0x002e, h01=0x0050, text=»* IS OBTAINED BY SETTING EDM (X:C) EQU 1. «, t00=0x0015, t01=0x0062}
0x215e…2168               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0094}
0x2168…217a               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0015, t01=0x009e}
0x217a…218e               Head {h00=0x0010, h01=0x0050, text=»EDM EQU X:C «, t00=0x0015, t01=0x00b0}
0x218e…2198               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c4}
0x2198…21a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ce}
0x21a2…21e4               Head {h00=0x003e, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING ABRIDGED DATA MANAGEMENT =5«, t00=0x0015, t01=0x00d8}
0x21e4…2212               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING X:D EQU 1 =5 «, t00=0x0015, t01=0x011a}
0x2212…221c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0148}
0x221c…2226               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0152}
0x2226…2238               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0015, t01=0x015c}
0x2238…224e               Head {h00=0x0012, h01=0x0050, text=»ADM EQU 00000 «, t00=0x0015, t01=0x016e}
0x224e…2258               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0184}
0x2258…2262               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018e}
0x2262…2288               Head {h00=0x0022, h01=0x0050, text=»* COMBINED CONDITION ADMEDM =5«, t00=0x0016, t01=0x0008}
0x2288…22a2               Head {h00=0x0016, h01=0x0050, text=» IFF ADM+EDM=0 =5 «, t00=0x0016, t01=0x002e}
0x22a2…22ba               Head {h00=0x0014, h01=0x0050, text=»ADMEDM EQU 1  =5«, t00=0x0016, t01=0x0048}
0x22ba…22ca               Head {h00=0x000c, h01=0x0050, text=» XIF  =5«, t00=0x0016, t01=0x0060}
0x22ca…22e4               Head {h00=0x0016, h01=0x0050, text=» IFT ADM+EDM=0  =5«, t00=0x0016, t01=0x0070}
0x22e4…22fc               Head {h00=0x0014, h01=0x0050, text=»ADMEDM EQU 0  =5«, t00=0x0016, t01=0x008a}
0x22fc…230e               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x0016, t01=0x00a2}
0x230e…2318               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b4}
0x2318…2330               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0016, t01=0x00be}
0x2330…233a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d6}
0x233a…2344               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e0}
0x2344…236e               Head {h00=0x0026, h01=0x0050, text=»* THE ATTACH/DETACH FILE FUNCTION «, t00=0x0016, t01=0x00ea}
0x236e…239c               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING ATTDET EQU 1.«, t00=0x0016, t01=0x0114}
0x239c…23a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0142}
0x23a6…23ba               Head {h00=0x0010, h01=0x0050, text=»ATTDET EQU 1«, t00=0x0016, t01=0x014c}
0x23ba…23d0               Head {h00=0x0012, h01=0x0050, text=»X:E EQU ATTDET«, t00=0x0016, t01=0x0160}
0x23d0…23da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0176}
0x23da…23e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0180}
0x23e4…240e               Head {h00=0x0026, h01=0x0050, text=»* THE MULTIPLE EXTENT I/O FUNCTION«, t00=0x0016, t01=0x018a}
0x240e…243c               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MULEXT EQU 1.«, t00=0x0017, t01=0x0024}
0x243c…2446               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0052}
0x2446…245a               Head {h00=0x0010, h01=0x0050, text=»MULEXT EQU 1«, t00=0x0017, t01=0x005c}
0x245a…2470               Head {h00=0x0012, h01=0x0050, text=»X:F EQU MULEXT«, t00=0x0017, t01=0x0070}
0x2470…247a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0086}
0x247a…2492               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0017, t01=0x0090}
0x2492…249c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a8}
0x249c…24a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b2}
0x24a6…24c2               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x00bc}
0x24c2…24de               Head {h00=0x0018, h01=0x0050, text=»* VL DISPLACEMENTS *«, t00=0x0017, t01=0x00d8}
0x24de…24fa               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0017, t01=0x00f4}
0x24fa…2504               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0110}
0x2504…2528               Head {h00=0x0020, h01=0x0050, text=»* VOLUME LABEL DISPLACEMENTS«, t00=0x0017, t01=0x011a}
0x2528…2532               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x013e}
0x2532…2552               Head {h00=0x001c, h01=0x0050, text=»VOL:VN EQU 0 VOLUME NAME«, t00=0x0017, t01=0x0148}
0x2552…257a               Head {h00=0x0024, h01=0x0050, text=»VOL:EL EQU 6 VTOC EXTENT LENGTH «, t00=0x0017, t01=0x0168}
0x257a…25a0               Head {h00=0x0022, h01=0x0050, text=»VOL:EB EQU 10 VTOC EXTENT BASE«, t00=0x0017, t01=0x0190}
0x25a0…25c8               Head {h00=0x0024, h01=0x0050, text=»VOL:RL EQU 12 VTOC RECORD LENGTH«, t00=0x0018, t01=0x0026}
0x25c8…25ea               Head {h00=0x001e, h01=0x0050, text=»VOL:FS EQU 46 FSAT LENGTH «, t00=0x0018, t01=0x004e}
0x25ea…25f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0070}
0x25f4…25fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x007a}
0x25fe…2618               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0018, t01=0x0084}
0x2618…2632               Head {h00=0x0016, h01=0x0050, text=»* VTOC CONSTANTS *«, t00=0x0018, t01=0x009e}
0x2632…264c               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0018, t01=0x00b8}
0x264c…2656               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d2}
0x2656…2660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00dc}
0x2660…2688               Head {h00=0x0024, h01=0x0050, text=»VTOCRL EQU 42 VTOC RECORD LENGTH«, t00=0x0018, t01=0x00e6}
0x2688…26ae               Head {h00=0x0022, h01=0x0050, text=»VTOCBF EQU 6 VTOC BLOCK FACTOR«, t00=0x0018, t01=0x010e}
0x26ae…26b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0134}
0x26b8…26d0               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0018, t01=0x013e}
0x26d0…26da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0156}
0x26da…26e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0160}
0x26e4…2702               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0018, t01=0x016a}
0x2702…2720               Head {h00=0x001a, h01=0x0050, text=»* VTOC DISPLACEMENTS *«, t00=0x0018, t01=0x0188}
0x2720…273e               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0019, t01=0x0016}
0x273e…2748               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0034}
0x2748…2778               Head {h00=0x002c, h01=0x0050, text=»* VOLUME TABLE OF CONTENTS DISPLACEMENTS«, t00=0x0019, t01=0x003e}
0x2778…2782               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006e}
0x2782…27a0               Head {h00=0x001a, h01=0x0050, text=»VTC:FN EQU 0 FILE NAME«, t00=0x0019, t01=0x0078}
0x27a0…27cc               Head {h00=0x0028, h01=0x0050, text=»VTC:MN EQU 8 MONITOR NUMBER (L-FILE)«, t00=0x0019, t01=0x0096}
0x27cc…27fe               Head {h00=0x002e, h01=0x0050, text=»VTC:FS EQU 8 FILE SECTION NUMBER (S-FILE) «, t00=0x0019, t01=0x00c2}
0x27fe…2824               Head {h00=0x0022, h01=0x0050, text=»VTC:SN EQU 9 SOP SWITCH NUMBER«, t00=0x0019, t01=0x00f4}
0x2824…284c               Head {h00=0x0024, h01=0x0050, text=»VTC:EN EQU 10 FILE EXTENT NUMBER«, t00=0x0019, t01=0x011a}
0x284c…2874               Head {h00=0x0024, h01=0x0050, text=»VTC:EL EQU 12 FILE EXTENT LENGTH«, t00=0x0019, t01=0x0142}
0x2874…289a               Head {h00=0x0022, h01=0x0050, text=»VTC:EB EQU 16 FILE EXTENT BASE«, t00=0x0019, t01=0x016a}
0x289a…28c2               Head {h00=0x0024, h01=0x0050, text=»VTC:LR EQU 20 LAST RECORD NUMBER«, t00=0x0019, t01=0x0190}
0x28c2…28e6               Head {h00=0x0020, h01=0x0050, text=»VTC:RL EQU 24 RECORD LENGTH «, t00=0x001a, t01=0x0028}
0x28e6…2908               Head {h00=0x001e, h01=0x0050, text=»VTC:BF EQU 26 BLOCK FACTOR«, t00=0x001a, t01=0x004c}
0x2908…2930               Head {h00=0x0024, h01=0x0050, text=»VTC:FO EQU 27 FILE ORGANIZATION «, t00=0x001a, t01=0x006e}
0x2930…2954               Head {h00=0x0020, h01=0x0050, text=»VTC:CD EQU 28 CREATION DATE «, t00=0x001a, t01=0x0096}
0x2954…297a               Head {h00=0x0022, h01=0x0050, text=»VTC:RP EQU 34 RETENTION PERIOD«, t00=0x001a, t01=0x00ba}
0x297a…29a6               Head {h00=0x0028, h01=0x0050, text=»VTC:IF EQU 37 NUMBER OF INDEX FILES «, t00=0x001a, t01=0x00e0}
0x29a6…29d2               Head {h00=0x0028, h01=0x0050, text=»VTC:KA EQU 38 KEY ADDRESS IN RECORD «, t00=0x001a, t01=0x010c}
0x29d2…29fa               Head {h00=0x0024, h01=0x0050, text=»VTC:NE EQU 40 NO OF FILE EXTENTS«, t00=0x001a, t01=0x0138}
0x29fa…2a1c               Head {h00=0x001e, h01=0x0050, text=»VTC:ST EQU 41 STATUS BYTE «, t00=0x001a, t01=0x0160}
0x2a1c…2a26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0182}
0x2a26…2a3e               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x001a, t01=0x018c}
0x2a3e…2a48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0014}
0x2a48…2a52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001e}
0x2a52…2a70               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001b, t01=0x0028}
0x2a70…2a8e               Head {h00=0x001a, h01=0x0050, text=»* FWT DISPLACEMENTS * «, t00=0x001b, t01=0x0046}
0x2a8e…2aac               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001b, t01=0x0064}
0x2aac…2ab6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0082}
0x2ab6…2ade               Head {h00=0x0024, h01=0x0050, text=»* FILE WORK TABLE DISPLACEMENTS «, t00=0x001b, t01=0x008c}
0x2ade…2ae8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b4}
0x2ae8…2b0c               Head {h00=0x0020, h01=0x0050, text=»FWTLNK EQU /00 LINK NEXT FWT«, t00=0x001b, t01=0x00be}
0x2b0c…2b16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00e2}
0x2b16…2b2c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001b, t01=0x00ec}
0x2b2c…2b4a               Head {h00=0x001a, h01=0x0050, text=»FWTBAS EQU FWTLNK+/10 «, t00=0x001b, t01=0x0102}
0x2b4a…2b56               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0120}
0x2b56…2b60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x012c}
0x2b60…2b76               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001b, t01=0x0136}
0x2b76…2b94               Head {h00=0x001a, h01=0x0050, text=»FWTBAS EQU FWTLNK+/14 «, t00=0x001b, t01=0x014c}
0x2b94…2ba0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x016a}
0x2ba0…2baa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0176}
0x2baa…2bea               Head {h00=0x003c, h01=0x0050, text=»FWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) «, t00=0x001b, t01=0x0180}
0x2bea…2c1e               Head {h00=0x0030, h01=0x0050, text=»FWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS«, t00=0x001c, t01=0x0030}
0x2c1e…2c48               Head {h00=0x0026, h01=0x0050, text=»FWTFNR EQU FWTBAS+/03 FILE NUMBER «, t00=0x001c, t01=0x0064}
0x2c48…2c8a               Head {h00=0x003e, h01=0x0050, text=»FWTTAB EQU FWTBAS+/04 TTAB FOR TASK WITH EXCLUSIVE ACCESS «, t00=0x001c, t01=0x008e}
0x2c8a…2cc8               Head {h00=0x003a, h01=0x0050, text=»FWTEW1 EQU FWTBAS+/06 POINTER TO 2ND EWT BLOCK IN FWT «, t00=0x001c, t01=0x00d0}
0x2cc8…2d00               Head {h00=0x0034, h01=0x0050, text=»FWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER«, t00=0x001c, t01=0x010e}
0x2d00…2d46               Head {h00=0x0042, h01=0x0050, text=»FWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) «, t00=0x001c, t01=0x0146}
0x2d46…2d82               Head {h00=0x0038, h01=0x0050, text=»FWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE «, t00=0x001c, t01=0x018c}
0x2d82…2dc0               Head {h00=0x003a, h01=0x0050, text=»FWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) «, t00=0x001d, t01=0x0038}
0x2dc0…2df8               Head {h00=0x0034, h01=0x0050, text=»FWTEXB EQU FWTBAS+/10 EXTENT BASE (FIRST EXTENT)«, t00=0x001d, t01=0x0076}
0x2df8…2e20               Head {h00=0x0024, h01=0x0050, text=»FWTNAM EQU FWTBAS+/12 FILE NAME «, t00=0x001d, t01=0x00ae}
0x2e20…2e60               Head {h00=0x003c, h01=0x0050, text=»FWTQUE EQU FWTBAS+/1A QUEUE ANCHOR FOR FILE I/O REQUESTS«, t00=0x001d, t01=0x00d6}
0x2e60…2e6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0116}
0x2e6a…2e82               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x001d, t01=0x0120}
0x2e82…2e8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0138}
0x2e8c…2e96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0142}
0x2e96…2eb4               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001d, t01=0x014c}
0x2eb4…2ed2               Head {h00=0x001a, h01=0x0050, text=»* EWT DISPLACEMENTS * «, t00=0x001d, t01=0x016a}
0x2ed2…2ef0               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001d, t01=0x0188}
0x2ef0…2efa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0016}
0x2efa…2f24               Head {h00=0x0026, h01=0x0050, text=»* EXTENT WORK TABLE DISPLACEMENTS «, t00=0x001e, t01=0x0020}
0x2f24…2f2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x004a}
0x2f2e…2f56               Head {h00=0x0024, h01=0x0050, text=»EWTLNK EQU 0 LINK NEXT EWT BLOCK«, t00=0x001e, t01=0x0054}
0x2f56…2f60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x007c}
0x2f60…2f72               Head {h00=0x000e, h01=0x0050, text=»* BLOCK 1 «, t00=0x001e, t01=0x0086}
0x2f72…2f7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0098}
0x2f7c…2fac               Head {h00=0x002c, h01=0x0050, text=»EWTSEX EQU 2 FILE SECTION/EXTENT NUMBER «, t00=0x001e, t01=0x00a2}
0x2fac…2fda               Head {h00=0x002a, h01=0x0050, text=»EWTEXL EQU 4 EXTENT LENGTH IN SECTORS «, t00=0x001e, t01=0x00d2}
0x2fda…2fe4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0100}
0x2fe4…2ff6               Head {h00=0x000e, h01=0x0050, text=»* BLOCK 2 «, t00=0x001e, t01=0x010a}
0x2ff6…3000               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x011c}
0x3000…3026               Head {h00=0x0022, h01=0x0050, text=»EWTVOL EQU 2 VOLUME FILE CODE «, t00=0x001e, t01=0x0126}
0x3026…3046               Head {h00=0x001c, h01=0x0050, text=»EWTEXB EQU 4 EXTENT BASE«, t00=0x001e, t01=0x014c}
0x3046…3050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x016c}
0x3050…3084               Head {h00=0x0030, h01=0x0050, text=»EWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH «, t00=0x001e, t01=0x0176}
0x3084…308e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x001a}
0x308e…30a6               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x001f, t01=0x0024}
0x30a6…30b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x003c}
0x30b0…30ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0046}
0x30ba…30d8               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001f, t01=0x0050}
0x30d8…30f6               Head {h00=0x001a, h01=0x0050, text=»* FPB DISPLACEMENTS * «, t00=0x001f, t01=0x006e}
0x30f6…3114               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x001f, t01=0x008c}
0x3114…311e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00aa}
0x311e…314a               Head {h00=0x0028, h01=0x0050, text=»* FILE PARAMETER BLOCK DISPLACEMENTS«, t00=0x001f, t01=0x00b4}
0x314a…3154               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e0}
0x3154…3176               Head {h00=0x001e, h01=0x0050, text=»FPB:RL EQU 0 RECORD LENGTH«, t00=0x001f, t01=0x00ea}
0x3176…3198               Head {h00=0x001e, h01=0x0050, text=»FPB:BF EQU 2 BLOCK FACTOR «, t00=0x001f, t01=0x010c}
0x3198…31be               Head {h00=0x0022, h01=0x0050, text=»FPB:FO EQU 3 FILE ORGANIZATION«, t00=0x001f, t01=0x012e}
0x31be…31e2               Head {h00=0x0020, h01=0x0050, text=»FPB:DT EQU 4 DEVICE TYPE =1 «, t00=0x001f, t01=0x0154}
0x31e2…3204               Head {h00=0x001e, h01=0x0050, text=»FPB:BO EQU 5 BASIC ORDERS «, t00=0x001f, t01=0x0178}
0x3204…3228               Head {h00=0x0020, h01=0x0050, text=»FPB:NO EQU 6 FILE NUMBER =1 «, t00=0x0020, t01=0x000a}
0x3228…3246               Head {h00=0x001a, h01=0x0050, text=»FPB:FN EQU 8 FILE NAME«, t00=0x0020, t01=0x002e}
0x3246…3264               Head {h00=0x001a, h01=0x0050, text=»FPB:EL EQU 17 ENLARGE «, t00=0x0020, t01=0x004c}
0x3264…3288               Head {h00=0x0020, h01=0x0050, text=»FPB:V1 EQU 18 VOLUME NAME 1 «, t00=0x0020, t01=0x006a}
0x3288…32a4               Head {h00=0x0018, h01=0x0050, text=»FPB:S1 EQU 24 SIZE 1«, t00=0x0020, t01=0x008e}
0x32a4…32c8               Head {h00=0x0020, h01=0x0050, text=»FPB:V2 EQU 28 VOLUME NAME 2 «, t00=0x0020, t01=0x00aa}
0x32c8…32e4               Head {h00=0x0018, h01=0x0050, text=»FPB:S2 EQU 34 SIZE 2«, t00=0x0020, t01=0x00ce}
0x32e4…3308               Head {h00=0x0020, h01=0x0050, text=»FPB:V3 EQU 38 VOLUME NAME 3 «, t00=0x0020, t01=0x00ea}
0x3308…3324               Head {h00=0x0018, h01=0x0050, text=»FPB:S3 EQU 44 SIZE 3«, t00=0x0020, t01=0x010e}
0x3324…3348               Head {h00=0x0020, h01=0x0050, text=»FPB:V4 EQU 48 VOLUME NAME 4 «, t00=0x0020, t01=0x012a}
0x3348…3364               Head {h00=0x0018, h01=0x0050, text=»FPB:S4 EQU 54 SIZE 4«, t00=0x0020, t01=0x014e}
0x3364…338c               Head {h00=0x0024, h01=0x0050, text=»FPB:FR EQU 58 FILE RECORD NUMBER«, t00=0x0020, t01=0x016a}
0x338c…33b2 (33, 0, 400)  Head {h00=0x0022, h01=0x0050, text=»FPB:US EQU 62 NUMBER OF USERS «, t00=0x0021, t01=0x0004}
0x33b2…33d4               Head {h00=0x001e, h01=0x0050, text=»FPB:SH EQU 64 SHAREABILITY«, t00=0x0021, t01=0x002a}
0x33d4…33f8               Head {h00=0x0020, h01=0x0050, text=»FPB:MN EQU 65 MONITOR NUMBER«, t00=0x0021, t01=0x004c}
0x33f8…3420               Head {h00=0x0024, h01=0x0050, text=»FPB:SN EQU 66 SOP SWITCH NUMBER «, t00=0x0021, t01=0x0070}
0x3420…344c               Head {h00=0x0028, h01=0x0050, text=»FPB:IF EQU 67 NUMBER OF INDEX FILES «, t00=0x0021, t01=0x0098}
0x344c…3478               Head {h00=0x0028, h01=0x0050, text=»FPB:KA EQU 68 KEY ADDRESS IN RECORD «, t00=0x0021, t01=0x00c4}
0x3478…349c               Head {h00=0x0020, h01=0x0050, text=»FPB:CD EQU 70 CREATION DATE «, t00=0x0021, t01=0x00f0}
0x349c…34c2               Head {h00=0x0022, h01=0x0050, text=»FPB:RP EQU 76 RETENTION PERIOD«, t00=0x0021, t01=0x0114}
0x34c2…34cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013a}
0x34cc…34fe               Head {h00=0x002e, h01=0x0050, text=»FPBLEN EQU 80 FILE PARAMETER BLOCK LENGTH «, t00=0x0021, t01=0x0144}
0x34fe…3508               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0176}
0x3508…3520               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0021, t01=0x0180}
0x3520…352a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0008}
0x352a…3534               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0012}
0x3534…3546               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x001c}
0x3546…3558               Head {h00=0x000e, h01=0x0050, text=»* TTABFM *«, t00=0x0022, t01=0x002e}
0x3558…356a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x0040}
0x356a…3574               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0052}
0x3574…358a               Head {h00=0x0012, h01=0x0050, text=»* FMTASK TTAB «, t00=0x0022, t01=0x005c}
0x358a…3594               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0072}
0x3594…35aa               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x007c}
0x35aa…35ca               Head {h00=0x001c, h01=0x0050, text=» RES 16 FMTASK MMU TABLE«, t00=0x0022, t01=0x0092}
0x35ca…35d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00b2}
0x35d6…35e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00be}
0x35e0…35fc               Head {h00=0x0018, h01=0x0050, text=» IFF MMUPAG+DSKPAG=0«, t00=0x0022, t01=0x00c8}
0x35fc…3628               Head {h00=0x0028, h01=0x0050, text=» DATA 0 CURRENT SEGMENT BASE (DUMMY)«, t00=0x0022, t01=0x00e4}
0x3628…3656               Head {h00=0x002a, h01=0x0050, text=» DATA 0 SEGMENT TABLE ADDRESS (DUMMY) «, t00=0x0022, t01=0x0110}
0x3656…3684               Head {h00=0x002a, h01=0x0050, text=» DATA 0 SEGMENT BLOCK ADDRESS (DUMMY) «, t00=0x0022, t01=0x013e}
0x3684…3690               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x016c}
0x3690…369a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0178}
0x369a…36be               Head {h00=0x0020, h01=0x0050, text=» DATA 0 ACB ADDRESS (DUMMY) «, t00=0x0022, t01=0x0182}
0x36be…36c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0016}
0x36c8…36ea               Head {h00=0x001e, h01=0x0050, text=»TTABFM EQU * TTABFM ENTRY «, t00=0x0023, t01=0x0020}
0x36ea…3710               Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISPATCHER QUEUE LINK «, t00=0x0023, t01=0x0042}
0x3710…3736               Head {h00=0x0022, h01=0x0050, text=» DATA '#A' TASK IDENTIFICATION«, t00=0x0023, t01=0x0068}
0x3736…3756               Head {h00=0x001c, h01=0x0050, text=» DATA 49 PRIORITY LEVEL «, t00=0x0023, t01=0x008e}
0x3756…3776               Head {h00=0x001c, h01=0x0050, text=» DATA 0 PENDING POINTER «, t00=0x0023, t01=0x00ae}
0x3776…37a4               Head {h00=0x002a, h01=0x0050, text=» DATA /C4C0 PSW (PROGRAM STATUS WORD) «, t00=0x0023, t01=0x00ce}
0x37a4…37c4               Head {h00=0x001c, h01=0x0050, text=» DATA 0 DISPATCH ADDRESS«, t00=0x0023, t01=0x00fc}
0x37c4…37fa               Head {h00=0x0032, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14«, t00=0x0023, t01=0x011c}
0x37fa…3822               Head {h00=0x0024, h01=0x0050, text=» DATA FM:ECB A8 = FM:ECB ADDRESS«, t00=0x0023, t01=0x0152}
0x3822…383c               Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0023, t01=0x017a}
0x383c…3866 (36, 0, 400)  Head {h00=0x0026, h01=0x0050, text=» DATA 2 TASK DEVICE TABLE (DUMMY) «, t00=0x0024, t01=0x0004}
0x3866…3870               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002e}
0x3870…3888               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0024, t01=0x0038}
0x3888…3892               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0050}
0x3892…389c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x005a}
0x389c…38c2               Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0024, t01=0x0064}
0x38c2…38e8               Head {h00=0x0022, h01=0x0050, text=»* ECB, STACK AND DATA AREAS * «, t00=0x0024, t01=0x008a}
0x38e8…390e               Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0024, t01=0x00b0}
0x390e…3918               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d6}
0x3918…3922               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e0}
0x3922…3950               Head {h00=0x002a, h01=0x0050, text=»FM:ECB DATA /8000,0,0 FMTASK ECB AREA «, t00=0x0024, t01=0x00ea}
0x3950…3966               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0024, t01=0x0118}
0x3966…3970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012e}
0x3970…399a               Head {h00=0x0026, h01=0x0050, text=» DATA 0,0 FMTASK STACK (5 LEVELS) «, t00=0x0024, t01=0x0138}
0x399a…39ac               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0024, t01=0x0162}
0x39ac…39be               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0024, t01=0x0174}
0x39be…39d0               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0024, t01=0x0186}
0x39d0…39e2               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0025, t01=0x0008}
0x39e2…3a0a               Head {h00=0x0024, h01=0x0050, text=»FM:STB EQU *-2 FMTASK STACK BASE«, t00=0x0025, t01=0x001a}
0x3a0a…3a14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0042}
0x3a14…3a3c               Head {h00=0x0024, h01=0x0050, text=»FEXTNO DATA 0 NO OF FILE EXTENTS«, t00=0x0025, t01=0x004c}
0x3a3c…3a64               Head {h00=0x0024, h01=0x0050, text=»FILCOD DATA 0,0 FILE CODE TABLE «, t00=0x0025, t01=0x0074}
0x3a64…3a92               Head {h00=0x002a, h01=0x0050, text=»RETCOD DATA 0 ACKUMULATED RETURN CODE «, t00=0x0025, t01=0x009c}
0x3a92…3ac0               Head {h00=0x002a, h01=0x0050, text=»TTAB DATA 0 TTAB ADDRESS CALLING TASK «, t00=0x0025, t01=0x00ca}
0x3ac0…3af6               Head {h00=0x0032, h01=0x0050, text=»VOLUME DATA 0 CURRENT VOLUME FILE CODE POINTER«, t00=0x0025, t01=0x00f8}
0x3af6…3b00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x012e}
0x3b00…3b16               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x0138}
0x3b16…3b46               Head {h00=0x002c, h01=0x0050, text=»FM:FPB RES 40 FILE PARAMETER BLOCK AREA «, t00=0x0025, t01=0x014e}
0x3b46…3b52               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x017e}
0x3b52…3b5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x018a}
0x3b5c…3b74 (38, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0026, t01=0x0004}
0x3b74…3b7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x001c}
0x3b7e…3b88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0026}
0x3b88…3b9a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x0030}
0x3b9a…3bac               Head {h00=0x000e, h01=0x0050, text=»* FMINIT *«, t00=0x0026, t01=0x0042}
0x3bac…3bbe               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0026, t01=0x0054}
0x3bbe…3bc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0066}
0x3bc8…3bd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0070}
0x3bd2…3c14               Head {h00=0x003e, h01=0x0050, text=»*   FMINIT IS THE FILE MANAGEMENT INITIALIZATION ROUTINE. «, t00=0x0026, t01=0x007a}
0x3c14…3c54               Head {h00=0x003c, h01=0x0050, text=»*   IT IS CALLED FROM PFINIT AFTER IPL AND AT POWER ON. «, t00=0x0026, t01=0x00bc}
0x3c54…3c96               Head {h00=0x003e, h01=0x0050, text=»*   WHEN CALLED AT POWER ON, AN IMMEDIATE RETURN IS MADE. «, t00=0x0026, t01=0x00fc}
0x3c96…3ca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x013e}
0x3ca0…3ce0               Head {h00=0x003c, h01=0x0050, text=»*   FMINIT WILL ZEROIZE THE FWT AREA, AND LINK THE FWT:S«, t00=0x0026, t01=0x0148}
0x3ce0…3d20               Head {h00=0x003c, h01=0x0050, text=»*   TOGETHER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS«, t00=0x0026, t01=0x0188}
0x3d20…3d4a               Head {h00=0x0026, h01=0x0050, text=»*   WELL AS FWTFNR (FILE NUMBER). «, t00=0x0027, t01=0x0038}
0x3d4a…3d84               Head {h00=0x0036, h01=0x0050, text=»*   FMINIT ALSO HOLDS INITIALIZATION ROUTINES FOR «, t00=0x0027, t01=0x0062}
0x3d84…3dac               Head {h00=0x0024, h01=0x0050, text=»*   (EXTENDED) DATA MANAGEMENT. «, t00=0x0027, t01=0x009c}
0x3dac…3dec               Head {h00=0x003c, h01=0x0050, text=»*   THE PART OF FMINIT THAT IS NOT EXECUTED AT POWER ON «, t00=0x0027, t01=0x00c4}
0x3dec…3e2c               Head {h00=0x003c, h01=0x0050, text=»*   WILL BE USED AS THE INTERNAL BUFFER FOR THE FMTASK. «, t00=0x0027, t01=0x0104}
0x3e2c…3e36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0144}
0x3e36…3e58               Head {h00=0x001e, h01=0x0050, text=»FMINIT EQU * FMINIT ENTRY «, t00=0x0027, t01=0x014e}
0x3e58…3e86               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/F03E RTNA15 INSTRUCTION CODE«, t00=0x0027, t01=0x0170}
0x3e86…3eaa               Head {h00=0x0020, h01=0x0050, text=» ST A1,FMINIT CLOSE THE DOOR«, t00=0x0028, t01=0x000e}
0x3eaa…3eb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0032}
0x3eb4…3ed8               Head {h00=0x0020, h01=0x0050, text=»* FMTASK DISC SECTOR BUFFER «, t00=0x0028, t01=0x003c}
0x3ed8…3ee2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0060}
0x3ee2…3f24               Head {h00=0x003e, h01=0x0050, text=»FM:BUF EQU FMINIT+2 INITIALIZATION ROUTINE USED AS BUFFER «, t00=0x0028, t01=0x006a}
0x3f24…3f2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ac}
0x3f2e…3f60               Head {h00=0x002e, h01=0x0050, text=»FMINI2 EQU * INITIALIZATION ROUTINE ENTRY «, t00=0x0028, t01=0x00b6}
0x3f60…3f70               Head {h00=0x000c, h01=0x0050, text=» RES 125«, t00=0x0028, t01=0x00e8}
0x3f70…3f7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f8}
0x3f7a…3f92               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0028, t01=0x0102}
0x3f92…3f9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x011a}
0x3f9c…3fbc               Head {h00=0x001c, h01=0x0050, text=»* PERFORM INITIALIZATION«, t00=0x0028, t01=0x0124}
0x3fbc…3fc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0144}
0x3fc6…3fda               Head {h00=0x0010, h01=0x0050, text=»FMI:00 EQU *«, t00=0x0028, t01=0x014e}
0x3fda…400e               Head {h00=0x0030, h01=0x0050, text=» RORG FMINI2 PUT THE CODE BELOW INTO FM:BUF «, t00=0x0028, t01=0x0162}
0x400e…403c               Head {h00=0x002a, h01=0x0050, text=» LD A1,SCTFWT FWT CHAIN START ADDRESS «, t00=0x0029, t01=0x0008}
0x403c…4062               Head {h00=0x0022, h01=0x0050, text=» LD A4,SCTNOF NUMBER OF FILES «, t00=0x0029, t01=0x0036}
0x4062…4074               Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0029, t01=0x005c}
0x4074…4098               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,/8000 DWT BUSY BIT «, t00=0x0029, t01=0x006e}
0x4098…40a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0092}
0x40a2…40b6               Head {h00=0x0010, h01=0x0050, text=»FMI:30 EQU *«, t00=0x0029, t01=0x009c}
0x40b6…40c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00b0}
0x40c0…40dc               Head {h00=0x0018, h01=0x0050, text=» IFF ADMEDM+SDM=0 =7«, t00=0x0029, t01=0x00ba}
0x40dc…40f2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0029, t01=0x00d6}
0x40f2…412a               Head {h00=0x0034, h01=0x0050, text=» LDKL A8,FDBMEC FDB MMU ECB DISPLACEMENT IN FWT «, t00=0x0029, t01=0x00ec}
0x412a…414c               Head {h00=0x001e, h01=0x0050, text=» ADR A8,A1 MMU ECB ADDRESS«, t00=0x0029, t01=0x0124}
0x414c…4158               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0146}
0x4158…4162               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0152}
0x4162…4188               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 CURRENT FWT ADDRESS«, t00=0x0029, t01=0x015c}
0x4188…419a               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0029, t01=0x0182}
0x419a…41c0 (42, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» AD A3,SCTFWL NEXT FWT ADDRESS«, t00=0x002a, t01=0x0004}
0x41c0…41e2               Head {h00=0x001e, h01=0x0050, text=» ADK A5,1 NEXT FILE NUMBER«, t00=0x002a, t01=0x002a}
0x41e2…41f4               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002a, t01=0x004c}
0x41f4…4222               Head {h00=0x002a, h01=0x0050, text=» RF(N) FMI:50 INITIALIZATION COMPLETED«, t00=0x002a, t01=0x005e}
0x4222…4252               Head {h00=0x002c, h01=0x0050, text=» RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE«, t00=0x002a, t01=0x008c}
0x4252…4286               Head {h00=0x0030, h01=0x0050, text=» STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT «, t00=0x002a, t01=0x00bc}
0x4286…42ae               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 INCREMENT FWT POINTER «, t00=0x002a, t01=0x00f0}
0x42ae…42b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0118}
0x42b8…42d0               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x002a, t01=0x0122}
0x42d0…42da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x013a}
0x42da…42e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0144}
0x42e4…42f8               Head {h00=0x0010, h01=0x0050, text=»FMI:40 EQU *«, t00=0x002a, t01=0x014e}
0x42f8…4308               Head {h00=0x000c, h01=0x0050, text=» CMR A1 «, t00=0x002a, t01=0x0162}
0x4308…4330               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 INCREMENT FWT POINTER «, t00=0x002a, t01=0x0172}
0x4330…435c               Head {h00=0x0028, h01=0x0050, text=» CWR A1,A3 CHECK IF END OF THIS FWT «, t00=0x002b, t01=0x000a}
0x435c…4386               Head {h00=0x0026, h01=0x0050, text=» RB(NE) FMI:40 NOT END OF THE FWT «, t00=0x002b, t01=0x0036}
0x4386…439c               Head {h00=0x0012, h01=0x0050, text=» SU A3,SCTFWL «, t00=0x002b, t01=0x0060}
0x439c…43c2               Head {h00=0x0022, h01=0x0050, text=» ADK A3,FWTEW2 FWTEW2 ADDRESS «, t00=0x002b, t01=0x0076}
0x43c2…43f4               Head {h00=0x002e, h01=0x0050, text=» ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER«, t00=0x002b, t01=0x009c}
0x43f4…4424               Head {h00=0x002c, h01=0x0050, text=» ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT «, t00=0x002b, t01=0x00ce}
0x4424…4452               Head {h00=0x002a, h01=0x0050, text=» ST A6,DWTST,A2 INDICATE FWT NOT BUSY «, t00=0x002b, t01=0x00fe}
0x4452…445c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x012c}
0x445c…447a               Head {h00=0x001a, h01=0x0050, text=» IFF ADMEDM+SDM=0  =7 «, t00=0x002b, t01=0x0136}
0x447a…4490               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002b, t01=0x0154}
0x4490…44bc               Head {h00=0x0028, h01=0x0050, text=» ST A8,DWTMEC,A2 SET MMU ECB ADDRESS«, t00=0x002b, t01=0x016a}
0x44bc…44c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0008}
0x44c8…44d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0014}
0x44d2…44ec               Head {h00=0x0016, h01=0x0050, text=» IFF ADMEDM+SDM=0 «, t00=0x002c, t01=0x001e}
0x44ec…4506               Head {h00=0x0016, h01=0x0050, text=» LDKL A7,TIODM  =5«, t00=0x002c, t01=0x0038}
0x4506…4522               Head {h00=0x0018, h01=0x0050, text=» ST A7,DWTADR,A2  =5«, t00=0x002c, t01=0x0052}
0x4522…4534               Head {h00=0x000e, h01=0x0050, text=» XIF   =5 «, t00=0x002c, t01=0x006e}
0x4534…455e               Head {h00=0x0026, h01=0x0050, text=» RB FMI:30 CONTINUE WITH NEXT FWT «, t00=0x002c, t01=0x0080}
0x455e…4568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00aa}
0x4568…4576               Head {h00=0x000a, h01=0x0050, text=»    =4«, t00=0x002c, t01=0x00b4}
0x4576…458e               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x002c, t01=0x00c2}
0x458e…4598               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00da}
0x4598…45b6               Head {h00=0x001a, h01=0x0050, text=»* COMPUTE NVL BIT MASK«, t00=0x002c, t01=0x00e4}
0x45b6…45c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0102}
0x45c0…45d4               Head {h00=0x0010, h01=0x0050, text=»FMI:50 EQU *«, t00=0x002c, t01=0x010c}
0x45d4…45ea               Head {h00=0x0012, h01=0x0050, text=» LDK A1,0  =4 «, t00=0x002c, t01=0x0120}
0x45ea…45fc               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x002c, t01=0x0136}
0x45fc…4622               Head {h00=0x0022, h01=0x0050, text=» LDKL A3,NVLTAB NVLTAB ADDRESS«, t00=0x002c, t01=0x0148}
0x4622…462c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x016e}
0x462c…4640               Head {h00=0x0010, h01=0x0050, text=»FMI:80 EQU *«, t00=0x002c, t01=0x0178}
0x4640…466e               Head {h00=0x002a, h01=0x0050, text=» LDR* A4,A3 GET ONE ENTRY FROM NVLTAB «, t00=0x002c, t01=0x018c}
0x466e…4698               Head {h00=0x0026, h01=0x0050, text=» RF(Z) FMI:85 THIS ENTRY NOT USED «, t00=0x002d, t01=0x002a}
0x4698…46c0               Head {h00=0x0024, h01=0x0050, text=» ORR A1,A2 INDICATE TTAB PRESENT«, t00=0x002d, t01=0x0054}
0x46c0…46ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007c}
0x46ca…46de               Head {h00=0x0010, h01=0x0050, text=»FMI:85 EQU *«, t00=0x002d, t01=0x0086}
0x46de…46f0               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x002d, t01=0x009a}
0x46f0…471a               Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 INCREMENT NVLTAB POINTER«, t00=0x002d, t01=0x00ac}
0x471a…4748               Head {h00=0x002a, h01=0x0050, text=» CWK A3,NVLEND CHECK IF END OF NVLTAB «, t00=0x002d, t01=0x00d6}
0x4748…4770               Head {h00=0x0024, h01=0x0050, text=» RB(NE) FMI:80 NOT END OF NVLTAB«, t00=0x002d, t01=0x0104}
0x4770…479e               Head {h00=0x002a, h01=0x0050, text=» ORR A1,A2 ADD ONE BIT FOR USER TASKS «, t00=0x002d, t01=0x012c}
0x479e…47c4               Head {h00=0x0022, h01=0x0050, text=» ST A1,NVLBIT SET NVL BIT MASK«, t00=0x002d, t01=0x015a}
0x47c4…47ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0180}
0x47ce…47e0               Head {h00=0x000e, h01=0x0050, text=» IFT SDM=1«, t00=0x002d, t01=0x018a}
0x47e0…4818               Head {h00=0x0034, h01=0x0050, text=» ABL SDMINI PERFORM DM INITIALIZATION AND RETURN«, t00=0x002e, t01=0x000c}
0x4818…4824               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0044}
0x4824…482e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0050}
0x482e…483c               Head {h00=0x000a, h01=0x0050, text=»    =2«, t00=0x002e, t01=0x005a}
0x483c…4854               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x002e, t01=0x0068}
0x4854…485e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0080}
0x485e…4868               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x008a}
0x4868…487a               Head {h00=0x000e, h01=0x0050, text=» IFT EDM=1«, t00=0x002e, t01=0x0094}
0x487a…4884               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a6}
0x4884…48a6               Head {h00=0x001e, h01=0x0050, text=»* INITIALIZE ALL EDM TASKS«, t00=0x002e, t01=0x00b0}
0x48a6…48b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00d2}
0x48b0…48e0               Head {h00=0x002c, h01=0x0050, text=» LDKL A1,DWDM01 PARAMETER BLOCK ADDRESS «, t00=0x002e, t01=0x00dc}
0x48e0…48f8               Head {h00=0x0014, h01=0x0050, text=» ADKL A1,DWTPAB «, t00=0x002e, t01=0x010c}
0x48f8…4922               Head {h00=0x0026, h01=0x0050, text=» LDK A2,2 INDICATE INITIALIZATION «, t00=0x002e, t01=0x0124}
0x4922…4934               Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x002e, t01=0x014e}
0x4934…4960               Head {h00=0x0028, h01=0x0050, text=» LDKL A7,'$D' TASK ID,FIRST EDM TASK«, t00=0x002e, t01=0x0160}
0x4960…498a               Head {h00=0x0026, h01=0x0050, text=» LD A3,SCTDMT EDM TASKS IN SYSTEM «, t00=0x002e, t01=0x018c}
0x498a…4994               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0026}
0x4994…49a8               Head {h00=0x0010, h01=0x0050, text=»FMI:90 EQU *«, t00=0x002f, t01=0x0030}
0x49a8…49ba               Head {h00=0x000e, h01=0x0050, text=» SRC A3,1 «, t00=0x002f, t01=0x0044}
0x49ba…49da               Head {h00=0x001c, h01=0x0050, text=» RF(NN) FMI:99 NEXT TASK«, t00=0x002f, t01=0x0056}
0x49da…4a0e               Head {h00=0x0030, h01=0x0050, text=» CF A15,FNDTID FIND (E)DM TASK TTAB ADDRESS «, t00=0x002f, t01=0x0076}
0x4a0e…4a20               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A2«, t00=0x002f, t01=0x00aa}
0x4a20…4a48               Head {h00=0x0024, h01=0x0050, text=» RF(Z) FMIHLT TTAB NOT FOUND =2 «, t00=0x002f, t01=0x00bc}
0x4a48…4a52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00e4}
0x4a52…4a6a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x002f, t01=0x00ee}
0x4a6a…4a74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0106}
0x4a74…4a7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0110}
0x4a7e…4ab6               Head {h00=0x0034, h01=0x0050, text=» LD A4,SCTMOX ADDRESS OF DISPATCH ADDRESS TABLE «, t00=0x002f, t01=0x011a}
0x4ab6…4ac8               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x002f, t01=0x0152}
0x4ac8…4ae8               Head {h00=0x001c, h01=0x0050, text=» ADR* A2,A4 END ADDRESS «, t00=0x002f, t01=0x0164}
0x4ae8…4b08               Head {h00=0x001c, h01=0x0050, text=» SUK A4,2 ADJUST POINTER«, t00=0x002f, t01=0x0184}
0x4b08…4b12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0014}
0x4b12…4b26               Head {h00=0x0010, h01=0x0050, text=»FMI:95 EQU *«, t00=0x0030, t01=0x001e}
0x4b26…4b42               Head {h00=0x0018, h01=0x0050, text=» ADK A4,4 NEXT ENTRY«, t00=0x0030, t01=0x0032}
0x4b42…4b56               Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A4 «, t00=0x0030, t01=0x004e}
0x4b56…4b78               Head {h00=0x001e, h01=0x0050, text=» RB(NE) FMI:95 NOT SAME ID«, t00=0x0030, t01=0x0062}
0x4b78…4b9c               Head {h00=0x0020, h01=0x0050, text=» LD A2,2,A4 DISPATCH ADDRESS«, t00=0x0030, t01=0x0084}
0x4b9c…4bc4               Head {h00=0x0024, h01=0x0050, text=» CF A15,ACTOT ACTIVATE EDM TASK «, t00=0x0030, t01=0x00a8}
0x4bc4…4bce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d0}
0x4bce…4be2               Head {h00=0x0010, h01=0x0050, text=»FMI:99 EQU *«, t00=0x0030, t01=0x00da}
0x4be2…4c02               Head {h00=0x001c, h01=0x0050, text=» ADK A7,1 NEXT EDM TASK «, t00=0x0030, t01=0x00ee}
0x4c02…4c1a               Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF  =6 «, t00=0x0030, t01=0x010e}
0x4c1a…4c48               Head {h00=0x002a, h01=0x0050, text=» RB(NZ) FMI:90 MORE TASKS TO ACTIVATE «, t00=0x0030, t01=0x0126}
0x4c48…4c54               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0154}
0x4c54…4c5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0160}
0x4c5e…4c96               Head {h00=0x0034, h01=0x0050, text=» RTN A15 FM/EDM INITIALIZATION COMPLETED, RETURN«, t00=0x0030, t01=0x016a}
0x4c96…4ca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0012}
0x4ca0…4cbe               Head {h00=0x001a, h01=0x0050, text=»* TTAB NOT FOUND   =2 «, t00=0x0031, t01=0x001c}
0x4cbe…4cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003a}
0x4cc8…4ce0               Head {h00=0x0014, h01=0x0050, text=»FMIHLT EQU *  =2«, t00=0x0031, t01=0x0044}
0x4ce0…4d00               Head {h00=0x001c, h01=0x0050, text=» LDK A1,/11 DM ERROR =2 «, t00=0x0031, t01=0x005c}
0x4d00…4d18               Head {h00=0x0014, h01=0x0050, text=» CF A15,HALT  =2«, t00=0x0031, t01=0x007c}
0x4d18…4d3e               Head {h00=0x0022, h01=0x0050, text=» RORG FMI:00 END OF RELOCATION«, t00=0x0031, t01=0x0094}
0x4d3e…4d48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ba}
0x4d48…4d60               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0031, t01=0x00c4}
0x4d60…4d6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00dc}
0x4d6a…4d74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e6}
0x4d74…4d86               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x00f0}
0x4d86…4d98               Head {h00=0x000e, h01=0x0050, text=»* FMTASK *«, t00=0x0031, t01=0x0102}
0x4d98…4daa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x0114}
0x4daa…4db4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0126}
0x4db4…4dbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0130}
0x4dbe…4dec               Head {h00=0x002a, h01=0x0050, text=»*   THE FILE MANAGEMENT TASK PERFORMS «, t00=0x0031, t01=0x013a}
0x4dec…4e1a               Head {h00=0x002a, h01=0x0050, text=»*   FILE ADMINISTRATION FUNCTIONS. IT «, t00=0x0031, t01=0x0168}
0x4e1a…4e4a               Head {h00=0x002c, h01=0x0050, text=»*   IS ACTIVATED BY THE FILE MANAGEMENT «, t00=0x0032, t01=0x0008}
0x4e4a…4e82               Head {h00=0x0034, h01=0x0050, text=»*   LKM PROCESSOR 'TIOFM' AT ENTRY FMTASK BELOW.«, t00=0x0032, t01=0x0038}
0x4e82…4eb4               Head {h00=0x002e, h01=0x0050, text=»*   AFTER SOME HOUSEKEEPING THE FOLLOWING «, t00=0x0032, t01=0x0070}
0x4eb4…4eee               Head {h00=0x0036, h01=0x0050, text=»*   MODULES WILL PERFORM THE FILE ADMINISTRATION: «, t00=0x0032, t01=0x00a2}
0x4eee…4ef8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00dc}
0x4ef8…4f40               Head {h00=0x0044, h01=0x0050, text=»*   - FMOPEN   OPEN/CREATE/EXTEND FILE        (OPTIONS: 0, 2, 1)«, t00=0x0032, t01=0x00e6}
0x4f40…4f86               Head {h00=0x0042, h01=0x0050, text=»*   - FMCLOS   CLOSE/DELETE FILE              (   "   : 0, 2) «, t00=0x0032, t01=0x012e}
0x4f86…4fc8               Head {h00=0x003e, h01=0x0050, text=»*   - FMRPAR   READ FILE PARAMETERS           (   "   : 0)«, t00=0x0032, t01=0x0174}
0x4fc8…4fd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0026}
0x4fd2…5016               Head {h00=0x0040, h01=0x0050, text=»*   NOTICE THAT FUNCTIONS CREATE/EXTEND/DELETE ARE SITUATED «, t00=0x0033, t01=0x0030}
0x5016…5058               Head {h00=0x003e, h01=0x0050, text=»*   IN MODULE 'FMCDEF' BUT LOGICALLY BELONG TO OPEN/CLOSE.«, t00=0x0033, t01=0x0074}
0x5058…5062               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b6}
0x5062…508e               Head {h00=0x0028, h01=0x0050, text=»*   A SPECIAL ENTRY IS USED FOR I/O «, t00=0x0033, t01=0x00c0}
0x508e…50c0               Head {h00=0x002e, h01=0x0050, text=»*   FUNCTIONS WHERE REQUESTED SECTORS ARE «, t00=0x0033, t01=0x00ec}
0x50c0…50f0               Head {h00=0x002c, h01=0x0050, text=»*   SPLIT OVER TWO OR MORE FILE EXTENTS:«, t00=0x0033, t01=0x011e}
0x50f0…50fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x014e}
0x50fa…513c               Head {h00=0x003e, h01=0x0050, text=»*   - FMSPLI   READ/WRITE (SPLIT I/O)         (OPTIONS: 0)«, t00=0x0033, t01=0x0158}
0x513c…5146               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x000a}
0x5146…5150               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0014}
0x5150…516e               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x0034, t01=0x001e}
0x516e…5178               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x003c}
0x5178…51b0               Head {h00=0x0034, h01=0x0050, text=»*   A1 = ORDER OPTION AND CODE (RFP/OPEN/CLOSE) «, t00=0x0034, t01=0x0046}
0x51b0…51e4               Head {h00=0x0030, h01=0x0050, text=»*      = PARAMETER BLOCK ADDRESS (SPLIT I/O)«, t00=0x0034, t01=0x007e}
0x51e4…5212               Head {h00=0x002a, h01=0x0050, text=»*   A3 = TTAB ADDRESS OF CALLING TASK «, t00=0x0034, t01=0x00b2}
0x5212…5260               Head {h00=0x004a, h01=0x0050, text=»*   A4 = FUNCTION INDEX (0 = RFP, 2 = OPEN, 4 = CLOSE, 6 = SPLIT I/O) «, t00=0x0034, t01=0x00e0}
0x5260…5280               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0034, t01=0x012e}
0x5280…528a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x014e}
0x528a…52a2               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0034, t01=0x0158}
0x52a2…52ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0170}
0x52ac…52b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x017a}
0x52b6…52e2               Head {h00=0x0028, h01=0x0050, text=»FMTASK EQU * FMTASK ACTIVATION ENTRY«, t00=0x0034, t01=0x0184}
0x52e2…52ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0020}
0x52ec…5310               Head {h00=0x0020, h01=0x0050, text=»* PERFORM SOME HOUSEKEEPING «, t00=0x0035, t01=0x002a}
0x5310…531a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004e}
0x531a…533c               Head {h00=0x001e, h01=0x0050, text=» CM ECBCW1,A8 CLEAR 1ST CW«, t00=0x0035, t01=0x0058}
0x533c…536c               Head {h00=0x002c, h01=0x0050, text=» LDR A5,A3 TTAB ADDRESS OF CALLING TASK «, t00=0x0035, t01=0x007a}
0x536c…539e               Head {h00=0x002e, h01=0x0050, text=» ST A5,TTAB SAVE TTAB ADDRESS CALLING TASK«, t00=0x0035, t01=0x00aa}
0x539e…53c0               Head {h00=0x001e, h01=0x0050, text=» LDR A7,A1 SAVE PARAMETER «, t00=0x0035, t01=0x00dc}
0x53c0…53ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00fe}
0x53ca…53e0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0035, t01=0x0108}
0x53e0…5412               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,FM:BUF FMTASK DISC SECTOR BUFFER «, t00=0x0035, t01=0x011e}
0x5412…5444               Head {h00=0x002e, h01=0x0050, text=» ST A2,ECBBA,A8 SET BUFFER ADDRESS IN ECB «, t00=0x0035, t01=0x0150}
0x5444…5458               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,256«, t00=0x0035, t01=0x0182}
0x5458…548c               Head {h00=0x0030, h01=0x0050, text=» ST A2,ECBRL,A8 SET REQUESTED LENGTH IN ECB «, t00=0x0036, t01=0x0008}
0x548c…5498               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x003c}
0x5498…54a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0048}
0x54a2…54b8               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0036, t01=0x0052}
0x54b8…54c6               Head {h00=0x000a, h01=0x0050, text=» MLK 3«, t00=0x0036, t01=0x0068}
0x54c6…54e4               Head {h00=0x001a, h01=0x0050, text=» DATA /8000,FM:BUF,256«, t00=0x0036, t01=0x0076}
0x54e4…5508               Head {h00=0x0020, h01=0x0050, text=» MSR 3,A8 INITIALIZE FM:ECB «, t00=0x0036, t01=0x0094}
0x5508…552c               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A7 RESTORE PARAMETER«, t00=0x0036, t01=0x00b8}
0x552c…5538               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x00dc}
0x5538…5542               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00e8}
0x5542…5566               Head {h00=0x0020, h01=0x0050, text=» CM RETCOD RESET RETURN CODE«, t00=0x0036, t01=0x00f2}
0x5566…5592               Head {h00=0x0028, h01=0x0050, text=» LD A9,TTB:SA+16,A5 USER ECB ADDRESS«, t00=0x0036, t01=0x0116}
0x5592…55bc               Head {h00=0x0026, h01=0x0050, text=» LDKL A14,FM:STB FMTASK STACK BASE«, t00=0x0036, t01=0x0142}
0x55bc…55c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x016c}
0x55c6…55dc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0036, t01=0x0176}
0x55dc…5608               Head {h00=0x0028, h01=0x0050, text=» LD A10,ECBBA,A9 FPB/BUFFER ADDRESS «, t00=0x0036, t01=0x018c}
0x5608…5614               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0028}
0x5614…561e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0034}
0x561e…5634               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0037, t01=0x003e}
0x5634…5660               Head {h00=0x0028, h01=0x0050, text=» LDKL A3,TTABFM FMTASK TTAB ADDRESS «, t00=0x0037, t01=0x0054}
0x5660…5684               Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A5 USER MMU TABLE«, t00=0x0037, t01=0x0080}
0x5684…56b4               Head {h00=0x002c, h01=0x0050, text=» TS TTB:MT,A3 STORE IN FMTASK MMU TABLE «, t00=0x0037, t01=0x00a4}
0x56b4…56e4               Head {h00=0x002c, h01=0x0050, text=» EL A10,ECBBA,A9 USER FPB/BUFFER ADDRESS«, t00=0x0037, t01=0x00d4}
0x56e4…56f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0104}
0x56f0…56fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0110}
0x56fa…5712               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0037, t01=0x011a}
0x5712…571c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0132}
0x571c…5750               Head {h00=0x0030, h01=0x0050, text=»*   BRANCH TO APPROPRIATE FUNCTION HANDLER. «, t00=0x0037, t01=0x013c}
0x5750…575a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0170}
0x575a…578e               Head {h00=0x0030, h01=0x0050, text=»*   THE FOLLOWING PARAMETERS ARE SUPPLIED TO«, t00=0x0037, t01=0x017a}
0x578e…57b6               Head {h00=0x0024, h01=0x0050, text=»*   THE RESP. FUNCTION HANDLER: «, t00=0x0038, t01=0x001e}
0x57b6…57c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0046}
0x57c0…57de               Head {h00=0x001a, h01=0x0050, text=»*   A1 = ORDER OPTION «, t00=0x0038, t01=0x0050}
0x57de…580c               Head {h00=0x002a, h01=0x0050, text=»*   A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0038, t01=0x006e}
0x580c…5838               Head {h00=0x0028, h01=0x0050, text=»*   A7 = COMPLETE PARAMETER FROM A1 «, t00=0x0038, t01=0x009c}
0x5838…5858               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0038, t01=0x00c8}
0x5858…587a               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x0038, t01=0x00e8}
0x587a…5896               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x0038, t01=0x010a}
0x5896…58a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0126}
0x58a0…58c0               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF ORDER OPTION«, t00=0x0038, t01=0x0130}
0x58c0…58f2               Head {h00=0x002e, h01=0x0050, text=» ABI ORDTAB,A4 BRANCH TO FUNCTION HANDLER «, t00=0x0038, t01=0x0150}
0x58f2…58fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0182}
0x58fc…5930               Head {h00=0x0030, h01=0x0050, text=»ORDTAB EQU * ADDRESSES TO FUNCTION HANDLERS «, t00=0x0038, t01=0x018c}
0x5930…595a               Head {h00=0x0026, h01=0x0050, text=» DATA FMRPAR READ FILE PARAMETERS «, t00=0x0039, t01=0x0030}
0x595a…5986               Head {h00=0x0028, h01=0x0050, text=» DATA FMOPEN OPEN/CREATE/EXTEND FILE«, t00=0x0039, t01=0x005a}
0x5986…59ac               Head {h00=0x0022, h01=0x0050, text=» DATA FMCLOS CLOSE/DELETE FILE«, t00=0x0039, t01=0x0086}
0x59ac…59b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ac}
0x59b6…59cc               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0039, t01=0x00b6}
0x59cc…59ea               Head {h00=0x001a, h01=0x0050, text=» DATA FMSPLI SPLIT I/O«, t00=0x0039, t01=0x00cc}
0x59ea…59f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00ea}
0x59f6…5a00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f6}
0x5a00…5a16               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=0 «, t00=0x0039, t01=0x0100}
0x5a16…5a42               Head {h00=0x0028, h01=0x0050, text=» DATA FM:RQE SPLIT I/O NOT INCLUDED «, t00=0x0039, t01=0x0116}
0x5a42…5a4e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0142}
0x5a4e…5a58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x014e}
0x5a58…5a70               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0039, t01=0x0158}
0x5a70…5a7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0170}
0x5a7a…5a84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x017a}
0x5a84…5a96               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0039, t01=0x0184}
0x5a96…5aa8               Head {h00=0x000e, h01=0x0050, text=»* FMOPEN *«, t00=0x003a, t01=0x0008}
0x5aa8…5aba               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x001a}
0x5aba…5ac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x002c}
0x5ac4…5ace               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0036}
0x5ace…5b04               Head {h00=0x0032, h01=0x0050, text=»*   FILE MANAGEMENT ADMINISTRATION FUNCTIONS: «, t00=0x003a, t01=0x0040}
0x5b04…5b28               Head {h00=0x0020, h01=0x0050, text=»*   OPEN/CREATE/EXTEND FILE «, t00=0x003a, t01=0x0076}
0x5b28…5b32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x009a}
0x5b32…5b50               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x003a, t01=0x00a4}
0x5b50…5b5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00c2}
0x5b5a…5b78               Head {h00=0x001a, h01=0x0050, text=»*   A1 = ORDER OPTION «, t00=0x003a, t01=0x00cc}
0x5b78…5b98               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x003a, t01=0x00ea}
0x5b98…5bba               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x003a, t01=0x010a}
0x5bba…5bd6               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x003a, t01=0x012c}
0x5bd6…5be0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0148}
0x5be0…5c0c               Head {h00=0x0028, h01=0x0050, text=»FMOPEN EQU * OPEN/CREATE/EXTEND FILE«, t00=0x003a, t01=0x0152}
0x5c0c…5c32               Head {h00=0x0022, h01=0x0050, text=» LDR A13,A1 SAVE ORDER OPTION «, t00=0x003a, t01=0x017e}
0x5c32…5c3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0014}
0x5c3c…5c52               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003b, t01=0x001e}
0x5c52…5c5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0034}
0x5c5c…5c8a               Head {h00=0x002a, h01=0x0050, text=»* MOVE USER FPB TO SYSTEM FPB (FM:FPB)«, t00=0x003b, t01=0x003e}
0x5c8a…5c94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x006c}
0x5c94…5cb8               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 USER FPB ADDRESS«, t00=0x003b, t01=0x0076}
0x5cb8…5cde               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,FM:FPB FM FPB ADDRESS«, t00=0x003b, t01=0x009a}
0x5cde…5cfa               Head {h00=0x0018, h01=0x0050, text=» LDR A10,A2 SAVE IT «, t00=0x003b, t01=0x00c0}
0x5cfa…5d24               Head {h00=0x0026, h01=0x0050, text=» LDK A3,FPBLEN FPB LENGTH (BYTES) «, t00=0x003b, t01=0x00dc}
0x5d24…5d4c               Head {h00=0x0024, h01=0x0050, text=» MVUS A3 MOVE USER FPB TO FM:FPB«, t00=0x003b, t01=0x0106}
0x5d4c…5d58               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x012e}
0x5d58…5d62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x013a}
0x5d62…5d7a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x003b, t01=0x0144}
0x5d7a…5d84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x015c}
0x5d84…5d8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0166}
0x5d8e…5dbe               Head {h00=0x002c, h01=0x0050, text=» LDKL A5,FILCOD FILE CODE TABLE ADDRESS «, t00=0x003b, t01=0x0170}
0x5dbe…5df8               Head {h00=0x0036, h01=0x0050, text=» LDK A7,FPB:V1 1ST VOLUME NAME DISPLACEMENT IN FPB«, t00=0x003c, t01=0x0010}
0x5df8…5e02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x004a}
0x5e02…5e2e               Head {h00=0x0028, h01=0x0050, text=»* CHECK IF ANY VOLUME NAME SPECIFIED«, t00=0x003c, t01=0x0054}
0x5e2e…5e38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0080}
0x5e38…5e4c               Head {h00=0x0010, h01=0x0050, text=»FMOP00 EQU *«, t00=0x003c, t01=0x008a}
0x5e4c…5e6c               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A10 FPB ADDRESS «, t00=0x003c, t01=0x009e}
0x5e6c…5e94               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A7 POINT TO VOLUME NAME «, t00=0x003c, t01=0x00be}
0x5e94…5ec2               Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A2 FIRST WORD OF VOLUME NAME «, t00=0x003c, t01=0x00e6}
0x5ec2…5ef0               Head {h00=0x002a, h01=0x0050, text=» RF(Z) FMOP20 NO VOLUME NAME SPECIFIED«, t00=0x003c, t01=0x0114}
0x5ef0…5f16               Head {h00=0x0022, h01=0x0050, text=» SUKL A2,/2020 CHECK IF SPACES«, t00=0x003c, t01=0x0142}
0x5f16…5f44               Head {h00=0x002a, h01=0x0050, text=» RF(Z) FMOP20 NO VOLUME NAME SPECIFIED«, t00=0x003c, t01=0x0168}
0x5f44…5f7c               Head {h00=0x0034, h01=0x0050, text=» LDKL A4,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 «, t00=0x003d, t01=0x0008}
0x5f7c…5f86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0040}
0x5f86…5fb0               Head {h00=0x0026, h01=0x0050, text=»* CONVERT VOLUME NAME TO FILE CODE«, t00=0x003d, t01=0x004a}
0x5fb0…5fba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0074}
0x5fba…5fce               Head {h00=0x0010, h01=0x0050, text=»FMOP10 EQU *«, t00=0x003d, t01=0x007e}
0x5fce…5fe0               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003d, t01=0x0092}
0x5fe0…600a               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 POINT TO NEXT FILE CODE «, t00=0x003d, t01=0x00a4}
0x600a…6036               Head {h00=0x0028, h01=0x0050, text=» CWK A4,DFTABE CHECK IF END OF DFTAB«, t00=0x003d, t01=0x00ce}
0x6036…6068               Head {h00=0x002e, h01=0x0050, text=» RF(E) FM:INE FILE CODE NOT FOUND, RETURN «, t00=0x003d, t01=0x00fa}
0x6068…608a               Head {h00=0x001e, h01=0x0050, text=» LCR A2,A4 NEXT FILE CODE «, t00=0x003d, t01=0x012c}
0x608a…60ba               Head {h00=0x002c, h01=0x0050, text=» CF A14,FNDNAM FIND VOLUME NAME ADDRESS «, t00=0x003d, t01=0x014e}
0x60ba…60da               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A10 FPB ADDRESS «, t00=0x003d, t01=0x017e}
0x60da…6110               Head {h00=0x0032, h01=0x0050, text=» ADR A2,A7 POINT TO CURRENT VOLUME NAME IN FPB«, t00=0x003e, t01=0x000e}
0x6110…6134               Head {h00=0x0020, h01=0x0050, text=» LDK A3,6 VOLUME NAME LENGTH«, t00=0x003e, t01=0x0044}
0x6134…6160               Head {h00=0x0028, h01=0x0050, text=» CF A14,CMPSTR COMPARE VOLUME NAMES «, t00=0x003e, t01=0x0068}
0x6160…618e               Head {h00=0x002a, h01=0x0050, text=» RB(NE) FMOP10 VOLUME NAMES NOT EQUAL «, t00=0x003e, t01=0x0094}
0x618e…61aa               Head {h00=0x0018, h01=0x0050, text=» LCR A2,A4 FILE CODE«, t00=0x003e, t01=0x00c2}
0x61aa…61e8               Head {h00=0x003a, h01=0x0050, text=» SC A3,DWTNVL+1,A6 CLEAR NVL BITS (A3 = 0 FROM CMPSTR)«, t00=0x003e, t01=0x00de}
0x61e8…61f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x011c}
0x61f2…620a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x003e, t01=0x0126}
0x620a…6214               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x013e}
0x6214…6254               Head {h00=0x003c, h01=0x0050, text=»* STORE FILE CODE (OR ZERO) IN FILE CODE TABLE (FILCOD) «, t00=0x003e, t01=0x0148}
0x6254…625e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0188}
0x625e…6272 (63, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»FMOP20 EQU *«, t00=0x003f, t01=0x0004}
0x6272…6294               Head {h00=0x001e, h01=0x0050, text=» SCR A2,A5 SAVE FILE CODE «, t00=0x003f, t01=0x0018}
0x6294…62a6               Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x003f, t01=0x003a}
0x62a6…62e2               Head {h00=0x0038, h01=0x0050, text=» ADK A7,FPB:V2-FPB:V1 NEXT VOLUME NAME DISPLACEMENT «, t00=0x003f, t01=0x004c}
0x62e2…6310               Head {h00=0x002a, h01=0x0050, text=» CWK A5,FILCOD+4 CHECK IF END OF TABLE«, t00=0x003f, t01=0x0088}
0x6310…633c               Head {h00=0x0028, h01=0x0050, text=» RB(NE) FMOP00 MORE VOLUMES TO CHECK«, t00=0x003f, t01=0x00b6}
0x633c…6366               Head {h00=0x0026, h01=0x0050, text=» SUK A5,4 FILE CODE TABLE ADDRESS «, t00=0x003f, t01=0x00e2}
0x6366…6370               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x010c}
0x6370…63a2               Head {h00=0x002e, h01=0x0050, text=»* GET FILE CODE OF FIRST SPECIFIED VOLUME «, t00=0x003f, t01=0x0116}
0x63a2…63ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0148}
0x63ac…63c0               Head {h00=0x0010, h01=0x0050, text=»FMOP30 EQU *«, t00=0x003f, t01=0x0152}
0x63c0…63e0               Head {h00=0x001c, h01=0x0050, text=» LCR A7,A5 ONE FILE CODE«, t00=0x003f, t01=0x0166}
0x63e0…63f4               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x003f, t01=0x0186}
0x63f4…6424               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) FMOP40 FIRST FILE CODE TO TREAT «, t00=0x0040, t01=0x000a}
0x6424…644e               Head {h00=0x0026, h01=0x0050, text=» ADK A5,1 POINT TO NEXT FILE CODE «, t00=0x0040, t01=0x003a}
0x644e…647c               Head {h00=0x002a, h01=0x0050, text=» CWK A5,FILCOD+4 CHECK IF END OF TABLE«, t00=0x0040, t01=0x0064}
0x647c…64a8               Head {h00=0x0028, h01=0x0050, text=» RB(NE) FMOP30 CHECK NEXT FILE CODE «, t00=0x0040, t01=0x0092}
0x64a8…64b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00be}
0x64b2…64d2               Head {h00=0x001c, h01=0x0050, text=»* VOLUME/FILE NOT FOUND «, t00=0x0040, t01=0x00c8}
0x64d2…64dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00e8}
0x64dc…6506               Head {h00=0x0026, h01=0x0050, text=»FM:INE EQU * VOLUME/FILE NOT FOUND«, t00=0x0040, t01=0x00f2}
0x6506…6528               Head {h00=0x001e, h01=0x0050, text=» LDKL A4,/8800 RETURN CODE«, t00=0x0040, t01=0x011c}
0x6528…653a               Head {h00=0x000e, h01=0x0050, text=» RF ER:RTN«, t00=0x0040, t01=0x013e}
0x653a…6544               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0150}
0x6544…655c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0040, t01=0x015a}
0x655c…6566               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0172}
0x6566…6582               Head {h00=0x0018, h01=0x0050, text=»* CHECK ORDER OPTION«, t00=0x0040, t01=0x017c}
0x6582…658c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0008}
0x658c…65a0               Head {h00=0x0010, h01=0x0050, text=»FMOP40 EQU *«, t00=0x0041, t01=0x0012}
0x65a0…65d6               Head {h00=0x0032, h01=0x0050, text=» ST A5,VOLUME CURRENT VOLUME FILE CODE ADDRESS«, t00=0x0041, t01=0x0026}
0x65d6…65f6               Head {h00=0x001c, h01=0x0050, text=» LDR A4,A13 ORDER OPTION«, t00=0x0041, t01=0x005c}
0x65f6…6614               Head {h00=0x001a, h01=0x0050, text=» RF(Z) OPEN OPEN FILE «, t00=0x0041, t01=0x007c}
0x6614…661e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x009a}
0x661e…6634               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x0041, t01=0x00a4}
0x6634…6646               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0041, t01=0x00ba}
0x6646…6668               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) EXTEND EXTEND FILE«, t00=0x0041, t01=0x00cc}
0x6668…667a               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0041, t01=0x00ee}
0x667a…669c               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) CREATE CREATE FILE«, t00=0x0041, t01=0x0100}
0x669c…66a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0122}
0x66a8…66b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x012e}
0x66b2…66ca               Head {h00=0x0014, h01=0x0050, text=»* REQUEST ERROR «, t00=0x0041, t01=0x0138}
0x66ca…66d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0150}
0x66d4…66fc               Head {h00=0x0024, h01=0x0050, text=»FM:RQE EQU * REQUEST ERROR EXIT «, t00=0x0041, t01=0x015a}
0x66fc…671e               Head {h00=0x001e, h01=0x0050, text=» LDKL A4,/8000 RETURN CODE«, t00=0x0041, t01=0x0182}
0x671e…6730               Head {h00=0x000e, h01=0x0050, text=» RF ER:RTN«, t00=0x0042, t01=0x0014}
0x6730…673a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0026}
0x673a…6752               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0042, t01=0x0030}
0x6752…675c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0048}
0x675c…6766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0052}
0x6766…6776               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0042, t01=0x005c}
0x6776…6786               Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0042, t01=0x006c}
0x6786…6796               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0042, t01=0x007c}
0x6796…67a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x008c}
0x67a0…67aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0096}
0x67aa…67c8               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x0042, t01=0x00a0}
0x67c8…67d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00be}
0x67d2…67e4               Head {h00=0x000e, h01=0x0050, text=»*   A4 = 0«, t00=0x0042, t01=0x00c8}
0x67e4…6818               Head {h00=0x0030, h01=0x0050, text=»*   A5 = VOLUME FILE CODE ADDRESS IN FILCOD «, t00=0x0042, t01=0x00da}
0x6818…6840               Head {h00=0x0024, h01=0x0050, text=»*   A7 = FILE CODE, FIRST VOLUME«, t00=0x0042, t01=0x010e}
0x6840…6860               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0042, t01=0x0136}
0x6860…6882               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x0042, t01=0x0156}
0x6882…689e               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x0042, t01=0x0178}
0x689e…68a8 (67, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0004}
0x68a8…68c4               Head {h00=0x0018, h01=0x0050, text=»OPEN EQU * OPEN FILE«, t00=0x0043, t01=0x000e}
0x68c4…68ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x002a}
0x68ce…68e6               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0043, t01=0x0034}
0x68e6…68f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x004c}
0x68f0…691e               Head {h00=0x002a, h01=0x0050, text=»* CHECK IF FILE IS ALREADY OPENED AND «, t00=0x0043, t01=0x0056}
0x691e…6938               Head {h00=0x0016, h01=0x0050, text=»* FIND FWT ADDRESS«, t00=0x0043, t01=0x0084}
0x6938…6942               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x009e}
0x6942…6970               Head {h00=0x002a, h01=0x0050, text=» LD A12,SCTFWT FWT CHAIN START ADDRESS«, t00=0x0043, t01=0x00a8}
0x6970…697a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00d6}
0x697a…698e               Head {h00=0x0010, h01=0x0050, text=»OP:005 EQU *«, t00=0x0043, t01=0x00e0}
0x698e…69a0               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0043, t01=0x00f4}
0x69a0…69aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0106}
0x69aa…69be               Head {h00=0x0010, h01=0x0050, text=»OP:010 EQU *«, t00=0x0043, t01=0x0110}
0x69be…69e2               Head {h00=0x0020, h01=0x0050, text=» LDR A6,A12 NEXT FWT ADDRESS«, t00=0x0043, t01=0x0124}
0x69e2…6a10               Head {h00=0x002a, h01=0x0050, text=» RF(Z) OP:060 NO MORE FWT:S AVAILABLE «, t00=0x0043, t01=0x0148}
0x6a10…6a36               Head {h00=0x0022, h01=0x0050, text=» LDR* A12,A6 FIRST WORD OF FWT«, t00=0x0043, t01=0x0176}
0x6a36…6a56               Head {h00=0x001c, h01=0x0050, text=» TM A12,A2 CHECK IF USED«, t00=0x0044, t01=0x000c}
0x6a56…6a82               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) OP:015 USED, CHECK FILE NAME«, t00=0x0044, t01=0x002c}
0x6a82…6abc               Head {h00=0x0036, h01=0x0050, text=» ADK A4,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED «, t00=0x0044, t01=0x0058}
0x6abc…6ae6               Head {h00=0x0026, h01=0x0050, text=» RB(NZ) OP:010 YES, DON'T SAVE IT «, t00=0x0044, t01=0x0092}
0x6ae6…6b12               Head {h00=0x0028, h01=0x0050, text=» LDR A4,A6 NO, SAVE THIS FWT ADDRESS«, t00=0x0044, t01=0x00bc}
0x6b12…6b34               Head {h00=0x001e, h01=0x0050, text=» RB OP:010 CONTINUE SEARCH«, t00=0x0044, t01=0x00e8}
0x6b34…6b3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x010a}
0x6b3e…6b52               Head {h00=0x0010, h01=0x0050, text=»OP:015 EQU *«, t00=0x0044, t01=0x0114}
0x6b52…6b78               Head {h00=0x0022, h01=0x0050, text=» XRR A12,A2 RESET FWT USED BIT«, t00=0x0044, t01=0x0128}
0x6b78…6b98               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A10 FPB ADDRESS «, t00=0x0044, t01=0x014e}
0x6b98…6bae               Head {h00=0x0012, h01=0x0050, text=» ADK A2,FPB:FN«, t00=0x0044, t01=0x016e}
0x6bae…6bd8               Head {h00=0x0026, h01=0x0050, text=» CF A14,CMPFIL COMPARE FILE NAMES «, t00=0x0044, t01=0x0184}
0x6bd8…6c04               Head {h00=0x0028, h01=0x0050, text=» RB(NE) OP:005 FILE NAMES NOT EQUAL «, t00=0x0045, t01=0x001e}
0x6c04…6c3c               Head {h00=0x0034, h01=0x0050, text=» CC A7,FWTVOL,A6 CHECK FILE CODE OF FIRST EXTENT«, t00=0x0045, t01=0x004a}
0x6c3c…6c60               Head {h00=0x0020, h01=0x0050, text=» RB(NE) OP:005 NOT THIS FILE«, t00=0x0045, t01=0x0082}
0x6c60…6c6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00a6}
0x6c6a…6c82               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0045, t01=0x00b0}
0x6c82…6c8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00c8}
0x6c8c…6cae               Head {h00=0x001e, h01=0x0050, text=»* FILE IS ALREADY OPENED: «, t00=0x0045, t01=0x00d2}
0x6cae…6ce2               Head {h00=0x0030, h01=0x0050, text=»* CHECK ATTACH PARAMETER AND NUMBER OF USERS«, t00=0x0045, t01=0x00f4}
0x6ce2…6cec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0128}
0x6cec…6d02               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x0045, t01=0x0132}
0x6d02…6d32               Head {h00=0x002c, h01=0x0050, text=» LC A1,FPB:SH,A10 SHAREABILITY PARAMETER«, t00=0x0045, t01=0x0148}
0x6d32…6d46               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0045, t01=0x0178}
0x6d46…6d70               Head {h00=0x0026, h01=0x0050, text=» RF(Z) OP:020 NO ATTACH REQUESTED «, t00=0x0045, t01=0x018c}
0x6d70…6da4               Head {h00=0x0030, h01=0x0050, text=» LD A2,FWTTAB,A6 ATTACH WORD (TTAB ADDRESS) «, t00=0x0046, t01=0x0026}
0x6da4…6dcc               Head {h00=0x0024, h01=0x0050, text=» RF(Z) OP:018 FILE NOT ATTACHED «, t00=0x0046, t01=0x005a}
0x6dcc…6dfe               Head {h00=0x002e, h01=0x0050, text=» CW A2,TTAB CHECK IF ATTACHED BY THIS TASK«, t00=0x0046, t01=0x0082}
0x6dfe…6e32               Head {h00=0x0030, h01=0x0050, text=» RF(NE) OP:040 NO, ATTACHED TO ANOTHER TASK «, t00=0x0046, t01=0x00b4}
0x6e32…6e3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00e8}
0x6e3c…6e50               Head {h00=0x0010, h01=0x0050, text=»OP:018 EQU *«, t00=0x0046, t01=0x00f2}
0x6e50…6e7e               Head {h00=0x002a, h01=0x0050, text=» LD A5,TTAB TTAB ADDRESS CALLING TASK «, t00=0x0046, t01=0x0106}
0x6e7e…6ea8               Head {h00=0x0026, h01=0x0050, text=» ST A5,FWTTAB,A6 INDICATE ATTACHED«, t00=0x0046, t01=0x0134}
0x6ea8…6eb4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x015e}
0x6eb4…6ebe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x016a}
0x6ebe…6ed2               Head {h00=0x0010, h01=0x0050, text=»OP:020 EQU *«, t00=0x0046, t01=0x0174}
0x6ed2…6efc               Head {h00=0x0026, h01=0x0050, text=» LC A1,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x0046, t01=0x0188}
0x6efc…6f0e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0047, t01=0x0022}
0x6f0e…6f32               Head {h00=0x0020, h01=0x0050, text=» ANK A1,/3F NUMBER OF USERS «, t00=0x0047, t01=0x0034}
0x6f32…6f46               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/3F «, t00=0x0047, t01=0x0058}
0x6f46…6f5e               Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) OPEXIT «, t00=0x0047, t01=0x006c}
0x6f5e…6f68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0084}
0x6f68…6f80               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0047, t01=0x008e}
0x6f80…6f8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00a6}
0x6f8a…6fa0               Head {h00=0x0012, h01=0x0050, text=»* ERROR EXITS «, t00=0x0047, t01=0x00b0}
0x6fa0…6faa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00c6}
0x6faa…6fde               Head {h00=0x0030, h01=0x0050, text=» LDKL A4,/0210 RETURN CODE (TOO MANY USERS) «, t00=0x0047, t01=0x00d0}
0x6fde…6ff0               Head {h00=0x000e, h01=0x0050, text=» RF ER:RTN«, t00=0x0047, t01=0x0104}
0x6ff0…6ffa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0116}
0x6ffa…7024               Head {h00=0x0026, h01=0x0050, text=»OP:030 EQU * NO FREE FWT AVAILABLE«, t00=0x0047, t01=0x0120}
0x7024…7046               Head {h00=0x001e, h01=0x0050, text=» LDKL A4,/8400 RETURN CODE«, t00=0x0047, t01=0x014a}
0x7046…7050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x016c}
0x7050…7066               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x0047, t01=0x0176}
0x7066…7078               Head {h00=0x000e, h01=0x0050, text=» RF ER:RTN«, t00=0x0047, t01=0x018c}
0x7078…7082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x000e}
0x7082…70a4               Head {h00=0x001e, h01=0x0050, text=»OP:040 EQU * FILE ATTACHED«, t00=0x0048, t01=0x0018}
0x70a4…70c4               Head {h00=0x001c, h01=0x0050, text=» LDK A4,/40 RETURN CODE «, t00=0x0048, t01=0x003a}
0x70c4…70d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x005a}
0x70d0…70da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0066}
0x70da…70ee               Head {h00=0x0010, h01=0x0050, text=»ER:RTN EQU *«, t00=0x0048, t01=0x0070}
0x70ee…7118               Head {h00=0x0026, h01=0x0050, text=» ORS A4,RETCOD PREPARE RETURN CODE«, t00=0x0048, t01=0x0084}
0x7118…7132               Head {h00=0x0016, h01=0x0050, text=» ABL FMEXIT RETURN«, t00=0x0048, t01=0x00ae}
0x7132…713c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c8}
0x713c…7154               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0048, t01=0x00d2}
0x7154…715e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ea}
0x715e…7182               Head {h00=0x0020, h01=0x0050, text=»* FILE IS NOT OPENED BEFORE:«, t00=0x0048, t01=0x00f4}
0x7182…71b6               Head {h00=0x0030, h01=0x0050, text=»* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S«, t00=0x0048, t01=0x0118}
0x71b6…71c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x014c}
0x71c0…71e8               Head {h00=0x0024, h01=0x0050, text=»* MOVE FILE NAME FROM FPB TO FWT«, t00=0x0048, t01=0x0156}
0x71e8…71f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x017e}
0x71f2…7206               Head {h00=0x0010, h01=0x0050, text=»OP:060 EQU *«, t00=0x0048, t01=0x0188}
0x7206…722a               Head {h00=0x0020, h01=0x0050, text=» LDR A6,A4 FREE FWT ADDRESS «, t00=0x0049, t01=0x000c}
0x722a…7256               Head {h00=0x0028, h01=0x0050, text=» RB(Z) OP:030 NO FREE FWT AVAILABLE «, t00=0x0049, t01=0x0030}
0x7256…7276               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A10 FPB ADDRESS «, t00=0x0049, t01=0x005c}
0x7276…728c               Head {h00=0x0012, h01=0x0050, text=» ADK A1,FPB:FN«, t00=0x0049, t01=0x007c}
0x728c…72aa               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A6 FWT ADDRESS«, t00=0x0049, t01=0x0092}
0x72aa…72c0               Head {h00=0x0012, h01=0x0050, text=» ADK A3,FWTNAM«, t00=0x0049, t01=0x00b0}
0x72c0…72e6               Head {h00=0x0022, h01=0x0050, text=» CF A14,FM:MV8 MOVE FILE NAME «, t00=0x0049, t01=0x00c6}
0x72e6…730a               Head {h00=0x0020, h01=0x0050, text=» LDR A2,A7 RESTORE FILE CODE«, t00=0x0049, t01=0x00ec}
0x730a…7314               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0110}
0x7314…732c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0049, t01=0x011a}
0x732c…7336               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0132}
0x7336…7340               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x013c}
0x7340…7352               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0049, t01=0x0146}
0x7352…7364               Head {h00=0x000e, h01=0x0050, text=»* OPEXT * «, t00=0x0049, t01=0x0158}
0x7364…7376               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0049, t01=0x016a}
0x7376…7380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x017c}
0x7380…738a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0186}
0x738a…73be               Head {h00=0x0030, h01=0x0050, text=»*   OPEN EXTENDED FILE (CALLED FROM EXTEND) «, t00=0x0049, t01=0x0190}
0x73be…73c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0034}
0x73c8…73e8               Head {h00=0x001c, h01=0x0050, text=»*   A2 = DISC FILE CODE «, t00=0x004a, t01=0x003e}
0x73e8…7404               Head {h00=0x0018, h01=0x0050, text=»*   A6 = FWT ADDRESS«, t00=0x004a, t01=0x005e}
0x7404…7424               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x004a, t01=0x007a}
0x7424…7446               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x004a, t01=0x009a}
0x7446…7462               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x004a, t01=0x00bc}
0x7462…746c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00d8}
0x746c…749a               Head {h00=0x002a, h01=0x0050, text=»OPEXT EQU * ENTRY USED BY EXTEND FILE «, t00=0x004a, t01=0x00e2}
0x749a…74ae               Head {h00=0x0010, h01=0x0050, text=»OP:070 EQU *«, t00=0x004a, t01=0x0110}
0x74ae…74b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0124}
0x74b8…74d6               Head {h00=0x001a, h01=0x0050, text=»* FIND ONE FILE EXTENT«, t00=0x004a, t01=0x012e}
0x74d6…74e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x014c}
0x74e0…750c               Head {h00=0x0028, h01=0x0050, text=» CM FEXTNO RESET NO OF FILE EXTENTS «, t00=0x004a, t01=0x0156}
0x750c…753c               Head {h00=0x002c, h01=0x0050, text=» LD A5,TTAB TTAB ADDRESS OF CALLING TASK«, t00=0x004a, t01=0x0182}
0x753c…7562               Head {h00=0x0022, h01=0x0050, text=» CF A14,FNDVTC FIND VTOC ENTRY«, t00=0x004b, t01=0x0022}
0x7562…756c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0048}
0x756c…7580               Head {h00=0x0010, h01=0x0050, text=»OP:075 EQU *«, t00=0x004b, t01=0x0052}
0x7580…75b4               Head {h00=0x0030, h01=0x0050, text=» LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER «, t00=0x004b, t01=0x0066}
0x75b4…75e0               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) OP:080 ONE FILE EXTENT FOUND«, t00=0x004b, t01=0x009a}
0x75e0…7608               Head {h00=0x0024, h01=0x0050, text=» ADK A4,0 CHECK DISC RETURN CODE«, t00=0x004b, t01=0x00c6}
0x7608…7642               Head {h00=0x0036, h01=0x0050, text=» RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME «, t00=0x004b, t01=0x00ee}
0x7642…766c               Head {h00=0x0026, h01=0x0050, text=» ABL OPCLOS DISC ERROR, CLOSE FILE«, t00=0x004b, t01=0x0128}
0x766c…7676               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0152}
0x7676…768e               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x004b, t01=0x015c}
0x768e…7698               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0174}
0x7698…76c4               Head {h00=0x0028, h01=0x0050, text=»* MOVE EXTENT LENGTH AND EXTENT BASE«, t00=0x004b, t01=0x017e}
0x76c4…76e6               Head {h00=0x001e, h01=0x0050, text=»* TO FWT AND/OR EWT BLOCKS«, t00=0x004c, t01=0x001a}
0x76e6…76f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x003c}
0x76f0…7704               Head {h00=0x0010, h01=0x0050, text=»OP:080 EQU *«, t00=0x004c, t01=0x0046}
0x7704…7730               Head {h00=0x0028, h01=0x0050, text=» LD A3,VTC:EN,A13 FILE EXTENT NUMBER«, t00=0x004c, t01=0x005a}
0x7730…775c               Head {h00=0x0028, h01=0x0050, text=» LD A2,VTC:FO,A13 FILE ORGANIZATION «, t00=0x004c, t01=0x0086}
0x775c…7770               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004c, t01=0x00b2}
0x7770…7784               Head {h00=0x0010, h01=0x0050, text=» SUK A2,'L' «, t00=0x004c, t01=0x00c6}
0x7784…77a0               Head {h00=0x0018, h01=0x0050, text=» RF(Z) OP:085 L-FILE«, t00=0x004c, t01=0x00da}
0x77a0…77ce               Head {h00=0x002a, h01=0x0050, text=» LD A2,VTC:FS,A13 FILE SECTION NUMBER «, t00=0x004c, t01=0x00f6}
0x77ce…77e0               Head {h00=0x000e, h01=0x0050, text=» SLL A2,6 «, t00=0x004c, t01=0x0124}
0x77e0…7812               Head {h00=0x002e, h01=0x0050, text=» ORR A2,A3 FILE SECTION AND EXTENT NUMBER «, t00=0x004c, t01=0x0136}
0x7812…7824               Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x004c, t01=0x0168}
0x7824…782e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x017a}
0x782e…7844               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x004c, t01=0x0184}
0x7844…786c               Head {h00=0x0024, h01=0x0050, text=» LC A4,TTB:SA+14,A5 ORDER OPTION«, t00=0x004d, t01=0x000a}
0x786c…788e               Head {h00=0x001e, h01=0x0050, text=» SRC A4,1 CHECK IF EXTEND «, t00=0x004d, t01=0x0032}
0x788e…78b0               Head {h00=0x001e, h01=0x0050, text=» RF(NN) OP:085 NOT EXTEND «, t00=0x004d, t01=0x0054}
0x78b0…78e4               Head {h00=0x0030, h01=0x0050, text=» CW A3,SEXTNO CHECK IF VTOC ALREADY TREATED «, t00=0x004d, t01=0x0076}
0x78e4…790e               Head {h00=0x0026, h01=0x0050, text=» RF(NG) OP:110 YES, SKIP THIS VTOC«, t00=0x004d, t01=0x00aa}
0x790e…791a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00d4}
0x791a…7924               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00e0}
0x7924…7938               Head {h00=0x0010, h01=0x0050, text=»OP:085 EQU *«, t00=0x004d, t01=0x00ea}
0x7938…7966               Head {h00=0x002a, h01=0x0050, text=» LC A2,VTC:EL+1,A13 FILE EXTENT LENGTH«, t00=0x004d, t01=0x00fe}
0x7966…7982               Head {h00=0x0018, h01=0x0050, text=» LD A1,VTC:EL+2,A13 «, t00=0x004d, t01=0x012c}
0x7982…799a               Head {h00=0x0014, h01=0x0050, text=» ADK A3,0 SET CR«, t00=0x004d, t01=0x0148}
0x799a…79c2               Head {h00=0x0024, h01=0x0050, text=» RF(Z) OP:095 FIRST FILE EXTENT «, t00=0x004d, t01=0x0160}
0x79c2…79cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0188}
0x79cc…79e0 (78, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»OP:090 EQU *«, t00=0x004e, t01=0x0004}
0x79e0…79ec               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x004e, t01=0x0018}
0x79ec…7a0e               Head {h00=0x001e, h01=0x0050, text=» CF A15,GETBLK EWT BLOCK 1«, t00=0x004e, t01=0x0024}
0x7a0e…7a20               Head {h00=0x000e, h01=0x0050, text=» RF OP:100«, t00=0x004e, t01=0x0046}
0x7a20…7a2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0058}
0x7a2a…7a42               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x004e, t01=0x0062}
0x7a42…7a4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x007a}
0x7a4c…7a56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0084}
0x7a56…7a6a               Head {h00=0x0010, h01=0x0050, text=»OP:095 EQU *«, t00=0x004e, t01=0x008e}
0x7a6a…7a96               Head {h00=0x0028, h01=0x0050, text=» LC A4,VTC:NE,A13 NO OF FILE EXTENTS«, t00=0x004e, t01=0x00a2}
0x7a96…7aaa               Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x004e, t01=0x00ce}
0x7aaa…7aca               Head {h00=0x001c, h01=0x0050, text=» NGR A4,A4 NEGATE VALUE «, t00=0x004e, t01=0x00e2}
0x7aca…7ae0               Head {h00=0x0012, h01=0x0050, text=» ADS A4,FEXTNO«, t00=0x004e, t01=0x0102}
0x7ae0…7b1a               Head {h00=0x0036, h01=0x0050, text=» LD A4,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT «, t00=0x004e, t01=0x0118}
0x7b1a…7b4c               Head {h00=0x002e, h01=0x0050, text=» RB(NZ) OP:090 FIRST EXTENT ALREADY FOUND «, t00=0x004e, t01=0x0152}
0x7b4c…7b8e               Head {h00=0x003e, h01=0x0050, text=» ST A2,FWTEXL-2,A6 STORE FILE EXTENT LENGTH, FIRST EXTENT «, t00=0x004e, t01=0x0184}
0x7b8e…7ba6               Head {h00=0x0014, h01=0x0050, text=» ST A1,FWTEXL,A6«, t00=0x004f, t01=0x0036}
0x7ba6…7bb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x004e}
0x7bb0…7bc4               Head {h00=0x0010, h01=0x0050, text=»OP:100 EQU *«, t00=0x004f, t01=0x0058}
0x7bc4…7be8               Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A8 VOLUME FILE CODE«, t00=0x004f, t01=0x006c}
0x7be8…7c16               Head {h00=0x002a, h01=0x0050, text=» ECR A2,A2 FILE CODE NOW IN LEFT BYTE «, t00=0x004f, t01=0x0090}
0x7c16…7c42               Head {h00=0x0028, h01=0x0050, text=» LC A2,VTC:EB+1,A13 FILE EXTENT BASE«, t00=0x004f, t01=0x00be}
0x7c42…7c5e               Head {h00=0x0018, h01=0x0050, text=» LD A1,VTC:EB+2,A13 «, t00=0x004f, t01=0x00ea}
0x7c5e…7c8c               Head {h00=0x002a, h01=0x0050, text=» OR A3,FWTVTC,A6 CHECK IF FIRST EXTENT«, t00=0x004f, t01=0x0106}
0x7c8c…7cb8               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) OP:120 NOT FIRST FILE EXTENT«, t00=0x004f, t01=0x0134}
0x7cb8…7cf8               Head {h00=0x003c, h01=0x0050, text=» ST A2,FWTEXB-2,A6 STORE FILE EXTENT BASE, FIRST EXTENT «, t00=0x004f, t01=0x0160}
0x7cf8…7d10               Head {h00=0x0014, h01=0x0050, text=» ST A1,FWTEXB,A6«, t00=0x0050, t01=0x0010}
0x7d10…7d50               Head {h00=0x003c, h01=0x0050, text=» ST A11,FWTVTC,A6 STORE VTOC SECTOR NUMBER, FIRST EXTENT«, t00=0x0050, t01=0x0028}
0x7d50…7d5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0068}
0x7d5a…7d88               Head {h00=0x002a, h01=0x0050, text=»* FIND REMAINING EXTENTS FOR THIS FILE«, t00=0x0050, t01=0x0072}
0x7d88…7d92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00a0}
0x7d92…7da6               Head {h00=0x0010, h01=0x0050, text=»OP:110 EQU *«, t00=0x0050, t01=0x00aa}
0x7da6…7dd8               Head {h00=0x002e, h01=0x0050, text=» IM FEXTNO INDICATE ONE MORE EXTENT FOUND «, t00=0x0050, t01=0x00be}
0x7dd8…7e12               Head {h00=0x0036, h01=0x0050, text=» RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME «, t00=0x0050, t01=0x00f0}
0x7e12…7e3e               Head {h00=0x0028, h01=0x0050, text=» CF A14,FNDVT3 FIND NEXT VTOC ENTRY «, t00=0x0050, t01=0x012a}
0x7e3e…7e50               Head {h00=0x000e, h01=0x0050, text=» RB OP:075«, t00=0x0050, t01=0x0156}
0x7e50…7e5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0168}
0x7e5a…7e72               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0050, t01=0x0172}
0x7e72…7e7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x018a}
0x7e7c…7ea8 (81, 0, 400)  Head {h00=0x0028, h01=0x0050, text=»* INSERT NEW EWT BLOCKS IN EWT CHAIN«, t00=0x0051, t01=0x0004}
0x7ea8…7eb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0030}
0x7eb2…7ec6               Head {h00=0x0010, h01=0x0050, text=»OP:120 EQU *«, t00=0x0051, t01=0x003a}
0x7ec6…7eec               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A4 ADDRESS EWT BLOCK 1«, t00=0x0051, t01=0x004e}
0x7eec…7f0e               Head {h00=0x001e, h01=0x0050, text=» CF A15,GETBLK EWT BLOCK 2«, t00=0x0051, t01=0x0074}
0x7f0e…7f1a               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0051, t01=0x0096}
0x7f1a…7f3e               Head {h00=0x0020, h01=0x0050, text=» STR A4,A3 LINK EWT2 TO EWT1«, t00=0x0051, t01=0x00a2}
0x7f3e…7f5c               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FWT ADDRESS«, t00=0x0051, t01=0x00c6}
0x7f5c…7f72               Head {h00=0x0012, h01=0x0050, text=» ADK A1,FWTEW2«, t00=0x0051, t01=0x00e4}
0x7f72…7f7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00fa}
0x7f7c…7f90               Head {h00=0x0010, h01=0x0050, text=»OP:130 EQU *«, t00=0x0051, t01=0x0104}
0x7f90…7fbe               Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE«, t00=0x0051, t01=0x0118}
0x7fbe…7fd4               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) OP:150«, t00=0x0051, t01=0x0146}
0x7fd4…7fde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x015c}
0x7fde…7ff2               Head {h00=0x0010, h01=0x0050, text=»OP:140 EQU *«, t00=0x0051, t01=0x0166}
0x7ff2…801a               Head {h00=0x0024, h01=0x0050, text=» STR A2,A4 INSERT NEW EWT BLOCK «, t00=0x0051, t01=0x017a}
0x801a…802c               Head {h00=0x000e, h01=0x0050, text=» STR A3,A1«, t00=0x0052, t01=0x0012}
0x802c…8048               Head {h00=0x0018, h01=0x0050, text=» RB OP:110 CONTINUE «, t00=0x0052, t01=0x0024}
0x8048…8052               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0040}
0x8052…8066               Head {h00=0x0010, h01=0x0050, text=»OP:150 EQU *«, t00=0x0052, t01=0x004a}
0x8066…809e               Head {h00=0x0034, h01=0x0050, text=» LC A11,EWTSEX,A2 FILE SECTION AND EXTENT NUMBER«, t00=0x0052, t01=0x005e}
0x809e…80b8               Head {h00=0x0016, h01=0x0050, text=» CC A11,EWTSEX,A3 «, t00=0x0052, t01=0x0096}
0x80b8…80e4               Head {h00=0x0028, h01=0x0050, text=» RB(G) OP:140 INSERT NEW EWT BLOCKS «, t00=0x0052, t01=0x00b0}
0x80e4…8110               Head {h00=0x0028, h01=0x0050, text=» LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK«, t00=0x0052, t01=0x00dc}
0x8110…8122               Head {h00=0x000e, h01=0x0050, text=» RB OP:130«, t00=0x0052, t01=0x0108}
0x8122…812c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x011a}
0x812c…8156               Head {h00=0x0026, h01=0x0050, text=»* CHECK IF MORE VOLUMES SPECIFIED «, t00=0x0052, t01=0x0124}
0x8156…8160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x014e}
0x8160…8174               Head {h00=0x0010, h01=0x0050, text=»OP:160 EQU *«, t00=0x0052, t01=0x0158}
0x8174…81a4               Head {h00=0x002c, h01=0x0050, text=» IM VOLUME NEXT VOLUME FILE CODE ADDRESS«, t00=0x0052, t01=0x016c}
0x81a4…81d2               Head {h00=0x002a, h01=0x0050, text=» LD A7,VOLUME VOLUME FILE CODE ADDRESS«, t00=0x0053, t01=0x000c}
0x81d2…8200               Head {h00=0x002a, h01=0x0050, text=» CWK A7,FILCOD+4 CHECK IF END OF TABLE«, t00=0x0053, t01=0x003a}
0x8200…822a               Head {h00=0x0026, h01=0x0050, text=» RF(E) OP:170 ALL VOLUMES CHECKED «, t00=0x0053, t01=0x0068}
0x822a…8234               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0092}
0x8234…824c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0053, t01=0x009c}
0x824c…8256               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00b4}
0x8256…8260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00be}
0x8260…8276               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x0053, t01=0x00c8}
0x8276…828a               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0053, t01=0x00de}
0x828a…82ba               Head {h00=0x002c, h01=0x0050, text=» ST A2,SEXTNO RESET START EXTENT NUMBER «, t00=0x0053, t01=0x00f2}
0x82ba…82c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0122}
0x82c6…82d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x012e}
0x82d0…82f2               Head {h00=0x001e, h01=0x0050, text=» LCR A2,A7 NEXT FILE CODE «, t00=0x0053, t01=0x0138}
0x82f2…8306               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0053, t01=0x015a}
0x8306…8328               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) OP:070 NEXT VOLUME«, t00=0x0053, t01=0x016e}
0x8328…833a               Head {h00=0x000e, h01=0x0050, text=» RB OP:160«, t00=0x0053, t01=0x0190}
0x833a…8344               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0012}
0x8344…8358               Head {h00=0x0010, h01=0x0050, text=»OP:170 EQU *«, t00=0x0054, t01=0x001c}
0x8358…8392               Head {h00=0x0036, h01=0x0050, text=» LD A2,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT «, t00=0x0054, t01=0x0030}
0x8392…83be               Head {h00=0x0028, h01=0x0050, text=» ABL(Z) FM:INE NO FILE EXTENT FOUND «, t00=0x0054, t01=0x006a}
0x83be…83c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0096}
0x83c8…83de               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x0054, t01=0x00a0}
0x83de…8406               Head {h00=0x0024, h01=0x0050, text=» LC A2,TTB:SA+14,A5 ORDER OPTION«, t00=0x0054, t01=0x00b6}
0x8406…8428               Head {h00=0x001e, h01=0x0050, text=» SRC A2,1 CHECK IF EXTEND «, t00=0x0054, t01=0x00de}
0x8428…844a               Head {h00=0x001e, h01=0x0050, text=» RF(N) FM:270 YES, RETURN «, t00=0x0054, t01=0x0100}
0x844a…8456               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0122}
0x8456…8460               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x012e}
0x8460…8480               Head {h00=0x001c, h01=0x0050, text=»* CHECK ATTACH PARAMETER«, t00=0x0054, t01=0x0138}
0x8480…848a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0158}
0x848a…84a0               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x0054, t01=0x0162}
0x84a0…84d0               Head {h00=0x002c, h01=0x0050, text=» LC A2,FPB:SH,A10 SHAREABILITY PARAMETER«, t00=0x0054, t01=0x0178}
0x84d0…84e4               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0055, t01=0x0018}
0x84e4…850e               Head {h00=0x0026, h01=0x0050, text=» RF(Z) OP:240 NO ATTACH REQUESTED «, t00=0x0055, t01=0x002c}
0x850e…852e               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A5 TTAB ADDRESS «, t00=0x0055, t01=0x0056}
0x852e…8538               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0076}
0x8538…854c               Head {h00=0x0010, h01=0x0050, text=»OP:240 EQU *«, t00=0x0055, t01=0x0080}
0x854c…8574               Head {h00=0x0024, h01=0x0050, text=» ST A2,FWTTAB,A6 SET ATTACH WORD«, t00=0x0055, t01=0x0094}
0x8574…8580               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x00bc}
0x8580…858a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c8}
0x858a…85c0               Head {h00=0x0032, h01=0x0050, text=» IMR A6 INDICATE FWT USED (BIT 15 IN 1ST WORD)«, t00=0x0055, t01=0x00d2}
0x85c0…85ec               Head {h00=0x0028, h01=0x0050, text=» LDK A2,/40 PREPARE FOR BASIC ORDERS«, t00=0x0055, t01=0x0108}
0x85ec…85f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0134}
0x85f6…860e               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0055, t01=0x013e}
0x860e…8618               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0156}
0x8618…864a               Head {h00=0x002e, h01=0x0050, text=»* COMMON EXIT FOR ACCEPTED OPEN REQUESTS: «, t00=0x0055, t01=0x0160}
0x864a…868c (86, 0, 400)  Head {h00=0x003e, h01=0x0050, text=»* CHECK BASIC ORDERS PARAMETER, INCREMENT NUMBER OF USERS «, t00=0x0056, t01=0x0004}
0x868c…86ce               Head {h00=0x003e, h01=0x0050, text=»* BY ONE AND RETURN FILE NUMBER FOR THIS FILE TO THE USER «, t00=0x0056, t01=0x0046}
0x86ce…86d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0088}
0x86d8…86ec               Head {h00=0x0010, h01=0x0050, text=»OPEXIT EQU *«, t00=0x0056, t01=0x0092}
0x86ec…871e               Head {h00=0x002e, h01=0x0050, text=» LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS «, t00=0x0056, t01=0x00a6}
0x871e…8732               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0056, t01=0x00d8}
0x8732…8768               Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION «, t00=0x0056, t01=0x00ec}
0x8768…8796               Head {h00=0x002a, h01=0x0050, text=» ANK A2,/BF PHYSICAL ORDERS REQUESTED «, t00=0x0056, t01=0x0122}
0x8796…87a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0150}
0x87a0…87b4               Head {h00=0x0010, h01=0x0050, text=»OP:260 EQU *«, t00=0x0056, t01=0x015a}
0x87b4…87e0               Head {h00=0x0028, h01=0x0050, text=» ADK A2,1 ADD ONE USER TO THIS FILE «, t00=0x0056, t01=0x016e}
0x87e0…8812               Head {h00=0x002e, h01=0x0050, text=» SC A2,FWTPAR,A6 SET NEW ACCESS PARAMETERS«, t00=0x0057, t01=0x000a}
0x8812…881c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x003c}
0x881c…8832               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0057, t01=0x0046}
0x8832…8856               Head {h00=0x0020, h01=0x0050, text=» LD A4,FWTFNR,A6 FILE NUMBER«, t00=0x0057, t01=0x005c}
0x8856…8884               Head {h00=0x002a, h01=0x0050, text=» SC A4,ECBFN,A9 SET FILE NUMBER IN ECB«, t00=0x0057, t01=0x0080}
0x8884…8890               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x00ae}
0x8890…889a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00ba}
0x889a…88b0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0057, t01=0x00c4}
0x88b0…88c2               Head {h00=0x000e, h01=0x0050, text=» ELR A4,A9«, t00=0x0057, t01=0x00da}
0x88c2…88e6               Head {h00=0x0020, h01=0x0050, text=» LC A4,FWTFNR,A6 FILE NUMBER«, t00=0x0057, t01=0x00ec}
0x88e6…8910               Head {h00=0x0026, h01=0x0050, text=» ESR A4,A9 SET FILE NUMBER IN ECB «, t00=0x0057, t01=0x0110}
0x8910…891c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x013a}
0x891c…8926               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0146}
0x8926…893a               Head {h00=0x0010, h01=0x0050, text=»FM:270 EQU *«, t00=0x0057, t01=0x0150}
0x893a…8968               Head {h00=0x002a, h01=0x0050, text=» RF OCEXIT RETURN VIA OPEN/CLOSE EXIT «, t00=0x0057, t01=0x0164}
0x8968…8972 (88, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0004}
0x8972…898a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0058, t01=0x000e}
0x898a…8994               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0026}
0x8994…899e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0030}
0x899e…89b0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x003a}
0x89b0…89c2               Head {h00=0x000e, h01=0x0050, text=»* FMCLOS *«, t00=0x0058, t01=0x004c}
0x89c2…89d4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x005e}
0x89d4…89de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0070}
0x89de…89e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x007a}
0x89e8…8a1e               Head {h00=0x0032, h01=0x0050, text=»*   FILE MANAGEMENT ADMINISTRATION FUNCTIONS: «, t00=0x0058, t01=0x0084}
0x8a1e…8a3c               Head {h00=0x001a, h01=0x0050, text=»*   CLOSE/DELETE FILE «, t00=0x0058, t01=0x00ba}
0x8a3c…8a46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00d8}
0x8a46…8a64               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x0058, t01=0x00e2}
0x8a64…8a6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0100}
0x8a6e…8a96               Head {h00=0x0024, h01=0x0050, text=»*   CR = 0 IF CLOSE, ELSE CR > 0«, t00=0x0058, t01=0x010a}
0x8a96…8ab4               Head {h00=0x001a, h01=0x0050, text=»*   A1 = ORDER OPTION «, t00=0x0058, t01=0x0132}
0x8ab4…8ae2               Head {h00=0x002a, h01=0x0050, text=»*   A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0058, t01=0x0150}
0x8ae2…8b02               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0058, t01=0x017e}
0x8b02…8b24               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x0059, t01=0x000e}
0x8b24…8b40               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x0059, t01=0x0030}
0x8b40…8b4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x004c}
0x8b4a…8b70               Head {h00=0x0022, h01=0x0050, text=»FMCLOS EQU * CLOSE/DELETE FILE«, t00=0x0059, t01=0x0056}
0x8b70…8b7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x007c}
0x8b7a…8b96               Head {h00=0x0018, h01=0x0050, text=»* CHECK ORDER OPTION«, t00=0x0059, t01=0x0086}
0x8b96…8ba0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00a2}
0x8ba0…8bb6               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=0 «, t00=0x0059, t01=0x00ac}
0x8bb6…8be2               Head {h00=0x0028, h01=0x0050, text=» ABL(NZ) FM:RQE ILLEGAL ORDER OPTION«, t00=0x0059, t01=0x00c2}
0x8be2…8bee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x00ee}
0x8bee…8bf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00fa}
0x8bf8…8c0e               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x0059, t01=0x0104}
0x8c0e…8c2e               Head {h00=0x001c, h01=0x0050, text=» RF(Z) CLOSE CLOSE FILE «, t00=0x0059, t01=0x011a}
0x8c2e…8c40               Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0059, t01=0x013a}
0x8c40…8c62               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) DELETE DELETE FILE«, t00=0x0059, t01=0x014c}
0x8c62…8c8a               Head {h00=0x0024, h01=0x0050, text=» ABL FM:RQE ILLEGAL ORDER OPTION«, t00=0x0059, t01=0x016e}
0x8c8a…8c96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0008}
0x8c96…8ca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0014}
0x8ca0…8cb8               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x005a, t01=0x001e}
0x8cb8…8cc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0036}
0x8cc2…8ccc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0040}
0x8ccc…8cde               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005a, t01=0x004a}
0x8cde…8cf0               Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x005a, t01=0x005c}
0x8cf0…8d02               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005a, t01=0x006e}
0x8d02…8d0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0080}
0x8d0c…8d2a               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x005a, t01=0x008a}
0x8d2a…8d34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00a8}
0x8d34…8d62               Head {h00=0x002a, h01=0x0050, text=»*   A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x005a, t01=0x00b2}
0x8d62…8d82               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x005a, t01=0x00e0}
0x8d82…8da4               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x005a, t01=0x0100}
0x8da4…8dc0               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x005a, t01=0x0122}
0x8dc0…8dca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x013e}
0x8dca…8dd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0148}
0x8dd4…8df2               Head {h00=0x001a, h01=0x0050, text=»CLOSE EQU * CLOSE FILE«, t00=0x005a, t01=0x0152}
0x8df2…8e28               Head {h00=0x0032, h01=0x0050, text=» CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)«, t00=0x005a, t01=0x0170}
0x8e28…8e4c               Head {h00=0x0020, h01=0x0050, text=» ADK A4,0 CHECK RETURN CODE «, t00=0x005b, t01=0x0016}
0x8e4c…8e68               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) CL:000 ERROR«, t00=0x005b, t01=0x003a}
0x8e68…8e92               Head {h00=0x0026, h01=0x0050, text=» LD A3,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x005b, t01=0x0056}
0x8e92…8eb0               Head {h00=0x001a, h01=0x0050, text=» RF(NN) CL:005 NOT NVL«, t00=0x005b, t01=0x0080}
0x8eb0…8eda               Head {h00=0x0026, h01=0x0050, text=» LDK A4,/20 SET NVL IN RETURN CODE«, t00=0x005b, t01=0x009e}
0x8eda…8ee4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00c8}
0x8ee4…8f10               Head {h00=0x0028, h01=0x0050, text=»* ERROR AT CLOSE: CHECK HOW SERIOUS «, t00=0x005b, t01=0x00d2}
0x8f10…8f1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00fe}
0x8f1a…8f2e               Head {h00=0x0010, h01=0x0050, text=»CL:000 EQU *«, t00=0x005b, t01=0x0108}
0x8f2e…8f58               Head {h00=0x0026, h01=0x0050, text=» ORS A4,RETCOD PREPARE RETURN CODE«, t00=0x005b, t01=0x011c}
0x8f58…8f62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0146}
0x8f62…8f78               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x005b, t01=0x0150}
0x8f78…8f8c               Head {h00=0x0010, h01=0x0050, text=» SUK A4,/40 «, t00=0x005b, t01=0x0166}
0x8f8c…8fbc               Head {h00=0x002c, h01=0x0050, text=» RF(Z) OCEXIT FILE ATTACHED, DON'T CLOSE«, t00=0x005b, t01=0x017a}
0x8fbc…8fc8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x001a}
0x8fc8…8fd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0026}
0x8fd2…8ff6               Head {h00=0x0020, h01=0x0050, text=» ADK A6,0 CHECK FWT ADDRESS «, t00=0x005c, t01=0x0030}
0x8ff6…9020               Head {h00=0x0026, h01=0x0050, text=» RF(Z) OCEXIT NO FWT FOUND, RETURN«, t00=0x005c, t01=0x0054}
0x9020…9044               Head {h00=0x0020, h01=0x0050, text=» RF CL:010 DON'T WRITE VTOC «, t00=0x005c, t01=0x007e}
0x9044…904e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00a2}
0x904e…9066               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x005c, t01=0x00ac}
0x9066…9070               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00c4}
0x9070…9094               Head {h00=0x0020, h01=0x0050, text=»* MOVE FRN FROM FPB TO VTOC «, t00=0x005c, t01=0x00ce}
0x9094…909e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00f2}
0x909e…90b2               Head {h00=0x0010, h01=0x0050, text=»CL:005 EQU *«, t00=0x005c, t01=0x00fc}
0x90b2…90c8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005c, t01=0x0110}
0x90c8…90de               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x005c, t01=0x0126}
0x90de…910a               Head {h00=0x0028, h01=0x0050, text=» LD A1,FPB:FR,A10 FILE RECORD NUMBER«, t00=0x005c, t01=0x013c}
0x910a…9126               Head {h00=0x0018, h01=0x0050, text=» LD A2,FPB:FR+2,A10 «, t00=0x005c, t01=0x0168}
0x9126…9156               Head {h00=0x002c, h01=0x0050, text=» ST A1,VTC:LR,A13 SET LRN IN VTOC RECORD«, t00=0x005c, t01=0x0184}
0x9156…9172               Head {h00=0x0018, h01=0x0050, text=» ST A2,VTC:LR+2,A13 «, t00=0x005d, t01=0x0024}
0x9172…917e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x0040}
0x917e…9188               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x004c}
0x9188…919e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005d, t01=0x0056}
0x919e…91b4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005d, t01=0x006c}
0x91b4…91e0               Head {h00=0x0028, h01=0x0050, text=» ML 2,FPB:FR,A10 FILE RECORD NUMBER «, t00=0x005d, t01=0x0082}
0x91e0…9210               Head {h00=0x002c, h01=0x0050, text=» MS 2,VTC:LR,A13 SET LRN IN VTOC RECORD «, t00=0x005d, t01=0x00ae}
0x9210…921c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x00de}
0x921c…9226               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00ea}
0x9226…923c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005d, t01=0x00f4}
0x923c…9268               Head {h00=0x0028, h01=0x0050, text=» EL A1,FPB:FR,A10 FILE RECORD NUMBER«, t00=0x005d, t01=0x010a}
0x9268…9284               Head {h00=0x0018, h01=0x0050, text=» EL A2,FPB:FR+2,A10 «, t00=0x005d, t01=0x0136}
0x9284…92b4               Head {h00=0x002c, h01=0x0050, text=» MS 2,VTC:LR,A13 SET LRN IN VTOC RECORD «, t00=0x005d, t01=0x0152}
0x92b4…92c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x0182}
0x92c0…92ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x018e}
0x92ca…9310               Head {h00=0x0042, h01=0x0050, text=»* WRITE VTOC TO DISC WITH NEW FILE RECORD NUMBER IF REQUESTED «, t00=0x005e, t01=0x0008}
0x9310…931a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x004e}
0x931a…9346               Head {h00=0x0028, h01=0x0050, text=» ORR A1,A2 CHECK FILE RECORD NUMBER «, t00=0x005e, t01=0x0058}
0x9346…9376               Head {h00=0x002c, h01=0x0050, text=» RF(Z) CL:010 FRN ZERO, DON'T WRITE VTOC«, t00=0x005e, t01=0x0084}
0x9376…9398               Head {h00=0x001e, h01=0x0050, text=» LDK A7,/95 PHYSICAL WRITE«, t00=0x005e, t01=0x00b4}
0x9398…93c8               Head {h00=0x002c, h01=0x0050, text=» CF A14,FM:IO WRITE VTOC RECORD TO DISC «, t00=0x005e, t01=0x00d6}
0x93c8…93d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0106}
0x93d2…93ea               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x005e, t01=0x0110}
0x93ea…93f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0128}
0x93f4…942e               Head {h00=0x0036, h01=0x0050, text=»* DECREMENT NUMBER OF USERS FOR THIS FILE BY ONE. «, t00=0x005e, t01=0x0132}
0x942e…9464               Head {h00=0x0032, h01=0x0050, text=»* FWT AND EWT ARE RELEASED IF NO USER REMAINS.«, t00=0x005e, t01=0x016c}
0x9464…946e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0012}
0x946e…9482               Head {h00=0x0010, h01=0x0050, text=»CL:010 EQU *«, t00=0x005f, t01=0x001c}
0x9482…94ac               Head {h00=0x0026, h01=0x0050, text=» LC A1,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x005f, t01=0x0030}
0x94ac…94be               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x005f, t01=0x005a}
0x94be…94e2               Head {h00=0x0020, h01=0x0050, text=» ANK A2,/3F NUMBER OF USERS «, t00=0x005f, t01=0x006c}
0x94e2…9510               Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 DECREMENT NO OF USERS BY ONE«, t00=0x005f, t01=0x0090}
0x9510…951a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00be}
0x951a…9530               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005f, t01=0x00c8}
0x9530…9566               Head {h00=0x0032, h01=0x0050, text=» SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS«, t00=0x005f, t01=0x00de}
0x9566…9572               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0114}
0x9572…957c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0120}
0x957c…9592               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005f, t01=0x012a}
0x9592…95ac               Head {h00=0x0016, h01=0x0050, text=» EL A3,FPB:US,A10 «, t00=0x005f, t01=0x0140}
0x95ac…95c0               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x005f, t01=0x015a}
0x95c0…95f0               Head {h00=0x002c, h01=0x0050, text=» ECR A2,A2 NUMBER OF USERS TO LEFT BYTE «, t00=0x005f, t01=0x016e}
0x95f0…9602               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A2«, t00=0x0060, t01=0x000e}
0x9602…9638               Head {h00=0x0032, h01=0x0050, text=» ES A3,FPB:US,A10 RETURN REMAINING NO OF USERS«, t00=0x0060, t01=0x0020}
0x9638…9668               Head {h00=0x002c, h01=0x0050, text=» SRL A2,8 NUMBER OF USERS TO RIGHT BYTE «, t00=0x0060, t01=0x0056}
0x9668…9674               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0086}
0x9674…967e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0092}
0x967e…96b6               Head {h00=0x0034, h01=0x0050, text=» RF(P) DLCLO2 DON'T RELEASE FWT IF ANY USER LEFT«, t00=0x0060, t01=0x009c}
0x96b6…96c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00d4}
0x96c0…96d8               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0060, t01=0x00de}
0x96d8…96e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00f6}
0x96e2…96ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0100}
0x96ec…96fe               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x010a}
0x96fe…9710               Head {h00=0x000e, h01=0x0050, text=»* DLCLO1 *«, t00=0x0060, t01=0x011c}
0x9710…9722               Head {h00=0x000e, h01=0x0050, text=»* OPCLOS *«, t00=0x0060, t01=0x012e}
0x9722…9734               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x0140}
0x9734…973e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0152}
0x973e…9748               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x015c}
0x9748…976e               Head {h00=0x0022, h01=0x0050, text=»*   RELEASE FWT AND EWT BLOCKS«, t00=0x0060, t01=0x0166}
0x976e…9778               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x018c}
0x9778…979c               Head {h00=0x0020, h01=0x0050, text=»*   INPUT:  A6 = FWT ADDRESS«, t00=0x0061, t01=0x0008}
0x979c…97c6               Head {h00=0x0026, h01=0x0050, text=»*           A9 = USER ECB ADDRESS «, t00=0x0061, t01=0x002c}
0x97c6…97d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0056}
0x97d0…97fe               Head {h00=0x002a, h01=0x0050, text=»DLCLO1 EQU * ENTRY USED BY DELETE FILE«, t00=0x0061, t01=0x0060}
0x97fe…9810               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0061, t01=0x008e}
0x9810…983a               Head {h00=0x0026, h01=0x0050, text=» XRRS A2,A6 RESET USED BIT IN FWT «, t00=0x0061, t01=0x00a0}
0x983a…9844               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00ca}
0x9844…9870               Head {h00=0x0028, h01=0x0050, text=»OPCLOS EQU * ENTRY USED BY OPEN FILE«, t00=0x0061, t01=0x00d4}
0x9870…98a8               Head {h00=0x0034, h01=0x0050, text=» LD A4,FWTEW2,A6 ADDRESS TO FIRST EWT STRUCTURE «, t00=0x0061, t01=0x0100}
0x98a8…98d8               Head {h00=0x002c, h01=0x0050, text=» RF(Z) CL:030 NO MORE BLOCKS TO RELEASE «, t00=0x0061, t01=0x0138}
0x98d8…98e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0168}
0x98e2…9914               Head {h00=0x002e, h01=0x0050, text=»* RETURN EWT BLOCKS TO MONITOR BLOCK POOL «, t00=0x0061, t01=0x0172}
0x9914…991e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0014}
0x991e…9932               Head {h00=0x0010, h01=0x0050, text=»CL:020 EQU *«, t00=0x0062, t01=0x001e}
0x9932…993e               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0062, t01=0x0032}
0x993e…9966               Head {h00=0x0024, h01=0x0050, text=» CF A15,FREBLK RELEASE EWT BLOCK«, t00=0x0062, t01=0x003e}
0x9966…9972               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0062, t01=0x0066}
0x9972…9996               Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 EWT BLOCK ADDRESS«, t00=0x0062, t01=0x0072}
0x9996…99ac               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) CL:020«, t00=0x0062, t01=0x0096}
0x99ac…99de               Head {h00=0x002e, h01=0x0050, text=» CM FWTEW2,A6 RESET EWT STRUCTURE POINTER «, t00=0x0062, t01=0x00ac}
0x99de…99e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00de}
0x99e8…99fc               Head {h00=0x0010, h01=0x0050, text=»CL:030 EQU *«, t00=0x0062, t01=0x00e8}
0x99fc…9a2a               Head {h00=0x002a, h01=0x0050, text=» CM FWTVTC,A6 RESET VTOC SECTOR NUMBER«, t00=0x0062, t01=0x00fc}
0x9a2a…9a44               Head {h00=0x0016, h01=0x0050, text=» RF CL:050 RETURN «, t00=0x0062, t01=0x012a}
0x9a44…9a4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0144}
0x9a4e…9a66               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0062, t01=0x014e}
0x9a66…9a70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0166}
0x9a70…9a7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0170}
0x9a7a…9aa8               Head {h00=0x002a, h01=0x0050, text=»DLCLO2 EQU * ENTRY USED BY DELETE FILE«, t00=0x0062, t01=0x017a}
0x9aa8…9ad0               Head {h00=0x0024, h01=0x0050, text=» ANK A1,/C0 SKIP NUMBER OF USERS«, t00=0x0063, t01=0x0018}
0x9ad0…9b02               Head {h00=0x002e, h01=0x0050, text=» ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS «, t00=0x0063, t01=0x0040}
0x9b02…9b1a               Head {h00=0x0014, h01=0x0050, text=» SC A1,FWTPAR,A6«, t00=0x0063, t01=0x0072}
0x9b1a…9b24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x008a}
0x9b24…9b3a               Head {h00=0x0012, h01=0x0050, text=»* DETACH FILE «, t00=0x0063, t01=0x0094}
0x9b3a…9b44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00aa}
0x9b44…9b58               Head {h00=0x0010, h01=0x0050, text=»CL:050 EQU *«, t00=0x0063, t01=0x00b4}
0x9b58…9b6e               Head {h00=0x0012, h01=0x0050, text=» IFT FMCDEF=1 «, t00=0x0063, t01=0x00c8}
0x9b6e…9b9e               Head {h00=0x002c, h01=0x0050, text=» LD A5,TTAB TTAB ADDRESS OF CALLING TASK«, t00=0x0063, t01=0x00de}
0x9b9e…9baa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x010e}
0x9baa…9bb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x011a}
0x9bb4…9bca               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x0063, t01=0x0124}
0x9bca…9bd6               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0063, t01=0x013a}
0x9bd6…9bf8               Head {h00=0x001e, h01=0x0050, text=» CF A15,DET:FM DETACH FILE«, t00=0x0063, t01=0x0146}
0x9bf8…9c04               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0168}
0x9c04…9c0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0174}
0x9c0e…9c40               Head {h00=0x002e, h01=0x0050, text=»OCEXIT EQU * OPEN/CLOSE COMMON EXIT LABEL «, t00=0x0063, t01=0x017e}
0x9c40…9c54               Head {h00=0x0010, h01=0x0050, text=» ABL FMEXIT «, t00=0x0064, t01=0x0020}
0x9c54…9c5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0034}
0x9c5e…9c76               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0064, t01=0x003e}
0x9c76…9c80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0056}
0x9c80…9c8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0060}
0x9c8a…9c9c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0064, t01=0x006a}
0x9c9c…9cae               Head {h00=0x000e, h01=0x0050, text=»* FMRPAR *«, t00=0x0064, t01=0x007c}
0x9cae…9cc0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0064, t01=0x008e}
0x9cc0…9cca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00a0}
0x9cca…9cd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00aa}
0x9cd4…9d0a               Head {h00=0x0032, h01=0x0050, text=»*   FILE MANAGEMENT ADMINISTRATION FUNCTIONS: «, t00=0x0064, t01=0x00b4}
0x9d0a…9d2a               Head {h00=0x001c, h01=0x0050, text=»*   READ FILE PARAMETERS«, t00=0x0064, t01=0x00ea}
0x9d2a…9d34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x010a}
0x9d34…9d52               Head {h00=0x001a, h01=0x0050, text=»*   ENTRY PARAMETERS: «, t00=0x0064, t01=0x0114}
0x9d52…9d5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0132}
0x9d5c…9d84               Head {h00=0x0024, h01=0x0050, text=»*   CR = 0 IF LEGAL ORDER OPTION«, t00=0x0064, t01=0x013c}
0x9d84…9da2               Head {h00=0x001a, h01=0x0050, text=»*   A1 = ORDER OPTION «, t00=0x0064, t01=0x0164}
0x9da2…9dd0               Head {h00=0x002a, h01=0x0050, text=»*   A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0064, t01=0x0182}
0x9dd0…9df0               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0065, t01=0x0020}
0x9df0…9e12               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x0065, t01=0x0040}
0x9e12…9e2e               Head {h00=0x0018, h01=0x0050, text=»*  A10 = FPB ADDRESS«, t00=0x0065, t01=0x0062}
0x9e2e…9e38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x007e}
0x9e38…9e62               Head {h00=0x0026, h01=0x0050, text=»FMRPAR EQU * READ FILE PARAMETERS «, t00=0x0065, t01=0x0088}
0x9e62…9e6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00b2}
0x9e6c…9e88               Head {h00=0x0018, h01=0x0050, text=»* CHECK ORDER OPTION«, t00=0x0065, t01=0x00bc}
0x9e88…9e92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00d8}
0x9e92…9ebe               Head {h00=0x0028, h01=0x0050, text=» ABL(NZ) FM:RQE ILLEGAL ORDER OPTION«, t00=0x0065, t01=0x00e2}
0x9ebe…9ec8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x010e}
0x9ec8…9ede               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0065, t01=0x0118}
0x9ede…9f0a               Head {h00=0x0028, h01=0x0050, text=» LDKL A10,FM:FPB SYSTEM FPB ADDRESS «, t00=0x0065, t01=0x012e}
0x9f0a…9f16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x015a}
0x9f16…9f20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0166}
0x9f20…9f38               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0065, t01=0x0170}
0x9f38…9f42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0188}
0x9f42…9f4c (102, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0004}
0x9f4c…9f82               Head {h00=0x0032, h01=0x0050, text=» CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)«, t00=0x0066, t01=0x000e}
0x9f82…9fa6               Head {h00=0x0020, h01=0x0050, text=» ADK A4,0 CHECK RETURN CODE «, t00=0x0066, t01=0x0044}
0x9fa6…9fca               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) FMEXIT ERROR, RETURN«, t00=0x0066, t01=0x0068}
0x9fca…a000               Head {h00=0x0032, h01=0x0050, text=» SC A4,FPB:BO,A10 RESET BASIC ORDER PARAMETER «, t00=0x0066, t01=0x008c}
0xa000…a00a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00c2}
0xa00a…a030               Head {h00=0x0022, h01=0x0050, text=»* MOVE SPACES TO VOLUME NAMES «, t00=0x0066, t01=0x00cc}
0xa030…a058               Head {h00=0x0024, h01=0x0050, text=»* AND RESET FILE SECTION SIZES. «, t00=0x0066, t01=0x00f2}
0xa058…a062               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x011a}
0xa062…a078               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0066, t01=0x0124}
0xa078…a098               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A10 FPB ADDRESS «, t00=0x0066, t01=0x013a}
0xa098…a0be               Head {h00=0x0022, h01=0x0050, text=» ADK A1,FPB:V1 1ST VOLUME NAME«, t00=0x0066, t01=0x015a}
0xa0be…a0e8               Head {h00=0x0026, h01=0x0050, text=» LDK A2,4 LOOP COUNTER, OUTER LOOP«, t00=0x0066, t01=0x0180}
0xa0e8…a102               Head {h00=0x0016, h01=0x0050, text=» LDK A4,/20 SPACE «, t00=0x0067, t01=0x001a}
0xa102…a10c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0034}
0xa10c…a132               Head {h00=0x0022, h01=0x0050, text=»FMR:02 EQU * OUTER LOOP ENTRY «, t00=0x0067, t01=0x003e}
0xa132…a15c               Head {h00=0x0026, h01=0x0050, text=» LDK A3,6 LOOP COUNTER, INNER LOOP«, t00=0x0067, t01=0x0064}
0xa15c…a166               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x008e}
0xa166…a18c               Head {h00=0x0022, h01=0x0050, text=»FMR:04 EQU * INNER LOOP ENTRY «, t00=0x0067, t01=0x0098}
0xa18c…a1ba               Head {h00=0x002a, h01=0x0050, text=» SCR A4,A1 MOVE SPACES TO VOLUME NAME «, t00=0x0067, t01=0x00be}
0xa1ba…a1cc               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0067, t01=0x00ec}
0xa1cc…a1de               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0067, t01=0x00fe}
0xa1de…a1f4               Head {h00=0x0012, h01=0x0050, text=» RB(P) FMR:04 «, t00=0x0067, t01=0x0110}
0xa1f4…a21c               Head {h00=0x0024, h01=0x0050, text=» CMR A1 RESET FILE SECTION SIZE «, t00=0x0067, t01=0x0126}
0xa21c…a22c               Head {h00=0x000c, h01=0x0050, text=» CM 2,A1«, t00=0x0067, t01=0x014e}
0xa22c…a25a               Head {h00=0x002a, h01=0x0050, text=» ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME«, t00=0x0067, t01=0x015e}
0xa25a…a26c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0067, t01=0x018c}
0xa26c…a282               Head {h00=0x0012, h01=0x0050, text=» RB(P) FMR:02 «, t00=0x0068, t01=0x000e}
0xa282…a28e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0024}
0xa28e…a298               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0030}
0xa298…a2ae               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0068, t01=0x003a}
0xa2ae…a2bc               Head {h00=0x000a, h01=0x0050, text=» MLK 3«, t00=0x0068, t01=0x0050}
0xa2bc…a2dc               Head {h00=0x001c, h01=0x0050, text=» DATA /2020,/2020,/2020 «, t00=0x0068, t01=0x005e}
0xa2dc…a302               Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 (A4 = 0 FROM RDVTOC)«, t00=0x0068, t01=0x007e}
0xa302…a31a               Head {h00=0x0014, h01=0x0050, text=» MS 5,FPB:V1,A10«, t00=0x0068, t01=0x00a4}
0xa31a…a332               Head {h00=0x0014, h01=0x0050, text=» MS 5,FPB:V2,A10«, t00=0x0068, t01=0x00bc}
0xa332…a34a               Head {h00=0x0014, h01=0x0050, text=» MS 5,FPB:V3,A10«, t00=0x0068, t01=0x00d4}
0xa34a…a362               Head {h00=0x0014, h01=0x0050, text=» MS 5,FPB:V4,A10«, t00=0x0068, t01=0x00ec}
0xa362…a36e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0104}
0xa36e…a378               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0110}
0xa378…a390               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0068, t01=0x011a}
0xa390…a39a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0132}
0xa39a…a3cc               Head {h00=0x002e, h01=0x0050, text=»* MOVE PARAMETERS FROM VTOC AND FWT TO FPB«, t00=0x0068, t01=0x013c}
0xa3cc…a3d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x016e}
0xa3d6…a3ec               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0068, t01=0x0178}
0xa3ec…a414               Head {h00=0x0024, h01=0x0050, text=» LD A1,VTC:RL,A13 RECORD LENGTH «, t00=0x0068, t01=0x018e}
0xa414…a428               Head {h00=0x0010, h01=0x0050, text=» STR A1,A10 «, t00=0x0069, t01=0x0026}
0xa428…a464               Head {h00=0x0038, h01=0x0050, text=» LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION«, t00=0x0069, t01=0x003a}
0xa464…a47e               Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:BF,A10 «, t00=0x0069, t01=0x0076}
0xa47e…a4aa               Head {h00=0x0028, h01=0x0050, text=» LD A1,VTC:LR,A13 LAST RECORD NUMBER«, t00=0x0069, t01=0x0090}
0xa4aa…a4c4               Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:FR,A10 «, t00=0x0069, t01=0x00bc}
0xa4c4…a4ec               Head {h00=0x0024, h01=0x0050, text=» LD A1,VTC:LR+2,A13 LRN, PART 2 «, t00=0x0069, t01=0x00d6}
0xa4ec…a508               Head {h00=0x0018, h01=0x0050, text=» ST A1,FPB:FR+2,A10 «, t00=0x0069, t01=0x00fe}
0xa508…a540               Head {h00=0x0034, h01=0x0050, text=» LD A1,VTC:MN,A13 MONITOR AND SOP SWITCH NUMBER «, t00=0x0069, t01=0x011a}
0xa540…a552               Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x0069, t01=0x0152}
0xa552…a580               Head {h00=0x002a, h01=0x0050, text=» SC A1,FPB:MN,A10 STORE MONITOR NUMBER«, t00=0x0069, t01=0x0164}
0xa580…a5b0 (106, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LC A1,VTC:IF,A13 NUMBER OF INDEX FILES «, t00=0x006a, t01=0x0004}
0xa5b0…a5ca               Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:IF,A10 «, t00=0x006a, t01=0x0034}
0xa5ca…a5fa               Head {h00=0x002c, h01=0x0050, text=» LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD «, t00=0x006a, t01=0x004e}
0xa5fa…a614               Head {h00=0x0016, h01=0x0050, text=» ST A1,FPB:KA,A10 «, t00=0x006a, t01=0x007e}
0xa614…a620               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x0098}
0xa620…a62a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00a4}
0xa62a…a640               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x006a, t01=0x00ae}
0xa640…a67c               Head {h00=0x0038, h01=0x0050, text=» ML 4,VTC:LR,A13 LRN, RECORD LENGTH AND BLOCK FACTOR«, t00=0x006a, t01=0x00c4}
0xa67c…a694               Head {h00=0x0014, h01=0x0050, text=» MS 2,FPB:FR,A10«, t00=0x006a, t01=0x0100}
0xa694…a6a8               Head {h00=0x0010, h01=0x0050, text=» STR A3,A10 «, t00=0x006a, t01=0x0118}
0xa6a8…a6c2               Head {h00=0x0016, h01=0x0050, text=» ST A4,FPB:BF,A10 «, t00=0x006a, t01=0x012c}
0xa6c2…a6fa               Head {h00=0x0034, h01=0x0050, text=» LD A1,VTC:MN,A13 MONITOR AND SOP SWITCH NUMBER «, t00=0x006a, t01=0x0146}
0xa6fa…a70c               Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x006a, t01=0x017e}
0xa70c…a71e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x006a, t01=0x0190}
0xa71e…a74e               Head {h00=0x002c, h01=0x0050, text=» LC A2,VTC:IF,A13 NUMBER OF INDEX FILES «, t00=0x006b, t01=0x0012}
0xa74e…a77e               Head {h00=0x002c, h01=0x0050, text=» LD A3,VTC:KA,A13 KEY ADDRESS IN RECORD «, t00=0x006b, t01=0x0042}
0xa77e…a796               Head {h00=0x0014, h01=0x0050, text=» MS 3,FPB:MN,A10«, t00=0x006b, t01=0x0072}
0xa796…a7a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x008a}
0xa7a2…a7ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0096}
0xa7ac…a7c2               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=1 «, t00=0x006b, t01=0x00a0}
0xa7c2…a7f2               Head {h00=0x002c, h01=0x0050, text=» LD A1,FWTTAB,A6 SHAREABILITY PARAMETER «, t00=0x006b, t01=0x00b6}
0xa7f2…a814               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FMR:05 NOT ATTACHED«, t00=0x006b, t01=0x00e6}
0xa814…a826               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x006b, t01=0x0108}
0xa826…a832               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x011a}
0xa832…a83c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0126}
0xa83c…a852               Head {h00=0x0012, h01=0x0050, text=» IFT ATTDET=0 «, t00=0x006b, t01=0x0130}
0xa852…a870               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 NOT ATTACHED«, t00=0x006b, t01=0x0146}
0xa870…a87c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0164}
0xa87c…a886               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0170}
0xa886…a89a               Head {h00=0x0010, h01=0x0050, text=»FMR:05 EQU *«, t00=0x006b, t01=0x017a}
0xa89a…a8c8               Head {h00=0x002a, h01=0x0050, text=» SC A1,FPB:SH,A10 SET ATTACH PARAMETER«, t00=0x006b, t01=0x018e}
0xa8c8…a8d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x002c}
0xa8d2…a8ea               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x006c, t01=0x0036}
0xa8ea…a8f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x004e}
0xa8f4…a8fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0058}
0xa8fe…a928               Head {h00=0x0026, h01=0x0050, text=» LD A1,FWTPAR,A6 ACCESS PARAMETERS«, t00=0x006c, t01=0x0062}
0xa928…a93a               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x006c, t01=0x008c}
0xa93a…a96e               Head {h00=0x0030, h01=0x0050, text=» RF(NN) FMR:10 PHYSICAL ORDERS FOR THIS FILE«, t00=0x006c, t01=0x009e}
0xa96e…a980               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x006c, t01=0x00d2}
0xa980…a9b0               Head {h00=0x002c, h01=0x0050, text=» SC A2,FPB:BO,A10 INDICATE BASIC ORDERS «, t00=0x006c, t01=0x00e4}
0xa9b0…a9ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0114}
0xa9ba…a9ce               Head {h00=0x0010, h01=0x0050, text=»FMR:10 EQU *«, t00=0x006c, t01=0x011e}
0xa9ce…a9e0               Head {h00=0x000e, h01=0x0050, text=» SLC A1,7 «, t00=0x006c, t01=0x0132}
0xa9e0…aa04               Head {h00=0x0020, h01=0x0050, text=» ANK A1,/3F NUMBER OF USERS «, t00=0x006c, t01=0x0144}
0xaa04…aa1e               Head {h00=0x0016, h01=0x0050, text=» SC A1,FPB:US,A10 «, t00=0x006c, t01=0x0168}
0xaa1e…aa28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0182}
0xaa28…aa5a               Head {h00=0x002e, h01=0x0050, text=»* MOVE CREATION DATE AND RETENTION PERIOD «, t00=0x006c, t01=0x018c}
0xaa5a…aa64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x002e}
0xaa64…aa84               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A13 VTOC ADDRESS«, t00=0x006d, t01=0x0038}
0xaa84…aa9a               Head {h00=0x0012, h01=0x0050, text=» ADK A1,VTC:CD«, t00=0x006d, t01=0x0058}
0xaa9a…aaba               Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 FPB ADDRESS «, t00=0x006d, t01=0x006e}
0xaaba…aad0               Head {h00=0x0012, h01=0x0050, text=» ADK A3,FPB:CD«, t00=0x006d, t01=0x008e}
0xaad0…aafa               Head {h00=0x0026, h01=0x0050, text=» LDK A2,9 NO OF CHARACTERS TO MOVE«, t00=0x006d, t01=0x00a4}
0xaafa…ab38               Head {h00=0x003a, h01=0x0050, text=» CF A14,FM:MOV MOVE CREATION DATE AND RETENTION PERIOD«, t00=0x006d, t01=0x00ce}
0xab38…ab42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x010c}
0xab42…ab6a               Head {h00=0x0024, h01=0x0050, text=»* MOVE FILE NAME FROM FWT TO FPB«, t00=0x006d, t01=0x0116}
0xab6a…ab74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x013e}
0xab74…ab92               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FWT ADDRESS«, t00=0x006d, t01=0x0148}
0xab92…aba8               Head {h00=0x0012, h01=0x0050, text=» ADK A1,FWTNAM«, t00=0x006d, t01=0x0166}
0xaba8…abda               Head {h00=0x002e, h01=0x0050, text=» SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME«, t00=0x006d, t01=0x017c}
0xabda…ac00               Head {h00=0x0022, h01=0x0050, text=» CF A14,FM:MV8 MOVE FILE NAME «, t00=0x006e, t01=0x001e}
0xac00…ac36               Head {h00=0x0032, h01=0x0050, text=» ADK A6,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE «, t00=0x006e, t01=0x0044}
0xac36…ac4a               Head {h00=0x0010, h01=0x0050, text=» LDR A11,A6 «, t00=0x006e, t01=0x007a}
0xac4a…ac78               Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK«, t00=0x006e, t01=0x008e}
0xac78…ac82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00bc}
0xac82…ac9a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x006e, t01=0x00c6}
0xac9a…aca4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00de}
0xaca4…acce               Head {h00=0x0026, h01=0x0050, text=»* MOVE VOLUME NAME FROM DWT TO FPB«, t00=0x006e, t01=0x00e8}
0xacce…acd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0112}
0xacd8…acec               Head {h00=0x0010, h01=0x0050, text=»FMR:20 EQU *«, t00=0x006e, t01=0x011c}
0xacec…ad0c               Head {h00=0x001c, h01=0x0050, text=» LDR A3,A10 FPB ADDRESS «, t00=0x006e, t01=0x0130}
0xad0c…ad26               Head {h00=0x0016, h01=0x0050, text=» ADK A3,FPB:V1-10 «, t00=0x006e, t01=0x0150}
0xad26…ad5e               Head {h00=0x0034, h01=0x0050, text=» LD A1,EWTSEX,A11 FILE SECTION AND EXTENT NUMBER«, t00=0x006e, t01=0x016a}
0xad5e…ad70               Head {h00=0x000e, h01=0x0050, text=» SLC A1,2 «, t00=0x006f, t01=0x0012}
0xad70…ad96               Head {h00=0x0022, h01=0x0050, text=» ANK A1,3 FILE SECTION NUMBER «, t00=0x006f, t01=0x0024}
0xad96…ada0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x004a}
0xada0…adb4               Head {h00=0x0010, h01=0x0050, text=»FMR:30 EQU *«, t00=0x006f, t01=0x0054}
0xadb4…adf2               Head {h00=0x003a, h01=0x0050, text=» ADK A3,FPB:V2-FPB:V1 COMPUTE VOLUME NAME DISPLACEMENT«, t00=0x006f, t01=0x0068}
0xadf2…ae04               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006f, t01=0x00a6}
0xae04…ae1a               Head {h00=0x0012, h01=0x0050, text=» RB(NN) FMR:30«, t00=0x006f, t01=0x00b8}
0xae1a…ae42               Head {h00=0x0024, h01=0x0050, text=» LC A2,EWTVOL,A12 DISC FILE CODE«, t00=0x006f, t01=0x00ce}
0xae42…ae64               Head {h00=0x001e, h01=0x0050, text=» LDR A13,A2 SAVE FILE CODE«, t00=0x006f, t01=0x00f6}
0xae64…ae94               Head {h00=0x002c, h01=0x0050, text=» CF A14,FNDNAM FIND VOLUME NAME ADDRESS «, t00=0x006f, t01=0x0118}
0xae94…aebc               Head {h00=0x0024, h01=0x0050, text=» CF A14,FM:MOV MOVE VOLUME NAME «, t00=0x006f, t01=0x0148}
0xaebc…aec6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0170}
0xaec6…aedc               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x006f, t01=0x017a}
0xaedc…af0a               Head {h00=0x002a, h01=0x0050, text=» LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH«, t00=0x006f, t01=0x0190}
0xaf0a…af1e               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0070, t01=0x002e}
0xaf1e…af38               Head {h00=0x0016, h01=0x0050, text=» LD A2,EWTEXL,A11 «, t00=0x0070, t01=0x0042}
0xaf38…af44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x005c}
0xaf44…af4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0068}
0xaf4e…af64               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0070, t01=0x0072}
0xaf64…af92               Head {h00=0x002a, h01=0x0050, text=» ML 2,EWTEXL-2,A11 FILE EXTENT LENGTH «, t00=0x0070, t01=0x0088}
0xaf92…afa6               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0070, t01=0x00b6}
0xafa6…afb2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x00ca}
0xafb2…afbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00d6}
0xafbc…afd4               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0070, t01=0x00e0}
0xafd4…afde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00f8}
0xafde…b002               Head {h00=0x0020, h01=0x0050, text=»* COMPUTE FILE SECTION SIZE «, t00=0x0070, t01=0x0102}
0xb002…b00c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0126}
0xb00c…b020               Head {h00=0x0010, h01=0x0050, text=»FMR:35 EQU *«, t00=0x0070, t01=0x0130}
0xb020…b054               Head {h00=0x0030, h01=0x0050, text=» LDR* A11,A12 ADDRESS TO NEXT EWT STRUCTURE «, t00=0x0070, t01=0x0144}
0xb054…b07a               Head {h00=0x0022, h01=0x0050, text=» RF(Z) FMR:50 END OF EWT CHAIN«, t00=0x0070, t01=0x0178}
0xb07a…b0a8               Head {h00=0x002a, h01=0x0050, text=» LD A6,EWTEXL-2,A11 FILE EXTENT LENGTH«, t00=0x0071, t01=0x000e}
0xb0a8…b0bc               Head {h00=0x0010, h01=0x0050, text=» ANK A6,/FF «, t00=0x0071, t01=0x003c}
0xb0bc…b0d6               Head {h00=0x0016, h01=0x0050, text=» LD A7,EWTEXL,A11 «, t00=0x0071, t01=0x0050}
0xb0d6…b104               Head {h00=0x002a, h01=0x0050, text=» LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK«, t00=0x0071, t01=0x006a}
0xb104…b12e               Head {h00=0x0026, h01=0x0050, text=» CC A13,EWTVOL,A12 CHECK FILE CODE«, t00=0x0071, t01=0x0098}
0xb12e…b15e               Head {h00=0x002c, h01=0x0050, text=» RF(NE) FMR:50 END OF THIS FILE SECTION «, t00=0x0071, t01=0x00c2}
0xb15e…b168               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00f2}
0xb168…b17e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0071, t01=0x00fc}
0xb17e…b1ac               Head {h00=0x002a, h01=0x0050, text=» DAR A6 ACKUMULATE FILE SECTION LENGTH«, t00=0x0071, t01=0x0112}
0xb1ac…b1be               Head {h00=0x000e, h01=0x0050, text=» RB FMR:35«, t00=0x0071, t01=0x0140}
0xb1be…b1c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0152}
0xb1c8…b1dc               Head {h00=0x0010, h01=0x0050, text=»FMR:50 EQU *«, t00=0x0071, t01=0x015c}
0xb1dc…b20c               Head {h00=0x002c, h01=0x0050, text=» MSR 2,A3 STORE FILE SECTION SIZE IN FPB«, t00=0x0071, t01=0x0170}
0xb20c…b218               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0010}
0xb218…b222               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x001c}
0xb222…b238               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0072, t01=0x0026}
0xb238…b26a               Head {h00=0x002e, h01=0x0050, text=» ADR A1,A6 ACKUMULATE FILE SECTION LENGTH «, t00=0x0072, t01=0x003c}
0xb26a…b27c               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x0072, t01=0x006e}
0xb27c…b29a               Head {h00=0x001a, h01=0x0050, text=» RF(O) FMR:45 OVERFLOW«, t00=0x0072, t01=0x0080}
0xb29a…b2ac               Head {h00=0x000e, h01=0x0050, text=» RB FMR:35«, t00=0x0072, t01=0x009e}
0xb2ac…b2b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00b0}
0xb2b6…b2ca               Head {h00=0x0010, h01=0x0050, text=»FMR:45 EQU *«, t00=0x0072, t01=0x00ba}
0xb2ca…b2f0               Head {h00=0x0022, h01=0x0050, text=» ADK A1,1 OVERFLOW CORRECTION «, t00=0x0072, t01=0x00ce}
0xb2f0…b306               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x0072, t01=0x00f4}
0xb306…b318               Head {h00=0x000e, h01=0x0050, text=» RB FMR:35«, t00=0x0072, t01=0x010a}
0xb318…b322               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x011c}
0xb322…b336               Head {h00=0x0010, h01=0x0050, text=»FMR:50 EQU *«, t00=0x0072, t01=0x0126}
0xb336…b368               Head {h00=0x002e, h01=0x0050, text=» STR A1,A3 STORE FILE SECTION SIZE IN FPB «, t00=0x0072, t01=0x013a}
0xb368…b37c               Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A3 «, t00=0x0072, t01=0x016c}
0xb37c…b388               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0180}
0xb388…b392               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x018c}
0xb392…b3be               Head {h00=0x0028, h01=0x0050, text=» LDR A4,A11 CHECK EWT BLOCK ADDRESS «, t00=0x0073, t01=0x0008}
0xb3be…b3ea               Head {h00=0x0028, h01=0x0050, text=» RB(NZ) FMR:20 NOT END OF EWT CHAIN «, t00=0x0073, t01=0x0034}
0xb3ea…b3f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0060}
0xb3f4…b40c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0073, t01=0x006a}
0xb40c…b416               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0082}
0xb416…b420               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x008c}
0xb420…b436               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0073, t01=0x0096}
0xb436…b440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00ac}
0xb440…b470               Head {h00=0x002c, h01=0x0050, text=»*   MOVE SYSTEM FPB (FM:FPB) TO USER FPB«, t00=0x0073, t01=0x00b6}
0xb470…b47a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00e6}
0xb47a…b4a4               Head {h00=0x0026, h01=0x0050, text=»*   INPUT:  A9 = USER ECB ADDRESS «, t00=0x0073, t01=0x00f0}
0xb4a4…b4cc               Head {h00=0x0024, h01=0x0050, text=»*          A10 = FM:FPB ADDRESS «, t00=0x0073, t01=0x011a}
0xb4cc…b4d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0142}
0xb4d6…b4f8               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A10 FM:FPB ADDRESS«, t00=0x0073, t01=0x014c}
0xb4f8…b520               Head {h00=0x0024, h01=0x0050, text=» EL A2,ECBBA,A9 USER FPB ADDRESS«, t00=0x0073, t01=0x016e}
0xb520…b542               Head {h00=0x001e, h01=0x0050, text=» LDK A3,FPBLEN  FPB LENGTH«, t00=0x0074, t01=0x0008}
0xb542…b56a               Head {h00=0x0024, h01=0x0050, text=» MVSU A3 MOVE FM:FPB TO USER FPB«, t00=0x0074, t01=0x002a}
0xb56a…b576               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x0052}
0xb576…b580               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x005e}
0xb580…b598               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0074, t01=0x0068}
0xb598…b5a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0080}
0xb5a2…b5ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x008a}
0xb5ac…b5be               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0074, t01=0x0094}
0xb5be…b5d0               Head {h00=0x000e, h01=0x0050, text=»* FMEXIT *«, t00=0x0074, t01=0x00a6}
0xb5d0…b5e2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0074, t01=0x00b8}
0xb5e2…b5ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00ca}
0xb5ec…b5f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00d4}
0xb5f6…b62a               Head {h00=0x0030, h01=0x0050, text=»*   SET RETURN CODE IN USER ECB, QUEUE TASK «, t00=0x0074, t01=0x00de}
0xb62a…b652               Head {h00=0x0024, h01=0x0050, text=»*   AND PERFORM EXIT ON FMTASK. «, t00=0x0074, t01=0x0112}
0xb652…b65c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x013a}
0xb65c…b686               Head {h00=0x0026, h01=0x0050, text=»*   INPUT:  A9 = USER ECB ADDRESS «, t00=0x0074, t01=0x0144}
0xb686…b690               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x016e}
0xb690…b6be               Head {h00=0x002a, h01=0x0050, text=»FMEXIT EQU * GENERAL RETURN CODE EXIT «, t00=0x0074, t01=0x0178}
0xb6be…b6e0               Head {h00=0x001e, h01=0x0050, text=» LD A4,RETCOD RETURN CODE «, t00=0x0075, t01=0x0016}
0xb6e0…b6ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0038}
0xb6ea…b700               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0075, t01=0x0042}
0xb700…b72e               Head {h00=0x002a, h01=0x0050, text=» ST A4,ECBRC,A9 SET RETURN CODE IN ECB«, t00=0x0075, t01=0x0058}
0xb72e…b73a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x0086}
0xb73a…b744               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0092}
0xb744…b75a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0075, t01=0x009c}
0xb75a…b788               Head {h00=0x002a, h01=0x0050, text=» ES A4,ECBRC,A9 SET RETURN CODE IN ECB«, t00=0x0075, t01=0x00b2}
0xb788…b794               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x00e0}
0xb794…b79e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00ec}
0xb79e…b7d4               Head {h00=0x0032, h01=0x0050, text=» LD A5,TTAB RESTORE TTAB ADDRESS CALLING TASK «, t00=0x0075, t01=0x00f6}
0xb7d4…b802               Head {h00=0x002a, h01=0x0050, text=» ABL QMEXIT QUEUE TASK AND EXIT FMTASK«, t00=0x0075, t01=0x012c}
0xb802…b80c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x015a}
0xb80c…b824               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0075, t01=0x0164}
0xb824…b82e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x017c}
0xb82e…b838               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0186}
0xb838…b84a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0075, t01=0x0190}
0xb84a…b85c               Head {h00=0x000e, h01=0x0050, text=»* FMSPLI *«, t00=0x0076, t01=0x0012}
0xb85c…b86e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0076, t01=0x0024}
0xb86e…b878               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0036}
0xb878…b882               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0040}
0xb882…b8ac               Head {h00=0x0026, h01=0x0050, text=»*   FILE MANAGEMENT I/O FUNCTIONS:«, t00=0x0076, t01=0x004a}
0xb8ac…b8dc               Head {h00=0x002c, h01=0x0050, text=»*   FMSPLI IS ENTERED WHEN THE REQUESTED«, t00=0x0076, t01=0x0074}
0xb8dc…b90a               Head {h00=0x002a, h01=0x0050, text=»*   SECTORS ARE SPLIT OVER TWO OR MORE«, t00=0x0076, t01=0x00a4}
0xb90a…b924               Head {h00=0x0016, h01=0x0050, text=»*   FILE EXTENTS. «, t00=0x0076, t01=0x00d2}
0xb924…b92e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00ec}
0xb92e…b95c               Head {h00=0x002a, h01=0x0050, text=»*   A5 = TTAB ADDRESS OF CALLING TASK «, t00=0x0076, t01=0x00f6}
0xb95c…b984               Head {h00=0x0024, h01=0x0050, text=»*   A7 = PARAMETER BLOCK ADDRESS«, t00=0x0076, t01=0x0124}
0xb984…b9a4               Head {h00=0x001c, h01=0x0050, text=»*   A8 = FM:ECB ADDRESS «, t00=0x0076, t01=0x014c}
0xb9a4…b9c6               Head {h00=0x001e, h01=0x0050, text=»*   A9 = USER ECB ADDRESS «, t00=0x0076, t01=0x016c}
0xb9c6…b9ea               Head {h00=0x0020, h01=0x0050, text=»*  A10 = USER BUFFER ADDRESS«, t00=0x0076, t01=0x018e}
0xb9ea…b9f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0022}
0xb9f4…ba26               Head {h00=0x002e, h01=0x0050, text=»FMSPLI EQU * BASIC AND PHYSICAL READ/WRITE«, t00=0x0077, t01=0x002c}
0xba26…ba3c               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0077, t01=0x005e}
0xba3c…ba66               Head {h00=0x0026, h01=0x0050, text=» LDR A4,A7 PARAMETER BLOCK ADDRESS«, t00=0x0077, t01=0x0074}
0xba66…ba72               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0077, t01=0x009e}
0xba72…baaa               Head {h00=0x0034, h01=0x0050, text=» CF A15,FREBLK RELEASE BLOCK AND GET PARAMETERS «, t00=0x0077, t01=0x00aa}
0xbaaa…bad4               Head {h00=0x0026, h01=0x0050, text=» LDR A13,A2 2ND EWT BLOCK ADDRESS «, t00=0x0077, t01=0x00e2}
0xbad4…bb14               Head {h00=0x003c, h01=0x0050, text=» CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS «, t00=0x0077, t01=0x010c}
0xbb14…bb20               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0077, t01=0x014c}
0xbb20…bb36               Head {h00=0x0012, h01=0x0050, text=» ORS A4,RETCOD«, t00=0x0077, t01=0x0158}
0xbb36…bb5a               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) FMEXIT ERROR, RETURN«, t00=0x0077, t01=0x016e}
0xbb5a…bb78 (120, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDR A7,A1 ORDER CODE «, t00=0x0078, t01=0x0004}
0xbb78…bb82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0022}
0xbb82…bb9a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0078, t01=0x002c}
0xbb9a…bba4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0044}
0xbba4…bbae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x004e}
0xbbae…bbc4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0078, t01=0x0058}
0xbbc4…bbda               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0078, t01=0x006e}
0xbbda…bc00               Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBCW1,A9 SECTOR NUMBER«, t00=0x0078, t01=0x0084}
0xbc00…bc18               Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW2,A9«, t00=0x0078, t01=0x00aa}
0xbc18…bc44               Head {h00=0x0028, h01=0x0050, text=» ST A10,ECBBA,A8 SET BUFFER ADDRESS «, t00=0x0078, t01=0x00c2}
0xbc44…bc74               Head {h00=0x002c, h01=0x0050, text=» LD A10,ECBRL,A9 TOTAL REQUESTED LENGTH «, t00=0x0078, t01=0x00ee}
0xbc74…bc90               Head {h00=0x0018, h01=0x0050, text=» LDR A11,A10 SAVE IT«, t00=0x0078, t01=0x011e}
0xbc90…bc9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x013a}
0xbc9a…bccc               Head {h00=0x002e, h01=0x0050, text=»* SET ECB PARAMETERS AND PERFORM DISC I/O «, t00=0x0078, t01=0x0144}
0xbccc…bcd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0176}
0xbcd6…bcfe               Head {h00=0x0024, h01=0x0050, text=»FMSP00 EQU * MAIN I/O LOOP ENTRY«, t00=0x0078, t01=0x0180}
0xbcfe…bd2c               Head {h00=0x002a, h01=0x0050, text=» ST A1,ECBCW1,A8 SET SECTOR NO IN ECB «, t00=0x0079, t01=0x0018}
0xbd2c…bd44               Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW2,A8«, t00=0x0079, t01=0x0046}
0xbd44…bd50               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x005e}
0xbd50…bd5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x006a}
0xbd5a…bd70               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0079, t01=0x0074}
0xbd70…bd86               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0079, t01=0x008a}
0xbd86…bd9c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0079, t01=0x00a0}
0xbd9c…bdc2               Head {h00=0x0022, h01=0x0050, text=» ML 2,ECBCW1,A9 SECTOR NUMBER «, t00=0x0079, t01=0x00b6}
0xbdc2…bdee               Head {h00=0x0028, h01=0x0050, text=» ST A10,ECBBA,A8 SET BUFFER ADDRESS «, t00=0x0079, t01=0x00dc}
0xbdee…be1e               Head {h00=0x002c, h01=0x0050, text=» LD A10,ECBRL,A9 TOTAL REQUESTED LENGTH «, t00=0x0079, t01=0x0108}
0xbe1e…be3a               Head {h00=0x0018, h01=0x0050, text=» LDR A11,A10 SAVE IT«, t00=0x0079, t01=0x0138}
0xbe3a…be44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0154}
0xbe44…be6c               Head {h00=0x0024, h01=0x0050, text=»FMSP00 EQU * MAIN I/O LOOP ENTRY«, t00=0x0079, t01=0x015e}
0xbe6c…be98               Head {h00=0x0028, h01=0x0050, text=» MS 2,ECBCW1,A8 SET SECTOR NO IN ECB«, t00=0x0079, t01=0x0186}
0xbe98…bea4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007a, t01=0x0022}
0xbea4…beae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x002e}
0xbeae…bec4               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007a, t01=0x0038}
0xbec4…beda               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007a, t01=0x004e}
0xbeda…beec               Head {h00=0x000e, h01=0x0050, text=» INH   =3 «, t00=0x007a, t01=0x0064}
0xbeec…bf26               Head {h00=0x0036, h01=0x0050, text=» CF A15,TIOMXI CONVERT LOGICAL ADDRESS TO PHYSICAL«, t00=0x007a, t01=0x0076}
0xbf26…bf38               Head {h00=0x000e, h01=0x0050, text=» ENB   =3 «, t00=0x007a, t01=0x00b0}
0xbf38…bf5e               Head {h00=0x0022, h01=0x0050, text=» EL A1,ECBCW1,A9 SECTOR NUMBER«, t00=0x007a, t01=0x00c2}
0xbf5e…bf76               Head {h00=0x0014, h01=0x0050, text=» EL A2,ECBCW2,A9«, t00=0x007a, t01=0x00e8}
0xbf76…bfa6               Head {h00=0x002c, h01=0x0050, text=» EL A10,ECBRL,A9 TOTAL REQUESTED LENGTH «, t00=0x007a, t01=0x0100}
0xbfa6…bfba               Head {h00=0x0010, h01=0x0050, text=» LDR A11,A10«, t00=0x007a, t01=0x0130}
0xbfba…bfc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0144}
0xbfc4…bfec               Head {h00=0x0024, h01=0x0050, text=»FMSP00 EQU * MAIN I/O LOOP ENTRY«, t00=0x007a, t01=0x014e}
0xbfec…c018               Head {h00=0x0028, h01=0x0050, text=» MS 2,ECBCW1,A8 SET SECTOR NO IN ECB«, t00=0x007a, t01=0x0176}
0xc018…c024               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x0012}
0xc024…c02e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x001e}
0xc02e…c044               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007b, t01=0x0028}
0xc044…c06c               Head {h00=0x0024, h01=0x0050, text=» LC A1,EWTVOL,A13 DISC FILE CODE«, t00=0x007b, t01=0x003e}
0xc06c…c098               Head {h00=0x0028, h01=0x0050, text=» SC A1,ECBFC,A8 SET FILE CODE IN ECB«, t00=0x007b, t01=0x0066}
0xc098…c0cc               Head {h00=0x0030, h01=0x0050, text=» ST A3,ECBRL,A8 SET REQUESTED LENGTH IN ECB «, t00=0x007b, t01=0x0092}
0xc0cc…c0f2               Head {h00=0x0022, h01=0x0050, text=» CF A14,FM:IO PERFORM DISC I/O«, t00=0x007b, t01=0x00c6}
0xc0f2…c114               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FMSP50 DISC ERROR «, t00=0x007b, t01=0x00ec}
0xc114…c13c               Head {h00=0x0024, h01=0x0050, text=» LD A4,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x007b, t01=0x010e}
0xc13c…c168               Head {h00=0x0028, h01=0x0050, text=» SUR A11,A4 UPDATE REMAINING LENGTH «, t00=0x007b, t01=0x0136}
0xc168…c18c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FMSP50 I/O COMPLETED «, t00=0x007b, t01=0x0162}
0xc18c…c196               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0186}
0xc196…c1ae               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x007b, t01=0x0190}
0xc1ae…c1b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0018}
0xc1b8…c1d8               Head {h00=0x001c, h01=0x0050, text=»* UPDATE BUFFER ADDRESS «, t00=0x007c, t01=0x0022}
0xc1d8…c1e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0042}
0xc1e2…c1f8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x007c, t01=0x004c}
0xc1f8…c226               Head {h00=0x002a, h01=0x0050, text=» ADS A4,ECBBA,A8 UPDATE BUFFER ADDRESS«, t00=0x007c, t01=0x0062}
0xc226…c232               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x0090}
0xc232…c23c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x009c}
0xc23c…c252               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007c, t01=0x00a6}
0xc252…c268               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007c, t01=0x00bc}
0xc268…c29c               Head {h00=0x0030, h01=0x0050, text=» LDK A3,0 MOST SIGNIFICANT PART OF LENGTH =3«, t00=0x007c, t01=0x00d2}
0xc29c…c2ba               Head {h00=0x001a, h01=0x0050, text=» SRL A4,1 WORD MODE =3«, t00=0x007c, t01=0x0106}
0xc2ba…c2da               Head {h00=0x001c, h01=0x0050, text=» MLR 2,A8 BUFFER ADDRESS«, t00=0x007c, t01=0x0124}
0xc2da…c2ec               Head {h00=0x000e, h01=0x0050, text=» SLC A1,4 «, t00=0x007c, t01=0x0144}
0xc2ec…c308               Head {h00=0x0018, h01=0x0050, text=» SRL A2,1 WORD MODE «, t00=0x007c, t01=0x0156}
0xc308…c31c               Head {h00=0x0010, h01=0x0050, text=» DAR A3  =3 «, t00=0x007c, t01=0x0172}
0xc31c…c338               Head {h00=0x0018, h01=0x0050, text=» SLL A2,1 BYTE MODE «, t00=0x007c, t01=0x0186}
0xc338…c34a               Head {h00=0x000e, h01=0x0050, text=» SRC A1,4 «, t00=0x007d, t01=0x0012}
0xc34a…c37e               Head {h00=0x0030, h01=0x0050, text=» MSR 2,A8 SET UPDATED BUFFER ADDRESS IN ECB «, t00=0x007d, t01=0x0024}
0xc37e…c38a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x0058}
0xc38a…c394               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0064}
0xc394…c3ac               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x007d, t01=0x006e}
0xc3ac…c3b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0086}
0xc3b6…c3e6               Head {h00=0x002c, h01=0x0050, text=»* GET PARAMETERS FROM NEXT EWT STRUCTURE«, t00=0x007d, t01=0x0090}
0xc3e6…c410               Head {h00=0x0026, h01=0x0050, text=»* AND COMPUTE NEW REQUESTED LENGTH«, t00=0x007d, t01=0x00c0}
0xc410…c41a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00ea}
0xc41a…c430               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007d, t01=0x00f4}
0xc430…c458               Head {h00=0x0024, h01=0x0050, text=» LDR* A13,A13 NEXT EWT STRUCTURE«, t00=0x007d, t01=0x010a}
0xc458…c482               Head {h00=0x0026, h01=0x0050, text=» RF(Z) FMSP40 END OF EWT STRUCTURE«, t00=0x007d, t01=0x0132}
0xc482…c4ba               Head {h00=0x0034, h01=0x0050, text=» ECR A3,A11 CONVERT REMAINING LENGTH TO SECTORS «, t00=0x007d, t01=0x015c}
0xc4ba…c4c4 (126, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0004}
0xc4c4…c4da               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x007e, t01=0x000e}
0xc4da…c50c               Head {h00=0x002e, h01=0x0050, text=» LD A1,EWTEXL-1,A13 EXTENT LENGTH, PART 1 «, t00=0x007e, t01=0x0024}
0xc50c…c520               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x007e, t01=0x0056}
0xc520…c54a               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FMSP30 EXTENT LARGE ENOUGH«, t00=0x007e, t01=0x006a}
0xc54a…c57a               Head {h00=0x002c, h01=0x0050, text=» LD A2,EWTEXL,A13 EXTENT LENGTH, PART 2 «, t00=0x007e, t01=0x0094}
0xc57a…c586               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x00c4}
0xc586…c590               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00d0}
0xc590…c5a6               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007e, t01=0x00da}
0xc5a6…c5bc               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x007e, t01=0x00f0}
0xc5bc…c5e4               Head {h00=0x0024, h01=0x0050, text=» ML 2,EWTEXL-1,A13 EXTENT LENGTH«, t00=0x007e, t01=0x0106}
0xc5e4…c5f8               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x007e, t01=0x012e}
0xc5f8…c622               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FMSP30 EXTENT LARGE ENOUGH«, t00=0x007e, t01=0x0142}
0xc622…c62e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x016c}
0xc62e…c638               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0178}
0xc638…c650               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x007e, t01=0x0182}
0xc650…c65a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x000a}
0xc65a…c664               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0014}
0xc664…c67a               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x007f, t01=0x001e}
0xc67a…c68c               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x007f, t01=0x0034}
0xc68c…c6b6               Head {h00=0x0026, h01=0x0050, text=» RF(NG) FMSP30 EXTENT LARGE ENOUGH«, t00=0x007f, t01=0x0046}
0xc6b6…c6e2               Head {h00=0x0028, h01=0x0050, text=» LDR A3,A2 NO OF SECTORS IN THIS I/O«, t00=0x007f, t01=0x0070}
0xc6e2…c6ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x009c}
0xc6ec…c700               Head {h00=0x0010, h01=0x0050, text=»FMSP30 EQU *«, t00=0x007f, t01=0x00a6}
0xc700…c72a               Head {h00=0x0026, h01=0x0050, text=» ECR A3,A3 CONVERT LENGTH TO BYTES«, t00=0x007f, t01=0x00ba}
0xc72a…c74e               Head {h00=0x0020, h01=0x0050, text=» LDR* A13,A13 2ND EWT BLOCK «, t00=0x007f, t01=0x00e4}
0xc74e…c758               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0108}
0xc758…c76e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x007f, t01=0x0112}
0xc76e…c796               Head {h00=0x0024, h01=0x0050, text=» LD A1,EWTEXB-1,A13 EXTENT BASE «, t00=0x007f, t01=0x0128}
0xc796…c7aa               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x007f, t01=0x0150}
0xc7aa…c7c4               Head {h00=0x0016, h01=0x0050, text=» LD A2,EWTEXB,A13 «, t00=0x007f, t01=0x0164}
0xc7c4…c7d6               Head {h00=0x000e, h01=0x0050, text=» RB FMSP00«, t00=0x007f, t01=0x017e}
0xc7d6…c7e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0190}
0xc7e2…c7ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x000c}
0xc7ec…c802               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0080, t01=0x0016}
0xc802…c818               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0080, t01=0x002c}
0xc818…c83e               Head {h00=0x0022, h01=0x0050, text=» ML 2,EWTEXB-1,A13 EXTENT BASE«, t00=0x0080, t01=0x0042}
0xc83e…c852               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0080, t01=0x0068}
0xc852…c864               Head {h00=0x000e, h01=0x0050, text=» RB FMSP00«, t00=0x0080, t01=0x007c}
0xc864…c870               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x008e}
0xc870…c87a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x009a}
0xc87a…c892               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0080, t01=0x00a4}
0xc892…c89c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00bc}
0xc89c…c8a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00c6}
0xc8a6…c8d4               Head {h00=0x002a, h01=0x0050, text=»FMSP40 EQU * ILLEGAL REQUESTED LENGTH «, t00=0x0080, t01=0x00d0}
0xc8d4…c8ea               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0080, t01=0x00fe}
0xc8ea…c90c               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/2000 RETURN CODE«, t00=0x0080, t01=0x0114}
0xc90c…c922               Head {h00=0x0012, h01=0x0050, text=» ORS A1,RETCOD«, t00=0x0080, t01=0x0136}
0xc922…c92c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x014c}
0xc92c…c940               Head {h00=0x0010, h01=0x0050, text=»FMSP50 EQU *«, t00=0x0080, t01=0x0156}
0xc940…c96e               Head {h00=0x002a, h01=0x0050, text=» SUR A10,A11 COMPUTE EFFECTIVE LENGTH «, t00=0x0080, t01=0x016a}
0xc96e…c978               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0008}
0xc978…c98e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0081, t01=0x0012}
0xc98e…c9c8               Head {h00=0x0036, h01=0x0050, text=» ST A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB «, t00=0x0081, t01=0x0028}
0xc9c8…c9d4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0062}
0xc9d4…c9de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x006e}
0xc9de…c9f4               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0081, t01=0x0078}
0xc9f4…ca0a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0081, t01=0x008e}
0xca0a…ca44               Head {h00=0x0036, h01=0x0050, text=» ES A10,ECBEL,A9 SET EFFECTIVE LENGTH IN USER ECB «, t00=0x0081, t01=0x00a4}
0xca44…ca50               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x00de}
0xca50…ca5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00ea}
0xca5a…ca70               Head {h00=0x0012, h01=0x0050, text=» IFT MULEXT=1 «, t00=0x0081, t01=0x00f4}
0xca70…ca8a               Head {h00=0x0016, h01=0x0050, text=» RB FMEXIT RETURN «, t00=0x0081, t01=0x010a}
0xca8a…ca96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0124}
0xca96…caa0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0130}
0xcaa0…cab8               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0081, t01=0x013a}
0xcab8…cac2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0152}
0xcac2…cacc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x015c}
0xcacc…cade               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0081, t01=0x0166}
0xcade…caf0               Head {h00=0x000e, h01=0x0050, text=»* FM:PWR *«, t00=0x0081, t01=0x0178}
0xcaf0…cb02               Head {h00=0x000e, h01=0x0050, text=»* FMREAD *«, t00=0x0081, t01=0x018a}
0xcb02…cb14               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0082, t01=0x000c}
0xcb14…cb1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x001e}
0xcb1e…cb28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0028}
0xcb28…cb56               Head {h00=0x002a, h01=0x0050, text=»*   INPUT:  A2 = SECTOR NUMBER, PART 2«, t00=0x0082, t01=0x0032}
0xcb56…cb88               Head {h00=0x002e, h01=0x0050, text=»*           A8 = FM:ECB/FMECB2 ECB ADDRESS«, t00=0x0082, t01=0x0060}
0xcb88…cb92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0092}
0xcb92…cbb8               Head {h00=0x0022, h01=0x0050, text=»*   OUTPUT: CR = 0 IF OK, ELSE«, t00=0x0082, t01=0x009c}
0xcbb8…cbe0               Head {h00=0x0024, h01=0x0050, text=»*             <> 0 IF DISC ERROR«, t00=0x0082, t01=0x00c2}
0xcbe0…cc1c               Head {h00=0x0038, h01=0x0050, text=»*           A4 = DISC RETURN CODE (EXCEPT RETRY BIT)«, t00=0x0082, t01=0x00ea}
0xcc1c…cc38               Head {h00=0x0018, h01=0x0050, text=»*    A7 IS DESTROYED«, t00=0x0082, t01=0x0126}
0xcc38…cc42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0142}
0xcc42…cc6c               Head {h00=0x0026, h01=0x0050, text=»FM:PWR EQU * PHYSICAL WRITE ENTRY «, t00=0x0082, t01=0x014c}
0xcc6c…cc8a               Head {h00=0x001a, h01=0x0050, text=» LDK A7,/95 ORDER CODE«, t00=0x0082, t01=0x0176}
0xcc8a…cc9c (131, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF FM:LKM«, t00=0x0083, t01=0x0004}
0xcc9c…cca6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0016}
0xcca6…ccce               Head {h00=0x0024, h01=0x0050, text=»FMREAD EQU * PHYSICAL READ ENTRY«, t00=0x0083, t01=0x0020}
0xccce…ccec               Head {h00=0x001a, h01=0x0050, text=» LDK A7,/91 ORDER CODE«, t00=0x0083, t01=0x0048}
0xccec…ccf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0066}
0xccf6…cd24               Head {h00=0x002a, h01=0x0050, text=»FM:LKM EQU * COMMON I/O ROUTINE ENTRY «, t00=0x0083, t01=0x0070}
0xcd24…cd56               Head {h00=0x002e, h01=0x0050, text=» ST A2,ECBCW2,A8 SET SECTOR NUMBER IN ECB «, t00=0x0083, t01=0x009e}
0xcd56…cd60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x00d0}
0xcd60…cd74               Head {h00=0x0010, h01=0x0050, text=»FM:IO EQU * «, t00=0x0083, t01=0x00da}
0xcd74…cd9c               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 ADJUST STACK POINTER«, t00=0x0083, t01=0x00ee}
0xcd9c…cda8               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0083, t01=0x0116}
0xcda8…cdb8               Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0083, t01=0x0122}
0xcdb8…cddc               Head {h00=0x0020, h01=0x0050, text=» LD A4,ECBRC,A8 RETURN CODE «, t00=0x0083, t01=0x0132}
0xcddc…ce06               Head {h00=0x0026, h01=0x0050, text=» ORS A4,RETCOD PREPARE RETURN CODE«, t00=0x0083, t01=0x0156}
0xce06…ce2c               Head {h00=0x0022, h01=0x0050, text=» ANKL A4,/FEFF SKIP RETRY BIT «, t00=0x0083, t01=0x0180}
0xce2c…ce5a               Head {h00=0x002a, h01=0x0050, text=» ABR* A14 RETURN (WITHOUT CHANGING CR)«, t00=0x0084, t01=0x0016}
0xce5a…ce64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0044}
0xce64…ce7c               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0084, t01=0x004e}
0xce7c…ce86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0066}
0xce86…ce90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0070}
0xce90…cea2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0084, t01=0x007a}
0xcea2…ceb4               Head {h00=0x000e, h01=0x0050, text=»* FNDNAM *«, t00=0x0084, t01=0x008c}
0xceb4…cec6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0084, t01=0x009e}
0xcec6…ced0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00b0}
0xced0…ceda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00ba}
0xceda…cf10               Head {h00=0x0032, h01=0x0050, text=»*   FNDNAM WILL CONVERT THE SUPPLIED FILE CODE«, t00=0x0084, t01=0x00c4}
0xcf10…cf44               Head {h00=0x0030, h01=0x0050, text=»*   TO VOLUME NAME ADDRESS IN THE DISC DWT. «, t00=0x0084, t01=0x00fa}
0xcf44…cf4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x012e}
0xcf4e…cf70               Head {h00=0x001e, h01=0x0050, text=»*   INPUT:  A2 = FILE CODE«, t00=0x0084, t01=0x0138}
0xcf70…cf7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x015a}
0xcf7a…cfa6               Head {h00=0x0028, h01=0x0050, text=»*   OUTPUT: A1 = VOLUME NAME ADDRESS«, t00=0x0084, t01=0x0164}
0xcfa6…cfba               Head {h00=0x0010, h01=0x0050, text=»*    A2 = 6 «, t00=0x0084, t01=0x0190}
0xcfba…cfec               Head {h00=0x002e, h01=0x0050, text=»*    A6 = DISC DWT ADDRESS + DOUBLE INDEX «, t00=0x0085, t01=0x0014}
0xcfec…cff6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0046}
0xcff6…d024               Head {h00=0x002a, h01=0x0050, text=»FNDNAM EQU * FIND VOLUME NAME ADDRESS «, t00=0x0085, t01=0x0050}
0xd024…d030               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0085, t01=0x007e}
0xd030…d05c               Head {h00=0x0028, h01=0x0050, text=» CF A15,FNDDWD FIND DISC DWT ADDRESS«, t00=0x0085, t01=0x008a}
0xd05c…d068               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0085, t01=0x00b6}
0xd068…d072               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00c2}
0xd072…d0ac               Head {h00=0x0036, h01=0x0050, text=»* CHECK IF DISC RECOVERY GOING ON AND IN THAT CASE«, t00=0x0085, t01=0x00cc}
0xd0ac…d0e8               Head {h00=0x0038, h01=0x0050, text=»* SWITCH TASK WHILE WAITING FOR RECOVERY COMPLETION «, t00=0x0085, t01=0x0106}
0xd0e8…d0f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0142}
0xd0f2…d106               Head {h00=0x0010, h01=0x0050, text=»FNAM05 EQU *«, t00=0x0085, t01=0x014c}
0xd106…d11e               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST,A6 «, t00=0x0085, t01=0x0160}
0xd11e…d130               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0085, t01=0x0178}
0xd130…d168               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC «, t00=0x0085, t01=0x018a}
0xd168…d192               Head {h00=0x0026, h01=0x0050, text=» LKM  WAIT FOR RECOVERY COMPLETION«, t00=0x0086, t01=0x0032}
0xd192…d1ae               Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASKS«, t00=0x0086, t01=0x005c}
0xd1ae…d1d2               Head {h00=0x0020, h01=0x0050, text=» RB FNAM05 CHECK DISC AGAIN «, t00=0x0086, t01=0x0078}
0xd1d2…d1dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x009c}
0xd1dc…d1f4               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0086, t01=0x00a6}
0xd1f4…d1fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00be}
0xd1fe…d208               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x00c8}
0xd208…d21c               Head {h00=0x0010, h01=0x0050, text=»FNAM10 EQU *«, t00=0x0086, t01=0x00d2}
0xd21c…d240               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 DISC DWT ADDRESS «, t00=0x0086, t01=0x00e6}
0xd240…d25e               Head {h00=0x001a, h01=0x0050, text=» LDR A6,A2 DISC INDEX «, t00=0x0086, t01=0x010a}
0xd25e…d27e               Head {h00=0x001c, h01=0x0050, text=» ADR A6,A6 DOUBLE INDEX «, t00=0x0086, t01=0x0128}
0xd27e…d2a0               Head {h00=0x001e, h01=0x0050, text=» ADR A6,A1 ADD DWT ADDRESS«, t00=0x0086, t01=0x0148}
0xd2a0…d2aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x016a}
0xd2aa…d2d6               Head {h00=0x0028, h01=0x0050, text=»* COMPUTE VOLUME NAME ADDRESS IN DWT«, t00=0x0086, t01=0x0174}
0xd2d6…d2e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0010}
0xd2e0…d2f4               Head {h00=0x0010, h01=0x0050, text=»FNAM20 EQU *«, t00=0x0087, t01=0x001a}
0xd2f4…d31e               Head {h00=0x0026, h01=0x0050, text=» ADK A1,6 NEXT VOLUME NAME IN DWT «, t00=0x0087, t01=0x002e}
0xd31e…d340               Head {h00=0x001e, h01=0x0050, text=» SUK A2,1 DECREMENT INDEX «, t00=0x0087, t01=0x0058}
0xd340…d356               Head {h00=0x0012, h01=0x0050, text=» RB(NN) FNAM20«, t00=0x0087, t01=0x007a}
0xd356…d368               Head {h00=0x000e, h01=0x0050, text=» LDK A2,6 «, t00=0x0087, t01=0x0090}
0xd368…d382               Head {h00=0x0016, h01=0x0050, text=» ADKL A1,DWTVOL-6 «, t00=0x0087, t01=0x00a2}
0xd382…d392               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0087, t01=0x00bc}
0xd392…d39c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00cc}
0xd39c…d3b4               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0087, t01=0x00d6}
0xd3b4…d3be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00ee}
0xd3be…d3c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00f8}
0xd3c8…d3da               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0087, t01=0x0102}
0xd3da…d3ec               Head {h00=0x000e, h01=0x0050, text=»* RDVTOC *«, t00=0x0087, t01=0x0114}
0xd3ec…d3fe               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0087, t01=0x0126}
0xd3fe…d408               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0138}
0xd408…d412               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0142}
0xd412…d446               Head {h00=0x0030, h01=0x0050, text=»*   RDVTOC WILL CALL FCHEC2 FOR CHECK OF THE«, t00=0x0087, t01=0x014c}
0xd446…d47c               Head {h00=0x0032, h01=0x0050, text=»*   ACCESS PARAMETERS AND READ THE VTOC RECORD«, t00=0x0087, t01=0x0180}
0xd47c…d4a2               Head {h00=0x0022, h01=0x0050, text=»*   OF THE FIRST FILE EXTENT. «, t00=0x0088, t01=0x0026}
0xd4a2…d4ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x004c}
0xd4ac…d4d2               Head {h00=0x0022, h01=0x0050, text=»*   INPUT:  A5 = TTAB ADDRESS «, t00=0x0088, t01=0x0056}
0xd4d2…d4f2               Head {h00=0x001c, h01=0x0050, text=»*    A8 = FM:ECB ADDRESS«, t00=0x0088, t01=0x007c}
0xd4f2…d51c               Head {h00=0x0026, h01=0x0050, text=»*           A9 = USER ECB ADDRESS «, t00=0x0088, t01=0x009c}
0xd51c…d526               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00c6}
0xd526…d55c               Head {h00=0x0032, h01=0x0050, text=»*   OUTPUT: A1 = 0 IF FIRST FILE EXTENT FOUND «, t00=0x0088, t01=0x00d0}
0xd55c…d596               Head {h00=0x0036, h01=0x0050, text=»*           A2 = VTOC SECTOR NUMBER (FIRST EXTENT)«, t00=0x0088, t01=0x0106}
0xd596…d5be               Head {h00=0x0024, h01=0x0050, text=»*    A4 = RETURN CODE (=0 IF OK)«, t00=0x0088, t01=0x0140}
0xd5be…d5e2               Head {h00=0x0020, h01=0x0050, text=»*           A6 = FWT ADDRESS«, t00=0x0088, t01=0x0168}
0xd5e2…d618               Head {h00=0x0032, h01=0x0050, text=»*          A13 = VTOC RECORD ADDRESS IN FM:BUF«, t00=0x0088, t01=0x018c}
0xd618…d646               Head {h00=0x002a, h01=0x0050, text=»*           A3, A7, A11 ARE DESTROYED «, t00=0x0089, t01=0x0032}
0xd646…d650               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0060}
0xd650…d68c               Head {h00=0x0038, h01=0x0050, text=»RDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD «, t00=0x0089, t01=0x006a}
0xd68c…d698               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0089, t01=0x00a6}
0xd698…d6d8               Head {h00=0x003c, h01=0x0050, text=» CF A15,FCHEC2 CHECK ACCESS PAR. AND RETURN FWT ADDRESS «, t00=0x0089, t01=0x00b2}
0xd6d8…d6e4               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0089, t01=0x00f2}
0xd6e4…d708               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) RDVT20 ERROR, RETURN«, t00=0x0089, t01=0x00fe}
0xd708…d712               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0122}
0xd712…d72a               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0089, t01=0x012c}
0xd72a…d734               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0144}
0xd734…d73e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x014e}
0xd73e…d774               Head {h00=0x0032, h01=0x0050, text=» LC A4,FWTVOL,A6 DISC FILE CODE (FIRST EXTENT)«, t00=0x0089, t01=0x0158}
0xd774…d786               Head {h00=0x000e, h01=0x0050, text=» STR A4,A8«, t00=0x0089, t01=0x018e}
0xd786…d7c0               Head {h00=0x0036, h01=0x0050, text=» LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT)«, t00=0x008a, t01=0x0010}
0xd7c0…d7ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x004a}
0xd7ca…d7f4               Head {h00=0x0026, h01=0x0050, text=»RDVTO2 EQU * ENTRY USED BY FMCDEF «, t00=0x008a, t01=0x0054}
0xd7f4…d830               Head {h00=0x0038, h01=0x0050, text=» CF A14,FNDVT2 READ VTOC SECTOR AND ONE VTOC RECORD «, t00=0x008a, t01=0x007e}
0xd830…d83a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x00ba}
0xd83a…d84e               Head {h00=0x0010, h01=0x0050, text=»RDVT10 EQU *«, t00=0x008a, t01=0x00c4}
0xd84e…d872               Head {h00=0x0020, h01=0x0050, text=» ADK A4,0 CHECK RETURN CODE «, t00=0x008a, t01=0x00d8}
0xd872…d89c               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) RDVT20 DISC ERROR, RETURN «, t00=0x008a, t01=0x00fc}
0xd89c…d8c8               Head {h00=0x0028, h01=0x0050, text=» LD A1,VTC:EN,A13 FILE EXTENT NUMBER«, t00=0x008a, t01=0x0126}
0xd8c8…d8f0               Head {h00=0x0024, h01=0x0050, text=» RF(Z) RDVT20 FIRST EXTENT FOUND«, t00=0x008a, t01=0x0152}
0xd8f0…d92a               Head {h00=0x0036, h01=0x0050, text=» CF A14,FNDVT3 READ NEXT VTOC RECORD FOR THIS FILE«, t00=0x008a, t01=0x017a}
0xd92a…d95e               Head {h00=0x0030, h01=0x0050, text=» RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT«, t00=0x008b, t01=0x0024}
0xd95e…d968               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0058}
0xd968…d97c               Head {h00=0x0010, h01=0x0050, text=»RDVT20 EQU *«, t00=0x008b, t01=0x0062}
0xd97c…d9a6               Head {h00=0x0026, h01=0x0050, text=» ORS A4,RETCOD PREPARE RETURN CODE«, t00=0x008b, t01=0x0076}
0xd9a6…d9b6               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x008b, t01=0x00a0}
0xd9b6…d9c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00b0}
0xd9c0…d9d8               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x008b, t01=0x00ba}
0xd9d8…d9e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00d2}
0xd9e2…d9ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00dc}
0xd9ec…d9fe               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x008b, t01=0x00e6}
0xd9fe…da10               Head {h00=0x000e, h01=0x0050, text=»* FNDVTC *«, t00=0x008b, t01=0x00f8}
0xda10…da22               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x008b, t01=0x010a}
0xda22…da2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x011c}
0xda2c…da36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0126}
0xda36…da60               Head {h00=0x0026, h01=0x0050, text=»*   FNDVTC SEARCHES THE REQUESTED «, t00=0x008b, t01=0x0130}
0xda60…da86               Head {h00=0x0022, h01=0x0050, text=»*   FILE SPECIFIED IN THE FPB.«, t00=0x008b, t01=0x015a}
0xda86…dab0               Head {h00=0x0026, h01=0x0050, text=»*   RETURN IS MADE WHEN ONE EXTENT«, t00=0x008b, t01=0x0180}
0xdab0…dae0               Head {h00=0x002c, h01=0x0050, text=»*   HAS BEEN FOUND OR WHEN THE COMPLETE «, t00=0x008c, t01=0x001a}
0xdae0…db12               Head {h00=0x002e, h01=0x0050, text=»*   VTOC HAS BEEN SEARCHED WITHOUT MATCH. «, t00=0x008c, t01=0x004a}
0xdb12…db1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x007c}
0xdb1c…db3e               Head {h00=0x001e, h01=0x0050, text=»*   INPUT:  A2 = FILE CODE«, t00=0x008c, t01=0x0086}
0xdb3e…db5c               Head {h00=0x001a, h01=0x0050, text=»*    A6 = FWT ADDRESS «, t00=0x008c, t01=0x00a8}
0xdb5c…db7c               Head {h00=0x001c, h01=0x0050, text=»*    A8 = FM:ECB ADDRESS«, t00=0x008c, t01=0x00c6}
0xdb7c…db86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x00e6}
0xdb86…dbc0               Head {h00=0x0036, h01=0x0050, text=»*   OUTPUT: A2 = VTOC SECTOR NUMBER IF FOUND, ELSE«, t00=0x008c, t01=0x00f0}
0xdbc0…dbf2               Head {h00=0x002e, h01=0x0050, text=»*              = 0 IF NO FILE EXTENT FOUND«, t00=0x008c, t01=0x012a}
0xdbf2…dc20               Head {h00=0x002a, h01=0x0050, text=»*    A4 = DISC RETURN CODE (=0 IF OK) «, t00=0x008c, t01=0x015c}
0xdc20…dc56               Head {h00=0x0032, h01=0x0050, text=»*          A13 = VTOC RECORD ADDRESS IN FM:BUF«, t00=0x008c, t01=0x018a}
0xdc56…dc8c               Head {h00=0x0032, h01=0x0050, text=»*           A1, A3, A7, A11-A12 ARE DESTROYED «, t00=0x008d, t01=0x0030}
0xdc8c…dc96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0066}
0xdc96…dcba               Head {h00=0x0020, h01=0x0050, text=»FNDVTC EQU * FIND VTOC ENTRY«, t00=0x008d, t01=0x0070}
0xdcba…dcc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0094}
0xdcc4…dcea               Head {h00=0x0022, h01=0x0050, text=»* READ VOLUME LABEL (SECTOR 0)«, t00=0x008d, t01=0x009e}
0xdcea…dcf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x00c4}
0xdcf4…dd20               Head {h00=0x0028, h01=0x0050, text=» SC A2,ECBFC,A8 SET FILE CODE IN ECB«, t00=0x008d, t01=0x00ce}
0xdd20…dd40               Head {h00=0x001c, h01=0x0050, text=» LDK A2,0 SECTOR NUMBER «, t00=0x008d, t01=0x00fa}
0xdd40…dd64               Head {h00=0x0020, h01=0x0050, text=» CF A14,FMREAD READ SECTOR 0«, t00=0x008d, t01=0x011a}
0xdd64…dd8e               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FVTC40 DISC ERROR, RETURN «, t00=0x008d, t01=0x013e}
0xdd8e…ddbc               Head {h00=0x002a, h01=0x0050, text=» LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE «, t00=0x008d, t01=0x0168}
0xddbc…ddd0               Head {h00=0x0010, h01=0x0050, text=» LDR A12,A2 «, t00=0x008e, t01=0x0008}
0xddd0…ddfe               Head {h00=0x002a, h01=0x0050, text=» AD A2,FM:BUF+VOL:FS SKIP FSAT SECTORS«, t00=0x008e, t01=0x001c}
0xddfe…de2e               Head {h00=0x002c, h01=0x0050, text=» AD A12,FM:BUF+VOL:EL LAST VTOC SECTOR+1«, t00=0x008e, t01=0x004a}
0xde2e…de38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x007a}
0xde38…de50               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x008e, t01=0x0084}
0xde50…de5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x009c}
0xde5a…de7a               Head {h00=0x001c, h01=0x0050, text=»* READ NEXT VTOC SECTOR «, t00=0x008e, t01=0x00a6}
0xde7a…de84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x00c6}
0xde84…deb4               Head {h00=0x002c, h01=0x0050, text=»FNDVT2 EQU * ENTRY USED BY RDVTOC/FMCDEF«, t00=0x008e, t01=0x00d0}
0xdeb4…dee0               Head {h00=0x0028, h01=0x0050, text=» CF A14,FMREAD READ ONE VTOC SECTOR «, t00=0x008e, t01=0x0100}
0xdee0…df0a               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FVTC40 DISC ERROR, RETURN «, t00=0x008e, t01=0x012c}
0xdf0a…df32               Head {h00=0x0024, h01=0x0050, text=» LDKL A13,FM:BUF FM:BUF ADDRESS «, t00=0x008e, t01=0x0156}
0xdf32…df5a               Head {h00=0x0024, h01=0x0050, text=» LDK A7,VTOCBF VTOC BLOCK FACTOR«, t00=0x008e, t01=0x017e}
0xdf5a…df64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0016}
0xdf64…df78               Head {h00=0x0010, h01=0x0050, text=»FVTC20 EQU *«, t00=0x008f, t01=0x0020}
0xdf78…dfa2               Head {h00=0x0026, h01=0x0050, text=» LD A1,VTC:ST,A13 VTOC STATUS BYTE«, t00=0x008f, t01=0x0034}
0xdfa2…dfb6               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x008f, t01=0x005e}
0xdfb6…dfd6               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FVTC50 VTOC USED«, t00=0x008f, t01=0x0072}
0xdfd6…dfe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0092}
0xdfe0…e008               Head {h00=0x0024, h01=0x0050, text=»FNDVT3 EQU * ENTRY USED BY OPEN «, t00=0x008f, t01=0x009c}
0xe008…e03c               Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBCW2,A8 CURRENT VTOC SECTOR NUMBER «, t00=0x008f, t01=0x00c4}
0xe03c…e066               Head {h00=0x0026, h01=0x0050, text=» ADKL A13,VTOCRL NEXT VTOC ADDRESS«, t00=0x008f, t01=0x00f8}
0xe066…e078               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x008f, t01=0x0122}
0xe078…e0a8               Head {h00=0x002c, h01=0x0050, text=» RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR«, t00=0x008f, t01=0x0134}
0xe0a8…e0ca               Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 NEXT VTOC SECTOR«, t00=0x008f, t01=0x0164}
0xe0ca…e0fa               Head {h00=0x002c, h01=0x0050, text=» CWR A2,A12 CHECK IF END OF VTOC EXTENT «, t00=0x008f, t01=0x0186}
0xe0fa…e126               Head {h00=0x0028, h01=0x0050, text=» RB(NE) FNDVT2 NOT LAST VTOC SECTOR «, t00=0x0090, t01=0x0026}
0xe126…e130               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x0052}
0xe130…e152               Head {h00=0x001e, h01=0x0050, text=»FVTC40 EQU * ERROR RETURN «, t00=0x0090, t01=0x005c}
0xe152…e170               Head {h00=0x001a, h01=0x0050, text=» LDK A2,0 RETURN CODE «, t00=0x0090, t01=0x007e}
0xe170…e180               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0090, t01=0x009c}
0xe180…e18a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00ac}
0xe18a…e1c6               Head {h00=0x0038, h01=0x0050, text=»* VTOC USED: COMPARE FILE NAMES AND RETURN IF EQUAL «, t00=0x0090, t01=0x00b6}
0xe1c6…e1d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00f2}
0xe1d0…e1e4               Head {h00=0x0010, h01=0x0050, text=»FVTC50 EQU *«, t00=0x0090, t01=0x00fc}
0xe1e4…e204               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A13 VTOC ADDRESS«, t00=0x0090, t01=0x0110}
0xe204…e22e               Head {h00=0x0026, h01=0x0050, text=» CF A14,CMPFIL COMPARE FILE NAMES «, t00=0x0090, t01=0x0130}
0xe22e…e25a               Head {h00=0x0028, h01=0x0050, text=» RB(NE) FNDVT3 FILE NAMES NOT EQUAL «, t00=0x0090, t01=0x015a}
0xe25a…e28e               Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBCW2,A8 CURRENT VTOC SECTOR NUMBER «, t00=0x0090, t01=0x0186}
0xe28e…e2b4               Head {h00=0x0022, h01=0x0050, text=» RTN A14 ONE FILE EXTENT FOUND«, t00=0x0091, t01=0x002a}
0xe2b4…e2be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0050}
0xe2be…e2d6               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0091, t01=0x005a}
0xe2d6…e2e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0072}
0xe2e0…e2ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x007c}
0xe2ea…e2fc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0091, t01=0x0086}
0xe2fc…e30e               Head {h00=0x000e, h01=0x0050, text=»* CMPFIL *«, t00=0x0091, t01=0x0098}
0xe30e…e320               Head {h00=0x000e, h01=0x0050, text=»* CMPSTR *«, t00=0x0091, t01=0x00aa}
0xe320…e332               Head {h00=0x000e, h01=0x0050, text=»* CPMDWD *«, t00=0x0091, t01=0x00bc}
0xe332…e344               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0091, t01=0x00ce}
0xe344…e34e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x00e0}
0xe34e…e358               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x00ea}
0xe358…e388               Head {h00=0x002c, h01=0x0050, text=»*   CMPFIL COMPARES ONE CHARACTER STRING«, t00=0x0091, t01=0x00f4}
0xe388…e3b8               Head {h00=0x002c, h01=0x0050, text=»*   WITH THE FILE NAME IN SPECIFIED FWT «, t00=0x0091, t01=0x0124}
0xe3b8…e3ec               Head {h00=0x0030, h01=0x0050, text=»*   AND SETS THE CR ACCORDING TO THE RESULT.«, t00=0x0091, t01=0x0154}
0xe3ec…e3f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0091, t01=0x0188}
0xe3f6…e428 (146, 0, 400) Head {h00=0x002e, h01=0x0050, text=»*   CMPSTR COMPARES TWO CHARACTER STRINGS «, t00=0x0092, t01=0x0004}
0xe428…e45c               Head {h00=0x0030, h01=0x0050, text=»*   AND SETS THE CR ACCORDING TO THE RESULT.«, t00=0x0092, t01=0x0036}
0xe45c…e466               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x006a}
0xe466…e492               Head {h00=0x0028, h01=0x0050, text=»*   CMPDWD COMPARES TWO DOUBLE WORDS«, t00=0x0092, t01=0x0074}
0xe492…e4c6               Head {h00=0x0030, h01=0x0050, text=»*   AND SETS THE CR ACCORDING TO THE RESULT.«, t00=0x0092, t01=0x00a0}
0xe4c6…e4d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0092, t01=0x00d4}
0xe4d0…e51c               Head {h00=0x0048, h01=0x0050, text=»*   INPUT:  A1 = ADDRESS OF CHARACTER STRING 1 (CMPSTR/CMPDWD ONLY) «, t00=0x0092, t01=0x00de}
0xe51c…e552               Head {h00=0x0032, h01=0x0050, text=»*           A2 =    "    "      "       "    2«, t00=0x0092, t01=0x012a}
0xe552…e594               Head {h00=0x003e, h01=0x0050, text=»*           A3 = NO OF CHARACTERS TO COMPARE (CMPSTR ONLY)«, t00=0x0092, t01=0x0160}
0xe594…e5c0               Head {h00=0x0028, h01=0x0050, text=»*    A6 = FWT ADDRESS (CMPFIL ONLY) «, t00=0x0093, t01=0x0012}
0xe5c0…e5ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x003e}
0xe5ca…e5fc               Head {h00=0x002e, h01=0x0050, text=»*   OUTPUT: CR = 0 IF STRINGS EQUAL, ELSE «, t00=0x0093, t01=0x0048}
0xe5fc…e63e               Head {h00=0x003e, h01=0x0050, text=»*              > 0 IF STRING 1 GREATER THAN STRING 2, ELSE«, t00=0x0093, t01=0x007a}
0xe63e…e678               Head {h00=0x0036, h01=0x0050, text=»*              < 0 IF STRING 1 LESS THAN STRING 2 «, t00=0x0093, t01=0x00bc}
0xe678…e6a4               Head {h00=0x0028, h01=0x0050, text=»*           A1-A3, A11 ARE DESTROYED«, t00=0x0093, t01=0x00f6}
0xe6a4…e6ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x0122}
0xe6ae…e6c6               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0093, t01=0x012c}
0xe6c6…e6d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x0144}
0xe6d0…e6da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0093, t01=0x014e}
0xe6da…e702               Head {h00=0x0024, h01=0x0050, text=»CMPFIL EQU * COMPARE FILE NAMES «, t00=0x0093, t01=0x0158}
0xe702…e720               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 FWT ADDRESS«, t00=0x0093, t01=0x0180}
0xe720…e74a               Head {h00=0x0026, h01=0x0050, text=» ADK A1,FWTNAM POINT TO FILE NAME «, t00=0x0094, t01=0x000e}
0xe74a…e76c               Head {h00=0x001e, h01=0x0050, text=» LDK A3,8 FILE NAME LENGTH«, t00=0x0094, t01=0x0038}
0xe76c…e776               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x005a}
0xe776…e7a4               Head {h00=0x002a, h01=0x0050, text=»CMPSTR EQU * COMPARE CHARACTER STRINGS«, t00=0x0094, t01=0x0064}
0xe7a4…e7cc               Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 ADJUST STACK POINTER«, t00=0x0094, t01=0x0092}
0xe7cc…e7d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x00ba}
0xe7d6…e806               Head {h00=0x002c, h01=0x0050, text=»* COMPARE STRINGS CHARACTER BY CHARACTER«, t00=0x0094, t01=0x00c4}
0xe806…e810               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0094, t01=0x00f4}
0xe810…e824               Head {h00=0x0010, h01=0x0050, text=»CMP:10 EQU *«, t00=0x0094, t01=0x00fe}
0xe824…e854               Head {h00=0x002c, h01=0x0050, text=» LCR A11,A1 ONE CHARACTER FROM STRING 1 «, t00=0x0094, t01=0x0112}
0xe854…e88c               Head {h00=0x0034, h01=0x0050, text=» CCR A11,A2 COMPARE WITH CORR. CHAR. IN STRING 2«, t00=0x0094, t01=0x0142}
0xe88c…e8bc               Head {h00=0x002c, h01=0x0050, text=» ABR(NE)* A14 STRINGS NOT EQUAL, RETURN «, t00=0x0094, t01=0x017a}
0xe8bc…e8e8               Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT STRING POINTERS «, t00=0x0095, t01=0x001a}
0xe8e8…e8fa               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0095, t01=0x0046}
0xe8fa…e922               Head {h00=0x0024, h01=0x0050, text=» SUK A3,1 DECREMENT LOOP COUNTER«, t00=0x0095, t01=0x0058}
0xe922…e956               Head {h00=0x0030, h01=0x0050, text=» RB(P) CMP:10 CONTINUE IF NOT END OF STRINGS«, t00=0x0095, t01=0x0080}
0xe956…e97e               Head {h00=0x0024, h01=0x0050, text=» ABR* A14 STRINGS EQUAL, RETURN «, t00=0x0095, t01=0x00b4}
0xe97e…e988               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x00dc}
0xe988…e9b6               Head {h00=0x002a, h01=0x0050, text=»CMPDWD EQU * COMPARE TWO DOUBLE WORDS «, t00=0x0095, t01=0x00e6}
0xe9b6…e9ce               Head {h00=0x0014, h01=0x0050, text=» LDK A3,4 LENGTH«, t00=0x0095, t01=0x0114}
0xe9ce…e9e0               Head {h00=0x000e, h01=0x0050, text=» RB CMPSTR«, t00=0x0095, t01=0x012c}
0xe9e0…e9ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x013e}
0xe9ea…ea02               Head {h00=0x0014, h01=0x0050, text=» EJECT   FMTASK «, t00=0x0095, t01=0x0148}
0xea02…ea0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x0160}
0xea0c…ea16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0095, t01=0x016a}
0xea16…ea28               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0095, t01=0x0174}
0xea28…ea3a               Head {h00=0x000e, h01=0x0050, text=»* FM:MOV *«, t00=0x0095, t01=0x0186}
0xea3a…ea4c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0096, t01=0x0008}
0xea4c…ea56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x001a}
0xea56…ea60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x0024}
0xea60…ea8e               Head {h00=0x002a, h01=0x0050, text=»*   INPUT:  A1 = INPUT BUFFER ADDRESS «, t00=0x0096, t01=0x002e}
0xea8e…eac4               Head {h00=0x0032, h01=0x0050, text=»*           A2 = NUMBER OF CHARACTERS TO MOVE «, t00=0x0096, t01=0x005c}
0xeac4…eaf2               Head {h00=0x002a, h01=0x0050, text=»*           A3 = OUTPUT BUFFER ADDRESS«, t00=0x0096, t01=0x0092}
0xeaf2…eafc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x00c0}
0xeafc…eb16               Head {h00=0x0016, h01=0x0050, text=»*   OUTPUT: A2 = 0«, t00=0x0096, t01=0x00ca}
0xeb16…eb58               Head {h00=0x003e, h01=0x0050, text=»*           A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 «, t00=0x0096, t01=0x00e4}
0xeb58…eb7c               Head {h00=0x0020, h01=0x0050, text=»*           A4 IS DESTROYED «, t00=0x0096, t01=0x0126}
0xeb7c…eb86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0096, t01=0x014a}
0xeb86…ebac               Head {h00=0x0022, h01=0x0050, text=»FM:MV8 EQU * MOVE 8 CHARACTERS«, t00=0x0096, t01=0x0154}
0xebac…ebc4               Head {h00=0x0014, h01=0x0050, text=» LDK A2,8 LENGTH«, t00=0x0096, t01=0x017a}
0xebc4…ebd6 (151, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF FM:MOV«, t00=0x0097, t01=0x0004}
0xebd6…ebe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0016}
0xebe0…ec06               Head {h00=0x0022, h01=0x0050, text=»FM:MV4 EQU * MOVE 4 CHARACTERS«, t00=0x0097, t01=0x0020}
0xec06…ec1e               Head {h00=0x0014, h01=0x0050, text=» LDK A2,4 LENGTH«, t00=0x0097, t01=0x0046}
0xec1e…ec28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x005e}
0xec28…ec54               Head {h00=0x0028, h01=0x0050, text=»* MOVE STRING CHARACTER BY CHARACTER«, t00=0x0097, t01=0x0068}
0xec54…ec5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0094}
0xec5e…ec7e               Head {h00=0x001c, h01=0x0050, text=»FM:MOV EQU * MOVE STRING«, t00=0x0097, t01=0x009e}
0xec7e…eca4               Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 MOVE ONE CHARACTER «, t00=0x0097, t01=0x00be}
0xeca4…ecb6               Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0097, t01=0x00e4}
0xecb6…ece2               Head {h00=0x0028, h01=0x0050, text=» ADK A1,1 INCREMENT BUFFER POINTERS «, t00=0x0097, t01=0x00f6}
0xece2…ecf4               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0097, t01=0x0122}
0xecf4…ed1c               Head {h00=0x0024, h01=0x0050, text=» SUK A2,1 DECREMENT LOOP COUNTER«, t00=0x0097, t01=0x0134}
0xed1c…ed40               Head {h00=0x0020, h01=0x0050, text=» RB(P) FM:MOV CONTINUE MOVE «, t00=0x0097, t01=0x015c}
0xed40…ed50               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0097, t01=0x0180}
0xed50…ed5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0097, t01=0x0190}
0xed5a…ed64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x000a}
0xed64…ed6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0098, t01=0x0014}
0xed6e…ed7a               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0098, t01=0x001e}
0xed7a…ed7e               Head {h00=0x4004, h01=0x0000}
0xed7e…ed80               00 98                                                                                                                                                                                                                                             ┆  ┆
0xed80…ed82               00 2a                                                                                                                                                                                                                                             ┆ *┆
0xed82…ed8a (153, 1, 8)   20 04 00 00 00 99 00 04                                                                                                                                                                                                                           ┆        ┆
0xed8a…edda (154, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 49 01 88 00 48 00 50 2a 20 20 20 20 20 20 20 20 20 20 20   ┆                                                          *  I   H P*           ┆
0xedda…ee2a               20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 4a 00 44 00 48 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52   ┆                                                      *  J D H P*  WORK REGISTER┆
0xee2a…ee7a               53 3a 20 41 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 4a 00 90 00 48 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆S: A4                                             *  J   H P*                   ┆
0xee7a…eeca               20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 4a 00 dc 00 48 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 4d 58 3a 54 44 42 2c   ┆                                              *  J   H P*  SUBROUTINES:  MX:TDB,┆
0xeeca…ef1a               4d 58 54 54 41 42 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 4a 01 28 00 48 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆MXTTAB                                    *  J ( H P*                           ┆
0xef1a…ef6a (155, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 4a 01 74 00 48 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆                                      *  J t H P********************************┆
0xef6a…efba               2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 4b 00 30 00 10 00 50 42 3a 4d 58 54 54 5c 45 51 55 5c 2a 00 4b 00 7c 00 28 00 50 5c 4c 44 5c 41 32 2c 53 43 54 4d 58 53 5c 47 45   ┆***********************************  K 0   PB:MXTT EQU * K | ( P LD A2,SCTMXS GE┆
0xefba…f00a               54 20 41 44 44 52 45 53 53 20 54 4f 20 4d 58 53 54 41 42 20 00 4b 00 90 00 1c 00 50 5c 52 46 28 5a 29 5c 42 4d 58 39 39 5c 4e 4f 54 20 50 52 45 53 45 4e 54 00 4b 00 bc 00 30 00 50 5c 4c 44 4b 5c 41 34 2c 32 5c 44 49 53 50 4c 41 43 45 4d 45   ┆T ADDRESS TO MXSTAB  K     P RF(Z) BMX99 NOT PRESENT K   0 P LDK A4,2 DISPLACEME┆
0xf00a…f05a               4e 54 20 54 4f 20 46 49 52 53 54 20 45 58 54 45 4e 54 20 54 41 53 4b 20 00 4b 00 dc 00 1c 00 50 5c 53 54 2a 5c 41 34 2c 53 43 54 54 43 54 5c 49 4e 20 54 43 54 41 42 20 00 4b 01 10 00 2e 00 50 5c 43 41 4c 4c 5c 4d 58 3a 54 44 42 5c 46 49 4e   ┆NT TO FIRST EXTENT TASK  K     P ST* A4,SCTTCT IN TCTAB  K   . P CALL MX:TDB FIN┆
0xf05a…f0aa               44 20 46 49 52 53 54 20 4d 4f 4e 49 54 4f 52 20 45 58 54 45 4e 54 20 54 44 42 00 4b 01 30 00 34 00 50 5c 4c 44 5c 41 34 2c 53 43 54 4d 4f 58 5c 47 45 54 20 41 44 44 52 45 53 53 20 54 4f 20 53 54 41 52 54 2d 41 44 44 52 45 53 53 20 54 41 42   ┆D FIRST MONITOR EXTENT TDB K 0 4 P LD A4,SCTMOX GET ADDRESS TO START-ADDRESS TAB┆
0xf0aa…f0fa (156, 0, 400) 4c 45 00 4b 01 62 00 22 00 50 5c 52 46 28 4e 5a 29 5c 42 4d 58 30 35 5c 41 4c 52 45 41 44 59 20 44 45 46 49 4e 45 44 20 00 4c 00 0a 00 24 00 50 5c 4c 44 5c 41 34 2c 53 43 54 53 46 41 5c 53 54 41 52 54 20 4f 46 20 46 52 45 45 20 41 52 45 41   ┆LE K b " P RF(NZ) BMX05 ALREADY DEFINED  L   $ P LD A4,SCTSFA START OF FREE AREA┆
0xf0fa…f14a               00 4c 00 30 00 30 00 50 5c 53 54 5c 41 34 2c 53 43 54 4d 4f 58 5c 41 44 44 52 45 53 53 20 54 4f 20 53 54 41 52 54 2d 41 44 44 52 45 53 53 20 54 41 42 4c 45 00 4c 00 58 00 34 00 50 5c 4c 44 4b 5c 41 34 2c 32 5c 49 4e 49 54 49 41 4c 20 4c 45   ┆ L 0 0 P ST A4,SCTMOX ADDRESS TO START-ADDRESS TABLE L X 4 P LDK A4,2 INITIAL LE┆
0xf14a…f19a               4e 47 54 48 20 4f 46 20 53 54 41 52 54 2d 41 44 44 52 45 53 53 20 54 41 42 4c 45 20 00 4c 00 8c 00 26 00 50 5c 53 54 2a 5c 41 34 2c 53 43 54 4d 4f 58 5c 53 54 4f 52 45 20 49 4e 20 46 49 52 53 54 20 57 4f 52 44 00 4c 00 c4 00 24 00 50 5c 53   ┆NGTH OF START-ADDRESS TABLE  L   & P ST* A4,SCTMOX STORE IN FIRST WORD L   $ P S┆
0xf19a…f1ea               55 4b 5c 41 34 2c 32 5c 52 45 53 45 54 20 54 41 53 4b 20 49 44 20 43 4f 55 4e 54 45 52 20 00 4c 00 ee 00 22 00 50 5c 4c 44 52 5c 41 32 2c 41 31 5c 47 45 54 20 50 4f 49 4e 54 45 52 20 54 4f 20 54 44 42 20 00 4c 01 16 00 24 00 50 5c 4c 44 52   ┆UK A4,2 RESET TASK ID COUNTER  L   " P LDR A2,A1 GET POINTER TO TDB  L   $ P LDR┆
0xf1ea…f23a               5c 41 33 2c 41 37 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 45 58 54 45 4e 54 53 00 4c 01 3c 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 32 5c 00 4c 01 64 00 20 00 50 42 4d 58 30 31 5c 53 55 4b 5c 41 33 2c 31 5c 4d 4f 52 45 20 45 58 54 45 4e 54   ┆ A3,A7 GET NUMBER OF EXTENTS L <   P SUK A2,2  L d   PBMX01 SUK A3,1 MORE EXTENT┆

Reduced view