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

⟦215b2789f⟧ 

    Length: 55768 (0xd9d8)
    Notes: pts_type(SC)
    Names: »DRFD01.SC«

Derivation

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

PTS(SC)

	IDENT DRFD01 	REL 11.0 81-04-14 870105041100 

			=8, REL 11.0 81-02-27
			=8, IBM ,MMU AND IO TO SYSTEM AREA NO CODE CONVERSION
			=7, REL 11.0 81-02-23
			=7, CRN UPDATED EVEN IF ERROR FOR SEQUENTIAL READ
			=6, REL 11.0 81-02-23
			=6, BIT INDICATING VOLUME NAMES READ NOT CORRECT 
			=5, REL 11.0 81-02-23
			=5, SAME AS 4, NOT CHANGED CORRRECT
			=4, REL 11.0 81-02-18
			=4, IBM VOLUME NAME NOT READ TO DWT
			=3, REL 11.0 81-01-27
			=3, IBM,LOAD ORDER, DATA SET SECTOR NBR IN ECBCW1
			=2, REL 11.0 81-01-26
			=2, NOT OP. GIVEN IF WRONGLY STRAPT CU 
			=1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY
* 
**********************************************
* 
*  PHILIPS TERMINAL SYSTEM PTS
* 
*  DRFD01 = DRIVER FOR FLEXIBLE DISK
* 
* 
* 
* 
* 
* 
********************************************* 
* 
* 
*  THIS DISK DRIVER HANDLES UP TO FOUR DAISY
*  CHAINED FLEXIBLE DISK DRIVES PTS 6879, 
*  CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON
*  MULTIPLEX OR PROGRAMMED CHANNEL
* 
* 
	EJECT			DRFD01 
* 
*  ORDERS:
* 
*  /00   TEST STATUS
*  /01   PHYSICAL READ
*  /02   SEQUENTIAL READ                       -IBM DISC ONLY-
*  /05   BASIC WRITE
*  /06   SEQUENTIAL WRITE                       -IBM DISC ONLY- 
*  /11   PHYSICAL READ
*  /15   PHYSICAL WRITE 
*  /21	OPEN 
*  /22	CLOSE
*  /24   WRITE DELETED DATA 
*  /26   LOCK 
*  /31   REWIND                                 -IBM DISC ONLY- 
*  /37   LOAD 
*  /38   UNLOAD 
* 
*  ENTRY PARAMETERS:
* 
*   A5   STACK BASE 
*   A6   DWT-ADDRESS
*   A7   ORDER
*   A8   ECB-ADDRESS
	EJECT			DRFD01 
* 
*********** 
*         * 
* ENTRIES * 
*         * 
*********** 
* 
	ENTRY 	FDADR	ACTIVATION ADDRESS
	ENTRY	IHFD	INTERRUPT HANDLER 
	ENTRY	FDON	RECOVERY ROUTINE
	ENTRY	DWFD01	DWT-ADDRESS 
	EJECT			DRFD01 
* 
************* 
*           * 
* EXTERNALS * 
*           * 
************* 
* 
	EXTRN	TDISP	DISPATCHER 
	EXTRN	TENDIO	ENDIO 
	EXTRN	DISIOE	REQUEST ERROR 
	EXTRN	DISEND	PERFORM TENDIO AND TDISP
	EXTRN	VOLCLR	CLEAR VOLUME NAME 
	EXTRN	VOLNAM	VOLUME NAME ADDRESS 
	EXTRN	VOLGET	VOLUME NAME TO DWT AND SET NVL
	EXTRN	NVLCHK	CHECK FOR NEW VOLUME LOADED 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTECB	ECB ADDRESS 
	EXTRN	DWTUEC	USER ECB ADDRESS
	EXTRN	DWTOR	DWT INDEX AND ORDER
	EXTRN	DWTORD	ORDER/INDEX SAVE AREA 
	EXTRN	DWTTAB	TTAB ADDRESS
	EXTRN	DWTA2	SAVE AREA A2 
	EXTRN	DWTSB2	STACK BASE 2 IN DWT 
	EXTRN	TTB:MT	MMU TABLE 
	EXTRN	SAVE8	SAVE A1-A8 ON A15 STACK
	EXTRN	SETIMP	TIMER 
	EXTRN	INTSAV	INTERRUPT SAVE AREA 
	EXTRN	PFPOST	PWF POST PROC. FLAG 
	EXTRN	TASCII	EBCDIC TO ASCII TAB 
	EXTRN	TEBCDIC	ASCII TO EBCDIC TAB
	EXTRN	SPDLCI	OPEN/CLOSE STATUS FOR FD DRIVE
	EXTRN	ECBBA	ECB BUFFER ADDRESS 
	EXTRN	ECBRL	ECB REQUESTED LENGTH 
	EXTRN	ECBEL	ECB EFFECTIVE LENGTH 
	EXTRN	ECBCW1	ECB CONTROL WORD 1
	EXTRN	ECBCW2	ECB CONTROL WORD 2
	EJECT			DRFD01 
* 
************************
*                      *
* CONDITIONAL ASSEMBLY *
*                      *
************************
* 
* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED 
* CHANNEL BY SETTING X:A = 0
* 
X:A	EQU	1 
CHAN	EQU	1
* 
*	A PROGRAM VERSION INCLUDING TOSS DISC FORMAT
*	IS OBTAINED BY SETTING TOSS EQU 1.
* 
X:B	EQU	0 
TOSS	EQU	1
* 
*	A PROGRAM VERSION INCLUDING IBM DISC FORMAT 
*	IS OBTAINED BY SETTING IBM EQU 1. 
* 
X:C	EQU	0 
IBM	EQU	0 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
	EJECT			DRFD01 
* 
* 
*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER 
*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1
* 
X:D	EQU	0 
OPCLOS	EQU	0
* 
	EJECT			DRFD01 
* 
* 
*   MMU BUFFER SIZE 
* 
* 
	IFT	MMUPAG=0 
DVBLEN	EQU	256
	XIF
* 
	IFT	MMUPAG=1 
X:E	EQU	256		 
DVBLEN	EQU	460		
	XIF
* 
* 
*   MMU DEVICE INDEX
* 
* 
DEVIND	EQU	10 
* 
	EJECT			DRFD01 
* 
************* 
*           * 
* CONSTANTS * 
*           * 
************* 
* 
CUADR	EQU	09	CONTROL UNIT ADDRESS 
MUXADR	EQU	CUADR+CUADR	MUX-ADDRESS
SOPDA	EQU	/2E	S.O.P. DEVICE ADDRESS 
SECLEN	EQU	128	SECTOR LENGTH
MAXSEC	EQU	2002	MAX SECTOR NUMBER 
MAXIBM	EQU	1923	MAX SECTOR NUMBER IBM DISC
BOE	EQU	28	BEGIN OF EXTENT POSITION 
EOE	EQU	34	END OF EXTENT POSITION 
EOD	EQU	74	END OF DATA POSITION 
TIME	EQU	20	DELAY - POWER ON
OPENTI	EQU	10	DELAY AT OPEN ORDERS
* 
DIXTAB	EQU	*	DOUBLE INDEX TABLE 
	DATA	/0102 
	DATA	/0408 
* 
	EJECT			DRFD01 
* 
**********
*        *
* TABLES *
*        *
**********
* 
	IFF	CHAN+IBM=0 
	DATA	DVBLEN+DVBLEN	MMU BUFFER SIZE 
	XIF
* 
	IFT	CHAN=0 
	IFT	IBM=0
	DATA	0	INDICATE NO MMU BUFFER
	XIF
* 
	DATA	DEVIND	DEVICE INDEX 
FDADR	DATA	FDAD	ACTIVATION ADDRESS
	DATA	0	ABORT ROUTINE ADDRESS 
* 
	EJECT			DRFD01 
* 
*************** 
*             * 
* TEST STATUS * 
*             * 
*************** 
* 
TESTST	EQU	*
	IFF	IBM+TOSS=0 
	CF	A15,NVLCHK
	STR	A1,A6	SAVE NVL INDICATOR 
	XIF
* 
	LDKL	A2,/FFF9	BIO DUMMY
	CF	A5,FD:WRI 
	ANK	A1,1 
	RF(NZ)	DIS:EN	DISC NOT OPERABLE
	LDKL	A2,/7FFF	RESET REQUEST ERROR BIT
	ANRS	A2,A6 
* 
	IFF	TOSS+IBM=0 
	CF	A5,VO:NAM	GET VOLUME NAME 
	LD	A1,DWTORD,A6	RESTORE INDEX AND ORDER
	ST	A1,DWTOR,A6 
	CF	A15,VOLNAM
	RF	FORM70	END:IO 
	XIF
* 
	IFT	TOSS+IBM=0 
	ABL	END:RC 
	XIF
* 
	EJECT		DRFD01
* 
**********************
*                    *
* FORMAT VOLUME      *
*                    *
**********************
* 
FORMAT	EQU	*
	CF	A15,NVLCHK
	ADK	A1,0 
	RF(NZ)	DIS:EN	ERROR: NEW VOLUME LOADED 
	LDK	A2,36	CLEAR VOLUME NAME
FORM10	EQU	*
	CM	BUF,A2
	SUK	A2,2 
	RB(NN)	FORM10
	CF	A15,VOLCLR	CLEAR VOLUME NAME FROM DWT 
	LDK	A2,1	BIO 
	LDK	A3,36	LENGTH 
	LDKL	A4,BUF	VOLUME LABEL ADDRESS 
	LD	A1,ECBCW1,A8
	RF(NZ)	FORM50	IBM DISC 
	LDKL	A1,'TO'	WRITE TOSS IN VOLUME LABEL
	ST	A1,BUF+32 
	LDKL	A1,'SS' 
	ST	A1,BUF+34 
	IFT	IBM=1
	C1	A1,DWTA3,A6	INDICATE TOSS 
	ANS	A1,DWTLAB,A6 
	XIF
	RF	FORM60
* 
	EJECT		DRFD01
* 
* 
FORM50	EQU	*
	CF	A5,FD:WRI	WRITE SECTOR 0
	LDKL	A4,BUF	BUFFER ADDRESS 
	LDKL	A1,/E5D6	VO IN EBCDIC 
	STR	A1,A4
	LDKL	A1,/D3F1	L1 IN EBCDIC 
	ST	A1,BUF+2
	IFT	IBM=1
	LD	A1,DWTA3,A6	INDICATE IBM
	ORS	A1,DWTLAB,A6 
	XIF
	LDK	A2,/31	BIO 
	LDK	A3,36	LENGTH 
FORM60	EQU	*
	CF	A5,FD:WRI 
FORM70	EQU	*
	ABL	END:RC 
* 
	EJECT			DRFD01 
* 
**************
*            *
* ACTIVATION *
*            *
**************
* 
FDAD	EQU	*	ACTIVATION ENTRY 
	IFT	MMUPAG=1 
	IFT	CHAN=0 
	CM	BUFFLG,A6 
	XIF
* 
	LD	A2,DWTOR,A6	INDEX AND ORDER 
	ST	A2,DWTORD,A6	SAVE FOR RECOVERY PURPOSES 
	CMR	A6	RESET TEMPORARY RETURN CODE 
	LDK	A3,0 
	LC	A3,DWTOR,A6	GET INDEX 
* 
	IFT	OPCLOS=1 
* 
*    CHECK IF OPEN OR CLOSE ORDER 
* 
	LDR	A1,A7	ORDER
	SUK	A1,/21 
	RF(Z)	OPEN	OPEN
	SUK	A1,1 
	RF(NZ)	FD:ORD	NOT CLOSE ORDER
* 
	EJECT
* 
********* 
*       * 
* CLOSE * 
*       * 
********* 
* 
*    CLOSE IS PERFORMED BY WRITING A ONE TO BIT 
*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER 
* 
	LDKL	A1,/8000	MASK FOR BIT 0 
	ORS	A1,SPDLCI	SET OPEN/CLOSE BIT 
	RF	OPEN10
* 
	EJECT
* 
********
*      *
* OPEN *
*      *
********
* 
*    OPEN IS PERFORMED BY WRITING A ZERO TO BIT 
*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.
* 
OPEN	EQU	*
	LD	A1,DWTTP2,A6	TIMER POINTER
	RF(NZ)	OPEN20	TIMER ACTIVE 
	LDKL	A1,/7FFF	MASK FOR BIT 0 
	ANS	A1,SPDLCI	CLEAR OPEN/CLOSE BIT 
* 
OPEN10	EQU	*
	LD	A1,SPDLCI	SOP LIGHTS AND OPEN/CLOSE DATA
	OTR	A1,0,SOPDA	OPEN FD DRIVE 
* 
*    WAIT FOR DRIVE TO BECOME OPERABLE
* 
	LDK	A4,DWTTP2	TIMER POINTER OFFSET 
	ADR	A4,A6	A4:=TIMER POINTER ADDRESS
	LDR	A1,A6	SAVE DWT-ADDR
	CF	A15,SETIMP	WAIT 
	DATA	OPENRE,OPENTI	START ADDR, WAIT TIME 
OPEN20	EQU	*
	ABL	TDISP	EXIT 
* 
OPENRE	EQU	*
	LDR	A6,A1	GET DWT-ADDR 
	CM	DWTTP2,A6	INDICATE NO TIMER RUNNING 
	LDK	A1,0	RETURN CODE 
	RF	DIS:EN	PERFORM TENDIO AND TDISP 
	XIF
* 
	EJECT
* 
*  PUT DRIVE NO IN CIO-INSTRUCTION
* 
FD:ORD	EQU	*
	LC	A2,DIXTAB,A3
	SC	A2,DWTA3+1,A6	SAVE DRIVE INDEX MASK 
* 
	IFT	IBM+TOSS=2 
	AN	A2,DWTLAB,A6
	SC	A2,DWTFIB+1,A6	INDICATE TOSS/IBM
	XIF
* 
	CF	A5,SETCIO	A3,A4 AFFECTED
* 
	EJECT		DRFD01
* 
* 
	LDR	A3,A7
	RB(Z)	TESTST	TEST STATUS 
* 
	IFT	IBM=0
	SUK	A3,31
	RB(Z)	FORMAT	FORMAT VOLUME 
	SUK	A3,7 
	RF(N)	INTEST	READ/WRITE ORDER
	SUK	A3,18
	ABL(NP)	LOAD	LOAD/UNLOAD 
	XIF
* 
	IFT	IBM=1
	SUK	A3,1 
	RF(Z)	INTEST	BASIC READ
	SUK	A3,1 
	RF(Z)	IBMCHK	SEQUENTIAL READ 
	SUK	A3,3 
	RF(Z)	INTEST	BASIC WRITE 
	SUK	A3,1 
	RF(Z)	IBMCHK	SEQUENTIAL WRITE
	SUK	A3,25
	RB(Z)	FORMAT	FORMAT VOLUME 
	SUK	A3,7 
	RF(N)	INTEST	PHYSICAL READ/WRITE 
	SUK	A3,11
	RF(Z)	IBMCHK	REWIND
	SUK	A3,7 
	ABL(NP)	LOAD	LOAD/UNLOAD 
	XIF
* 
IBMCHK	EQU	*
	IFT	TOSS+IBM=2 
	LD	A4,DWTFIB,A6
	ABL(NZ)	IBMDSK	IBM DISC HANDLING 
	XIF
* 
	IFT	TOSS=0 
	IFT	IBM=1
	ABL	IBMDSK	IBM DISC HANDLING 
	XIF
* 
	EJECT		DRFD01
* 
* 
REQERR	ABL	DISIOE	REQUEST ERROR 
* 
INCLEN	EQU	*	INCORRECT REQUESTED LENGTH EXIT
	LDKL	A1,/8008	RETURN CODE
* 
DIS:EN	EQU	*
	ABL	DISEND	PERFORM TENDIO AND GO TO TDISP
* 
	EJECT		DRFD01
* 
* INPUT PARAMETER CHECK 
* 
INTEST	EQU	*
	IFF	TOSS+IBM=0 
	CF	A15,NVLCHK	CHECK IF NEW VOLUME LOADED 
	ADK	A1,0 
	RB(NZ)	DIS:EN	NEW VOLUME LOADED
	XIF
* 
	LD	A3,ECBRL,A8 
	RB(Z)	INCLEN	INCORRECT INPUT PARAMETER ECBRL 
	IFT	MMUPAG+CHAN=2
	LDKL	A2,DVBLEN+DVBLEN	CHECK MMU BUFFER SIZE
	CWK	A2,512 
	RF(NL)	INTES3	SUFFICIENT 
	CWR	A3,A2
	RB(G)	INCLEN	MMU BUFFER TOO SMALL
INTES3	EQU	*
	XIF
	SRC	A3,7	NUMBER OF PHYSICAL SECTORS
	RB(N)	INCLEN	INCORRECT INPUT PARAMETER ECBRL 
	CWK	A3,/01FF 
	RB(G)	INCLEN	INCORRECT INPUT PARAMETER ECBRL 
	LD	A2,ECBCW2,A8	GET SECTOR NUMBER
* 
	IFT	IBM+TOSS=2 
	LD	A4,DWTFIB,A6
	RF(NZ)	INTES5	IBM-DISC 
	XIF
* 
	IFT	TOSS=1 
	LDR	A4,A3
	SRC	A4,1	CHECK IF EVEN NUMBER OF PHYSICAL SECTORS
	RB(N)	INCLEN	INCORRECT INPUT PARAMETER ECBRL 
	SLL	A2,1	TRANSFER TOSS-SEC. NO TOPHYSICAL SEC. NO
* 
	EJECT		DRFD01
* 
* 
INTES5	EQU	*
	XIF
	LDR	A4,A2	SAVE PHYSICAL SECTOR NUMBER
	RB(N)	REQERR	REQUEST ERROR 
	SUKL	A4,MAXSEC	
	RB(NN)	REQERR	REQUEST ERROR
	ADR	A4,A3
	RB(P)	INCLEN	INCORRECT LENGTH
	ST	A3,DWTNOS,A6	SAVE NUMBER OF SECTORS 
	ST	A2,DWTCW2,A6	DWTCW2 CONTAINING PHYS SEC NO
	LD	A2,ECBBA,A8	GET ECBBA 
	ST	A2,DWTBA,A6	SAVE ECB BUFFER ADDRESS 
* 
	IFT	MMUPAG=1 
	LCR	A2,A8
	ANK	A2,/30 
	ST	A2,DWT:BF,A6	SAVE BITS 0-1 IN 18-BIT ADDRESS
	XIF
* 
	EJECT		DRFD01
* 
*   MULTIPLE SECTOR IO ENTRY
* 
FD:000	EQU	*
	IFT	MMUPAG=1 
	IFT	CHAN=0 
	LD	A2,DWT:BF,A6
	ST	A2,BUFFLG,A6	SET BUFFER FLAG
	XIF
* 
	LDKL	A2,512
	LDK	A4,3 
	SUK	A3,4 
	RF(NN)	FD:005	FOUR PHYS. SEC. IO 
* 
FD:003	SUK	A2,128 
	SUK	A4,1 
	ADK	A3,1 
	RB(NZ)	FD:003
* 
FD:005	EQU	*
	ST	A4,DWTSIO,A6	SECTORS IN ONE IO ON DISC
	ST	A2,DWTRL,A6	UPDATE DWTRL FOR BIO
	ST	A3,DWTNOS,A6	UPDATE NUMBER OF SECTORS 
* 
	EJECT			DRFD01 
* 
* 
	IFT	MMUPAG=1 
	IFF	CHAN+IBM=0 
	LD	A2,DWTBA,A6	BUFFER ADDRESS
	LD	A1,DWT:BF,A6
	RF(NZ)	FD:007	BUFFER NOT IN SYSTEM AREA
	LDR	A3,A2
	RF(NN)	FD:009
	AD	A3,DWTRL,A6	CHECK IF 64K LIMIT WILL BE PASSED 
	RF(N)	FD:009	NO
* 
	EJECT		DRFD01
* 
* 
FD:007	EQU	*
	ECR	A3,A2
	ANK	A3,/F0 
	SRL	A3,2 
	SLL	A1,2 
	ORR	A1,A3
	SC	A1,DWT:PA,A6	6 BIT PHYSICAL BUFFER ADDRESS
	ADK	A1,/4	CREATE ONE MORE MMU ENTRY
	SC	A1,DWT:PA+2,A6
	ANKL	A2,/FFF 
	LDR	A1,A2
	ORK	A1,1	INDICATE ADDRESS NOT ZERO 
* 
FD:009	ST	A1,DWT:LA,A6	16 BIT LOGICAL BUFFER ADDRESS
	XIF
* 
	LDK	A4,0	PREPARE FOR BIO 
	LD	A1,DWTOR,A6 
	ANK	A1,/3F	ORDER 
	SUK	A1,1 
	RF(Z)	FD:060	BASIC READ
	SUK	A1,4 
	RF(Z)	FD:015	BASIC WRITE 
	SUK	A1,12
	RF(Z)	FD:060	PHYSICAL READ 
	SUK	A1,4 
	RF(Z)	FD:013	PHYSICAL WRITE
	SUK	A1,15	CHECK IF WRITE DELETED DATA
* 
RQ:ERR	EQU	*
	RB(NZ)	REQERR
* 
	EJECT			DRFD01 
* 
*   WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS 
* 
	LDK	A4,1	WRITE DELETED DATA ORDER
FD:013	EQU	*	PHYSICAL WRITE ORDER 
	ADK	A4,4 
FD:015	EQU	*	BASIC WRITE ORDER
	ADK	A4,1 
	CF	A5,BIO	PREPARATION FOR CIO
* 
	IFT	MMUPAG=1 
	IFT	CHAN=0 
	IFT	TOSS+IBM=2 
	LD	A1,DWTFIB,A6
	RF(Z)	FD:018	NOT IBM 
	XIF
* 
	IFT	MMUPAG=1 
	IFF	CHAN+IBM=0 
	LD	A1,DWT:LA,A6	GET FLAG/LOGICAL BUFFER ADDRESS
	RF(Z)	FD:019	BUFFER IN SYSTEM AREA 
	LDR	A7,A3	REQUESTED LENGTH 
	LDR	A8,A2	SAVE A2
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	LDR	A2,A4
	TS	-30,A15	SAVE RUNNING TASK MMU 
	TL	DWT:PA,A6	LOAD PSEUDO MMU TABLE 
	MVUS	A7	MOVE BUFFER FROM USER TO SYSTEM AREA 
	TL	-30,A15	RESTORE MMU FROM STACK
	LDR	A2,A8	RESTORE A2 
	CM	BUFFLG,A6	INDICATE BUFFER IN SYSTEM AREA
FD:019	EQU	*
	XIF
* 
	IFT	TOSS+IBM=2 
	LD	A1,DWTFIB,A6
	RF(Z)	FD:018	NOT IBM 
	XIF
* 
	IFT	IBM=1
	LDR	A7,A3	NO OF CHAR. TO BE TRANSFORMED
	CF	A5,EBCDIC 
FD:018	EQU	*
	XIF
* 
	EJECT			DRFD01 
* 
* 
	CF	A5,FD:WRITE	PERFORME WRITE
	ANKL	A3,/200	CHECK IF WRITE PROTECTED
	RF(Z)	FD:020 
	LDK	A3,/40	INDICATE ERROR
	ORRS	A3,A6	UPDATE TEMPORARY RETURN CODE
FD:020	EQU	*
	RF	FD:100	GOTO FDMSIO
* 
	EJECT			DRFD01 
* 
***************** 
*               * 
* PHYSICAL READ * 
*               * 
***************** 
* 
FD:060	CF	A5,BIO
* 
	IFT	MMUPAG=1 
	IFT	CHAN=0 
	IFT	TOSS+IBM=2 
	LD	A1,DWTFIB,A6
	RF(Z)	FD:070	TOSS DISC 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	CM	BUFFLG,A6	INDICATE BUFFER IN SYSTEM AREA
	XIF
* 
FD:070	EQU	*
	IFT	MMUPAG=1 
	IFT	CHAN=1 
	LD	A1,DWT:LA,A6
	RF(Z)	FD:080	BUFFER IN SYSTEM AREA 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	CM	BUFFLG,A6	INDICATE BUFFER IN SYSTEM AREA
	XIF
* 
	IFT	MMUPAG=1 
	IFT	IBM=1
	IFT	TOSS+CHAN=0
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	CM	BUFFLG,A6	INDICATE BUFFER IN SYSTEM AREA
	XIF
* 
FD:080	EQU	*
	CF	A5,FD:REA	PERFORM READ
* 
	IFT	TOSS+IBM=2 
	LD	A1,DWTFIB,A6
	RF(Z)	FD:090	NOT IBM 
	XIF
* 
	IFT	IBM=1
	IFT	MMUPAG=0 
	LD	A4,DWTBA,A6	ASCII OUTPUT ADDRESS
	XIF
* 
	IFT	IBM=1
	LD	A7,DWTRL,A6	REQ. LEN
	IFT	MMUPAG=1		=8 
	LD	A4,DWT:LA,A6	LOGICAL ADDRESS	=8 
	RF(NZ)	FD:085	NOT SYSTEM AREA	=8 
	LD	A4,DWTBA,A6	BUFFER ADDRESS	=8 
	CF	A5,ASC:00	CONVERT EBCDIC-ASCII	=8 
	RF	FD:090		=8
FD:085	EQU	*		=8
	XIF			=8 
	IFT	IBM=1		=8
	CF	A5,ASCII		=8
FD:090	EQU	*
	XIF
* 
	EJECT			DRFD01 
* 
* 
	IFT	MMUPAG=1 
	IFT	CHAN=0 
	IFT	TOSS+IBM=2 
	LD	A1,DWTFIB,A6
	RF(Z)	FD:100	TOSS DISC 
	XIF
* 
	IFT	MMUPAG=1 
	IFF	CHAN+IBM=0 
	LD	A2,DWT:LA,A6	GET FLAG/LOGICAL BUFFER ADDRESS
	RF(Z)	FD:100	BUFFER IN SYSTEM AREA 
	LD	A7,DWTRL,A6	REQUESTED LENGTH
	LDKL	A1,BUF	GET DWT BUFFER ADDRESS 
	TS	-30,A15	SAVE RUNNING TASK MMU 
	TL	DWT:PA,A6	LOAD PSEUDO MMU TABLE 
	MVSU	A7	MOVE BUFFER FROM SYSTEM TO USER AREA 
	TL	-30,A15	RESTORE MMU FROM STACK
	XIF
FD:100	EQU	*
	ABL	FDMSIO 
* 
	EJECT			DRFD01 
* 
********
*      *
* LOAD *
*      *
********
* 
LOAD	EQU	*
	ADK	A3,0	CHECK ORDER CODE
	RF(Z)	UNLOAD	UNLOAD ORDER
	ADK	A3,1 
	RF(Z)	LOAD00	LOAD ORDER
	ADK	A3,17
	RB(NZ)	RQ:ERR	ERROR IF NOT LOCK
* 
LOAD00	EQU	*
	LDK	A2,/14	LOCK
	CF	A5,FD:REA 
	ANK	A3,1 
	RF(NZ)	LOA:80	ENDIO NOT OPERABLE 
* 
	IFT	TOSS+IBM=2 
	LD	A1,DWTFIB,A6
	RF(Z)	LOA:70	TOSS DISC 
	XIF
* 
	IFT	IBM=1
	LC	A3,DWTOR+1,A6	GET ORDER 
	SUK	A3,/26 
	RF(Z)	LOA:65	LOCK ORDER
	CF	A5,VO:NAM 
	CF	A5,LD:RC	CHECK RETURN CODE
	EJECT			DRFD01 
* 
*  READ DATA SET LABEL
* 
	LD	A2,ECBCW1,A8	SECTOR NUMBER	=3 
	SUK	A2,7 
	RF(N)	LOA:85	REQUEST ERROR 
	SUK	A2,18
	RF(P)	LOA:85	REQUEST ERROR 
	ADK	A2,25
	SLL	A2,3	BIO 
	LDK	A3,80	LENGTH 
	LDKL	A4,BUF
	CF	A5,FD:REA 
	SLL	A1,4	CHECK NO DATA BIT 
	RF(NN)	LOA:60	NOT NO DATA
	ORK	A3,/10	INDICATE ILLEGAL DATA SET LABEL 
LOA:60	EQU	*
	CF	A5,LD:RC
	ENB
	LD	A3,ECBCW1,A8	DATA SET LABEL SECTOR	=3 
	LDK	A1,DWTDSS
	CF	A5,STDWT	SAVE IN DWT
	ADK	A4,BOE	BOE ADDRESS 
	CF	A5,LOGSEC	TRANSFORM TO LOGICAL SECTOR 
	LDK	A1,DWTBOE
	CF	A5,STDWT	STORE BOE NO IN DWT
	SUK	A3,1	CRN 
	LDK	A1,DWTCRN
	CF	A5,STDWT
	ADK	A4,EOE-BOE	EOE ADDRESS 
	CF	A5,LOGSEC 
	LDK	A1,DWTEOE
	CF	A5,STDWT	STORE EOE NO IN DWT
	ADK	A4,EOD-EOE	EOD ADDRESS 
	CF	A5,LOGSEC 
	INH		INHIBIT INTERRUPTS                                 	INHIBIT 
	LDK	A1,DWTEOD
	CF	A5,STDWT	STORE EOD NO IN DWT
* 
LOA:65	EQU	*
	LDKL	A3,/400 
	ORRS	A3,A6	UPDATE TEMPORARY RETURN CODE
* 
LOA:70	EQU	*
	XIF
	LD	A2,DWTA3,A6 
	ORS	A2,DWTLC,A6	INDICATE LOCK
LOA:80	EQU	*
	ABL	END:RC 
* 
	IFT	IBM=1
LOA:85	EQU	*
	LDK	A1,/80	REQUEST ERROR 
	SCR	A1,A6	UPDATE TEMPORARY RETURN CODE 
	XIF
* 
	EJECT			DRFD01 
* 
* 
	IFF	TOSS+IBM=0 
* 
*  ERROR , UNLOCK 
* 
LOA:90	EQU	*
	LDR	A5,A6
	ADKL	A5,DWTSB2	STACK BASE
	LDK	A2,/C	UNLOCK 
	CF	A5,FD:REA 
	RB	LOA:80
