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

⟦8e0630664⟧

    Length: 40706 (0x9f02)
    Notes: pts_type(SC)
    Names: »FMCDEF.SC«

Derivation

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

	IDENT FMCDEF 	REL 11.0 81-05-13 870105041100 

* 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS                  *
* 
*   FMCDEF = FILE MANAGEMENT SUBMODULE           *
* 
* 
* 
* 
**************************************************
* 
* 
*   FMCDEF CONTAINS THE FOLLOWING MODULES 
* 
*   - CREATE   CREATE FILE
*   - DELETE   DELETE FILE
*   - EXTEND   EXTEND FILE
* 
* 
	EJECT		FMCDEF
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	CREATE	CREATE FILE 
	ENTRY	DELETE	DELETE FILE 
	ENTRY	EXTEND	EXTEND FILE 
	ENTRY	SEXTNO	FILE EXTENT NUMBER
	ENTRY	DV3RST 
* 
	EJECT		FMCDEF
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	FPB:BF	BLOCK FACTOR
	EXTRN	FPB:FN	FILE NAME 
	EXTRN	FPB:EL	ENLARGE 
	EXTRN	FPB:S1	SIZE 1
	EXTRN	FPB:IF	NUMBER OF INDEX FILES 
	EXTRN	FPB:MN	MONITOR NUMBER
	EXTRN	FPB:SN	SOP SWITCH NUMBER 
	EXTRN	FPB:KA	KEY ADDRESS IN RECORD 
	EXTRN	FPB:CD	CREATION DATE 
	EXTRN	ECBFC	ECB FILE CODE (FILE NUMBER)
	EXTRN	FILCOD	FILE CODE SAVE AREA 
	EXTRN	FM:RQE	FM REQUEST ERROR COMMON EXIT
	EXTRN	FMEXIT	FM COMMON EXIT
	EXTRN	FM:BUF	FM COMMON READ/WRITE BUFFER 
	EXTRN	FM:IO	FM COMMON IO ROUTINE 
	EXTRN	FM:ECB	FM COMMON ECB 
* 
	EJECT		FMCDEF
* 
* 
	EXTRN	VTC:EN	EXTENT NUMBER 
	EXTRN	VOL:EL	VOL.LABEL DISPL. VTOC EXTENT LENGTH 
	EXTRN	VTC:FS	FILE SECTION NUMBER 
	EXTRN	VTC:EB	EXTENT BASE 
	EXTRN	VOL:EB	VTOC EXTENT BASE
	EXTRN	VOL:FS	FSAT LENGTH 
	EXTRN	VTC:EL	FILE EXTENT LENGTH
	EXTRN	VTC:RL	RECORD LENGTH 
	EXTRN	VTC:BF	BLOCK FACTOR
	EXTRN	VTC:FO	FILE ORGANISATION 
	EXTRN	VTC:CD	CREATION DATE 
	EXTRN	VTC:IF	NUMBER OF INDEX FILES 
	EXTRN	VTC:LR	LAST RECORD NUMBER
	EXTRN	VTC:KA	KEY ADDRESS IN RECORD 
	EXTRN	VTC:ST	STATUS BYTE 
	EXTRN	VTC:NE	MAX EXTENT NUMBER 
	EXTRN	VTC:MN	MONITOR NUMBER
	EXTRN	VTC:FN	FILE NUMBER 
	EXTRN	VOLUME	POINTER IN FILCOD TO ACTUAL FILE CODE 
* 
	EJECT		FMCDEF
* 
* 
	EXTRN	FNDVTC	VTOC ENTRY FROM FILE NAME 
	EXTRN	DSUMOD	DOUBLE SUBTRACT 
	EXTRN	ADDMOD	DOUBLE ADD
	EXTRN	FWTNAM	FWT DISPLACEMENT FOR VOLUME NAME
	EXTRN	RDVTO2	READ VTOC SECTOR
	EXTRN	FMREAD	FM READ SUBROUTINE
	EXTRN	FM:MOV	MOVE SYSTEM-SYSTEM
	EXTRN	CMPDWD	COMPARES TWO STRINGES 
	EXTRN	RETCOD	RETURN CODE AREA IN FMTASK
	EXTRN	DLCLO1	CLOSE AFTER DELETE
	EXTRN	DLCLO2	CLOSE WITHOUT DELETE
	EXTRN	FWTPAR	FWT PARAMETER DISPLACEMENT
	EXTRN	FWTEW1	EWT POINTER IN FWT
	EXTRN	EWTVOL	FILE CODE DISPLACEMENT IN EWT 
	EXTRN	EWTSEX	FSN,FEN DISPLACEMENT IN EWT 
	EXTRN	FCHEC2	GET FWT ADDRESS FROM FILE NUMBER
	EXTRN	OPEN	OPEN ENTRY IN FM TASK 
	EXTRN	FM:MV4	MOVE FOUR CHARACTERS
	EXTRN	FM:MV8	MOVE EIGHT CHARACTERS 
	EXTRN	VTOCRL	VTOC RECORD LENGTH
	EXTRN	VTOCBF	VTOC BLOCKING FACTOR
	EXTRN	OPEXT	OPEN EXTENDED FILE 
	EXTRN	FM:INE	ILLEGAL NAME IN FM
	EXTRN	CMPSTR	COMPARE STRINGS 
	EXTRN	FEXTNO	FILE EXTENT NUMBER
	EXTRN	FNDVT2	FIND VTOC ENTRY 
* 
	EJECT		FMCDEF
* 
* 
******************************************
* 
*   CONDITIONAL ASSEMBLY
* 
******************************************
* 
* 
*   A  FULL INTRUCTION SET MAY BE INCLUDED
*   BY SETTING CPU852 EQU 0 
* 
* 
CPU852	EQU	1
* 
* 
*   THE EXTEND FILE FUNCTION IS 
*   OBTAINED BY SETTING XTEND EQU 1.
* 
XTEND	EQU	1 
X:A	EQU	XTEND 
* 
	EJECT		FMCDEF
* 
* 
************* 
* CONSTANTS * 
************* 
* 
* 
SPACES	EQU	/2020	ASCII SPACE
MAXEXT	EQU	63	MAX NUMBERS OF EXTENTS/FILE SECTION 
FSATRL	EQU	8	SIZE OF EACH ENTRY IN FSAT 
* 
* 
****************
* RETURN CODES *
****************
* 
* 
RC:NVL	EQU	/20	NEW VOLUME LOADED
RC:DAB	EQU	/4000	DELETE ABORTED 
RC:OFL	EQU	/10	OVER FLOW
RC:SEO	EQU	/200+RC:OFL	SECTION /EXTENT OVER FLOW
* 
	EJECT		FMCDEF
* 
* 
************* 
* WORK AREA * 
************* 
* 
* 
SEXTNO	DATA	0	FILE SECTION AND EXTENT NUMBER
SAVEA9	DATA	0	SAVE AREA FOR USER ECB ADDRESS
* 
* 
*   A9 IS USED AS BASE REGISTER FOR WRKARE
* 
* 
WRKARE	EQU	*
	DATA	0,0,0,0,0	VTOC RECORD 
	DATA	0,0,0,0,0 
	DATA	0,0,0,0,0 
	DATA	0,0,0,0,0 
	DATA	/00FF	NO OF EXTENTS,VTOC OCCUPIED 
* 
	EJECT		FMCDEF
* 
* 
FILLEN	EQU	*-WRKARE	FILE SECTION LENGTH TO BE CREATED 
	DATA	0,0 
VTCSEC	EQU	*-WRKARE	VTOC BASE SECTOR
	DATA	0 
FSATLE	EQU	*-WRKARE	FSAT LENGTH IN BYTES
	DATA	0 
VTCEND	EQU	*-WRKARE	VTOC LAST SECTOR
	DATA	0 
FSATBA	EQU	*-WRKARE	FSAT BASE SECTOR
	DATA	0 
EXTLEN	EQU	*-WRKARE	REMAINING EXT LENGTH
	DATA	0,0 
FWTSAV	EQU	*-WRKARE	FWT ADDRESS SAVE AREA 
	DATA	0 
EXTZER	EQU	*-WRKARE	1ST VTOC ENTRY SECTOR 
	DATA	0 
WRKALE	EQU	*-WRKARE	LENGTH OF WORK AREA 
* 
	EJECT		FMCDEF
* 
* 
******************************************
*                                        *
*   CREATE ENTRY                         *
*                                        *
******************************************
* 
*   PARAMETERS FROM FMTASK: 
* 
*              A1  = 0
*              A5  = TTAB ADDRESS OF CALLING TASK 
*              A8  = FM ECB ADDRESS 
*              A9  = USER ECB ADDRESS 
*              A10 = FILE PARAMETER BLOCK ADDRESS 
* 
* 
CREATE	EQU	*
	CF	A14,CENTRY	CLEAR WORK AREA AND SAVE PARAMETERS
	LDK	A5,3	VOLUME COUNTER
CRE:02	EQU	*
	LC	A1,FILCOD,A5	FILE CODE
	ANK	A1,/FF 
	RF(Z)	CRE:04	NO VOLUME SPECYFIED 
	LDR	A2,A5	FILE SECTION NUMBER
	CF	A14,GETFIL	REQUESTED LENGTH 
	RF(NZ)	CRE:06	LENGTH SPECYFIED 
CRE:04	EQU	*
	SUK	A5,1 
	RB(NN)	CRE:02	NEXT VOLUME
	ABL	CDERQE	REQUEST ERROR NO LENGTH SPECYFIED 
* 
	EJECT		FMCDEF
* 
* 
*   PREPARE VTOC RECORD 
* 
* 
CRE:06	EQU	*
	IFT	CPU852=1 
	LDR	A1,A10	GET FPB ADDRESS 
	ADKL	A1,FPB:FN	FILE NAME DISPLACEMENT
	LDR	A3,A9	VTOC ADDRESS 
	CF	A14,FM:MV8	FILE NAME
	XIF
* 
	IFT	CPU852=0 
	ML	4,FPB:FN,A10	FILE NAME
	MS	4,VTC:FN,A9 
	XIF
* 
	LDR*	A1,A10	GET RECORD LENGTH
	ST	A1,VTC:RL,A9
	LD	A1,FPB:BF,A10	BLOCKING FACTOR, FILE ORG 
	ST	A1,VTC:BF,A9
* 
	EJECT		FMCDEF
* 
* 
	LDR	A1,A10 
	ADKL	A1,FPB:CD	CRD 
	LDR	A3,A9
	ADKL	A3,VTC:CD 
	LDK	A2,9 
	CF	A14,FM:MOV	CRD,RET PERIOD 
	LDK	A7,6	NUMBER OF CHARACTERTS 
	SUK	A3,3	ADDRESS TO CHAR 
CRE:10	EQU	*
	SUK	A3,2	NEXT CHARACTERS 
	LDR*	A1,A3 
	RF(Z)	CRE:20	BINARY ZERO 
	CWK	A1,/3030	NUMERICAL ZERO
	RF(NE)	CRE:30
CRE:20	EQU	*
	SUK	A7,2	COUNTER 
	RB(NZ)	CRE:10
	LDR	A8,A3	ADDRESS TO CRD 
	LKM
	DATA	11
	LDKL	A8,FM:ECB	ECB ADDRESS 
CRE:30	EQU	*
	LC	A2,FPB:IF,A10	NUMBER OF INDEX FILES 
	LD	A1,FPB:KA,A10	KEY ADDRESS 
	SC	A2,VTC:IF,A9
	ST	A1,VTC:KA,A9
	CF	A14,CHKFIL	CHECK FROM FIRST FILE CODE (A5=0)
	RF(NZ)	CDEINE	FILE ALREADY IN ONE OF VOLUMES 
	LDR	A6,A10	FPB ADDRESS 
	ADKL	A6,FPB:FN 
	SUKL	A6,FWTNAM 
	ST	A6,FWTSAV,A9	INTO SAVE AREA 
* 
	EJECT		FMCDEF
* 
* 
*   CREATE FILE SECTIONS
* 
* 
CRE:40	EQU	*
	CF	A14,CREFIL	CREATE FILE SECTION
	RF(NZ)	CREDEL	ERROR
	CWK	A2,3 
	RB(NG)	CRE:40	NEXT SECTION 
	LD	A5,VOLUME	FILE SECTION OF FIRST SPECYFIED VOLUME
	LCR	A7,A5	FILE CODE
	ANK	A7,/FF 
	LDKL	A3,OPEN 
	RF	EXIT10	OPEN CREATED FILE
* 
	EJECT		FMCDEF
* 
* 
*   DELETE CREATED PARTS OF FILE IN CASE OF ERROR 
*   INPUT A4 = RETURN CODE
* 
* 
CREDEL	EQU	*
	SUK	A4,RC:NVL
	RF(Z)	CRED80	NEW VOLUME LOADED 
	CM	VTC:FS,A9	FIRST VOLUME
	CF	A14,DELFIL	DELETE CREATED FILE
CRED80	EQU	*
	RF	CDEXIT	END REQUEST
* 
	EJECT		FMCDEF
* 
* 
******************************************
*                                        *
*   DELETE ENTRY                         *
*                                        *
******************************************
* 
*   PARAMETERS FROM FMTASK SEE CREATE ENTRY 
* 
* 
DELETE	EQU	*
	CF	A14,EDENTR	CLEAR WORK AREA AND SAVE PARAM.
	RF(NZ)	DEL:90	ERROR END REQUEST
	LC	A1,FWTPAR,A6
	LDR	A2,A1
	ANK	A2,/3F	NUMBER OF USERS 
	SUK	A2,1 
	RF(Z)	DEL:00	ONE USER
	LDKL	A4,RC:DAB	RC:DELETE ABORTED 
	LDKL	A3,DLCLO2	CLOSE FILE FOR THIS USER
	RF	EXIT10
* 
	EJECT		FMCDEF
* 
* 
*   COLLECT FILE CODES AND DELETE FILE SECTIONS 
* 
* 
DEL:00	EQU	*
	CM	FILCOD	CLEAR FILE CODE AREA 
	CM	FILCOD+2
	ADKL	A6,FWTEW1 
DEL:10	EQU	*
	LDR*	A6,A6 
	LDKL	A1,-4 
	LC	A2,EWTVOL,A6	GET FILE CODE
DEL:20	EQU	*
	ADK	A1,1 
	RF(P)	DEL:40	NEXT EWT
	LC	A3,FILCOD+3,A1	COLLECTED FILE CODE
	ANK	A3,/FF 
	RF(Z)	DEL:30	NO MORE COLLECTED FILE CODES
	CWR	A3,A2
	RB(NE)	DEL:20	CHECK NEXT 
DEL:30	EQU	*
	SC	A2,FILCOD+3,A1	SAVE FILE CODE 
DEL:40	EQU	*
	LDR*	A6,A6 
	RB(NZ)	DEL:10	NEXT ENTRY IN EWT
	CF	A14,DELFIL	DELETE FILE
DEL:60	EQU	*
	LDKL	A3,DLCLO1	CLOSE FILE
* 
	EJECT		FMCDEF
* 
* 
EXIT00	EQU	*
	LD	A6,FWTSAV,A9	GET FWT ADDRESS
EXIT10	EQU	*
	ORS	A4,RETCOD	SAVE RETURN CODE 
	LDK	A4,0 
EXIT20	EQU	*
	LD	A9,SAVEA9 
	ABR	A3	BACK TO FMTASK
DEL:90	EQU	*
	LDR	A1,A4	RETURN CODE
	SUK	A1,RC:NVL	NEW VOLUME LOADED
	RB(Z)	DEL:60	CLOSE FILE
CDEXIT	EQU	*
	LDKL	A3,FMEXIT 
	RB	EXIT10	END REQUEST
* 
CDERQE	EQU	*
	LDKL	A3,FM:RQE	REQUEST ERROR 
	RB	EXIT20
CDEINE	EQU	*
	LDKL	A3,FM:INE	ILLEGAL VOLUME/FILE NAME
	RB	EXIT20
* 
	EJECT		FMCDEF
* 
* 
********************************************* 
*                                           * 
*   EXTEND ENTRY                            * 
*                                           * 
********************************************* 
* 
*   PARAMETERS FROM FMTASK SEE CREATE ENTRY 
* 
* 
EXTEND	EQU	*
	IFT	XTEND=1
	CF	A14,EDENTR	CLEAR WORK AREA MAKE PREPARATIONS
	RB(NZ)	CDEXIT	ERROR
	LDKL	A5,FWTEW1	EXTENT POINTER
	ADR	A5,A6
EXT:00	EQU	*
	LDR	A2,A5	SAVE LAST POINTER
	LD*	A5,0,A5
	RB(NZ)	EXT:00	NEXT ENTRY 
	LC	A5,EWTSEX,A2
	ST	A5,SEXTNO	SAVE FSN,FEN
* 
	EJECT		FMCDEF
* 
* 
	LD	A2,FPB:EL,A10	GET ENLARGE 
	RB(Z)	CDERQE	NO SPECYFIED LENGTH 
	ST	A2,EXTLEN+2,A9
	LDR	A2,A5	FSN,FEN
	ADK	A2,1	NEXT EXTENT 
	ANK	A2,/FF 
	RF(NZ)	EXT:15	NOT SECTION OVERFLOW 
	LDKL	A4,RC:SEO	RC: SECTION OVERFLOW
	RB	CDEXIT
EXT:15	EQU	*
	SRL	A2,6	FSN 
	LC	A2,FILCOD,A2	FILE CODE
	CF	A14,FNDVTC	GET 1ST VTOC ENTRY 
	ADK	A4,0 
	RB(NZ)	CDEXIT	READ ERROR 
	CF	A14,RDVTO2	GET 1ST VTOC ENTRY 
	ADK	A4,0 
	RB(NZ)	CDEXIT	READ ERROR 
	ST	A2,EXTZER,A9	SAVE SECTOR NUMBER OF 1ST EXT
	LC	A4,VTC:FO,A13	FILE ORGANISATION 
	SUK	A4,'L' 
	RB(E)	CDERQE	L FILE
* 
	EJECT		FMCDEF
* 
* 
	LDR	A1,A13 
	LDKL	A2,VTOCRL-2 
	LDR	A3,A9	VTOC RECORD ADDRESS
	CF	A14,FM:MOV	MOVE VTOC TO WORK AREA 
	LDR	A2,A5	FEN
	ADK	A2,1 
	ANK	A2,/3F 
	ST	A2,VTC:EN,A9	NEXT FILE EXTENT TO CREATE 
	CM	VTC:LR,A9	CLEAR LAST RECORD NUMBER
	CM	VTC:LR+2,A9 
	SRL	A5,6	FILE SECTION NUMBER 
	ADK	A5,1 
	CF	A14,CHKFIL	CHECK IF FILE ALREADY IN SYSTEM
	RB(NZ)	CDEINE
EXT:20	EQU	*
	CF	A14,EXTFIL	EXTEND FILE SECTION
	RB(NZ)	CDEXIT	RETURN CODE FROM EXTFIL
	SUK	A2,3 
	RB(NP)	EXT:20	NEXT FILE SECTION
	LD	A5,SEXTNO	FSN,FEN 
	SRL	A5,6	FILE SECTION NUMBER 
	LC	A2,FILCOD,A5	GET CORRESPONDING FILE CODE
	ADKL	A5,FILCOD	ADDRESS TO FC 
	ST	A5,VOLUME 
	LDK	A5,/3F 
	ANS	A5,SEXTNO	FEN
	LDKL	A3,OPEXT	OPEN EXTENDED FILE 
	RB	EXIT00
	XIF
* 
	IFT	XTEND=0
	RB	CDERQE	FUNCTION NOT INCLUDED, ERROR 
	XIF
* 
	EJECT		FMCDEF
* 
* 
**********
* CREFIL *
* EXTFIL *
**********
* 
* 
*   CREATES FILE SECTION IF FILE CODE SPECIFIED IN FILCOD 
* 
*   INPUT  :  A2  = FILE SECTION NUMBER 
*             A8  = FM ECB ADDRESS
*             A9 = WRKARE BASE ADDRESS
*            A10 = FPB ADDRESS
*            EXTLEN = REST LENGTH FROM PREVIOUS SECTIONS
* 
*   OUTPUT  :  A4 = RETCOD = RETURN CODE
*             A2 = INCREMENTED FILE SECTION NUMBER
*              CR SET ACCORDING TO A4 
* 
CREFIL	EQU	*
	CF	A14,GETFIL	GET FILE SECTION LENGTH
	RF(NZ)	CEF010	DEMANDED FILE SECTION LENGTH 
* 
	EJECT		FMCDEF
* 
* 
EXTFIL	EQU	*	EXTEND FILE
* 
	IFT	CPU852=1 
	LD	A1,EXTLEN,A9	REST LENGTH FROM PREVIUS SECTIONS
	LD	A2,EXTLEN+2,A9
	XIF
* 
	IFT	CPU852=0 
	ML	2,EXTLEN,A9	REST LENGTH FROM PREVIUS SECTIONS 
	XIF
* 
	CM	EXTLEN,A9 
	CM	EXTLEN+2,A9 
* 
	EJECT		FMCDEF
* 
* 
CEF000	EQU	*
	LDK	A4,0	RESET RETURN CODE 
	CF	A14,DBLX00	SET CR ACCORDING TO A1,A2
	ABL(Z)	CEFOUT	NO LENGTH TO BE CREATED
CEF010	EQU	*
* 
	IFT	CPU852=1 
	ST	A1,FILLEN,A9	FILE SECTION LENGTH TO CREATE
	ST	A2,FILLEN+2,A9
	CF	A14,DV3RST	MAKE FILE SECTION LENGTH MULT OF 3 
	LDR	A6,A9
	ADK	A6,FILLEN
	LDR	A3,A6
	CF	A14,DBLADR
	XIF
* 
	IFT	CPU852=0 
	MS	2,FILLEN,A9	FILE SECTION LENGTH TO CREATE 
	CF	A14,DV3RST	MAKE FILE SECTION MULT OF 3
	DA	FILLEN,A9 
	MS	2,FILLEN,A9 
	XIF
* 
	CF	A14,GET:FC	GET FILE CODE
	RF(Z)	CEFOUT	NOT SPECIFIED VOLUME
	CF	A14,VTCPAR	GET VTOC PARAMETERS
	RF(NZ)	CEFOUT
* 
	EJECT		FMCDEF
* 
* 
*   SCAN FSAT TO FIND FITTING EXTENTS 
* 
*   INPUT : A8=ECB ADDRESS
*           FSATBA = FSAT BASE SECTOR 
*           FILLEN = WANTED EXTENT LENGTH 
* 
* 
CEF100	EQU	*
	SUR	A12,A12	FLAG INDICATING FITTING EXTENT FOUND 
	CM	VTC:EL,A9	RESET MOST FIT EXTENT LENGTH
	CM	VTC:EL+2,A9 
	LDK	A5,0	1ST POSITION IN FSAT
CEF110	EQU	*
	CF	A14,FSREAD	READ FSAT
	RF(NZ)	CEFOUT	DISC ERROR 
* 
	IFT	CPU852=1 
	ADKL	A2,FM:BUF	ADDRESS TO N:TH EXTLEN IN FSAT
	LDR	A13,A2	SAVE
	LDK	A1,FILLEN	ADDRESS TO WANTED EXTENT LENGTH
	ADR	A1,A9
	CF	A14,CMPDWD
	XIF
* 
	IFT	CPU852=0 
	LDR	A13,A2	SAVE DISPLACEMENT 
	ADKL	A13,FM:BUF
	ML	2,FILLEN,A9	WANTED EXTENT LENGTH
	DSR*	A13	EXTENTION LENGTH
	XIF
* 
	RF(E)	CEF120	EXTENT FOUND
	RF(L)	CEF130	FOUND EXTENT GREATER THAN WANTED
	LDR	A12,A12
	RF(NZ)	CEF160	GREATER FREE EXTENT ALREADY FOUND
* 
	EJECT		FMCDEF
* 
* 
	IFT	CPU852=1 
	LDKL	A1,VTC:EL	ADDRESS TO PRESENT MOST FIT 
	ADR	A1,A9
	LDR	A2,A13 
	CF	A14,CMPDWD
	XIF
* 
	IFT	CPU852=0 
	ML	2,VTC:EL,A9	PRESENT MOST FIT
	DSR*	A13	EXTENT LENGTH 
	XIF
* 
	RF(NL)	CEF160	NOT GREATER THAN LAST FOUND MOST FIT 
	RF	CEF150
* 
	EJECT		FMCDEF
* 
* 
CEF120	EQU	*
	LDKL	A12,-1	INDICATE EQUAL FOUND 
	RF	CEF150
CEF130	EQU	*
	LDR	A12,A12
	RF(Z)	CEF140	1ST GREATER EXTENT FOUND
* 
	IFT	CPU852=1 
	LDKL	A1,VTC:EL	ADDRESS TO PRESENT MOST FIT 
	ADR	A1,A9
	LDR	A2,A13 
	CF	A14,CMPDWD
	XIF
* 
	IFT	CPU852=0 
	ML	2,VTC:EL,A9	PRESENT MOST FIT
	DSR*	A13	EXTENT LENGTH 
	XIF
* 
	RF(NG)	CEF160	NOT MOST FIT 
CEF140	EQU	*
	LDKL	A12,1	INDICATE GREATER FOUND
CEF150	EQU	*
* 
	IFT	CPU852=1 
	LDR	A1,A13	MOVE FROM BUFFER
	LDKL	A3,VTC:EL	TO WORK AREA
	ADR	A3,A9
	CF	A14,FM:MV8
	XIF
* 
	IFT	CPU852=0 
	MLR	4,A13	FROM FM:BUF TO WORK AREA 
	MS	4,VTC:EL,A9 
	XIF
* 
	LDK	A4,0	RESET RC
	LDR	A6,A5	SAVE MOST FIT DISPLACEMENT 
	LDR	A12,A12
	RF(N)	CEF170	EQUAL FOUND 
* 
	EJECT		FMCDEF
* 
* 
CEF160	EQU	*
	ADK	A5,FSATRL	NEXT ENTRY IN FSAT 
	CW	A5,FSATLE,A9
	RB(L)	CEF110	SCAN MORE ENTRIES IN FSAT 
CEF170	EQU	*
* 
	IFT	CPU852=1 
	LD	A1,VTC:EL,A9
	RF(NZ)	CEF200	SPACE ON DISC
	LD	A2,VTC:EL+2,A9
	SUK	A2,2 
	XIF
* 
	IFT	CPU852=0 
	ML	2,VTC:EL,A9 
	RF(NZ)	CEF200	SPACE ON DISC
	SUK	A2,2 
	XIF
* 
	ABL(NP)	CEF500	NO SPACE ON DISC
* 
	EJECT		FMCDEF
* 
* 
*   UPDATE FSAT 
* 
*   INPUT : A6 = DISPLACEMENT IN FSAT TO BE UPDATED 
*           A12 = 0 ,IF EXTENT SMALLER THAN REQUESTED 
*              = 1 ,IF GREATER
*           FM:BUF = FILE MANAGEMENT BUFFER 
*           VTC:EL = FILE EXTENT LENGTH 
*           VTC:EB = FILE EXTENT BASE 
* 
CEF200	EQU	*
	LDR	A5,A6	GET ENTRY IN FSAT
	CF	A14,FTREAD
	RF(NZ)	CEFOUT	READ ERROR 
	ANK	A5,/F8	DISPLACEMENT IN FSAT SECTOR 
	LDR	A12,A12
	RF(NZ)	CEF210	DELETE FSAT ENTRY
* 
	IFT	CPU852=1 
	LD	A1,VTC:EL,A9	EXTENT LENGTH
	LD	A2,VTC:EL+2,A9
	XIF
* 
	IFT	CPU852=0 
	ML	2,VTC:EL,A9	EXTENT LENGTH 
	XIF
* 
	CF	A14,DV3RST
	RF(Z)	CEF220	NO REST 
* 
	EJECT		FMCDEF
* 
* 
	IFT	CPU852=1 
	LDKL	A3,VTC:EL	GET ADDRESS TO EXTENT LENGTH
	ADR	A3,A9
	LDR	A6,A3
	SUK	A2,3 
	SUK	A1,1	A1=/FFFF
	CF	A14,DBLADR	MAKE EXTENT MULTIPLE OF 3
	XIF
* 
	IFT	CPU852=0 
	SUK	A2,3	-REST 
	SUK	A1,1	/FFFF 
	ANKL	A2,/7FFF
	DA	VTC:EL,A9 
	MS	2,VTC:EL,A9	EXTENT LENGTH MULT OF 3 
	XIF
* 
	RF	CEF220
CEF210	EQU	*
* 
	IFT	CPU852=1 
	LDKL	A3,VTC:EL	GET FILE EXTENT LENGTH
	ADR	A3,A9
	LDK	A1,FILLEN
	ADR	A1,A9
	CF	A14,FM:MV4
	XIF
* 
	IFT	CPU852=0 
	ML	2,FILLEN,A9	FILE EXTENT LENGTH
	MS	2,VTC:EL,A9 
	XIF
* 
	EJECT		FMCDEF
