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

⟦1e56a7e8b⟧

    Length: 30278 (0x7646)
    Notes: pts_type(SC)
    Names: »ADMTSK.SC«

Derivation

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

	IDENT ADMTSK 	REL 11.0 81-02-12 870105041100 

			=2, WRONG STATUS INFORMATION RETURNED
			REL 11.0 81-02-06
			=1, LOCAL FILE CODES NOT WORKING 
			REL 11.0 81-01-26
* 
* 
********************************************
* 
*    ADMTSK = ABRIDGED DATA MANAGEMENT TASKS
* 
********************************************
* 
* 
* 
	ENTRY	ADMTSK 
* 
	EJECT		ADMTSK
* 
******************* 
*                 * 
*   EXTERNALS     * 
*                 * 
******************* 
* 
* 
	EXTRN	PRUN	PROGRAM RUNNING 
	EXTRN	DWTECB	USER ECB ADDRESS
	EXTRN	DWTTAB	USER TTAB ADDRESS 
	EXTRN	DWTOR	ORDER AND OPTION 
	EXTRN	FWTFNR	FILE NUMBER 
	EXTRN	FWTPAR	NUMBER OF USERS 
	EXTRN	ECBRL	REQUESTED LENGTH 
	EXTRN	ECBBA	BUFFER ADDRESS 
	EXTRN	ECBCW1	1ST CONTROLL WORD 
	EXTRN	ECBCW2	2ND CONTROLL WORD 
	EXTRN	MOV:US	MOVE ROUTINE
	EXTRN	MOV:SU 
	EXTRN	DIVMOD	DIVIDE ROUTINE
	EXTRN	MPYMOD	MULTIPLY ROUTINE
	EXTRN	FPB:BF	BLOCKING FACTOR 
	EXTRN	FPB:EL	ENLARGE 
	EXTRN	FPB:FO	FILE ORGANISATION 
	EXTRN	FPB:S1	SIZE
	EXTRN	FPB:RP	RETENTION PERIOD
	EXTRN	ECBRC	RETURN CODE
	EXTRN	ECBEL	EFFECTIVE LENGTH 
	EXTRN	FPB:RL	RECORD LENGTH 
	EXTRN	FPB:FR	FILE RECORD NUMBER
	EXTRN	ADDMOD	DOUBLE ADD ROUTINE
	EXTRN	SCTFWT	ROOT OF FDB:S 
	EXTRN	FNDFDB	FIND FILE CODE ENTRY
* 
	EJECT		ADMTSK
* 
* 
	EXTRN	DMXACD	EXIT TASK AND ACTIVATE #D 
	EXTRN	DMACTD	ACTIVATE ADMINISTRATION ADM TASK
	EXTRN	DV3RST	REST AFTER DIV 3
	EXTRN	TENDIO 
	EXTRN	DMTTSB	STACK BASE DISPLACEMENT 
	EXTRN	FDBECB	ADM ECB 
	EXTRN	FDBOMD	OPEN MODE 
	EXTRN	FDBLRN	LAST RECORD NUMBER
	EXTRN	FDBRLE	RECORD LENGTH 
	EXTRN	FDBENL	ENLARGE 
	EXTRN	FDBEXC	EXCLUSIVE ACCESS INDICATOR
	EXTRN	FPB:NO	FILE NUMBER 
	EXTRN	FPB:DT	DEVICE TYPE 
	EXTRN	TTB:MT	USER MMU TABLE
	EXTRN	FPB:SH	SHAREABILITY
	EXTRN	MONMMU	MONITOR MMU TABLE 
	EXTRN	ENLFAC	CONVERT ENLARGE TO NO OF SECTORS
	EXTRN	CONENL	CONVERT ENLARGE TO PERCENTAGE 
	EXTRN	RTNA14	RETURN AND SET CR 
	EXTRN	SETCRO	RETURN AND SET CR OVERFLOW
* 
* 
* 
* 
**********
*   FORM *
**********
* 
* 
BYTE	FORM	8,8 
* 
* 
	EJECT		ADMTSK
* 
* 
**************************************
*                                    *
*   CONDITIONAL ASSEMBLY             *
*                                    *
**************************************
* 
* 
*   A VERSION LEAVING OUT OPEN MODES: 
*   OPEN OUTPUT,OPEN EXTEND AND CLOSE DISCARD 
*   IS OBTAINED BY SETTING X:A EQU 0
* 
* 
X:A	EQU	0 
CRDEEX	EQU	X:A
* 
* 
MMUPAG	EQU	0
* 
	EJECT		ADMTSK
* 
* 
********************
*                  *
*   CONSTANTS      *
*                  *
********************
* 
* 
********************
*                  *
*   RETURN STATUS  *
*                  *
********************
* 
RSTWFO	EQU	6	WRONG FUNCTION OPTION	=2 
RSTUKF	EQU	9	UNKNOWN FILE 
RSTOFL	EQU	3	OVERFLOW 
RSTWFP	EQU	4	WRONG FD PARAMETER 
* 
RC:NOD	EQU	/800	RETURN CODE NO DATA 
FPBLLE	EQU	88	LENGTH OF FPB L-FILE
FPBSLE	EQU	66	LENGTH OF FPB S-FILE
LFILEN	EQU	256	L-FILE RECORD LENGTH 
* 
	EJECT		ADMTSK
* 
* 
******************* 
*                 * 
*   TABLES        * 
*                 * 
******************* 
* 
* 
* 
	EJECT		ADMTSK
* 
* 
* 
**********
* EXEORD *
**********
* 
*   TABLE FOR ORDER LABELS
* 
* 
EXEORD	EQU	*
	DATA	OPENFI	OPENFI 
	DATA	OPENFI
	DATA	OPENFI
	DATA	OPENFI
	DATA	OPENFI
	IFT	CRDEEX=1 
EXEOOR	EQU	*-EXEORD	OPEN OUTPUT RANDOM
	DATA	OPENOR	OUTPUT RANDOM
	DATA	OPENEX	EXTEND 
	DATA	OPENOS	OUTPUT SEQUENTIAL
	DATA	CLODIS
	XIF
	DATA	CLOLCK
	DATA	REFIPA
	DATA	SEQWRI
	DATA	REWRIT
	DATA	DELETE
	DATA	RANWRI
	DATA	DIREAD
	IFT	CRDEEX=1 
EXEEXT	EQU	*-EXEORD	EXTEND DISPLACEMENT IN TABLE
	DATA	EXTEND
	XIF
* 
	EJECT		ADMTSK
* 
**********
* STAMAP *
**********
* 
*   STATUS BYTES
*   CHANGE SOME FM ERROR BITS TO STATUS INFORMATION 
*			BIT:
* 
* 
STAMAP	EQU	*
	BYTE	RSTWFO,0	1,2
	BYTE	0,RSTUKF	3,4
	BYTE	RSTOFL,RSTWFP	5,6 
	BYTE	0,0	7,8 
	BYTE	RSTWFO,0	9,10 
	BYTE	RSTOFL,0	11,12
* 
	EJECT		ADMTSK
* 
* 
**********
* FILORG *
**********
* 
*   TABLE OVER ALLOWED FILE ORGANIZATIONS 
* 
BUFFNU	EQU	*-/100	BUFFER INDICATING RECORD NOT USED 
FILORG	EQU	*
	DATA	/5300	S,0 
	DATA	'LX'
* 
ADMBUF	RES	40 
	EJECT		ADMTSK
* 
*         A1 = 0 , RETURN CODE
*         A4 = NUMBER OF SECTORS PER RECORD (NOT OPEN ORDER)
*   SET   A8 = ADM ECB ADDRESS
*         A9 = USER ECB ADDRESS 
*         A10= FILE DESCRIPTOR ADDRESS
*         A12= ADDRESS TO FILE PARAMETER BLOCK (ADMBUF) 
*         A11= FILE DESCRIPTOR ADDRESS
* 
* 
ADMTSK	EQU	*
	LD	A14,PRUN
	ADKL	A14,DMTTSB	STACK BASE 
	LDR	A10,A1	FDB ADDRESS 
	LD	A9,DWTECB,A10	USER ECB ADDRESS
	LDR	A8,A10 
	ADKL	A8,FDBECB	ADM ECB ADDRESS 
	LC	A1,FWTFNR,A1	FILE NUMBER
	ANK	A1,/FF 
	STR	A1,A8	FILL ADM ECB 
	LD	A4,FDBRLE,A10	REQUESTED LENGTH
	ADK	A4,1	IN CASE OF S FILE 
	ANKL	A4,/FF00
	ST	A4,ECBRL,A8	REQUESTED LENGTH
	CM	ECBRC,A8	RESET RETURN CODE
	LDR	A13,A8	GET ADDRESS TO ECBCW
	ADKL	A13,ECBCW1
* 
	EJECT		ADMTSK
* 
* 
	LD	A1,ECBCW1,A9	GET RECORD NUMBER
	LD	A2,ECBCW2,A9
	RF(P)	ADMT10	DOUBLE SUBTRACT ONE 
	LDKL	A2,/8000	CARRY BIT
	SUK	A1,1 
ADMT10	EQU	*
	SUK	A2,1 
	STR	A1,A13	FILL ADM ECBCW
	ST	A2,2,A13
	LDR	A11,A10	FDB ADDRESS
	SRL	A4,8	NUMBER OF SECTORS PER RECORD
	CF	A14,DBLMUL	CONVERT TO SECTOR ADDRESS
	IM	2,A13	DOUBLE ADD ONE
	RF(P)	ADMT20	NO CARRY
	CM	2,A13 
	IMR	A13
ADMT20	EQU	*
	LDKL	A12,ADMBUF	ADM BUFFER ADDRESS 
	LDK	A1,0	RESET RETURN CODE 
	LC	A3,DWTOR+1,A10	ORDER
	ANK	A3,/FF 
	ABI	EXEORD,A3	EXECUTE ORDER
* 
	EJECT		ADMTSK
* 
* 
**********
* DIREAD *
**********
* 
*   READ RECORD DIRECT
* 
* 
DIREAD	EQU	*
	LDK	A7,/91	PHYSICAL READ 
	CF	A14,ADM:BA	TO USER BUFFER 
	RF(NZ)	ADMEXI	ERROR
	LD	A2,FDBOMD,A10 
	RF(N)	DIR100	X OR L FILE 
	LD	A2,ECBBA,A9	BUFFER ADDRESS
	AD	A2,ECBRL,A8	END OF BUFFER 
	IFT	MMUPAG=0 
	LC	A1,-1,A2
	XIF
	IFT	MMUPAG=1 
	LD	A1,DWTTAB,A10	USER TTAB ADDRESS 
	TL	TTB:MT,A1	USER MMU TABLE
	EL	A1,-2,A2	STATUS 
	ANK	A1,/FF 
	TL	MONMMU	MONITOR MMU TABLE
	XIF
	SUK	A1,/FF	STATUS OF RECORD
	RF(Z)	DIR100	OK
	LDKL	A1,RC:NOD	RC: NO DATA 
	RF	ADMEX2	END IO 
DIR100	EQU	*
	LD	A1,FDBRLE,A10	RECORD LENGTH 
	ST	A1,ECBEL,A9 
	RF	ADMEXI	END IO 
* 
	IFT	CRDEEX=1 
	EJECT		ADMTSK
* 
* 
**********
* EXTEND *
**********
* 
*   EXTEND FILE AND CONTINUE SEQUENTIAL WRITE 
* 
* 
EXTEND	EQU	*
	CF	A14,ADMRFP	READ FILE PARAMETERS 
	LD	A1,FDBENL,A10	GET ENLARGE FACTOR
	ST	A1,FPB:EL,A12	FILL IN ENLARGE 
	LDKL	A7,/1A1	EXTEND
	CF	A14,ADM:AF	EXTEND 
	RF(NZ)	ADMEXI	ERROR
	LD	A3,FDBOMD,A11	OPEN MODE 
	ANK	A3,/7F 
	SUK	A3,EXEOOR
	RF(NZ)	SEQWRI	NOT OPENED OUTPUT RANDOM 
	CF	A14,FORFIL	FORMAT EXTENDED FILE 
	RF(NZ)	ADMEXI	ERROR
	XIF
	EJECT		ADMTSK
* 
* 
**********
* SEQWRI *
**********
* 
*   SEQUENTIAL WRITE
*   INPUT :  A4 = NUMBER OF SECTORS PER RECORD
* 
* 
SEQWRI	EQU	*
	CF	A14,GETLRN	GET LAST RECORD NUMBER 
	IM	ECBCW2,A8	DOUBLE ADD ONE TO ECBCW 
	RF(P)	SEQW05	NO OVERFLOW 
	IM	ECBCW1,A8	INCREMENT 
	CM	ECBCW2,A8 
SEQW05	EQU	*
	LC	A1,FDBLRN,A10	GET LRN 
	ANK	A1,/FF 
	LD	A2,FDBLRN+1,A10 
	ADK	A2,1	LRN+1 
	RF(P)	SEQW06	NOT OVERFLOW
	LDK	A2,0 
	ADK	A1,1 
SEQW06	EQU	*
	ST	A1,ECBCW1,A9	LRN TO USER ECB
	ST	A2,ECBCW2,A9
* 
	EJECT		ADMTSK
* 
* 
	CF	A14,ADMWRI	WRITE
	IFT	CRDEEX=0 
	RF(NZ)	ADMEXI	ERROR
	XIF
	IFT	CRDEEX=1 
	RF(Z)	SEQW10	WRITE OK
	SLL	A1,2 
	RF(NN)	ADMEXI	NOT END OF FILE
	LD	A2,FDBENL,A10	ENLARGE FACTOR
	RF(Z)	ADMEXI	NO ENLARGE FACTOR DECLARED
	LDK	A1,EXEEXT	EXTEND FILE
	SC	A1,DWTOR+1,A10
	LDKL	A8,ADMTSK	DISPATCH ADDRESS
	LDR	A6,A10	FPB ADDRESS 
	ABL	DMXACD	ACTIVATE #D AFTER EXIT
* 
	XIF
SEQW10	EQU	*
	LC	A1,ECBCW1+1,A9	UPDATE LRN 
	SC	A1,FDBLRN,A10 
	LD	A2,ECBCW2,A9
	ST	A2,FDBLRN+1,A10 
	RF	ADMEXI
* 
	EJECT		ADMTSK
* 
* 
**********
* REWRIT *
* RANWRI *
**********
* 
*   REWRITE RECORD
*   RANDOM WRITE
* 
* 
REWRIT	EQU	*
RANWRI	EQU	*
	CF	A14,ADMWRI	WRITE
	RF	ADMEXI	END IO 
* 
	EJECT		ADMTSK
* 
* 
**********
* DELETE *
**********
* 
*   DELETE RECORD 
* 
* 
DELETE	EQU	*
	SUK	A4,1	GET LAST SECTOR IN RECORD 
	ADS	A4,2,A13 
	RF(P)	DEL:10	NO CARRY
	IMR	A13
	LDK	A4,/FF 
	ANS	A4,2,A13	NOT BIT 0 
DEL:10	EQU	*
	CF	A14,ADMWFO	WRITE
	EJECT		ADMTSK
* 
* 
**********
* ADMEXI *
**********
* 
* 
*   EXIT ADM TASK 
* 
* 
ADMEXI	EQU	*
	LD	A1,ECBRC,A8	RETURN CODE 
	ANKL	A1,/4E50	BITS TO STATUS 
	RF(Z)	ADMEX2	NO BITS TO STATUS 
	SLN	A1,A6
	LC	A6,STAMAP,A6	STATUS INFORMATION 
	CF	A14,GETFDB	FILE CODE ENTRY	=1 
	SCR	A6,A4	SAVE STATUS
	LDKL	A1,/8080	REQUEST ERROR MORE INFORMATION	=2
	RF	ADMEX3
ADMEX2	EQU	*
	OR	A1,ECBRC,A8	GET TOTAL RC
ADMEX3	EQU	*
	LDR	A6,A10	FDB ADDRESS FOR TENDIO
	INH
	CF	A15,TENDIO	PERFORM TENDIO 
	ENB
	LKM		EXIT
	DATA	3 
* 
	IFT	CRDEEX=1 
	EJECT
* 
* 
**********
* OPENOR *
**********
* 
*   OPEN OUTPUT RANDOM
* 
OPENOR	EQU	*
	CF	A14,CREFIL	CREATE FILE
	RF(NZ)	CLODIS	DELETE FILE
	CF	A14,FORFIL	FORMAT FILE
	RF(NZ)	CLODIS	DELETE FILE
	RF	EXIOPE	EXIT TASK
* 
	EJECT		ADMTSK
* 
* 
**********
* OPENEX *
**********
* 
* 
*   OPEN EXTEND 
* 
* 
OPENEX	EQU	*
	CF	A14,OPFILE
	RF(NZ)	CLO450	CLOSE IF OPENED
	CF	A14,ENLFAC
	RF(O)	CLO450	CLOSE 
	ST	A3,FDBENL,A11	ENLARGE 
	RF	EXIOPE	EXIT 
* 
	XIF
	EJECT		ADMTSK
* 
* 
**********
* OPENFI *
**********
* 
*   OPEN EXISTING FILE
* 
* 
OPENFI	EQU	*
	CF	A14,OPFILE	OPEN FILE
	RF(NZ)	CLO450	ERROR:CLOSE FILE 
EXIOPE	EQU	*
	CF	A14,CONPAR	CONVERT PARAMETERS 
	CF	A14,GETFDB	FILE CODE ENTRY	=1 
	ST	A11,2,A4	CONNECT FILE CODE TO FDB 
	RB	ADMEXI
* 
	IFT	CRDEEX=1 
	EJECT		ADMTSK
* 
* 
**********
* OPENOS *
**********
* 
*   OPEN OUTPUT SEQUENTIAL
* 
* 
OPENOS	EQU	*
	CF	A14,CREFIL	CREATE FILE
	RB(Z)	EXIOPE	NO ERROR
* 
	XIF
	EJECT		ADMTSK
* 
* 
**********
* CLODIS *
* CLOLCK *
**********
* 
*   CLOSE DISCARD 
*   CLOSE LOCK
* 
* 
	IFT	CRDEEX=1 
CLODIS	EQU	*
	LDKL	A7,/2A2	DELETE FILE 
	RF	CLO500
* 
* 
	XIF
CLOLCK	EQU	*
	IFT	CRDEEX=1 
	LC	A3,FDBOMD,A11	OPEN MODE 
	ANK	A3,/7F 
	SUK	A3,EXEOOR
	RF(NP)	CLO400	OPENED OUTPUT SEQ OR EXTEND
	CF	A14,FORFIL	FORMAT REST OF FILE
	XIF
* 
	EJECT		ADMTSK
* 
* 
CLO400	EQU	*	CLOSE FILE 
	LC	A2,FDBLRN,A11	LAST RECORD NUMBER TO FPB 
	ANK	A2,/FF 
	ST	A2,FPB:FR,A12 
	LD	A2,FDBLRN+1,A11 
	ST	A2,FPB:FR+2,A12 
CLO450	EQU	*	CLOSE WITHOUT SETTING LRN
	LDK	A7,/A2	CLOSE FILE
CLO500	EQU	*
	LDR	A3,A1	SAVE RETURN CODE 
	LDR	A11,A11
	RB(Z)	ADMEXI	FILE NOT OPENED 
	CF	A14,ADM:AF	CLOSE FILE 
	ORS	A3,ECBRC,A8	UPDATE RETURN CODE 
	RB	ADMEXI
* 
	EJECT		ADMTSK
* 
* 
**********
* REFIPA *
**********
* 
*   READ FILE PARAMETERS
* 
REFIPA	EQU	*
	CF	A14,ADMRFP	READ FILE PARAMETERS 
	RB(NZ)	ADMEXI	READ ERROR 
	CF	A14,CONPAR
	ST	A5,ECBEL,A9	FPB LENGTH
	CM	ECBCW1,A9	SET CRN 
	CM	ECBCW2,A9 
	RB	ADMEXI	EXIT 
* 
	EJECT
* 
* 
******************* 
*                 * 
*   SUBROUTINES   * 
*                 * 
******************* 
* 
**********
* GETFDB *
**********
* 
*   GET FILE CODE ENTRY IN USER TTAB OR CDTAB 
* 
GETFDB	EQU	*
	LD	A1,DWTTAB,A10	TTAB ADDRESS OF USER	=1 
	LDR*	A2,A9	FILE CODE	=1
	ANK	A2,/FF		=1 
	LDK	A5,0	SEARCH BOTH TABLES	=1 
	CF	A14,FNDFDB		=1
	RTN	A14		=1
* 
	EJECT		ADMTSK
* 
**********
* GETFPB *
**********
* 
*   GET FILE PARAMETER BLOCK TO ADM BUFFER
* 
*   INPUT : A9 = USER ECB ADDRESS 
*           A10= FDB ADDRESS
*           A12= FPB ADDRESS
*   OUTPUT: A5=TTAB ADDRESS USER TASK 
*             A4=NUMBER OF SECTORS PER RECORD 
*            A1,A2,A3 ARE USED
* 
GETFPB	EQU	*
	LD	A4,DWTTAB,A10	GET USER TTAB ADDRESS 
	LD	A1,ECBBA,A9	FPB ADDRESS 
	LDR	A2,A12	ADM BUFFER ADDRESS
	LDK	A3,FPBLLE-8	LENGTH OF FPB
	ADK	A1,8	NOT FIRST PART
	CF	A14,MOV:US	FILE DESCRIPTOR TO WORK AREA 
	LC	A3,FPB:FO,A12	CONVERT FILE ORGANISATION TO ASCII
	LC	A1,FILORG,A3
	SC	A1,FPB:FO,A12	ASCII 
* 
	EJECT		ADMTSK
* 
* 
	ANK	A3,/FF 
	RF(NZ)	GETF20	L- OR X-FILE 
	LDK	A1,FPBLLE-FPBSLE	REST OF FPB 
	ADK	A2,FPBLLE-8	END OF BUFFER
GETF10	EQU	*	CLEAR REST OF FPB
	SUK	A2,2	ADDRESS 
	CMR	A2 
	SUK	A1,2 
	RB(P)	GETF10	NEXT WORD 
	LDKL	A2,'00'	ZEROIZE RETENTION PERIOD
	ST	A2,FPB:RP,A12 
	SC	A2,FPB:RP+2,A12 