* 
*   LD:RC  SUBROUTINE 
* 
LD:RC	EQU	* 
	ANK	A3,/17	FATAL ERROR 
	RB(NZ)	LOA:90
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	RTN	A5 
	XIF
* 
	EJECT			DRFD01 
* 
**********
*        *
* UNLOAD *
*        *
**********
* 
UNLOAD	EQU	*
	IFT	IBM=1
* 
*    DATA SET OPEN
* 
	CF	A5,DSOPCH	A1,AFFECTED 
	ADK	A7,0	SET CR (CHECK EOD)
	RF(Z)	UNL:70	NOT OPEN
	ST	A7,12,A8	STORE EOD-NO IN CONTROL WORD OF ECB
* 
*  READ DATA SET LABEL TO DRIVER BUFFER 
* 
	CF	A5,DSLIO	PREPARE FOR I/O
	CF	A5,FD:REA	READ DATA SET LABEL 
	CF	A5,UNL:RC	RETURN CODE CHECK 
	ENB
* 
*  TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)
* 
	CF	A5,DSOPCH	EOD-NO TO A7
* 
*  DIVIDE EOD BY 26 
* 
	LDK	A1,0 
UNL:10	SUK	A7,26
	RF(N)	UNL:20 
	ADK	A1,1 
	RB	UNL:10
* 
	EJECT			DRFD01 
* 
* 
UNL:20	ADK	A7,27
* 
*   A1 = BINARY TRACK NO
*   A7 = SECTOR NO WITHIN TRACK (0-25)
* 
	CF	A5,BINDEC	TRANSFORM SEC.NO TO A3
	LDKL	A4,BUF+EOD+4	ADDRESS TO POS 79
	SCR	A3,A4
	SUK	A4,1 
	SRL	A3,8	LEFT BYTE 
	SCR	A3,A4	STORE IN BUFFER
	LDR	A7,A1	TRACK
	CF	A5,BINDEC	DEC EBCDIC-CODED IN A3
	SUK	A4,3 
	STR	A3,A4	TRACK INTO BUF 
	INH		INHIBIT INTERRUPTS                                 	INHIBIT 
* 
*  WRITE DATA SET LABEL 
* 
	CF	A5,DSLIO	PREPARE FOR I/O
	ORK	A2,5	PHYSICAL WRITE
	CF	A5,FD:WRITE	WRITE DATA SET LEBEL
	CF	A5,UNL:RC	CHECK RETURN CODE 
	CF	A5,DSOPCH 
	CMR	A2	INDICATE NOT OPEN 
* 
	EJECT			DRFD01 
* 
*    UNLOCK 
* 
	XIF
UNL:70	EQU	*
	LDK	A2,/C	UNLOCK 
	CF	A5,FD:REA 
	ANK	A3,1 
	RB(NZ)	LOA:80	NOT OPERABLE 
	C1	A2,DWTA3,A6	INDEX MASK
	ANS	A2,DWTLC,A6	INDICATE UNLOCK IN DWT 
	RB	LOA:80	END:IO 
* 
	IFT	IBM=1
* 
*   UNLOAD RETURN CODE CHECK
* 
UNL:RC	EQU	*
	ANKL	A3,/207 
	RF(Z)	RTN:A5	NO RETURN CODE
	ANKL	A3,/200 
	RF(Z)	RTN:A5	NOT WRITE PROTECTED 
	CF	A5,DSOPCH 
	ADK	A7,0	SET CR (CHECK EOD)
	RF(Z)	RTN:A5	NOT OPEN
	LDK	A3,/40 
	ORRS	A3,A6	UPDATE TEMPORARY RETURN CODE
RTN:A5	EQU	*
	RTN	A5 
* 
	EJECT			DRFD01 
* 
* 
IBMDSK	EQU	*	IBM DISK HANDLING ENTRY
	IFT	IBM=1
	CF	A15,NVLCHK	CHECK IF NEW VOLUME LOADED 
	ADK	A1,0 
	ABL(NZ)	END:IO	NEW VOLUME LOADED 
	CF	A5,DSOPCH	GET EOD 
	ADK	A7,0	SET CR (CHECK EOD)
	RF(Z)	FD:DIS	NOT OPEN, ERROR 
	LC	A1,DWTOR+1,A6	ORDER CODE
	SUK	A1,49
	RF(Z)	REWIND	REWIND FILE 
	LD	A3,ECBRL,A8	CHECK REQUESTED LENGTH
	IFT	MMUPAG+CHAN=2
	CWK	A3,DVBLEN+DVBLEN 
	ABL(G)	INCLEN	MMU BUFFER TOO SMALL 
	XIF
	IFT	IBM=1
	SUK	A3,SECLEN
	ABL(NZ)	INCLEN	INCORRECT LENGTH
	ADK	A1,43
	RF(Z)	SQWRITE	SEQUENTIAL WRITE 
	ADK	A1,4 
	RF(NZ)	FD:DIS	ERROR IF NOT SEQUENTIAL READ 
* 
	EJECT			DRFD01 
* 
******************* 
* SEQUENTIAL READ * 
******************* 
* 
	ADK	A2,DWTCRN-DWTEOD	A2 = ADDRESS TO CRN 
	LDR*	A3,A2	CRN 
	ADK	A3,1	CRN+1 
	ST	A3,ECBCW2,A8	STORE CRN+1 IN ECB 
	CWK	A3,MAXIBM
	RF(P)	FD:DIS	REQUEST ERROR 
	CWR	A3,A7
	RF(NL)	SQR:10	END OF DATA
	LDK	A4,0	BIO READ
	CF	A5,BIOSQ
	CF	A5,FD:REA	READ SECTOR POINTED AT BY CRN+1 
* 
	IFT	MMUPAG=0 
	LD	A4,ECBBA,A8	USER BUFFER ADDRESS 
	XIF
* 
	IFT	IBM=1
	LDK	A7,SECLEN
	CF	A5,ASCII	TRANSFORM TO ASCII 
* 
	EJECT			DRFD01 
* 
* 
	IFT	MMUPAG=1 
	TS	-30,A15	SAVE RUNNING TASK'S MMU 
	LD	A7,DWTTAB,A6	TTAB ADDRESS 
	TL	TTB:MT,A7	LOAD MMU TABLE
	LDKL	A1,BUF	DRIVER BUFFER ADDRESS
	LD	A2,DWTUEC,A6	USER ECB ADDRESS 
	EL	A2,ECBBA,A2	USER BUFFER ADDRESS 
	LDK	A7,SECLEN	LENGTH 
	MVSU	A7	MOVE SECTOR TO USER BUFFER 
	TL	-30,A15	RESTORE MMU TABLE FROM STACK
	XIF
* 
	IFT	IBM=1
	LDK	A1,DWTCRN
	CF	A5,DSPAD
	ANK	A3,1	NOT OPERABLE	=7 
	RF	SQW:10	UPDATE CRN 
* 
*    END OF DATA
* 
SQR:10	LDKL	A1,/1000	RETURN CODE
	RF	END:IO
* 
	EJECT			DRFD01 
* 
******************* 
* SEQUENTIAL WRITE *
******************* 
* 
SQWRIT	EQU	*
* 
*   CHECK IF END OF EXTENT
* 
	LDK	A1,DWTEOE
	CF	A5,DSPAD	EOE-NO ADDRESS TO A2 
	ST	A7,ECBCW2,A8	STORE EOD IN ECB C. W. 
	CWK	A7,MAXIBM
	RF(P)	FD:DIS	REQUEST ERROR 
	CWR*	A7,A2 
	RF(G)	ENDEOE	END OF EXTENT 
* 
	IFT	MMUPAG=1 
	TS	-30,A15	SAVE RUNNING TASK'S MMU 
	LD	A7,DWTTAB,A6	TTAB ADDRESS 
	TL	TTB:MT,A7	LOAD MMU TABLE
	LD	A1,DWTUEC,A6	USER ECB ADDRESS 
	EL	A1,ECBBA,A1	USER BUFFER ADDRESS 
	LDKL	A2,BUF	DRIVER BUFFER ADDRESS
	LDK	A7,SECLEN	LENGTH 
	MVUS	A7	MOVE SECTOR TO DRIVER BUFFER 
	TL	-30,A15	RESTORE MMU TABLE FROM STACK
	XIF
* 
	IFT	IBM=1
	LDK	A4,5	BIO WRITE 
	CF	A5,BIOSQ
	LDK	A7,SECLEN
	CF	A5,EBCDIC	TRANSFORM AND MOVE TO BUF 
* 
	EJECT		DRFD01
* 
* 
	CF	A5,FD:WRI 
	SRL	A1,3	IF BIT 6 SET THEN	=7
	ANK	A1,/40	SET BIT 9	=7
	ORRS	A1,A6	UPDATE TEMPORARY RETURN CODE	=7 
	CF	A5,DSOPCH 
SQW:10	EQU	*
	ANKL	A3,/207	WRITE PROTECTED OR NOT OPERABLE 
	RF(NZ)	END:RC
	IMR	A2	EOD=EOD+1 OR CRN=CRN+1 IN DWT 
	LDK	A2,SECLEN
	ST	A2,ECBEL,A8	UPDATE EFFECTIVE LENGTH 
	RF	END:RC
* 
FD:DIS	EQU	*
	ABL	DISIOE	REQUEST ERROR 
* 
	EJECT			DRFD01 
* 
**********
* REWIND *
**********
* 
REWIND	EQU	*
	LDR	A3,A2	SAVE EOD ADDRESS 
	LDK	A1,DWTBOE
	CF	A5,DSPAD
	LDR*	A4,A2	BOE 
	STR	A4,A3	EOD = BOE
	LDK	A1,DWTCRN
	CF	A5,DSPAD
	SUK	A4,1	BOE - 1 
	STR	A4,A2	CRN = BOE -1 
	LDK	A1,0	RETURN CODE 
	RF	END:IO
	XIF
* 
	EJECT			DRFD01 
* 
***************** 
*               * 
* PERFORM ORDER * 
*               * 
***************** 
* 
* 
*  INPUT:  A2  BIO CONTENTS 
*          A3  NO OF BYTES TO BE TRANSFERED 
*          A4  BUFFER ADDRESS 
* 
FD:WRI	EQU	*
	IFT	CHAN=0 
	LDKL	A1,/C000	WORDS,WRITE
	XIF
	IFT	CHAN=1 
	LDK	A1,0	INDICATOR WRITE MODE
	XIF
	RF	FD:800
* 
FD:REA	EQU	*
	IFT	CHAN=1 
	LDK	A1,1	READ MODE 
	XIF
	IFT	CHAN=0 
	LDKL	A1,/8000	WORDS  READ
	XIF
FD:800	EQU	*
	IFT	CHAN=0 
	SRL	A3,1	FROM BYTES TO WORDS 
* 
	EJECT			DRFD01 
* 
* 
	IFT	MMUPAG=1 
	LD	A7,BUFFLG,A6	CHECK WHAT BUFFER TO READ TO 
	RF(Z)	FD:810	BUFFER IN SYSTEM AREA 
	LD	A7,DWT:BF,A6	BITS 0-1 IN 18-BIT ADDRESS 
	ECR	A7,A7
	ORR	A1,A7
FD:810	EQU	*
	XIF
* 
	IFT	CHAN=0 
	ORR	A3,A1
WER1	WER	A3,MUXADR	FIRST WER
WER2	WER	A4,MUXADR+1	SECOND WER 
	XIF
	IFT	CHAN=1 
* 
	EJECT			DRFD01 
* 
*  PUT BUFFER START AND END ADDRESS IN DWT
* 
	ST	A1,DWTRW,A6	INDICATE MODE 
	ST	A4,DWTUB,A6 
	ADR	A3,A4
	ST	A3,DWTUBE,A6	END ADDRESS+2
	XIF
	ST	A5,DWTA5,A6	SAVE STACK POINTER
	LD	A3,PFPOST 
	RF(NZ)	T:DISP	POST PROCESSING FLAG SET 
FD:CIO	EQU	*	LABEL USED FOR CHANGE OF CUADR 
	CIO	A2,1,CUADR	CIO START 
	RF(3)	END:30	DEVICE ADDRESS UNKNOWN
	RF	T:DISP
* 
	EJECT			DRFD01 
* 
************************************* 
* 
*  FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO  * 
*                                   * 
************************************* 
* 
FDMSIO	EQU	*
	IM	DWTCW2,A6	UPDATE SECTOR NUMBER
	LDR*	A1,A6	RETURN CODE 
	ANK	A1,/7F	GET ERROR RETURN CODE 
	RF(NZ)	END:RC
	LD	A2,DWTSIO,A6	GET NUMBER OF SECTORS DONE 
	ADS	A2,DWTCW2,A6	UPDATE DWTCW2 
	LD	A2,DWTRL,A6 
	ADS	A2,ECBEL,A8	UPDATE ECBEL 
	LD	A3,DWTNOS,A6
	RF(NP)	END:RC	LAST SECTOR DONE 
	IFT	MMUPAG=1 
	LD	A4,DWTBA,A6	GET BUFFER POINTER
	ADR	A2,A4	UPDATE BUFFER POINTER
	ST	A2,DWTBA,A6 
	RF(N)	FDMSI1	NOT PASSED 64K LIMIT
	ADK	A4,0 
	RF(NN)	FDMSI1	NOT PASSED 64K LIMIT 
	LDK	A2,/10 
	ADS	A2,DWT:BF,A6	UPDATE BITS 0-1 
FDMSI1	EQU	*
	XIF
* 
	IFT	MMUPAG=0 
	ADS	A2,DWTBA,A6	UPDATE BUFFER POINTER
	XIF
	ABL	FD:000	MORE SECTORS IN MULTIPLE SECTOR IO
* 
	EJECT			DRFD01 
* 
**********
*        *
* END:IO *
*        *
**********
* 
	IFT	IBM=1
ENDEOE	EQU	*	END OF EXTENT EXIT 
	LDKL	A1,/2000	RETURN CODE
	RF	END:IO
	XIF
* 
END:RC	EQU	*
	LDR*	A1,A6	RETURN CODE 
END:IO	EQU	*
	CF	A15,TENDIO
T:DISP	ABL	TDISP
* 
END:30	EQU	*	CU ADDRESS UNKNOWN 
	LDK	A1,1	NOT OPERABLE
	ORS	A1,DWTST,A6	RECOVERY DONE	=1 
	RB	END:IO
	EJECT			DRFD01 
* 
********************
*                  *
* RECOVERY ROUTINE *
*                  *
********************
* 
FDON	EQU	*
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	LDKL	A6,DWFD01	DWT ADDRESS 
	LDKL	A4,/7FFE	SET UNIT BUSY AND RECOVERY ON	=1 
	ANS	A4,DWTST,A6		=1
	IM	DWTA2,A6	SET FDON FLAG
* 
	EJECT
* 
* DELAY 2 SEC 
* 
	LD	A4,DWTTP,A6 
	RF(Z)	FDON10	NO TIMER SET
	LDKL	A4,-TIME
	ST*	A4,DWTTP,A6	RESTART TIMER
	RB	T:DISP
FDON10	LDK	A4,DWTTP 
	ADR	A4,A6
	LDR	A1,A6	SAVE A6
	CF	A15,SETIMP
	DATA	FDON20,TIME 
* 
F:DISP	EQU	*
	RB	T:DISP
* 
*   TIME OUT ROUTINE
* 
FDON20	LDR	A6,A1
	CM	DWTTP,A6
	LDKL	A5,DWTSB2 
	ADR	A5,A6	GET STACK BASE 
* 
FDONVL	EQU	*	ENTRY USED BY READY INTERRUPT ROUTINE
	IFT	MMUPAG=1 
	IFT	CHAN=0 
	CM	BUFFLG,A6	RESET BUFFER FLAG 
	XIF
* 
	IFF	TOSS+IBM=0 
	IM	DWTST2,A6	SET RECOVERY/READY INT. INDICATOR 
	LDK	A3,3	4 VOLUMES 
* 
	EJECT		DRFD01
* 
* 
*  READ VOLUME NAME 
* 
FDONLD	EQU	*
	SC	A3,DWTOR,A6	GET VOLUME NAME 
	LC	A4,DIXTAB,A3	DRIVE INDEX MASK 
	SC	A4,DWTA3+1,A6	SAVE IT 
	CF	A5,SETCIO 
	LDK	A2,/14 
	CF	A5,FD:REA	LOCK
	ANK	A3,1 
	RF(Z)	FDON19	OPERABLE
	LDK	A1,6	NOT OPERABLE
	CF	A15,VOLCLR	CLEAR VOLUME NAME
	RF	FDON21	CONTINUE WITH NEXT DISC
* 
FDON19	EQU	*
	CF	A5,VO:NAM 
	LDKL	A2,/FBFF	RESET IBM IND. BIT 
	ANRS	A2,A6	UPDATE TEMPORARY RETURN CODE
FDON21	EQU	*
	LDK	A2,/C
	CF	A5,FD:REA	UNLOCK
	LDK	A3,0 
	LC	A3,DWTOR,A6	GET INDEX FOR LAST VOL. 
	SUK	A3,1 
	RB(NN)	FDONLD	NEXT VOLUME
	CM	DWTOR,A6
	CM	DWTST2,A6	INDICATE VOLUMES READ 
	XIF
	IM	DWTST,A6	INDICATE VOLUME NAMES READ 
* 
	IFT	OPCLOS=1 
* 
	EJECT
* 
*    TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING 
* 
	LD	A4,DWTTP2,A6	TIMER POINTER
	RF(Z)	FDON09	NOT RUNNING 
	CMR	A4	STOP TIMER
	CM	DWTTP2,A6	INDICATE NO TIMER 
FDON09	EQU	*
* 
*    OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE
* 
	LDKL	A4,SPDLCI	OPEN/CLOSE STATUS WORD ADDRESS
	LDKL	A2,/8000	OPEN/CLOSE BIT MASK
	ANR*	A2,A4	A2:=OPEN/CLOSE FLAG 
	ORS	A2,DWTOCF,A6	SAVE
	XRRS	A2,A4	SET STATUS WORD TO OPEN 
	LDR*	A2,A4 
	OTR	A2,0,SOPDA	SET DRIVE TO OPEN 
* 
FDON23	EQU	*
	XIF
* 
	EJECT
* 
*  LOCK DOORS 
* 
	LDK	A2,1 
FDON25	EQU	*
	LD	A1,DWTLC,A6	LOCK INDICATOR
	ANR	A1,A2
	RF(Z)	FDON30	NOT LOCKED
	ST	A2,DWTA3,A6	SAVE
* 
	EJECT
* 
*  PUT DRIVE NO IN CIO INSTR
* 
	SRN	A2,A3	DRIVE NO IN A3 
	CF	A5,SETCIO	PUT DRVE NO IN CIO-INSTR
	LDK	A2,/14	LOCK
	CF	A5,FD:REA 
	LD	A2,DWTA3,A6	DRIVE IND.
	ANK	A3,1 
	RF(Z)	FDON30	OK
	XRS	A2,DWTLC,A6	INDICATE UNLOCK
FDON30	EQU	*
	SLL	A2,1 
	CWK	A2,/0010 
	RB(NE)	FDON25
* 
	IFT	OPCLOS=1 
* 
*    RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF
* 
	LD	A2,DWTOCF,A6	OPEN/CLOSE FLAG
	ORS	A2,SPDLCI	TO STATUS WORD 
	CM	DWTOCF,A6	CLEAR FLAG
	LD	A2,SPDLCI	OPEN/CLOSE STATUS 
	OTR	A2,0,SOPDA	CLOSE DRIVE IF IT WAS CLOSED
	XIF
* 
	EJECT
* 
*  ANY REQUEST
* 
	CM	DWTA2,A6	RESET FDON FLAG
FDON60	EQU	*
	LD	A8,DWTECB,A6
	ABL(Z)	END:IO	NO REQUEST, RETURN VIA TENDIO
* 
*  RETRY REQUEST
* 
	IM	DWTRTY,A6	INDICATE RETRY
	LD	A7,DWTORD,A6
	ST	A7,DWTOR,A6	RESTORE INDEX AND ORDER 
	CM	ECBEL,A8	RESET EFFECTIVE LENGTH 
	ANK	A7,/3F	ORDER 
	ABL	FDAD	REACTIVATE
* 
	EJECT			DRFD01 
* 
********************
*                  *
*  READY INTERRUPT *
*                  *
********************
* 
FDRE	EQU	*
	LD	A2,DWTA2,A6 
	RB(NZ)	F:DISP	POWER ON ROUTINE ACTIVE
	LDKL	A5,DWTSB2 
	ADR	A5,A6	STACK BASE 
* 
	IFT	TOSS+IBM=0 
	RB	FDON60
	XIF
* 
	IFF	TOSS+IBM=0 
	LDKL	A3,/7FFE	SET UNIT BUSY AND RECOVERY ON	=1 
	ANS	A3,DWTST,A6		=6
	RB	FDONVL	READ VOLUME NAMES
	XIF
* 
	EJECT			DRFD01 
* 
********************* 
*                   * 
* INTERRUPT HANDLER * 
*                   * 
********************* 
* 
IHFD	EQU	*
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE REGISTERS ON STACK 
	XIF
* 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	LDKL	A6,DWFD01	DWT ADDRESS 
	IFT	CHAN=1 
	ENB
	LD	A1,DWTUB,A6	GET BUFFER POINTER
	LD	A2,DWTUBE,A6	END OF BUFFER
	SUR	A2,A1	LENGTH 
IH005	EQU	* 
	SST	A3,CUADR	GET STATUS
	RF(A)	IH:000	READY INTERRUPT 
	LD	A3,PFPOST 
	RF(NZ)	IHDISP	POST PROCESSING FLAG SET 
	LD	A3,DWTRW,A6	READ/WRITE INDICATOR
	RF(NZ)	IH050	READ
* 
	EJECT		DRFD01
* 
* 
IH010	EQU	* 
	LDR*	A3,A1	ONE WORD FROM BUFFER
	OTR	A3,0,CUADR	WRITE 
	RB(NA)	IH005 
	ADK	A1,2	UPDATE BUFFER POINTER 
	SUK	A2,2 
	RB(P)	IH010
	CIO	A2,0,CUADR	CIO HALT
IHDISP	EQU	*
	ABL	TDISP	GOTO DISPATCHER
* 
IH050	EQU	* 
	INR	A3,0,CUADR	READ
	RB(NA)	IH005 
	STR	A3,A1	ONE WORD TO BUFFER 
	ADK	A1,2	UPDATE BUFFER POINTER 
	SUK	A2,2 
	RB(P)	IH050
	CIO	A2,0,CUADR	CIO HALT
	SST	A3,CUADR	STATUS
	RB(NA)	*-2 
IH:000	EQU	*
	INH
	XIF
* 
	EJECT			DRFD01 
* 
* 
	IFT	CHAN=0 
	SST	A3,CUADR	STATUS
	RF(A)	IH:00		=2
	CIO	A3,0,CUADR		=2 
	SST	A3,CUADR		=2 
	RB(NA)	*-2		=2 
	LDK	A3,1	NOT OPERABLE	=2 
IH:00	EQU	*		=2 
	XIF
	LD	A8,DWTECB,A6	ECB ADDRESS
	LD	A5,DWTA5,A6	STACK POINTER 
	LDR	A2,A3	STATUS 
	SLL	A2,1 
	RB(N)	FDRE	READY INTERRUPT 
	LD	A2,DWTRTY,A6	RETRY
	RF(Z)	IH:10	NO 
	CM	DWTRTY,A6	RESET RETRY FLAG
	LDR	A1,A3
	ANK	A1,5	DATA FAULT, NOT OPERABLE
	RF(Z)	IH:10	RETURN CODE OK 
	ORK	A3,4 
IH:10	EQU	* 
* 
	EJECT			DRFD01 
* 
* TRANSFORM RETURN CODE, CU - ECB 
* 
	ANKL	A3,/FF37
	RF(Z)	IH:80
	LDR	A1,A3
	ANKL	A3,/0A05	UNCHANGED BITS 
	ECR	A4,A3
	ANK	A4,8	CHECK IF NO DATA
	RF(Z)	IH:70	NOT NO DATA
	ORK	A3,4	SET BIT 13 ALSO 
IH:70	EQU	* 
	LDR	A4,A1
	ANKL	A4,/0400	BIT 5
	SLC	A4,7	TO BIT 14 
	ORR	A3,A4
* 
	IFT	TOSS+IBM=0 
	LDR	A4,A1
	ANKL	A4,/2000	BIT 2
	SLL	A4,1	TO BIT 1
	ORR	A3,A4
	XIF
* 
	LDR	A4,A1
	ANK	A4,/20	BIT 10
	SLL	A4,3	TO BIT 7
	ORR	A3,A4
	ANK	A1,/10	BIT 11
	SRC	A1,5	TO BIT 0
	ORR	A3,A1
	ORRS	A3,A6	UPDATE TEMPORARY RETURN CODE
	ANKL	A3,/F7FF
IH:80	EQU	* 
	LDR	A1,A3
	RTN	A5 
* 
	EJECT			DRFD01 
* 
******************************************* 
*                                         * 
*    S U B R O U T I N E S                * 
*                                         * 
******************************************* 
* 
******* 
*     * 
* BIO * 
*     * 
******* 
* 
*  INPUT:  A8  ECB ADDRESS
*          A4   ORDER 
* 
*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START
*          A3  NO OF BYTES TO BE TRANSFERED 
*          A4  BUFFER ADDRESS 
* 
BIO	EQU	* 
	LD	A1,DWTCW2,A6	GET SECTOR NUMBER
	SLL	A1,3	PUT IN RIGHT BIO POSITION 
	LD	A2,DWTSIO,A6	GET NUMBER OF SECTORS IN THIS IO 
	SRC	A2,2 
	ORR	A2,A1	COMPLETE BIO 
	ADR	A2,A4	COMPLETE BIO WITH ORDER
	LD	A4,DWTBA,A6	BUFFER ADDRESS
	LD	A3,DWTRL,A6	GET REQ. LENGTH 
	RTN	A5 
* 
	EJECT		DRFD01
* 
* 
***************** 
*               * 
*   BIOSQ       * 
*               * 
***************** 
* 
*  INPUT:  A8  ECB ADDRESS
*          A4   ORDER 
* 
*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START
*          A3  NO OF BYTES TO BE TRANSFERED 
*          A4  BUFFER ADDRESS 
* 
BIOSQ	EQU	* 
	IFT	IBM=1
	LD	A2,ECBCW2,A8	GET SECTOR NUMBER
	SLL	A2,3	PUT IN RIGHT BIO POSITION 
	ADR	A2,A4	COMPLETE BIO WITH ORDER
* 
	IFT	MMUPAG=0 
	LD	A4,ECBBA,A8	GET BUFFER ADDRESS
	XIF
* 
	IFT	IBM=1
	IFT	MMUPAG=1 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	XIF
* 
	IFT	IBM=1
	LDK	A3,SECLEN	REQUESTED LENGTH 
	RTN	A5 
	XIF
* 
	EJECT		DRFD01
* 
******************
*   VO:NAM       *
******************
* 
* 
VO:NAM	EQU	*
	IFT	TOSS+IBM=2 
	LDK	A3,36	LENGTH 
	XIF
* 
	IFT	TOSS=1 
	IFT	IBM=0
	LDK	A3,6	VOLUME NAME LENGTH
	XIF
* 
	IFT	TOSS=1 
	LDK	A2,0	BIO 
	LDKL	A4,BUF	READ TO BUFFER 
	CF	A5,FD:REA 
	ANK	A3,/17	FATAL ERROR 
	RF(NZ)	VOL:40
	IFT	IBM=1
	LD	A2,BUF+32 
	CWK	A2,'TO'
	RF(NE)	VOL:10	IBM DISC 
	LD	A2,BUF+34	GET NEXT WORD 
	CWK	A2,'SS'
	RF(NZ)	VOL:10	IBM DISC 
VOL:05	EQU	*
	C1	A1,DWTA3,A6	DRIVE BIT MASK
	ANS	A1,DWTLAB,A6	INDICATE TOSS DISC
	XIF
* 
	EJECT			DRFD01 
* 
* 
	IFT	TOSS=1 
	LDKL	A2,BUF
	IFT	IBM=1
	RF	VOL:20
	XIF
* 
	IFT	IBM=1
VOL:10	EQU	*
	LDK	A3,10	LENGTH 
	LDK	A2,/30	BIO 
	LDKL	A4,BUF+10	READ TO BUF+10FER 
	CF	A5,FD:REA 
	ANK	A3,/17 
	RF(NZ)	VOL:40	IO ERROR	=4
	IFT	TOSS=1 
	LD	A2,BUF+10	CHECK IF IBM VOLUME LABEL 
	CWK	A2,/E5D6	VO
	RB(NE)	VOL:05	NOT IBM
	LD	A2,BUF+12 
	CWK	A2,/D3F1	L1
	RB(NE)	VOL:05	NOT IBM DISC 
	XIF
	IFT	IBM=1
*				=4 
	LD	A1,DWTA3,A6	DRIVE NO BIT MASK 
	ORS	A1,DWTLAB,A6	INDICATE IBM
	LDKL	A1,/400 
	ORRS	A1,A6	UPDATE TEMPORARY RETURN CODE
	LDK	A7,20	NBR OF CHARACTERS	=5 
	LDKL	A4,BUF	VOLUME NAME ADDRESS	=5 
	CF	A5,ASCII	TRANSFER IBM VOLUME NAME TO ASCII
	LDKL	A2,BUF+14		=5 
	XIF
* 
	EJECT			DRFD01 
* 
* 
VOL:20	EQU	*
	IFF	TOSS+IBM=0 
	LDK	A3,/F8	FILE CODE 
	LD	A1,DWTST2,A6
	RF(NZ)	VOL:30	NOT TEST STATUS
	ORKL	A3,/8000	INDICATE NO NEW NVL SET
VOL:30	EQU	*
	CF	A15,VOLGET	VOLUME NAME TO DWT SET NVL 
	LD	A8,DWTECB,A6
	LDK	A3,0 
VOL:40	EQU	*
	RTN	A5 
	XIF
* 
	IFT	IBM=1
	EJECT			DRFD01 
