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

⟦95ac1a7aa⟧ 

    Length: 52680 (0xcdc8)
    Notes: pts_type(SC)
    Names: »DRFD01.SC«

Derivation

└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
    └─⟦this⟧ »TOSSWORK/DRFD01.SC«

PTS(SC)

	IDENT DRFD01 	REL 10.0 80-03-14 870105041000 

* 
**********************************************
* 
*  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	X:A
* 
*	A PROGRAM VERSION INCLUDING TOSS DISC FORMAT
*	IS OBTAINED BY SETTING TOSS EQU 1.
* 
X:B	EQU	0 
TOSS	EQU	X:B
* 
*	A PROGRAM VERSION INCLUDING IBM DISC FORMAT 
*	IS OBTAINED BY SETTING IBM EQU 1. 
* 
X:C	EQU	0 
IBM	EQU	X:C 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	0
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
	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	X:D
* 
	EJECT			DRFD01 
* 
* 
*   MMU BUFFER SIZE 
* 
* 
	IFT	MMUPAG=0 
DVBLEN	EQU	256
	XIF
* 
	IFT	MMUPAG=1 
X:E	EQU	256		 
DVBLEN	EQU	X:E		
	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,ASCII	TRANSFORM TO ASCII 
* 
	EJECT			DRFD01 
* 
* 
	IFT	MMUPAG=1 
	TS	-30,A15	SAVE RUNNING TASK'S MMU 
	LD	A7,DWTTAB,A6	TTAB ADDRESS 
	TL	TTB:MT,A7	LOAD MMU TABLE
	LDKL	A1,BUF	DRIVER BUFFER ADDRESS
	LD	A2,DWTUEC,A6	USER ECB ADDRESS 
	EL	A2,ECBBA,A2	USER BUFFER ADDRESS 
	LDK	A7,SECLEN	LENGTH 
	MVSU	A7	MOVE SECTOR TO USER BUFFER 
	TL	-30,A15	RESTORE MMU TABLE FROM STACK
	XIF
* 
	IFT	IBM=1
	LDK	A1,DWTCRN
	CF	A5,DSPAD
	RF	SQW:10	UPDATE CRN 
* 
*    END OF DATA
* 
SQR:10	LDKL	A1,/1000	RETURN CODE
	RF	END:IO
* 
	EJECT			DRFD01 
* 
******************* 
* SEQUENTIAL WRITE *
******************* 
* 
SQWRIT	EQU	*
* 
*   CHECK IF END OF EXTENT
* 
	LDK	A1,DWTEOE
	CF	A5,DSPAD	EOE-NO ADDRESS TO A2 
	ST	A7,ECBCW2,A8	STORE EOD IN ECB C. W. 
	CWK	A7,MAXIBM
	RF(P)	FD:DIS	REQUEST ERROR 
	CWR*	A7,A2 
	RF(G)	ENDEOE	END OF EXTENT 
* 
	IFT	MMUPAG=1 
	TS	-30,A15	SAVE RUNNING TASK'S MMU 
	LD	A7,DWTTAB,A6	TTAB ADDRESS 
	TL	TTB:MT,A7	LOAD MMU TABLE
	LD	A1,DWTUEC,A6	USER ECB ADDRESS 
	EL	A1,ECBBA,A1	USER BUFFER ADDRESS 
	LDKL	A2,BUF	DRIVER BUFFER ADDRESS
	LDK	A7,SECLEN	LENGTH 
	MVUS	A7	MOVE SECTOR TO DRIVER BUFFER 
	TL	-30,A15	RESTORE MMU TABLE FROM STACK
	XIF
* 
	IFT	IBM=1
	LDK	A4,5	BIO WRITE 
	CF	A5,BIOSQ
	LDK	A7,SECLEN
	CF	A5,EBCDIC	TRANSFORM AND MOVE TO BUF 
* 
	EJECT		DRFD01
* 
* 
	CF	A5,FD:WRI 
	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 
	CF	A5,LD:RC
	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,ASCII	TRANSFER IBM VOLUME NAME TO ASCII
	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	* 
	IFT	MMUPAG=1 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	XIF
* 
	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	*
	ENB
	IFT	MMUPAG=1 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
	XIF
* 
	IFT	IBM=1
	ADR	A4,A7
EBC:10	EQU	*
	SUK	A4,1 
	LCR	A1,A4	GET ASCII CHAR.
	ANK	A1,/FF 
	LC	A1,TEBCDIC,A1 
	SC	A1,BUF-1,A7 
	SUK	A7,1 
	RB(P)	EBC:10 
	LDKL	A4,BUF	DRIVER BUFFER ADDRESS
EBC:90	EQU	*
	INH		INHIBIT INTERRUPTS
	RTN	A5 
* 
	EJECT			DRFD01 
* 
**********
* LOGSEC *
********* 
* 
*  FUNCTION:  LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD 
*              LOGICAL SECTOR (BINARY). 
*             FORMAT OF PHYS. SEC.  TT0SS  (EBCDIC CODE)
*              TT = TRACK,  SS=SECTOR 
* 
*  INPUT:    A4  ADDRESS TO PHYS. SECTOR
* 
*  OUTPUT:   A3  BINARY SECTOR NO 
*            A4  ADDRESS TO PHYS. SEC. + 4
* 
LOGSEC	EQU	*
	CF	A5,DECBIN 
	LDR	A3,A1	SAVE 
	ADK	A4,2 
* 
*  MULTIPLY BY 26 
* 
	SLL	A3,5	*32 
	LDR	A2,A1
	SLL	A2,2 
	SUR	A3,A2	*28
	SLL	A1,1 
	SUR	A3,A1	*26
	CF	A5,DECBIN 
	SUK	A1,1 
	ADR	A3,A1
* 
	EJECT			DRFD01 
* 
*  CHECK SECTOR NO
* 
	LDR	A1,A3
	SUK	A1,25
	RF(NP)	LOG:10
	CWK	A4,BUF+EOD+4	EOD 
	RF(E)	LOG:02	YES!
	SUKL	A1,1898 
	RF	LOG:04
* 
*  CHECK EOD LESS/EQUAL 74001 
* 
LOG:02	SUKL	A1,1899 
LOG:04	EQU	*
	RF(P)	LOG:10	NOT ACC SEC. NO 
	SUK	A4,4	RESET BUFFER POINTER
	RTN	A5 
* 
*  FATAL ERROR
* 
LOG:05	ADK	A5,4	ADJUST STACK POINTER
LOG:10	LDK	A1,/10	RETURN CODE 
	ORRS	A1,A6	UPDATE TEMPORARY RETURN CODE
	INH		INHIBIT INTERRUPTS
	ABL	LOA:90	ERROR ROUTINE 
* 
	EJECT			DRFD01 
* 
**********
* DECBIN* 
**********
* 
*  FUNCTION:  DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO
*             BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED 
*     INPUT:  A4  ADDRESS TO FIRST DIGIT
*   OUTPUT: A1  BINARY
*   WORKING REG:  A2,A7 
* 
DECBIN	LDK	A1,0 
	LDK	A7,2 
DEC:10	LCR	A2,A4	DIGIT
	ANK	A2,/FF 
	SUK	A2,/F0 
	RB(N)	LOG:05 
	SUK	A2,9 
	RB(P)	LOG:05	NOT DIGIT 
	ADK	A2,9 
	SUK	A7,1 
	RF(Z)	DEC:30 
	ADK	A4,1	ADDRESS TO SECOND DIGIT 
DEC:20	SUK	A2,1 
	RB(N)	DEC:10	NEXT DIGIT
	ADK	A1,/A	MULTIPLY BY 10 
	RB	DEC:20
DEC:30	ADR	A1,A2
	RTN	A5 
	XIF
* 
	EJECT			DRFD01 