GETF20	EQU	*
	LDK	A4,0	SHAREABILITY = 0
	SC	A4,FPB:SH,A12 
	LD	A4,FPB:RL,A12	RECORD LENGTH 
	ADK	A4,1	IN CASE OF S-FILE 
	SRL	A4,8	NUMBER OF SECTORS PER RECORD
	SUK	A3,2	FILE ORGANIZATION 
	RF(NZ)	GETF30	NOT L-FILE 
	CM	FPB:RL,A12	RL=0 
GETF30	EQU	*
	RTN	A14
* 
	EJECT		ADMTSK
* 
* 
**********
* CONPAR *
**********
* 
* 
*   CONVERT PARAMETERS IN FILE PARAMETER BLOCK
* 
*   INPUT : A12 = FPB ADDRESS 
*           A10 = FDB ADDRESS 
*           A11=FDB ADDRESS OPENED FILE 
*   OUTPUT:  A5 = FPB LENGTH
*             A4 IS USED
*             A1,A2,A3,A6,A7,A13 ARE USED 
* 
CONPAR	EQU	*
	LDK	A2,FPBSLE	FPB LENGTH OF S-FILE 
	LC	A1,FPB:FO,A12	FILE ORGANIZATION 
	SUK	A1,'S'	CONVERT TO NUMBER 
	RF(Z)	CON100 
	LDK	A2,FPBLLE	FPB LENGTH OF L-OR X-FILE
	LDK	A1,2	L-FILE
	RF(L)	CON100 
	LDK	A1,3	X-FILE
CON100	EQU	*
* 
	EJECT		ADMTSK
* 
* 
	ST	A2,ECBRL,A8	SAVE LENGTH 
	SC	A1,FPB:FO,A12	FILE ORGANIZATION NUMBER
	ANK	A1,2	L OR X FILE 
	SRC	A1,2 
	ORS	A1,FDBOMD,A11	INDICATE FILE TYPE 
	LDK	A1,1	DEVICE TYPE 
	SC	A1,FPB:DT,A12 
	LC	A1,FWTFNR,A11	FILE NUMBER 
	SLL	A1,8 
	ST	A1,FPB:NO,A12	DATA FILE,INDEX FILE NUMBER 
	IFT	CRDEEX=1 
	CF	A14,CONENL	ENLARGE IN PERCENTAGE
	XIF
	IFT	CRDEEX=0 
	CM	FPB:EL,A12
	XIF
	LD	A4,FDBRLE,A11	RECORD LENGTH 
	ST	A4,FPB:RL,A12	RECORD LENGTH 
	ADK	A4,1	IN CASE OF S-FILE 
	SRL	A4,8	NUMBER OF SECTORS 
* 
	EJECT		ADMTSK
* 
* 
	LDR	A13,A12
	ADKL	A13,FPB:S1	ADDRESS TO SIZE
	LDK	A5,4	COUNTER 
CON500	EQU	*
	LDK	A1,0 
	LDR*	A2,A13
	RF(Z)	CON600 
	LDR	A6,A4	SECTORS PER RECORD 
	CF	A14,DIVMOD
	STR	A2,A13	MOST SIGN PART
CON600	EQU	*
	LD	A2,2,A13	KEEP REST
	LDR	A6,A4	NUMBER OF SECTORS PER RECORD 
	CF	A14,DIVMOD
	ST	A2,2,A13
	ADKL	A13,10	NEXT SIZE
	SUK	A5,1 
	RB(NZ)	CON500	MORE SIZES TO CONVERT
	LD	A3,ECBRL,A8	FPB LENGTH
	LDR	A5,A3	SAVE LENGTH
	LDR	A1,A12	ADM BUFFER ADDRESS
	LD	A2,ECBBA,A9 
	ADK	A2,8	NOT FIRST PART
	SUK	A3,8 
	LD	A4,DWTTAB,A10	USER TTAB ADDRESS 
	CF	A14,MOV:SU	FPB TO USER AREA 
	RTN	A14
* 
	EJECT		ADMTSK
* 
* 
**********
* GETLRN *
**********
* 
*   CONVERT LAST RECORD NUMBER
* 
*   INPUT :  A8=ECB ADDRESS 
*           A11=FDB ADDRESS 
* 
*   OUTPUT:  A4=NUMBER OF SECTORS PER RECORD
*           A13=ADDRESS TO CONTROLL WORDS IN ECB
*            A1,A2=LRN SECTOR NUMBER-1
*            ECBCW1,ECBCW2=LRN CONVERTED TO SECTOR NUMBER-1 
*            A6,A7 ARE USED 
* 
GETLRN	EQU	*
	LD	A4,FDBRLE,A11	RECORD LENGTH 
	ADK	A4,1 
	SRL	A4,8	NUMBER OF SECTORS 
	LC	A1,FDBLRN,A11 
	ANK	A1,/FF 
	LD	A2,FDBLRN+1,A11 
	LDR	A13,A8	ADDRESS TO CONTROLL WORDS 
	ADKL	A13,ECBCW1
	STR	A1,A13	LAST RECORD NUMBER
	ST	A2,ECBCW2,A8
	CF	A14,DBLMUL	CONVERT TO SECTOR ADDRESS
	RF	RETA14
* 
	EJECT		ADMTSK
* 
* 
**********
* OPFILE *
**********
* 
*   OPEN EXISTING FILE AND CHECH SHAREBILITY
* 
*   INPUT :  A8=ECB ADDRESS 
* 
*   OUTPUT :  A11 = NEW FPB ADDRESS 
*             A4=NUMBER OF SECTORS PER RECORD 
*              A1,A2,A3,A5,A7 ARE USED
* 
* 
OPFILE	EQU	*
	CF	A14,GETFPB
	LDK	A7,/A1	OPEN FILE 
	CF	A14,ADMOPE	OPEN 
	RF(NZ)	RETA14	ERROR
	LDKL	A1,/8000	RC: REQUEST ERROR
	LDK	A2,1 
	LC	A3,FPB:FO,A12	CHECK FILE ORGANIZATION 
	CCK	A3,'SS'
	RF(E)	OPE100	S-FILE
	LDK	A2,0 
	CCK	A3,'LL'
	RF(E)	OPE100	L-FILE
	CCK	A3,'XX'
	RF(NE)	RETA14	NOT L-,S- OR X-FILE
* 
	EJECT		ADMTSK
* 
* 
OPE100	EQU	*
	AD	A2,FPB:RL,A12	RECORD LENGTH 
	ANK	A2,/FF 
	RF(NZ)	RETA14	ILLEGAL RECORD LENGTH
	LC	A2,FPB:BF,A12	BLOCKING FACTOR 
	SUK	A2,1 
	RF(NZ)	RETA14	ILLEGAL BLOCKING FACTOR
	LDK	A3,0	ENLARGE FACTOR
	LC	A1,FWTPAR,A11	GET NUMBER OF USERS 
	ANK	A1,/3F	6 BITS
	SUK	A1,1 
	RF(Z)	SETFDB	1ST OPEN
	LD	A1,FDBEXC,A11	
	RF(NZ)	OPE900	FILE OPENED EXCLUSIVE
	LC	A2,FDBOMD,A11	OPEN MODE 
	ANK	A2,/7F	NOT FILE TYPE 
	CC	A2,DWTOR+1,A10
	RF(E)	RETA14	NO VIOLATION OF SHARABILITY ROULES
OPE900	EQU	*
	LDK	A1,/40	INDICATE VIOLATION OF SHAREBILITY ROULES
	RF	RETA14
* 
	EJECT		ADMTSK
* 
* 
**********
* DBLMUL *
**********
* 
*   DOUBLE MULTIPLY 
* 
*    INPUT :   A4 = ARG1
*              A13= ADDRESS TO ARG2 
* 
*   OUTPUT: CR SET ACCORDING TO RESULT
*           A6,A7 ARE USED
*           A1,A2 = RESULT
* 
DBLMUL	EQU	*
	LDR	A6,A4	ARG1 
	LDR*	A7,A13	1ST PART OF ARG2 
	RF(Z)	DBLM10 
	CF	A14,MPYMOD
	ADK	A1,0 
	RF(NZ)	SETOVE	OVERFLOW 
	STR	A2,A13 
DBLM10	EQU	*
	LDK	A1,0 
	LDK	A2,0 
	LD	A7,2,A13	ARG2 
	RF(Z)	DBLM30 
	LDR	A6,A4	ARG1 
	CF	A14,MPYMOD
	ADR*	A1,A13
	RF(O)	SETOVE	OVERFLOW
* 
	EJECT		ADMTSK
* 
* 
DBLM30	EQU	*
	ST	A2,2,A13
	STR	A1,A13	SAVE RESULT 
RETA14	EQU	*
	ABL	RTNA14	RTN A14 
SETOVE	EQU	*
	ABL	SETCRO	RTN A14 (SET OVERFLOW)
* 
	IFT	CRDEEX=1 
* 
	EJECT		ADMTSK
* 
* 
**********
* CREFIL *
**********
* 
*   CREATE FILE FORE OPEN OUTPUT
* 
*   INPUT :   A8=ECB ADDRESS
*   OUTPUT:   A1=RC FROM OPEN CR SET ACCORDING TO A1
*             A4=NUMBER OF SECTORS PER RECORD 
*              A2,A3,A4,A5,A6,A7,A13,A12 ARE USED 
*             A11=FDB ADDRESS OF OPENED FILE
* 
CREFIL	EQU	*
	CF	A14,GETFPB	GET FPB
	LDK	A5,4	NUMBER OF VOLUMES 
	LDR	A13,A12	FDB ADDRESS
	ADKL	A13,FPB:S1	ADDRESS TO SIZE
CREF10	EQU	*
	CF	A14,DBLMUL	NUMBER OF SECTTORS 
	RB(N)	SETOVE	OVERBLOW
CREF15	EQU	*
	LDR	A6,A1	NUMBER OF SECTORS
	LDR	A7,A2
	CF	A14,DV3RST	REST AFTER DIV 3 
	RF(Z)	CREF18	NO REST 
	LDR	A2,A4	ONE MORE BLOCK 
	CF	A14,ADDMOD	NUMBER OF SECTORS
	RB(O)	SETOVE	OVERBLOW
	STR	A1,A13	INTO FPB
	ST	A2,2,A13
	RB	CREF15	CHECK IF MULTIPLE OF 3 
* 
	EJECT		ADMTSK
* 
* 
CREF18	EQU	*
	ADKL	A13,10
	SUK	A5,1 
	RB(P)	CREF10	NEXT SIZE 
	CF	A14,ENLFAC	ENLARGE
	RB(NZ)	SETOVE	OVERBLOW 
	LDKL	A7,/2A1	CREATE FILE 
	CF	A14,ADMOPE	CREATE FILE
	RB(NZ)	RETA14	ERROR
	LDR*	A2,A8	DATA FILE NUMBER
	SC	A2,FPB:NO,A12 
	XIF
* 
	EJECT		ADMTSK
* 
* 
**********
* SETFDB *
**********
* 
*   SET FDB PARAMETERS FDBENL,FDBOMD,FDBEXC,FDBLRN AND FDBRLE 
*   INPUT : A3 = ENLARGE IN NUMBER OF SECTORS 
*            A11=FDB ADDRESS OF OPENED FILE 
* 
* 
SETFDB	EQU	*
	ST	A3,FDBENL,A11	ENLARGE 
	LD	A2,DWTOR,A10	OPEN MODE AND OPTION 
	SC	A2,FDBOMD,A11	INDICATE OPEN MODE
	SLL	A2,6	EXCLUSIVE ACCES WANTED
	RF(NN)	SETF25	NO 
	LD	A1,DWTTAB,A10 
SETF25	EQU	*
	ST	A1,FDBEXC,A11	INDICATE EXCLUSIVE OR NOT 
	LD	A2,FPB:FR,A12	MOVE LRN
	SC	A2,FDBLRN,A11 
	LD	A2,FPB:FR+2,A12 
	ST	A2,FDBLRN+1,A11 
	LD	A2,FPB:RL,A12	GET RECORD LENGTH 
	RF(NZ)	SETF30	NOT L-FILE 
	LDKL	A2,LFILEN	L-FILE RECORD LENGTH
SETF30	EQU	*
	ST	A2,FDBRLE,A11 
	LDK	A1,0 
RETUR	EQU	* 
	RB	RETA14
* 
	IFT	CRDEEX=1 
	EJECT		ADMTSK
* 
* 
**********
* FORFIL *
**********
* 
* 
*   FORMAT FILE 
* 
*   INPUT :   A8 = ECB ADDRESS
*             A11= FDB ADDRESS
* 
*   OUTPUT: 
*             A1,A2,A4,A5,A6,A7,A13 ARE USED
* 
FORFIL	EQU	*
	CF	A14,GETLRN	GET LAST RECORD NUMBER 
	LDR	A5,A1	SAVE LRN 
	LDR	A6,A2
FORF10	EQU	*
	ADR	A6,A4	NEXT RECORD
	RF(P)	FORF20	NOT OVERFLOW
	ANK	A6,/FF	A4</FF
	ADK	A5,1 
FORF20	EQU	*
	STR	A5,A13	TO ECBCW
	ST	A6,2,A13
	CF	A14,ADMWFO
	RB(Z)	FORF10	FILE NOT READY
	ANKL	A1,/1FF	NOT END OF FILE BITS
	ST	A1,ECBRC,A8 
	RF	ADMI10
* 
	XIF
	EJECT		ADMTSK
* 
* 
**********
* ADM:IO *
* ADMWRI *
**********
* 
*   IO ROUTINES 
* 
*   OUTPUT:  CR SET ACCORDING TO RC EXCEPT RETRY BIT
* 
*   INPUT :   A8= ECB ADDRESS 
*           (A10 = FDB ADDRESS) 
*           A1,A2,A7 ARE USED 
* 
ADMWFO	EQU	*	FORMAT FILE
	LDK	A7,/95	ORDER CODE
	LDKL	A2,BUFFNU	INDICATE RECORD NOT USED
	LDK	A1,1	ONE SECTOR IO 
	SC	A1,ECBRL,A8 
ADMI00	EQU	*
	IFT	MMUPAG=1 
	LDK	A1,0	BIT 0,1 OF 18 BIT ADDRESS 
	XIF
	RF	ADM:IO
* 
ADMWRI	EQU	*
	LD	A7,FDBOMD,A10	FILE TYPE 
	RF(N)	ADMW10	L OR X FILE 
	LD	A7,ECBBA,A9	BUFFER ADDRESS
	AD	A7,ECBRL,A8	END OF BUFFER 
* 
	EJECT		ADMTSK
* 
* 
	IFT	MMUPAG=0 
	LDK	A2,/FF 
	SC	A2,-1,A7	INDICATE RECORD USED 
	XIF
	IFT	MMUPAG=1 
	LD	A2,DWTTAB,A10	USER TTAB ADDRESS 
	TL	TTB:MT,A2	USER MMU TABLE
	EL	A2,-2,A7	GET LAST WORD OF BUFFER
	ORK	A2,/FF	SET RECORD BUSY 
	ES	A2,-2,A7
	TL	MONMMU	MONITOR MMU TABLE
	XIF
ADMW10	EQU	*
	LDK	A7,/95	WRITE 
* 
	EJECT		ADMTSK
* 
* 
**********
* ADM:BA *
**********
* 
*   INPUT :   A8 = ADM ECB ADDRESS
*             A9 = USER ECB ADDRESS 
*            A10 = FDB ADDRESS
* 
*   OUTPUT:  A1 = RC CR SET ACCORDING T A1
*            A2,A7 ARE USED 
* 
ADM:BA	EQU	*
	IFT	MMUPAG=0 
	LD	A2,ECBBA,A9	BUFFER ADDRESS
	XIF
	IFT	MMUPAG=1 
	LDK	A2,0 
	LD	A1,ECBBA,A9	16 BIT BUFFER ADDRESS 
	DRL	12 
	SLL	A1,1	PAGE ADDRESS
	AD	A1,DWTTAB,A10 
	LD	A1,TTB:MT,A1	MOST SIGNIFICANT BITS
	SRL	A1,10
	DRL	4
	SLL	A1,4 
* 
	EJECT		ADMTSK
* 
**********
* ADM:IO *
**********
* 
*   INPUT : A1,A2 = BUFFER ADDRESS
*           A7    = ORDER CODE
*           A8    = ADM ECB ADDRESS 
* 
	XIF
ADM:IO	EQU	*
	ST	A2,ECBBA,A8	ADM ECB 
	IFT	MMUPAG=1 
	SCR	A1,A8	BIT 0,1
	XIF
	LKM
	DATA	15
ADMI10	EQU	*
	LD	A1,ECBRC,A8	RETURN CODE 
	ANKL	A1,/FEFF	NOT RETRY BIT
	IFT	CRDEEX=1 
	RB	RETUR 
	XIF
	IFT	CRDEEX=0 
	RB	RETA14
	XIF
* 
	EJECT		ADMTSK
* 
**********
* ADMOPE *
* ADMRFP *
* ADM:AF *
**********
* 
*   OPEN FILE AND READ FILE PARAMETERS
* 
*   OUTPUT: A1= ERROR CODE CR SET ACCORDING TO A1 
*            A2,A7 ARE USED 
*           A11= FWT ADDRESS
*            IF A11 = 0 NO OPEN HAS BEEN DONE 
* 
ADMOPE	EQU	*
	SUR	A11,A11	INDICATE NO OPEN DONE
	CF	A14,ADM:AF
	IFT	CRDEEX=1 
	RB(NZ)	RETUR	ERROR 
	XIF
	IFT	CRDEEX=0 
	RB(NZ)	RETA14
	XIF
	LDR*	A1,A8	FILE NUMBER 
	ANK	A1,/FF 
	LDKL	A11,SCTFWT	ROOT TO FWT:S
AOPE10	EQU	*	SEARCH FWT ADDRESS 
	LDR*	A11,A11	FWT ADDRESS 
	SUK	A1,1 
	RB(P)	AOPE10	NEXT FWT
	ANKL	A11,/FFFE	BIT 15 USED BY FILE MANAGEMENT
ADMRFP	EQU	*	READ FILE PARAMETERS TO ADMBUF 
	LDK	A7,/83 
ADM:AF	EQU	*
	LDR	A2,A12	ADM BUFFER ADDRESS + 8
	RB	ADMI00
* 
	EJECT		ADMTSK