* 
********* 
* ASCII * 
********* 
* 
*  FUNCTION:  ASCII TRANSFORMS A STRING FROM EBCDIC TO
*             ASCII CODE
*             INPUT STRING ADDRESS IS BUF 
*  INPUT:     A7  NO OF CHARACTERS
*	     A4 = BUFFER ADDRESS
*  OUTPUT:    A1  CHANGED 
*	     A4 = BUFFER ADDRESS
*             A7  CHANGED 
* 
ASCII	EQU	* 
	IFT	MMUPAG=1 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	XIF
* 
	IFT	IBM=1
ASC:00	EQU	*		=8
	ENB
	ADR	A4,A7
ASC:10	EQU	*
	SUK	A4,1 
	LCR	A1,A4	EBCDIC CHARACTER 
	ANK	A1,/FF 
	LC	A1,TASCII,A1	TRANSFORM TO ASCII 
	SCR	A1,A4	PUT ASCII CHAR. IN OUTPUT BUFFER 
	SUK	A7,1 
	RB(P)	ASC:10 
	RF	EBC:90
* 
	EJECT			DRFD01 
* 
**********
* EBCDIC *
**********
* 
*  FUNCTION:  EBCDIC TRANSFORMES A STRING FROM ASCII TO 
*             EBCDIC CODE 
*             OUTPUT STRING IS PUT IN DRIVER BUFFER 
* 
*  INPUT:     A7 NO OF CHARACTERS 
*	     A4 = BUFFER ADDRESS
* 
*  OUTPUT:    A1  CHANGED 
*	     A4 = BUFFER ADDRESS
*             A7  CHANGED 
EBCDIC	EQU	*
	ENB
	IFT	MMUPAG=1 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	XIF
* 
	IFT	IBM=1
	ADR	A4,A7
EBC:10	EQU	*
	SUK	A4,1 
	LCR	A1,A4	GET ASCII CHAR.
	ANK	A1,/FF 
	LC	A1,TEBCDIC,A1 
	SC	A1,BUF-1,A7 
	SUK	A7,1 
	RB(P)	EBC:10 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
EBC:90	EQU	*
	INH		INHIBIT INTERRUPTS
	RTN	A5 
* 
	EJECT			DRFD01 
* 
**********
* LOGSEC *
********* 
* 
*  FUNCTION:  LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD 
*              LOGICAL SECTOR (BINARY). 
*             FORMAT OF PHYS. SEC.  TT0SS  (EBCDIC CODE)
*              TT = TRACK,  SS=SECTOR 
* 
*  INPUT:    A4  ADDRESS TO PHYS. SECTOR
* 
*  OUTPUT:   A3  BINARY SECTOR NO 
*            A4  ADDRESS TO PHYS. SEC. + 4
* 
LOGSEC	EQU	*
	CF	A5,DECBIN 
	LDR	A3,A1	SAVE 
	ADK	A4,2 
* 
*  MULTIPLY BY 26 
* 
	SLL	A3,5	*32 
	LDR	A2,A1
	SLL	A2,2 
	SUR	A3,A2	*28
	SLL	A1,1 
	SUR	A3,A1	*26
	CF	A5,DECBIN 
	SUK	A1,1 
	ADR	A3,A1
* 
	EJECT			DRFD01 
* 
*  CHECK SECTOR NO
* 
	LDR	A1,A3
	SUK	A1,25
	RF(NP)	LOG:10
	CWK	A4,BUF+EOD+4	EOD 
	RF(E)	LOG:02	YES!
	SUKL	A1,1898 
	RF	LOG:04
* 
*  CHECK EOD LESS/EQUAL 74001 
* 
LOG:02	SUKL	A1,1899 
LOG:04	EQU	*
	RF(P)	LOG:10	NOT ACC SEC. NO 
	SUK	A4,4	RESET BUFFER POINTER
	RTN	A5 
* 
*  FATAL ERROR
* 
LOG:05	ADK	A5,4	ADJUST STACK POINTER
LOG:10	LDK	A1,/10	RETURN CODE 
	ORRS	A1,A6	UPDATE TEMPORARY RETURN CODE
	INH		INHIBIT INTERRUPTS
	ABL	LOA:90	ERROR ROUTINE 
* 
	EJECT			DRFD01 
* 
**********
* DECBIN* 
**********
* 
*  FUNCTION:  DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO
*             BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED 
*     INPUT:  A4  ADDRESS TO FIRST DIGIT
*   OUTPUT: A1  BINARY
*   WORKING REG:  A2,A7 
* 
DECBIN	LDK	A1,0 
	LDK	A7,2 
DEC:10	LCR	A2,A4	DIGIT
	ANK	A2,/FF 
	SUK	A2,/F0 
	RB(N)	LOG:05 
	SUK	A2,9 
	RB(P)	LOG:05	NOT DIGIT 
	ADK	A2,9 
	SUK	A7,1 
	RF(Z)	DEC:30 
	ADK	A4,1	ADDRESS TO SECOND DIGIT 
DEC:20	SUK	A2,1 
	RB(N)	DEC:10	NEXT DIGIT
	ADK	A1,/A	MULTIPLY BY 10 
	RB	DEC:20
DEC:30	ADR	A1,A2
	RTN	A5 
	XIF
* 
	EJECT			DRFD01 