* 
* 
CEF220	EQU	*
	LDKL	A3,FM:BUF	FSAT EXTENT LENGTH
	ADR	A3,A5
	CF	A14,DBLSU1	NEW EXTENT LENGTH=OLD LENGTH-CREATED LENGTH
	RF(NZ)	CEF230	REST EXTENT LENGTH GREATER 
	CF	A14,CLFSAT	CLEAR FSAT ENTRY 
	RF	CEF240
CEF230	EQU	*
* 
	IFT	CPU852=1 
	LDKL	A3,FM:BUF+4 
	ADR	A3,A5
	LDKL	A6,VTC:EL	EXTENT BASE+LENGTH
	ADR	A6,A9
	CF	A14,DBLADD	NEW EXTENTBASE=EXTBASE+CREATED EXTBASE 
	XIF
* 
	IFT	CPU852=0 
	ML	2,FM:BUF+4,A5 
	DA	VTC:EL,A9 
	MS	2,FM:BUF+4,A5	NEW EXT BASE=EXTBAS+CREATED EXTBASE 
	XIF
* 
CEF240	EQU	*
	CF	A14,CDEWRI	WRITE
	RF(Z)	CEF350	WRITE OK
CEFOUT	EQU	*
	CM	EXTZER,A9	1ST VTOC POINTER
	IM	VTC:FS,A9	NEXT SECTION
	LD	A2,VTC:FS,A9
	CM	VTC:EN,A9	EXTENT ZERO 
	ORS	A4,RETCOD	SAVE RETURN CODE 
	ABL	SET:CR	SET CONDITION REGISTER
* 
	EJECT		FMCDEF
* 
* 
*   SEARCH FOR FREE VTOC ENTRIES
* 
* 
*   INPUT : VTCSEC = VTOC BASE SECTOR 
*           VTCEND = VTOC LAST SECTOR 
*           FM:BUF = FM BUFFER
* 
CEF300	EQU	*
	CF	A14,FMREAD	READ VTOC
	RB(NZ)	CEFOUT	DISC ERROR 
	LDKL	A7,VTOCBF	VTOC BLOCK FACTOR 
	LDKL	A13,FM:BUF	BUFFER ADDRESS 
* 
	EJECT		FMCDEF
* 
* 
CEF320	EQU	*
	LD	A4,VTC:ST,A13	VTOC STATUS BYTE
	ANK	A4,/FF 
	RF(Z)	CEF400	FREE VTOC ENTRY FOUND 
	LDKL	A1,VTC:FN	ADDRESS TO FILE NAME
	ADR	A1,A9
	LDR	A2,A13	VTOC FILE NAME
	LDK	A3,8 
	CF	A14,CMPSTR
	RF(NE)	CEF340	NOT SAME NAME
	LD	A1,VTC:EN,A13	EXTENT NUMBER 
	RF(NZ)	CEF340	NOT 1ST
	LD	A1,VTCSEC,A9	VTOC SECTOR NUMBER 
	ST	A1,EXTZER,A9
CEF340	EQU	*
	ADKL	A13,VTOCRL	NEXT VTOC ADDRESS
	SUK	A7,1 
	RB(P)	CEF320	MORE VTOC:S ON THIS SECTOR
	IM	VTCSEC,A9	NEXT VTOC SECTOR
CEF350	EQU	*
	LD	A2,VTCSEC,A9	VTOC SECTOR
	CW	A2,VTCEND,A9
	RB(NE)	CEF300	MORE VTOC SECTORS
	LDK	A4,RC:OFL	RC: NO MORE VOLUMES
	RB	CEFOUT
* 
	EJECT		FMCDEF
* 
* 
*   CREATE A VTOC 
* 
*   INPUT : A10 = FPB ADDRESS 
*           A13 = VTOC ENTRY ADDRESS
*           A8 = FM:ECB ADDRESS 
* 
CEF400	EQU	*
	LC	A4,VTC:FO,A9	FILE ORGANISATION
	SUK	A4,'L' 
	RF(NZ)	CEF450	NOT L FILE 
	LC	A1,FPB:MN,A10	MONITOR NUMBER
	ECR	A1,A1
	LC	A1,FPB:SN,A10	START SWITCH
	ST	A1,VTC:MN,A9	VTOC 
	CM	VTC:KA,A9	KEY ADDRESS 
CEF450	EQU	*
	LDR	A3,A13	MOVE VTOC 
	LDKL	A2,VTOCRL 
	LDR	A1,A9	VTOC RECORD ADDRESS
	CF	A14,FM:MOV
	CF	A14,CDEWRI	WRITE
	RB(NZ)	CEFOUT	WRITE ERROR
* 
	EJECT		FMCDEF
* 
* 
	IM	VTC:EN,A9	NEXT FILE EXTENT
	LDK	A3,FILLEN	ADDRESS TO FILE SECTION LENGTH TO BE CREATED 
	ADR	A3,A9
	CF	A14,DBLSU1	SUBTRACT 
	RF(Z)	CEF600	FILE SECTION READY
	LC	A4,VTC:FO,A9	FILE ORGANISATION
	SUK	A4,'L' 
	RF(Z)	CEF470	TOO MANY EXTENTS
	LD	A1,VTC:EN,A9
	SUK	A1,MAXEXT
	ABL(NP)	CEF100	NEXT EXTENT OF FILE SECTION 
CEF470	EQU	*
	LDKL	A4,RC:SEO	RC: TOO MANY FILE EXTENTS 
	RF	CEF510	TOO MANY FILE EXTENTS
* 
	EJECT		FMCDEF
* 
* 
CEF500	EQU	*
	LDK	A4,RC:OFL	RC: NO MORE VOLUMES
CEF510	EQU	*
	LD	A5,VTC:FS,A9	GET FILE SECTION NUMBER
CEF520	EQU	*
	ADK	A5,1	NEXT VOLUME 
	CWK	A5,3 
	RB(G)	CEFOUT	NO MORE VOLUMES 
	LC	A1,FILCOD,A5	GET FILE CODE
	ANK	A1,/FF 
	RB(Z)	CEF520	NEXT VOLUME 
	LDR	A2,A5
	CF	A14,GETFIL	FILE SECTION LENGTH
	RB(NZ)	CEF520	NO REST PILE 
CEF530	EQU	*
	LDK	A4,0	RESET CR
* 
	IFT	CPU852=1 
	LDK	A3,EXTLEN	SAVE REST FOR LATER
	ADR	A3,A9
	LDK	A6,FILLEN
	ADR	A6,A9
	CF	A14,DBLADD
	XIF
* 
	IFT	CPU852=0 
	ML	2,EXTLEN,A9	SAVE REST 
	DA	FILLEN,A9 
	MS	2,EXTLEN,A9 
	XIF
* 
	EJECT		FMCDEF
* 
* 
CEF600	EQU	*
	LD	A2,EXTZER,A9	1ST EXTENT VTOC SECTOR NO
	RF(NZ)	CEF650	VTOC ENTRY FOUND 
	LD	A2,VTCSEC,A9	LAST SEARCHED SECTOR 
CEF650	EQU	*
	LD	A12,VTCEND,A9	VTOC END
	LD	A6,FWTSAV,A9	GET FILE NAME BASE 
	CF	A14,RDVTO2	SCAN FOR FIRST VTOC
	ADK	A4,0 
	RF(NZ)	CEF900	READ ERROR 
	LD	A1,VTC:EN,A9	LAST EXTENT NUMBER 
	SC	A1,VTC:NE,A13	UPDATE NUMBER OF EXTENTS
	CF	A14,CDEWRI
CEF900	EQU	*
	ABL	CEFOUT 
* 
	EJECT		FMCDEF
* 
* 
**********
* DELFIL *
**********
* 
*   COLLECT ADJECENT EXTENDS AND CREATE ONE NEW 
* 
*   INPUT :  FWTSAV = FWT ADDRESS OR ADJUSTED FPB ADDRESS 
*                 THAT IS (FILENAME)=(FWTSAV)+FWTNAM
*            A8 = FM:ECB ADDRESS
*            FILCOD = AREA CONTAINING FILE CODES
*            VTC:FS SHOULD BE ZERO
* 
DELFIL	EQU	*
	CM	FEXTNO
	CF	A14,GET:FC	GET FILE CODE
	RF(Z)	DELF03	NO SPECIFIED FILE CODE
	CF	A14,VTCPAR GET VTOC PARAMETERS
	RF(NZ)	DELF03	ERROR
DELF00	EQU	*
	LD	A6,FWTSAV,A9	GET FWT ADDRESS
	LD	A12,VTCEND,A9	VTOC END SECTOR 
	LD	A2,VTCSEC,A9	PRESENT VTOC SECTOR
	CF	A14,FNDVT2	NEXT VTOC
	ST	A2,VTCSEC,A9	UPDATE POINTER 
	ADK	A2,0 
	RF(Z)	DELF03	NO ENTRY IN VTOC
	ADK	A4,0 
	RF(Z)	DELF05	NEXT VTOC ENTRY 
* 
	EJECT		FMCDEF
* 
* 
DELF03	EQU	*
	ORS	A4,RETCOD
	IM	VTC:FS,A9	NEXT FILE SECTION 
	LD	A1,VTC:FS,A9
	SUK	A1,4 
	RB(N)	DELFIL	NEXT FILE SECTION 
	RTN	A14
* 
	EJECT		FMCDEF
* 
* 
*   VTC:EB = BASE SECTOR OF CREATED FREE SPACE
*   VTC:EL = END SECTOR OF CREATED FREE SPACE 
* 
* 
DELF05	EQU	*
	LDKL	A1,SPACES 
	STR	A1,A13	SPACES IN FILE NAME 
	ST	A1,2,A13
	ST	A1,4,A13
	ST	A1,6,A13
	CM	VTC:ST,A13	FREE ENTRY 
	LD	A1,VTC:EN,A13	EXTENT NUMBER 
	RF(NZ)	DELF08	NOT 1ST
	LC	A1,VTC:NE,A13	NUMBER OF EXTENTS 
	NGR	A1,A1
	ADS	A1,FEXTNO
* 
	EJECT		FMCDEF
* 
* 
DELF08	EQU	*
* 
	IFT	CPU852=1 
	LDKL	A1,VTC:EL	GET EXTENT LENGTH 
	ADR	A1,A13	MOVE EXT LEN AND EXT BASE TO WORK AREA
	LDKL	A3,VTC:EL 
	ADR	A3,A9
	CF	A14,FM:MV8
	LDKL	A3,VTC:EL	ADDRESS TO EXTENT LENGTH
	ADR	A3,A9
	LDKL	A6,VTC:EB	ADDRESS TO EXTENT BASE
	ADR	A6,A9
	CF	A14,DBLADD	VTC:EL=EXTENT BASE + EXTENT LENGTH 
	XIF
* 
	IFT	CPU852=0 
	ML	4,VTC:EL,A13
	DAR	A3	VTC:EL=EXT BASE+EXT LENGTH
	MS	4,VTC:EL,A9 
	XIF
* 
	CF	A14,CDEWRI	WRITE
	RB(NZ)	DELF03	ERROR
* 
	EJECT		FMCDEF
* 
* 
*   SCAN FOR ADJACENT FREE SPACE
* 
* 
	SUR	A12,A12	POINTER IN FSAT
DELF10	EQU	*
	LDR	A5,A12	DISPLACEMENT IN FSAT
	CF	A14,FSREAD
	RB(NZ)	DELF03	READ ERROR 
* 
	EJECT		FMCDEF
* 
* 
*   EXTLEN = FSAT EXTENT BASE+LENGTH
* 
* 
	ANK	A5,/F8	DISPLACEMENT IN BUFFER
* 
	IFT	CPU852=1 
	LDK	A3,EXTLEN	ADDRESS TO SAVE AREA 
	ADR	A3,A9
	LDKL	A1,FM:BUF+4	MOVE EXTENT BASE FROM FSAT
	ADR	A1,A5
	CF	A14,FM:MV4
	LDK	A3,EXTLEN	ADDRESS TO SAVE AREA 
	ADR	A3,A9
	CF	A14,DBLAD1	FSAT EXTENT BASE+LENGTH
	XIF
* 
	IFT	CPU852=0 
	ML	2,FM:BUF+4,A5 
	DA	FM:BUF,A5 
	MS	2,EXTLEN,A9 
	XIF
* 
	EJECT		FMCDEF
* 
* 
*   CHECK IF ANY LOWER ADJACENT FREE SPACE
* 
* 
	IFT	CPU852=1 
	LDR	A1,A3	ADDRESS TO FSAT BASE+LENGTH
	LDKL	A2,VTC:EB	EXTENT BASE 
	ADR	A2,A9
	CF	A14,CMPDWD	CHECK IF FSAT EXTBASE = EXTBASE+EXTLEN 
	XIF
* 
	IFT	CPU852=0 
	DS	VTC:EB,A9	CHECK IF FSAT EXTBASE=EXTBASE + EXTLEN
	XIF
* 
	RF(NE)	DELF30	NOT ADJECENT 
* 
	IFT	CPU852=1 
	LDKL	A3,VTC:EB 
	ADR	A3,A9
	LDKL	A1,FM:BUF+4	MOVE EXTENT BASE TO VTC:EB
	ADR	A1,A5
	CF	A14,FM:MV4
	XIF
* 
	IFT	CPU852=0 
	ML	2,FM:BUF+4,A5 
	MS	2,VTC:EB,A9 
	XIF
* 
	RF	DELF35	UPDATE FSAT SECTOR 
* 
	EJECT		FMCDEF
* 
* 
*   CHECK IF ANY UPPER ADJACENT FREE SPACE
* 
* 
DELF30	EQU	*
* 
	IFT	CPU852=1 
	LDKL	A1,FM:BUF+4	FSAT EXTENT BASE ENTRY
	ADR	A1,A5	DISPLACEMENT 
	LDKL	A2,VTC:EL	EXTENTBASE + EXTENT LENGTH
	ADR	A2,A9
	CF	A14,CMPDWD	CHECK IF ADJECENT
	XIF
* 
	IFT	CPU852=0 
	ML	2,FM:BUF+4,A5	FSAT EXTENT BASE
	DS	VTC:EL,A9	EXTENT BASE + EXTENT LENGTH 
	XIF
* 
	RF(NE)	DELF40	NOT ADJECENT 
* 
	IFT	CPU852=1 
	LDKL	A3,VTC:EL	EXPAND EXTLEN 
	ADR	A3,A9
	CF	A14,DBLAD1
	XIF
* 
	IFT	CPU852=0 
	ML	2,VTC:EL,A9 
	DA	FM:BUF,A5 
	MS	2,VTC:EL,A9 
	XIF
* 
DELF35	EQU	*
	CF	A14,CLFSAT	FREE FSAT ENTRY
	CF	A14,CDEWRI	WRITE
	RB(NZ)	DELF03	WRITE ERROR
DELF40	EQU	*
	ADKL	A12,FSATRL	NEXT ENTRY IN FSAT 
	CW	A12,FSATLE,A9 
	RB(L)	DELF10	CONTINUE SEARCH OF FSAT 
* 
	EJECT		FMCDEF
* 
* 
*   PUT FREE SPACE IN FSAT SEARCH FOR FREE FSAT ENTRY 
* 
* 
	LDK	A5,0 
DELF50	EQU	*
	CF	A14,FSREAD	GET FSAT ENTRY 
	RB(NZ)	DELF03	READ ERROR 
	LDR	A12,A2	DISPLACEMENT IN BUFFER
	ADKL	A12,FM:BUF	ADDRESS
	LDR	A1,A12 
	CF	A14,GETPAR	GET EXT LEN
	RF(Z)	DELF60	FREE FSAT ENTRY 
	ADK	A5,FSATRL
	CW	A5,FSATLE,A9
	RB(NG)	DELF50
	LDK	A4,RC:OFL	RC: NO FSAT ENTRIES AVAILIBLE
	ORS	A4,RETCOD
	RF	DELF70	DELETE NEXT VTOC ENTRY OF FILE SECTION 
* 
	EJECT		FMCDEF
* 
* 
DELF60	EQU	*
* 
	IFT	CPU852=1 
	LDKL	A3,VTC:EL	EXTENT END
	ADR	A3,A9
	LDKL	A6,VTC:EB	ADDRESS TO EXTENT BASE
	ADR	A6,A9
	CF	A14,DBLSUB	GET EXTENT LENGTH
	LDR	A3,A12	ADDRESS TO FREE FSAT ENTRY
	LDKL	A1,VTC:EL	ADDRESS TO EXT BASE AND EXT LENGTH
	ADR	A1,A9
	CF	A14,FM:MV8	FILL IN FSAT ENTRY 
	XIF
* 
	IFT	CPU852=0 
	ML	4,VTC:EL,A9 
	DSR	A3 
	MSR	4,A12	UPDATE FSAT
	XIF
* 
	CF	A14,CDEWRI	WRITE
	RF(NZ)	DELF80	ERROR
	IM	FEXTNO
DELF70	EQU	*
	ABL(NZ)	DELF00	NEXT EXTENT 
DELF80	EQU	*
	ABL	DELF03	NEXT SECTION
* 
	EJECT		FMCDEF
* 
* 
*************** 
* SUBROUTINES * 
*************** 
* 
* 
**********
* DV3RST *
**********
* 
* 
*   CALCULATES REST WHEN DIVIDE BY 3
* 
*   INPUT  : A1,A2 = DIVIDENT 
* 
*   OUTPUT :    A2 = 3-REST OR IF REST=0 A2=0 
*                A1=0 
* 
DV3RST	EQU	*
	SLL	A1,1 
	ADR	A2,A1
DV3R10	EQU	*
	LDR	A1,A2
	ANK	A1,3	ONE FIGURE IN BASE 4
	SRL	A2,2 
	ADR	A2,A1	ADDED TO REST OF FIGURES IN BASE 4 
	RF(Z)	SET2CR	REST = 0
	SUK	A2,3 
	RB(P)	DV3R10	CONTINUE TO ADD 
	NGR	A2,A2
	RF	SET2CR
* 
	EJECT		FMCDEF
* 
* 
**********
* GETFIL *
* GETPAR *
**********
* 
* 
*   GET FILE SECTION LENGTH 
* 
*   INPUT : A2 = FILE SECTION NUMBER
*          A10 = FPB ADDRESS
* 
*   OUTPUT: A1,A2 = FILE SECTION LENGTH 
*              CR SET ACCORDING TO FILE SECTION LENGTH
* 
* 
GETFIL	EQU	*
	LDR	A1,A2	MULTIPLY BY 10 
	SLL	A1,2 
	ADR	A1,A2
	SLL	A1,1 
	ADR	A1,A10	ADDRESS TO FILE SECTION LENGTH
	ADKL	A1,FPB:S1	SIZE DISPLACEMENT IN FPB
GETPAR	EQU	*
	LD	A2,2,A1	LEAST SIGNIFICANT PART
	LDR*	A1,A1	MOST SIGNIFICANT PART 
	RF	DBLX00	SET CR 
* 
	IFT	CPU852=1 
	EJECT		FMCDEF
* 
* 
**********
* DBLADD *
* DBLADR *
* DBLAD1 *
**********
* 
* 
*   DOUBLE ADD ON MEMORY LOCATIONS
*   DOUBLE ADD ON MEMORY BY REGISTERS A1,A2 
* 
*   INPUT :  A3 = ADDRESS TO ARG1 
*            A6 = ADDRESS TO ARG2 
* 
*   OUTPUT:  A3 = ADDRESS TO ARG1 + ARG2
*            A1,A2 = ARG1+ARG2
*            A6,A7 ARE DESTOYED 
* 
DBLAD1	EQU	*	SPECIAL ENTRY
	LDR	A6,A5
	ADKL	A6,FM:BUF 
DBLADD	EQU	*
	LDR*	A1,A3	GET ARG1
	LD	A2,2,A3 
DBLADR	EQU	*
	LD	A7,2,A6	GET ARG2
	LDR*	A6,A6 
	CF	A14,ADDMOD	ARG1+ARG2
	RF	DBLXIT
	XIF
* 
	EJECT		FMCDEF
* 
* 
**********
* DBLSUB *
* DBLSU1 *
**********
* 
*   DOUBLE SUBTRACT ON MEMORY LOCATIONS 
* 
*   INPUT :  A3 = ADDRESS TO ARG1 
*            A6 = ADDRESS TO ARG2 
* 
*   OUTPUT:  A3 = ADDRESS TO ARG1-ARG2
*            A1,A2 = ARG1-ARG2
*            A6,A7 ARE DESTOIED 
*            IF A1=A2=0 THEN A3=0 
* 
DBLSU1	EQU	*	SPECIAL ENTRY
	LDR	A6,A9
	ADKL	A6,VTC:EL 
DBLSUB	EQU	*
* 
	IFT	CPU852=1 
	LDR*	A1,A3	ARG1
	LD	A2,2,A3 
	LD	A7,2,A6	ARG2
	LDR*	A6,A6 
	CF	A14,DSUMOD	ARG1-ARG2
	XIF
* 
	IFT	CPU852=0 
	MLR	2,A3 
	DSR*	A6
	XIF
* 
	EJECT		FMCDEF
* 
* 
DBLXIT	EQU	*
* 
	IFT	CPU852=1 
	STR	A1,A3	SAVE RESULT
	ST	A2,2,A3 
	XIF
* 
	IFT	CPU852=0 
	MSR	2,A3 
	XIF
* 
DBLX00	EQU	*
	ADKL	A14,4 
	ADK	A1,0 
	RF(NZ)	DBLX10
	ADK	A2,0 
DBLX10	EQU	*
	ABR*	A14 
* 
	EJECT		FMCDEF
* 
* 
**********
* GET:FC *
**********
* 
*   GET FILECODE FROM FILECODE AREA 
* 
*   INPUT  : VTC:FS = FILE SECTION NUMBER 
* 
*   OUTPUT : A2 = FILE CODE 
*            CR SET ACCORDING TO FILECODE 
* 
* 
GET:FC	EQU	*
	LD	A2,VTC:FS,A9	GET FILE SECTION NUMBER
	LC	A2,FILCOD,A2	FILE CODE
SET2CR	EQU	*
	LDK	A1,0 
	RB	DBLX00	SET CR ACCORDING TO A2 
* 
	EJECT		FMCDEF
* 
* 
**********
* CDEWRI *
**********
* 
*   PERFORM WRITE 
* 
*   INPUT: A8=ECB ADDRESS 
*          A7 USED
*   OUTPUT: A4=RETURN CODE
*           CR SET ACCORDING TO RETURN CODE 
* 
* 
CDEWRI	EQU	*
	LDK	A7,/95 
	CF	A14,FM:IO 
	RF	SET:CR
	EJECT		FMCDEF
* 
* 
**********
* CLFSAT *
**********
* 
*   CLEAR 4 WORDS IN FM:BUF SPECIFIED BY A5 
* 
*   INPUT :  A5 = DISPLACEMENT IN FM:BUF
* 
CLFSAT	EQU	*
	CM	FM:BUF,A5 
	CM	FM:BUF+2,A5 
	CM	FM:BUF+4,A5 
	CM	FM:BUF+6,A5 
	RTN	A14
* 
	EJECT		FMCDEF
* 
* 
**********
* CENTRY *
* EDENTR *
**********
* 
*   CREATE,DELETE AND EXTEND PREPARATION ROUTINE
*   CLEAR WORK AREA AND SAVES TTAB ADDRESS
* 
*   INPUT :  A5 = TTAB ADDRESS OF CALLING TASK
*            REGISTER A3 USED 
* 
*   OUTPUT : A4=RC FROM FCHEC2
*            CR SET ACCORDING TO A4 
* 
EDENTR	EQU	*	ENTRY USED BY EXTEND AND DELETE
	INH
	CF	A15,FCHEC2
	ENB
CENTRY	EQU	*	ENTRY USED BY CREATE 
	LDK	A3,WRKALE-2
CDEE05	EQU	*
	CM	WRKARE,A3 
	SUK	A3,2 
	RB(NN)	CDEE05
	ST	A9,SAVEA9	SAVE USER ECB ADDRESS 
	LDKL	A9,WRKARE	BASE ADDRESS
	ST	A6,FWTSAV,A9	SAVE FWT ADDRESS 
	LDK	A3,/FF 
	ST	A3,VTC:ST-1,A9	INDICATE USED ENTRY
	RF	SET:CR
* 
	EJECT		FMCDEF
* 
* 
**********
* FSREAD *
* FTREAD *
**********
* 
*   FSREAD: READ FSAT SECTOR IF 1ST ENTRY IN SECTOR REQUESTED 
*   FTREAD: READ FSAT SECTOR
* 
*   INPUT :  A5 = FSAT DISPLACEMENT 
*            FSATBA = FSAT BASE SECTOR
* 
*   OUTPUT:  A2 = DISPLACEMENT IN FM:BUF
*            A4 = RTETURN CODE FROM READ OPERATION
*            CR IS SET TO ZERO IF A4=0
* 
FSREAD	EQU	*
	LDK	A4,0	RESET RETURN CODE 
	LDR	A2,A5	DISPLACEMENT 
	ANK	A2,/F8 
	RF(NZ)	SET:CR	NOT FIRST IN SECTOR
FTREAD	EQU	*
	ECR	A2,A5	SECTOR NUMBER
	ANK	A2,/FF 
	AD	A2,FSATBA,A9	BASE SECTOR
	CF	A14,FMREAD
	LDK	A2,0	DISPLACEMENT IN BUFFER
SET:CR	EQU	*
	ADKL	A14,4	UPDATE STACK POINTER
	ADK	A4,0	SET CR
	ABR*	A14	RETURN
* 
	EJECT		FMCDEF
* 
* 
**********
* VTCPAR *
**********
* 
*   GET FSAT LENGTH IN BYTES TO WORK AREA 
*       FSAT BASE SECTOR TO WORK AREA 
*       VTOC BASE SECT
*       LAST VTOC SECTOR NUMBER TO WORK AREA
* 
*   INPUT :  A8 = FM:ECB ADDRESS
*            A2 = FILE CODE 
*   OUTPUT:  A4 = 0 IF READ OK
*            A4<> 0 IF READ NOT OK
*            CR SET ACCORDING TO A4 
*   USED REGISTERS A1, A2, A3, A4, A7 
* 
VTCPAR	EQU	*
	SC	A2,ECBFC,A8	PREPARE ECB 
	LDK	A2,0	READ SECTOR ZERO = VOLUME LABEL 
	CF	A14,FMREAD
	RB(NZ)	SET:CR	READ ERROR 
	LDKL	A2,FM:BUF	BUFFER ADDRESS
	LD	A1,VOL:EB,A2	VTOC BASE
	ST	A1,FSATBA,A9	FSAT BASE SECTOR 
	LD	A3,VOL:EL,A2	VTOC LENGTH
	LD	A2,VOL:FS,A2	FSAT LENGTH
	ADR	A3,A1
	ADR	A1,A2
	ECR	A2,A2
* 
	EJECT		FMCDEF
* 
* 
	IFT	CPU852=1 
	ST	A1,VTCSEC,A9	VTOC ENTRIES BASE
	ST	A2,FSATLE,A9	FSAT LENGTH IN BYTES 
	ST	A3,VTCEND,A9	VTOC END SECTOR
	XIF
* 
	IFT	CPU852=0 
	MS	3,VTCSEC,A9 
	XIF
* 
	RB	SET:CR
* 
	EJECT		FMCDEF
* 
* 
**********
* CHKFIL *
**********
* 
* 
*   CHECKS IF FILE EXISTS IN VOLUMES SPECYFIED BY FPB 
* 
*   INPUT :  A5 = START VOLUME IN FILCOD
*            FILCOD - AREA WITH FILE CODES
*   OUTPUT:  A2 = 0 IF NO FILE FOUND
*            A2 <> 0 IF FILE FOUND
*            CR SET ACCORDING TO A2 
*             A1-A7 AND A11-A13 ARE USED
* 
* 
CHKFIL	EQU	*
	SUK	A5,3	FILE CODE POINTER 
CHKF10	EQU	*
	LC	A2,FILCOD+3,A5	GET FILE CODE
	ANK	A2,/FF 
	RF(Z)	CHKF20	NEXT FILE CODE
	LDR	A6,A9
	SUKL	A6,FWTNAM 
	CF	A14,FNDVTC
	ADK	A4,0 
	ABL(NZ)	CDEXIT	DISC ERROR
	ADK	A2,0 
	RB(NZ)	SET2CR	FILE IN ONE OF VOLUMES 
CHKF20	EQU	*
	ADK	A5,1 
	RB(NP)	CHKF10	NEXT ENTRY IN FILCOD 
	RB	SET2CR