* 
* 
	END

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT ADMTSK  REL 11.0 81-02-12 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…006e              Head {h00=0x002c, h01=0x0050, text=»   =2, WRONG STATUS INFORMATION RETURNED«, t00=0x0000, t01=0x0042}
0x006e…008a              Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-02-06«, t00=0x0000, t01=0x0072}
0x008a…00b6              Head {h00=0x0028, h01=0x0050, text=»   =1, LOCAL FILE CODES NOT WORKING «, t00=0x0000, t01=0x008e}
0x00b6…00d2              Head {h00=0x0018, h01=0x0050, text=»   REL 11.0 81-01-26«, t00=0x0000, t01=0x00ba}
0x00d2…00dc              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x00d6}
0x00dc…00e6              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x00e0}
0x00e6…011a              Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0000, t01=0x00ea}
0x011a…0124              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x011e}
0x0124…0158              Head {h00=0x0030, h01=0x002c, text=»*    ADMTSK = ABRIDGED DATA MANAGEMENT TASKS«, t00=0x0000, t01=0x0128}
0x0158…0162              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0000, t01=0x015c}
0x0162…0196              Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0000, t01=0x0166}
0x0196…01a0              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x000a}
0x01a0…01aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0014}
0x01aa…01b4              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x001e}
0x01b4…01ca              Head {h00=0x0012, h01=0x000d, text=» ENTRY ADMTSK «, t00=0x0001, t01=0x0028}
0x01ca…01d4              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0001, t01=0x003e}
0x01d4…01ea              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0001, t01=0x0048}
0x01ea…01f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005e}
0x01f4…0210              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0001, t01=0x0068}
0x0210…022c              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0001, t01=0x0084}
0x022c…0248              Head {h00=0x0018, h01=0x0050, text=»*   EXTERNALS     * «, t00=0x0001, t01=0x00a0}
0x0248…0264              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0001, t01=0x00bc}
0x0264…0280              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0001, t01=0x00d8}
0x0280…028a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f4}
0x028a…0294              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…02b8              Head {h00=0x0020, h01=0x0050, text=» EXTRN PRUN PROGRAM RUNNING «, t00=0x0001, t01=0x0108}
0x02b8…02de              Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTECB USER ECB ADDRESS«, t00=0x0001, t01=0x012c}
0x02de…0306              Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTTAB USER TTAB ADDRESS «, t00=0x0001, t01=0x0152}
0x0306…032c              Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTOR ORDER AND OPTION «, t00=0x0001, t01=0x017a}
0x032c…034e              Head {h00=0x001e, h01=0x0050, text=» EXTRN FWTFNR FILE NUMBER «, t00=0x0002, t01=0x0010}
0x034e…0374              Head {h00=0x0022, h01=0x0050, text=» EXTRN FWTPAR NUMBER OF USERS «, t00=0x0002, t01=0x0032}
0x0374…039a              Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x0002, t01=0x0058}
0x039a…03be              Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x0002, t01=0x007e}
0x03be…03e6              Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 1ST CONTROLL WORD «, t00=0x0002, t01=0x00a2}
0x03e6…040e              Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW2 2ND CONTROLL WORD «, t00=0x0002, t01=0x00ca}
0x040e…0430              Head {h00=0x001e, h01=0x0050, text=» EXTRN MOV:US MOVE ROUTINE«, t00=0x0002, t01=0x00f2}
0x0430…0446              Head {h00=0x0012, h01=0x0050, text=» EXTRN MOV:SU «, t00=0x0002, t01=0x0114}
0x0446…046a              Head {h00=0x0020, h01=0x0050, text=» EXTRN DIVMOD DIVIDE ROUTINE«, t00=0x0002, t01=0x012a}
0x046a…0490              Head {h00=0x0022, h01=0x0050, text=» EXTRN MPYMOD MULTIPLY ROUTINE«, t00=0x0002, t01=0x014e}
0x0490…04b6              Head {h00=0x0022, h01=0x0050, text=» EXTRN FPB:BF BLOCKING FACTOR «, t00=0x0002, t01=0x0174}
0x04b6…04d4              Head {h00=0x001a, h01=0x0050, text=» EXTRN FPB:EL ENLARGE «, t00=0x0003, t01=0x000a}
0x04d4…04fc              Head {h00=0x0024, h01=0x0050, text=» EXTRN FPB:FO FILE ORGANISATION «, t00=0x0003, t01=0x0028}
0x04fc…0516              Head {h00=0x0016, h01=0x0050, text=» EXTRN FPB:S1 SIZE«, t00=0x0003, t01=0x0050}
0x0516…053c              Head {h00=0x0022, h01=0x0050, text=» EXTRN FPB:RP RETENTION PERIOD«, t00=0x0003, t01=0x006a}
0x053c…055c              Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x0003, t01=0x0090}
0x055c…0582              Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x0003, t01=0x00b0}
0x0582…05a6              Head {h00=0x0020, h01=0x0050, text=» EXTRN FPB:RL RECORD LENGTH «, t00=0x0003, t01=0x00d6}
0x05a6…05ce              Head {h00=0x0024, h01=0x0050, text=» EXTRN FPB:FR FILE RECORD NUMBER«, t00=0x0003, t01=0x00fa}
0x05ce…05f6              Head {h00=0x0024, h01=0x0050, text=» EXTRN ADDMOD DOUBLE ADD ROUTINE«, t00=0x0003, t01=0x0122}
0x05f6…061a              Head {h00=0x0020, h01=0x0050, text=» EXTRN SCTFWT ROOT OF FDB:S «, t00=0x0003, t01=0x014a}
0x061a…0644              Head {h00=0x0026, h01=0x0050, text=» EXTRN FNDFDB FIND FILE CODE ENTRY«, t00=0x0003, t01=0x016e}
0x0644…064e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0008}
0x064e…0664              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0004, t01=0x0012}
0x0664…066e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0028}
0x066e…0678              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0032}
0x0678…06a8              Head {h00=0x002c, h01=0x0050, text=» EXTRN DMXACD EXIT TASK AND ACTIVATE #D «, t00=0x0004, t01=0x003c}
0x06a8…06de              Head {h00=0x0032, h01=0x0050, text=» EXTRN DMACTD ACTIVATE ADMINISTRATION ADM TASK«, t00=0x0004, t01=0x006c}
0x06de…0704              Head {h00=0x0022, h01=0x0050, text=» EXTRN DV3RST REST AFTER DIV 3«, t00=0x0004, t01=0x00a2}
0x0704…071a              Head {h00=0x0012, h01=0x0050, text=» EXTRN TENDIO «, t00=0x0004, t01=0x00c8}
0x071a…0748              Head {h00=0x002a, h01=0x0050, text=» EXTRN DMTTSB STACK BASE DISPLACEMENT «, t00=0x0004, t01=0x00de}
0x0748…0766              Head {h00=0x001a, h01=0x0050, text=» EXTRN FDBECB ADM ECB «, t00=0x0004, t01=0x010c}
0x0766…0786              Head {h00=0x001c, h01=0x0050, text=» EXTRN FDBOMD OPEN MODE «, t00=0x0004, t01=0x012a}
0x0786…07ae              Head {h00=0x0024, h01=0x0050, text=» EXTRN FDBLRN LAST RECORD NUMBER«, t00=0x0004, t01=0x014a}
0x07ae…07d2              Head {h00=0x0020, h01=0x0050, text=» EXTRN FDBRLE RECORD LENGTH «, t00=0x0004, t01=0x0172}
0x07d2…07f0              Head {h00=0x001a, h01=0x0050, text=» EXTRN FDBENL ENLARGE «, t00=0x0005, t01=0x0008}
0x07f0…0820              Head {h00=0x002c, h01=0x0050, text=» EXTRN FDBEXC EXCLUSIVE ACCESS INDICATOR«, t00=0x0005, t01=0x0026}
0x0820…0842              Head {h00=0x001e, h01=0x0050, text=» EXTRN FPB:NO FILE NUMBER «, t00=0x0005, t01=0x0056}
0x0842…0864              Head {h00=0x001e, h01=0x0050, text=» EXTRN FPB:DT DEVICE TYPE «, t00=0x0005, t01=0x0078}
0x0864…0888              Head {h00=0x0020, h01=0x0050, text=» EXTRN TTB:MT USER MMU TABLE«, t00=0x0005, t01=0x009a}
0x0888…08aa              Head {h00=0x001e, h01=0x0050, text=» EXTRN FPB:SH SHAREABILITY«, t00=0x0005, t01=0x00be}
0x08aa…08d2              Head {h00=0x0024, h01=0x0050, text=» EXTRN MONMMU MONITOR MMU TABLE «, t00=0x0005, t01=0x00e0}
0x08d2…0908              Head {h00=0x0032, h01=0x0050, text=» EXTRN ENLFAC CONVERT ENLARGE TO NO OF SECTORS«, t00=0x0005, t01=0x0108}
0x0908…093c              Head {h00=0x0030, h01=0x0050, text=» EXTRN CONENL CONVERT ENLARGE TO PERCENTAGE «, t00=0x0005, t01=0x013e}
0x093c…0964              Head {h00=0x0024, h01=0x0050, text=» EXTRN RTNA14 RETURN AND SET CR «, t00=0x0005, t01=0x0172}
0x0964…0994              Head {h00=0x002c, h01=0x0050, text=» EXTRN SETCRO RETURN AND SET CR OVERFLOW«, t00=0x0006, t01=0x000a}
0x0994…099e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003a}
0x099e…09a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0044}
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…09ce              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x0062}
0x09ce…09e0              Head {h00=0x000e, h01=0x0050, text=»*   FORM *«, t00=0x0006, t01=0x0074}
0x09e0…09f2              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0006, t01=0x0086}
0x09f2…09fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0098}
0x09fc…0a06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a2}
0x0a06…0a1c              Head {h00=0x0012, h01=0x0050, text=»BYTE FORM 8,8 «, t00=0x0006, t01=0x00ac}
0x0a1c…0a26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c2}
0x0a26…0a30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00cc}
0x0a30…0a46              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0006, t01=0x00d6}
0x0a46…0a50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ec}
0x0a50…0a5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f6}
0x0a5a…0a88              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0006, t01=0x0100}
0x0a88…0ab6              Head {h00=0x002a, h01=0x0050, text=»*                                    *«, t00=0x0006, t01=0x012e}
0x0ab6…0ae4              Head {h00=0x002a, h01=0x0050, text=»*   CONDITIONAL ASSEMBLY             *«, t00=0x0006, t01=0x015c}
0x0ae4…0b12              Head {h00=0x002a, h01=0x0050, text=»*                                    *«, t00=0x0006, t01=0x018a}
0x0b12…0b40              Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0007, t01=0x0028}
0x0b40…0b4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0056}
0x0b4a…0b54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0060}
0x0b54…0b82              Head {h00=0x002a, h01=0x0050, text=»*   A VERSION LEAVING OUT OPEN MODES: «, t00=0x0007, t01=0x006a}
0x0b82…0bb8              Head {h00=0x0032, h01=0x0050, text=»*   OPEN OUTPUT,OPEN EXTEND AND CLOSE DISCARD «, t00=0x0007, t01=0x0098}
0x0bb8…0be4              Head {h00=0x0028, h01=0x0050, text=»*   IS OBTAINED BY SETTING X:A EQU 0«, t00=0x0007, t01=0x00ce}
0x0be4…0bee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fa}
0x0bee…0bf8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0104}
0x0bf8…0c0a              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0007, t01=0x010e}
0x0c0a…0c20              Head {h00=0x0012, h01=0x0050, text=»CRDEEX EQU X:A«, t00=0x0007, t01=0x0120}
0x0c20…0c2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0136}
0x0c2a…0c34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0140}
0x0c34…0c48              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0007, t01=0x014a}
0x0c48…0c52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c52…0c68              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0007, t01=0x0168}
0x0c68…0c72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017e}
0x0c72…0c7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0188}
0x0c7c…0c98 (8, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0004}
0x0c98…0cb4              Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0008, t01=0x0020}
0x0cb4…0cd0              Head {h00=0x0018, h01=0x0050, text=»*   CONSTANTS      *«, t00=0x0008, t01=0x003c}
0x0cd0…0cec              Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0008, t01=0x0058}
0x0cec…0d08              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0074}
0x0d08…0d12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0090}
0x0d12…0d1c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009a}
0x0d1c…0d38              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x00a4}
0x0d38…0d54              Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0008, t01=0x00c0}
0x0d54…0d70              Head {h00=0x0018, h01=0x0050, text=»*   RETURN STATUS  *«, t00=0x0008, t01=0x00dc}
0x0d70…0d8c              Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0008, t01=0x00f8}
0x0d8c…0da8              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0114}
0x0da8…0db2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0130}
0x0db2…0de0              Head {h00=0x002a, h01=0x0050, text=»RSTWFO EQU 6 WRONG FUNCTION OPTION =2 «, t00=0x0008, t01=0x013a}
0x0de0…0e02              Head {h00=0x001e, h01=0x0050, text=»RSTUKF EQU 9 UNKNOWN FILE «, t00=0x0008, t01=0x0168}
0x0e02…0e20              Head {h00=0x001a, h01=0x0050, text=»RSTOFL EQU 3 OVERFLOW «, t00=0x0008, t01=0x018a}
0x0e20…0e48              Head {h00=0x0024, h01=0x0050, text=»RSTWFP EQU 4 WRONG FD PARAMETER «, t00=0x0009, t01=0x0018}
0x0e48…0e52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0040}
0x0e52…0e7e              Head {h00=0x0028, h01=0x0050, text=»RC:NOD EQU /800 RETURN CODE NO DATA «, t00=0x0009, t01=0x004a}
0x0e7e…0ea8              Head {h00=0x0026, h01=0x0050, text=»FPBLLE EQU 88 LENGTH OF FPB L-FILE«, t00=0x0009, t01=0x0076}
0x0ea8…0ed2              Head {h00=0x0026, h01=0x0050, text=»FPBSLE EQU 66 LENGTH OF FPB S-FILE«, t00=0x0009, t01=0x00a0}
0x0ed2…0efe              Head {h00=0x0028, h01=0x0050, text=»LFILEN EQU 256 L-FILE RECORD LENGTH «, t00=0x0009, t01=0x00ca}
0x0efe…0f08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f6}
0x0f08…0f1e              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0009, t01=0x0100}
0x0f1e…0f28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0116}
0x0f28…0f32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0120}
0x0f32…0f4e              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0009, t01=0x012a}
0x0f4e…0f6a              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0009, t01=0x0146}
0x0f6a…0f86              Head {h00=0x0018, h01=0x0050, text=»*   TABLES        * «, t00=0x0009, t01=0x0162}
0x0f86…0fa2              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0009, t01=0x017e}
0x0fa2…0fbe              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000a, t01=0x000a}
0x0fbe…0fc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0026}
0x0fc8…0fd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0030}
0x0fd2…0fdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003a}
0x0fdc…0ff2              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x000a, t01=0x0044}
0x0ff2…0ffc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005a}
0x0ffc…1006              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0064}
0x1006…1010              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006e}
0x1010…1022              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0078}
0x1022…1034              Head {h00=0x000e, h01=0x0050, text=»* EXEORD *«, t00=0x000a, t01=0x008a}
0x1034…1046              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x009c}
0x1046…1050              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ae}
0x1050…1072              Head {h00=0x001e, h01=0x0050, text=»*   TABLE FOR ORDER LABELS«, t00=0x000a, t01=0x00b8}
0x1072…107c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00da}
0x107c…1086              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e4}
0x1086…109a              Head {h00=0x0010, h01=0x0050, text=»EXEORD EQU *«, t00=0x000a, t01=0x00ee}
0x109a…10b6              Head {h00=0x0018, h01=0x0050, text=» DATA OPENFI OPENFI «, t00=0x000a, t01=0x0102}
0x10b6…10ca              Head {h00=0x0010, h01=0x0050, text=» DATA OPENFI«, t00=0x000a, t01=0x011e}
0x10ca…10de              Head {h00=0x0010, h01=0x0050, text=» DATA OPENFI«, t00=0x000a, t01=0x0132}
0x10de…10f2              Head {h00=0x0010, h01=0x0050, text=» DATA OPENFI«, t00=0x000a, t01=0x0146}
0x10f2…1106              Head {h00=0x0010, h01=0x0050, text=» DATA OPENFI«, t00=0x000a, t01=0x015a}
0x1106…111c              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x000a, t01=0x016e}
0x111c…114a              Head {h00=0x002a, h01=0x0050, text=»EXEOOR EQU *-EXEORD OPEN OUTPUT RANDOM«, t00=0x000a, t01=0x0184}
0x114a…116c              Head {h00=0x001e, h01=0x0050, text=» DATA OPENOR OUTPUT RANDOM«, t00=0x000b, t01=0x0022}
0x116c…1188              Head {h00=0x0018, h01=0x0050, text=» DATA OPENEX EXTEND «, t00=0x000b, t01=0x0044}
0x1188…11ae              Head {h00=0x0022, h01=0x0050, text=» DATA OPENOS OUTPUT SEQUENTIAL«, t00=0x000b, t01=0x0060}
0x11ae…11c2              Head {h00=0x0010, h01=0x0050, text=» DATA CLODIS«, t00=0x000b, t01=0x0086}
0x11c2…11ce              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x009a}
0x11ce…11e2              Head {h00=0x0010, h01=0x0050, text=» DATA CLOLCK«, t00=0x000b, t01=0x00a6}
0x11e2…11f6              Head {h00=0x0010, h01=0x0050, text=» DATA REFIPA«, t00=0x000b, t01=0x00ba}
0x11f6…120a              Head {h00=0x0010, h01=0x0050, text=» DATA SEQWRI«, t00=0x000b, t01=0x00ce}
0x120a…121e              Head {h00=0x0010, h01=0x0050, text=» DATA REWRIT«, t00=0x000b, t01=0x00e2}
0x121e…1232              Head {h00=0x0010, h01=0x0050, text=» DATA DELETE«, t00=0x000b, t01=0x00f6}
0x1232…1246              Head {h00=0x0010, h01=0x0050, text=» DATA RANWRI«, t00=0x000b, t01=0x010a}
0x1246…125a              Head {h00=0x0010, h01=0x0050, text=» DATA DIREAD«, t00=0x000b, t01=0x011e}
0x125a…1270              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x000b, t01=0x0132}
0x1270…12a8              Head {h00=0x0034, h01=0x0050, text=»EXEEXT EQU *-EXEORD EXTEND DISPLACEMENT IN TABLE«, t00=0x000b, t01=0x0148}
0x12a8…12bc              Head {h00=0x0010, h01=0x0050, text=» DATA EXTEND«, t00=0x000b, t01=0x0180}
0x12bc…12c8 (12, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0004}
0x12c8…12d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0010}
0x12d2…12e8              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x000c, t01=0x001a}
0x12e8…12f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f2…1304              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000c, t01=0x003a}
0x1304…1316              Head {h00=0x000e, h01=0x0050, text=»* STAMAP *«, t00=0x000c, t01=0x004c}
0x1316…1328              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000c, t01=0x005e}
0x1328…1332              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0070}
0x1332…134a              Head {h00=0x0014, h01=0x0050, text=»*   STATUS BYTES«, t00=0x000c, t01=0x007a}
0x134a…1386              Head {h00=0x0038, h01=0x0050, text=»*   CHANGE SOME FM ERROR BITS TO STATUS INFORMATION «, t00=0x000c, t01=0x0092}
0x1386…1396              Head {h00=0x000c, h01=0x0050, text=»*   BIT:«, t00=0x000c, t01=0x00ce}
0x1396…13a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00de}
0x13a0…13aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e8}
0x13aa…13be              Head {h00=0x0010, h01=0x0050, text=»STAMAP EQU *«, t00=0x000c, t01=0x00f2}
0x13be…13d8              Head {h00=0x0016, h01=0x0050, text=» BYTE RSTWFO,0 1,2«, t00=0x000c, t01=0x0106}
0x13d8…13f2              Head {h00=0x0016, h01=0x0050, text=» BYTE 0,RSTUKF 3,4«, t00=0x000c, t01=0x0120}
0x13f2…1412              Head {h00=0x001c, h01=0x0050, text=» BYTE RSTOFL,RSTWFP 5,6 «, t00=0x000c, t01=0x013a}
0x1412…1428              Head {h00=0x0012, h01=0x0050, text=» BYTE 0,0 7,8 «, t00=0x000c, t01=0x015a}
0x1428…1444              Head {h00=0x0018, h01=0x0050, text=» BYTE RSTWFO,0 9,10 «, t00=0x000c, t01=0x0170}
0x1444…1460              Head {h00=0x0018, h01=0x0050, text=» BYTE RSTOFL,0 11,12«, t00=0x000c, t01=0x018c}
0x1460…146a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0018}
0x146a…1480              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x000d, t01=0x0022}
0x1480…148a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0038}
0x148a…1494              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0042}
0x1494…14a6              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x004c}
0x14a6…14b8              Head {h00=0x000e, h01=0x0050, text=»* FILORG *«, t00=0x000d, t01=0x005e}
0x14b8…14ca              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x0070}
0x14ca…14d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0082}
0x14d4…1506              Head {h00=0x002e, h01=0x0050, text=»*   TABLE OVER ALLOWED FILE ORGANIZATIONS «, t00=0x000d, t01=0x008c}
0x1506…1510              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00be}
0x1510…154c              Head {h00=0x0038, h01=0x0050, text=»BUFFNU EQU *-/100 BUFFER INDICATING RECORD NOT USED «, t00=0x000d, t01=0x00c8}
0x154c…1560              Head {h00=0x0010, h01=0x0050, text=»FILORG EQU *«, t00=0x000d, t01=0x0104}
0x1560…1578              Head {h00=0x0014, h01=0x0050, text=» DATA /5300 S,0 «, t00=0x000d, t01=0x0118}
0x1578…158a              Head {h00=0x000e, h01=0x0050, text=» DATA 'LX'«, t00=0x000d, t01=0x0130}
0x158a…1594              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0142}
0x1594…15aa              Head {h00=0x0012, h01=0x0050, text=»ADMBUF RES 40 «, t00=0x000d, t01=0x014c}
0x15aa…15c0              Head {h00=0x0012, h01=0x000e, text=» EJECT  ADMTSK«, t00=0x000d, t01=0x0162}
0x15c0…15ca              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000d, t01=0x0178}
0x15ca…15f0              Head {h00=0x0022, h01=0x0050, text=»*         A1 = 0 , RETURN CODE«, t00=0x000d, t01=0x0182}
0x15f0…1634              Head {h00=0x0040, h01=0x0050, text=»*         A4 = NUMBER OF SECTORS PER RECORD (NOT OPEN ORDER)«, t00=0x000e, t01=0x0018}
0x1634…165a              Head {h00=0x0022, h01=0x0050, text=»*   SET   A8 = ADM ECB ADDRESS«, t00=0x000e, t01=0x005c}
0x165a…1682              Head {h00=0x0024, h01=0x0050, text=»*         A9 = USER ECB ADDRESS «, t00=0x000e, t01=0x0082}
0x1682…16b0              Head {h00=0x002a, h01=0x0050, text=»*         A10= FILE DESCRIPTOR ADDRESS«, t00=0x000e, t01=0x00aa}
0x16b0…16f0              Head {h00=0x003c, h01=0x0050, text=»*         A12= ADDRESS TO FILE PARAMETER BLOCK (ADMBUF) «, t00=0x000e, t01=0x00d8}
0x16f0…171e              Head {h00=0x002a, h01=0x0050, text=»*         A11= FILE DESCRIPTOR ADDRESS«, t00=0x000e, t01=0x0118}
0x171e…1728              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0146}
0x1728…1732              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000e, t01=0x0150}
0x1732…1746              Head {h00=0x0010, h01=0x000c, text=»ADMTSK EQU *«, t00=0x000e, t01=0x015a}
0x1746…175a              Head {h00=0x0010, h01=0x0050, text=» LD A14,PRUN«, t00=0x000e, t01=0x016e}
0x175a…177e              Head {h00=0x0020, h01=0x0050, text=» ADKL A14,DMTTSB STACK BASE «, t00=0x000e, t01=0x0182}
0x177e…179e              Head {h00=0x001c, h01=0x0050, text=» LDR A10,A1 FDB ADDRESS «, t00=0x000f, t01=0x0016}
0x179e…17c8              Head {h00=0x0026, h01=0x0050, text=» LD A9,DWTECB,A10 USER ECB ADDRESS«, t00=0x000f, t01=0x0036}
0x17c8…17dc              Head {h00=0x0010, h01=0x0050, text=» LDR A8,A10 «, t00=0x000f, t01=0x0060}
0x17dc…1804              Head {h00=0x0024, h01=0x0050, text=» ADKL A8,FDBECB ADM ECB ADDRESS «, t00=0x000f, t01=0x0074}
0x1804…1828              Head {h00=0x0020, h01=0x0050, text=» LC A1,FWTFNR,A1 FILE NUMBER«, t00=0x000f, t01=0x009c}
0x1828…183c              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x000f, t01=0x00c0}
0x183c…185c              Head {h00=0x001c, h01=0x0050, text=» STR A1,A8 FILL ADM ECB «, t00=0x000f, t01=0x00d4}
0x185c…1886              Head {h00=0x0026, h01=0x0050, text=» LD A4,FDBRLE,A10 REQUESTED LENGTH«, t00=0x000f, t01=0x00f4}
0x1886…18aa              Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 IN CASE OF S FILE «, t00=0x000f, t01=0x011e}
0x18aa…18c0              Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/FF00«, t00=0x000f, t01=0x0142}
0x18c0…18e8              Head {h00=0x0024, h01=0x0050, text=» ST A4,ECBRL,A8 REQUESTED LENGTH«, t00=0x000f, t01=0x0158}
0x18e8…190e              Head {h00=0x0022, h01=0x0050, text=» CM ECBRC,A8 RESET RETURN CODE«, t00=0x000f, t01=0x0180}
0x190e…1936              Head {h00=0x0024, h01=0x0050, text=» LDR A13,A8 GET ADDRESS TO ECBCW«, t00=0x0010, t01=0x0016}
0x1936…194e              Head {h00=0x0014, h01=0x0050, text=» ADKL A13,ECBCW1«, t00=0x0010, t01=0x003e}
0x194e…1958              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x1958…196e              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0010, t01=0x0060}
0x196e…1978              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0076}
0x1978…1982              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0080}
0x1982…19ac              Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBCW1,A9 GET RECORD NUMBER«, t00=0x0010, t01=0x008a}
0x19ac…19c4              Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW2,A9«, t00=0x0010, t01=0x00b4}
0x19c4…19ee              Head {h00=0x0026, h01=0x0050, text=» RF(P) ADMT10 DOUBLE SUBTRACT ONE «, t00=0x0010, t01=0x00cc}
0x19ee…1a0e              Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/8000 CARRY BIT«, t00=0x0010, t01=0x00f6}
0x1a0e…1a20              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0010, t01=0x0116}
0x1a20…1a34              Head {h00=0x0010, h01=0x0050, text=»ADMT10 EQU *«, t00=0x0010, t01=0x0128}
0x1a34…1a46              Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0010, t01=0x013c}
0x1a46…1a68              Head {h00=0x001e, h01=0x0050, text=» STR A1,A13 FILL ADM ECBCW«, t00=0x0010, t01=0x014e}
0x1a68…1a7c              Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A13«, t00=0x0010, t01=0x0170}
0x1a7c…1a9c              Head {h00=0x001c, h01=0x0050, text=» LDR A11,A10 FDB ADDRESS«, t00=0x0010, t01=0x0184}
0x1a9c…1aca              Head {h00=0x002a, h01=0x0050, text=» SRL A4,8 NUMBER OF SECTORS PER RECORD«, t00=0x0011, t01=0x0014}
0x1aca…1afa              Head {h00=0x002c, h01=0x0050, text=» CF A14,DBLMUL CONVERT TO SECTOR ADDRESS«, t00=0x0011, t01=0x0042}
0x1afa…1b1a              Head {h00=0x001c, h01=0x0050, text=» IM 2,A13 DOUBLE ADD ONE«, t00=0x0011, t01=0x0072}
0x1b1a…1b38              Head {h00=0x001a, h01=0x0050, text=» RF(P) ADMT20 NO CARRY«, t00=0x0011, t01=0x0092}
0x1b38…1b4a              Head {h00=0x000e, h01=0x0050, text=» CM 2,A13 «, t00=0x0011, t01=0x00b0}
0x1b4a…1b5a              Head {h00=0x000c, h01=0x0050, text=» IMR A13«, t00=0x0011, t01=0x00c2}
0x1b5a…1b6e              Head {h00=0x0010, h01=0x0050, text=»ADMT20 EQU *«, t00=0x0011, t01=0x00d2}
0x1b6e…1b9a              Head {h00=0x0028, h01=0x0050, text=» LDKL A12,ADMBUF ADM BUFFER ADDRESS «, t00=0x0011, t01=0x00e6}
0x1b9a…1bbe              Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0011, t01=0x0112}
0x1bbe…1bde              Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR+1,A10 ORDER«, t00=0x0011, t01=0x0136}
0x1bde…1bf2              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0011, t01=0x0156}
0x1bf2…1c16              Head {h00=0x0020, h01=0x0050, text=» ABI EXEORD,A3 EXECUTE ORDER«, t00=0x0011, t01=0x016a}
0x1c16…1c20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018e}
0x1c20…1c36              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0012, t01=0x0008}
0x1c36…1c40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001e}
0x1c40…1c4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0028}
0x1c4a…1c5c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0032}
0x1c5c…1c6e              Head {h00=0x000e, h01=0x0050, text=»* DIREAD *«, t00=0x0012, t01=0x0044}
0x1c6e…1c80              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0012, t01=0x0056}
0x1c80…1c8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0068}
0x1c8a…1ca8              Head {h00=0x001a, h01=0x0050, text=»*   READ RECORD DIRECT«, t00=0x0012, t01=0x0072}
0x1ca8…1cb2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0090}
0x1cb2…1cbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009a}
0x1cbc…1cd0              Head {h00=0x0010, h01=0x0050, text=»DIREAD EQU *«, t00=0x0012, t01=0x00a4}
0x1cd0…1cf2              Head {h00=0x001e, h01=0x0050, text=» LDK A7,/91 PHYSICAL READ «, t00=0x0012, t01=0x00b8}
0x1cf2…1d18              Head {h00=0x0022, h01=0x0050, text=» CF A14,ADM:BA TO USER BUFFER «, t00=0x0012, t01=0x00da}
0x1d18…1d34              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ADMEXI ERROR«, t00=0x0012, t01=0x0100}
0x1d34…1d4e              Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBOMD,A10 «, t00=0x0012, t01=0x011c}
0x1d4e…1d70              Head {h00=0x001e, h01=0x0050, text=» RF(N) DIR100 X OR L FILE «, t00=0x0012, t01=0x0136}
0x1d70…1d96              Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A9 BUFFER ADDRESS«, t00=0x0012, t01=0x0158}
0x1d96…1dbc              Head {h00=0x0022, h01=0x0050, text=» AD A2,ECBRL,A8 END OF BUFFER «, t00=0x0012, t01=0x017e}
0x1dbc…1dd2              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0014}
0x1dd2…1de6              Head {h00=0x0010, h01=0x0050, text=» LC A1,-1,A2«, t00=0x0013, t01=0x002a}
0x1de6…1df2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x003e}
0x1df2…1e08              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x004a}
0x1e08…1e34              Head {h00=0x0028, h01=0x0050, text=» LD A1,DWTTAB,A10 USER TTAB ADDRESS «, t00=0x0013, t01=0x0060}
0x1e34…1e58              Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A1 USER MMU TABLE«, t00=0x0013, t01=0x008c}
0x1e58…1e74              Head {h00=0x0018, h01=0x0050, text=» EL A1,-2,A2 STATUS «, t00=0x0013, t01=0x00b0}
0x1e74…1e88              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0013, t01=0x00cc}
0x1e88…1eac              Head {h00=0x0020, h01=0x0050, text=» TL MONMMU MONITOR MMU TABLE«, t00=0x0013, t01=0x00e0}
0x1eac…1eb8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0104}
0x1eb8…1edc              Head {h00=0x0020, h01=0x0050, text=» SUK A1,/FF STATUS OF RECORD«, t00=0x0013, t01=0x0110}
0x1edc…1ef4              Head {h00=0x0014, h01=0x0050, text=» RF(Z) DIR100 OK«, t00=0x0013, t01=0x0134}
0x1ef4…1f18              Head {h00=0x0020, h01=0x0050, text=» LDKL A1,RC:NOD RC: NO DATA «, t00=0x0013, t01=0x014c}
0x1f18…1f32              Head {h00=0x0016, h01=0x0050, text=» RF ADMEX2 END IO «, t00=0x0013, t01=0x0170}
0x1f32…1f46              Head {h00=0x0010, h01=0x0050, text=»DIR100 EQU *«, t00=0x0013, t01=0x018a}
0x1f46…1f6e              Head {h00=0x0024, h01=0x0050, text=» LD A1,FDBRLE,A10 RECORD LENGTH «, t00=0x0014, t01=0x000e}
0x1f6e…1f86              Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBEL,A9 «, t00=0x0014, t01=0x0036}
0x1f86…1fa0              Head {h00=0x0016, h01=0x0050, text=» RF ADMEXI END IO «, t00=0x0014, t01=0x004e}
0x1fa0…1faa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0068}
0x1faa…1fc0              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0014, t01=0x0072}
0x1fc0…1fd6              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0014, t01=0x0088}
0x1fd6…1fe0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009e}
0x1fe0…1fea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a8}
0x1fea…1ffc              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x00b2}
0x1ffc…200e              Head {h00=0x000e, h01=0x0050, text=»* EXTEND *«, t00=0x0014, t01=0x00c4}
0x200e…2020              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x00d6}
0x2020…202a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e8}
0x202a…2060              Head {h00=0x0032, h01=0x0050, text=»*   EXTEND FILE AND CONTINUE SEQUENTIAL WRITE «, t00=0x0014, t01=0x00f2}
0x2060…206a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0128}
0x206a…2074              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0132}
0x2074…2088              Head {h00=0x0010, h01=0x0050, text=»EXTEND EQU *«, t00=0x0014, t01=0x013c}
0x2088…20b4              Head {h00=0x0028, h01=0x0050, text=» CF A14,ADMRFP READ FILE PARAMETERS «, t00=0x0014, t01=0x0150}
0x20b4…20e0              Head {h00=0x0028, h01=0x0050, text=» LD A1,FDBENL,A10 GET ENLARGE FACTOR«, t00=0x0014, t01=0x017c}
0x20e0…210a              Head {h00=0x0026, h01=0x0050, text=» ST A1,FPB:EL,A12 FILL IN ENLARGE «, t00=0x0015, t01=0x0018}
0x210a…2126              Head {h00=0x0018, h01=0x0050, text=» LDKL A7,/1A1 EXTEND«, t00=0x0015, t01=0x0042}
0x2126…2144              Head {h00=0x001a, h01=0x0050, text=» CF A14,ADM:AF EXTEND «, t00=0x0015, t01=0x005e}
0x2144…2160              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ADMEXI ERROR«, t00=0x0015, t01=0x007c}
0x2160…2184              Head {h00=0x0020, h01=0x0050, text=» LD A3,FDBOMD,A11 OPEN MODE «, t00=0x0015, t01=0x0098}
0x2184…2198              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/7F «, t00=0x0015, t01=0x00bc}
0x2198…21ae              Head {h00=0x0012, h01=0x0050, text=» SUK A3,EXEOOR«, t00=0x0015, t01=0x00d0}
0x21ae…21de              Head {h00=0x002c, h01=0x0050, text=» RF(NZ) SEQWRI NOT OPENED OUTPUT RANDOM «, t00=0x0015, t01=0x00e6}
0x21de…220a              Head {h00=0x0028, h01=0x0050, text=» CF A14,FORFIL FORMAT EXTENDED FILE «, t00=0x0015, t01=0x0116}
0x220a…2226              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ADMEXI ERROR«, t00=0x0015, t01=0x0142}
0x2226…2232              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x015e}
0x2232…2248              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0015, t01=0x016a}
0x2248…2252              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0180}
0x2252…225c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018a}
0x225c…226e (22, 0, 400) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0016, t01=0x0004}
0x226e…2280              Head {h00=0x000e, h01=0x0050, text=»* SEQWRI *«, t00=0x0016, t01=0x0016}
0x2280…2292              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0016, t01=0x0028}
0x2292…229c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x003a}
0x229c…22b8              Head {h00=0x0018, h01=0x0050, text=»*   SEQUENTIAL WRITE«, t00=0x0016, t01=0x0044}
0x22b8…22ee              Head {h00=0x0032, h01=0x0050, text=»*   INPUT :  A4 = NUMBER OF SECTORS PER RECORD«, t00=0x0016, t01=0x0060}
0x22ee…22f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0096}
0x22f8…2302              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a0}
0x2302…2316              Head {h00=0x0010, h01=0x0050, text=»SEQWRI EQU *«, t00=0x0016, t01=0x00aa}
0x2316…2344              Head {h00=0x002a, h01=0x0050, text=» CF A14,GETLRN GET LAST RECORD NUMBER «, t00=0x0016, t01=0x00be}
0x2344…2372              Head {h00=0x002a, h01=0x0050, text=» IM ECBCW2,A8 DOUBLE ADD ONE TO ECBCW «, t00=0x0016, t01=0x00ec}
0x2372…2394              Head {h00=0x001e, h01=0x0050, text=» RF(P) SEQW05 NO OVERFLOW «, t00=0x0016, t01=0x011a}
0x2394…23b4              Head {h00=0x001c, h01=0x0050, text=» IM ECBCW1,A8 INCREMENT «, t00=0x0016, t01=0x013c}
0x23b4…23ca              Head {h00=0x0012, h01=0x0050, text=» CM ECBCW2,A8 «, t00=0x0016, t01=0x015c}
0x23ca…23de              Head {h00=0x0010, h01=0x0050, text=»SEQW05 EQU *«, t00=0x0016, t01=0x0172}
0x23de…2400              Head {h00=0x001e, h01=0x0050, text=» LC A1,FDBLRN,A10 GET LRN «, t00=0x0016, t01=0x0186}
0x2400…2414              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0017, t01=0x0018}
0x2414…2430              Head {h00=0x0018, h01=0x0050, text=» LD A2,FDBLRN+1,A10 «, t00=0x0017, t01=0x002c}
0x2430…2448              Head {h00=0x0014, h01=0x0050, text=» ADK A2,1 LRN+1 «, t00=0x0017, t01=0x0048}
0x2448…246a              Head {h00=0x001e, h01=0x0050, text=» RF(P) SEQW06 NOT OVERFLOW«, t00=0x0017, t01=0x0060}
0x246a…247c              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0017, t01=0x0082}
0x247c…248e              Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0017, t01=0x0094}
0x248e…24a2              Head {h00=0x0010, h01=0x0050, text=»SEQW06 EQU *«, t00=0x0017, t01=0x00a6}
0x24a2…24ca              Head {h00=0x0024, h01=0x0050, text=» ST A1,ECBCW1,A9 LRN TO USER ECB«, t00=0x0017, t01=0x00ba}
0x24ca…24e2              Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW2,A9«, t00=0x0017, t01=0x00e2}
0x24e2…24ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00fa}
0x24ec…2502              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0017, t01=0x0104}
0x2502…250c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x011a}
0x250c…2516              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0124}
0x2516…2532              Head {h00=0x0018, h01=0x0050, text=» CF A14,ADMWRI WRITE«, t00=0x0017, t01=0x012e}
0x2532…2548              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=0 «, t00=0x0017, t01=0x014a}
0x2548…2564              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ADMEXI ERROR«, t00=0x0017, t01=0x0160}
0x2564…2570              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x017c}
0x2570…2586              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0017, t01=0x0188}
0x2586…25a4              Head {h00=0x001a, h01=0x0050, text=» RF(Z) SEQW10 WRITE OK«, t00=0x0018, t01=0x000e}
0x25a4…25b6              Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0018, t01=0x002c}
0x25b6…25dc              Head {h00=0x0022, h01=0x0050, text=» RF(NN) ADMEXI NOT END OF FILE«, t00=0x0018, t01=0x003e}
0x25dc…2604              Head {h00=0x0024, h01=0x0050, text=» LD A2,FDBENL,A10 ENLARGE FACTOR«, t00=0x0018, t01=0x0064}
0x2604…2634              Head {h00=0x002c, h01=0x0050, text=» RF(Z) ADMEXI NO ENLARGE FACTOR DECLARED«, t00=0x0018, t01=0x008c}
0x2634…2656              Head {h00=0x001e, h01=0x0050, text=» LDK A1,EXEEXT EXTEND FILE«, t00=0x0018, t01=0x00bc}
0x2656…2670              Head {h00=0x0016, h01=0x0050, text=» SC A1,DWTOR+1,A10«, t00=0x0018, t01=0x00de}
0x2670…2698              Head {h00=0x0024, h01=0x0050, text=» LDKL A8,ADMTSK DISPATCH ADDRESS«, t00=0x0018, t01=0x00f8}
0x2698…26b8              Head {h00=0x001c, h01=0x0050, text=» LDR A6,A10 FPB ADDRESS «, t00=0x0018, t01=0x0120}
0x26b8…26e2              Head {h00=0x0026, h01=0x0050, text=» ABL DMXACD ACTIVATE #D AFTER EXIT«, t00=0x0018, t01=0x0140}
0x26e2…26ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x016a}
0x26ec…26f8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0174}
0x26f8…270c              Head {h00=0x0010, h01=0x0050, text=»SEQW10 EQU *«, t00=0x0018, t01=0x0180}
0x270c…2732 (25, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LC A1,ECBCW1+1,A9 UPDATE LRN «, t00=0x0019, t01=0x0004}
0x2732…274c              Head {h00=0x0016, h01=0x0050, text=» SC A1,FDBLRN,A10 «, t00=0x0019, t01=0x002a}
0x274c…2764              Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW2,A9«, t00=0x0019, t01=0x0044}
0x2764…2780              Head {h00=0x0018, h01=0x0050, text=» ST A2,FDBLRN+1,A10 «, t00=0x0019, t01=0x005c}
0x2780…2792              Head {h00=0x000e, h01=0x0050, text=» RF ADMEXI«, t00=0x0019, t01=0x0078}
0x2792…279c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x008a}
0x279c…27b2              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0019, t01=0x0094}
0x27b2…27bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00aa}
0x27bc…27c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b4}
0x27c6…27d8              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x00be}
0x27d8…27ea              Head {h00=0x000e, h01=0x0050, text=»* REWRIT *«, t00=0x0019, t01=0x00d0}
0x27ea…27fc              Head {h00=0x000e, h01=0x0050, text=»* RANWRI *«, t00=0x0019, t01=0x00e2}
0x27fc…280e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0019, t01=0x00f4}
0x280e…2818              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0106}
0x2818…2832              Head {h00=0x0016, h01=0x0050, text=»*   REWRITE RECORD«, t00=0x0019, t01=0x0110}
0x2832…284a              Head {h00=0x0014, h01=0x0050, text=»*   RANDOM WRITE«, t00=0x0019, t01=0x012a}
0x284a…2854              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0142}
0x2854…285e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014c}
0x285e…2872              Head {h00=0x0010, h01=0x0050, text=»REWRIT EQU *«, t00=0x0019, t01=0x0156}
0x2872…2886              Head {h00=0x0010, h01=0x0050, text=»RANWRI EQU *«, t00=0x0019, t01=0x016a}
0x2886…28a2              Head {h00=0x0018, h01=0x0050, text=» CF A14,ADMWRI WRITE«, t00=0x0019, t01=0x017e}
0x28a2…28bc              Head {h00=0x0016, h01=0x0050, text=» RF ADMEXI END IO «, t00=0x001a, t01=0x000a}
0x28bc…28c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0024}
0x28c6…28dc              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x001a, t01=0x002e}
0x28dc…28e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0044}
0x28e6…28f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x004e}
0x28f0…2902              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001a, t01=0x0058}
0x2902…2914              Head {h00=0x000e, h01=0x0050, text=»* DELETE *«, t00=0x001a, t01=0x006a}
0x2914…2926              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001a, t01=0x007c}
0x2926…2930              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x008e}
0x2930…294a              Head {h00=0x0016, h01=0x0050, text=»*   DELETE RECORD «, t00=0x001a, t01=0x0098}
0x294a…2954              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b2}
0x2954…295e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00bc}
0x295e…2972              Head {h00=0x0010, h01=0x0050, text=»DELETE EQU *«, t00=0x001a, t01=0x00c6}
0x2972…299e              Head {h00=0x0028, h01=0x0050, text=» SUK A4,1 GET LAST SECTOR IN RECORD «, t00=0x001a, t01=0x00da}
0x299e…29b4              Head {h00=0x0012, h01=0x0050, text=» ADS A4,2,A13 «, t00=0x001a, t01=0x0106}
0x29b4…29d2              Head {h00=0x001a, h01=0x0050, text=» RF(P) DEL:10 NO CARRY«, t00=0x001a, t01=0x011c}
0x29d2…29e2              Head {h00=0x000c, h01=0x0050, text=» IMR A13«, t00=0x001a, t01=0x013a}
0x29e2…29f6              Head {h00=0x0010, h01=0x0050, text=» LDK A4,/FF «, t00=0x001a, t01=0x014a}
0x29f6…2a16              Head {h00=0x001c, h01=0x0050, text=» ANS A4,2,A13 NOT BIT 0 «, t00=0x001a, t01=0x015e}
0x2a16…2a2a              Head {h00=0x0010, h01=0x0050, text=»DEL:10 EQU *«, t00=0x001a, t01=0x017e}
0x2a2a…2a46 (27, 0, 400) Head {h00=0x0018, h01=0x0050, text=» CF A14,ADMWFO WRITE«, t00=0x001b, t01=0x0004}
0x2a46…2a5c              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x001b, t01=0x0020}
0x2a5c…2a66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0036}
0x2a66…2a70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0040}
0x2a70…2a82              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x004a}
0x2a82…2a94              Head {h00=0x000e, h01=0x0050, text=»* ADMEXI *«, t00=0x001b, t01=0x005c}
0x2a94…2aa6              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x006e}
0x2aa6…2ab0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0080}
0x2ab0…2aba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x008a}
0x2aba…2ad4              Head {h00=0x0016, h01=0x0050, text=»*   EXIT ADM TASK «, t00=0x001b, t01=0x0094}
0x2ad4…2ade              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ae}
0x2ade…2ae8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b8}
0x2ae8…2afc              Head {h00=0x0010, h01=0x0050, text=»ADMEXI EQU *«, t00=0x001b, t01=0x00c2}
0x2afc…2b20              Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBRC,A8 RETURN CODE «, t00=0x001b, t01=0x00d6}
0x2b20…2b46              Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/4E50 BITS TO STATUS «, t00=0x001b, t01=0x00fa}
0x2b46…2b6e              Head {h00=0x0024, h01=0x0050, text=» RF(Z) ADMEX2 NO BITS TO STATUS «, t00=0x001b, t01=0x0120}
0x2b6e…2b80              Head {h00=0x000e, h01=0x0050, text=» SLN A1,A6«, t00=0x001b, t01=0x0148}
0x2b80…2bac              Head {h00=0x0028, h01=0x0050, text=» LC A6,STAMAP,A6 STATUS INFORMATION «, t00=0x001b, t01=0x015a}
0x2bac…2bd6              Head {h00=0x0026, h01=0x0050, text=» CF A14,GETFDB FILE CODE ENTRY =1 «, t00=0x001b, t01=0x0186}
0x2bd6…2bf4              Head {h00=0x001a, h01=0x0050, text=» SCR A6,A4 SAVE STATUS«, t00=0x001c, t01=0x0020}
0x2bf4…2c2c              Head {h00=0x0034, h01=0x0050, text=» LDKL A1,/8080 REQUEST ERROR MORE INFORMATION =2«, t00=0x001c, t01=0x003e}
0x2c2c…2c3e              Head {h00=0x000e, h01=0x0050, text=» RF ADMEX3«, t00=0x001c, t01=0x0076}
0x2c3e…2c52              Head {h00=0x0010, h01=0x0050, text=»ADMEX2 EQU *«, t00=0x001c, t01=0x0088}
0x2c52…2c76              Head {h00=0x0020, h01=0x0050, text=» OR A1,ECBRC,A8 GET TOTAL RC«, t00=0x001c, t01=0x009c}
0x2c76…2c8a              Head {h00=0x0010, h01=0x0050, text=»ADMEX3 EQU *«, t00=0x001c, t01=0x00c0}
0x2c8a…2cb4              Head {h00=0x0026, h01=0x0050, text=» LDR A6,A10 FDB ADDRESS FOR TENDIO«, t00=0x001c, t01=0x00d4}
0x2cb4…2cc0              Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001c, t01=0x00fe}
0x2cc0…2ce6              Head {h00=0x0022, h01=0x0050, text=» CF A15,TENDIO PERFORM TENDIO «, t00=0x001c, t01=0x010a}
0x2ce6…2cf2              Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001c, t01=0x0130}
0x2cf2…2d04              Head {h00=0x000e, h01=0x0050, text=» LKM  EXIT«, t00=0x001c, t01=0x013c}
0x2d04…2d14              Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x001c, t01=0x014e}
0x2d14…2d1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x015e}
0x2d1e…2d34              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x001c, t01=0x0168}
0x2d34…2d42              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x017e}
0x2d42…2d4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x018c}
0x2d4c…2d56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0008}
0x2d56…2d68              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x0012}
0x2d68…2d7a              Head {h00=0x000e, h01=0x0050, text=»* OPENOR *«, t00=0x001d, t01=0x0024}
0x2d7a…2d8c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x0036}
0x2d8c…2d96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0048}
0x2d96…2db4              Head {h00=0x001a, h01=0x0050, text=»*   OPEN OUTPUT RANDOM«, t00=0x001d, t01=0x0052}
0x2db4…2dbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0070}
0x2dbe…2dd2              Head {h00=0x0010, h01=0x0050, text=»OPENOR EQU *«, t00=0x001d, t01=0x007a}
0x2dd2…2df4              Head {h00=0x001e, h01=0x0050, text=» CF A14,CREFIL CREATE FILE«, t00=0x001d, t01=0x008e}
0x2df4…2e16              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CLODIS DELETE FILE«, t00=0x001d, t01=0x00b0}
0x2e16…2e38              Head {h00=0x001e, h01=0x0050, text=» CF A14,FORFIL FORMAT FILE«, t00=0x001d, t01=0x00d2}
0x2e38…2e5a              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CLODIS DELETE FILE«, t00=0x001d, t01=0x00f4}
0x2e5a…2e76              Head {h00=0x0018, h01=0x0050, text=» RF EXIOPE EXIT TASK«, t00=0x001d, t01=0x0116}
0x2e76…2e80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0132}
0x2e80…2e96              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x001d, t01=0x013c}
0x2e96…2ea0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0152}
0x2ea0…2eaa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015c}
0x2eaa…2ebc              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x0166}
0x2ebc…2ece              Head {h00=0x000e, h01=0x0050, text=»* OPENEX *«, t00=0x001d, t01=0x0178}
0x2ece…2ee0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x018a}
0x2ee0…2eea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000c}
0x2eea…2ef4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0016}
0x2ef4…2f0c              Head {h00=0x0014, h01=0x0050, text=»*   OPEN EXTEND «, t00=0x001e, t01=0x0020}
0x2f0c…2f16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0038}
0x2f16…2f20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f20…2f34              Head {h00=0x0010, h01=0x0050, text=»OPENEX EQU *«, t00=0x001e, t01=0x004c}
0x2f34…2f4a              Head {h00=0x0012, h01=0x0050, text=» CF A14,OPFILE«, t00=0x001e, t01=0x0060}
0x2f4a…2f70              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) CLO450 CLOSE IF OPENED«, t00=0x001e, t01=0x0076}
0x2f70…2f86              Head {h00=0x0012, h01=0x0050, text=» CF A14,ENLFAC«, t00=0x001e, t01=0x009c}
0x2f86…2fa2              Head {h00=0x0018, h01=0x0050, text=» RF(O) CLO450 CLOSE «, t00=0x001e, t01=0x00b2}
0x2fa2…2fc4              Head {h00=0x001e, h01=0x0050, text=» ST A3,FDBENL,A11 ENLARGE «, t00=0x001e, t01=0x00ce}
0x2fc4…2fdc              Head {h00=0x0014, h01=0x0050, text=» RF EXIOPE EXIT «, t00=0x001e, t01=0x00f0}
0x2fdc…2fe6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0108}
0x2fe6…2ff2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0112}
0x2ff2…3008              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x001e, t01=0x011e}
0x3008…3012              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0134}
0x3012…301c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x013e}
0x301c…302e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x0148}
0x302e…3040              Head {h00=0x000e, h01=0x0050, text=»* OPENFI *«, t00=0x001e, t01=0x015a}
0x3040…3052              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001e, t01=0x016c}
0x3052…305c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x017e}
0x305c…307a              Head {h00=0x001a, h01=0x0050, text=»*   OPEN EXISTING FILE«, t00=0x001e, t01=0x0188}
0x307a…3084              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0016}
0x3084…308e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0020}
0x308e…30a2              Head {h00=0x0010, h01=0x0050, text=»OPENFI EQU *«, t00=0x001f, t01=0x002a}
0x30a2…30c2              Head {h00=0x001c, h01=0x0050, text=» CF A14,OPFILE OPEN FILE«, t00=0x001f, t01=0x003e}
0x30c2…30ea              Head {h00=0x0024, h01=0x0050, text=» RF(NZ) CLO450 ERROR:CLOSE FILE «, t00=0x001f, t01=0x005e}
0x30ea…30fe              Head {h00=0x0010, h01=0x0050, text=»EXIOPE EQU *«, t00=0x001f, t01=0x0086}
0x30fe…3128              Head {h00=0x0026, h01=0x0050, text=» CF A14,CONPAR CONVERT PARAMETERS «, t00=0x001f, t01=0x009a}
0x3128…3152              Head {h00=0x0026, h01=0x0050, text=» CF A14,GETFDB FILE CODE ENTRY =1 «, t00=0x001f, t01=0x00c4}
0x3152…3180              Head {h00=0x002a, h01=0x0050, text=» ST A11,2,A4 CONNECT FILE CODE TO FDB «, t00=0x001f, t01=0x00ee}
0x3180…3192              Head {h00=0x000e, h01=0x0050, text=» RB ADMEXI«, t00=0x001f, t01=0x011c}
0x3192…319c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012e}
0x319c…31b2              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x001f, t01=0x0138}
0x31b2…31c8              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x001f, t01=0x014e}
0x31c8…31d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0164}
0x31d2…31dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x016e}
0x31dc…31ee              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001f, t01=0x0178}
0x31ee…3200              Head {h00=0x000e, h01=0x0050, text=»* OPENOS *«, t00=0x001f, t01=0x018a}
0x3200…3212              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0020, t01=0x000c}
0x3212…321c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x001e}
0x321c…323e              Head {h00=0x001e, h01=0x0050, text=»*   OPEN OUTPUT SEQUENTIAL«, t00=0x0020, t01=0x0028}
0x323e…3248              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x004a}
0x3248…3252              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0054}
0x3252…3266              Head {h00=0x0010, h01=0x0050, text=»OPENOS EQU *«, t00=0x0020, t01=0x005e}
0x3266…3288              Head {h00=0x001e, h01=0x0050, text=» CF A14,CREFIL CREATE FILE«, t00=0x0020, t01=0x0072}
0x3288…32a6              Head {h00=0x001a, h01=0x0050, text=» RB(Z) EXIOPE NO ERROR«, t00=0x0020, t01=0x0094}
0x32a6…32b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00b2}
0x32b0…32bc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x00bc}
0x32bc…32d2              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0020, t01=0x00c8}
0x32d2…32dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00de}
0x32dc…32e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00e8}
0x32e6…32f8              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0020, t01=0x00f2}
0x32f8…330a              Head {h00=0x000e, h01=0x0050, text=»* CLODIS *«, t00=0x0020, t01=0x0104}
0x330a…331c              Head {h00=0x000e, h01=0x0050, text=»* CLOLCK *«, t00=0x0020, t01=0x0116}
0x331c…332e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0020, t01=0x0128}
0x332e…3338              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013a}
0x3338…3352              Head {h00=0x0016, h01=0x0050, text=»*   CLOSE DISCARD «, t00=0x0020, t01=0x0144}
0x3352…3368              Head {h00=0x0012, h01=0x0050, text=»*   CLOSE LOCK«, t00=0x0020, t01=0x015e}
0x3368…3372              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0174}
0x3372…337c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x017e}
0x337c…3392              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0020, t01=0x0188}
0x3392…33a6              Head {h00=0x0010, h01=0x0050, text=»CLODIS EQU *«, t00=0x0021, t01=0x000e}
0x33a6…33c8              Head {h00=0x001e, h01=0x0050, text=» LDKL A7,/2A2 DELETE FILE «, t00=0x0021, t01=0x0022}
0x33c8…33da              Head {h00=0x000e, h01=0x0050, text=» RF CLO500«, t00=0x0021, t01=0x0044}
0x33da…33e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0056}
0x33e4…33ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0060}
0x33ee…33fa              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x006a}
0x33fa…340e              Head {h00=0x0010, h01=0x0050, text=»CLOLCK EQU *«, t00=0x0021, t01=0x0076}
0x340e…3424              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0021, t01=0x008a}
0x3424…3448              Head {h00=0x0020, h01=0x0050, text=» LC A3,FDBOMD,A11 OPEN MODE «, t00=0x0021, t01=0x00a0}
0x3448…345c              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/7F «, t00=0x0021, t01=0x00c4}
0x345c…3472              Head {h00=0x0012, h01=0x0050, text=» SUK A3,EXEOOR«, t00=0x0021, t01=0x00d8}
0x3472…34a4              Head {h00=0x002e, h01=0x0050, text=» RF(NP) CLO400 OPENED OUTPUT SEQ OR EXTEND«, t00=0x0021, t01=0x00ee}
0x34a4…34ce              Head {h00=0x0026, h01=0x0050, text=» CF A14,FORFIL FORMAT REST OF FILE«, t00=0x0021, t01=0x0120}
0x34ce…34da              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x014a}
0x34da…34e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0156}
0x34e4…34fa              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0021, t01=0x0160}
0x34fa…3504              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0176}
0x3504…350e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0180}
0x350e…352e              Head {h00=0x001c, h01=0x0050, text=»CLO400 EQU * CLOSE FILE «, t00=0x0021, t01=0x018a}
0x352e…3562              Head {h00=0x0030, h01=0x0050, text=» LC A2,FDBLRN,A11 LAST RECORD NUMBER TO FPB «, t00=0x0022, t01=0x001a}
0x3562…3576              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0022, t01=0x004e}
0x3576…3590              Head {h00=0x0016, h01=0x0050, text=» ST A2,FPB:FR,A12 «, t00=0x0022, t01=0x0062}
0x3590…35ac              Head {h00=0x0018, h01=0x0050, text=» LD A2,FDBLRN+1,A11 «, t00=0x0022, t01=0x007c}
0x35ac…35c8              Head {h00=0x0018, h01=0x0050, text=» ST A2,FPB:FR+2,A12 «, t00=0x0022, t01=0x0098}
0x35c8…35f6              Head {h00=0x002a, h01=0x0050, text=»CLO450 EQU * CLOSE WITHOUT SETTING LRN«, t00=0x0022, t01=0x00b4}
0x35f6…3614              Head {h00=0x001a, h01=0x0050, text=» LDK A7,/A2 CLOSE FILE«, t00=0x0022, t01=0x00e2}
0x3614…3628              Head {h00=0x0010, h01=0x0050, text=»CLO500 EQU *«, t00=0x0022, t01=0x0100}
0x3628…364c              Head {h00=0x0020, h01=0x0050, text=» LDR A3,A1 SAVE RETURN CODE «, t00=0x0022, t01=0x0114}
0x364c…3660              Head {h00=0x0010, h01=0x0050, text=» LDR A11,A11«, t00=0x0022, t01=0x0138}
0x3660…3686              Head {h00=0x0022, h01=0x0050, text=» RB(Z) ADMEXI FILE NOT OPENED «, t00=0x0022, t01=0x014c}
0x3686…36a8              Head {h00=0x001e, h01=0x0050, text=» CF A14,ADM:AF CLOSE FILE «, t00=0x0022, t01=0x0172}
0x36a8…36d4 (35, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ORS A3,ECBRC,A8 UPDATE RETURN CODE «, t00=0x0023, t01=0x0004}
0x36d4…36e6              Head {h00=0x000e, h01=0x0050, text=» RB ADMEXI«, t00=0x0023, t01=0x0030}
0x36e6…36f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0042}
0x36f0…3706              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0023, t01=0x004c}
0x3706…3710              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0062}
0x3710…371a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006c}
0x371a…372c              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0023, t01=0x0076}
0x372c…373e              Head {h00=0x000e, h01=0x0050, text=»* REFIPA *«, t00=0x0023, t01=0x0088}
0x373e…3750              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0023, t01=0x009a}
0x3750…375a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ac}
0x375a…377a              Head {h00=0x001c, h01=0x0050, text=»*   READ FILE PARAMETERS«, t00=0x0023, t01=0x00b6}
0x377a…3784              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d6}
0x3784…3798              Head {h00=0x0010, h01=0x0050, text=»REFIPA EQU *«, t00=0x0023, t01=0x00e0}
0x3798…37c4              Head {h00=0x0028, h01=0x0050, text=» CF A14,ADMRFP READ FILE PARAMETERS «, t00=0x0023, t01=0x00f4}
0x37c4…37e6              Head {h00=0x001e, h01=0x0050, text=» RB(NZ) ADMEXI READ ERROR «, t00=0x0023, t01=0x0120}
0x37e6…37fc              Head {h00=0x0012, h01=0x0050, text=» CF A14,CONPAR«, t00=0x0023, t01=0x0142}
0x37fc…381e              Head {h00=0x001e, h01=0x0050, text=» ST A5,ECBEL,A9 FPB LENGTH«, t00=0x0023, t01=0x0158}
0x381e…383c              Head {h00=0x001a, h01=0x0050, text=» CM ECBCW1,A9 SET CRN «, t00=0x0023, t01=0x017a}
0x383c…3852              Head {h00=0x0012, h01=0x0050, text=» CM ECBCW2,A9 «, t00=0x0024, t01=0x0008}
0x3852…386a              Head {h00=0x0014, h01=0x0050, text=» RB ADMEXI EXIT «, t00=0x0024, t01=0x001e}
0x386a…3874              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0036}
0x3874…3882              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0040}
0x3882…388c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x004e}
0x388c…3896              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0058}
0x3896…38b2              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0024, t01=0x0062}
0x38b2…38ce              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0024, t01=0x007e}
0x38ce…38ea              Head {h00=0x0018, h01=0x0050, text=»*   SUBROUTINES   * «, t00=0x0024, t01=0x009a}
0x38ea…3906              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0024, t01=0x00b6}
0x3906…3922              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0024, t01=0x00d2}
0x3922…392c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ee}
0x392c…393e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0024, t01=0x00f8}
0x393e…3950              Head {h00=0x000e, h01=0x0050, text=»* GETFDB *«, t00=0x0024, t01=0x010a}
0x3950…3962              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0024, t01=0x011c}
0x3962…396c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012e}
0x396c…39a2              Head {h00=0x0032, h01=0x0050, text=»*   GET FILE CODE ENTRY IN USER TTAB OR CDTAB «, t00=0x0024, t01=0x0138}
0x39a2…39ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x016e}
0x39ac…39c0              Head {h00=0x0010, h01=0x0050, text=»GETFDB EQU *«, t00=0x0024, t01=0x0178}
0x39c0…39f2              Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTTAB,A10 TTAB ADDRESS OF USER =1 «, t00=0x0024, t01=0x018c}
0x39f2…3a12              Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A9 FILE CODE =1«, t00=0x0025, t01=0x002e}
0x3a12…3a2a              Head {h00=0x0014, h01=0x0050, text=» ANK A2,/FF  =1 «, t00=0x0025, t01=0x004e}
0x3a2a…3a52              Head {h00=0x0024, h01=0x0050, text=» LDK A5,0 SEARCH BOTH TABLES =1 «, t00=0x0025, t01=0x0066}
0x3a52…3a6c              Head {h00=0x0016, h01=0x0050, text=» CF A14,FNDFDB  =1«, t00=0x0025, t01=0x008e}
0x3a6c…3a80              Head {h00=0x0010, h01=0x0050, text=» RTN A14  =1«, t00=0x0025, t01=0x00a8}
0x3a80…3a8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00bc}
0x3a8a…3aa0              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0025, t01=0x00c6}
0x3aa0…3aaa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00dc}
0x3aaa…3abc              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x00e6}
0x3abc…3ace              Head {h00=0x000e, h01=0x0050, text=»* GETFPB *«, t00=0x0025, t01=0x00f8}
0x3ace…3ae0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0025, t01=0x010a}
0x3ae0…3aea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x011c}
0x3aea…3b1c              Head {h00=0x002e, h01=0x0050, text=»*   GET FILE PARAMETER BLOCK TO ADM BUFFER«, t00=0x0025, t01=0x0126}
0x3b1c…3b26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0158}
0x3b26…3b50              Head {h00=0x0026, h01=0x0050, text=»*   INPUT : A9 = USER ECB ADDRESS «, t00=0x0025, t01=0x0162}
0x3b50…3b74              Head {h00=0x0020, h01=0x0050, text=»*           A10= FDB ADDRESS«, t00=0x0025, t01=0x018c}
0x3b74…3b98              Head {h00=0x0020, h01=0x0050, text=»*           A12= FPB ADDRESS«, t00=0x0026, t01=0x0020}
0x3b98…3bc6              Head {h00=0x002a, h01=0x0050, text=»*   OUTPUT: A5=TTAB ADDRESS USER TASK «, t00=0x0026, t01=0x0044}
0x3bc6…3bfc              Head {h00=0x0032, h01=0x0050, text=»*             A4=NUMBER OF SECTORS PER RECORD «, t00=0x0026, t01=0x0072}
0x3bfc…3c22              Head {h00=0x0022, h01=0x0050, text=»*            A1,A2,A3 ARE USED«, t00=0x0026, t01=0x00a8}
0x3c22…3c2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ce}
0x3c2c…3c40              Head {h00=0x0010, h01=0x0050, text=»GETFPB EQU *«, t00=0x0026, t01=0x00d8}
0x3c40…3c70              Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTTAB,A10 GET USER TTAB ADDRESS «, t00=0x0026, t01=0x00ec}
0x3c70…3c94              Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBBA,A9 FPB ADDRESS «, t00=0x0026, t01=0x011c}
0x3c94…3cba              Head {h00=0x0022, h01=0x0050, text=» LDR A2,A12 ADM BUFFER ADDRESS«, t00=0x0026, t01=0x0140}
0x3cba…3ce0              Head {h00=0x0022, h01=0x0050, text=» LDK A3,FPBLLE-8 LENGTH OF FPB«, t00=0x0026, t01=0x0166}
0x3ce0…3d00              Head {h00=0x001c, h01=0x0050, text=» ADK A1,8 NOT FIRST PART«, t00=0x0026, t01=0x018c}
0x3d00…3d34              Head {h00=0x0030, h01=0x0050, text=» CF A14,MOV:US FILE DESCRIPTOR TO WORK AREA «, t00=0x0027, t01=0x001c}
0x3d34…3d70              Head {h00=0x0038, h01=0x0050, text=» LC A3,FPB:FO,A12 CONVERT FILE ORGANISATION TO ASCII«, t00=0x0027, t01=0x0050}
0x3d70…3d88              Head {h00=0x0014, h01=0x0050, text=» LC A1,FILORG,A3«, t00=0x0027, t01=0x008c}
0x3d88…3da8              Head {h00=0x001c, h01=0x0050, text=» SC A1,FPB:FO,A12 ASCII «, t00=0x0027, t01=0x00a4}
0x3da8…3db2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c4}
0x3db2…3dc8              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0027, t01=0x00ce}
0x3dc8…3dd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00e4}
0x3dd2…3ddc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ee}
0x3ddc…3df0              Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0027, t01=0x00f8}
0x3df0…3e14              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) GETF20 L- OR X-FILE «, t00=0x0027, t01=0x010c}
0x3e14…3e3e              Head {h00=0x0026, h01=0x0050, text=» LDK A1,FPBLLE-FPBSLE REST OF FPB «, t00=0x0027, t01=0x0130}
0x3e3e…3e64              Head {h00=0x0022, h01=0x0050, text=» ADK A2,FPBLLE-8 END OF BUFFER«, t00=0x0027, t01=0x015a}
0x3e64…3e8a              Head {h00=0x0022, h01=0x0050, text=»GETF10 EQU * CLEAR REST OF FPB«, t00=0x0027, t01=0x0180}
0x3e8a…3ea4              Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 ADDRESS «, t00=0x0028, t01=0x0016}
0x3ea4…3eb4              Head {h00=0x000c, h01=0x0050, text=» CMR A2 «, t00=0x0028, t01=0x0030}
0x3eb4…3ec6              Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0028, t01=0x0040}
0x3ec6…3ee6              Head {h00=0x001c, h01=0x0050, text=» RB(P) GETF10 NEXT WORD «, t00=0x0028, t01=0x0052}
0x3ee6…3f14              Head {h00=0x002a, h01=0x0050, text=» LDKL A2,'00' ZEROIZE RETENTION PERIOD«, t00=0x0028, t01=0x0072}
0x3f14…3f2e              Head {h00=0x0016, h01=0x0050, text=» ST A2,FPB:RP,A12 «, t00=0x0028, t01=0x00a0}
0x3f2e…3f4a              Head {h00=0x0018, h01=0x0050, text=» SC A2,FPB:RP+2,A12 «, t00=0x0028, t01=0x00ba}
0x3f4a…3f5e              Head {h00=0x0010, h01=0x0050, text=»GETF20 EQU *«, t00=0x0028, t01=0x00d6}
0x3f5e…3f80              Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 SHAREABILITY = 0«, t00=0x0028, t01=0x00ea}
0x3f80…3f9a              Head {h00=0x0016, h01=0x0050, text=» SC A4,FPB:SH,A12 «, t00=0x0028, t01=0x010c}
0x3f9a…3fc2              Head {h00=0x0024, h01=0x0050, text=» LD A4,FPB:RL,A12 RECORD LENGTH «, t00=0x0028, t01=0x0126}
0x3fc2…3fe6              Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 IN CASE OF S-FILE «, t00=0x0028, t01=0x014e}
0x3fe6…4014              Head {h00=0x002a, h01=0x0050, text=» SRL A4,8 NUMBER OF SECTORS PER RECORD«, t00=0x0028, t01=0x0172}
0x4014…4038              Head {h00=0x0020, h01=0x0050, text=» SUK A3,2 FILE ORGANIZATION «, t00=0x0029, t01=0x0010}
0x4038…405a              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) GETF30 NOT L-FILE «, t00=0x0029, t01=0x0034}
0x405a…4076              Head {h00=0x0018, h01=0x0050, text=» CM FPB:RL,A12 RL=0 «, t00=0x0029, t01=0x0056}
0x4076…408a              Head {h00=0x0010, h01=0x0050, text=»GETF30 EQU *«, t00=0x0029, t01=0x0072}
0x408a…409a              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0086}
0x409a…40a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0096}
0x40a4…40ba              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0029, t01=0x00a0}
0x40ba…40c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00b6}
0x40c4…40ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c0}
0x40ce…40e0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00ca}
0x40e0…40f2              Head {h00=0x000e, h01=0x0050, text=»* CONPAR *«, t00=0x0029, t01=0x00dc}
0x40f2…4104              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0029, t01=0x00ee}
0x4104…410e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0100}
0x410e…4118              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x010a}
0x4118…414e              Head {h00=0x0032, h01=0x0050, text=»*   CONVERT PARAMETERS IN FILE PARAMETER BLOCK«, t00=0x0029, t01=0x0114}
0x414e…4158              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x014a}
0x4158…417e              Head {h00=0x0022, h01=0x0050, text=»*   INPUT : A12 = FPB ADDRESS «, t00=0x0029, t01=0x0154}
0x417e…41a4              Head {h00=0x0022, h01=0x0050, text=»*           A10 = FDB ADDRESS «, t00=0x0029, t01=0x017a}
0x41a4…41d4              Head {h00=0x002c, h01=0x0050, text=»*           A11=FDB ADDRESS OPENED FILE «, t00=0x002a, t01=0x0010}
0x41d4…41f8              Head {h00=0x0020, h01=0x0050, text=»*   OUTPUT:  A5 = FPB LENGTH«, t00=0x002a, t01=0x0040}
0x41f8…4218              Head {h00=0x001c, h01=0x0050, text=»*             A4 IS USED«, t00=0x002a, t01=0x0064}
0x4218…424a              Head {h00=0x002e, h01=0x0050, text=»*             A1,A2,A3,A6,A7,A13 ARE USED «, t00=0x002a, t01=0x0084}
0x424a…4254              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00b6}
0x4254…4268              Head {h00=0x0010, h01=0x0050, text=»CONPAR EQU *«, t00=0x002a, t01=0x00c0}
0x4268…4294              Head {h00=0x0028, h01=0x0050, text=» LDK A2,FPBSLE FPB LENGTH OF S-FILE «, t00=0x002a, t01=0x00d4}
0x4294…42c0              Head {h00=0x0028, h01=0x0050, text=» LC A1,FPB:FO,A12 FILE ORGANIZATION «, t00=0x002a, t01=0x0100}
0x42c0…42e6              Head {h00=0x0022, h01=0x0050, text=» SUK A1,'S' CONVERT TO NUMBER «, t00=0x002a, t01=0x012c}
0x42e6…42fc              Head {h00=0x0012, h01=0x0050, text=» RF(Z) CON100 «, t00=0x002a, t01=0x0152}
0x42fc…432c              Head {h00=0x002c, h01=0x0050, text=» LDK A2,FPBLLE FPB LENGTH OF L-OR X-FILE«, t00=0x002a, t01=0x0168}
0x432c…4344              Head {h00=0x0014, h01=0x0050, text=» LDK A1,2 L-FILE«, t00=0x002b, t01=0x0008}
0x4344…435a              Head {h00=0x0012, h01=0x0050, text=» RF(L) CON100 «, t00=0x002b, t01=0x0020}
0x435a…4372              Head {h00=0x0014, h01=0x0050, text=» LDK A1,3 X-FILE«, t00=0x002b, t01=0x0036}
0x4372…4386              Head {h00=0x0010, h01=0x0050, text=»CON100 EQU *«, t00=0x002b, t01=0x004e}
0x4386…4390              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0062}
0x4390…43a6              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x002b, t01=0x006c}
0x43a6…43b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0082}
0x43b0…43ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x008c}
0x43ba…43de              Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBRL,A8 SAVE LENGTH «, t00=0x002b, t01=0x0096}
0x43de…4410              Head {h00=0x002e, h01=0x0050, text=» SC A1,FPB:FO,A12 FILE ORGANIZATION NUMBER«, t00=0x002b, t01=0x00ba}
0x4410…442e              Head {h00=0x001a, h01=0x0050, text=» ANK A1,2 L OR X FILE «, t00=0x002b, t01=0x00ec}
0x442e…4440              Head {h00=0x000e, h01=0x0050, text=» SRC A1,2 «, t00=0x002b, t01=0x010a}
0x4440…446e              Head {h00=0x002a, h01=0x0050, text=» ORS A1,FDBOMD,A11 INDICATE FILE TYPE «, t00=0x002b, t01=0x011c}
0x446e…448c              Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 DEVICE TYPE «, t00=0x002b, t01=0x014a}
0x448c…44a6              Head {h00=0x0016, h01=0x0050, text=» SC A1,FPB:DT,A12 «, t00=0x002b, t01=0x0168}
0x44a6…44cc              Head {h00=0x0022, h01=0x0050, text=» LC A1,FWTFNR,A11 FILE NUMBER «, t00=0x002b, t01=0x0182}
0x44cc…44de              Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x002c, t01=0x0018}
0x44de…4514              Head {h00=0x0032, h01=0x0050, text=» ST A1,FPB:NO,A12 DATA FILE,INDEX FILE NUMBER «, t00=0x002c, t01=0x002a}
0x4514…452a              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x002c, t01=0x0060}
0x452a…4556              Head {h00=0x0028, h01=0x0050, text=» CF A14,CONENL ENLARGE IN PERCENTAGE«, t00=0x002c, t01=0x0076}
0x4556…4562              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00a2}
0x4562…4578              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=0 «, t00=0x002c, t01=0x00ae}
0x4578…458e              Head {h00=0x0012, h01=0x0050, text=» CM FPB:EL,A12«, t00=0x002c, t01=0x00c4}
0x458e…459a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00da}
0x459a…45c2              Head {h00=0x0024, h01=0x0050, text=» LD A4,FDBRLE,A11 RECORD LENGTH «, t00=0x002c, t01=0x00e6}
0x45c2…45ea              Head {h00=0x0024, h01=0x0050, text=» ST A4,FPB:RL,A12 RECORD LENGTH «, t00=0x002c, t01=0x010e}
0x45ea…460e              Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 IN CASE OF S-FILE «, t00=0x002c, t01=0x0136}
0x460e…4632              Head {h00=0x0020, h01=0x0050, text=» SRL A4,8 NUMBER OF SECTORS «, t00=0x002c, t01=0x015a}
0x4632…463c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x017e}
0x463c…4652              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x002c, t01=0x0188}
0x4652…465c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x000e}
0x465c…4666              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0018}
0x4666…467a              Head {h00=0x0010, h01=0x0050, text=» LDR A13,A12«, t00=0x002d, t01=0x0022}
0x467a…46a2              Head {h00=0x0024, h01=0x0050, text=» ADKL A13,FPB:S1 ADDRESS TO SIZE«, t00=0x002d, t01=0x0036}
0x46a2…46bc              Head {h00=0x0016, h01=0x0050, text=» LDK A5,4 COUNTER «, t00=0x002d, t01=0x005e}
0x46bc…46d0              Head {h00=0x0010, h01=0x0050, text=»CON500 EQU *«, t00=0x002d, t01=0x0078}
0x46d0…46e2              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002d, t01=0x008c}
0x46e2…46f6              Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A13«, t00=0x002d, t01=0x009e}
0x46f6…470c              Head {h00=0x0012, h01=0x0050, text=» RF(Z) CON600 «, t00=0x002d, t01=0x00b2}
0x470c…4732              Head {h00=0x0022, h01=0x0050, text=» LDR A6,A4 SECTORS PER RECORD «, t00=0x002d, t01=0x00c8}
0x4732…4748              Head {h00=0x0012, h01=0x0050, text=» CF A14,DIVMOD«, t00=0x002d, t01=0x00ee}
0x4748…476a              Head {h00=0x001e, h01=0x0050, text=» STR A2,A13 MOST SIGN PART«, t00=0x002d, t01=0x0104}
0x476a…477e              Head {h00=0x0010, h01=0x0050, text=»CON600 EQU *«, t00=0x002d, t01=0x0126}
0x477e…479c              Head {h00=0x001a, h01=0x0050, text=» LD A2,2,A13 KEEP REST«, t00=0x002d, t01=0x013a}
0x479c…47cc              Head {h00=0x002c, h01=0x0050, text=» LDR A6,A4 NUMBER OF SECTORS PER RECORD «, t00=0x002d, t01=0x0158}
0x47cc…47e2              Head {h00=0x0012, h01=0x0050, text=» CF A14,DIVMOD«, t00=0x002d, t01=0x0188}
0x47e2…47f6              Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A13«, t00=0x002e, t01=0x000e}
0x47f6…4814              Head {h00=0x001a, h01=0x0050, text=» ADKL A13,10 NEXT SIZE«, t00=0x002e, t01=0x0022}
0x4814…4826              Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x002e, t01=0x0040}
0x4826…4852              Head {h00=0x0028, h01=0x0050, text=» RB(NZ) CON500 MORE SIZES TO CONVERT«, t00=0x002e, t01=0x0052}
0x4852…4874              Head {h00=0x001e, h01=0x0050, text=» LD A3,ECBRL,A8 FPB LENGTH«, t00=0x002e, t01=0x007e}
0x4874…4892              Head {h00=0x001a, h01=0x0050, text=» LDR A5,A3 SAVE LENGTH«, t00=0x002e, t01=0x00a0}
0x4892…48b8              Head {h00=0x0022, h01=0x0050, text=» LDR A1,A12 ADM BUFFER ADDRESS«, t00=0x002e, t01=0x00be}
0x48b8…48d0              Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A9 «, t00=0x002e, t01=0x00e4}
0x48d0…48f0              Head {h00=0x001c, h01=0x0050, text=» ADK A2,8 NOT FIRST PART«, t00=0x002e, t01=0x00fc}
0x48f0…4902              Head {h00=0x000e, h01=0x0050, text=» SUK A3,8 «, t00=0x002e, t01=0x011c}
0x4902…492e              Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTTAB,A10 USER TTAB ADDRESS «, t00=0x002e, t01=0x012e}
0x492e…4956              Head {h00=0x0024, h01=0x0050, text=» CF A14,MOV:SU FPB TO USER AREA «, t00=0x002e, t01=0x015a}
0x4956…4966              Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002e, t01=0x0182}
0x4966…4970 (47, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0004}
0x4970…4986              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x002f, t01=0x000e}
0x4986…4990              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0024}
0x4990…499a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x002e}
0x499a…49ac              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x0038}
0x49ac…49be              Head {h00=0x000e, h01=0x0050, text=»* GETLRN *«, t00=0x002f, t01=0x004a}
0x49be…49d0              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x002f, t01=0x005c}
0x49d0…49da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x006e}
0x49da…4a00              Head {h00=0x0022, h01=0x0050, text=»*   CONVERT LAST RECORD NUMBER«, t00=0x002f, t01=0x0078}
0x4a00…4a0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x009e}
0x4a0a…4a2e              Head {h00=0x0020, h01=0x0050, text=»*   INPUT :  A8=ECB ADDRESS «, t00=0x002f, t01=0x00a8}
0x4a2e…4a52              Head {h00=0x0020, h01=0x0050, text=»*           A11=FDB ADDRESS «, t00=0x002f, t01=0x00cc}
0x4a52…4a5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f0}
0x4a5c…4a90              Head {h00=0x0030, h01=0x0050, text=»*   OUTPUT:  A4=NUMBER OF SECTORS PER RECORD«, t00=0x002f, t01=0x00fa}
0x4a90…4ac8              Head {h00=0x0034, h01=0x0050, text=»*           A13=ADDRESS TO CONTROLL WORDS IN ECB«, t00=0x002f, t01=0x012e}
0x4ac8…4af6              Head {h00=0x002a, h01=0x0050, text=»*            A1,A2=LRN SECTOR NUMBER-1«, t00=0x002f, t01=0x0166}
0x4af6…4b3a (48, 0, 400) Head {h00=0x0040, h01=0x0050, text=»*            ECBCW1,ECBCW2=LRN CONVERTED TO SECTOR NUMBER-1 «, t00=0x0030, t01=0x0004}
0x4b3a…4b5e              Head {h00=0x0020, h01=0x0050, text=»*            A6,A7 ARE USED «, t00=0x0030, t01=0x0048}
0x4b5e…4b68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x006c}
0x4b68…4b7c              Head {h00=0x0010, h01=0x0050, text=»GETLRN EQU *«, t00=0x0030, t01=0x0076}
0x4b7c…4ba4              Head {h00=0x0024, h01=0x0050, text=» LD A4,FDBRLE,A11 RECORD LENGTH «, t00=0x0030, t01=0x008a}
0x4ba4…4bb6              Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0030, t01=0x00b2}
0x4bb6…4bda              Head {h00=0x0020, h01=0x0050, text=» SRL A4,8 NUMBER OF SECTORS «, t00=0x0030, t01=0x00c4}
0x4bda…4bf4              Head {h00=0x0016, h01=0x0050, text=» LC A1,FDBLRN,A11 «, t00=0x0030, t01=0x00e8}
0x4bf4…4c08              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0030, t01=0x0102}
0x4c08…4c24              Head {h00=0x0018, h01=0x0050, text=» LD A2,FDBLRN+1,A11 «, t00=0x0030, t01=0x0116}
0x4c24…4c52              Head {h00=0x002a, h01=0x0050, text=» LDR A13,A8 ADDRESS TO CONTROLL WORDS «, t00=0x0030, t01=0x0132}
0x4c52…4c6a              Head {h00=0x0014, h01=0x0050, text=» ADKL A13,ECBCW1«, t00=0x0030, t01=0x0160}
0x4c6a…4c90              Head {h00=0x0022, h01=0x0050, text=» STR A1,A13 LAST RECORD NUMBER«, t00=0x0030, t01=0x0178}
0x4c90…4ca8              Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW2,A8«, t00=0x0031, t01=0x000e}
0x4ca8…4cd8              Head {h00=0x002c, h01=0x0050, text=» CF A14,DBLMUL CONVERT TO SECTOR ADDRESS«, t00=0x0031, t01=0x0026}
0x4cd8…4cea              Head {h00=0x000e, h01=0x0050, text=» RF RETA14«, t00=0x0031, t01=0x0056}
0x4cea…4cf4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0068}
0x4cf4…4d0a              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0031, t01=0x0072}
0x4d0a…4d14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0088}
0x4d14…4d1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0092}
0x4d1e…4d30              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x009c}
0x4d30…4d42              Head {h00=0x000e, h01=0x0050, text=»* OPFILE *«, t00=0x0031, t01=0x00ae}
0x4d42…4d54              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x00c0}
0x4d54…4d5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00d2}
0x4d5e…4d92              Head {h00=0x0030, h01=0x0050, text=»*   OPEN EXISTING FILE AND CHECH SHAREBILITY«, t00=0x0031, t01=0x00dc}
0x4d92…4d9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0110}
0x4d9c…4dc0              Head {h00=0x0020, h01=0x0050, text=»*   INPUT :  A8=ECB ADDRESS «, t00=0x0031, t01=0x011a}
0x4dc0…4dca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x013e}
0x4dca…4df6              Head {h00=0x0028, h01=0x0050, text=»*   OUTPUT :  A11 = NEW FPB ADDRESS «, t00=0x0031, t01=0x0148}
0x4df6…4e2c              Head {h00=0x0032, h01=0x0050, text=»*             A4=NUMBER OF SECTORS PER RECORD «, t00=0x0031, t01=0x0174}
0x4e2c…4e5a              Head {h00=0x002a, h01=0x0050, text=»*              A1,A2,A3,A5,A7 ARE USED«, t00=0x0032, t01=0x001a}
0x4e5a…4e64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0048}
0x4e64…4e6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0052}
0x4e6e…4e82              Head {h00=0x0010, h01=0x0050, text=»OPFILE EQU *«, t00=0x0032, t01=0x005c}
0x4e82…4e98              Head {h00=0x0012, h01=0x0050, text=» CF A14,GETFPB«, t00=0x0032, t01=0x0070}
0x4e98…4eb6              Head {h00=0x001a, h01=0x0050, text=» LDK A7,/A1 OPEN FILE «, t00=0x0032, t01=0x0086}
0x4eb6…4ed2              Head {h00=0x0018, h01=0x0050, text=» CF A14,ADMOPE OPEN «, t00=0x0032, t01=0x00a4}
0x4ed2…4eee              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) RETA14 ERROR«, t00=0x0032, t01=0x00c0}
0x4eee…4f16              Head {h00=0x0024, h01=0x0050, text=» LDKL A1,/8000 RC: REQUEST ERROR«, t00=0x0032, t01=0x00dc}
0x4f16…4f28              Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0032, t01=0x0104}
0x4f28…4f5a              Head {h00=0x002e, h01=0x0050, text=» LC A3,FPB:FO,A12 CHECK FILE ORGANIZATION «, t00=0x0032, t01=0x0116}
0x4f5a…4f6e              Head {h00=0x0010, h01=0x0050, text=» CCK A3,'SS'«, t00=0x0032, t01=0x0148}
0x4f6e…4f8a              Head {h00=0x0018, h01=0x0050, text=» RF(E) OPE100 S-FILE«, t00=0x0032, t01=0x015c}
0x4f8a…4f9c              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0032, t01=0x0178}
0x4f9c…4fb0              Head {h00=0x0010, h01=0x0050, text=» CCK A3,'LL'«, t00=0x0032, t01=0x018a}
0x4fb0…4fcc              Head {h00=0x0018, h01=0x0050, text=» RF(E) OPE100 L-FILE«, t00=0x0033, t01=0x000e}
0x4fcc…4fe0              Head {h00=0x0010, h01=0x0050, text=» CCK A3,'XX'«, t00=0x0033, t01=0x002a}
0x4fe0…500a              Head {h00=0x0026, h01=0x0050, text=» RF(NE) RETA14 NOT L-,S- OR X-FILE«, t00=0x0033, t01=0x003e}
0x500a…5014              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0068}
0x5014…502a              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0033, t01=0x0072}
0x502a…5034              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0088}
0x5034…503e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0092}
0x503e…5052              Head {h00=0x0010, h01=0x0050, text=»OPE100 EQU *«, t00=0x0033, t01=0x009c}
0x5052…507a              Head {h00=0x0024, h01=0x0050, text=» AD A2,FPB:RL,A12 RECORD LENGTH «, t00=0x0033, t01=0x00b0}
0x507a…508e              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0033, t01=0x00d8}
0x508e…50ba              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) RETA14 ILLEGAL RECORD LENGTH«, t00=0x0033, t01=0x00ec}
0x50ba…50e4              Head {h00=0x0026, h01=0x0050, text=» LC A2,FPB:BF,A12 BLOCKING FACTOR «, t00=0x0033, t01=0x0118}
0x50e4…50f6              Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0033, t01=0x0142}
0x50f6…5124              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) RETA14 ILLEGAL BLOCKING FACTOR«, t00=0x0033, t01=0x0154}
0x5124…5144              Head {h00=0x001c, h01=0x0050, text=» LDK A3,0 ENLARGE FACTOR«, t00=0x0033, t01=0x0182}
0x5144…5172              Head {h00=0x002a, h01=0x0050, text=» LC A1,FWTPAR,A11 GET NUMBER OF USERS «, t00=0x0034, t01=0x0012}
0x5172…518c              Head {h00=0x0016, h01=0x0050, text=» ANK A1,/3F 6 BITS«, t00=0x0034, t01=0x0040}
0x518c…519e              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0034, t01=0x005a}
0x519e…51bc              Head {h00=0x001a, h01=0x0050, text=» RF(Z) SETFDB 1ST OPEN«, t00=0x0034, t01=0x006c}
0x51bc…51d6              Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBEXC,A11 «, t00=0x0034, t01=0x008a}
0x51d6…5202              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) OPE900 FILE OPENED EXCLUSIVE«, t00=0x0034, t01=0x00a4}
0x5202…5226              Head {h00=0x0020, h01=0x0050, text=» LC A2,FDBOMD,A11 OPEN MODE «, t00=0x0034, t01=0x00d0}
0x5226…5248              Head {h00=0x001e, h01=0x0050, text=» ANK A2,/7F NOT FILE TYPE «, t00=0x0034, t01=0x00f4}
0x5248…5262              Head {h00=0x0016, h01=0x0050, text=» CC A2,DWTOR+1,A10«, t00=0x0034, t01=0x0116}
0x5262…529a              Head {h00=0x0034, h01=0x0050, text=» RF(E) RETA14 NO VIOLATION OF SHARABILITY ROULES«, t00=0x0034, t01=0x0130}
0x529a…52ae              Head {h00=0x0010, h01=0x0050, text=»OPE900 EQU *«, t00=0x0034, t01=0x0168}
0x52ae…52ea              Head {h00=0x0038, h01=0x0050, text=» LDK A1,/40 INDICATE VIOLATION OF SHAREBILITY ROULES«, t00=0x0034, t01=0x017c}
0x52ea…52fc              Head {h00=0x000e, h01=0x0050, text=» RF RETA14«, t00=0x0035, t01=0x0028}
0x52fc…5306              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x003a}
0x5306…531c              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0035, t01=0x0044}
0x531c…5326              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x005a}
0x5326…5330              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0064}
0x5330…5342              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x006e}
0x5342…5354              Head {h00=0x000e, h01=0x0050, text=»* DBLMUL *«, t00=0x0035, t01=0x0080}
0x5354…5366              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0035, t01=0x0092}
0x5366…5370              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a4}
0x5370…538c              Head {h00=0x0018, h01=0x0050, text=»*   DOUBLE MULTIPLY «, t00=0x0035, t01=0x00ae}
0x538c…5396              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ca}
0x5396…53b6              Head {h00=0x001c, h01=0x0050, text=»*    INPUT :   A4 = ARG1«, t00=0x0035, t01=0x00d4}
0x53b6…53e2              Head {h00=0x0028, h01=0x0050, text=»*              A13= ADDRESS TO ARG2 «, t00=0x0035, t01=0x00f4}
0x53e2…53ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0120}
0x53ec…541a              Head {h00=0x002a, h01=0x0050, text=»*   OUTPUT: CR SET ACCORDING TO RESULT«, t00=0x0035, t01=0x012a}
0x541a…543c              Head {h00=0x001e, h01=0x0050, text=»*           A6,A7 ARE USED«, t00=0x0035, t01=0x0158}
0x543c…545e              Head {h00=0x001e, h01=0x0050, text=»*           A1,A2 = RESULT«, t00=0x0035, t01=0x017a}
0x545e…5468              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x000c}
0x5468…547c              Head {h00=0x0010, h01=0x0050, text=»DBLMUL EQU *«, t00=0x0036, t01=0x0016}
0x547c…5494              Head {h00=0x0014, h01=0x0050, text=» LDR A6,A4 ARG1 «, t00=0x0036, t01=0x002a}
0x5494…54ba              Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A13 1ST PART OF ARG2 «, t00=0x0036, t01=0x0042}
0x54ba…54d0              Head {h00=0x0012, h01=0x0050, text=» RF(Z) DBLM10 «, t00=0x0036, t01=0x0068}
0x54d0…54e6              Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0036, t01=0x007e}
0x54e6…54f8              Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0036, t01=0x0094}
0x54f8…5518              Head {h00=0x001c, h01=0x0050, text=» RF(NZ) SETOVE OVERFLOW «, t00=0x0036, t01=0x00a6}
0x5518…552c              Head {h00=0x0010, h01=0x0050, text=» STR A2,A13 «, t00=0x0036, t01=0x00c6}
0x552c…5540              Head {h00=0x0010, h01=0x0050, text=»DBLM10 EQU *«, t00=0x0036, t01=0x00da}
0x5540…5552              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0036, t01=0x00ee}
0x5552…5564              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0036, t01=0x0100}
0x5564…557e              Head {h00=0x0016, h01=0x0050, text=» LD A7,2,A13 ARG2 «, t00=0x0036, t01=0x0112}
0x557e…5594              Head {h00=0x0012, h01=0x0050, text=» RF(Z) DBLM30 «, t00=0x0036, t01=0x012c}
0x5594…55ac              Head {h00=0x0014, h01=0x0050, text=» LDR A6,A4 ARG1 «, t00=0x0036, t01=0x0142}
0x55ac…55c2              Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0036, t01=0x015a}
0x55c2…55d6              Head {h00=0x0010, h01=0x0050, text=» ADR* A1,A13«, t00=0x0036, t01=0x0170}
0x55d6…55f4              Head {h00=0x001a, h01=0x0050, text=» RF(O) SETOVE OVERFLOW«, t00=0x0036, t01=0x0184}
0x55f4…55fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0012}
0x55fe…5614              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0037, t01=0x001c}
0x5614…561e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0032}
0x561e…5628              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x003c}
0x5628…563c              Head {h00=0x0010, h01=0x0050, text=»DBLM30 EQU *«, t00=0x0037, t01=0x0046}
0x563c…5650              Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A13«, t00=0x0037, t01=0x005a}
0x5650…5670              Head {h00=0x001c, h01=0x0050, text=» STR A1,A13 SAVE RESULT «, t00=0x0037, t01=0x006e}
0x5670…5684              Head {h00=0x0010, h01=0x0050, text=»RETA14 EQU *«, t00=0x0037, t01=0x008e}
0x5684…56a0              Head {h00=0x0018, h01=0x0050, text=» ABL RTNA14 RTN A14 «, t00=0x0037, t01=0x00a2}
0x56a0…56b4              Head {h00=0x0010, h01=0x0050, text=»SETOVE EQU *«, t00=0x0037, t01=0x00be}
0x56b4…56de              Head {h00=0x0026, h01=0x0050, text=» ABL SETCRO RTN A14 (SET OVERFLOW)«, t00=0x0037, t01=0x00d2}
0x56de…56e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00fc}
0x56e8…56fe              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0037, t01=0x0106}
0x56fe…5708              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x011c}
0x5708…571e              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0037, t01=0x0126}
0x571e…5728              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x013c}
0x5728…5732              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0146}
0x5732…5744              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x0150}
0x5744…5756              Head {h00=0x000e, h01=0x0050, text=»* CREFIL *«, t00=0x0037, t01=0x0162}
0x5756…5768              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x0174}
0x5768…5772              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0186}
0x5772…579a              Head {h00=0x0024, h01=0x0050, text=»*   CREATE FILE FORE OPEN OUTPUT«, t00=0x0037, t01=0x0190}
0x579a…57a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0028}
0x57a4…57c8              Head {h00=0x0020, h01=0x0050, text=»*   INPUT :   A8=ECB ADDRESS«, t00=0x0038, t01=0x0032}
0x57c8…5804              Head {h00=0x0038, h01=0x0050, text=»*   OUTPUT:   A1=RC FROM OPEN CR SET ACCORDING TO A1«, t00=0x0038, t01=0x0056}
0x5804…583a              Head {h00=0x0032, h01=0x0050, text=»*             A4=NUMBER OF SECTORS PER RECORD «, t00=0x0038, t01=0x0092}
0x583a…5874              Head {h00=0x0036, h01=0x0050, text=»*              A2,A3,A4,A5,A6,A7,A13,A12 ARE USED «, t00=0x0038, t01=0x00c8}
0x5874…58a8              Head {h00=0x0030, h01=0x0050, text=»*             A11=FDB ADDRESS OF OPENED FILE«, t00=0x0038, t01=0x0102}
0x58a8…58b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0136}
0x58b2…58c6              Head {h00=0x0010, h01=0x0050, text=»CREFIL EQU *«, t00=0x0038, t01=0x0140}
0x58c6…58e4              Head {h00=0x001a, h01=0x0050, text=» CF A14,GETFPB GET FPB«, t00=0x0038, t01=0x0154}
0x58e4…5908              Head {h00=0x0020, h01=0x0050, text=» LDK A5,4 NUMBER OF VOLUMES «, t00=0x0038, t01=0x0172}
0x5908…5928              Head {h00=0x001c, h01=0x0050, text=» LDR A13,A12 FDB ADDRESS«, t00=0x0039, t01=0x0008}
0x5928…5950              Head {h00=0x0024, h01=0x0050, text=» ADKL A13,FPB:S1 ADDRESS TO SIZE«, t00=0x0039, t01=0x0028}
0x5950…5964              Head {h00=0x0010, h01=0x0050, text=»CREF10 EQU *«, t00=0x0039, t01=0x0050}
0x5964…598e              Head {h00=0x0026, h01=0x0050, text=» CF A14,DBLMUL NUMBER OF SECTTORS «, t00=0x0039, t01=0x0064}
0x598e…59ac              Head {h00=0x001a, h01=0x0050, text=» RB(N) SETOVE OVERBLOW«, t00=0x0039, t01=0x008e}
0x59ac…59c0              Head {h00=0x0010, h01=0x0050, text=»CREF15 EQU *«, t00=0x0039, t01=0x00ac}
0x59c0…59e4              Head {h00=0x0020, h01=0x0050, text=» LDR A6,A1 NUMBER OF SECTORS«, t00=0x0039, t01=0x00c0}
0x59e4…59f6              Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x0039, t01=0x00e4}
0x59f6…5a1e              Head {h00=0x0024, h01=0x0050, text=» CF A14,DV3RST REST AFTER DIV 3 «, t00=0x0039, t01=0x00f6}
0x5a1e…5a3c              Head {h00=0x001a, h01=0x0050, text=» RF(Z) CREF18 NO REST «, t00=0x0039, t01=0x011e}
0x5a3c…5a5e              Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 ONE MORE BLOCK «, t00=0x0039, t01=0x013c}
0x5a5e…5a86              Head {h00=0x0024, h01=0x0050, text=» CF A14,ADDMOD NUMBER OF SECTORS«, t00=0x0039, t01=0x015e}
0x5a86…5aa4              Head {h00=0x001a, h01=0x0050, text=» RB(O) SETOVE OVERBLOW«, t00=0x0039, t01=0x0186}
0x5aa4…5ac0              Head {h00=0x0018, h01=0x0050, text=» STR A1,A13 INTO FPB«, t00=0x003a, t01=0x0014}
0x5ac0…5ad4              Head {h00=0x0010, h01=0x0050, text=» ST A2,2,A13«, t00=0x003a, t01=0x0030}
0x5ad4…5afe              Head {h00=0x0026, h01=0x0050, text=» RB CREF15 CHECK IF MULTIPLE OF 3 «, t00=0x003a, t01=0x0044}
0x5afe…5b08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x006e}
0x5b08…5b1e              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x003a, t01=0x0078}
0x5b1e…5b28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x008e}
0x5b28…5b32              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0098}
0x5b32…5b46              Head {h00=0x0010, h01=0x0050, text=»CREF18 EQU *«, t00=0x003a, t01=0x00a2}
0x5b46…5b5a              Head {h00=0x0010, h01=0x0050, text=» ADKL A13,10«, t00=0x003a, t01=0x00b6}
0x5b5a…5b6c              Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x003a, t01=0x00ca}
0x5b6c…5b8c              Head {h00=0x001c, h01=0x0050, text=» RB(P) CREF10 NEXT SIZE «, t00=0x003a, t01=0x00dc}
0x5b8c…5baa              Head {h00=0x001a, h01=0x0050, text=» CF A14,ENLFAC ENLARGE«, t00=0x003a, t01=0x00fc}
0x5baa…5bca              Head {h00=0x001c, h01=0x0050, text=» RB(NZ) SETOVE OVERBLOW «, t00=0x003a, t01=0x011a}
0x5bca…5bec              Head {h00=0x001e, h01=0x0050, text=» LDKL A7,/2A1 CREATE FILE «, t00=0x003a, t01=0x013a}
0x5bec…5c0e              Head {h00=0x001e, h01=0x0050, text=» CF A14,ADMOPE CREATE FILE«, t00=0x003a, t01=0x015c}
0x5c0e…5c2a              Head {h00=0x0018, h01=0x0050, text=» RB(NZ) RETA14 ERROR«, t00=0x003a, t01=0x017e}
0x5c2a…5c4e              Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A8 DATA FILE NUMBER«, t00=0x003b, t01=0x000a}
0x5c4e…5c68              Head {h00=0x0016, h01=0x0050, text=» SC A2,FPB:NO,A12 «, t00=0x003b, t01=0x002e}
0x5c68…5c74              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0048}
0x5c74…5c7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0054}
0x5c7e…5c94              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x003b, t01=0x005e}
0x5c94…5c9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0074}
0x5c9e…5ca8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x007e}
0x5ca8…5cba              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003b, t01=0x0088}
0x5cba…5ccc              Head {h00=0x000e, h01=0x0050, text=»* SETFDB *«, t00=0x003b, t01=0x009a}
0x5ccc…5cde              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003b, t01=0x00ac}
0x5cde…5ce8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00be}
0x5ce8…5d2e              Head {h00=0x0042, h01=0x0050, text=»*   SET FDB PARAMETERS FDBENL,FDBOMD,FDBEXC,FDBLRN AND FDBRLE «, t00=0x003b, t01=0x00c8}
0x5d2e…5d64              Head {h00=0x0032, h01=0x0050, text=»*   INPUT : A3 = ENLARGE IN NUMBER OF SECTORS «, t00=0x003b, t01=0x010e}
0x5d64…5d98              Head {h00=0x0030, h01=0x0050, text=»*            A11=FDB ADDRESS OF OPENED FILE «, t00=0x003b, t01=0x0144}
0x5d98…5da2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0178}
0x5da2…5dac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0182}
0x5dac…5dc0              Head {h00=0x0010, h01=0x0050, text=»SETFDB EQU *«, t00=0x003b, t01=0x018c}
0x5dc0…5de2              Head {h00=0x001e, h01=0x0050, text=» ST A3,FDBENL,A11 ENLARGE «, t00=0x003c, t01=0x0010}
0x5de2…5e10              Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTOR,A10 OPEN MODE AND OPTION «, t00=0x003c, t01=0x0032}
0x5e10…5e3c              Head {h00=0x0028, h01=0x0050, text=» SC A2,FDBOMD,A11 INDICATE OPEN MODE«, t00=0x003c, t01=0x0060}
0x5e3c…5e64              Head {h00=0x0024, h01=0x0050, text=» SLL A2,6 EXCLUSIVE ACCES WANTED«, t00=0x003c, t01=0x008c}
0x5e64…5e7e              Head {h00=0x0016, h01=0x0050, text=» RF(NN) SETF25 NO «, t00=0x003c, t01=0x00b4}
0x5e7e…5e98              Head {h00=0x0016, h01=0x0050, text=» LD A1,DWTTAB,A10 «, t00=0x003c, t01=0x00ce}
0x5e98…5eac              Head {h00=0x0010, h01=0x0050, text=»SETF25 EQU *«, t00=0x003c, t01=0x00e8}
0x5eac…5ee0              Head {h00=0x0030, h01=0x0050, text=» ST A1,FDBEXC,A11 INDICATE EXCLUSIVE OR NOT «, t00=0x003c, t01=0x00fc}
0x5ee0…5f02              Head {h00=0x001e, h01=0x0050, text=» LD A2,FPB:FR,A12 MOVE LRN«, t00=0x003c, t01=0x0130}
0x5f02…5f1c              Head {h00=0x0016, h01=0x0050, text=» SC A2,FDBLRN,A11 «, t00=0x003c, t01=0x0152}
0x5f1c…5f38              Head {h00=0x0018, h01=0x0050, text=» LD A2,FPB:FR+2,A12 «, t00=0x003c, t01=0x016c}
0x5f38…5f54              Head {h00=0x0018, h01=0x0050, text=» ST A2,FDBLRN+1,A11 «, t00=0x003c, t01=0x0188}
0x5f54…5f80              Head {h00=0x0028, h01=0x0050, text=» LD A2,FPB:RL,A12 GET RECORD LENGTH «, t00=0x003d, t01=0x0014}
0x5f80…5fa2              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) SETF30 NOT L-FILE «, t00=0x003d, t01=0x0040}
0x5fa2…5fce              Head {h00=0x0028, h01=0x0050, text=» LDKL A2,LFILEN L-FILE RECORD LENGTH«, t00=0x003d, t01=0x0062}
0x5fce…5fe2              Head {h00=0x0010, h01=0x0050, text=»SETF30 EQU *«, t00=0x003d, t01=0x008e}
0x5fe2…5ffc              Head {h00=0x0016, h01=0x0050, text=» ST A2,FDBRLE,A11 «, t00=0x003d, t01=0x00a2}
0x5ffc…600e              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003d, t01=0x00bc}
0x600e…6022              Head {h00=0x0010, h01=0x0050, text=»RETUR EQU * «, t00=0x003d, t01=0x00ce}
0x6022…6034              Head {h00=0x000e, h01=0x0050, text=» RB RETA14«, t00=0x003d, t01=0x00e2}
0x6034…603e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f4}
0x603e…6054              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x003d, t01=0x00fe}
0x6054…606a              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x003d, t01=0x0114}
0x606a…6074              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x012a}
0x6074…607e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0134}
0x607e…6090              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x013e}
0x6090…60a2              Head {h00=0x000e, h01=0x0050, text=»* FORFIL *«, t00=0x003d, t01=0x0150}
0x60a2…60b4              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003d, t01=0x0162}
0x60b4…60be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0174}
0x60be…60c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x017e}
0x60c8…60e0              Head {h00=0x0014, h01=0x0050, text=»*   FORMAT FILE «, t00=0x003d, t01=0x0188}
0x60e0…60ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0010}
0x60ea…6110              Head {h00=0x0022, h01=0x0050, text=»*   INPUT :   A8 = ECB ADDRESS«, t00=0x003e, t01=0x001a}
0x6110…6136              Head {h00=0x0022, h01=0x0050, text=»*             A11= FDB ADDRESS«, t00=0x003e, t01=0x0040}
0x6136…6140              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0066}
0x6140…6154              Head {h00=0x0010, h01=0x0050, text=»*   OUTPUT: «, t00=0x003e, t01=0x0070}
0x6154…6188              Head {h00=0x0030, h01=0x0050, text=»*             A1,A2,A4,A5,A6,A7,A13 ARE USED«, t00=0x003e, t01=0x0084}
0x6188…6192              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00b8}
0x6192…61a6              Head {h00=0x0010, h01=0x0050, text=»FORFIL EQU *«, t00=0x003e, t01=0x00c2}
0x61a6…61d4              Head {h00=0x002a, h01=0x0050, text=» CF A14,GETLRN GET LAST RECORD NUMBER «, t00=0x003e, t01=0x00d6}
0x61d4…61f0              Head {h00=0x0018, h01=0x0050, text=» LDR A5,A1 SAVE LRN «, t00=0x003e, t01=0x0104}
0x61f0…6202              Head {h00=0x000e, h01=0x0050, text=» LDR A6,A2«, t00=0x003e, t01=0x0120}
0x6202…6216              Head {h00=0x0010, h01=0x0050, text=»FORF10 EQU *«, t00=0x003e, t01=0x0132}
0x6216…6234              Head {h00=0x001a, h01=0x0050, text=» ADR A6,A4 NEXT RECORD«, t00=0x003e, t01=0x0146}
0x6234…6256              Head {h00=0x001e, h01=0x0050, text=» RF(P) FORF20 NOT OVERFLOW«, t00=0x003e, t01=0x0164}
0x6256…6270              Head {h00=0x0016, h01=0x0050, text=» ANK A6,/FF A4</FF«, t00=0x003e, t01=0x0186}
0x6270…6282              Head {h00=0x000e, h01=0x0050, text=» ADK A5,1 «, t00=0x003f, t01=0x0010}
0x6282…6296              Head {h00=0x0010, h01=0x0050, text=»FORF20 EQU *«, t00=0x003f, t01=0x0022}
0x6296…62b2              Head {h00=0x0018, h01=0x0050, text=» STR A5,A13 TO ECBCW«, t00=0x003f, t01=0x0036}
0x62b2…62c6              Head {h00=0x0010, h01=0x0050, text=» ST A6,2,A13«, t00=0x003f, t01=0x0052}
0x62c6…62dc              Head {h00=0x0012, h01=0x0050, text=» CF A14,ADMWFO«, t00=0x003f, t01=0x0066}
0x62dc…6300              Head {h00=0x0020, h01=0x0050, text=» RB(Z) FORF10 FILE NOT READY«, t00=0x003f, t01=0x007c}
0x6300…632a              Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/1FF NOT END OF FILE BITS«, t00=0x003f, t01=0x00a0}
0x632a…6342              Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRC,A8 «, t00=0x003f, t01=0x00ca}
0x6342…6354              Head {h00=0x000e, h01=0x0050, text=» RF ADMI10«, t00=0x003f, t01=0x00e2}
0x6354…635e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00f4}
0x635e…636a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x00fe}
0x636a…6380              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x003f, t01=0x010a}
0x6380…638a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0120}
0x638a…6394              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x012a}
0x6394…63a6              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0134}
0x63a6…63b8              Head {h00=0x000e, h01=0x0050, text=»* ADM:IO *«, t00=0x003f, t01=0x0146}
0x63b8…63ca              Head {h00=0x000e, h01=0x0050, text=»* ADMWRI *«, t00=0x003f, t01=0x0158}
0x63ca…63dc              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x016a}
0x63dc…63e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x017c}
0x63e6…63fe              Head {h00=0x0014, h01=0x0050, text=»*   IO ROUTINES «, t00=0x003f, t01=0x0186}
0x63fe…6408              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x000e}
0x6408…6444              Head {h00=0x0038, h01=0x0050, text=»*   OUTPUT:  CR SET ACCORDING TO RC EXCEPT RETRY BIT«, t00=0x0040, t01=0x0018}
0x6444…644e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0054}
0x644e…6474              Head {h00=0x0022, h01=0x0050, text=»*   INPUT :   A8= ECB ADDRESS «, t00=0x0040, t01=0x005e}
0x6474…649c              Head {h00=0x0024, h01=0x0050, text=»*           (A10 = FDB ADDRESS) «, t00=0x0040, t01=0x0084}
0x649c…64c2              Head {h00=0x0022, h01=0x0050, text=»*           A1,A2,A7 ARE USED «, t00=0x0040, t01=0x00ac}
0x64c2…64cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d2}
0x64cc…64ec              Head {h00=0x001c, h01=0x0050, text=»ADMWFO EQU * FORMAT FILE«, t00=0x0040, t01=0x00dc}
0x64ec…650a              Head {h00=0x001a, h01=0x0050, text=» LDK A7,/95 ORDER CODE«, t00=0x0040, t01=0x00fc}
0x650a…653a              Head {h00=0x002c, h01=0x0050, text=» LDKL A2,BUFFNU INDICATE RECORD NOT USED«, t00=0x0040, t01=0x011a}
0x653a…655a              Head {h00=0x001c, h01=0x0050, text=» LDK A1,1 ONE SECTOR IO «, t00=0x0040, t01=0x014a}
0x655a…6572              Head {h00=0x0014, h01=0x0050, text=» SC A1,ECBRL,A8 «, t00=0x0040, t01=0x016a}
0x6572…6586              Head {h00=0x0010, h01=0x0050, text=»ADMI00 EQU *«, t00=0x0040, t01=0x0182}
0x6586…659c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0041, t01=0x0008}
0x659c…65c8              Head {h00=0x0028, h01=0x0050, text=» LDK A1,0 BIT 0,1 OF 18 BIT ADDRESS «, t00=0x0041, t01=0x001e}
0x65c8…65d4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x004a}
0x65d4…65e6              Head {h00=0x000e, h01=0x0050, text=» RF ADM:IO«, t00=0x0041, t01=0x0056}
0x65e6…65f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0068}
0x65f0…6604              Head {h00=0x0010, h01=0x0050, text=»ADMWRI EQU *«, t00=0x0041, t01=0x0072}
0x6604…6628              Head {h00=0x0020, h01=0x0050, text=» LD A7,FDBOMD,A10 FILE TYPE «, t00=0x0041, t01=0x0086}
0x6628…664a              Head {h00=0x001e, h01=0x0050, text=» RF(N) ADMW10 L OR X FILE «, t00=0x0041, t01=0x00aa}
0x664a…6670              Head {h00=0x0022, h01=0x0050, text=» LD A7,ECBBA,A9 BUFFER ADDRESS«, t00=0x0041, t01=0x00cc}
0x6670…6696              Head {h00=0x0022, h01=0x0050, text=» AD A7,ECBRL,A8 END OF BUFFER «, t00=0x0041, t01=0x00f2}
0x6696…66a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0118}
0x66a0…66b6              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0041, t01=0x0122}
0x66b6…66c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0138}
0x66c0…66ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0142}
0x66ca…66e0              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0041, t01=0x014c}
0x66e0…66f4              Head {h00=0x0010, h01=0x0050, text=» LDK A2,/FF «, t00=0x0041, t01=0x0162}
0x66f4…671e              Head {h00=0x0026, h01=0x0050, text=» SC A2,-1,A7 INDICATE RECORD USED «, t00=0x0041, t01=0x0176}
0x671e…672a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0010}
0x672a…6740              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0042, t01=0x001c}
0x6740…676c              Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTTAB,A10 USER TTAB ADDRESS «, t00=0x0042, t01=0x0032}
0x676c…6790              Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A2 USER MMU TABLE«, t00=0x0042, t01=0x005e}
0x6790…67bc              Head {h00=0x0028, h01=0x0050, text=» EL A2,-2,A7 GET LAST WORD OF BUFFER«, t00=0x0042, t01=0x0082}
0x67bc…67e0              Head {h00=0x0020, h01=0x0050, text=» ORK A2,/FF SET RECORD BUSY «, t00=0x0042, t01=0x00ae}
0x67e0…67f4              Head {h00=0x0010, h01=0x0050, text=» ES A2,-2,A7«, t00=0x0042, t01=0x00d2}
0x67f4…6818              Head {h00=0x0020, h01=0x0050, text=» TL MONMMU MONITOR MMU TABLE«, t00=0x0042, t01=0x00e6}
0x6818…6824              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x010a}
0x6824…6838              Head {h00=0x0010, h01=0x0050, text=»ADMW10 EQU *«, t00=0x0042, t01=0x0116}
0x6838…6852              Head {h00=0x0016, h01=0x0050, text=» LDK A7,/95 WRITE «, t00=0x0042, t01=0x012a}
0x6852…685c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0144}
0x685c…6872              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0042, t01=0x014e}
0x6872…687c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0164}
0x687c…6886              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x016e}
0x6886…6898              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0042, t01=0x0178}
0x6898…68aa              Head {h00=0x000e, h01=0x0050, text=»* ADM:BA *«, t00=0x0042, t01=0x018a}
0x68aa…68bc              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0043, t01=0x000c}
0x68bc…68c6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x001e}
0x68c6…68f0              Head {h00=0x0026, h01=0x0050, text=»*   INPUT :   A8 = ADM ECB ADDRESS«, t00=0x0043, t01=0x0028}
0x68f0…691c              Head {h00=0x0028, h01=0x0050, text=»*             A9 = USER ECB ADDRESS «, t00=0x0043, t01=0x0052}
0x691c…6942              Head {h00=0x0022, h01=0x0050, text=»*            A10 = FDB ADDRESS«, t00=0x0043, t01=0x007e}
0x6942…694c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00a4}
0x694c…697e              Head {h00=0x002e, h01=0x0050, text=»*   OUTPUT:  A1 = RC CR SET ACCORDING T A1«, t00=0x0043, t01=0x00ae}
0x697e…69a2              Head {h00=0x0020, h01=0x0050, text=»*            A2,A7 ARE USED «, t00=0x0043, t01=0x00e0}
0x69a2…69ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0104}
0x69ac…69c0              Head {h00=0x0010, h01=0x0050, text=»ADM:BA EQU *«, t00=0x0043, t01=0x010e}
0x69c0…69d6              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0043, t01=0x0122}
0x69d6…69fc              Head {h00=0x0022, h01=0x0050, text=» LD A2,ECBBA,A9 BUFFER ADDRESS«, t00=0x0043, t01=0x0138}
0x69fc…6a08              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x015e}
0x6a08…6a1e              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0043, t01=0x016a}
0x6a1e…6a30              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0043, t01=0x0180}
0x6a30…6a5e (68, 0, 400) Head {h00=0x002a, h01=0x0050, text=» LD A1,ECBBA,A9 16 BIT BUFFER ADDRESS «, t00=0x0044, t01=0x0004}
0x6a5e…6a6e              Head {h00=0x000c, h01=0x0050, text=» DRL 12 «, t00=0x0044, t01=0x0032}
0x6a6e…6a8c              Head {h00=0x001a, h01=0x0050, text=» SLL A1,1 PAGE ADDRESS«, t00=0x0044, t01=0x0042}
0x6a8c…6aa6              Head {h00=0x0016, h01=0x0050, text=» AD A1,DWTTAB,A10 «, t00=0x0044, t01=0x0060}
0x6aa6…6ad4              Head {h00=0x002a, h01=0x0050, text=» LD A1,TTB:MT,A1 MOST SIGNIFICANT BITS«, t00=0x0044, t01=0x007a}
0x6ad4…6ae6              Head {h00=0x000e, h01=0x0050, text=» SRL A1,10«, t00=0x0044, t01=0x00a8}
0x6ae6…6af4              Head {h00=0x000a, h01=0x0050, text=» DRL 4«, t00=0x0044, t01=0x00ba}
0x6af4…6b06              Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0044, t01=0x00c8}
0x6b06…6b10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00da}
0x6b10…6b26              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0044, t01=0x00e4}
0x6b26…6b30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00fa}
0x6b30…6b42              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0044, t01=0x0104}
0x6b42…6b54              Head {h00=0x000e, h01=0x0050, text=»* ADM:IO *«, t00=0x0044, t01=0x0116}
0x6b54…6b66              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0044, t01=0x0128}
0x6b66…6b70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x013a}
0x6b70…6b9a              Head {h00=0x0026, h01=0x0050, text=»*   INPUT : A1,A2 = BUFFER ADDRESS«, t00=0x0044, t01=0x0144}
0x6b9a…6bc0              Head {h00=0x0022, h01=0x0050, text=»*           A7    = ORDER CODE«, t00=0x0044, t01=0x016e}
0x6bc0…6bec (69, 0, 398) Head {h00=0x0028, h01=0x0050, text=»*           A8    = ADM ECB ADDRESS «, t00=0x0045, t01=0x0004}
0x6bec…6bf6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0030}
0x6bf6…6c02              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x003a}
0x6c02…6c16              Head {h00=0x0010, h01=0x0050, text=»ADM:IO EQU *«, t00=0x0045, t01=0x0046}
0x6c16…6c36              Head {h00=0x001c, h01=0x0050, text=» ST A2,ECBBA,A8 ADM ECB «, t00=0x0045, t01=0x005a}
0x6c36…6c4c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0045, t01=0x007a}
0x6c4c…6c66              Head {h00=0x0016, h01=0x0050, text=» SCR A1,A8 BIT 0,1«, t00=0x0045, t01=0x0090}
0x6c66…6c72              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x00aa}
0x6c72…6c7e              Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0045, t01=0x00b6}
0x6c7e…6c8e              Head {h00=0x000c, h01=0x0050, text=» DATA 15«, t00=0x0045, t01=0x00c2}
0x6c8e…6ca2              Head {h00=0x0010, h01=0x0050, text=»ADMI10 EQU *«, t00=0x0045, t01=0x00d2}
0x6ca2…6cc6              Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBRC,A8 RETURN CODE «, t00=0x0045, t01=0x00e6}
0x6cc6…6cea              Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FEFF NOT RETRY BIT«, t00=0x0045, t01=0x010a}
0x6cea…6d00              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0045, t01=0x012e}
0x6d00…6d12              Head {h00=0x000e, h01=0x0050, text=» RB RETUR «, t00=0x0045, t01=0x0144}
0x6d12…6d1e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0156}
0x6d1e…6d34              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=0 «, t00=0x0045, t01=0x0162}
0x6d34…6d46              Head {h00=0x000e, h01=0x0050, text=» RB RETA14«, t00=0x0045, t01=0x0178}
0x6d46…6d52              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x018a}
0x6d52…6d5c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0008}
0x6d5c…6d72              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0046, t01=0x0012}
0x6d72…6d7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0028}
0x6d7c…6d8e              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x0032}
0x6d8e…6da0              Head {h00=0x000e, h01=0x0050, text=»* ADMOPE *«, t00=0x0046, t01=0x0044}
0x6da0…6db2              Head {h00=0x000e, h01=0x0050, text=»* ADMRFP *«, t00=0x0046, t01=0x0056}
0x6db2…6dc4              Head {h00=0x000e, h01=0x0050, text=»* ADM:AF *«, t00=0x0046, t01=0x0068}
0x6dc4…6dd6              Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x007a}
0x6dd6…6de0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008c}
0x6de0…6e0e              Head {h00=0x002a, h01=0x0050, text=»*   OPEN FILE AND READ FILE PARAMETERS«, t00=0x0046, t01=0x0096}
0x6e0e…6e18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00c4}
0x6e18…6e52              Head {h00=0x0036, h01=0x0050, text=»*   OUTPUT: A1= ERROR CODE CR SET ACCORDING TO A1 «, t00=0x0046, t01=0x00ce}
0x6e52…6e76              Head {h00=0x0020, h01=0x0050, text=»*            A2,A7 ARE USED «, t00=0x0046, t01=0x0108}
0x6e76…6e9a              Head {h00=0x0020, h01=0x0050, text=»*           A11= FWT ADDRESS«, t00=0x0046, t01=0x012c}
0x6e9a…6ed0              Head {h00=0x0032, h01=0x0050, text=»*            IF A11 = 0 NO OPEN HAS BEEN DONE «, t00=0x0046, t01=0x0150}
0x6ed0…6eda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0186}
0x6eda…6eee              Head {h00=0x0010, h01=0x0050, text=»ADMOPE EQU *«, t00=0x0046, t01=0x0190}
0x6eee…6f18              Head {h00=0x0026, h01=0x0050, text=» SUR A11,A11 INDICATE NO OPEN DONE«, t00=0x0047, t01=0x0014}
0x6f18…6f2e              Head {h00=0x0012, h01=0x0050, text=» CF A14,ADM:AF«, t00=0x0047, t01=0x003e}
0x6f2e…6f44              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=1 «, t00=0x0047, t01=0x0054}
0x6f44…6f60              Head {h00=0x0018, h01=0x0050, text=» RB(NZ) RETUR ERROR «, t00=0x0047, t01=0x006a}
0x6f60…6f6c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0086}
0x6f6c…6f82              Head {h00=0x0012, h01=0x0050, text=» IFT CRDEEX=0 «, t00=0x0047, t01=0x0092}
0x6f82…6f98              Head {h00=0x0012, h01=0x0050, text=» RB(NZ) RETA14«, t00=0x0047, t01=0x00a8}
0x6f98…6fa4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x00be}
0x6fa4…6fc4              Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A8 FILE NUMBER «, t00=0x0047, t01=0x00ca}
0x6fc4…6fd8              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0047, t01=0x00ea}
0x6fd8…6ffe              Head {h00=0x0022, h01=0x0050, text=» LDKL A11,SCTFWT ROOT TO FWT:S«, t00=0x0047, t01=0x00fe}
0x6ffe…7026              Head {h00=0x0024, h01=0x0050, text=»AOPE10 EQU * SEARCH FWT ADDRESS «, t00=0x0047, t01=0x0124}
0x7026…7048              Head {h00=0x001e, h01=0x0050, text=» LDR* A11,A11 FWT ADDRESS «, t00=0x0047, t01=0x014c}
0x7048…705a              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0047, t01=0x016e}
0x705a…7078              Head {h00=0x001a, h01=0x0050, text=» RB(P) AOPE10 NEXT FWT«, t00=0x0047, t01=0x0180}
0x7078…70ae              Head {h00=0x0032, h01=0x0050, text=» ANKL A11,/FFFE BIT 15 USED BY FILE MANAGEMENT«, t00=0x0048, t01=0x000e}
0x70ae…70e2              Head {h00=0x0030, h01=0x0050, text=»ADMRFP EQU * READ FILE PARAMETERS TO ADMBUF «, t00=0x0048, t01=0x0044}
0x70e2…70f6              Head {h00=0x0010, h01=0x0050, text=» LDK A7,/83 «, t00=0x0048, t01=0x0078}
0x70f6…710a              Head {h00=0x0010, h01=0x0050, text=»ADM:AF EQU *«, t00=0x0048, t01=0x008c}
0x710a…7134              Head {h00=0x0026, h01=0x0050, text=» LDR A2,A12 ADM BUFFER ADDRESS + 8«, t00=0x0048, t01=0x00a0}
0x7134…7146              Head {h00=0x000e, h01=0x0050, text=» RB ADMI00«, t00=0x0048, t01=0x00ca}
0x7146…7150              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00dc}
0x7150…7166              Head {h00=0x0012, h01=0x0050, text=» EJECT  ADMTSK«, t00=0x0048, t01=0x00e6}
0x7166…7170              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00fc}
0x7170…717a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0106}
0x717a…7186              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0048, t01=0x0110}
0x7186…718a              Head {h00=0x4004, h01=0x0000}
0x718a…718e              00 48 01 1c                                                                                                                                                                                                                                       ┆ H  ┆
0x718e…7196 (73, 1, 8)   20 04 00 00 00 49 00 04                                                                                                                                                                                                                           ┆     I  ┆
0x7196…71e6 (74, 0, 400) 32 2c 41 31 31 20 00 49 01 82 00 26 00 50 5c 43 46 5c 41 31 34 2c 46 52 4d 46 49 4c 5c 46 4f 52 4d 41 54 20 52 45 53 54 20 4f 46 20 46 49 4c 45 00 4a 00 0e 00 24 00 50 5c 4f 52 53 5c 41 31 2c 45 43 42 52 43 2c 41 39 5c 53 45 54 20 52 45 54   ┆2,A11  I   & P CF A14,FRMFIL FORMAT REST OF FILE J   $ P ORS A1,ECBRC,A9 SET RET┆
0x71e6…7236              55 52 4e 20 43 4f 44 45 00 4a 00 38 00 0e 00 50 5c 52 46 5c 53 44 4d 43 33 30 00 4a 00 60 00 10 00 50 53 44 4d 43 32 30 5c 45 51 55 5c 2a 00 4a 00 72 00 28 00 50 5c 43 46 5c 41 31 34 2c 53 44 4d 52 4c 42 5c 52 45 4c 45 41 53 45 20 42 4c 4f   ┆URN CODE J 8   P RF SDMC30 J `   PSDMC20 EQU * J r ( P CF A14,SDMRLB RELEASE BLO┆
0x7236…7286              43 4b 20 42 55 46 46 45 52 20 00 4a 00 86 00 10 00 50 53 44 4d 43 33 30 5c 45 51 55 5c 2a 00 4a 00 b2 00 06 00 50 2a 20 00 4a 00 c6 00 16 00 50 2a 20 20 20 43 4c 45 41 52 20 43 55 52 52 45 4e 43 59 00 4a 00 d0 00 06 00 50 2a 20 00 4a 00 ea   ┆CK BUFFER  J     PSDMC30 EQU * J     P*  J     P*   CLEAR CURRENCY J     P*  J  ┆
0x7286…72d6              00 26 00 50 5c 43 46 5c 41 31 34 2c 43 52 4e 47 45 54 5c 47 45 54 20 43 55 52 52 45 4e 43 59 20 42 55 46 46 45 52 00 4a 00 f4 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 4a 01 1e 00 1c 00 50 5c 53 43 5c 41 31 2c 43 52 4e 53 54 41 2c 41 32   ┆ & P CF A14,CRNGET GET CURRENCY BUFFER J     P LDK A1,0  J     P SC A1,CRNSTA,A2┆
0x72d6…7326              5c 53 54 41 54 55 53 20 00 4a 01 30 00 12 00 50 5c 43 4d 5c 43 52 4e 43 44 46 2c 41 32 20 00 4a 01 50 00 14 00 50 5c 43 4d 5c 43 52 4e 43 44 46 2b 32 2c 41 32 20 00 4a 01 66 00 12 00 50 5c 49 46 54 5c 49 4e 44 58 41 43 3d 31 20 00 4a 01 7e   ┆ STATUS  J 0   P CM CRNCDF,A2  J P   P CM CRNCDF+2,A2  J f   P IFT INDXAC=1  J ~┆
0x7326…7376 (75, 0, 400) 00 12 00 50 5c 43 4d 5c 43 52 4e 43 49 46 2c 41 32 20 00 4b 00 04 00 14 00 50 5c 43 4d 5c 43 52 4e 43 49 46 2b 32 2c 41 32 20 00 4b 00 1a 00 08 00 50 5c 58 49 46 00 4b 00 32 00 0a 00 50 5c 45 4a 45 43 54 00 4b 00 3e 00 06 00 50 2a 20 00 4b   ┆   P CM CRNCIF,A2  K     P CM CRNCIF+2,A2  K     P XIF K 2   P EJECT K >   P*  K┆
0x7376…73c6              00 4c 00 1a 00 50 2a 20 20 20 42 55 49 4c 44 20 43 4c 4f 53 45 20 54 41 42 4c 45 53 00 4b 00 56 00 06 00 50 2a 20 00 4b 00 74 00 1e 00 50 5c 4c 43 5c 41 37 2c 45 43 42 46 43 2c 41 39 5c 46 49 4c 45 20 43 4f 44 45 20 00 4b 00 7e 00 18 00 50   ┆ L   P*   BUILD CLOSE TABLES K V   P*  K t   P LC A7,ECBFC,A9 FILE CODE  K ~   P┆
0x73c6…7416              5c 4c 44 4b 5c 41 35 2c 31 30 5c 32 20 2a 20 46 49 4c 45 53 00 4b 00 a0 00 10 00 50 53 44 4d 43 34 30 5c 45 51 55 5c 2a 00 4b 00 bc 00 0e 00 50 5c 53 55 4b 5c 41 35 2c 32 20 00 4b 00 d0 00 1c 00 50 5c 52 46 28 4e 29 5c 53 44 4d 43 36 30 5c   ┆ LDK A5,10 2 * FILES K     PSDMC40 EQU * K     P SUK A5,2  K     P RF(N) SDMC60 ┆
0x7416…7466              41 4c 4c 20 46 49 4c 45 53 20 00 4b 00 e2 00 10 00 50 5c 4c 44 52 5c 41 34 2c 41 31 31 20 00 4b 01 02 00 0e 00 50 5c 41 44 52 5c 41 34 2c 41 35 00 4b 01 16 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 4b 01 28 00 0e 00 50 5c 4c 44 4b 5c 41   ┆ALL FILES  K     P LDR A4,A11  K     P ADR A4,A5 K     P LDK A1,0  K (   P LDK A┆
0x7466…74b6              32 2c 30 20 00 4b 01 3a 00 0e 00 50 5c 4c 44 4b 5c 41 36 2c 30 20 00 4b 01 4c 00 0e 00 50 5c 53 55 52 5c 41 39 2c 41 39 00 4b 01 5e 00 10 00 50 5c 53 55 52 5c 41 31 30 2c 41 31 30 00 4b 01 70 00 1e 00 50 5c 4c 44 5c 41 33 2c 46 44 42 41 44   ┆2,0  K :   P LDK A6,0  K L   P SUR A9,A9 K ^   P SUR A10,A10 K p   P LD A3,FDBAD┆
0x74b6…7506 (76, 0, 400) 46 2c 41 34 5c 46 44 42 20 41 44 44 52 20 00 4b 01 84 00 1a 00 50 5c 52 46 28 5a 29 5c 53 44 4d 43 35 30 5c 4e 4f 20 46 49 4c 45 20 00 4c 00 16 00 26 00 50 5c 4c 44 5c 41 36 2c 46 44 42 4d 49 41 2c 41 33 5c 4d 41 53 54 45 52 20 49 4e 44 45   ┆F,A4 FDB ADDR  K     P RF(Z) SDMC50 NO FILE  L   & P LD A6,FDBMIA,A3 MASTER INDE┆
0x7506…7556              58 20 41 44 44 52 00 4c 00 34 00 1c 00 50 5c 4c 43 5c 41 32 2c 46 57 54 46 4e 52 2c 41 33 5c 46 49 4c 45 20 4e 52 00 4c 00 5e 00 20 00 50 5c 4c 43 5c 41 39 2c 46 44 42 4c 52 4e 2c 41 33 5c 4c 41 53 54 20 52 45 43 20 4e 52 00 4c 00 7e 00 18   ┆X ADDR L 4   P LC A2,FWTFNR,A3 FILE NR L ^   P LC A9,FDBLRN,A3 LAST REC NR L ~  ┆
0x7556…75a6              00 50 5c 4c 44 5c 41 31 30 2c 46 44 42 4c 52 4e 2b 31 2c 41 33 20 00 4c 00 a2 00 10 00 50 53 44 4d 43 35 30 5c 45 51 55 5c 2a 00 4c 00 be 00 14 00 50 5c 53 54 5c 41 36 2c 4f 50 45 4d 58 49 2c 41 35 00 4c 00 d2 00 14 00 50 5c 53 54 5c 41 33   ┆ P LD A10,FDBLRN+1,A3  L     PSDMC50 EQU * L     P ST A6,OPEMXI,A5 L     P ST A3┆
0x75a6…75f6              2c 4f 50 45 46 57 54 2c 41 35 00 4c 00 ea 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 35 00 4c 01 02 00 0e 00 50 5c 53 52 4c 5c 41 34 2c 31 20 00 4c 01 14 00 1c 00 50 5c 53 43 5c 41 32 2c 4f 50 45 46 4e 52 2c 41 34 5c 46 49 4c 45 20 4e 52 00 4c   ┆,OPEFWT,A5 L     P LDR A4,A5 L     P SRL A4,1  L     P SC A2,OPEFNR,A4 FILE NR L┆
0x75f6…7646              01 26 00 1e 00 50 5c 53 43 5c 41 31 2c 4f 50 45 46 43 44 2c 41 34 5c 46 49 4c 45 20 43 4f 44 45 00 4c 01 46 00 0e 00 50 5c 53 4c 4c 5c 41 34 2c 32 20 00 4c 01 68 00 20 00 50 5c 53 54 5c 41 39 2c 4f 50 45 4c 52 4e 2c 41 34 5c 4c 41 53 54 20   ┆ &   P SC A1,OPEFCD,A4 FILE CODE L F   P SLL A4,2  L h   P ST A9,OPELRN,A4 LAST ┆

Reduced view