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

⟦e8ebaa513⟧

    Length: 52502 (0xcd16)
    Notes: pts_type(SC)
    Names: »DRFDDE.SC«

Derivation

└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
    └─⟦this⟧ »M:DENJ/DRFDDE.SC« 
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
    └─⟦this⟧ »M:DENJ/DRFDDE.SC« 

	IDENT DRFD01 	REL 10.0 80-04-29 870105041000 
			CONV, 81-04-18,DK1 
			ONLY VALID FOR DATA ENTRY,DK1

* 
**********************************************
* 
*  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	1 
* 
*	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	1
* 
	EJECT			DRFD01 
* 
* 
*   MMU BUFFER SIZE 
* 
* 
	IFT	MMUPAG=0 
DVBLEN	EQU	256
	XIF
* 
	IFT	MMUPAG=1 
X:E	EQU	256		 
DVBLEN	EQU	130		
	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
	ABL	END:RC 
	XIF
* 
	IFT	TOSS+IBM=0 
	ABL	END:RC 
	XIF
* 
	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	*
	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 
	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,38
	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,32
	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 
	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
	CF	A5,ASCII
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,ECBCW2,A8	SECTOR NO
	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,ECBCW2,A8	DATA SET LABEL SECTOR
	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
	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,ASC:01	TRANSFORM TO ASCII	DK1
* 
	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
	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,EBC:01	TRANSFORM AND MOVE TO BUF	DK1 
* 
	EJECT		DRFD01
* 
* 
	CF	A5,FD:WRI 
	ANKL	A1,/200 
	RF(Z)	SQW:05 
	LDK	A1,/40	WRITE PROTECTED 
	ORRS	A1,A6	UPDATE TEMPORARY RETURN CODE
SQW:05	EQU	*
	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
	ST	A1,DWTST,A6	INDICATE RECOVERY DONE
	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 
	CM	DWTST,A6
	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 
	IM	DWTST,A6	INDICATE VOLUME NAMES READ 
	XIF
* 
	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 
	CM	DWTST,A6	SET UNIT BUSY
	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
	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 
	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	READ TO BUFFER 
	CF	A5,FD:REA 
	ANK	A3,/17 
	RF(NZ)	VOL:40	IO ERROR 
	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,10	NO OF CHARACTERS 
	CF	A5,ASC:01	TRANSFER IBM VOL NAME TO ASCII	DK1
	LDKL	A2,BUF+4	START ADDRESS OF VOLUME NAME 
	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	* 
	LD	A1,DWT:LA,A6	GET LOGICAL BUFFER ADDRESS	DK1 
	RF(NZ)	ASC:01	BUFFER NOT IN SYSTEM AREA	DK1
	LD	A4,DWTBA,A6	GET BUFFER ADDRESS	DK1
	RF	ASC:02		DK1 
ASC:01	EQU	*		DK1 
	IFT	MMUPAG=1 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	XIF
* 
ASC:02	EQU	*		DK1 
	IFT	IBM=1
	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	*
	LD	A1,DWT:LA,A6	GET LOGICAL BUFFER ADDRESS	DK1 
	RF(NZ)	EBC:01	BUFFER NOT IN SYSTEM AREA	DK1
	LD	A4,DWTBA,A6	GET BUFFER ADDRESS	DK1
	RF	EBC:02		DK1 
EBC:01	EQU	*		DK1 
	IFT	MMUPAG=1 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	XIF