* 
**********
* SETCIO *
**********
* 
*  FUNCTION:  PUT DRIVE NO IN CIO INSTRUCTION 
* 
*  INPUT:  A3  DRIVE NO , (BITS 0-13 MUST BE ZEROES 
* 
*  OUTPUT: A3  CHANGED
*          A4  CHANGED
* 
SETCIO	LDKL	A4,/FFCF
	ANS	A4,FD:CIO
	SLL	A3,4 
	ORS	A3,FD:CIO
	RTN 	A5
	IFT	IBM=1
* 
	EJECT			DRFD01 
* 
**********
* BINDEC *
**********
* 
*  FUNCTION:  BINDEC TRANSFORMS A BINARY NUMBER TO TWO
*             EBCDIC-CODED DIGITS (DECIMAL) 
* 
*  INPUT:  A7  BINARY NUMBER
* 
*  OUTPUT: A3  EBCDIC CODED DECIMAL DIGITS
*          A7  CHANGED
* 
BINDEC	LDK	A3,0 
BIN:10	SUK	A7,10
	RF(N)	BIN:20 
	ADK	A3,1 
	RB	BIN:10
BIN:20	ADK	A7,10
	SLL	A3,8 
	ORR	A3,A7	DECIMAL CONVERTED NO IN A3 
	ORKL	A3,/F0F0	EBCDIC CODED 
	RTN A5 
* 
	EJECT			DRFD01 
********* 
* DSLIO * 
********* 
* 
*  FUNCTION:  PREPARE FOR READING DATA SET LABEL
* 
*  INPUT:  A6  DWT ADDRESS
* 
*  OUTPUT: A2  BITS 0-12 SECTOR NO, BITS 13-15 ZEROES 
*          A3   128 
*          A4  DRIVER BUFFER ADDRESS
*          A6  DWT ADDRESS
*           A1 IS CHANGED 
* 
DSLIO	LDK	A1,DWTDSS 
	CF	A5,DSPAD
	LDR*	A2,A2 
	SLL	A2,3 
	LDK	A3,128 
	LDKL	A4,BUF
	RTN	A5 
* 
	EJECT			DRFD01 
* 
**********
* DSOPCH *
**********
* 
*  FUNCTION:  GET EOD-NO AND EOD-NO ADDRESS IN DWT
* 
*  INPUT:  A6  DWT ADDRESS
* 
*  OUTPUT: A2  EOD ADDRESS
*          A7  EOD-NO      (0=NOT OPEN) 
*          A1  CHANGED
DSOPCH	LDK	A1,DWTEOD
	CF	A5,DSPAD
	LDR*	A7,A2	EOD-NO
	RTN	A5 
* 
	EJECT			DRFD01 
* 
********* 
* DSPAD * 
********* 
* 
*  FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED
*            TYPE OF DATA FOR CORRESPONDING DRIVE 
* 
*  INPUT:  A1  DWT OFFSET 
*          A6  DWT ADDRESS
* 
*  OUTPUT: A2  ADDRESS TO DATA
*          A6  DWT ADDRESS
* 
DSPAD	LC	A2,DWTOR,A6	DRIVE NO 
	ANK	A2,/3
	ADR	A2,A2
	ADR	A2,A6
	ADR	A2,A1
	RTN	A5 
* 
	EJECT			DRFD01 
* 
********* 
* STDWT * 
********* 
* 
*  FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF
*            DRIVE NO 
* 
*  INPUT:    A1  OFFSET TO DWT AREA 
*            A3  WORD TO BE STORED IN DWT 
*            A6  DWT ADDRESS
* 
*  OUTPUT:   A1  UNCHANGED
*            A2  ADDRESS TO WORD IN DWT AREA
*            A3  UNCHANGED
*            A6  UNCHANGED
* 
STDWT	EQU	* 
	CF	A5,DSPAD
	STR	A3,A2
	RTN	A5 
	XIF
* 
	EJECT			DRFD01 
* 
*    D R I V E R   B U F F E R
* 
BUF	EQU	* 
	IFT	IBM=1
	RES	DVBLEN 
	XIF
* 
	IFT	TOSS=1 
	IFT	IBM=0
	DATA	0,0,0	VOLUME NAME BUFFER
	IFT	MMUPAG+CHAN=2
	RES	DVBLEN-3	MMU BUFFER
	XIF
* 
	IFT	TOSS+IBM=0 
	IFT	MMUPAG+CHAN=2
	RES	DVBLEN	MMU BUFFER
	XIF
* 
	EJECT			DRFD01 
* 
********************* 
*                   * 
* DEVICE WORK TABLE * 
*                   * 
********************* 
* 
DWFD01	EQU	*
DWTRCW	EQU	*-DWFD01	TEMP RETURN CODE
	DATA	0 
	DATA	/8000	DWT STATUS
	DATA	0	ECB ADDRESS 
	DATA	0	ORDER 
	DATA	FDADR	ACTIVATION ADDRESS
	DATA	0	TTAB-ADDRESS
	DATA	0	WAIT/ACTIVATE INDICATOR 
	DATA	0	TERMINAL QUEUE
* 
	IFT	MMUPAG=1 
	DATA	0	SAVE AREA USER ECB ADDRESS
	DATA	DEVECB	MMU ECB ADDRESS
	XIF
* 
DWTA3	EQU	*-DWFD01
	DATA	0 
	DATA	0	SAVE AREA 
	DATA	0 
	DATA	0 
	DATA	0,0,0,0	STACK (3 LEVELS)
	DATA	0	ORDER SAVE AREA 
* 
	EJECT			DRFD01 
* 
* 
	IFF	TOSS+IBM=0 
	DATA	/8000	NVL INDICATOR 0 
	DATA	/8000	NVL INDICATOR 1 
	DATA	/8000	NVL INDICATOR 2 
	DATA	/8000	NVL INDICATOR 3 
DWTVO0	EQU	*-DWFD01	VOLUME NAME NO 0
	DATA	/FFFF,/FFFF,/FFFF 
DWTVO1	EQU	*-DWFD01	VOLUME NAME NO 1
	DATA	/FFFF,/FFFF,/FFFF 
DWTVO2	EQU	*-DWFD01	VOLUME NAME NO 2
	DATA	/FFFF,/FFFF,/FFFF 
DWTVO3	EQU	*-DWFD01	VOLUME NAME NO 3
	DATA	/FFFF,/FFFF,/FFFF 
DWTST2	EQU	*-DWFD01	SAVE STATUS WORD
	DATA	0 
	XIF
DWTA5	EQU	*-DWFD01
	DATA	0 
DWTRTY	EQU	*-DWFD01	RETRY REQUEST FLAG
	DATA	0 
DWTTP	EQU	*-DWFD01	TIMER POINTER
	DATA	0 
* 
	EJECT			DRFD01 
* 
* 
	IFT	IBM=1
DWTLAB	EQU	*-DWFD01	DISC LABEL INDICATOR
	DATA	0 
	XIF
* 
DWTLC	EQU	*-DWFD01	DRIVE LOCK INDICATOR 
	DATA	0 
* 
	IFT	OPCLOS=1 
DWTTP2	EQU	*-DWFD01	TIMER POINTER FOR OPEN
	DATA	0 
DWTOCF	EQU	*-DWFD01	OPEN/CLOSE FLAG AT POWER ON 
	DATA	0 
	XIF
* 
	EJECT			DRFD01 
* 
* 
	IFT	CHAN=1 
DWTUB	EQU	*-DWFD01	POINTER AT NEXT WORD IN BUFFER 
	DATA	0 
DWTUBE	EQU	*-DWFD01	BUFFER END ADDRESS+2
	DATA	0 
DWTRW	EQU	*-DWFD01	READ/WRITE INDICATOR 
	DATA	0 
	XIF
* 
	IFT	IBM=1
DWTBOE	EQU	*-DWFD01	BEGINNING OF EXTENT 
	DATA	0,0,0,0 
DWTEOD	EQU	*-DWFD01	END OF DATA 
	DATA	0,0,0,0 
DWTEOE	EQU	*-DWFD01	END OF EXTENT 
	DATA	0,0,0,0 
DWTCRN	EQU	*-DWFD01	CURRENT RECORD NO 
	DATA	0,0,0,0 
DWTDSS	EQU	*-DWFD01	DATA SET LABEL SECTOR 
	DATA	0,0,0,0 
	XIF
* 
	EJECT			DRFD01 
* 
* 
DWTBA	EQU	*-DWFD01	BUFFER POINTER 
	DATA	0 
DWTRL	EQU	*-DWFD01	LENGTH IN SUB IO 
	DATA	0 
DWTCW2	EQU	*-DWFD01	SECTOR NUMBER 
	DATA	0 
DWTNOS	EQU	*-DWFD01	SECTOR NUMBER COUNTER 
	DATA	0 
DWTSIO	EQU	*-DWFD01	NUMBER OF SECTORS IN SUB IO 
	DATA	0 
* 
	IFT	IBM+TOSS=2 
DWTFIB	EQU	*-DWFD01	IBM INDICATOR 
	DATA	0 
	XIF
* 
	EJECT			DRFD01 
* 
* 
	IFT	MMUPAG=1 
DWT:BF	EQU	*-DWFD01 
	DATA	0	SAVE AREA BUFFER ADDRESS
BUFFLG	EQU	*-DWFD01 
	DATA	0 
* 
	IFF	CHAN+IBM=0 
DWT:PA	EQU	*-DWFD01 
	DATA	0	6 BIT PHYSICAL BUFFER ADDRESS 
	DATA	0	SECOND MMU ENTRY
* 
DWT:LA	EQU	*-DWFD01 
	DATA	0	16 BIT LOGICAL BUFFER ADDRESS 
	XIF
* 
	IFT	MMUPAG=1 
DEVECB	EQU	*
	DATA	0,0,0,0,0,0,0 
	XIF
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT DRFD01  REL 11.0 81-04-14 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005e               Head {h00=0x001c, h01=0x0050, text=»   =8, REL 11.0 81-02-27«, t00=0x0000, t01=0x0042}
0x005e…009e               Head {h00=0x003c, h01=0x0050, text=»   =8, IBM ,MMU AND IO TO SYSTEM AREA NO CODE CONVERSION«, t00=0x0000, t01=0x0062}
0x009e…00be               Head {h00=0x001c, h01=0x0050, text=»   =7, REL 11.0 81-02-23«, t00=0x0000, t01=0x00a2}
0x00be…00fa               Head {h00=0x0038, h01=0x0050, text=»   =7, CRN UPDATED EVEN IF ERROR FOR SEQUENTIAL READ«, t00=0x0000, t01=0x00c2}
0x00fa…011a               Head {h00=0x001c, h01=0x0050, text=»   =6, REL 11.0 81-02-23«, t00=0x0000, t01=0x00fe}
0x011a…0156               Head {h00=0x0038, h01=0x0050, text=»   =6, BIT INDICATING VOLUME NAMES READ NOT CORRECT «, t00=0x0000, t01=0x011e}
0x0156…0176               Head {h00=0x001c, h01=0x0050, text=»   =5, REL 11.0 81-02-23«, t00=0x0000, t01=0x015a}
0x0176…01a4               Head {h00=0x002a, h01=0x0050, text=»   =5, SAME AS 4, NOT CHANGED CORRRECT«, t00=0x0000, t01=0x017a}
0x01a4…01c4               Head {h00=0x001c, h01=0x0050, text=»   =4, REL 11.0 81-02-18«, t00=0x0001, t01=0x0018}
0x01c4…01f2               Head {h00=0x002a, h01=0x0050, text=»   =4, IBM VOLUME NAME NOT READ TO DWT«, t00=0x0001, t01=0x0038}
0x01f2…0212               Head {h00=0x001c, h01=0x0050, text=»   =3, REL 11.0 81-01-27«, t00=0x0001, t01=0x0066}
0x0212…024e               Head {h00=0x0038, h01=0x0050, text=»   =3, IBM,LOAD ORDER, DATA SET SECTOR NBR IN ECBCW1«, t00=0x0001, t01=0x0086}
0x024e…026e               Head {h00=0x001c, h01=0x0050, text=»   =2, REL 11.0 81-01-26«, t00=0x0001, t01=0x00c2}
0x026e…02a0               Head {h00=0x002e, h01=0x0050, text=»   =2, NOT OP. GIVEN IF WRONGLY STRAPT CU «, t00=0x0001, t01=0x00e2}
0x02a0…02e0               Head {h00=0x003c, h01=0x0050, text=»   =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY«, t00=0x0001, t01=0x0114}
0x02e0…02ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0154}
0x02ea…0320               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0001, t01=0x015e}
0x0320…032a (2, 0, 400)   Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x032a…0350               Head {h00=0x0022, h01=0x0050, text=»*  PHILIPS TERMINAL SYSTEM PTS«, t00=0x0002, t01=0x000e}
0x0350…035a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0034}
0x035a…0386               Head {h00=0x0028, h01=0x0050, text=»*  DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0002, t01=0x003e}
0x0386…0390               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006a}
0x0390…039a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x039a…03a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007e}
0x03a4…03ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0088}
0x03ae…03b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0092}
0x03b8…03c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x009c}
0x03c2…03f8               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0002, t01=0x00a6}
0x03f8…0402               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00dc}
0x0402…040c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e6}
0x040c…0440               Head {h00=0x0030, h01=0x0050, text=»*  THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0002, t01=0x00f0}
0x0440…0472               Head {h00=0x002e, h01=0x0050, text=»*  CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0002, t01=0x0124}
0x0472…04a6               Head {h00=0x0030, h01=0x0050, text=»*  CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0002, t01=0x0156}
0x04a6…04d0               Head {h00=0x0026, h01=0x0050, text=»*  MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0002, t01=0x018a}
0x04d0…04da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0024}
0x04da…04e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002e}
0x04e4…04fc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0003, t01=0x0038}
0x04fc…0506               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0050}
0x0506…0518               Head {h00=0x000e, h01=0x0050, text=»*  ORDERS:«, t00=0x0003, t01=0x005a}
0x0518…0522               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006c}
0x0522…053e               Head {h00=0x0018, h01=0x0050, text=»*  /00   TEST STATUS«, t00=0x0003, t01=0x0076}
0x053e…055c               Head {h00=0x001a, h01=0x0050, text=»*  /01   PHYSICAL READ«, t00=0x0003, t01=0x0092}
0x055c…05a2               Head {h00=0x0042, h01=0x0050, text=»*  /02   SEQUENTIAL READ                       -IBM DISC ONLY-«, t00=0x0003, t01=0x00b0}
0x05a2…05be               Head {h00=0x0018, h01=0x0050, text=»*  /05   BASIC WRITE«, t00=0x0003, t01=0x00f6}
0x05be…0606               Head {h00=0x0044, h01=0x0050, text=»*  /06   SEQUENTIAL WRITE                       -IBM DISC ONLY- «, t00=0x0003, t01=0x0112}
0x0606…0624               Head {h00=0x001a, h01=0x0050, text=»*  /11   PHYSICAL READ«, t00=0x0003, t01=0x015a}
0x0624…0644               Head {h00=0x001c, h01=0x0050, text=»*  /15   PHYSICAL WRITE «, t00=0x0003, t01=0x0178}
0x0644…0658               Head {h00=0x0010, h01=0x0050, text=»*  /21 OPEN «, t00=0x0004, t01=0x0008}
0x0658…066c               Head {h00=0x0010, h01=0x0050, text=»*  /22 CLOSE«, t00=0x0004, t01=0x001c}
0x066c…0690               Head {h00=0x0020, h01=0x0050, text=»*  /24   WRITE DELETED DATA «, t00=0x0004, t01=0x0030}
0x0690…06a6               Head {h00=0x0012, h01=0x0050, text=»*  /26   LOCK «, t00=0x0004, t01=0x0054}
0x06a6…06ee               Head {h00=0x0044, h01=0x0050, text=»*  /31   REWIND                                 -IBM DISC ONLY- «, t00=0x0004, t01=0x006a}
0x06ee…0704               Head {h00=0x0012, h01=0x0050, text=»*  /37   LOAD «, t00=0x0004, t01=0x00b2}
0x0704…071c               Head {h00=0x0014, h01=0x0050, text=»*  /38   UNLOAD «, t00=0x0004, t01=0x00c8}
0x071c…0726               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e0}
0x0726…0742               Head {h00=0x0018, h01=0x0050, text=»*  ENTRY PARAMETERS:«, t00=0x0004, t01=0x00ea}
0x0742…074c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0106}
0x074c…0768               Head {h00=0x0018, h01=0x0050, text=»*   A5   STACK BASE «, t00=0x0004, t01=0x0110}
0x0768…0784               Head {h00=0x0018, h01=0x0050, text=»*   A6   DWT-ADDRESS«, t00=0x0004, t01=0x012c}
0x0784…079a               Head {h00=0x0012, h01=0x0050, text=»*   A7   ORDER«, t00=0x0004, t01=0x0148}
0x079a…07b6               Head {h00=0x0018, h01=0x0050, text=»*   A8   ECB-ADDRESS«, t00=0x0004, t01=0x015e}
0x07b6…07ce               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0004, t01=0x017a}
0x07ce…07d8 (5, 0, 400)   Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07d8…07ec               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x000e}
0x07ec…0800               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0005, t01=0x0022}
0x0800…0814               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x0036}
0x0814…0828               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0005, t01=0x004a}
0x0828…083c               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x005e}
0x083c…0846               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0072}
0x0846…086e               Head {h00=0x0024, h01=0x0050, text=» ENTRY  FDADR ACTIVATION ADDRESS«, t00=0x0005, t01=0x007c}
0x086e…0894               Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0005, t01=0x00a4}
0x0894…08b8               Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0005, t01=0x00ca}
0x08b8…08da               Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0005, t01=0x00ee}
0x08da…08f2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0005, t01=0x0110}
0x08f2…08fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0128}
0x08fc…0912               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0132}
0x0912…0928               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0005, t01=0x0148}
0x0928…093e               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x015e}
0x093e…0954               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0005, t01=0x0174}
0x0954…096a               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x018a}
0x096a…0974               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0010}
0x0974…0994               Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0006, t01=0x001a}
0x0994…09b0               Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0006, t01=0x003a}
0x09b0…09d4               Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0006, t01=0x0056}
0x09d4…0a02               Head {h00=0x002a, h01=0x0050, text=» EXTRN DISEND PERFORM TENDIO AND TDISP«, t00=0x0006, t01=0x007a}
0x0a02…0a2a               Head {h00=0x0024, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAME «, t00=0x0006, t01=0x00a8}
0x0a2a…0a54               Head {h00=0x0026, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME ADDRESS «, t00=0x0006, t01=0x00d0}
0x0a54…0a88               Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL«, t00=0x0006, t01=0x00fa}
0x0a88…0aba               Head {h00=0x002e, h01=0x0050, text=» EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0006, t01=0x012e}
0x0aba…0ad6               Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0006, t01=0x0160}
0x0ad6…0af8               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0006, t01=0x017c}
0x0af8…0b1e               Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0007, t01=0x000e}
0x0b1e…0b46               Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0007, t01=0x0034}
0x0b46…0b72               Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTORD ORDER/INDEX SAVE AREA «, t00=0x0007, t01=0x005c}
0x0b72…0b94               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0007, t01=0x0088}
0x0b94…0bb6               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0007, t01=0x00aa}
0x0bb6…0be0               Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0007, t01=0x00cc}
0x0be0…0c00               Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0007, t01=0x00f6}
0x0c00…0c2c               Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0007, t01=0x0116}
0x0c2c…0c48               Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0007, t01=0x0142}
0x0c48…0c72               Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0007, t01=0x015e}
0x0c72…0c9c               Head {h00=0x0026, h01=0x0050, text=» EXTRN PFPOST PWF POST PROC. FLAG «, t00=0x0007, t01=0x0188}
0x0c9c…0cc6               Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0008, t01=0x0022}
0x0cc6…0cf0               Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0008, t01=0x004c}
0x0cf0…0d24               Head {h00=0x0030, h01=0x0050, text=» EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE«, t00=0x0008, t01=0x0076}
0x0d24…0d4c               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0008, t01=0x00aa}
0x0d4c…0d76               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0008, t01=0x00d2}
0x0d76…0da0               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0008, t01=0x00fc}
0x0da0…0dc8               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 ECB CONTROL WORD 1«, t00=0x0008, t01=0x0126}
0x0dc8…0df0               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW2 ECB CONTROL WORD 2«, t00=0x0008, t01=0x014e}
0x0df0…0e08               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0008, t01=0x0176}
0x0e08…0e12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018e}
0x0e12…0e32               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0008}
0x0e32…0e52               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0009, t01=0x0028}
0x0e52…0e72               Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0009, t01=0x0048}
0x0e72…0e92               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0009, t01=0x0068}
0x0e92…0eb2               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x0088}
0x0eb2…0ebc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a8}
0x0ebc…0eee               Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0009, t01=0x00b2}
0x0eee…0f12               Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0009, t01=0x00e4}
0x0f12…0f1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0108}
0x0f1c…0f2e               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0009, t01=0x0112}
0x0f2e…0f40               Head {h00=0x000e, h01=0x0050, text=»CHAN EQU 1«, t00=0x0009, t01=0x0124}
0x0f40…0f4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f4a…0f80               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0009, t01=0x0140}
0x0f80…0fac               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0009, t01=0x0176}
0x0fac…0fb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb6…0fc8               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x000a, t01=0x001c}
0x0fc8…0fda               Head {h00=0x000e, h01=0x0050, text=»TOSS EQU 1«, t00=0x000a, t01=0x002e}
0x0fda…0fe4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0040}
0x0fe4…101a               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x000a, t01=0x004a}
0x101a…1046               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x000a, t01=0x0080}
0x1046…1050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ac}
0x1050…1062               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000a, t01=0x00b6}
0x1062…1074               Head {h00=0x000e, h01=0x0050, text=»IBM EQU 0 «, t00=0x000a, t01=0x00c8}
0x1074…107e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00da}
0x107e…10b0               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x000a, t01=0x00e4}
0x10b0…10de               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x000a, t01=0x0116}
0x10de…10e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0144}
0x10e8…10fc               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x000a, t01=0x014e}
0x10fc…1106               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0162}
0x1106…1110               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x016c}
0x1110…114a               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x000a, t01=0x0176}
0x114a…117c               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x000b, t01=0x0020}
0x117c…1186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0052}
0x1186…119a               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x000b, t01=0x005c}
0x119a…11a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0070}
0x11a4…11bc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000b, t01=0x007a}
0x11bc…11c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0092}
0x11c6…11d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009c}
0x11d0…1214               Head {h00=0x0040, h01=0x0050, text=»*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x000b, t01=0x00a6}
0x1214…125c               Head {h00=0x0044, h01=0x0050, text=»*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x000b, t01=0x00ea}
0x125c…1266               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0132}
0x1266…1278               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000b, t01=0x013c}
0x1278…128c               Head {h00=0x0010, h01=0x0050, text=»OPCLOS EQU 0«, t00=0x000b, t01=0x014e}
0x128c…1296               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0162}
0x1296…12ae               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000b, t01=0x016c}
0x12ae…12b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0184}
0x12b8…12c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x018e}
0x12c2…12de               Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x000c, t01=0x0008}
0x12de…12e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0024}
0x12e8…12f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x002e}
0x12f2…1308               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000c, t01=0x0038}
0x1308…131e               Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 256«, t00=0x000c, t01=0x004e}
0x131e…132a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0064}
0x132a…1334               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0070}
0x1334…134a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000c, t01=0x007a}
0x134a…1360               Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256   «, t00=0x000c, t01=0x0090}
0x1360…1378               Head {h00=0x0014, h01=0x0050, text=»DVBLEN EQU 460  «, t00=0x000c, t01=0x00a6}
0x1378…1384               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00be}
0x1384…138e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ca}
0x138e…1398               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d4}
0x1398…13b4               Head {h00=0x0018, h01=0x0050, text=»*   MMU DEVICE INDEX«, t00=0x000c, t01=0x00de}
0x13b4…13be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fa}
0x13be…13c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13c8…13de               Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU 10 «, t00=0x000c, t01=0x010e}
0x13de…13e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0124}
0x13e8…1400               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000c, t01=0x012e}
0x1400…140a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0146}
0x140a…1420               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000c, t01=0x0150}
0x1420…1436               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000c, t01=0x0166}
0x1436…144c               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000c, t01=0x017c}
0x144c…1462 (13, 0, 400)  Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000d, t01=0x0004}
0x1462…1478               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000d, t01=0x001a}
0x1478…1482               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0030}
0x1482…14ac               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000d, t01=0x003a}
0x14ac…14d6               Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000d, t01=0x0064}
0x14d6…1502               Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000d, t01=0x008e}
0x1502…1526               Head {h00=0x0020, h01=0x0050, text=»SECLEN EQU 128 SECTOR LENGTH«, t00=0x000d, t01=0x00ba}
0x1526…1550               Head {h00=0x0026, h01=0x0050, text=»MAXSEC EQU 2002 MAX SECTOR NUMBER «, t00=0x000d, t01=0x00de}
0x1550…1582               Head {h00=0x002e, h01=0x0050, text=»MAXIBM EQU 1923 MAX SECTOR NUMBER IBM DISC«, t00=0x000d, t01=0x0108}
0x1582…15ae               Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000d, t01=0x013a}
0x15ae…15d8               Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000d, t01=0x0166}
0x15d8…1600               Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000d, t01=0x0190}
0x1600…1624               Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000e, t01=0x0028}
0x1624…164e               Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000e, t01=0x004c}
0x164e…1658               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0076}
0x1658…1680               Head {h00=0x0024, h01=0x0050, text=»DIXTAB EQU * DOUBLE INDEX TABLE «, t00=0x000e, t01=0x0080}
0x1680…1694               Head {h00=0x0010, h01=0x0050, text=» DATA /0102 «, t00=0x000e, t01=0x00a8}
0x1694…16a8               Head {h00=0x0010, h01=0x0050, text=» DATA /0408 «, t00=0x000e, t01=0x00bc}
0x16a8…16b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d0}
0x16b2…16ca               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000e, t01=0x00da}
0x16ca…16d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f2}
0x16d4…16e6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00fc}
0x16e6…16f8               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x010e}
0x16f8…170a               Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000e, t01=0x0120}
0x170a…171c               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x0132}
0x171c…172e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0144}
0x172e…1738               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0156}
0x1738…1750               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x000e, t01=0x0160}
0x1750…177c               Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000e, t01=0x0178}
0x177c…1788               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0014}
0x1788…1792               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0020}
0x1792…17a6               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000f, t01=0x002a}
0x17a6…17b8               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x000f, t01=0x003e}
0x17b8…17de               Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, t00=0x000f, t01=0x0050}
0x17de…17ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0076}
0x17ea…17f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0082}
0x17f4…1816               Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000f, t01=0x008c}
0x1816…1840               Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000f, t01=0x00ae}
0x1840…1866               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000f, t01=0x00d8}
0x1866…1870               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fe}
0x1870…1888               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000f, t01=0x0108}
0x1888…1892               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0120}
0x1892…18aa               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000f, t01=0x012a}
0x18aa…18c2               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x000f, t01=0x0142}
0x18c2…18da               Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x000f, t01=0x015a}
0x18da…18f2               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x000f, t01=0x0172}
0x18f2…190a               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000f, t01=0x018a}
0x190a…1914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0012}
0x1914…1928               Head {h00=0x0010, h01=0x0050, text=»TESTST EQU *«, t00=0x0010, t01=0x001c}
0x1928…1940               Head {h00=0x0014, h01=0x0050, text=» IFF IBM+TOSS=0 «, t00=0x0010, t01=0x0030}
0x1940…1956               Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x0010, t01=0x0048}
0x1956…197c               Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 SAVE NVL INDICATOR «, t00=0x0010, t01=0x005e}
0x197c…1988               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0084}
0x1988…1992               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0090}
0x1992…19b2               Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0010, t01=0x009a}
0x19b2…19c8               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0010, t01=0x00ba}
0x19c8…19da               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0010, t01=0x00d0}
0x19da…1a02               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DIS:EN DISC NOT OPERABLE«, t00=0x0010, t01=0x00e2}
0x1a02…1a30               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,/7FFF RESET REQUEST ERROR BIT«, t00=0x0010, t01=0x010a}
0x1a30…1a44               Head {h00=0x0010, h01=0x0050, text=» ANRS A2,A6 «, t00=0x0010, t01=0x0138}
0x1a44…1a4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x014c}
0x1a4e…1a66               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0010, t01=0x0156}
0x1a66…1a8c               Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x0010, t01=0x016e}
0x1a8c…1abc (17, 0, 400)  Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTORD,A6 RESTORE INDEX AND ORDER«, t00=0x0011, t01=0x0004}
0x1abc…1ad4               Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTOR,A6 «, t00=0x0011, t01=0x0034}
0x1ad4…1aea               Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLNAM«, t00=0x0011, t01=0x004c}
0x1aea…1b04               Head {h00=0x0016, h01=0x0050, text=» RF FORM70 END:IO «, t00=0x0011, t01=0x0062}
0x1b04…1b10               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x007c}
0x1b10…1b1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0088}
0x1b1a…1b32               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0011, t01=0x0092}
0x1b32…1b46               Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x0011, t01=0x00aa}
0x1b46…1b52               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x00be}
0x1b52…1b5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ca}
0x1b5c…1b72               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0011, t01=0x00d4}
0x1b72…1b7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ea}
0x1b7c…1b9a               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0011, t01=0x00f4}
0x1b9a…1bb8               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0011, t01=0x0112}
0x1bb8…1bd6               Head {h00=0x001a, h01=0x0050, text=»* FORMAT VOLUME      *«, t00=0x0011, t01=0x0130}
0x1bd6…1bf4               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0011, t01=0x014e}
0x1bf4…1c12               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0011, t01=0x016c}
0x1c12…1c1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018a}
0x1c1c…1c30 (18, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0012, t01=0x0004}
0x1c30…1c46               Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x0012, t01=0x0018}
0x1c46…1c58               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0012, t01=0x002e}
0x1c58…1c88               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DIS:EN ERROR: NEW VOLUME LOADED «, t00=0x0012, t01=0x0040}
0x1c88…1cac               Head {h00=0x0020, h01=0x0050, text=» LDK A2,36 CLEAR VOLUME NAME«, t00=0x0012, t01=0x0070}
0x1cac…1cc0               Head {h00=0x0010, h01=0x0050, text=»FORM10 EQU *«, t00=0x0012, t01=0x0094}
0x1cc0…1cd2               Head {h00=0x000e, h01=0x0050, text=» CM BUF,A2«, t00=0x0012, t01=0x00a8}
0x1cd2…1ce4               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0012, t01=0x00ba}
0x1ce4…1cfa               Head {h00=0x0012, h01=0x0050, text=» RB(NN) FORM10«, t00=0x0012, t01=0x00cc}
0x1cfa…1d2c               Head {h00=0x002e, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME FROM DWT «, t00=0x0012, t01=0x00e2}
0x1d2c…1d42               Head {h00=0x0012, h01=0x0050, text=» LDK A2,1 BIO «, t00=0x0012, t01=0x0114}
0x1d42…1d5c               Head {h00=0x0016, h01=0x0050, text=» LDK A3,36 LENGTH «, t00=0x0012, t01=0x012a}
0x1d5c…1d86               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF VOLUME LABEL ADDRESS «, t00=0x0012, t01=0x0144}
0x1d86…1d9e               Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW1,A8«, t00=0x0012, t01=0x016e}
0x1d9e…1dbe               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FORM50 IBM DISC «, t00=0x0012, t01=0x0186}
0x1dbe…1dee               Head {h00=0x002c, h01=0x0050, text=» LDKL A1,'TO' WRITE TOSS IN VOLUME LABEL«, t00=0x0013, t01=0x0016}
0x1dee…1e04               Head {h00=0x0012, h01=0x0050, text=» ST A1,BUF+32 «, t00=0x0013, t01=0x0046}
0x1e04…1e1a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,'SS' «, t00=0x0013, t01=0x005c}
0x1e1a…1e30               Head {h00=0x0012, h01=0x0050, text=» ST A1,BUF+34 «, t00=0x0013, t01=0x0072}
0x1e30…1e42               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0013, t01=0x0088}
0x1e42…1e68               Head {h00=0x0022, h01=0x0050, text=» C1 A1,DWTA3,A6 INDICATE TOSS «, t00=0x0013, t01=0x009a}
0x1e68…1e82               Head {h00=0x0016, h01=0x0050, text=» ANS A1,DWTLAB,A6 «, t00=0x0013, t01=0x00c0}
0x1e82…1e8e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00da}
0x1e8e…1ea0               Head {h00=0x000e, h01=0x0050, text=» RF FORM60«, t00=0x0013, t01=0x00e6}
0x1ea0…1eaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f8}
0x1eaa…1ec0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0013, t01=0x0102}
0x1ec0…1eca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0118}
0x1eca…1ed4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0122}
0x1ed4…1ee8               Head {h00=0x0010, h01=0x0050, text=»FORM50 EQU *«, t00=0x0013, t01=0x012c}
0x1ee8…1f0c               Head {h00=0x0020, h01=0x0050, text=» CF A5,FD:WRI WRITE SECTOR 0«, t00=0x0013, t01=0x0140}
0x1f0c…1f30               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0013, t01=0x0164}
0x1f30…1f54               Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/E5D6 VO IN EBCDIC «, t00=0x0013, t01=0x0188}
0x1f54…1f66               Head {h00=0x000e, h01=0x0050, text=» STR A1,A4«, t00=0x0014, t01=0x001c}
0x1f66…1f8a               Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/D3F1 L1 IN EBCDIC «, t00=0x0014, t01=0x002e}
0x1f8a…1f9e               Head {h00=0x0010, h01=0x0050, text=» ST A1,BUF+2«, t00=0x0014, t01=0x0052}
0x1f9e…1fb0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0014, t01=0x0066}
0x1fb0…1fd4               Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTA3,A6 INDICATE IBM«, t00=0x0014, t01=0x0078}
0x1fd4…1fee               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTLAB,A6 «, t00=0x0014, t01=0x009c}
0x1fee…1ffa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00b6}
0x1ffa…2012               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/31 BIO «, t00=0x0014, t01=0x00c2}
0x2012…202c               Head {h00=0x0016, h01=0x0050, text=» LDK A3,36 LENGTH «, t00=0x0014, t01=0x00da}
0x202c…2040               Head {h00=0x0010, h01=0x0050, text=»FORM60 EQU *«, t00=0x0014, t01=0x00f4}
0x2040…2056               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0014, t01=0x0108}
0x2056…206a               Head {h00=0x0010, h01=0x0050, text=»FORM70 EQU *«, t00=0x0014, t01=0x011e}
0x206a…207e               Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x0014, t01=0x0132}
0x207e…2088               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0146}
0x2088…20a0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0014, t01=0x0150}
0x20a0…20aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0168}
0x20aa…20c0               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0014, t01=0x0172}
0x20c0…20d6               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0014, t01=0x0188}
0x20d6…20ec               Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x0015, t01=0x000e}
0x20ec…2102               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0015, t01=0x0024}
0x2102…2118               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0015, t01=0x003a}
0x2118…2122               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0050}
0x2122…2146               Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x0015, t01=0x005a}
0x2146…215c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0015, t01=0x007e}
0x215c…2170               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0015, t01=0x0094}
0x2170…2186               Head {h00=0x0012, h01=0x0050, text=» CM BUFFLG,A6 «, t00=0x0015, t01=0x00a8}
0x2186…2192               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00be}
0x2192…219c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ca}
0x219c…21c4               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOR,A6 INDEX AND ORDER «, t00=0x0015, t01=0x00d4}
0x21c4…21f8               Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES «, t00=0x0015, t01=0x00fc}
0x21f8…2224               Head {h00=0x0028, h01=0x0050, text=» CMR A6 RESET TEMPORARY RETURN CODE «, t00=0x0015, t01=0x0130}
0x2224…2236               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0015, t01=0x015c}
0x2236…2258               Head {h00=0x001e, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX «, t00=0x0015, t01=0x016e}
0x2258…2262               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0190}
0x2262…2278               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0016, t01=0x000a}
0x2278…2282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0020}
0x2282…22ac               Head {h00=0x0026, h01=0x0050, text=»*    CHECK IF OPEN OR CLOSE ORDER «, t00=0x0016, t01=0x002a}
0x22ac…22b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0054}
0x22b6…22ce               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x0016, t01=0x005e}
0x22ce…22e2               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x0016, t01=0x0076}
0x22e2…22fa               Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x0016, t01=0x008a}
0x22fa…230c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0016, t01=0x00a2}
0x230c…2332               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) FD:ORD NOT CLOSE ORDER«, t00=0x0016, t01=0x00b4}
0x2332…233c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00da}
0x233c…234a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00e4}
0x234a…2354               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f2}
0x2354…2366               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0016, t01=0x00fc}
0x2366…2378               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0016, t01=0x010e}
0x2378…238a               Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0016, t01=0x0120}
0x238a…239c               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0016, t01=0x0132}
0x239c…23ae               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0016, t01=0x0144}
0x23ae…23b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0156}
0x23b8…23f0               Head {h00=0x0034, h01=0x0050, text=»*    CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0016, t01=0x0160}
0x23f0…2426               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0017, t01=0x0008}
0x2426…2430               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003e}
0x2430…2456               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0017, t01=0x0048}
0x2456…2480               Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0017, t01=0x006e}
0x2480…2492               Head {h00=0x000e, h01=0x0050, text=» RF OPEN10«, t00=0x0017, t01=0x0098}
0x2492…249c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00aa}
0x249c…24aa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00b4}
0x24aa…24b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c2}
0x24b4…24c4               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0017, t01=0x00cc}
0x24c4…24d4               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0017, t01=0x00dc}
0x24d4…24e4               Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0017, t01=0x00ec}
0x24e4…24f4               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0017, t01=0x00fc}
0x24f4…2504               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0017, t01=0x010c}
0x2504…250e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x011c}
0x250e…2546               Head {h00=0x0034, h01=0x0050, text=»*    OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0017, t01=0x0126}
0x2546…257c               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0017, t01=0x015e}
0x257c…2586 (24, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0004}
0x2586…2598               Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0018, t01=0x000e}
0x2598…25be               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTTP2,A6 TIMER POINTER«, t00=0x0018, t01=0x0020}
0x25be…25e2               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) OPEN20 TIMER ACTIVE «, t00=0x0018, t01=0x0046}
0x25e2…2608               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0018, t01=0x006a}
0x2608…2634               Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0018, t01=0x0090}
0x2634…263e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00bc}
0x263e…2652               Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0018, t01=0x00c6}
0x2652…2686               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0018, t01=0x00da}
0x2686…26ac               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0018, t01=0x010e}
0x26ac…26b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0134}
0x26b6…26e4               Head {h00=0x002a, h01=0x0050, text=»*    WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0018, t01=0x013e}
0x26e4…26ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x016c}
0x26ee…271a               Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0018, t01=0x0176}
0x271a…2746               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0019, t01=0x0012}
0x2746…2766               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0019, t01=0x003e}
0x2766…2782               Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0019, t01=0x005e}
0x2782…27b4               Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0019, t01=0x007a}
0x27b4…27c8               Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x0019, t01=0x00ac}
0x27c8…27e0               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0019, t01=0x00c0}
0x27e0…27ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d8}
0x27ea…27fe               Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0019, t01=0x00e2}
0x27fe…281e               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0019, t01=0x00f6}
0x281e…284e               Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0019, t01=0x0116}
0x284e…286c               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0019, t01=0x0146}
0x286c…2898               Head {h00=0x0028, h01=0x0050, text=» RF DIS:EN PERFORM TENDIO AND TDISP «, t00=0x0019, t01=0x0164}
0x2898…28a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0190}
0x28a4…28ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000c}
0x28ae…28bc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0016}
0x28bc…28c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0024}
0x28c6…28f0               Head {h00=0x0026, h01=0x0050, text=»*  PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x001a, t01=0x002e}
0x28f0…28fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x28fa…290e               Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x001a, t01=0x0062}
0x290e…2926               Head {h00=0x0014, h01=0x0050, text=» LC A2,DIXTAB,A3«, t00=0x001a, t01=0x0076}
0x2926…2956               Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK «, t00=0x001a, t01=0x008e}
0x2956…2960               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00be}
0x2960…2978               Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x001a, t01=0x00c8}
0x2978…2990               Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTLAB,A6«, t00=0x001a, t01=0x00e0}
0x2990…29bc               Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM«, t00=0x001a, t01=0x00f8}
0x29bc…29c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0124}
0x29c8…29d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0130}
0x29d2…29f6               Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x001a, t01=0x013a}
0x29f6…2a00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x015e}
0x2a00…2a16               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x001a, t01=0x0168}
0x2a16…2a20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x017e}
0x2a20…2a2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0188}
0x2a2a…2a3c (27, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x001b, t01=0x0004}
0x2a3c…2a5e               Head {h00=0x001e, h01=0x0050, text=» RB(Z) TESTST TEST STATUS «, t00=0x001b, t01=0x0016}
0x2a5e…2a68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0038}
0x2a68…2a7a               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x001b, t01=0x0042}
0x2a7a…2a8c               Head {h00=0x000e, h01=0x0050, text=» SUK A3,31«, t00=0x001b, t01=0x0054}
0x2a8c…2ab0               Head {h00=0x0020, h01=0x0050, text=» RB(Z) FORMAT FORMAT VOLUME «, t00=0x001b, t01=0x0066}
0x2ab0…2ac2               Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x001b, t01=0x008a}
0x2ac2…2ae8               Head {h00=0x0022, h01=0x0050, text=» RF(N) INTEST READ/WRITE ORDER«, t00=0x001b, t01=0x009c}
0x2ae8…2afa               Head {h00=0x000e, h01=0x0050, text=» SUK A3,18«, t00=0x001b, t01=0x00c2}
0x2afa…2b1c               Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x001b, t01=0x00d4}
0x2b1c…2b28               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00f6}
0x2b28…2b32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0102}
0x2b32…2b44               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001b, t01=0x010c}
0x2b44…2b56               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001b, t01=0x011e}
0x2b56…2b76               Head {h00=0x001c, h01=0x0050, text=» RF(Z) INTEST BASIC READ«, t00=0x001b, t01=0x0130}
0x2b76…2b88               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001b, t01=0x0150}
0x2b88…2bae               Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL READ «, t00=0x001b, t01=0x0162}
0x2bae…2bc0               Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x001b, t01=0x0188}
0x2bc0…2be2               Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTEST BASIC WRITE «, t00=0x001c, t01=0x000a}
0x2be2…2bf4               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x001c, t01=0x002c}
0x2bf4…2c1a               Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL WRITE«, t00=0x001c, t01=0x003e}
0x2c1a…2c2c               Head {h00=0x000e, h01=0x0050, text=» SUK A3,25«, t00=0x001c, t01=0x0064}
0x2c2c…2c50               Head {h00=0x0020, h01=0x0050, text=» RB(Z) FORMAT FORMAT VOLUME «, t00=0x001c, t01=0x0076}
0x2c50…2c62               Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x001c, t01=0x009a}
0x2c62…2c8c               Head {h00=0x0026, h01=0x0050, text=» RF(N) INTEST PHYSICAL READ/WRITE «, t00=0x001c, t01=0x00ac}
0x2c8c…2c9e               Head {h00=0x000e, h01=0x0050, text=» SUK A3,11«, t00=0x001c, t01=0x00d6}
0x2c9e…2cba               Head {h00=0x0018, h01=0x0050, text=» RF(Z) IBMCHK REWIND«, t00=0x001c, t01=0x00e8}
0x2cba…2ccc               Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x001c, t01=0x0104}
0x2ccc…2cee               Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x001c, t01=0x0116}
0x2cee…2cfa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0138}
0x2cfa…2d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0144}
0x2d04…2d18               Head {h00=0x0010, h01=0x0050, text=»IBMCHK EQU *«, t00=0x001c, t01=0x014e}
0x2d18…2d30               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001c, t01=0x0162}
0x2d30…2d48               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x001c, t01=0x017a}
0x2d48…2d72 (29, 0, 400)  Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) IBMDSK IBM DISC HANDLING «, t00=0x001d, t01=0x0004}
0x2d72…2d7e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x002e}
0x2d7e…2d88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x003a}
0x2d88…2d9c               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=0 «, t00=0x001d, t01=0x0044}
0x2d9c…2dae               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001d, t01=0x0058}
0x2dae…2dd4               Head {h00=0x0022, h01=0x0050, text=» ABL IBMDSK IBM DISC HANDLING «, t00=0x001d, t01=0x006a}
0x2dd4…2de0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0090}
0x2de0…2dea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x009c}
0x2dea…2e00               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x001d, t01=0x00a6}
0x2e00…2e0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00bc}
0x2e0a…2e14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c6}
0x2e14…2e3c               Head {h00=0x0024, h01=0x0050, text=»REQERR ABL DISIOE REQUEST ERROR «, t00=0x001d, t01=0x00d0}
0x2e3c…2e46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00f8}
0x2e46…2e7a               Head {h00=0x0030, h01=0x0050, text=»INCLEN EQU * INCORRECT REQUESTED LENGTH EXIT«, t00=0x001d, t01=0x0102}
0x2e7a…2e9c               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8008 RETURN CODE«, t00=0x001d, t01=0x0136}
0x2e9c…2ea6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0158}
0x2ea6…2eba               Head {h00=0x0010, h01=0x0050, text=»DIS:EN EQU *«, t00=0x001d, t01=0x0162}
0x2eba…2eec               Head {h00=0x002e, h01=0x0050, text=» ABL DISEND PERFORM TENDIO AND GO TO TDISP«, t00=0x001d, t01=0x0176}
0x2eec…2ef6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0018}
0x2ef6…2f0c               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x001e, t01=0x0022}
0x2f0c…2f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0038}
0x2f16…2f36               Head {h00=0x001c, h01=0x0050, text=»* INPUT PARAMETER CHECK «, t00=0x001e, t01=0x0042}
0x2f36…2f40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0062}
0x2f40…2f54               Head {h00=0x0010, h01=0x0050, text=»INTEST EQU *«, t00=0x001e, t01=0x006c}
0x2f54…2f6c               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x001e, t01=0x0080}
0x2f6c…2f9e               Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x001e, t01=0x0098}
0x2f9e…2fb0               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x001e, t01=0x00ca}
0x2fb0…2fd8               Head {h00=0x0024, h01=0x0050, text=» RB(NZ) DIS:EN NEW VOLUME LOADED«, t00=0x001e, t01=0x00dc}
0x2fd8…2fe4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0104}
0x2fe4…2fee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0110}
0x2fee…3006               Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBRL,A8 «, t00=0x001e, t01=0x011a}
0x3006…303c               Head {h00=0x0032, h01=0x0050, text=» RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x001e, t01=0x0132}
0x303c…3056               Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x001e, t01=0x0168}
0x3056…308a               Head {h00=0x0030, h01=0x0050, text=» LDKL A2,DVBLEN+DVBLEN CHECK MMU BUFFER SIZE«, t00=0x001e, t01=0x0182}
0x308a…309e               Head {h00=0x0010, h01=0x0050, text=» CWK A2,512 «, t00=0x001f, t01=0x0026}
0x309e…30c0               Head {h00=0x001e, h01=0x0050, text=» RF(NL) INTES3 SUFFICIENT «, t00=0x001f, t01=0x003a}
0x30c0…30d2               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A2«, t00=0x001f, t01=0x005c}
0x30d2…30fc               Head {h00=0x0026, h01=0x0050, text=» RB(G) INCLEN MMU BUFFER TOO SMALL«, t00=0x001f, t01=0x006e}
0x30fc…3110               Head {h00=0x0010, h01=0x0050, text=»INTES3 EQU *«, t00=0x001f, t01=0x0098}
0x3110…311c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00ac}
0x311c…3148               Head {h00=0x0028, h01=0x0050, text=» SRC A3,7 NUMBER OF PHYSICAL SECTORS«, t00=0x001f, t01=0x00b8}
0x3148…317e               Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x001f, t01=0x00e4}
0x317e…3194               Head {h00=0x0012, h01=0x0050, text=» CWK A3,/01FF «, t00=0x001f, t01=0x011a}
0x3194…31ca               Head {h00=0x0032, h01=0x0050, text=» RB(G) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x001f, t01=0x0130}
0x31ca…31f4               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x001f, t01=0x0166}
0x31f4…31fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0190}
0x31fe…3216               Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0020, t01=0x000a}
0x3216…322e               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x0020, t01=0x0022}
0x322e…324e               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INTES5 IBM-DISC «, t00=0x0020, t01=0x003a}
0x324e…325a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x005a}
0x325a…3264               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0066}
0x3264…3278               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0020, t01=0x0070}
0x3278…328a               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0020, t01=0x0084}
0x328a…32c4               Head {h00=0x0036, h01=0x0050, text=» SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS«, t00=0x0020, t01=0x0096}
0x32c4…32fa               Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0020, t01=0x00d0}
0x32fa…3334               Head {h00=0x0036, h01=0x0050, text=» SLL A2,1 TRANSFER TOSS-SEC. NO TOPHYSICAL SEC. NO«, t00=0x0020, t01=0x0106}
0x3334…333e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0140}
0x333e…3354               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0020, t01=0x014a}
0x3354…335e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0160}
0x335e…3368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016a}
0x3368…337c               Head {h00=0x0010, h01=0x0050, text=»INTES5 EQU *«, t00=0x0020, t01=0x0174}
0x337c…3388               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0188}
0x3388…33b6 (33, 0, 400)  Head {h00=0x002a, h01=0x0050, text=» LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER«, t00=0x0021, t01=0x0004}
0x33b6…33da               Head {h00=0x0020, h01=0x0050, text=» RB(N) REQERR REQUEST ERROR «, t00=0x0021, t01=0x0032}
0x33da…33f2               Head {h00=0x0014, h01=0x0050, text=» SUKL A4,MAXSEC «, t00=0x0021, t01=0x0056}
0x33f2…3416               Head {h00=0x0020, h01=0x0050, text=» RB(NN) REQERR REQUEST ERROR«, t00=0x0021, t01=0x006e}
0x3416…3428               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0021, t01=0x0092}
0x3428…344e               Head {h00=0x0022, h01=0x0050, text=» RB(P) INCLEN INCORRECT LENGTH«, t00=0x0021, t01=0x00a4}
0x344e…347e               Head {h00=0x002c, h01=0x0050, text=» ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS «, t00=0x0021, t01=0x00ca}
0x347e…34b4               Head {h00=0x0032, h01=0x0050, text=» ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC NO«, t00=0x0021, t01=0x00fa}
0x34b4…34d6               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBBA,A8 GET ECBBA «, t00=0x0021, t01=0x0130}
0x34d6…3506               Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTBA,A6 SAVE ECB BUFFER ADDRESS «, t00=0x0021, t01=0x0152}
0x3506…3510               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0182}
0x3510…3526               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x018c}
0x3526…3538               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x0022, t01=0x0012}
0x3538…354c               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x0022, t01=0x0024}
0x354c…3584               Head {h00=0x0034, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS«, t00=0x0022, t01=0x0038}
0x3584…3590               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0070}
0x3590…359a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x007c}
0x359a…35b0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0022, t01=0x0086}
0x35b0…35ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x009c}
0x35ba…35de               Head {h00=0x0020, h01=0x0050, text=»*   MULTIPLE SECTOR IO ENTRY«, t00=0x0022, t01=0x00a6}
0x35de…35e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ca}
0x35e8…35fc               Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x0022, t01=0x00d4}
0x35fc…3612               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x00e8}
0x3612…3626               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0022, t01=0x00fe}
0x3626…363e               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWT:BF,A6«, t00=0x0022, t01=0x0112}
0x363e…3666               Head {h00=0x0024, h01=0x0050, text=» ST A2,BUFFLG,A6 SET BUFFER FLAG«, t00=0x0022, t01=0x012a}
0x3666…3672               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0152}
0x3672…367c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x015e}
0x367c…3690               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,512«, t00=0x0022, t01=0x0168}
0x3690…36a2               Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x0022, t01=0x017c}
0x36a2…36b4               Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0022, t01=0x018e}
0x36b4…36de               Head {h00=0x0026, h01=0x0050, text=» RF(NN) FD:005 FOUR PHYS. SEC. IO «, t00=0x0023, t01=0x0010}
0x36de…36e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x003a}
0x36e8…3702               Head {h00=0x0016, h01=0x0050, text=»FD:003 SUK A2,128 «, t00=0x0023, t01=0x0044}
0x3702…3714               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0023, t01=0x005e}
0x3714…3726               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x0070}
0x3726…373c               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:003«, t00=0x0023, t01=0x0082}
0x373c…3746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0098}
0x3746…375a               Head {h00=0x0010, h01=0x0050, text=»FD:005 EQU *«, t00=0x0023, t01=0x00a2}
0x375a…378c               Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC«, t00=0x0023, t01=0x00b6}
0x378c…37b8               Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO«, t00=0x0023, t01=0x00e8}
0x37b8…37ea               Head {h00=0x002e, h01=0x0050, text=» ST A3,DWTNOS,A6 UPDATE NUMBER OF SECTORS «, t00=0x0023, t01=0x0114}
0x37ea…37f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0146}
0x37f4…380c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0023, t01=0x0150}
0x380c…3816               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0168}
0x3816…3820               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0172}
0x3820…3836               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0023, t01=0x017c}
0x3836…384e (36, 0, 398)  Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0024, t01=0x0004}
0x384e…3874               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTBA,A6 BUFFER ADDRESS«, t00=0x0024, t01=0x001c}
0x3874…388c               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:BF,A6«, t00=0x0024, t01=0x0042}
0x388c…38bc               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA«, t00=0x0024, t01=0x005a}
0x38bc…38ce               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0024, t01=0x008a}
0x38ce…38e4               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:009«, t00=0x0024, t01=0x009c}
0x38e4…391e               Head {h00=0x0036, h01=0x0050, text=» AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x0024, t01=0x00b2}
0x391e…3936               Head {h00=0x0014, h01=0x0050, text=» RF(N) FD:009 NO«, t00=0x0024, t01=0x00ec}
0x3936…3940               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0104}
0x3940…3956               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0024, t01=0x010e}
0x3956…3960               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0124}
0x3960…396a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012e}
0x396a…397e               Head {h00=0x0010, h01=0x0050, text=»FD:007 EQU *«, t00=0x0024, t01=0x0138}
0x397e…3990               Head {h00=0x000e, h01=0x0050, text=» ECR A3,A2«, t00=0x0024, t01=0x014c}
0x3990…39a4               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x0024, t01=0x015e}
0x39a4…39b6               Head {h00=0x000e, h01=0x0050, text=» SRL A3,2 «, t00=0x0024, t01=0x0172}
0x39b6…39c8               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0024, t01=0x0184}
0x39c8…39da               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A3«, t00=0x0025, t01=0x0008}
0x39da…3a10               Head {h00=0x0032, h01=0x0050, text=» SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x0025, t01=0x001a}
0x3a10…3a3c               Head {h00=0x0028, h01=0x0050, text=» ADK A1,/4 CREATE ONE MORE MMU ENTRY«, t00=0x0025, t01=0x0050}
0x3a3c…3a56               Head {h00=0x0016, h01=0x0050, text=» SC A1,DWT:PA+2,A6«, t00=0x0025, t01=0x007c}
0x3a56…3a6c               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/FFF «, t00=0x0025, t01=0x0096}
0x3a6c…3a7e               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0025, t01=0x00ac}
0x3a7e…3aaa               Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x0025, t01=0x00be}
0x3aaa…3ab4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ea}
0x3ab4…3af0               Head {h00=0x0038, h01=0x0050, text=»FD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x0025, t01=0x00f4}
0x3af0…3afc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0130}
0x3afc…3b06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x013c}
0x3b06…3b28               Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 PREPARE FOR BIO «, t00=0x0025, t01=0x0146}
0x3b28…3b40               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x0025, t01=0x0168}
0x3b40…3b5a               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/3F ORDER «, t00=0x0025, t01=0x0180}
0x3b5a…3b6c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0026, t01=0x000a}
0x3b6c…3b8c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:060 BASIC READ«, t00=0x0026, t01=0x001c}
0x3b8c…3b9e               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0026, t01=0x003c}
0x3b9e…3bc0               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:015 BASIC WRITE «, t00=0x0026, t01=0x004e}
0x3bc0…3bd2               Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0026, t01=0x0070}
0x3bd2…3bf6               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:060 PHYSICAL READ «, t00=0x0026, t01=0x0082}
0x3bf6…3c08               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0026, t01=0x00a6}
0x3c08…3c2c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:013 PHYSICAL WRITE«, t00=0x0026, t01=0x00b8}
0x3c2c…3c5a               Head {h00=0x002a, h01=0x0050, text=» SUK A1,15 CHECK IF WRITE DELETED DATA«, t00=0x0026, t01=0x00dc}
0x3c5a…3c64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010a}
0x3c64…3c78               Head {h00=0x0010, h01=0x0050, text=»RQ:ERR EQU *«, t00=0x0026, t01=0x0114}
0x3c78…3c8e               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) REQERR«, t00=0x0026, t01=0x0128}
0x3c8e…3c98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x013e}
0x3c98…3cb0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0026, t01=0x0148}
0x3cb0…3cba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0160}
0x3cba…3cfa               Head {h00=0x003c, h01=0x0050, text=»*   WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS «, t00=0x0026, t01=0x016a}
0x3cfa…3d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x001a}
0x3d04…3d2e               Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 WRITE DELETED DATA ORDER«, t00=0x0027, t01=0x0024}
0x3d2e…3d58               Head {h00=0x0026, h01=0x0050, text=»FD:013 EQU * PHYSICAL WRITE ORDER «, t00=0x0027, t01=0x004e}
0x3d58…3d6a               Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0027, t01=0x0078}
0x3d6a…3d90               Head {h00=0x0022, h01=0x0050, text=»FD:015 EQU * BASIC WRITE ORDER«, t00=0x0027, t01=0x008a}
0x3d90…3da2               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0027, t01=0x00b0}
0x3da2…3dc8               Head {h00=0x0022, h01=0x0050, text=» CF A5,BIO PREPARATION FOR CIO«, t00=0x0027, t01=0x00c2}
0x3dc8…3dd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00e8}
0x3dd2…3de8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0027, t01=0x00f2}
0x3de8…3dfc               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0027, t01=0x0108}
0x3dfc…3e14               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0027, t01=0x011c}
0x3e14…3e2c               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0027, t01=0x0134}
0x3e2c…3e4a               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0027, t01=0x014c}
0x3e4a…3e56               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x016a}
0x3e56…3e60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0176}
0x3e60…3e76               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0027, t01=0x0180}
0x3e76…3e8e               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0028, t01=0x0008}
0x3e8e…3ec6               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0028, t01=0x0020}
0x3ec6…3ef2               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA «, t00=0x0028, t01=0x0058}
0x3ef2…3f16               Head {h00=0x0020, h01=0x0050, text=» LDR A7,A3 REQUESTED LENGTH «, t00=0x0028, t01=0x0084}
0x3f16…3f30               Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x0028, t01=0x00a8}
0x3f30…3f5a               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0028, t01=0x00c2}
0x3f5a…3f6c               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0028, t01=0x00ec}
0x3f6c…3f96               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0028, t01=0x00fe}
0x3f96…3fc2               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0028, t01=0x0128}
0x3fc2…3ff8               Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x0028, t01=0x0154}
0x3ff8…4022               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0028, t01=0x018a}
0x4022…4040               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x0029, t01=0x0024}
0x4040…4074               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0029, t01=0x0042}
0x4074…4088               Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x0029, t01=0x0076}
0x4088…4094               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x008a}
0x4094…409e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0096}
0x409e…40b6               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0029, t01=0x00a0}
0x40b6…40ce               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0029, t01=0x00b8}
0x40ce…40ec               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0029, t01=0x00d0}
0x40ec…40f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00ee}
0x40f8…4102               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00fa}
0x4102…4114               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0029, t01=0x0104}
0x4114…4144               Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x0029, t01=0x0116}
0x4144…415a               Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x0029, t01=0x0146}
0x415a…416e               Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x0029, t01=0x015c}
0x416e…417a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0170}
0x417a…4184               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x017c}
0x4184…419c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0029, t01=0x0186}
0x419c…41a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x000e}
0x41a6…41b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0018}
0x41b0…41d6               Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x002a, t01=0x0022}
0x41d6…4204               Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/200 CHECK IF WRITE PROTECTED«, t00=0x002a, t01=0x0048}
0x4204…421a               Head {h00=0x0012, h01=0x0050, text=» RF(Z) FD:020 «, t00=0x002a, t01=0x0076}
0x421a…423c               Head {h00=0x001e, h01=0x0050, text=» LDK A3,/40 INDICATE ERROR«, t00=0x002a, t01=0x008c}
0x423c…426c               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x002a, t01=0x00ae}
0x426c…4280               Head {h00=0x0010, h01=0x0050, text=»FD:020 EQU *«, t00=0x002a, t01=0x00de}
0x4280…429e               Head {h00=0x001a, h01=0x0050, text=» RF FD:100 GOTO FDMSIO«, t00=0x002a, t01=0x00f2}
0x429e…42a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0110}
0x42a8…42c0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002a, t01=0x011a}
0x42c0…42ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0132}
0x42ca…42e4               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002a, t01=0x013c}
0x42e4…42fe               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x002a, t01=0x0156}
0x42fe…4318               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x002a, t01=0x0170}
0x4318…4332               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x002a, t01=0x018a}
0x4332…434c               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002b, t01=0x0014}
0x434c…4356               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x002e}
0x4356…436e               Head {h00=0x0014, h01=0x0050, text=»FD:060 CF A5,BIO«, t00=0x002b, t01=0x0038}
0x436e…4378               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0050}
0x4378…438e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002b, t01=0x005a}
0x438e…43a2               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002b, t01=0x0070}
0x43a2…43ba               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002b, t01=0x0084}
0x43ba…43d2               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x002b, t01=0x009c}
0x43d2…43f2               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:070 TOSS DISC «, t00=0x002b, t01=0x00b4}
0x43f2…441c               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x002b, t01=0x00d4}
0x441c…4450               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x002b, t01=0x00fe}
0x4450…445c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0132}
0x445c…4466               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x013e}
0x4466…447a               Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x002b, t01=0x0148}
0x447a…4490               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002b, t01=0x015c}
0x4490…44a4               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x002b, t01=0x0172}
0x44a4…44bc               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:LA,A6«, t00=0x002b, t01=0x0186}
0x44bc…44e8               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:080 BUFFER IN SYSTEM AREA «, t00=0x002c, t01=0x000e}
0x44e8…4512               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x002c, t01=0x003a}
0x4512…4546               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x002c, t01=0x0064}
0x4546…4552               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0098}
0x4552…455c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00a4}
0x455c…4572               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002c, t01=0x00ae}
0x4572…4584               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002c, t01=0x00c4}
0x4584…459c               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+CHAN=0«, t00=0x002c, t01=0x00d6}
0x459c…45c6               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x002c, t01=0x00ee}
0x45c6…45fa               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x002c, t01=0x0118}
0x45fa…4606               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x014c}
0x4606…4610               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0158}
0x4610…4624               Head {h00=0x0010, h01=0x0050, text=»FD:080 EQU *«, t00=0x002c, t01=0x0162}
0x4624…4646               Head {h00=0x001e, h01=0x0050, text=» CF A5,FD:REA PERFORM READ«, t00=0x002c, t01=0x0176}
0x4646…4650               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0008}
0x4650…4668               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002d, t01=0x0012}
0x4668…4680               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x002d, t01=0x002a}
0x4680…469e               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:090 NOT IBM «, t00=0x002d, t01=0x0042}
0x469e…46aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0060}
0x46aa…46b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x006c}
0x46b4…46c6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002d, t01=0x0076}
0x46c6…46dc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x002d, t01=0x0088}
0x46dc…4708               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS«, t00=0x002d, t01=0x009e}
0x4708…4714               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00ca}
0x4714…471e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d6}
0x471e…4730               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002d, t01=0x00e0}
0x4730…4750               Head {h00=0x001c, h01=0x0050, text=» LD A7,DWTRL,A6 REQ. LEN«, t00=0x002d, t01=0x00f2}
0x4750…476a               Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG=1  =8 «, t00=0x002d, t01=0x0112}
0x476a…4796               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWT:LA,A6 LOGICAL ADDRESS =8 «, t00=0x002d, t01=0x012c}
0x4796…47c0               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FD:085 NOT SYSTEM AREA =8 «, t00=0x002d, t01=0x0158}
0x47c0…47ea               Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS =8 «, t00=0x002d, t01=0x0182}
0x47ea…4818               Head {h00=0x002a, h01=0x0050, text=» CF A5,ASC:00 CONVERT EBCDIC-ASCII =8 «, t00=0x002e, t01=0x001c}
0x4818…482e               Head {h00=0x0012, h01=0x0050, text=» RF FD:090  =8«, t00=0x002e, t01=0x004a}
0x482e…4846               Head {h00=0x0014, h01=0x0050, text=»FD:085 EQU *  =8«, t00=0x002e, t01=0x0060}
0x4846…4858               Head {h00=0x000e, h01=0x0050, text=» XIF   =8 «, t00=0x002e, t01=0x0078}
0x4858…486e               Head {h00=0x0012, h01=0x0050, text=» IFT IBM=1  =8«, t00=0x002e, t01=0x008a}
0x486e…4886               Head {h00=0x0014, h01=0x0050, text=» CF A5,ASCII  =8«, t00=0x002e, t01=0x00a0}
0x4886…489a               Head {h00=0x0010, h01=0x0050, text=»FD:090 EQU *«, t00=0x002e, t01=0x00b8}
0x489a…48a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00cc}
0x48a6…48b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00d8}
0x48b0…48c8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002e, t01=0x00e2}
0x48c8…48d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00fa}
0x48d2…48dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0104}
0x48dc…48f2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002e, t01=0x010e}
0x48f2…4906               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x002e, t01=0x0124}
0x4906…491e               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002e, t01=0x0138}
0x491e…4936               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x002e, t01=0x0150}
0x4936…4956               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:100 TOSS DISC «, t00=0x002e, t01=0x0168}
0x4956…4962               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0188}
0x4962…496c (47, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0004}
0x496c…4982               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002f, t01=0x000e}
0x4982…499a               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x002f, t01=0x0024}
0x499a…49d2               Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x002f, t01=0x003c}
0x49d2…49fe               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:100 BUFFER IN SYSTEM AREA «, t00=0x002f, t01=0x0074}
0x49fe…4a26               Head {h00=0x0024, h01=0x0050, text=» LD A7,DWTRL,A6 REQUESTED LENGTH«, t00=0x002f, t01=0x00a0}
0x4a26…4a52               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,BUF GET DWT BUFFER ADDRESS «, t00=0x002f, t01=0x00c8}
0x4a52…4a7c               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x002f, t01=0x00f4}
0x4a7c…4aa8               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x002f, t01=0x011e}
0x4aa8…4ade               Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x002f, t01=0x014a}
0x4ade…4b08               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x002f, t01=0x0180}
0x4b08…4b14               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x001a}
0x4b14…4b28               Head {h00=0x0010, h01=0x0050, text=»FD:100 EQU *«, t00=0x0030, t01=0x0026}
0x4b28…4b3c               Head {h00=0x0010, h01=0x0050, text=» ABL FDMSIO «, t00=0x0030, t01=0x003a}
0x4b3c…4b46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x004e}
0x4b46…4b5e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0030, t01=0x0058}
0x4b5e…4b68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0070}
0x4b68…4b78               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0030, t01=0x007a}
0x4b78…4b88               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0030, t01=0x008a}
0x4b88…4b98               Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0030, t01=0x009a}
0x4b98…4ba8               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0030, t01=0x00aa}
0x4ba8…4bb8               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0030, t01=0x00ba}
0x4bb8…4bc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ca}
0x4bc2…4bd4               Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0030, t01=0x00d4}
0x4bd4…4bf6               Head {h00=0x001e, h01=0x0050, text=» ADK A3,0 CHECK ORDER CODE«, t00=0x0030, t01=0x00e6}
0x4bf6…4c18               Head {h00=0x001e, h01=0x0050, text=» RF(Z) UNLOAD UNLOAD ORDER«, t00=0x0030, t01=0x0108}
0x4c18…4c2a               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0030, t01=0x012a}
0x4c2a…4c4a               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOAD00 LOAD ORDER«, t00=0x0030, t01=0x013c}
0x4c4a…4c5c               Head {h00=0x000e, h01=0x0050, text=» ADK A3,17«, t00=0x0030, t01=0x015c}
0x4c5c…4c84               Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RQ:ERR ERROR IF NOT LOCK«, t00=0x0030, t01=0x016e}
0x4c84…4c8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0008}
0x4c8e…4ca2               Head {h00=0x0010, h01=0x0050, text=»LOAD00 EQU *«, t00=0x0031, t01=0x0012}
0x4ca2…4cba               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0031, t01=0x0026}
0x4cba…4cd0               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0031, t01=0x003e}
0x4cd0…4ce2               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0031, t01=0x0054}
0x4ce2…4d0c               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) LOA:80 ENDIO NOT OPERABLE «, t00=0x0031, t01=0x0066}
0x4d0c…4d16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0090}
0x4d16…4d2e               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0031, t01=0x009a}
0x4d2e…4d46               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0031, t01=0x00b2}
0x4d46…4d66               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:70 TOSS DISC «, t00=0x0031, t01=0x00ca}
0x4d66…4d72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00ea}
0x4d72…4d7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00f6}
0x4d7c…4d8e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0031, t01=0x0100}
0x4d8e…4db2               Head {h00=0x0020, h01=0x0050, text=» LC A3,DWTOR+1,A6 GET ORDER «, t00=0x0031, t01=0x0112}
0x4db2…4dc6               Head {h00=0x0010, h01=0x0050, text=» SUK A3,/26 «, t00=0x0031, t01=0x0136}
0x4dc6…4de6               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:65 LOCK ORDER«, t00=0x0031, t01=0x014a}
0x4de6…4dfc               Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0031, t01=0x016a}
0x4dfc…4e22               Head {h00=0x0022, h01=0x0050, text=» CF A5,LD:RC CHECK RETURN CODE«, t00=0x0031, t01=0x0180}
0x4e22…4e3a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0032, t01=0x0016}
0x4e3a…4e44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x002e}
0x4e44…4e62               Head {h00=0x001a, h01=0x0050, text=»*  READ DATA SET LABEL«, t00=0x0032, t01=0x0038}
0x4e62…4e6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0056}
0x4e6c…4e96               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW1,A8 SECTOR NUMBER =3 «, t00=0x0032, t01=0x0060}
0x4e96…4ea8               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x0032, t01=0x008a}
0x4ea8…4ecc               Head {h00=0x0020, h01=0x0050, text=» RF(N) LOA:85 REQUEST ERROR «, t00=0x0032, t01=0x009c}
0x4ecc…4ede               Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x0032, t01=0x00c0}
0x4ede…4f02               Head {h00=0x0020, h01=0x0050, text=» RF(P) LOA:85 REQUEST ERROR «, t00=0x0032, t01=0x00d2}
0x4f02…4f14               Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x0032, t01=0x00f6}
0x4f14…4f2a               Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x0032, t01=0x0108}
0x4f2a…4f44               Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x0032, t01=0x011e}
0x4f44…4f58               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0032, t01=0x0138}
0x4f58…4f6e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0032, t01=0x014c}
0x4f6e…4f92               Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x0032, t01=0x0162}
0x4f92…4fb4               Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x0032, t01=0x0186}
0x4fb4…4fe8               Head {h00=0x0030, h01=0x0050, text=» ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL «, t00=0x0033, t01=0x0018}
0x4fe8…4ffc               Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x0033, t01=0x004c}
0x4ffc…5010               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0033, t01=0x0060}
0x5010…501c               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0033, t01=0x0074}
0x501c…504e               Head {h00=0x002e, h01=0x0050, text=» LD A3,ECBCW1,A8 DATA SET LABEL SECTOR =3 «, t00=0x0033, t01=0x0080}
0x504e…5064               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x0033, t01=0x00b2}
0x5064…5084               Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x0033, t01=0x00c8}
0x5084…50a4               Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x0033, t01=0x00e8}
0x50a4…50d6               Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x0033, t01=0x0108}
0x50d6…50ec               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x0033, t01=0x013a}
0x50ec…5114               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x0033, t01=0x0150}
0x5114…512a               Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x0033, t01=0x0178}
0x512a…5140               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0033, t01=0x018e}
0x5140…5154               Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x0034, t01=0x0014}
0x5154…5178               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x0034, t01=0x0028}
0x5178…518e               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x0034, t01=0x004c}
0x518e…51a4               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0034, t01=0x0062}
0x51a4…51cc               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x0034, t01=0x0078}
0x51cc…51f0               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x0034, t01=0x00a0}
0x51f0…5206               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x0034, t01=0x00c4}
0x5206…5250               Head {h00=0x0046, h01=0x0050, text=» INH  INHIBIT INTERRUPTS                                  INHIBIT «, t00=0x0034, t01=0x00da}
0x5250…5266               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x0034, t01=0x0124}
0x5266…528e               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x0034, t01=0x013a}
0x528e…5298               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0162}
0x5298…52ac               Head {h00=0x0010, h01=0x0050, text=»LOA:65 EQU *«, t00=0x0034, t01=0x016c}
0x52ac…52c2               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/400 «, t00=0x0034, t01=0x0180}
0x52c2…52f2               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0035, t01=0x0008}
0x52f2…52fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0038}
0x52fc…5310               Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x0035, t01=0x0042}
0x5310…531c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0056}
0x531c…5334               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x0035, t01=0x0062}
0x5334…535a               Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x0035, t01=0x007a}
0x535a…536e               Head {h00=0x0010, h01=0x0050, text=»LOA:80 EQU *«, t00=0x0035, t01=0x00a0}
0x536e…5382               Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x0035, t01=0x00b4}
0x5382…538c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00c8}
0x538c…539e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0035, t01=0x00d2}
0x539e…53b2               Head {h00=0x0010, h01=0x0050, text=»LOA:85 EQU *«, t00=0x0035, t01=0x00e4}
0x53b2…53d4               Head {h00=0x001e, h01=0x0050, text=» LDK A1,/80 REQUEST ERROR «, t00=0x0035, t01=0x00f8}
0x53d4…5404               Head {h00=0x002c, h01=0x0050, text=» SCR A1,A6 UPDATE TEMPORARY RETURN CODE «, t00=0x0035, t01=0x011a}
0x5404…5410               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x014a}
0x5410…541a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0156}
0x541a…5432               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0035, t01=0x0160}
0x5432…543c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0178}
0x543c…5446               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0182}
0x5446…545e               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0035, t01=0x018c}
0x545e…5468               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0014}
0x5468…5482               Head {h00=0x0016, h01=0x0050, text=»*  ERROR , UNLOCK «, t00=0x0036, t01=0x001e}
0x5482…548c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0038}
0x548c…54a0               Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x0036, t01=0x0042}
0x54a0…54b2               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x0036, t01=0x0056}
0x54b2…54d4               Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x0036, t01=0x0068}
0x54d4…54ee               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0036, t01=0x008a}
0x54ee…5504               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0036, t01=0x00a4}
0x5504…5516               Head {h00=0x000e, h01=0x0050, text=» RB LOA:80«, t00=0x0036, t01=0x00ba}
0x5516…5520               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00cc}
0x5520…553e               Head {h00=0x001a, h01=0x0050, text=»*   LD:RC  SUBROUTINE «, t00=0x0036, t01=0x00d6}
0x553e…5548               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00f4}
0x5548…555c               Head {h00=0x0010, h01=0x0050, text=»LD:RC EQU * «, t00=0x0036, t01=0x00fe}
0x555c…557c               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x0036, t01=0x0112}
0x557c…5592               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x0036, t01=0x0132}
0x5592…55bc               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0036, t01=0x0148}
0x55bc…55cc               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0036, t01=0x0172}
0x55cc…55d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0182}
0x55d8…55e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x018e}
0x55e2…55fa               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0037, t01=0x0008}
0x55fa…5604               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0020}
0x5604…5616               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x002a}
0x5616…5628               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0037, t01=0x003c}
0x5628…563a               Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0037, t01=0x004e}
0x563a…564c               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0037, t01=0x0060}
0x564c…565e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0037, t01=0x0072}
0x565e…5668               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0084}
0x5668…567c               Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0037, t01=0x008e}
0x567c…568e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0037, t01=0x00a2}
0x568e…5698               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00b4}
0x5698…56b2               Head {h00=0x0016, h01=0x0050, text=»*    DATA SET OPEN«, t00=0x0037, t01=0x00be}
0x56b2…56bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d8}
0x56bc…56de               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0037, t01=0x00e2}
0x56de…5702               Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0037, t01=0x0104}
0x5702…5720               Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0037, t01=0x0128}
0x5720…5758               Head {h00=0x0034, h01=0x0050, text=» ST A7,12,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0037, t01=0x0146}
0x5758…5762               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x017e}
0x5762…5792               Head {h00=0x002c, h01=0x0050, text=»*  READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0037, t01=0x0188}
0x5792…579c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0028}
0x579c…57c0               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0038, t01=0x0032}
0x57c0…57ea               Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0038, t01=0x0056}
0x57ea…5812               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0038, t01=0x0080}
0x5812…581e               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0038, t01=0x00a8}
0x581e…5828               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b4}
0x5828…5868               Head {h00=0x003c, h01=0x0050, text=»*  TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0038, t01=0x00be}
0x5868…5872               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00fe}
0x5872…5894               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0038, t01=0x0108}
0x5894…589e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x012a}
0x589e…58ba               Head {h00=0x0018, h01=0x0050, text=»*  DIVIDE EOD BY 26 «, t00=0x0038, t01=0x0134}
0x58ba…58c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0150}
0x58c4…58d6               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0038, t01=0x015a}
0x58d6…58ee               Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0038, t01=0x016c}
0x58ee…5904               Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0038, t01=0x0184}
0x5904…5916               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0039, t01=0x000a}
0x5916…5928               Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0039, t01=0x001c}
0x5928…5932               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x002e}
0x5932…594a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0039, t01=0x0038}
0x594a…5954               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0050}
0x5954…595e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x005a}
0x595e…5976               Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0039, t01=0x0064}
0x5976…5980               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x007c}
0x5980…59a0               Head {h00=0x001c, h01=0x0050, text=»*   A1 = BINARY TRACK NO«, t00=0x0039, t01=0x0086}
0x59a0…59ce               Head {h00=0x002a, h01=0x0050, text=»*   A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0039, t01=0x00a6}
0x59ce…59d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d4}
0x59d8…5a04               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0039, t01=0x00de}
0x5a04…5a30               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0039, t01=0x010a}
0x5a30…5a42               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0039, t01=0x0136}
0x5a42…5a54               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0039, t01=0x0148}
0x5a54…5a70               Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0039, t01=0x015a}
0x5a70…5a92               Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0039, t01=0x0176}
0x5a92…5aaa               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x003a, t01=0x0008}
0x5aaa…5ad6               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x003a, t01=0x0020}
0x5ad6…5ae8               Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x003a, t01=0x004c}
0x5ae8…5b0a               Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x003a, t01=0x005e}
0x5b0a…5b54               Head {h00=0x0046, h01=0x0050, text=» INH  INHIBIT INTERRUPTS                                  INHIBIT «, t00=0x003a, t01=0x0080}
0x5b54…5b5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ca}
0x5b5e…5b7e               Head {h00=0x001c, h01=0x0050, text=»*  WRITE DATA SET LABEL «, t00=0x003a, t01=0x00d4}
0x5b7e…5b88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00f4}
0x5b88…5bac               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x003a, t01=0x00fe}
0x5bac…5bcc               Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x003a, t01=0x0122}
0x5bcc…5bf8               Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x003a, t01=0x0142}
0x5bf8…5c20               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x003a, t01=0x016e}
0x5c20…5c36               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003b, t01=0x0008}
0x5c36…5c58               Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x003b, t01=0x001e}
0x5c58…5c62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0040}
0x5c62…5c7a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003b, t01=0x004a}
0x5c7a…5c84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0062}
0x5c84…5c98               Head {h00=0x0010, h01=0x0050, text=»*    UNLOCK «, t00=0x003b, t01=0x006c}
0x5c98…5ca2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0080}
0x5ca2…5cae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x008a}
0x5cae…5cc2               Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x003b, t01=0x0096}
0x5cc2…5cdc               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x003b, t01=0x00aa}
0x5cdc…5cf2               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x003b, t01=0x00c4}
0x5cf2…5d04               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x003b, t01=0x00da}
0x5d04…5d28               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) LOA:80 NOT OPERABLE «, t00=0x003b, t01=0x00ec}
0x5d28…5d4a               Head {h00=0x001e, h01=0x0050, text=» C1 A2,DWTA3,A6 INDEX MASK«, t00=0x003b, t01=0x0110}
0x5d4a…5d7a               Head {h00=0x002c, h01=0x0050, text=» ANS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x003b, t01=0x0132}
0x5d7a…5d94               Head {h00=0x0016, h01=0x0050, text=» RB LOA:80 END:IO «, t00=0x003b, t01=0x0162}
0x5d94…5d9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x017c}
0x5d9e…5db0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003b, t01=0x0186}
0x5db0…5dba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0008}
0x5dba…5dde               Head {h00=0x0020, h01=0x0050, text=»*   UNLOAD RETURN CODE CHECK«, t00=0x003c, t01=0x0012}
0x5dde…5de8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0036}
0x5de8…5dfc               Head {h00=0x0010, h01=0x0050, text=»UNL:RC EQU *«, t00=0x003c, t01=0x0040}
0x5dfc…5e12               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/207 «, t00=0x003c, t01=0x0054}
0x5e12…5e36               Head {h00=0x0020, h01=0x0050, text=» RF(Z) RTN:A5 NO RETURN CODE«, t00=0x003c, t01=0x006a}
0x5e36…5e4c               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/200 «, t00=0x003c, t01=0x008e}
0x5e4c…5e76               Head {h00=0x0026, h01=0x0050, text=» RF(Z) RTN:A5 NOT WRITE PROTECTED «, t00=0x003c, t01=0x00a4}
0x5e76…5e8c               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003c, t01=0x00ce}
0x5e8c…5eb0               Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x003c, t01=0x00e4}
0x5eb0…5ece               Head {h00=0x001a, h01=0x0050, text=» RF(Z) RTN:A5 NOT OPEN«, t00=0x003c, t01=0x0108}
0x5ece…5ee2               Head {h00=0x0010, h01=0x0050, text=» LDK A3,/40 «, t00=0x003c, t01=0x0126}
0x5ee2…5f12               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x003c, t01=0x013a}
0x5f12…5f26               Head {h00=0x0010, h01=0x0050, text=»RTN:A5 EQU *«, t00=0x003c, t01=0x016a}
0x5f26…5f36               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003c, t01=0x017e}
0x5f36…5f40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x018e}
0x5f40…5f58               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003d, t01=0x0008}
0x5f58…5f62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0020}
0x5f62…5f6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x002a}
0x5f6c…5f98               Head {h00=0x0028, h01=0x0050, text=»IBMDSK EQU * IBM DISK HANDLING ENTRY«, t00=0x003d, t01=0x0034}
0x5f98…5faa               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003d, t01=0x0060}
0x5faa…5fdc               Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x003d, t01=0x0072}
0x5fdc…5fee               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x003d, t01=0x00a4}
0x5fee…6018               Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) END:IO NEW VOLUME LOADED «, t00=0x003d, t01=0x00b6}
0x6018…6036               Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x003d, t01=0x00e0}
0x6036…605a               Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x003d, t01=0x00fe}
0x605a…6080               Head {h00=0x0022, h01=0x0050, text=» RF(Z) FD:DIS NOT OPEN, ERROR «, t00=0x003d, t01=0x0122}
0x6080…60a4               Head {h00=0x0020, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER CODE«, t00=0x003d, t01=0x0148}
0x60a4…60b6               Head {h00=0x000e, h01=0x0050, text=» SUK A1,49«, t00=0x003d, t01=0x016c}
0x60b6…60d8               Head {h00=0x001e, h01=0x0050, text=» RF(Z) REWIND REWIND FILE «, t00=0x003d, t01=0x017e}
0x60d8…6106               Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBRL,A8 CHECK REQUESTED LENGTH«, t00=0x003e, t01=0x0010}
0x6106…6120               Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x003e, t01=0x003e}
0x6120…613e               Head {h00=0x001a, h01=0x0050, text=» CWK A3,DVBLEN+DVBLEN «, t00=0x003e, t01=0x0058}
0x613e…616a               Head {h00=0x0028, h01=0x0050, text=» ABL(G) INCLEN MMU BUFFER TOO SMALL «, t00=0x003e, t01=0x0076}
0x616a…6176               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x00a2}
0x6176…6188               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003e, t01=0x00ae}
0x6188…619e               Head {h00=0x0012, h01=0x0050, text=» SUK A3,SECLEN«, t00=0x003e, t01=0x00c0}
0x619e…61c6               Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) INCLEN INCORRECT LENGTH«, t00=0x003e, t01=0x00d6}
0x61c6…61d8               Head {h00=0x000e, h01=0x0050, text=» ADK A1,43«, t00=0x003e, t01=0x00fe}
0x61d8…6200               Head {h00=0x0024, h01=0x0050, text=» RF(Z) SQWRITE SEQUENTIAL WRITE «, t00=0x003e, t01=0x0110}
0x6200…6212               Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x003e, t01=0x0138}
0x6212…6246               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FD:DIS ERROR IF NOT SEQUENTIAL READ «, t00=0x003e, t01=0x014a}
0x6246…6250               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x017e}
0x6250…6268               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003e, t01=0x0188}
0x6268…6272               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0010}
0x6272…628e               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003f, t01=0x001a}
0x628e…62aa               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x003f, t01=0x0036}
0x62aa…62c6               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003f, t01=0x0052}
0x62c6…62d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x006e}
0x62d0…6302               Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x003f, t01=0x0078}
0x6302…631a               Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x003f, t01=0x00aa}
0x631a…6332               Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x003f, t01=0x00c2}
0x6332…635e               Head {h00=0x0028, h01=0x0050, text=» ST A3,ECBCW2,A8 STORE CRN+1 IN ECB «, t00=0x003f, t01=0x00da}
0x635e…6374               Head {h00=0x0012, h01=0x0050, text=» CWK A3,MAXIBM«, t00=0x003f, t01=0x0106}
0x6374…6398               Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x003f, t01=0x011c}
0x6398…63aa               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x003f, t01=0x0140}
0x63aa…63cc               Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x003f, t01=0x0152}
0x63cc…63e6               Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 BIO READ«, t00=0x003f, t01=0x0174}
0x63e6…63fa               Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x003f, t01=0x018e}
0x63fa…6430               Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0040, t01=0x0012}
0x6430…643a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0048}
0x643a…6450               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0040, t01=0x0052}
0x6450…647c               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0040, t01=0x0068}
0x647c…6488               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0094}
0x6488…6492               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00a0}
0x6492…64a4               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0040, t01=0x00aa}
0x64a4…64ba               Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x0040, t01=0x00bc}
0x64ba…64e2               Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0040, t01=0x00d2}
0x64e2…64ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00fa}
0x64ec…6504               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0040, t01=0x0104}
0x6504…650e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x011c}
0x650e…6518               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0126}
0x6518…652e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0040, t01=0x0130}
0x652e…655a               Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0040, t01=0x0146}
0x655a…6580               Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x0040, t01=0x0172}
0x6580…65a4               Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x0041, t01=0x0008}
0x65a4…65ce               Head {h00=0x0026, h01=0x0050, text=» LDKL A1,BUF DRIVER BUFFER ADDRESS«, t00=0x0041, t01=0x002c}
0x65ce…65f8               Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTUEC,A6 USER ECB ADDRESS «, t00=0x0041, t01=0x0056}
0x65f8…6624               Head {h00=0x0028, h01=0x0050, text=» EL A2,ECBBA,A2 USER BUFFER ADDRESS «, t00=0x0041, t01=0x0080}
0x6624…6642               Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x0041, t01=0x00ac}
0x6642…666e               Head {h00=0x0028, h01=0x0050, text=» MVSU A7 MOVE SECTOR TO USER BUFFER «, t00=0x0041, t01=0x00ca}
0x666e…669e               Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x0041, t01=0x00f6}
0x669e…66aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0126}
0x66aa…66b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0132}
0x66b4…66c6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0041, t01=0x013c}
0x66c6…66dc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0041, t01=0x014e}
0x66dc…66f0               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0041, t01=0x0164}
0x66f0…6712               Head {h00=0x001e, h01=0x0050, text=» ANK A3,1 NOT OPERABLE =7 «, t00=0x0041, t01=0x0178}
0x6712…6730               Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x0042, t01=0x000a}
0x6730…673a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0028}
0x673a…6752               Head {h00=0x0014, h01=0x0050, text=»*    END OF DATA«, t00=0x0042, t01=0x0032}
0x6752…675c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x004a}
0x675c…6784               Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x0042, t01=0x0054}
0x6784…6796               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0042, t01=0x007c}
0x6796…67a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x008e}
0x67a0…67b8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0042, t01=0x0098}
0x67b8…67c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b0}
0x67c2…67de               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0042, t01=0x00ba}
0x67de…67fa               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x0042, t01=0x00d6}
0x67fa…6816               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0042, t01=0x00f2}
0x6816…6820               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x010e}
0x6820…6834               Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0042, t01=0x0118}
0x6834…683e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x012c}
0x683e…6860               Head {h00=0x001e, h01=0x0050, text=»*   CHECK IF END OF EXTENT«, t00=0x0042, t01=0x0136}
0x6860…686a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0158}
0x686a…6880               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0042, t01=0x0162}
0x6880…68aa               Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x0042, t01=0x0178}
0x68aa…68da               Head {h00=0x002c, h01=0x0050, text=» ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. «, t00=0x0043, t01=0x0012}
0x68da…68f0               Head {h00=0x0012, h01=0x0050, text=» CWK A7,MAXIBM«, t00=0x0043, t01=0x0042}
0x68f0…6914               Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x0043, t01=0x0058}
0x6914…6928               Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x0043, t01=0x007c}
0x6928…694c               Head {h00=0x0020, h01=0x0050, text=» RF(G) ENDEOE END OF EXTENT «, t00=0x0043, t01=0x0090}
0x694c…6956               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00b4}
0x6956…696c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0043, t01=0x00be}
0x696c…6998               Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0043, t01=0x00d4}
0x6998…69be               Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x0043, t01=0x0100}
0x69be…69e2               Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x0043, t01=0x0126}
0x69e2…6a0c               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUEC,A6 USER ECB ADDRESS «, t00=0x0043, t01=0x014a}
0x6a0c…6a38               Head {h00=0x0028, h01=0x0050, text=» EL A1,ECBBA,A1 USER BUFFER ADDRESS «, t00=0x0043, t01=0x0174}
0x6a38…6a62               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,BUF DRIVER BUFFER ADDRESS«, t00=0x0044, t01=0x0010}
0x6a62…6a80               Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x0044, t01=0x003a}
0x6a80…6aae               Head {h00=0x002a, h01=0x0050, text=» MVUS A7 MOVE SECTOR TO DRIVER BUFFER «, t00=0x0044, t01=0x0058}
0x6aae…6ade               Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x0044, t01=0x0086}
0x6ade…6aea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x00b6}
0x6aea…6af4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00c2}
0x6af4…6b06               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0044, t01=0x00cc}
0x6b06…6b22               Head {h00=0x0018, h01=0x0050, text=» LDK A4,5 BIO WRITE «, t00=0x0044, t01=0x00de}
0x6b22…6b36               Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x0044, t01=0x00fa}
0x6b36…6b4c               Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x0044, t01=0x010e}
0x6b4c…6b7c               Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x0044, t01=0x0124}
0x6b7c…6b86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0154}
0x6b86…6b9c               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0044, t01=0x015e}
0x6b9c…6ba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0174}
0x6ba6…6bb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x017e}
0x6bb0…6bc6               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0044, t01=0x0188}
0x6bc6…6bec               Head {h00=0x0022, h01=0x0050, text=» SRL A1,3 IF BIT 6 SET THEN =7«, t00=0x0045, t01=0x000e}
0x6bec…6c0c               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/40 SET BIT 9 =7«, t00=0x0045, t01=0x0034}
0x6c0c…6c40               Head {h00=0x0030, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE =7 «, t00=0x0045, t01=0x0054}
0x6c40…6c56               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0045, t01=0x0088}
0x6c56…6c6a               Head {h00=0x0010, h01=0x0050, text=»SQW:10 EQU *«, t00=0x0045, t01=0x009e}
0x6c6a…6ca0               Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE «, t00=0x0045, t01=0x00b2}
0x6ca0…6cb6               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x0045, t01=0x00e8}
0x6cb6…6ce4               Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x0045, t01=0x00fe}
0x6ce4…6cfa               Head {h00=0x0012, h01=0x0050, text=» LDK A2,SECLEN«, t00=0x0045, t01=0x012c}
0x6cfa…6d2a               Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBEL,A8 UPDATE EFFECTIVE LENGTH «, t00=0x0045, t01=0x0142}
0x6d2a…6d3c               Head {h00=0x000e, h01=0x0050, text=» RF END:RC«, t00=0x0045, t01=0x0172}
0x6d3c…6d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0184}
0x6d46…6d5a               Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x0045, t01=0x018e}
0x6d5a…6d7c               Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x0046, t01=0x0012}
0x6d7c…6d86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0034}
0x6d86…6d9e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0046, t01=0x003e}
0x6d9e…6da8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0056}
0x6da8…6dba               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x0060}
0x6dba…6dcc               Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x0046, t01=0x0072}
0x6dcc…6dde               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0046, t01=0x0084}
0x6dde…6de8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0096}
0x6de8…6dfc               Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x0046, t01=0x00a0}
0x6dfc…6e20               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x0046, t01=0x00b4}
0x6e20…6e36               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x0046, t01=0x00d8}
0x6e36…6e4a               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0046, t01=0x00ee}
0x6e4a…6e62               Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x0046, t01=0x0102}
0x6e62…6e7e               Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x0046, t01=0x011a}
0x6e7e…6e94               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0046, t01=0x0136}
0x6e94…6ea8               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0046, t01=0x014c}
0x6ea8…6ec2               Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x0046, t01=0x0160}
0x6ec2…6ee2               Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x0046, t01=0x017a}
0x6ee2…6f00               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0047, t01=0x000a}
0x6f00…6f12               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0047, t01=0x0028}
0x6f12…6f1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x003a}
0x6f1e…6f28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0046}
0x6f28…6f40               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0047, t01=0x0050}
0x6f40…6f4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0068}
0x6f4a…6f64               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0047, t01=0x0072}
0x6f64…6f7e               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0047, t01=0x008c}
0x6f7e…6f98               Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x0047, t01=0x00a6}
0x6f98…6fb2               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0047, t01=0x00c0}
0x6fb2…6fcc               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0047, t01=0x00da}
0x6fcc…6fd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00f4}
0x6fd6…6fe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00fe}
0x6fe0…7004               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A2  BIO CONTENTS «, t00=0x0047, t01=0x0108}
0x7004…7038               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x0047, t01=0x012c}
0x7038…705e               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x0047, t01=0x0160}
0x705e…7068               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0186}
0x7068…707c               Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x0047, t01=0x0190}
0x707c…7090               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0048, t01=0x0014}
0x7090…70b2               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x0048, t01=0x0028}
0x70b2…70be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x004a}
0x70be…70d2               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0048, t01=0x0056}
0x70d2…70f8               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 INDICATOR WRITE MODE«, t00=0x0048, t01=0x006a}
0x70f8…7104               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0090}
0x7104…7116               Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x0048, t01=0x009c}
0x7116…7120               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ae}
0x7120…7134               Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x0048, t01=0x00b8}
0x7134…7148               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0048, t01=0x00cc}
0x7148…7164               Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 READ MODE «, t00=0x0048, t01=0x00e0}
0x7164…7170               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x00fc}
0x7170…7184               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0048, t01=0x0108}
0x7184…71a6               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS  READ«, t00=0x0048, t01=0x011c}
0x71a6…71b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x013e}
0x71b2…71c6               Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x0048, t01=0x014a}
0x71c6…71da               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0048, t01=0x015e}
0x71da…7200               Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x0048, t01=0x0172}
0x7200…720a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0008}
0x720a…7222               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0049, t01=0x0012}
0x7222…722c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x002a}
0x722c…7236               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0034}
0x7236…724c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0049, t01=0x003e}
0x724c…7282               Head {h00=0x0032, h01=0x0050, text=» LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO «, t00=0x0049, t01=0x0054}
0x7282…72ae               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:810 BUFFER IN SYSTEM AREA «, t00=0x0049, t01=0x008a}
0x72ae…72e2               Head {h00=0x0030, h01=0x0050, text=» LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS «, t00=0x0049, t01=0x00b6}
0x72e2…72f4               Head {h00=0x000e, h01=0x0050, text=» ECR A7,A7«, t00=0x0049, t01=0x00ea}
0x72f4…7306               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A7«, t00=0x0049, t01=0x00fc}
0x7306…731a               Head {h00=0x0010, h01=0x0050, text=»FD:810 EQU *«, t00=0x0049, t01=0x010e}
0x731a…7326               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0122}
0x7326…7330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x012e}
0x7330…7344               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0049, t01=0x0138}
0x7344…7356               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0049, t01=0x014c}
0x7356…737a               Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x0049, t01=0x015e}
0x737a…73a2               Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x0049, t01=0x0182}
0x73a2…73ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x001a}
0x73ae…73c2               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x004a, t01=0x0026}
0x73c2…73cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x003a}
0x73cc…73e4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x004a, t01=0x0044}
0x73e4…73ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x005c}
0x73ee…7420               Head {h00=0x002e, h01=0x0050, text=»*  PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x004a, t01=0x0066}
0x7420…742a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0098}
0x742a…7450               Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTRW,A6 INDICATE MODE «, t00=0x004a, t01=0x00a2}
0x7450…7468               Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x004a, t01=0x00c8}
0x7468…747a               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x004a, t01=0x00e0}
0x747a…74a0               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x004a, t01=0x00f2}
0x74a0…74ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x0118}
0x74ac…74d6               Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x004a, t01=0x0124}
0x74d6…74ec               Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x004a, t01=0x014e}
0x74ec…751c               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) T:DISP POST PROCESSING FLAG SET «, t00=0x004a, t01=0x0164}
0x751c…7550 (75, 0, 400)  Head {h00=0x0030, h01=0x0050, text=»FD:CIO EQU * LABEL USED FOR CHANGE OF CUADR «, t00=0x004b, t01=0x0004}
0x7550…7572               Head {h00=0x001e, h01=0x0050, text=» CIO A2,1,CUADR CIO START «, t00=0x004b, t01=0x0038}
0x7572…759e               Head {h00=0x0028, h01=0x0050, text=» RF(3) END:30 DEVICE ADDRESS UNKNOWN«, t00=0x004b, t01=0x005a}
0x759e…75b0               Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x004b, t01=0x0086}
0x75b0…75ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0098}
0x75ba…75d2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x004b, t01=0x00a2}
0x75d2…75dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00ba}
0x75dc…760a               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x004b, t01=0x00c4}
0x760a…7614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00f2}
0x7614…7654               Head {h00=0x003c, h01=0x0050, text=»*  FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO  * «, t00=0x004b, t01=0x00fc}
0x7654…7682               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x004b, t01=0x013c}
0x7682…76b0               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x004b, t01=0x016a}
0x76b0…76ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0008}
0x76ba…76ce               Head {h00=0x0010, h01=0x0050, text=»FDMSIO EQU *«, t00=0x004c, t01=0x0012}
0x76ce…76f8               Head {h00=0x0026, h01=0x0050, text=» IM DWTCW2,A6 UPDATE SECTOR NUMBER«, t00=0x004c, t01=0x0026}
0x76f8…7718               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x004c, t01=0x0050}
0x7718…7742               Head {h00=0x0026, h01=0x0050, text=» ANK A1,/7F GET ERROR RETURN CODE «, t00=0x004c, t01=0x0070}
0x7742…7758               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x004c, t01=0x009a}
0x7758…778c               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE «, t00=0x004c, t01=0x00b0}
0x778c…77b4               Head {h00=0x0024, h01=0x0050, text=» ADS A2,DWTCW2,A6 UPDATE DWTCW2 «, t00=0x004c, t01=0x00e4}
0x77b4…77cc               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTRL,A6 «, t00=0x004c, t01=0x010c}
0x77cc…77f2               Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x004c, t01=0x0124}
0x77f2…780a               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTNOS,A6«, t00=0x004c, t01=0x014a}
0x780a…7832               Head {h00=0x0024, h01=0x0050, text=» RF(NP) END:RC LAST SECTOR DONE «, t00=0x004c, t01=0x0162}
0x7832…7848               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004c, t01=0x018a}
0x7848…7872               Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTBA,A6 GET BUFFER POINTER«, t00=0x004d, t01=0x0010}
0x7872…789a               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 UPDATE BUFFER POINTER«, t00=0x004d, t01=0x003a}
0x789a…78b2               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTBA,A6 «, t00=0x004d, t01=0x0062}
0x78b2…78dc               Head {h00=0x0026, h01=0x0050, text=» RF(N) FDMSI1 NOT PASSED 64K LIMIT«, t00=0x004d, t01=0x007a}
0x78dc…78ee               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x004d, t01=0x00a4}
0x78ee…791a               Head {h00=0x0028, h01=0x0050, text=» RF(NN) FDMSI1 NOT PASSED 64K LIMIT «, t00=0x004d, t01=0x00b6}
0x791a…792e               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/10 «, t00=0x004d, t01=0x00e2}
0x792e…7958               Head {h00=0x0026, h01=0x0050, text=» ADS A2,DWT:BF,A6 UPDATE BITS 0-1 «, t00=0x004d, t01=0x00f6}
0x7958…796c               Head {h00=0x0010, h01=0x0050, text=»FDMSI1 EQU *«, t00=0x004d, t01=0x0120}
0x796c…7978               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x0134}
0x7978…7982               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0140}
0x7982…7998               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004d, t01=0x014a}
0x7998…79c6               Head {h00=0x002a, h01=0x0050, text=» ADS A2,DWTBA,A6 UPDATE BUFFER POINTER«, t00=0x004d, t01=0x0160}
0x79c6…79d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x018e}
0x79d2…7a08               Head {h00=0x0032, h01=0x0050, text=» ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO«, t00=0x004e, t01=0x000a}
0x7a08…7a12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0040}
0x7a12…7a2a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x004e, t01=0x004a}
0x7a2a…7a34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0062}
0x7a34…7a46               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x006c}
0x7a46…7a58               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x004e, t01=0x007e}
0x7a58…7a6a               Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x004e, t01=0x0090}
0x7a6a…7a7c               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x004e, t01=0x00a2}
0x7a7c…7a8e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x004e, t01=0x00b4}
0x7a8e…7a98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00c6}
0x7a98…7aaa               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x004e, t01=0x00d0}
0x7aaa…7ad2               Head {h00=0x0024, h01=0x0050, text=»ENDEOE EQU * END OF EXTENT EXIT «, t00=0x004e, t01=0x00e2}
0x7ad2…7af4               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/2000 RETURN CODE«, t00=0x004e, t01=0x010a}
0x7af4…7b06               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x004e, t01=0x012c}
0x7b06…7b12               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x013e}
0x7b12…7b1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x014a}
0x7b1c…7b30               Head {h00=0x0010, h01=0x0050, text=»END:RC EQU *«, t00=0x004e, t01=0x0154}
0x7b30…7b50               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x004e, t01=0x0168}
0x7b50…7b64               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x004e, t01=0x0188}
0x7b64…7b7a               Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x004f, t01=0x000c}
0x7b7a…7b92               Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x004f, t01=0x0022}
0x7b92…7b9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x003a}
0x7b9c…7bc4               Head {h00=0x0024, h01=0x0050, text=»END:30 EQU * CU ADDRESS UNKNOWN «, t00=0x004f, t01=0x0044}
0x7bc4…7be2               Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x004f, t01=0x006c}
0x7be2…7c0c               Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTST,A6 RECOVERY DONE =1 «, t00=0x004f, t01=0x008a}
0x7c0c…7c1e               Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x004f, t01=0x00b4}
0x7c1e…7c36               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x004f, t01=0x00c6}
0x7c36…7c40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00de}
0x7c40…7c5c               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004f, t01=0x00e8}
0x7c5c…7c78               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x004f, t01=0x0104}
0x7c78…7c94               Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x004f, t01=0x0120}
0x7c94…7cb0               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x004f, t01=0x013c}
0x7cb0…7ccc               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x004f, t01=0x0158}
0x7ccc…7cd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0174}
0x7cd6…7ce8               Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x004f, t01=0x017e}
0x7ce8…7cfe               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x004f, t01=0x0190}
0x7cfe…7d28               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0050, t01=0x0016}
0x7d28…7d34               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0040}
0x7d34…7d3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x004c}
0x7d3e…7d54               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0050, t01=0x0056}
0x7d54…7d7a               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0050, t01=0x006c}
0x7d7a…7d86               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0092}
0x7d86…7d90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x009e}
0x7d90…7db4               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0050, t01=0x00a8}
0x7db4…7dec               Head {h00=0x0034, h01=0x0050, text=» LDKL A4,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x0050, t01=0x00cc}
0x7dec…7e08               Head {h00=0x0018, h01=0x0050, text=» ANS A4,DWTST,A6  =1«, t00=0x0050, t01=0x0104}
0x7e08…7e2a               Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0050, t01=0x0120}
0x7e2a…7e34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0142}
0x7e34…7e42               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x014c}
0x7e42…7e4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x015a}
0x7e4c…7e62               Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0050, t01=0x0164}
0x7e62…7e6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x017a}
0x7e6c…7e84               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0050, t01=0x0184}
0x7e84…7ea6               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0051, t01=0x000c}
0x7ea6…7ebc               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0051, t01=0x002e}
0x7ebc…7ee2               Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0051, t01=0x0044}
0x7ee2…7ef4               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0051, t01=0x006a}
0x7ef4…7f10               Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0051, t01=0x007c}
0x7f10…7f22               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0051, t01=0x0098}
0x7f22…7f3c               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0051, t01=0x00aa}
0x7f3c…7f52               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0051, t01=0x00c4}
0x7f52…7f6c               Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0051, t01=0x00da}
0x7f6c…7f76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00f4}
0x7f76…7f8a               Head {h00=0x0010, h01=0x0050, text=»F:DISP EQU *«, t00=0x0051, t01=0x00fe}
0x7f8a…7f9c               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0051, t01=0x0112}
0x7f9c…7fa6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0124}
0x7fa6…7fc2               Head {h00=0x0018, h01=0x0050, text=»*   TIME OUT ROUTINE«, t00=0x0051, t01=0x012e}
0x7fc2…7fcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x014a}
0x7fcc…7fe4               Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0051, t01=0x0154}
0x7fe4…7ff8               Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0051, t01=0x016c}
0x7ff8…8010               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0051, t01=0x0180}
0x8010…8032               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x0052, t01=0x0008}
0x8032…803c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x002a}
0x803c…8076               Head {h00=0x0036, h01=0x0050, text=»FDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE«, t00=0x0052, t01=0x0034}
0x8076…808c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0052, t01=0x006e}
0x808c…80a0               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0052, t01=0x0084}
0x80a0…80c8               Head {h00=0x0024, h01=0x0050, text=» CM BUFFLG,A6 RESET BUFFER FLAG «, t00=0x0052, t01=0x0098}
0x80c8…80d4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00c0}
0x80d4…80de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00cc}
0x80de…80f6               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0052, t01=0x00d6}
0x80f6…812e               Head {h00=0x0034, h01=0x0050, text=» IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR «, t00=0x0052, t01=0x00ee}
0x812e…814a               Head {h00=0x0018, h01=0x0050, text=» LDK A3,3 4 VOLUMES «, t00=0x0052, t01=0x0126}
0x814a…8154               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0142}
0x8154…816a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0052, t01=0x014c}
0x816a…8174               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0162}
0x8174…817e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x016c}
0x817e…819a               Head {h00=0x0018, h01=0x0050, text=»*  READ VOLUME NAME «, t00=0x0052, t01=0x0176}
0x819a…81a4 (83, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0004}
0x81a4…81b8               Head {h00=0x0010, h01=0x0050, text=»FDONLD EQU *«, t00=0x0053, t01=0x000e}
0x81b8…81e0               Head {h00=0x0024, h01=0x0050, text=» SC A3,DWTOR,A6 GET VOLUME NAME «, t00=0x0053, t01=0x0022}
0x81e0…820a               Head {h00=0x0026, h01=0x0050, text=» LC A4,DIXTAB,A3 DRIVE INDEX MASK «, t00=0x0053, t01=0x004a}
0x820a…822c               Head {h00=0x001e, h01=0x0050, text=» SC A4,DWTA3+1,A6 SAVE IT «, t00=0x0053, t01=0x0074}
0x822c…8242               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETCIO «, t00=0x0053, t01=0x0096}
0x8242…8256               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/14 «, t00=0x0053, t01=0x00ac}
0x8256…8270               Head {h00=0x0016, h01=0x0050, text=» CF A5,FD:REA LOCK«, t00=0x0053, t01=0x00c0}
0x8270…8282               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0053, t01=0x00da}
0x8282…82a0               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON19 OPERABLE«, t00=0x0053, t01=0x00ec}
0x82a0…82be               Head {h00=0x001a, h01=0x0050, text=» LDK A1,6 NOT OPERABLE«, t00=0x0053, t01=0x010a}
0x82be…82e6               Head {h00=0x0024, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME«, t00=0x0053, t01=0x0128}
0x82e6…8310               Head {h00=0x0026, h01=0x0050, text=» RF FDON21 CONTINUE WITH NEXT DISC«, t00=0x0053, t01=0x0150}
0x8310…831a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x017a}
0x831a…832e               Head {h00=0x0010, h01=0x0050, text=»FDON19 EQU *«, t00=0x0053, t01=0x0184}
0x832e…8344               Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0054, t01=0x0008}
0x8344…836e               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/FBFF RESET IBM IND. BIT «, t00=0x0054, t01=0x001e}
0x836e…839e               Head {h00=0x002c, h01=0x0050, text=» ANRS A2,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0054, t01=0x0048}
0x839e…83b2               Head {h00=0x0010, h01=0x0050, text=»FDON21 EQU *«, t00=0x0054, t01=0x0078}
0x83b2…83c4               Head {h00=0x000e, h01=0x0050, text=» LDK A2,/C«, t00=0x0054, t01=0x008c}
0x83c4…83e0               Head {h00=0x0018, h01=0x0050, text=» CF A5,FD:REA UNLOCK«, t00=0x0054, t01=0x009e}
0x83e0…83f2               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0054, t01=0x00ba}
0x83f2…8422               Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. «, t00=0x0054, t01=0x00cc}
0x8422…8434               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0054, t01=0x00fc}
0x8434…8456               Head {h00=0x001e, h01=0x0050, text=» RB(NN) FDONLD NEXT VOLUME«, t00=0x0054, t01=0x010e}
0x8456…846a               Head {h00=0x0010, h01=0x0050, text=» CM DWTOR,A6«, t00=0x0054, t01=0x0130}
0x846a…8496               Head {h00=0x0028, h01=0x0050, text=» CM DWTST2,A6 INDICATE VOLUMES READ «, t00=0x0054, t01=0x0144}
0x8496…84a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0170}
0x84a2…84d2               Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x0054, t01=0x017c}
0x84d2…84dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x001c}
0x84dc…84f2               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0055, t01=0x0026}
0x84f2…84fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x003c}
0x84fc…850a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x0046}
0x850a…8514               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0054}
0x8514…8552               Head {h00=0x003a, h01=0x0050, text=»*    TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x0055, t01=0x005e}
0x8552…855c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x009c}
0x855c…8582               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x0055, t01=0x00a6}
0x8582…85a4               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x0055, t01=0x00cc}
0x85a4…85be               Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x0055, t01=0x00ee}
0x85be…85e6               Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x0055, t01=0x0108}
0x85e6…85fa               Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x0055, t01=0x0130}
0x85fa…8604               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0144}
0x8604…863e               Head {h00=0x0036, h01=0x0050, text=»*    OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x0055, t01=0x014e}
0x863e…8648               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0188}
0x8648…867e (86, 0, 398)  Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x0056, t01=0x0004}
0x867e…86a8               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x0056, t01=0x003a}
0x86a8…86d0               Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x0056, t01=0x0064}
0x86d0…86ee               Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x0056, t01=0x008c}
0x86ee…871a               Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x0056, t01=0x00aa}
0x871a…872e               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0056, t01=0x00d6}
0x872e…8758               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x0056, t01=0x00ea}
0x8758…8762               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0114}
0x8762…8776               Head {h00=0x0010, h01=0x0050, text=»FDON23 EQU *«, t00=0x0056, t01=0x011e}
0x8776…8782               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x0132}
0x8782…878c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x013e}
0x878c…879a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x0148}
0x879a…87a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0156}
0x87a4…87ba               Head {h00=0x0012, h01=0x0050, text=»*  LOCK DOORS «, t00=0x0056, t01=0x0160}
0x87ba…87c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0176}
0x87c4…87d6               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0056, t01=0x0180}
0x87d6…87ea (87, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0057, t01=0x0004}
0x87ea…8810               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0057, t01=0x0018}
0x8810…8822               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0057, t01=0x003e}
0x8822…8842               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0057, t01=0x0050}
0x8842…885e               Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0057, t01=0x0070}
0x885e…8868               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x008c}
0x8868…8876               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x0096}
0x8876…8880               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00a4}
0x8880…88a4               Head {h00=0x0020, h01=0x0050, text=»*  PUT DRIVE NO IN CIO INSTR«, t00=0x0057, t01=0x00ae}
0x88a4…88ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00d2}
0x88ae…88d0               Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0057, t01=0x00dc}
0x88d0…88fe               Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0057, t01=0x00fe}
0x88fe…8916               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0057, t01=0x012c}
0x8916…892c               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0057, t01=0x0144}
0x892c…894e               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0057, t01=0x015a}
0x894e…8960               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0057, t01=0x017c}
0x8960…8978               Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0057, t01=0x018e}
0x8978…89a0               Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0058, t01=0x0016}
0x89a0…89b4               Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0058, t01=0x003e}
0x89b4…89c6               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0058, t01=0x0052}
0x89c6…89dc               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0058, t01=0x0064}
0x89dc…89f2               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0058, t01=0x007a}
0x89f2…89fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0090}
0x89fc…8a12               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0058, t01=0x009a}
0x8a12…8a1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b0}
0x8a1c…8a64               Head {h00=0x0044, h01=0x0050, text=»*    RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x0058, t01=0x00ba}
0x8a64…8a6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0102}
0x8a6e…8a96               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x0058, t01=0x010c}
0x8a96…8abc               Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x0058, t01=0x0134}
0x8abc…8adc               Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x0058, t01=0x015a}
0x8adc…8b04               Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x0058, t01=0x017a}
0x8b04…8b38               Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x0059, t01=0x0012}
0x8b38…8b44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0046}
0x8b44…8b4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0052}
0x8b4e…8b5c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x005c}
0x8b5c…8b66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x006a}
0x8b66…8b7c               Head {h00=0x0012, h01=0x0050, text=»*  ANY REQUEST«, t00=0x0059, t01=0x0074}
0x8b7c…8b86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x008a}
0x8b86…8baa               Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x0059, t01=0x0094}
0x8baa…8bbe               Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x0059, t01=0x00b8}
0x8bbe…8bd6               Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0059, t01=0x00cc}
0x8bd6…8c0a               Head {h00=0x0030, h01=0x0050, text=» ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO«, t00=0x0059, t01=0x00e4}
0x8c0a…8c14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0118}
0x8c14…8c2c               Head {h00=0x0014, h01=0x0050, text=»*  RETRY REQUEST«, t00=0x0059, t01=0x0122}
0x8c2c…8c36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x013a}
0x8c36…8c5a               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0059, t01=0x0144}
0x8c5a…8c72               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTORD,A6«, t00=0x0059, t01=0x0168}
0x8c72…8ca2               Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0059, t01=0x0180}
0x8ca2…8cce               Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x005a, t01=0x0020}
0x8cce…8ce8               Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x005a, t01=0x004c}
0x8ce8…8d04               Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x005a, t01=0x0066}
0x8d04…8d0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0082}
0x8d0e…8d26               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005a, t01=0x008c}
0x8d26…8d30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00a4}
0x8d30…8d4c               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005a, t01=0x00ae}
0x8d4c…8d68               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x005a, t01=0x00ca}
0x8d68…8d84               Head {h00=0x0018, h01=0x0050, text=»*  READY INTERRUPT *«, t00=0x005a, t01=0x00e6}
0x8d84…8da0               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x005a, t01=0x0102}
0x8da0…8dbc               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x005a, t01=0x011e}
0x8dbc…8dc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x013a}
0x8dc6…8dd8               Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x005a, t01=0x0144}
0x8dd8…8df0               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x005a, t01=0x0156}
0x8df0…8e1e               Head {h00=0x002a, h01=0x0050, text=» RB(NZ) F:DISP POWER ON ROUTINE ACTIVE«, t00=0x005a, t01=0x016e}
0x8e1e…8e36               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x005b, t01=0x000c}
0x8e36…8e54               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x005b, t01=0x0024}
0x8e54…8e5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0042}
0x8e5e…8e76               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005b, t01=0x004c}
0x8e76…8e88               Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x005b, t01=0x0064}
0x8e88…8e94               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0076}
0x8e94…8e9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0082}
0x8e9e…8eb6               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x005b, t01=0x008c}
0x8eb6…8eee               Head {h00=0x0034, h01=0x0050, text=» LDKL A3,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x005b, t01=0x00a4}
0x8eee…8f0a               Head {h00=0x0018, h01=0x0050, text=» ANS A3,DWTST,A6  =6«, t00=0x005b, t01=0x00dc}
0x8f0a…8f2e               Head {h00=0x0020, h01=0x0050, text=» RB FDONVL READ VOLUME NAMES«, t00=0x005b, t01=0x00f8}
0x8f2e…8f3a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x011c}
0x8f3a…8f44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0128}
0x8f44…8f5c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005b, t01=0x0132}
0x8f5c…8f66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x014a}
0x8f66…8f84               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x005b, t01=0x0154}
0x8f84…8fa2               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x005b, t01=0x0172}
0x8fa2…8fc0               Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x005b, t01=0x0190}
0x8fc0…8fde               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x005c, t01=0x001e}
0x8fde…8ffc               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x005c, t01=0x003c}
0x8ffc…9006               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x005a}
0x9006…9018               Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x005c, t01=0x0064}
0x9018…9040               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x005c, t01=0x0076}
0x9040…9056               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x005c, t01=0x009e}
0x9056…9084               Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x005c, t01=0x00b4}
0x9084…9090               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x00e2}
0x9090…909a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00ee}
0x909a…90b0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005c, t01=0x00f8}
0x90b0…90d6               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x005c, t01=0x010e}
0x90d6…90e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0134}
0x90e2…90ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0140}
0x90ec…9110               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x005c, t01=0x014a}
0x9110…9124               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x005c, t01=0x016e}
0x9124…9130               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x005c, t01=0x0182}
0x9130…915a               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x005c, t01=0x018e}
0x915a…9180               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x005d, t01=0x0028}
0x9180…919a               Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x005d, t01=0x004e}
0x919a…91ae               Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x005d, t01=0x0068}
0x91ae…91ce               Head {h00=0x001c, h01=0x0050, text=» SST A3,CUADR GET STATUS«, t00=0x005d, t01=0x007c}
0x91ce…91f4               Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x005d, t01=0x009c}
0x91f4…920a               Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x005d, t01=0x00c2}
0x920a…923a               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) IHDISP POST PROCESSING FLAG SET «, t00=0x005d, t01=0x00d8}
0x923a…9266               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x005d, t01=0x0108}
0x9266…9280               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x005d, t01=0x0134}
0x9280…928a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x014e}
0x928a…92a0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x005d, t01=0x0158}
0x92a0…92aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x016e}
0x92aa…92b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0178}
0x92b4…92c8               Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x005d, t01=0x0182}
0x92c8…92f0               Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A1 ONE WORD FROM BUFFER«, t00=0x005e, t01=0x0008}
0x92f0…930e               Head {h00=0x001a, h01=0x0050, text=» OTR A3,0,CUADR WRITE «, t00=0x005e, t01=0x0030}
0x930e…9324               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x005e, t01=0x004e}
0x9324…934c               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x005e, t01=0x0064}
0x934c…935e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x005e, t01=0x008c}
0x935e…9372               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x005e, t01=0x009e}
0x9372…9392               Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x005e, t01=0x00b2}
0x9392…93a6               Head {h00=0x0010, h01=0x0050, text=»IHDISP EQU *«, t00=0x005e, t01=0x00d2}
0x93a6…93c8               Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x005e, t01=0x00e6}
0x93c8…93d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0108}
0x93d2…93e6               Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x005e, t01=0x0112}
0x93e6…9402               Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR READ«, t00=0x005e, t01=0x0126}
0x9402…9418               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x005e, t01=0x0142}
0x9418…943e               Head {h00=0x0022, h01=0x0050, text=» STR A3,A1 ONE WORD TO BUFFER «, t00=0x005e, t01=0x0158}
0x943e…9466               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x005e, t01=0x017e}
0x9466…9478               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x005f, t01=0x0016}
0x9478…948c               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x005f, t01=0x0028}
0x948c…94ac               Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x005f, t01=0x003c}
0x94ac…94c8               Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x005f, t01=0x005c}
0x94c8…94dc               Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x005f, t01=0x0078}
0x94dc…94f0               Head {h00=0x0010, h01=0x0050, text=»IH:000 EQU *«, t00=0x005f, t01=0x008c}
0x94f0…94fc               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x005f, t01=0x00a0}
0x94fc…9508               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00ac}
0x9508…9512               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00b8}
0x9512…952a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005f, t01=0x00c2}
0x952a…9534               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00da}
0x9534…953e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00e4}
0x953e…9552               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x005f, t01=0x00ee}
0x9552…956e               Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x005f, t01=0x0102}
0x956e…9586               Head {h00=0x0014, h01=0x0050, text=» RF(A) IH:00  =2«, t00=0x005f, t01=0x011e}
0x9586…95a2               Head {h00=0x0018, h01=0x0050, text=» CIO A3,0,CUADR  =2 «, t00=0x005f, t01=0x0136}
0x95a2…95bc               Head {h00=0x0016, h01=0x0050, text=» SST A3,CUADR  =2 «, t00=0x005f, t01=0x0152}
0x95bc…95d4               Head {h00=0x0014, h01=0x0050, text=» RB(NA) *-2  =2 «, t00=0x005f, t01=0x016c}
0x95d4…95f6               Head {h00=0x001e, h01=0x0050, text=» LDK A3,1 NOT OPERABLE =2 «, t00=0x005f, t01=0x0184}
0x95f6…960e               Head {h00=0x0014, h01=0x0050, text=»IH:00 EQU *  =2 «, t00=0x0060, t01=0x0016}
0x960e…961a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x002e}
0x961a…963e               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0060, t01=0x003a}
0x963e…9664               Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0060, t01=0x005e}
0x9664…967e               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A3 STATUS «, t00=0x0060, t01=0x0084}
0x967e…9690               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0060, t01=0x009e}
0x9690…96b4               Head {h00=0x0020, h01=0x0050, text=» RB(N) FDRE READY INTERRUPT «, t00=0x0060, t01=0x00b0}
0x96b4…96d2               Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY«, t00=0x0060, t01=0x00d4}
0x96d2…96ea               Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0060, t01=0x00f2}
0x96ea…9710               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0060, t01=0x010a}
0x9710…9722               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0060, t01=0x0130}
0x9722…974c               Head {h00=0x0026, h01=0x0050, text=» ANK A1,5 DATA FAULT, NOT OPERABLE«, t00=0x0060, t01=0x0142}
0x974c…9770               Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0060, t01=0x016c}
0x9770…9782               Head {h00=0x000e, h01=0x0050, text=» ORK A3,4 «, t00=0x0060, t01=0x0190}
0x9782…9796               Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0061, t01=0x0012}
0x9796…97a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0026}
0x97a0…97b8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0061, t01=0x0030}
0x97b8…97c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0048}
0x97c2…97ec               Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0061, t01=0x0052}
0x97ec…97f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x007c}
0x97f6…980c               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0061, t01=0x0086}
0x980c…9820               Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0061, t01=0x009c}
0x9820…9832               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0061, t01=0x00b0}
0x9832…9858               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0061, t01=0x00c2}
0x9858…986a               Head {h00=0x000e, h01=0x0050, text=» ECR A4,A3«, t00=0x0061, t01=0x00e8}
0x986a…988c               Head {h00=0x001e, h01=0x0050, text=» ANK A4,8 CHECK IF NO DATA«, t00=0x0061, t01=0x00fa}
0x988c…98ac               Head {h00=0x001c, h01=0x0050, text=» RF(Z) IH:70 NOT NO DATA«, t00=0x0061, t01=0x011c}
0x98ac…98ce               Head {h00=0x001e, h01=0x0050, text=» ORK A3,4 SET BIT 13 ALSO «, t00=0x0061, t01=0x013c}
0x98ce…98e2               Head {h00=0x0010, h01=0x0050, text=»IH:70 EQU * «, t00=0x0061, t01=0x015e}
0x98e2…98f4               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0061, t01=0x0172}
0x98f4…9910               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x0061, t01=0x0184}
0x9910…992c               Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x0062, t01=0x0010}
0x992c…993e               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0062, t01=0x002c}
0x993e…9948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x003e}
0x9948…9960               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0062, t01=0x0048}
0x9960…9972               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0062, t01=0x0060}
0x9972…998e               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x0062, t01=0x0072}
0x998e…99a8               Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x0062, t01=0x008e}
0x99a8…99ba               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0062, t01=0x00a8}
0x99ba…99c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x00ba}
0x99c6…99d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00c6}
0x99d0…99e2               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0062, t01=0x00d0}
0x99e2…99fc               Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x0062, t01=0x00e2}
0x99fc…9a16               Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x0062, t01=0x00fc}
0x9a16…9a28               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0062, t01=0x0116}
0x9a28…9a42               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x0062, t01=0x0128}
0x9a42…9a5c               Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x0062, t01=0x0142}
0x9a5c…9a6e               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0062, t01=0x015c}
0x9a6e…9a9e               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0062, t01=0x016e}
0x9a9e…9ab4               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F7FF«, t00=0x0063, t01=0x000e}
0x9ab4…9ac8               Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x0063, t01=0x0024}
0x9ac8…9ada               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0063, t01=0x0038}
0x9ada…9aea               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0063, t01=0x004a}
0x9aea…9af4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x005a}
0x9af4…9b0c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0063, t01=0x0064}
0x9b0c…9b16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x007c}
0x9b16…9b4a               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0063, t01=0x0086}
0x9b4a…9b7e               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0063, t01=0x00ba}
0x9b7e…9bb2               Head {h00=0x0030, h01=0x0050, text=»*    S U B R O U T I N E S                * «, t00=0x0063, t01=0x00ee}
0x9bb2…9be6               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0063, t01=0x0122}
0x9be6…9c1a               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0063, t01=0x0156}
0x9c1a…9c24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x018a}
0x9c24…9c34 (100, 0, 400) Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0064, t01=0x0004}
0x9c34…9c44               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0064, t01=0x0014}
0x9c44…9c54               Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x0064, t01=0x0024}
0x9c54…9c64               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0064, t01=0x0034}
0x9c64…9c74               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0064, t01=0x0044}
0x9c74…9c7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0054}
0x9c7e…9ca0               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x0064, t01=0x005e}
0x9ca0…9cbe               Head {h00=0x001a, h01=0x0050, text=»*          A4   ORDER «, t00=0x0064, t01=0x0080}
0x9cbe…9cc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x009e}
0x9cc8…9d0a               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x0064, t01=0x00a8}
0x9d0a…9d3e               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x0064, t01=0x00ea}
0x9d3e…9d64               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x0064, t01=0x011e}
0x9d64…9d6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0144}
0x9d6e…9d80               Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x0064, t01=0x014e}
0x9d80…9daa               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTCW2,A6 GET SECTOR NUMBER«, t00=0x0064, t01=0x0160}
0x9daa…9dd6               Head {h00=0x0028, h01=0x0050, text=» SLL A1,3 PUT IN RIGHT BIO POSITION «, t00=0x0064, t01=0x018a}
0x9dd6…9e10               Head {h00=0x0036, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO «, t00=0x0065, t01=0x0026}
0x9e10…9e22               Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x0065, t01=0x0060}
0x9e22…9e42               Head {h00=0x001c, h01=0x0050, text=» ORR A2,A1 COMPLETE BIO «, t00=0x0065, t01=0x0072}
0x9e42…9e6c               Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x0065, t01=0x0092}
0x9e6c…9e92               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS«, t00=0x0065, t01=0x00bc}
0x9e92…9eba               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTRL,A6 GET REQ. LENGTH «, t00=0x0065, t01=0x00e2}
0x9eba…9eca               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0065, t01=0x010a}
0x9eca…9ed4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x011a}
0x9ed4…9eea               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0065, t01=0x0124}
0x9eea…9ef4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x013a}
0x9ef4…9efe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0144}
0x9efe…9f18               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0065, t01=0x014e}
0x9f18…9f32               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0065, t01=0x0168}
0x9f32…9f4c               Head {h00=0x0016, h01=0x0050, text=»*   BIOSQ       * «, t00=0x0065, t01=0x0182}
0x9f4c…9f66               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0066, t01=0x000c}
0x9f66…9f80               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0066, t01=0x0026}
0x9f80…9f8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0040}
0x9f8a…9fac               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x0066, t01=0x004a}
0x9fac…9fca               Head {h00=0x001a, h01=0x0050, text=»*          A4   ORDER «, t00=0x0066, t01=0x006c}
0x9fca…9fd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x008a}
0x9fd4…a016               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x0066, t01=0x0094}
0xa016…a04a               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x0066, t01=0x00d6}
0xa04a…a070               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x0066, t01=0x010a}
0xa070…a07a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0130}
0xa07a…a08e               Head {h00=0x0010, h01=0x0050, text=»BIOSQ EQU * «, t00=0x0066, t01=0x013a}
0xa08e…a0a0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0066, t01=0x014e}
0xa0a0…a0ca               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x0066, t01=0x0160}
0xa0ca…a0f6               Head {h00=0x0028, h01=0x0050, text=» SLL A2,3 PUT IN RIGHT BIO POSITION «, t00=0x0066, t01=0x018a}
0xa0f6…a120               Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x0067, t01=0x0026}
0xa120…a12a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0050}
0xa12a…a140               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0067, t01=0x005a}
0xa140…a16a               Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0067, t01=0x0070}
0xa16a…a176               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x009a}
0xa176…a180               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00a6}
0xa180…a192               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0067, t01=0x00b0}
0xa192…a1a8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0067, t01=0x00c2}
0xa1a8…a1d2               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0067, t01=0x00d8}
0xa1d2…a1de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x0102}
0xa1de…a1e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x010e}
0xa1e8…a1fa               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0067, t01=0x0118}
0xa1fa…a222               Head {h00=0x0024, h01=0x0050, text=» LDK A3,SECLEN REQUESTED LENGTH «, t00=0x0067, t01=0x012a}
0xa222…a232               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0067, t01=0x0152}
0xa232…a23e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x0162}
0xa23e…a248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x016e}
0xa248…a25e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0067, t01=0x0178}
0xa25e…a268               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x018e}
0xa268…a282               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0068, t01=0x0008}
0xa282…a29c               Head {h00=0x0016, h01=0x0050, text=»*   VO:NAM       *«, t00=0x0068, t01=0x0022}
0xa29c…a2b6               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0068, t01=0x003c}
0xa2b6…a2c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0056}
0xa2c0…a2ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0060}
0xa2ca…a2de               Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0068, t01=0x006a}
0xa2de…a2f6               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0068, t01=0x007e}
0xa2f6…a310               Head {h00=0x0016, h01=0x0050, text=» LDK A3,36 LENGTH «, t00=0x0068, t01=0x0096}
0xa310…a31c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x00b0}
0xa31c…a326               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00bc}
0xa326…a33a               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0068, t01=0x00c6}
0xa33a…a34c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0068, t01=0x00da}
0xa34c…a370               Head {h00=0x0020, h01=0x0050, text=» LDK A3,6 VOLUME NAME LENGTH«, t00=0x0068, t01=0x00ec}
0xa370…a37c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0110}
0xa37c…a386               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x011c}
0xa386…a39a               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0068, t01=0x0126}
0xa39a…a3b0               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0068, t01=0x013a}
0xa3b0…a3d4               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF READ TO BUFFER «, t00=0x0068, t01=0x0150}
0xa3d4…a3ea               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0068, t01=0x0174}
0xa3ea…a40a               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x0068, t01=0x018a}
0xa40a…a420               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) VOL:40«, t00=0x0069, t01=0x001a}
0xa420…a432               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0069, t01=0x0030}
0xa432…a448               Head {h00=0x0012, h01=0x0050, text=» LD A2,BUF+32 «, t00=0x0069, t01=0x0042}
0xa448…a45c               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0069, t01=0x0058}
0xa45c…a47c               Head {h00=0x001c, h01=0x0050, text=» RF(NE) VOL:10 IBM DISC «, t00=0x0069, t01=0x006c}
0xa47c…a4a0               Head {h00=0x0020, h01=0x0050, text=» LD A2,BUF+34 GET NEXT WORD «, t00=0x0069, t01=0x008c}
0xa4a0…a4b4               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0069, t01=0x00b0}
0xa4b4…a4d4               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) VOL:10 IBM DISC «, t00=0x0069, t01=0x00c4}
0xa4d4…a4e8               Head {h00=0x0010, h01=0x0050, text=»VOL:05 EQU *«, t00=0x0069, t01=0x00e4}
0xa4e8…a50e               Head {h00=0x0022, h01=0x0050, text=» C1 A1,DWTA3,A6 DRIVE BIT MASK«, t00=0x0069, t01=0x00f8}
0xa50e…a53a               Head {h00=0x0028, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS DISC«, t00=0x0069, t01=0x011e}
0xa53a…a546               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x014a}
0xa546…a550               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0156}
0xa550…a568               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0069, t01=0x0160}
0xa568…a572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0178}
0xa572…a57c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0182}
0xa57c…a590               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0069, t01=0x018c}
0xa590…a5a4               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,BUF«, t00=0x006a, t01=0x0010}
0xa5a4…a5b6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006a, t01=0x0024}
0xa5b6…a5c8               Head {h00=0x000e, h01=0x0050, text=» RF VOL:20«, t00=0x006a, t01=0x0036}
0xa5c8…a5d4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x0048}
0xa5d4…a5de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0054}
0xa5de…a5f0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006a, t01=0x005e}
0xa5f0…a604               Head {h00=0x0010, h01=0x0050, text=»VOL:10 EQU *«, t00=0x006a, t01=0x0070}
0xa604…a61e               Head {h00=0x0016, h01=0x0050, text=» LDK A3,10 LENGTH «, t00=0x006a, t01=0x0084}
0xa61e…a636               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x006a, t01=0x009e}
0xa636…a660               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF+10 READ TO BUF+10FER «, t00=0x006a, t01=0x00b6}
0xa660…a676               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x006a, t01=0x00e0}
0xa676…a68a               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/17 «, t00=0x006a, t01=0x00f6}
0xa68a…a6ac               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) VOL:40 IO ERROR =4«, t00=0x006a, t01=0x010a}
0xa6ac…a6c0               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x006a, t01=0x012c}
0xa6c0…a6f0               Head {h00=0x002c, h01=0x0050, text=» LD A2,BUF+10 CHECK IF IBM VOLUME LABEL «, t00=0x006a, t01=0x0140}
0xa6f0…a708               Head {h00=0x0014, h01=0x0050, text=» CWK A2,/E5D6 VO«, t00=0x006a, t01=0x0170}
0xa708…a726               Head {h00=0x001a, h01=0x0050, text=» RB(NE) VOL:05 NOT IBM«, t00=0x006a, t01=0x0188}
0xa726…a73c               Head {h00=0x0012, h01=0x0050, text=» LD A2,BUF+12 «, t00=0x006b, t01=0x0016}
0xa73c…a754               Head {h00=0x0014, h01=0x0050, text=» CWK A2,/D3F1 L1«, t00=0x006b, t01=0x002c}
0xa754…a778               Head {h00=0x0020, h01=0x0050, text=» RB(NE) VOL:05 NOT IBM DISC «, t00=0x006b, t01=0x0044}
0xa778…a784               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006b, t01=0x0068}
0xa784…a796               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006b, t01=0x0074}
0xa796…a7a6               Head {h00=0x000c, h01=0x0050, text=»*    =4 «, t00=0x006b, t01=0x0086}
0xa7a6…a7d0               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x006b, t01=0x0096}
0xa7d0…a7f6               Head {h00=0x0022, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM«, t00=0x006b, t01=0x00c0}
0xa7f6…a80c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/400 «, t00=0x006b, t01=0x00e6}
0xa80c…a83c               Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x006b, t01=0x00fc}
0xa83c…a864               Head {h00=0x0024, h01=0x0050, text=» LDK A7,20 NBR OF CHARACTERS =5 «, t00=0x006b, t01=0x012c}
0xa864…a890               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF VOLUME NAME ADDRESS =5 «, t00=0x006b, t01=0x0154}
0xa890…a8c6               Head {h00=0x0032, h01=0x0050, text=» CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII«, t00=0x006b, t01=0x0180}
0xa8c6…a8e2               Head {h00=0x0018, h01=0x0050, text=» LDKL A2,BUF+14  =5 «, t00=0x006c, t01=0x0026}
0xa8e2…a8ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006c, t01=0x0042}
0xa8ee…a8f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x004e}
0xa8f8…a910               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006c, t01=0x0058}
0xa910…a91a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0070}
0xa91a…a924               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x007a}
0xa924…a938               Head {h00=0x0010, h01=0x0050, text=»VOL:20 EQU *«, t00=0x006c, t01=0x0084}
0xa938…a950               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x006c, t01=0x0098}
0xa950…a96e               Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F8 FILE CODE «, t00=0x006c, t01=0x00b0}
0xa96e…a986               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST2,A6«, t00=0x006c, t01=0x00ce}
0xa986…a9ac               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) VOL:30 NOT TEST STATUS«, t00=0x006c, t01=0x00e6}
0xa9ac…a9da               Head {h00=0x002a, h01=0x0050, text=» ORKL A3,/8000 INDICATE NO NEW NVL SET«, t00=0x006c, t01=0x010c}
0xa9da…a9ee               Head {h00=0x0010, h01=0x0050, text=»VOL:30 EQU *«, t00=0x006c, t01=0x013a}
0xa9ee…aa20               Head {h00=0x002e, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT SET NVL «, t00=0x006c, t01=0x014e}
0xaa20…aa38               Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x006c, t01=0x0180}
0xaa38…aa4a               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x006d, t01=0x0008}
0xaa4a…aa5e               Head {h00=0x0010, h01=0x0050, text=»VOL:40 EQU *«, t00=0x006d, t01=0x001a}
0xaa5e…aa6e               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006d, t01=0x002e}
0xaa6e…aa7a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006d, t01=0x003e}
0xaa7a…aa84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x004a}
0xaa84…aa96               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006d, t01=0x0054}
0xaa96…aaae               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006d, t01=0x0066}
0xaaae…aab8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x007e}
0xaab8…aaca               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006d, t01=0x0088}
0xaaca…aadc               Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x006d, t01=0x009a}
0xaadc…aaee               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006d, t01=0x00ac}
0xaaee…aaf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00be}
0xaaf8…ab36               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x006d, t01=0x00c8}
0xab36…ab56               Head {h00=0x001c, h01=0x0050, text=»*             ASCII CODE«, t00=0x006d, t01=0x0106}
0xab56…ab88               Head {h00=0x002e, h01=0x0050, text=»*             INPUT STRING ADDRESS IS BUF «, t00=0x006d, t01=0x0126}
0xab88…abb2               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7  NO OF CHARACTERS«, t00=0x006d, t01=0x0158}
0xabb2…abd4               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x006d, t01=0x0182}
0xabd4…abf6               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x006e, t01=0x0014}
0xabf6…ac18               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x006e, t01=0x0036}
0xac18…ac3a               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x006e, t01=0x0058}
0xac3a…ac44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x007a}
0xac44…ac58               Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x006e, t01=0x0084}
0xac58…ac6e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x006e, t01=0x0098}
0xac6e…ac98               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x006e, t01=0x00ae}
0xac98…aca4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x00d8}
0xaca4…acae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00e4}
0xacae…acc0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006e, t01=0x00ee}
0xacc0…acd8               Head {h00=0x0014, h01=0x0050, text=»ASC:00 EQU *  =8«, t00=0x006e, t01=0x0100}
0xacd8…ace4               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x006e, t01=0x0118}
0xace4…acf6               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x006e, t01=0x0124}
0xacf6…ad0a               Head {h00=0x0010, h01=0x0050, text=»ASC:10 EQU *«, t00=0x006e, t01=0x0136}
0xad0a…ad1c               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x006e, t01=0x014a}
0xad1c…ad40               Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 EBCDIC CHARACTER «, t00=0x006e, t01=0x015c}
0xad40…ad54               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x006e, t01=0x0180}
0xad54…ad80 (111, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x006f, t01=0x0004}
0xad80…adb4               Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x006f, t01=0x0030}
0xadb4…adc6               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006f, t01=0x0064}
0xadc6…addc               Head {h00=0x0012, h01=0x0050, text=» RB(P) ASC:10 «, t00=0x006f, t01=0x0076}
0xaddc…adee               Head {h00=0x000e, h01=0x0050, text=» RF EBC:90«, t00=0x006f, t01=0x008c}
0xadee…adf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x009e}
0xadf8…ae10               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006f, t01=0x00a8}
0xae10…ae1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00c0}
0xae1a…ae2c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x00ca}
0xae2c…ae3e               Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x006f, t01=0x00dc}
0xae3e…ae50               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x00ee}
0xae50…ae5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0100}
0xae5a…ae9a               Head {h00=0x003c, h01=0x0050, text=»*  FUNCTION:  EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x006f, t01=0x010a}
0xae9a…aebc               Head {h00=0x001e, h01=0x0050, text=»*             EBCDIC CODE «, t00=0x006f, t01=0x014a}
0xaebc…aef8               Head {h00=0x0038, h01=0x0050, text=»*             OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x006f, t01=0x016c}
0xaef8…af02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0018}
0xaf02…af2c               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7 NO OF CHARACTERS «, t00=0x0070, t01=0x0022}
0xaf2c…af4e               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x0070, t01=0x004c}
0xaf4e…af58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x006e}
0xaf58…af7a               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0070, t01=0x0078}
0xaf7a…af9c               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x0070, t01=0x009a}
0xaf9c…afbe               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0070, t01=0x00bc}
0xafbe…afd2               Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0070, t01=0x00de}
0xafd2…afde               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0070, t01=0x00f2}
0xafde…aff4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0070, t01=0x00fe}
0xaff4…b01e               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0070, t01=0x0114}
0xb01e…b02a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x013e}
0xb02a…b034               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x014a}
0xb034…b046               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0070, t01=0x0154}
0xb046…b058               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0070, t01=0x0166}
0xb058…b06c               Head {h00=0x0010, h01=0x0050, text=»EBC:10 EQU *«, t00=0x0070, t01=0x0178}
0xb06c…b07e               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0070, t01=0x018c}
0xb07e…b0a0               Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0071, t01=0x000e}
0xb0a0…b0b4               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0071, t01=0x0030}
0xb0b4…b0ce               Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0071, t01=0x0044}
0xb0ce…b0e6               Head {h00=0x0014, h01=0x0050, text=» SC A1,BUF-1,A7 «, t00=0x0071, t01=0x005e}
0xb0e6…b0f8               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0071, t01=0x0076}
0xb0f8…b10e               Head {h00=0x0012, h01=0x0050, text=» RB(P) EBC:10 «, t00=0x0071, t01=0x0088}
0xb10e…b138               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0071, t01=0x009e}
0xb138…b14c               Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x0071, t01=0x00c8}
0xb14c…b16c               Head {h00=0x001c, h01=0x0050, text=» INH  INHIBIT INTERRUPTS«, t00=0x0071, t01=0x00dc}
0xb16c…b17c               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0071, t01=0x00fc}
0xb17c…b186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x010c}
0xb186…b19e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0071, t01=0x0116}
0xb19e…b1a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x012e}
0xb1a8…b1ba               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0071, t01=0x0138}
0xb1ba…b1cc               Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0071, t01=0x014a}
0xb1cc…b1de               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0071, t01=0x015c}
0xb1de…b1e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x016e}
0xb1e8…b22c               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0071, t01=0x0178}
0xb22c…b25c               Head {h00=0x002c, h01=0x0050, text=»*              LOGICAL SECTOR (BINARY). «, t00=0x0072, t01=0x002c}
0xb25c…b29c               Head {h00=0x003c, h01=0x0050, text=»*             FORMAT OF PHYS. SEC.  TT0SS  (EBCDIC CODE)«, t00=0x0072, t01=0x005c}
0xb29c…b2ca               Head {h00=0x002a, h01=0x0050, text=»*              TT = TRACK,  SS=SECTOR «, t00=0x0072, t01=0x009c}
0xb2ca…b2d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00ca}
0xb2d4…b304               Head {h00=0x002c, h01=0x0050, text=»*  INPUT:    A4  ADDRESS TO PHYS. SECTOR«, t00=0x0072, t01=0x00d4}
0xb304…b30e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0104}
0xb30e…b338               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT:   A3  BINARY SECTOR NO «, t00=0x0072, t01=0x010e}
0xb338…b36a               Head {h00=0x002e, h01=0x0050, text=»*            A4  ADDRESS TO PHYS. SEC. + 4«, t00=0x0072, t01=0x0138}
0xb36a…b374               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x016a}
0xb374…b388               Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x0072, t01=0x0174}
0xb388…b39e               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0072, t01=0x0188}
0xb39e…b3b6               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x0073, t01=0x000e}
0xb3b6…b3c8               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0073, t01=0x0026}
0xb3c8…b3d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0038}
0xb3d2…b3ec               Head {h00=0x0016, h01=0x0050, text=»*  MULTIPLY BY 26 «, t00=0x0073, t01=0x0042}
0xb3ec…b3f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x005c}
0xb3f6…b40c               Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x0073, t01=0x0066}
0xb40c…b41e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0073, t01=0x007c}
0xb41e…b430               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0073, t01=0x008e}
0xb430…b446               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x0073, t01=0x00a0}
0xb446…b458               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0073, t01=0x00b6}
0xb458…b46e               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x0073, t01=0x00c8}
0xb46e…b484               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0073, t01=0x00de}
0xb484…b496               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0073, t01=0x00f4}
0xb496…b4a8               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0073, t01=0x0106}
0xb4a8…b4b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0118}
0xb4b2…b4ca               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0073, t01=0x0122}
0xb4ca…b4d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x013a}
0xb4d4…b4ee               Head {h00=0x0016, h01=0x0050, text=»*  CHECK SECTOR NO«, t00=0x0073, t01=0x0144}
0xb4ee…b4f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x015e}
0xb4f8…b50a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0073, t01=0x0168}
0xb50a…b51c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x0073, t01=0x017a}
0xb51c…b532               Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x0073, t01=0x018c}
0xb532…b550               Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD «, t00=0x0074, t01=0x0012}
0xb550…b56a               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x0074, t01=0x0030}
0xb56a…b580               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x0074, t01=0x004a}
0xb580…b592               Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x0074, t01=0x0060}
0xb592…b59c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0072}
0xb59c…b5c2               Head {h00=0x0022, h01=0x0050, text=»*  CHECK EOD LESS/EQUAL 74001 «, t00=0x0074, t01=0x007c}
0xb5c2…b5cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00a2}
0xb5cc…b5e8               Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x0074, t01=0x00ac}
0xb5e8…b5fc               Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x0074, t01=0x00c8}
0xb5fc…b622               Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x0074, t01=0x00dc}
0xb622…b648               Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x0074, t01=0x0102}
0xb648…b658               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0074, t01=0x0128}
0xb658…b662               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0138}
0xb662…b678               Head {h00=0x0012, h01=0x0050, text=»*  FATAL ERROR«, t00=0x0074, t01=0x0142}
0xb678…b682               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0158}
0xb682…b6ae               Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x0074, t01=0x0162}
0xb6ae…b6d4               Head {h00=0x0022, h01=0x0050, text=»LOG:10 LDK A1,/10 RETURN CODE «, t00=0x0074, t01=0x018e}
0xb6d4…b704               Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0075, t01=0x0024}
0xb704…b724               Head {h00=0x001c, h01=0x0050, text=» INH  INHIBIT INTERRUPTS«, t00=0x0075, t01=0x0054}
0xb724…b746               Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x0075, t01=0x0074}
0xb746…b750               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0096}
0xb750…b768               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0075, t01=0x00a0}
0xb768…b772               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00b8}
0xb772…b784               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0075, t01=0x00c2}
0xb784…b796               Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x0075, t01=0x00d4}
0xb796…b7a8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0075, t01=0x00e6}
0xb7a8…b7b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00f8}
0xb7b2…b7f4               Head {h00=0x003e, h01=0x0050, text=»*  FUNCTION:  DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x0075, t01=0x0102}
0xb7f4…b83c               Head {h00=0x0044, h01=0x0050, text=»*             BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x0075, t01=0x0144}
0xb83c…b86c               Head {h00=0x002c, h01=0x0050, text=»*     INPUT:  A4  ADDRESS TO FIRST DIGIT«, t00=0x0075, t01=0x018c}
0xb86c…b88a               Head {h00=0x001a, h01=0x0050, text=»*   OUTPUT: A1  BINARY«, t00=0x0076, t01=0x002c}
0xb88a…b8aa               Head {h00=0x001c, h01=0x0050, text=»*   WORKING REG:  A2,A7 «, t00=0x0076, t01=0x004a}
0xb8aa…b8b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x006a}
0xb8b4…b8cc               Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x0076, t01=0x0074}
0xb8cc…b8de               Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0076, t01=0x008c}
0xb8de…b8fc               Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0076, t01=0x009e}
0xb8fc…b910               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0076, t01=0x00bc}
0xb910…b924               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0076, t01=0x00d0}
0xb924…b93a               Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x0076, t01=0x00e4}
0xb93a…b94c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0076, t01=0x00fa}
0xb94c…b96c               Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x0076, t01=0x010c}
0xb96c…b97e               Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0076, t01=0x012c}
0xb97e…b990               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0076, t01=0x013e}
0xb990…b9a6               Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0076, t01=0x0150}
0xb9a6…b9d0               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0076, t01=0x0166}
0xb9d0…b9e8               Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0076, t01=0x0190}
0xb9e8…ba08               Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0077, t01=0x0018}
0xba08…ba2a               Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0077, t01=0x0038}
0xba2a…ba3c               Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0077, t01=0x005a}
0xba3c…ba54               Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0077, t01=0x006c}
0xba54…ba64               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0077, t01=0x0084}
0xba64…ba70               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x0094}
0xba70…ba7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00a0}
0xba7a…ba92               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0077, t01=0x00aa}
0xba92…ba9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00c2}
0xba9c…baae               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0077, t01=0x00cc}
0xbaae…bac0               Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0077, t01=0x00de}
0xbac0…bad2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0077, t01=0x00f0}
0xbad2…badc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0102}
0xbadc…bb12               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION:  PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0077, t01=0x010c}
0xbb12…bb1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0142}
0xbb1c…bb58               Head {h00=0x0038, h01=0x0050, text=»*  INPUT:  A3  DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0077, t01=0x014c}
0xbb58…bb62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0188}
0xbb62…bb80 (120, 0, 400) Head {h00=0x001a, h01=0x0050, text=»*  OUTPUT: A3  CHANGED«, t00=0x0078, t01=0x0004}
0xbb80…bb9e               Head {h00=0x001a, h01=0x0050, text=»*          A4  CHANGED«, t00=0x0078, t01=0x0022}
0xbb9e…bba8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0040}
0xbba8…bbc4               Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x0078, t01=0x004a}
0xbbc4…bbda               Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0078, t01=0x0066}
0xbbda…bbec               Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0078, t01=0x007c}
0xbbec…bc02               Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x0078, t01=0x008e}
0xbc02…bc12               Head {h00=0x000c, h01=0x0050, text=» RTN  A5«, t00=0x0078, t01=0x00a4}
0xbc12…bc24               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0078, t01=0x00b4}
0xbc24…bc2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00c6}
0xbc2e…bc46               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0078, t01=0x00d0}
0xbc46…bc50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00e8}
0xbc50…bc62               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0078, t01=0x00f2}
0xbc62…bc74               Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x0078, t01=0x0104}
0xbc74…bc86               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0078, t01=0x0116}
0xbc86…bc90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0128}
0xbc90…bcce               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0078, t01=0x0132}
0xbcce…bd02               Head {h00=0x0030, h01=0x0050, text=»*             EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0078, t01=0x0170}
0xbd02…bd0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0014}
0xbd0c…bd30               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A7  BINARY NUMBER«, t00=0x0079, t01=0x001e}
0xbd30…bd3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0042}
0xbd3a…bd6c               Head {h00=0x002e, h01=0x0050, text=»*  OUTPUT: A3  EBCDIC CODED DECIMAL DIGITS«, t00=0x0079, t01=0x004c}
0xbd6c…bd8a               Head {h00=0x001a, h01=0x0050, text=»*          A7  CHANGED«, t00=0x0079, t01=0x007e}
0xbd8a…bd94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x009c}
0xbd94…bdac               Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x0079, t01=0x00a6}
0xbdac…bdc4               Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x0079, t01=0x00be}
0xbdc4…bdda               Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x0079, t01=0x00d6}
0xbdda…bdec               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0079, t01=0x00ec}
0xbdec…bdfe               Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x0079, t01=0x00fe}
0xbdfe…be16               Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x0079, t01=0x0110}
0xbe16…be28               Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0079, t01=0x0128}
0xbe28…be56               Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x0079, t01=0x013a}
0xbe56…be7a               Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x0079, t01=0x0168}
0xbe7a…be8a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0079, t01=0x018c}
0xbe8a…be94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x000c}
0xbe94…beac               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007a, t01=0x0016}
0xbeac…bebe               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007a, t01=0x002e}
0xbebe…bed0               Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x007a, t01=0x0040}
0xbed0…bee2               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007a, t01=0x0052}
0xbee2…beec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0064}
0xbeec…bf24               Head {h00=0x0034, h01=0x0050, text=»*  FUNCTION:  PREPARE FOR READING DATA SET LABEL«, t00=0x007a, t01=0x006e}
0xbf24…bf2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00a6}
0xbf2e…bf50               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x007a, t01=0x00b0}
0xbf50…bf5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00d2}
0xbf5a…bf98               Head {h00=0x003a, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x007a, t01=0x00dc}
0xbf98…bfb4               Head {h00=0x0018, h01=0x0050, text=»*          A3   128 «, t00=0x007a, t01=0x011a}
0xbfb4…bfe0               Head {h00=0x0028, h01=0x0050, text=»*          A4  DRIVER BUFFER ADDRESS«, t00=0x007a, t01=0x0136}
0xbfe0…c002               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x007a, t01=0x0162}
0xc002…c024               Head {h00=0x001e, h01=0x0050, text=»*           A1 IS CHANGED «, t00=0x007a, t01=0x0184}
0xc024…c02e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0016}
0xc02e…c04a               Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x007b, t01=0x0020}
0xc04a…c05e               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x007b, t01=0x003c}
0xc05e…c072               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x007b, t01=0x0050}
0xc072…c084               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x007b, t01=0x0064}
0xc084…c098               Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x007b, t01=0x0076}
0xc098…c0ac               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x007b, t01=0x008a}
0xc0ac…c0bc               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007b, t01=0x009e}
0xc0bc…c0c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00ae}
0xc0c6…c0de               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007b, t01=0x00b8}
0xc0de…c0e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00d0}
0xc0e8…c0fa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x007b, t01=0x00da}
0xc0fa…c10c               Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x007b, t01=0x00ec}
0xc10c…c11e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x007b, t01=0x00fe}
0xc11e…c128               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0110}
0xc128…c162               Head {h00=0x0036, h01=0x0050, text=»*  FUNCTION:  GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x007b, t01=0x011a}
0xc162…c16c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0154}
0xc16c…c18e               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x007b, t01=0x015e}
0xc18e…c198               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0180}
0xc198…c1ba               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A2  EOD ADDRESS«, t00=0x007b, t01=0x018a}
0xc1ba…c1ea               Head {h00=0x002c, h01=0x0050, text=»*          A7  EOD-NO      (0=NOT OPEN) «, t00=0x007c, t01=0x001c}
0xc1ea…c208               Head {h00=0x001a, h01=0x0050, text=»*          A1  CHANGED«, t00=0x007c, t01=0x004c}
0xc208…c224               Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x007c, t01=0x006a}
0xc224…c238               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x007c, t01=0x0086}
0xc238…c252               Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x007c, t01=0x009a}
0xc252…c262               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007c, t01=0x00b4}
0xc262…c26c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00c4}
0xc26c…c284               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007c, t01=0x00ce}
0xc284…c28e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00e6}
0xc28e…c2a0               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007c, t01=0x00f0}
0xc2a0…c2b2               Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x007c, t01=0x0102}
0xc2b2…c2c4               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007c, t01=0x0114}
0xc2c4…c2ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0126}
0xc2ce…c304               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x007c, t01=0x0130}
0xc304…c33e               Head {h00=0x0036, h01=0x0050, text=»*            TYPE OF DATA FOR CORRESPONDING DRIVE «, t00=0x007c, t01=0x0166}
0xc33e…c348               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0010}
0xc348…c36a               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A1  DWT OFFSET «, t00=0x007d, t01=0x001a}
0xc36a…c38c               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x007d, t01=0x003c}
0xc38c…c396               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x005e}
0xc396…c3bc               Head {h00=0x0022, h01=0x0050, text=»*  OUTPUT: A2  ADDRESS TO DATA«, t00=0x007d, t01=0x0068}
0xc3bc…c3de               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x007d, t01=0x008e}
0xc3de…c3e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00b0}
0xc3e8…c40e               Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x007d, t01=0x00ba}
0xc40e…c420               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x007d, t01=0x00e0}
0xc420…c432               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x007d, t01=0x00f2}
0xc432…c444               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x007d, t01=0x0104}
0xc444…c456               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x007d, t01=0x0116}
0xc456…c466               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007d, t01=0x0128}
0xc466…c470               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0138}
0xc470…c488               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007d, t01=0x0142}
0xc488…c492               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x015a}
0xc492…c4a4               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007d, t01=0x0164}
0xc4a4…c4b6               Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x007d, t01=0x0176}
0xc4b6…c4c8               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x007d, t01=0x0188}
0xc4c8…c4d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x000a}
0xc4d2…c510               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x007e, t01=0x0014}
0xc510…c52e               Head {h00=0x001a, h01=0x0050, text=»*            DRIVE NO «, t00=0x007e, t01=0x0052}
0xc52e…c538               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0070}
0xc538…c564               Head {h00=0x0028, h01=0x0050, text=»*  INPUT:    A1  OFFSET TO DWT AREA «, t00=0x007e, t01=0x007a}
0xc564…c596               Head {h00=0x002e, h01=0x0050, text=»*            A3  WORD TO BE STORED IN DWT «, t00=0x007e, t01=0x00a6}
0xc596…c5ba               Head {h00=0x0020, h01=0x0050, text=»*            A6  DWT ADDRESS«, t00=0x007e, t01=0x00d8}
0xc5ba…c5c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00fc}
0xc5c4…c5e6               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:   A1  UNCHANGED«, t00=0x007e, t01=0x0106}
0xc5e6…c61a               Head {h00=0x0030, h01=0x0050, text=»*            A2  ADDRESS TO WORD IN DWT AREA«, t00=0x007e, t01=0x0128}
0xc61a…c63c               Head {h00=0x001e, h01=0x0050, text=»*            A3  UNCHANGED«, t00=0x007e, t01=0x015c}
0xc63c…c65e               Head {h00=0x001e, h01=0x0050, text=»*            A6  UNCHANGED«, t00=0x007e, t01=0x017e}
0xc65e…c668               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0010}
0xc668…c67c               Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x007f, t01=0x001a}
0xc67c…c690               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x007f, t01=0x002e}
0xc690…c6a2               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x007f, t01=0x0042}
0xc6a2…c6b2               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007f, t01=0x0054}
0xc6b2…c6be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0064}
0xc6be…c6c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0070}
0xc6c8…c6e0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007f, t01=0x007a}
0xc6e0…c6ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0092}
0xc6ea…c710               Head {h00=0x0022, h01=0x0050, text=»*    D R I V E R   B U F F E R«, t00=0x007f, t01=0x009c}
0xc710…c71a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00c2}
0xc71a…c72c               Head {h00=0x000e, h01=0x0050, text=»BUF EQU * «, t00=0x007f, t01=0x00cc}
0xc72c…c73e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007f, t01=0x00de}
0xc73e…c752               Head {h00=0x0010, h01=0x0050, text=» RES DVBLEN «, t00=0x007f, t01=0x00f0}
0xc752…c75e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0104}
0xc75e…c768               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0110}
0xc768…c77c               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x007f, t01=0x011a}
0xc77c…c78e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x007f, t01=0x012e}
0xc78e…c7b4               Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME BUFFER«, t00=0x007f, t01=0x0140}
0xc7b4…c7ce               Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x007f, t01=0x0166}
0xc7ce…c7ee               Head {h00=0x001c, h01=0x0050, text=» RES DVBLEN-3 MMU BUFFER«, t00=0x007f, t01=0x0180}
0xc7ee…c7fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0010}
0xc7fa…c804               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x001c}
0xc804…c81c               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0080, t01=0x0026}
0xc81c…c836               Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x0080, t01=0x003e}
0xc836…c854               Head {h00=0x001a, h01=0x0050, text=» RES DVBLEN MMU BUFFER«, t00=0x0080, t01=0x0058}
0xc854…c860               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0076}
0xc860…c86a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0082}
0xc86a…c882               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0080, t01=0x008c}
0xc882…c88c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00a4}
0xc88c…c8aa               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0080, t01=0x00ae}
0xc8aa…c8c8               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0080, t01=0x00cc}
0xc8c8…c8e6               Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0080, t01=0x00ea}
0xc8e6…c904               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0080, t01=0x0108}
0xc904…c922               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0080, t01=0x0126}
0xc922…c92c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0144}
0xc92c…c940               Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0080, t01=0x014e}
0xc940…c96c               Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0080, t01=0x0162}
0xc96c…c97c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0080, t01=0x018e}
0xc97c…c99a               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0081, t01=0x000e}
0xc99a…c9b6               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0081, t01=0x002c}
0xc9b6…c9cc               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0081, t01=0x0048}
0xc9cc…c9f2               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0081, t01=0x005e}
0xc9f2…ca0e               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0081, t01=0x0084}
0xca0e…ca36               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0081, t01=0x00a0}
0xca36…ca54               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0081, t01=0x00c8}
0xca54…ca5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00e6}
0xca5e…ca74               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0081, t01=0x00f0}
0xca74…ca9e               Head {h00=0x0026, h01=0x0050, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0081, t01=0x0106}
0xca9e…cac2               Head {h00=0x0020, h01=0x0050, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0081, t01=0x0130}
0xcac2…cace               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0154}
0xcace…cad8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0160}
0xcad8…caf2               Head {h00=0x0016, h01=0x0050, text=»DWTA3 EQU *-DWFD01«, t00=0x0081, t01=0x016a}
0xcaf2…cb02               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0081, t01=0x0184}
0xcb02…cb1c (130, 0, 400) Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x0082, t01=0x0004}
0xcb1c…cb2c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0082, t01=0x001e}
0xcb2c…cb3c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0082, t01=0x002e}
0xcb3c…cb62               Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0,0 STACK (3 LEVELS)«, t00=0x0082, t01=0x003e}
0xcb62…cb82               Head {h00=0x001c, h01=0x0050, text=» DATA 0 ORDER SAVE AREA «, t00=0x0082, t01=0x0064}
0xcb82…cb8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0084}
0xcb8c…cba4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0082, t01=0x008e}
0xcba4…cbae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00a6}
0xcbae…cbb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00b0}
0xcbb8…cbd0               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0082, t01=0x00ba}
0xcbd0…cbf4               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 0 «, t00=0x0082, t01=0x00d2}
0xcbf4…cc18               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 1 «, t00=0x0082, t01=0x00f6}
0xcc18…cc3c               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 2 «, t00=0x0082, t01=0x011a}
0xcc3c…cc60               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 3 «, t00=0x0082, t01=0x013e}
0xcc60…cc8c               Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x0082, t01=0x0162}
0xcc8c…ccac               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0082, t01=0x018e}
0xccac…ccd8               Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x0083, t01=0x001e}
0xccd8…ccf8               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0083, t01=0x004a}
0xccf8…cd24               Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x0083, t01=0x006a}
0xcd24…cd44               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0083, t01=0x0096}
0xcd44…cd70               Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x0083, t01=0x00b6}
0xcd70…cd90               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x0083, t01=0x00e2}
0xcd90…cdbc               Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x0083, t01=0x0102}
0xcdbc…cdcc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0083, t01=0x012e}
0xcdcc…cdd8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x013e}
0xcdd8…cdf2               Head {h00=0x0016, h01=0x0050, text=»DWTA5 EQU *-DWFD01«, t00=0x0083, t01=0x014a}
0xcdf2…ce02               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0083, t01=0x0164}
0xce02…ce30               Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x0083, t01=0x0174}
0xce30…ce40               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0084, t01=0x0012}
0xce40…ce68               Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x0084, t01=0x0022}
0xce68…ce78               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0084, t01=0x004a}
0xce78…ce82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x005a}
0xce82…ce9a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0084, t01=0x0064}
0xce9a…cea4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x007c}
0xcea4…ceae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0086}
0xceae…cec0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0084, t01=0x0090}
0xcec0…cef0               Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x0084, t01=0x00a2}
0xcef0…cf00               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0084, t01=0x00d2}
0xcf00…cf0c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x00e2}
0xcf0c…cf16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00ee}
0xcf16…cf46               Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x0084, t01=0x00f8}
0xcf46…cf56               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0084, t01=0x0128}
0xcf56…cf60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0138}
0xcf60…cf76               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0084, t01=0x0142}
0xcf76…cfa8               Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x0084, t01=0x0158}
0xcfa8…cfb8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0084, t01=0x018a}
0xcfb8…cff0               Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x0085, t01=0x000a}
0xcff0…d000               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0085, t01=0x0042}
0xd000…d00c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x0052}
0xd00c…d016               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x005e}
0xd016…d02e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0085, t01=0x0068}
0xd02e…d038               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x0080}
0xd038…d042               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x008a}
0xd042…d056               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0085, t01=0x0094}
0xd056…d090               Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x0085, t01=0x00a8}
0xd090…d0a0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0085, t01=0x00e2}
0xd0a0…d0d0               Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x0085, t01=0x00f2}
0xd0d0…d0e0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0085, t01=0x0122}
0xd0e0…d110               Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x0085, t01=0x0132}
0xd110…d120               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0085, t01=0x0162}
0xd120…d12c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0085, t01=0x0172}
0xd12c…d136               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x017e}
0xd136…d148               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0085, t01=0x0188}
0xd148…d178               Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x0086, t01=0x000a}
0xd178…d18e               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0086, t01=0x003a}
0xd18e…d1b6               Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x0086, t01=0x0050}
0xd1b6…d1cc               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0086, t01=0x0078}
0xd1cc…d1f6               Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x0086, t01=0x008e}
0xd1f6…d20c               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0086, t01=0x00b8}
0xd20c…d23a               Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x0086, t01=0x00ce}
0xd23a…d250               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0086, t01=0x00fc}
0xd250…d282               Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x0086, t01=0x0112}
0xd282…d298               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0086, t01=0x0144}
0xd298…d2a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0086, t01=0x015a}
0xd2a4…d2ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0166}
0xd2ae…d2c6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0086, t01=0x0170}
0xd2c6…d2d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0086, t01=0x0188}
0xd2d0…d2da (135, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0004}
0xd2da…d304               Head {h00=0x0026, h01=0x0050, text=»DWTBA EQU *-DWFD01 BUFFER POINTER «, t00=0x0087, t01=0x000e}
0xd304…d314               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0087, t01=0x0038}
0xd314…d340               Head {h00=0x0028, h01=0x0050, text=»DWTRL EQU *-DWFD01 LENGTH IN SUB IO «, t00=0x0087, t01=0x0048}
0xd340…d350               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0087, t01=0x0074}
0xd350…d37a               Head {h00=0x0026, h01=0x0050, text=»DWTCW2 EQU *-DWFD01 SECTOR NUMBER «, t00=0x0087, t01=0x0084}
0xd37a…d38a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0087, t01=0x00ae}
0xd38a…d3bc               Head {h00=0x002e, h01=0x0050, text=»DWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER «, t00=0x0087, t01=0x00be}
0xd3bc…d3cc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0087, t01=0x00f0}
0xd3cc…d404               Head {h00=0x0034, h01=0x0050, text=»DWTSIO EQU *-DWFD01 NUMBER OF SECTORS IN SUB IO «, t00=0x0087, t01=0x0100}
0xd404…d414               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0087, t01=0x0138}
0xd414…d41e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0148}
0xd41e…d436               Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0087, t01=0x0152}
0xd436…d460               Head {h00=0x0026, h01=0x0050, text=»DWTFIB EQU *-DWFD01 IBM INDICATOR «, t00=0x0087, t01=0x016a}
0xd460…d470 (136, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0088, t01=0x0004}
0xd470…d47c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0088, t01=0x0014}
0xd47c…d486               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0020}
0xd486…d49e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0088, t01=0x002a}
0xd49e…d4a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0042}
0xd4a8…d4b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x004c}
0xd4b2…d4c8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0088, t01=0x0056}
0xd4c8…d4e4               Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x0088, t01=0x006c}
0xd4e4…d50c               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x0088, t01=0x0088}
0xd50c…d528               Head {h00=0x0018, h01=0x0050, text=»BUFFLG EQU *-DWFD01 «, t00=0x0088, t01=0x00b0}
0xd528…d538               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0088, t01=0x00cc}
0xd538…d542               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00dc}
0xd542…d55a               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0088, t01=0x00e6}
0xd55a…d576               Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x0088, t01=0x00fe}
0xd576…d5a4               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x0088, t01=0x011a}
0xd5a4…d5c4               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0088, t01=0x0148}
0xd5c4…d5ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0168}
0xd5ce…d5ea               Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0088, t01=0x0172}
0xd5ea…d618               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0088, t01=0x018e}
0xd618…d624               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x002c}
0xd624…d62e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0038}
0xd62e…d644               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0089, t01=0x0042}
0xd644…d658               Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0089, t01=0x0058}
0xd658…d674               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0089, t01=0x006c}
0xd674…d680               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0089, t01=0x0088}
0xd680…d68a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0094}
0xd68a…d694               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x009e}
0xd694…d69e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00a8}
0xd69e…d6aa               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0089, t01=0x00b2}
0xd6aa…d6ae               Head {h00=0x4004, h01=0x0000}
0xd6ae…d6b0               00 89                                                                                                                                                                                                                                             ┆  ┆
0xd6b0…d6b2               00 be                                                                                                                                                                                                                                             ┆  ┆
0xd6b2…d6ba (138, 1, 8)   20 04 00 00 00 8a 00 04                                                                                                                                                                                                                           ┆        ┆
0xd6ba…d70a (139, 0, 398) 00 8a 01 6e 00 20 00 50 5c 44 41 54 41 5c 45 43 42 44 55 31 5c 4d 4d 55 20 45 43 42 20 41 44 44 52 45 53 53 00 8b 00 08 00 08 00 50 5c 58 49 46 00 8b 00 2c 00 06 00 50 2a 20 00 8b 00 38 00 18 00 50 44 57 54 46 53 57 5c 45 51 55 5c 2a 2d 44   ┆   n   P DATA ECBDU1 MMU ECB ADDRESS       P XIF   ,   P*    8   PDWTFSW EQU *-D┆
0xd70a…d75a               57 44 55 30 31 20 00 8b 00 42 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 8b 00 5e 00 28 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 52 45 47 49 53 54 45 52 53 20 00 8b 00 6e 00 18 00 50 44 57 54 42 53 45   ┆WDU01    B   P DATA 0    ^ ( P DATA 0,0,0 SAVE AREA FOR REGISTERS    n   PDWTBSE┆
0xd75a…d7aa               5c 45 51 55 5c 2a 2d 44 57 44 55 30 31 20 00 8b 00 9a 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 8b 00 b6 00 2c 00 50 44 57 54 55 42 55 5c 45 51 55 5c 2a 2d 44 57 44 55 30 31 5c 55 53 45 52 20 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 20 00 8b   ┆ EQU *-DWDU01        P DATA 0      , PDWTUBU EQU *-DWDU01 USER BUFFER POINTER   ┆
0xd7aa…d7fa               00 c6 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 8b 00 f6 00 18 00 50 44 57 54 53 57 44 5c 45 51 55 5c 2a 2d 44 57 44 55 30 31 20 00 8b 01 06 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 8b 01 22 00 06 00 50 2a 20 00 8b 01 32 00 12 00 50 5c 45 4a 45   ┆     P DATA 0        PDWTSWD EQU *-DWDU01        P DATA 0    "   P*    2   P EJE┆
0xd7fa…d848               43 54 5c 5c 44 52 44 55 30 31 00 8b 01 3c 00 06 00 50 2a 20 00 8b 01 52 00 06 00 50 2a 20 00 8b 01 5c 00 18 00 50 44 57 54 52 54 59 5c 45 51 55 5c 2a 2d 44 57 44 55 30 31 20 00 8b 01 66 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 8b 01 82         ┆CT  DRDU01   <   P*    R   P*        PDWTRTY EQU *-DWDU01    f   P DATA 0     ┆
0xd848…d898 (140, 0, 400) 00 0c 00 50 5c 44 41 54 41 5c 30 20 00 8c 00 04 00 16 00 50 5c 44 41 54 41 5c 2f 43 30 30 30 5c 46 49 58 45 44 20 00 8c 00 14 00 34 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 4e 45 57 20 56 4f 4c 55 4d 45 20 4c 4f 41 44 45 44 20 49 4e 44 49   ┆   P DATA 0        P DATA /C000 FIXED      4 P DATA /8000 NEW VOLUME LOADED INDI┆
0xd898…d8e8               43 41 54 4f 52 20 43 41 52 54 52 2e 20 31 00 8c 00 2e 00 16 00 50 5c 44 41 54 41 5c 2f 43 30 30 30 5c 46 49 58 45 44 20 00 8c 00 66 00 30 00 50 5c 44 41 54 41 5c 2f 38 30 30 30 5c 4e 45 57 20 56 4f 4c 55 4d 45 20 4c 4f 41 44 45 44 20 49 4e   ┆CATOR CARTR. 1   .   P DATA /C000 FIXED    f 0 P DATA /8000 NEW VOLUME LOADED IN┆
0xd8e8…d938               44 2e 20 43 41 52 54 52 2e 20 32 20 00 8c 00 80 00 32 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c 2f 46 46 46 46 2c 2f 46 46 46 46 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 31 53 54 20 46 49 58 45 44 20 00 8c 00 b4 00 36 00 50 5c 44 41 54 41 5c   ┆D. CARTR. 2      2 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST FIXED      6 P DATA ┆
0xd938…d988               2f 46 46 46 46 2c 2f 46 46 46 46 2c 2f 46 46 46 46 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 31 53 54 20 43 41 52 54 52 49 44 47 45 20 00 8c 00 ea 00 06 00 50 2a 20 00 8c 01 24 00 12 00 50 5c 49 46 54 5c 4e 55 4e 49 54 53 3d 32 20 00 8c 01 2e   ┆/FFFF,/FFFF,/FFFF VOLUME NAME 1ST CARTRIDGE        P*    $   P IFT NUNITS=2    .┆
0xd988…d9d8               00 32 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c 2f 46 46 46 46 2c 2f 46 46 46 46 5c 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 32 4e 44 20 46 49 58 45 44 20 00 8c 01 44 00 36 00 50 5c 44 41 54 41 5c 2f 46 46 46 46 2c 2f 46 46 46 46 2c 2f 46 46 46   ┆ 2 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND FIXED    D 6 P DATA /FFFF,/FFFF,/FFF┆

Reduced view