* 
	END

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT FMCDEF  REL 11.0 81-05-13 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…008c               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0056}
0x008c…0096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00d0               Head {h00=0x0036, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS                  *«, t00=0x0000, t01=0x009a}
0x00d0…00da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d4}
0x00da…0114               Head {h00=0x0036, h01=0x0050, text=»*   FMCDEF = FILE MANAGEMENT SUBMODULE           *«, t00=0x0000, t01=0x00de}
0x0114…011e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0132               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012c}
0x0132…013c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…0176               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0140}
0x0176…0180               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017a}
0x0180…018a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0184}
0x018a…01bc               Head {h00=0x002e, h01=0x0050, text=»*   FMCDEF CONTAINS THE FOLLOWING MODULES «, t00=0x0000, t01=0x018e}
0x01bc…01c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0030}
0x01c6…01e8               Head {h00=0x001e, h01=0x0050, text=»*   - CREATE   CREATE FILE«, t00=0x0001, t01=0x003a}
0x01e8…020a               Head {h00=0x001e, h01=0x0050, text=»*   - DELETE   DELETE FILE«, t00=0x0001, t01=0x005c}
0x020a…022c               Head {h00=0x001e, h01=0x0050, text=»*   - EXTEND   EXTEND FILE«, t00=0x0001, t01=0x007e}
0x022c…0236               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a0}
0x0236…0240               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00aa}
0x0240…0256               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0001, t01=0x00b4}
0x0256…0260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ca}
0x0260…026a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d4}
0x026a…027e               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x00de}
0x027e…0292               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x00f2}
0x0292…02a6               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0001, t01=0x0106}
0x02a6…02b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011a}
0x02b0…02ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0124}
0x02ba…02dc               Head {h00=0x001e, h01=0x0050, text=» ENTRY CREATE CREATE FILE «, t00=0x0001, t01=0x012e}
0x02dc…02fe               Head {h00=0x001e, h01=0x0050, text=» ENTRY DELETE DELETE FILE «, t00=0x0001, t01=0x0150}
0x02fe…0320               Head {h00=0x001e, h01=0x0050, text=» ENTRY EXTEND EXTEND FILE «, t00=0x0001, t01=0x0172}
0x0320…0348 (2, 0, 400)   Head {h00=0x0024, h01=0x0050, text=» ENTRY SEXTNO FILE EXTENT NUMBER«, t00=0x0002, t01=0x0004}
0x0348…035e               Head {h00=0x0012, h01=0x0050, text=» ENTRY DV3RST «, t00=0x0002, t01=0x002c}
0x035e…0368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0042}
0x0368…037e               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0002, t01=0x004c}
0x037e…0388               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0062}
0x0388…0392               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0392…03a8               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x0076}
0x03a8…03be               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x008c}
0x03be…03d4               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x00a2}
0x03d4…03de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b8}
0x03de…03e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c2}
0x03e8…040a               Head {h00=0x001e, h01=0x0050, text=» EXTRN FPB:BF BLOCK FACTOR«, t00=0x0002, t01=0x00cc}
0x040a…042a               Head {h00=0x001c, h01=0x0050, text=» EXTRN FPB:FN FILE NAME «, t00=0x0002, t01=0x00ee}
0x042a…0448               Head {h00=0x001a, h01=0x0050, text=» EXTRN FPB:EL ENLARGE «, t00=0x0002, t01=0x010e}
0x0448…0464               Head {h00=0x0018, h01=0x0050, text=» EXTRN FPB:S1 SIZE 1«, t00=0x0002, t01=0x012c}
0x0464…0490               Head {h00=0x0028, h01=0x0050, text=» EXTRN FPB:IF NUMBER OF INDEX FILES «, t00=0x0002, t01=0x0148}
0x0490…04b4               Head {h00=0x0020, h01=0x0050, text=» EXTRN FPB:MN MONITOR NUMBER«, t00=0x0002, t01=0x0174}
0x04b4…04dc               Head {h00=0x0024, h01=0x0050, text=» EXTRN FPB:SN SOP SWITCH NUMBER «, t00=0x0003, t01=0x0008}
0x04dc…0508               Head {h00=0x0028, h01=0x0050, text=» EXTRN FPB:KA KEY ADDRESS IN RECORD «, t00=0x0003, t01=0x0030}
0x0508…052c               Head {h00=0x0020, h01=0x0050, text=» EXTRN FPB:CD CREATION DATE «, t00=0x0003, t01=0x005c}
0x052c…055c               Head {h00=0x002c, h01=0x0050, text=» EXTRN ECBFC ECB FILE CODE (FILE NUMBER)«, t00=0x0003, t01=0x0080}
0x055c…0586               Head {h00=0x0026, h01=0x0050, text=» EXTRN FILCOD FILE CODE SAVE AREA «, t00=0x0003, t01=0x00b0}
0x0586…05b8               Head {h00=0x002e, h01=0x0050, text=» EXTRN FM:RQE FM REQUEST ERROR COMMON EXIT«, t00=0x0003, t01=0x00da}
0x05b8…05dc               Head {h00=0x0020, h01=0x0050, text=» EXTRN FMEXIT FM COMMON EXIT«, t00=0x0003, t01=0x010c}
0x05dc…060e               Head {h00=0x002e, h01=0x0050, text=» EXTRN FM:BUF FM COMMON READ/WRITE BUFFER «, t00=0x0003, t01=0x0130}
0x060e…0638               Head {h00=0x0026, h01=0x0050, text=» EXTRN FM:IO FM COMMON IO ROUTINE «, t00=0x0003, t01=0x0162}
0x0638…065c               Head {h00=0x0020, h01=0x0050, text=» EXTRN FM:ECB FM COMMON ECB «, t00=0x0003, t01=0x018c}
0x065c…0666               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0020}
0x0666…067c               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0004, t01=0x002a}
0x067c…0686               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0040}
0x0686…0690               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004a}
0x0690…06b4               Head {h00=0x0020, h01=0x0050, text=» EXTRN VTC:EN EXTENT NUMBER «, t00=0x0004, t01=0x0054}
0x06b4…06ee               Head {h00=0x0036, h01=0x0050, text=» EXTRN VOL:EL VOL.LABEL DISPL. VTOC EXTENT LENGTH «, t00=0x0004, t01=0x0078}
0x06ee…0718               Head {h00=0x0026, h01=0x0050, text=» EXTRN VTC:FS FILE SECTION NUMBER «, t00=0x0004, t01=0x00b2}
0x0718…073a               Head {h00=0x001e, h01=0x0050, text=» EXTRN VTC:EB EXTENT BASE «, t00=0x0004, t01=0x00dc}
0x073a…0760               Head {h00=0x0022, h01=0x0050, text=» EXTRN VOL:EB VTOC EXTENT BASE«, t00=0x0004, t01=0x00fe}
0x0760…0782               Head {h00=0x001e, h01=0x0050, text=» EXTRN VOL:FS FSAT LENGTH «, t00=0x0004, t01=0x0124}
0x0782…07aa               Head {h00=0x0024, h01=0x0050, text=» EXTRN VTC:EL FILE EXTENT LENGTH«, t00=0x0004, t01=0x0146}
0x07aa…07ce               Head {h00=0x0020, h01=0x0050, text=» EXTRN VTC:RL RECORD LENGTH «, t00=0x0004, t01=0x016e}
0x07ce…07f0 (5, 0, 400)   Head {h00=0x001e, h01=0x0050, text=» EXTRN VTC:BF BLOCK FACTOR«, t00=0x0005, t01=0x0004}
0x07f0…0818               Head {h00=0x0024, h01=0x0050, text=» EXTRN VTC:FO FILE ORGANISATION «, t00=0x0005, t01=0x0026}
0x0818…083c               Head {h00=0x0020, h01=0x0050, text=» EXTRN VTC:CD CREATION DATE «, t00=0x0005, t01=0x004e}
0x083c…0868               Head {h00=0x0028, h01=0x0050, text=» EXTRN VTC:IF NUMBER OF INDEX FILES «, t00=0x0005, t01=0x0072}
0x0868…0890               Head {h00=0x0024, h01=0x0050, text=» EXTRN VTC:LR LAST RECORD NUMBER«, t00=0x0005, t01=0x009e}
0x0890…08bc               Head {h00=0x0028, h01=0x0050, text=» EXTRN VTC:KA KEY ADDRESS IN RECORD «, t00=0x0005, t01=0x00c6}
0x08bc…08de               Head {h00=0x001e, h01=0x0050, text=» EXTRN VTC:ST STATUS BYTE «, t00=0x0005, t01=0x00f2}
0x08de…0906               Head {h00=0x0024, h01=0x0050, text=» EXTRN VTC:NE MAX EXTENT NUMBER «, t00=0x0005, t01=0x0114}
0x0906…092a               Head {h00=0x0020, h01=0x0050, text=» EXTRN VTC:MN MONITOR NUMBER«, t00=0x0005, t01=0x013c}
0x092a…094c               Head {h00=0x001e, h01=0x0050, text=» EXTRN VTC:FN FILE NUMBER «, t00=0x0005, t01=0x0160}
0x094c…0988               Head {h00=0x0038, h01=0x0050, text=» EXTRN VOLUME POINTER IN FILCOD TO ACTUAL FILE CODE «, t00=0x0005, t01=0x0182}
0x0988…0992               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x002e}
0x0992…09a8               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0006, t01=0x0038}
0x09a8…09b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004e}
0x09b2…09bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09bc…09ec               Head {h00=0x002c, h01=0x0050, text=» EXTRN FNDVTC VTOC ENTRY FROM FILE NAME «, t00=0x0006, t01=0x0062}
0x09ec…0a12               Head {h00=0x0022, h01=0x0050, text=» EXTRN DSUMOD DOUBLE SUBTRACT «, t00=0x0006, t01=0x0092}
0x0a12…0a32               Head {h00=0x001c, h01=0x0050, text=» EXTRN ADDMOD DOUBLE ADD«, t00=0x0006, t01=0x00b8}
0x0a32…0a68               Head {h00=0x0032, h01=0x0050, text=» EXTRN FWTNAM FWT DISPLACEMENT FOR VOLUME NAME«, t00=0x0006, t01=0x00d8}
0x0a68…0a8e               Head {h00=0x0022, h01=0x0050, text=» EXTRN RDVTO2 READ VTOC SECTOR«, t00=0x0006, t01=0x010e}
0x0a8e…0ab6               Head {h00=0x0024, h01=0x0050, text=» EXTRN FMREAD FM READ SUBROUTINE«, t00=0x0006, t01=0x0134}
0x0ab6…0ade               Head {h00=0x0024, h01=0x0050, text=» EXTRN FM:MOV MOVE SYSTEM-SYSTEM«, t00=0x0006, t01=0x015c}
0x0ade…0b0a               Head {h00=0x0028, h01=0x0050, text=» EXTRN CMPDWD COMPARES TWO STRINGES «, t00=0x0006, t01=0x0184}
0x0b0a…0b3a               Head {h00=0x002c, h01=0x0050, text=» EXTRN RETCOD RETURN CODE AREA IN FMTASK«, t00=0x0007, t01=0x0020}
0x0b3a…0b62               Head {h00=0x0024, h01=0x0050, text=» EXTRN DLCLO1 CLOSE AFTER DELETE«, t00=0x0007, t01=0x0050}
0x0b62…0b8c               Head {h00=0x0026, h01=0x0050, text=» EXTRN DLCLO2 CLOSE WITHOUT DELETE«, t00=0x0007, t01=0x0078}
0x0b8c…0bbc               Head {h00=0x002c, h01=0x0050, text=» EXTRN FWTPAR FWT PARAMETER DISPLACEMENT«, t00=0x0007, t01=0x00a2}
0x0bbc…0be4               Head {h00=0x0024, h01=0x0050, text=» EXTRN FWTEW1 EWT POINTER IN FWT«, t00=0x0007, t01=0x00d2}
0x0be4…0c18               Head {h00=0x0030, h01=0x0050, text=» EXTRN EWTVOL FILE CODE DISPLACEMENT IN EWT «, t00=0x0007, t01=0x00fa}
0x0c18…0c4a               Head {h00=0x002e, h01=0x0050, text=» EXTRN EWTSEX FSN,FEN DISPLACEMENT IN EWT «, t00=0x0007, t01=0x012e}
0x0c4a…0c80               Head {h00=0x0032, h01=0x0050, text=» EXTRN FCHEC2 GET FWT ADDRESS FROM FILE NUMBER«, t00=0x0007, t01=0x0160}
0x0c80…0caa               Head {h00=0x0026, h01=0x0050, text=» EXTRN OPEN OPEN ENTRY IN FM TASK «, t00=0x0008, t01=0x0008}
0x0caa…0cd4               Head {h00=0x0026, h01=0x0050, text=» EXTRN FM:MV4 MOVE FOUR CHARACTERS«, t00=0x0008, t01=0x0032}
0x0cd4…0d00               Head {h00=0x0028, h01=0x0050, text=» EXTRN FM:MV8 MOVE EIGHT CHARACTERS «, t00=0x0008, t01=0x005c}
0x0d00…0d28               Head {h00=0x0024, h01=0x0050, text=» EXTRN VTOCRL VTOC RECORD LENGTH«, t00=0x0008, t01=0x0088}
0x0d28…0d52               Head {h00=0x0026, h01=0x0050, text=» EXTRN VTOCBF VTOC BLOCKING FACTOR«, t00=0x0008, t01=0x00b0}
0x0d52…0d7a               Head {h00=0x0024, h01=0x0050, text=» EXTRN OPEXT OPEN EXTENDED FILE «, t00=0x0008, t01=0x00da}
0x0d7a…0da2               Head {h00=0x0024, h01=0x0050, text=» EXTRN FM:INE ILLEGAL NAME IN FM«, t00=0x0008, t01=0x0102}
0x0da2…0dc8               Head {h00=0x0022, h01=0x0050, text=» EXTRN CMPSTR COMPARE STRINGS «, t00=0x0008, t01=0x012a}
0x0dc8…0df0               Head {h00=0x0024, h01=0x0050, text=» EXTRN FEXTNO FILE EXTENT NUMBER«, t00=0x0008, t01=0x0150}
0x0df0…0e16               Head {h00=0x0022, h01=0x0050, text=» EXTRN FNDVT2 FIND VTOC ENTRY «, t00=0x0008, t01=0x0178}
0x0e16…0e20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000e}
0x0e20…0e36               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0009, t01=0x0018}
0x0e36…0e40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002e}
0x0e40…0e4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e4a…0e7c               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0009, t01=0x0042}
0x0e7c…0e86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0074}
0x0e86…0ea6               Head {h00=0x001c, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY«, t00=0x0009, t01=0x007e}
0x0ea6…0eb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eb0…0ee2               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0009, t01=0x00a8}
0x0ee2…0eec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00da}
0x0eec…0ef6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e4}
0x0ef6…0f28               Head {h00=0x002e, h01=0x0050, text=»*   A  FULL INTRUCTION SET MAY BE INCLUDED«, t00=0x0009, t01=0x00ee}
0x0f28…0f4c               Head {h00=0x0020, h01=0x0050, text=»*   BY SETTING CPU852 EQU 0 «, t00=0x0009, t01=0x0120}
0x0f4c…0f56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0144}
0x0f56…0f60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014e}
0x0f60…0f74               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0009, t01=0x0158}
0x0f74…0f7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x016c}
0x0f7e…0f88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0176}
0x0f88…0fb0               Head {h00=0x0024, h01=0x0050, text=»*   THE EXTEND FILE FUNCTION IS «, t00=0x0009, t01=0x0180}
0x0fb0…0fdc               Head {h00=0x0028, h01=0x0050, text=»*   OBTAINED BY SETTING XTEND EQU 1.«, t00=0x000a, t01=0x0018}
0x0fdc…0fe6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0044}
0x0fe6…0ffa               Head {h00=0x0010, h01=0x0050, text=»XTEND EQU 1 «, t00=0x000a, t01=0x004e}
0x0ffa…1010               Head {h00=0x0012, h01=0x0050, text=»X:A EQU XTEND «, t00=0x000a, t01=0x0062}
0x1010…101a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0078}
0x101a…1030               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x000a, t01=0x0082}
0x1030…103a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0098}
0x103a…1044               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1044…105a               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x00ac}
0x105a…1070               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x00c2}
0x1070…1086               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x00d8}
0x1086…1090               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ee}
0x1090…109a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f8}
0x109a…10be               Head {h00=0x0020, h01=0x0050, text=»SPACES EQU /2020 ASCII SPACE«, t00=0x000a, t01=0x0102}
0x10be…10f8               Head {h00=0x0036, h01=0x0050, text=»MAXEXT EQU 63 MAX NUMBERS OF EXTENTS/FILE SECTION «, t00=0x000a, t01=0x0126}
0x10f8…1128               Head {h00=0x002c, h01=0x0050, text=»FSATRL EQU 8 SIZE OF EACH ENTRY IN FSAT «, t00=0x000a, t01=0x0160}
0x1128…1132               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0190}
0x1132…113c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000a}
0x113c…1154               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000b, t01=0x0014}
0x1154…116c               Head {h00=0x0014, h01=0x0050, text=»* RETURN CODES *«, t00=0x000b, t01=0x002c}
0x116c…1184               Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000b, t01=0x0044}
0x1184…118e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005c}
0x118e…1198               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0066}
0x1198…11c0               Head {h00=0x0024, h01=0x0050, text=»RC:NVL EQU /20 NEW VOLUME LOADED«, t00=0x000b, t01=0x0070}
0x11c0…11e8               Head {h00=0x0024, h01=0x0050, text=»RC:DAB EQU /4000 DELETE ABORTED «, t00=0x000b, t01=0x0098}
0x11e8…1208               Head {h00=0x001c, h01=0x0050, text=»RC:OFL EQU /10 OVER FLOW«, t00=0x000b, t01=0x00c0}
0x1208…1240               Head {h00=0x0034, h01=0x0050, text=»RC:SEO EQU /200+RC:OFL SECTION /EXTENT OVER FLOW«, t00=0x000b, t01=0x00e0}
0x1240…124a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x124a…1260               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x000b, t01=0x0122}
0x1260…126a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0138}
0x126a…1274               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0142}
0x1274…128a               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x014c}
0x128a…12a0               Head {h00=0x0012, h01=0x0050, text=»* WORK AREA * «, t00=0x000b, t01=0x0162}
0x12a0…12b6               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0178}
0x12b6…12c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x018e}
0x12c0…12ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0008}
0x12ca…12fe               Head {h00=0x0030, h01=0x0050, text=»SEXTNO DATA 0 FILE SECTION AND EXTENT NUMBER«, t00=0x000c, t01=0x0012}
0x12fe…1332               Head {h00=0x0030, h01=0x0050, text=»SAVEA9 DATA 0 SAVE AREA FOR USER ECB ADDRESS«, t00=0x000c, t01=0x0046}
0x1332…133c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x007a}
0x133c…1346               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0084}
0x1346…1378               Head {h00=0x002e, h01=0x0050, text=»*   A9 IS USED AS BASE REGISTER FOR WRKARE«, t00=0x000c, t01=0x008e}
0x1378…1382               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c0}
0x1382…138c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ca}
0x138c…13a0               Head {h00=0x0010, h01=0x0050, text=»WRKARE EQU *«, t00=0x000c, t01=0x00d4}
0x13a0…13c4               Head {h00=0x0020, h01=0x0050, text=» DATA 0,0,0,0,0 VTOC RECORD «, t00=0x000c, t01=0x00e8}
0x13c4…13dc               Head {h00=0x0014, h01=0x0050, text=» DATA 0,0,0,0,0 «, t00=0x000c, t01=0x010c}
0x13dc…13f4               Head {h00=0x0014, h01=0x0050, text=» DATA 0,0,0,0,0 «, t00=0x000c, t01=0x0124}
0x13f4…140c               Head {h00=0x0014, h01=0x0050, text=» DATA 0,0,0,0,0 «, t00=0x000c, t01=0x013c}
0x140c…143c               Head {h00=0x002c, h01=0x0050, text=» DATA /00FF NO OF EXTENTS,VTOC OCCUPIED «, t00=0x000c, t01=0x0154}
0x143c…1446               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0184}
0x1446…145c               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x000c, t01=0x018e}
0x145c…1466               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0014}
0x1466…1470               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001e}
0x1470…14ae               Head {h00=0x003a, h01=0x0050, text=»FILLEN EQU *-WRKARE FILE SECTION LENGTH TO BE CREATED «, t00=0x000d, t01=0x0028}
0x14ae…14c0               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x000d, t01=0x0066}
0x14c0…14ec               Head {h00=0x0028, h01=0x0050, text=»VTCSEC EQU *-WRKARE VTOC BASE SECTOR«, t00=0x000d, t01=0x0078}
0x14ec…14fc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000d, t01=0x00a4}
0x14fc…152c               Head {h00=0x002c, h01=0x0050, text=»FSATLE EQU *-WRKARE FSAT LENGTH IN BYTES«, t00=0x000d, t01=0x00b4}
0x152c…153c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000d, t01=0x00e4}
0x153c…1568               Head {h00=0x0028, h01=0x0050, text=»VTCEND EQU *-WRKARE VTOC LAST SECTOR«, t00=0x000d, t01=0x00f4}
0x1568…1578               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000d, t01=0x0120}
0x1578…15a4               Head {h00=0x0028, h01=0x0050, text=»FSATBA EQU *-WRKARE FSAT BASE SECTOR«, t00=0x000d, t01=0x0130}
0x15a4…15b4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000d, t01=0x015c}
0x15b4…15e4               Head {h00=0x002c, h01=0x0050, text=»EXTLEN EQU *-WRKARE REMAINING EXT LENGTH«, t00=0x000d, t01=0x016c}
0x15e4…15f6               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x000e, t01=0x000c}
0x15f6…1628               Head {h00=0x002e, h01=0x0050, text=»FWTSAV EQU *-WRKARE FWT ADDRESS SAVE AREA «, t00=0x000e, t01=0x001e}
0x1628…1638               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000e, t01=0x0050}
0x1638…166a               Head {h00=0x002e, h01=0x0050, text=»EXTZER EQU *-WRKARE 1ST VTOC ENTRY SECTOR «, t00=0x000e, t01=0x0060}
0x166a…167a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x000e, t01=0x0092}
0x167a…16aa               Head {h00=0x002c, h01=0x0050, text=»WRKALE EQU *-WRKARE LENGTH OF WORK AREA «, t00=0x000e, t01=0x00a2}
0x16aa…16b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d2}
0x16b4…16ca               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x000e, t01=0x00dc}
0x16ca…16d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f2}
0x16d4…16de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00fc}
0x16de…1710               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x000e, t01=0x0106}
0x1710…1742               Head {h00=0x002e, h01=0x0050, text=»*                                        *«, t00=0x000e, t01=0x0138}
0x1742…1774               Head {h00=0x002e, h01=0x0050, text=»*   CREATE ENTRY                         *«, t00=0x000e, t01=0x016a}
0x1774…17a6               Head {h00=0x002e, h01=0x0050, text=»*                                        *«, t00=0x000f, t01=0x000c}
0x17a6…17d8               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x000f, t01=0x003e}
0x17d8…17e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0070}
0x17e2…1806               Head {h00=0x0020, h01=0x0050, text=»*   PARAMETERS FROM FMTASK: «, t00=0x000f, t01=0x007a}
0x1806…1810               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009e}
0x1810…182e               Head {h00=0x001a, h01=0x0050, text=»*              A1  = 0«, t00=0x000f, t01=0x00a8}
0x182e…1868               Head {h00=0x0036, h01=0x0050, text=»*              A5  = TTAB ADDRESS OF CALLING TASK «, t00=0x000f, t01=0x00c6}
0x1868…1894               Head {h00=0x0028, h01=0x0050, text=»*              A8  = FM ECB ADDRESS «, t00=0x000f, t01=0x0100}
0x1894…18c2               Head {h00=0x002a, h01=0x0050, text=»*              A9  = USER ECB ADDRESS «, t00=0x000f, t01=0x012c}
0x18c2…18fc               Head {h00=0x0036, h01=0x0050, text=»*              A10 = FILE PARAMETER BLOCK ADDRESS «, t00=0x000f, t01=0x015a}
0x18fc…1906 (16, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x1906…1910               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000e}
0x1910…1924               Head {h00=0x0010, h01=0x0050, text=»CREATE EQU *«, t00=0x0010, t01=0x0018}
0x1924…195e               Head {h00=0x0036, h01=0x0050, text=» CF A14,CENTRY CLEAR WORK AREA AND SAVE PARAMETERS«, t00=0x0010, t01=0x002c}
0x195e…197e               Head {h00=0x001c, h01=0x0050, text=» LDK A5,3 VOLUME COUNTER«, t00=0x0010, t01=0x0066}
0x197e…1992               Head {h00=0x0010, h01=0x0050, text=»CRE:02 EQU *«, t00=0x0010, t01=0x0086}
0x1992…19b4               Head {h00=0x001e, h01=0x0050, text=» LC A1,FILCOD,A5 FILE CODE«, t00=0x0010, t01=0x009a}
0x19b4…19c8               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0010, t01=0x00bc}
0x19c8…19f2               Head {h00=0x0026, h01=0x0050, text=» RF(Z) CRE:04 NO VOLUME SPECYFIED «, t00=0x0010, t01=0x00d0}
0x19f2…1a18               Head {h00=0x0022, h01=0x0050, text=» LDR A2,A5 FILE SECTION NUMBER«, t00=0x0010, t01=0x00fa}
0x1a18…1a40               Head {h00=0x0024, h01=0x0050, text=» CF A14,GETFIL REQUESTED LENGTH «, t00=0x0010, t01=0x0120}
0x1a40…1a68               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CRE:06 LENGTH SPECYFIED «, t00=0x0010, t01=0x0148}
0x1a68…1a7c               Head {h00=0x0010, h01=0x0050, text=»CRE:04 EQU *«, t00=0x0010, t01=0x0170}
0x1a7c…1a8e               Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0010, t01=0x0184}
0x1a8e…1ab0               Head {h00=0x001e, h01=0x0050, text=» RB(NN) CRE:02 NEXT VOLUME«, t00=0x0011, t01=0x0008}
0x1ab0…1ae6               Head {h00=0x0032, h01=0x0050, text=» ABL CDERQE REQUEST ERROR NO LENGTH SPECYFIED «, t00=0x0011, t01=0x002a}
0x1ae6…1af0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0060}
0x1af0…1b06               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0011, t01=0x006a}
0x1b06…1b10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0080}
0x1b10…1b1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008a}
0x1b1a…1b3a               Head {h00=0x001c, h01=0x0050, text=»*   PREPARE VTOC RECORD «, t00=0x0011, t01=0x0094}
0x1b3a…1b44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b4}
0x1b44…1b4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00be}
0x1b4e…1b62               Head {h00=0x0010, h01=0x0050, text=»CRE:06 EQU *«, t00=0x0011, t01=0x00c8}
0x1b62…1b78               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0011, t01=0x00dc}
0x1b78…1b9c               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A10 GET FPB ADDRESS «, t00=0x0011, t01=0x00f2}
0x1b9c…1bca               Head {h00=0x002a, h01=0x0050, text=» ADKL A1,FPB:FN FILE NAME DISPLACEMENT«, t00=0x0011, t01=0x0116}
0x1bca…1bea               Head {h00=0x001c, h01=0x0050, text=» LDR A3,A9 VTOC ADDRESS «, t00=0x0011, t01=0x0144}
0x1bea…1c0a               Head {h00=0x001c, h01=0x0050, text=» CF A14,FM:MV8 FILE NAME«, t00=0x0011, t01=0x0164}
0x1c0a…1c16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x0184}
0x1c16…1c20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0190}
0x1c20…1c36               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0012, t01=0x000a}
0x1c36…1c58               Head {h00=0x001e, h01=0x0050, text=» ML 4,FPB:FN,A10 FILE NAME«, t00=0x0012, t01=0x0020}
0x1c58…1c70               Head {h00=0x0014, h01=0x0050, text=» MS 4,VTC:FN,A9 «, t00=0x0012, t01=0x0042}
0x1c70…1c7c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x005a}
0x1c7c…1c86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0066}
0x1c86…1cac               Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A10 GET RECORD LENGTH«, t00=0x0012, t01=0x0070}
0x1cac…1cc4               Head {h00=0x0014, h01=0x0050, text=» ST A1,VTC:RL,A9«, t00=0x0012, t01=0x0096}
0x1cc4…1cf8               Head {h00=0x0030, h01=0x0050, text=» LD A1,FPB:BF,A10 BLOCKING FACTOR, FILE ORG «, t00=0x0012, t01=0x00ae}
0x1cf8…1d10               Head {h00=0x0014, h01=0x0050, text=» ST A1,VTC:BF,A9«, t00=0x0012, t01=0x00e2}
0x1d10…1d1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00fa}
0x1d1a…1d30               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0012, t01=0x0104}
0x1d30…1d3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011a}
0x1d3a…1d44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0124}
0x1d44…1d58               Head {h00=0x0010, h01=0x0050, text=» LDR A1,A10 «, t00=0x0012, t01=0x012e}
0x1d58…1d74               Head {h00=0x0018, h01=0x0050, text=» ADKL A1,FPB:CD CRD «, t00=0x0012, t01=0x0142}
0x1d74…1d86               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A9«, t00=0x0012, t01=0x015e}
0x1d86…1d9e               Head {h00=0x0014, h01=0x0050, text=» ADKL A3,VTC:CD «, t00=0x0012, t01=0x0170}
0x1d9e…1db0               Head {h00=0x000e, h01=0x0050, text=» LDK A2,9 «, t00=0x0012, t01=0x0188}
0x1db0…1dd6               Head {h00=0x0022, h01=0x0050, text=» CF A14,FM:MOV CRD,RET PERIOD «, t00=0x0013, t01=0x000a}
0x1dd6…1dfe               Head {h00=0x0024, h01=0x0050, text=» LDK A7,6 NUMBER OF CHARACTERTS «, t00=0x0013, t01=0x0030}
0x1dfe…1e20               Head {h00=0x001e, h01=0x0050, text=» SUK A3,3 ADDRESS TO CHAR «, t00=0x0013, t01=0x0058}
0x1e20…1e34               Head {h00=0x0010, h01=0x0050, text=»CRE:10 EQU *«, t00=0x0013, t01=0x007a}
0x1e34…1e56               Head {h00=0x001e, h01=0x0050, text=» SUK A3,2 NEXT CHARACTERS «, t00=0x0013, t01=0x008e}
0x1e56…1e6a               Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A3 «, t00=0x0013, t01=0x00b0}
0x1e6a…1e8c               Head {h00=0x001e, h01=0x0050, text=» RF(Z) CRE:20 BINARY ZERO «, t00=0x0013, t01=0x00c4}
0x1e8c…1eb0               Head {h00=0x0020, h01=0x0050, text=» CWK A1,/3030 NUMERICAL ZERO«, t00=0x0013, t01=0x00e6}
0x1eb0…1ec6               Head {h00=0x0012, h01=0x0050, text=» RF(NE) CRE:30«, t00=0x0013, t01=0x010a}
0x1ec6…1eda               Head {h00=0x0010, h01=0x0050, text=»CRE:20 EQU *«, t00=0x0013, t01=0x0120}
0x1eda…1ef4               Head {h00=0x0016, h01=0x0050, text=» SUK A7,2 COUNTER «, t00=0x0013, t01=0x0134}
0x1ef4…1f0a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) CRE:10«, t00=0x0013, t01=0x014e}
0x1f0a…1f2c               Head {h00=0x001e, h01=0x0050, text=» LDR A8,A3 ADDRESS TO CRD «, t00=0x0013, t01=0x0164}
0x1f2c…1f38               Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x0186}
0x1f38…1f48 (20, 0, 400)  Head {h00=0x000c, h01=0x0050, text=» DATA 11«, t00=0x0014, t01=0x0004}
0x1f48…1f6c               Head {h00=0x0020, h01=0x0050, text=» LDKL A8,FM:ECB ECB ADDRESS «, t00=0x0014, t01=0x0014}
0x1f6c…1f80               Head {h00=0x0010, h01=0x0050, text=»CRE:30 EQU *«, t00=0x0014, t01=0x0038}
0x1f80…1fb0               Head {h00=0x002c, h01=0x0050, text=» LC A2,FPB:IF,A10 NUMBER OF INDEX FILES «, t00=0x0014, t01=0x004c}
0x1fb0…1fd6               Head {h00=0x0022, h01=0x0050, text=» LD A1,FPB:KA,A10 KEY ADDRESS «, t00=0x0014, t01=0x007c}
0x1fd6…1fee               Head {h00=0x0014, h01=0x0050, text=» SC A2,VTC:IF,A9«, t00=0x0014, t01=0x00a2}
0x1fee…2006               Head {h00=0x0014, h01=0x0050, text=» ST A1,VTC:KA,A9«, t00=0x0014, t01=0x00ba}
0x2006…203e               Head {h00=0x0034, h01=0x0050, text=» CF A14,CHKFIL CHECK FROM FIRST FILE CODE (A5=0)«, t00=0x0014, t01=0x00d2}
0x203e…2074               Head {h00=0x0032, h01=0x0050, text=» RF(NZ) CDEINE FILE ALREADY IN ONE OF VOLUMES «, t00=0x0014, t01=0x010a}
0x2074…2094               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A10 FPB ADDRESS «, t00=0x0014, t01=0x0140}
0x2094…20ac               Head {h00=0x0014, h01=0x0050, text=» ADKL A6,FPB:FN «, t00=0x0014, t01=0x0160}
0x20ac…20c4               Head {h00=0x0014, h01=0x0050, text=» SUKL A6,FWTNAM «, t00=0x0014, t01=0x0178}
0x20c4…20ec               Head {h00=0x0024, h01=0x0050, text=» ST A6,FWTSAV,A9 INTO SAVE AREA «, t00=0x0014, t01=0x0190}
0x20ec…20f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x20f6…210c               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0015, t01=0x0032}
0x210c…2116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0048}
0x2116…2120               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0052}
0x2120…2140               Head {h00=0x001c, h01=0x0050, text=»*   CREATE FILE SECTIONS«, t00=0x0015, t01=0x005c}
0x2140…214a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x007c}
0x214a…2154               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0086}
0x2154…2168               Head {h00=0x0010, h01=0x0050, text=»CRE:40 EQU *«, t00=0x0015, t01=0x0090}
0x2168…2192               Head {h00=0x0026, h01=0x0050, text=» CF A14,CREFIL CREATE FILE SECTION«, t00=0x0015, t01=0x00a4}
0x2192…21ae               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) CREDEL ERROR«, t00=0x0015, t01=0x00ce}
0x21ae…21c0               Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x0015, t01=0x00ea}
0x21c0…21e4               Head {h00=0x0020, h01=0x0050, text=» RB(NG) CRE:40 NEXT SECTION «, t00=0x0015, t01=0x00fc}
0x21e4…2220               Head {h00=0x0038, h01=0x0050, text=» LD A5,VOLUME FILE SECTION OF FIRST SPECYFIED VOLUME«, t00=0x0015, t01=0x0120}
0x2220…223c               Head {h00=0x0018, h01=0x0050, text=» LCR A7,A5 FILE CODE«, t00=0x0015, t01=0x015c}
0x223c…2250               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0015, t01=0x0178}
0x2250…2266               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,OPEN «, t00=0x0015, t01=0x018c}
0x2266…228a               Head {h00=0x0020, h01=0x0050, text=» RF EXIT10 OPEN CREATED FILE«, t00=0x0016, t01=0x0012}
0x228a…2294               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0036}
0x2294…22aa               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0016, t01=0x0040}
0x22aa…22b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0056}
0x22b4…22be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0060}
0x22be…22f8               Head {h00=0x0036, h01=0x0050, text=»*   DELETE CREATED PARTS OF FILE IN CASE OF ERROR «, t00=0x0016, t01=0x006a}
0x22f8…231a               Head {h00=0x001e, h01=0x0050, text=»*   INPUT A4 = RETURN CODE«, t00=0x0016, t01=0x00a4}
0x231a…2324               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c6}
0x2324…232e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d0}
0x232e…2342               Head {h00=0x0010, h01=0x0050, text=»CREDEL EQU *«, t00=0x0016, t01=0x00da}
0x2342…2358               Head {h00=0x0012, h01=0x0050, text=» SUK A4,RC:NVL«, t00=0x0016, t01=0x00ee}
0x2358…2380               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CRED80 NEW VOLUME LOADED «, t00=0x0016, t01=0x0104}
0x2380…23a2               Head {h00=0x001e, h01=0x0050, text=» CM VTC:FS,A9 FIRST VOLUME«, t00=0x0016, t01=0x012c}
0x23a2…23cc               Head {h00=0x0026, h01=0x0050, text=» CF A14,DELFIL DELETE CREATED FILE«, t00=0x0016, t01=0x014e}
0x23cc…23e0               Head {h00=0x0010, h01=0x0050, text=»CRED80 EQU *«, t00=0x0016, t01=0x0178}
0x23e0…23fe               Head {h00=0x001a, h01=0x0050, text=» RF CDEXIT END REQUEST«, t00=0x0016, t01=0x018c}
0x23fe…2408               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x001a}
0x2408…241e               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0017, t01=0x0024}
0x241e…2428               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003a}
0x2428…2432               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0044}
0x2432…2464               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0017, t01=0x004e}
0x2464…2496               Head {h00=0x002e, h01=0x0050, text=»*                                        *«, t00=0x0017, t01=0x0080}
0x2496…24c8               Head {h00=0x002e, h01=0x0050, text=»*   DELETE ENTRY                         *«, t00=0x0017, t01=0x00b2}
0x24c8…24fa               Head {h00=0x002e, h01=0x0050, text=»*                                        *«, t00=0x0017, t01=0x00e4}
0x24fa…252c               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0017, t01=0x0116}
0x252c…2536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0148}
0x2536…256a               Head {h00=0x0030, h01=0x0050, text=»*   PARAMETERS FROM FMTASK SEE CREATE ENTRY «, t00=0x0017, t01=0x0152}
0x256a…2574               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0186}
0x2574…257e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0190}
0x257e…2592               Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x0018, t01=0x000a}
0x2592…25c8               Head {h00=0x0032, h01=0x0050, text=» CF A14,EDENTR CLEAR WORK AREA AND SAVE PARAM.«, t00=0x0018, t01=0x001e}
0x25c8…25f0               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DEL:90 ERROR END REQUEST«, t00=0x0018, t01=0x0054}
0x25f0…2608               Head {h00=0x0014, h01=0x0050, text=» LC A1,FWTPAR,A6«, t00=0x0018, t01=0x007c}
0x2608…261a               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0018, t01=0x0094}
0x261a…263e               Head {h00=0x0020, h01=0x0050, text=» ANK A2,/3F NUMBER OF USERS «, t00=0x0018, t01=0x00a6}
0x263e…2650               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0018, t01=0x00ca}
0x2650…266e               Head {h00=0x001a, h01=0x0050, text=» RF(Z) DEL:00 ONE USER«, t00=0x0018, t01=0x00dc}
0x266e…2698               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,RC:DAB RC:DELETE ABORTED «, t00=0x0018, t01=0x00fa}
0x2698…26c8               Head {h00=0x002c, h01=0x0050, text=» LDKL A3,DLCLO2 CLOSE FILE FOR THIS USER«, t00=0x0018, t01=0x0124}
0x26c8…26da               Head {h00=0x000e, h01=0x0050, text=» RF EXIT10«, t00=0x0018, t01=0x0154}
0x26da…26e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0166}
0x26e4…26fa               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0018, t01=0x0170}
0x26fa…2704               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0186}
0x2704…270e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0190}
0x270e…2746               Head {h00=0x0034, h01=0x0050, text=»*   COLLECT FILE CODES AND DELETE FILE SECTIONS «, t00=0x0019, t01=0x000a}
0x2746…2750               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0042}
0x2750…275a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004c}
0x275a…276e               Head {h00=0x0010, h01=0x0050, text=»DEL:00 EQU *«, t00=0x0019, t01=0x0056}
0x276e…2796               Head {h00=0x0024, h01=0x0050, text=» CM FILCOD CLEAR FILE CODE AREA «, t00=0x0019, t01=0x006a}
0x2796…27aa               Head {h00=0x0010, h01=0x0050, text=» CM FILCOD+2«, t00=0x0019, t01=0x0092}
0x27aa…27c2               Head {h00=0x0014, h01=0x0050, text=» ADKL A6,FWTEW1 «, t00=0x0019, t01=0x00a6}
0x27c2…27d6               Head {h00=0x0010, h01=0x0050, text=»DEL:10 EQU *«, t00=0x0019, t01=0x00be}
0x27d6…27ea               Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A6 «, t00=0x0019, t01=0x00d2}
0x27ea…27fe               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-4 «, t00=0x0019, t01=0x00e6}
0x27fe…2824               Head {h00=0x0022, h01=0x0050, text=» LC A2,EWTVOL,A6 GET FILE CODE«, t00=0x0019, t01=0x00fa}
0x2824…2838               Head {h00=0x0010, h01=0x0050, text=»DEL:20 EQU *«, t00=0x0019, t01=0x0120}
0x2838…284a               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0019, t01=0x0134}
0x284a…2868               Head {h00=0x001a, h01=0x0050, text=» RF(P) DEL:40 NEXT EWT«, t00=0x0019, t01=0x0146}
0x2868…2896               Head {h00=0x002a, h01=0x0050, text=» LC A3,FILCOD+3,A1 COLLECTED FILE CODE«, t00=0x0019, t01=0x0164}
0x2896…28aa (26, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x001a, t01=0x0004}
0x28aa…28dc               Head {h00=0x002e, h01=0x0050, text=» RF(Z) DEL:30 NO MORE COLLECTED FILE CODES«, t00=0x001a, t01=0x0018}
0x28dc…28ee               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x001a, t01=0x004a}
0x28ee…2910               Head {h00=0x001e, h01=0x0050, text=» RB(NE) DEL:20 CHECK NEXT «, t00=0x001a, t01=0x005c}
0x2910…2924               Head {h00=0x0010, h01=0x0050, text=»DEL:30 EQU *«, t00=0x001a, t01=0x007e}
0x2924…294e               Head {h00=0x0026, h01=0x0050, text=» SC A2,FILCOD+3,A1 SAVE FILE CODE «, t00=0x001a, t01=0x0092}
0x294e…2962               Head {h00=0x0010, h01=0x0050, text=»DEL:40 EQU *«, t00=0x001a, t01=0x00bc}
0x2962…2976               Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A6 «, t00=0x001a, t01=0x00d0}
0x2976…299e               Head {h00=0x0024, h01=0x0050, text=» RB(NZ) DEL:10 NEXT ENTRY IN EWT«, t00=0x001a, t01=0x00e4}
0x299e…29c0               Head {h00=0x001e, h01=0x0050, text=» CF A14,DELFIL DELETE FILE«, t00=0x001a, t01=0x010c}
0x29c0…29d4               Head {h00=0x0010, h01=0x0050, text=»DEL:60 EQU *«, t00=0x001a, t01=0x012e}
0x29d4…29f6               Head {h00=0x001e, h01=0x0050, text=» LDKL A3,DLCLO1 CLOSE FILE«, t00=0x001a, t01=0x0142}
0x29f6…2a00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0164}
0x2a00…2a16               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x001a, t01=0x016e}
0x2a16…2a20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0184}
0x2a20…2a2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018e}
0x2a2a…2a3e               Head {h00=0x0010, h01=0x0050, text=»EXIT00 EQU *«, t00=0x001b, t01=0x0008}
0x2a3e…2a66               Head {h00=0x0024, h01=0x0050, text=» LD A6,FWTSAV,A9 GET FWT ADDRESS«, t00=0x001b, t01=0x001c}
0x2a66…2a7a               Head {h00=0x0010, h01=0x0050, text=»EXIT10 EQU *«, t00=0x001b, t01=0x0044}
0x2a7a…2aa2               Head {h00=0x0024, h01=0x0050, text=» ORS A4,RETCOD SAVE RETURN CODE «, t00=0x001b, t01=0x0058}
0x2aa2…2ab4               Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001b, t01=0x0080}
0x2ab4…2ac8               Head {h00=0x0010, h01=0x0050, text=»EXIT20 EQU *«, t00=0x001b, t01=0x0092}
0x2ac8…2ade               Head {h00=0x0012, h01=0x0050, text=» LD A9,SAVEA9 «, t00=0x001b, t01=0x00a6}
0x2ade…2afc               Head {h00=0x001a, h01=0x0050, text=» ABR A3 BACK TO FMTASK«, t00=0x001b, t01=0x00bc}
0x2afc…2b10               Head {h00=0x0010, h01=0x0050, text=»DEL:90 EQU *«, t00=0x001b, t01=0x00da}
0x2b10…2b2e               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A4 RETURN CODE«, t00=0x001b, t01=0x00ee}
0x2b2e…2b56               Head {h00=0x0024, h01=0x0050, text=» SUK A1,RC:NVL NEW VOLUME LOADED«, t00=0x001b, t01=0x010c}
0x2b56…2b76               Head {h00=0x001c, h01=0x0050, text=» RB(Z) DEL:60 CLOSE FILE«, t00=0x001b, t01=0x0134}
0x2b76…2b8a               Head {h00=0x0010, h01=0x0050, text=»CDEXIT EQU *«, t00=0x001b, t01=0x0154}
0x2b8a…2ba2               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,FMEXIT «, t00=0x001b, t01=0x0168}
0x2ba2…2bc0               Head {h00=0x001a, h01=0x0050, text=» RB EXIT10 END REQUEST«, t00=0x001b, t01=0x0180}
0x2bc0…2bca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000e}
0x2bca…2bde               Head {h00=0x0010, h01=0x0050, text=»CDERQE EQU *«, t00=0x001c, t01=0x0018}
0x2bde…2c04               Head {h00=0x0022, h01=0x0050, text=» LDKL A3,FM:RQE REQUEST ERROR «, t00=0x001c, t01=0x002c}
0x2c04…2c16               Head {h00=0x000e, h01=0x0050, text=» RB EXIT20«, t00=0x001c, t01=0x0052}
0x2c16…2c2a               Head {h00=0x0010, h01=0x0050, text=»CDEINE EQU *«, t00=0x001c, t01=0x0064}
0x2c2a…2c5a               Head {h00=0x002c, h01=0x0050, text=» LDKL A3,FM:INE ILLEGAL VOLUME/FILE NAME«, t00=0x001c, t01=0x0078}
0x2c5a…2c6c               Head {h00=0x000e, h01=0x0050, text=» RB EXIT20«, t00=0x001c, t01=0x00a8}
0x2c6c…2c76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ba}
0x2c76…2c8c               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x001c, t01=0x00c4}
0x2c8c…2c96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00da}
0x2c96…2ca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e4}
0x2ca0…2cd6               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001c, t01=0x00ee}
0x2cd6…2d0c               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x001c, t01=0x0124}
0x2d0c…2d42               Head {h00=0x0032, h01=0x0050, text=»*   EXTEND ENTRY                            * «, t00=0x001c, t01=0x015a}
0x2d42…2d78               Head {h00=0x0032, h01=0x0050, text=»*                                           * «, t00=0x001c, t01=0x0190}
0x2d78…2dae               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001d, t01=0x0036}
0x2dae…2db8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x006c}
0x2db8…2dec               Head {h00=0x0030, h01=0x0050, text=»*   PARAMETERS FROM FMTASK SEE CREATE ENTRY «, t00=0x001d, t01=0x0076}
0x2dec…2df6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00aa}
0x2df6…2e00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00b4}
0x2e00…2e14               Head {h00=0x0010, h01=0x0050, text=»EXTEND EQU *«, t00=0x001d, t01=0x00be}
0x2e14…2e28               Head {h00=0x0010, h01=0x0050, text=» IFT XTEND=1«, t00=0x001d, t01=0x00d2}
0x2e28…2e60               Head {h00=0x0034, h01=0x0050, text=» CF A14,EDENTR CLEAR WORK AREA MAKE PREPARATIONS«, t00=0x001d, t01=0x00e6}
0x2e60…2e7c               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) CDEXIT ERROR«, t00=0x001d, t01=0x011e}
0x2e7c…2ea2               Head {h00=0x0022, h01=0x0050, text=» LDKL A5,FWTEW1 EXTENT POINTER«, t00=0x001d, t01=0x013a}
0x2ea2…2eb4               Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x001d, t01=0x0160}
0x2eb4…2ec8               Head {h00=0x0010, h01=0x0050, text=»EXT:00 EQU *«, t00=0x001d, t01=0x0172}
0x2ec8…2eec               Head {h00=0x0020, h01=0x0050, text=» LDR A2,A5 SAVE LAST POINTER«, t00=0x001d, t01=0x0186}
0x2eec…2f00               Head {h00=0x0010, h01=0x0050, text=» LD* A5,0,A5«, t00=0x001e, t01=0x001a}
0x2f00…2f22               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) EXT:00 NEXT ENTRY «, t00=0x001e, t01=0x002e}
0x2f22…2f3a               Head {h00=0x0014, h01=0x0050, text=» LC A5,EWTSEX,A2«, t00=0x001e, t01=0x0050}
0x2f3a…2f5c               Head {h00=0x001e, h01=0x0050, text=» ST A5,SEXTNO SAVE FSN,FEN«, t00=0x001e, t01=0x0068}
0x2f5c…2f66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x008a}
0x2f66…2f7c               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x001e, t01=0x0094}
0x2f7c…2f86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00aa}
0x2f86…2f90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b4}
0x2f90…2fb6               Head {h00=0x0022, h01=0x0050, text=» LD A2,FPB:EL,A10 GET ENLARGE «, t00=0x001e, t01=0x00be}
0x2fb6…2fe0               Head {h00=0x0026, h01=0x0050, text=» RB(Z) CDERQE NO SPECYFIED LENGTH «, t00=0x001e, t01=0x00e4}
0x2fe0…2ffa               Head {h00=0x0016, h01=0x0050, text=» ST A2,EXTLEN+2,A9«, t00=0x001e, t01=0x010e}
0x2ffa…3014               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A5 FSN,FEN«, t00=0x001e, t01=0x0128}
0x3014…3032               Head {h00=0x001a, h01=0x0050, text=» ADK A2,1 NEXT EXTENT «, t00=0x001e, t01=0x0142}
0x3032…3046               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001e, t01=0x0160}
0x3046…3072               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) EXT:15 NOT SECTION OVERFLOW «, t00=0x001e, t01=0x0174}
0x3072…309e               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,RC:SEO RC: SECTION OVERFLOW«, t00=0x001f, t01=0x0010}
0x309e…30b0               Head {h00=0x000e, h01=0x0050, text=» RB CDEXIT«, t00=0x001f, t01=0x003c}
0x30b0…30c4               Head {h00=0x0010, h01=0x0050, text=»EXT:15 EQU *«, t00=0x001f, t01=0x004e}
0x30c4…30da               Head {h00=0x0012, h01=0x0050, text=» SRL A2,6 FSN «, t00=0x001f, t01=0x0062}
0x30da…30fc               Head {h00=0x001e, h01=0x0050, text=» LC A2,FILCOD,A2 FILE CODE«, t00=0x001f, t01=0x0078}
0x30fc…3126               Head {h00=0x0026, h01=0x0050, text=» CF A14,FNDVTC GET 1ST VTOC ENTRY «, t00=0x001f, t01=0x009a}
0x3126…3138               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x001f, t01=0x00c4}
0x3138…315a               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) CDEXIT READ ERROR «, t00=0x001f, t01=0x00d6}
0x315a…3184               Head {h00=0x0026, h01=0x0050, text=» CF A14,RDVTO2 GET 1ST VTOC ENTRY «, t00=0x001f, t01=0x00f8}
0x3184…3196               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x001f, t01=0x0122}
0x3196…31b8               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) CDEXIT READ ERROR «, t00=0x001f, t01=0x0134}
0x31b8…31ee               Head {h00=0x0032, h01=0x0050, text=» ST A2,EXTZER,A9 SAVE SECTOR NUMBER OF 1ST EXT«, t00=0x001f, t01=0x0156}
0x31ee…321a               Head {h00=0x0028, h01=0x0050, text=» LC A4,VTC:FO,A13 FILE ORGANISATION «, t00=0x001f, t01=0x018c}
0x321a…322e               Head {h00=0x0010, h01=0x0050, text=» SUK A4,'L' «, t00=0x0020, t01=0x0028}
0x322e…324a               Head {h00=0x0018, h01=0x0050, text=» RB(E) CDERQE L FILE«, t00=0x0020, t01=0x003c}
0x324a…3254               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0058}
0x3254…326a               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0020, t01=0x0062}
0x326a…3274               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0078}
0x3274…327e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0082}
0x327e…3292               Head {h00=0x0010, h01=0x0050, text=» LDR A1,A13 «, t00=0x0020, t01=0x008c}
0x3292…32ac               Head {h00=0x0016, h01=0x0050, text=» LDKL A2,VTOCRL-2 «, t00=0x0020, t01=0x00a0}
0x32ac…32d2               Head {h00=0x0022, h01=0x0050, text=» LDR A3,A9 VTOC RECORD ADDRESS«, t00=0x0020, t01=0x00ba}
0x32d2…3300               Head {h00=0x002a, h01=0x0050, text=» CF A14,FM:MOV MOVE VTOC TO WORK AREA «, t00=0x0020, t01=0x00e0}
0x3300…3316               Head {h00=0x0012, h01=0x0050, text=» LDR A2,A5 FEN«, t00=0x0020, t01=0x010e}
0x3316…3328               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0020, t01=0x0124}
0x3328…333c               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0020, t01=0x0136}
0x333c…3370               Head {h00=0x0030, h01=0x0050, text=» ST A2,VTC:EN,A9 NEXT FILE EXTENT TO CREATE «, t00=0x0020, t01=0x014a}
0x3370…339e               Head {h00=0x002a, h01=0x0050, text=» CM VTC:LR,A9 CLEAR LAST RECORD NUMBER«, t00=0x0020, t01=0x017e}
0x339e…33b6               Head {h00=0x0014, h01=0x0050, text=» CM VTC:LR+2,A9 «, t00=0x0021, t01=0x001c}
0x33b6…33dc               Head {h00=0x0022, h01=0x0050, text=» SRL A5,6 FILE SECTION NUMBER «, t00=0x0021, t01=0x0034}
0x33dc…33ee               Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0021, t01=0x005a}
0x33ee…3424               Head {h00=0x0032, h01=0x0050, text=» CF A14,CHKFIL CHECK IF FILE ALREADY IN SYSTEM«, t00=0x0021, t01=0x006c}
0x3424…343a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) CDEINE«, t00=0x0021, t01=0x00a2}
0x343a…344e               Head {h00=0x0010, h01=0x0050, text=»EXT:20 EQU *«, t00=0x0021, t01=0x00b8}
0x344e…3478               Head {h00=0x0026, h01=0x0050, text=» CF A14,EXTFIL EXTEND FILE SECTION«, t00=0x0021, t01=0x00cc}
0x3478…34a6               Head {h00=0x002a, h01=0x0050, text=» RB(NZ) CDEXIT RETURN CODE FROM EXTFIL«, t00=0x0021, t01=0x00f6}
0x34a6…34b8               Head {h00=0x000e, h01=0x0050, text=» SUK A2,3 «, t00=0x0021, t01=0x0124}
0x34b8…34e0               Head {h00=0x0024, h01=0x0050, text=» RB(NP) EXT:20 NEXT FILE SECTION«, t00=0x0021, t01=0x0136}
0x34e0…34fe               Head {h00=0x001a, h01=0x0050, text=» LD A5,SEXTNO FSN,FEN «, t00=0x0021, t01=0x015e}
0x34fe…3524               Head {h00=0x0022, h01=0x0050, text=» SRL A5,6 FILE SECTION NUMBER «, t00=0x0021, t01=0x017c}
0x3524…3558               Head {h00=0x0030, h01=0x0050, text=» LC A2,FILCOD,A5 GET CORRESPONDING FILE CODE«, t00=0x0022, t01=0x0012}
0x3558…357e               Head {h00=0x0022, h01=0x0050, text=» ADKL A5,FILCOD ADDRESS TO FC «, t00=0x0022, t01=0x0046}
0x357e…3594               Head {h00=0x0012, h01=0x0050, text=» ST A5,VOLUME «, t00=0x0022, t01=0x006c}
0x3594…35a8               Head {h00=0x0010, h01=0x0050, text=» LDK A5,/3F «, t00=0x0022, t01=0x0082}
0x35a8…35c2               Head {h00=0x0016, h01=0x0050, text=» ANS A5,SEXTNO FEN«, t00=0x0022, t01=0x0096}
0x35c2…35ec               Head {h00=0x0026, h01=0x0050, text=» LDKL A3,OPEXT OPEN EXTENDED FILE «, t00=0x0022, t01=0x00b0}
0x35ec…35fe               Head {h00=0x000e, h01=0x0050, text=» RB EXIT00«, t00=0x0022, t01=0x00da}
0x35fe…360a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00ec}
0x360a…3614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f8}
0x3614…3628               Head {h00=0x0010, h01=0x0050, text=» IFT XTEND=0«, t00=0x0022, t01=0x0102}
0x3628…3658               Head {h00=0x002c, h01=0x0050, text=» RB CDERQE FUNCTION NOT INCLUDED, ERROR «, t00=0x0022, t01=0x0116}
0x3658…3664               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0146}
0x3664…366e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0152}
0x366e…3684               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0022, t01=0x015c}
0x3684…368e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0172}
0x368e…3698               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x017c}
0x3698…36aa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0022, t01=0x0186}
0x36aa…36bc               Head {h00=0x000e, h01=0x0050, text=»* CREFIL *«, t00=0x0023, t01=0x0008}
0x36bc…36ce               Head {h00=0x000e, h01=0x0050, text=»* EXTFIL *«, t00=0x0023, t01=0x001a}
0x36ce…36e0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0023, t01=0x002c}
0x36e0…36ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x003e}
0x36ea…36f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0048}
0x36f4…3736               Head {h00=0x003e, h01=0x0050, text=»*   CREATES FILE SECTION IF FILE CODE SPECIFIED IN FILCOD «, t00=0x0023, t01=0x0052}
0x3736…3740               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0094}
0x3740…3770               Head {h00=0x002c, h01=0x0050, text=»*   INPUT  :  A2  = FILE SECTION NUMBER «, t00=0x0023, t01=0x009e}
0x3770…379a               Head {h00=0x0026, h01=0x0050, text=»*             A8  = FM ECB ADDRESS«, t00=0x0023, t01=0x00ce}
0x379a…37c8               Head {h00=0x002a, h01=0x0050, text=»*             A9 = WRKARE BASE ADDRESS«, t00=0x0023, t01=0x00f8}
0x37c8…37ee               Head {h00=0x0022, h01=0x0050, text=»*            A10 = FPB ADDRESS«, t00=0x0023, t01=0x0126}
0x37ee…382e               Head {h00=0x003c, h01=0x0050, text=»*            EXTLEN = REST LENGTH FROM PREVIOUS SECTIONS«, t00=0x0023, t01=0x014c}
0x382e…3838               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x018c}
0x3838…3868               Head {h00=0x002c, h01=0x0050, text=»*   OUTPUT  :  A4 = RETCOD = RETURN CODE«, t00=0x0024, t01=0x0008}
0x3868…38a2               Head {h00=0x0036, h01=0x0050, text=»*             A2 = INCREMENTED FILE SECTION NUMBER«, t00=0x0024, t01=0x0038}
0x38a2…38d0               Head {h00=0x002a, h01=0x0050, text=»*              CR SET ACCORDING TO A4 «, t00=0x0024, t01=0x0072}
0x38d0…38da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a0}
0x38da…38ee               Head {h00=0x0010, h01=0x0050, text=»CREFIL EQU *«, t00=0x0024, t01=0x00aa}
0x38ee…391c               Head {h00=0x002a, h01=0x0050, text=» CF A14,GETFIL GET FILE SECTION LENGTH«, t00=0x0024, t01=0x00be}
0x391c…3950               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) CEF010 DEMANDED FILE SECTION LENGTH «, t00=0x0024, t01=0x00ec}
0x3950…395a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0120}
0x395a…3970               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0024, t01=0x012a}
0x3970…397a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0140}
0x397a…3984               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014a}
0x3984…39a4               Head {h00=0x001c, h01=0x0050, text=»EXTFIL EQU * EXTEND FILE«, t00=0x0024, t01=0x0154}
0x39a4…39ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0174}
0x39ae…39c4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0024, t01=0x017e}
0x39c4…39fe (37, 0, 400)  Head {h00=0x0036, h01=0x0050, text=» LD A1,EXTLEN,A9 REST LENGTH FROM PREVIUS SECTIONS«, t00=0x0025, t01=0x0004}
0x39fe…3a18               Head {h00=0x0016, h01=0x0050, text=» LD A2,EXTLEN+2,A9«, t00=0x0025, t01=0x003e}
0x3a18…3a24               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0058}
0x3a24…3a2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0064}
0x3a2e…3a44               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0025, t01=0x006e}
0x3a44…3a7e               Head {h00=0x0036, h01=0x0050, text=» ML 2,EXTLEN,A9 REST LENGTH FROM PREVIUS SECTIONS «, t00=0x0025, t01=0x0084}
0x3a7e…3a8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00be}
0x3a8a…3a94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ca}
0x3a94…3aaa               Head {h00=0x0012, h01=0x0050, text=» CM EXTLEN,A9 «, t00=0x0025, t01=0x00d4}
0x3aaa…3ac2               Head {h00=0x0014, h01=0x0050, text=» CM EXTLEN+2,A9 «, t00=0x0025, t01=0x00ea}
0x3ac2…3acc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0102}
0x3acc…3ae2               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0025, t01=0x010c}
0x3ae2…3aec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0122}
0x3aec…3af6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x012c}
0x3af6…3b0a               Head {h00=0x0010, h01=0x0050, text=»CEF000 EQU *«, t00=0x0025, t01=0x0136}
0x3b0a…3b2e               Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 RESET RETURN CODE «, t00=0x0025, t01=0x014a}
0x3b2e…3b5e               Head {h00=0x002c, h01=0x0050, text=» CF A14,DBLX00 SET CR ACCORDING TO A1,A2«, t00=0x0025, t01=0x016e}
0x3b5e…3b8c               Head {h00=0x002a, h01=0x0050, text=» ABL(Z) CEFOUT NO LENGTH TO BE CREATED«, t00=0x0026, t01=0x000e}
0x3b8c…3ba0               Head {h00=0x0010, h01=0x0050, text=»CEF010 EQU *«, t00=0x0026, t01=0x003c}
0x3ba0…3baa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0050}
0x3baa…3bc0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0026, t01=0x005a}
0x3bc0…3bf6               Head {h00=0x0032, h01=0x0050, text=» ST A1,FILLEN,A9 FILE SECTION LENGTH TO CREATE«, t00=0x0026, t01=0x0070}
0x3bf6…3c10               Head {h00=0x0016, h01=0x0050, text=» ST A2,FILLEN+2,A9«, t00=0x0026, t01=0x00a6}
0x3c10…3c4a               Head {h00=0x0036, h01=0x0050, text=» CF A14,DV3RST MAKE FILE SECTION LENGTH MULT OF 3 «, t00=0x0026, t01=0x00c0}
0x3c4a…3c5c               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A9«, t00=0x0026, t01=0x00fa}
0x3c5c…3c72               Head {h00=0x0012, h01=0x0050, text=» ADK A6,FILLEN«, t00=0x0026, t01=0x010c}
0x3c72…3c84               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A6«, t00=0x0026, t01=0x0122}
0x3c84…3c9a               Head {h00=0x0012, h01=0x0050, text=» CF A14,DBLADR«, t00=0x0026, t01=0x0134}
0x3c9a…3ca6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x014a}
0x3ca6…3cb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0156}
0x3cb0…3cc6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0026, t01=0x0160}
0x3cc6…3cfc               Head {h00=0x0032, h01=0x0050, text=» MS 2,FILLEN,A9 FILE SECTION LENGTH TO CREATE «, t00=0x0026, t01=0x0176}
0x3cfc…3d2e               Head {h00=0x002e, h01=0x0050, text=» CF A14,DV3RST MAKE FILE SECTION MULT OF 3«, t00=0x0027, t01=0x001c}
0x3d2e…3d44               Head {h00=0x0012, h01=0x0050, text=» DA FILLEN,A9 «, t00=0x0027, t01=0x004e}
0x3d44…3d5c               Head {h00=0x0014, h01=0x0050, text=» MS 2,FILLEN,A9 «, t00=0x0027, t01=0x0064}
0x3d5c…3d68               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x007c}
0x3d68…3d72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0088}
0x3d72…3d96               Head {h00=0x0020, h01=0x0050, text=» CF A14,GET:FC GET FILE CODE«, t00=0x0027, t01=0x0092}
0x3d96…3dc0               Head {h00=0x0026, h01=0x0050, text=» RF(Z) CEFOUT NOT SPECIFIED VOLUME«, t00=0x0027, t01=0x00b6}
0x3dc0…3dea               Head {h00=0x0026, h01=0x0050, text=» CF A14,VTCPAR GET VTOC PARAMETERS«, t00=0x0027, t01=0x00e0}
0x3dea…3e00               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CEFOUT«, t00=0x0027, t01=0x010a}
0x3e00…3e0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0120}
0x3e0a…3e20               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0027, t01=0x012a}
0x3e20…3e2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0140}
0x3e2a…3e34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x014a}
0x3e34…3e62               Head {h00=0x002a, h01=0x0050, text=»*   SCAN FSAT TO FIND FITTING EXTENTS «, t00=0x0027, t01=0x0154}
0x3e62…3e6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0182}
0x3e6c…3e8e               Head {h00=0x001e, h01=0x0050, text=»*   INPUT : A8=ECB ADDRESS«, t00=0x0027, t01=0x018c}
0x3e8e…3ebc               Head {h00=0x002a, h01=0x0050, text=»*           FSATBA = FSAT BASE SECTOR «, t00=0x0028, t01=0x001e}
0x3ebc…3eee               Head {h00=0x002e, h01=0x0050, text=»*           FILLEN = WANTED EXTENT LENGTH «, t00=0x0028, t01=0x004c}
0x3eee…3ef8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x007e}
0x3ef8…3f02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0088}
0x3f02…3f16               Head {h00=0x0010, h01=0x0050, text=»CEF100 EQU *«, t00=0x0028, t01=0x0092}
0x3f16…3f50               Head {h00=0x0036, h01=0x0050, text=» SUR A12,A12 FLAG INDICATING FITTING EXTENT FOUND «, t00=0x0028, t01=0x00a6}
0x3f50…3f82               Head {h00=0x002e, h01=0x0050, text=» CM VTC:EL,A9 RESET MOST FIT EXTENT LENGTH«, t00=0x0028, t01=0x00e0}
0x3f82…3f9a               Head {h00=0x0014, h01=0x0050, text=» CM VTC:EL+2,A9 «, t00=0x0028, t01=0x0112}
0x3f9a…3fc0               Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 1ST POSITION IN FSAT«, t00=0x0028, t01=0x012a}
0x3fc0…3fd4               Head {h00=0x0010, h01=0x0050, text=»CEF110 EQU *«, t00=0x0028, t01=0x0150}
0x3fd4…3ff4               Head {h00=0x001c, h01=0x0050, text=» CF A14,FSREAD READ FSAT«, t00=0x0028, t01=0x0164}
0x3ff4…4016               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CEFOUT DISC ERROR «, t00=0x0028, t01=0x0184}
0x4016…4020               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0016}
0x4020…4036               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0029, t01=0x0020}
0x4036…406c               Head {h00=0x0032, h01=0x0050, text=» ADKL A2,FM:BUF ADDRESS TO N:TH EXTLEN IN FSAT«, t00=0x0029, t01=0x0036}
0x406c…4084               Head {h00=0x0014, h01=0x0050, text=» LDR A13,A2 SAVE«, t00=0x0029, t01=0x006c}
0x4084…40ba               Head {h00=0x0032, h01=0x0050, text=» LDK A1,FILLEN ADDRESS TO WANTED EXTENT LENGTH«, t00=0x0029, t01=0x0084}
0x40ba…40cc               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A9«, t00=0x0029, t01=0x00ba}
0x40cc…40e2               Head {h00=0x0012, h01=0x0050, text=» CF A14,CMPDWD«, t00=0x0029, t01=0x00cc}
0x40e2…40ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00e2}
0x40ee…40f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ee}
0x40f8…410e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0029, t01=0x00f8}
0x410e…4134               Head {h00=0x0022, h01=0x0050, text=» LDR A13,A2 SAVE DISPLACEMENT «, t00=0x0029, t01=0x010e}
0x4134…414c               Head {h00=0x0014, h01=0x0050, text=» ADKL A13,FM:BUF«, t00=0x0029, t01=0x0134}
0x414c…4178               Head {h00=0x0028, h01=0x0050, text=» ML 2,FILLEN,A9 WANTED EXTENT LENGTH«, t00=0x0029, t01=0x014c}
0x4178…419a               Head {h00=0x001e, h01=0x0050, text=» DSR* A13 EXTENTION LENGTH«, t00=0x0029, t01=0x0178}
0x419a…41a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x000a}
0x41a6…41b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0016}
0x41b0…41d2               Head {h00=0x001e, h01=0x0050, text=» RF(E) CEF120 EXTENT FOUND«, t00=0x002a, t01=0x0020}
0x41d2…4208               Head {h00=0x0032, h01=0x0050, text=» RF(L) CEF130 FOUND EXTENT GREATER THAN WANTED«, t00=0x002a, t01=0x0042}
0x4208…421c               Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x002a, t01=0x0078}
0x421c…4254               Head {h00=0x0034, h01=0x0050, text=» RF(NZ) CEF160 GREATER FREE EXTENT ALREADY FOUND«, t00=0x002a, t01=0x008c}
0x4254…425e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c4}
0x425e…4274               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x002a, t01=0x00ce}
0x4274…427e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e4}
0x427e…4288               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ee}
0x4288…429e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002a, t01=0x00f8}
0x429e…42d2               Head {h00=0x0030, h01=0x0050, text=» LDKL A1,VTC:EL ADDRESS TO PRESENT MOST FIT «, t00=0x002a, t01=0x010e}
0x42d2…42e4               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A9«, t00=0x002a, t01=0x0142}
0x42e4…42f8               Head {h00=0x0010, h01=0x0050, text=» LDR A2,A13 «, t00=0x002a, t01=0x0154}
0x42f8…430e               Head {h00=0x0012, h01=0x0050, text=» CF A14,CMPDWD«, t00=0x002a, t01=0x0168}
0x430e…431a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x017e}
0x431a…4324               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x018a}
0x4324…433a (43, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002b, t01=0x0004}
0x433a…4362               Head {h00=0x0024, h01=0x0050, text=» ML 2,VTC:EL,A9 PRESENT MOST FIT«, t00=0x002b, t01=0x001a}
0x4362…4382               Head {h00=0x001c, h01=0x0050, text=» DSR* A13 EXTENT LENGTH «, t00=0x002b, t01=0x0042}
0x4382…438e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0062}
0x438e…4398               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006e}
0x4398…43d4               Head {h00=0x0038, h01=0x0050, text=» RF(NL) CEF160 NOT GREATER THAN LAST FOUND MOST FIT «, t00=0x002b, t01=0x0078}
0x43d4…43e6               Head {h00=0x000e, h01=0x0050, text=» RF CEF150«, t00=0x002b, t01=0x00b4}
0x43e6…43f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00c6}
0x43f0…4406               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x002b, t01=0x00d0}
0x4406…4410               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e6}
0x4410…441a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f0}
0x441a…442e               Head {h00=0x0010, h01=0x0050, text=»CEF120 EQU *«, t00=0x002b, t01=0x00fa}
0x442e…4458               Head {h00=0x0026, h01=0x0050, text=» LDKL A12,-1 INDICATE EQUAL FOUND «, t00=0x002b, t01=0x010e}
0x4458…446a               Head {h00=0x000e, h01=0x0050, text=» RF CEF150«, t00=0x002b, t01=0x0138}
0x446a…447e               Head {h00=0x0010, h01=0x0050, text=»CEF130 EQU *«, t00=0x002b, t01=0x014a}
0x447e…4492               Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x002b, t01=0x015e}
0x4492…44c0               Head {h00=0x002a, h01=0x0050, text=» RF(Z) CEF140 1ST GREATER EXTENT FOUND«, t00=0x002b, t01=0x0172}
0x44c0…44ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0010}
0x44ca…44e0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002c, t01=0x001a}
0x44e0…4514               Head {h00=0x0030, h01=0x0050, text=» LDKL A1,VTC:EL ADDRESS TO PRESENT MOST FIT «, t00=0x002c, t01=0x0030}
0x4514…4526               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A9«, t00=0x002c, t01=0x0064}
0x4526…453a               Head {h00=0x0010, h01=0x0050, text=» LDR A2,A13 «, t00=0x002c, t01=0x0076}
0x453a…4550               Head {h00=0x0012, h01=0x0050, text=» CF A14,CMPDWD«, t00=0x002c, t01=0x008a}
0x4550…455c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00a0}
0x455c…4566               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ac}
0x4566…457c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002c, t01=0x00b6}
0x457c…45a4               Head {h00=0x0024, h01=0x0050, text=» ML 2,VTC:EL,A9 PRESENT MOST FIT«, t00=0x002c, t01=0x00cc}
0x45a4…45c4               Head {h00=0x001c, h01=0x0050, text=» DSR* A13 EXTENT LENGTH «, t00=0x002c, t01=0x00f4}
0x45c4…45d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0114}
0x45d0…45da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0120}
0x45da…45fe               Head {h00=0x0020, h01=0x0050, text=» RF(NG) CEF160 NOT MOST FIT «, t00=0x002c, t01=0x012a}
0x45fe…4612               Head {h00=0x0010, h01=0x0050, text=»CEF140 EQU *«, t00=0x002c, t01=0x014e}
0x4612…463c               Head {h00=0x0026, h01=0x0050, text=» LDKL A12,1 INDICATE GREATER FOUND«, t00=0x002c, t01=0x0162}
0x463c…4650               Head {h00=0x0010, h01=0x0050, text=»CEF150 EQU *«, t00=0x002c, t01=0x018c}
0x4650…465a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0010}
0x465a…4670               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002d, t01=0x001a}
0x4670…4694               Head {h00=0x0020, h01=0x0050, text=» LDR A1,A13 MOVE FROM BUFFER«, t00=0x002d, t01=0x0030}
0x4694…46b8               Head {h00=0x0020, h01=0x0050, text=» LDKL A3,VTC:EL TO WORK AREA«, t00=0x002d, t01=0x0054}
0x46b8…46ca               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x002d, t01=0x0078}
0x46ca…46e0               Head {h00=0x0012, h01=0x0050, text=» CF A14,FM:MV8«, t00=0x002d, t01=0x008a}
0x46e0…46ec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00a0}
0x46ec…46f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ac}
0x46f6…470c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002d, t01=0x00b6}
0x470c…4738               Head {h00=0x0028, h01=0x0050, text=» MLR 4,A13 FROM FM:BUF TO WORK AREA «, t00=0x002d, t01=0x00cc}
0x4738…4750               Head {h00=0x0014, h01=0x0050, text=» MS 4,VTC:EL,A9 «, t00=0x002d, t01=0x00f8}
0x4750…475c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0110}
0x475c…4766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x011c}
0x4766…4780               Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 RESET RC«, t00=0x002d, t01=0x0126}
0x4780…47ae               Head {h00=0x002a, h01=0x0050, text=» LDR A6,A5 SAVE MOST FIT DISPLACEMENT «, t00=0x002d, t01=0x0140}
0x47ae…47c2               Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x002d, t01=0x016e}
0x47c2…47e4               Head {h00=0x001e, h01=0x0050, text=» RF(N) CEF170 EQUAL FOUND «, t00=0x002d, t01=0x0182}
0x47e4…47ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0014}
0x47ee…4804               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x002e, t01=0x001e}
0x4804…480e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0034}
0x480e…4818               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x003e}
0x4818…482c               Head {h00=0x0010, h01=0x0050, text=»CEF160 EQU *«, t00=0x002e, t01=0x0048}
0x482c…4856               Head {h00=0x0026, h01=0x0050, text=» ADK A5,FSATRL NEXT ENTRY IN FSAT «, t00=0x002e, t01=0x005c}
0x4856…486e               Head {h00=0x0014, h01=0x0050, text=» CW A5,FSATLE,A9«, t00=0x002e, t01=0x0086}
0x486e…489e               Head {h00=0x002c, h01=0x0050, text=» RB(L) CEF110 SCAN MORE ENTRIES IN FSAT «, t00=0x002e, t01=0x009e}
0x489e…48b2               Head {h00=0x0010, h01=0x0050, text=»CEF170 EQU *«, t00=0x002e, t01=0x00ce}
0x48b2…48bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e2}
0x48bc…48d2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002e, t01=0x00ec}
0x48d2…48ea               Head {h00=0x0014, h01=0x0050, text=» LD A1,VTC:EL,A9«, t00=0x002e, t01=0x0102}
0x48ea…490e               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CEF200 SPACE ON DISC«, t00=0x002e, t01=0x011a}
0x490e…4928               Head {h00=0x0016, h01=0x0050, text=» LD A2,VTC:EL+2,A9«, t00=0x002e, t01=0x013e}
0x4928…493a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x002e, t01=0x0158}
0x493a…4946               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x016a}
0x4946…4950               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0176}
0x4950…4966               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002e, t01=0x0180}
0x4966…497e               Head {h00=0x0014, h01=0x0050, text=» ML 2,VTC:EL,A9 «, t00=0x002f, t01=0x0008}
0x497e…49a2               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CEF200 SPACE ON DISC«, t00=0x002f, t01=0x0020}
0x49a2…49b4               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x002f, t01=0x0044}
0x49b4…49c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0056}
0x49c0…49ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0062}
0x49ca…49f2               Head {h00=0x0024, h01=0x0050, text=» ABL(NP) CEF500 NO SPACE ON DISC«, t00=0x002f, t01=0x006c}
0x49f2…49fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0094}
0x49fc…4a12               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x002f, t01=0x009e}
0x4a12…4a1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00b4}
0x4a1c…4a26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00be}
0x4a26…4a3e               Head {h00=0x0014, h01=0x0050, text=»*   UPDATE FSAT «, t00=0x002f, t01=0x00c8}
0x4a3e…4a48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00e0}
0x4a48…4a84               Head {h00=0x0038, h01=0x0050, text=»*   INPUT : A6 = DISPLACEMENT IN FSAT TO BE UPDATED «, t00=0x002f, t01=0x00ea}
0x4a84…4ac2               Head {h00=0x003a, h01=0x0050, text=»*           A12 = 0 ,IF EXTENT SMALLER THAN REQUESTED «, t00=0x002f, t01=0x0126}
0x4ac2…4ae8               Head {h00=0x0022, h01=0x0050, text=»*              = 1 ,IF GREATER«, t00=0x002f, t01=0x0164}
0x4ae8…4b1c               Head {h00=0x0030, h01=0x0050, text=»*           FM:BUF = FILE MANAGEMENT BUFFER «, t00=0x002f, t01=0x018a}
0x4b1c…4b4c               Head {h00=0x002c, h01=0x0050, text=»*           VTC:EL = FILE EXTENT LENGTH «, t00=0x0030, t01=0x002e}
0x4b4c…4b7a               Head {h00=0x002a, h01=0x0050, text=»*           VTC:EB = FILE EXTENT BASE «, t00=0x0030, t01=0x005e}
0x4b7a…4b84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x008c}
0x4b84…4b98               Head {h00=0x0010, h01=0x0050, text=»CEF200 EQU *«, t00=0x0030, t01=0x0096}
0x4b98…4bbc               Head {h00=0x0020, h01=0x0050, text=» LDR A5,A6 GET ENTRY IN FSAT«, t00=0x0030, t01=0x00aa}
0x4bbc…4bd2               Head {h00=0x0012, h01=0x0050, text=» CF A14,FTREAD«, t00=0x0030, t01=0x00ce}
0x4bd2…4bf4               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CEFOUT READ ERROR «, t00=0x0030, t01=0x00e4}
0x4bf4…4c24               Head {h00=0x002c, h01=0x0050, text=» ANK A5,/F8 DISPLACEMENT IN FSAT SECTOR «, t00=0x0030, t01=0x0106}
0x4c24…4c38               Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x0030, t01=0x0136}
0x4c38…4c60               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CEF210 DELETE FSAT ENTRY«, t00=0x0030, t01=0x014a}
0x4c60…4c6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0172}
0x4c6a…4c80               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0030, t01=0x017c}
0x4c80…4ca6 (49, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» LD A1,VTC:EL,A9 EXTENT LENGTH«, t00=0x0031, t01=0x0004}
0x4ca6…4cc0               Head {h00=0x0016, h01=0x0050, text=» LD A2,VTC:EL+2,A9«, t00=0x0031, t01=0x002a}
0x4cc0…4ccc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0044}
0x4ccc…4cd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0050}
0x4cd6…4cec               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0031, t01=0x005a}
0x4cec…4d12               Head {h00=0x0022, h01=0x0050, text=» ML 2,VTC:EL,A9 EXTENT LENGTH «, t00=0x0031, t01=0x0070}
0x4d12…4d1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0096}
0x4d1e…4d28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a2}
0x4d28…4d3e               Head {h00=0x0012, h01=0x0050, text=» CF A14,DV3RST«, t00=0x0031, t01=0x00ac}
0x4d3e…4d5c               Head {h00=0x001a, h01=0x0050, text=» RF(Z) CEF220 NO REST «, t00=0x0031, t01=0x00c2}
0x4d5c…4d66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e0}
0x4d66…4d7c               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0031, t01=0x00ea}
0x4d7c…4d86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0100}
0x4d86…4d90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x010a}
0x4d90…4da6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0031, t01=0x0114}
0x4da6…4dda               Head {h00=0x0030, h01=0x0050, text=» LDKL A3,VTC:EL GET ADDRESS TO EXTENT LENGTH«, t00=0x0031, t01=0x012a}
0x4dda…4dec               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x0031, t01=0x015e}
0x4dec…4dfe               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A3«, t00=0x0031, t01=0x0170}
0x4dfe…4e10               Head {h00=0x000e, h01=0x0050, text=» SUK A2,3 «, t00=0x0031, t01=0x0182}
0x4e10…4e2a (50, 0, 400)  Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 A1=/FFFF«, t00=0x0032, t01=0x0004}
0x4e2a…4e5a               Head {h00=0x002c, h01=0x0050, text=» CF A14,DBLADR MAKE EXTENT MULTIPLE OF 3«, t00=0x0032, t01=0x001e}
0x4e5a…4e66               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x004e}
0x4e66…4e70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x005a}
0x4e70…4e86               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0032, t01=0x0064}
0x4e86…4e9e               Head {h00=0x0014, h01=0x0050, text=» SUK A2,3 -REST «, t00=0x0032, t01=0x007a}
0x4e9e…4eb6               Head {h00=0x0014, h01=0x0050, text=» SUK A1,1 /FFFF «, t00=0x0032, t01=0x0092}
0x4eb6…4ecc               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x0032, t01=0x00aa}
0x4ecc…4ee2               Head {h00=0x0012, h01=0x0050, text=» DA VTC:EL,A9 «, t00=0x0032, t01=0x00c0}
0x4ee2…4f12               Head {h00=0x002c, h01=0x0050, text=» MS 2,VTC:EL,A9 EXTENT LENGTH MULT OF 3 «, t00=0x0032, t01=0x00d6}
0x4f12…4f1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0106}
0x4f1e…4f28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0112}
0x4f28…4f3a               Head {h00=0x000e, h01=0x0050, text=» RF CEF220«, t00=0x0032, t01=0x011c}
0x4f3a…4f4e               Head {h00=0x0010, h01=0x0050, text=»CEF210 EQU *«, t00=0x0032, t01=0x012e}
0x4f4e…4f58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0142}
0x4f58…4f6e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0032, t01=0x014c}
0x4f6e…4f9c               Head {h00=0x002a, h01=0x0050, text=» LDKL A3,VTC:EL GET FILE EXTENT LENGTH«, t00=0x0032, t01=0x0162}
0x4f9c…4fae               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x0032, t01=0x0190}
0x4fae…4fc4               Head {h00=0x0012, h01=0x0050, text=» LDK A1,FILLEN«, t00=0x0033, t01=0x0012}
0x4fc4…4fd6               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A9«, t00=0x0033, t01=0x0028}
0x4fd6…4fec               Head {h00=0x0012, h01=0x0050, text=» CF A14,FM:MV4«, t00=0x0033, t01=0x003a}
0x4fec…4ff8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0050}
0x4ff8…5002               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x005c}
0x5002…5018               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0033, t01=0x0066}
0x5018…5042               Head {h00=0x0026, h01=0x0050, text=» ML 2,FILLEN,A9 FILE EXTENT LENGTH«, t00=0x0033, t01=0x007c}
0x5042…505a               Head {h00=0x0014, h01=0x0050, text=» MS 2,VTC:EL,A9 «, t00=0x0033, t01=0x00a6}
0x505a…5066               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x00be}
0x5066…5070               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ca}
0x5070…5086               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0033, t01=0x00d4}
0x5086…5090               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00ea}
0x5090…509a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f4}
0x509a…50ae               Head {h00=0x0010, h01=0x0050, text=»CEF220 EQU *«, t00=0x0033, t01=0x00fe}
0x50ae…50d8               Head {h00=0x0026, h01=0x0050, text=» LDKL A3,FM:BUF FSAT EXTENT LENGTH«, t00=0x0033, t01=0x0112}
0x50d8…50ea               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A5«, t00=0x0033, t01=0x013c}
0x50ea…512c               Head {h00=0x003e, h01=0x0050, text=» CF A14,DBLSU1 NEW EXTENT LENGTH=OLD LENGTH-CREATED LENGTH«, t00=0x0033, t01=0x014e}
0x512c…515e               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) CEF230 REST EXTENT LENGTH GREATER «, t00=0x0033, t01=0x0190}
0x515e…5186               Head {h00=0x0024, h01=0x0050, text=» CF A14,CLFSAT CLEAR FSAT ENTRY «, t00=0x0034, t01=0x0032}
0x5186…5198               Head {h00=0x000e, h01=0x0050, text=» RF CEF240«, t00=0x0034, t01=0x005a}
0x5198…51ac               Head {h00=0x0010, h01=0x0050, text=»CEF230 EQU *«, t00=0x0034, t01=0x006c}
0x51ac…51b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0080}
0x51b6…51cc               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0034, t01=0x008a}
0x51cc…51e6               Head {h00=0x0016, h01=0x0050, text=» LDKL A3,FM:BUF+4 «, t00=0x0034, t01=0x00a0}
0x51e6…51f8               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A5«, t00=0x0034, t01=0x00ba}
0x51f8…5222               Head {h00=0x0026, h01=0x0050, text=» LDKL A6,VTC:EL EXTENT BASE+LENGTH«, t00=0x0034, t01=0x00cc}
0x5222…5234               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A9«, t00=0x0034, t01=0x00f6}
0x5234…5272               Head {h00=0x003a, h01=0x0050, text=» CF A14,DBLADD NEW EXTENTBASE=EXTBASE+CREATED EXTBASE «, t00=0x0034, t01=0x0108}
0x5272…527e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0146}
0x527e…5288               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0152}
0x5288…529e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0034, t01=0x015c}
0x529e…52b8               Head {h00=0x0016, h01=0x0050, text=» ML 2,FM:BUF+4,A5 «, t00=0x0034, t01=0x0172}
0x52b8…52ce               Head {h00=0x0012, h01=0x0050, text=» DA VTC:EL,A9 «, t00=0x0034, t01=0x018c}
0x52ce…530c               Head {h00=0x003a, h01=0x0050, text=» MS 2,FM:BUF+4,A5 NEW EXT BASE=EXTBAS+CREATED EXTBASE «, t00=0x0035, t01=0x0012}
0x530c…5318               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0050}
0x5318…5322               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x005c}
0x5322…5336               Head {h00=0x0010, h01=0x0050, text=»CEF240 EQU *«, t00=0x0035, t01=0x0066}
0x5336…5352               Head {h00=0x0018, h01=0x0050, text=» CF A14,CDEWRI WRITE«, t00=0x0035, t01=0x007a}
0x5352…5370               Head {h00=0x001a, h01=0x0050, text=» RF(Z) CEF350 WRITE OK«, t00=0x0035, t01=0x0096}
0x5370…5384               Head {h00=0x0010, h01=0x0050, text=»CEFOUT EQU *«, t00=0x0035, t01=0x00b4}
0x5384…53aa               Head {h00=0x0022, h01=0x0050, text=» CM EXTZER,A9 1ST VTOC POINTER«, t00=0x0035, t01=0x00c8}
0x53aa…53cc               Head {h00=0x001e, h01=0x0050, text=» IM VTC:FS,A9 NEXT SECTION«, t00=0x0035, t01=0x00ee}
0x53cc…53e4               Head {h00=0x0014, h01=0x0050, text=» LD A2,VTC:FS,A9«, t00=0x0035, t01=0x0110}
0x53e4…5406               Head {h00=0x001e, h01=0x0050, text=» CM VTC:EN,A9 EXTENT ZERO «, t00=0x0035, t01=0x0128}
0x5406…542e               Head {h00=0x0024, h01=0x0050, text=» ORS A4,RETCOD SAVE RETURN CODE «, t00=0x0035, t01=0x014a}
0x542e…5458               Head {h00=0x0026, h01=0x0050, text=» ABL SET:CR SET CONDITION REGISTER«, t00=0x0035, t01=0x0172}
0x5458…5462               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x000c}
0x5462…5478               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0036, t01=0x0016}
0x5478…5482               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x002c}
0x5482…548c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0036}
0x548c…54b4               Head {h00=0x0024, h01=0x0050, text=»*   SEARCH FOR FREE VTOC ENTRIES«, t00=0x0036, t01=0x0040}
0x54b4…54be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0068}
0x54be…54c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0072}
0x54c8…54f6               Head {h00=0x002a, h01=0x0050, text=»*   INPUT : VTCSEC = VTOC BASE SECTOR «, t00=0x0036, t01=0x007c}
0x54f6…5524               Head {h00=0x002a, h01=0x0050, text=»*           VTCEND = VTOC LAST SECTOR «, t00=0x0036, t01=0x00aa}
0x5524…554a               Head {h00=0x0022, h01=0x0050, text=»*           FM:BUF = FM BUFFER«, t00=0x0036, t01=0x00d8}
0x554a…5554               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00fe}
0x5554…5568               Head {h00=0x0010, h01=0x0050, text=»CEF300 EQU *«, t00=0x0036, t01=0x0108}
0x5568…5588               Head {h00=0x001c, h01=0x0050, text=» CF A14,FMREAD READ VTOC«, t00=0x0036, t01=0x011c}
0x5588…55aa               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) CEFOUT DISC ERROR «, t00=0x0036, t01=0x013c}
0x55aa…55d4               Head {h00=0x0026, h01=0x0050, text=» LDKL A7,VTOCBF VTOC BLOCK FACTOR «, t00=0x0036, t01=0x015e}
0x55d4…55fc               Head {h00=0x0024, h01=0x0050, text=» LDKL A13,FM:BUF BUFFER ADDRESS «, t00=0x0036, t01=0x0188}
0x55fc…5606               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0020}
0x5606…561c               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0037, t01=0x002a}
0x561c…5626               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0040}
0x5626…5630               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x004a}
0x5630…5644               Head {h00=0x0010, h01=0x0050, text=»CEF320 EQU *«, t00=0x0037, t01=0x0054}
0x5644…566e               Head {h00=0x0026, h01=0x0050, text=» LD A4,VTC:ST,A13 VTOC STATUS BYTE«, t00=0x0037, t01=0x0068}
0x566e…5682               Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0037, t01=0x0092}
0x5682…56ae               Head {h00=0x0028, h01=0x0050, text=» RF(Z) CEF400 FREE VTOC ENTRY FOUND «, t00=0x0037, t01=0x00a6}
0x56ae…56da               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,VTC:FN ADDRESS TO FILE NAME«, t00=0x0037, t01=0x00d2}
0x56da…56ec               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A9«, t00=0x0037, t01=0x00fe}
0x56ec…570e               Head {h00=0x001e, h01=0x0050, text=» LDR A2,A13 VTOC FILE NAME«, t00=0x0037, t01=0x0110}
0x570e…5720               Head {h00=0x000e, h01=0x0050, text=» LDK A3,8 «, t00=0x0037, t01=0x0132}
0x5720…5736               Head {h00=0x0012, h01=0x0050, text=» CF A14,CMPSTR«, t00=0x0037, t01=0x0144}
0x5736…575a               Head {h00=0x0020, h01=0x0050, text=» RF(NE) CEF340 NOT SAME NAME«, t00=0x0037, t01=0x015a}
0x575a…5782               Head {h00=0x0024, h01=0x0050, text=» LD A1,VTC:EN,A13 EXTENT NUMBER «, t00=0x0037, t01=0x017e}
0x5782…57a0               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) CEF340 NOT 1ST«, t00=0x0038, t01=0x0016}
0x57a0…57cc               Head {h00=0x0028, h01=0x0050, text=» LD A1,VTCSEC,A9 VTOC SECTOR NUMBER «, t00=0x0038, t01=0x0034}
0x57cc…57e4               Head {h00=0x0014, h01=0x0050, text=» ST A1,EXTZER,A9«, t00=0x0038, t01=0x0060}
0x57e4…57f8               Head {h00=0x0010, h01=0x0050, text=»CEF340 EQU *«, t00=0x0038, t01=0x0078}
0x57f8…5822               Head {h00=0x0026, h01=0x0050, text=» ADKL A13,VTOCRL NEXT VTOC ADDRESS«, t00=0x0038, t01=0x008c}
0x5822…5834               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0038, t01=0x00b6}
0x5834…5864               Head {h00=0x002c, h01=0x0050, text=» RB(P) CEF320 MORE VTOC:S ON THIS SECTOR«, t00=0x0038, t01=0x00c8}
0x5864…588a               Head {h00=0x0022, h01=0x0050, text=» IM VTCSEC,A9 NEXT VTOC SECTOR«, t00=0x0038, t01=0x00f8}
0x588a…589e               Head {h00=0x0010, h01=0x0050, text=»CEF350 EQU *«, t00=0x0038, t01=0x011e}
0x589e…58c2               Head {h00=0x0020, h01=0x0050, text=» LD A2,VTCSEC,A9 VTOC SECTOR«, t00=0x0038, t01=0x0132}
0x58c2…58da               Head {h00=0x0014, h01=0x0050, text=» CW A2,VTCEND,A9«, t00=0x0038, t01=0x0156}
0x58da…5902               Head {h00=0x0024, h01=0x0050, text=» RB(NE) CEF300 MORE VTOC SECTORS«, t00=0x0038, t01=0x016e}
0x5902…592c               Head {h00=0x0026, h01=0x0050, text=» LDK A4,RC:OFL RC: NO MORE VOLUMES«, t00=0x0039, t01=0x0008}
0x592c…593e               Head {h00=0x000e, h01=0x0050, text=» RB CEFOUT«, t00=0x0039, t01=0x0032}
0x593e…5948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0044}
0x5948…595e               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0039, t01=0x004e}
0x595e…5968               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0064}
0x5968…5972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x006e}
0x5972…598c               Head {h00=0x0016, h01=0x0050, text=»*   CREATE A VTOC «, t00=0x0039, t01=0x0078}
0x598c…5996               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0092}
0x5996…59bc               Head {h00=0x0022, h01=0x0050, text=»*   INPUT : A10 = FPB ADDRESS «, t00=0x0039, t01=0x009c}
0x59bc…59e8               Head {h00=0x0028, h01=0x0050, text=»*           A13 = VTOC ENTRY ADDRESS«, t00=0x0039, t01=0x00c2}
0x59e8…5a10               Head {h00=0x0024, h01=0x0050, text=»*           A8 = FM:ECB ADDRESS «, t00=0x0039, t01=0x00ee}
0x5a10…5a1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0116}
0x5a1a…5a2e               Head {h00=0x0010, h01=0x0050, text=»CEF400 EQU *«, t00=0x0039, t01=0x0120}
0x5a2e…5a58               Head {h00=0x0026, h01=0x0050, text=» LC A4,VTC:FO,A9 FILE ORGANISATION«, t00=0x0039, t01=0x0134}
0x5a58…5a6c               Head {h00=0x0010, h01=0x0050, text=» SUK A4,'L' «, t00=0x0039, t01=0x015e}
0x5a6c…5a8e               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CEF450 NOT L FILE «, t00=0x0039, t01=0x0172}
0x5a8e…5ab6 (58, 0, 398)  Head {h00=0x0024, h01=0x0050, text=» LC A1,FPB:MN,A10 MONITOR NUMBER«, t00=0x003a, t01=0x0004}
0x5ab6…5ac8               Head {h00=0x000e, h01=0x0050, text=» ECR A1,A1«, t00=0x003a, t01=0x002c}
0x5ac8…5aee               Head {h00=0x0022, h01=0x0050, text=» LC A1,FPB:SN,A10 START SWITCH«, t00=0x003a, t01=0x003e}
0x5aee…5b0c               Head {h00=0x001a, h01=0x0050, text=» ST A1,VTC:MN,A9 VTOC «, t00=0x003a, t01=0x0064}
0x5b0c…5b2e               Head {h00=0x001e, h01=0x0050, text=» CM VTC:KA,A9 KEY ADDRESS «, t00=0x003a, t01=0x0082}
0x5b2e…5b42               Head {h00=0x0010, h01=0x0050, text=»CEF450 EQU *«, t00=0x003a, t01=0x00a4}
0x5b42…5b60               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A13 MOVE VTOC «, t00=0x003a, t01=0x00b8}
0x5b60…5b78               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,VTOCRL «, t00=0x003a, t01=0x00d6}
0x5b78…5b9e               Head {h00=0x0022, h01=0x0050, text=» LDR A1,A9 VTOC RECORD ADDRESS«, t00=0x003a, t01=0x00ee}
0x5b9e…5bb4               Head {h00=0x0012, h01=0x0050, text=» CF A14,FM:MOV«, t00=0x003a, t01=0x0114}
0x5bb4…5bd0               Head {h00=0x0018, h01=0x0050, text=» CF A14,CDEWRI WRITE«, t00=0x003a, t01=0x012a}
0x5bd0…5bf2               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) CEFOUT WRITE ERROR«, t00=0x003a, t01=0x0146}
0x5bf2…5bfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0168}
0x5bfc…5c12               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x003a, t01=0x0172}
0x5c12…5c1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0188}
0x5c1c…5c26 (59, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0004}
0x5c26…5c4c               Head {h00=0x0022, h01=0x0050, text=» IM VTC:EN,A9 NEXT FILE EXTENT«, t00=0x003b, t01=0x000e}
0x5c4c…5c90               Head {h00=0x0040, h01=0x0050, text=» LDK A3,FILLEN ADDRESS TO FILE SECTION LENGTH TO BE CREATED «, t00=0x003b, t01=0x0034}
0x5c90…5ca2               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x003b, t01=0x0078}
0x5ca2…5cc2               Head {h00=0x001c, h01=0x0050, text=» CF A14,DBLSU1 SUBTRACT «, t00=0x003b, t01=0x008a}
0x5cc2…5cea               Head {h00=0x0024, h01=0x0050, text=» RF(Z) CEF600 FILE SECTION READY«, t00=0x003b, t01=0x00aa}
0x5cea…5d14               Head {h00=0x0026, h01=0x0050, text=» LC A4,VTC:FO,A9 FILE ORGANISATION«, t00=0x003b, t01=0x00d2}
0x5d14…5d28               Head {h00=0x0010, h01=0x0050, text=» SUK A4,'L' «, t00=0x003b, t01=0x00fc}
0x5d28…5d4e               Head {h00=0x0022, h01=0x0050, text=» RF(Z) CEF470 TOO MANY EXTENTS«, t00=0x003b, t01=0x0110}
0x5d4e…5d66               Head {h00=0x0014, h01=0x0050, text=» LD A1,VTC:EN,A9«, t00=0x003b, t01=0x0136}
0x5d66…5d7c               Head {h00=0x0012, h01=0x0050, text=» SUK A1,MAXEXT«, t00=0x003b, t01=0x014e}
0x5d7c…5db0               Head {h00=0x0030, h01=0x0050, text=» ABL(NP) CEF100 NEXT EXTENT OF FILE SECTION «, t00=0x003b, t01=0x0164}
0x5db0…5dc4               Head {h00=0x0010, h01=0x0050, text=»CEF470 EQU *«, t00=0x003c, t01=0x0008}
0x5dc4…5df6               Head {h00=0x002e, h01=0x0050, text=» LDKL A4,RC:SEO RC: TOO MANY FILE EXTENTS «, t00=0x003c, t01=0x001c}
0x5df6…5e1e               Head {h00=0x0024, h01=0x0050, text=» RF CEF510 TOO MANY FILE EXTENTS«, t00=0x003c, t01=0x004e}
0x5e1e…5e28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0076}
0x5e28…5e3e               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x003c, t01=0x0080}
0x5e3e…5e48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0096}
0x5e48…5e52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00a0}
0x5e52…5e66               Head {h00=0x0010, h01=0x0050, text=»CEF500 EQU *«, t00=0x003c, t01=0x00aa}
0x5e66…5e90               Head {h00=0x0026, h01=0x0050, text=» LDK A4,RC:OFL RC: NO MORE VOLUMES«, t00=0x003c, t01=0x00be}
0x5e90…5ea4               Head {h00=0x0010, h01=0x0050, text=»CEF510 EQU *«, t00=0x003c, t01=0x00e8}
0x5ea4…5ed4               Head {h00=0x002c, h01=0x0050, text=» LD A5,VTC:FS,A9 GET FILE SECTION NUMBER«, t00=0x003c, t01=0x00fc}
0x5ed4…5ee8               Head {h00=0x0010, h01=0x0050, text=»CEF520 EQU *«, t00=0x003c, t01=0x012c}
0x5ee8…5f06               Head {h00=0x001a, h01=0x0050, text=» ADK A5,1 NEXT VOLUME «, t00=0x003c, t01=0x0140}
0x5f06…5f18               Head {h00=0x000e, h01=0x0050, text=» CWK A5,3 «, t00=0x003c, t01=0x015e}
0x5f18…5f3e               Head {h00=0x0022, h01=0x0050, text=» RB(G) CEFOUT NO MORE VOLUMES «, t00=0x003c, t01=0x0170}
0x5f3e…5f64               Head {h00=0x0022, h01=0x0050, text=» LC A1,FILCOD,A5 GET FILE CODE«, t00=0x003d, t01=0x0008}
0x5f64…5f78               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x003d, t01=0x002e}
0x5f78…5f9a               Head {h00=0x001e, h01=0x0050, text=» RB(Z) CEF520 NEXT VOLUME «, t00=0x003d, t01=0x0042}
0x5f9a…5fac               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A5«, t00=0x003d, t01=0x0064}
0x5fac…5fd6               Head {h00=0x0026, h01=0x0050, text=» CF A14,GETFIL FILE SECTION LENGTH«, t00=0x003d, t01=0x0076}
0x5fd6…5ffa               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) CEF520 NO REST PILE «, t00=0x003d, t01=0x00a0}
0x5ffa…600e               Head {h00=0x0010, h01=0x0050, text=»CEF530 EQU *«, t00=0x003d, t01=0x00c4}
0x600e…6028               Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 RESET CR«, t00=0x003d, t01=0x00d8}
0x6028…6032               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f2}
0x6032…6048               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003d, t01=0x00fc}
0x6048…6072               Head {h00=0x0026, h01=0x0050, text=» LDK A3,EXTLEN SAVE REST FOR LATER«, t00=0x003d, t01=0x0112}
0x6072…6084               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x003d, t01=0x013c}
0x6084…609a               Head {h00=0x0012, h01=0x0050, text=» LDK A6,FILLEN«, t00=0x003d, t01=0x014e}
0x609a…60ac               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A9«, t00=0x003d, t01=0x0164}
0x60ac…60c2               Head {h00=0x0012, h01=0x0050, text=» CF A14,DBLADD«, t00=0x003d, t01=0x0176}
0x60c2…60ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x018c}
0x60ce…60d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0008}
0x60d8…60ee               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003e, t01=0x0012}
0x60ee…6110               Head {h00=0x001e, h01=0x0050, text=» ML 2,EXTLEN,A9 SAVE REST «, t00=0x003e, t01=0x0028}
0x6110…6126               Head {h00=0x0012, h01=0x0050, text=» DA FILLEN,A9 «, t00=0x003e, t01=0x004a}
0x6126…613e               Head {h00=0x0014, h01=0x0050, text=» MS 2,EXTLEN,A9 «, t00=0x003e, t01=0x0060}
0x613e…614a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0078}
0x614a…6154               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0084}
0x6154…616a               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x003e, t01=0x008e}
0x616a…6174               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a4}
0x6174…617e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00ae}
0x617e…6192               Head {h00=0x0010, h01=0x0050, text=»CEF600 EQU *«, t00=0x003e, t01=0x00b8}
0x6192…61c4               Head {h00=0x002e, h01=0x0050, text=» LD A2,EXTZER,A9 1ST EXTENT VTOC SECTOR NO«, t00=0x003e, t01=0x00cc}
0x61c4…61ec               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CEF650 VTOC ENTRY FOUND «, t00=0x003e, t01=0x00fe}
0x61ec…621a               Head {h00=0x002a, h01=0x0050, text=» LD A2,VTCSEC,A9 LAST SEARCHED SECTOR «, t00=0x003e, t01=0x0126}
0x621a…622e               Head {h00=0x0010, h01=0x0050, text=»CEF650 EQU *«, t00=0x003e, t01=0x0154}
0x622e…6250               Head {h00=0x001e, h01=0x0050, text=» LD A12,VTCEND,A9 VTOC END«, t00=0x003e, t01=0x0168}
0x6250…627c               Head {h00=0x0028, h01=0x0050, text=» LD A6,FWTSAV,A9 GET FILE NAME BASE «, t00=0x003e, t01=0x018a}
0x627c…62a6               Head {h00=0x0026, h01=0x0050, text=» CF A14,RDVTO2 SCAN FOR FIRST VTOC«, t00=0x003f, t01=0x0026}
0x62a6…62b8               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x003f, t01=0x0050}
0x62b8…62da               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CEF900 READ ERROR «, t00=0x003f, t01=0x0062}
0x62da…6306               Head {h00=0x0028, h01=0x0050, text=» LD A1,VTC:EN,A9 LAST EXTENT NUMBER «, t00=0x003f, t01=0x0084}
0x6306…6338               Head {h00=0x002e, h01=0x0050, text=» SC A1,VTC:NE,A13 UPDATE NUMBER OF EXTENTS«, t00=0x003f, t01=0x00b0}
0x6338…634e               Head {h00=0x0012, h01=0x0050, text=» CF A14,CDEWRI«, t00=0x003f, t01=0x00e2}
0x634e…6362               Head {h00=0x0010, h01=0x0050, text=»CEF900 EQU *«, t00=0x003f, t01=0x00f8}
0x6362…6376               Head {h00=0x0010, h01=0x0050, text=» ABL CEFOUT «, t00=0x003f, t01=0x010c}
0x6376…6380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0120}
0x6380…6396               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x003f, t01=0x012a}
0x6396…63a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0140}
0x63a0…63aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x014a}
0x63aa…63bc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0154}
0x63bc…63ce               Head {h00=0x000e, h01=0x0050, text=»* DELFIL *«, t00=0x003f, t01=0x0166}
0x63ce…63e0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0178}
0x63e0…63ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x018a}
0x63ea…6422 (64, 0, 400)  Head {h00=0x0034, h01=0x0050, text=»*   COLLECT ADJECENT EXTENDS AND CREATE ONE NEW «, t00=0x0040, t01=0x0004}
0x6422…642c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x003c}
0x642c…646e               Head {h00=0x003e, h01=0x0050, text=»*   INPUT :  FWTSAV = FWT ADDRESS OR ADJUSTED FPB ADDRESS «, t00=0x0040, t01=0x0046}
0x646e…64aa               Head {h00=0x0038, h01=0x0050, text=»*                 THAT IS (FILENAME)=(FWTSAV)+FWTNAM«, t00=0x0040, t01=0x0088}
0x64aa…64d2               Head {h00=0x0024, h01=0x0050, text=»*            A8 = FM:ECB ADDRESS«, t00=0x0040, t01=0x00c4}
0x64d2…650a               Head {h00=0x0034, h01=0x0050, text=»*            FILCOD = AREA CONTAINING FILE CODES«, t00=0x0040, t01=0x00ec}
0x650a…6534               Head {h00=0x0026, h01=0x0050, text=»*            VTC:FS SHOULD BE ZERO«, t00=0x0040, t01=0x0124}
0x6534…653e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x014e}
0x653e…6552               Head {h00=0x0010, h01=0x0050, text=»DELFIL EQU *«, t00=0x0040, t01=0x0158}
0x6552…6564               Head {h00=0x000e, h01=0x0050, text=» CM FEXTNO«, t00=0x0040, t01=0x016c}
0x6564…6588               Head {h00=0x0020, h01=0x0050, text=» CF A14,GET:FC GET FILE CODE«, t00=0x0040, t01=0x017e}
0x6588…65b4               Head {h00=0x0028, h01=0x0050, text=» RF(Z) DELF03 NO SPECIFIED FILE CODE«, t00=0x0041, t01=0x0012}
0x65b4…65de               Head {h00=0x0026, h01=0x0050, text=» CF A14,VTCPAR GET VTOC PARAMETERS«, t00=0x0041, t01=0x003e}
0x65de…65fa               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) DELF03 ERROR«, t00=0x0041, t01=0x0068}
0x65fa…660e               Head {h00=0x0010, h01=0x0050, text=»DELF00 EQU *«, t00=0x0041, t01=0x0084}
0x660e…6636               Head {h00=0x0024, h01=0x0050, text=» LD A6,FWTSAV,A9 GET FWT ADDRESS«, t00=0x0041, t01=0x0098}
0x6636…6660               Head {h00=0x0026, h01=0x0050, text=» LD A12,VTCEND,A9 VTOC END SECTOR «, t00=0x0041, t01=0x00c0}
0x6660…668c               Head {h00=0x0028, h01=0x0050, text=» LD A2,VTCSEC,A9 PRESENT VTOC SECTOR«, t00=0x0041, t01=0x00ea}
0x668c…66ac               Head {h00=0x001c, h01=0x0050, text=» CF A14,FNDVT2 NEXT VTOC«, t00=0x0041, t01=0x0116}
0x66ac…66d4               Head {h00=0x0024, h01=0x0050, text=» ST A2,VTCSEC,A9 UPDATE POINTER «, t00=0x0041, t01=0x0136}
0x66d4…66e6               Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0041, t01=0x015e}
0x66e6…670c               Head {h00=0x0022, h01=0x0050, text=» RF(Z) DELF03 NO ENTRY IN VTOC«, t00=0x0041, t01=0x0170}
0x670c…671e               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0042, t01=0x0008}
0x671e…6744               Head {h00=0x0022, h01=0x0050, text=» RF(Z) DELF05 NEXT VTOC ENTRY «, t00=0x0042, t01=0x001a}
0x6744…674e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0040}
0x674e…6764               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0042, t01=0x004a}
0x6764…676e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0060}
0x676e…6778               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x006a}
0x6778…678c               Head {h00=0x0010, h01=0x0050, text=»DELF03 EQU *«, t00=0x0042, t01=0x0074}
0x678c…67a2               Head {h00=0x0012, h01=0x0050, text=» ORS A4,RETCOD«, t00=0x0042, t01=0x0088}
0x67a2…67ca               Head {h00=0x0024, h01=0x0050, text=» IM VTC:FS,A9 NEXT FILE SECTION «, t00=0x0042, t01=0x009e}
0x67ca…67e2               Head {h00=0x0014, h01=0x0050, text=» LD A1,VTC:FS,A9«, t00=0x0042, t01=0x00c6}
0x67e2…67f4               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0042, t01=0x00de}
0x67f4…681c               Head {h00=0x0024, h01=0x0050, text=» RB(N) DELFIL NEXT FILE SECTION «, t00=0x0042, t01=0x00f0}
0x681c…682c               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0042, t01=0x0118}
0x682c…6836               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0128}
0x6836…684c               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0042, t01=0x0132}
0x684c…6856               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0148}
0x6856…6860               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0152}
0x6860…6896               Head {h00=0x0032, h01=0x0050, text=»*   VTC:EB = BASE SECTOR OF CREATED FREE SPACE«, t00=0x0042, t01=0x015c}
0x6896…68cc (67, 0, 400)  Head {h00=0x0032, h01=0x0050, text=»*   VTC:EL = END SECTOR OF CREATED FREE SPACE «, t00=0x0043, t01=0x0004}
0x68cc…68d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x003a}
0x68d6…68e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0044}
0x68e0…68f4               Head {h00=0x0010, h01=0x0050, text=»DELF05 EQU *«, t00=0x0043, t01=0x004e}
0x68f4…690c               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,SPACES «, t00=0x0043, t01=0x0062}
0x690c…6934               Head {h00=0x0024, h01=0x0050, text=» STR A1,A13 SPACES IN FILE NAME «, t00=0x0043, t01=0x007a}
0x6934…6948               Head {h00=0x0010, h01=0x0050, text=» ST A1,2,A13«, t00=0x0043, t01=0x00a2}
0x6948…695c               Head {h00=0x0010, h01=0x0050, text=» ST A1,4,A13«, t00=0x0043, t01=0x00b6}
0x695c…6970               Head {h00=0x0010, h01=0x0050, text=» ST A1,6,A13«, t00=0x0043, t01=0x00ca}
0x6970…6992               Head {h00=0x001e, h01=0x0050, text=» CM VTC:ST,A13 FREE ENTRY «, t00=0x0043, t01=0x00de}
0x6992…69ba               Head {h00=0x0024, h01=0x0050, text=» LD A1,VTC:EN,A13 EXTENT NUMBER «, t00=0x0043, t01=0x0100}
0x69ba…69d8               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) DELF08 NOT 1ST«, t00=0x0043, t01=0x0128}
0x69d8…6a04               Head {h00=0x0028, h01=0x0050, text=» LC A1,VTC:NE,A13 NUMBER OF EXTENTS «, t00=0x0043, t01=0x0146}
0x6a04…6a16               Head {h00=0x000e, h01=0x0050, text=» NGR A1,A1«, t00=0x0043, t01=0x0172}
0x6a16…6a2c               Head {h00=0x0012, h01=0x0050, text=» ADS A1,FEXTNO«, t00=0x0043, t01=0x0184}
0x6a2c…6a36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x000a}
0x6a36…6a4c               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0044, t01=0x0014}
0x6a4c…6a56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x002a}
0x6a56…6a60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0034}
0x6a60…6a74               Head {h00=0x0010, h01=0x0050, text=»DELF08 EQU *«, t00=0x0044, t01=0x003e}
0x6a74…6a7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0052}
0x6a7e…6a94               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0044, t01=0x005c}
0x6a94…6abe               Head {h00=0x0026, h01=0x0050, text=» LDKL A1,VTC:EL GET EXTENT LENGTH «, t00=0x0044, t01=0x0072}
0x6abe…6af8               Head {h00=0x0036, h01=0x0050, text=» ADR A1,A13 MOVE EXT LEN AND EXT BASE TO WORK AREA«, t00=0x0044, t01=0x009c}
0x6af8…6b10               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,VTC:EL «, t00=0x0044, t01=0x00d6}
0x6b10…6b22               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x0044, t01=0x00ee}
0x6b22…6b38               Head {h00=0x0012, h01=0x0050, text=» CF A14,FM:MV8«, t00=0x0044, t01=0x0100}
0x6b38…6b68               Head {h00=0x002c, h01=0x0050, text=» LDKL A3,VTC:EL ADDRESS TO EXTENT LENGTH«, t00=0x0044, t01=0x0116}
0x6b68…6b7a               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x0044, t01=0x0146}
0x6b7a…6ba8               Head {h00=0x002a, h01=0x0050, text=» LDKL A6,VTC:EB ADDRESS TO EXTENT BASE«, t00=0x0044, t01=0x0158}
0x6ba8…6bba               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A9«, t00=0x0044, t01=0x0186}
0x6bba…6bf4               Head {h00=0x0036, h01=0x0050, text=» CF A14,DBLADD VTC:EL=EXTENT BASE + EXTENT LENGTH «, t00=0x0045, t01=0x0008}
0x6bf4…6c00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0042}
0x6c00…6c0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x004e}
0x6c0a…6c20               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0045, t01=0x0058}
0x6c20…6c38               Head {h00=0x0014, h01=0x0050, text=» ML 4,VTC:EL,A13«, t00=0x0045, t01=0x006e}
0x6c38…6c62               Head {h00=0x0026, h01=0x0050, text=» DAR A3 VTC:EL=EXT BASE+EXT LENGTH«, t00=0x0045, t01=0x0086}
0x6c62…6c7a               Head {h00=0x0014, h01=0x0050, text=» MS 4,VTC:EL,A9 «, t00=0x0045, t01=0x00b0}
0x6c7a…6c86               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x00c8}
0x6c86…6c90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00d4}
0x6c90…6cac               Head {h00=0x0018, h01=0x0050, text=» CF A14,CDEWRI WRITE«, t00=0x0045, t01=0x00de}
0x6cac…6cc8               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) DELF03 ERROR«, t00=0x0045, t01=0x00fa}
0x6cc8…6cd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0116}
0x6cd2…6ce8               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0045, t01=0x0120}
0x6ce8…6cf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0136}
0x6cf2…6cfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0140}
0x6cfc…6d24               Head {h00=0x0024, h01=0x0050, text=»*   SCAN FOR ADJACENT FREE SPACE«, t00=0x0045, t01=0x014a}
0x6d24…6d2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0172}
0x6d2e…6d38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x017c}
0x6d38…6d5c               Head {h00=0x0020, h01=0x0050, text=» SUR A12,A12 POINTER IN FSAT«, t00=0x0045, t01=0x0186}
0x6d5c…6d70               Head {h00=0x0010, h01=0x0050, text=»DELF10 EQU *«, t00=0x0046, t01=0x001a}
0x6d70…6d98               Head {h00=0x0024, h01=0x0050, text=» LDR A5,A12 DISPLACEMENT IN FSAT«, t00=0x0046, t01=0x002e}
0x6d98…6dae               Head {h00=0x0012, h01=0x0050, text=» CF A14,FSREAD«, t00=0x0046, t01=0x0056}
0x6dae…6dd0               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) DELF03 READ ERROR «, t00=0x0046, t01=0x006c}
0x6dd0…6dda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008e}
0x6dda…6df0               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0046, t01=0x0098}
0x6df0…6dfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ae}
0x6dfa…6e04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00b8}
0x6e04…6e30               Head {h00=0x0028, h01=0x0050, text=»*   EXTLEN = FSAT EXTENT BASE+LENGTH«, t00=0x0046, t01=0x00c2}
0x6e30…6e3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ee}
0x6e3a…6e44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00f8}
0x6e44…6e6e               Head {h00=0x0026, h01=0x0050, text=» ANK A5,/F8 DISPLACEMENT IN BUFFER«, t00=0x0046, t01=0x0102}
0x6e6e…6e78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x012c}
0x6e78…6e8e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0046, t01=0x0136}
0x6e8e…6eba               Head {h00=0x0028, h01=0x0050, text=» LDK A3,EXTLEN ADDRESS TO SAVE AREA «, t00=0x0046, t01=0x014c}
0x6eba…6ecc               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x0046, t01=0x0178}
0x6ecc…6f00               Head {h00=0x0030, h01=0x0050, text=» LDKL A1,FM:BUF+4 MOVE EXTENT BASE FROM FSAT«, t00=0x0046, t01=0x018a}
0x6f00…6f12               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A5«, t00=0x0047, t01=0x002e}
0x6f12…6f28               Head {h00=0x0012, h01=0x0050, text=» CF A14,FM:MV4«, t00=0x0047, t01=0x0040}
0x6f28…6f54               Head {h00=0x0028, h01=0x0050, text=» LDK A3,EXTLEN ADDRESS TO SAVE AREA «, t00=0x0047, t01=0x0056}
0x6f54…6f66               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x0047, t01=0x0082}
0x6f66…6f94               Head {h00=0x002a, h01=0x0050, text=» CF A14,DBLAD1 FSAT EXTENT BASE+LENGTH«, t00=0x0047, t01=0x0094}
0x6f94…6fa0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x00c2}
0x6fa0…6faa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00ce}
0x6faa…6fc0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0047, t01=0x00d8}
0x6fc0…6fda               Head {h00=0x0016, h01=0x0050, text=» ML 2,FM:BUF+4,A5 «, t00=0x0047, t01=0x00ee}
0x6fda…6ff0               Head {h00=0x0012, h01=0x0050, text=» DA FM:BUF,A5 «, t00=0x0047, t01=0x0108}
0x6ff0…7008               Head {h00=0x0014, h01=0x0050, text=» MS 2,EXTLEN,A9 «, t00=0x0047, t01=0x011e}
0x7008…7014               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0136}
0x7014…701e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0142}
0x701e…7034               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0047, t01=0x014c}
0x7034…703e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0162}
0x703e…7048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x016c}
0x7048…707a               Head {h00=0x002e, h01=0x0050, text=»*   CHECK IF ANY LOWER ADJACENT FREE SPACE«, t00=0x0047, t01=0x0176}
0x707a…7084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0018}
0x7084…708e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0022}
0x708e…70a4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0048, t01=0x002c}
0x70a4…70d2               Head {h00=0x002a, h01=0x0050, text=» LDR A1,A3 ADDRESS TO FSAT BASE+LENGTH«, t00=0x0048, t01=0x0042}
0x70d2…70f6               Head {h00=0x0020, h01=0x0050, text=» LDKL A2,VTC:EB EXTENT BASE «, t00=0x0048, t01=0x0070}
0x70f6…7108               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A9«, t00=0x0048, t01=0x0094}
0x7108…7146               Head {h00=0x003a, h01=0x0050, text=» CF A14,CMPDWD CHECK IF FSAT EXTBASE = EXTBASE+EXTLEN «, t00=0x0048, t01=0x00a6}
0x7146…7152               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x00e4}
0x7152…715c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00f0}
0x715c…7172               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0048, t01=0x00fa}
0x7172…71ae               Head {h00=0x0038, h01=0x0050, text=» DS VTC:EB,A9 CHECK IF FSAT EXTBASE=EXTBASE + EXTLEN«, t00=0x0048, t01=0x0110}
0x71ae…71ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x014c}
0x71ba…71c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0158}
0x71c4…71e8               Head {h00=0x0020, h01=0x0050, text=» RF(NE) DELF30 NOT ADJECENT «, t00=0x0048, t01=0x0162}
0x71e8…71f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0186}
0x71f2…7208               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0048, t01=0x0190}
0x7208…7220               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,VTC:EB «, t00=0x0049, t01=0x0016}
0x7220…7232               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x0049, t01=0x002e}
0x7232…7266               Head {h00=0x0030, h01=0x0050, text=» LDKL A1,FM:BUF+4 MOVE EXTENT BASE TO VTC:EB«, t00=0x0049, t01=0x0040}
0x7266…7278               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A5«, t00=0x0049, t01=0x0074}
0x7278…728e               Head {h00=0x0012, h01=0x0050, text=» CF A14,FM:MV4«, t00=0x0049, t01=0x0086}
0x728e…729a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x009c}
0x729a…72a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00a8}
0x72a4…72ba               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0049, t01=0x00b2}
0x72ba…72d4               Head {h00=0x0016, h01=0x0050, text=» ML 2,FM:BUF+4,A5 «, t00=0x0049, t01=0x00c8}
0x72d4…72ec               Head {h00=0x0014, h01=0x0050, text=» MS 2,VTC:EB,A9 «, t00=0x0049, t01=0x00e2}
0x72ec…72f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x00fa}
0x72f8…7302               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0106}
0x7302…7328               Head {h00=0x0022, h01=0x0050, text=» RF DELF35 UPDATE FSAT SECTOR «, t00=0x0049, t01=0x0110}
0x7328…7332               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0136}
0x7332…7348               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0049, t01=0x0140}
0x7348…7352               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0156}
0x7352…735c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0160}
0x735c…738e               Head {h00=0x002e, h01=0x0050, text=»*   CHECK IF ANY UPPER ADJACENT FREE SPACE«, t00=0x0049, t01=0x016a}
0x738e…7398               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x000c}
0x7398…73a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0016}
0x73a2…73b6               Head {h00=0x0010, h01=0x0050, text=»DELF30 EQU *«, t00=0x004a, t01=0x0020}
0x73b6…73c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0034}
0x73c0…73d6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x004a, t01=0x003e}
0x73d6…7406               Head {h00=0x002c, h01=0x0050, text=» LDKL A1,FM:BUF+4 FSAT EXTENT BASE ENTRY«, t00=0x004a, t01=0x0054}
0x7406…7426               Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 DISPLACEMENT «, t00=0x004a, t01=0x0084}
0x7426…7458               Head {h00=0x002e, h01=0x0050, text=» LDKL A2,VTC:EL EXTENTBASE + EXTENT LENGTH«, t00=0x004a, t01=0x00a4}
0x7458…746a               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A9«, t00=0x004a, t01=0x00d6}
0x746a…7492               Head {h00=0x0024, h01=0x0050, text=» CF A14,CMPDWD CHECK IF ADJECENT«, t00=0x004a, t01=0x00e8}
0x7492…749e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x0110}
0x749e…74a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x011c}
0x74a8…74be               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004a, t01=0x0126}
0x74be…74e8               Head {h00=0x0026, h01=0x0050, text=» ML 2,FM:BUF+4,A5 FSAT EXTENT BASE«, t00=0x004a, t01=0x013c}
0x74e8…751a               Head {h00=0x002e, h01=0x0050, text=» DS VTC:EL,A9 EXTENT BASE + EXTENT LENGTH «, t00=0x004a, t01=0x0166}
0x751a…7526               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x0008}
0x7526…7530               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0014}
0x7530…7554               Head {h00=0x0020, h01=0x0050, text=» RF(NE) DELF40 NOT ADJECENT «, t00=0x004b, t01=0x001e}
0x7554…755e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0042}
0x755e…7574               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x004b, t01=0x004c}
0x7574…759a               Head {h00=0x0022, h01=0x0050, text=» LDKL A3,VTC:EL EXPAND EXTLEN «, t00=0x004b, t01=0x0062}
0x759a…75ac               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x004b, t01=0x0088}
0x75ac…75c2               Head {h00=0x0012, h01=0x0050, text=» CF A14,DBLAD1«, t00=0x004b, t01=0x009a}
0x75c2…75ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x00b0}
0x75ce…75d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00bc}
0x75d8…75ee               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004b, t01=0x00c6}
0x75ee…7606               Head {h00=0x0014, h01=0x0050, text=» ML 2,VTC:EL,A9 «, t00=0x004b, t01=0x00dc}
0x7606…761c               Head {h00=0x0012, h01=0x0050, text=» DA FM:BUF,A5 «, t00=0x004b, t01=0x00f4}
0x761c…7634               Head {h00=0x0014, h01=0x0050, text=» MS 2,VTC:EL,A9 «, t00=0x004b, t01=0x010a}
0x7634…7640               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x0122}
0x7640…764a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x012e}
0x764a…765e               Head {h00=0x0010, h01=0x0050, text=»DELF35 EQU *«, t00=0x004b, t01=0x0138}
0x765e…7684               Head {h00=0x0022, h01=0x0050, text=» CF A14,CLFSAT FREE FSAT ENTRY«, t00=0x004b, t01=0x014c}
0x7684…76a0               Head {h00=0x0018, h01=0x0050, text=» CF A14,CDEWRI WRITE«, t00=0x004b, t01=0x0172}
0x76a0…76c2               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) DELF03 WRITE ERROR«, t00=0x004b, t01=0x018e}
0x76c2…76d6               Head {h00=0x0010, h01=0x0050, text=»DELF40 EQU *«, t00=0x004c, t01=0x0020}
0x76d6…7702               Head {h00=0x0028, h01=0x0050, text=» ADKL A12,FSATRL NEXT ENTRY IN FSAT «, t00=0x004c, t01=0x0034}
0x7702…771c               Head {h00=0x0016, h01=0x0050, text=» CW A12,FSATLE,A9 «, t00=0x004c, t01=0x0060}
0x771c…774a               Head {h00=0x002a, h01=0x0050, text=» RB(L) DELF10 CONTINUE SEARCH OF FSAT «, t00=0x004c, t01=0x007a}
0x774a…7754               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00a8}
0x7754…776a               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x004c, t01=0x00b2}
0x776a…7774               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00c8}
0x7774…777e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00d2}
0x777e…77bc               Head {h00=0x003a, h01=0x0050, text=»*   PUT FREE SPACE IN FSAT SEARCH FOR FREE FSAT ENTRY «, t00=0x004c, t01=0x00dc}
0x77bc…77c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x011a}
0x77c6…77d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0124}
0x77d0…77e2               Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x004c, t01=0x012e}
0x77e2…77f6               Head {h00=0x0010, h01=0x0050, text=»DELF50 EQU *«, t00=0x004c, t01=0x0140}
0x77f6…781c               Head {h00=0x0022, h01=0x0050, text=» CF A14,FSREAD GET FSAT ENTRY «, t00=0x004c, t01=0x0154}
0x781c…783e               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) DELF03 READ ERROR «, t00=0x004c, t01=0x017a}
0x783e…7868               Head {h00=0x0026, h01=0x0050, text=» LDR A12,A2 DISPLACEMENT IN BUFFER«, t00=0x004d, t01=0x000c}
0x7868…7888               Head {h00=0x001c, h01=0x0050, text=» ADKL A12,FM:BUF ADDRESS«, t00=0x004d, t01=0x0036}
0x7888…789c               Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x004d, t01=0x0056}
0x789c…78be               Head {h00=0x001e, h01=0x0050, text=» CF A14,GETPAR GET EXT LEN«, t00=0x004d, t01=0x006a}
0x78be…78e4               Head {h00=0x0022, h01=0x0050, text=» RF(Z) DELF60 FREE FSAT ENTRY «, t00=0x004d, t01=0x008c}
0x78e4…78fa               Head {h00=0x0012, h01=0x0050, text=» ADK A5,FSATRL«, t00=0x004d, t01=0x00b2}
0x78fa…7912               Head {h00=0x0014, h01=0x0050, text=» CW A5,FSATLE,A9«, t00=0x004d, t01=0x00c8}
0x7912…7928               Head {h00=0x0012, h01=0x0050, text=» RB(NG) DELF50«, t00=0x004d, t01=0x00e0}
0x7928…795c               Head {h00=0x0030, h01=0x0050, text=» LDK A4,RC:OFL RC: NO FSAT ENTRIES AVAILIBLE«, t00=0x004d, t01=0x00f6}
0x795c…7972               Head {h00=0x0012, h01=0x0050, text=» ORS A4,RETCOD«, t00=0x004d, t01=0x012a}
0x7972…79ac               Head {h00=0x0036, h01=0x0050, text=» RF DELF70 DELETE NEXT VTOC ENTRY OF FILE SECTION «, t00=0x004d, t01=0x0140}
0x79ac…79b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x017a}
0x79b6…79cc               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x004d, t01=0x0184}
0x79cc…79d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x000a}
0x79d6…79e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0014}
0x79e0…79f4               Head {h00=0x0010, h01=0x0050, text=»DELF60 EQU *«, t00=0x004e, t01=0x001e}
0x79f4…79fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0032}
0x79fe…7a14               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x004e, t01=0x003c}
0x7a14…7a36               Head {h00=0x001e, h01=0x0050, text=» LDKL A3,VTC:EL EXTENT END«, t00=0x004e, t01=0x0052}
0x7a36…7a48               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x004e, t01=0x0074}
0x7a48…7a76               Head {h00=0x002a, h01=0x0050, text=» LDKL A6,VTC:EB ADDRESS TO EXTENT BASE«, t00=0x004e, t01=0x0086}
0x7a76…7a88               Head {h00=0x000e, h01=0x0050, text=» ADR A6,A9«, t00=0x004e, t01=0x00b4}
0x7a88…7ab0               Head {h00=0x0024, h01=0x0050, text=» CF A14,DBLSUB GET EXTENT LENGTH«, t00=0x004e, t01=0x00c6}
0x7ab0…7ade               Head {h00=0x002a, h01=0x0050, text=» LDR A3,A12 ADDRESS TO FREE FSAT ENTRY«, t00=0x004e, t01=0x00ee}
0x7ade…7b18               Head {h00=0x0036, h01=0x0050, text=» LDKL A1,VTC:EL ADDRESS TO EXT BASE AND EXT LENGTH«, t00=0x004e, t01=0x011c}
0x7b18…7b2a               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A9«, t00=0x004e, t01=0x0156}
0x7b2a…7b54               Head {h00=0x0026, h01=0x0050, text=» CF A14,FM:MV8 FILL IN FSAT ENTRY «, t00=0x004e, t01=0x0168}
0x7b54…7b60 (79, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0004}
0x7b60…7b6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0010}
0x7b6a…7b80               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004f, t01=0x001a}
0x7b80…7b98               Head {h00=0x0014, h01=0x0050, text=» ML 4,VTC:EL,A9 «, t00=0x004f, t01=0x0030}
0x7b98…7ba8               Head {h00=0x000c, h01=0x0050, text=» DSR A3 «, t00=0x004f, t01=0x0048}
0x7ba8…7bc6               Head {h00=0x001a, h01=0x0050, text=» MSR 4,A12 UPDATE FSAT«, t00=0x004f, t01=0x0058}
0x7bc6…7bd2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0076}
0x7bd2…7bdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0082}
0x7bdc…7bf8               Head {h00=0x0018, h01=0x0050, text=» CF A14,CDEWRI WRITE«, t00=0x004f, t01=0x008c}
0x7bf8…7c14               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) DELF80 ERROR«, t00=0x004f, t01=0x00a8}
0x7c14…7c26               Head {h00=0x000e, h01=0x0050, text=» IM FEXTNO«, t00=0x004f, t01=0x00c4}
0x7c26…7c3a               Head {h00=0x0010, h01=0x0050, text=»DELF70 EQU *«, t00=0x004f, t01=0x00d6}
0x7c3a…7c5e               Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) DELF00 NEXT EXTENT «, t00=0x004f, t01=0x00ea}
0x7c5e…7c72               Head {h00=0x0010, h01=0x0050, text=»DELF80 EQU *«, t00=0x004f, t01=0x010e}
0x7c72…7c92               Head {h00=0x001c, h01=0x0050, text=» ABL DELF03 NEXT SECTION«, t00=0x004f, t01=0x0122}
0x7c92…7c9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0142}
0x7c9c…7cb2               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x004f, t01=0x014c}
0x7cb2…7cbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0162}
0x7cbc…7cc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x016c}
0x7cc6…7cde               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x004f, t01=0x0176}
0x7cde…7cf6               Head {h00=0x0014, h01=0x0050, text=»* SUBROUTINES * «, t00=0x004f, t01=0x018e}
0x7cf6…7d0e               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0050, t01=0x0016}
0x7d0e…7d18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x002e}
0x7d18…7d22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0038}
0x7d22…7d34               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0050, t01=0x0042}
0x7d34…7d46               Head {h00=0x000e, h01=0x0050, text=»* DV3RST *«, t00=0x0050, t01=0x0054}
0x7d46…7d58               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0050, t01=0x0066}
0x7d58…7d62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0078}
0x7d62…7d6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0082}
0x7d6c…7d98               Head {h00=0x0028, h01=0x0050, text=»*   CALCULATES REST WHEN DIVIDE BY 3«, t00=0x0050, t01=0x008c}
0x7d98…7da2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00b8}
0x7da2…7dc8               Head {h00=0x0022, h01=0x0050, text=»*   INPUT  : A1,A2 = DIVIDENT «, t00=0x0050, t01=0x00c2}
0x7dc8…7dd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00e8}
0x7dd2…7e08               Head {h00=0x0032, h01=0x0050, text=»*   OUTPUT :    A2 = 3-REST OR IF REST=0 A2=0 «, t00=0x0050, t01=0x00f2}
0x7e08…7e26               Head {h00=0x001a, h01=0x0050, text=»*                A1=0 «, t00=0x0050, t01=0x0128}
0x7e26…7e30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0146}
0x7e30…7e44               Head {h00=0x0010, h01=0x0050, text=»DV3RST EQU *«, t00=0x0050, t01=0x0150}
0x7e44…7e56               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0050, t01=0x0164}
0x7e56…7e68               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0050, t01=0x0176}
0x7e68…7e7c               Head {h00=0x0010, h01=0x0050, text=»DV3R10 EQU *«, t00=0x0050, t01=0x0188}
0x7e7c…7e8e               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0051, t01=0x000c}
0x7e8e…7eb4               Head {h00=0x0022, h01=0x0050, text=» ANK A1,3 ONE FIGURE IN BASE 4«, t00=0x0051, t01=0x001e}
0x7eb4…7ec6               Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x0051, t01=0x0044}
0x7ec6…7efc               Head {h00=0x0032, h01=0x0050, text=» ADR A2,A1 ADDED TO REST OF FIGURES IN BASE 4 «, t00=0x0051, t01=0x0056}
0x7efc…7f1a               Head {h00=0x001a, h01=0x0050, text=» RF(Z) SET2CR REST = 0«, t00=0x0051, t01=0x008c}
0x7f1a…7f2c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,3 «, t00=0x0051, t01=0x00aa}
0x7f2c…7f52               Head {h00=0x0022, h01=0x0050, text=» RB(P) DV3R10 CONTINUE TO ADD «, t00=0x0051, t01=0x00bc}
0x7f52…7f64               Head {h00=0x000e, h01=0x0050, text=» NGR A2,A2«, t00=0x0051, t01=0x00e2}
0x7f64…7f76               Head {h00=0x000e, h01=0x0050, text=» RF SET2CR«, t00=0x0051, t01=0x00f4}
0x7f76…7f80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0106}
0x7f80…7f96               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0051, t01=0x0110}
0x7f96…7fa0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0126}
0x7fa0…7faa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0130}
0x7faa…7fbc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x013a}
0x7fbc…7fce               Head {h00=0x000e, h01=0x0050, text=»* GETFIL *«, t00=0x0051, t01=0x014c}
0x7fce…7fe0               Head {h00=0x000e, h01=0x0050, text=»* GETPAR *«, t00=0x0051, t01=0x015e}
0x7fe0…7ff2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0051, t01=0x0170}
0x7ff2…7ffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0182}
0x7ffc…8006               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x018c}
0x8006…802a               Head {h00=0x0020, h01=0x0050, text=»*   GET FILE SECTION LENGTH «, t00=0x0052, t01=0x0008}
0x802a…8034               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x002c}
0x8034…8060               Head {h00=0x0028, h01=0x0050, text=»*   INPUT : A2 = FILE SECTION NUMBER«, t00=0x0052, t01=0x0036}
0x8060…8084               Head {h00=0x0020, h01=0x0050, text=»*          A10 = FPB ADDRESS«, t00=0x0052, t01=0x0062}
0x8084…808e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0086}
0x808e…80be               Head {h00=0x002c, h01=0x0050, text=»*   OUTPUT: A1,A2 = FILE SECTION LENGTH «, t00=0x0052, t01=0x0090}
0x80be…80fc               Head {h00=0x003a, h01=0x0050, text=»*              CR SET ACCORDING TO FILE SECTION LENGTH«, t00=0x0052, t01=0x00c0}
0x80fc…8106               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00fe}
0x8106…8110               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0108}
0x8110…8124               Head {h00=0x0010, h01=0x0050, text=»GETFIL EQU *«, t00=0x0052, t01=0x0112}
0x8124…8146               Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MULTIPLY BY 10 «, t00=0x0052, t01=0x0126}
0x8146…8158               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0052, t01=0x0148}
0x8158…816a               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0052, t01=0x015a}
0x816a…817c               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0052, t01=0x016c}
0x817c…81ae               Head {h00=0x002e, h01=0x0050, text=» ADR A1,A10 ADDRESS TO FILE SECTION LENGTH«, t00=0x0052, t01=0x017e}
0x81ae…81de               Head {h00=0x002c, h01=0x0050, text=» ADKL A1,FPB:S1 SIZE DISPLACEMENT IN FPB«, t00=0x0053, t01=0x0020}
0x81de…81f2               Head {h00=0x0010, h01=0x0050, text=»GETPAR EQU *«, t00=0x0053, t01=0x0050}
0x81f2…821c               Head {h00=0x0026, h01=0x0050, text=» LD A2,2,A1 LEAST SIGNIFICANT PART«, t00=0x0053, t01=0x0064}
0x821c…8246               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A1 MOST SIGNIFICANT PART «, t00=0x0053, t01=0x008e}
0x8246…8260               Head {h00=0x0016, h01=0x0050, text=» RF DBLX00 SET CR «, t00=0x0053, t01=0x00b8}
0x8260…826a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00d2}
0x826a…8280               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0053, t01=0x00dc}
0x8280…8296               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0053, t01=0x00f2}
0x8296…82a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0108}
0x82a0…82aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0112}
0x82aa…82bc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x011c}
0x82bc…82ce               Head {h00=0x000e, h01=0x0050, text=»* DBLADD *«, t00=0x0053, t01=0x012e}
0x82ce…82e0               Head {h00=0x000e, h01=0x0050, text=»* DBLADR *«, t00=0x0053, t01=0x0140}
0x82e0…82f2               Head {h00=0x000e, h01=0x0050, text=»* DBLAD1 *«, t00=0x0053, t01=0x0152}
0x82f2…8304               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0053, t01=0x0164}
0x8304…830e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0176}
0x830e…8318               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0180}
0x8318…8342               Head {h00=0x0026, h01=0x0050, text=»*   DOUBLE ADD ON MEMORY LOCATIONS«, t00=0x0053, t01=0x018a}
0x8342…8376               Head {h00=0x0030, h01=0x0050, text=»*   DOUBLE ADD ON MEMORY BY REGISTERS A1,A2 «, t00=0x0054, t01=0x0024}
0x8376…8380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0058}
0x8380…83aa               Head {h00=0x0026, h01=0x0050, text=»*   INPUT :  A3 = ADDRESS TO ARG1 «, t00=0x0054, t01=0x0062}
0x83aa…83d4               Head {h00=0x0026, h01=0x0050, text=»*            A6 = ADDRESS TO ARG2 «, t00=0x0054, t01=0x008c}
0x83d4…83de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00b6}
0x83de…840e               Head {h00=0x002c, h01=0x0050, text=»*   OUTPUT:  A3 = ADDRESS TO ARG1 + ARG2«, t00=0x0054, t01=0x00c0}
0x840e…8434               Head {h00=0x0022, h01=0x0050, text=»*            A1,A2 = ARG1+ARG2«, t00=0x0054, t01=0x00f0}
0x8434…845c               Head {h00=0x0024, h01=0x0050, text=»*            A6,A7 ARE DESTOYED «, t00=0x0054, t01=0x0116}
0x845c…8466               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x013e}
0x8466…8488               Head {h00=0x001e, h01=0x0050, text=»DBLAD1 EQU * SPECIAL ENTRY«, t00=0x0054, t01=0x0148}
0x8488…849a               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x0054, t01=0x016a}
0x849a…84b2               Head {h00=0x0014, h01=0x0050, text=» ADKL A6,FM:BUF «, t00=0x0054, t01=0x017c}
0x84b2…84c6 (85, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»DBLADD EQU *«, t00=0x0055, t01=0x0004}
0x84c6…84e2               Head {h00=0x0018, h01=0x0050, text=» LDR* A1,A3 GET ARG1«, t00=0x0055, t01=0x0018}
0x84e2…84f6               Head {h00=0x0010, h01=0x0050, text=» LD A2,2,A3 «, t00=0x0055, t01=0x0034}
0x84f6…850a               Head {h00=0x0010, h01=0x0050, text=»DBLADR EQU *«, t00=0x0055, t01=0x0048}
0x850a…8526               Head {h00=0x0018, h01=0x0050, text=» LD A7,2,A6 GET ARG2«, t00=0x0055, t01=0x005c}
0x8526…853a               Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A6 «, t00=0x0055, t01=0x0078}
0x853a…855a               Head {h00=0x001c, h01=0x0050, text=» CF A14,ADDMOD ARG1+ARG2«, t00=0x0055, t01=0x008c}
0x855a…856c               Head {h00=0x000e, h01=0x0050, text=» RF DBLXIT«, t00=0x0055, t01=0x00ac}
0x856c…8578               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x00be}
0x8578…8582               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00ca}
0x8582…8598               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0055, t01=0x00d4}
0x8598…85a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00ea}
0x85a2…85ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00f4}
0x85ac…85be               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x00fe}
0x85be…85d0               Head {h00=0x000e, h01=0x0050, text=»* DBLSUB *«, t00=0x0055, t01=0x0110}
0x85d0…85e2               Head {h00=0x000e, h01=0x0050, text=»* DBLSU1 *«, t00=0x0055, t01=0x0122}
0x85e2…85f4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0055, t01=0x0134}
0x85f4…85fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0146}
0x85fe…862e               Head {h00=0x002c, h01=0x0050, text=»*   DOUBLE SUBTRACT ON MEMORY LOCATIONS «, t00=0x0055, t01=0x0150}
0x862e…8638               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0180}
0x8638…8662               Head {h00=0x0026, h01=0x0050, text=»*   INPUT :  A3 = ADDRESS TO ARG1 «, t00=0x0055, t01=0x018a}
0x8662…868c               Head {h00=0x0026, h01=0x0050, text=»*            A6 = ADDRESS TO ARG2 «, t00=0x0056, t01=0x0024}
0x868c…8696               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x004e}
0x8696…86c4               Head {h00=0x002a, h01=0x0050, text=»*   OUTPUT:  A3 = ADDRESS TO ARG1-ARG2«, t00=0x0056, t01=0x0058}
0x86c4…86ea               Head {h00=0x0022, h01=0x0050, text=»*            A1,A2 = ARG1-ARG2«, t00=0x0056, t01=0x0086}
0x86ea…8712               Head {h00=0x0024, h01=0x0050, text=»*            A6,A7 ARE DESTOIED «, t00=0x0056, t01=0x00ac}
0x8712…873c               Head {h00=0x0026, h01=0x0050, text=»*            IF A1=A2=0 THEN A3=0 «, t00=0x0056, t01=0x00d4}
0x873c…8746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00fe}
0x8746…8768               Head {h00=0x001e, h01=0x0050, text=»DBLSU1 EQU * SPECIAL ENTRY«, t00=0x0056, t01=0x0108}
0x8768…877a               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A9«, t00=0x0056, t01=0x012a}
0x877a…8792               Head {h00=0x0014, h01=0x0050, text=» ADKL A6,VTC:EL «, t00=0x0056, t01=0x013c}
0x8792…87a6               Head {h00=0x0010, h01=0x0050, text=»DBLSUB EQU *«, t00=0x0056, t01=0x0154}
0x87a6…87b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0168}
0x87b0…87c6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0056, t01=0x0172}
0x87c6…87de               Head {h00=0x0014, h01=0x0050, text=» LDR* A1,A3 ARG1«, t00=0x0056, t01=0x0188}
0x87de…87f2               Head {h00=0x0010, h01=0x0050, text=» LD A2,2,A3 «, t00=0x0057, t01=0x0010}
0x87f2…880a               Head {h00=0x0014, h01=0x0050, text=» LD A7,2,A6 ARG2«, t00=0x0057, t01=0x0024}
0x880a…881e               Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A6 «, t00=0x0057, t01=0x003c}
0x881e…883e               Head {h00=0x001c, h01=0x0050, text=» CF A14,DSUMOD ARG1-ARG2«, t00=0x0057, t01=0x0050}
0x883e…884a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0070}
0x884a…8854               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x007c}
0x8854…886a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0057, t01=0x0086}
0x886a…887c               Head {h00=0x000e, h01=0x0050, text=» MLR 2,A3 «, t00=0x0057, t01=0x009c}
0x887c…888c               Head {h00=0x000c, h01=0x0050, text=» DSR* A6«, t00=0x0057, t01=0x00ae}
0x888c…8898               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x00be}
0x8898…88a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00ca}
0x88a2…88b8               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0057, t01=0x00d4}
0x88b8…88c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00ea}
0x88c2…88cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00f4}
0x88cc…88e0               Head {h00=0x0010, h01=0x0050, text=»DBLXIT EQU *«, t00=0x0057, t01=0x00fe}
0x88e0…88ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0112}
0x88ea…8900               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0057, t01=0x011c}
0x8900…891e               Head {h00=0x001a, h01=0x0050, text=» STR A1,A3 SAVE RESULT«, t00=0x0057, t01=0x0132}
0x891e…8932               Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A3 «, t00=0x0057, t01=0x0150}
0x8932…893e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0164}
0x893e…8948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0170}
0x8948…895e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0057, t01=0x017a}
0x895e…8970               Head {h00=0x000e, h01=0x0050, text=» MSR 2,A3 «, t00=0x0057, t01=0x0190}
0x8970…897c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0012}
0x897c…8986               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x001e}
0x8986…899a               Head {h00=0x0010, h01=0x0050, text=»DBLX00 EQU *«, t00=0x0058, t01=0x0028}
0x899a…89ae               Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x0058, t01=0x003c}
0x89ae…89c0               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0058, t01=0x0050}
0x89c0…89d6               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DBLX10«, t00=0x0058, t01=0x0062}
0x89d6…89e8               Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0058, t01=0x0078}
0x89e8…89fc               Head {h00=0x0010, h01=0x0050, text=»DBLX10 EQU *«, t00=0x0058, t01=0x008a}
0x89fc…8a0e               Head {h00=0x000e, h01=0x0050, text=» ABR* A14 «, t00=0x0058, t01=0x009e}
0x8a0e…8a18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b0}
0x8a18…8a2e               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0058, t01=0x00ba}
0x8a2e…8a38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00d0}
0x8a38…8a42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00da}
0x8a42…8a54               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x00e4}
0x8a54…8a66               Head {h00=0x000e, h01=0x0050, text=»* GET:FC *«, t00=0x0058, t01=0x00f6}
0x8a66…8a78               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0058, t01=0x0108}
0x8a78…8a82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x011a}
0x8a82…8aae               Head {h00=0x0028, h01=0x0050, text=»*   GET FILECODE FROM FILECODE AREA «, t00=0x0058, t01=0x0124}
0x8aae…8ab8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0150}
0x8ab8…8aea               Head {h00=0x002e, h01=0x0050, text=»*   INPUT  : VTC:FS = FILE SECTION NUMBER «, t00=0x0058, t01=0x015a}
0x8aea…8af4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x018c}
0x8af4…8b18               Head {h00=0x0020, h01=0x0050, text=»*   OUTPUT : A2 = FILE CODE «, t00=0x0059, t01=0x0008}
0x8b18…8b4a               Head {h00=0x002e, h01=0x0050, text=»*            CR SET ACCORDING TO FILECODE «, t00=0x0059, t01=0x002c}
0x8b4a…8b54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x005e}
0x8b54…8b5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0068}
0x8b5e…8b72               Head {h00=0x0010, h01=0x0050, text=»GET:FC EQU *«, t00=0x0059, t01=0x0072}
0x8b72…8ba2               Head {h00=0x002c, h01=0x0050, text=» LD A2,VTC:FS,A9 GET FILE SECTION NUMBER«, t00=0x0059, t01=0x0086}
0x8ba2…8bc4               Head {h00=0x001e, h01=0x0050, text=» LC A2,FILCOD,A2 FILE CODE«, t00=0x0059, t01=0x00b6}
0x8bc4…8bd8               Head {h00=0x0010, h01=0x0050, text=»SET2CR EQU *«, t00=0x0059, t01=0x00d8}
0x8bd8…8bea               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0059, t01=0x00ec}
0x8bea…8c14               Head {h00=0x0026, h01=0x0050, text=» RB DBLX00 SET CR ACCORDING TO A2 «, t00=0x0059, t01=0x00fe}
0x8c14…8c1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0128}
0x8c1e…8c34               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0059, t01=0x0132}
0x8c34…8c3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0148}
0x8c3e…8c48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0152}
0x8c48…8c5a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0059, t01=0x015c}
0x8c5a…8c6c               Head {h00=0x000e, h01=0x0050, text=»* CDEWRI *«, t00=0x0059, t01=0x016e}
0x8c6c…8c7e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0059, t01=0x0180}
0x8c7e…8c88 (90, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0004}
0x8c88…8ca2               Head {h00=0x0016, h01=0x0050, text=»*   PERFORM WRITE «, t00=0x005a, t01=0x000e}
0x8ca2…8cac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0028}
0x8cac…8cce               Head {h00=0x001e, h01=0x0050, text=»*   INPUT: A8=ECB ADDRESS «, t00=0x005a, t01=0x0032}
0x8cce…8ce8               Head {h00=0x0016, h01=0x0050, text=»*          A7 USED«, t00=0x005a, t01=0x0054}
0x8ce8…8d0a               Head {h00=0x001e, h01=0x0050, text=»*   OUTPUT: A4=RETURN CODE«, t00=0x005a, t01=0x006e}
0x8d0a…8d3e               Head {h00=0x0030, h01=0x0050, text=»*           CR SET ACCORDING TO RETURN CODE «, t00=0x005a, t01=0x0090}
0x8d3e…8d48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00c4}
0x8d48…8d52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00ce}
0x8d52…8d66               Head {h00=0x0010, h01=0x0050, text=»CDEWRI EQU *«, t00=0x005a, t01=0x00d8}
0x8d66…8d7a               Head {h00=0x0010, h01=0x0050, text=» LDK A7,/95 «, t00=0x005a, t01=0x00ec}
0x8d7a…8d90               Head {h00=0x0012, h01=0x0050, text=» CF A14,FM:IO «, t00=0x005a, t01=0x0100}
0x8d90…8da2               Head {h00=0x000e, h01=0x0050, text=» RF SET:CR«, t00=0x005a, t01=0x0116}
0x8da2…8db8               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x005a, t01=0x0128}
0x8db8…8dc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x013e}
0x8dc2…8dcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0148}
0x8dcc…8dde               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005a, t01=0x0152}
0x8dde…8df0               Head {h00=0x000e, h01=0x0050, text=»* CLFSAT *«, t00=0x005a, t01=0x0164}
0x8df0…8e02               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005a, t01=0x0176}
0x8e02…8e0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0188}
0x8e0c…8e40 (91, 0, 400)  Head {h00=0x0030, h01=0x0050, text=»*   CLEAR 4 WORDS IN FM:BUF SPECIFIED BY A5 «, t00=0x005b, t01=0x0004}
0x8e40…8e4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0038}
0x8e4a…8e7a               Head {h00=0x002c, h01=0x0050, text=»*   INPUT :  A5 = DISPLACEMENT IN FM:BUF«, t00=0x005b, t01=0x0042}
0x8e7a…8e84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0072}
0x8e84…8e98               Head {h00=0x0010, h01=0x0050, text=»CLFSAT EQU *«, t00=0x005b, t01=0x007c}
0x8e98…8eae               Head {h00=0x0012, h01=0x0050, text=» CM FM:BUF,A5 «, t00=0x005b, t01=0x0090}
0x8eae…8ec6               Head {h00=0x0014, h01=0x0050, text=» CM FM:BUF+2,A5 «, t00=0x005b, t01=0x00a6}
0x8ec6…8ede               Head {h00=0x0014, h01=0x0050, text=» CM FM:BUF+4,A5 «, t00=0x005b, t01=0x00be}
0x8ede…8ef6               Head {h00=0x0014, h01=0x0050, text=» CM FM:BUF+6,A5 «, t00=0x005b, t01=0x00d6}
0x8ef6…8f06               Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x005b, t01=0x00ee}
0x8f06…8f10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00fe}
0x8f10…8f26               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x005b, t01=0x0108}
0x8f26…8f30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x011e}
0x8f30…8f3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0128}
0x8f3a…8f4c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005b, t01=0x0132}
0x8f4c…8f5e               Head {h00=0x000e, h01=0x0050, text=»* CENTRY *«, t00=0x005b, t01=0x0144}
0x8f5e…8f70               Head {h00=0x000e, h01=0x0050, text=»* EDENTR *«, t00=0x005b, t01=0x0156}
0x8f70…8f82               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005b, t01=0x0168}
0x8f82…8f8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x017a}
0x8f8c…8fc4               Head {h00=0x0034, h01=0x0050, text=»*   CREATE,DELETE AND EXTEND PREPARATION ROUTINE«, t00=0x005b, t01=0x0184}
0x8fc4…8ff6               Head {h00=0x002e, h01=0x0050, text=»*   CLEAR WORK AREA AND SAVES TTAB ADDRESS«, t00=0x005c, t01=0x002c}
0x8ff6…9000               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x005e}
0x9000…9036               Head {h00=0x0032, h01=0x0050, text=»*   INPUT :  A5 = TTAB ADDRESS OF CALLING TASK«, t00=0x005c, t01=0x0068}
0x9036…905c               Head {h00=0x0022, h01=0x0050, text=»*            REGISTER A3 USED «, t00=0x005c, t01=0x009e}
0x905c…9066               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00c4}
0x9066…908c               Head {h00=0x0022, h01=0x0050, text=»*   OUTPUT : A4=RC FROM FCHEC2«, t00=0x005c, t01=0x00ce}
0x908c…90b8               Head {h00=0x0028, h01=0x0050, text=»*            CR SET ACCORDING TO A4 «, t00=0x005c, t01=0x00f4}
0x90b8…90c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0120}
0x90c2…90f6               Head {h00=0x0030, h01=0x0050, text=»EDENTR EQU * ENTRY USED BY EXTEND AND DELETE«, t00=0x005c, t01=0x012a}
0x90f6…9102               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x005c, t01=0x015e}
0x9102…9118               Head {h00=0x0012, h01=0x0050, text=» CF A15,FCHEC2«, t00=0x005c, t01=0x016a}
0x9118…9124               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x005c, t01=0x0180}
0x9124…914e               Head {h00=0x0026, h01=0x0050, text=»CENTRY EQU * ENTRY USED BY CREATE «, t00=0x005c, t01=0x018c}
0x914e…9166               Head {h00=0x0014, h01=0x0050, text=» LDK A3,WRKALE-2«, t00=0x005d, t01=0x0026}
0x9166…917a               Head {h00=0x0010, h01=0x0050, text=»CDEE05 EQU *«, t00=0x005d, t01=0x003e}
0x917a…9190               Head {h00=0x0012, h01=0x0050, text=» CM WRKARE,A3 «, t00=0x005d, t01=0x0052}
0x9190…91a2               Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x005d, t01=0x0068}
0x91a2…91b8               Head {h00=0x0012, h01=0x0050, text=» RB(NN) CDEE05«, t00=0x005d, t01=0x007a}
0x91b8…91e4               Head {h00=0x0028, h01=0x0050, text=» ST A9,SAVEA9 SAVE USER ECB ADDRESS «, t00=0x005d, t01=0x0090}
0x91e4…9208               Head {h00=0x0020, h01=0x0050, text=» LDKL A9,WRKARE BASE ADDRESS«, t00=0x005d, t01=0x00bc}
0x9208…9232               Head {h00=0x0026, h01=0x0050, text=» ST A6,FWTSAV,A9 SAVE FWT ADDRESS «, t00=0x005d, t01=0x00e0}
0x9232…9246               Head {h00=0x0010, h01=0x0050, text=» LDK A3,/FF «, t00=0x005d, t01=0x010a}
0x9246…9274               Head {h00=0x002a, h01=0x0050, text=» ST A3,VTC:ST-1,A9 INDICATE USED ENTRY«, t00=0x005d, t01=0x011e}
0x9274…9286               Head {h00=0x000e, h01=0x0050, text=» RF SET:CR«, t00=0x005d, t01=0x014c}
0x9286…9290               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x015e}
0x9290…92a6               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x005d, t01=0x0168}
0x92a6…92b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x017e}
0x92b0…92ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0188}
0x92ba…92cc (94, 0, 400)  Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005e, t01=0x0004}
0x92cc…92de               Head {h00=0x000e, h01=0x0050, text=»* FSREAD *«, t00=0x005e, t01=0x0016}
0x92de…92f0               Head {h00=0x000e, h01=0x0050, text=»* FTREAD *«, t00=0x005e, t01=0x0028}
0x92f0…9302               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x005e, t01=0x003a}
0x9302…930c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x004c}
0x930c…9352               Head {h00=0x0042, h01=0x0050, text=»*   FSREAD: READ FSAT SECTOR IF 1ST ENTRY IN SECTOR REQUESTED «, t00=0x005e, t01=0x0056}
0x9352…9376               Head {h00=0x0020, h01=0x0050, text=»*   FTREAD: READ FSAT SECTOR«, t00=0x005e, t01=0x009c}
0x9376…9380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00c0}
0x9380…93ac               Head {h00=0x0028, h01=0x0050, text=»*   INPUT :  A5 = FSAT DISPLACEMENT «, t00=0x005e, t01=0x00ca}
0x93ac…93da               Head {h00=0x002a, h01=0x0050, text=»*            FSATBA = FSAT BASE SECTOR«, t00=0x005e, t01=0x00f6}
0x93da…93e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0124}
0x93e4…9414               Head {h00=0x002c, h01=0x0050, text=»*   OUTPUT:  A2 = DISPLACEMENT IN FM:BUF«, t00=0x005e, t01=0x012e}
0x9414…944e               Head {h00=0x0036, h01=0x0050, text=»*            A4 = RTETURN CODE FROM READ OPERATION«, t00=0x005e, t01=0x015e}
0x944e…947c               Head {h00=0x002a, h01=0x0050, text=»*            CR IS SET TO ZERO IF A4=0«, t00=0x005f, t01=0x0008}
0x947c…9486               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0036}
0x9486…949a               Head {h00=0x0010, h01=0x0050, text=»FSREAD EQU *«, t00=0x005f, t01=0x0040}
0x949a…94be               Head {h00=0x0020, h01=0x0050, text=» LDK A4,0 RESET RETURN CODE «, t00=0x005f, t01=0x0054}
0x94be…94de               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A5 DISPLACEMENT «, t00=0x005f, t01=0x0078}
0x94de…94f2               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/F8 «, t00=0x005f, t01=0x0098}
0x94f2…951c               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) SET:CR NOT FIRST IN SECTOR«, t00=0x005f, t01=0x00ac}
0x951c…9530               Head {h00=0x0010, h01=0x0050, text=»FTREAD EQU *«, t00=0x005f, t01=0x00d6}
0x9530…9550               Head {h00=0x001c, h01=0x0050, text=» ECR A2,A5 SECTOR NUMBER«, t00=0x005f, t01=0x00ea}
0x9550…9564               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x005f, t01=0x010a}
0x9564…9588               Head {h00=0x0020, h01=0x0050, text=» AD A2,FSATBA,A9 BASE SECTOR«, t00=0x005f, t01=0x011e}
0x9588…959e               Head {h00=0x0012, h01=0x0050, text=» CF A14,FMREAD«, t00=0x005f, t01=0x0142}
0x959e…95c6               Head {h00=0x0024, h01=0x0050, text=» LDK A2,0 DISPLACEMENT IN BUFFER«, t00=0x005f, t01=0x0158}
0x95c6…95da               Head {h00=0x0010, h01=0x0050, text=»SET:CR EQU *«, t00=0x005f, t01=0x0180}
0x95da…9602 (96, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» ADKL A14,4 UPDATE STACK POINTER«, t00=0x0060, t01=0x0004}
0x9602…961a               Head {h00=0x0014, h01=0x0050, text=» ADK A4,0 SET CR«, t00=0x0060, t01=0x002c}
0x961a…9632               Head {h00=0x0014, h01=0x0050, text=» ABR* A14 RETURN«, t00=0x0060, t01=0x0044}
0x9632…963c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x005c}
0x963c…9652               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0060, t01=0x0066}
0x9652…965c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x007c}
0x965c…9666               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0086}
0x9666…9678               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x0090}
0x9678…968a               Head {h00=0x000e, h01=0x0050, text=»* VTCPAR *«, t00=0x0060, t01=0x00a2}
0x968a…969c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x00b4}
0x969c…96a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00c6}
0x96a6…96d8               Head {h00=0x002e, h01=0x0050, text=»*   GET FSAT LENGTH IN BYTES TO WORK AREA «, t00=0x0060, t01=0x00d0}
0x96d8…9706               Head {h00=0x002a, h01=0x0050, text=»*       FSAT BASE SECTOR TO WORK AREA «, t00=0x0060, t01=0x0102}
0x9706…9724               Head {h00=0x001a, h01=0x0050, text=»*       VTOC BASE SECT«, t00=0x0060, t01=0x0130}
0x9724…9758               Head {h00=0x0030, h01=0x0050, text=»*       LAST VTOC SECTOR NUMBER TO WORK AREA«, t00=0x0060, t01=0x014e}
0x9758…9762               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0182}
0x9762…978a               Head {h00=0x0024, h01=0x0050, text=»*   INPUT :  A8 = FM:ECB ADDRESS«, t00=0x0060, t01=0x018c}
0x978a…97ae               Head {h00=0x0020, h01=0x0050, text=»*            A2 = FILE CODE «, t00=0x0061, t01=0x0024}
0x97ae…97d4               Head {h00=0x0022, h01=0x0050, text=»*   OUTPUT:  A4 = 0 IF READ OK«, t00=0x0061, t01=0x0048}
0x97d4…97fe               Head {h00=0x0026, h01=0x0050, text=»*            A4<> 0 IF READ NOT OK«, t00=0x0061, t01=0x006e}
0x97fe…982a               Head {h00=0x0028, h01=0x0050, text=»*            CR SET ACCORDING TO A4 «, t00=0x0061, t01=0x0098}
0x982a…9858               Head {h00=0x002a, h01=0x0050, text=»*   USED REGISTERS A1, A2, A3, A4, A7 «, t00=0x0061, t01=0x00c4}
0x9858…9862               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00f2}
0x9862…9876               Head {h00=0x0010, h01=0x0050, text=»VTCPAR EQU *«, t00=0x0061, t01=0x00fc}
0x9876…989a               Head {h00=0x0020, h01=0x0050, text=» SC A2,ECBFC,A8 PREPARE ECB «, t00=0x0061, t01=0x0110}
0x989a…98cc               Head {h00=0x002e, h01=0x0050, text=» LDK A2,0 READ SECTOR ZERO = VOLUME LABEL «, t00=0x0061, t01=0x0134}
0x98cc…98e2               Head {h00=0x0012, h01=0x0050, text=» CF A14,FMREAD«, t00=0x0061, t01=0x0166}
0x98e2…9904               Head {h00=0x001e, h01=0x0050, text=» RB(NZ) SET:CR READ ERROR «, t00=0x0061, t01=0x017c}
0x9904…992a               Head {h00=0x0022, h01=0x0050, text=» LDKL A2,FM:BUF BUFFER ADDRESS«, t00=0x0062, t01=0x000e}
0x992a…994c               Head {h00=0x001e, h01=0x0050, text=» LD A1,VOL:EB,A2 VTOC BASE«, t00=0x0062, t01=0x0034}
0x994c…9976               Head {h00=0x0026, h01=0x0050, text=» ST A1,FSATBA,A9 FSAT BASE SECTOR «, t00=0x0062, t01=0x0056}
0x9976…999a               Head {h00=0x0020, h01=0x0050, text=» LD A3,VOL:EL,A2 VTOC LENGTH«, t00=0x0062, t01=0x0080}
0x999a…99be               Head {h00=0x0020, h01=0x0050, text=» LD A2,VOL:FS,A2 FSAT LENGTH«, t00=0x0062, t01=0x00a4}
0x99be…99d0               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0062, t01=0x00c8}
0x99d0…99e2               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0062, t01=0x00da}
0x99e2…99f4               Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0062, t01=0x00ec}
0x99f4…99fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00fe}
0x99fe…9a14               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0062, t01=0x0108}
0x9a14…9a1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x011e}
0x9a1e…9a28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0128}
0x9a28…9a3e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0062, t01=0x0132}
0x9a3e…9a68               Head {h00=0x0026, h01=0x0050, text=» ST A1,VTCSEC,A9 VTOC ENTRIES BASE«, t00=0x0062, t01=0x0148}
0x9a68…9a96               Head {h00=0x002a, h01=0x0050, text=» ST A2,FSATLE,A9 FSAT LENGTH IN BYTES «, t00=0x0062, t01=0x0172}
0x9a96…9abe               Head {h00=0x0024, h01=0x0050, text=» ST A3,VTCEND,A9 VTOC END SECTOR«, t00=0x0063, t01=0x0010}
0x9abe…9aca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x0038}
0x9aca…9ad4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0044}
0x9ad4…9aea               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0063, t01=0x004e}
0x9aea…9b02               Head {h00=0x0014, h01=0x0050, text=» MS 3,VTCSEC,A9 «, t00=0x0063, t01=0x0064}
0x9b02…9b0e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x007c}
0x9b0e…9b18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0088}
0x9b18…9b2a               Head {h00=0x000e, h01=0x0050, text=» RB SET:CR«, t00=0x0063, t01=0x0092}
0x9b2a…9b34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00a4}
0x9b34…9b4a               Head {h00=0x0012, h01=0x0050, text=» EJECT  FMCDEF«, t00=0x0063, t01=0x00ae}
0x9b4a…9b54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00c4}
0x9b54…9b5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00ce}
0x9b5e…9b70               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0063, t01=0x00d8}
0x9b70…9b82               Head {h00=0x000e, h01=0x0050, text=»* CHKFIL *«, t00=0x0063, t01=0x00ea}
0x9b82…9b94               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0063, t01=0x00fc}
0x9b94…9b9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x010e}
0x9b9e…9ba8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0118}
0x9ba8…9be6               Head {h00=0x003a, h01=0x0050, text=»*   CHECKS IF FILE EXISTS IN VOLUMES SPECYFIED BY FPB «, t00=0x0063, t01=0x0122}
0x9be6…9bf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0160}
0x9bf0…9c20               Head {h00=0x002c, h01=0x0050, text=»*   INPUT :  A5 = START VOLUME IN FILCOD«, t00=0x0063, t01=0x016a}
0x9c20…9c52               Head {h00=0x002e, h01=0x0050, text=»*            FILCOD - AREA WITH FILE CODES«, t00=0x0064, t01=0x000a}
0x9c52…9c7e               Head {h00=0x0028, h01=0x0050, text=»*   OUTPUT:  A2 = 0 IF NO FILE FOUND«, t00=0x0064, t01=0x003c}
0x9c7e…9ca8               Head {h00=0x0026, h01=0x0050, text=»*            A2 <> 0 IF FILE FOUND«, t00=0x0064, t01=0x0068}
0x9ca8…9cd4               Head {h00=0x0028, h01=0x0050, text=»*            CR SET ACCORDING TO A2 «, t00=0x0064, t01=0x0092}
0x9cd4…9d04               Head {h00=0x002c, h01=0x0050, text=»*             A1-A7 AND A11-A13 ARE USED«, t00=0x0064, t01=0x00be}
0x9d04…9d0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00ee}
0x9d0e…9d18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00f8}
0x9d18…9d2c               Head {h00=0x0010, h01=0x0050, text=»CHKFIL EQU *«, t00=0x0064, t01=0x0102}
0x9d2c…9d50               Head {h00=0x0020, h01=0x0050, text=» SUK A5,3 FILE CODE POINTER «, t00=0x0064, t01=0x0116}
0x9d50…9d64               Head {h00=0x0010, h01=0x0050, text=»CHKF10 EQU *«, t00=0x0064, t01=0x013a}
0x9d64…9d8c               Head {h00=0x0024, h01=0x0050, text=» LC A2,FILCOD+3,A5 GET FILE CODE«, t00=0x0064, t01=0x014e}
0x9d8c…9da0               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0064, t01=0x0176}
0x9da0…9dc4               Head {h00=0x0020, h01=0x0050, text=» RF(Z) CHKF20 NEXT FILE CODE«, t00=0x0064, t01=0x018a}
0x9dc4…9dd6               Head {h00=0x000e, h01=0x0050, text=» LDR A6,A9«, t00=0x0065, t01=0x001e}
0x9dd6…9dee               Head {h00=0x0014, h01=0x0050, text=» SUKL A6,FWTNAM «, t00=0x0065, t01=0x0030}
0x9dee…9e04               Head {h00=0x0012, h01=0x0050, text=» CF A14,FNDVTC«, t00=0x0065, t01=0x0048}
0x9e04…9e16               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0065, t01=0x005e}
0x9e16…9e38               Head {h00=0x001e, h01=0x0050, text=» ABL(NZ) CDEXIT DISC ERROR«, t00=0x0065, t01=0x0070}
0x9e38…9e4a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0065, t01=0x0092}
0x9e4a…9e78               Head {h00=0x002a, h01=0x0050, text=» RB(NZ) SET2CR FILE IN ONE OF VOLUMES «, t00=0x0065, t01=0x00a4}
0x9e78…9e8c               Head {h00=0x0010, h01=0x0050, text=»CHKF20 EQU *«, t00=0x0065, t01=0x00d2}
0x9e8c…9e9e               Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x0065, t01=0x00e6}
0x9e9e…9eca               Head {h00=0x0028, h01=0x0050, text=» RB(NP) CHKF10 NEXT ENTRY IN FILCOD «, t00=0x0065, t01=0x00f8}
0x9eca…9edc               Head {h00=0x000e, h01=0x0050, text=» RB SET2CR«, t00=0x0065, t01=0x0124}
0x9edc…9ee6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0136}
0x9ee6…9ef2               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0065, t01=0x0140}
0x9ef2…9ef6               Head {h00=0x4004, h01=0x0000}
0x9ef6…9efa               00 65 01 4c                                                                                                                                                                                                                                       ┆ e L┆
0x9efa…9f02 (102, 1, 8)   20 04 00 00 00 66 00 04                                                                                                                                                                                                                           ┆     f  ┆

Reduced view