* 
EBC:02	EQU	*		DK1 
	IFT	IBM=1
	ENB			DK1
	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
	SCR	A1,A4	PUT EBCDIC IN OUTPUT BUFFER	DK1
	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

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT DRFD01  REL 10.0 80-04-29 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…0054               Head {h00=0x001a, h01=0x0050, text=»   CONV, 81-04-18,DK1 «, t00=0x0000, t01=0x003a}
0x0054…007c               Head {h00=0x0024, h01=0x0050, text=»   ONLY VALID FOR DATA ENTRY,DK1«, t00=0x0000, t01=0x0058}
0x007c…0084               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0080}
0x0084…008e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0088}
0x008e…00c4               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0092}
0x00c4…00ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00f4               Head {h00=0x0022, h01=0x0050, text=»*  PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00d2}
0x00f4…00fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…012a               Head {h00=0x0028, h01=0x0050, text=»*  DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x0102}
0x012a…0134               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012e}
0x0134…013e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0138}
0x013e…0148               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0152               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014c}
0x0152…015c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0156}
0x015c…0166               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0160}
0x0166…019c               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x016a}
0x019c…01a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0010}
0x01a6…01b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001a}
0x01b0…01e4               Head {h00=0x0030, h01=0x0050, text=»*  THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0001, t01=0x0024}
0x01e4…0216               Head {h00=0x002e, h01=0x0050, text=»*  CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x0058}
0x0216…024a               Head {h00=0x0030, h01=0x0050, text=»*  CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x008a}
0x024a…0274               Head {h00=0x0026, h01=0x0050, text=»*  MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x00be}
0x0274…027e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027e…0288               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f2}
0x0288…02a0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0001, t01=0x00fc}
0x02a0…02aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0114}
0x02aa…02bc               Head {h00=0x000e, h01=0x0050, text=»*  ORDERS:«, t00=0x0001, t01=0x011e}
0x02bc…02c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0130}
0x02c6…02e2               Head {h00=0x0018, h01=0x0050, text=»*  /00   TEST STATUS«, t00=0x0001, t01=0x013a}
0x02e2…0300               Head {h00=0x001a, h01=0x0050, text=»*  /01   PHYSICAL READ«, t00=0x0001, t01=0x0156}
0x0300…0346               Head {h00=0x0042, h01=0x0050, text=»*  /02   SEQUENTIAL READ                       -IBM DISC ONLY-«, t00=0x0001, t01=0x0174}
0x0346…0362               Head {h00=0x0018, h01=0x0050, text=»*  /05   BASIC WRITE«, t00=0x0002, t01=0x002a}
0x0362…03aa               Head {h00=0x0044, h01=0x0050, text=»*  /06   SEQUENTIAL WRITE                       -IBM DISC ONLY- «, t00=0x0002, t01=0x0046}
0x03aa…03c8               Head {h00=0x001a, h01=0x0050, text=»*  /11   PHYSICAL READ«, t00=0x0002, t01=0x008e}
0x03c8…03e8               Head {h00=0x001c, h01=0x0050, text=»*  /15   PHYSICAL WRITE «, t00=0x0002, t01=0x00ac}
0x03e8…03fc               Head {h00=0x0010, h01=0x0050, text=»*  /21 OPEN «, t00=0x0002, t01=0x00cc}
0x03fc…0410               Head {h00=0x0010, h01=0x0050, text=»*  /22 CLOSE«, t00=0x0002, t01=0x00e0}
0x0410…0434               Head {h00=0x0020, h01=0x0050, text=»*  /24   WRITE DELETED DATA «, t00=0x0002, t01=0x00f4}
0x0434…044a               Head {h00=0x0012, h01=0x0050, text=»*  /26   LOCK «, t00=0x0002, t01=0x0118}
0x044a…0492               Head {h00=0x0044, h01=0x0050, text=»*  /31   REWIND                                 -IBM DISC ONLY- «, t00=0x0002, t01=0x012e}
0x0492…04a8               Head {h00=0x0012, h01=0x0050, text=»*  /37   LOAD «, t00=0x0002, t01=0x0176}
0x04a8…04c0               Head {h00=0x0014, h01=0x0050, text=»*  /38   UNLOAD «, t00=0x0002, t01=0x018c}
0x04c0…04ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0014}
0x04ca…04e6               Head {h00=0x0018, h01=0x0050, text=»*  ENTRY PARAMETERS:«, t00=0x0003, t01=0x001e}
0x04e6…04f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003a}
0x04f0…050c               Head {h00=0x0018, h01=0x0050, text=»*   A5   STACK BASE «, t00=0x0003, t01=0x0044}
0x050c…0528               Head {h00=0x0018, h01=0x0050, text=»*   A6   DWT-ADDRESS«, t00=0x0003, t01=0x0060}
0x0528…053e               Head {h00=0x0012, h01=0x0050, text=»*   A7   ORDER«, t00=0x0003, t01=0x007c}
0x053e…055a               Head {h00=0x0018, h01=0x0050, text=»*   A8   ECB-ADDRESS«, t00=0x0003, t01=0x0092}
0x055a…0572               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0003, t01=0x00ae}
0x0572…057c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c6}
0x057c…0590               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00d0}
0x0590…05a4               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x00e4}
0x05a4…05b8               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x00f8}
0x05b8…05cc               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x010c}
0x05cc…05e0               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0120}
0x05e0…05ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0134}
0x05ea…0612               Head {h00=0x0024, h01=0x0050, text=» ENTRY  FDADR ACTIVATION ADDRESS«, t00=0x0003, t01=0x013e}
0x0612…0638               Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0003, t01=0x0166}
0x0638…065c               Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0003, t01=0x018c}
0x065c…067e               Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0004, t01=0x0020}
0x067e…0696               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0004, t01=0x0042}
0x0696…06a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005a}
0x06a0…06b6               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0064}
0x06b6…06cc               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x007a}
0x06cc…06e2               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0090}
0x06e2…06f8               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x00a6}
0x06f8…070e               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x00bc}
0x070e…0718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d2}
0x0718…0738               Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x00dc}
0x0738…0754               Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0004, t01=0x00fc}
0x0754…0778               Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x0118}
0x0778…07a6               Head {h00=0x002a, h01=0x0050, text=» EXTRN DISEND PERFORM TENDIO AND TDISP«, t00=0x0004, t01=0x013c}
0x07a6…07ce               Head {h00=0x0024, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAME «, t00=0x0004, t01=0x016a}
0x07ce…07f8 (5, 0, 400)   Head {h00=0x0026, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME ADDRESS «, t00=0x0005, t01=0x0004}
0x07f8…082c               Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL«, t00=0x0005, t01=0x002e}
0x082c…085e               Head {h00=0x002e, h01=0x0050, text=» EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0005, t01=0x0062}
0x085e…087a               Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x0094}
0x087a…089c               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x00b0}
0x089c…08c2               Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0005, t01=0x00d2}
0x08c2…08ea               Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x00f8}
0x08ea…0916               Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTORD ORDER/INDEX SAVE AREA «, t00=0x0005, t01=0x0120}
0x0916…0938               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0005, t01=0x014c}
0x0938…095a               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0005, t01=0x016e}
0x095a…0984               Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0005, t01=0x0190}
0x0984…09a4               Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0006, t01=0x002a}
0x09a4…09d0               Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0006, t01=0x004a}
0x09d0…09ec               Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0006, t01=0x0076}
0x09ec…0a16               Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0006, t01=0x0092}
0x0a16…0a40               Head {h00=0x0026, h01=0x0050, text=» EXTRN PFPOST PWF POST PROC. FLAG «, t00=0x0006, t01=0x00bc}
0x0a40…0a6a               Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0006, t01=0x00e6}
0x0a6a…0a94               Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0006, t01=0x0110}
0x0a94…0ac8               Head {h00=0x0030, h01=0x0050, text=» EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE«, t00=0x0006, t01=0x013a}
0x0ac8…0af0               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0006, t01=0x016e}
0x0af0…0b1a               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0007, t01=0x0008}
0x0b1a…0b44               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0007, t01=0x0032}
0x0b44…0b6c               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 ECB CONTROL WORD 1«, t00=0x0007, t01=0x005c}
0x0b6c…0b94               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW2 ECB CONTROL WORD 2«, t00=0x0007, t01=0x0084}
0x0b94…0bac               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0007, t01=0x00ac}
0x0bac…0bb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c4}
0x0bb6…0bd6               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x00ce}
0x0bd6…0bf6               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x00ee}
0x0bf6…0c16               Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x010e}
0x0c16…0c36               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x012e}
0x0c36…0c56               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x014e}
0x0c56…0c60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016e}
0x0c60…0c92               Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0007, t01=0x0178}
0x0c92…0cb6               Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0008, t01=0x001a}
0x0cb6…0cc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cc0…0cd2               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0008, t01=0x0048}
0x0cd2…0ce4               Head {h00=0x000e, h01=0x0050, text=»CHAN EQU 1«, t00=0x0008, t01=0x005a}
0x0ce4…0cee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006c}
0x0cee…0d24               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0008, t01=0x0076}
0x0d24…0d50               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0008, t01=0x00ac}
0x0d50…0d5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d8}
0x0d5a…0d6c               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x00e2}
0x0d6c…0d7e               Head {h00=0x000e, h01=0x0050, text=»TOSS EQU 1«, t00=0x0008, t01=0x00f4}
0x0d7e…0d88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0106}
0x0d88…0dbe               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x0110}
0x0dbe…0dea               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x0146}
0x0dea…0df4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0172}
0x0df4…0e06               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0008, t01=0x017c}
0x0e06…0e18               Head {h00=0x000e, h01=0x0050, text=»IBM EQU 1 «, t00=0x0008, t01=0x018e}
0x0e18…0e22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0010}
0x0e22…0e54               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0009, t01=0x001a}
0x0e54…0e82               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0009, t01=0x004c}
0x0e82…0e8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x007a}
0x0e8c…0ea0               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0009, t01=0x0084}
0x0ea0…0eaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0098}
0x0eaa…0eb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a2}
0x0eb4…0eee               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x00ac}
0x0eee…0f20               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x00e6}
0x0f20…0f2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0118}
0x0f2a…0f3e               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0009, t01=0x0122}
0x0f3e…0f48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f48…0f60               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0009, t01=0x0140}
0x0f60…0f6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0158}
0x0f6a…0f74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0162}
0x0f74…0fb8               Head {h00=0x0040, h01=0x0050, text=»*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x0009, t01=0x016c}
0x0fb8…1000               Head {h00=0x0044, h01=0x0050, text=»*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x000a, t01=0x0020}
0x1000…100a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0068}
0x100a…101c               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x0072}
0x101c…1030               Head {h00=0x0010, h01=0x0050, text=»OPCLOS EQU 1«, t00=0x000a, t01=0x0084}
0x1030…103a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0098}
0x103a…1052               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000a, t01=0x00a2}
0x1052…105c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ba}
0x105c…1066               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c4}
0x1066…1082               Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x000a, t01=0x00ce}
0x1082…108c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ea}
0x108c…1096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f4}
0x1096…10ac               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000a, t01=0x00fe}
0x10ac…10c2               Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 256«, t00=0x000a, t01=0x0114}
0x10c2…10ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x012a}
0x10ce…10d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0136}
0x10d8…10ee               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000a, t01=0x0140}
0x10ee…1104               Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256   «, t00=0x000a, t01=0x0156}
0x1104…111c               Head {h00=0x0014, h01=0x0050, text=»DVBLEN EQU 130  «, t00=0x000a, t01=0x016c}
0x111c…1128               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0184}
0x1128…1132               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0190}
0x1132…113c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x000a}
0x113c…1158               Head {h00=0x0018, h01=0x0050, text=»*   MMU DEVICE INDEX«, t00=0x000b, t01=0x0014}
0x1158…1162               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0030}
0x1162…116c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x003a}
0x116c…1182               Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU 10 «, t00=0x000b, t01=0x0044}
0x1182…118c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005a}
0x118c…11a4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000b, t01=0x0064}
0x11a4…11ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007c}
0x11ae…11c4               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0086}
0x11c4…11da               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x009c}
0x11da…11f0               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x00b2}
0x11f0…1206               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x00c8}
0x1206…121c               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x00de}
0x121c…1226               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f4}
0x1226…1250               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000b, t01=0x00fe}
0x1250…127a               Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000b, t01=0x0128}
0x127a…12a6               Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000b, t01=0x0152}
0x12a6…12ca               Head {h00=0x0020, h01=0x0050, text=»SECLEN EQU 128 SECTOR LENGTH«, t00=0x000b, t01=0x017e}
0x12ca…12f4               Head {h00=0x0026, h01=0x0050, text=»MAXSEC EQU 2002 MAX SECTOR NUMBER «, t00=0x000c, t01=0x0012}
0x12f4…1326               Head {h00=0x002e, h01=0x0050, text=»MAXIBM EQU 1923 MAX SECTOR NUMBER IBM DISC«, t00=0x000c, t01=0x003c}
0x1326…1352               Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000c, t01=0x006e}
0x1352…137c               Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000c, t01=0x009a}
0x137c…13a4               Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000c, t01=0x00c4}
0x13a4…13c8               Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000c, t01=0x00ec}
0x13c8…13f2               Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000c, t01=0x0110}
0x13f2…13fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013a}
0x13fc…1424               Head {h00=0x0024, h01=0x0050, text=»DIXTAB EQU * DOUBLE INDEX TABLE «, t00=0x000c, t01=0x0144}
0x1424…1438               Head {h00=0x0010, h01=0x0050, text=» DATA /0102 «, t00=0x000c, t01=0x016c}
0x1438…144c               Head {h00=0x0010, h01=0x0050, text=» DATA /0408 «, t00=0x000c, t01=0x0180}
0x144c…1456 (13, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0004}
0x1456…146e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000d, t01=0x000e}
0x146e…1478               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0026}
0x1478…148a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x0030}
0x148a…149c               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000d, t01=0x0042}
0x149c…14ae               Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000d, t01=0x0054}
0x14ae…14c0               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000d, t01=0x0066}
0x14c0…14d2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x0078}
0x14d2…14dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008a}
0x14dc…14f4               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x000d, t01=0x0094}
0x14f4…1520               Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000d, t01=0x00ac}
0x1520…152c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00d8}
0x152c…1536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e4}
0x1536…154a               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000d, t01=0x00ee}
0x154a…155c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x000d, t01=0x0102}
0x155c…1582               Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, t00=0x000d, t01=0x0114}
0x1582…158e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x013a}
0x158e…1598               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0146}
0x1598…15ba               Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000d, t01=0x0150}
0x15ba…15e4               Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000d, t01=0x0172}
0x15e4…160a               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x000c}
0x160a…1614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0032}
0x1614…162c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000e, t01=0x003c}
0x162c…1636               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0054}
0x1636…164e               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x005e}
0x164e…1666               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x000e, t01=0x0076}
0x1666…167e               Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x000e, t01=0x008e}
0x167e…1696               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x000e, t01=0x00a6}
0x1696…16ae               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x00be}
0x16ae…16b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d6}
0x16b8…16cc               Head {h00=0x0010, h01=0x0050, text=»TESTST EQU *«, t00=0x000e, t01=0x00e0}
0x16cc…16e4               Head {h00=0x0014, h01=0x0050, text=» IFF IBM+TOSS=0 «, t00=0x000e, t01=0x00f4}
0x16e4…16fa               Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x000e, t01=0x010c}
0x16fa…1720               Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 SAVE NVL INDICATOR «, t00=0x000e, t01=0x0122}
0x1720…172c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0148}
0x172c…1736               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0154}
0x1736…1756               Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x000e, t01=0x015e}
0x1756…176c               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x000e, t01=0x017e}
0x176c…177e (15, 0, 398)  Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x000f, t01=0x0004}
0x177e…17a6               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DIS:EN DISC NOT OPERABLE«, t00=0x000f, t01=0x0016}
0x17a6…17d4               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,/7FFF RESET REQUEST ERROR BIT«, t00=0x000f, t01=0x003e}
0x17d4…17e8               Head {h00=0x0010, h01=0x0050, text=» ANRS A2,A6 «, t00=0x000f, t01=0x006c}
0x17e8…17f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0080}
0x17f2…180a               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x000f, t01=0x008a}
0x180a…1830               Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x000f, t01=0x00a2}
0x1830…1860               Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTORD,A6 RESTORE INDEX AND ORDER«, t00=0x000f, t01=0x00c8}
0x1860…1878               Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTOR,A6 «, t00=0x000f, t01=0x00f8}
0x1878…188e               Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLNAM«, t00=0x000f, t01=0x0110}
0x188e…18a2               Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x000f, t01=0x0126}
0x18a2…18ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x013a}
0x18ae…18b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0146}
0x18b8…18d0               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x000f, t01=0x0150}
0x18d0…18e4               Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x000f, t01=0x0168}
0x18e4…18f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x017c}
0x18f0…18fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0188}
0x18fa…1912 (16, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0010, t01=0x0004}
0x1912…191c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001c}
0x191c…1932               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0010, t01=0x0026}
0x1932…1948               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0010, t01=0x003c}
0x1948…195e               Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x0010, t01=0x0052}
0x195e…1974               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0010, t01=0x0068}
0x1974…198a               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0010, t01=0x007e}
0x198a…1994               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0094}
0x1994…19b8               Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x0010, t01=0x009e}
0x19b8…19ce               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x00c2}
0x19ce…19e2               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0010, t01=0x00d8}
0x19e2…19f8               Head {h00=0x0012, h01=0x0050, text=» CM BUFFLG,A6 «, t00=0x0010, t01=0x00ec}
0x19f8…1a04               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0102}
0x1a04…1a0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010e}
0x1a0e…1a36               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOR,A6 INDEX AND ORDER «, t00=0x0010, t01=0x0118}
0x1a36…1a6a               Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES «, t00=0x0010, t01=0x0140}
0x1a6a…1a96               Head {h00=0x0028, h01=0x0050, text=» CMR A6 RESET TEMPORARY RETURN CODE «, t00=0x0010, t01=0x0174}
0x1a96…1aa8               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0011, t01=0x0010}
0x1aa8…1aca               Head {h00=0x001e, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX «, t00=0x0011, t01=0x0022}
0x1aca…1ad4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0044}
0x1ad4…1aea               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0011, t01=0x004e}
0x1aea…1af4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0064}
0x1af4…1b1e               Head {h00=0x0026, h01=0x0050, text=»*    CHECK IF OPEN OR CLOSE ORDER «, t00=0x0011, t01=0x006e}
0x1b1e…1b28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0098}
0x1b28…1b40               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x0011, t01=0x00a2}
0x1b40…1b54               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x0011, t01=0x00ba}
0x1b54…1b6c               Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x0011, t01=0x00ce}
0x1b6c…1b7e               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0011, t01=0x00e6}
0x1b7e…1ba4               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) FD:ORD NOT CLOSE ORDER«, t00=0x0011, t01=0x00f8}
0x1ba4…1bae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x011e}
0x1bae…1bbc               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0128}
0x1bbc…1bc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0136}
0x1bc6…1bd8               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0011, t01=0x0140}
0x1bd8…1bea               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0011, t01=0x0152}
0x1bea…1bfc               Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0011, t01=0x0164}
0x1bfc…1c0e               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0011, t01=0x0176}
0x1c0e…1c20               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0011, t01=0x0188}
0x1c20…1c2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x000a}
0x1c2a…1c62               Head {h00=0x0034, h01=0x0050, text=»*    CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0012, t01=0x0014}
0x1c62…1c98               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0012, t01=0x004c}
0x1c98…1ca2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0082}
0x1ca2…1cc8               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0012, t01=0x008c}
0x1cc8…1cf2               Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0012, t01=0x00b2}
0x1cf2…1d04               Head {h00=0x000e, h01=0x0050, text=» RF OPEN10«, t00=0x0012, t01=0x00dc}
0x1d04…1d0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ee}
0x1d0e…1d1c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00f8}
0x1d1c…1d26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0106}
0x1d26…1d36               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0012, t01=0x0110}
0x1d36…1d46               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0012, t01=0x0120}
0x1d46…1d56               Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0012, t01=0x0130}
0x1d56…1d66               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0012, t01=0x0140}
0x1d66…1d76               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0012, t01=0x0150}
0x1d76…1d80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0160}
0x1d80…1db8               Head {h00=0x0034, h01=0x0050, text=»*    OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0012, t01=0x016a}
0x1db8…1dee               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0013, t01=0x0012}
0x1dee…1df8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0048}
0x1df8…1e0a               Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0013, t01=0x0052}
0x1e0a…1e30               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0013, t01=0x0064}
0x1e30…1e5c               Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0013, t01=0x008a}
0x1e5c…1e66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b6}
0x1e66…1e7a               Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0013, t01=0x00c0}
0x1e7a…1eae               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0013, t01=0x00d4}
0x1eae…1ed4               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0013, t01=0x0108}
0x1ed4…1ede               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012e}
0x1ede…1f0c               Head {h00=0x002a, h01=0x0050, text=»*    WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0013, t01=0x0138}
0x1f0c…1f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0166}
0x1f16…1f42               Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0013, t01=0x0170}
0x1f42…1f6e               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0014, t01=0x000c}
0x1f6e…1f8e               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0014, t01=0x0038}
0x1f8e…1faa               Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0014, t01=0x0058}
0x1faa…1fdc               Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0014, t01=0x0074}
0x1fdc…1ff4               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0014, t01=0x00a6}
0x1ff4…1ffe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00be}
0x1ffe…2012               Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0014, t01=0x00c8}
0x2012…2032               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0014, t01=0x00dc}
0x2032…2062               Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0014, t01=0x00fc}
0x2062…2080               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0014, t01=0x012c}
0x2080…20ac               Head {h00=0x0028, h01=0x0050, text=» RF DIS:EN PERFORM TENDIO AND TDISP «, t00=0x0014, t01=0x014a}
0x20ac…20b8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0176}
0x20b8…20c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0182}
0x20c2…20d0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x018c}
0x20d0…20da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000a}
0x20da…2104               Head {h00=0x0026, h01=0x0050, text=»*  PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x0015, t01=0x0014}
0x2104…210e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x003e}
0x210e…2122               Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x0015, t01=0x0048}
0x2122…213a               Head {h00=0x0014, h01=0x0050, text=» LC A2,DIXTAB,A3«, t00=0x0015, t01=0x005c}
0x213a…216a               Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK «, t00=0x0015, t01=0x0074}
0x216a…2174               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a4}
0x2174…218c               Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0015, t01=0x00ae}
0x218c…21a4               Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTLAB,A6«, t00=0x0015, t01=0x00c6}
0x21a4…21d0               Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM«, t00=0x0015, t01=0x00de}
0x21d0…21dc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x010a}
0x21dc…21e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0116}
0x21e6…220a               Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x0015, t01=0x0120}
0x220a…2214               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0144}
0x2214…222a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0015, t01=0x014e}
0x222a…2234               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0164}
0x2234…223e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016e}
0x223e…2250               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0015, t01=0x0178}
0x2250…2272               Head {h00=0x001e, h01=0x0050, text=» RB(Z) TESTST TEST STATUS «, t00=0x0015, t01=0x018a}
0x2272…227c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x001c}
0x227c…228e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0016, t01=0x0026}
0x228e…22a0               Head {h00=0x000e, h01=0x0050, text=» SUK A3,38«, t00=0x0016, t01=0x0038}
0x22a0…22c6               Head {h00=0x0022, h01=0x0050, text=» RF(N) INTEST READ/WRITE ORDER«, t00=0x0016, t01=0x004a}
0x22c6…22d8               Head {h00=0x000e, h01=0x0050, text=» SUK A3,18«, t00=0x0016, t01=0x0070}
0x22d8…22fa               Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x0016, t01=0x0082}
0x22fa…2306               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00a4}
0x2306…2310               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b0}
0x2310…2322               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0016, t01=0x00ba}
0x2322…2334               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x00cc}
0x2334…2354               Head {h00=0x001c, h01=0x0050, text=» RF(Z) INTEST BASIC READ«, t00=0x0016, t01=0x00de}
0x2354…2366               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x00fe}
0x2366…238c               Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL READ «, t00=0x0016, t01=0x0110}
0x238c…239e               Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0016, t01=0x0136}
0x239e…23c0               Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTEST BASIC WRITE «, t00=0x0016, t01=0x0148}
0x23c0…23d2               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x016a}
0x23d2…23f8               Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL WRITE«, t00=0x0016, t01=0x017c}
0x23f8…240a               Head {h00=0x000e, h01=0x0050, text=» SUK A3,32«, t00=0x0017, t01=0x0012}
0x240a…2434               Head {h00=0x0026, h01=0x0050, text=» RF(N) INTEST PHYSICAL READ/WRITE «, t00=0x0017, t01=0x0024}
0x2434…2446               Head {h00=0x000e, h01=0x0050, text=» SUK A3,11«, t00=0x0017, t01=0x004e}
0x2446…2462               Head {h00=0x0018, h01=0x0050, text=» RF(Z) IBMCHK REWIND«, t00=0x0017, t01=0x0060}
0x2462…2474               Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x0017, t01=0x007c}
0x2474…2496               Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x0017, t01=0x008e}
0x2496…24a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00b0}
0x24a2…24ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00bc}
0x24ac…24c0               Head {h00=0x0010, h01=0x0050, text=»IBMCHK EQU *«, t00=0x0017, t01=0x00c6}
0x24c0…24d8               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0017, t01=0x00da}
0x24d8…24f0               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x0017, t01=0x00f2}
0x24f0…251a               Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) IBMDSK IBM DISC HANDLING «, t00=0x0017, t01=0x010a}
0x251a…2526               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0134}
0x2526…2530               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0140}
0x2530…2544               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=0 «, t00=0x0017, t01=0x014a}
0x2544…2556               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0017, t01=0x015e}
0x2556…257c               Head {h00=0x0022, h01=0x0050, text=» ABL IBMDSK IBM DISC HANDLING «, t00=0x0017, t01=0x0170}
0x257c…2588               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0008}
0x2588…2592               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0014}
0x2592…25a8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0018, t01=0x001e}
0x25a8…25b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0034}
0x25b2…25bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x003e}
0x25bc…25e4               Head {h00=0x0024, h01=0x0050, text=»REQERR ABL DISIOE REQUEST ERROR «, t00=0x0018, t01=0x0048}
0x25e4…25ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0070}
0x25ee…2622               Head {h00=0x0030, h01=0x0050, text=»INCLEN EQU * INCORRECT REQUESTED LENGTH EXIT«, t00=0x0018, t01=0x007a}
0x2622…2644               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8008 RETURN CODE«, t00=0x0018, t01=0x00ae}
0x2644…264e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d0}
0x264e…2662               Head {h00=0x0010, h01=0x0050, text=»DIS:EN EQU *«, t00=0x0018, t01=0x00da}
0x2662…2694               Head {h00=0x002e, h01=0x0050, text=» ABL DISEND PERFORM TENDIO AND GO TO TDISP«, t00=0x0018, t01=0x00ee}
0x2694…269e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0120}
0x269e…26b4               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0018, t01=0x012a}
0x26b4…26be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0140}
0x26be…26de               Head {h00=0x001c, h01=0x0050, text=»* INPUT PARAMETER CHECK «, t00=0x0018, t01=0x014a}
0x26de…26e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x016a}
0x26e8…26fc               Head {h00=0x0010, h01=0x0050, text=»INTEST EQU *«, t00=0x0018, t01=0x0174}
0x26fc…2714               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0018, t01=0x0188}
0x2714…2746               Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0019, t01=0x0010}
0x2746…2758               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0019, t01=0x0042}
0x2758…2780               Head {h00=0x0024, h01=0x0050, text=» RB(NZ) DIS:EN NEW VOLUME LOADED«, t00=0x0019, t01=0x0054}
0x2780…278c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x007c}
0x278c…2796               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0088}
0x2796…27ae               Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBRL,A8 «, t00=0x0019, t01=0x0092}
0x27ae…27e4               Head {h00=0x0032, h01=0x0050, text=» RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x00aa}
0x27e4…2810               Head {h00=0x0028, h01=0x0050, text=» SRC A3,7 NUMBER OF PHYSICAL SECTORS«, t00=0x0019, t01=0x00e0}
0x2810…2846               Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x010c}
0x2846…285c               Head {h00=0x0012, h01=0x0050, text=» CWK A3,/01FF «, t00=0x0019, t01=0x0142}
0x285c…2892               Head {h00=0x0032, h01=0x0050, text=» RB(G) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x0158}
0x2892…28bc               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x0019, t01=0x018e}
0x28bc…28c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0028}
0x28c6…28de               Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x001a, t01=0x0032}
0x28de…28f6               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x001a, t01=0x004a}
0x28f6…2916               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INTES5 IBM-DISC «, t00=0x001a, t01=0x0062}
0x2916…2922               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0082}
0x2922…292c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x008e}
0x292c…2940               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x001a, t01=0x0098}
0x2940…2952               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x001a, t01=0x00ac}
0x2952…298c               Head {h00=0x0036, h01=0x0050, text=» SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS«, t00=0x001a, t01=0x00be}
0x298c…29c2               Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x001a, t01=0x00f8}
0x29c2…29fc               Head {h00=0x0036, h01=0x0050, text=» SLL A2,1 TRANSFER TOSS-SEC. NO TOPHYSICAL SEC. NO«, t00=0x001a, t01=0x012e}
0x29fc…2a06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0168}
0x2a06…2a1c               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x001a, t01=0x0172}
0x2a1c…2a26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0188}
0x2a26…2a30 (27, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0004}
0x2a30…2a44               Head {h00=0x0010, h01=0x0050, text=»INTES5 EQU *«, t00=0x001b, t01=0x000e}
0x2a44…2a50               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0022}
0x2a50…2a7e               Head {h00=0x002a, h01=0x0050, text=» LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER«, t00=0x001b, t01=0x002e}
0x2a7e…2aa2               Head {h00=0x0020, h01=0x0050, text=» RB(N) REQERR REQUEST ERROR «, t00=0x001b, t01=0x005c}
0x2aa2…2aba               Head {h00=0x0014, h01=0x0050, text=» SUKL A4,MAXSEC «, t00=0x001b, t01=0x0080}
0x2aba…2ade               Head {h00=0x0020, h01=0x0050, text=» RB(NN) REQERR REQUEST ERROR«, t00=0x001b, t01=0x0098}
0x2ade…2af0               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x001b, t01=0x00bc}
0x2af0…2b16               Head {h00=0x0022, h01=0x0050, text=» RB(P) INCLEN INCORRECT LENGTH«, t00=0x001b, t01=0x00ce}
0x2b16…2b46               Head {h00=0x002c, h01=0x0050, text=» ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS «, t00=0x001b, t01=0x00f4}
0x2b46…2b7c               Head {h00=0x0032, h01=0x0050, text=» ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC NO«, t00=0x001b, t01=0x0124}
0x2b7c…2b9e               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBBA,A8 GET ECBBA «, t00=0x001b, t01=0x015a}
0x2b9e…2bce               Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTBA,A6 SAVE ECB BUFFER ADDRESS «, t00=0x001b, t01=0x017c}
0x2bce…2bd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001c}
0x2bd8…2bee               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001c, t01=0x0026}
0x2bee…2c00               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x001c, t01=0x003c}
0x2c00…2c14               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x001c, t01=0x004e}
0x2c14…2c4c               Head {h00=0x0034, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS«, t00=0x001c, t01=0x0062}
0x2c4c…2c58               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x009a}
0x2c58…2c62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a6}
0x2c62…2c78               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x001c, t01=0x00b0}
0x2c78…2c82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c6}
0x2c82…2ca6               Head {h00=0x0020, h01=0x0050, text=»*   MULTIPLE SECTOR IO ENTRY«, t00=0x001c, t01=0x00d0}
0x2ca6…2cb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f4}
0x2cb0…2cc4               Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x001c, t01=0x00fe}
0x2cc4…2cda               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001c, t01=0x0112}
0x2cda…2cee               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001c, t01=0x0128}
0x2cee…2d06               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWT:BF,A6«, t00=0x001c, t01=0x013c}
0x2d06…2d2e               Head {h00=0x0024, h01=0x0050, text=» ST A2,BUFFLG,A6 SET BUFFER FLAG«, t00=0x001c, t01=0x0154}
0x2d2e…2d3a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x017c}
0x2d3a…2d44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0188}
0x2d44…2d58 (29, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» LDKL A2,512«, t00=0x001d, t01=0x0004}
0x2d58…2d6a               Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x001d, t01=0x0018}
0x2d6a…2d7c               Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x001d, t01=0x002a}
0x2d7c…2da6               Head {h00=0x0026, h01=0x0050, text=» RF(NN) FD:005 FOUR PHYS. SEC. IO «, t00=0x001d, t01=0x003c}
0x2da6…2db0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0066}
0x2db0…2dca               Head {h00=0x0016, h01=0x0050, text=»FD:003 SUK A2,128 «, t00=0x001d, t01=0x0070}
0x2dca…2ddc               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001d, t01=0x008a}
0x2ddc…2dee               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001d, t01=0x009c}
0x2dee…2e04               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:003«, t00=0x001d, t01=0x00ae}
0x2e04…2e0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c4}
0x2e0e…2e22               Head {h00=0x0010, h01=0x0050, text=»FD:005 EQU *«, t00=0x001d, t01=0x00ce}
0x2e22…2e54               Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC«, t00=0x001d, t01=0x00e2}
0x2e54…2e80               Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO«, t00=0x001d, t01=0x0114}
0x2e80…2eb2               Head {h00=0x002e, h01=0x0050, text=» ST A3,DWTNOS,A6 UPDATE NUMBER OF SECTORS «, t00=0x001d, t01=0x0140}
0x2eb2…2ebc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0172}
0x2ebc…2ed4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001d, t01=0x017c}
0x2ed4…2ede (30, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0004}
0x2ede…2ee8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000e}
0x2ee8…2efe               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001e, t01=0x0018}
0x2efe…2f16               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x001e, t01=0x002e}
0x2f16…2f3c               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTBA,A6 BUFFER ADDRESS«, t00=0x001e, t01=0x0046}
0x2f3c…2f54               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:BF,A6«, t00=0x001e, t01=0x006c}
0x2f54…2f84               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA«, t00=0x001e, t01=0x0084}
0x2f84…2f96               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x001e, t01=0x00b4}
0x2f96…2fac               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:009«, t00=0x001e, t01=0x00c6}
0x2fac…2fe6               Head {h00=0x0036, h01=0x0050, text=» AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x001e, t01=0x00dc}
0x2fe6…2ffe               Head {h00=0x0014, h01=0x0050, text=» RF(N) FD:009 NO«, t00=0x001e, t01=0x0116}
0x2ffe…3008               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x012e}
0x3008…301e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x001e, t01=0x0138}
0x301e…3028               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014e}
0x3028…3032               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0158}
0x3032…3046               Head {h00=0x0010, h01=0x0050, text=»FD:007 EQU *«, t00=0x001e, t01=0x0162}
0x3046…3058               Head {h00=0x000e, h01=0x0050, text=» ECR A3,A2«, t00=0x001e, t01=0x0176}
0x3058…306c               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x001e, t01=0x0188}
0x306c…307e               Head {h00=0x000e, h01=0x0050, text=» SRL A3,2 «, t00=0x001f, t01=0x000c}
0x307e…3090               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x001f, t01=0x001e}
0x3090…30a2               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A3«, t00=0x001f, t01=0x0030}
0x30a2…30d8               Head {h00=0x0032, h01=0x0050, text=» SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x001f, t01=0x0042}
0x30d8…3104               Head {h00=0x0028, h01=0x0050, text=» ADK A1,/4 CREATE ONE MORE MMU ENTRY«, t00=0x001f, t01=0x0078}
0x3104…311e               Head {h00=0x0016, h01=0x0050, text=» SC A1,DWT:PA+2,A6«, t00=0x001f, t01=0x00a4}
0x311e…3134               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/FFF «, t00=0x001f, t01=0x00be}
0x3134…3146               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x00d4}
0x3146…3172               Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x001f, t01=0x00e6}
0x3172…317c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0112}
0x317c…31b8               Head {h00=0x0038, h01=0x0050, text=»FD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x001f, t01=0x011c}
0x31b8…31c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0158}
0x31c4…31ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0164}
0x31ce…31f0               Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 PREPARE FOR BIO «, t00=0x001f, t01=0x016e}
0x31f0…3208               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x001f, t01=0x0190}
0x3208…3222               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/3F ORDER «, t00=0x0020, t01=0x0018}
0x3222…3234               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0020, t01=0x0032}
0x3234…3254               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:060 BASIC READ«, t00=0x0020, t01=0x0044}
0x3254…3266               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0020, t01=0x0064}
0x3266…3288               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:015 BASIC WRITE «, t00=0x0020, t01=0x0076}
0x3288…329a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0020, t01=0x0098}
0x329a…32be               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:060 PHYSICAL READ «, t00=0x0020, t01=0x00aa}
0x32be…32d0               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0020, t01=0x00ce}
0x32d0…32f4               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:013 PHYSICAL WRITE«, t00=0x0020, t01=0x00e0}
0x32f4…3322               Head {h00=0x002a, h01=0x0050, text=» SUK A1,15 CHECK IF WRITE DELETED DATA«, t00=0x0020, t01=0x0104}
0x3322…332c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0132}
0x332c…3340               Head {h00=0x0010, h01=0x0050, text=»RQ:ERR EQU *«, t00=0x0020, t01=0x013c}
0x3340…3356               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) REQERR«, t00=0x0020, t01=0x0150}
0x3356…3360               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0166}
0x3360…3378               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0020, t01=0x0170}
0x3378…3382               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0188}
0x3382…33c2 (33, 0, 400)  Head {h00=0x003c, h01=0x0050, text=»*   WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS «, t00=0x0021, t01=0x0004}
0x33c2…33cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0044}
0x33cc…33f6               Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 WRITE DELETED DATA ORDER«, t00=0x0021, t01=0x004e}
0x33f6…3420               Head {h00=0x0026, h01=0x0050, text=»FD:013 EQU * PHYSICAL WRITE ORDER «, t00=0x0021, t01=0x0078}
0x3420…3432               Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0021, t01=0x00a2}
0x3432…3458               Head {h00=0x0022, h01=0x0050, text=»FD:015 EQU * BASIC WRITE ORDER«, t00=0x0021, t01=0x00b4}
0x3458…346a               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x00da}
0x346a…3490               Head {h00=0x0022, h01=0x0050, text=» CF A5,BIO PREPARATION FOR CIO«, t00=0x0021, t01=0x00ec}
0x3490…349a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0112}
0x349a…34b0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x011c}
0x34b0…34c4               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0021, t01=0x0132}
0x34c4…34dc               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0021, t01=0x0146}
0x34dc…34f4               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0021, t01=0x015e}
0x34f4…3512               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0021, t01=0x0176}
0x3512…351e (34, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0004}
0x351e…3528               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0010}
0x3528…353e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x001a}
0x353e…3556               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0022, t01=0x0030}
0x3556…358e               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0022, t01=0x0048}
0x358e…35ba               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA «, t00=0x0022, t01=0x0080}
0x35ba…35de               Head {h00=0x0020, h01=0x0050, text=» LDR A7,A3 REQUESTED LENGTH «, t00=0x0022, t01=0x00ac}
0x35de…35f8               Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x0022, t01=0x00d0}
0x35f8…3622               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0022, t01=0x00ea}
0x3622…3634               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0022, t01=0x0114}
0x3634…365e               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0022, t01=0x0126}
0x365e…368a               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0022, t01=0x0150}
0x368a…36c0               Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x0022, t01=0x017c}
0x36c0…36ea               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0023, t01=0x0022}
0x36ea…3708               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x0023, t01=0x004c}
0x3708…373c               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0023, t01=0x006a}
0x373c…3750               Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x0023, t01=0x009e}
0x3750…375c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00b2}
0x375c…3766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00be}
0x3766…377e               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0023, t01=0x00c8}
0x377e…3796               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0023, t01=0x00e0}
0x3796…37b4               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0023, t01=0x00f8}
0x37b4…37c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0116}
0x37c0…37ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0122}
0x37ca…37dc               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0023, t01=0x012c}
0x37dc…380c               Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x0023, t01=0x013e}
0x380c…3822               Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x0023, t01=0x016e}
0x3822…3836               Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x0023, t01=0x0184}
0x3836…3842               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0008}
0x3842…384c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0014}
0x384c…3864               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0024, t01=0x001e}
0x3864…386e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0036}
0x386e…3878               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0040}
0x3878…389e               Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x0024, t01=0x004a}
0x389e…38cc               Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/200 CHECK IF WRITE PROTECTED«, t00=0x0024, t01=0x0070}
0x38cc…38e2               Head {h00=0x0012, h01=0x0050, text=» RF(Z) FD:020 «, t00=0x0024, t01=0x009e}
0x38e2…3904               Head {h00=0x001e, h01=0x0050, text=» LDK A3,/40 INDICATE ERROR«, t00=0x0024, t01=0x00b4}
0x3904…3934               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0024, t01=0x00d6}
0x3934…3948               Head {h00=0x0010, h01=0x0050, text=»FD:020 EQU *«, t00=0x0024, t01=0x0106}
0x3948…3966               Head {h00=0x001a, h01=0x0050, text=» RF FD:100 GOTO FDMSIO«, t00=0x0024, t01=0x011a}
0x3966…3970               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0138}
0x3970…3988               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0024, t01=0x0142}
0x3988…3992               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015a}
0x3992…39ac               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0024, t01=0x0164}
0x39ac…39c6               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0024, t01=0x017e}
0x39c6…39e0               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x0025, t01=0x0008}
0x39e0…39fa               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0025, t01=0x0022}
0x39fa…3a14               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0025, t01=0x003c}
0x3a14…3a1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0056}
0x3a1e…3a36               Head {h00=0x0014, h01=0x0050, text=»FD:060 CF A5,BIO«, t00=0x0025, t01=0x0060}
0x3a36…3a40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0078}
0x3a40…3a56               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x0082}
0x3a56…3a6a               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0025, t01=0x0098}
0x3a6a…3a82               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0025, t01=0x00ac}
0x3a82…3a9a               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0025, t01=0x00c4}
0x3a9a…3aba               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:070 TOSS DISC «, t00=0x0025, t01=0x00dc}
0x3aba…3ae4               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0025, t01=0x00fc}
0x3ae4…3b18               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0025, t01=0x0126}
0x3b18…3b24               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x015a}
0x3b24…3b2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0166}
0x3b2e…3b42               Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0025, t01=0x0170}
0x3b42…3b58               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x0184}
0x3b58…3b6c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0026, t01=0x000a}
0x3b6c…3b84               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:LA,A6«, t00=0x0026, t01=0x001e}
0x3b84…3bb0               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:080 BUFFER IN SYSTEM AREA «, t00=0x0026, t01=0x0036}
0x3bb0…3bda               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0026, t01=0x0062}
0x3bda…3c0e               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0026, t01=0x008c}
0x3c0e…3c1a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00c0}
0x3c1a…3c24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00cc}
0x3c24…3c3a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0026, t01=0x00d6}
0x3c3a…3c4c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0026, t01=0x00ec}
0x3c4c…3c64               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+CHAN=0«, t00=0x0026, t01=0x00fe}
0x3c64…3c8e               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0026, t01=0x0116}
0x3c8e…3cc2               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0026, t01=0x0140}
0x3cc2…3cce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0174}
0x3cce…3cd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0180}
0x3cd8…3cec               Head {h00=0x0010, h01=0x0050, text=»FD:080 EQU *«, t00=0x0026, t01=0x018a}
0x3cec…3d0e               Head {h00=0x001e, h01=0x0050, text=» CF A5,FD:REA PERFORM READ«, t00=0x0027, t01=0x000e}
0x3d0e…3d18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0030}
0x3d18…3d30               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0027, t01=0x003a}
0x3d30…3d48               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0027, t01=0x0052}
0x3d48…3d66               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:090 NOT IBM «, t00=0x0027, t01=0x006a}
0x3d66…3d72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0088}
0x3d72…3d7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0094}
0x3d7c…3d8e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0027, t01=0x009e}
0x3d8e…3da4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0027, t01=0x00b0}
0x3da4…3dd0               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS«, t00=0x0027, t01=0x00c6}
0x3dd0…3ddc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00f2}
0x3ddc…3de6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00fe}
0x3de6…3df8               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0027, t01=0x0108}
0x3df8…3e18               Head {h00=0x001c, h01=0x0050, text=» LD A7,DWTRL,A6 REQ. LEN«, t00=0x0027, t01=0x011a}
0x3e18…3e2c               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0027, t01=0x013a}
0x3e2c…3e40               Head {h00=0x0010, h01=0x0050, text=»FD:090 EQU *«, t00=0x0027, t01=0x014e}
0x3e40…3e4c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0162}
0x3e4c…3e56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x016e}
0x3e56…3e6e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0027, t01=0x0178}
0x3e6e…3e78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0190}
0x3e78…3e82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x000a}
0x3e82…3e98               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0028, t01=0x0014}
0x3e98…3eac               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0028, t01=0x002a}
0x3eac…3ec4               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0028, t01=0x003e}
0x3ec4…3edc               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0028, t01=0x0056}
0x3edc…3efc               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:100 TOSS DISC «, t00=0x0028, t01=0x006e}
0x3efc…3f08               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x008e}
0x3f08…3f12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009a}
0x3f12…3f28               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0028, t01=0x00a4}
0x3f28…3f40               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0028, t01=0x00ba}
0x3f40…3f78               Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0028, t01=0x00d2}
0x3f78…3fa4               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:100 BUFFER IN SYSTEM AREA «, t00=0x0028, t01=0x010a}
0x3fa4…3fcc               Head {h00=0x0024, h01=0x0050, text=» LD A7,DWTRL,A6 REQUESTED LENGTH«, t00=0x0028, t01=0x0136}
0x3fcc…3ff8               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,BUF GET DWT BUFFER ADDRESS «, t00=0x0028, t01=0x015e}
0x3ff8…4022               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0028, t01=0x018a}
0x4022…404e               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0029, t01=0x0024}
0x404e…4084               Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x0029, t01=0x0050}
0x4084…40ae               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0029, t01=0x0086}
0x40ae…40ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00b0}
0x40ba…40ce               Head {h00=0x0010, h01=0x0050, text=»FD:100 EQU *«, t00=0x0029, t01=0x00bc}
0x40ce…40e2               Head {h00=0x0010, h01=0x0050, text=» ABL FDMSIO «, t00=0x0029, t01=0x00d0}
0x40e2…40ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e4}
0x40ec…4104               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0029, t01=0x00ee}
0x4104…410e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0106}
0x410e…411e               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0029, t01=0x0110}
0x411e…412e               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0029, t01=0x0120}
0x412e…413e               Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0029, t01=0x0130}
0x413e…414e               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0029, t01=0x0140}
0x414e…415e               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0029, t01=0x0150}
0x415e…4168               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0160}
0x4168…417a               Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0029, t01=0x016a}
0x417a…419c               Head {h00=0x001e, h01=0x0050, text=» ADK A3,0 CHECK ORDER CODE«, t00=0x0029, t01=0x017c}
0x419c…41be               Head {h00=0x001e, h01=0x0050, text=» RF(Z) UNLOAD UNLOAD ORDER«, t00=0x002a, t01=0x000e}
0x41be…41d0               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x002a, t01=0x0030}
0x41d0…41f0               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOAD00 LOAD ORDER«, t00=0x002a, t01=0x0042}
0x41f0…4202               Head {h00=0x000e, h01=0x0050, text=» ADK A3,17«, t00=0x002a, t01=0x0062}
0x4202…422a               Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RQ:ERR ERROR IF NOT LOCK«, t00=0x002a, t01=0x0074}
0x422a…4234               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x009c}
0x4234…4248               Head {h00=0x0010, h01=0x0050, text=»LOAD00 EQU *«, t00=0x002a, t01=0x00a6}
0x4248…4260               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x002a, t01=0x00ba}
0x4260…4276               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002a, t01=0x00d2}
0x4276…4288               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x002a, t01=0x00e8}
0x4288…42b2               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) LOA:80 ENDIO NOT OPERABLE «, t00=0x002a, t01=0x00fa}
0x42b2…42bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0124}
0x42bc…42d4               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002a, t01=0x012e}
0x42d4…42ec               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x002a, t01=0x0146}
0x42ec…430c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:70 TOSS DISC «, t00=0x002a, t01=0x015e}
0x430c…4318               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x017e}
0x4318…4322               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x018a}
0x4322…4334 (43, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002b, t01=0x0004}
0x4334…4358               Head {h00=0x0020, h01=0x0050, text=» LC A3,DWTOR+1,A6 GET ORDER «, t00=0x002b, t01=0x0016}
0x4358…436c               Head {h00=0x0010, h01=0x0050, text=» SUK A3,/26 «, t00=0x002b, t01=0x003a}
0x436c…438c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:65 LOCK ORDER«, t00=0x002b, t01=0x004e}
0x438c…43a2               Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x002b, t01=0x006e}
0x43a2…43c8               Head {h00=0x0022, h01=0x0050, text=» CF A5,LD:RC CHECK RETURN CODE«, t00=0x002b, t01=0x0084}
0x43c8…43e0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002b, t01=0x00aa}
0x43e0…43ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00c2}
0x43ea…4408               Head {h00=0x001a, h01=0x0050, text=»*  READ DATA SET LABEL«, t00=0x002b, t01=0x00cc}
0x4408…4412               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ea}
0x4412…4434               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW2,A8 SECTOR NO«, t00=0x002b, t01=0x00f4}
0x4434…4446               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x002b, t01=0x0116}
0x4446…446a               Head {h00=0x0020, h01=0x0050, text=» RF(N) LOA:85 REQUEST ERROR «, t00=0x002b, t01=0x0128}
0x446a…447c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x002b, t01=0x014c}
0x447c…44a0               Head {h00=0x0020, h01=0x0050, text=» RF(P) LOA:85 REQUEST ERROR «, t00=0x002b, t01=0x015e}
0x44a0…44b2               Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x002b, t01=0x0182}
0x44b2…44c8 (44, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x002c, t01=0x0004}
0x44c8…44e2               Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x002c, t01=0x001a}
0x44e2…44f6               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x002c, t01=0x0034}
0x44f6…450c               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002c, t01=0x0048}
0x450c…4530               Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x002c, t01=0x005e}
0x4530…4552               Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x002c, t01=0x0082}
0x4552…4586               Head {h00=0x0030, h01=0x0050, text=» ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL «, t00=0x002c, t01=0x00a4}
0x4586…459a               Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x002c, t01=0x00d8}
0x459a…45ae               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x002c, t01=0x00ec}
0x45ae…45ba               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002c, t01=0x0100}
0x45ba…45e8               Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW2,A8 DATA SET LABEL SECTOR«, t00=0x002c, t01=0x010c}
0x45e8…45fe               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x002c, t01=0x013a}
0x45fe…461e               Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x002c, t01=0x0150}
0x461e…463e               Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x002c, t01=0x0170}
0x463e…4670               Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x002c, t01=0x0190}
0x4670…4686               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002d, t01=0x0032}
0x4686…46ae               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x002d, t01=0x0048}
0x46ae…46c4               Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x002d, t01=0x0070}
0x46c4…46da               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002d, t01=0x0086}
0x46da…46ee               Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x002d, t01=0x009c}
0x46ee…4712               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x002d, t01=0x00b0}
0x4712…4728               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002d, t01=0x00d4}
0x4728…473e               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x002d, t01=0x00ea}
0x473e…4766               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x002d, t01=0x0100}
0x4766…478a               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x002d, t01=0x0128}
0x478a…47a0               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002d, t01=0x014c}
0x47a0…47ea               Head {h00=0x0046, h01=0x0050, text=» INH  INHIBIT INTERRUPTS                                  INHIBIT «, t00=0x002d, t01=0x0162}
0x47ea…4800               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x002e, t01=0x001c}
0x4800…4828               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x002e, t01=0x0032}
0x4828…4832               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x005a}
0x4832…4846               Head {h00=0x0010, h01=0x0050, text=»LOA:65 EQU *«, t00=0x002e, t01=0x0064}
0x4846…485c               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/400 «, t00=0x002e, t01=0x0078}
0x485c…488c               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x002e, t01=0x008e}
0x488c…4896               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00be}
0x4896…48aa               Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x002e, t01=0x00c8}
0x48aa…48b6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00dc}
0x48b6…48ce               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x002e, t01=0x00e8}
0x48ce…48f4               Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x002e, t01=0x0100}
0x48f4…4908               Head {h00=0x0010, h01=0x0050, text=»LOA:80 EQU *«, t00=0x002e, t01=0x0126}
0x4908…491c               Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x002e, t01=0x013a}
0x491c…4926               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x014e}
0x4926…4938               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002e, t01=0x0158}
0x4938…494c               Head {h00=0x0010, h01=0x0050, text=»LOA:85 EQU *«, t00=0x002e, t01=0x016a}
0x494c…496e               Head {h00=0x001e, h01=0x0050, text=» LDK A1,/80 REQUEST ERROR «, t00=0x002e, t01=0x017e}
0x496e…499e               Head {h00=0x002c, h01=0x0050, text=» SCR A1,A6 UPDATE TEMPORARY RETURN CODE «, t00=0x002f, t01=0x0010}
0x499e…49aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0040}
0x49aa…49b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x004c}
0x49b4…49cc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002f, t01=0x0056}
0x49cc…49d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x006e}
0x49d6…49e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0078}
0x49e0…49f8               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002f, t01=0x0082}
0x49f8…4a02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x009a}
0x4a02…4a1c               Head {h00=0x0016, h01=0x0050, text=»*  ERROR , UNLOCK «, t00=0x002f, t01=0x00a4}
0x4a1c…4a26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00be}
0x4a26…4a3a               Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x002f, t01=0x00c8}
0x4a3a…4a4c               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x002f, t01=0x00dc}
0x4a4c…4a6e               Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x002f, t01=0x00ee}
0x4a6e…4a88               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x002f, t01=0x0110}
0x4a88…4a9e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002f, t01=0x012a}
0x4a9e…4ab0               Head {h00=0x000e, h01=0x0050, text=» RB LOA:80«, t00=0x002f, t01=0x0140}
0x4ab0…4aba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0152}
0x4aba…4ad8               Head {h00=0x001a, h01=0x0050, text=»*   LD:RC  SUBROUTINE «, t00=0x002f, t01=0x015c}
0x4ad8…4ae2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x017a}
0x4ae2…4af6               Head {h00=0x0010, h01=0x0050, text=»LD:RC EQU * «, t00=0x002f, t01=0x0184}
0x4af6…4b16               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x0030, t01=0x0008}
0x4b16…4b2c               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x0030, t01=0x0028}
0x4b2c…4b56               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0030, t01=0x003e}
0x4b56…4b66               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0030, t01=0x0068}
0x4b66…4b72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0078}
0x4b72…4b7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0084}
0x4b7c…4b94               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0030, t01=0x008e}
0x4b94…4b9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00a6}
0x4b9e…4bb0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00b0}
0x4bb0…4bc2               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x00c2}
0x4bc2…4bd4               Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0030, t01=0x00d4}
0x4bd4…4be6               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x00e6}
0x4be6…4bf8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00f8}
0x4bf8…4c02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010a}
0x4c02…4c16               Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0030, t01=0x0114}
0x4c16…4c28               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0030, t01=0x0128}
0x4c28…4c32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013a}
0x4c32…4c4c               Head {h00=0x0016, h01=0x0050, text=»*    DATA SET OPEN«, t00=0x0030, t01=0x0144}
0x4c4c…4c56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015e}
0x4c56…4c78               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0030, t01=0x0168}
0x4c78…4c9c               Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0030, t01=0x018a}
0x4c9c…4cba               Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0031, t01=0x001e}
0x4cba…4cf2               Head {h00=0x0034, h01=0x0050, text=» ST A7,12,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0031, t01=0x003c}
0x4cf2…4cfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0074}
0x4cfc…4d2c               Head {h00=0x002c, h01=0x0050, text=»*  READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0031, t01=0x007e}
0x4d2c…4d36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ae}
0x4d36…4d5a               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0031, t01=0x00b8}
0x4d5a…4d84               Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0031, t01=0x00dc}
0x4d84…4dac               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0031, t01=0x0106}
0x4dac…4db8               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0031, t01=0x012e}
0x4db8…4dc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x013a}
0x4dc2…4e02               Head {h00=0x003c, h01=0x0050, text=»*  TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0031, t01=0x0144}
0x4e02…4e0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0184}
0x4e0c…4e2e               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0031, t01=0x018e}
0x4e2e…4e38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0020}
0x4e38…4e54               Head {h00=0x0018, h01=0x0050, text=»*  DIVIDE EOD BY 26 «, t00=0x0032, t01=0x002a}
0x4e54…4e5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0046}
0x4e5e…4e70               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0032, t01=0x0050}
0x4e70…4e88               Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0032, t01=0x0062}
0x4e88…4e9e               Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0032, t01=0x007a}
0x4e9e…4eb0               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0032, t01=0x0090}
0x4eb0…4ec2               Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0032, t01=0x00a2}
0x4ec2…4ecc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b4}
0x4ecc…4ee4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0032, t01=0x00be}
0x4ee4…4eee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00d6}
0x4eee…4ef8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e0}
0x4ef8…4f10               Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0032, t01=0x00ea}
0x4f10…4f1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0102}
0x4f1a…4f3a               Head {h00=0x001c, h01=0x0050, text=»*   A1 = BINARY TRACK NO«, t00=0x0032, t01=0x010c}
0x4f3a…4f68               Head {h00=0x002a, h01=0x0050, text=»*   A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0032, t01=0x012c}
0x4f68…4f72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x015a}
0x4f72…4f9e               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0032, t01=0x0164}
0x4f9e…4fca               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0032, t01=0x0190}
0x4fca…4fdc               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0033, t01=0x002c}
0x4fdc…4fee               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x003e}
0x4fee…500a               Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0033, t01=0x0050}
0x500a…502c               Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0033, t01=0x006c}
0x502c…5044               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0033, t01=0x008e}
0x5044…5070               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0033, t01=0x00a6}
0x5070…5082               Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0033, t01=0x00d2}
0x5082…50a4               Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0033, t01=0x00e4}
0x50a4…50ee               Head {h00=0x0046, h01=0x0050, text=» INH  INHIBIT INTERRUPTS                                  INHIBIT «, t00=0x0033, t01=0x0106}
0x50ee…50f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0150}
0x50f8…5118               Head {h00=0x001c, h01=0x0050, text=»*  WRITE DATA SET LABEL «, t00=0x0033, t01=0x015a}
0x5118…5122               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x017a}
0x5122…5146               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0033, t01=0x0184}
0x5146…5166               Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0034, t01=0x0018}
0x5166…5192               Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0034, t01=0x0038}
0x5192…51ba               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0034, t01=0x0064}
0x51ba…51d0               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0034, t01=0x008c}
0x51d0…51f2               Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0034, t01=0x00a2}
0x51f2…51fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00c4}
0x51fc…5214               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0034, t01=0x00ce}
0x5214…521e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e6}
0x521e…5232               Head {h00=0x0010, h01=0x0050, text=»*    UNLOCK «, t00=0x0034, t01=0x00f0}
0x5232…523c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0104}
0x523c…5248               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x010e}
0x5248…525c               Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0034, t01=0x011a}
0x525c…5276               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0034, t01=0x012e}
0x5276…528c               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x0148}
0x528c…529e               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x015e}
0x529e…52c2               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) LOA:80 NOT OPERABLE «, t00=0x0034, t01=0x0170}
0x52c2…52e4 (53, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» C1 A2,DWTA3,A6 INDEX MASK«, t00=0x0035, t01=0x0004}
0x52e4…5314               Head {h00=0x002c, h01=0x0050, text=» ANS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0035, t01=0x0026}
0x5314…532e               Head {h00=0x0016, h01=0x0050, text=» RB LOA:80 END:IO «, t00=0x0035, t01=0x0056}
0x532e…5338               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0070}
0x5338…534a               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0035, t01=0x007a}
0x534a…5354               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x008c}
0x5354…5378               Head {h00=0x0020, h01=0x0050, text=»*   UNLOAD RETURN CODE CHECK«, t00=0x0035, t01=0x0096}
0x5378…5382               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ba}
0x5382…5396               Head {h00=0x0010, h01=0x0050, text=»UNL:RC EQU *«, t00=0x0035, t01=0x00c4}
0x5396…53ac               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/207 «, t00=0x0035, t01=0x00d8}
0x53ac…53d0               Head {h00=0x0020, h01=0x0050, text=» RF(Z) RTN:A5 NO RETURN CODE«, t00=0x0035, t01=0x00ee}
0x53d0…53e6               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/200 «, t00=0x0035, t01=0x0112}
0x53e6…5410               Head {h00=0x0026, h01=0x0050, text=» RF(Z) RTN:A5 NOT WRITE PROTECTED «, t00=0x0035, t01=0x0128}
0x5410…5426               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0035, t01=0x0152}
0x5426…544a               Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0035, t01=0x0168}
0x544a…5468               Head {h00=0x001a, h01=0x0050, text=» RF(Z) RTN:A5 NOT OPEN«, t00=0x0035, t01=0x018c}
0x5468…547c               Head {h00=0x0010, h01=0x0050, text=» LDK A3,/40 «, t00=0x0036, t01=0x001a}
0x547c…54ac               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0036, t01=0x002e}
0x54ac…54c0               Head {h00=0x0010, h01=0x0050, text=»RTN:A5 EQU *«, t00=0x0036, t01=0x005e}
0x54c0…54d0               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0036, t01=0x0072}
0x54d0…54da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0082}
0x54da…54f2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0036, t01=0x008c}
0x54f2…54fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00a4}
0x54fc…5506               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00ae}
0x5506…5532               Head {h00=0x0028, h01=0x0050, text=»IBMDSK EQU * IBM DISK HANDLING ENTRY«, t00=0x0036, t01=0x00b8}
0x5532…5544               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0036, t01=0x00e4}
0x5544…5576               Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0036, t01=0x00f6}
0x5576…5588               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0036, t01=0x0128}
0x5588…55b2               Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) END:IO NEW VOLUME LOADED «, t00=0x0036, t01=0x013a}
0x55b2…55d0               Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0036, t01=0x0164}
0x55d0…55f4               Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0036, t01=0x0182}
0x55f4…561a               Head {h00=0x0022, h01=0x0050, text=» RF(Z) FD:DIS NOT OPEN, ERROR «, t00=0x0037, t01=0x0016}
0x561a…563e               Head {h00=0x0020, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER CODE«, t00=0x0037, t01=0x003c}
0x563e…5650               Head {h00=0x000e, h01=0x0050, text=» SUK A1,49«, t00=0x0037, t01=0x0060}
0x5650…5672               Head {h00=0x001e, h01=0x0050, text=» RF(Z) REWIND REWIND FILE «, t00=0x0037, t01=0x0072}
0x5672…56a0               Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBRL,A8 CHECK REQUESTED LENGTH«, t00=0x0037, t01=0x0094}
0x56a0…56b6               Head {h00=0x0012, h01=0x0050, text=» SUK A3,SECLEN«, t00=0x0037, t01=0x00c2}
0x56b6…56de               Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) INCLEN INCORRECT LENGTH«, t00=0x0037, t01=0x00d8}
0x56de…56f0               Head {h00=0x000e, h01=0x0050, text=» ADK A1,43«, t00=0x0037, t01=0x0100}
0x56f0…5718               Head {h00=0x0024, h01=0x0050, text=» RF(Z) SQWRITE SEQUENTIAL WRITE «, t00=0x0037, t01=0x0112}
0x5718…572a               Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0037, t01=0x013a}
0x572a…575e               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FD:DIS ERROR IF NOT SEQUENTIAL READ «, t00=0x0037, t01=0x014c}
0x575e…5768               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0180}
0x5768…5780               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0037, t01=0x018a}
0x5780…578a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0012}
0x578a…57a6               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x001c}
0x57a6…57c2               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0038, t01=0x0038}
0x57c2…57de               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x0054}
0x57de…57e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0070}
0x57e8…581a               Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0038, t01=0x007a}
0x581a…5832               Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0038, t01=0x00ac}
0x5832…584a               Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0038, t01=0x00c4}
0x584a…5876               Head {h00=0x0028, h01=0x0050, text=» ST A3,ECBCW2,A8 STORE CRN+1 IN ECB «, t00=0x0038, t01=0x00dc}
0x5876…588c               Head {h00=0x0012, h01=0x0050, text=» CWK A3,MAXIBM«, t00=0x0038, t01=0x0108}
0x588c…58b0               Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x0038, t01=0x011e}
0x58b0…58c2               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0038, t01=0x0142}
0x58c2…58e4               Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0038, t01=0x0154}
0x58e4…58fe               Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 BIO READ«, t00=0x0038, t01=0x0176}
0x58fe…5912               Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x0038, t01=0x0190}
0x5912…5948               Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0039, t01=0x0014}
0x5948…5952               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x004a}
0x5952…5968               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0039, t01=0x0054}
0x5968…5994               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0039, t01=0x006a}
0x5994…59a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0096}
0x59a0…59aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00a2}
0x59aa…59bc               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0039, t01=0x00ac}
0x59bc…59d2               Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x0039, t01=0x00be}
0x59d2…59fe               Head {h00=0x0028, h01=0x0050, text=» CF A5,ASC:01 TRANSFORM TO ASCII DK1«, t00=0x0039, t01=0x00d4}
0x59fe…5a08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0100}
0x5a08…5a20               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0039, t01=0x010a}
0x5a20…5a2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0122}
0x5a2a…5a34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x012c}
0x5a34…5a4a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0039, t01=0x0136}
0x5a4a…5a76               Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0039, t01=0x014c}
0x5a76…5a9c               Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x0039, t01=0x0178}
0x5a9c…5ac0               Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x003a, t01=0x000e}
0x5ac0…5aea               Head {h00=0x0026, h01=0x0050, text=» LDKL A1,BUF DRIVER BUFFER ADDRESS«, t00=0x003a, t01=0x0032}
0x5aea…5b14               Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTUEC,A6 USER ECB ADDRESS «, t00=0x003a, t01=0x005c}
0x5b14…5b40               Head {h00=0x0028, h01=0x0050, text=» EL A2,ECBBA,A2 USER BUFFER ADDRESS «, t00=0x003a, t01=0x0086}
0x5b40…5b5e               Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x003a, t01=0x00b2}
0x5b5e…5b8a               Head {h00=0x0028, h01=0x0050, text=» MVSU A7 MOVE SECTOR TO USER BUFFER «, t00=0x003a, t01=0x00d0}
0x5b8a…5bba               Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x003a, t01=0x00fc}
0x5bba…5bc6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x012c}
0x5bc6…5bd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0138}
0x5bd0…5be2               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003a, t01=0x0142}
0x5be2…5bf8               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003a, t01=0x0154}
0x5bf8…5c0c               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003a, t01=0x016a}
0x5c0c…5c2a               Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x003a, t01=0x017e}
0x5c2a…5c34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x000c}
0x5c34…5c4c               Head {h00=0x0014, h01=0x0050, text=»*    END OF DATA«, t00=0x003b, t01=0x0016}
0x5c4c…5c56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x002e}
0x5c56…5c7e               Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x003b, t01=0x0038}
0x5c7e…5c90               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003b, t01=0x0060}
0x5c90…5c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0072}
0x5c9a…5cb2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003b, t01=0x007c}
0x5cb2…5cbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0094}
0x5cbc…5cd8               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003b, t01=0x009e}
0x5cd8…5cf4               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x003b, t01=0x00ba}
0x5cf4…5d10               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003b, t01=0x00d6}
0x5d10…5d1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f2}
0x5d1a…5d2e               Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x003b, t01=0x00fc}
0x5d2e…5d38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0110}
0x5d38…5d5a               Head {h00=0x001e, h01=0x0050, text=»*   CHECK IF END OF EXTENT«, t00=0x003b, t01=0x011a}
0x5d5a…5d64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x013c}
0x5d64…5d7a               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x003b, t01=0x0146}
0x5d7a…5da4               Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x003b, t01=0x015c}
0x5da4…5dd4               Head {h00=0x002c, h01=0x0050, text=» ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. «, t00=0x003b, t01=0x0186}
0x5dd4…5dea               Head {h00=0x0012, h01=0x0050, text=» CWK A7,MAXIBM«, t00=0x003c, t01=0x0026}
0x5dea…5e0e               Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x003c, t01=0x003c}
0x5e0e…5e22               Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x003c, t01=0x0060}
0x5e22…5e46               Head {h00=0x0020, h01=0x0050, text=» RF(G) ENDEOE END OF EXTENT «, t00=0x003c, t01=0x0074}
0x5e46…5e50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0098}
0x5e50…5e66               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003c, t01=0x00a2}
0x5e66…5e92               Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x003c, t01=0x00b8}
0x5e92…5eb8               Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x003c, t01=0x00e4}
0x5eb8…5edc               Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x003c, t01=0x010a}
0x5edc…5f06               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUEC,A6 USER ECB ADDRESS «, t00=0x003c, t01=0x012e}
0x5f06…5f32               Head {h00=0x0028, h01=0x0050, text=» EL A1,ECBBA,A1 USER BUFFER ADDRESS «, t00=0x003c, t01=0x0158}
0x5f32…5f5c               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,BUF DRIVER BUFFER ADDRESS«, t00=0x003c, t01=0x0184}
0x5f5c…5f7a               Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x003d, t01=0x001e}
0x5f7a…5fa8               Head {h00=0x002a, h01=0x0050, text=» MVUS A7 MOVE SECTOR TO DRIVER BUFFER «, t00=0x003d, t01=0x003c}
0x5fa8…5fd8               Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x003d, t01=0x006a}
0x5fd8…5fe4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x009a}
0x5fe4…5fee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00a6}
0x5fee…6000               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003d, t01=0x00b0}
0x6000…601c               Head {h00=0x0018, h01=0x0050, text=» LDK A4,5 BIO WRITE «, t00=0x003d, t01=0x00c2}
0x601c…6030               Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x003d, t01=0x00de}
0x6030…6046               Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x003d, t01=0x00f2}
0x6046…607a               Head {h00=0x0030, h01=0x0050, text=» CF A5,EBC:01 TRANSFORM AND MOVE TO BUF DK1 «, t00=0x003d, t01=0x0108}
0x607a…6084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x013c}
0x6084…609a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x003d, t01=0x0146}
0x609a…60a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x015c}
0x60a4…60ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0166}
0x60ae…60c4               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x003d, t01=0x0170}
0x60c4…60da               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/200 «, t00=0x003d, t01=0x0186}
0x60da…60f0               Head {h00=0x0012, h01=0x0050, text=» RF(Z) SQW:05 «, t00=0x003e, t01=0x000c}
0x60f0…6114               Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 WRITE PROTECTED «, t00=0x003e, t01=0x0022}
0x6114…6144               Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x003e, t01=0x0046}
0x6144…6158               Head {h00=0x0010, h01=0x0050, text=»SQW:05 EQU *«, t00=0x003e, t01=0x0076}
0x6158…616e               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003e, t01=0x008a}
0x616e…6182               Head {h00=0x0010, h01=0x0050, text=»SQW:10 EQU *«, t00=0x003e, t01=0x00a0}
0x6182…61b8               Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE «, t00=0x003e, t01=0x00b4}
0x61b8…61ce               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x003e, t01=0x00ea}
0x61ce…61fc               Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x003e, t01=0x0100}
0x61fc…6212               Head {h00=0x0012, h01=0x0050, text=» LDK A2,SECLEN«, t00=0x003e, t01=0x012e}
0x6212…6242               Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBEL,A8 UPDATE EFFECTIVE LENGTH «, t00=0x003e, t01=0x0144}
0x6242…6254               Head {h00=0x000e, h01=0x0050, text=» RF END:RC«, t00=0x003e, t01=0x0174}
0x6254…625e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0186}
0x625e…6272               Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x003e, t01=0x0190}
0x6272…6294               Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x003f, t01=0x0014}
0x6294…629e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0036}
0x629e…62b6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003f, t01=0x0040}
0x62b6…62c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0058}
0x62c0…62d2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0062}
0x62d2…62e4               Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003f, t01=0x0074}
0x62e4…62f6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0086}
0x62f6…6300               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0098}
0x6300…6314               Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003f, t01=0x00a2}
0x6314…6338               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x003f, t01=0x00b6}
0x6338…634e               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x003f, t01=0x00da}
0x634e…6362               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003f, t01=0x00f0}
0x6362…637a               Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x003f, t01=0x0104}
0x637a…6396               Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x003f, t01=0x011c}
0x6396…63ac               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003f, t01=0x0138}
0x63ac…63c0               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003f, t01=0x014e}
0x63c0…63da               Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x003f, t01=0x0162}
0x63da…63fa               Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x003f, t01=0x017c}
0x63fa…6418               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0040, t01=0x000c}
0x6418…642a               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0040, t01=0x002a}
0x642a…6436               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x003c}
0x6436…6440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0048}
0x6440…6458               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0040, t01=0x0052}
0x6458…6462               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x006a}
0x6462…647c               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0040, t01=0x0074}
0x647c…6496               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0040, t01=0x008e}
0x6496…64b0               Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x0040, t01=0x00a8}
0x64b0…64ca               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0040, t01=0x00c2}
0x64ca…64e4               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0040, t01=0x00dc}
0x64e4…64ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00f6}
0x64ee…64f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0100}
0x64f8…651c               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A2  BIO CONTENTS «, t00=0x0040, t01=0x010a}
0x651c…6550               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x0040, t01=0x012e}
0x6550…6576               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x0040, t01=0x0162}
0x6576…6580               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0188}
0x6580…6594 (65, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x0041, t01=0x0004}
0x6594…65a8               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0041, t01=0x0018}
0x65a8…65ca               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x0041, t01=0x002c}
0x65ca…65d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x004e}
0x65d6…65ea               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0041, t01=0x005a}
0x65ea…6610               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 INDICATOR WRITE MODE«, t00=0x0041, t01=0x006e}
0x6610…661c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0094}
0x661c…662e               Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x0041, t01=0x00a0}
0x662e…6638               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00b2}
0x6638…664c               Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x0041, t01=0x00bc}
0x664c…6660               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0041, t01=0x00d0}
0x6660…667c               Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 READ MODE «, t00=0x0041, t01=0x00e4}
0x667c…6688               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0100}
0x6688…669c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0041, t01=0x010c}
0x669c…66be               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS  READ«, t00=0x0041, t01=0x0120}
0x66be…66ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0142}
0x66ca…66de               Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x0041, t01=0x014e}
0x66de…66f2               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0041, t01=0x0162}
0x66f2…6718               Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x0041, t01=0x0176}
0x6718…6722               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x000c}
0x6722…673a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0042, t01=0x0016}
0x673a…6744               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x002e}
0x6744…674e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0038}
0x674e…6764               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0042, t01=0x0042}
0x6764…679a               Head {h00=0x0032, h01=0x0050, text=» LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO «, t00=0x0042, t01=0x0058}
0x679a…67c6               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:810 BUFFER IN SYSTEM AREA «, t00=0x0042, t01=0x008e}
0x67c6…67fa               Head {h00=0x0030, h01=0x0050, text=» LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS «, t00=0x0042, t01=0x00ba}
0x67fa…680c               Head {h00=0x000e, h01=0x0050, text=» ECR A7,A7«, t00=0x0042, t01=0x00ee}
0x680c…681e               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A7«, t00=0x0042, t01=0x0100}
0x681e…6832               Head {h00=0x0010, h01=0x0050, text=»FD:810 EQU *«, t00=0x0042, t01=0x0112}
0x6832…683e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0126}
0x683e…6848               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0132}
0x6848…685c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0042, t01=0x013c}
0x685c…686e               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0042, t01=0x0150}
0x686e…6892               Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x0042, t01=0x0162}
0x6892…68ba               Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x0042, t01=0x0186}
0x68ba…68c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x001e}
0x68c6…68da               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0043, t01=0x002a}
0x68da…68e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x003e}
0x68e4…68fc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0043, t01=0x0048}
0x68fc…6906               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0060}
0x6906…6938               Head {h00=0x002e, h01=0x0050, text=»*  PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x0043, t01=0x006a}
0x6938…6942               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x009c}
0x6942…6968               Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTRW,A6 INDICATE MODE «, t00=0x0043, t01=0x00a6}
0x6968…6980               Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x0043, t01=0x00cc}
0x6980…6992               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0043, t01=0x00e4}
0x6992…69b8               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x0043, t01=0x00f6}
0x69b8…69c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x011c}
0x69c4…69ee               Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x0043, t01=0x0128}
0x69ee…6a04               Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x0043, t01=0x0152}
0x6a04…6a34               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) T:DISP POST PROCESSING FLAG SET «, t00=0x0043, t01=0x0168}
0x6a34…6a68               Head {h00=0x0030, h01=0x0050, text=»FD:CIO EQU * LABEL USED FOR CHANGE OF CUADR «, t00=0x0044, t01=0x0008}
0x6a68…6a8a               Head {h00=0x001e, h01=0x0050, text=» CIO A2,1,CUADR CIO START «, t00=0x0044, t01=0x003c}
0x6a8a…6ab6               Head {h00=0x0028, h01=0x0050, text=» RF(3) END:30 DEVICE ADDRESS UNKNOWN«, t00=0x0044, t01=0x005e}
0x6ab6…6ac8               Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x0044, t01=0x008a}
0x6ac8…6ad2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x009c}
0x6ad2…6aea               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0044, t01=0x00a6}
0x6aea…6af4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00be}
0x6af4…6b22               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0044, t01=0x00c8}
0x6b22…6b2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00f6}
0x6b2c…6b6c               Head {h00=0x003c, h01=0x0050, text=»*  FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO  * «, t00=0x0044, t01=0x0100}
0x6b6c…6b9a               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0044, t01=0x0140}
0x6b9a…6bc8               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0044, t01=0x016e}
0x6bc8…6bd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x000c}
0x6bd2…6be6               Head {h00=0x0010, h01=0x0050, text=»FDMSIO EQU *«, t00=0x0045, t01=0x0016}
0x6be6…6c10               Head {h00=0x0026, h01=0x0050, text=» IM DWTCW2,A6 UPDATE SECTOR NUMBER«, t00=0x0045, t01=0x002a}
0x6c10…6c30               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x0045, t01=0x0054}
0x6c30…6c5a               Head {h00=0x0026, h01=0x0050, text=» ANK A1,/7F GET ERROR RETURN CODE «, t00=0x0045, t01=0x0074}
0x6c5a…6c70               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x0045, t01=0x009e}
0x6c70…6ca4               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE «, t00=0x0045, t01=0x00b4}
0x6ca4…6ccc               Head {h00=0x0024, h01=0x0050, text=» ADS A2,DWTCW2,A6 UPDATE DWTCW2 «, t00=0x0045, t01=0x00e8}
0x6ccc…6ce4               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTRL,A6 «, t00=0x0045, t01=0x0110}
0x6ce4…6d0a               Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x0045, t01=0x0128}
0x6d0a…6d22               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTNOS,A6«, t00=0x0045, t01=0x014e}
0x6d22…6d4a               Head {h00=0x0024, h01=0x0050, text=» RF(NP) END:RC LAST SECTOR DONE «, t00=0x0045, t01=0x0166}
0x6d4a…6d60               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0045, t01=0x018e}
0x6d60…6d8a               Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTBA,A6 GET BUFFER POINTER«, t00=0x0046, t01=0x0014}
0x6d8a…6db2               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 UPDATE BUFFER POINTER«, t00=0x0046, t01=0x003e}
0x6db2…6dca               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTBA,A6 «, t00=0x0046, t01=0x0066}
0x6dca…6df4               Head {h00=0x0026, h01=0x0050, text=» RF(N) FDMSI1 NOT PASSED 64K LIMIT«, t00=0x0046, t01=0x007e}
0x6df4…6e06               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0046, t01=0x00a8}
0x6e06…6e32               Head {h00=0x0028, h01=0x0050, text=» RF(NN) FDMSI1 NOT PASSED 64K LIMIT «, t00=0x0046, t01=0x00ba}
0x6e32…6e46               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/10 «, t00=0x0046, t01=0x00e6}
0x6e46…6e70               Head {h00=0x0026, h01=0x0050, text=» ADS A2,DWT:BF,A6 UPDATE BITS 0-1 «, t00=0x0046, t01=0x00fa}
0x6e70…6e84               Head {h00=0x0010, h01=0x0050, text=»FDMSI1 EQU *«, t00=0x0046, t01=0x0124}
0x6e84…6e90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0138}
0x6e90…6e9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0144}
0x6e9a…6eb0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0046, t01=0x014e}
0x6eb0…6ede               Head {h00=0x002a, h01=0x0050, text=» ADS A2,DWTBA,A6 UPDATE BUFFER POINTER«, t00=0x0046, t01=0x0164}
0x6ede…6eea (71, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0004}
0x6eea…6f20               Head {h00=0x0032, h01=0x0050, text=» ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO«, t00=0x0047, t01=0x0010}
0x6f20…6f2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0046}
0x6f2a…6f42               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0047, t01=0x0050}
0x6f42…6f4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0068}
0x6f4c…6f5e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x0072}
0x6f5e…6f70               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0047, t01=0x0084}
0x6f70…6f82               Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x0047, t01=0x0096}
0x6f82…6f94               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0047, t01=0x00a8}
0x6f94…6fa6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x00ba}
0x6fa6…6fb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00cc}
0x6fb0…6fc2               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0047, t01=0x00d6}
0x6fc2…6fea               Head {h00=0x0024, h01=0x0050, text=»ENDEOE EQU * END OF EXTENT EXIT «, t00=0x0047, t01=0x00e8}
0x6fea…700c               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/2000 RETURN CODE«, t00=0x0047, t01=0x0110}
0x700c…701e               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0047, t01=0x0132}
0x701e…702a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0144}
0x702a…7034               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0150}
0x7034…7048               Head {h00=0x0010, h01=0x0050, text=»END:RC EQU *«, t00=0x0047, t01=0x015a}
0x7048…7068               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x0047, t01=0x016e}
0x7068…707c               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0047, t01=0x018e}
0x707c…7092               Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0048, t01=0x0012}
0x7092…70aa               Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0048, t01=0x0028}
0x70aa…70b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0040}
0x70b4…70dc               Head {h00=0x0024, h01=0x0050, text=»END:30 EQU * CU ADDRESS UNKNOWN «, t00=0x0048, t01=0x004a}
0x70dc…70fa               Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x0048, t01=0x0072}
0x70fa…7128               Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTST,A6 INDICATE RECOVERY DONE«, t00=0x0048, t01=0x0090}
0x7128…713a               Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0048, t01=0x00be}
0x713a…7152               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0048, t01=0x00d0}
0x7152…715c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00e8}
0x715c…7178               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x00f2}
0x7178…7194               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0048, t01=0x010e}
0x7194…71b0               Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0048, t01=0x012a}
0x71b0…71cc               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0048, t01=0x0146}
0x71cc…71e8               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x0162}
0x71e8…71f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x017e}
0x71f2…7204               Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x0048, t01=0x0188}
0x7204…721a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0049, t01=0x000a}
0x721a…7244               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0049, t01=0x0020}
0x7244…7250               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x004a}
0x7250…725a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0056}
0x725a…7270               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0049, t01=0x0060}
0x7270…7296               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0049, t01=0x0076}
0x7296…72a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x009c}
0x72a2…72ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00a8}
0x72ac…72d0               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0049, t01=0x00b2}
0x72d0…72e4               Head {h00=0x0010, h01=0x0050, text=» CM DWTST,A6«, t00=0x0049, t01=0x00d6}
0x72e4…7306               Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0049, t01=0x00ea}
0x7306…7310               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x010c}
0x7310…731e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0116}
0x731e…7328               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0124}
0x7328…733e               Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0049, t01=0x012e}
0x733e…7348               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0144}
0x7348…7360               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0049, t01=0x014e}
0x7360…7382               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0049, t01=0x0166}
0x7382…7398               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0049, t01=0x0188}
0x7398…73be               Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x004a, t01=0x000e}
0x73be…73d0               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x004a, t01=0x0034}
0x73d0…73ec               Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x004a, t01=0x0046}
0x73ec…73fe               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x004a, t01=0x0062}
0x73fe…7418               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x004a, t01=0x0074}
0x7418…742e               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x004a, t01=0x008e}
0x742e…7448               Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x004a, t01=0x00a4}
0x7448…7452               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00be}
0x7452…7466               Head {h00=0x0010, h01=0x0050, text=»F:DISP EQU *«, t00=0x004a, t01=0x00c8}
0x7466…7478               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x004a, t01=0x00dc}
0x7478…7482               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ee}
0x7482…749e               Head {h00=0x0018, h01=0x0050, text=»*   TIME OUT ROUTINE«, t00=0x004a, t01=0x00f8}
0x749e…74a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0114}
0x74a8…74c0               Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x004a, t01=0x011e}
0x74c0…74d4               Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x004a, t01=0x0136}
0x74d4…74ec               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x004a, t01=0x014a}
0x74ec…750e               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x004a, t01=0x0162}
0x750e…7518               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0184}
0x7518…7552               Head {h00=0x0036, h01=0x0050, text=»FDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE«, t00=0x004a, t01=0x018e}
0x7552…7568               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004b, t01=0x0038}
0x7568…757c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x004b, t01=0x004e}
0x757c…75a4               Head {h00=0x0024, h01=0x0050, text=» CM BUFFLG,A6 RESET BUFFER FLAG «, t00=0x004b, t01=0x0062}
0x75a4…75b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x008a}
0x75b0…75ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0096}
0x75ba…75d2               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x004b, t01=0x00a0}
0x75d2…760a               Head {h00=0x0034, h01=0x0050, text=» IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR «, t00=0x004b, t01=0x00b8}
0x760a…7626               Head {h00=0x0018, h01=0x0050, text=» LDK A3,3 4 VOLUMES «, t00=0x004b, t01=0x00f0}
0x7626…7630               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x010c}
0x7630…7646               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x004b, t01=0x0116}
0x7646…7650               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x012c}
0x7650…765a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0136}
0x765a…7676               Head {h00=0x0018, h01=0x0050, text=»*  READ VOLUME NAME «, t00=0x004b, t01=0x0140}
0x7676…7680               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x015c}
0x7680…7694               Head {h00=0x0010, h01=0x0050, text=»FDONLD EQU *«, t00=0x004b, t01=0x0166}
0x7694…76bc               Head {h00=0x0024, h01=0x0050, text=» SC A3,DWTOR,A6 GET VOLUME NAME «, t00=0x004b, t01=0x017a}
0x76bc…76e6               Head {h00=0x0026, h01=0x0050, text=» LC A4,DIXTAB,A3 DRIVE INDEX MASK «, t00=0x004c, t01=0x0012}
0x76e6…7708               Head {h00=0x001e, h01=0x0050, text=» SC A4,DWTA3+1,A6 SAVE IT «, t00=0x004c, t01=0x003c}
0x7708…771e               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETCIO «, t00=0x004c, t01=0x005e}
0x771e…7732               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/14 «, t00=0x004c, t01=0x0074}
0x7732…774c               Head {h00=0x0016, h01=0x0050, text=» CF A5,FD:REA LOCK«, t00=0x004c, t01=0x0088}
0x774c…775e               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x004c, t01=0x00a2}
0x775e…777c               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON19 OPERABLE«, t00=0x004c, t01=0x00b4}
0x777c…779a               Head {h00=0x001a, h01=0x0050, text=» LDK A1,6 NOT OPERABLE«, t00=0x004c, t01=0x00d2}
0x779a…77c2               Head {h00=0x0024, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME«, t00=0x004c, t01=0x00f0}
0x77c2…77ec               Head {h00=0x0026, h01=0x0050, text=» RF FDON21 CONTINUE WITH NEXT DISC«, t00=0x004c, t01=0x0118}
0x77ec…77f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0142}
0x77f6…780a               Head {h00=0x0010, h01=0x0050, text=»FDON19 EQU *«, t00=0x004c, t01=0x014c}
0x780a…7820               Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x004c, t01=0x0160}
0x7820…784a               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/FBFF RESET IBM IND. BIT «, t00=0x004c, t01=0x0176}
0x784a…787a               Head {h00=0x002c, h01=0x0050, text=» ANRS A2,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x004d, t01=0x0010}
0x787a…788e               Head {h00=0x0010, h01=0x0050, text=»FDON21 EQU *«, t00=0x004d, t01=0x0040}
0x788e…78a0               Head {h00=0x000e, h01=0x0050, text=» LDK A2,/C«, t00=0x004d, t01=0x0054}
0x78a0…78bc               Head {h00=0x0018, h01=0x0050, text=» CF A5,FD:REA UNLOCK«, t00=0x004d, t01=0x0066}
0x78bc…78ce               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x004d, t01=0x0082}
0x78ce…78fe               Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. «, t00=0x004d, t01=0x0094}
0x78fe…7910               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004d, t01=0x00c4}
0x7910…7932               Head {h00=0x001e, h01=0x0050, text=» RB(NN) FDONLD NEXT VOLUME«, t00=0x004d, t01=0x00d6}
0x7932…7946               Head {h00=0x0010, h01=0x0050, text=» CM DWTOR,A6«, t00=0x004d, t01=0x00f8}
0x7946…7972               Head {h00=0x0028, h01=0x0050, text=» CM DWTST2,A6 INDICATE VOLUMES READ «, t00=0x004d, t01=0x010c}
0x7972…79a2               Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x004d, t01=0x0138}
0x79a2…79ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x0168}
0x79ae…79b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0174}
0x79b8…79ce               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x004d, t01=0x017e}
0x79ce…79d8 (78, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0004}
0x79d8…79e6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x000e}
0x79e6…79f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x001c}
0x79f0…7a2e               Head {h00=0x003a, h01=0x0050, text=»*    TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x004e, t01=0x0026}
0x7a2e…7a38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0064}
0x7a38…7a5e               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x004e, t01=0x006e}
0x7a5e…7a80               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x004e, t01=0x0094}
0x7a80…7a9a               Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x004e, t01=0x00b6}
0x7a9a…7ac2               Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x004e, t01=0x00d0}
0x7ac2…7ad6               Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x004e, t01=0x00f8}
0x7ad6…7ae0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x010c}
0x7ae0…7b1a               Head {h00=0x0036, h01=0x0050, text=»*    OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x004e, t01=0x0116}
0x7b1a…7b24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0150}
0x7b24…7b5a               Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x004e, t01=0x015a}
0x7b5a…7b84               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x004e, t01=0x0190}
0x7b84…7bac               Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x004f, t01=0x002a}
0x7bac…7bca               Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x004f, t01=0x0052}
0x7bca…7bf6               Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x004f, t01=0x0070}
0x7bf6…7c0a               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x004f, t01=0x009c}
0x7c0a…7c34               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x004f, t01=0x00b0}
0x7c34…7c3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00da}
0x7c3e…7c52               Head {h00=0x0010, h01=0x0050, text=»FDON23 EQU *«, t00=0x004f, t01=0x00e4}
0x7c52…7c5e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00f8}
0x7c5e…7c68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0104}
0x7c68…7c76               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x010e}
0x7c76…7c80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x011c}
0x7c80…7c96               Head {h00=0x0012, h01=0x0050, text=»*  LOCK DOORS «, t00=0x004f, t01=0x0126}
0x7c96…7ca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x013c}
0x7ca0…7cb2               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x004f, t01=0x0146}
0x7cb2…7cc6               Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x004f, t01=0x0158}
0x7cc6…7cec               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x004f, t01=0x016c}
0x7cec…7cfe (80, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0050, t01=0x0004}
0x7cfe…7d1e               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0050, t01=0x0016}
0x7d1e…7d3a               Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0050, t01=0x0036}
0x7d3a…7d44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0052}
0x7d44…7d52               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x005c}
0x7d52…7d5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x006a}
0x7d5c…7d80               Head {h00=0x0020, h01=0x0050, text=»*  PUT DRIVE NO IN CIO INSTR«, t00=0x0050, t01=0x0074}
0x7d80…7d8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0098}
0x7d8a…7dac               Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0050, t01=0x00a2}
0x7dac…7dda               Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0050, t01=0x00c4}
0x7dda…7df2               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0050, t01=0x00f2}
0x7df2…7e08               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0050, t01=0x010a}
0x7e08…7e2a               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0050, t01=0x0120}
0x7e2a…7e3c               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0050, t01=0x0142}
0x7e3c…7e54               Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0050, t01=0x0154}
0x7e54…7e7c               Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0050, t01=0x016c}
0x7e7c…7e90 (81, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0051, t01=0x0004}
0x7e90…7ea2               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0051, t01=0x0018}
0x7ea2…7eb8               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0051, t01=0x002a}
0x7eb8…7ece               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0051, t01=0x0040}
0x7ece…7ed8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0056}
0x7ed8…7eee               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0051, t01=0x0060}
0x7eee…7ef8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0076}
0x7ef8…7f40               Head {h00=0x0044, h01=0x0050, text=»*    RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x0051, t01=0x0080}
0x7f40…7f4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00c8}
0x7f4a…7f72               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x0051, t01=0x00d2}
0x7f72…7f98               Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x0051, t01=0x00fa}
0x7f98…7fb8               Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x0051, t01=0x0120}
0x7fb8…7fe0               Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x0051, t01=0x0140}
0x7fe0…8014               Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x0051, t01=0x0168}
0x8014…8020               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x000c}
0x8020…802a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0018}
0x802a…8038               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0022}
0x8038…8042               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0030}
0x8042…8058               Head {h00=0x0012, h01=0x0050, text=»*  ANY REQUEST«, t00=0x0052, t01=0x003a}
0x8058…8062               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0050}
0x8062…8086               Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x0052, t01=0x005a}
0x8086…809a               Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x0052, t01=0x007e}
0x809a…80b2               Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0052, t01=0x0092}
0x80b2…80e6               Head {h00=0x0030, h01=0x0050, text=» ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO«, t00=0x0052, t01=0x00aa}
0x80e6…80f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00de}
0x80f0…8108               Head {h00=0x0014, h01=0x0050, text=»*  RETRY REQUEST«, t00=0x0052, t01=0x00e8}
0x8108…8112               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0100}
0x8112…8136               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0052, t01=0x010a}
0x8136…814e               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTORD,A6«, t00=0x0052, t01=0x012e}
0x814e…817e               Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0052, t01=0x0146}
0x817e…81aa               Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0052, t01=0x0176}
0x81aa…81c4               Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0053, t01=0x0012}
0x81c4…81e0               Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x0053, t01=0x002c}
0x81e0…81ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0048}
0x81ea…8202               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0053, t01=0x0052}
0x8202…820c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x006a}
0x820c…8228               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x0074}
0x8228…8244               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0053, t01=0x0090}
0x8244…8260               Head {h00=0x0018, h01=0x0050, text=»*  READY INTERRUPT *«, t00=0x0053, t01=0x00ac}
0x8260…827c               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0053, t01=0x00c8}
0x827c…8298               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x00e4}
0x8298…82a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0100}
0x82a2…82b4               Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x0053, t01=0x010a}
0x82b4…82cc               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0053, t01=0x011c}
0x82cc…82fa               Head {h00=0x002a, h01=0x0050, text=» RB(NZ) F:DISP POWER ON ROUTINE ACTIVE«, t00=0x0053, t01=0x0134}
0x82fa…8312               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0053, t01=0x0162}
0x8312…8330               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0053, t01=0x017a}
0x8330…833a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0008}
0x833a…8352               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0054, t01=0x0012}
0x8352…8364               Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x0054, t01=0x002a}
0x8364…8370               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x003c}
0x8370…837a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0048}
0x837a…8392               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0054, t01=0x0052}
0x8392…83b4               Head {h00=0x001e, h01=0x0050, text=» CM DWTST,A6 SET UNIT BUSY«, t00=0x0054, t01=0x006a}
0x83b4…83d8               Head {h00=0x0020, h01=0x0050, text=» RB FDONVL READ VOLUME NAMES«, t00=0x0054, t01=0x008c}
0x83d8…83e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x00b0}
0x83e4…83ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00bc}
0x83ee…8406               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0054, t01=0x00c6}
0x8406…8410               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00de}
0x8410…842e               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0054, t01=0x00e8}
0x842e…844c               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0054, t01=0x0106}
0x844c…846a               Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0054, t01=0x0124}
0x846a…8488               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0054, t01=0x0142}
0x8488…84a6               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0054, t01=0x0160}
0x84a6…84b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x017e}
0x84b0…84c2               Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x0054, t01=0x0188}
0x84c2…84ea               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0055, t01=0x000a}
0x84ea…8500               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0055, t01=0x0032}
0x8500…852e               Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x0055, t01=0x0048}
0x852e…853a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x0076}
0x853a…8544               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0082}
0x8544…855a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0055, t01=0x008c}
0x855a…8580               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0055, t01=0x00a2}
0x8580…858c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x00c8}
0x858c…8596               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00d4}
0x8596…85ba               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0055, t01=0x00de}
0x85ba…85ce               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0055, t01=0x0102}
0x85ce…85da               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0055, t01=0x0116}
0x85da…8604               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x0055, t01=0x0122}
0x8604…862a               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x0055, t01=0x014c}
0x862a…8644               Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x0055, t01=0x0172}
0x8644…8658               Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x0055, t01=0x018c}
0x8658…8678               Head {h00=0x001c, h01=0x0050, text=» SST A3,CUADR GET STATUS«, t00=0x0056, t01=0x0010}
0x8678…869e               Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x0056, t01=0x0030}
0x869e…86b4               Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x0056, t01=0x0056}
0x86b4…86e4               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) IHDISP POST PROCESSING FLAG SET «, t00=0x0056, t01=0x006c}
0x86e4…8710               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x0056, t01=0x009c}
0x8710…872a               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x0056, t01=0x00c8}
0x872a…8734               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00e2}
0x8734…874a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0056, t01=0x00ec}
0x874a…8754               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0102}
0x8754…875e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x010c}
0x875e…8772               Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x0056, t01=0x0116}
0x8772…879a               Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A1 ONE WORD FROM BUFFER«, t00=0x0056, t01=0x012a}
0x879a…87b8               Head {h00=0x001a, h01=0x0050, text=» OTR A3,0,CUADR WRITE «, t00=0x0056, t01=0x0152}
0x87b8…87ce               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0056, t01=0x0170}
0x87ce…87f6               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0056, t01=0x0186}
0x87f6…8808               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0057, t01=0x001e}
0x8808…881c               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x0057, t01=0x0030}
0x881c…883c               Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0057, t01=0x0044}
0x883c…8850               Head {h00=0x0010, h01=0x0050, text=»IHDISP EQU *«, t00=0x0057, t01=0x0064}
0x8850…8872               Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x0057, t01=0x0078}
0x8872…887c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x009a}
0x887c…8890               Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x0057, t01=0x00a4}
0x8890…88ac               Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR READ«, t00=0x0057, t01=0x00b8}
0x88ac…88c2               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0057, t01=0x00d4}
0x88c2…88e8               Head {h00=0x0022, h01=0x0050, text=» STR A3,A1 ONE WORD TO BUFFER «, t00=0x0057, t01=0x00ea}
0x88e8…8910               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0057, t01=0x0110}
0x8910…8922               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0057, t01=0x0138}
0x8922…8936               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x0057, t01=0x014a}
0x8936…8956               Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0057, t01=0x015e}
0x8956…8972               Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0057, t01=0x017e}
0x8972…8986               Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x0058, t01=0x000a}
0x8986…899a               Head {h00=0x0010, h01=0x0050, text=»IH:000 EQU *«, t00=0x0058, t01=0x001e}
0x899a…89a6               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0058, t01=0x0032}
0x89a6…89b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x003e}
0x89b2…89bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x004a}
0x89bc…89d4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0058, t01=0x0054}
0x89d4…89de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x006c}
0x89de…89e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0076}
0x89e8…89fc               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0058, t01=0x0080}
0x89fc…8a18               Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0058, t01=0x0094}
0x8a18…8a24               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x00b0}
0x8a24…8a48               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0058, t01=0x00bc}
0x8a48…8a6e               Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0058, t01=0x00e0}
0x8a6e…8a88               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A3 STATUS «, t00=0x0058, t01=0x0106}
0x8a88…8a9a               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0058, t01=0x0120}
0x8a9a…8abe               Head {h00=0x0020, h01=0x0050, text=» RB(N) FDRE READY INTERRUPT «, t00=0x0058, t01=0x0132}
0x8abe…8adc               Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY«, t00=0x0058, t01=0x0156}
0x8adc…8af4               Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0058, t01=0x0174}
0x8af4…8b1a               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0058, t01=0x018c}
0x8b1a…8b2c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0059, t01=0x0022}
0x8b2c…8b56               Head {h00=0x0026, h01=0x0050, text=» ANK A1,5 DATA FAULT, NOT OPERABLE«, t00=0x0059, t01=0x0034}
0x8b56…8b7a               Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0059, t01=0x005e}
0x8b7a…8b8c               Head {h00=0x000e, h01=0x0050, text=» ORK A3,4 «, t00=0x0059, t01=0x0082}
0x8b8c…8ba0               Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0059, t01=0x0094}
0x8ba0…8baa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00a8}
0x8baa…8bc2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0059, t01=0x00b2}
0x8bc2…8bcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00ca}
0x8bcc…8bf6               Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0059, t01=0x00d4}
0x8bf6…8c00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00fe}
0x8c00…8c16               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0059, t01=0x0108}
0x8c16…8c2a               Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0059, t01=0x011e}
0x8c2a…8c3c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0059, t01=0x0132}
0x8c3c…8c62               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0059, t01=0x0144}
0x8c62…8c74               Head {h00=0x000e, h01=0x0050, text=» ECR A4,A3«, t00=0x0059, t01=0x016a}
0x8c74…8c96               Head {h00=0x001e, h01=0x0050, text=» ANK A4,8 CHECK IF NO DATA«, t00=0x0059, t01=0x017c}
0x8c96…8cb6               Head {h00=0x001c, h01=0x0050, text=» RF(Z) IH:70 NOT NO DATA«, t00=0x005a, t01=0x000e}
0x8cb6…8cd8               Head {h00=0x001e, h01=0x0050, text=» ORK A3,4 SET BIT 13 ALSO «, t00=0x005a, t01=0x002e}
0x8cd8…8cec               Head {h00=0x0010, h01=0x0050, text=»IH:70 EQU * «, t00=0x005a, t01=0x0050}
0x8cec…8cfe               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x0064}
0x8cfe…8d1a               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x005a, t01=0x0076}
0x8d1a…8d36               Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x005a, t01=0x0092}
0x8d36…8d48               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x00ae}
0x8d48…8d52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00c0}
0x8d52…8d6a               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005a, t01=0x00ca}
0x8d6a…8d7c               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x00e2}
0x8d7c…8d98               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x005a, t01=0x00f4}
0x8d98…8db2               Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x005a, t01=0x0110}
0x8db2…8dc4               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x012a}
0x8dc4…8dd0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x013c}
0x8dd0…8dda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0148}
0x8dda…8dec               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x0152}
0x8dec…8e06               Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x005a, t01=0x0164}
0x8e06…8e20               Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x005a, t01=0x017e}
0x8e20…8e32               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005b, t01=0x0008}
0x8e32…8e4c               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x005b, t01=0x001a}
0x8e4c…8e66               Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x005b, t01=0x0034}
0x8e66…8e78               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x005b, t01=0x004e}
0x8e78…8ea8               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x005b, t01=0x0060}
0x8ea8…8ebe               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F7FF«, t00=0x005b, t01=0x0090}
0x8ebe…8ed2               Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x005b, t01=0x00a6}
0x8ed2…8ee4               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x005b, t01=0x00ba}
0x8ee4…8ef4               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005b, t01=0x00cc}
0x8ef4…8efe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00dc}
0x8efe…8f16               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005b, t01=0x00e6}
0x8f16…8f20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00fe}
0x8f20…8f54               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x005b, t01=0x0108}
0x8f54…8f88               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x005b, t01=0x013c}
0x8f88…8fbc               Head {h00=0x0030, h01=0x0050, text=»*    S U B R O U T I N E S                * «, t00=0x005b, t01=0x0170}
0x8fbc…8ff0               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x005c, t01=0x0014}
0x8ff0…9024               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x005c, t01=0x0048}
0x9024…902e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x007c}
0x902e…903e               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x005c, t01=0x0086}
0x903e…904e               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x005c, t01=0x0096}
0x904e…905e               Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x005c, t01=0x00a6}
0x905e…906e               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x005c, t01=0x00b6}
0x906e…907e               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x005c, t01=0x00c6}
0x907e…9088               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00d6}
0x9088…90aa               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x005c, t01=0x00e0}
0x90aa…90c8               Head {h00=0x001a, h01=0x0050, text=»*          A4   ORDER «, t00=0x005c, t01=0x0102}
0x90c8…90d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0120}
0x90d2…9114               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x005c, t01=0x012a}
0x9114…9148               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x005c, t01=0x016c}
0x9148…916e               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x005d, t01=0x0010}
0x916e…9178               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0036}
0x9178…918a               Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x005d, t01=0x0040}
0x918a…91b4               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTCW2,A6 GET SECTOR NUMBER«, t00=0x005d, t01=0x0052}
0x91b4…91e0               Head {h00=0x0028, h01=0x0050, text=» SLL A1,3 PUT IN RIGHT BIO POSITION «, t00=0x005d, t01=0x007c}
0x91e0…921a               Head {h00=0x0036, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO «, t00=0x005d, t01=0x00a8}
0x921a…922c               Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x005d, t01=0x00e2}
0x922c…924c               Head {h00=0x001c, h01=0x0050, text=» ORR A2,A1 COMPLETE BIO «, t00=0x005d, t01=0x00f4}
0x924c…9276               Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x005d, t01=0x0114}
0x9276…929c               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS«, t00=0x005d, t01=0x013e}
0x929c…92c4               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTRL,A6 GET REQ. LENGTH «, t00=0x005d, t01=0x0164}
0x92c4…92d4               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005d, t01=0x018c}
0x92d4…92de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x000c}
0x92de…92f4               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x005e, t01=0x0016}
0x92f4…92fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x002c}
0x92fe…9308               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0036}
0x9308…9322               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x005e, t01=0x0040}
0x9322…933c               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x005e, t01=0x005a}
0x933c…9356               Head {h00=0x0016, h01=0x0050, text=»*   BIOSQ       * «, t00=0x005e, t01=0x0074}
0x9356…9370               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x005e, t01=0x008e}
0x9370…938a               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x005e, t01=0x00a8}
0x938a…9394               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00c2}
0x9394…93b6               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x005e, t01=0x00cc}
0x93b6…93d4               Head {h00=0x001a, h01=0x0050, text=»*          A4   ORDER «, t00=0x005e, t01=0x00ee}
0x93d4…93de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x010c}
0x93de…9420               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x005e, t01=0x0116}
0x9420…9454               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x005e, t01=0x0158}
0x9454…947a               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x005e, t01=0x018c}
0x947a…9484               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0022}
0x9484…9498               Head {h00=0x0010, h01=0x0050, text=»BIOSQ EQU * «, t00=0x005f, t01=0x002c}
0x9498…94aa               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x0040}
0x94aa…94d4               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x005f, t01=0x0052}
0x94d4…9500               Head {h00=0x0028, h01=0x0050, text=» SLL A2,3 PUT IN RIGHT BIO POSITION «, t00=0x005f, t01=0x007c}
0x9500…952a               Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x005f, t01=0x00a8}
0x952a…9534               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00d2}
0x9534…954a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005f, t01=0x00dc}
0x954a…9574               Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x005f, t01=0x00f2}
0x9574…9580               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x011c}
0x9580…958a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0128}
0x958a…959c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x0132}
0x959c…95b2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005f, t01=0x0144}
0x95b2…95dc               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x005f, t01=0x015a}
0x95dc…95e8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0184}
0x95e8…95f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0190}
0x95f2…9604               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0060, t01=0x000a}
0x9604…962c               Head {h00=0x0024, h01=0x0050, text=» LDK A3,SECLEN REQUESTED LENGTH «, t00=0x0060, t01=0x001c}
0x962c…963c               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0060, t01=0x0044}
0x963c…9648               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0054}
0x9648…9652               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0060}
0x9652…9668               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0060, t01=0x006a}
0x9668…9672               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0080}
0x9672…968c               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0060, t01=0x008a}
0x968c…96a6               Head {h00=0x0016, h01=0x0050, text=»*   VO:NAM       *«, t00=0x0060, t01=0x00a4}
0x96a6…96c0               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0060, t01=0x00be}
0x96c0…96ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00d8}
0x96ca…96d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00e2}
0x96d4…96e8               Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0060, t01=0x00ec}
0x96e8…9700               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0060, t01=0x0100}
0x9700…971a               Head {h00=0x0016, h01=0x0050, text=» LDK A3,36 LENGTH «, t00=0x0060, t01=0x0118}
0x971a…9726               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0132}
0x9726…9730               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x013e}
0x9730…9744               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0060, t01=0x0148}
0x9744…9756               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0060, t01=0x015c}
0x9756…977a               Head {h00=0x0020, h01=0x0050, text=» LDK A3,6 VOLUME NAME LENGTH«, t00=0x0060, t01=0x016e}
0x977a…9786 (97, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0004}
0x9786…9790               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0010}
0x9790…97a4               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0061, t01=0x001a}
0x97a4…97ba               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0061, t01=0x002e}
0x97ba…97de               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF READ TO BUFFER «, t00=0x0061, t01=0x0044}
0x97de…97f4               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0061, t01=0x0068}
0x97f4…9814               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x0061, t01=0x007e}
0x9814…982a               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) VOL:40«, t00=0x0061, t01=0x009e}
0x982a…983c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0061, t01=0x00b4}
0x983c…9852               Head {h00=0x0012, h01=0x0050, text=» LD A2,BUF+32 «, t00=0x0061, t01=0x00c6}
0x9852…9866               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0061, t01=0x00dc}
0x9866…9886               Head {h00=0x001c, h01=0x0050, text=» RF(NE) VOL:10 IBM DISC «, t00=0x0061, t01=0x00f0}
0x9886…98aa               Head {h00=0x0020, h01=0x0050, text=» LD A2,BUF+34 GET NEXT WORD «, t00=0x0061, t01=0x0110}
0x98aa…98be               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0061, t01=0x0134}
0x98be…98de               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) VOL:10 IBM DISC «, t00=0x0061, t01=0x0148}
0x98de…9904               Head {h00=0x0022, h01=0x0050, text=» C1 A1,DWTA3,A6 DRIVE BIT MASK«, t00=0x0061, t01=0x0168}
0x9904…9930               Head {h00=0x0028, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS DISC«, t00=0x0061, t01=0x018e}
0x9930…993c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x002a}
0x993c…9946               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0036}
0x9946…995e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0062, t01=0x0040}
0x995e…9968               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0058}
0x9968…9972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0062}
0x9972…9986               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0062, t01=0x006c}
0x9986…999a               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,BUF«, t00=0x0062, t01=0x0080}
0x999a…99ac               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0062, t01=0x0094}
0x99ac…99be               Head {h00=0x000e, h01=0x0050, text=» RF VOL:20«, t00=0x0062, t01=0x00a6}
0x99be…99ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x00b8}
0x99ca…99d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00c4}
0x99d4…99e6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0062, t01=0x00ce}
0x99e6…99fa               Head {h00=0x0010, h01=0x0050, text=»VOL:10 EQU *«, t00=0x0062, t01=0x00e0}
0x99fa…9a14               Head {h00=0x0016, h01=0x0050, text=» LDK A3,10 LENGTH «, t00=0x0062, t01=0x00f4}
0x9a14…9a2c               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0062, t01=0x010e}
0x9a2c…9a50               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF READ TO BUFFER «, t00=0x0062, t01=0x0126}
0x9a50…9a66               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0062, t01=0x014a}
0x9a66…9a7a               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/17 «, t00=0x0062, t01=0x0160}
0x9a7a…9a9a               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) VOL:40 IO ERROR «, t00=0x0062, t01=0x0174}
0x9a9a…9ac4 (99, 0, 400)  Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0063, t01=0x0004}
0x9ac4…9aea               Head {h00=0x0022, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM«, t00=0x0063, t01=0x002e}
0x9aea…9b00               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/400 «, t00=0x0063, t01=0x0054}
0x9b00…9b30               Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0063, t01=0x006a}
0x9b30…9b54               Head {h00=0x0020, h01=0x0050, text=» LDK A7,10 NO OF CHARACTERS «, t00=0x0063, t01=0x009a}
0x9b54…9b8c               Head {h00=0x0034, h01=0x0050, text=» CF A5,ASC:01 TRANSFER IBM VOL NAME TO ASCII DK1«, t00=0x0063, t01=0x00be}
0x9b8c…9bc0               Head {h00=0x0030, h01=0x0050, text=» LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME «, t00=0x0063, t01=0x00f6}
0x9bc0…9bcc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x012a}
0x9bcc…9bd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0136}
0x9bd6…9bee               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0063, t01=0x0140}
0x9bee…9bf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0158}
0x9bf8…9c02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0162}
0x9c02…9c16               Head {h00=0x0010, h01=0x0050, text=»VOL:20 EQU *«, t00=0x0063, t01=0x016c}
0x9c16…9c2e               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0063, t01=0x0180}
0x9c2e…9c4c               Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F8 FILE CODE «, t00=0x0064, t01=0x0008}
0x9c4c…9c64               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST2,A6«, t00=0x0064, t01=0x0026}
0x9c64…9c8a               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) VOL:30 NOT TEST STATUS«, t00=0x0064, t01=0x003e}
0x9c8a…9cb8               Head {h00=0x002a, h01=0x0050, text=» ORKL A3,/8000 INDICATE NO NEW NVL SET«, t00=0x0064, t01=0x0064}
0x9cb8…9ccc               Head {h00=0x0010, h01=0x0050, text=»VOL:30 EQU *«, t00=0x0064, t01=0x0092}
0x9ccc…9cfe               Head {h00=0x002e, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT SET NVL «, t00=0x0064, t01=0x00a6}
0x9cfe…9d16               Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0064, t01=0x00d8}
0x9d16…9d28               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0064, t01=0x00f0}
0x9d28…9d3c               Head {h00=0x0010, h01=0x0050, text=»VOL:40 EQU *«, t00=0x0064, t01=0x0102}
0x9d3c…9d4c               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0064, t01=0x0116}
0x9d4c…9d58               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x0126}
0x9d58…9d62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0132}
0x9d62…9d74               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0064, t01=0x013c}
0x9d74…9d8c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0064, t01=0x014e}
0x9d8c…9d96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0166}
0x9d96…9da8               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0064, t01=0x0170}
0x9da8…9dba               Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x0064, t01=0x0182}
0x9dba…9dcc (101, 0, 400) Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0065, t01=0x0004}
0x9dcc…9dd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0016}
0x9dd6…9e14               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x0065, t01=0x0020}
0x9e14…9e34               Head {h00=0x001c, h01=0x0050, text=»*             ASCII CODE«, t00=0x0065, t01=0x005e}
0x9e34…9e66               Head {h00=0x002e, h01=0x0050, text=»*             INPUT STRING ADDRESS IS BUF «, t00=0x0065, t01=0x007e}
0x9e66…9e90               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7  NO OF CHARACTERS«, t00=0x0065, t01=0x00b0}
0x9e90…9eb2               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x0065, t01=0x00da}
0x9eb2…9ed4               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0065, t01=0x00fc}
0x9ed4…9ef6               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x0065, t01=0x011e}
0x9ef6…9f18               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0065, t01=0x0140}
0x9f18…9f22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0162}
0x9f22…9f36               Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0065, t01=0x016c}
0x9f36…9f6e               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET LOGICAL BUFFER ADDRESS DK1 «, t00=0x0065, t01=0x0180}
0x9f6e…9fa2               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) ASC:01 BUFFER NOT IN SYSTEM AREA DK1«, t00=0x0066, t01=0x0028}
0x9fa2…9fd0               Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTBA,A6 GET BUFFER ADDRESS DK1«, t00=0x0066, t01=0x005c}
0x9fd0…9fe8               Head {h00=0x0014, h01=0x0050, text=» RF ASC:02  DK1 «, t00=0x0066, t01=0x008a}
0x9fe8…a002               Head {h00=0x0016, h01=0x0050, text=»ASC:01 EQU *  DK1 «, t00=0x0066, t01=0x00a2}
0xa002…a018               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0066, t01=0x00bc}
0xa018…a042               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0066, t01=0x00d2}
0xa042…a04e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x00fc}
0xa04e…a058               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0108}
0xa058…a072               Head {h00=0x0016, h01=0x0050, text=»ASC:02 EQU *  DK1 «, t00=0x0066, t01=0x0112}
0xa072…a084               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0066, t01=0x012c}
0xa084…a090               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0066, t01=0x013e}
0xa090…a0a2               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0066, t01=0x014a}
0xa0a2…a0b6               Head {h00=0x0010, h01=0x0050, text=»ASC:10 EQU *«, t00=0x0066, t01=0x015c}
0xa0b6…a0c8               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0066, t01=0x0170}
0xa0c8…a0ec               Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 EBCDIC CHARACTER «, t00=0x0066, t01=0x0182}
0xa0ec…a100               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0067, t01=0x0016}
0xa100…a12c               Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0067, t01=0x002a}
0xa12c…a160               Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0067, t01=0x0056}
0xa160…a172               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0067, t01=0x008a}
0xa172…a188               Head {h00=0x0012, h01=0x0050, text=» RB(P) ASC:10 «, t00=0x0067, t01=0x009c}
0xa188…a19a               Head {h00=0x000e, h01=0x0050, text=» RF EBC:90«, t00=0x0067, t01=0x00b2}
0xa19a…a1a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00c4}
0xa1a4…a1bc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0067, t01=0x00ce}
0xa1bc…a1c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00e6}
0xa1c6…a1d8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x00f0}
0xa1d8…a1ea               Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0067, t01=0x0102}
0xa1ea…a1fc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x0114}
0xa1fc…a206               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0126}
0xa206…a246               Head {h00=0x003c, h01=0x0050, text=»*  FUNCTION:  EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0067, t01=0x0130}
0xa246…a268               Head {h00=0x001e, h01=0x0050, text=»*             EBCDIC CODE «, t00=0x0067, t01=0x0170}
0xa268…a2a4 (104, 0, 400) Head {h00=0x0038, h01=0x0050, text=»*             OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0068, t01=0x0004}
0xa2a4…a2ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0040}
0xa2ae…a2d8               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7 NO OF CHARACTERS «, t00=0x0068, t01=0x004a}
0xa2d8…a2fa               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x0068, t01=0x0074}
0xa2fa…a304               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0096}
0xa304…a326               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0068, t01=0x00a0}
0xa326…a348               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x0068, t01=0x00c2}
0xa348…a36a               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0068, t01=0x00e4}
0xa36a…a37e               Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0068, t01=0x0106}
0xa37e…a3b6               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET LOGICAL BUFFER ADDRESS DK1 «, t00=0x0068, t01=0x011a}
0xa3b6…a3ea               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) EBC:01 BUFFER NOT IN SYSTEM AREA DK1«, t00=0x0068, t01=0x0152}
0xa3ea…a418               Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTBA,A6 GET BUFFER ADDRESS DK1«, t00=0x0068, t01=0x0186}
0xa418…a430               Head {h00=0x0014, h01=0x0050, text=» RF EBC:02  DK1 «, t00=0x0069, t01=0x0024}
0xa430…a44a               Head {h00=0x0016, h01=0x0050, text=»EBC:01 EQU *  DK1 «, t00=0x0069, t01=0x003c}
0xa44a…a460               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0069, t01=0x0056}
0xa460…a48a               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0069, t01=0x006c}
0xa48a…a496               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0096}
0xa496…a4a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00a2}
0xa4a0…a4ba               Head {h00=0x0016, h01=0x0050, text=»EBC:02 EQU *  DK1 «, t00=0x0069, t01=0x00ac}
0xa4ba…a4cc               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0069, t01=0x00c6}
0xa4cc…a4de               Head {h00=0x000e, h01=0x0050, text=» ENB   DK1«, t00=0x0069, t01=0x00d8}
0xa4de…a4f0               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0069, t01=0x00ea}
0xa4f0…a504               Head {h00=0x0010, h01=0x0050, text=»EBC:10 EQU *«, t00=0x0069, t01=0x00fc}
0xa504…a516               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0069, t01=0x0110}
0xa516…a538               Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0069, t01=0x0122}
0xa538…a54c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0069, t01=0x0144}
0xa54c…a566               Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0069, t01=0x0158}
0xa566…a57e               Head {h00=0x0014, h01=0x0050, text=»* SC A1,BUF-1,A7«, t00=0x0069, t01=0x0172}
0xa57e…a5b0               Head {h00=0x002e, h01=0x0050, text=» SCR A1,A4 PUT EBCDIC IN OUTPUT BUFFER DK1«, t00=0x0069, t01=0x018a}
0xa5b0…a5c2               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006a, t01=0x002c}
0xa5c2…a5d8               Head {h00=0x0012, h01=0x0050, text=» RB(P) EBC:10 «, t00=0x006a, t01=0x003e}
0xa5d8…a604               Head {h00=0x0028, h01=0x0050, text=»* LDKL A4,BUF DRIVER BUFFER ADDRESS «, t00=0x006a, t01=0x0054}
0xa604…a618               Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x006a, t01=0x0080}
0xa618…a638               Head {h00=0x001c, h01=0x0050, text=» INH  INHIBIT INTERRUPTS«, t00=0x006a, t01=0x0094}
0xa638…a648               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006a, t01=0x00b4}
0xa648…a652               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00c4}
0xa652…a66a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006a, t01=0x00ce}
0xa66a…a674               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00e6}
0xa674…a686               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006a, t01=0x00f0}
0xa686…a698               Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x006a, t01=0x0102}
0xa698…a6aa               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006a, t01=0x0114}
0xa6aa…a6b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0126}
0xa6b4…a6f8               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x006a, t01=0x0130}
0xa6f8…a728               Head {h00=0x002c, h01=0x0050, text=»*              LOGICAL SECTOR (BINARY). «, t00=0x006a, t01=0x0174}
0xa728…a768               Head {h00=0x003c, h01=0x0050, text=»*             FORMAT OF PHYS. SEC.  TT0SS  (EBCDIC CODE)«, t00=0x006b, t01=0x0014}
0xa768…a796               Head {h00=0x002a, h01=0x0050, text=»*              TT = TRACK,  SS=SECTOR «, t00=0x006b, t01=0x0054}
0xa796…a7a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0082}
0xa7a0…a7d0               Head {h00=0x002c, h01=0x0050, text=»*  INPUT:    A4  ADDRESS TO PHYS. SECTOR«, t00=0x006b, t01=0x008c}
0xa7d0…a7da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00bc}
0xa7da…a804               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT:   A3  BINARY SECTOR NO «, t00=0x006b, t01=0x00c6}
0xa804…a836               Head {h00=0x002e, h01=0x0050, text=»*            A4  ADDRESS TO PHYS. SEC. + 4«, t00=0x006b, t01=0x00f0}
0xa836…a840               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0122}
0xa840…a854               Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x006b, t01=0x012c}
0xa854…a86a               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x006b, t01=0x0140}
0xa86a…a882               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x006b, t01=0x0156}
0xa882…a894               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x006b, t01=0x016e}
0xa894…a89e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0180}
0xa89e…a8b8               Head {h00=0x0016, h01=0x0050, text=»*  MULTIPLY BY 26 «, t00=0x006b, t01=0x018a}
0xa8b8…a8c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0014}
0xa8c2…a8d8               Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x006c, t01=0x001e}
0xa8d8…a8ea               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x006c, t01=0x0034}
0xa8ea…a8fc               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x006c, t01=0x0046}
0xa8fc…a912               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x006c, t01=0x0058}
0xa912…a924               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x006c, t01=0x006e}
0xa924…a93a               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x006c, t01=0x0080}
0xa93a…a950               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x006c, t01=0x0096}
0xa950…a962               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006c, t01=0x00ac}
0xa962…a974               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x006c, t01=0x00be}
0xa974…a97e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00d0}
0xa97e…a996               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006c, t01=0x00da}
0xa996…a9a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00f2}
0xa9a0…a9ba               Head {h00=0x0016, h01=0x0050, text=»*  CHECK SECTOR NO«, t00=0x006c, t01=0x00fc}
0xa9ba…a9c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0116}
0xa9c4…a9d6               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x006c, t01=0x0120}
0xa9d6…a9e8               Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x006c, t01=0x0132}
0xa9e8…a9fe               Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x006c, t01=0x0144}
0xa9fe…aa1c               Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD «, t00=0x006c, t01=0x015a}
0xaa1c…aa36               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x006c, t01=0x0178}
0xaa36…aa4c (109, 0, 400) Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x006d, t01=0x0004}
0xaa4c…aa5e               Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x006d, t01=0x001a}
0xaa5e…aa68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x002c}
0xaa68…aa8e               Head {h00=0x0022, h01=0x0050, text=»*  CHECK EOD LESS/EQUAL 74001 «, t00=0x006d, t01=0x0036}
0xaa8e…aa98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x005c}
0xaa98…aab4               Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x006d, t01=0x0066}
0xaab4…aac8               Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x006d, t01=0x0082}
0xaac8…aaee               Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x006d, t01=0x0096}
0xaaee…ab14               Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x006d, t01=0x00bc}
0xab14…ab24               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006d, t01=0x00e2}
0xab24…ab2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00f2}
0xab2e…ab44               Head {h00=0x0012, h01=0x0050, text=»*  FATAL ERROR«, t00=0x006d, t01=0x00fc}
0xab44…ab4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0112}
0xab4e…ab7a               Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x006d, t01=0x011c}
0xab7a…aba0               Head {h00=0x0022, h01=0x0050, text=»LOG:10 LDK A1,/10 RETURN CODE «, t00=0x006d, t01=0x0148}
0xaba0…abd0               Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x006d, t01=0x016e}
0xabd0…abf0               Head {h00=0x001c, h01=0x0050, text=» INH  INHIBIT INTERRUPTS«, t00=0x006e, t01=0x000e}
0xabf0…ac12               Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x006e, t01=0x002e}
0xac12…ac1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0050}
0xac1c…ac34               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006e, t01=0x005a}
0xac34…ac3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0072}
0xac3e…ac50               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006e, t01=0x007c}
0xac50…ac62               Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x006e, t01=0x008e}
0xac62…ac74               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006e, t01=0x00a0}
0xac74…ac7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00b2}
0xac7e…acc0               Head {h00=0x003e, h01=0x0050, text=»*  FUNCTION:  DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x006e, t01=0x00bc}
0xacc0…ad08               Head {h00=0x0044, h01=0x0050, text=»*             BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x006e, t01=0x00fe}
0xad08…ad38               Head {h00=0x002c, h01=0x0050, text=»*     INPUT:  A4  ADDRESS TO FIRST DIGIT«, t00=0x006e, t01=0x0146}
0xad38…ad56               Head {h00=0x001a, h01=0x0050, text=»*   OUTPUT: A1  BINARY«, t00=0x006e, t01=0x0176}
0xad56…ad76 (111, 0, 400) Head {h00=0x001c, h01=0x0050, text=»*   WORKING REG:  A2,A7 «, t00=0x006f, t01=0x0004}
0xad76…ad80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0024}
0xad80…ad98               Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x006f, t01=0x002e}
0xad98…adaa               Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x006f, t01=0x0046}
0xadaa…adc8               Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x006f, t01=0x0058}
0xadc8…addc               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x006f, t01=0x0076}
0xaddc…adf0               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x006f, t01=0x008a}
0xadf0…ae06               Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x006f, t01=0x009e}
0xae06…ae18               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x006f, t01=0x00b4}
0xae18…ae38               Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x006f, t01=0x00c6}
0xae38…ae4a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x006f, t01=0x00e6}
0xae4a…ae5c               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006f, t01=0x00f8}
0xae5c…ae72               Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x006f, t01=0x010a}
0xae72…ae9c               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x006f, t01=0x0120}
0xae9c…aeb4               Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x006f, t01=0x014a}
0xaeb4…aed4               Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x006f, t01=0x0162}
0xaed4…aef6               Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x006f, t01=0x0182}
0xaef6…af08               Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0070, t01=0x0014}
0xaf08…af20               Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0070, t01=0x0026}
0xaf20…af30               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0070, t01=0x003e}
0xaf30…af3c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x004e}
0xaf3c…af46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x005a}
0xaf46…af5e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0070, t01=0x0064}
0xaf5e…af68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x007c}
0xaf68…af7a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0070, t01=0x0086}
0xaf7a…af8c               Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0070, t01=0x0098}
0xaf8c…af9e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0070, t01=0x00aa}
0xaf9e…afa8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00bc}
0xafa8…afde               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION:  PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0070, t01=0x00c6}
0xafde…afe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00fc}
0xafe8…b024               Head {h00=0x0038, h01=0x0050, text=»*  INPUT:  A3  DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0070, t01=0x0106}
0xb024…b02e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0142}
0xb02e…b04c               Head {h00=0x001a, h01=0x0050, text=»*  OUTPUT: A3  CHANGED«, t00=0x0070, t01=0x014c}
0xb04c…b06a               Head {h00=0x001a, h01=0x0050, text=»*          A4  CHANGED«, t00=0x0070, t01=0x016a}
0xb06a…b074               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0188}
0xb074…b090 (113, 0, 398) Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x0071, t01=0x0004}
0xb090…b0a6               Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0071, t01=0x0020}
0xb0a6…b0b8               Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0071, t01=0x0036}
0xb0b8…b0ce               Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x0071, t01=0x0048}
0xb0ce…b0de               Head {h00=0x000c, h01=0x0050, text=» RTN  A5«, t00=0x0071, t01=0x005e}
0xb0de…b0f0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0071, t01=0x006e}
0xb0f0…b0fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0080}
0xb0fa…b112               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0071, t01=0x008a}
0xb112…b11c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00a2}
0xb11c…b12e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0071, t01=0x00ac}
0xb12e…b140               Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x0071, t01=0x00be}
0xb140…b152               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0071, t01=0x00d0}
0xb152…b15c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00e2}
0xb15c…b19a               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0071, t01=0x00ec}
0xb19a…b1ce               Head {h00=0x0030, h01=0x0050, text=»*             EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0071, t01=0x012a}
0xb1ce…b1d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x015e}
0xb1d8…b1fc               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A7  BINARY NUMBER«, t00=0x0071, t01=0x0168}
0xb1fc…b206               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x018c}
0xb206…b238               Head {h00=0x002e, h01=0x0050, text=»*  OUTPUT: A3  EBCDIC CODED DECIMAL DIGITS«, t00=0x0072, t01=0x0008}
0xb238…b256               Head {h00=0x001a, h01=0x0050, text=»*          A7  CHANGED«, t00=0x0072, t01=0x003a}
0xb256…b260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0058}
0xb260…b278               Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x0072, t01=0x0062}
0xb278…b290               Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x0072, t01=0x007a}
0xb290…b2a6               Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x0072, t01=0x0092}
0xb2a6…b2b8               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0072, t01=0x00a8}
0xb2b8…b2ca               Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x0072, t01=0x00ba}
0xb2ca…b2e2               Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x0072, t01=0x00cc}
0xb2e2…b2f4               Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0072, t01=0x00e4}
0xb2f4…b322               Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x0072, t01=0x00f6}
0xb322…b346               Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x0072, t01=0x0124}
0xb346…b356               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0072, t01=0x0148}
0xb356…b360               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0158}
0xb360…b378               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0072, t01=0x0162}
0xb378…b38a               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0072, t01=0x017a}
0xb38a…b39c               Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x0072, t01=0x018c}
0xb39c…b3ae               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0073, t01=0x000e}
0xb3ae…b3b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0020}
0xb3b8…b3f0               Head {h00=0x0034, h01=0x0050, text=»*  FUNCTION:  PREPARE FOR READING DATA SET LABEL«, t00=0x0073, t01=0x002a}
0xb3f0…b3fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0062}
0xb3fa…b41c               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x0073, t01=0x006c}
0xb41c…b426               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x008e}
0xb426…b464               Head {h00=0x003a, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x0073, t01=0x0098}
0xb464…b480               Head {h00=0x0018, h01=0x0050, text=»*          A3   128 «, t00=0x0073, t01=0x00d6}
0xb480…b4ac               Head {h00=0x0028, h01=0x0050, text=»*          A4  DRIVER BUFFER ADDRESS«, t00=0x0073, t01=0x00f2}
0xb4ac…b4ce               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x0073, t01=0x011e}
0xb4ce…b4f0               Head {h00=0x001e, h01=0x0050, text=»*           A1 IS CHANGED «, t00=0x0073, t01=0x0140}
0xb4f0…b4fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0162}
0xb4fa…b516               Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x0073, t01=0x016c}
0xb516…b52a               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0073, t01=0x0188}
0xb52a…b53e               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x0074, t01=0x000c}
0xb53e…b550               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0074, t01=0x0020}
0xb550…b564               Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x0074, t01=0x0032}
0xb564…b578               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0074, t01=0x0046}
0xb578…b588               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0074, t01=0x005a}
0xb588…b592               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x006a}
0xb592…b5aa               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0074, t01=0x0074}
0xb5aa…b5b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x008c}
0xb5b4…b5c6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0074, t01=0x0096}
0xb5c6…b5d8               Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x0074, t01=0x00a8}
0xb5d8…b5ea               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0074, t01=0x00ba}
0xb5ea…b5f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00cc}
0xb5f4…b62e               Head {h00=0x0036, h01=0x0050, text=»*  FUNCTION:  GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x0074, t01=0x00d6}
0xb62e…b638               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0110}
0xb638…b65a               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x0074, t01=0x011a}
0xb65a…b664               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x013c}
0xb664…b686               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A2  EOD ADDRESS«, t00=0x0074, t01=0x0146}
0xb686…b6b6               Head {h00=0x002c, h01=0x0050, text=»*          A7  EOD-NO      (0=NOT OPEN) «, t00=0x0074, t01=0x0168}
0xb6b6…b6d4               Head {h00=0x001a, h01=0x0050, text=»*          A1  CHANGED«, t00=0x0075, t01=0x0008}
0xb6d4…b6f0               Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x0075, t01=0x0026}
0xb6f0…b704               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0075, t01=0x0042}
0xb704…b71e               Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x0075, t01=0x0056}
0xb71e…b72e               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0075, t01=0x0070}
0xb72e…b738               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0080}
0xb738…b750               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0075, t01=0x008a}
0xb750…b75a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00a2}
0xb75a…b76c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0075, t01=0x00ac}
0xb76c…b77e               Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x0075, t01=0x00be}
0xb77e…b790               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0075, t01=0x00d0}
0xb790…b79a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00e2}
0xb79a…b7d0               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x0075, t01=0x00ec}
0xb7d0…b80a               Head {h00=0x0036, h01=0x0050, text=»*            TYPE OF DATA FOR CORRESPONDING DRIVE «, t00=0x0075, t01=0x0122}
0xb80a…b814               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x015c}
0xb814…b836               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A1  DWT OFFSET «, t00=0x0075, t01=0x0166}
0xb836…b858               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x0075, t01=0x0188}
0xb858…b862               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x001a}
0xb862…b888               Head {h00=0x0022, h01=0x0050, text=»*  OUTPUT: A2  ADDRESS TO DATA«, t00=0x0076, t01=0x0024}
0xb888…b8aa               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x0076, t01=0x004a}
0xb8aa…b8b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x006c}
0xb8b4…b8da               Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x0076, t01=0x0076}
0xb8da…b8ec               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0076, t01=0x009c}
0xb8ec…b8fe               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0076, t01=0x00ae}
0xb8fe…b910               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0076, t01=0x00c0}
0xb910…b922               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0076, t01=0x00d2}
0xb922…b932               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0076, t01=0x00e4}
0xb932…b93c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00f4}
0xb93c…b954               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0076, t01=0x00fe}
0xb954…b95e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0116}
0xb95e…b970               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0076, t01=0x0120}
0xb970…b982               Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x0076, t01=0x0132}
0xb982…b994               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0076, t01=0x0144}
0xb994…b99e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0156}
0xb99e…b9dc               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x0076, t01=0x0160}
0xb9dc…b9fa               Head {h00=0x001a, h01=0x0050, text=»*            DRIVE NO «, t00=0x0077, t01=0x000e}
0xb9fa…ba04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x002c}
0xba04…ba30               Head {h00=0x0028, h01=0x0050, text=»*  INPUT:    A1  OFFSET TO DWT AREA «, t00=0x0077, t01=0x0036}
0xba30…ba62               Head {h00=0x002e, h01=0x0050, text=»*            A3  WORD TO BE STORED IN DWT «, t00=0x0077, t01=0x0062}
0xba62…ba86               Head {h00=0x0020, h01=0x0050, text=»*            A6  DWT ADDRESS«, t00=0x0077, t01=0x0094}
0xba86…ba90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00b8}
0xba90…bab2               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:   A1  UNCHANGED«, t00=0x0077, t01=0x00c2}
0xbab2…bae6               Head {h00=0x0030, h01=0x0050, text=»*            A2  ADDRESS TO WORD IN DWT AREA«, t00=0x0077, t01=0x00e4}
0xbae6…bb08               Head {h00=0x001e, h01=0x0050, text=»*            A3  UNCHANGED«, t00=0x0077, t01=0x0118}
0xbb08…bb2a               Head {h00=0x001e, h01=0x0050, text=»*            A6  UNCHANGED«, t00=0x0077, t01=0x013a}
0xbb2a…bb34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x015c}
0xbb34…bb48               Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x0077, t01=0x0166}
0xbb48…bb5c               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0077, t01=0x017a}
0xbb5c…bb6e               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0077, t01=0x018e}
0xbb6e…bb7e               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0078, t01=0x0010}
0xbb7e…bb8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x0020}
0xbb8a…bb94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x002c}
0xbb94…bbac               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0078, t01=0x0036}
0xbbac…bbb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x004e}
0xbbb6…bbdc               Head {h00=0x0022, h01=0x0050, text=»*    D R I V E R   B U F F E R«, t00=0x0078, t01=0x0058}
0xbbdc…bbe6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x007e}
0xbbe6…bbf8               Head {h00=0x000e, h01=0x0050, text=»BUF EQU * «, t00=0x0078, t01=0x0088}
0xbbf8…bc0a               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0078, t01=0x009a}
0xbc0a…bc1e               Head {h00=0x0010, h01=0x0050, text=» RES DVBLEN «, t00=0x0078, t01=0x00ac}
0xbc1e…bc2a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x00c0}
0xbc2a…bc34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00cc}
0xbc34…bc48               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0078, t01=0x00d6}
0xbc48…bc5a               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0078, t01=0x00ea}
0xbc5a…bc80               Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME BUFFER«, t00=0x0078, t01=0x00fc}
0xbc80…bc9a               Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x0078, t01=0x0122}
0xbc9a…bcba               Head {h00=0x001c, h01=0x0050, text=» RES DVBLEN-3 MMU BUFFER«, t00=0x0078, t01=0x013c}
0xbcba…bcc6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x015c}
0xbcc6…bcd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0168}
0xbcd0…bce8               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0078, t01=0x0172}
0xbce8…bd02               Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x0078, t01=0x018a}
0xbd02…bd20               Head {h00=0x001a, h01=0x0050, text=» RES DVBLEN MMU BUFFER«, t00=0x0079, t01=0x0014}
0xbd20…bd2c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x0032}
0xbd2c…bd36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x003e}
0xbd36…bd4e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0079, t01=0x0048}
0xbd4e…bd58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0060}
0xbd58…bd76               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0079, t01=0x006a}
0xbd76…bd94               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0079, t01=0x0088}
0xbd94…bdb2               Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0079, t01=0x00a6}
0xbdb2…bdd0               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0079, t01=0x00c4}
0xbdd0…bdee               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0079, t01=0x00e2}
0xbdee…bdf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0100}
0xbdf8…be0c               Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0079, t01=0x010a}
0xbe0c…be38               Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0079, t01=0x011e}
0xbe38…be48               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0079, t01=0x014a}
0xbe48…be66               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0079, t01=0x015a}
0xbe66…be82               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0079, t01=0x0178}
0xbe82…be98 (122, 0, 400) Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x007a, t01=0x0004}
0xbe98…bebe               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x007a, t01=0x001a}
0xbebe…beda               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x007a, t01=0x0040}
0xbeda…bf02               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x007a, t01=0x005c}
0xbf02…bf20               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x007a, t01=0x0084}
0xbf20…bf2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00a2}
0xbf2a…bf40               Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x007a, t01=0x00ac}
0xbf40…bf6a               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x007a, t01=0x00c2}
0xbf6a…bf8e               Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x007a, t01=0x00ec}
0xbf8e…bf9a               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x007a, t01=0x0110}
0xbf9a…bfa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x011c}
0xbfa4…bfbe               Head {h00=0x0016, h01=0x0050, text=»DWTA3 EQU *-DWFD01«, t00=0x007a, t01=0x0126}
0xbfbe…bfce               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x0140}
0xbfce…bfe8               Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x007a, t01=0x0150}
0xbfe8…bff8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x016a}
0xbff8…c008               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x017a}
0xc008…c02e               Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0,0 STACK (3 LEVELS)«, t00=0x007a, t01=0x018a}
0xc02e…c04e               Head {h00=0x001c, h01=0x0050, text=» DATA 0 ORDER SAVE AREA «, t00=0x007b, t01=0x0020}
0xc04e…c058               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0040}
0xc058…c070               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007b, t01=0x004a}
0xc070…c07a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0062}
0xc07a…c084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x006c}
0xc084…c09c               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x007b, t01=0x0076}
0xc09c…c0c0               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 0 «, t00=0x007b, t01=0x008e}
0xc0c0…c0e4               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 1 «, t00=0x007b, t01=0x00b2}
0xc0e4…c108               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 2 «, t00=0x007b, t01=0x00d6}
0xc108…c12c               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 3 «, t00=0x007b, t01=0x00fa}
0xc12c…c158               Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x007b, t01=0x011e}
0xc158…c178               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007b, t01=0x014a}
0xc178…c1a4               Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x007b, t01=0x016a}
0xc1a4…c1c4               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007c, t01=0x0008}
0xc1c4…c1f0               Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x007c, t01=0x0028}
0xc1f0…c210               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007c, t01=0x0054}
0xc210…c23c               Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x007c, t01=0x0074}
0xc23c…c25c               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007c, t01=0x00a0}
0xc25c…c288               Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x007c, t01=0x00c0}
0xc288…c298               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x00ec}
0xc298…c2a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x00fc}
0xc2a4…c2be               Head {h00=0x0016, h01=0x0050, text=»DWTA5 EQU *-DWFD01«, t00=0x007c, t01=0x0108}
0xc2be…c2ce               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0122}
0xc2ce…c2fc               Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x007c, t01=0x0132}
0xc2fc…c30c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0160}
0xc30c…c334               Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x007c, t01=0x0170}
0xc334…c344               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0008}
0xc344…c34e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0018}
0xc34e…c366               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007d, t01=0x0022}
0xc366…c370               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x003a}
0xc370…c37a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0044}
0xc37a…c38c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007d, t01=0x004e}
0xc38c…c3bc               Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x007d, t01=0x0060}
0xc3bc…c3cc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0090}
0xc3cc…c3d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x00a0}
0xc3d8…c3e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00ac}
0xc3e2…c412               Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x007d, t01=0x00b6}
0xc412…c422               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x00e6}
0xc422…c42c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00f6}
0xc42c…c442               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x007d, t01=0x0100}
0xc442…c474               Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x007d, t01=0x0116}
0xc474…c484               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0148}
0xc484…c4bc               Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x007d, t01=0x0158}
0xc4bc…c4cc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0190}
0xc4cc…c4d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0010}
0xc4d8…c4e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x001c}
0xc4e2…c4fa               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007e, t01=0x0026}
0xc4fa…c504               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x003e}
0xc504…c50e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0048}
0xc50e…c522               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x007e, t01=0x0052}
0xc522…c55c               Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x007e, t01=0x0066}
0xc55c…c56c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x00a0}
0xc56c…c59c               Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x007e, t01=0x00b0}
0xc59c…c5ac               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x00e0}
0xc5ac…c5dc               Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x007e, t01=0x00f0}
0xc5dc…c5ec               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x0120}
0xc5ec…c5f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0130}
0xc5f8…c602               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x013c}
0xc602…c614               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007e, t01=0x0146}
0xc614…c644               Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x007e, t01=0x0158}
0xc644…c65a               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007e, t01=0x0188}
0xc65a…c682               Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x007f, t01=0x000e}
0xc682…c698               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007f, t01=0x0036}
0xc698…c6c2               Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x007f, t01=0x004c}
0xc6c2…c6d8               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007f, t01=0x0076}
0xc6d8…c706               Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x007f, t01=0x008c}
0xc706…c71c               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007f, t01=0x00ba}
0xc71c…c74e               Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x007f, t01=0x00d0}
0xc74e…c764               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007f, t01=0x0102}
0xc764…c770               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0118}
0xc770…c77a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0124}
0xc77a…c792               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007f, t01=0x012e}
0xc792…c79c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0146}
0xc79c…c7a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0150}
0xc7a6…c7d0               Head {h00=0x0026, h01=0x0050, text=»DWTBA EQU *-DWFD01 BUFFER POINTER «, t00=0x007f, t01=0x015a}
0xc7d0…c7e0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0184}
0xc7e0…c80c (128, 0, 400) Head {h00=0x0028, h01=0x0050, text=»DWTRL EQU *-DWFD01 LENGTH IN SUB IO «, t00=0x0080, t01=0x0004}
0xc80c…c81c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0080, t01=0x0030}
0xc81c…c846               Head {h00=0x0026, h01=0x0050, text=»DWTCW2 EQU *-DWFD01 SECTOR NUMBER «, t00=0x0080, t01=0x0040}
0xc846…c856               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0080, t01=0x006a}
0xc856…c888               Head {h00=0x002e, h01=0x0050, text=»DWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER «, t00=0x0080, t01=0x007a}
0xc888…c898               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0080, t01=0x00ac}
0xc898…c8d0               Head {h00=0x0034, h01=0x0050, text=»DWTSIO EQU *-DWFD01 NUMBER OF SECTORS IN SUB IO «, t00=0x0080, t01=0x00bc}
0xc8d0…c8e0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0080, t01=0x00f4}
0xc8e0…c8ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0104}
0xc8ea…c902               Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0080, t01=0x010e}
0xc902…c92c               Head {h00=0x0026, h01=0x0050, text=»DWTFIB EQU *-DWFD01 IBM INDICATOR «, t00=0x0080, t01=0x0126}
0xc92c…c93c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0080, t01=0x0150}
0xc93c…c948               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x0160}
0xc948…c952               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x016c}
0xc952…c96a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0080, t01=0x0176}
0xc96a…c974               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x018e}
0xc974…c97e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0008}
0xc97e…c994               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0081, t01=0x0012}
0xc994…c9b0               Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x0081, t01=0x0028}
0xc9b0…c9d8               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x0081, t01=0x0044}
0xc9d8…c9f4               Head {h00=0x0018, h01=0x0050, text=»BUFFLG EQU *-DWFD01 «, t00=0x0081, t01=0x006c}
0xc9f4…ca04               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0081, t01=0x0088}
0xca04…ca0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0098}
0xca0e…ca26               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0081, t01=0x00a2}
0xca26…ca42               Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x0081, t01=0x00ba}
0xca42…ca70               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x0081, t01=0x00d6}
0xca70…ca90               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0081, t01=0x0104}
0xca90…ca9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0124}
0xca9a…cab6               Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0081, t01=0x012e}
0xcab6…cae4               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0081, t01=0x014a}
0xcae4…caf0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0178}
0xcaf0…cafa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0184}
0xcafa…cb10               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0081, t01=0x018e}
0xcb10…cb24               Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0082, t01=0x0014}
0xcb24…cb40               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0082, t01=0x0028}
0xcb40…cb4c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0082, t01=0x0044}
0xcb4c…cb56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0050}
0xcb56…cb60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x005a}
0xcb60…cb6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0064}
0xcb6a…cb76               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0082, t01=0x006e}
0xcb76…cb7a               Head {h00=0x4004, h01=0x0000}
0xcb7a…cb7e               00 82 00 7a                                                                                                                                                                                                                                       ┆   z┆
0xcb7e…cb86 (131, 1, 8)   20 04 00 00 00 83 00 04                                                                                                                                                                                                                           ┆        ┆
0xcb86…cbd6 (132, 0, 400) 84 21 00 63 b8 25 04 63 84 20 00 7b 01 74 00 2a 00 26 03 12 00 00 02 0d 00 00 63 20 10 5f b5 00 93 26 80 07 13 00 84 20 02 90 21 3f 03 00 84 20 30 09 02 25 25 01 b3 38 00 7c 00 12 00 2a 00 26 03 12 00 00 02 2b 00 00 3f 02 04 92 21 36 92 08   ┆ ! c % c   { t * &        c  _   &        !?    0  %%  8 |   * &     +  ?   !6  ┆
0xcbd6…cc26               02 08 0e 28 44 54 64 74 5f fe 00 b8 2a 90 3f 02 00 b8 2b 90 3f 02 00 7c 00 40 00 2a 00 26 03 12 00 00 02 49 00 00 00 94 20 80 08 2c 3c 01 6a 99 20 21 95 20 21 99 39 04 40 69 57 02 41 69 3f 02 80 0a 50 0a 00 7c 00 6e 00 2a 00 26 03 12 00 00   ┆   (DTdt_   * ?   + ?  | @ * &     I       ,< j  !  ! 9 @iW Ai?   P  | n * &    ┆
0xcc26…cc76               02 67 00 00 21 99 3a 02 3f 04 41 92 57 0a 40 92 21 99 3c 04 41 9a 3f 02 40 9a 3f 02 80 0a 3c 04 21 99 00 7c 00 9c 00 2a 00 26 03 12 00 00 02 85 00 00 3c 04 41 98 3f 02 40 98 3f 02 80 0a 3c 04 21 99 3c 04 41 94 3f 02 40 94 3f 02 80 0a 3c 04   ┆ g  ! : ? A W @ ! < A ? @ ?   < !  |   * &        < A ? @ ?   < ! < A ? @ ?   < ┆
0xcc76…ccc6               00 7c 00 ca 00 2a 00 26 03 12 00 00 02 a3 00 00 21 99 3c 04 40 96 3f 02 41 96 3f 02 3f 05 00 99 95 21 99 3c 09 21 99 3d 05 06 20 21 57 03 00 7c 00 f8 00 2a 00 26 03 12 00 00 02 c1 00 00 06 20 20 34 00 41 6e 49 6a 0c 40 7b 20 81 22 04 40 69   ┆ |   * &        ! < @ ? A ? ?    ! < ! =   !W  |   * &           4 AnIj @{  " @i┆
0xccc6…cd16               57 02 41 69 00 8f 20 00 83 21 80 09 00 7c 01 26 00 2a 00 26 03 12 00 00 02 df 00 00 22 83 8f 9d 50 0a 80 07 10 37 91 02 16 16 3f 06 00 e9 25 83 01 1b 83 41 30 3b 1b 83 20 2c 00 7c 01 54 00 2a 00 26 03 12 00 00 02 fd 00 00 30 3a 1b 83 20 2c   ┆W Ai     !   | & * &        "   P    7    ?   %    A0;   , | T * &        0:   ,┆

Reduced view