* 
**********
* SETCIO *
**********
* 
*  FUNCTION:  PUT DRIVE NO IN CIO INSTRUCTION 
* 
*  INPUT:  A3  DRIVE NO , (BITS 0-13 MUST BE ZEROES 
* 
*  OUTPUT: A3  CHANGED
*          A4  CHANGED
* 
SETCIO	LDKL	A4,/FFCF
	ANS	A4,FD:CIO
	SLL	A3,4 
	ORS	A3,FD:CIO
	RTN 	A5
	IFT	IBM=1
* 
	EJECT			DRFD01 
* 
**********
* BINDEC *
**********
* 
*  FUNCTION:  BINDEC TRANSFORMS A BINARY NUMBER TO TWO
*             EBCDIC-CODED DIGITS (DECIMAL) 
* 
*  INPUT:  A7  BINARY NUMBER
* 
*  OUTPUT: A3  EBCDIC CODED DECIMAL DIGITS
*          A7  CHANGED
* 
BINDEC	LDK	A3,0 
BIN:10	SUK	A7,10
	RF(N)	BIN:20 
	ADK	A3,1 
	RB	BIN:10
BIN:20	ADK	A7,10
	SLL	A3,8 
	ORR	A3,A7	DECIMAL CONVERTED NO IN A3 
	ORKL	A3,/F0F0	EBCDIC CODED 
	RTN A5 
* 
	EJECT			DRFD01 
********* 
* DSLIO * 
********* 
* 
*  FUNCTION:  PREPARE FOR READING DATA SET LABEL
* 
*  INPUT:  A6  DWT ADDRESS
* 
*  OUTPUT: A2  BITS 0-12 SECTOR NO, BITS 13-15 ZEROES 
*          A3   128 
*          A4  DRIVER BUFFER ADDRESS
*          A6  DWT ADDRESS
*           A1 IS CHANGED 
* 
DSLIO	LDK	A1,DWTDSS 
	CF	A5,DSPAD
	LDR*	A2,A2 
	SLL	A2,3 
	LDK	A3,128 
	LDKL	A4,BUF
	RTN	A5 
* 
	EJECT			DRFD01 
* 
**********
* DSOPCH *
**********
* 
*  FUNCTION:  GET EOD-NO AND EOD-NO ADDRESS IN DWT
* 
*  INPUT:  A6  DWT ADDRESS
* 
*  OUTPUT: A2  EOD ADDRESS
*          A7  EOD-NO      (0=NOT OPEN) 
*          A1  CHANGED
DSOPCH	LDK	A1,DWTEOD
	CF	A5,DSPAD
	LDR*	A7,A2	EOD-NO
	RTN	A5 
* 
	EJECT			DRFD01 
* 
********* 
* DSPAD * 
********* 
* 
*  FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED
*            TYPE OF DATA FOR CORRESPONDING DRIVE 
* 
*  INPUT:  A1  DWT OFFSET 
*          A6  DWT ADDRESS
* 
*  OUTPUT: A2  ADDRESS TO DATA
*          A6  DWT ADDRESS
* 
DSPAD	LC	A2,DWTOR,A6	DRIVE NO 
	ANK	A2,/3
	ADR	A2,A2
	ADR	A2,A6
	ADR	A2,A1
	RTN	A5 
* 
	EJECT			DRFD01 
* 
********* 
* STDWT * 
********* 
* 
*  FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF
*            DRIVE NO 
* 
*  INPUT:    A1  OFFSET TO DWT AREA 
*            A3  WORD TO BE STORED IN DWT 
*            A6  DWT ADDRESS
* 
*  OUTPUT:   A1  UNCHANGED
*            A2  ADDRESS TO WORD IN DWT AREA
*            A3  UNCHANGED
*            A6  UNCHANGED
* 
STDWT	EQU	* 
	CF	A5,DSPAD
	STR	A3,A2
	RTN	A5 
	XIF
* 
	EJECT			DRFD01 
* 
*    D R I V E R   B U F F E R
* 
BUF	EQU	* 
	IFT	IBM=1
	RES	DVBLEN 
	XIF
* 
	IFT	TOSS=1 
	IFT	IBM=0
	DATA	0,0,0	VOLUME NAME BUFFER
	IFT	MMUPAG+CHAN=2
	RES	DVBLEN-3	MMU BUFFER
	XIF
* 
	IFT	TOSS+IBM=0 
	IFT	MMUPAG+CHAN=2
	RES	DVBLEN	MMU BUFFER
	XIF
* 
	EJECT			DRFD01 
* 
********************* 
*                   * 
* DEVICE WORK TABLE * 
*                   * 
********************* 
* 
DWFD01	EQU	*
DWTRCW	EQU	*-DWFD01	TEMP RETURN CODE
	DATA	0 
	DATA	/8000	DWT STATUS
	DATA	0	ECB ADDRESS 
	DATA	0	ORDER 
	DATA	FDADR	ACTIVATION ADDRESS
	DATA	0	TTAB-ADDRESS
	DATA	0	WAIT/ACTIVATE INDICATOR 
	DATA	0	TERMINAL QUEUE
* 
	IFT	MMUPAG=1 
	DATA	0	SAVE AREA USER ECB ADDRESS
	DATA	DEVECB	MMU ECB ADDRESS
	XIF
* 
DWTA3	EQU	*-DWFD01
	DATA	0 
	DATA	0	SAVE AREA 
	DATA	0 
	DATA	0 
	DATA	0,0,0,0	STACK (3 LEVELS)
	DATA	0	ORDER SAVE AREA 
* 
	EJECT			DRFD01 
* 
* 
	IFF	TOSS+IBM=0 
	DATA	/8000	NVL INDICATOR 0 
	DATA	/8000	NVL INDICATOR 1 
	DATA	/8000	NVL INDICATOR 2 
	DATA	/8000	NVL INDICATOR 3 
DWTVO0	EQU	*-DWFD01	VOLUME NAME NO 0
	DATA	/FFFF,/FFFF,/FFFF 
DWTVO1	EQU	*-DWFD01	VOLUME NAME NO 1
	DATA	/FFFF,/FFFF,/FFFF 
DWTVO2	EQU	*-DWFD01	VOLUME NAME NO 2
	DATA	/FFFF,/FFFF,/FFFF 
DWTVO3	EQU	*-DWFD01	VOLUME NAME NO 3
	DATA	/FFFF,/FFFF,/FFFF 
DWTST2	EQU	*-DWFD01	SAVE STATUS WORD
	DATA	0 
	XIF
DWTA5	EQU	*-DWFD01
	DATA	0 
DWTRTY	EQU	*-DWFD01	RETRY REQUEST FLAG
	DATA	0 
DWTTP	EQU	*-DWFD01	TIMER POINTER
	DATA	0 
* 
	EJECT			DRFD01 
* 
* 
	IFT	IBM=1
DWTLAB	EQU	*-DWFD01	DISC LABEL INDICATOR
	DATA	0 
	XIF
* 
DWTLC	EQU	*-DWFD01	DRIVE LOCK INDICATOR 
	DATA	0 
* 
	IFT	OPCLOS=1 
DWTTP2	EQU	*-DWFD01	TIMER POINTER FOR OPEN
	DATA	0 
DWTOCF	EQU	*-DWFD01	OPEN/CLOSE FLAG AT POWER ON 
	DATA	0 
	XIF
* 
	EJECT			DRFD01 
* 
* 
	IFT	CHAN=1 
DWTUB	EQU	*-DWFD01	POINTER AT NEXT WORD IN BUFFER 
	DATA	0 
DWTUBE	EQU	*-DWFD01	BUFFER END ADDRESS+2
	DATA	0 
DWTRW	EQU	*-DWFD01	READ/WRITE INDICATOR 
	DATA	0 
	XIF
* 
	IFT	IBM=1
DWTBOE	EQU	*-DWFD01	BEGINNING OF EXTENT 
	DATA	0,0,0,0 
DWTEOD	EQU	*-DWFD01	END OF DATA 
	DATA	0,0,0,0 
DWTEOE	EQU	*-DWFD01	END OF EXTENT 
	DATA	0,0,0,0 
DWTCRN	EQU	*-DWFD01	CURRENT RECORD NO 
	DATA	0,0,0,0 
DWTDSS	EQU	*-DWFD01	DATA SET LABEL SECTOR 
	DATA	0,0,0,0 
	XIF
* 
	EJECT			DRFD01 
* 
* 
DWTBA	EQU	*-DWFD01	BUFFER POINTER 
	DATA	0 
DWTRL	EQU	*-DWFD01	LENGTH IN SUB IO 
	DATA	0 
DWTCW2	EQU	*-DWFD01	SECTOR NUMBER 
	DATA	0 
DWTNOS	EQU	*-DWFD01	SECTOR NUMBER COUNTER 
	DATA	0 
DWTSIO	EQU	*-DWFD01	NUMBER OF SECTORS IN SUB IO 
	DATA	0 
* 
	IFT	IBM+TOSS=2 
DWTFIB	EQU	*-DWFD01	IBM INDICATOR 
	DATA	0 
	XIF
* 
	EJECT			DRFD01 
* 
* 
	IFT	MMUPAG=1 
DWT:BF	EQU	*-DWFD01 
	DATA	0	SAVE AREA BUFFER ADDRESS
BUFFLG	EQU	*-DWFD01 
	DATA	0 
* 
	IFF	CHAN+IBM=0 
DWT:PA	EQU	*-DWFD01 
	DATA	0	6 BIT PHYSICAL BUFFER ADDRESS 
	DATA	0	SECOND MMU ENTRY
* 
DWT:LA	EQU	*-DWFD01 
	DATA	0	16 BIT LOGICAL BUFFER ADDRESS 
	XIF
* 
	IFT	MMUPAG=1 
DEVECB	EQU	*
	DATA	0,0,0,0,0,0,0 
	XIF
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT DRFD01  REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…007e               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x004c}
0x007e…0088               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0082}
0x0088…00ae               Head {h00=0x0022, h01=0x0050, text=»*  PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x008c}
0x00ae…00b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00e4               Head {h00=0x0028, h01=0x0050, text=»*  DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x00bc}
0x00e4…00ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…00f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x00f8…0102               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…010c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…0156               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0000, t01=0x0124}
0x0156…0160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…016a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…019e               Head {h00=0x0030, h01=0x0050, text=»*  THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0000, t01=0x016e}
0x019e…01d0               Head {h00=0x002e, h01=0x0050, text=»*  CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x0012}
0x01d0…0204               Head {h00=0x0030, h01=0x0050, text=»*  CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x0044}
0x0204…022e               Head {h00=0x0026, h01=0x0050, text=»*  MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x0078}
0x022e…0238               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a2}
0x0238…0242               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ac}
0x0242…025a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0001, t01=0x00b6}
0x025a…0264               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0264…0276               Head {h00=0x000e, h01=0x0050, text=»*  ORDERS:«, t00=0x0001, t01=0x00d8}
0x0276…0280               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x0280…029c               Head {h00=0x0018, h01=0x0050, text=»*  /00   TEST STATUS«, t00=0x0001, t01=0x00f4}
0x029c…02ba               Head {h00=0x001a, h01=0x0050, text=»*  /01   PHYSICAL READ«, t00=0x0001, t01=0x0110}
0x02ba…0300               Head {h00=0x0042, h01=0x0050, text=»*  /02   SEQUENTIAL READ                       -IBM DISC ONLY-«, t00=0x0001, t01=0x012e}
0x0300…031c               Head {h00=0x0018, h01=0x0050, text=»*  /05   BASIC WRITE«, t00=0x0001, t01=0x0174}
0x031c…0364               Head {h00=0x0044, h01=0x0050, text=»*  /06   SEQUENTIAL WRITE                       -IBM DISC ONLY- «, t00=0x0001, t01=0x0190}
0x0364…0382               Head {h00=0x001a, h01=0x0050, text=»*  /11   PHYSICAL READ«, t00=0x0002, t01=0x0048}
0x0382…03a2               Head {h00=0x001c, h01=0x0050, text=»*  /15   PHYSICAL WRITE «, t00=0x0002, t01=0x0066}
0x03a2…03b6               Head {h00=0x0010, h01=0x0050, text=»*  /21 OPEN «, t00=0x0002, t01=0x0086}
0x03b6…03ca               Head {h00=0x0010, h01=0x0050, text=»*  /22 CLOSE«, t00=0x0002, t01=0x009a}
0x03ca…03ee               Head {h00=0x0020, h01=0x0050, text=»*  /24   WRITE DELETED DATA «, t00=0x0002, t01=0x00ae}
0x03ee…0404               Head {h00=0x0012, h01=0x0050, text=»*  /26   LOCK «, t00=0x0002, t01=0x00d2}
0x0404…044c               Head {h00=0x0044, h01=0x0050, text=»*  /31   REWIND                                 -IBM DISC ONLY- «, t00=0x0002, t01=0x00e8}
0x044c…0462               Head {h00=0x0012, h01=0x0050, text=»*  /37   LOAD «, t00=0x0002, t01=0x0130}
0x0462…047a               Head {h00=0x0014, h01=0x0050, text=»*  /38   UNLOAD «, t00=0x0002, t01=0x0146}
0x047a…0484               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015e}
0x0484…04a0               Head {h00=0x0018, h01=0x0050, text=»*  ENTRY PARAMETERS:«, t00=0x0002, t01=0x0168}
0x04a0…04aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0184}
0x04aa…04c6               Head {h00=0x0018, h01=0x0050, text=»*   A5   STACK BASE «, t00=0x0002, t01=0x018e}
0x04c6…04e2               Head {h00=0x0018, h01=0x0050, text=»*   A6   DWT-ADDRESS«, t00=0x0003, t01=0x001a}
0x04e2…04f8               Head {h00=0x0012, h01=0x0050, text=»*   A7   ORDER«, t00=0x0003, t01=0x0036}
0x04f8…0514               Head {h00=0x0018, h01=0x0050, text=»*   A8   ECB-ADDRESS«, t00=0x0003, t01=0x004c}
0x0514…052c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0003, t01=0x0068}
0x052c…0536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0080}
0x0536…054a               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x008a}
0x054a…055e               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x009e}
0x055e…0572               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x00b2}
0x0572…0586               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x00c6}
0x0586…059a               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x00da}
0x059a…05a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x05a4…05cc               Head {h00=0x0024, h01=0x0050, text=» ENTRY  FDADR ACTIVATION ADDRESS«, t00=0x0003, t01=0x00f8}
0x05cc…05f2               Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0003, t01=0x0120}
0x05f2…0616               Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0003, t01=0x0146}
0x0616…0638               Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0003, t01=0x016a}
0x0638…0650               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0003, t01=0x018c}
0x0650…065a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x065a…0670               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x001e}
0x0670…0686               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x0034}
0x0686…069c               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x004a}
0x069c…06b2               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x0060}
0x06b2…06c8               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0076}
0x06c8…06d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…06f2               Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x0096}
0x06f2…070e               Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0004, t01=0x00b6}
0x070e…0732               Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x00d2}
0x0732…0760               Head {h00=0x002a, h01=0x0050, text=» EXTRN DISEND PERFORM TENDIO AND TDISP«, t00=0x0004, t01=0x00f6}
0x0760…0788               Head {h00=0x0024, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAME «, t00=0x0004, t01=0x0124}
0x0788…07b2               Head {h00=0x0026, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME ADDRESS «, t00=0x0004, t01=0x014c}
0x07b2…07e6               Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET VOLUME NAME TO DWT AND SET NVL«, t00=0x0004, t01=0x0176}
0x07e6…0818               Head {h00=0x002e, h01=0x0050, text=» EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0005, t01=0x001a}
0x0818…0834               Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x004c}
0x0834…0856               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x0068}
0x0856…087c               Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0005, t01=0x008a}
0x087c…08a4               Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x00b0}
0x08a4…08d0               Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTORD ORDER/INDEX SAVE AREA «, t00=0x0005, t01=0x00d8}
0x08d0…08f2               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0005, t01=0x0104}
0x08f2…0914               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0005, t01=0x0126}
0x0914…093e               Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0005, t01=0x0148}
0x093e…095e               Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0005, t01=0x0172}
0x095e…098a (6, 0, 400)   Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0006, t01=0x0004}
0x098a…09a6               Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0006, t01=0x0030}
0x09a6…09d0               Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0006, t01=0x004c}
0x09d0…09fa               Head {h00=0x0026, h01=0x0050, text=» EXTRN PFPOST PWF POST PROC. FLAG «, t00=0x0006, t01=0x0076}
0x09fa…0a24               Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0006, t01=0x00a0}
0x0a24…0a4e               Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0006, t01=0x00ca}
0x0a4e…0a82               Head {h00=0x0030, h01=0x0050, text=» EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE«, t00=0x0006, t01=0x00f4}
0x0a82…0aaa               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0006, t01=0x0128}
0x0aaa…0ad4               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0006, t01=0x0150}
0x0ad4…0afe               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0006, t01=0x017a}
0x0afe…0b26               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW1 ECB CONTROL WORD 1«, t00=0x0007, t01=0x0014}
0x0b26…0b4e               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBCW2 ECB CONTROL WORD 2«, t00=0x0007, t01=0x003c}
0x0b4e…0b66               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0007, t01=0x0064}
0x0b66…0b70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b70…0b90               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0086}
0x0b90…0bb0               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x00a6}
0x0bb0…0bd0               Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x00c6}
0x0bd0…0bf0               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x00e6}
0x0bf0…0c10               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0106}
0x0c10…0c1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0126}
0x0c1a…0c4c               Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0007, t01=0x0130}
0x0c4c…0c70               Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0007, t01=0x0162}
0x0c70…0c7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0186}
0x0c7a…0c8c               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x0190}
0x0c8c…0ca0               Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:A«, t00=0x0008, t01=0x0012}
0x0ca0…0caa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0026}
0x0caa…0ce0               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0008, t01=0x0030}
0x0ce0…0d0c               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0008, t01=0x0066}
0x0d0c…0d16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0092}
0x0d16…0d28               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x009c}
0x0d28…0d3c               Head {h00=0x0010, h01=0x0050, text=»TOSS EQU X:B«, t00=0x0008, t01=0x00ae}
0x0d3c…0d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c2}
0x0d46…0d7c               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x00cc}
0x0d7c…0da8               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x0102}
0x0da8…0db2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012e}
0x0db2…0dc4               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0008, t01=0x0138}
0x0dc4…0dd8               Head {h00=0x0010, h01=0x0050, text=»IBM EQU X:C «, t00=0x0008, t01=0x014a}
0x0dd8…0de2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015e}
0x0de2…0e14               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0168}
0x0e14…0e42               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0009, t01=0x000a}
0x0e42…0e4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0038}
0x0e4c…0e60               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x0042}
0x0e60…0e6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0056}
0x0e6a…0e74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0060}
0x0e74…0eae               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x006a}
0x0eae…0ee0               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x00a4}
0x0ee0…0eea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d6}
0x0eea…0efe               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0009, t01=0x00e0}
0x0efe…0f08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f4}
0x0f08…0f20               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0009, t01=0x00fe}
0x0f20…0f2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0116}
0x0f2a…0f34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0120}
0x0f34…0f78               Head {h00=0x0040, h01=0x0050, text=»*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x0009, t01=0x012a}
0x0f78…0fc0               Head {h00=0x0044, h01=0x0050, text=»*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x0009, t01=0x016e}
0x0fc0…0fca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0026}
0x0fca…0fdc               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x0030}
0x0fdc…0ff2               Head {h00=0x0012, h01=0x0050, text=»OPCLOS EQU X:D«, t00=0x000a, t01=0x0042}
0x0ff2…0ffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0058}
0x0ffc…1014               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000a, t01=0x0062}
0x1014…101e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007a}
0x101e…1028               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0084}
0x1028…1044               Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x000a, t01=0x008e}
0x1044…104e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00aa}
0x104e…1058               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b4}
0x1058…106e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000a, t01=0x00be}
0x106e…1084               Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 256«, t00=0x000a, t01=0x00d4}
0x1084…1090               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00ea}
0x1090…109a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f6}
0x109a…10b0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000a, t01=0x0100}
0x10b0…10c6               Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256   «, t00=0x000a, t01=0x0116}
0x10c6…10de               Head {h00=0x0014, h01=0x0050, text=»DVBLEN EQU X:E  «, t00=0x000a, t01=0x012c}
0x10de…10ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0144}
0x10ea…10f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0150}
0x10f4…10fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015a}
0x10fe…111a               Head {h00=0x0018, h01=0x0050, text=»*   MMU DEVICE INDEX«, t00=0x000a, t01=0x0164}
0x111a…1124               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0180}
0x1124…112e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018a}
0x112e…1144 (11, 0, 400)  Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU 10 «, t00=0x000b, t01=0x0004}
0x1144…114e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001a}
0x114e…1166               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000b, t01=0x0024}
0x1166…1170               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x003c}
0x1170…1186               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0046}
0x1186…119c               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x005c}
0x119c…11b2               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x0072}
0x11b2…11c8               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x0088}
0x11c8…11de               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x009e}
0x11de…11e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b4}
0x11e8…1212               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000b, t01=0x00be}
0x1212…123c               Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000b, t01=0x00e8}
0x123c…1268               Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000b, t01=0x0112}
0x1268…128c               Head {h00=0x0020, h01=0x0050, text=»SECLEN EQU 128 SECTOR LENGTH«, t00=0x000b, t01=0x013e}
0x128c…12b6               Head {h00=0x0026, h01=0x0050, text=»MAXSEC EQU 2002 MAX SECTOR NUMBER «, t00=0x000b, t01=0x0162}
0x12b6…12e8               Head {h00=0x002e, h01=0x0050, text=»MAXIBM EQU 1923 MAX SECTOR NUMBER IBM DISC«, t00=0x000b, t01=0x018c}
0x12e8…1314               Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000c, t01=0x002e}
0x1314…133e               Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000c, t01=0x005a}
0x133e…1366               Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000c, t01=0x0084}
0x1366…138a               Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000c, t01=0x00ac}
0x138a…13b4               Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000c, t01=0x00d0}
0x13b4…13be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fa}
0x13be…13e6               Head {h00=0x0024, h01=0x0050, text=»DIXTAB EQU * DOUBLE INDEX TABLE «, t00=0x000c, t01=0x0104}
0x13e6…13fa               Head {h00=0x0010, h01=0x0050, text=» DATA /0102 «, t00=0x000c, t01=0x012c}
0x13fa…140e               Head {h00=0x0010, h01=0x0050, text=» DATA /0408 «, t00=0x000c, t01=0x0140}
0x140e…1418               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0154}
0x1418…1430               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000c, t01=0x015e}
0x1430…143a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0176}
0x143a…144c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000c, t01=0x0180}
0x144c…145e (13, 0, 400)  Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000d, t01=0x0004}
0x145e…1470               Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000d, t01=0x0016}
0x1470…1482               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000d, t01=0x0028}
0x1482…1494               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x003a}
0x1494…149e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004c}
0x149e…14b6               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x000d, t01=0x0056}
0x14b6…14e2               Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000d, t01=0x006e}
0x14e2…14ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x009a}
0x14ee…14f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a6}
0x14f8…150c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000d, t01=0x00b0}
0x150c…151e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x000d, t01=0x00c4}
0x151e…1544               Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, t00=0x000d, t01=0x00d6}
0x1544…1550               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00fc}
0x1550…155a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0108}
0x155a…157c               Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000d, t01=0x0112}
0x157c…15a6               Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000d, t01=0x0134}
0x15a6…15cc               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000d, t01=0x015e}
0x15cc…15d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0184}
0x15d6…15ee               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000d, t01=0x018e}
0x15ee…15f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0016}
0x15f8…1610               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x0020}
0x1610…1628               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x000e, t01=0x0038}
0x1628…1640               Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x000e, t01=0x0050}
0x1640…1658               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x000e, t01=0x0068}
0x1658…1670               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x000e, t01=0x0080}
0x1670…167a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0098}
0x167a…168e               Head {h00=0x0010, h01=0x0050, text=»TESTST EQU *«, t00=0x000e, t01=0x00a2}
0x168e…16a6               Head {h00=0x0014, h01=0x0050, text=» IFF IBM+TOSS=0 «, t00=0x000e, t01=0x00b6}
0x16a6…16bc               Head {h00=0x0012, h01=0x0050, text=» CF A15,NVLCHK«, t00=0x000e, t01=0x00ce}
0x16bc…16e2               Head {h00=0x0022, h01=0x0050, text=» STR A1,A6 SAVE NVL INDICATOR «, t00=0x000e, t01=0x00e4}
0x16e2…16ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x010a}
0x16ee…16f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0116}
0x16f8…1718               Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x000e, t01=0x0120}
0x1718…172e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x000e, t01=0x0140}
0x172e…1740               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x000e, t01=0x0156}
0x1740…1768               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DIS:EN DISC NOT OPERABLE«, t00=0x000e, t01=0x0168}
0x1768…1796               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,/7FFF RESET REQUEST ERROR BIT«, t00=0x000e, t01=0x0190}
0x1796…17aa               Head {h00=0x0010, h01=0x0050, text=» ANRS A2,A6 «, t00=0x000f, t01=0x002e}
0x17aa…17b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0042}
0x17b4…17cc               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x000f, t01=0x004c}
0x17cc…17f2               Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x000f, t01=0x0064}
0x17f2…1822               Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTORD,A6 RESTORE INDEX AND ORDER«, t00=0x000f, t01=0x008a}
0x1822…183a               Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTOR,A6 «, t00=0x000f, t01=0x00ba}
0x183a…1850               Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLNAM«, t00=0x000f, t01=0x00d2}
0x1850…1864               Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x000f, t01=0x00e8}
0x1864…1870               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00fc}
0x1870…187a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0108}
0x187a…1892               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x000f, t01=0x0112}
0x1892…18a6               Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x000f, t01=0x012a}
0x18a6…18b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x013e}
0x18b2…18bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014a}
0x18bc…18d4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000f, t01=0x0154}
0x18d4…18de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016c}
0x18de…18f4               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x0176}
0x18f4…190a               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x018c}
0x190a…1920               Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x0010, t01=0x0012}
0x1920…1936               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0010, t01=0x0028}
0x1936…194c               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0010, t01=0x003e}
0x194c…1956               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0054}
0x1956…197a               Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x0010, t01=0x005e}
0x197a…1990               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0010, t01=0x0082}
0x1990…19a4               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0010, t01=0x0098}
0x19a4…19ba               Head {h00=0x0012, h01=0x0050, text=» CM BUFFLG,A6 «, t00=0x0010, t01=0x00ac}
0x19ba…19c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00c2}
0x19c6…19d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ce}
0x19d0…19f8               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOR,A6 INDEX AND ORDER «, t00=0x0010, t01=0x00d8}
0x19f8…1a2c               Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES «, t00=0x0010, t01=0x0100}
0x1a2c…1a58               Head {h00=0x0028, h01=0x0050, text=» CMR A6 RESET TEMPORARY RETURN CODE «, t00=0x0010, t01=0x0134}
0x1a58…1a6a               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0010, t01=0x0160}
0x1a6a…1a8c               Head {h00=0x001e, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX «, t00=0x0010, t01=0x0172}
0x1a8c…1a96 (17, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0004}
0x1a96…1aac               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0011, t01=0x000e}
0x1aac…1ab6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0024}
0x1ab6…1ae0               Head {h00=0x0026, h01=0x0050, text=»*    CHECK IF OPEN OR CLOSE ORDER «, t00=0x0011, t01=0x002e}
0x1ae0…1aea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0058}
0x1aea…1b02               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x0011, t01=0x0062}
0x1b02…1b16               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x0011, t01=0x007a}
0x1b16…1b2e               Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x0011, t01=0x008e}
0x1b2e…1b40               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0011, t01=0x00a6}
0x1b40…1b66               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) FD:ORD NOT CLOSE ORDER«, t00=0x0011, t01=0x00b8}
0x1b66…1b70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00de}
0x1b70…1b7e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00e8}
0x1b7e…1b88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f6}
0x1b88…1b9a               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0011, t01=0x0100}
0x1b9a…1bac               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0011, t01=0x0112}
0x1bac…1bbe               Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0011, t01=0x0124}
0x1bbe…1bd0               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0011, t01=0x0136}
0x1bd0…1be2               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0011, t01=0x0148}
0x1be2…1bec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015a}
0x1bec…1c24               Head {h00=0x0034, h01=0x0050, text=»*    CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0011, t01=0x0164}
0x1c24…1c5a               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0012, t01=0x000c}
0x1c5a…1c64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0042}
0x1c64…1c8a               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0012, t01=0x004c}
0x1c8a…1cb4               Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0012, t01=0x0072}
0x1cb4…1cc6               Head {h00=0x000e, h01=0x0050, text=» RF OPEN10«, t00=0x0012, t01=0x009c}
0x1cc6…1cd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ae}
0x1cd0…1cde               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00b8}
0x1cde…1ce8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c6}
0x1ce8…1cf8               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0012, t01=0x00d0}
0x1cf8…1d08               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0012, t01=0x00e0}
0x1d08…1d18               Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0012, t01=0x00f0}
0x1d18…1d28               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0012, t01=0x0100}
0x1d28…1d38               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0012, t01=0x0110}
0x1d38…1d42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0120}
0x1d42…1d7a               Head {h00=0x0034, h01=0x0050, text=»*    OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0012, t01=0x012a}
0x1d7a…1db0               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0012, t01=0x0162}
0x1db0…1dba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0008}
0x1dba…1dcc               Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0013, t01=0x0012}
0x1dcc…1df2               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0013, t01=0x0024}
0x1df2…1e1e               Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0013, t01=0x004a}
0x1e1e…1e28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0076}
0x1e28…1e3c               Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0013, t01=0x0080}
0x1e3c…1e70               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0013, t01=0x0094}
0x1e70…1e96               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0013, t01=0x00c8}
0x1e96…1ea0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ee}
0x1ea0…1ece               Head {h00=0x002a, h01=0x0050, text=»*    WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0013, t01=0x00f8}
0x1ece…1ed8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0126}
0x1ed8…1f04               Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0013, t01=0x0130}
0x1f04…1f30               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0013, t01=0x015c}
0x1f30…1f50               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0013, t01=0x0188}
0x1f50…1f6c               Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0014, t01=0x0018}
0x1f6c…1f9e               Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0014, t01=0x0034}
0x1f9e…1fb6               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0014, t01=0x0066}
0x1fb6…1fc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007e}
0x1fc0…1fd4               Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0014, t01=0x0088}
0x1fd4…1ff4               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0014, t01=0x009c}
0x1ff4…2024               Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0014, t01=0x00bc}
0x2024…2042               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0014, t01=0x00ec}
0x2042…206e               Head {h00=0x0028, h01=0x0050, text=» RF DIS:EN PERFORM TENDIO AND TDISP «, t00=0x0014, t01=0x010a}
0x206e…207a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0136}
0x207a…2084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0142}
0x2084…2092               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x014c}
0x2092…209c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015a}
0x209c…20c6               Head {h00=0x0026, h01=0x0050, text=»*  PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x0014, t01=0x0164}
0x20c6…20d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018e}
0x20d0…20e4               Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x0015, t01=0x0008}
0x20e4…20fc               Head {h00=0x0014, h01=0x0050, text=» LC A2,DIXTAB,A3«, t00=0x0015, t01=0x001c}
0x20fc…212c               Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK «, t00=0x0015, t01=0x0034}
0x212c…2136               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0064}
0x2136…214e               Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0015, t01=0x006e}
0x214e…2166               Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTLAB,A6«, t00=0x0015, t01=0x0086}
0x2166…2192               Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM«, t00=0x0015, t01=0x009e}
0x2192…219e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00ca}
0x219e…21a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d6}
0x21a8…21cc               Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x0015, t01=0x00e0}
0x21cc…21d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0104}
0x21d6…21ec               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0015, t01=0x010e}
0x21ec…21f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0124}
0x21f6…2200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012e}
0x2200…2212               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A7«, t00=0x0015, t01=0x0138}
0x2212…2234               Head {h00=0x001e, h01=0x0050, text=» RB(Z) TESTST TEST STATUS «, t00=0x0015, t01=0x014a}
0x2234…223e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016c}
0x223e…2250               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0015, t01=0x0176}
0x2250…2262               Head {h00=0x000e, h01=0x0050, text=» SUK A3,38«, t00=0x0015, t01=0x0188}
0x2262…2288               Head {h00=0x0022, h01=0x0050, text=» RF(N) INTEST READ/WRITE ORDER«, t00=0x0016, t01=0x000a}
0x2288…229a               Head {h00=0x000e, h01=0x0050, text=» SUK A3,18«, t00=0x0016, t01=0x0030}
0x229a…22bc               Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x0016, t01=0x0042}
0x22bc…22c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0064}
0x22c8…22d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0070}
0x22d2…22e4               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0016, t01=0x007a}
0x22e4…22f6               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x008c}
0x22f6…2316               Head {h00=0x001c, h01=0x0050, text=» RF(Z) INTEST BASIC READ«, t00=0x0016, t01=0x009e}
0x2316…2328               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x00be}
0x2328…234e               Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL READ «, t00=0x0016, t01=0x00d0}
0x234e…2360               Head {h00=0x000e, h01=0x0050, text=» SUK A3,3 «, t00=0x0016, t01=0x00f6}
0x2360…2382               Head {h00=0x001e, h01=0x0050, text=» RF(Z) INTEST BASIC WRITE «, t00=0x0016, t01=0x0108}
0x2382…2394               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x012a}
0x2394…23ba               Head {h00=0x0022, h01=0x0050, text=» RF(Z) IBMCHK SEQUENTIAL WRITE«, t00=0x0016, t01=0x013c}
0x23ba…23cc               Head {h00=0x000e, h01=0x0050, text=» SUK A3,32«, t00=0x0016, t01=0x0162}
0x23cc…23f6               Head {h00=0x0026, h01=0x0050, text=» RF(N) INTEST PHYSICAL READ/WRITE «, t00=0x0016, t01=0x0174}
0x23f6…2408               Head {h00=0x000e, h01=0x0050, text=» SUK A3,11«, t00=0x0017, t01=0x000e}
0x2408…2424               Head {h00=0x0018, h01=0x0050, text=» RF(Z) IBMCHK REWIND«, t00=0x0017, t01=0x0020}
0x2424…2436               Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x0017, t01=0x003c}
0x2436…2458               Head {h00=0x001e, h01=0x0050, text=» ABL(NP) LOAD LOAD/UNLOAD «, t00=0x0017, t01=0x004e}
0x2458…2464               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0070}
0x2464…246e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007c}
0x246e…2482               Head {h00=0x0010, h01=0x0050, text=»IBMCHK EQU *«, t00=0x0017, t01=0x0086}
0x2482…249a               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0017, t01=0x009a}
0x249a…24b2               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x0017, t01=0x00b2}
0x24b2…24dc               Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) IBMDSK IBM DISC HANDLING «, t00=0x0017, t01=0x00ca}
0x24dc…24e8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00f4}
0x24e8…24f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0100}
0x24f2…2506               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=0 «, t00=0x0017, t01=0x010a}
0x2506…2518               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0017, t01=0x011e}
0x2518…253e               Head {h00=0x0022, h01=0x0050, text=» ABL IBMDSK IBM DISC HANDLING «, t00=0x0017, t01=0x0130}
0x253e…254a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0156}
0x254a…2554               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0162}
0x2554…256a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0017, t01=0x016c}
0x256a…2574               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0182}
0x2574…257e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018c}
0x257e…25a6               Head {h00=0x0024, h01=0x0050, text=»REQERR ABL DISIOE REQUEST ERROR «, t00=0x0018, t01=0x0008}
0x25a6…25b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0030}
0x25b0…25e4               Head {h00=0x0030, h01=0x0050, text=»INCLEN EQU * INCORRECT REQUESTED LENGTH EXIT«, t00=0x0018, t01=0x003a}
0x25e4…2606               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8008 RETURN CODE«, t00=0x0018, t01=0x006e}
0x2606…2610               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0090}
0x2610…2624               Head {h00=0x0010, h01=0x0050, text=»DIS:EN EQU *«, t00=0x0018, t01=0x009a}
0x2624…2656               Head {h00=0x002e, h01=0x0050, text=» ABL DISEND PERFORM TENDIO AND GO TO TDISP«, t00=0x0018, t01=0x00ae}
0x2656…2660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e0}
0x2660…2676               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0018, t01=0x00ea}
0x2676…2680               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0100}
0x2680…26a0               Head {h00=0x001c, h01=0x0050, text=»* INPUT PARAMETER CHECK «, t00=0x0018, t01=0x010a}
0x26a0…26aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x012a}
0x26aa…26be               Head {h00=0x0010, h01=0x0050, text=»INTEST EQU *«, t00=0x0018, t01=0x0134}
0x26be…26d6               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0018, t01=0x0148}
0x26d6…2708               Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0018, t01=0x0160}
0x2708…271a (25, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0019, t01=0x0004}
0x271a…2742               Head {h00=0x0024, h01=0x0050, text=» RB(NZ) DIS:EN NEW VOLUME LOADED«, t00=0x0019, t01=0x0016}
0x2742…274e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x003e}
0x274e…2758               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004a}
0x2758…2770               Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBRL,A8 «, t00=0x0019, t01=0x0054}
0x2770…27a6               Head {h00=0x0032, h01=0x0050, text=» RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x006c}
0x27a6…27d2               Head {h00=0x0028, h01=0x0050, text=» SRC A3,7 NUMBER OF PHYSICAL SECTORS«, t00=0x0019, t01=0x00a2}
0x27d2…2808               Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x00ce}
0x2808…281e               Head {h00=0x0012, h01=0x0050, text=» CWK A3,/01FF «, t00=0x0019, t01=0x0104}
0x281e…2854               Head {h00=0x0032, h01=0x0050, text=» RB(G) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x0019, t01=0x011a}
0x2854…287e               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x0019, t01=0x0150}
0x287e…2888               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x017a}
0x2888…28a0               Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x0019, t01=0x0184}
0x28a0…28b8               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFIB,A6«, t00=0x001a, t01=0x000c}
0x28b8…28d8               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) INTES5 IBM-DISC «, t00=0x001a, t01=0x0024}
0x28d8…28e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0044}
0x28e4…28ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0050}
0x28ee…2902               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x001a, t01=0x005a}
0x2902…2914               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x001a, t01=0x006e}
0x2914…294e               Head {h00=0x0036, h01=0x0050, text=» SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS«, t00=0x001a, t01=0x0080}
0x294e…2984               Head {h00=0x0032, h01=0x0050, text=» RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL «, t00=0x001a, t01=0x00ba}
0x2984…29be               Head {h00=0x0036, h01=0x0050, text=» SLL A2,1 TRANSFER TOSS-SEC. NO TOPHYSICAL SEC. NO«, t00=0x001a, t01=0x00f0}
0x29be…29c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012a}
0x29c8…29de               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x001a, t01=0x0134}
0x29de…29e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x014a}
0x29e8…29f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0154}
0x29f2…2a06               Head {h00=0x0010, h01=0x0050, text=»INTES5 EQU *«, t00=0x001a, t01=0x015e}
0x2a06…2a12               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0172}
0x2a12…2a40               Head {h00=0x002a, h01=0x0050, text=» LDR A4,A2 SAVE PHYSICAL SECTOR NUMBER«, t00=0x001a, t01=0x017e}
0x2a40…2a64               Head {h00=0x0020, h01=0x0050, text=» RB(N) REQERR REQUEST ERROR «, t00=0x001b, t01=0x001c}
0x2a64…2a7c               Head {h00=0x0014, h01=0x0050, text=» SUKL A4,MAXSEC «, t00=0x001b, t01=0x0040}
0x2a7c…2aa0               Head {h00=0x0020, h01=0x0050, text=» RB(NN) REQERR REQUEST ERROR«, t00=0x001b, t01=0x0058}
0x2aa0…2ab2               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x001b, t01=0x007c}
0x2ab2…2ad8               Head {h00=0x0022, h01=0x0050, text=» RB(P) INCLEN INCORRECT LENGTH«, t00=0x001b, t01=0x008e}
0x2ad8…2b08               Head {h00=0x002c, h01=0x0050, text=» ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS «, t00=0x001b, t01=0x00b4}
0x2b08…2b3e               Head {h00=0x0032, h01=0x0050, text=» ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC NO«, t00=0x001b, t01=0x00e4}
0x2b3e…2b60               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBBA,A8 GET ECBBA «, t00=0x001b, t01=0x011a}
0x2b60…2b90               Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTBA,A6 SAVE ECB BUFFER ADDRESS «, t00=0x001b, t01=0x013c}
0x2b90…2b9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x016c}
0x2b9a…2bb0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001b, t01=0x0176}
0x2bb0…2bc2               Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x001b, t01=0x018c}
0x2bc2…2bd6               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/30 «, t00=0x001c, t01=0x000e}
0x2bd6…2c0e               Head {h00=0x0034, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS«, t00=0x001c, t01=0x0022}
0x2c0e…2c1a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x005a}
0x2c1a…2c24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0066}
0x2c24…2c3a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x001c, t01=0x0070}
0x2c3a…2c44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0086}
0x2c44…2c68               Head {h00=0x0020, h01=0x0050, text=»*   MULTIPLE SECTOR IO ENTRY«, t00=0x001c, t01=0x0090}
0x2c68…2c72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b4}
0x2c72…2c86               Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x001c, t01=0x00be}
0x2c86…2c9c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001c, t01=0x00d2}
0x2c9c…2cb0               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x001c, t01=0x00e8}
0x2cb0…2cc8               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWT:BF,A6«, t00=0x001c, t01=0x00fc}
0x2cc8…2cf0               Head {h00=0x0024, h01=0x0050, text=» ST A2,BUFFLG,A6 SET BUFFER FLAG«, t00=0x001c, t01=0x0114}
0x2cf0…2cfc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x013c}
0x2cfc…2d06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0148}
0x2d06…2d1a               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,512«, t00=0x001c, t01=0x0152}
0x2d1a…2d2c               Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x001c, t01=0x0166}
0x2d2c…2d3e               Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x001c, t01=0x0178}
0x2d3e…2d68               Head {h00=0x0026, h01=0x0050, text=» RF(NN) FD:005 FOUR PHYS. SEC. IO «, t00=0x001c, t01=0x018a}
0x2d68…2d72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0024}
0x2d72…2d8c               Head {h00=0x0016, h01=0x0050, text=»FD:003 SUK A2,128 «, t00=0x001d, t01=0x002e}
0x2d8c…2d9e               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001d, t01=0x0048}
0x2d9e…2db0               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001d, t01=0x005a}
0x2db0…2dc6               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:003«, t00=0x001d, t01=0x006c}
0x2dc6…2dd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0082}
0x2dd0…2de4               Head {h00=0x0010, h01=0x0050, text=»FD:005 EQU *«, t00=0x001d, t01=0x008c}
0x2de4…2e16               Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC«, t00=0x001d, t01=0x00a0}
0x2e16…2e42               Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO«, t00=0x001d, t01=0x00d2}
0x2e42…2e74               Head {h00=0x002e, h01=0x0050, text=» ST A3,DWTNOS,A6 UPDATE NUMBER OF SECTORS «, t00=0x001d, t01=0x00fe}
0x2e74…2e7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0130}
0x2e7e…2e96               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001d, t01=0x013a}
0x2e96…2ea0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0152}
0x2ea0…2eaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015c}
0x2eaa…2ec0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001d, t01=0x0166}
0x2ec0…2ed8               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x001d, t01=0x017c}
0x2ed8…2efe (30, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTBA,A6 BUFFER ADDRESS«, t00=0x001e, t01=0x0004}
0x2efe…2f16               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:BF,A6«, t00=0x001e, t01=0x002a}
0x2f16…2f46               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA«, t00=0x001e, t01=0x0042}
0x2f46…2f58               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x001e, t01=0x0072}
0x2f58…2f6e               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:009«, t00=0x001e, t01=0x0084}
0x2f6e…2fa8               Head {h00=0x0036, h01=0x0050, text=» AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x001e, t01=0x009a}
0x2fa8…2fc0               Head {h00=0x0014, h01=0x0050, text=» RF(N) FD:009 NO«, t00=0x001e, t01=0x00d4}
0x2fc0…2fca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ec}
0x2fca…2fe0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x001e, t01=0x00f6}
0x2fe0…2fea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x010c}
0x2fea…2ff4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0116}
0x2ff4…3008               Head {h00=0x0010, h01=0x0050, text=»FD:007 EQU *«, t00=0x001e, t01=0x0120}
0x3008…301a               Head {h00=0x000e, h01=0x0050, text=» ECR A3,A2«, t00=0x001e, t01=0x0134}
0x301a…302e               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x001e, t01=0x0146}
0x302e…3040               Head {h00=0x000e, h01=0x0050, text=» SRL A3,2 «, t00=0x001e, t01=0x015a}
0x3040…3052               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x001e, t01=0x016c}
0x3052…3064               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A3«, t00=0x001e, t01=0x017e}
0x3064…309a               Head {h00=0x0032, h01=0x0050, text=» SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x001e, t01=0x0190}
0x309a…30c6               Head {h00=0x0028, h01=0x0050, text=» ADK A1,/4 CREATE ONE MORE MMU ENTRY«, t00=0x001f, t01=0x0036}
0x30c6…30e0               Head {h00=0x0016, h01=0x0050, text=» SC A1,DWT:PA+2,A6«, t00=0x001f, t01=0x0062}
0x30e0…30f6               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/FFF «, t00=0x001f, t01=0x007c}
0x30f6…3108               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001f, t01=0x0092}
0x3108…3134               Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x001f, t01=0x00a4}
0x3134…313e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d0}
0x313e…317a               Head {h00=0x0038, h01=0x0050, text=»FD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x001f, t01=0x00da}
0x317a…3186               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0116}
0x3186…3190               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0122}
0x3190…31b2               Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 PREPARE FOR BIO «, t00=0x001f, t01=0x012c}
0x31b2…31ca               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x001f, t01=0x014e}
0x31ca…31e4               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/3F ORDER «, t00=0x001f, t01=0x0166}
0x31e4…31f6               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x001f, t01=0x0180}
0x31f6…3216 (32, 0, 398)  Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:060 BASIC READ«, t00=0x0020, t01=0x0004}
0x3216…3228               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0020, t01=0x0024}
0x3228…324a               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:015 BASIC WRITE «, t00=0x0020, t01=0x0036}
0x324a…325c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0020, t01=0x0058}
0x325c…3280               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:060 PHYSICAL READ «, t00=0x0020, t01=0x006a}
0x3280…3292               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0020, t01=0x008e}
0x3292…32b6               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:013 PHYSICAL WRITE«, t00=0x0020, t01=0x00a0}
0x32b6…32e4               Head {h00=0x002a, h01=0x0050, text=» SUK A1,15 CHECK IF WRITE DELETED DATA«, t00=0x0020, t01=0x00c4}
0x32e4…32ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f2}
0x32ee…3302               Head {h00=0x0010, h01=0x0050, text=»RQ:ERR EQU *«, t00=0x0020, t01=0x00fc}
0x3302…3318               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) REQERR«, t00=0x0020, t01=0x0110}
0x3318…3322               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0126}
0x3322…333a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0020, t01=0x0130}
0x333a…3344               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0148}
0x3344…3384               Head {h00=0x003c, h01=0x0050, text=»*   WRITE DELETED DATA, PHYSICAL AND BASIC WRITE ORDERS «, t00=0x0020, t01=0x0152}
0x3384…338e (33, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0004}
0x338e…33b8               Head {h00=0x0026, h01=0x0050, text=» LDK A4,1 WRITE DELETED DATA ORDER«, t00=0x0021, t01=0x000e}
0x33b8…33e2               Head {h00=0x0026, h01=0x0050, text=»FD:013 EQU * PHYSICAL WRITE ORDER «, t00=0x0021, t01=0x0038}
0x33e2…33f4               Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x0021, t01=0x0062}
0x33f4…341a               Head {h00=0x0022, h01=0x0050, text=»FD:015 EQU * BASIC WRITE ORDER«, t00=0x0021, t01=0x0074}
0x341a…342c               Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0021, t01=0x009a}
0x342c…3452               Head {h00=0x0022, h01=0x0050, text=» CF A5,BIO PREPARATION FOR CIO«, t00=0x0021, t01=0x00ac}
0x3452…345c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d2}
0x345c…3472               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x00dc}
0x3472…3486               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0021, t01=0x00f2}
0x3486…349e               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0021, t01=0x0106}
0x349e…34b6               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0021, t01=0x011e}
0x34b6…34d4               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0021, t01=0x0136}
0x34d4…34e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0154}
0x34e0…34ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0160}
0x34ea…3500               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0021, t01=0x016a}
0x3500…3518               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0021, t01=0x0180}
0x3518…3550               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0022, t01=0x0008}
0x3550…357c               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA «, t00=0x0022, t01=0x0040}
0x357c…35a0               Head {h00=0x0020, h01=0x0050, text=» LDR A7,A3 REQUESTED LENGTH «, t00=0x0022, t01=0x006c}
0x35a0…35ba               Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x0022, t01=0x0090}
0x35ba…35e4               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0022, t01=0x00aa}
0x35e4…35f6               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0022, t01=0x00d4}
0x35f6…3620               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0022, t01=0x00e6}
0x3620…364c               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0022, t01=0x0110}
0x364c…3682               Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x0022, t01=0x013c}
0x3682…36ac               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0022, t01=0x0172}
0x36ac…36ca               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x0023, t01=0x000c}
0x36ca…36fe               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0023, t01=0x002a}
0x36fe…3712               Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x0023, t01=0x005e}
0x3712…371e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0072}
0x371e…3728               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x007e}
0x3728…3740               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0023, t01=0x0088}
0x3740…3758               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0023, t01=0x00a0}
0x3758…3776               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x0023, t01=0x00b8}
0x3776…3782               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00d6}
0x3782…378c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e2}
0x378c…379e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0023, t01=0x00ec}
0x379e…37ce               Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x0023, t01=0x00fe}
0x37ce…37e4               Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x0023, t01=0x012e}
0x37e4…37f8               Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x0023, t01=0x0144}
0x37f8…3804               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0158}
0x3804…380e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0164}
0x380e…3826               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0023, t01=0x016e}
0x3826…3830               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0186}
0x3830…383a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0190}
0x383a…3860               Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x0024, t01=0x000a}
0x3860…388e               Head {h00=0x002a, h01=0x0050, text=» ANKL A3,/200 CHECK IF WRITE PROTECTED«, t00=0x0024, t01=0x0030}
0x388e…38a4               Head {h00=0x0012, h01=0x0050, text=» RF(Z) FD:020 «, t00=0x0024, t01=0x005e}
0x38a4…38c6               Head {h00=0x001e, h01=0x0050, text=» LDK A3,/40 INDICATE ERROR«, t00=0x0024, t01=0x0074}
0x38c6…38f6               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0024, t01=0x0096}
0x38f6…390a               Head {h00=0x0010, h01=0x0050, text=»FD:020 EQU *«, t00=0x0024, t01=0x00c6}
0x390a…3928               Head {h00=0x001a, h01=0x0050, text=» RF FD:100 GOTO FDMSIO«, t00=0x0024, t01=0x00da}
0x3928…3932               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f8}
0x3932…394a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0024, t01=0x0102}
0x394a…3954               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011a}
0x3954…396e               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0024, t01=0x0124}
0x396e…3988               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0024, t01=0x013e}
0x3988…39a2               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x0024, t01=0x0158}
0x39a2…39bc               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0024, t01=0x0172}
0x39bc…39d6               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0024, t01=0x018c}
0x39d6…39e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0016}
0x39e0…39f8               Head {h00=0x0014, h01=0x0050, text=»FD:060 CF A5,BIO«, t00=0x0025, t01=0x0020}
0x39f8…3a02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0038}
0x3a02…3a18               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x0042}
0x3a18…3a2c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0025, t01=0x0058}
0x3a2c…3a44               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0025, t01=0x006c}
0x3a44…3a5c               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0025, t01=0x0084}
0x3a5c…3a7c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:070 TOSS DISC «, t00=0x0025, t01=0x009c}
0x3a7c…3aa6               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0025, t01=0x00bc}
0x3aa6…3ada               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0025, t01=0x00e6}
0x3ada…3ae6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x011a}
0x3ae6…3af0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0126}
0x3af0…3b04               Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0025, t01=0x0130}
0x3b04…3b1a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0025, t01=0x0144}
0x3b1a…3b2e               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0025, t01=0x015a}
0x3b2e…3b46               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWT:LA,A6«, t00=0x0025, t01=0x016e}
0x3b46…3b72               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:080 BUFFER IN SYSTEM AREA «, t00=0x0025, t01=0x0186}
0x3b72…3b9c               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0026, t01=0x0022}
0x3b9c…3bd0               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0026, t01=0x004c}
0x3bd0…3bdc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0080}
0x3bdc…3be6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008c}
0x3be6…3bfc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0026, t01=0x0096}
0x3bfc…3c0e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0026, t01=0x00ac}
0x3c0e…3c26               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+CHAN=0«, t00=0x0026, t01=0x00be}
0x3c26…3c50               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0026, t01=0x00d6}
0x3c50…3c84               Head {h00=0x0030, h01=0x0050, text=» CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA«, t00=0x0026, t01=0x0100}
0x3c84…3c90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0134}
0x3c90…3c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0140}
0x3c9a…3cae               Head {h00=0x0010, h01=0x0050, text=»FD:080 EQU *«, t00=0x0026, t01=0x014a}
0x3cae…3cd0               Head {h00=0x001e, h01=0x0050, text=» CF A5,FD:REA PERFORM READ«, t00=0x0026, t01=0x015e}
0x3cd0…3cda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0180}
0x3cda…3cf2               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0026, t01=0x018a}
0x3cf2…3d0a               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0027, t01=0x0012}
0x3d0a…3d28               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:090 NOT IBM «, t00=0x0027, t01=0x002a}
0x3d28…3d34               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0048}
0x3d34…3d3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0054}
0x3d3e…3d50               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0027, t01=0x005e}
0x3d50…3d66               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0027, t01=0x0070}
0x3d66…3d92               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS«, t00=0x0027, t01=0x0086}
0x3d92…3d9e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00b2}
0x3d9e…3da8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00be}
0x3da8…3dba               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0027, t01=0x00c8}
0x3dba…3dda               Head {h00=0x001c, h01=0x0050, text=» LD A7,DWTRL,A6 REQ. LEN«, t00=0x0027, t01=0x00da}
0x3dda…3dee               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0027, t01=0x00fa}
0x3dee…3e02               Head {h00=0x0010, h01=0x0050, text=»FD:090 EQU *«, t00=0x0027, t01=0x010e}
0x3e02…3e0e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0122}
0x3e0e…3e18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x012e}
0x3e18…3e30               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0027, t01=0x0138}
0x3e30…3e3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0150}
0x3e3a…3e44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x015a}
0x3e44…3e5a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0027, t01=0x0164}
0x3e5a…3e6e               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0027, t01=0x017a}
0x3e6e…3e86               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0027, t01=0x018e}
0x3e86…3e9e               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x0028, t01=0x0016}
0x3e9e…3ebe               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:100 TOSS DISC «, t00=0x0028, t01=0x002e}
0x3ebe…3eca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x004e}
0x3eca…3ed4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x005a}
0x3ed4…3eea               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0028, t01=0x0064}
0x3eea…3f02               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x0028, t01=0x007a}
0x3f02…3f3a               Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0028, t01=0x0092}
0x3f3a…3f66               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:100 BUFFER IN SYSTEM AREA «, t00=0x0028, t01=0x00ca}
0x3f66…3f8e               Head {h00=0x0024, h01=0x0050, text=» LD A7,DWTRL,A6 REQUESTED LENGTH«, t00=0x0028, t01=0x00f6}
0x3f8e…3fba               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,BUF GET DWT BUFFER ADDRESS «, t00=0x0028, t01=0x011e}
0x3fba…3fe4               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0028, t01=0x014a}
0x3fe4…4010               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0028, t01=0x0174}
0x4010…4046               Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x0029, t01=0x0010}
0x4046…4070               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0029, t01=0x0046}
0x4070…407c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0070}
0x407c…4090               Head {h00=0x0010, h01=0x0050, text=»FD:100 EQU *«, t00=0x0029, t01=0x007c}
0x4090…40a4               Head {h00=0x0010, h01=0x0050, text=» ABL FDMSIO «, t00=0x0029, t01=0x0090}
0x40a4…40ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00a4}
0x40ae…40c6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0029, t01=0x00ae}
0x40c6…40d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c6}
0x40d0…40e0               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0029, t01=0x00d0}
0x40e0…40f0               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0029, t01=0x00e0}
0x40f0…4100               Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0029, t01=0x00f0}
0x4100…4110               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0029, t01=0x0100}
0x4110…4120               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0029, t01=0x0110}
0x4120…412a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0120}
0x412a…413c               Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0029, t01=0x012a}
0x413c…415e               Head {h00=0x001e, h01=0x0050, text=» ADK A3,0 CHECK ORDER CODE«, t00=0x0029, t01=0x013c}
0x415e…4180               Head {h00=0x001e, h01=0x0050, text=» RF(Z) UNLOAD UNLOAD ORDER«, t00=0x0029, t01=0x015e}
0x4180…4192               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0029, t01=0x0180}
0x4192…41b2 (42, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOAD00 LOAD ORDER«, t00=0x002a, t01=0x0004}
0x41b2…41c4               Head {h00=0x000e, h01=0x0050, text=» ADK A3,17«, t00=0x002a, t01=0x0024}
0x41c4…41ec               Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RQ:ERR ERROR IF NOT LOCK«, t00=0x002a, t01=0x0036}
0x41ec…41f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x005e}
0x41f6…420a               Head {h00=0x0010, h01=0x0050, text=»LOAD00 EQU *«, t00=0x002a, t01=0x0068}
0x420a…4222               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x002a, t01=0x007c}
0x4222…4238               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002a, t01=0x0094}
0x4238…424a               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x002a, t01=0x00aa}
0x424a…4274               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) LOA:80 ENDIO NOT OPERABLE «, t00=0x002a, t01=0x00bc}
0x4274…427e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e6}
0x427e…4296               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x002a, t01=0x00f0}
0x4296…42ae               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFIB,A6«, t00=0x002a, t01=0x0108}
0x42ae…42ce               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:70 TOSS DISC «, t00=0x002a, t01=0x0120}
0x42ce…42da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0140}
0x42da…42e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x014c}
0x42e4…42f6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002a, t01=0x0156}
0x42f6…431a               Head {h00=0x0020, h01=0x0050, text=» LC A3,DWTOR+1,A6 GET ORDER «, t00=0x002a, t01=0x0168}
0x431a…432e               Head {h00=0x0010, h01=0x0050, text=» SUK A3,/26 «, t00=0x002a, t01=0x018c}
0x432e…434e               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:65 LOCK ORDER«, t00=0x002b, t01=0x0010}
0x434e…4364               Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x002b, t01=0x0030}
0x4364…438a               Head {h00=0x0022, h01=0x0050, text=» CF A5,LD:RC CHECK RETURN CODE«, t00=0x002b, t01=0x0046}
0x438a…43a2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002b, t01=0x006c}
0x43a2…43ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0084}
0x43ac…43ca               Head {h00=0x001a, h01=0x0050, text=»*  READ DATA SET LABEL«, t00=0x002b, t01=0x008e}
0x43ca…43d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ac}
0x43d4…43f6               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW2,A8 SECTOR NO«, t00=0x002b, t01=0x00b6}
0x43f6…4408               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x002b, t01=0x00d8}
0x4408…442c               Head {h00=0x0020, h01=0x0050, text=» RF(N) LOA:85 REQUEST ERROR «, t00=0x002b, t01=0x00ea}
0x442c…443e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x002b, t01=0x010e}
0x443e…4462               Head {h00=0x0020, h01=0x0050, text=» RF(P) LOA:85 REQUEST ERROR «, t00=0x002b, t01=0x0120}
0x4462…4474               Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x002b, t01=0x0144}
0x4474…448a               Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x002b, t01=0x0156}
0x448a…44a4               Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x002b, t01=0x016c}
0x44a4…44b8               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x002b, t01=0x0186}
0x44b8…44ce               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002c, t01=0x000a}
0x44ce…44f2               Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x002c, t01=0x0020}
0x44f2…4514               Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x002c, t01=0x0044}
0x4514…4548               Head {h00=0x0030, h01=0x0050, text=» ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL «, t00=0x002c, t01=0x0066}
0x4548…455c               Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x002c, t01=0x009a}
0x455c…4570               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x002c, t01=0x00ae}
0x4570…457c               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002c, t01=0x00c2}
0x457c…45aa               Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW2,A8 DATA SET LABEL SECTOR«, t00=0x002c, t01=0x00ce}
0x45aa…45c0               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x002c, t01=0x00fc}
0x45c0…45e0               Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x002c, t01=0x0112}
0x45e0…4600               Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x002c, t01=0x0132}
0x4600…4632               Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x002c, t01=0x0152}
0x4632…4648               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002c, t01=0x0184}
0x4648…4670               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x002d, t01=0x000a}
0x4670…4686               Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x002d, t01=0x0032}
0x4686…469c               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002d, t01=0x0048}
0x469c…46b0               Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x002d, t01=0x005e}
0x46b0…46d4               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x002d, t01=0x0072}
0x46d4…46ea               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002d, t01=0x0096}
0x46ea…4700               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x002d, t01=0x00ac}
0x4700…4728               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x002d, t01=0x00c2}
0x4728…474c               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x002d, t01=0x00ea}
0x474c…4762               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002d, t01=0x010e}
0x4762…47ac               Head {h00=0x0046, h01=0x0050, text=» INH  INHIBIT INTERRUPTS                                  INHIBIT «, t00=0x002d, t01=0x0124}
0x47ac…47c2               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x002d, t01=0x016e}
0x47c2…47ea               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x002d, t01=0x0184}
0x47ea…47f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x001c}
0x47f4…4808               Head {h00=0x0010, h01=0x0050, text=»LOA:65 EQU *«, t00=0x002e, t01=0x0026}
0x4808…481e               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/400 «, t00=0x002e, t01=0x003a}
0x481e…484e               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x002e, t01=0x0050}
0x484e…4858               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0080}
0x4858…486c               Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x002e, t01=0x008a}
0x486c…4878               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x009e}
0x4878…4890               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x002e, t01=0x00aa}
0x4890…48b6               Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x002e, t01=0x00c2}
0x48b6…48ca               Head {h00=0x0010, h01=0x0050, text=»LOA:80 EQU *«, t00=0x002e, t01=0x00e8}
0x48ca…48de               Head {h00=0x0010, h01=0x0050, text=» ABL END:RC «, t00=0x002e, t01=0x00fc}
0x48de…48e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0110}
0x48e8…48fa               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002e, t01=0x011a}
0x48fa…490e               Head {h00=0x0010, h01=0x0050, text=»LOA:85 EQU *«, t00=0x002e, t01=0x012c}
0x490e…4930               Head {h00=0x001e, h01=0x0050, text=» LDK A1,/80 REQUEST ERROR «, t00=0x002e, t01=0x0140}
0x4930…4960               Head {h00=0x002c, h01=0x0050, text=» SCR A1,A6 UPDATE TEMPORARY RETURN CODE «, t00=0x002e, t01=0x0162}
0x4960…496c (47, 0, 398)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0004}
0x496c…4976               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0010}
0x4976…498e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002f, t01=0x001a}
0x498e…4998               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0032}
0x4998…49a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x003c}
0x49a2…49ba               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002f, t01=0x0046}
0x49ba…49c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x005e}
0x49c4…49de               Head {h00=0x0016, h01=0x0050, text=»*  ERROR , UNLOCK «, t00=0x002f, t01=0x0068}
0x49de…49e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0082}
0x49e8…49fc               Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x002f, t01=0x008c}
0x49fc…4a0e               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x002f, t01=0x00a0}
0x4a0e…4a30               Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x002f, t01=0x00b2}
0x4a30…4a4a               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x002f, t01=0x00d4}
0x4a4a…4a60               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002f, t01=0x00ee}
0x4a60…4a72               Head {h00=0x000e, h01=0x0050, text=» RB LOA:80«, t00=0x002f, t01=0x0104}
0x4a72…4a7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0116}
0x4a7c…4a9a               Head {h00=0x001a, h01=0x0050, text=»*   LD:RC  SUBROUTINE «, t00=0x002f, t01=0x0120}
0x4a9a…4aa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x013e}
0x4aa4…4ab8               Head {h00=0x0010, h01=0x0050, text=»LD:RC EQU * «, t00=0x002f, t01=0x0148}
0x4ab8…4ad8               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x002f, t01=0x015c}
0x4ad8…4aee               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x002f, t01=0x017c}
0x4aee…4b18 (48, 0, 398)  Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0030, t01=0x0004}
0x4b18…4b28               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0030, t01=0x002e}
0x4b28…4b34               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x003e}
0x4b34…4b3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x004a}
0x4b3e…4b56               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0030, t01=0x0054}
0x4b56…4b60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x006c}
0x4b60…4b72               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x0076}
0x4b72…4b84               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x0088}
0x4b84…4b96               Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0030, t01=0x009a}
0x4b96…4ba8               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x00ac}
0x4ba8…4bba               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00be}
0x4bba…4bc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d0}
0x4bc4…4bd8               Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0030, t01=0x00da}
0x4bd8…4bea               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0030, t01=0x00ee}
0x4bea…4bf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0100}
0x4bf4…4c0e               Head {h00=0x0016, h01=0x0050, text=»*    DATA SET OPEN«, t00=0x0030, t01=0x010a}
0x4c0e…4c18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0124}
0x4c18…4c3a               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0030, t01=0x012e}
0x4c3a…4c5e               Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0030, t01=0x0150}
0x4c5e…4c7c               Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0030, t01=0x0174}
0x4c7c…4cb4 (49, 0, 400)  Head {h00=0x0034, h01=0x0050, text=» ST A7,12,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0031, t01=0x0004}
0x4cb4…4cbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003c}
0x4cbe…4cee               Head {h00=0x002c, h01=0x0050, text=»*  READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0031, t01=0x0046}
0x4cee…4cf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0076}
0x4cf8…4d1c               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0031, t01=0x0080}
0x4d1c…4d46               Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0031, t01=0x00a4}
0x4d46…4d6e               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0031, t01=0x00ce}
0x4d6e…4d7a               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0031, t01=0x00f6}
0x4d7a…4d84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0102}
0x4d84…4dc4               Head {h00=0x003c, h01=0x0050, text=»*  TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0031, t01=0x010c}
0x4dc4…4dce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x014c}
0x4dce…4df0               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0031, t01=0x0156}
0x4df0…4dfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0178}
0x4dfa…4e16               Head {h00=0x0018, h01=0x0050, text=»*  DIVIDE EOD BY 26 «, t00=0x0031, t01=0x0182}
0x4e16…4e20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x000e}
0x4e20…4e32               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0032, t01=0x0018}
0x4e32…4e4a               Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0032, t01=0x002a}
0x4e4a…4e60               Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0032, t01=0x0042}
0x4e60…4e72               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0032, t01=0x0058}
0x4e72…4e84               Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0032, t01=0x006a}
0x4e84…4e8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x007c}
0x4e8e…4ea6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0032, t01=0x0086}
0x4ea6…4eb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009e}
0x4eb0…4eba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00a8}
0x4eba…4ed2               Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0032, t01=0x00b2}
0x4ed2…4edc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00ca}
0x4edc…4efc               Head {h00=0x001c, h01=0x0050, text=»*   A1 = BINARY TRACK NO«, t00=0x0032, t01=0x00d4}
0x4efc…4f2a               Head {h00=0x002a, h01=0x0050, text=»*   A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0032, t01=0x00f4}
0x4f2a…4f34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0122}
0x4f34…4f60               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0032, t01=0x012c}
0x4f60…4f8c               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0032, t01=0x0158}
0x4f8c…4f9e               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0032, t01=0x0184}
0x4f9e…4fb0               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x0008}
0x4fb0…4fcc               Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0033, t01=0x001a}
0x4fcc…4fee               Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0033, t01=0x0036}
0x4fee…5006               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0033, t01=0x0058}
0x5006…5032               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0033, t01=0x0070}
0x5032…5044               Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0033, t01=0x009c}
0x5044…5066               Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0033, t01=0x00ae}
0x5066…50b0               Head {h00=0x0046, h01=0x0050, text=» INH  INHIBIT INTERRUPTS                                  INHIBIT «, t00=0x0033, t01=0x00d0}
0x50b0…50ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x011a}
0x50ba…50da               Head {h00=0x001c, h01=0x0050, text=»*  WRITE DATA SET LABEL «, t00=0x0033, t01=0x0124}
0x50da…50e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0144}
0x50e4…5108               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0033, t01=0x014e}
0x5108…5128               Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0033, t01=0x0172}
0x5128…5154 (52, 0, 400)  Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0034, t01=0x0004}
0x5154…517c               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0034, t01=0x0030}
0x517c…5192               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0034, t01=0x0058}
0x5192…51b4               Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0034, t01=0x006e}
0x51b4…51be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0090}
0x51be…51d6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0034, t01=0x009a}
0x51d6…51e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00b2}
0x51e0…51f4               Head {h00=0x0010, h01=0x0050, text=»*    UNLOCK «, t00=0x0034, t01=0x00bc}
0x51f4…51fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00d0}
0x51fe…520a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00da}
0x520a…521e               Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0034, t01=0x00e6}
0x521e…5238               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0034, t01=0x00fa}
0x5238…524e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x0114}
0x524e…5260               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x012a}
0x5260…5284               Head {h00=0x0020, h01=0x0050, text=» RB(NZ) LOA:80 NOT OPERABLE «, t00=0x0034, t01=0x013c}
0x5284…52a6               Head {h00=0x001e, h01=0x0050, text=» C1 A2,DWTA3,A6 INDEX MASK«, t00=0x0034, t01=0x0160}
0x52a6…52d6               Head {h00=0x002c, h01=0x0050, text=» ANS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0034, t01=0x0182}
0x52d6…52f0               Head {h00=0x0016, h01=0x0050, text=» RB LOA:80 END:IO «, t00=0x0035, t01=0x0022}
0x52f0…52fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x003c}
0x52fa…530c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0035, t01=0x0046}
0x530c…5316               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0058}
0x5316…533a               Head {h00=0x0020, h01=0x0050, text=»*   UNLOAD RETURN CODE CHECK«, t00=0x0035, t01=0x0062}
0x533a…5344               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0086}
0x5344…5358               Head {h00=0x0010, h01=0x0050, text=»UNL:RC EQU *«, t00=0x0035, t01=0x0090}
0x5358…536e               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/207 «, t00=0x0035, t01=0x00a4}
0x536e…5392               Head {h00=0x0020, h01=0x0050, text=» RF(Z) RTN:A5 NO RETURN CODE«, t00=0x0035, t01=0x00ba}
0x5392…53a8               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/200 «, t00=0x0035, t01=0x00de}
0x53a8…53d2               Head {h00=0x0026, h01=0x0050, text=» RF(Z) RTN:A5 NOT WRITE PROTECTED «, t00=0x0035, t01=0x00f4}
0x53d2…53e8               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0035, t01=0x011e}
0x53e8…540c               Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0035, t01=0x0134}
0x540c…542a               Head {h00=0x001a, h01=0x0050, text=» RF(Z) RTN:A5 NOT OPEN«, t00=0x0035, t01=0x0158}
0x542a…543e               Head {h00=0x0010, h01=0x0050, text=» LDK A3,/40 «, t00=0x0035, t01=0x0176}
0x543e…546e               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0035, t01=0x018a}
0x546e…5482               Head {h00=0x0010, h01=0x0050, text=»RTN:A5 EQU *«, t00=0x0036, t01=0x002a}
0x5482…5492               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0036, t01=0x003e}
0x5492…549c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x004e}
0x549c…54b4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0036, t01=0x0058}
0x54b4…54be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0070}
0x54be…54c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x007a}
0x54c8…54f4               Head {h00=0x0028, h01=0x0050, text=»IBMDSK EQU * IBM DISK HANDLING ENTRY«, t00=0x0036, t01=0x0084}
0x54f4…5506               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0036, t01=0x00b0}
0x5506…5538               Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x0036, t01=0x00c2}
0x5538…554a               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0036, t01=0x00f4}
0x554a…5574               Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) END:IO NEW VOLUME LOADED «, t00=0x0036, t01=0x0106}
0x5574…5592               Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0036, t01=0x0130}
0x5592…55b6               Head {h00=0x0020, h01=0x0050, text=» ADK A7,0 SET CR (CHECK EOD)«, t00=0x0036, t01=0x014e}
0x55b6…55dc               Head {h00=0x0022, h01=0x0050, text=» RF(Z) FD:DIS NOT OPEN, ERROR «, t00=0x0036, t01=0x0172}
0x55dc…5600               Head {h00=0x0020, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER CODE«, t00=0x0037, t01=0x0008}
0x5600…5612               Head {h00=0x000e, h01=0x0050, text=» SUK A1,49«, t00=0x0037, t01=0x002c}
0x5612…5634               Head {h00=0x001e, h01=0x0050, text=» RF(Z) REWIND REWIND FILE «, t00=0x0037, t01=0x003e}
0x5634…5662               Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBRL,A8 CHECK REQUESTED LENGTH«, t00=0x0037, t01=0x0060}
0x5662…5678               Head {h00=0x0012, h01=0x0050, text=» SUK A3,SECLEN«, t00=0x0037, t01=0x008e}
0x5678…56a0               Head {h00=0x0024, h01=0x0050, text=» ABL(NZ) INCLEN INCORRECT LENGTH«, t00=0x0037, t01=0x00a4}
0x56a0…56b2               Head {h00=0x000e, h01=0x0050, text=» ADK A1,43«, t00=0x0037, t01=0x00cc}
0x56b2…56da               Head {h00=0x0024, h01=0x0050, text=» RF(Z) SQWRITE SEQUENTIAL WRITE «, t00=0x0037, t01=0x00de}
0x56da…56ec               Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0037, t01=0x0106}
0x56ec…5720               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) FD:DIS ERROR IF NOT SEQUENTIAL READ «, t00=0x0037, t01=0x0118}
0x5720…572a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x014c}
0x572a…5742               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0037, t01=0x0156}
0x5742…574c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x016e}
0x574c…5768               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0037, t01=0x0178}
0x5768…5784 (56, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0038, t01=0x0004}
0x5784…57a0               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x0020}
0x57a0…57aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x003c}
0x57aa…57dc               Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0038, t01=0x0046}
0x57dc…57f4               Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0038, t01=0x0078}
0x57f4…580c               Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0038, t01=0x0090}
0x580c…5838               Head {h00=0x0028, h01=0x0050, text=» ST A3,ECBCW2,A8 STORE CRN+1 IN ECB «, t00=0x0038, t01=0x00a8}
0x5838…584e               Head {h00=0x0012, h01=0x0050, text=» CWK A3,MAXIBM«, t00=0x0038, t01=0x00d4}
0x584e…5872               Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x0038, t01=0x00ea}
0x5872…5884               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0038, t01=0x010e}
0x5884…58a6               Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0038, t01=0x0120}
0x58a6…58c0               Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 BIO READ«, t00=0x0038, t01=0x0142}
0x58c0…58d4               Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x0038, t01=0x015c}
0x58d4…590a               Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0038, t01=0x0170}
0x590a…5914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0016}
0x5914…592a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0039, t01=0x0020}
0x592a…5956               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0039, t01=0x0036}
0x5956…5962               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0062}
0x5962…596c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x006e}
0x596c…597e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0039, t01=0x0078}
0x597e…5994               Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x0039, t01=0x008a}
0x5994…59bc               Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0039, t01=0x00a0}
0x59bc…59c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00c8}
0x59c6…59de               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0039, t01=0x00d2}
0x59de…59e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ea}
0x59e8…59f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f4}
0x59f2…5a08               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0039, t01=0x00fe}
0x5a08…5a34               Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x0039, t01=0x0114}
0x5a34…5a5a               Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x0039, t01=0x0140}
0x5a5a…5a7e               Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x0039, t01=0x0166}
0x5a7e…5aa8               Head {h00=0x0026, h01=0x0050, text=» LDKL A1,BUF DRIVER BUFFER ADDRESS«, t00=0x0039, t01=0x018a}
0x5aa8…5ad2               Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTUEC,A6 USER ECB ADDRESS «, t00=0x003a, t01=0x0024}
0x5ad2…5afe               Head {h00=0x0028, h01=0x0050, text=» EL A2,ECBBA,A2 USER BUFFER ADDRESS «, t00=0x003a, t01=0x004e}
0x5afe…5b1c               Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x003a, t01=0x007a}
0x5b1c…5b48               Head {h00=0x0028, h01=0x0050, text=» MVSU A7 MOVE SECTOR TO USER BUFFER «, t00=0x003a, t01=0x0098}
0x5b48…5b78               Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x003a, t01=0x00c4}
0x5b78…5b84               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00f4}
0x5b84…5b8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0100}
0x5b8e…5ba0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003a, t01=0x010a}
0x5ba0…5bb6               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003a, t01=0x011c}
0x5bb6…5bca               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003a, t01=0x0132}
0x5bca…5be8               Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x003a, t01=0x0146}
0x5be8…5bf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0164}
0x5bf2…5c0a               Head {h00=0x0014, h01=0x0050, text=»*    END OF DATA«, t00=0x003a, t01=0x016e}
0x5c0a…5c14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0186}
0x5c14…5c3c               Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x003a, t01=0x0190}
0x5c3c…5c4e               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003b, t01=0x0028}
0x5c4e…5c58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x003a}
0x5c58…5c70               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003b, t01=0x0044}
0x5c70…5c7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x005c}
0x5c7a…5c96               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003b, t01=0x0066}
0x5c96…5cb2               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x003b, t01=0x0082}
0x5cb2…5cce               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x003b, t01=0x009e}
0x5cce…5cd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ba}
0x5cd8…5cec               Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x003b, t01=0x00c4}
0x5cec…5cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d8}
0x5cf6…5d18               Head {h00=0x001e, h01=0x0050, text=»*   CHECK IF END OF EXTENT«, t00=0x003b, t01=0x00e2}
0x5d18…5d22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0104}
0x5d22…5d38               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x003b, t01=0x010e}
0x5d38…5d62               Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x003b, t01=0x0124}
0x5d62…5d92               Head {h00=0x002c, h01=0x0050, text=» ST A7,ECBCW2,A8 STORE EOD IN ECB C. W. «, t00=0x003b, t01=0x014e}
0x5d92…5da8               Head {h00=0x0012, h01=0x0050, text=» CWK A7,MAXIBM«, t00=0x003b, t01=0x017e}
0x5da8…5dcc (60, 0, 400)  Head {h00=0x0020, h01=0x0050, text=» RF(P) FD:DIS REQUEST ERROR «, t00=0x003c, t01=0x0004}
0x5dcc…5de0               Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x003c, t01=0x0028}
0x5de0…5e04               Head {h00=0x0020, h01=0x0050, text=» RF(G) ENDEOE END OF EXTENT «, t00=0x003c, t01=0x003c}
0x5e04…5e0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0060}
0x5e0e…5e24               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003c, t01=0x006a}
0x5e24…5e50               Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK'S MMU «, t00=0x003c, t01=0x0080}
0x5e50…5e76               Head {h00=0x0022, h01=0x0050, text=» LD A7,DWTTAB,A6 TTAB ADDRESS «, t00=0x003c, t01=0x00ac}
0x5e76…5e9a               Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A7 LOAD MMU TABLE«, t00=0x003c, t01=0x00d2}
0x5e9a…5ec4               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUEC,A6 USER ECB ADDRESS «, t00=0x003c, t01=0x00f6}
0x5ec4…5ef0               Head {h00=0x0028, h01=0x0050, text=» EL A1,ECBBA,A1 USER BUFFER ADDRESS «, t00=0x003c, t01=0x0120}
0x5ef0…5f1a               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,BUF DRIVER BUFFER ADDRESS«, t00=0x003c, t01=0x014c}
0x5f1a…5f38               Head {h00=0x001a, h01=0x0050, text=» LDK A7,SECLEN LENGTH «, t00=0x003c, t01=0x0176}
0x5f38…5f66 (61, 0, 400)  Head {h00=0x002a, h01=0x0050, text=» MVUS A7 MOVE SECTOR TO DRIVER BUFFER «, t00=0x003d, t01=0x0004}
0x5f66…5f96               Head {h00=0x002c, h01=0x0050, text=» TL -30,A15 RESTORE MMU TABLE FROM STACK«, t00=0x003d, t01=0x0032}
0x5f96…5fa2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0062}
0x5fa2…5fac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x006e}
0x5fac…5fbe               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x003d, t01=0x0078}
0x5fbe…5fda               Head {h00=0x0018, h01=0x0050, text=» LDK A4,5 BIO WRITE «, t00=0x003d, t01=0x008a}
0x5fda…5fee               Head {h00=0x0010, h01=0x0050, text=» CF A5,BIOSQ«, t00=0x003d, t01=0x00a6}
0x5fee…6004               Head {h00=0x0012, h01=0x0050, text=» LDK A7,SECLEN«, t00=0x003d, t01=0x00ba}
0x6004…6034               Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x003d, t01=0x00d0}
0x6034…603e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0100}
0x603e…6054               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x003d, t01=0x010a}
0x6054…605e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0120}
0x605e…6068               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x012a}
0x6068…607e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x003d, t01=0x0134}
0x607e…6094               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/200 «, t00=0x003d, t01=0x014a}
0x6094…60aa               Head {h00=0x0012, h01=0x0050, text=» RF(Z) SQW:05 «, t00=0x003d, t01=0x0160}
0x60aa…60ce               Head {h00=0x0020, h01=0x0050, text=» LDK A1,/40 WRITE PROTECTED «, t00=0x003d, t01=0x0176}
0x60ce…60fe               Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x003e, t01=0x000a}
0x60fe…6112               Head {h00=0x0010, h01=0x0050, text=»SQW:05 EQU *«, t00=0x003e, t01=0x003a}
0x6112…6128               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003e, t01=0x004e}
0x6128…613c               Head {h00=0x0010, h01=0x0050, text=»SQW:10 EQU *«, t00=0x003e, t01=0x0064}
0x613c…6172               Head {h00=0x0032, h01=0x0050, text=» ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE «, t00=0x003e, t01=0x0078}
0x6172…6188               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x003e, t01=0x00ae}
0x6188…61b6               Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x003e, t01=0x00c4}
0x61b6…61cc               Head {h00=0x0012, h01=0x0050, text=» LDK A2,SECLEN«, t00=0x003e, t01=0x00f2}
0x61cc…61fc               Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBEL,A8 UPDATE EFFECTIVE LENGTH «, t00=0x003e, t01=0x0108}
0x61fc…620e               Head {h00=0x000e, h01=0x0050, text=» RF END:RC«, t00=0x003e, t01=0x0138}
0x620e…6218               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x014a}
0x6218…622c               Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x003e, t01=0x0154}
0x622c…624e               Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x003e, t01=0x0168}
0x624e…6258               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x018a}
0x6258…6270 (63, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003f, t01=0x0004}
0x6270…627a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x001c}
0x627a…628c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x0026}
0x628c…629e               Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003f, t01=0x0038}
0x629e…62b0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003f, t01=0x004a}
0x62b0…62ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x005c}
0x62ba…62ce               Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003f, t01=0x0066}
0x62ce…62f2               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x003f, t01=0x007a}
0x62f2…6308               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x003f, t01=0x009e}
0x6308…631c               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003f, t01=0x00b4}
0x631c…6334               Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x003f, t01=0x00c8}
0x6334…6350               Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x003f, t01=0x00e0}
0x6350…6366               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003f, t01=0x00fc}
0x6366…637a               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003f, t01=0x0112}
0x637a…6394               Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x003f, t01=0x0126}
0x6394…63b4               Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x003f, t01=0x0140}
0x63b4…63d2               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003f, t01=0x0160}
0x63d2…63e4               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003f, t01=0x017e}
0x63e4…63f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0190}
0x63f0…63fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x000c}
0x63fa…6412               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0040, t01=0x0016}
0x6412…641c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x002e}
0x641c…6436               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0040, t01=0x0038}
0x6436…6450               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0040, t01=0x0052}
0x6450…646a               Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x0040, t01=0x006c}
0x646a…6484               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x0040, t01=0x0086}
0x6484…649e               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0040, t01=0x00a0}
0x649e…64a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ba}
0x64a8…64b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00c4}
0x64b2…64d6               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A2  BIO CONTENTS «, t00=0x0040, t01=0x00ce}
0x64d6…650a               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x0040, t01=0x00f2}
0x650a…6530               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x0040, t01=0x0126}
0x6530…653a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x014c}
0x653a…654e               Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x0040, t01=0x0156}
0x654e…6562               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0040, t01=0x016a}
0x6562…6584               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x0040, t01=0x017e}
0x6584…6590               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0010}
0x6590…65a4               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0041, t01=0x001c}
0x65a4…65ca               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 INDICATOR WRITE MODE«, t00=0x0041, t01=0x0030}
0x65ca…65d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0056}
0x65d6…65e8               Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x0041, t01=0x0062}
0x65e8…65f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0074}
0x65f2…6606               Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x0041, t01=0x007e}
0x6606…661a               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0041, t01=0x0092}
0x661a…6636               Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 READ MODE «, t00=0x0041, t01=0x00a6}
0x6636…6642               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00c2}
0x6642…6656               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0041, t01=0x00ce}
0x6656…6678               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS  READ«, t00=0x0041, t01=0x00e2}
0x6678…6684               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0104}
0x6684…6698               Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x0041, t01=0x0110}
0x6698…66ac               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0041, t01=0x0124}
0x66ac…66d2               Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x0041, t01=0x0138}
0x66d2…66dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x015e}
0x66dc…66f4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0041, t01=0x0168}
0x66f4…66fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0180}
0x66fe…6708               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x018a}
0x6708…671e (66, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0042, t01=0x0004}
0x671e…6754               Head {h00=0x0032, h01=0x0050, text=» LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO «, t00=0x0042, t01=0x001a}
0x6754…6780               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:810 BUFFER IN SYSTEM AREA «, t00=0x0042, t01=0x0050}
0x6780…67b4               Head {h00=0x0030, h01=0x0050, text=» LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS «, t00=0x0042, t01=0x007c}
0x67b4…67c6               Head {h00=0x000e, h01=0x0050, text=» ECR A7,A7«, t00=0x0042, t01=0x00b0}
0x67c6…67d8               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A7«, t00=0x0042, t01=0x00c2}
0x67d8…67ec               Head {h00=0x0010, h01=0x0050, text=»FD:810 EQU *«, t00=0x0042, t01=0x00d4}
0x67ec…67f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x00e8}
0x67f8…6802               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00f4}
0x6802…6816               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0042, t01=0x00fe}
0x6816…6828               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0042, t01=0x0112}
0x6828…684c               Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x0042, t01=0x0124}
0x684c…6874               Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x0042, t01=0x0148}
0x6874…6880               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0170}
0x6880…6894               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0042, t01=0x017c}
0x6894…689e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0190}
0x689e…68b6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0043, t01=0x000a}
0x68b6…68c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0022}
0x68c0…68f2               Head {h00=0x002e, h01=0x0050, text=»*  PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x0043, t01=0x002c}
0x68f2…68fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x005e}
0x68fc…6922               Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTRW,A6 INDICATE MODE «, t00=0x0043, t01=0x0068}
0x6922…693a               Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x0043, t01=0x008e}
0x693a…694c               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0043, t01=0x00a6}
0x694c…6972               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x0043, t01=0x00b8}
0x6972…697e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x00de}
0x697e…69a8               Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x0043, t01=0x00ea}
0x69a8…69be               Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x0043, t01=0x0114}
0x69be…69ee               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) T:DISP POST PROCESSING FLAG SET «, t00=0x0043, t01=0x012a}
0x69ee…6a22               Head {h00=0x0030, h01=0x0050, text=»FD:CIO EQU * LABEL USED FOR CHANGE OF CUADR «, t00=0x0043, t01=0x015a}
0x6a22…6a44               Head {h00=0x001e, h01=0x0050, text=» CIO A2,1,CUADR CIO START «, t00=0x0043, t01=0x018e}
0x6a44…6a70               Head {h00=0x0028, h01=0x0050, text=» RF(3) END:30 DEVICE ADDRESS UNKNOWN«, t00=0x0044, t01=0x0020}
0x6a70…6a82               Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x0044, t01=0x004c}
0x6a82…6a8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x005e}
0x6a8c…6aa4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0044, t01=0x0068}
0x6aa4…6aae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0080}
0x6aae…6adc               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0044, t01=0x008a}
0x6adc…6ae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00b8}
0x6ae6…6b26               Head {h00=0x003c, h01=0x0050, text=»*  FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO  * «, t00=0x0044, t01=0x00c2}
0x6b26…6b54               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0044, t01=0x0102}
0x6b54…6b82               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0044, t01=0x0130}
0x6b82…6b8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x015e}
0x6b8c…6ba0               Head {h00=0x0010, h01=0x0050, text=»FDMSIO EQU *«, t00=0x0044, t01=0x0168}
0x6ba0…6bca               Head {h00=0x0026, h01=0x0050, text=» IM DWTCW2,A6 UPDATE SECTOR NUMBER«, t00=0x0044, t01=0x017c}
0x6bca…6bea               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x0045, t01=0x0016}
0x6bea…6c14               Head {h00=0x0026, h01=0x0050, text=» ANK A1,/7F GET ERROR RETURN CODE «, t00=0x0045, t01=0x0036}
0x6c14…6c2a               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) END:RC«, t00=0x0045, t01=0x0060}
0x6c2a…6c5e               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE «, t00=0x0045, t01=0x0076}
0x6c5e…6c86               Head {h00=0x0024, h01=0x0050, text=» ADS A2,DWTCW2,A6 UPDATE DWTCW2 «, t00=0x0045, t01=0x00aa}
0x6c86…6c9e               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTRL,A6 «, t00=0x0045, t01=0x00d2}
0x6c9e…6cc4               Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x0045, t01=0x00ea}
0x6cc4…6cdc               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTNOS,A6«, t00=0x0045, t01=0x0110}
0x6cdc…6d04               Head {h00=0x0024, h01=0x0050, text=» RF(NP) END:RC LAST SECTOR DONE «, t00=0x0045, t01=0x0128}
0x6d04…6d1a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0045, t01=0x0150}
0x6d1a…6d44               Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTBA,A6 GET BUFFER POINTER«, t00=0x0045, t01=0x0166}
0x6d44…6d6c               Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 UPDATE BUFFER POINTER«, t00=0x0045, t01=0x0190}
0x6d6c…6d84               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTBA,A6 «, t00=0x0046, t01=0x0028}
0x6d84…6dae               Head {h00=0x0026, h01=0x0050, text=» RF(N) FDMSI1 NOT PASSED 64K LIMIT«, t00=0x0046, t01=0x0040}
0x6dae…6dc0               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0046, t01=0x006a}
0x6dc0…6dec               Head {h00=0x0028, h01=0x0050, text=» RF(NN) FDMSI1 NOT PASSED 64K LIMIT «, t00=0x0046, t01=0x007c}
0x6dec…6e00               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/10 «, t00=0x0046, t01=0x00a8}
0x6e00…6e2a               Head {h00=0x0026, h01=0x0050, text=» ADS A2,DWT:BF,A6 UPDATE BITS 0-1 «, t00=0x0046, t01=0x00bc}
0x6e2a…6e3e               Head {h00=0x0010, h01=0x0050, text=»FDMSI1 EQU *«, t00=0x0046, t01=0x00e6}
0x6e3e…6e4a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x00fa}
0x6e4a…6e54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0106}
0x6e54…6e6a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0046, t01=0x0110}
0x6e6a…6e98               Head {h00=0x002a, h01=0x0050, text=» ADS A2,DWTBA,A6 UPDATE BUFFER POINTER«, t00=0x0046, t01=0x0126}
0x6e98…6ea4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0154}
0x6ea4…6eda               Head {h00=0x0032, h01=0x0050, text=» ABL FD:000 MORE SECTORS IN MULTIPLE SECTOR IO«, t00=0x0046, t01=0x0160}
0x6eda…6ee4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0008}
0x6ee4…6efc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0047, t01=0x0012}
0x6efc…6f06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x002a}
0x6f06…6f18               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x0034}
0x6f18…6f2a               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0047, t01=0x0046}
0x6f2a…6f3c               Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x0047, t01=0x0058}
0x6f3c…6f4e               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0047, t01=0x006a}
0x6f4e…6f60               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0047, t01=0x007c}
0x6f60…6f6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x008e}
0x6f6a…6f7c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0047, t01=0x0098}
0x6f7c…6fa4               Head {h00=0x0024, h01=0x0050, text=»ENDEOE EQU * END OF EXTENT EXIT «, t00=0x0047, t01=0x00aa}
0x6fa4…6fc6               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/2000 RETURN CODE«, t00=0x0047, t01=0x00d2}
0x6fc6…6fd8               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0047, t01=0x00f4}
0x6fd8…6fe4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0106}
0x6fe4…6fee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0112}
0x6fee…7002               Head {h00=0x0010, h01=0x0050, text=»END:RC EQU *«, t00=0x0047, t01=0x011c}
0x7002…7022               Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A6 RETURN CODE «, t00=0x0047, t01=0x0130}
0x7022…7036               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0047, t01=0x0150}
0x7036…704c               Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0047, t01=0x0164}
0x704c…7064               Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0047, t01=0x017a}
0x7064…706e (72, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0004}
0x706e…7096               Head {h00=0x0024, h01=0x0050, text=»END:30 EQU * CU ADDRESS UNKNOWN «, t00=0x0048, t01=0x000e}
0x7096…70b4               Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x0048, t01=0x0036}
0x70b4…70e2               Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTST,A6 INDICATE RECOVERY DONE«, t00=0x0048, t01=0x0054}
0x70e2…70f4               Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0048, t01=0x0082}
0x70f4…710c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0048, t01=0x0094}
0x710c…7116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ac}
0x7116…7132               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x00b6}
0x7132…714e               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0048, t01=0x00d2}
0x714e…716a               Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0048, t01=0x00ee}
0x716a…7186               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0048, t01=0x010a}
0x7186…71a2               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0048, t01=0x0126}
0x71a2…71ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0142}
0x71ac…71be               Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x0048, t01=0x014c}
0x71be…71d4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0048, t01=0x015e}
0x71d4…71fe               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0048, t01=0x0174}
0x71fe…720a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x000e}
0x720a…7214               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x001a}
0x7214…722a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0049, t01=0x0024}
0x722a…7250               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0049, t01=0x003a}
0x7250…725c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0060}
0x725c…7266               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x006c}
0x7266…728a               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0049, t01=0x0076}
0x728a…729e               Head {h00=0x0010, h01=0x0050, text=» CM DWTST,A6«, t00=0x0049, t01=0x009a}
0x729e…72c0               Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0049, t01=0x00ae}
0x72c0…72ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00d0}
0x72ca…72d8               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x00da}
0x72d8…72e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00e8}
0x72e2…72f8               Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0049, t01=0x00f2}
0x72f8…7302               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0108}
0x7302…731a               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0049, t01=0x0112}
0x731a…733c               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0049, t01=0x012a}
0x733c…7352               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0049, t01=0x014c}
0x7352…7378               Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0049, t01=0x0162}
0x7378…738a               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0049, t01=0x0188}
0x738a…73a6               Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x004a, t01=0x000a}
0x73a6…73b8               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x004a, t01=0x0026}
0x73b8…73d2               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x004a, t01=0x0038}
0x73d2…73e8               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x004a, t01=0x0052}
0x73e8…7402               Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x004a, t01=0x0068}
0x7402…740c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0082}
0x740c…7420               Head {h00=0x0010, h01=0x0050, text=»F:DISP EQU *«, t00=0x004a, t01=0x008c}
0x7420…7432               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x004a, t01=0x00a0}
0x7432…743c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00b2}
0x743c…7458               Head {h00=0x0018, h01=0x0050, text=»*   TIME OUT ROUTINE«, t00=0x004a, t01=0x00bc}
0x7458…7462               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00d8}
0x7462…747a               Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x004a, t01=0x00e2}
0x747a…748e               Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x004a, t01=0x00fa}
0x748e…74a6               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x004a, t01=0x010e}
0x74a6…74c8               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x004a, t01=0x0126}
0x74c8…74d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0148}
0x74d2…750c               Head {h00=0x0036, h01=0x0050, text=»FDONVL EQU * ENTRY USED BY READY INTERRUPT ROUTINE«, t00=0x004a, t01=0x0152}
0x750c…7522               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004a, t01=0x018c}
0x7522…7536               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x004b, t01=0x0012}
0x7536…755e               Head {h00=0x0024, h01=0x0050, text=» CM BUFFLG,A6 RESET BUFFER FLAG «, t00=0x004b, t01=0x0026}
0x755e…756a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x004e}
0x756a…7574               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x005a}
0x7574…758c               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x004b, t01=0x0064}
0x758c…75c4               Head {h00=0x0034, h01=0x0050, text=» IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR «, t00=0x004b, t01=0x007c}
0x75c4…75e0               Head {h00=0x0018, h01=0x0050, text=» LDK A3,3 4 VOLUMES «, t00=0x004b, t01=0x00b4}
0x75e0…75ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d0}
0x75ea…7600               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x004b, t01=0x00da}
0x7600…760a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00f0}
0x760a…7614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00fa}
0x7614…7630               Head {h00=0x0018, h01=0x0050, text=»*  READ VOLUME NAME «, t00=0x004b, t01=0x0104}
0x7630…763a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0120}
0x763a…764e               Head {h00=0x0010, h01=0x0050, text=»FDONLD EQU *«, t00=0x004b, t01=0x012a}
0x764e…7676               Head {h00=0x0024, h01=0x0050, text=» SC A3,DWTOR,A6 GET VOLUME NAME «, t00=0x004b, t01=0x013e}
0x7676…76a0               Head {h00=0x0026, h01=0x0050, text=» LC A4,DIXTAB,A3 DRIVE INDEX MASK «, t00=0x004b, t01=0x0166}
0x76a0…76c2               Head {h00=0x001e, h01=0x0050, text=» SC A4,DWTA3+1,A6 SAVE IT «, t00=0x004b, t01=0x0190}
0x76c2…76d8               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETCIO «, t00=0x004c, t01=0x0022}
0x76d8…76ec               Head {h00=0x0010, h01=0x0050, text=» LDK A2,/14 «, t00=0x004c, t01=0x0038}
0x76ec…7706               Head {h00=0x0016, h01=0x0050, text=» CF A5,FD:REA LOCK«, t00=0x004c, t01=0x004c}
0x7706…7718               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x004c, t01=0x0066}
0x7718…7736               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FDON19 OPERABLE«, t00=0x004c, t01=0x0078}
0x7736…7754               Head {h00=0x001a, h01=0x0050, text=» LDK A1,6 NOT OPERABLE«, t00=0x004c, t01=0x0096}
0x7754…777c               Head {h00=0x0024, h01=0x0050, text=» CF A15,VOLCLR CLEAR VOLUME NAME«, t00=0x004c, t01=0x00b4}
0x777c…77a6               Head {h00=0x0026, h01=0x0050, text=» RF FDON21 CONTINUE WITH NEXT DISC«, t00=0x004c, t01=0x00dc}
0x77a6…77b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0106}
0x77b0…77c4               Head {h00=0x0010, h01=0x0050, text=»FDON19 EQU *«, t00=0x004c, t01=0x0110}
0x77c4…77da               Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x004c, t01=0x0124}
0x77da…7804               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/FBFF RESET IBM IND. BIT «, t00=0x004c, t01=0x013a}
0x7804…7834               Head {h00=0x002c, h01=0x0050, text=» ANRS A2,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x004c, t01=0x0164}
0x7834…7848 (77, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»FDON21 EQU *«, t00=0x004d, t01=0x0004}
0x7848…785a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,/C«, t00=0x004d, t01=0x0018}
0x785a…7876               Head {h00=0x0018, h01=0x0050, text=» CF A5,FD:REA UNLOCK«, t00=0x004d, t01=0x002a}
0x7876…7888               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x004d, t01=0x0046}
0x7888…78b8               Head {h00=0x002c, h01=0x0050, text=» LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. «, t00=0x004d, t01=0x0058}
0x78b8…78ca               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004d, t01=0x0088}
0x78ca…78ec               Head {h00=0x001e, h01=0x0050, text=» RB(NN) FDONLD NEXT VOLUME«, t00=0x004d, t01=0x009a}
0x78ec…7900               Head {h00=0x0010, h01=0x0050, text=» CM DWTOR,A6«, t00=0x004d, t01=0x00bc}
0x7900…792c               Head {h00=0x0028, h01=0x0050, text=» CM DWTST2,A6 INDICATE VOLUMES READ «, t00=0x004d, t01=0x00d0}
0x792c…795c               Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x004d, t01=0x00fc}
0x795c…7968               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x012c}
0x7968…7972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0138}
0x7972…7988               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x004d, t01=0x0142}
0x7988…7992               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0158}
0x7992…79a0               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0162}
0x79a0…79aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0170}
0x79aa…79e8               Head {h00=0x003a, h01=0x0050, text=»*    TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x004d, t01=0x017a}
0x79e8…79f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0028}
0x79f2…7a18               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x004e, t01=0x0032}
0x7a18…7a3a               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x004e, t01=0x0058}
0x7a3a…7a54               Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x004e, t01=0x007a}
0x7a54…7a7c               Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x004e, t01=0x0094}
0x7a7c…7a90               Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x004e, t01=0x00bc}
0x7a90…7a9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00d0}
0x7a9a…7ad4               Head {h00=0x0036, h01=0x0050, text=»*    OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x004e, t01=0x00da}
0x7ad4…7ade               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0114}
0x7ade…7b14               Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x004e, t01=0x011e}
0x7b14…7b3e               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x004e, t01=0x0154}
0x7b3e…7b66               Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x004e, t01=0x017e}
0x7b66…7b84               Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x004f, t01=0x0016}
0x7b84…7bb0               Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x004f, t01=0x0034}
0x7bb0…7bc4               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x004f, t01=0x0060}
0x7bc4…7bee               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x004f, t01=0x0074}
0x7bee…7bf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x009e}
0x7bf8…7c0c               Head {h00=0x0010, h01=0x0050, text=»FDON23 EQU *«, t00=0x004f, t01=0x00a8}
0x7c0c…7c18               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00bc}
0x7c18…7c22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00c8}
0x7c22…7c30               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x00d2}
0x7c30…7c3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00e0}
0x7c3a…7c50               Head {h00=0x0012, h01=0x0050, text=»*  LOCK DOORS «, t00=0x004f, t01=0x00ea}
0x7c50…7c5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0100}
0x7c5a…7c6c               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x004f, t01=0x010a}
0x7c6c…7c80               Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x004f, t01=0x011c}
0x7c80…7ca6               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x004f, t01=0x0130}
0x7ca6…7cb8               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x004f, t01=0x0156}
0x7cb8…7cd8               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x004f, t01=0x0168}
0x7cd8…7cf4               Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x004f, t01=0x0188}
0x7cf4…7cfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0014}
0x7cfe…7d0c               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x001e}
0x7d0c…7d16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x002c}
0x7d16…7d3a               Head {h00=0x0020, h01=0x0050, text=»*  PUT DRIVE NO IN CIO INSTR«, t00=0x0050, t01=0x0036}
0x7d3a…7d44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x005a}
0x7d44…7d66               Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0050, t01=0x0064}
0x7d66…7d94               Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0050, t01=0x0086}
0x7d94…7dac               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0050, t01=0x00b4}
0x7dac…7dc2               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0050, t01=0x00cc}
0x7dc2…7de4               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0050, t01=0x00e2}
0x7de4…7df6               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0050, t01=0x0104}
0x7df6…7e0e               Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0050, t01=0x0116}
0x7e0e…7e36               Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0050, t01=0x012e}
0x7e36…7e4a               Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0050, t01=0x0156}
0x7e4a…7e5c               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0050, t01=0x016a}
0x7e5c…7e72               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0050, t01=0x017c}
0x7e72…7e88 (81, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0051, t01=0x0004}
0x7e88…7e92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x001a}
0x7e92…7ea8               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0051, t01=0x0024}
0x7ea8…7eb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x003a}
0x7eb2…7efa               Head {h00=0x0044, h01=0x0050, text=»*    RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x0051, t01=0x0044}
0x7efa…7f04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x008c}
0x7f04…7f2c               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x0051, t01=0x0096}
0x7f2c…7f52               Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x0051, t01=0x00be}
0x7f52…7f72               Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x0051, t01=0x00e4}
0x7f72…7f9a               Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x0051, t01=0x0104}
0x7f9a…7fce               Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x0051, t01=0x012c}
0x7fce…7fda               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0160}
0x7fda…7fe4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x016c}
0x7fe4…7ff2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0176}
0x7ff2…7ffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0184}
0x7ffc…8012               Head {h00=0x0012, h01=0x0050, text=»*  ANY REQUEST«, t00=0x0051, t01=0x018e}
0x8012…801c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0014}
0x801c…8040               Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x0052, t01=0x001e}
0x8040…8054               Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x0052, t01=0x0042}
0x8054…806c               Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0052, t01=0x0056}
0x806c…80a0               Head {h00=0x0030, h01=0x0050, text=» ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO«, t00=0x0052, t01=0x006e}
0x80a0…80aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00a2}
0x80aa…80c2               Head {h00=0x0014, h01=0x0050, text=»*  RETRY REQUEST«, t00=0x0052, t01=0x00ac}
0x80c2…80cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00c4}
0x80cc…80f0               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0052, t01=0x00ce}
0x80f0…8108               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTORD,A6«, t00=0x0052, t01=0x00f2}
0x8108…8138               Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0052, t01=0x010a}
0x8138…8164               Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0052, t01=0x013a}
0x8164…817e               Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0052, t01=0x0166}
0x817e…819a               Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x0052, t01=0x0180}
0x819a…81a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x000c}
0x81a4…81bc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0053, t01=0x0016}
0x81bc…81c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x002e}
0x81c6…81e2               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x0038}
0x81e2…81fe               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0053, t01=0x0054}
0x81fe…821a               Head {h00=0x0018, h01=0x0050, text=»*  READY INTERRUPT *«, t00=0x0053, t01=0x0070}
0x821a…8236               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0053, t01=0x008c}
0x8236…8252               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x00a8}
0x8252…825c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00c4}
0x825c…826e               Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x0053, t01=0x00ce}
0x826e…8286               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0053, t01=0x00e0}
0x8286…82b4               Head {h00=0x002a, h01=0x0050, text=» RB(NZ) F:DISP POWER ON ROUTINE ACTIVE«, t00=0x0053, t01=0x00f8}
0x82b4…82cc               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0053, t01=0x0126}
0x82cc…82ea               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0053, t01=0x013e}
0x82ea…82f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x015c}
0x82f4…830c               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0053, t01=0x0166}
0x830c…831e               Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x0053, t01=0x017e}
0x831e…832a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0190}
0x832a…8334               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x000c}
0x8334…834c               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0054, t01=0x0016}
0x834c…836e               Head {h00=0x001e, h01=0x0050, text=» CM DWTST,A6 SET UNIT BUSY«, t00=0x0054, t01=0x002e}
0x836e…8392               Head {h00=0x0020, h01=0x0050, text=» RB FDONVL READ VOLUME NAMES«, t00=0x0054, t01=0x0050}
0x8392…839e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0074}
0x839e…83a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0080}
0x83a8…83c0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0054, t01=0x008a}
0x83c0…83ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00a2}
0x83ca…83e8               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0054, t01=0x00ac}
0x83e8…8406               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0054, t01=0x00ca}
0x8406…8424               Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x0054, t01=0x00e8}
0x8424…8442               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0054, t01=0x0106}
0x8442…8460               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0054, t01=0x0124}
0x8460…846a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0142}
0x846a…847c               Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x0054, t01=0x014c}
0x847c…84a4               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0054, t01=0x015e}
0x84a4…84ba               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0054, t01=0x0186}
0x84ba…84e8               Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x0055, t01=0x000c}
0x84e8…84f4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x003a}
0x84f4…84fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0046}
0x84fe…8514               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0055, t01=0x0050}
0x8514…853a               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0055, t01=0x0066}
0x853a…8546               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x008c}
0x8546…8550               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0098}
0x8550…8574               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0055, t01=0x00a2}
0x8574…8588               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0055, t01=0x00c6}
0x8588…8594               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0055, t01=0x00da}
0x8594…85be               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x0055, t01=0x00e6}
0x85be…85e4               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x0055, t01=0x0110}
0x85e4…85fe               Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x0055, t01=0x0136}
0x85fe…8612               Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x0055, t01=0x0150}
0x8612…8632               Head {h00=0x001c, h01=0x0050, text=» SST A3,CUADR GET STATUS«, t00=0x0055, t01=0x0164}
0x8632…8658               Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x0055, t01=0x0184}
0x8658…866e               Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x0056, t01=0x001a}
0x866e…869e               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) IHDISP POST PROCESSING FLAG SET «, t00=0x0056, t01=0x0030}
0x869e…86ca               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x0056, t01=0x0060}
0x86ca…86e4               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x0056, t01=0x008c}
0x86e4…86ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00a6}
0x86ee…8704               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0056, t01=0x00b0}
0x8704…870e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00c6}
0x870e…8718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00d0}
0x8718…872c               Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x0056, t01=0x00da}
0x872c…8754               Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A1 ONE WORD FROM BUFFER«, t00=0x0056, t01=0x00ee}
0x8754…8772               Head {h00=0x001a, h01=0x0050, text=» OTR A3,0,CUADR WRITE «, t00=0x0056, t01=0x0116}
0x8772…8788               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0056, t01=0x0134}
0x8788…87b0               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0056, t01=0x014a}
0x87b0…87c2               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0056, t01=0x0172}
0x87c2…87d6               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x0056, t01=0x0184}
0x87d6…87f6               Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0057, t01=0x0008}
0x87f6…880a               Head {h00=0x0010, h01=0x0050, text=»IHDISP EQU *«, t00=0x0057, t01=0x0028}
0x880a…882c               Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x0057, t01=0x003c}
0x882c…8836               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x005e}
0x8836…884a               Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x0057, t01=0x0068}
0x884a…8866               Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR READ«, t00=0x0057, t01=0x007c}
0x8866…887c               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0057, t01=0x0098}
0x887c…88a2               Head {h00=0x0022, h01=0x0050, text=» STR A3,A1 ONE WORD TO BUFFER «, t00=0x0057, t01=0x00ae}
0x88a2…88ca               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0057, t01=0x00d4}
0x88ca…88dc               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0057, t01=0x00fc}
0x88dc…88f0               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x0057, t01=0x010e}
0x88f0…8910               Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0057, t01=0x0122}
0x8910…892c               Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0057, t01=0x0142}
0x892c…8940               Head {h00=0x0010, h01=0x0050, text=» RB(NA) *-2 «, t00=0x0057, t01=0x015e}
0x8940…8954               Head {h00=0x0010, h01=0x0050, text=»IH:000 EQU *«, t00=0x0057, t01=0x0172}
0x8954…8960               Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0057, t01=0x0186}
0x8960…896c (88, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0004}
0x896c…8976               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0010}
0x8976…898e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0058, t01=0x001a}
0x898e…8998               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0032}
0x8998…89a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x003c}
0x89a2…89b6               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0058, t01=0x0046}
0x89b6…89d2               Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0058, t01=0x005a}
0x89d2…89de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0076}
0x89de…8a02               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0058, t01=0x0082}
0x8a02…8a28               Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0058, t01=0x00a6}
0x8a28…8a42               Head {h00=0x0016, h01=0x0050, text=» LDR A2,A3 STATUS «, t00=0x0058, t01=0x00cc}
0x8a42…8a54               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0058, t01=0x00e6}
0x8a54…8a78               Head {h00=0x0020, h01=0x0050, text=» RB(N) FDRE READY INTERRUPT «, t00=0x0058, t01=0x00f8}
0x8a78…8a96               Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY«, t00=0x0058, t01=0x011c}
0x8a96…8aae               Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0058, t01=0x013a}
0x8aae…8ad4               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0058, t01=0x0152}
0x8ad4…8ae6               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0058, t01=0x0178}
0x8ae6…8b10               Head {h00=0x0026, h01=0x0050, text=» ANK A1,5 DATA FAULT, NOT OPERABLE«, t00=0x0058, t01=0x018a}
0x8b10…8b34               Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0059, t01=0x0024}
0x8b34…8b46               Head {h00=0x000e, h01=0x0050, text=» ORK A3,4 «, t00=0x0059, t01=0x0048}
0x8b46…8b5a               Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0059, t01=0x005a}
0x8b5a…8b64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x006e}
0x8b64…8b7c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0059, t01=0x0078}
0x8b7c…8b86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0090}
0x8b86…8bb0               Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0059, t01=0x009a}
0x8bb0…8bba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00c4}
0x8bba…8bd0               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0059, t01=0x00ce}
0x8bd0…8be4               Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0059, t01=0x00e4}
0x8be4…8bf6               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0059, t01=0x00f8}
0x8bf6…8c1c               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0059, t01=0x010a}
0x8c1c…8c2e               Head {h00=0x000e, h01=0x0050, text=» ECR A4,A3«, t00=0x0059, t01=0x0130}
0x8c2e…8c50               Head {h00=0x001e, h01=0x0050, text=» ANK A4,8 CHECK IF NO DATA«, t00=0x0059, t01=0x0142}
0x8c50…8c70               Head {h00=0x001c, h01=0x0050, text=» RF(Z) IH:70 NOT NO DATA«, t00=0x0059, t01=0x0164}
0x8c70…8c92               Head {h00=0x001e, h01=0x0050, text=» ORK A3,4 SET BIT 13 ALSO «, t00=0x0059, t01=0x0184}
0x8c92…8ca6               Head {h00=0x0010, h01=0x0050, text=»IH:70 EQU * «, t00=0x005a, t01=0x0016}
0x8ca6…8cb8               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x002a}
0x8cb8…8cd4               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x005a, t01=0x003c}
0x8cd4…8cf0               Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x005a, t01=0x0058}
0x8cf0…8d02               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x0074}
0x8d02…8d0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0086}
0x8d0c…8d24               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005a, t01=0x0090}
0x8d24…8d36               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x00a8}
0x8d36…8d52               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x005a, t01=0x00ba}
0x8d52…8d6c               Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x005a, t01=0x00d6}
0x8d6c…8d7e               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x00f0}
0x8d7e…8d8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0102}
0x8d8a…8d94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x010e}
0x8d94…8da6               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x005a, t01=0x0118}
0x8da6…8dc0               Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x005a, t01=0x012a}
0x8dc0…8dda               Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x005a, t01=0x0144}
0x8dda…8dec               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x005a, t01=0x015e}
0x8dec…8e06               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x005a, t01=0x0170}
0x8e06…8e20               Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x005a, t01=0x018a}
0x8e20…8e32               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x005b, t01=0x0014}
0x8e32…8e62               Head {h00=0x002c, h01=0x0050, text=» ORRS A3,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x005b, t01=0x0026}
0x8e62…8e78               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/F7FF«, t00=0x005b, t01=0x0056}
0x8e78…8e8c               Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x005b, t01=0x006c}
0x8e8c…8e9e               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x005b, t01=0x0080}
0x8e9e…8eae               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005b, t01=0x0092}
0x8eae…8eb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00a2}
0x8eb8…8ed0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005b, t01=0x00ac}
0x8ed0…8eda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00c4}
0x8eda…8f0e               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x005b, t01=0x00ce}
0x8f0e…8f42               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x005b, t01=0x0102}
0x8f42…8f76               Head {h00=0x0030, h01=0x0050, text=»*    S U B R O U T I N E S                * «, t00=0x005b, t01=0x0136}
0x8f76…8faa               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x005b, t01=0x016a}
0x8faa…8fde               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x005c, t01=0x000e}
0x8fde…8fe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0042}
0x8fe8…8ff8               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x005c, t01=0x004c}
0x8ff8…9008               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x005c, t01=0x005c}
0x9008…9018               Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x005c, t01=0x006c}
0x9018…9028               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x005c, t01=0x007c}
0x9028…9038               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x005c, t01=0x008c}
0x9038…9042               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x009c}
0x9042…9064               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x005c, t01=0x00a6}
0x9064…9082               Head {h00=0x001a, h01=0x0050, text=»*          A4   ORDER «, t00=0x005c, t01=0x00c8}
0x9082…908c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00e6}
0x908c…90ce               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x005c, t01=0x00f0}
0x90ce…9102               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x005c, t01=0x0132}
0x9102…9128               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x005c, t01=0x0166}
0x9128…9132               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x018c}
0x9132…9144               Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x005d, t01=0x0008}
0x9144…916e               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTCW2,A6 GET SECTOR NUMBER«, t00=0x005d, t01=0x001a}
0x916e…919a               Head {h00=0x0028, h01=0x0050, text=» SLL A1,3 PUT IN RIGHT BIO POSITION «, t00=0x005d, t01=0x0044}
0x919a…91d4               Head {h00=0x0036, h01=0x0050, text=» LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO «, t00=0x005d, t01=0x0070}
0x91d4…91e6               Head {h00=0x000e, h01=0x0050, text=» SRC A2,2 «, t00=0x005d, t01=0x00aa}
0x91e6…9206               Head {h00=0x001c, h01=0x0050, text=» ORR A2,A1 COMPLETE BIO «, t00=0x005d, t01=0x00bc}
0x9206…9230               Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x005d, t01=0x00dc}
0x9230…9256               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTBA,A6 BUFFER ADDRESS«, t00=0x005d, t01=0x0106}
0x9256…927e               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTRL,A6 GET REQ. LENGTH «, t00=0x005d, t01=0x012c}
0x927e…928e               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005d, t01=0x0154}
0x928e…9298               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0164}
0x9298…92ae               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x005d, t01=0x016e}
0x92ae…92b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0184}
0x92b8…92c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x018e}
0x92c2…92dc               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x005e, t01=0x0008}
0x92dc…92f6               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x005e, t01=0x0022}
0x92f6…9310               Head {h00=0x0016, h01=0x0050, text=»*   BIOSQ       * «, t00=0x005e, t01=0x003c}
0x9310…932a               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x005e, t01=0x0056}
0x932a…9344               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x005e, t01=0x0070}
0x9344…934e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x008a}
0x934e…9370               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x005e, t01=0x0094}
0x9370…938e               Head {h00=0x001a, h01=0x0050, text=»*          A4   ORDER «, t00=0x005e, t01=0x00b6}
0x938e…9398               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00d4}
0x9398…93da               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x005e, t01=0x00de}
0x93da…940e               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x005e, t01=0x0120}
0x940e…9434               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x005e, t01=0x0154}
0x9434…943e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x017a}
0x943e…9452               Head {h00=0x0010, h01=0x0050, text=»BIOSQ EQU * «, t00=0x005e, t01=0x0184}
0x9452…9464               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x0008}
0x9464…948e               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x005f, t01=0x001a}
0x948e…94ba               Head {h00=0x0028, h01=0x0050, text=» SLL A2,3 PUT IN RIGHT BIO POSITION «, t00=0x005f, t01=0x0044}
0x94ba…94e4               Head {h00=0x0026, h01=0x0050, text=» ADR A2,A4 COMPLETE BIO WITH ORDER«, t00=0x005f, t01=0x0070}
0x94e4…94ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x009a}
0x94ee…9504               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x005f, t01=0x00a4}
0x9504…952e               Head {h00=0x0026, h01=0x0050, text=» LD A4,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x005f, t01=0x00ba}
0x952e…953a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x00e4}
0x953a…9544               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00f0}
0x9544…9556               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x00fa}
0x9556…956c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005f, t01=0x010c}
0x956c…9596               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x005f, t01=0x0122}
0x9596…95a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x014c}
0x95a2…95ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0158}
0x95ac…95be               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x0162}
0x95be…95e6               Head {h00=0x0024, h01=0x0050, text=» LDK A3,SECLEN REQUESTED LENGTH «, t00=0x005f, t01=0x0174}
0x95e6…95f6               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0060, t01=0x000c}
0x95f6…9602               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x001c}
0x9602…960c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0028}
0x960c…9622               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0060, t01=0x0032}
0x9622…962c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0048}
0x962c…9646               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0060, t01=0x0052}
0x9646…9660               Head {h00=0x0016, h01=0x0050, text=»*   VO:NAM       *«, t00=0x0060, t01=0x006c}
0x9660…967a               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0060, t01=0x0086}
0x967a…9684               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00a0}
0x9684…968e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00aa}
0x968e…96a2               Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0060, t01=0x00b4}
0x96a2…96ba               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0060, t01=0x00c8}
0x96ba…96d4               Head {h00=0x0016, h01=0x0050, text=» LDK A3,36 LENGTH «, t00=0x0060, t01=0x00e0}
0x96d4…96e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x00fa}
0x96e0…96ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0106}
0x96ea…96fe               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0060, t01=0x0110}
0x96fe…9710               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0060, t01=0x0124}
0x9710…9734               Head {h00=0x0020, h01=0x0050, text=» LDK A3,6 VOLUME NAME LENGTH«, t00=0x0060, t01=0x0136}
0x9734…9740               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x015a}
0x9740…974a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0166}
0x974a…975e               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0060, t01=0x0170}
0x975e…9774               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0060, t01=0x0184}
0x9774…9798               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF READ TO BUFFER «, t00=0x0061, t01=0x000a}
0x9798…97ae               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0061, t01=0x002e}
0x97ae…97ce               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/17 FATAL ERROR «, t00=0x0061, t01=0x0044}
0x97ce…97e4               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) VOL:40«, t00=0x0061, t01=0x0064}
0x97e4…97f6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0061, t01=0x007a}
0x97f6…980c               Head {h00=0x0012, h01=0x0050, text=» LD A2,BUF+32 «, t00=0x0061, t01=0x008c}
0x980c…9820               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0061, t01=0x00a2}
0x9820…9840               Head {h00=0x001c, h01=0x0050, text=» RF(NE) VOL:10 IBM DISC «, t00=0x0061, t01=0x00b6}
0x9840…9864               Head {h00=0x0020, h01=0x0050, text=» LD A2,BUF+34 GET NEXT WORD «, t00=0x0061, t01=0x00d6}
0x9864…9878               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0061, t01=0x00fa}
0x9878…9898               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) VOL:10 IBM DISC «, t00=0x0061, t01=0x010e}
0x9898…98be               Head {h00=0x0022, h01=0x0050, text=» C1 A1,DWTA3,A6 DRIVE BIT MASK«, t00=0x0061, t01=0x012e}
0x98be…98ea               Head {h00=0x0028, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS DISC«, t00=0x0061, t01=0x0154}
0x98ea…98f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0180}
0x98f6…9900               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x018c}
0x9900…9918               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0062, t01=0x0008}
0x9918…9922               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0020}
0x9922…992c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x002a}
0x992c…9940               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0062, t01=0x0034}
0x9940…9954               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,BUF«, t00=0x0062, t01=0x0048}
0x9954…9966               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0062, t01=0x005c}
0x9966…9978               Head {h00=0x000e, h01=0x0050, text=» RF VOL:20«, t00=0x0062, t01=0x006e}
0x9978…9984               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x0080}
0x9984…998e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x008c}
0x998e…99a0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0062, t01=0x0096}
0x99a0…99b4               Head {h00=0x0010, h01=0x0050, text=»VOL:10 EQU *«, t00=0x0062, t01=0x00a8}
0x99b4…99ce               Head {h00=0x0016, h01=0x0050, text=» LDK A3,10 LENGTH «, t00=0x0062, t01=0x00bc}
0x99ce…99e6               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0062, t01=0x00d6}
0x99e6…9a0a               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF READ TO BUFFER «, t00=0x0062, t01=0x00ee}
0x9a0a…9a20               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0062, t01=0x0112}
0x9a20…9a34               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0062, t01=0x0128}
0x9a34…9a5e               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0062, t01=0x013c}
0x9a5e…9a84               Head {h00=0x0022, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM«, t00=0x0062, t01=0x0166}
0x9a84…9a9a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/400 «, t00=0x0062, t01=0x018c}
0x9a9a…9aca               Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x0063, t01=0x0012}
0x9aca…9aee               Head {h00=0x0020, h01=0x0050, text=» LDK A7,10 NO OF CHARACTERS «, t00=0x0063, t01=0x0042}
0x9aee…9b24               Head {h00=0x0032, h01=0x0050, text=» CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII«, t00=0x0063, t01=0x0066}
0x9b24…9b58               Head {h00=0x0030, h01=0x0050, text=» LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME «, t00=0x0063, t01=0x009c}
0x9b58…9b64               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x00d0}
0x9b64…9b6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00dc}
0x9b6e…9b86               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0063, t01=0x00e6}
0x9b86…9b90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00fe}
0x9b90…9b9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0108}
0x9b9a…9bae               Head {h00=0x0010, h01=0x0050, text=»VOL:20 EQU *«, t00=0x0063, t01=0x0112}
0x9bae…9bc6               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0063, t01=0x0126}
0x9bc6…9be4               Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F8 FILE CODE «, t00=0x0063, t01=0x013e}
0x9be4…9bfc               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST2,A6«, t00=0x0063, t01=0x015c}
0x9bfc…9c22               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) VOL:30 NOT TEST STATUS«, t00=0x0063, t01=0x0174}
0x9c22…9c50               Head {h00=0x002a, h01=0x0050, text=» ORKL A3,/8000 INDICATE NO NEW NVL SET«, t00=0x0064, t01=0x000a}
0x9c50…9c64               Head {h00=0x0010, h01=0x0050, text=»VOL:30 EQU *«, t00=0x0064, t01=0x0038}
0x9c64…9c96               Head {h00=0x002e, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT SET NVL «, t00=0x0064, t01=0x004c}
0x9c96…9cae               Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0064, t01=0x007e}
0x9cae…9cc0               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0064, t01=0x0096}
0x9cc0…9cd4               Head {h00=0x0010, h01=0x0050, text=»VOL:40 EQU *«, t00=0x0064, t01=0x00a8}
0x9cd4…9ce4               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0064, t01=0x00bc}
0x9ce4…9cf0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00cc}
0x9cf0…9cfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00d8}
0x9cfa…9d0c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0064, t01=0x00e2}
0x9d0c…9d24               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0064, t01=0x00f4}
0x9d24…9d2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x010c}
0x9d2e…9d40               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0064, t01=0x0116}
0x9d40…9d52               Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x0064, t01=0x0128}
0x9d52…9d64               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0064, t01=0x013a}
0x9d64…9d6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x014c}
0x9d6e…9dac               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x0064, t01=0x0156}
0x9dac…9dcc (101, 0, 400) Head {h00=0x001c, h01=0x0050, text=»*             ASCII CODE«, t00=0x0065, t01=0x0004}
0x9dcc…9dfe               Head {h00=0x002e, h01=0x0050, text=»*             INPUT STRING ADDRESS IS BUF «, t00=0x0065, t01=0x0024}
0x9dfe…9e28               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7  NO OF CHARACTERS«, t00=0x0065, t01=0x0056}
0x9e28…9e4a               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x0065, t01=0x0080}
0x9e4a…9e6c               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0065, t01=0x00a2}
0x9e6c…9e8e               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x0065, t01=0x00c4}
0x9e8e…9eb0               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0065, t01=0x00e6}
0x9eb0…9eba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0108}
0x9eba…9ece               Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0065, t01=0x0112}
0x9ece…9ee4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0065, t01=0x0126}
0x9ee4…9f0e               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0065, t01=0x013c}
0x9f0e…9f1a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x0166}
0x9f1a…9f24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0172}
0x9f24…9f36               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0065, t01=0x017c}
0x9f36…9f42               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0065, t01=0x018e}
0x9f42…9f54               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0066, t01=0x000a}
0x9f54…9f68               Head {h00=0x0010, h01=0x0050, text=»ASC:10 EQU *«, t00=0x0066, t01=0x001c}
0x9f68…9f7a               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0066, t01=0x0030}
0x9f7a…9f9e               Head {h00=0x0020, h01=0x0050, text=» LCR A1,A4 EBCDIC CHARACTER «, t00=0x0066, t01=0x0042}
0x9f9e…9fb2               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0066, t01=0x0066}
0x9fb2…9fde               Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0066, t01=0x007a}
0x9fde…a012               Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0066, t01=0x00a6}
0xa012…a024               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0066, t01=0x00da}
0xa024…a03a               Head {h00=0x0012, h01=0x0050, text=» RB(P) ASC:10 «, t00=0x0066, t01=0x00ec}
0xa03a…a04c               Head {h00=0x000e, h01=0x0050, text=» RF EBC:90«, t00=0x0066, t01=0x0102}
0xa04c…a056               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0114}
0xa056…a06e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0066, t01=0x011e}
0xa06e…a078               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0136}
0xa078…a08a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x0140}
0xa08a…a09c               Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0066, t01=0x0152}
0xa09c…a0ae               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x0164}
0xa0ae…a0b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0176}
0xa0b8…a0f8               Head {h00=0x003c, h01=0x0050, text=»*  FUNCTION:  EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0066, t01=0x0180}
0xa0f8…a11a               Head {h00=0x001e, h01=0x0050, text=»*             EBCDIC CODE «, t00=0x0067, t01=0x0030}
0xa11a…a156               Head {h00=0x0038, h01=0x0050, text=»*             OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0067, t01=0x0052}
0xa156…a160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x008e}
0xa160…a18a               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7 NO OF CHARACTERS «, t00=0x0067, t01=0x0098}
0xa18a…a1ac               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x0067, t01=0x00c2}
0xa1ac…a1b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00e4}
0xa1b6…a1d8               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0067, t01=0x00ee}
0xa1d8…a1fa               Head {h00=0x001e, h01=0x0050, text=»*      A4 = BUFFER ADDRESS«, t00=0x0067, t01=0x0110}
0xa1fa…a21c               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0067, t01=0x0132}
0xa21c…a230               Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0067, t01=0x0154}
0xa230…a23c               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0067, t01=0x0168}
0xa23c…a252               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0067, t01=0x0174}
0xa252…a27c               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0067, t01=0x018a}
0xa27c…a288               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0024}
0xa288…a292               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0030}
0xa292…a2a4               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0068, t01=0x003a}
0xa2a4…a2b6               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0068, t01=0x004c}
0xa2b6…a2ca               Head {h00=0x0010, h01=0x0050, text=»EBC:10 EQU *«, t00=0x0068, t01=0x005e}
0xa2ca…a2dc               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0068, t01=0x0072}
0xa2dc…a2fe               Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0068, t01=0x0084}
0xa2fe…a312               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0068, t01=0x00a6}
0xa312…a32c               Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0068, t01=0x00ba}
0xa32c…a344               Head {h00=0x0014, h01=0x0050, text=» SC A1,BUF-1,A7 «, t00=0x0068, t01=0x00d4}
0xa344…a356               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0068, t01=0x00ec}
0xa356…a36c               Head {h00=0x0012, h01=0x0050, text=» RB(P) EBC:10 «, t00=0x0068, t01=0x00fe}
0xa36c…a396               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0068, t01=0x0114}
0xa396…a3aa               Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x0068, t01=0x013e}
0xa3aa…a3ca               Head {h00=0x001c, h01=0x0050, text=» INH  INHIBIT INTERRUPTS«, t00=0x0068, t01=0x0152}
0xa3ca…a3da               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0068, t01=0x0172}
0xa3da…a3e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0182}
0xa3e4…a3fc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0068, t01=0x018c}
0xa3fc…a406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0014}
0xa406…a418               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x001e}
0xa418…a42a               Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0069, t01=0x0030}
0xa42a…a43c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0069, t01=0x0042}
0xa43c…a446               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0054}
0xa446…a48a               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0069, t01=0x005e}
0xa48a…a4ba               Head {h00=0x002c, h01=0x0050, text=»*              LOGICAL SECTOR (BINARY). «, t00=0x0069, t01=0x00a2}
0xa4ba…a4fa               Head {h00=0x003c, h01=0x0050, text=»*             FORMAT OF PHYS. SEC.  TT0SS  (EBCDIC CODE)«, t00=0x0069, t01=0x00d2}
0xa4fa…a528               Head {h00=0x002a, h01=0x0050, text=»*              TT = TRACK,  SS=SECTOR «, t00=0x0069, t01=0x0112}
0xa528…a532               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0140}
0xa532…a562               Head {h00=0x002c, h01=0x0050, text=»*  INPUT:    A4  ADDRESS TO PHYS. SECTOR«, t00=0x0069, t01=0x014a}
0xa562…a56c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x017a}
0xa56c…a596               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT:   A3  BINARY SECTOR NO «, t00=0x0069, t01=0x0184}
0xa596…a5c8               Head {h00=0x002e, h01=0x0050, text=»*            A4  ADDRESS TO PHYS. SEC. + 4«, t00=0x006a, t01=0x001e}
0xa5c8…a5d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0050}
0xa5d2…a5e6               Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x006a, t01=0x005a}
0xa5e6…a5fc               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x006a, t01=0x006e}
0xa5fc…a614               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x006a, t01=0x0084}
0xa614…a626               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x006a, t01=0x009c}
0xa626…a630               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00ae}
0xa630…a64a               Head {h00=0x0016, h01=0x0050, text=»*  MULTIPLY BY 26 «, t00=0x006a, t01=0x00b8}
0xa64a…a654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00d2}
0xa654…a66a               Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x006a, t01=0x00dc}
0xa66a…a67c               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x006a, t01=0x00f2}
0xa67c…a68e               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x006a, t01=0x0104}
0xa68e…a6a4               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x006a, t01=0x0116}
0xa6a4…a6b6               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x006a, t01=0x012c}
0xa6b6…a6cc               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x006a, t01=0x013e}
0xa6cc…a6e2               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x006a, t01=0x0154}
0xa6e2…a6f4               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x006a, t01=0x016a}
0xa6f4…a706               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x006a, t01=0x017c}
0xa706…a710               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x018e}
0xa710…a728               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006b, t01=0x0008}
0xa728…a732               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0020}
0xa732…a74c               Head {h00=0x0016, h01=0x0050, text=»*  CHECK SECTOR NO«, t00=0x006b, t01=0x002a}
0xa74c…a756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0044}
0xa756…a768               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x006b, t01=0x004e}
0xa768…a77a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x006b, t01=0x0060}
0xa77a…a790               Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x006b, t01=0x0072}
0xa790…a7ae               Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD «, t00=0x006b, t01=0x0088}
0xa7ae…a7c8               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x006b, t01=0x00a6}
0xa7c8…a7de               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x006b, t01=0x00c0}
0xa7de…a7f0               Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x006b, t01=0x00d6}
0xa7f0…a7fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00e8}
0xa7fa…a820               Head {h00=0x0022, h01=0x0050, text=»*  CHECK EOD LESS/EQUAL 74001 «, t00=0x006b, t01=0x00f2}
0xa820…a82a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0118}
0xa82a…a846               Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x006b, t01=0x0122}
0xa846…a85a               Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x006b, t01=0x013e}
0xa85a…a880               Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x006b, t01=0x0152}
0xa880…a8a6               Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x006b, t01=0x0178}
0xa8a6…a8b6               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x000e}
0xa8b6…a8c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x001e}
0xa8c0…a8d6               Head {h00=0x0012, h01=0x0050, text=»*  FATAL ERROR«, t00=0x006c, t01=0x0028}
0xa8d6…a8e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x003e}
0xa8e0…a90c               Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x006c, t01=0x0048}
0xa90c…a932               Head {h00=0x0022, h01=0x0050, text=»LOG:10 LDK A1,/10 RETURN CODE «, t00=0x006c, t01=0x0074}
0xa932…a962               Head {h00=0x002c, h01=0x0050, text=» ORRS A1,A6 UPDATE TEMPORARY RETURN CODE«, t00=0x006c, t01=0x009a}
0xa962…a982               Head {h00=0x001c, h01=0x0050, text=» INH  INHIBIT INTERRUPTS«, t00=0x006c, t01=0x00ca}
0xa982…a9a4               Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x006c, t01=0x00ea}
0xa9a4…a9ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x010c}
0xa9ae…a9c6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006c, t01=0x0116}
0xa9c6…a9d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x012e}
0xa9d0…a9e2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x0138}
0xa9e2…a9f4               Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x006c, t01=0x014a}
0xa9f4…aa06               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x015c}
0xaa06…aa10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x016e}
0xaa10…aa52               Head {h00=0x003e, h01=0x0050, text=»*  FUNCTION:  DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x006c, t01=0x0178}
0xaa52…aa9a               Head {h00=0x0044, h01=0x0050, text=»*             BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x006d, t01=0x002a}
0xaa9a…aaca               Head {h00=0x002c, h01=0x0050, text=»*     INPUT:  A4  ADDRESS TO FIRST DIGIT«, t00=0x006d, t01=0x0072}
0xaaca…aae8               Head {h00=0x001a, h01=0x0050, text=»*   OUTPUT: A1  BINARY«, t00=0x006d, t01=0x00a2}
0xaae8…ab08               Head {h00=0x001c, h01=0x0050, text=»*   WORKING REG:  A2,A7 «, t00=0x006d, t01=0x00c0}
0xab08…ab12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00e0}
0xab12…ab2a               Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x006d, t01=0x00ea}
0xab2a…ab3c               Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x006d, t01=0x0102}
0xab3c…ab5a               Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x006d, t01=0x0114}
0xab5a…ab6e               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x006d, t01=0x0132}
0xab6e…ab82               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x006d, t01=0x0146}
0xab82…ab98               Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x006d, t01=0x015a}
0xab98…abaa               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x006d, t01=0x0170}
0xabaa…abca               Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x006d, t01=0x0182}
0xabca…abdc               Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x006e, t01=0x0012}
0xabdc…abee               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006e, t01=0x0024}
0xabee…ac04               Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x006e, t01=0x0036}
0xac04…ac2e               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x006e, t01=0x004c}
0xac2e…ac46               Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x006e, t01=0x0076}
0xac46…ac66               Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x006e, t01=0x008e}
0xac66…ac88               Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x006e, t01=0x00ae}
0xac88…ac9a               Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x006e, t01=0x00d0}
0xac9a…acb2               Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x006e, t01=0x00e2}
0xacb2…acc2               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006e, t01=0x00fa}
0xacc2…acce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x010a}
0xacce…acd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0116}
0xacd8…acf0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006e, t01=0x0120}
0xacf0…acfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0138}
0xacfa…ad0c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006e, t01=0x0142}
0xad0c…ad1e               Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x006e, t01=0x0154}
0xad1e…ad30               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006e, t01=0x0166}
0xad30…ad3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0178}
0xad3a…ad70               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION:  PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x006e, t01=0x0182}
0xad70…ad7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0028}
0xad7a…adb6               Head {h00=0x0038, h01=0x0050, text=»*  INPUT:  A3  DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x006f, t01=0x0032}
0xadb6…adc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x006e}
0xadc0…adde               Head {h00=0x001a, h01=0x0050, text=»*  OUTPUT: A3  CHANGED«, t00=0x006f, t01=0x0078}
0xadde…adfc               Head {h00=0x001a, h01=0x0050, text=»*          A4  CHANGED«, t00=0x006f, t01=0x0096}
0xadfc…ae06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00b4}
0xae06…ae22               Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x006f, t01=0x00be}
0xae22…ae38               Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x006f, t01=0x00da}
0xae38…ae4a               Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x006f, t01=0x00f0}
0xae4a…ae60               Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x006f, t01=0x0102}
0xae60…ae70               Head {h00=0x000c, h01=0x0050, text=» RTN  A5«, t00=0x006f, t01=0x0118}
0xae70…ae82               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006f, t01=0x0128}
0xae82…ae8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x013a}
0xae8c…aea4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006f, t01=0x0144}
0xaea4…aeae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x015c}
0xaeae…aec0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x0166}
0xaec0…aed2               Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x006f, t01=0x0178}
0xaed2…aee4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006f, t01=0x018a}
0xaee4…aeee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x000c}
0xaeee…af2c               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0070, t01=0x0016}
0xaf2c…af60               Head {h00=0x0030, h01=0x0050, text=»*             EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0070, t01=0x0054}
0xaf60…af6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0088}
0xaf6a…af8e               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A7  BINARY NUMBER«, t00=0x0070, t01=0x0092}
0xaf8e…af98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00b6}
0xaf98…afca               Head {h00=0x002e, h01=0x0050, text=»*  OUTPUT: A3  EBCDIC CODED DECIMAL DIGITS«, t00=0x0070, t01=0x00c0}
0xafca…afe8               Head {h00=0x001a, h01=0x0050, text=»*          A7  CHANGED«, t00=0x0070, t01=0x00f2}
0xafe8…aff2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0110}
0xaff2…b00a               Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x0070, t01=0x011a}
0xb00a…b022               Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x0070, t01=0x0132}
0xb022…b038               Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x0070, t01=0x014a}
0xb038…b04a               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0070, t01=0x0160}
0xb04a…b05c               Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x0070, t01=0x0172}
0xb05c…b074               Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x0070, t01=0x0184}
0xb074…b086               Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x0071, t01=0x000c}
0xb086…b0b4               Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x0071, t01=0x001e}
0xb0b4…b0d8               Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x0071, t01=0x004c}
0xb0d8…b0e8               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0071, t01=0x0070}
0xb0e8…b0f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0080}
0xb0f2…b10a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0071, t01=0x008a}
0xb10a…b11c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0071, t01=0x00a2}
0xb11c…b12e               Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x0071, t01=0x00b4}
0xb12e…b140               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0071, t01=0x00c6}
0xb140…b14a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00d8}
0xb14a…b182               Head {h00=0x0034, h01=0x0050, text=»*  FUNCTION:  PREPARE FOR READING DATA SET LABEL«, t00=0x0071, t01=0x00e2}
0xb182…b18c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x011a}
0xb18c…b1ae               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x0071, t01=0x0124}
0xb1ae…b1b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0146}
0xb1b8…b1f6               Head {h00=0x003a, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x0071, t01=0x0150}
0xb1f6…b212               Head {h00=0x0018, h01=0x0050, text=»*          A3   128 «, t00=0x0071, t01=0x018e}
0xb212…b23e               Head {h00=0x0028, h01=0x0050, text=»*          A4  DRIVER BUFFER ADDRESS«, t00=0x0072, t01=0x001a}
0xb23e…b260               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x0072, t01=0x0046}
0xb260…b282               Head {h00=0x001e, h01=0x0050, text=»*           A1 IS CHANGED «, t00=0x0072, t01=0x0068}
0xb282…b28c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x008a}
0xb28c…b2a8               Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x0072, t01=0x0094}
0xb2a8…b2bc               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0072, t01=0x00b0}
0xb2bc…b2d0               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x0072, t01=0x00c4}
0xb2d0…b2e2               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0072, t01=0x00d8}
0xb2e2…b2f6               Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x0072, t01=0x00ea}
0xb2f6…b30a               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0072, t01=0x00fe}
0xb30a…b31a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0072, t01=0x0112}
0xb31a…b324               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0122}
0xb324…b33c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0072, t01=0x012c}
0xb33c…b346               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0144}
0xb346…b358               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0072, t01=0x014e}
0xb358…b36a               Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x0072, t01=0x0160}
0xb36a…b37c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0072, t01=0x0172}
0xb37c…b386               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0184}
0xb386…b3c0               Head {h00=0x0036, h01=0x0050, text=»*  FUNCTION:  GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x0072, t01=0x018e}
0xb3c0…b3ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0038}
0xb3ca…b3ec               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x0073, t01=0x0042}
0xb3ec…b3f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0064}
0xb3f6…b418               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A2  EOD ADDRESS«, t00=0x0073, t01=0x006e}
0xb418…b448               Head {h00=0x002c, h01=0x0050, text=»*          A7  EOD-NO      (0=NOT OPEN) «, t00=0x0073, t01=0x0090}
0xb448…b466               Head {h00=0x001a, h01=0x0050, text=»*          A1  CHANGED«, t00=0x0073, t01=0x00c0}
0xb466…b482               Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x0073, t01=0x00de}
0xb482…b496               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0073, t01=0x00fa}
0xb496…b4b0               Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x0073, t01=0x010e}
0xb4b0…b4c0               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0073, t01=0x0128}
0xb4c0…b4ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0138}
0xb4ca…b4e2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0073, t01=0x0142}
0xb4e2…b4ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x015a}
0xb4ec…b4fe               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0073, t01=0x0164}
0xb4fe…b510               Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x0073, t01=0x0176}
0xb510…b522               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0073, t01=0x0188}
0xb522…b52c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x000a}
0xb52c…b562               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x0074, t01=0x0014}
0xb562…b59c               Head {h00=0x0036, h01=0x0050, text=»*            TYPE OF DATA FOR CORRESPONDING DRIVE «, t00=0x0074, t01=0x004a}
0xb59c…b5a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0084}
0xb5a6…b5c8               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A1  DWT OFFSET «, t00=0x0074, t01=0x008e}
0xb5c8…b5ea               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x0074, t01=0x00b0}
0xb5ea…b5f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00d2}
0xb5f4…b61a               Head {h00=0x0022, h01=0x0050, text=»*  OUTPUT: A2  ADDRESS TO DATA«, t00=0x0074, t01=0x00dc}
0xb61a…b63c               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x0074, t01=0x0102}
0xb63c…b646               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0124}
0xb646…b66c               Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x0074, t01=0x012e}
0xb66c…b67e               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0074, t01=0x0154}
0xb67e…b690               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0074, t01=0x0166}
0xb690…b6a2               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0074, t01=0x0178}
0xb6a2…b6b4               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0074, t01=0x018a}
0xb6b4…b6c4               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0075, t01=0x000c}
0xb6c4…b6ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x001c}
0xb6ce…b6e6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0075, t01=0x0026}
0xb6e6…b6f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x003e}
0xb6f0…b702               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0075, t01=0x0048}
0xb702…b714               Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x0075, t01=0x005a}
0xb714…b726               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0075, t01=0x006c}
0xb726…b730               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x007e}
0xb730…b76e               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x0075, t01=0x0088}
0xb76e…b78c               Head {h00=0x001a, h01=0x0050, text=»*            DRIVE NO «, t00=0x0075, t01=0x00c6}
0xb78c…b796               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00e4}
0xb796…b7c2               Head {h00=0x0028, h01=0x0050, text=»*  INPUT:    A1  OFFSET TO DWT AREA «, t00=0x0075, t01=0x00ee}
0xb7c2…b7f4               Head {h00=0x002e, h01=0x0050, text=»*            A3  WORD TO BE STORED IN DWT «, t00=0x0075, t01=0x011a}
0xb7f4…b818               Head {h00=0x0020, h01=0x0050, text=»*            A6  DWT ADDRESS«, t00=0x0075, t01=0x014c}
0xb818…b822               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0170}
0xb822…b844               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:   A1  UNCHANGED«, t00=0x0075, t01=0x017a}
0xb844…b878               Head {h00=0x0030, h01=0x0050, text=»*            A2  ADDRESS TO WORD IN DWT AREA«, t00=0x0076, t01=0x000c}
0xb878…b89a               Head {h00=0x001e, h01=0x0050, text=»*            A3  UNCHANGED«, t00=0x0076, t01=0x0040}
0xb89a…b8bc               Head {h00=0x001e, h01=0x0050, text=»*            A6  UNCHANGED«, t00=0x0076, t01=0x0062}
0xb8bc…b8c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0084}
0xb8c6…b8da               Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x0076, t01=0x008e}
0xb8da…b8ee               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0076, t01=0x00a2}
0xb8ee…b900               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0076, t01=0x00b6}
0xb900…b910               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0076, t01=0x00c8}
0xb910…b91c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x00d8}
0xb91c…b926               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00e4}
0xb926…b93e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0076, t01=0x00ee}
0xb93e…b948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0106}
0xb948…b96e               Head {h00=0x0022, h01=0x0050, text=»*    D R I V E R   B U F F E R«, t00=0x0076, t01=0x0110}
0xb96e…b978               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0136}
0xb978…b98a               Head {h00=0x000e, h01=0x0050, text=»BUF EQU * «, t00=0x0076, t01=0x0140}
0xb98a…b99c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0076, t01=0x0152}
0xb99c…b9b0               Head {h00=0x0010, h01=0x0050, text=» RES DVBLEN «, t00=0x0076, t01=0x0164}
0xb9b0…b9bc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0178}
0xb9bc…b9c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0184}
0xb9c6…b9da               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0076, t01=0x018e}
0xb9da…b9ec               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=0«, t00=0x0077, t01=0x0012}
0xb9ec…ba12               Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME BUFFER«, t00=0x0077, t01=0x0024}
0xba12…ba2c               Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x0077, t01=0x004a}
0xba2c…ba4c               Head {h00=0x001c, h01=0x0050, text=» RES DVBLEN-3 MMU BUFFER«, t00=0x0077, t01=0x0064}
0xba4c…ba58               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x0084}
0xba58…ba62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0090}
0xba62…ba7a               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0077, t01=0x009a}
0xba7a…ba94               Head {h00=0x0016, h01=0x0050, text=» IFT MMUPAG+CHAN=2«, t00=0x0077, t01=0x00b2}
0xba94…bab2               Head {h00=0x001a, h01=0x0050, text=» RES DVBLEN MMU BUFFER«, t00=0x0077, t01=0x00cc}
0xbab2…babe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x00ea}
0xbabe…bac8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00f6}
0xbac8…bae0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0077, t01=0x0100}
0xbae0…baea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0118}
0xbaea…bb08               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0077, t01=0x0122}
0xbb08…bb26               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0077, t01=0x0140}
0xbb26…bb44               Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0077, t01=0x015e}
0xbb44…bb62               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0077, t01=0x017c}
0xbb62…bb80               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0078, t01=0x000a}
0xbb80…bb8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0028}
0xbb8a…bb9e               Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0078, t01=0x0032}
0xbb9e…bbca               Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0078, t01=0x0046}
0xbbca…bbda               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0078, t01=0x0072}
0xbbda…bbf8               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0078, t01=0x0082}
0xbbf8…bc14               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0078, t01=0x00a0}
0xbc14…bc2a               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0078, t01=0x00bc}
0xbc2a…bc50               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0078, t01=0x00d2}
0xbc50…bc6c               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0078, t01=0x00f8}
0xbc6c…bc94               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0078, t01=0x0114}
0xbc94…bcb2               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0078, t01=0x013c}
0xbcb2…bcbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x015a}
0xbcbc…bcd2               Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0078, t01=0x0164}
0xbcd2…bcfc               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0078, t01=0x017a}
0xbcfc…bd20               Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0079, t01=0x0014}
0xbd20…bd2c               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0079, t01=0x0038}
0xbd2c…bd36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0044}
0xbd36…bd50               Head {h00=0x0016, h01=0x0050, text=»DWTA3 EQU *-DWFD01«, t00=0x0079, t01=0x004e}
0xbd50…bd60               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0079, t01=0x0068}
0xbd60…bd7a               Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x0079, t01=0x0078}
0xbd7a…bd8a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0079, t01=0x0092}
0xbd8a…bd9a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0079, t01=0x00a2}
0xbd9a…bdc0               Head {h00=0x0022, h01=0x0050, text=» DATA 0,0,0,0 STACK (3 LEVELS)«, t00=0x0079, t01=0x00b2}
0xbdc0…bde0               Head {h00=0x001c, h01=0x0050, text=» DATA 0 ORDER SAVE AREA «, t00=0x0079, t01=0x00d8}
0xbde0…bdea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00f8}
0xbdea…be02               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0079, t01=0x0102}
0xbe02…be0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x011a}
0xbe0c…be16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0124}
0xbe16…be2e               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0079, t01=0x012e}
0xbe2e…be52               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 0 «, t00=0x0079, t01=0x0146}
0xbe52…be76               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 1 «, t00=0x0079, t01=0x016a}
0xbe76…be9a               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 2 «, t00=0x0079, t01=0x018e}
0xbe9a…bebe               Head {h00=0x0020, h01=0x0050, text=» DATA /8000 NVL INDICATOR 3 «, t00=0x007a, t01=0x0022}
0xbebe…beea               Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x007a, t01=0x0046}
0xbeea…bf0a               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007a, t01=0x0072}
0xbf0a…bf36               Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x007a, t01=0x0092}
0xbf36…bf56               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007a, t01=0x00be}
0xbf56…bf82               Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x007a, t01=0x00de}
0xbf82…bfa2               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007a, t01=0x010a}
0xbfa2…bfce               Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x007a, t01=0x012a}
0xbfce…bfee               Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF «, t00=0x007a, t01=0x0156}
0xbfee…c01a               Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x007a, t01=0x0176}
0xc01a…c02a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0012}
0xc02a…c036               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x0022}
0xc036…c050               Head {h00=0x0016, h01=0x0050, text=»DWTA5 EQU *-DWFD01«, t00=0x007b, t01=0x002e}
0xc050…c060               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0048}
0xc060…c08e               Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x007b, t01=0x0058}
0xc08e…c09e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0086}
0xc09e…c0c6               Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x007b, t01=0x0096}
0xc0c6…c0d6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x00be}
0xc0d6…c0e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00ce}
0xc0e0…c0f8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007b, t01=0x00d8}
0xc0f8…c102               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00f0}
0xc102…c10c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00fa}
0xc10c…c11e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007b, t01=0x0104}
0xc11e…c14e               Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x007b, t01=0x0116}
0xc14e…c15e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0146}
0xc15e…c16a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x0156}
0xc16a…c174               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0162}
0xc174…c1a4               Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x007b, t01=0x016c}
0xc1a4…c1b4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x000c}
0xc1b4…c1be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x001c}
0xc1be…c1d4               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x007c, t01=0x0026}
0xc1d4…c206               Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x007c, t01=0x003c}
0xc206…c216               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x006e}
0xc216…c24e               Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x007c, t01=0x007e}
0xc24e…c25e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x00b6}
0xc25e…c26a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x00c6}
0xc26a…c274               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00d2}
0xc274…c28c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007c, t01=0x00dc}
0xc28c…c296               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00f4}
0xc296…c2a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00fe}
0xc2a0…c2b4               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x007c, t01=0x0108}
0xc2b4…c2ee               Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x007c, t01=0x011c}
0xc2ee…c2fe               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0156}
0xc2fe…c32e               Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x007c, t01=0x0166}
0xc32e…c33e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0008}
0xc33e…c36e               Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x007d, t01=0x0018}
0xc36e…c37e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0048}
0xc37e…c38a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x0058}
0xc38a…c394               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0064}
0xc394…c3a6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007d, t01=0x006e}
0xc3a6…c3d6               Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x007d, t01=0x0080}
0xc3d6…c3ec               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x00b0}
0xc3ec…c414               Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x007d, t01=0x00c6}
0xc414…c42a               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x00ee}
0xc42a…c454               Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x007d, t01=0x0104}
0xc454…c46a               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x012e}
0xc46a…c498               Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x007d, t01=0x0144}
0xc498…c4ae               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x0172}
0xc4ae…c4e0               Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x007d, t01=0x0188}
0xc4e0…c4f6               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007e, t01=0x002a}
0xc4f6…c502               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0040}
0xc502…c50c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x004c}
0xc50c…c524               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007e, t01=0x0056}
0xc524…c52e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x006e}
0xc52e…c538               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0078}
0xc538…c562               Head {h00=0x0026, h01=0x0050, text=»DWTBA EQU *-DWFD01 BUFFER POINTER «, t00=0x007e, t01=0x0082}
0xc562…c572               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x00ac}
0xc572…c59e               Head {h00=0x0028, h01=0x0050, text=»DWTRL EQU *-DWFD01 LENGTH IN SUB IO «, t00=0x007e, t01=0x00bc}
0xc59e…c5ae               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x00e8}
0xc5ae…c5d8               Head {h00=0x0026, h01=0x0050, text=»DWTCW2 EQU *-DWFD01 SECTOR NUMBER «, t00=0x007e, t01=0x00f8}
0xc5d8…c5e8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x0122}
0xc5e8…c61a               Head {h00=0x002e, h01=0x0050, text=»DWTNOS EQU *-DWFD01 SECTOR NUMBER COUNTER «, t00=0x007e, t01=0x0132}
0xc61a…c62a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007e, t01=0x0164}
0xc62a…c662               Head {h00=0x0034, h01=0x0050, text=»DWTSIO EQU *-DWFD01 NUMBER OF SECTORS IN SUB IO «, t00=0x007e, t01=0x0174}
0xc662…c672               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x001c}
0xc672…c67c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x002c}
0xc67c…c694               Head {h00=0x0014, h01=0x0050, text=» IFT IBM+TOSS=2 «, t00=0x007f, t01=0x0036}
0xc694…c6be               Head {h00=0x0026, h01=0x0050, text=»DWTFIB EQU *-DWFD01 IBM INDICATOR «, t00=0x007f, t01=0x004e}
0xc6be…c6ce               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0078}
0xc6ce…c6da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007f, t01=0x0088}
0xc6da…c6e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0094}
0xc6e4…c6fc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x007f, t01=0x009e}
0xc6fc…c706               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00b6}
0xc706…c710               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00c0}
0xc710…c726               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007f, t01=0x00ca}
0xc726…c742               Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x007f, t01=0x00e0}
0xc742…c76a               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x007f, t01=0x00fc}
0xc76a…c786               Head {h00=0x0018, h01=0x0050, text=»BUFFLG EQU *-DWFD01 «, t00=0x007f, t01=0x0124}
0xc786…c796               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007f, t01=0x0140}
0xc796…c7a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0150}
0xc7a0…c7b8               Head {h00=0x0014, h01=0x0050, text=» IFF CHAN+IBM=0 «, t00=0x007f, t01=0x015a}
0xc7b8…c7d4               Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x007f, t01=0x0172}
0xc7d4…c802               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x007f, t01=0x018e}
0xc802…c822               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0080, t01=0x002c}
0xc822…c82c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x004c}
0xc82c…c848               Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0080, t01=0x0056}
0xc848…c876               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0080, t01=0x0072}
0xc876…c882               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x00a0}
0xc882…c88c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00ac}
0xc88c…c8a2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0080, t01=0x00b6}
0xc8a2…c8b6               Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0080, t01=0x00cc}
0xc8b6…c8d2               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0080, t01=0x00e0}
0xc8d2…c8de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x00fc}
0xc8de…c8e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0108}
0xc8e8…c8f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0112}
0xc8f2…c8fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x011c}
0xc8fc…c908               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0080, t01=0x0126}
0xc908…c90c               Head {h00=0x4004, h01=0x0000}
0xc90c…c910               00 80 01 32                                                                                                                                                                                                                                       ┆   2┆
0xc910…c918 (129, 1, 8)   20 04 00 00 00 81 00 04                                                                                                                                                                                                                           ┆        ┆
0xc918…c968 (130, 0, 400) 4c 43 49 4e 00 49 01 7e 00 34 00 50 5c 52 42 5c 53 53 54 5c 50 45 52 46 4f 52 4d 20 53 53 54 20 49 4e 53 54 52 55 43 54 49 4f 4e 20 41 4e 44 20 53 54 41 54 55 53 20 43 48 45 43 4b 00 4a 00 0c 00 0a 00 50 5c 45 4a 45 43 54 00 4a 00 44 00 06   ┆LCIN I ~ 4 P RB SST PERFORM SST INSTRUCTION AND STATUS CHECK J     P EJECT J D  ┆
0xc968…c9b8               00 50 2a 20 00 4a 00 52 00 06 00 50 2a 20 00 4a 00 5c 00 2c 00 50 2a 5c 57 52 49 54 45 20 46 52 4f 4d 20 4f 52 20 52 45 41 44 20 4f 4e 45 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 41 32 00 4a 00 66 00 06 00 50 2a 20 00 4a 00 96 00 06 00 50   ┆ P*  J R   P*  J   , P* WRITE FROM OR READ ONE CHARACTER TO A2 J f   P*  J     P┆
0xc9b8…ca08               2a 20 00 4a 00 a0 00 10 00 50 57 52 49 54 45 5c 45 51 55 5c 2a 20 00 4a 00 aa 00 24 00 50 5c 4f 54 52 5c 41 32 2c 30 2c 43 48 4c 43 55 54 5c 53 45 4e 44 20 43 48 41 52 41 43 54 45 52 20 00 4a 00 be 00 12 00 50 5c 52 46 28 41 29 5c 57 52 49   ┆*  J     PWRITE EQU *  J   $ P OTR A2,0,CHLCUT SEND CHARACTER  J     P RF(A) WRI┆
0xca08…ca58               54 31 30 20 00 4a 00 e6 00 0c 00 50 5c 52 46 5c 52 45 41 44 00 4a 00 fc 00 10 00 50 57 52 49 54 31 30 5c 45 51 55 5c 2a 00 4a 01 0c 00 10 00 50 5c 49 46 46 5c 4c 4f 47 47 3d 30 20 00 4a 01 20 00 26 00 50 5c 43 46 5c 41 35 2c 4c 4f 47 4f 55   ┆T10  J     P RF READ J     PWRIT10 EQU * J     P IFF LOGG=0  J   & P CF A5,LOGOU┆
0xca58…caa8               54 5c 4c 4f 47 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 00 4a 01 34 00 08 00 50 5c 58 49 46 00 4a 01 5e 00 06 00 50 2a 20 00 4a 01 6a 00 16 00 50 52 45 41 44 5c 43 46 5c 41 31 35 2c 53 54 52 45 47 20 00 4a 01 74 00 0e 00 50 5c 41   ┆T LOG OUTPUT CHARACTER J 4   P XIF J ^   P*  J j   PREAD CF A15,STREG  J t   P A┆
0xcaa8…caf8 (131, 0, 400) 42 4c 5c 54 44 49 53 50 00 4a 01 8e 00 0a 00 50 5c 45 4a 45 43 54 00 4b 00 10 00 06 00 50 2a 20 00 4b 00 1e 00 06 00 50 2a 20 00 4b 00 28 00 0e 00 50 2a 2a 2a 5c 57 52 49 54 45 50 00 4b 00 32 00 06 00 50 2a 20 00 4b 00 44 00 1c 00 50 2a 20   ┆BL TDISP J     P EJECT K     P*  K     P*  K (   P*** WRITEP K 2   P*  K D   P* ┆
0xcaf8…cb48               20 20 57 52 49 54 45 20 41 32 20 57 49 54 48 20 50 41 52 49 54 59 00 4b 00 4e 00 06 00 50 2a 20 00 4b 00 6e 00 06 00 50 2a 20 00 4b 00 78 00 14 00 50 57 52 49 54 45 50 5c 45 43 52 5c 41 31 2c 41 32 00 4b 00 82 00 10 00 50 5c 4f 52 4b 5c 41   ┆  WRITE A2 WITH PARITY K N   P*  K n   P*  K x   PWRITEP ECR A1,A2 K     P ORK A┆
0xcb48…cb98               32 2c 2f 38 30 20 00 4b 00 9a 00 14 00 50 57 52 49 31 30 30 5c 53 4c 4c 5c 41 31 2c 31 20 00 4b 00 ae 00 12 00 50 5c 52 42 28 50 29 5c 57 52 49 31 30 30 20 00 4b 00 c6 00 12 00 50 5c 52 46 28 5a 29 5c 57 52 49 31 30 31 20 00 4b 00 dc 00 10   ┆2,/80  K     PWRI100 SLL A1,1  K     P RB(P) WRI100  K     P RF(Z) WRI101  K    ┆
0xcb98…cbe8               00 50 5c 58 52 4b 5c 41 32 2c 2f 38 30 20 00 4b 00 f2 00 0e 00 50 5c 52 42 5c 57 52 49 31 30 30 00 4b 01 06 00 10 00 50 57 52 49 31 30 31 5c 45 51 55 5c 2a 00 4b 01 18 00 0e 00 50 5c 58 52 52 5c 41 37 2c 41 32 00 4b 01 2c 00 0e 00 50 5c 52   ┆ P XRK A2,/80  K     P RB WRI100 K     PWRI101 EQU * K     P XRR A7,A2 K ,   P R┆
0xcbe8…cc38               42 5c 57 52 49 54 45 20 00 4b 01 3e 00 06 00 50 2a 20 00 4b 01 50 00 06 00 50 2a 20 00 4b 01 5a 00 06 00 50 2a 20 00 4b 01 64 00 0e 00 50 2a 2a 2a 5c 52 45 41 44 50 20 00 4b 01 6e 00 06 00 50 2a 20 00 4b 01 80 00 2e 00 50 2a 20 20 20 52 45   ┆B WRITE  K >   P*  K P   P*  K Z   P*  K d   P*** READP  K n   P*  K   . P*   RE┆
0xcc38…cc88 (132, 0, 400) 41 44 20 43 48 41 52 41 43 54 45 52 20 54 4f 20 41 32 20 41 4e 44 20 43 48 45 43 4b 20 50 41 52 49 54 59 20 00 4b 01 8a 00 06 00 50 2a 20 00 4c 00 2c 00 06 00 50 2a 20 00 4c 00 36 00 14 00 50 52 45 41 44 50 5c 43 46 5c 41 35 2c 52 45 41 44   ┆AD CHARACTER TO A2 AND CHECK PARITY  K     P*  L ,   P*  L 6   PREADP CF A5,READ┆
0xcc88…ccd8               00 4c 00 40 00 10 00 50 5c 43 57 4b 5c 41 32 2c 53 59 4e 20 00 4c 00 58 00 10 00 50 5c 52 42 28 45 29 5c 52 45 41 44 50 00 4c 00 6c 00 0e 00 50 5c 45 43 52 5c 41 31 2c 41 32 00 4c 00 80 00 12 00 50 52 45 31 30 30 5c 53 4c 4c 5c 41 31 2c 31   ┆ L @   P CWK A2,SYN  L X   P RB(E) READP L l   P ECR A1,A2 L     PRE100 SLL A1,1┆
0xccd8…cd28               00 4c 00 92 00 10 00 50 5c 52 46 28 5a 29 5c 52 45 31 31 30 00 4c 00 a8 00 12 00 50 5c 52 42 28 4e 4e 29 5c 52 45 31 30 30 20 00 4c 00 bc 00 10 00 50 5c 58 52 4b 5c 41 32 2c 2f 38 30 20 00 4c 00 d2 00 0e 00 50 5c 52 42 5c 52 45 31 30 30 20   ┆ L     P RF(Z) RE110 L     P RB(NN) RE100  L     P XRK A2,/80  L     P RB RE100 ┆
0xcd28…cd78               00 4c 00 e6 00 14 00 50 52 45 31 31 30 5c 4c 44 52 5c 41 31 2c 41 32 20 00 4c 00 f8 00 10 00 50 5c 41 4e 4b 5c 41 32 2c 2f 37 46 20 00 4c 01 10 00 0e 00 50 5c 41 44 4b 4c 5c 41 35 2c 34 00 4c 01 24 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 38   ┆ L     PRE110 LDR A1,A2  L     P ANK A2,/7F  L     P ADKL A5,4 L $   P ANK A1,/8┆
0xcd78…cdc8               30 20 00 4c 01 36 00 0e 00 50 5c 58 52 52 5c 41 37 2c 41 32 00 4c 01 4a 00 10 00 50 5c 58 52 4b 5c 41 31 2c 2f 38 30 20 00 4c 01 5c 00 0c 00 50 5c 41 42 52 2a 5c 41 35 00 4c 01 70 00 06 00 50 2a 20 00 4c 01 80 00 06 00 50 2a 20 00 4c 01 8a   ┆0  L 6   P XRR A7,A2 L J   P XRK A1,/80  L     P ABR* A5 L p   P*  L     P*  L  ┆

Reduced view