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

⟦594710733⟧ 

    Length: 49312 (0xc0a0)
    Notes: pts_type(SC)
    Names: »DRFD01.SC«

Derivation

└─⟦a25d6defe⟧ Bits:30009676 Philips computer tape "600210"
    └─⟦this⟧ »M:92SP/DRFD01.SC«

PTS(SC)

	IDENT DRFD01 	REL 9.2 79-12-05  870105040920 

			=2,TIMING PROBLEMS IN INT. HANDLER 
			REL 9.2 79-11-16 
			=1,CHANGED INTERRUPT HANDLER 
			REL 9.1 79-05-23 
* 
**********************************************
* 
*  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 
*  /1A   SEARCH KEY 
*  /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	DWTST	STATUS 
	EXTRN	DWTECB	ECB ADDRESS 
	EXTRN	DWTOR	DWT INDEX AND ORDER
	EXTRN	DWTA2	SAVE AREA A2 
	EXTRN	DWTA5	SAVE AREA A5 
	EXTRN	DWTSB2	STACK BASE 2 IN DWT 
	EXTRN	SCTPLD	PROGRAM LOADING DEVICE
	EXTRN	SAVE8	SAVE A1-A8 ON A15 STACK
	EXTRN	SETIMP	TIMER 
	EXTRN	INTSAV	INTERRUPT SAVE AREA 
	EXTRN	INIFLG	INITIALIZATION 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	ECBRC	ECB RETURN CODE
	EXTRN	ECBCW	ECB CONTROL WORD 
	EJECT			DRFD01 
* 
************************
*                      *
* CONDITIONAL ASSEMBLY *
*                      *
************************
* 
* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED 
* CHANNEL BY SETTING X:A = 0
* 
X:A	EQU	1 
CHAN	EQU	1
* 
*	A PROGRAM VERSION INCLUDING TOSS DISC FORMAT
*	IS OBTAINED BY SETTING TOSS EQU 1.
* 
X:B	EQU	0 
TOSS	EQU	1
* 
*	A PROGRAM VERSION INCLUDING IBM DISC FORMAT 
*	IS OBTAINED BY SETTING IBM EQU 1. 
* 
X:C	EQU	0 
IBM	EQU	1 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
	EJECT			DRFD01 
* 
* 
*	A PROGRAM VERSION USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	1
* 
* 
*	A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 
*	BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. 
* 
SWPBLK	EQU	0
* 
* 
*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER 
*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1
* 
X:D	EQU	0 
OPCLOS	EQU	0
* 
	EJECT			DRFD01 
* 
* 
*   MMU BUFFER SIZE 
* 
* 
X:E	EQU	256		 
DVBLEN	EQU	256		
* 
* 
*   MMU DEVICE INDEX
* 
* 
	IFT	CHAN=1 
DEVIND	EQU	2
	XIF
* 
	IFT	CHAN=0 
DEVIND	EQU	4-IBM-IBM
	XIF
* 
	EJECT			DRFD01 
* 
************* 
*           * 
* CONSTANTS * 
*           * 
************* 
* 
CUADR	EQU	09	CONTROL UNIT ADDRESS 
MUXADR	EQU	CUADR+CUADR	MUX-ADDRESS
SOPDA	EQU	/2E	S.O.P. DEVICE ADDRESS 
STALEN	EQU	512	MAX STANDARD SEC. LEN. 
TOSLEN	EQU	410	MAX TOSS SEC. LENGTH 
IBMLEN	EQU	128	IBM SEC. LENGTH
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
* 
********************
*                  *
* DWT-DISPLACEMENTS*
*                  *
********************
* 
DWTDRD	EQU	/10	START OF DRIVER DEFINED PART 
* 
	IFT	MMUPAG=0 
START	EQU	DWTDRD
	XIF
* 
	IFT	MMUPAG=1 
START	EQU	DWTDRD+4
	XIF
* 
DWTA3	EQU	START+/04 
* 
	EJECT			DRFD01 
* 
**********
*        *
* TABLES *
*        *
**********
* 
	IFT	DEVIND=2 
	DATA	DVBLEN+DVBLEN	MMU BUFFER SIZE 
	XIF
* 
	IFT	DEVIND=4 
	DATA	0	INDICATE NO MMU BUFFER
	XIF
* 
	DATA	DEVIND	DEVICE INDEX 
FDADR	DATA	FDAD	ACTIVATION ADDRESS
	DATA	0	ABORT ROUTINE ADDRESS 
* 
	EJECT			DRFD01 
* 
**************
*            *
* ACTIVATION *
*            *
**************
* 
FDAD	EQU	*	ACTIVATION ENTRY 
* 
	IFT	OPCLOS=1 
*    CHECK IF OPEN OR CLOSE ORDER 
* 
	LDR	A1,A7	ORDER
	SUK	A1,/21 
	RF(Z)	OPEN	OPEN
	SUK	A1,1 
	RF(Z)	CLOSE	CLOSE
* 
	EJECT
	XIF
* 
	LDK	A3,0 
	LC	A3,DWTOR,A6	INDEX 
	LDR	A2,A3	SAVE FOR FDIX
* 
*  PUT DRIVE NO IN CIO-INSTRUCTION
* 
	CF	A5,SETCIO	A3,A4 AFFECTED
	CM	DWTRCW,A6	SAVE RETURN CODE WORD 
* 
*  CHECK IF LOCKED
* 
	LD	A1,DWTLC,A6	 LOCK INDICATOR 
	CF	A5,FDIX	GET BIT MASK IN A3
	ST	A3,DWTA3,A6	SAVE DRIVE INDEX MASK 
	ANR	A1,A3
	RF(NZ)	FD:ORD	LOCKED 
	LDR	A1,A7
	SUK	A1,/26 
	ABL(Z)	LOAD	LOCK ORDER 
	SUK	A1,/11 
	ABL(Z)	LOAD	LOAD ORDER 
	LDKL	A1,/8001	RETURN CODE
	ABL	END:IO	ENDIO 
* 
	EJECT
* 
*   ORDER?
* 
FD:ORD	EQU	*
	IFT	CHAN+TOSS=2
	IFT	MMUPAG=1 
	IFF	DSKPAG+SWPBLK=0
	LD	A2,ECBBA,A8	GET BUFFER ADDRESS
	LDR*	A1,A8	GET FIRST WORD OF ECB 
	ANKL	A1,/3000	GET BITS 16-17 IN BUFFER ADDRESS 
	RF(NZ)	FD:000	BUFFER NOT IN SYSTEM AREA? 
	LDR	A3,A2
	RF(NN)	FD:005
	ADKL	A3,TOSLEN	CHECK IF 64K LIMIT WILL BE PASSED 
	RF(N)	FD:005	NO? 
* 
FD:000	EQU	*
	ST	A2,DWT:BF,A6	SAVE IT
	LDR	A3,A2
	ANKL	A2,/F000
	SRL	A2,2 
	SLL	A1,2 
	ORR	A1,A2
	ANKL	A3,/FFF 
	ST	A1,DWT:PA,A6	6 BIT PHYSICAL BUFFER ADDRESS
	ADKL	A1,/400	CREATE ONE MORE MMU ENTRY 
	ST	A1,DWT:PA+2,A6
	LDR	A1,A3
	ORK	A1,1	INDICATE ADDRESS NOT ZERO 
	LDKL	A2,FD:BUF	GET DWT BUFFER ADDRESS
	ST	A2,ECBBA,A8	SET NEW BUFFER ADDRESS IN ECB 
* 
FD:005	ST	A1,DWT:LA,A6	16 BIT LOGICAL BUFFER ADDRESS
* 
	EJECT			DRFD01 
	XIF
* 
	LDR	A1,A7
	ABL(Z)	FD:070	TEST STATUS
	SUK	A1,1 
	RF(Z)	FD:040	PHYSICAL READ 
	SUK	A1,4 
	RF(Z)	FD:010	BASIC WRITE 
	SUK	A1,12
	RF(Z)	FD:040	PHYSICAL READ 
	SUK	A1,4 
	RF(Z)	FD:028	PHYSICAL WRITE
	SUK	A1,15
	RF(Z)	FD:030	WRITE DELETED DATA
	SUK	A1,/14 
	ABL(Z)	UNLOAD	UNLOAD ORDER 
	IFT	IBM=1
	ADK	A1,/36 
	ABL(Z)	SQREAD	SEQUENTIAL READ
	SUK	A1,4 
	ABL(Z)	SQWRIT	SEQUENTIAL WRITE 
	SUK	A1,/2B 
	ABL(Z)	REWIND	REWIND 
	XIF
	IFT	TOSS+IBM=0 
	IFT	MMUPAG=0 
	ADK	A1,30
	RF(Z)	FD:050	SEARCH KEY
	XIF

FD:DIS	EQU	*
	ABL	DISIOE	REQUEST ERROR 
* 
	IFT	OPCLOS=1 
	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 
	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	*
*    TIME HAS EXPIRED 
	LDR	A6,A1	GET DWT-ADDR 
	CM	DWTTP2,A6	INDICATE NO TIMER RUNNING 
	RF	OCLEXI	COMMON OPEN/CLOSE EXIT 
* 
	EJECT
* 
********* 
*       * 
* CLOSE * 
*       * 
********* 
* 
*    CLOSE IS PERFORMED BY WRITING A ONE TO BIT 
*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER 
* 
CLOSE	EQU	* 
	LDKL	A1,/8000	MASK FOR BIT 0 
	ORS	A1,SPDLCI	SET OPEN/CLOSE BIT 
	LD	A1,SPDLCI	SOP LIGHTS AND OPEN/CLOSE DATA
	OTR	A1,0,SOPDA	CLOSE FD DRIVE
* 
OCLEXI	EQU	*
*    COMMON EXIT FOR OPEN/CLOSE 
	LDK	A1,0	RETURN CODE 
	RF	FD:090	ENDIO
* 
	XIF
* 
	EJECT			DRFD01 
* 
*************** 
*             * 
* BASIC WRITE * 
*             * 
*************** 
* 
FD:010	CF	A5,BIO
	ORK	A2,1 
FD:015	EQU	*
	IFT	TOSS+IBM=2 
	LD	A1,DWTLAB,A6
	AN	A1,DWTA3,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
* 
	IFT	CHAN+TOSS=2
	IFT	MMUPAG+SWPBLK=2
	LD	A1,DWT:LA,A6	GET FLAG/LOGICAL BUFFER ADDRESS
	RF(Z)	FD:019	BUFFER IN SYSTEM AREA?
	LD	A7,ECBRL,A8	GET REQUESTED LENGTH
	LDR	A8,A2	SAVE A2
	LDR	A2,A4	GET DWT BUFFER ADDRESS 
	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 
* 
	EJECT			DRFD01 
* 
* 
FD:019	EQU	*
	XIF
* 
	CF	A5,FD:WRITE	PERFORME WRITE
* 
	IFT	CHAN+TOSS=2
	IFT	MMUPAG+SWPBLK=2
	LD	A1,DWT:LA,A6	GET BUFFER FLAG
	RF(Z)	FD:025	BUFFER WAS IN SYSTEM AREA?
	LD	A1,DWT:BF,A6	GET SAVED BUFFER ADDRESS 
	ST	A1,ECBBA,A8	RESTORE IT IN ECB 
* 
FD:025	EQU	*
	XIF
* 
	RF	FD:048	GOTO FD:RC 
* 
******************
*                *
* PHYSICAL WRITE *
*                *
******************
* 
FD:028	CF	A5,BIO
	ORK	A2,5	INSERT BIO BITS 13-15 
	RB	FD:015
	EJECT			DRFD01 
* 
**********************
*                    *
* WRITE DELETED DATA *
*                    *
**********************
* 
FD:030	CF	A5,BIO
	ORK	A2,6 
	RB	FD:015
* 
***************** 
*               * 
* PHYSICAL READ * 
*               * 
***************** 
* 
FD:040	CF	A5,BIO:RE 
	IFT	TOSS+IBM=2 
	LD	A1,DWTLAB,A6
	AN	A1,DWTA3,A6 
	RF(Z)	FD:042	TOSS DISC 
	XIF
	IFT	IBM=1
	LDKL	A4,BUF
FD:042	EQU	*
	XIF
FD:045	CF	A5,FD:REA	PERFORM READ
* 
	EJECT			DRFD01 
* 
* 
	IFT	CHAN+TOSS=2
	IFT	MMUPAG=1 
	IFF	DSKPAG+SWPBLK=0
	LD	A2,DWT:LA,A6	GET FLAG/LOGICAL BUFFER ADDRESS
	RF(Z)	FD:046	BUFFER IN SYSTEM AREA?
	LD	A7,ECBRL,A8	GET REQUESTED LENGTH
	LDKL	A1,FD: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
	LD	A2,DWT:BF,A6	GET SAVED BUFFER ADDRESS 
	ST	A2,ECBBA,A8	RESTORE IT IN ECB 
	RF	FD:048
* 
FD:046	EQU	*
	XIF
* 
	IFT	TOSS+IBM=2 
	LD	A1,DWTLAB,A6
	AN	A1,DWTA3,A6 
	RF(Z)	FD:047	NOT IBM 
	XIF
	IFT	IBM=1
	LD	A7,ECBRL,A8	REQ LEN 
	LD	A4,ECBBA,A8	ASCII OUTPUT ADDRESS
	CF	A5,ASCII
FD:047	EQU	*
	XIF
FD:048	EQU	*
	ABL	FD:RC
* 
	EJECT			DRFD01 
* 
	IFT	TOSS+IBM=0 
	IFT	MMUPAG=0 
* 
**************
*            *
* SEARCH KEY *
*            *
**************
* 
FD:050	EQU	*
	LD	A4,10,A8	KEY AREA ADDRESS 
	LDR*	A2,A4	KEY AREA LENGTH 
	LDR	A1,A2
	ABL(NP)	END:10	ILLEGAL LENGTH
	SUK	A1,128 
	ABL(P)	END:10	ILLEGAL LENGTH 
	LDR	A3,A2
* 
*   IF ODD CHANGE TO EVEN NO OF BYTES 
* 
	ADK	A3,1 
	SRL	A3,1 
	SLL	A3,1 
* 
	SLL	A2,3 
	ORK	A2,7	BIO 
	ADK	A3,4 
	ADK	A4,2	KEY ADDRESS 
	CF	A5,FD:WRI	SEARCH KEY
	LDR	A3,A3	RETURN CODE
	RB(NZ)	FD:048
* 
	EJECT			DRFD01 
* 
*  READ RECORD WITH KEY COMMAND 
* 
FD:060	EQU	*
	LDK	A2,4	BIO 
	LD	A3,4,A8	REQUESTED LENGTH
	CWK	A3,130 
	ABL(NE)	END:10	ILLEGAL LENGTH
	LD	A4,2,A8	BUFFER ADDRESS
	RB	FD:045
	XIF
* 
	EJECT			DRFD01 
* 
*************** 
*             * 
* TEST STATUS * 
*             * 
*************** 
* 
FD:070	EQU	*
	LDKL	A2,/FFF9	BIO DUMMY
	CF	A5,FD:WRI 
	LDR	A1,A3
	ANK	A1,1 
	RF(NZ)	FD:090	DISC NOT OPERABEL? 
	ANKL	A3,/200	WRITE PROTECTED?
	ORS	A3,DWTRCW,A6 
	IFF	TOSS+IBM=0 
	RF	LOA:05	READ VOLUME NAME 
* 
FD:075	EQU	*
	XIF
	LD	A1,DWTRCW,A6	GET RETURN CODE
FD:090	ABL	END:IO 
* 
	EJECT			DRFD01 
* 
********
*      *
* LOAD *
*      *
********
* 
LOAD	EQU	*
	LDK	A2,/14	LOCK
	CF	A5,FD:REA 
	ANK	A3,1 
	ABL(NZ)	FD:RC	NOT OPERABEL 
LOA:05	EQU	*
	IFT	TOSS+IBM=2 
* 
*  CHECK IF TOSS/IBM LABEL
* 
	LDK	A2,0	BIO 
	LDKL	A4,BUF
	LDK	A3,38	NO OF BYTES
	CF	A5,FD:REA 
	CF	A5,LD:RC
	ADK	A4,34
	LDR*	A2,A4 
	CWK	A2,'TO'
	RF(NE)	LOA:10	IBM LABEL PREASSUMED 
	ADK	A4,2 
	LDR*	A2,A4 
	CWK	A2,'SS'
	RF(NE)	LOA:10	IBM LABEL
	XIF
* 
	EJECT			DRFD01 
* 
* 
	IFT	TOSS=1 
* 
*  READ VOLUME NAME 
* 
	LDK	A3,8	LENGTH
	LDK	A2,0	BIO 
	C1	A1,DWTA3,A6	1 COMP. DRIVE BIT MASK
	ANS	A1,DWTLAB,A6	INDICATE TOSS LABEL 
	RF	LOA:15
	XIF
	IFT	IBM=1
LOA:10	LDK	A3,10	LENGTH 
	LDK	A2,/30	BIO 
	LD	A1,DWTA3,A6	DRIVE NO BIT MASK 
	ORS	A1,DWTLAB,A6	INDICATE IBM DISC 
	LDK	A1,/20	RETURN CODE BIT 10
	ORS	A1,DWTRCW,A6 
	XIF
	IFF	TOSS+IBM=0 
LOA:15	EQU	*
	LDKL	A4,BUF	BUFFER ADDRESS 
	CF	A5,FD:REA 
	CF	A5,LD:RC
	LDK	A1,2 
	XIF
	IFT	IBM=1
	LD	A7,DWTRCW,A6
	ANK	A7,/20	CHECK TYPE OF LABEL 
	RF(Z)	LOA:30	TOSS LABEL
	LDK	A7,10	NO OF CHAR.
	CF	A5,ASCII
	LDK	A1,4 
LOA:30	EQU	*
	XIF
* 
	EJECT			DRFD01 
* 
* 
	IFF	TOSS+IBM=0 
* 
*  GET DWT VOL NAME ADDRESS 
* 
	CF	A5,VOLADR	ADDRESS TO A2 
* 
*  STORE NAME IN DWT
* 
	LDK	A3,3 
LOA:40	LD	A4,BUF,A1 
	STR	A4,A2
	SUK	A3,1 
	RF(Z)	LOA:50 
	ADK	A1,2 
	ADK	A2,2 
	RB	LOA:40
LOA:50	EQU	*
	LC	A2,DWTOR+1,A6	GET ORDER 
	ANK	A2,/FF 
	RB(Z)	FD:075	JUMP IF TEST STATUS 
	XIF
	IFT	IBM=1
* 
* DATA SET OPENING WANTED?
* 
	ANK	A1,/2	A1:  TOSS=6, IBM=8 
	RF(NZ)	LOA:70	TOSS LABEL 
	LC	A1,DWTOR+1,A6	ORDER 
	CCK	A1,/2600 
	RF(E)	LOA:70	LOCK ORDER
* 
*  READ DATA SET LABEL
* 
	LD	A2,ECBCW,A8	SECTOR NO 
	SUK	A2,7 
	ABL(N)	FD:DIS	REQUEST ERROR
	SUK	A2,18
	ABL(P)	FD:DIS	REQUEST ERROR
	ADK	A2,25
	SLL	A2,3	BIO 
	LDK	A3,80	LENGTH 
	LDKL	A4,BUF
	CF	A5,FD:REA 
	LDR	A1,A3	RETURN CODE
	SLL	A1,4	CHECK NO DATA BIT 
	RF(NN)	LOA:60	NOT NO DATA
	ORKL	A3,/2000	INDICATE ILLEGAL DATA SET LABEL
LOA:60	EQU	*
	CF	A5,LD:RC
	ENB
	LD	A3,ECBCW,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 
	CF	A5,SETINH	INHIBIT 
	LDK	A1,DWTEOD
	CF	A5,STDWT	STORE EOD NO IN DWT
* 
LOA:70	EQU	*
	XIF
	LD	A2,DWTA3,A6 
	ORS	A2,DWTLC,A6	INDICATE LOCK
LOA:75	LD	A3,DWTRCW,A6	RETURN CODE
LOA:80	ABL	FD:RC
* 
	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:75
* 
*---------------------------------------------------- 
*   LD:RC  SUBROUTINE 
* 
LD:RC	ORS	A3,DWTRCW,A6
	ANKL	A3,/2007	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 
	LDR	A7,A7	EOD
	RF(Z)	UNL:70	NOT OPEN
	ST	A7,10,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
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 
	CF	A5,SETINH	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 
* 
*    UNLOCK 
* 
	XIF
UNL:70	EQU	*
	LDK	A2,/C	UNLOCK 
	CF	A5,FD:REA 
	ORS	A3,DWTRCW,A6 
	ANK	A3,1 
	RF(NZ)	UNL:80	NOT OPERABLE,STILL LOCKED
	LD	A2,DWTA3,A6	INDEX MASK
	XRS	A2,DWTLC,A6	INDICATE UNLOCK IN DWT 
UNL:80	EQU	*
	RB	LOA:75	END:IO 
	IFF	TOSS+IBM=0 
* 
*   UNLOAD RETURN CODE CHECK
* 
UNL:RC	ORS	A3,DWTRCW,A6 
	ANK	A3,/7	FATAL ERROR? 
	RB(NZ)	UNL:80	ENDIO
	RTN	A5 
	XIF
	IFT	IBM=1
	EJECT			DRFD01 
* 
******************* 
* SEQUENTIAL READ * 
******************* 
* 
SQREAD	EQU	*
	CF	A5,DSOPCH	GET EOD AND EOD ADDRESS 
	LDR	A7,A7	EOD
SQR:05	ABL(Z)	DISIOE	NOT OPEN 
	ADK	A2,DWTCRN-DWTEOD	A2 = ADDRESS TO CRN 
	LDR*	A3,A2	CRN 
	ADK	A3,1	CRN+1 
	ST	A3,ECBCW,A8	STORE CRN+1 IN ECB
	CWR	A3,A7
	RF(NL)	SQR:10	END OF DATA
	CF	A5,BIO:RE 
	LDKL	A4,BUF	BUFFER ADDRESS 
	CF	A5,FD:REA	READ SECTOR POINTED AT BY CRN+1 
	LD	A4,ECBBA,A8	USER BUFFER ADDRESS 
	LD	A7,ECBRL,A8	REQUESTED LENGTH
	CF	A5,ASCII	TRANSFORM TO ASCII 
	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	*
	CF	A5,DSOPCH	GET EOD 
	ADK	A7,0	EOD-NO (SET CR) 
	RB(Z)	SQR:05	NOT OPEN
* 
*   CHECK IF END OF EXTENT
* 
	LDK	A1,DWTEOE
	CF	A5,DSPAD	EOE-NO ADDRESS TO A2 
	ST	A7,ECBCW,A8	STORE EOD IN ECB C. W.
	CWR*	A7,A2 
	RF(G)	SQW:20	YES,EOE 
	CF	A5,BIO
	LDK	A7,128 
	CF	A5,EBCDIC	TRANSFORM AND MOVE TO BUF 
	ORK	A2,5	PHYS. WRITE 
	CF	A5,FD:WRI 
	CF	A5,DSOPCH 
SQW:10	LDR	A1,A3	RETURN CODE
	ANK	A1,/1
	RF(NZ)	SQW:15	NOT OPERABLE 
	IMR	A2	EOD=EOD+1 OR CRN=CRN+1 IN DWT 
SQW:15	RF	FD:RC 
* 
* 
*  END OF EXTENT
SQW:20	LDKL	A1,/400	RETURN CODE 
	RF	END:IO
	EJECT			DRFD01 
* 
**********
* REWIND *
**********
* 
REWIND	EQU	*
	CF	A5,DSOPCH 
	ADK	A7,0	EOD (SET CR)
	RB(Z)	SQR:05	DATA SET NOT OPEN 
	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 
	CM	DWTRW,A6	INDICATOR TO WRITE MODE
	XIF
	RF	FD:800
* 
FD:REA	EQU	*
	IFT	CHAN=1 
	LDK	A1,1 
	ST	A1,DWTRW,A6	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 
* 
	IFT	MMUPAG=1 
	ORR*	A1,A8	GET FIRST WORD OF ECB 
	ANKL	A1,/F000	KEEP FOUR LEFTMOST BITS
	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	A4,DWTUB,A6 
	ADR	A3,A4
	ST	A3,DWTUBE,A6	END ADDRESS+2
	XIF
FD:820	EQU	*
	ST	A5,DWTA5,A6	SAVE STACK POINTER
FD:CIO	CIO	A2,1,CUADR	CIO-START 
	RF(3)	FD:840	DEVICE ADDRESS UNKNOWN
	RF	T:DISP
FD:840	LDK	A1,1	NOT OPERABLE
	RF	END:IO
	EJECT			DRFD01 
* 
************************************* 
*                                   * 
*  FD:RC - STORE EFF LEN, END:IO     *
*                                   * 
************************************* 
* 
*  INPUT:  A3  RETURN CODE
* 
FD:RC	EQU	* 
	LDR	A1,A3
* 
*  PUT EFFECTIVE LENGTH IN ECB
* 
	LD	A2,ECBRL,A8	REQ LENGTH
	ST	A2,ECBEL,A8	EFF LENGTH
	EJECT			DRFD01 
* 
**********
*        *
* END:IO *
*        *
**********
* 
END:IO	EQU	*
	CF	A15,TENDIO
T:DISP	ABL	TDISP
* 
* 
*  ENTRY FROM RECOVERY ROUTINE
* 
END:05	EQU	*
* 
*  ILLEGAL LENGTH 
* 
END:10	LDK	A1,8	RETURN CODE 
	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 
* 
FDON05	EQU	*
	IM	DWTA2,A6	SET FDON FLAG
	LDKL	A5,DWTSB2 
	ADR	A5,A6	GET STACK BASE 
* 
	IFF	DSKPAG+SWPBLK=0
	LD	A2,INIFLG	CHECK INITIALIZATION FLAG 
	RF(Z)	FDON07	POWER UP? 
	LD	A2,SCTPLD	GET FILE CODE OF PROGRAM LOADING DEVICE 
	SUK	A2,/F8 
	RF(N)	FDON07	NOT FLEXIBLE DISC?
	LDR	A3,A2
	CF	A5,SETCIO	DRIVE NR IN CIO INSTRUCTION 
	CF	A5,FDIX	GET DRIVE BIT INDICATOR 
	ORS	A3,DWTLC,A6	INDICATE DRIVE LOCKED
* 
	EJECT			DRFD01 
* 
* 
	C1R	A3,A3
	ANS	A3,DWTLAB,A6	INDICATE TOSS LABEL 
* 
*	READ VOLUME NAME (A2 = 0 FROM FDIX) 
* 
	LDK	A3,8 
	LDKL	A4,BUF
	CF	A5,FD:REA 
	LD	A3,SCTPLD 
	CF	A5,VOLA05	GET VOLUME NAME ADDRESS IN DWT
	LDK	A1,2 
	LDK	A3,3 
* 
*	MOVE VOLUME NAME TO DWT 
* 
FDON06	LD	A4,BUF,A1 
	STR	A4,A2
	ADK	A1,2 
	ADK	A2,2 
	SUK	A3,1 
	RB(P)	FDON06 
* 
FDON07	EQU	*
	XIF
* 
	EJECT			DRFD01 
* 
*  SAVE DWTST TO DWTST2 IF NOT ALREADY DONE.
*    DWTST IS SET BUSY
* 
	LD	A2,DWTST2,A6
	CWK	A2,-1
	RF(NE)	FDON08	ALREADY SAVED
	LD	A2,DWTST,A6 
	ST	A2,DWTST2,A6
FDON08	CM	DWTST,A6	SET BUSY 
* 
	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 
* 
	XIF
* 
	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 
	RB	T:DISP
* 
*   TIME OUT ROUTINE
* 
FDON20	LDR	A6,A1
	CM	DWTTP,A6
	LDKL	A5,DWTSB2 
	ADR	A5,A6	STACK BASE 
* 
*  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
*			BEFORE THE POWER OFF
	XIF
* 
	EJECT
* 
*  ANY REQUEST? 
* 
*  RESTORE STATUS SAVED IN DWST2 TO DWTST.
*   SET DWTST2 TO -1
	LD	A2,DWTST2,A6	SAVED STATUS 
	ST	A2,DWTST,A6	PUT IN CUURENT STATUS 
	LDKL	A2,-1 
	ST	A2,DWTST2,A6	INDICATE NOT SAVED 
	CM	DWTA2,A6	RESET FDON FLAG
FDON60	EQU	*
	LD	A2,DWTST,A6 
	ABL(N)	END:05	NO REQUEST, RETURN VIA TENDIO
* 
*  RETRY REQUEST
* 
	IM	DWTRTY,A6	INDICATE RETRY
	LD	A7,DWTOR,A6 
	ANK	A7,/3F	ORDER 
	LD	A8,DWTECB,A6	ECB ADDRESS
	ABL	FDAD	REACTIVATE
	EJECT			DRFD01 
* 
********************* 
*                   * 
* INTERRUPT HANDLER * 
*                   * 
********************* 
* 
IHFD	EQU	*
	ST	P,INTSAV	SAVE LAST INTERRUPT
********************	=1 START 
	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,DWTRW,A6	READ/WRITE INDICATOR
	RF(NZ)	IH050	READ
* 
	EJECT		DRFD01
* 
* 
IH010	EQU	* 
	LCR	A3,A1	ONE BYTE FROM BUFFER 
	ECR	A3,A3	LEFT POSITION
	LC	A3,1,A1	RIGHT BYTE 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
	ABL	TDISP	GOTO DISPATCHER
* 
IH050	EQU	* 
	INR	A3,0,CUADR	READ
	RB(NA)	IH005 
	SC	A3,1,A1	RIGHT BYTE TO BUFFER
	ECR	A3,A3
	SCR	A3,A1	LEFT BYTE TO BUFFER
	ADK	A1,2	UPDATE BUFFER POINTER 
	SUK	A2,2 
	RB(P)	IH050
	CIO	A2,0,CUADR	CIO HALT
	SST	A3,CUADR	STATUS	=2 
	RB(NA)	*-2		=2 
IH:000	EQU	*		=1
	XIF
* 
	EJECT		DRFD01
* 
* 
********************	=1 END 
	IFT	CHAN=0		=2 
	SST	A3,CUADR	STATUS
	XIF			=2 
	LDKL	A6,DWFD01	DWT ADDRESS 
	LD	A8,DWTECB,A6	ECB ADDRESS
	LD	A5,DWTA5,A6	STACK POINTER 
	SLL	A3,1 
	RF(N)	FDRE	READY INTERRUPT 
	SRL	A3,1 
	LD	A2,DWTRTY,A6	RETRY? 
	RF(Z)	IH:10	NO 
	CM	DWTRTY,A6	RESET RETRY FLAG
	LDR	A1,A3
	ANKL	A1,/0405
	RF(Z)	IH:10	RETURN CODE OK 
	LDK	A1,/4
	ORR	A3,A1	CRC ERROR
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 
	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
IH:80	EQU	* 
	IFT	CHAN=1	=1
	INH		=1
	XIF		=1
	RTN	A5 
	EJECT			DRFD01 
* 
********************
*                  *
*  READY INTERRUPT *
*                  *
********************
* 
FDRE	EQU	*
	LD	A2,DWTA2,A6 
	ABL(NZ)	T:DISP	POWER ON ROUTINE ACTIVE 
	LDKL	A5,DWTSB2 
	ADR	A5,A6	STACK BASE 
	RB	FDON60
	EJECT			DRFD01 
* 
******************************************* 
*                                         * 
*    S U B R O U T I N E S                * 
*                                         * 
******************************************* 
* 
******* 
*     * 
* BIO * 
*     * 
******* 
* 
* 
*  INPUT:  A8  ECB ADDRESS
* 
*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START
*          A3  NO OF BYTES TO BE TRANSFERED 
*          A4  BUFFER ADDRESS 
* 
BIO	EQU	* 
	LDK	A4,0	FLAG
	RF	BIO010
BIO:RE	LDK	A4,1 
BIO010	EQU	*
	LD	A3,ECBRL,A8	REQ LEN 
	RF(N)	BIOERR	ILLEGAL LENGTH
	IFT	TOSS+IBM=2 
	LD	A2,DWTLAB,A6
	AN	A2,DWTA3,A6 
	RF(Z)	BIO020	TOSS DISC 
	XIF
	IFT	IBM=1
	LDK	A7,IBMLEN
	LDK	A2,0 
	XIF
	IFT	TOSS+IBM=2 
	RF	BIO030
	XIF
	IFT	TOSS=1 
BIO020	LDKL	A7,TOSLEN 
	LDK	A2,3 
BIO030	EQU	*
	XIF
	IFF	TOSS+IBM=0 
	ADK	A4,0	SET CR
	RF(Z)	BIO060	WRITE 
	LDK	A2,0 
	LDR	A1,A3	REQ LEN
	CWR	A3,A7	REQ LENGTH WITHIN RANGE
	RF(G)	BIOERR	NO
BIO040	SUK	A1,128 
	RF(NP)	BIO100
	ADK	A2,1	INCREMENT NO OF SECTORS 
	RB	BIO040
* 
*  WRITE, CHECK REQ LENGTH
* 
BIO060	CWR	A3,A7
	RF(NE)	BIOERR	ILLEGAL REQ LEN
	XIF
	IFT	TOSS+IBM=0 
* 
*  FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH
* 
	LDR	A1,A3	REQ LENGTH 
	LDK	A2,0	NO OF SECTORS-1 
BIO015	LDR	A4,A4	READ OR WRITE? 
	RF(NZ)	BIO035	READ!
	SUK	A1,128 
	RF(Z)	BIO100	REQ LEN ACCEPTED
	RF	BIO045
* 
BIO035	SUK	A1,128 
	RF(NP)	BIO100	REQ LENGTH ACCEPTED
BIO045	ADK	A2,1 
	CWK	A2,3 
	RB(NG)	BIO015
	RF	BIOERR	REQ LEN OUTSIDE RANGE
	XIF
* 
BIO100	SRC	A2,2	SHIFT NO OF SECTORS-1 INTO POS 0-1
* 
*  CHECK SECTOR NO FROM CONTROL WORD OF ECB IS
*  WITHIN RANGE, PUT IT IN POS 2-12 
* 
	LD	A1,ECBCW,A8	SECTOR NO 
	RF(N)	BIOER2	OUTSIDE RANGE 
	IFT	TOSS+IBM=2 
	ANK	A7,/A
	RF(Z)	BIO110	IBM DISC
	XIF
	IFT	TOSS=1 
	CWK	A1,499 
	RF(G)	BIOER2	OUT OF RANGE
	SLL	A1,2	MULTIPLY BY 4TO GET DM SECTOR 
	XIF
	IFT	TOSS+IBM=2 
	RF	BIO120
	XIF
	IFT	IBM=1
BIO110	CWK	A1,1923
	RF(P)	BIOER2	OUT OF RANGE
	XIF
	IFT	TOSS+IBM=0 
	CWK	A1,2001	SECTOR NO OUT OF RANGE 
	RF(G)	BIOER2	YES!
	XIF
BIO120	EQU	*
	SLL	A1,3 
	ORR	A2,A1
	LD	A4,ECBBA,A8	BUFFER ADDRESS
	LDR	A1,A3	REQ LENGTH 
	ANK	A1,1 
	RF(NZ)	BIOERR	REQ LEN. NOT EVEN
	RTN	A5 
* 
* 
*  ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO
* 
BIOERR	ABL	END:10 
*   ILLEGAL SECTOR NO 
BIOER2	ABL	FD:DIS 
* 
	EJECT			DRFD01 
* 
********* 
*       * 
* FDIX  * 
*       * 
********* 
* 
*  INPUT:  A2   X 
* 
*  OUTPUT: A3   2 POWER(X)
* 
FDIX	LDK	A3,1 
	ADK	A2,0	SET CR
FDIX10	EQU	*
	RF(Z)	FDIX20 
	SLL	A3,1 
	SUK	A2,1 
	RB	FDIX10
FDIX20	RTN	A5 
	EJECT			DRFD01 
	IFF	TOSS+IBM=0 
******************
*                *
*  VOLADR        *
*                *
******************
* 
*  INPUT:  A6  DWT ADDRESS
* 
*  OUTPUT: A2  VOLUME NAME ADDRESS
*          A3  ZERO 
* 
VOLADR	EQU	*
	LC	A3,DWTOR,A6	DRIVE NO
VOLA05	EQU	*
	LDK	A2,DWTVO0
	ADR	A2,A6
	ANK	A3,/3
VOLA10	EQU	*
	RF(Z)	VOLA20 
	ADK	A2,6	UPDATE ADDRESS
	SUK	A3,1 
	RB	VOLA10
VOLA20	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  OUTPUT  STRING ADDRESS
*  OUTPUT:    A1  CHANGED 
*             A4 CHANGED
*             A7  CHANGED 
* 
ASCII	EQU	* 
	ENB
	LDK	A1,0 
	ADR	A4,A7
ASC:10	SUK	A7,1 
	RF(N)	ASC:20 
	SUK	A4,1 
	LC	A1,BUF,A7	GET EBCDIC CHAR 
	LC	A1,TASCII,A1	TRANSFORM TO ASCII 
	SCR	A1,A4	PUT ASCII CHAR. IN OUTPUT BUFFER 
	RB	ASC:10
ASC:20	EQU	*
	RF	EBC:90	SET INH AND RETURN 
	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  INPUT STRING ADDRESS
* 
*  OUTPUT:    A1  CHANGED 
*              A4  DRIVER BUFFER ADDRESS
*             A7  CHANGED 
EBCDIC	EQU	*
	ENB
	ADR	A4,A7
	LDK	A1,0 
EBC:10	SUK	A7,1 
	RF(N)	EBC:80 
	SUK	A4,1 
	LCR	A1,A4	GET ASCII CHAR.
	LC	A1,TEBCDIC,A1 
	SC	A1,BUF,A7 
	RB	EBC:10
EBC:80	EQU	*
	LDKL	A4,BUF
EBC:90	EQU	*
	CF	A5,SETINH 
	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
* 
*  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	LDKL	A1,/2000	RETURN CODE
	ORS	A1,DWTRCW,A6 
	CF	A5,SETINH 
	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 COORESSPONDING 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 
	EJECT			DRFD01 
* 
**********
* SETINH *
**********
* 
*  FUNCTION:  INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE 
*             ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND 
*             RETURN
* 
*  INPUT:     A6  DWT ADDRESS 
* 
SETINH	INH
	LD	A1,DWTA2,A6	FDON
	RF(Z)	SET:10	NOT ACTIVE
	ABL	T:DISP	ESCAPE
SET:10	RTN	A5 
	XIF
* 
*    D R I V E R   B U F F E R
BUF	DATA	0,0,0,0
* 
	IFT	IBM=1
	RES	60 
	XIF
* 
	EJECT			DRFD01 
* 
********************* 
*                   * 
* DEVICE WORK TABLE * 
*                   * 
********************* 
* 
DWFD01	EQU	*
	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
* 
	DATA	0 
	DATA	0	SAVE AREA 
	DATA	0 
	DATA	0 
	DATA	0,0,0,0	STACK 
DWTST2	EQU	*-DWFD01	SAVE STATUS WORD
	DATA	-1
DWTRTY	EQU	*-DWFD01	RETRY REQUEST FLAG
	DATA	0 
DWTTP	EQU	*-DWFD01	TIMER POINTER
	DATA	0 
DWTRCW	EQU	*-DWFD01	TEMP RETURN CODE
	DATA	0 
DWTLAB	EQU	*-DWFD01	DISC LABEL INDICATOR
	DATA	0 
DWTLC	EQU	*-DWFD01	DRIVE LOCK INDICATOR 
	DATA	0 
DWTVO0	EQU	*-DWFD01	VOLUME NAME NO 0
	DATA	0,0,0 
DWTVO1	EQU	*-DWFD01	VOLUME NAME NO 1
	DATA	0,0,0 
DWTVO2	EQU	*-DWFD01	VOLUME NAME NO 2
	DATA	0,0,0 
DWTVO3	EQU	*-DWFD01	VOLUME NAME NO 3
	DATA	0,0,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
* 
	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
* 
	IFT	CHAN+TOSS=2
	IFT	MMUPAG=1 
	IFF	DSKPAG+SWPBLK=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 
* 
DWT:BF	EQU	*-DWFD01 
	DATA	0	SAVE AREA BUFFER ADDRESS
	XIF
* 
	IFT	MMUPAG=1 
DEVECB	EQU	*
	DATA	0 
	DATA	FD:BUF
	DATA	0,0,0,0 
* 
	IFT	DEVIND=2 
FD:BUF	RES	DVBLEN+1 
	XIF
* 
	IFT	MMUPAG=1 
	IFT	DEVIND=4 
FD:BUF	EQU	0
	XIF
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT DRFD01  REL 9.2 79-12-05  870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…006c               Head {h00=0x002a, h01=0x0050, text=»   =2,TIMING PROBLEMS IN INT. HANDLER «, t00=0x0000, t01=0x0042}
0x006c…0088               Head {h00=0x0018, h01=0x0050, text=»   REL 9.2 79-11-16 «, t00=0x0000, t01=0x0070}
0x0088…00b0               Head {h00=0x0024, h01=0x0050, text=»   =1,CHANGED INTERRUPT HANDLER «, t00=0x0000, t01=0x008c}
0x00b0…00cc               Head {h00=0x0018, h01=0x0050, text=»   REL 9.1 79-05-23 «, t00=0x0000, t01=0x00b4}
0x00cc…00d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d0}
0x00d6…010c               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x00da}
0x010c…0116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…013c               Head {h00=0x0022, h01=0x0050, text=»*  PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x011a}
0x013c…0146               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0140}
0x0146…0172               Head {h00=0x0028, h01=0x0050, text=»*  DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x014a}
0x0172…017c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0176}
0x017c…0186               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…0190               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…019a (1, 0, 400)   Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x019a…01a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a4…01ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0018}
0x01ae…01e4               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x0022}
0x01e4…0218               Head {h00=0x0030, h01=0x0050, text=»*  THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0001, t01=0x0058}
0x0218…024a               Head {h00=0x002e, h01=0x0050, text=»*  CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x008c}
0x024a…027e               Head {h00=0x0030, h01=0x0050, text=»*  CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x00be}
0x027e…02a8               Head {h00=0x0026, h01=0x0050, text=»*  MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x00f2}
0x02a8…02b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011c}
0x02b2…02ca               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0001, t01=0x0126}
0x02ca…02d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013e}
0x02d4…02e6               Head {h00=0x000e, h01=0x0050, text=»*  ORDERS:«, t00=0x0001, t01=0x0148}
0x02e6…02f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x015a}
0x02f0…030c               Head {h00=0x0018, h01=0x0050, text=»*  /00   TEST STATUS«, t00=0x0001, t01=0x0164}
0x030c…032a               Head {h00=0x001a, h01=0x0050, text=»*  /01   PHYSICAL READ«, t00=0x0001, t01=0x0180}
0x032a…0370               Head {h00=0x0042, h01=0x0050, text=»*  /02   SEQUENTIAL READ                       -IBM DISC ONLY-«, t00=0x0002, t01=0x000e}
0x0370…038c               Head {h00=0x0018, h01=0x0050, text=»*  /05   BASIC WRITE«, t00=0x0002, t01=0x0054}
0x038c…03d4               Head {h00=0x0044, h01=0x0050, text=»*  /06   SEQUENTIAL WRITE                       -IBM DISC ONLY- «, t00=0x0002, t01=0x0070}
0x03d4…03f2               Head {h00=0x001a, h01=0x0050, text=»*  /11   PHYSICAL READ«, t00=0x0002, t01=0x00b8}
0x03f2…0412               Head {h00=0x001c, h01=0x0050, text=»*  /15   PHYSICAL WRITE «, t00=0x0002, t01=0x00d6}
0x0412…042e               Head {h00=0x0018, h01=0x0050, text=»*  /1A   SEARCH KEY «, t00=0x0002, t01=0x00f6}
0x042e…0442               Head {h00=0x0010, h01=0x0050, text=»*  /21 OPEN «, t00=0x0002, t01=0x0112}
0x0442…0456               Head {h00=0x0010, h01=0x0050, text=»*  /22 CLOSE«, t00=0x0002, t01=0x0126}
0x0456…047a               Head {h00=0x0020, h01=0x0050, text=»*  /24   WRITE DELETED DATA «, t00=0x0002, t01=0x013a}
0x047a…0490               Head {h00=0x0012, h01=0x0050, text=»*  /26   LOCK «, t00=0x0002, t01=0x015e}
0x0490…04d8               Head {h00=0x0044, h01=0x0050, text=»*  /31   REWIND                                 -IBM DISC ONLY- «, t00=0x0002, t01=0x0174}
0x04d8…04ee               Head {h00=0x0012, h01=0x0050, text=»*  /37   LOAD «, t00=0x0003, t01=0x002c}
0x04ee…0506               Head {h00=0x0014, h01=0x0050, text=»*  /38   UNLOAD «, t00=0x0003, t01=0x0042}
0x0506…0510               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005a}
0x0510…052c               Head {h00=0x0018, h01=0x0050, text=»*  ENTRY PARAMETERS:«, t00=0x0003, t01=0x0064}
0x052c…0536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0080}
0x0536…0552               Head {h00=0x0018, h01=0x0050, text=»*   A5   STACK BASE «, t00=0x0003, t01=0x008a}
0x0552…056e               Head {h00=0x0018, h01=0x0050, text=»*   A6   DWT-ADDRESS«, t00=0x0003, t01=0x00a6}
0x056e…0584               Head {h00=0x0012, h01=0x0050, text=»*   A7   ORDER«, t00=0x0003, t01=0x00c2}
0x0584…05a0               Head {h00=0x0018, h01=0x0050, text=»*   A8   ECB-ADDRESS«, t00=0x0003, t01=0x00d8}
0x05a0…05b8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0003, t01=0x00f4}
0x05b8…05c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010c}
0x05c2…05d6               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0116}
0x05d6…05ea               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x012a}
0x05ea…05fe               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x013e}
0x05fe…0612               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x0152}
0x0612…0626               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0166}
0x0626…0630               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017a}
0x0630…0658               Head {h00=0x0024, h01=0x0050, text=» ENTRY  FDADR ACTIVATION ADDRESS«, t00=0x0003, t01=0x0184}
0x0658…067e               Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0004, t01=0x001c}
0x067e…06a2               Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0004, t01=0x0042}
0x06a2…06c4               Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0004, t01=0x0066}
0x06c4…06dc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0004, t01=0x0088}
0x06dc…06e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a0}
0x06e6…06fc               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x00aa}
0x06fc…0712               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x00c0}
0x0712…0728               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x00d6}
0x0728…073e               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x00ec}
0x073e…0754               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0102}
0x0754…075e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0118}
0x075e…077e               Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x0122}
0x077e…079a               Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0004, t01=0x0142}
0x079a…07be               Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x015e}
0x07be…07da               Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0004, t01=0x0182}
0x07da…07fc               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x000e}
0x07fc…0824               Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x0030}
0x0824…0846               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0005, t01=0x0058}
0x0846…0868               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0005, t01=0x007a}
0x0868…0892               Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0005, t01=0x009c}
0x0892…08be               Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTPLD PROGRAM LOADING DEVICE«, t00=0x0005, t01=0x00c6}
0x08be…08ea               Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0005, t01=0x00f2}
0x08ea…0906               Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0005, t01=0x011e}
0x0906…0930               Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0005, t01=0x013a}
0x0930…095a               Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0005, t01=0x0164}
0x095a…0984               Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0005, t01=0x018e}
0x0984…09ae               Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0006, t01=0x0028}
0x09ae…09e2               Head {h00=0x0030, h01=0x0050, text=» EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE«, t00=0x0006, t01=0x0052}
0x09e2…0a0a               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0006, t01=0x0086}
0x0a0a…0a34               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0006, t01=0x00ae}
0x0a34…0a5e               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0006, t01=0x00d8}
0x0a5e…0a82               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0006, t01=0x0102}
0x0a82…0aa8               Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0006, t01=0x0126}
0x0aa8…0ac0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0006, t01=0x014c}
0x0ac0…0aca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0164}
0x0aca…0aea               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x016e}
0x0aea…0b0a               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0006, t01=0x018e}
0x0b0a…0b2a               Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x001e}
0x0b2a…0b4a               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x003e}
0x0b4a…0b6a               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x005e}
0x0b6a…0b74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007e}
0x0b74…0ba6               Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0007, t01=0x0088}
0x0ba6…0bca               Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0007, t01=0x00ba}
0x0bca…0bd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00de}
0x0bd4…0be6               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x00e8}
0x0be6…0bf8               Head {h00=0x000e, h01=0x0050, text=»CHAN EQU 1«, t00=0x0007, t01=0x00fa}
0x0bf8…0c02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010c}
0x0c02…0c38               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0007, t01=0x0116}
0x0c38…0c64               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0007, t01=0x014c}
0x0c64…0c6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0178}
0x0c6e…0c80               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0007, t01=0x0182}
0x0c80…0c92 (8, 0, 400)   Head {h00=0x000e, h01=0x0050, text=»TOSS EQU 1«, t00=0x0008, t01=0x0004}
0x0c92…0c9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0016}
0x0c9c…0cd2               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x0020}
0x0cd2…0cfe               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x0056}
0x0cfe…0d08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0082}
0x0d08…0d1a               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0008, t01=0x008c}
0x0d1a…0d2c               Head {h00=0x000e, h01=0x0050, text=»IBM EQU 1 «, t00=0x0008, t01=0x009e}
0x0d2c…0d36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b0}
0x0d36…0d68               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x00ba}
0x0d68…0d96               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00ec}
0x0d96…0da0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011a}
0x0da0…0db4               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0008, t01=0x0124}
0x0db4…0dbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0138}
0x0dbe…0dc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0142}
0x0dc8…0e02               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0008, t01=0x014c}
0x0e02…0e34               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x0186}
0x0e34…0e3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0028}
0x0e3e…0e52               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0009, t01=0x0032}
0x0e52…0e5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0046}
0x0e5c…0e74               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0009, t01=0x0050}
0x0e74…0e7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0068}
0x0e7e…0e88               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x0072}
0x0e88…0eba               Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0009, t01=0x007c}
0x0eba…0ee8               Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0009, t01=0x00ae}
0x0ee8…0ef2               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x00dc}
0x0ef2…0f06               Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 1«, t00=0x0009, t01=0x00e6}
0x0f06…0f10               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x00fa}
0x0f10…0f1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0104}
0x0f1a…0f54               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK «, t00=0x0009, t01=0x010e}
0x0f54…0f8a               Head {h00=0x0032, h01=0x0050, text=»* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. «, t00=0x0009, t01=0x0148}
0x0f8a…0f94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017e}
0x0f94…0fa8               Head {h00=0x0010, h01=0x0050, text=»SWPBLK EQU 0«, t00=0x0009, t01=0x0188}
0x0fa8…0fb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000c}
0x0fb2…0fbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0016}
0x0fbc…1000               Head {h00=0x0040, h01=0x0050, text=»*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x000a, t01=0x0020}
0x1000…1048               Head {h00=0x0044, h01=0x0050, text=»*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x000a, t01=0x0064}
0x1048…1052               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ac}
0x1052…1064               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x00b6}
0x1064…1078               Head {h00=0x0010, h01=0x0050, text=»OPCLOS EQU 0«, t00=0x000a, t01=0x00c8}
0x1078…1082               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00dc}
0x1082…109a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000a, t01=0x00e6}
0x109a…10a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00fe}
0x10a4…10ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0108}
0x10ae…10ca               Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x000a, t01=0x0112}
0x10ca…10d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012e}
0x10d4…10de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0138}
0x10de…10f4               Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256   «, t00=0x000a, t01=0x0142}
0x10f4…110c               Head {h00=0x0014, h01=0x0050, text=»DVBLEN EQU 256  «, t00=0x000a, t01=0x0158}
0x110c…1116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0170}
0x1116…1120               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017a}
0x1120…113c               Head {h00=0x0018, h01=0x0050, text=»*   MMU DEVICE INDEX«, t00=0x000a, t01=0x0184}
0x113c…1146               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0010}
0x1146…1150               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001a}
0x1150…1164               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x000b, t01=0x0024}
0x1164…1178               Head {h00=0x0010, h01=0x0050, text=»DEVIND EQU 2«, t00=0x000b, t01=0x0038}
0x1178…1184               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x004c}
0x1184…118e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0058}
0x118e…11a2               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000b, t01=0x0062}
0x11a2…11be               Head {h00=0x0018, h01=0x0050, text=»DEVIND EQU 4-IBM-IBM«, t00=0x000b, t01=0x0076}
0x11be…11ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0092}
0x11ca…11d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009e}
0x11d4…11ec               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000b, t01=0x00a8}
0x11ec…11f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c0}
0x11f6…120c               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x00ca}
0x120c…1222               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x00e0}
0x1222…1238               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x00f6}
0x1238…124e               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x010c}
0x124e…1264               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0122}
0x1264…126e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0138}
0x126e…1298               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000b, t01=0x0142}
0x1298…12c2               Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000b, t01=0x016c}
0x12c2…12ee               Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000c, t01=0x0008}
0x12ee…131c               Head {h00=0x002a, h01=0x0050, text=»STALEN EQU 512 MAX STANDARD SEC. LEN. «, t00=0x000c, t01=0x0034}
0x131c…1348               Head {h00=0x0028, h01=0x0050, text=»TOSLEN EQU 410 MAX TOSS SEC. LENGTH «, t00=0x000c, t01=0x0062}
0x1348…136e               Head {h00=0x0022, h01=0x0050, text=»IBMLEN EQU 128 IBM SEC. LENGTH«, t00=0x000c, t01=0x008e}
0x136e…139a               Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000c, t01=0x00b4}
0x139a…13c4               Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000c, t01=0x00e0}
0x13c4…13ec               Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000c, t01=0x010a}
0x13ec…1410               Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000c, t01=0x0132}
0x1410…143a               Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000c, t01=0x0156}
0x143a…1444               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0180}
0x1444…1460               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x018a}
0x1460…147c               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x000d, t01=0x0016}
0x147c…1498               Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENTS*«, t00=0x000d, t01=0x0032}
0x1498…14b4               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x000d, t01=0x004e}
0x14b4…14d0               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x006a}
0x14d0…14da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0086}
0x14da…150e               Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000d, t01=0x0090}
0x150e…1518               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c4}
0x1518…152e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000d, t01=0x00ce}
0x152e…1546               Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000d, t01=0x00e4}
0x1546…1552               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00fc}
0x1552…155c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0108}
0x155c…1572               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x0112}
0x1572…158c               Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000d, t01=0x0128}
0x158c…1598               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0142}
0x1598…15a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014e}
0x15a2…15be               Head {h00=0x0018, h01=0x0050, text=»DWTA3 EQU START+/04 «, t00=0x000d, t01=0x0158}
0x15be…15c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0174}
0x15c8…15e0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000d, t01=0x017e}
0x15e0…15ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15ea…15fc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0012}
0x15fc…160e               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x0024}
0x160e…1620               Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000e, t01=0x0036}
0x1620…1632               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x0048}
0x1632…1644               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x005a}
0x1644…164e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006c}
0x164e…1664               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x000e, t01=0x0076}
0x1664…1690               Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000e, t01=0x008c}
0x1690…169c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00b8}
0x169c…16a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c4}
0x16a6…16bc               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x000e, t01=0x00ce}
0x16bc…16e2               Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, 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…171a               Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000e, t01=0x0120}
0x171a…1744               Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000e, t01=0x0142}
0x1744…176a               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x016c}
0x176a…1774 (15, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0004}
0x1774…178c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000f, t01=0x000e}
0x178c…1796               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x1796…17ac               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x0030}
0x17ac…17c2               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x0046}
0x17c2…17d8               Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x000f, t01=0x005c}
0x17d8…17ee               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x0072}
0x17ee…1804               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x0088}
0x1804…180e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009e}
0x180e…1832               Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x000f, t01=0x00a8}
0x1832…183c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00cc}
0x183c…1852               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x000f, t01=0x00d6}
0x1852…187c               Head {h00=0x0026, h01=0x0050, text=»*    CHECK IF OPEN OR CLOSE ORDER «, t00=0x000f, t01=0x00ec}
0x187c…1886               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0116}
0x1886…189e               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x000f, t01=0x0120}
0x189e…18b2               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x000f, t01=0x0138}
0x18b2…18ca               Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x000f, t01=0x014c}
0x18ca…18dc               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000f, t01=0x0164}
0x18dc…18f6               Head {h00=0x0016, h01=0x0050, text=» RF(Z) CLOSE CLOSE«, t00=0x000f, t01=0x0176}
0x18f6…1900               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0190}
0x1900…190e               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x000a}
0x190e…191a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0018}
0x191a…1924               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0024}
0x1924…1936               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0010, t01=0x002e}
0x1936…1954               Head {h00=0x001a, h01=0x0050, text=» LC A3,DWTOR,A6 INDEX «, t00=0x0010, t01=0x0040}
0x1954…1974               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A3 SAVE FOR FDIX«, t00=0x0010, t01=0x005e}
0x1974…197e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007e}
0x197e…19a8               Head {h00=0x0026, h01=0x0050, text=»*  PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x0010, t01=0x0088}
0x19a8…19b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b2}
0x19b2…19d6               Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x0010, t01=0x00bc}
0x19d6…1a02               Head {h00=0x0028, h01=0x0050, text=» CM DWTRCW,A6 SAVE RETURN CODE WORD «, t00=0x0010, t01=0x00e0}
0x1a02…1a0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010c}
0x1a0c…1a26               Head {h00=0x0016, h01=0x0050, text=»*  CHECK IF LOCKED«, t00=0x0010, t01=0x0116}
0x1a26…1a30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0130}
0x1a30…1a58               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTLC,A6  LOCK INDICATOR «, t00=0x0010, t01=0x013a}
0x1a58…1a7e               Head {h00=0x0022, h01=0x0050, text=» CF A5,FDIX GET BIT MASK IN A3«, t00=0x0010, t01=0x0162}
0x1a7e…1aac               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK «, t00=0x0010, t01=0x0188}
0x1aac…1abe               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A3«, t00=0x0011, t01=0x0026}
0x1abe…1adc               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) FD:ORD LOCKED «, t00=0x0011, t01=0x0038}
0x1adc…1aee               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0011, t01=0x0056}
0x1aee…1b02               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/26 «, t00=0x0011, t01=0x0068}
0x1b02…1b22               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) LOAD LOCK ORDER «, t00=0x0011, t01=0x007c}
0x1b22…1b36               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/11 «, t00=0x0011, t01=0x009c}
0x1b36…1b56               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) LOAD LOAD ORDER «, t00=0x0011, t01=0x00b0}
0x1b56…1b78               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8001 RETURN CODE«, t00=0x0011, t01=0x00d0}
0x1b78…1b92               Head {h00=0x0016, h01=0x0050, text=» ABL END:IO ENDIO «, t00=0x0011, t01=0x00f2}
0x1b92…1b9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1b9c…1baa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0116}
0x1baa…1bb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0124}
0x1bb4…1bc6               Head {h00=0x000e, h01=0x0050, text=»*   ORDER?«, t00=0x0011, t01=0x012e}
0x1bc6…1bd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0140}
0x1bd0…1be4               Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x0011, t01=0x014a}
0x1be4…1bfc               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0011, t01=0x015e}
0x1bfc…1c12               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0011, t01=0x0176}
0x1c12…1c2e               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0011, t01=0x018c}
0x1c2e…1c58               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0012, t01=0x0018}
0x1c58…1c82               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A8 GET FIRST WORD OF ECB «, t00=0x0012, t01=0x0042}
0x1c82…1cba               Head {h00=0x0034, h01=0x0050, text=» ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS «, t00=0x0012, t01=0x006c}
0x1cba…1cec               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) FD:000 BUFFER NOT IN SYSTEM AREA? «, t00=0x0012, t01=0x00a4}
0x1cec…1cfe               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0012, t01=0x00d6}
0x1cfe…1d14               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:005«, t00=0x0012, t01=0x00e8}
0x1d14…1d4e               Head {h00=0x0036, h01=0x0050, text=» ADKL A3,TOSLEN CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x0012, t01=0x00fe}
0x1d4e…1d68               Head {h00=0x0016, h01=0x0050, text=» RF(N) FD:005 NO? «, t00=0x0012, t01=0x0138}
0x1d68…1d72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x1d72…1d86               Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x0012, t01=0x015c}
0x1d86…1da6               Head {h00=0x001c, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE IT«, t00=0x0012, t01=0x0170}
0x1da6…1db8               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0012, t01=0x0190}
0x1db8…1dce               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/F000«, t00=0x0013, t01=0x0012}
0x1dce…1de0               Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x0013, t01=0x0028}
0x1de0…1df2               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0013, t01=0x003a}
0x1df2…1e04               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0013, t01=0x004c}
0x1e04…1e1a               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF «, t00=0x0013, t01=0x005e}
0x1e1a…1e50               Head {h00=0x0032, h01=0x0050, text=» ST A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x0013, t01=0x0074}
0x1e50…1e80               Head {h00=0x002c, h01=0x0050, text=» ADKL A1,/400 CREATE ONE MORE MMU ENTRY «, t00=0x0013, t01=0x00aa}
0x1e80…1e9a               Head {h00=0x0016, h01=0x0050, text=» ST A1,DWT:PA+2,A6«, t00=0x0013, t01=0x00da}
0x1e9a…1eac               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0013, t01=0x00f4}
0x1eac…1ed8               Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x0013, t01=0x0106}
0x1ed8…1f06               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,FD:BUF GET DWT BUFFER ADDRESS«, t00=0x0013, t01=0x0132}
0x1f06…1f3c               Head {h00=0x0032, h01=0x0050, text=» ST A2,ECBBA,A8 SET NEW BUFFER ADDRESS IN ECB «, t00=0x0013, t01=0x0160}
0x1f3c…1f46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0008}
0x1f46…1f82               Head {h00=0x0038, h01=0x0050, text=»FD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x0014, t01=0x0012}
0x1f82…1f8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x004e}
0x1f8c…1fa4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0014, t01=0x0058}
0x1fa4…1fb0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0070}
0x1fb0…1fba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007c}
0x1fba…1fcc               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0014, t01=0x0086}
0x1fcc…1fee               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) FD:070 TEST STATUS«, t00=0x0014, t01=0x0098}
0x1fee…2000               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0014, t01=0x00ba}
0x2000…2024               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x0014, t01=0x00cc}
0x2024…2036               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0014, t01=0x00f0}
0x2036…2058               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:010 BASIC WRITE «, t00=0x0014, t01=0x0102}
0x2058…206a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0014, t01=0x0124}
0x206a…208e               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x0014, t01=0x0136}
0x208e…20a0               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0014, t01=0x015a}
0x20a0…20c4               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:028 PHYSICAL WRITE«, t00=0x0014, t01=0x016c}
0x20c4…20d6               Head {h00=0x000e, h01=0x0050, text=» SUK A1,15«, t00=0x0014, t01=0x0190}
0x20d6…20fe               Head {h00=0x0024, h01=0x0050, text=» RF(Z) FD:030 WRITE DELETED DATA«, t00=0x0015, t01=0x0012}
0x20fe…2112               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/14 «, t00=0x0015, t01=0x003a}
0x2112…2136               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) UNLOAD UNLOAD ORDER «, t00=0x0015, t01=0x004e}
0x2136…2148               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0015, t01=0x0072}
0x2148…215c               Head {h00=0x0010, h01=0x0050, text=» ADK A1,/36 «, t00=0x0015, t01=0x0084}
0x215c…2182               Head {h00=0x0022, h01=0x0050, text=» ABL(Z) SQREAD SEQUENTIAL READ«, t00=0x0015, t01=0x0098}
0x2182…2194               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0015, t01=0x00be}
0x2194…21bc               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SQWRIT SEQUENTIAL WRITE «, t00=0x0015, t01=0x00d0}
0x21bc…21d0               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2B «, t00=0x0015, t01=0x00f8}
0x21d0…21ee               Head {h00=0x001a, h01=0x0050, text=» ABL(Z) REWIND REWIND «, t00=0x0015, t01=0x010c}
0x21ee…21fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x012a}
0x21fa…2212               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0015, t01=0x0136}
0x2212…2228               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0015, t01=0x014e}
0x2228…223a               Head {h00=0x000e, h01=0x0050, text=» ADK A1,30«, t00=0x0015, t01=0x0164}
0x223a…225a               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:050 SEARCH KEY«, t00=0x0015, t01=0x0176}
0x225a…2266               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0008}
0x2266…226e               Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0014}
0x226e…2282               Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x0016, t01=0x001c}
0x2282…22a4               Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x0016, t01=0x0030}
0x22a4…22ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0052}
0x22ae…22c4               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0016, t01=0x005c}
0x22c4…22d2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0072}
0x22d2…22dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0080}
0x22dc…22ec               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x008a}
0x22ec…22fc               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0016, t01=0x009a}
0x22fc…230c               Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0016, t01=0x00aa}
0x230c…231c               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0016, t01=0x00ba}
0x231c…232c               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x00ca}
0x232c…2336               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00da}
0x2336…236e               Head {h00=0x0034, h01=0x0050, text=»*    OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0016, t01=0x00e4}
0x236e…23a4               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0016, t01=0x011c}
0x23a4…23ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0152}
0x23ae…23c0               Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0016, t01=0x015c}
0x23c0…23e6               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0016, t01=0x016e}
0x23e6…2412 (23, 0, 400)  Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0017, t01=0x0004}
0x2412…2446               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0017, t01=0x0030}
0x2446…246c               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0017, t01=0x0064}
0x246c…2476               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x008a}
0x2476…24a4               Head {h00=0x002a, h01=0x0050, text=»*    WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0017, t01=0x0094}
0x24a4…24d0               Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0017, t01=0x00c2}
0x24d0…24fc               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0017, t01=0x00ee}
0x24fc…251c               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0017, t01=0x011a}
0x251c…2538               Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0017, t01=0x013a}
0x2538…256a               Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0017, t01=0x0156}
0x256a…2582               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0017, t01=0x0188}
0x2582…258c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0010}
0x258c…25a0               Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0018, t01=0x001a}
0x25a0…25be               Head {h00=0x001a, h01=0x0050, text=»*    TIME HAS EXPIRED «, t00=0x0018, t01=0x002e}
0x25be…25de               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0018, t01=0x004c}
0x25de…260e               Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0018, t01=0x006c}
0x260e…2638               Head {h00=0x0026, h01=0x0050, text=» RF OCLEXI COMMON OPEN/CLOSE EXIT «, t00=0x0018, t01=0x009c}
0x2638…2642               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c6}
0x2642…2650               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00d0}
0x2650…265a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00de}
0x265a…266c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0018, t01=0x00e8}
0x266c…267e               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0018, t01=0x00fa}
0x267e…2690               Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0018, t01=0x010c}
0x2690…26a2               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0018, t01=0x011e}
0x26a2…26b4               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0018, t01=0x0130}
0x26b4…26be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0142}
0x26be…26f6               Head {h00=0x0034, h01=0x0050, text=»*    CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0018, t01=0x014c}
0x26f6…272c               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0018, t01=0x0184}
0x272c…2736               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x002a}
0x2736…274a               Head {h00=0x0010, h01=0x0050, text=»CLOSE EQU * «, t00=0x0019, t01=0x0034}
0x274a…2770               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0019, t01=0x0048}
0x2770…279a               Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0019, t01=0x006e}
0x279a…27ce               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0019, t01=0x0098}
0x27ce…27f4               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA CLOSE FD DRIVE«, t00=0x0019, t01=0x00cc}
0x27f4…27fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f2}
0x27fe…2812               Head {h00=0x0010, h01=0x0050, text=»OCLEXI EQU *«, t00=0x0019, t01=0x00fc}
0x2812…283a               Head {h00=0x0024, h01=0x0050, text=»*    COMMON EXIT FOR OPEN/CLOSE «, t00=0x0019, t01=0x0110}
0x283a…2858               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0019, t01=0x0138}
0x2858…2870               Head {h00=0x0014, h01=0x0050, text=» RF FD:090 ENDIO«, t00=0x0019, t01=0x0156}
0x2870…287a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x016e}
0x287a…2886               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0178}
0x2886…2890               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0184}
0x2890…28a8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0019, t01=0x018e}
0x28a8…28b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0016}
0x28b2…28ca               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x001a, t01=0x0020}
0x28ca…28e2               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x001a, t01=0x0038}
0x28e2…28fa               Head {h00=0x0014, h01=0x0050, text=»* BASIC WRITE * «, t00=0x001a, t01=0x0050}
0x28fa…2912               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x001a, t01=0x0068}
0x2912…292a               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x001a, t01=0x0080}
0x292a…2934               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0098}
0x2934…294c               Head {h00=0x0014, h01=0x0050, text=»FD:010 CF A5,BIO«, t00=0x001a, t01=0x00a2}
0x294c…295e               Head {h00=0x000e, h01=0x0050, text=» ORK A2,1 «, t00=0x001a, t01=0x00ba}
0x295e…2972               Head {h00=0x0010, h01=0x0050, text=»FD:015 EQU *«, t00=0x001a, t01=0x00cc}
0x2972…298a               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001a, t01=0x00e0}
0x298a…29a2               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x001a, t01=0x00f8}
0x29a2…29ba               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x001a, t01=0x0110}
0x29ba…29d8               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x001a, t01=0x0128}
0x29d8…29e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0146}
0x29e4…29f6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001a, t01=0x0152}
0x29f6…2a26               Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x001a, t01=0x0164}
0x2a26…2a3c (27, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x001b, t01=0x0004}
0x2a3c…2a50               Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x001b, t01=0x001a}
0x2a50…2a5c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x002e}
0x2a5c…2a66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x003a}
0x2a66…2a7e               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001b, t01=0x0044}
0x2a7e…2a9a               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+SWPBLK=2«, t00=0x001b, t01=0x005c}
0x2a9a…2ad2               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x001b, t01=0x0078}
0x2ad2…2afe               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA?«, t00=0x001b, t01=0x00b0}
0x2afe…2b2a               Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001b, t01=0x00dc}
0x2b2a…2b44               Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x001b, t01=0x0108}
0x2b44…2b6e               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 GET DWT BUFFER ADDRESS «, t00=0x001b, t01=0x0122}
0x2b6e…2b98               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x001b, t01=0x014c}
0x2b98…2bc4               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x001b, t01=0x0176}
0x2bc4…2bfa               Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x001c, t01=0x0012}
0x2bfa…2c24               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x001c, t01=0x0048}
0x2c24…2c42               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x001c, t01=0x0072}
0x2c42…2c4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0090}
0x2c4c…2c64               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001c, t01=0x009a}
0x2c64…2c6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b2}
0x2c6e…2c78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00bc}
0x2c78…2c8c               Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x001c, t01=0x00c6}
0x2c8c…2c98               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00da}
0x2c98…2ca2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e6}
0x2ca2…2cc8               Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x001c, t01=0x00f0}
0x2cc8…2cd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0116}
0x2cd2…2cea               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001c, t01=0x0120}
0x2cea…2d06               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+SWPBLK=2«, t00=0x001c, t01=0x0138}
0x2d06…2d2e               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWT:LA,A6 GET BUFFER FLAG«, t00=0x001c, t01=0x0154}
0x2d2e…2d5e               Head {h00=0x002c, h01=0x0050, text=» RF(Z) FD:025 BUFFER WAS IN SYSTEM AREA?«, t00=0x001c, t01=0x017c}
0x2d5e…2d90               Head {h00=0x002e, h01=0x0050, text=» LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS «, t00=0x001d, t01=0x001c}
0x2d90…2dba               Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBBA,A8 RESTORE IT IN ECB «, t00=0x001d, t01=0x004e}
0x2dba…2dc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0078}
0x2dc4…2dd8               Head {h00=0x0010, h01=0x0050, text=»FD:025 EQU *«, t00=0x001d, t01=0x0082}
0x2dd8…2de4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0096}
0x2de4…2dee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a2}
0x2dee…2e0c               Head {h00=0x001a, h01=0x0050, text=» RF FD:048 GOTO FD:RC «, t00=0x001d, t01=0x00ac}
0x2e0c…2e16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ca}
0x2e16…2e30               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001d, t01=0x00d4}
0x2e30…2e4a               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x001d, t01=0x00ee}
0x2e4a…2e64               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL WRITE *«, t00=0x001d, t01=0x0108}
0x2e64…2e7e               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x001d, t01=0x0122}
0x2e7e…2e98               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001d, t01=0x013c}
0x2e98…2ea2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0156}
0x2ea2…2eba               Head {h00=0x0014, h01=0x0050, text=»FD:028 CF A5,BIO«, t00=0x001d, t01=0x0160}
0x2eba…2ee2               Head {h00=0x0024, h01=0x0050, text=» ORK A2,5 INSERT BIO BITS 13-15 «, t00=0x001d, t01=0x0178}
0x2ee2…2ef4               Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x001e, t01=0x0010}
0x2ef4…2f0c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001e, t01=0x0022}
0x2f0c…2f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x003a}
0x2f16…2f34               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001e, t01=0x0044}
0x2f34…2f52               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001e, t01=0x0062}
0x2f52…2f70               Head {h00=0x001a, h01=0x0050, text=»* WRITE DELETED DATA *«, t00=0x001e, t01=0x0080}
0x2f70…2f8e               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001e, t01=0x009e}
0x2f8e…2fac               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001e, t01=0x00bc}
0x2fac…2fb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00da}
0x2fb6…2fce               Head {h00=0x0014, h01=0x0050, text=»FD:030 CF A5,BIO«, t00=0x001e, t01=0x00e4}
0x2fce…2fe0               Head {h00=0x000e, h01=0x0050, text=» ORK A2,6 «, t00=0x001e, t01=0x00fc}
0x2fe0…2ff2               Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x001e, t01=0x010e}
0x2ff2…2ffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0120}
0x2ffc…3016               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001e, t01=0x012a}
0x3016…3030               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x001e, t01=0x0144}
0x3030…304a               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x001e, t01=0x015e}
0x304a…3064               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x001e, t01=0x0178}
0x3064…307e (31, 0, 400)  Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001f, t01=0x0004}
0x307e…3088               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x001e}
0x3088…30a4               Head {h00=0x0018, h01=0x0050, text=»FD:040 CF A5,BIO:RE «, t00=0x001f, t01=0x0028}
0x30a4…30bc               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001f, t01=0x0044}
0x30bc…30d4               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x001f, t01=0x005c}
0x30d4…30ec               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x001f, t01=0x0074}
0x30ec…310c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:042 TOSS DISC «, t00=0x001f, t01=0x008c}
0x310c…3118               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00ac}
0x3118…312a               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001f, t01=0x00b8}
0x312a…313e               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x001f, t01=0x00ca}
0x313e…3152               Head {h00=0x0010, h01=0x0050, text=»FD:042 EQU *«, t00=0x001f, t01=0x00de}
0x3152…315e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00f2}
0x315e…3186               Head {h00=0x0024, h01=0x0050, text=»FD:045 CF A5,FD:REA PERFORM READ«, t00=0x001f, t01=0x00fe}
0x3186…3190               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0126}
0x3190…31a8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001f, t01=0x0130}
0x31a8…31b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0148}
0x31b2…31bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0152}
0x31bc…31d4               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001f, t01=0x015c}
0x31d4…31ea               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x0174}
0x31ea…3206               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x001f, t01=0x018a}
0x3206…323e               Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0020, t01=0x0016}
0x323e…326a               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:046 BUFFER IN SYSTEM AREA?«, t00=0x0020, t01=0x004e}
0x326a…3296               Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0020, t01=0x007a}
0x3296…32c4               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,FD:BUF GET DWT BUFFER ADDRESS«, t00=0x0020, t01=0x00a6}
0x32c4…32ee               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0020, t01=0x00d4}
0x32ee…331a               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0020, t01=0x00fe}
0x331a…3350               Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x0020, t01=0x012a}
0x3350…337a               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0020, t01=0x0160}
0x337a…33ac               Head {h00=0x002e, h01=0x0050, text=» LD A2,DWT:BF,A6 GET SAVED BUFFER ADDRESS «, t00=0x0020, t01=0x018a}
0x33ac…33d6               Head {h00=0x0026, h01=0x0050, text=» ST A2,ECBBA,A8 RESTORE IT IN ECB «, t00=0x0021, t01=0x002c}
0x33d6…33e8               Head {h00=0x000e, h01=0x0050, text=» RF FD:048«, t00=0x0021, t01=0x0056}
0x33e8…33f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0068}
0x33f2…3406               Head {h00=0x0010, h01=0x0050, text=»FD:046 EQU *«, t00=0x0021, t01=0x0072}
0x3406…3412               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0086}
0x3412…341c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0092}
0x341c…3434               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0021, t01=0x009c}
0x3434…344c               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0021, t01=0x00b4}
0x344c…3464               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0021, t01=0x00cc}
0x3464…3482               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:047 NOT IBM «, t00=0x0021, t01=0x00e4}
0x3482…348e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0102}
0x348e…34a0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0021, t01=0x010e}
0x34a0…34c0               Head {h00=0x001c, h01=0x0050, text=» LD A7,ECBRL,A8 REQ LEN «, t00=0x0021, t01=0x0120}
0x34c0…34ec               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS«, t00=0x0021, t01=0x0140}
0x34ec…3500               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0021, t01=0x016c}
0x3500…3514               Head {h00=0x0010, h01=0x0050, text=»FD:047 EQU *«, t00=0x0021, t01=0x0180}
0x3514…3520 (34, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0004}
0x3520…3534               Head {h00=0x0010, h01=0x0050, text=»FD:048 EQU *«, t00=0x0022, t01=0x0010}
0x3534…3546               Head {h00=0x000e, h01=0x0050, text=» ABL FD:RC«, t00=0x0022, t01=0x0024}
0x3546…3550               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0036}
0x3550…3568               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0022, t01=0x0040}
0x3568…3572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0058}
0x3572…358a               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0022, t01=0x0062}
0x358a…35a0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0022, t01=0x007a}
0x35a0…35aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0090}
0x35aa…35c0               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0022, t01=0x009a}
0x35c0…35d6               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0022, t01=0x00b0}
0x35d6…35ec               Head {h00=0x0012, h01=0x0050, text=»* SEARCH KEY *«, t00=0x0022, t01=0x00c6}
0x35ec…3602               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0022, t01=0x00dc}
0x3602…3618               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0022, t01=0x00f2}
0x3618…3622               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0108}
0x3622…3636               Head {h00=0x0010, h01=0x0050, text=»FD:050 EQU *«, t00=0x0022, t01=0x0112}
0x3636…365c               Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 KEY AREA ADDRESS «, t00=0x0022, t01=0x0126}
0x365c…3680               Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A4 KEY AREA LENGTH «, t00=0x0022, t01=0x014c}
0x3680…3692               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0022, t01=0x0170}
0x3692…36b8               Head {h00=0x0022, h01=0x0050, text=» ABL(NP) END:10 ILLEGAL LENGTH«, t00=0x0022, t01=0x0182}
0x36b8…36cc               Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0023, t01=0x0018}
0x36cc…36f2               Head {h00=0x0022, h01=0x0050, text=» ABL(P) END:10 ILLEGAL LENGTH «, t00=0x0023, t01=0x002c}
0x36f2…3704               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0023, t01=0x0052}
0x3704…370e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0064}
0x370e…373c               Head {h00=0x002a, h01=0x0050, text=»*   IF ODD CHANGE TO EVEN NO OF BYTES «, t00=0x0023, t01=0x006e}
0x373c…3746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009c}
0x3746…3758               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x00a6}
0x3758…376a               Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0023, t01=0x00b8}
0x376a…377c               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0023, t01=0x00ca}
0x377c…3786               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00dc}
0x3786…3798               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0023, t01=0x00e6}
0x3798…37ae               Head {h00=0x0012, h01=0x0050, text=» ORK A2,7 BIO «, t00=0x0023, t01=0x00f8}
0x37ae…37c0               Head {h00=0x000e, h01=0x0050, text=» ADK A3,4 «, t00=0x0023, t01=0x010e}
0x37c0…37de               Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 KEY ADDRESS «, t00=0x0023, t01=0x0120}
0x37de…37fe               Head {h00=0x001c, h01=0x0050, text=» CF A5,FD:WRI SEARCH KEY«, t00=0x0023, t01=0x013e}
0x37fe…381c               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 RETURN CODE«, t00=0x0023, t01=0x015e}
0x381c…3832               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:048«, t00=0x0023, t01=0x017c}
0x3832…383c (36, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0004}
0x383c…3854               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0024, t01=0x000e}
0x3854…385e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0026}
0x385e…3886               Head {h00=0x0024, h01=0x0050, text=»*  READ RECORD WITH KEY COMMAND «, t00=0x0024, t01=0x0030}
0x3886…3890               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0058}
0x3890…38a4               Head {h00=0x0010, h01=0x0050, text=»FD:060 EQU *«, t00=0x0024, t01=0x0062}
0x38a4…38ba               Head {h00=0x0012, h01=0x0050, text=» LDK A2,4 BIO «, t00=0x0024, t01=0x0076}
0x38ba…38de               Head {h00=0x0020, h01=0x0050, text=» LD A3,4,A8 REQUESTED LENGTH«, t00=0x0024, t01=0x008c}
0x38de…38f2               Head {h00=0x0010, h01=0x0050, text=» CWK A3,130 «, t00=0x0024, t01=0x00b0}
0x38f2…3918               Head {h00=0x0022, h01=0x0050, text=» ABL(NE) END:10 ILLEGAL LENGTH«, t00=0x0024, t01=0x00c4}
0x3918…393a               Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0024, t01=0x00ea}
0x393a…394c               Head {h00=0x000e, h01=0x0050, text=» RB FD:045«, t00=0x0024, t01=0x010c}
0x394c…3958               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x011e}
0x3958…3962               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012a}
0x3962…397a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0024, t01=0x0134}
0x397a…3984               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014c}
0x3984…399c               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0024, t01=0x0156}
0x399c…39b4               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x0024, t01=0x016e}
0x39b4…39cc               Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x0024, t01=0x0186}
0x39cc…39e4               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x0025, t01=0x000e}
0x39e4…39fc               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0025, t01=0x0026}
0x39fc…3a06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x003e}
0x3a06…3a1a               Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0025, t01=0x0048}
0x3a1a…3a3a               Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0025, t01=0x005c}
0x3a3a…3a50               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0025, t01=0x007c}
0x3a50…3a62               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0025, t01=0x0092}
0x3a62…3a74               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0025, t01=0x00a4}
0x3a74…3a9e               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FD:090 DISC NOT OPERABEL? «, t00=0x0025, t01=0x00b6}
0x3a9e…3ac4               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/200 WRITE PROTECTED?«, t00=0x0025, t01=0x00e0}
0x3ac4…3ade               Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0025, t01=0x0106}
0x3ade…3af6               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0025, t01=0x0120}
0x3af6…3b1a               Head {h00=0x0020, h01=0x0050, text=» RF LOA:05 READ VOLUME NAME «, t00=0x0025, t01=0x0138}
0x3b1a…3b24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x015c}
0x3b24…3b38               Head {h00=0x0010, h01=0x0050, text=»FD:075 EQU *«, t00=0x0025, t01=0x0166}
0x3b38…3b44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x017a}
0x3b44…3b6c               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTRCW,A6 GET RETURN CODE«, t00=0x0025, t01=0x0186}
0x3b6c…3b86               Head {h00=0x0016, h01=0x0050, text=»FD:090 ABL END:IO «, t00=0x0026, t01=0x001e}
0x3b86…3b90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0038}
0x3b90…3ba8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0026, t01=0x0042}
0x3ba8…3bb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005a}
0x3bb2…3bc2               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0026, t01=0x0064}
0x3bc2…3bd2               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0026, t01=0x0074}
0x3bd2…3be2               Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0026, t01=0x0084}
0x3be2…3bf2               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0026, t01=0x0094}
0x3bf2…3c02               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0026, t01=0x00a4}
0x3c02…3c0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b4}
0x3c0c…3c1e               Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0026, t01=0x00be}
0x3c1e…3c36               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0026, t01=0x00d0}
0x3c36…3c4c               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0026, t01=0x00e8}
0x3c4c…3c5e               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0026, t01=0x00fe}
0x3c5e…3c82               Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) FD:RC NOT OPERABEL «, t00=0x0026, t01=0x0110}
0x3c82…3c96               Head {h00=0x0010, h01=0x0050, text=»LOA:05 EQU *«, t00=0x0026, t01=0x0134}
0x3c96…3cae               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0026, t01=0x0148}
0x3cae…3cb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0160}
0x3cb8…3cda               Head {h00=0x001e, h01=0x0050, text=»*  CHECK IF TOSS/IBM LABEL«, t00=0x0026, t01=0x016a}
0x3cda…3ce4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x018c}
0x3ce4…3cfa               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0027, t01=0x0008}
0x3cfa…3d0e               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0027, t01=0x001e}
0x3d0e…3d2c               Head {h00=0x001a, h01=0x0050, text=» LDK A3,38 NO OF BYTES«, t00=0x0027, t01=0x0032}
0x3d2c…3d42               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0027, t01=0x0050}
0x3d42…3d56               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0027, t01=0x0066}
0x3d56…3d68               Head {h00=0x000e, h01=0x0050, text=» ADK A4,34«, t00=0x0027, t01=0x007a}
0x3d68…3d7c               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0027, t01=0x008c}
0x3d7c…3d90               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0027, t01=0x00a0}
0x3d90…3dbc               Head {h00=0x0028, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL PREASSUMED «, t00=0x0027, t01=0x00b4}
0x3dbc…3dce               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0027, t01=0x00e0}
0x3dce…3de2               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0027, t01=0x00f2}
0x3de2…3df6               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0027, t01=0x0106}
0x3df6…3e16               Head {h00=0x001c, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL«, t00=0x0027, t01=0x011a}
0x3e16…3e22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x013a}
0x3e22…3e2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0146}
0x3e2c…3e44               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0027, t01=0x0150}
0x3e44…3e4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0168}
0x3e4e…3e58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0172}
0x3e58…3e6c               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0027, t01=0x017c}
0x3e6c…3e76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0190}
0x3e76…3e92               Head {h00=0x0018, h01=0x0050, text=»*  READ VOLUME NAME «, t00=0x0028, t01=0x000a}
0x3e92…3e9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0026}
0x3e9c…3eb4               Head {h00=0x0014, h01=0x0050, text=» LDK A3,8 LENGTH«, t00=0x0028, t01=0x0030}
0x3eb4…3eca               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0028, t01=0x0048}
0x3eca…3ef8               Head {h00=0x002a, h01=0x0050, text=» C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK«, t00=0x0028, t01=0x005e}
0x3ef8…3f26               Head {h00=0x002a, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0028, t01=0x008c}
0x3f26…3f38               Head {h00=0x000e, h01=0x0050, text=» RF LOA:15«, t00=0x0028, t01=0x00ba}
0x3f38…3f44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00cc}
0x3f44…3f56               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0028, t01=0x00d8}
0x3f56…3f76               Head {h00=0x001c, h01=0x0050, text=»LOA:10 LDK A3,10 LENGTH «, t00=0x0028, t01=0x00ea}
0x3f76…3f8e               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0028, t01=0x010a}
0x3f8e…3fb8               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0028, t01=0x0122}
0x3fb8…3fe4               Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM DISC «, t00=0x0028, t01=0x014c}
0x3fe4…400a               Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 RETURN CODE BIT 10«, t00=0x0028, t01=0x0178}
0x400a…4024               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0029, t01=0x000e}
0x4024…4030               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0028}
0x4030…4048               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0029, t01=0x0034}
0x4048…405c               Head {h00=0x0010, h01=0x0050, text=»LOA:15 EQU *«, t00=0x0029, t01=0x004c}
0x405c…4080               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0029, t01=0x0060}
0x4080…4096               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0029, t01=0x0084}
0x4096…40aa               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0029, t01=0x009a}
0x40aa…40bc               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0029, t01=0x00ae}
0x40bc…40c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00c0}
0x40c8…40da               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0029, t01=0x00cc}
0x40da…40f2               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTRCW,A6«, t00=0x0029, t01=0x00de}
0x40f2…411a               Head {h00=0x0024, h01=0x0050, text=» ANK A7,/20 CHECK TYPE OF LABEL «, t00=0x0029, t01=0x00f6}
0x411a…413a               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:30 TOSS LABEL«, t00=0x0029, t01=0x011e}
0x413a…4158               Head {h00=0x001a, h01=0x0050, text=» LDK A7,10 NO OF CHAR.«, t00=0x0029, t01=0x013e}
0x4158…416c               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0029, t01=0x015c}
0x416c…417e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0029, t01=0x0170}
0x417e…4192               Head {h00=0x0010, h01=0x0050, text=»LOA:30 EQU *«, t00=0x0029, t01=0x0182}
0x4192…419e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0008}
0x419e…41a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0014}
0x41a8…41c0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002a, t01=0x001e}
0x41c0…41ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0036}
0x41ca…41d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0040}
0x41d4…41ec               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002a, t01=0x004a}
0x41ec…41f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0062}
0x41f6…421a               Head {h00=0x0020, h01=0x0050, text=»*  GET DWT VOL NAME ADDRESS «, t00=0x002a, t01=0x006c}
0x421a…4224               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0090}
0x4224…4248               Head {h00=0x0020, h01=0x0050, text=» CF A5,VOLADR ADDRESS TO A2 «, t00=0x002a, t01=0x009a}
0x4248…4252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00be}
0x4252…426e               Head {h00=0x0018, h01=0x0050, text=»*  STORE NAME IN DWT«, t00=0x002a, t01=0x00c8}
0x426e…4278               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e4}
0x4278…428a               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x002a, t01=0x00ee}
0x428a…42a6               Head {h00=0x0018, h01=0x0050, text=»LOA:40 LD A4,BUF,A1 «, t00=0x002a, t01=0x0100}
0x42a6…42b8               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x002a, t01=0x011c}
0x42b8…42ca               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x002a, t01=0x012e}
0x42ca…42e0               Head {h00=0x0012, h01=0x0050, text=» RF(Z) LOA:50 «, t00=0x002a, t01=0x0140}
0x42e0…42f2               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x002a, t01=0x0156}
0x42f2…4304               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x002a, t01=0x0168}
0x4304…4316               Head {h00=0x000e, h01=0x0050, text=» RB LOA:40«, t00=0x002a, t01=0x017a}
0x4316…432a               Head {h00=0x0010, h01=0x0050, text=»LOA:50 EQU *«, t00=0x002a, t01=0x018c}
0x432a…434e               Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTOR+1,A6 GET ORDER «, t00=0x002b, t01=0x0010}
0x434e…4362               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x002b, t01=0x0034}
0x4362…438c               Head {h00=0x0026, h01=0x0050, text=» RB(Z) FD:075 JUMP IF TEST STATUS «, t00=0x002b, t01=0x0048}
0x438c…4398               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0072}
0x4398…43aa               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002b, t01=0x007e}
0x43aa…43b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0090}
0x43b4…43d6               Head {h00=0x001e, h01=0x0050, text=»* DATA SET OPENING WANTED?«, t00=0x002b, t01=0x009a}
0x43d6…43e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00bc}
0x43e0…4406               Head {h00=0x0022, h01=0x0050, text=» ANK A1,/2 A1:  TOSS=6, IBM=8 «, t00=0x002b, t01=0x00c6}
0x4406…4428               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOA:70 TOSS LABEL «, t00=0x002b, t01=0x00ec}
0x4428…4448               Head {h00=0x001c, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER «, t00=0x002b, t01=0x010e}
0x4448…445e               Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2600 «, t00=0x002b, t01=0x012e}
0x445e…447e               Head {h00=0x001c, h01=0x0050, text=» RF(E) LOA:70 LOCK ORDER«, t00=0x002b, t01=0x0144}
0x447e…4488               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0164}
0x4488…44a6               Head {h00=0x001a, h01=0x0050, text=»*  READ DATA SET LABEL«, t00=0x002b, t01=0x016e}
0x44a6…44b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x018c}
0x44b0…44d2               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW,A8 SECTOR NO «, t00=0x002c, t01=0x0008}
0x44d2…44e4               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x002c, t01=0x002a}
0x44e4…4508               Head {h00=0x0020, h01=0x0050, text=» ABL(N) FD:DIS REQUEST ERROR«, t00=0x002c, t01=0x003c}
0x4508…451a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x002c, t01=0x0060}
0x451a…453e               Head {h00=0x0020, h01=0x0050, text=» ABL(P) FD:DIS REQUEST ERROR«, t00=0x002c, t01=0x0072}
0x453e…4550               Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x002c, t01=0x0096}
0x4550…4566               Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x002c, t01=0x00a8}
0x4566…4580               Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x002c, t01=0x00be}
0x4580…4594               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x002c, t01=0x00d8}
0x4594…45aa               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002c, t01=0x00ec}
0x45aa…45c8               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x002c, t01=0x0102}
0x45c8…45ec               Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x002c, t01=0x0120}
0x45ec…460e               Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x002c, t01=0x0144}
0x460e…4644               Head {h00=0x0032, h01=0x0050, text=» ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL«, t00=0x002c, t01=0x0166}
0x4644…4658               Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x002d, t01=0x000c}
0x4658…466c               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x002d, t01=0x0020}
0x466c…4678               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002d, t01=0x0034}
0x4678…46a6               Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW,A8 DATA SET LABEL SECTOR «, t00=0x002d, t01=0x0040}
0x46a6…46bc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x002d, t01=0x006e}
0x46bc…46dc               Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x002d, t01=0x0084}
0x46dc…46fc               Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x002d, t01=0x00a4}
0x46fc…472e               Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x002d, t01=0x00c4}
0x472e…4744               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002d, t01=0x00f6}
0x4744…476c               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x002d, t01=0x010c}
0x476c…4782               Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x002d, t01=0x0134}
0x4782…4798               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002d, t01=0x014a}
0x4798…47ac               Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x002d, t01=0x0160}
0x47ac…47d0               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x002d, t01=0x0174}
0x47d0…47e6               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002e, t01=0x0008}
0x47e6…47fc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x002e, t01=0x001e}
0x47fc…4824               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x002e, t01=0x0034}
0x4824…4848               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x002e, t01=0x005c}
0x4848…485e               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002e, t01=0x0080}
0x485e…487c               Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x002e, t01=0x0096}
0x487c…4892               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x002e, t01=0x00b4}
0x4892…48ba               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x002e, t01=0x00ca}
0x48ba…48c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f2}
0x48c4…48d8               Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x002e, t01=0x00fc}
0x48d8…48e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0110}
0x48e4…48fc               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x002e, t01=0x011c}
0x48fc…4922               Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x002e, t01=0x0134}
0x4922…494c               Head {h00=0x0026, h01=0x0050, text=»LOA:75 LD A3,DWTRCW,A6 RETURN CODE«, t00=0x002e, t01=0x015a}
0x494c…4964               Head {h00=0x0014, h01=0x0050, text=»LOA:80 ABL FD:RC«, t00=0x002e, t01=0x0184}
0x4964…496e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x000c}
0x496e…4986               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002f, t01=0x0016}
0x4986…4990               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x002e}
0x4990…499a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0038}
0x499a…49b2               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002f, t01=0x0042}
0x49b2…49bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x005a}
0x49bc…49d6               Head {h00=0x0016, h01=0x0050, text=»*  ERROR , UNLOCK «, t00=0x002f, t01=0x0064}
0x49d6…49e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007e}
0x49e0…49f4               Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x002f, t01=0x0088}
0x49f4…4a06               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x002f, t01=0x009c}
0x4a06…4a28               Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x002f, t01=0x00ae}
0x4a28…4a42               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x002f, t01=0x00d0}
0x4a42…4a58               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002f, t01=0x00ea}
0x4a58…4a6a               Head {h00=0x000e, h01=0x0050, text=» RB LOA:75«, t00=0x002f, t01=0x0100}
0x4a6a…4a74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0112}
0x4a74…4ab2               Head {h00=0x003a, h01=0x0050, text=»*---------------------------------------------------- «, t00=0x002f, t01=0x011c}
0x4ab2…4ad0               Head {h00=0x001a, h01=0x0050, text=»*   LD:RC  SUBROUTINE «, t00=0x002f, t01=0x015a}
0x4ad0…4ada               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0178}
0x4ada…4af8               Head {h00=0x001a, h01=0x0050, text=»LD:RC ORS A3,DWTRCW,A6«, t00=0x002f, t01=0x0182}
0x4af8…4b1a               Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/2007 FATAL ERROR«, t00=0x0030, t01=0x0010}
0x4b1a…4b30               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x0030, t01=0x0032}
0x4b30…4b5a               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0030, t01=0x0048}
0x4b5a…4b6a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0030, t01=0x0072}
0x4b6a…4b76               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0082}
0x4b76…4b8e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0030, t01=0x008e}
0x4b8e…4b98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00a6}
0x4b98…4baa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00b0}
0x4baa…4bbc               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x00c2}
0x4bbc…4bce               Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0030, t01=0x00d4}
0x4bce…4be0               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x00e6}
0x4be0…4bf2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00f8}
0x4bf2…4bfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010a}
0x4bfc…4c10               Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0030, t01=0x0114}
0x4c10…4c22               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0030, t01=0x0128}
0x4c22…4c2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013a}
0x4c2c…4c48               Head {h00=0x0018, h01=0x0050, text=»*    DATA SET OPEN? «, t00=0x0030, t01=0x0144}
0x4c48…4c52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0160}
0x4c52…4c74               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0030, t01=0x016a}
0x4c74…4c8a               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0030, t01=0x018c}
0x4c8a…4ca8               Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0031, t01=0x0012}
0x4ca8…4ce0               Head {h00=0x0034, h01=0x0050, text=» ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0031, t01=0x0030}
0x4ce0…4cea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0068}
0x4cea…4d1a               Head {h00=0x002c, h01=0x0050, text=»*  READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0031, t01=0x0072}
0x4d1a…4d24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a2}
0x4d24…4d48               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0031, t01=0x00ac}
0x4d48…4d72               Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0031, t01=0x00d0}
0x4d72…4d9a               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0031, t01=0x00fa}
0x4d9a…4da6               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0031, t01=0x0122}
0x4da6…4db0               Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0031, t01=0x012e}
0x4db0…4dd8               Head {h00=0x0024, h01=0x0050, text=»*------------------------------ «, t00=0x0031, t01=0x0138}
0x4dd8…4e18               Head {h00=0x003c, h01=0x0050, text=»*  TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0031, t01=0x0160}
0x4e18…4e22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0010}
0x4e22…4e44               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0032, t01=0x001a}
0x4e44…4e4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003c}
0x4e4e…4e6a               Head {h00=0x0018, h01=0x0050, text=»*  DIVIDE EOD BY 26 «, t00=0x0032, t01=0x0046}
0x4e6a…4e74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0062}
0x4e74…4e86               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0032, t01=0x006c}
0x4e86…4e9e               Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0032, t01=0x007e}
0x4e9e…4eb4               Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0032, t01=0x0096}
0x4eb4…4ec6               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0032, t01=0x00ac}
0x4ec6…4ed8               Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0032, t01=0x00be}
0x4ed8…4ef0               Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0032, t01=0x00d0}
0x4ef0…4efa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e8}
0x4efa…4f1a               Head {h00=0x001c, h01=0x0050, text=»*   A1 = BINARY TRACK NO«, t00=0x0032, t01=0x00f2}
0x4f1a…4f48               Head {h00=0x002a, h01=0x0050, text=»*   A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0032, t01=0x0112}
0x4f48…4f52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0140}
0x4f52…4f7e               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0032, t01=0x014a}
0x4f7e…4faa               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0032, t01=0x0176}
0x4faa…4fbc               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0033, t01=0x0012}
0x4fbc…4fce               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x0024}
0x4fce…4fea               Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0033, t01=0x0036}
0x4fea…500c               Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0033, t01=0x0052}
0x500c…5024               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0033, t01=0x0074}
0x5024…5050               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0033, t01=0x008c}
0x5050…5062               Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0033, t01=0x00b8}
0x5062…5084               Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0033, t01=0x00ca}
0x5084…50a2               Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x0033, t01=0x00ec}
0x50a2…50ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x010a}
0x50ac…50cc               Head {h00=0x001c, h01=0x0050, text=»*  WRITE DATA SET LABEL «, t00=0x0033, t01=0x0114}
0x50cc…50d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0134}
0x50d6…50fa               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0033, t01=0x013e}
0x50fa…511a               Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0033, t01=0x0162}
0x511a…5146               Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0033, t01=0x0182}
0x5146…516e               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0034, t01=0x001e}
0x516e…5184               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0034, t01=0x0046}
0x5184…51a6               Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0034, t01=0x005c}
0x51a6…51b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x007e}
0x51b0…51c4               Head {h00=0x0010, h01=0x0050, text=»*    UNLOCK «, t00=0x0034, t01=0x0088}
0x51c4…51ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x009c}
0x51ce…51da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00a6}
0x51da…51ee               Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0034, t01=0x00b2}
0x51ee…5208               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0034, t01=0x00c6}
0x5208…521e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x00e0}
0x521e…5238               Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0034, t01=0x00f6}
0x5238…524a               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x0110}
0x524a…527a               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED«, t00=0x0034, t01=0x0122}
0x527a…529c               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 INDEX MASK«, t00=0x0034, t01=0x0152}
0x529c…52cc               Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0034, t01=0x0174}
0x52cc…52e0               Head {h00=0x0010, h01=0x0050, text=»UNL:80 EQU *«, t00=0x0035, t01=0x0014}
0x52e0…52fa               Head {h00=0x0016, h01=0x0050, text=» RB LOA:75 END:IO «, t00=0x0035, t01=0x0028}
0x52fa…5312               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0035, t01=0x0042}
0x5312…531c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x005a}
0x531c…5340               Head {h00=0x0020, h01=0x0050, text=»*   UNLOAD RETURN CODE CHECK«, t00=0x0035, t01=0x0064}
0x5340…534a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0088}
0x534a…536a               Head {h00=0x001c, h01=0x0050, text=»UNL:RC ORS A3,DWTRCW,A6 «, t00=0x0035, t01=0x0092}
0x536a…538a               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/7 FATAL ERROR? «, t00=0x0035, t01=0x00b2}
0x538a…53a6               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) UNL:80 ENDIO«, t00=0x0035, t01=0x00d2}
0x53a6…53b6               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0035, t01=0x00ee}
0x53b6…53c2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00fe}
0x53c2…53d4               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0035, t01=0x010a}
0x53d4…53ec               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0035, t01=0x011c}
0x53ec…53f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0134}
0x53f6…5412               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0035, t01=0x013e}
0x5412…542e               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0035, t01=0x015a}
0x542e…544a               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0035, t01=0x0176}
0x544a…5454 (54, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0004}
0x5454…5468               Head {h00=0x0010, h01=0x0050, text=»SQREAD EQU *«, t00=0x0036, t01=0x000e}
0x5468…5496               Head {h00=0x002a, h01=0x0050, text=» CF A5,DSOPCH GET EOD AND EOD ADDRESS «, t00=0x0036, t01=0x0022}
0x5496…54ac               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0036, t01=0x0050}
0x54ac…54d2               Head {h00=0x0022, h01=0x0050, text=»SQR:05 ABL(Z) DISIOE NOT OPEN «, t00=0x0036, t01=0x0066}
0x54d2…5504               Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0036, t01=0x008c}
0x5504…551c               Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0036, t01=0x00be}
0x551c…5534               Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0036, t01=0x00d6}
0x5534…555e               Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBCW,A8 STORE CRN+1 IN ECB«, t00=0x0036, t01=0x00ee}
0x555e…5570               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0036, t01=0x0118}
0x5570…5592               Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0036, t01=0x012a}
0x5592…55a8               Head {h00=0x0012, h01=0x0050, text=» CF A5,BIO:RE «, t00=0x0036, t01=0x014c}
0x55a8…55cc               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0036, t01=0x0162}
0x55cc…5602               Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0036, t01=0x0186}
0x5602…562e               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0037, t01=0x002c}
0x562e…5656               Head {h00=0x0024, h01=0x0050, text=» LD A7,ECBRL,A8 REQUESTED LENGTH«, t00=0x0037, t01=0x0058}
0x5656…567e               Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0037, t01=0x0080}
0x567e…5694               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0037, t01=0x00a8}
0x5694…56a8               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0037, t01=0x00be}
0x56a8…56c6               Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x0037, t01=0x00d2}
0x56c6…56d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00f0}
0x56d0…56e8               Head {h00=0x0014, h01=0x0050, text=»*    END OF DATA«, t00=0x0037, t01=0x00fa}
0x56e8…56f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0112}
0x56f2…571a               Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x0037, t01=0x011c}
0x571a…572c               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0037, t01=0x0144}
0x572c…5744               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0037, t01=0x0156}
0x5744…574e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x016e}
0x574e…576a               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0037, t01=0x0178}
0x576a…5786 (56, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x0038, t01=0x0004}
0x5786…57a2               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x0020}
0x57a2…57ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x003c}
0x57ac…57c0               Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0038, t01=0x0046}
0x57c0…57de               Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0038, t01=0x005a}
0x57de…5800               Head {h00=0x001e, h01=0x0050, text=» ADK A7,0 EOD-NO (SET CR) «, t00=0x0038, t01=0x0078}
0x5800…581e               Head {h00=0x001a, h01=0x0050, text=» RB(Z) SQR:05 NOT OPEN«, t00=0x0038, t01=0x009a}
0x581e…5828               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b8}
0x5828…584a               Head {h00=0x001e, h01=0x0050, text=»*   CHECK IF END OF EXTENT«, t00=0x0038, t01=0x00c2}
0x584a…5854               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e4}
0x5854…586a               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0038, t01=0x00ee}
0x586a…5894               Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x0038, t01=0x0104}
0x5894…58c2               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD IN ECB C. W.«, t00=0x0038, t01=0x012e}
0x58c2…58d6               Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x0038, t01=0x015c}
0x58d6…58f4               Head {h00=0x001a, h01=0x0050, text=» RF(G) SQW:20 YES,EOE «, t00=0x0038, t01=0x0170}
0x58f4…5906               Head {h00=0x000e, h01=0x0050, text=» CF A5,BIO«, t00=0x0038, t01=0x018e}
0x5906…591a               Head {h00=0x0010, h01=0x0050, text=» LDK A7,128 «, t00=0x0039, t01=0x0010}
0x591a…594a               Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x0039, t01=0x0024}
0x594a…5968               Head {h00=0x001a, h01=0x0050, text=» ORK A2,5 PHYS. WRITE «, t00=0x0039, t01=0x0054}
0x5968…597e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0039, t01=0x0072}
0x597e…5994               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0039, t01=0x0088}
0x5994…59b8               Head {h00=0x0020, h01=0x0050, text=»SQW:10 LDR A1,A3 RETURN CODE«, t00=0x0039, t01=0x009e}
0x59b8…59ca               Head {h00=0x000e, h01=0x0050, text=» ANK A1,/1«, t00=0x0039, t01=0x00c2}
0x59ca…59ee               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SQW:15 NOT OPERABLE «, t00=0x0039, t01=0x00d4}
0x59ee…5a1c               Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x0039, t01=0x00f8}
0x5a1c…5a34               Head {h00=0x0014, h01=0x0050, text=»SQW:15 RF FD:RC «, t00=0x0039, t01=0x0126}
0x5a34…5a3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x013e}
0x5a3e…5a48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0148}
0x5a48…5a60               Head {h00=0x0014, h01=0x0050, text=»*  END OF EXTENT«, t00=0x0039, t01=0x0152}
0x5a60…5a88               Head {h00=0x0024, h01=0x0050, text=»SQW:20 LDKL A1,/400 RETURN CODE «, t00=0x0039, t01=0x016a}
0x5a88…5a9a (58, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003a, t01=0x0004}
0x5a9a…5ab2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003a, t01=0x0016}
0x5ab2…5abc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x002e}
0x5abc…5ace               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0038}
0x5ace…5ae0               Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003a, t01=0x004a}
0x5ae0…5af2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x005c}
0x5af2…5afc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x006e}
0x5afc…5b10               Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003a, t01=0x0078}
0x5b10…5b26               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003a, t01=0x008c}
0x5b26…5b44               Head {h00=0x001a, h01=0x0050, text=» ADK A7,0 EOD (SET CR)«, t00=0x003a, t01=0x00a2}
0x5b44…5b6c               Head {h00=0x0024, h01=0x0050, text=» RB(Z) SQR:05 DATA SET NOT OPEN «, t00=0x003a, t01=0x00c0}
0x5b6c…5b90               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x003a, t01=0x00e8}
0x5b90…5ba6               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x003a, t01=0x010c}
0x5ba6…5bba               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003a, t01=0x0122}
0x5bba…5bd2               Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x003a, t01=0x0136}
0x5bd2…5bee               Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x003a, t01=0x014e}
0x5bee…5c04               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003a, t01=0x016a}
0x5c04…5c18               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003a, t01=0x0180}
0x5c18…5c32 (59, 0, 400)  Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x003b, t01=0x0004}
0x5c32…5c52               Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x003b, t01=0x001e}
0x5c52…5c70               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x003e}
0x5c70…5c82               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003b, t01=0x005c}
0x5c82…5c8e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x006e}
0x5c8e…5ca6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003b, t01=0x007a}
0x5ca6…5cb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0092}
0x5cb0…5cca               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x003b, t01=0x009c}
0x5cca…5ce4               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x003b, t01=0x00b6}
0x5ce4…5cfe               Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x003b, t01=0x00d0}
0x5cfe…5d18               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x003b, t01=0x00ea}
0x5d18…5d32               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x003b, t01=0x0104}
0x5d32…5d3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x011e}
0x5d3c…5d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0128}
0x5d46…5d6a               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A2  BIO CONTENTS «, t00=0x003b, t01=0x0132}
0x5d6a…5d9e               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x003b, t01=0x0156}
0x5d9e…5dc4               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x003b, t01=0x018a}
0x5dc4…5dce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0020}
0x5dce…5de2               Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x003c, t01=0x002a}
0x5de2…5df6               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003c, t01=0x003e}
0x5df6…5e18               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x003c, t01=0x0052}
0x5e18…5e24               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0074}
0x5e24…5e38               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003c, t01=0x0080}
0x5e38…5e64               Head {h00=0x0028, h01=0x0050, text=» CM DWTRW,A6 INDICATOR TO WRITE MODE«, t00=0x003c, t01=0x0094}
0x5e64…5e70               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00c0}
0x5e70…5e82               Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x003c, t01=0x00cc}
0x5e82…5e8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00de}
0x5e8c…5ea0               Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x003c, t01=0x00e8}
0x5ea0…5eb4               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003c, t01=0x00fc}
0x5eb4…5ec6               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x003c, t01=0x0110}
0x5ec6…5ee8               Head {h00=0x001e, h01=0x0050, text=» ST A1,DWTRW,A6 READ MODE «, t00=0x003c, t01=0x0122}
0x5ee8…5ef4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0144}
0x5ef4…5f08               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003c, t01=0x0150}
0x5f08…5f2a               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS  READ«, t00=0x003c, t01=0x0164}
0x5f2a…5f36               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0186}
0x5f36…5f4a (61, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x003d, t01=0x0004}
0x5f4a…5f5e               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003d, t01=0x0018}
0x5f5e…5f84               Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x003d, t01=0x002c}
0x5f84…5f8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0052}
0x5f8e…5fa4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x005c}
0x5fa4…5fce               Head {h00=0x0026, h01=0x0050, text=» ORR* A1,A8 GET FIRST WORD OF ECB «, t00=0x003d, t01=0x0072}
0x5fce…5ffc               Head {h00=0x002a, h01=0x0050, text=» ANKL A1,/F000 KEEP FOUR LEFTMOST BITS«, t00=0x003d, t01=0x009c}
0x5ffc…6008               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00ca}
0x6008…6012               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00d6}
0x6012…6026               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003d, t01=0x00e0}
0x6026…6038               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x003d, t01=0x00f4}
0x6038…605c               Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x003d, t01=0x0106}
0x605c…6084               Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x003d, t01=0x012a}
0x6084…6090               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0152}
0x6090…60a4               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003d, t01=0x015e}
0x60a4…60ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0172}
0x60ae…60c6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003d, t01=0x017c}
0x60c6…60d0 (62, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0004}
0x60d0…6102               Head {h00=0x002e, h01=0x0050, text=»*  PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x003e, t01=0x000e}
0x6102…610c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0040}
0x610c…6124               Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x003e, t01=0x004a}
0x6124…6136               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x003e, t01=0x0062}
0x6136…615c               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x003e, t01=0x0074}
0x615c…6168               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x009a}
0x6168…617c               Head {h00=0x0010, h01=0x0050, text=»FD:820 EQU *«, t00=0x003e, t01=0x00a6}
0x617c…61a6               Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x003e, t01=0x00ba}
0x61a6…61ce               Head {h00=0x0024, h01=0x0050, text=»FD:CIO CIO A2,1,CUADR CIO-START «, t00=0x003e, t01=0x00e4}
0x61ce…61fa               Head {h00=0x0028, h01=0x0050, text=» RF(3) FD:840 DEVICE ADDRESS UNKNOWN«, t00=0x003e, t01=0x010c}
0x61fa…620c               Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x003e, t01=0x0138}
0x620c…6230               Head {h00=0x0020, h01=0x0050, text=»FD:840 LDK A1,1 NOT OPERABLE«, t00=0x003e, t01=0x014a}
0x6230…6242               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003e, t01=0x016e}
0x6242…625a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003e, t01=0x0180}
0x625a…6264               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0008}
0x6264…6292               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x0012}
0x6292…62c0               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x003f, t01=0x0040}
0x62c0…62ee               Head {h00=0x002a, h01=0x0050, text=»*  FD:RC - STORE EFF LEN, END:IO     *«, t00=0x003f, t01=0x006e}
0x62ee…631c               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x003f, t01=0x009c}
0x631c…634a               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x00ca}
0x634a…6354               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00f8}
0x6354…6376               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A3  RETURN CODE«, t00=0x003f, t01=0x0102}
0x6376…6380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0124}
0x6380…6394               Head {h00=0x0010, h01=0x0050, text=»FD:RC EQU * «, t00=0x003f, t01=0x012e}
0x6394…63a6               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003f, t01=0x0142}
0x63a6…63b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0154}
0x63b0…63d6               Head {h00=0x0022, h01=0x0050, text=»*  PUT EFFECTIVE LENGTH IN ECB«, t00=0x003f, t01=0x015e}
0x63d6…63e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0184}
0x63e0…6402               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBRL,A8 REQ LENGTH«, t00=0x003f, t01=0x018e}
0x6402…6424               Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBEL,A8 EFF LENGTH«, t00=0x0040, t01=0x0020}
0x6424…643c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0040, t01=0x0042}
0x643c…6446               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x005a}
0x6446…6458               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x0064}
0x6458…646a               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0040, t01=0x0076}
0x646a…647c               Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x0040, t01=0x0088}
0x647c…648e               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0040, t01=0x009a}
0x648e…64a0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x00ac}
0x64a0…64aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00be}
0x64aa…64be               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0040, t01=0x00c8}
0x64be…64d4               Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0040, t01=0x00dc}
0x64d4…64ec               Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0040, t01=0x00f2}
0x64ec…64f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x010a}
0x64f6…6500               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0114}
0x6500…6526               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY FROM RECOVERY ROUTINE«, t00=0x0040, t01=0x011e}
0x6526…6530               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0144}
0x6530…6544               Head {h00=0x0010, h01=0x0050, text=»END:05 EQU *«, t00=0x0040, t01=0x014e}
0x6544…654e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0162}
0x654e…6568               Head {h00=0x0016, h01=0x0050, text=»*  ILLEGAL LENGTH «, t00=0x0040, t01=0x016c}
0x6568…6572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0186}
0x6572…6596               Head {h00=0x0020, h01=0x0050, text=»END:10 LDK A1,8 RETURN CODE «, t00=0x0040, t01=0x0190}
0x6596…65a8               Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0041, t01=0x0024}
0x65a8…65c0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0041, t01=0x0036}
0x65c0…65ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x004e}
0x65ca…65e6               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0041, t01=0x0058}
0x65e6…6602               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0041, t01=0x0074}
0x6602…661e               Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0041, t01=0x0090}
0x661e…663a               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0041, t01=0x00ac}
0x663a…6656               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0041, t01=0x00c8}
0x6656…6660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00e4}
0x6660…6672               Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x0041, t01=0x00ee}
0x6672…6688               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0041, t01=0x0100}
0x6688…66b2               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0041, t01=0x0116}
0x66b2…66be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0140}
0x66be…66c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x014c}
0x66c8…66de               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0041, t01=0x0156}
0x66de…6704               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0041, t01=0x016c}
0x6704…6710 (66, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0004}
0x6710…671a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0010}
0x671a…673e               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0042, t01=0x001a}
0x673e…6748               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x003e}
0x6748…675c               Head {h00=0x0010, h01=0x0050, text=»FDON05 EQU *«, t00=0x0042, t01=0x0048}
0x675c…677e               Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0042, t01=0x005c}
0x677e…6796               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0042, t01=0x007e}
0x6796…67b8               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x0042, t01=0x0096}
0x67b8…67c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b8}
0x67c2…67de               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0042, t01=0x00c2}
0x67de…680e               Head {h00=0x002c, h01=0x0050, text=» LD A2,INIFLG CHECK INITIALIZATION FLAG «, t00=0x0042, t01=0x00de}
0x680e…682e               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON07 POWER UP? «, t00=0x0042, t01=0x010e}
0x682e…686c               Head {h00=0x003a, h01=0x0050, text=» LD A2,SCTPLD GET FILE CODE OF PROGRAM LOADING DEVICE «, t00=0x0042, t01=0x012e}
0x686c…6880               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F8 «, t00=0x0042, t01=0x016c}
0x6880…68a8               Head {h00=0x0024, h01=0x0050, text=» RF(N) FDON07 NOT FLEXIBLE DISC?«, t00=0x0042, t01=0x0180}
0x68a8…68ba               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0043, t01=0x0018}
0x68ba…68ec               Head {h00=0x002e, h01=0x0050, text=» CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION «, t00=0x0043, t01=0x002a}
0x68ec…6918               Head {h00=0x0028, h01=0x0050, text=» CF A5,FDIX GET DRIVE BIT INDICATOR «, t00=0x0043, t01=0x005c}
0x6918…6946               Head {h00=0x002a, h01=0x0050, text=» ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED«, t00=0x0043, t01=0x0088}
0x6946…6950               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00b6}
0x6950…6968               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0043, t01=0x00c0}
0x6968…6972               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00d8}
0x6972…697c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00e2}
0x697c…698e               Head {h00=0x000e, h01=0x0050, text=» C1R A3,A3«, t00=0x0043, t01=0x00ec}
0x698e…69bc               Head {h00=0x002a, h01=0x0050, text=» ANS A3,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0043, t01=0x00fe}
0x69bc…69c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x012c}
0x69c6…69f4               Head {h00=0x002a, h01=0x0050, text=»* READ VOLUME NAME (A2 = 0 FROM FDIX) «, t00=0x0043, t01=0x0136}
0x69f4…69fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0164}
0x69fe…6a10               Head {h00=0x000e, h01=0x0050, text=» LDK A3,8 «, t00=0x0043, t01=0x016e}
0x6a10…6a24               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0043, t01=0x0180}
0x6a24…6a3a (68, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0044, t01=0x0004}
0x6a3a…6a50               Head {h00=0x0012, h01=0x0050, text=» LD A3,SCTPLD «, t00=0x0044, t01=0x001a}
0x6a50…6a84               Head {h00=0x0030, h01=0x0050, text=» CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT«, t00=0x0044, t01=0x0030}
0x6a84…6a96               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0044, t01=0x0064}
0x6a96…6aa8               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x0044, t01=0x0076}
0x6aa8…6ab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0088}
0x6ab2…6ad4               Head {h00=0x001e, h01=0x0050, text=»* MOVE VOLUME NAME TO DWT «, t00=0x0044, t01=0x0092}
0x6ad4…6ade               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00b4}
0x6ade…6afa               Head {h00=0x0018, h01=0x0050, text=»FDON06 LD A4,BUF,A1 «, t00=0x0044, t01=0x00be}
0x6afa…6b0c               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0044, t01=0x00da}
0x6b0c…6b1e               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0044, t01=0x00ec}
0x6b1e…6b30               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0044, t01=0x00fe}
0x6b30…6b42               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0044, t01=0x0110}
0x6b42…6b58               Head {h00=0x0012, h01=0x0050, text=» RB(P) FDON06 «, t00=0x0044, t01=0x0122}
0x6b58…6b62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0138}
0x6b62…6b76               Head {h00=0x0010, h01=0x0050, text=»FDON07 EQU *«, t00=0x0044, t01=0x0142}
0x6b76…6b82               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0156}
0x6b82…6b8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0162}
0x6b8c…6ba4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0044, t01=0x016c}
0x6ba4…6bae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0184}
0x6bae…6be2               Head {h00=0x0030, h01=0x0050, text=»*  SAVE DWTST TO DWTST2 IF NOT ALREADY DONE.«, t00=0x0044, t01=0x018e}
0x6be2…6c00               Head {h00=0x001a, h01=0x0050, text=»*    DWTST IS SET BUSY«, t00=0x0045, t01=0x0032}
0x6c00…6c0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0050}
0x6c0a…6c22               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST2,A6«, t00=0x0045, t01=0x005a}
0x6c22…6c34               Head {h00=0x000e, h01=0x0050, text=» CWK A2,-1«, t00=0x0045, t01=0x0072}
0x6c34…6c58               Head {h00=0x0020, h01=0x0050, text=» RF(NE) FDON08 ALREADY SAVED«, t00=0x0045, t01=0x0084}
0x6c58…6c70               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0045, t01=0x00a8}
0x6c70…6c88               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST2,A6«, t00=0x0045, t01=0x00c0}
0x6c88…6cac               Head {h00=0x0020, h01=0x0050, text=»FDON08 CM DWTST,A6 SET BUSY «, t00=0x0045, t01=0x00d8}
0x6cac…6cb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00fc}
0x6cb6…6ccc               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0045, t01=0x0106}
0x6ccc…6cd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x011c}
0x6cd6…6ce4               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0126}
0x6ce4…6cee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0134}
0x6cee…6d2c               Head {h00=0x003a, h01=0x0050, text=»*    TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x0045, t01=0x013e}
0x6d2c…6d52               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x0045, t01=0x017c}
0x6d52…6d74               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x0046, t01=0x0012}
0x6d74…6d8e               Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x0046, t01=0x0034}
0x6d8e…6db6               Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x0046, t01=0x004e}
0x6db6…6dca               Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x0046, t01=0x0076}
0x6dca…6dd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008a}
0x6dd4…6e0e               Head {h00=0x0036, h01=0x0050, text=»*    OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x0046, t01=0x0094}
0x6e0e…6e44               Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x0046, t01=0x00ce}
0x6e44…6e4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0104}
0x6e4e…6e78               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x0046, t01=0x010e}
0x6e78…6ea0               Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x0046, t01=0x0138}
0x6ea0…6ebe               Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x0046, t01=0x0160}
0x6ebe…6eea               Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x0046, t01=0x017e}
0x6eea…6ef4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x001a}
0x6ef4…6f08               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0047, t01=0x0024}
0x6f08…6f32               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x0047, t01=0x0038}
0x6f32…6f3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0062}
0x6f3c…6f48               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x006c}
0x6f48…6f52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0078}
0x6f52…6f60               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0082}
0x6f60…6f6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0090}
0x6f6a…6f80               Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0047, t01=0x009a}
0x6f80…6f8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00b0}
0x6f8a…6fa2               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0047, t01=0x00ba}
0x6fa2…6fc4               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0047, t01=0x00d2}
0x6fc4…6fda               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0047, t01=0x00f4}
0x6fda…7000               Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0047, t01=0x010a}
0x7000…7012               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0047, t01=0x0130}
0x7012…702e               Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0047, t01=0x0142}
0x702e…7040               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0047, t01=0x015e}
0x7040…705a               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0047, t01=0x0170}
0x705a…7070               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0047, t01=0x018a}
0x7070…708a               Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0048, t01=0x0010}
0x708a…709c               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0048, t01=0x002a}
0x709c…70a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x003c}
0x70a6…70c2               Head {h00=0x0018, h01=0x0050, text=»*   TIME OUT ROUTINE«, t00=0x0048, t01=0x0046}
0x70c2…70cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0062}
0x70cc…70e4               Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0048, t01=0x006c}
0x70e4…70f8               Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0048, t01=0x0084}
0x70f8…7110               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0048, t01=0x0098}
0x7110…712e               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0048, t01=0x00b0}
0x712e…7138               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ce}
0x7138…714e               Head {h00=0x0012, h01=0x0050, text=»*  LOCK DOORS «, t00=0x0048, t01=0x00d8}
0x714e…7158               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ee}
0x7158…716a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0048, t01=0x00f8}
0x716a…717e               Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0048, t01=0x010a}
0x717e…71a4               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0048, t01=0x011e}
0x71a4…71b6               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0048, t01=0x0144}
0x71b6…71d6               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0048, t01=0x0156}
0x71d6…71f2               Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0048, t01=0x0176}
0x71f2…71fc (73, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0004}
0x71fc…720a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x000e}
0x720a…7214               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x001c}
0x7214…7238               Head {h00=0x0020, h01=0x0050, text=»*  PUT DRIVE NO IN CIO INSTR«, t00=0x0049, t01=0x0026}
0x7238…7242               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x004a}
0x7242…7264               Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0049, t01=0x0054}
0x7264…7292               Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0049, t01=0x0076}
0x7292…72aa               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0049, t01=0x00a4}
0x72aa…72c0               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0049, t01=0x00bc}
0x72c0…72e2               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0049, t01=0x00d2}
0x72e2…72f4               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0049, t01=0x00f4}
0x72f4…730c               Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0049, t01=0x0106}
0x730c…7334               Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0049, t01=0x011e}
0x7334…7348               Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0049, t01=0x0146}
0x7348…735a               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0049, t01=0x015a}
0x735a…7370               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0049, t01=0x016c}
0x7370…7386               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0049, t01=0x0182}
0x7386…7390               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0008}
0x7390…73a6               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x004a, t01=0x0012}
0x73a6…73b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0028}
0x73b0…73f8               Head {h00=0x0044, h01=0x0050, text=»*    RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x004a, t01=0x0032}
0x73f8…7420               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x004a, t01=0x007a}
0x7420…7446               Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x004a, t01=0x00a2}
0x7446…7466               Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x004a, t01=0x00c8}
0x7466…7470               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00e8}
0x7470…7498               Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x004a, t01=0x00f2}
0x7498…74cc               Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x004a, t01=0x011a}
0x74cc…74ec               Head {h00=0x001c, h01=0x0050, text=»*   BEFORE THE POWER OFF«, t00=0x004a, t01=0x014e}
0x74ec…74f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x016e}
0x74f8…7502               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x017a}
0x7502…7510               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0184}
0x7510…751a (75, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0004}
0x751a…7532               Head {h00=0x0014, h01=0x0050, text=»*  ANY REQUEST? «, t00=0x004b, t01=0x000e}
0x7532…753c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0026}
0x753c…756e               Head {h00=0x002e, h01=0x0050, text=»*  RESTORE STATUS SAVED IN DWST2 TO DWTST.«, t00=0x004b, t01=0x0030}
0x756e…758a               Head {h00=0x0018, h01=0x0050, text=»*   SET DWTST2 TO -1«, t00=0x004b, t01=0x0062}
0x758a…75b0               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST2,A6 SAVED STATUS «, t00=0x004b, t01=0x007e}
0x75b0…75de               Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTST,A6 PUT IN CUURENT STATUS «, t00=0x004b, t01=0x00a4}
0x75de…75f2               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x004b, t01=0x00d2}
0x75f2…761e               Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTST2,A6 INDICATE NOT SAVED «, t00=0x004b, t01=0x00e6}
0x761e…7642               Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x004b, t01=0x0112}
0x7642…7656               Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x004b, t01=0x0136}
0x7656…766e               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x004b, t01=0x014a}
0x766e…76a2               Head {h00=0x0030, h01=0x0050, text=» ABL(N) END:05 NO REQUEST, RETURN VIA TENDIO«, t00=0x004b, t01=0x0162}
0x76a2…76ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0008}
0x76ac…76c4               Head {h00=0x0014, h01=0x0050, text=»*  RETRY REQUEST«, t00=0x004c, t01=0x0012}
0x76c4…76ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x002a}
0x76ce…76f2               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x004c, t01=0x0034}
0x76f2…770a               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x004c, t01=0x0058}
0x770a…7724               Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x004c, t01=0x0070}
0x7724…7748               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x004c, t01=0x008a}
0x7748…7764               Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x004c, t01=0x00ae}
0x7764…777c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x004c, t01=0x00ca}
0x777c…7786               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00e2}
0x7786…77a4               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x004c, t01=0x00ec}
0x77a4…77c2               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x004c, t01=0x010a}
0x77c2…77e0               Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x004c, t01=0x0128}
0x77e0…77fe               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x004c, t01=0x0146}
0x77fe…781c               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x004c, t01=0x0164}
0x781c…7826               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0182}
0x7826…7838               Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x004c, t01=0x018c}
0x7838…7860               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x004d, t01=0x000e}
0x7860…7886               Head {h00=0x0022, h01=0x0050, text=»******************** =1 START «, t00=0x004d, t01=0x0036}
0x7886…789c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x004d, t01=0x005c}
0x789c…78ca               Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x004d, t01=0x0072}
0x78ca…78d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00a0}
0x78d6…78e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00ac}
0x78e0…78f6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004d, t01=0x00b6}
0x78f6…791c               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x004d, t01=0x00cc}
0x791c…7928               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00f2}
0x7928…7932               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00fe}
0x7932…7956               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x004d, t01=0x0108}
0x7956…796a               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x004d, t01=0x012c}
0x796a…7976               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x004d, t01=0x0140}
0x7976…79a0               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x004d, t01=0x014c}
0x79a0…79c6               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x004d, t01=0x0176}
0x79c6…79e0               Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x004e, t01=0x000c}
0x79e0…79f4               Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x004e, t01=0x0026}
0x79f4…7a14               Head {h00=0x001c, h01=0x0050, text=» SST A3,CUADR GET STATUS«, t00=0x004e, t01=0x003a}
0x7a14…7a3a               Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x004e, t01=0x005a}
0x7a3a…7a66               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x004e, t01=0x0080}
0x7a66…7a80               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x004e, t01=0x00ac}
0x7a80…7a8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00c6}
0x7a8a…7aa0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x004e, t01=0x00d0}
0x7aa0…7aaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e6}
0x7aaa…7ab4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00f0}
0x7ab4…7ac8               Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x004e, t01=0x00fa}
0x7ac8…7af0               Head {h00=0x0024, h01=0x0050, text=» LCR A3,A1 ONE BYTE FROM BUFFER «, t00=0x004e, t01=0x010e}
0x7af0…7b10               Head {h00=0x001c, h01=0x0050, text=» ECR A3,A3 LEFT POSITION«, t00=0x004e, t01=0x0136}
0x7b10…7b3a               Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A1 RIGHT BYTE FROM BUFFER«, t00=0x004e, t01=0x0156}
0x7b3a…7b58               Head {h00=0x001a, h01=0x0050, text=» OTR A3,0,CUADR WRITE «, t00=0x004e, t01=0x0180}
0x7b58…7b6e               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x004f, t01=0x000e}
0x7b6e…7b96               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x004f, t01=0x0024}
0x7b96…7ba8               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004f, t01=0x004c}
0x7ba8…7bbc               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x004f, t01=0x005e}
0x7bbc…7bdc               Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x004f, t01=0x0072}
0x7bdc…7bfe               Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x004f, t01=0x0092}
0x7bfe…7c08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00b4}
0x7c08…7c1c               Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x004f, t01=0x00be}
0x7c1c…7c38               Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR READ«, t00=0x004f, t01=0x00d2}
0x7c38…7c4e               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x004f, t01=0x00ee}
0x7c4e…7c76               Head {h00=0x0024, h01=0x0050, text=» SC A3,1,A1 RIGHT BYTE TO BUFFER«, t00=0x004f, t01=0x0104}
0x7c76…7c88               Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x004f, t01=0x012c}
0x7c88…7cae               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 LEFT BYTE TO BUFFER«, t00=0x004f, t01=0x013e}
0x7cae…7cd6               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x004f, t01=0x0164}
0x7cd6…7ce8               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004f, t01=0x018c}
0x7ce8…7cfc               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x0050, t01=0x000e}
0x7cfc…7d1c               Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0050, t01=0x0022}
0x7d1c…7d3c               Head {h00=0x001c, h01=0x0050, text=» SST A3,CUADR STATUS =2 «, t00=0x0050, t01=0x0042}
0x7d3c…7d54               Head {h00=0x0014, h01=0x0050, text=» RB(NA) *-2  =2 «, t00=0x0050, t01=0x0062}
0x7d54…7d6c               Head {h00=0x0014, h01=0x0050, text=»IH:000 EQU *  =1«, t00=0x0050, t01=0x007a}
0x7d6c…7d78               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0092}
0x7d78…7d82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x009e}
0x7d82…7d98               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0050, t01=0x00a8}
0x7d98…7da2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00be}
0x7da2…7dac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00c8}
0x7dac…7dd0               Head {h00=0x0020, h01=0x0050, text=»******************** =1 END «, t00=0x0050, t01=0x00d2}
0x7dd0…7de8               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN=0  =2 «, t00=0x0050, t01=0x00f6}
0x7de8…7e04               Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0050, t01=0x010e}
0x7e04…7e16               Head {h00=0x000e, h01=0x0050, text=» XIF   =2 «, t00=0x0050, t01=0x012a}
0x7e16…7e3a               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0050, t01=0x013c}
0x7e3a…7e5e               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0050, t01=0x0160}
0x7e5e…7e84               Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0050, t01=0x0184}
0x7e84…7e96               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0051, t01=0x001a}
0x7e96…7eba               Head {h00=0x0020, h01=0x0050, text=» RF(N) FDRE READY INTERRUPT «, t00=0x0051, t01=0x002c}
0x7eba…7ecc               Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0051, t01=0x0050}
0x7ecc…7eec               Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY? «, t00=0x0051, t01=0x0062}
0x7eec…7f04               Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0051, t01=0x0082}
0x7f04…7f2a               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0051, t01=0x009a}
0x7f2a…7f3c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0051, t01=0x00c0}
0x7f3c…7f52               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0405«, t00=0x0051, t01=0x00d2}
0x7f52…7f76               Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0051, t01=0x00e8}
0x7f76…7f88               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/4«, t00=0x0051, t01=0x010c}
0x7f88…7fa4               Head {h00=0x0018, h01=0x0050, text=» ORR A3,A1 CRC ERROR«, t00=0x0051, t01=0x011e}
0x7fa4…7fb8               Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0051, t01=0x013a}
0x7fb8…7fc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x014e}
0x7fc2…7fd8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0051, t01=0x0158}
0x7fd8…7fe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x016e}
0x7fe2…800c               Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0051, t01=0x0178}
0x800c…8016               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0012}
0x8016…802c               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0052, t01=0x001c}
0x802c…8040               Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0052, t01=0x0032}
0x8040…8052               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0052, t01=0x0046}
0x8052…8078               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0052, t01=0x0058}
0x8078…808a               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0052, t01=0x007e}
0x808a…80a6               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x0052, t01=0x0090}
0x80a6…80c2               Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x0052, t01=0x00ac}
0x80c2…80d4               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0052, t01=0x00c8}
0x80d4…80ec               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0052, t01=0x00da}
0x80ec…80fe               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0052, t01=0x00f2}
0x80fe…811a               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x0052, t01=0x0104}
0x811a…8134               Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x0052, t01=0x0120}
0x8134…8146               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0052, t01=0x013a}
0x8146…8152               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x014c}
0x8152…8164               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0052, t01=0x0158}
0x8164…817e               Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x0052, t01=0x016a}
0x817e…8198               Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x0052, t01=0x0184}
0x8198…81aa               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0053, t01=0x000e}
0x81aa…81c4               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x0053, t01=0x0020}
0x81c4…81de               Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x0053, t01=0x003a}
0x81de…81f0               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0053, t01=0x0054}
0x81f0…8204               Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x0053, t01=0x0066}
0x8204…821a               Head {h00=0x0012, h01=0x0050, text=» IFT CHAN=1 =1«, t00=0x0053, t01=0x007a}
0x821a…822a               Head {h00=0x000c, h01=0x0050, text=» INH  =1«, t00=0x0053, t01=0x0090}
0x822a…823a               Head {h00=0x000c, h01=0x0050, text=» XIF  =1«, t00=0x0053, t01=0x00a0}
0x823a…824a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x00b0}
0x824a…8262               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0053, t01=0x00c0}
0x8262…826c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00d8}
0x826c…8288               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x00e2}
0x8288…82a4               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0053, t01=0x00fe}
0x82a4…82c0               Head {h00=0x0018, h01=0x0050, text=»*  READY INTERRUPT *«, t00=0x0053, t01=0x011a}
0x82c0…82dc               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0053, t01=0x0136}
0x82dc…82f8               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x0152}
0x82f8…8302               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x016e}
0x8302…8314               Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x0053, t01=0x0178}
0x8314…832c               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0053, t01=0x018a}
0x832c…835c               Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE «, t00=0x0054, t01=0x0012}
0x835c…8374               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0054, t01=0x0042}
0x8374…8392               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0054, t01=0x005a}
0x8392…83a4               Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x0054, t01=0x0078}
0x83a4…83bc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0054, t01=0x008a}
0x83bc…83c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00a2}
0x83c6…83fa               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0054, t01=0x00ac}
0x83fa…842e               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0054, t01=0x00e0}
0x842e…8462               Head {h00=0x0030, h01=0x0050, text=»*    S U B R O U T I N E S                * «, t00=0x0054, t01=0x0114}
0x8462…8496               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0054, t01=0x0148}
0x8496…84ca               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0054, t01=0x017c}
0x84ca…84d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0020}
0x84d4…84e4               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0055, t01=0x002a}
0x84e4…84f4               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0055, t01=0x003a}
0x84f4…8504               Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x0055, t01=0x004a}
0x8504…8514               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0055, t01=0x005a}
0x8514…8524               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0055, t01=0x006a}
0x8524…852e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x007a}
0x852e…8538               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0084}
0x8538…855a               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x0055, t01=0x008e}
0x855a…8564               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00b0}
0x8564…85a6               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x0055, t01=0x00ba}
0x85a6…85da               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x0055, t01=0x00fc}
0x85da…8600               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x0055, t01=0x0130}
0x8600…860a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0156}
0x860a…861c               Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x0055, t01=0x0160}
0x861c…8632               Head {h00=0x0012, h01=0x0050, text=» LDK A4,0 FLAG«, t00=0x0055, t01=0x0172}
0x8632…8644               Head {h00=0x000e, h01=0x0050, text=» RF BIO010«, t00=0x0055, t01=0x0188}
0x8644…865c               Head {h00=0x0014, h01=0x0050, text=»BIO:RE LDK A4,1 «, t00=0x0056, t01=0x000a}
0x865c…8670               Head {h00=0x0010, h01=0x0050, text=»BIO010 EQU *«, t00=0x0056, t01=0x0022}
0x8670…8690               Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBRL,A8 REQ LEN «, t00=0x0056, t01=0x0036}
0x8690…86b4               Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOERR ILLEGAL LENGTH«, t00=0x0056, t01=0x0056}
0x86b4…86cc               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0056, t01=0x007a}
0x86cc…86e4               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTLAB,A6«, t00=0x0056, t01=0x0092}
0x86e4…86fc               Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTA3,A6 «, t00=0x0056, t01=0x00aa}
0x86fc…871c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) BIO020 TOSS DISC «, t00=0x0056, t01=0x00c2}
0x871c…8728               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x00e2}
0x8728…873a               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0056, t01=0x00ee}
0x873a…8750               Head {h00=0x0012, h01=0x0050, text=» LDK A7,IBMLEN«, t00=0x0056, t01=0x0100}
0x8750…8762               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0056, t01=0x0116}
0x8762…876e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x0128}
0x876e…8786               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0056, t01=0x0134}
0x8786…8798               Head {h00=0x000e, h01=0x0050, text=» RF BIO030«, t00=0x0056, t01=0x014c}
0x8798…87a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x015e}
0x87a4…87b8               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0056, t01=0x016a}
0x87b8…87d6               Head {h00=0x001a, h01=0x0050, text=»BIO020 LDKL A7,TOSLEN «, t00=0x0056, t01=0x017e}
0x87d6…87e8               Head {h00=0x000e, h01=0x0050, text=» LDK A2,3 «, t00=0x0057, t01=0x000c}
0x87e8…87fc               Head {h00=0x0010, h01=0x0050, text=»BIO030 EQU *«, t00=0x0057, t01=0x001e}
0x87fc…8808               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0032}
0x8808…8820               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0057, t01=0x003e}
0x8820…8838               Head {h00=0x0014, h01=0x0050, text=» ADK A4,0 SET CR«, t00=0x0057, t01=0x0056}
0x8838…8854               Head {h00=0x0018, h01=0x0050, text=» RF(Z) BIO060 WRITE «, t00=0x0057, t01=0x006e}
0x8854…8866               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0057, t01=0x008a}
0x8866…8880               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A3 REQ LEN«, t00=0x0057, t01=0x009c}
0x8880…88aa               Head {h00=0x0026, h01=0x0050, text=» CWR A3,A7 REQ LENGTH WITHIN RANGE«, t00=0x0057, t01=0x00b6}
0x88aa…88c2               Head {h00=0x0014, h01=0x0050, text=» RF(G) BIOERR NO«, t00=0x0057, t01=0x00e0}
0x88c2…88dc               Head {h00=0x0016, h01=0x0050, text=»BIO040 SUK A1,128 «, t00=0x0057, t01=0x00f8}
0x88dc…88f2               Head {h00=0x0012, h01=0x0050, text=» RF(NP) BIO100«, t00=0x0057, t01=0x0112}
0x88f2…891c               Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT NO OF SECTORS «, t00=0x0057, t01=0x0128}
0x891c…892e               Head {h00=0x000e, h01=0x0050, text=» RB BIO040«, t00=0x0057, t01=0x0152}
0x892e…8938               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0164}
0x8938…895a               Head {h00=0x001e, h01=0x0050, text=»*  WRITE, CHECK REQ LENGTH«, t00=0x0057, t01=0x016e}
0x895a…8964               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0190}
0x8964…897c               Head {h00=0x0014, h01=0x0050, text=»BIO060 CWR A3,A7«, t00=0x0058, t01=0x000a}
0x897c…89a2               Head {h00=0x0022, h01=0x0050, text=» RF(NE) BIOERR ILLEGAL REQ LEN«, t00=0x0058, t01=0x0022}
0x89a2…89ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0048}
0x89ae…89c6               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0058, t01=0x0054}
0x89c6…89d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x006c}
0x89d0…8a12               Head {h00=0x003e, h01=0x0050, text=»*  FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH«, t00=0x0058, t01=0x0076}
0x8a12…8a1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b8}
0x8a1c…8a3a               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0058, t01=0x00c2}
0x8a3a…8a5c               Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 NO OF SECTORS-1 «, t00=0x0058, t01=0x00e0}
0x8a5c…8a84               Head {h00=0x0024, h01=0x0050, text=»BIO015 LDR A4,A4 READ OR WRITE? «, t00=0x0058, t01=0x0102}
0x8a84…8aa0               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BIO035 READ!«, t00=0x0058, t01=0x012a}
0x8aa0…8ab4               Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0058, t01=0x0146}
0x8ab4…8ada               Head {h00=0x0022, h01=0x0050, text=» RF(Z) BIO100 REQ LEN ACCEPTED«, t00=0x0058, t01=0x015a}
0x8ada…8aec               Head {h00=0x000e, h01=0x0050, text=» RF BIO045«, t00=0x0058, t01=0x0180}
0x8aec…8af6 (89, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0004}
0x8af6…8b10               Head {h00=0x0016, h01=0x0050, text=»BIO035 SUK A1,128 «, t00=0x0059, t01=0x000e}
0x8b10…8b3a               Head {h00=0x0026, h01=0x0050, text=» RF(NP) BIO100 REQ LENGTH ACCEPTED«, t00=0x0059, t01=0x0028}
0x8b3a…8b52               Head {h00=0x0014, h01=0x0050, text=»BIO045 ADK A2,1 «, t00=0x0059, t01=0x0052}
0x8b52…8b64               Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x0059, t01=0x006a}
0x8b64…8b7a               Head {h00=0x0012, h01=0x0050, text=» RB(NG) BIO015«, t00=0x0059, t01=0x007c}
0x8b7a…8ba2               Head {h00=0x0024, h01=0x0050, text=» RF BIOERR REQ LEN OUTSIDE RANGE«, t00=0x0059, t01=0x0092}
0x8ba2…8bae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x00ba}
0x8bae…8bb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00c6}
0x8bb8…8bf2               Head {h00=0x0036, h01=0x0050, text=»BIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1«, t00=0x0059, t01=0x00d0}
0x8bf2…8bfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x010a}
0x8bfc…8c32               Head {h00=0x0032, h01=0x0050, text=»*  CHECK SECTOR NO FROM CONTROL WORD OF ECB IS«, t00=0x0059, t01=0x0114}
0x8c32…8c5e               Head {h00=0x0028, h01=0x0050, text=»*  WITHIN RANGE, PUT IT IN POS 2-12 «, t00=0x0059, t01=0x014a}
0x8c5e…8c68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0176}
0x8c68…8c8a               Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A8 SECTOR NO «, t00=0x0059, t01=0x0180}
0x8c8a…8cae               Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOER2 OUTSIDE RANGE «, t00=0x005a, t01=0x0012}
0x8cae…8cc6               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x005a, t01=0x0036}
0x8cc6…8cd8               Head {h00=0x000e, h01=0x0050, text=» ANK A7,/A«, t00=0x005a, t01=0x004e}
0x8cd8…8cf6               Head {h00=0x001a, h01=0x0050, text=» RF(Z) BIO110 IBM DISC«, t00=0x005a, t01=0x0060}
0x8cf6…8d02               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x007e}
0x8d02…8d16               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x005a, t01=0x008a}
0x8d16…8d2a               Head {h00=0x0010, h01=0x0050, text=» CWK A1,499 «, t00=0x005a, t01=0x009e}
0x8d2a…8d4c               Head {h00=0x001e, h01=0x0050, text=» RF(G) BIOER2 OUT OF RANGE«, t00=0x005a, t01=0x00b2}
0x8d4c…8d7c               Head {h00=0x002c, h01=0x0050, text=» SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR «, t00=0x005a, t01=0x00d4}
0x8d7c…8d88               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0104}
0x8d88…8da0               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x005a, t01=0x0110}
0x8da0…8db2               Head {h00=0x000e, h01=0x0050, text=» RF BIO120«, t00=0x005a, t01=0x0128}
0x8db2…8dbe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x013a}
0x8dbe…8dd0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005a, t01=0x0146}
0x8dd0…8dea               Head {h00=0x0016, h01=0x0050, text=»BIO110 CWK A1,1923«, t00=0x005a, t01=0x0158}
0x8dea…8e0c               Head {h00=0x001e, h01=0x0050, text=» RF(P) BIOER2 OUT OF RANGE«, t00=0x005a, t01=0x0172}
0x8e0c…8e18 (91, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0004}
0x8e18…8e30               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005b, t01=0x0010}
0x8e30…8e5c               Head {h00=0x0028, h01=0x0050, text=» CWK A1,2001 SECTOR NO OUT OF RANGE «, t00=0x005b, t01=0x0028}
0x8e5c…8e76               Head {h00=0x0016, h01=0x0050, text=» RF(G) BIOER2 YES!«, t00=0x005b, t01=0x0054}
0x8e76…8e82               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x006e}
0x8e82…8e96               Head {h00=0x0010, h01=0x0050, text=»BIO120 EQU *«, t00=0x005b, t01=0x007a}
0x8e96…8ea8               Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x005b, t01=0x008e}
0x8ea8…8eba               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x005b, t01=0x00a0}
0x8eba…8ee0               Head {h00=0x0022, h01=0x0050, text=» LD A4,ECBBA,A8 BUFFER ADDRESS«, t00=0x005b, t01=0x00b2}
0x8ee0…8efe               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x005b, t01=0x00d8}
0x8efe…8f10               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x005b, t01=0x00f6}
0x8f10…8f38               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BIOERR REQ LEN. NOT EVEN«, t00=0x005b, t01=0x0108}
0x8f38…8f48               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005b, t01=0x0130}
0x8f48…8f52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0140}
0x8f52…8f5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x014a}
0x8f5c…8f92               Head {h00=0x0032, h01=0x0050, text=»*  ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO«, t00=0x005b, t01=0x0154}
0x8f92…8f9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x018a}
0x8f9c…8fb6 (92, 0, 400)  Head {h00=0x0016, h01=0x0050, text=»BIOERR ABL END:10 «, t00=0x005c, t01=0x0004}
0x8fb6…8fd4               Head {h00=0x001a, h01=0x0050, text=»*   ILLEGAL SECTOR NO «, t00=0x005c, t01=0x001e}
0x8fd4…8fee               Head {h00=0x0016, h01=0x0050, text=»BIOER2 ABL FD:DIS «, t00=0x005c, t01=0x003c}
0x8fee…8ff8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0056}
0x8ff8…9010               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005c, t01=0x0060}
0x9010…901a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0078}
0x901a…902c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005c, t01=0x0082}
0x902c…903e               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x005c, t01=0x0094}
0x903e…9050               Head {h00=0x000e, h01=0x0050, text=»* FDIX  * «, t00=0x005c, t01=0x00a6}
0x9050…9062               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x005c, t01=0x00b8}
0x9062…9074               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005c, t01=0x00ca}
0x9074…907e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00dc}
0x907e…9098               Head {h00=0x0016, h01=0x0050, text=»*  INPUT:  A2   X «, t00=0x005c, t01=0x00e6}
0x9098…90a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0100}
0x90a2…90c4               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A3   2 POWER(X)«, t00=0x005c, t01=0x010a}
0x90c4…90ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x012c}
0x90ce…90e4               Head {h00=0x0012, h01=0x0050, text=»FDIX LDK A3,1 «, t00=0x005c, t01=0x0136}
0x90e4…90fc               Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x005c, t01=0x014c}
0x90fc…9110               Head {h00=0x0010, h01=0x0050, text=»FDIX10 EQU *«, t00=0x005c, t01=0x0164}
0x9110…9126               Head {h00=0x0012, h01=0x0050, text=» RF(Z) FDIX20 «, t00=0x005c, t01=0x0178}
0x9126…9138               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x005c, t01=0x018e}
0x9138…914a               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x005d, t01=0x0010}
0x914a…915c               Head {h00=0x000e, h01=0x0050, text=» RB FDIX10«, t00=0x005d, t01=0x0022}
0x915c…9172               Head {h00=0x0012, h01=0x0050, text=»FDIX20 RTN A5 «, t00=0x005d, t01=0x0034}
0x9172…918a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005d, t01=0x004a}
0x918a…91a2               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x005d, t01=0x0062}
0x91a2…91bc               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x005d, t01=0x007a}
0x91bc…91d6               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x005d, t01=0x0094}
0x91d6…91f0               Head {h00=0x0016, h01=0x0050, text=»*  VOLADR        *«, t00=0x005d, t01=0x00ae}
0x91f0…920a               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x005d, t01=0x00c8}
0x920a…9224               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x005d, t01=0x00e2}
0x9224…922e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00fc}
0x922e…9250               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x005d, t01=0x0106}
0x9250…925a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0128}
0x925a…9284               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT: A2  VOLUME NAME ADDRESS«, t00=0x005d, t01=0x0132}
0x9284…92a0               Head {h00=0x0018, h01=0x0050, text=»*          A3  ZERO «, t00=0x005d, t01=0x015c}
0x92a0…92aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0178}
0x92aa…92be               Head {h00=0x0010, h01=0x0050, text=»VOLADR EQU *«, t00=0x005d, t01=0x0182}
0x92be…92de               Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR,A6 DRIVE NO«, t00=0x005e, t01=0x0008}
0x92de…92f2               Head {h00=0x0010, h01=0x0050, text=»VOLA05 EQU *«, t00=0x005e, t01=0x0028}
0x92f2…9308               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWTVO0«, t00=0x005e, t01=0x003c}
0x9308…931a               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x005e, t01=0x0052}
0x931a…932c               Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x005e, t01=0x0064}
0x932c…9340               Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x005e, t01=0x0076}
0x9340…9356               Head {h00=0x0012, h01=0x0050, text=» RF(Z) VOLA20 «, t00=0x005e, t01=0x008a}
0x9356…9376               Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 UPDATE ADDRESS«, t00=0x005e, t01=0x00a0}
0x9376…9388               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x005e, t01=0x00c0}
0x9388…939a               Head {h00=0x000e, h01=0x0050, text=» RB VOLA10«, t00=0x005e, t01=0x00d2}
0x939a…93b0               Head {h00=0x0012, h01=0x0050, text=»VOLA20 RTN A5 «, t00=0x005e, t01=0x00e4}
0x93b0…93bc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00fa}
0x93bc…93c4               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0106}
0x93c4…93d6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005e, t01=0x010e}
0x93d6…93ee               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005e, t01=0x0120}
0x93ee…93f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0138}
0x93f8…940a               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005e, t01=0x0142}
0x940a…941c               Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x005e, t01=0x0154}
0x941c…942e               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005e, t01=0x0166}
0x942e…9438               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0178}
0x9438…9476               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x005e, t01=0x0182}
0x9476…9496               Head {h00=0x001c, h01=0x0050, text=»*             ASCII CODE«, t00=0x005f, t01=0x0030}
0x9496…94c8               Head {h00=0x002e, h01=0x0050, text=»*             INPUT STRING ADDRESS IS BUF «, t00=0x005f, t01=0x0050}
0x94c8…94f2               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7  NO OF CHARACTERS«, t00=0x005f, t01=0x0082}
0x94f2…9522               Head {h00=0x002c, h01=0x0050, text=»*             A4  OUTPUT  STRING ADDRESS«, t00=0x005f, t01=0x00ac}
0x9522…9544               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x005f, t01=0x00dc}
0x9544…9564               Head {h00=0x001c, h01=0x0050, text=»*             A4 CHANGED«, t00=0x005f, t01=0x00fe}
0x9564…9586               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x005f, t01=0x011e}
0x9586…9590               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0140}
0x9590…95a4               Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x005f, t01=0x014a}
0x95a4…95b0               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x005f, t01=0x015e}
0x95b0…95c2               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x005f, t01=0x016a}
0x95c2…95d4               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x005f, t01=0x017c}
0x95d4…95ec               Head {h00=0x0014, h01=0x0050, text=»ASC:10 SUK A7,1 «, t00=0x005f, t01=0x018e}
0x95ec…9602               Head {h00=0x0012, h01=0x0050, text=» RF(N) ASC:20 «, t00=0x0060, t01=0x0016}
0x9602…9614               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0060, t01=0x002c}
0x9614…963a               Head {h00=0x0022, h01=0x0050, text=» LC A1,BUF,A7 GET EBCDIC CHAR «, t00=0x0060, t01=0x003e}
0x963a…9666               Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0060, t01=0x0064}
0x9666…969a               Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0060, t01=0x0090}
0x969a…96ac               Head {h00=0x000e, h01=0x0050, text=» RB ASC:10«, t00=0x0060, t01=0x00c4}
0x96ac…96c0               Head {h00=0x0010, h01=0x0050, text=»ASC:20 EQU *«, t00=0x0060, t01=0x00d6}
0x96c0…96e6               Head {h00=0x0022, h01=0x0050, text=» RF EBC:90 SET INH AND RETURN «, t00=0x0060, t01=0x00ea}
0x96e6…96fe               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0060, t01=0x0110}
0x96fe…9708               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0128}
0x9708…971a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x0132}
0x971a…972c               Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0060, t01=0x0144}
0x972c…973e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x0156}
0x973e…9748               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0168}
0x9748…9788               Head {h00=0x003c, h01=0x0050, text=»*  FUNCTION:  EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0060, t01=0x0172}
0x9788…97aa               Head {h00=0x001e, h01=0x0050, text=»*             EBCDIC CODE «, t00=0x0061, t01=0x0022}
0x97aa…97e6               Head {h00=0x0038, h01=0x0050, text=»*             OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0061, t01=0x0044}
0x97e6…97f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0080}
0x97f0…981a               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7 NO OF CHARACTERS «, t00=0x0061, t01=0x008a}
0x981a…9848               Head {h00=0x002a, h01=0x0050, text=»*             A4  INPUT STRING ADDRESS«, t00=0x0061, t01=0x00b4}
0x9848…9852               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00e2}
0x9852…9874               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0061, t01=0x00ec}
0x9874…98a4               Head {h00=0x002c, h01=0x0050, text=»*              A4  DRIVER BUFFER ADDRESS«, t00=0x0061, t01=0x010e}
0x98a4…98c6               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0061, t01=0x013e}
0x98c6…98da               Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0061, t01=0x0160}
0x98da…98e6               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0061, t01=0x0174}
0x98e6…98f8               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0061, t01=0x0180}
0x98f8…990a (98, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0062, t01=0x0004}
0x990a…9922               Head {h00=0x0014, h01=0x0050, text=»EBC:10 SUK A7,1 «, t00=0x0062, t01=0x0016}
0x9922…9938               Head {h00=0x0012, h01=0x0050, text=» RF(N) EBC:80 «, t00=0x0062, t01=0x002e}
0x9938…994a               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0062, t01=0x0044}
0x994a…996c               Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0062, t01=0x0056}
0x996c…9986               Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0062, t01=0x0078}
0x9986…999c               Head {h00=0x0012, h01=0x0050, text=» SC A1,BUF,A7 «, t00=0x0062, t01=0x0092}
0x999c…99ae               Head {h00=0x000e, h01=0x0050, text=» RB EBC:10«, t00=0x0062, t01=0x00a8}
0x99ae…99c2               Head {h00=0x0010, h01=0x0050, text=»EBC:80 EQU *«, t00=0x0062, t01=0x00ba}
0x99c2…99d6               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0062, t01=0x00ce}
0x99d6…99ea               Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x0062, t01=0x00e2}
0x99ea…9a00               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x0062, t01=0x00f6}
0x9a00…9a10               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0062, t01=0x010c}
0x9a10…9a28               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0062, t01=0x011c}
0x9a28…9a32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0134}
0x9a32…9a44               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0062, t01=0x013e}
0x9a44…9a56               Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0062, t01=0x0150}
0x9a56…9a68               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0062, t01=0x0162}
0x9a68…9a72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0174}
0x9a72…9ab6               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0062, t01=0x017e}
0x9ab6…9ae6               Head {h00=0x002c, h01=0x0050, text=»*              LOGICAL SECTOR (BINARY). «, t00=0x0063, t01=0x0032}
0x9ae6…9b26               Head {h00=0x003c, h01=0x0050, text=»*             FORMAT OF PHYS. SEC.  TT0SS  (EBCDIC CODE)«, t00=0x0063, t01=0x0062}
0x9b26…9b54               Head {h00=0x002a, h01=0x0050, text=»*              TT = TRACK,  SS=SECTOR «, t00=0x0063, t01=0x00a2}
0x9b54…9b5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00d0}
0x9b5e…9b8e               Head {h00=0x002c, h01=0x0050, text=»*  INPUT:    A4  ADDRESS TO PHYS. SECTOR«, t00=0x0063, t01=0x00da}
0x9b8e…9b98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x010a}
0x9b98…9bc2               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT:   A3  BINARY SECTOR NO «, t00=0x0063, t01=0x0114}
0x9bc2…9bf4               Head {h00=0x002e, h01=0x0050, text=»*            A4  ADDRESS TO PHYS. SEC. + 4«, t00=0x0063, t01=0x013e}
0x9bf4…9bfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0170}
0x9bfe…9c12               Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x0063, t01=0x017a}
0x9c12…9c28               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0063, t01=0x018e}
0x9c28…9c40               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x0064, t01=0x0014}
0x9c40…9c52               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0064, t01=0x002c}
0x9c52…9c5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x003e}
0x9c5c…9c76               Head {h00=0x0016, h01=0x0050, text=»*  MULTIPLY BY 26 «, t00=0x0064, t01=0x0048}
0x9c76…9c80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0062}
0x9c80…9c96               Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x0064, t01=0x006c}
0x9c96…9ca8               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0064, t01=0x0082}
0x9ca8…9cba               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0064, t01=0x0094}
0x9cba…9cd0               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x0064, t01=0x00a6}
0x9cd0…9ce2               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0064, t01=0x00bc}
0x9ce2…9cf8               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x0064, t01=0x00ce}
0x9cf8…9d0e               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0064, t01=0x00e4}
0x9d0e…9d20               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0064, t01=0x00fa}
0x9d20…9d32               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0064, t01=0x010c}
0x9d32…9d3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x011e}
0x9d3c…9d56               Head {h00=0x0016, h01=0x0050, text=»*  CHECK SECTOR NO«, t00=0x0064, t01=0x0128}
0x9d56…9d60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0142}
0x9d60…9d72               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0064, t01=0x014c}
0x9d72…9d84               Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x0064, t01=0x015e}
0x9d84…9d9a               Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x0064, t01=0x0170}
0x9d9a…9db8               Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD?«, t00=0x0064, t01=0x0186}
0x9db8…9dd2               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x0065, t01=0x0014}
0x9dd2…9de8               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x0065, t01=0x002e}
0x9de8…9dfa               Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x0065, t01=0x0044}
0x9dfa…9e04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0056}
0x9e04…9e2a               Head {h00=0x0022, h01=0x0050, text=»*  CHECK EOD LESS/EQUAL 74001 «, t00=0x0065, t01=0x0060}
0x9e2a…9e34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0086}
0x9e34…9e50               Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x0065, t01=0x0090}
0x9e50…9e64               Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x0065, t01=0x00ac}
0x9e64…9e8a               Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x0065, t01=0x00c0}
0x9e8a…9eb0               Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x0065, t01=0x00e6}
0x9eb0…9ec0               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0065, t01=0x010c}
0x9ec0…9eca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x011c}
0x9eca…9ee0               Head {h00=0x0012, h01=0x0050, text=»*  FATAL ERROR«, t00=0x0065, t01=0x0126}
0x9ee0…9eea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x013c}
0x9eea…9f16               Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x0065, t01=0x0146}
0x9f16…9f3e               Head {h00=0x0024, h01=0x0050, text=»LOG:10 LDKL A1,/2000 RETURN CODE«, t00=0x0065, t01=0x0172}
0x9f3e…9f58               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0066, t01=0x000a}
0x9f58…9f6e               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x0066, t01=0x0024}
0x9f6e…9f90               Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x0066, t01=0x003a}
0x9f90…9f9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x005c}
0x9f9a…9fb2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0066, t01=0x0066}
0x9fb2…9fbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x007e}
0x9fbc…9fce               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x0088}
0x9fce…9fe0               Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x0066, t01=0x009a}
0x9fe0…9ff2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x00ac}
0x9ff2…9ffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00be}
0x9ffc…a03e               Head {h00=0x003e, h01=0x0050, text=»*  FUNCTION:  DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x0066, t01=0x00c8}
0xa03e…a086               Head {h00=0x0044, h01=0x0050, text=»*             BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x0066, t01=0x010a}
0xa086…a0b6               Head {h00=0x002c, h01=0x0050, text=»*     INPUT:  A4  ADDRESS TO FIRST DIGIT«, t00=0x0066, t01=0x0152}
0xa0b6…a0d4               Head {h00=0x001a, h01=0x0050, text=»*   OUTPUT: A1  BINARY«, t00=0x0066, t01=0x0182}
0xa0d4…a0f4               Head {h00=0x001c, h01=0x0050, text=»*   WORKING REG:  A2,A7 «, t00=0x0067, t01=0x0010}
0xa0f4…a0fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0030}
0xa0fe…a116               Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x0067, t01=0x003a}
0xa116…a128               Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0067, t01=0x0052}
0xa128…a146               Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0067, t01=0x0064}
0xa146…a15a               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0067, t01=0x0082}
0xa15a…a16e               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0067, t01=0x0096}
0xa16e…a184               Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x0067, t01=0x00aa}
0xa184…a196               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0067, t01=0x00c0}
0xa196…a1b6               Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x0067, t01=0x00d2}
0xa1b6…a1c8               Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0067, t01=0x00f2}
0xa1c8…a1da               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0067, t01=0x0104}
0xa1da…a1f0               Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0067, t01=0x0116}
0xa1f0…a21a               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0067, t01=0x012c}
0xa21a…a232               Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0067, t01=0x0156}
0xa232…a252               Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0067, t01=0x016e}
0xa252…a274               Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0067, t01=0x018e}
0xa274…a286               Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0068, t01=0x0020}
0xa286…a29e               Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0068, t01=0x0032}
0xa29e…a2ae               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0068, t01=0x004a}
0xa2ae…a2ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x005a}
0xa2ba…a2d2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0068, t01=0x0066}
0xa2d2…a2dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x007e}
0xa2dc…a2ee               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x0088}
0xa2ee…a300               Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0068, t01=0x009a}
0xa300…a312               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x00ac}
0xa312…a31c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00be}
0xa31c…a352               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION:  PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0068, t01=0x00c8}
0xa352…a35c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00fe}
0xa35c…a398               Head {h00=0x0038, h01=0x0050, text=»*  INPUT:  A3  DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0068, t01=0x0108}
0xa398…a3a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0144}
0xa3a2…a3c0               Head {h00=0x001a, h01=0x0050, text=»*  OUTPUT: A3  CHANGED«, t00=0x0068, t01=0x014e}
0xa3c0…a3de               Head {h00=0x001a, h01=0x0050, text=»*          A4  CHANGED«, t00=0x0068, t01=0x016c}
0xa3de…a3e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x018a}
0xa3e8…a404 (105, 0, 400) Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x0069, t01=0x0004}
0xa404…a41a               Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0069, t01=0x0020}
0xa41a…a42c               Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0069, t01=0x0036}
0xa42c…a442               Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x0069, t01=0x0048}
0xa442…a452               Head {h00=0x000c, h01=0x0050, text=» RTN  A5«, t00=0x0069, t01=0x005e}
0xa452…a464               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0069, t01=0x006e}
0xa464…a47c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0069, t01=0x0080}
0xa47c…a486               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0098}
0xa486…a498               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x00a2}
0xa498…a4aa               Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x0069, t01=0x00b4}
0xa4aa…a4bc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x00c6}
0xa4bc…a4c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00d8}
0xa4c6…a504               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0069, t01=0x00e2}
0xa504…a538               Head {h00=0x0030, h01=0x0050, text=»*             EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0069, t01=0x0120}
0xa538…a542               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0154}
0xa542…a566               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A7  BINARY NUMBER«, t00=0x0069, t01=0x015e}
0xa566…a570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0182}
0xa570…a5a2               Head {h00=0x002e, h01=0x0050, text=»*  OUTPUT: A3  EBCDIC CODED DECIMAL DIGITS«, t00=0x0069, t01=0x018c}
0xa5a2…a5c0               Head {h00=0x001a, h01=0x0050, text=»*          A7  CHANGED«, t00=0x006a, t01=0x002e}
0xa5c0…a5ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x004c}
0xa5ca…a5e2               Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x006a, t01=0x0056}
0xa5e2…a5fa               Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x006a, t01=0x006e}
0xa5fa…a610               Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x006a, t01=0x0086}
0xa610…a622               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x009c}
0xa622…a634               Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x006a, t01=0x00ae}
0xa634…a64c               Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x006a, t01=0x00c0}
0xa64c…a65e               Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x006a, t01=0x00d8}
0xa65e…a68c               Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x006a, t01=0x00ea}
0xa68c…a6b0               Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x006a, t01=0x0118}
0xa6b0…a6c0               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006a, t01=0x013c}
0xa6c0…a6d8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006a, t01=0x014c}
0xa6d8…a6ea               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006a, t01=0x0164}
0xa6ea…a6fc               Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x006a, t01=0x0176}
0xa6fc…a70e               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006a, t01=0x0188}
0xa70e…a718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x000a}
0xa718…a750               Head {h00=0x0034, h01=0x0050, text=»*  FUNCTION:  PREPARE FOR READING DATA SET LABEL«, t00=0x006b, t01=0x0014}
0xa750…a75a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x004c}
0xa75a…a77c               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x006b, t01=0x0056}
0xa77c…a786               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0078}
0xa786…a7c4               Head {h00=0x003a, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x006b, t01=0x0082}
0xa7c4…a7e0               Head {h00=0x0018, h01=0x0050, text=»*          A3   128 «, t00=0x006b, t01=0x00c0}
0xa7e0…a80c               Head {h00=0x0028, h01=0x0050, text=»*          A4  DRIVER BUFFER ADDRESS«, t00=0x006b, t01=0x00dc}
0xa80c…a82e               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006b, t01=0x0108}
0xa82e…a850               Head {h00=0x001e, h01=0x0050, text=»*           A1 IS CHANGED «, t00=0x006b, t01=0x012a}
0xa850…a85a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x014c}
0xa85a…a876               Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x006b, t01=0x0156}
0xa876…a88a               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006b, t01=0x0172}
0xa88a…a89e               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x006b, t01=0x0186}
0xa89e…a8b0               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x006c, t01=0x000a}
0xa8b0…a8c4               Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x006c, t01=0x001c}
0xa8c4…a8d8               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x006c, t01=0x0030}
0xa8d8…a8e8               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x0044}
0xa8e8…a900               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006c, t01=0x0054}
0xa900…a90a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x006c}
0xa90a…a91c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x0076}
0xa91c…a92e               Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x006c, t01=0x0088}
0xa92e…a940               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x009a}
0xa940…a94a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00ac}
0xa94a…a984               Head {h00=0x0036, h01=0x0050, text=»*  FUNCTION:  GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x006c, t01=0x00b6}
0xa984…a98e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00f0}
0xa98e…a9b0               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x006c, t01=0x00fa}
0xa9b0…a9ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x011c}
0xa9ba…a9dc               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A2  EOD ADDRESS«, t00=0x006c, t01=0x0126}
0xa9dc…aa0c               Head {h00=0x002c, h01=0x0050, text=»*          A7  EOD-NO      (0=NOT OPEN) «, t00=0x006c, t01=0x0148}
0xaa0c…aa2a               Head {h00=0x001a, h01=0x0050, text=»*          A1  CHANGED«, t00=0x006c, t01=0x0178}
0xaa2a…aa46               Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x006d, t01=0x0008}
0xaa46…aa5a               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006d, t01=0x0024}
0xaa5a…aa74               Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x006d, t01=0x0038}
0xaa74…aa84               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006d, t01=0x0052}
0xaa84…aa9c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006d, t01=0x0062}
0xaa9c…aaa6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x007a}
0xaaa6…aab8               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006d, t01=0x0084}
0xaab8…aaca               Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x006d, t01=0x0096}
0xaaca…aadc               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006d, t01=0x00a8}
0xaadc…aae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00ba}
0xaae6…ab1c               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x006d, t01=0x00c4}
0xab1c…ab56               Head {h00=0x0036, h01=0x0050, text=»*            TYPE OF DATA FOR COORESSPONDING DRIVE«, t00=0x006d, t01=0x00fa}
0xab56…ab60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0134}
0xab60…ab82               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A1  DWT OFFSET «, t00=0x006d, t01=0x013e}
0xab82…aba4               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006d, t01=0x0160}
0xaba4…abae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0182}
0xabae…abd4               Head {h00=0x0022, h01=0x0050, text=»*  OUTPUT: A2  ADDRESS TO DATA«, t00=0x006d, t01=0x018c}
0xabd4…abf6               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006e, t01=0x0022}
0xabf6…ac00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0044}
0xac00…ac26               Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x006e, t01=0x004e}
0xac26…ac38               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x006e, t01=0x0074}
0xac38…ac4a               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x006e, t01=0x0086}
0xac4a…ac5c               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x006e, t01=0x0098}
0xac5c…ac6e               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x006e, t01=0x00aa}
0xac6e…ac7e               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006e, t01=0x00bc}
0xac7e…ac96               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006e, t01=0x00cc}
0xac96…aca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00e4}
0xaca0…acb2               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006e, t01=0x00ee}
0xacb2…acc4               Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x006e, t01=0x0100}
0xacc4…acd6               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006e, t01=0x0112}
0xacd6…ace0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0124}
0xace0…ad1e               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x006e, t01=0x012e}
0xad1e…ad3c               Head {h00=0x001a, h01=0x0050, text=»*            DRIVE NO «, t00=0x006e, t01=0x016c}
0xad3c…ad46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x018a}
0xad46…ad72 (111, 0, 398) Head {h00=0x0028, h01=0x0050, text=»*  INPUT:    A1  OFFSET TO DWT AREA «, t00=0x006f, t01=0x0004}
0xad72…ada4               Head {h00=0x002e, h01=0x0050, text=»*            A3  WORD TO BE STORED IN DWT «, t00=0x006f, t01=0x0030}
0xada4…adc8               Head {h00=0x0020, h01=0x0050, text=»*            A6  DWT ADDRESS«, t00=0x006f, t01=0x0062}
0xadc8…add2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0086}
0xadd2…adf4               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:   A1  UNCHANGED«, t00=0x006f, t01=0x0090}
0xadf4…ae28               Head {h00=0x0030, h01=0x0050, text=»*            A2  ADDRESS TO WORD IN DWT AREA«, t00=0x006f, t01=0x00b2}
0xae28…ae4a               Head {h00=0x001e, h01=0x0050, text=»*            A3  UNCHANGED«, t00=0x006f, t01=0x00e6}
0xae4a…ae6c               Head {h00=0x001e, h01=0x0050, text=»*            A6  UNCHANGED«, t00=0x006f, t01=0x0108}
0xae6c…ae76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x012a}
0xae76…ae8a               Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x006f, t01=0x0134}
0xae8a…ae9e               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006f, t01=0x0148}
0xae9e…aeb0               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x006f, t01=0x015c}
0xaeb0…aec0               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006f, t01=0x016e}
0xaec0…aed8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006f, t01=0x017e}
0xaed8…aee2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0008}
0xaee2…aef4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0070, t01=0x0012}
0xaef4…af06               Head {h00=0x000e, h01=0x0050, text=»* SETINH *«, t00=0x0070, t01=0x0024}
0xaf06…af18               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0070, t01=0x0036}
0xaf18…af22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0048}
0xaf22…af66               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE «, t00=0x0070, t01=0x0052}
0xaf66…afa8               Head {h00=0x003e, h01=0x0050, text=»*             ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND «, t00=0x0070, t01=0x0096}
0xafa8…afc4               Head {h00=0x0018, h01=0x0050, text=»*             RETURN«, t00=0x0070, t01=0x00d8}
0xafc4…afce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00f4}
0xafce…aff4               Head {h00=0x0022, h01=0x0050, text=»*  INPUT:     A6  DWT ADDRESS «, t00=0x0070, t01=0x00fe}
0xaff4…affe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0124}
0xaffe…b010               Head {h00=0x000e, h01=0x0050, text=»SETINH INH«, t00=0x0070, t01=0x012e}
0xb010…b02c               Head {h00=0x0018, h01=0x0050, text=» LD A1,DWTA2,A6 FDON«, t00=0x0070, t01=0x0140}
0xb02c…b04c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) SET:10 NOT ACTIVE«, t00=0x0070, t01=0x015c}
0xb04c…b066               Head {h00=0x0016, h01=0x0050, text=» ABL T:DISP ESCAPE«, t00=0x0070, t01=0x017c}
0xb066…b07c               Head {h00=0x0012, h01=0x0050, text=»SET:10 RTN A5 «, t00=0x0071, t01=0x0008}
0xb07c…b088               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x001e}
0xb088…b092               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x002a}
0xb092…b0b8               Head {h00=0x0022, h01=0x0050, text=»*    D R I V E R   B U F F E R«, t00=0x0071, t01=0x0034}
0xb0b8…b0d0               Head {h00=0x0014, h01=0x0050, text=»BUF DATA 0,0,0,0«, t00=0x0071, t01=0x005a}
0xb0d0…b0da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0072}
0xb0da…b0ec               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0071, t01=0x007c}
0xb0ec…b0fc               Head {h00=0x000c, h01=0x0050, text=» RES 60 «, t00=0x0071, t01=0x008e}
0xb0fc…b108               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x009e}
0xb108…b112               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00aa}
0xb112…b12a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0071, t01=0x00b4}
0xb12a…b134               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00cc}
0xb134…b152               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0071, t01=0x00d6}
0xb152…b170               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0071, t01=0x00f4}
0xb170…b18e               Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0071, t01=0x0112}
0xb18e…b1ac               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0071, t01=0x0130}
0xb1ac…b1ca               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0071, t01=0x014e}
0xb1ca…b1d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x016c}
0xb1d4…b1e8               Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0071, t01=0x0176}
0xb1e8…b1f8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0071, t01=0x018a}
0xb1f8…b216               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0072, t01=0x000a}
0xb216…b232               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0072, t01=0x0028}
0xb232…b248               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0072, t01=0x0044}
0xb248…b26e               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0072, t01=0x005a}
0xb26e…b28a               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0072, t01=0x0080}
0xb28a…b2b2               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0072, t01=0x009c}
0xb2b2…b2d0               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0072, t01=0x00c4}
0xb2d0…b2da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00e2}
0xb2da…b2f0               Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0072, t01=0x00ec}
0xb2f0…b31a               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0072, t01=0x0102}
0xb31a…b33e               Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0072, t01=0x012c}
0xb33e…b34a               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0072, t01=0x0150}
0xb34a…b354               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x015c}
0xb354…b364               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0072, t01=0x0166}
0xb364…b37e               Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x0072, t01=0x0176}
0xb37e…b38e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0072, t01=0x0190}
0xb38e…b39e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x0010}
0xb39e…b3ba               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x0073, t01=0x0020}
0xb3ba…b3e6               Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x0073, t01=0x003c}
0xb3e6…b3f6               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0073, t01=0x0068}
0xb3f6…b424               Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x0073, t01=0x0078}
0xb424…b434               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x00a6}
0xb434…b45c               Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x0073, t01=0x00b6}
0xb45c…b46c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x00de}
0xb46c…b498               Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0073, t01=0x00ee}
0xb498…b4a8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x011a}
0xb4a8…b4d8               Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x0073, t01=0x012a}
0xb4d8…b4e8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x015a}
0xb4e8…b518               Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x0073, t01=0x016a}
0xb518…b528               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x000a}
0xb528…b554               Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x0074, t01=0x001a}
0xb554…b568               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x0046}
0xb568…b594               Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x0074, t01=0x005a}
0xb594…b5a8               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x0086}
0xb5a8…b5d4               Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x0074, t01=0x009a}
0xb5d4…b5e8               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x00c6}
0xb5e8…b614               Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x0074, t01=0x00da}
0xb614…b628               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x0106}
0xb628…b63e               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0074, t01=0x011a}
0xb63e…b670               Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x0074, t01=0x0130}
0xb670…b680               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0162}
0xb680…b6b8               Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x0074, t01=0x0172}
0xb6b8…b6c8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x001a}
0xb6c8…b6d4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x002a}
0xb6d4…b6de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0036}
0xb6de…b6f2               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0075, t01=0x0040}
0xb6f2…b72c               Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x0075, t01=0x0054}
0xb72c…b73c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x008e}
0xb73c…b76c               Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x0075, t01=0x009e}
0xb76c…b77c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x00ce}
0xb77c…b7ac               Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x0075, t01=0x00de}
0xb7ac…b7bc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x010e}
0xb7bc…b7c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x011e}
0xb7c8…b7d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x012a}
0xb7d2…b7e4               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0075, t01=0x0134}
0xb7e4…b814               Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x0075, t01=0x0146}
0xb814…b82a               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0075, t01=0x0176}
0xb82a…b852               Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x0075, t01=0x018c}
0xb852…b868               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x0024}
0xb868…b892               Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x0076, t01=0x003a}
0xb892…b8a8               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x0064}
0xb8a8…b8d6               Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x0076, t01=0x007a}
0xb8d6…b8ec               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x00a8}
0xb8ec…b91e               Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x0076, t01=0x00be}
0xb91e…b934               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x00f0}
0xb934…b940               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0106}
0xb940…b94a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0112}
0xb94a…b962               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0076, t01=0x011c}
0xb962…b978               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0076, t01=0x0134}
0xb978…b994               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0076, t01=0x014a}
0xb994…b9b0               Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x0076, t01=0x0166}
0xb9b0…b9de               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x0076, t01=0x0182}
0xb9de…b9fe               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0077, t01=0x0020}
0xb9fe…ba08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0040}
0xba08…ba24               Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0077, t01=0x004a}
0xba24…ba52               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0077, t01=0x0066}
0xba52…ba5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0094}
0xba5c…ba78               Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x0077, t01=0x009e}
0xba78…baa0               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x0077, t01=0x00ba}
0xbaa0…baac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x00e2}
0xbaac…bab6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00ee}
0xbab6…bacc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0077, t01=0x00f8}
0xbacc…bae0               Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0077, t01=0x010e}
0xbae0…baf0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0077, t01=0x0122}
0xbaf0…bb04               Head {h00=0x0010, h01=0x0050, text=» DATA FD:BUF«, t00=0x0077, t01=0x0132}
0xbb04…bb1a               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x0146}
0xbb1a…bb24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x015c}
0xbb24…bb3a               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x0077, t01=0x0166}
0xbb3a…bb56               Head {h00=0x0018, h01=0x0050, text=»FD:BUF RES DVBLEN+1 «, t00=0x0077, t01=0x017c}
0xbb56…bb62               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x0008}
0xbb62…bb6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0014}
0xbb6c…bb82               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0078, t01=0x001e}
0xbb82…bb98               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x0078, t01=0x0034}
0xbb98…bbac               Head {h00=0x0010, h01=0x0050, text=»FD:BUF EQU 0«, t00=0x0078, t01=0x004a}
0xbbac…bbb8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x005e}
0xbbb8…bbc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x006a}
0xbbc2…bbcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0074}
0xbbcc…bbd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x007e}
0xbbd6…bbe2               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0078, t01=0x0088}
0xbbe2…bbe6               Head {h00=0x4004, h01=0x0000}
0xbbe6…bbea               00 78 00 94                                                                                                                                                                                                                                       ┆ x  ┆
0xbbea…bbf2 (121, 1, 8)   20 04 00 00 00 79 00 04                                                                                                                                                                                                                           ┆     y  ┆
0xbbf2…bc42 (122, 0, 400) 5c 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 00 01 01 84 00 22 00 50 5c 45 4e 54 52 59 5c 41 43 4c 50 5c 41 43 54 49 56 41 54 49 4f 4e 20 44 52 49 56 45 52 20 00 02 00 16 00 22 00 50 5c 45 4e 54 52 59 5c 49 48 4c 50 5c 49 4e 54 45 52 52 55 50   ┆ ADDRESS BLOCK     " P ENTRY ACLP ACTIVATION DRIVER      " P ENTRY IHLP INTERRUP┆
0xbc42…bc92               54 20 48 41 4e 44 4c 45 52 20 00 02 00 3c 00 20 00 50 5c 45 4e 54 52 59 5c 4c 50 4f 4e 5c 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 00 02 00 62 00 26 00 50 5c 45 4e 54 52 59 5c 44 57 4c 50 30 31 5c 44 57 54 20 46 4f 52 20 4c 49 4e 45   ┆T HANDLER    <   P ENTRY LPON RECOVERY ROUTINE   b & P ENTRY DWLP01 DWT FOR LINE┆
0xbc92…bce2               20 50 52 49 4e 54 45 52 00 02 00 86 00 04 00 50 00 02 00 b0 00 04 00 50 00 02 00 b8 00 04 00 50 00 02 00 c0 00 06 00 50 2a 20 00 02 00 c8 00 06 00 50 2a 20 00 02 00 d2 00 2c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆ PRINTER       P       P       P       P*        P*      , P********************┆
0xbce2…bd32               2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 02 00 dc 00 2c 00 50 2a 20 20 20 20 45 58 54 45 52 4e 41 4c 20 54 4f 53 53 20 4d 4f 44 55 4c 45 20 45 4e 54 52 49 45 53 20 20 20 20 20 20 2a 00 02 01 0c 00 2c 00 50 2a 2a 2a 2a   ┆********************     , P*    EXTERNAL TOSS MODULE ENTRIES      *     , P****┆
0xbd32…bd82               2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 02 01 3c 00 06 00 50 2a 20 00 02 01 6c 00 06 00 50 2a 20 00 02 01 76 00 1c 00 50 5c 45 58 54 52 4e 5c 54 44 49 53 50 5c 44 49 53   ┆************************************   <   P*    l   P*    v   P EXTRN TDISP DIS┆
0xbd82…bdd2 (123, 0, 400) 50 41 54 43 48 45 52 20 00 02 01 80 00 1a 00 50 5c 45 58 54 52 4e 5c 54 45 4e 44 49 4f 5c 45 4e 44 20 49 2f 4f 20 00 03 00 10 00 26 00 50 5c 45 58 54 52 4e 5c 53 41 56 45 38 5c 53 41 56 45 20 38 20 52 45 47 53 20 4f 4e 20 53 54 41 43 4b 20   ┆PATCHER        P EXTRN TENDIO END I/O      & P EXTRN SAVE8 SAVE 8 REGS ON STACK ┆
0xbdd2…be22               00 03 00 2e 00 20 00 50 5c 45 58 54 52 4e 5c 44 49 53 49 4f 45 5c 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 00 03 00 58 00 18 00 13 5c 45 58 54 52 4e 5c 44 57 54 53 54 5c 53 54 41 54 55 53 20 00 03 00 7c 00 1e 00 19 5c 45 58 54 52 4e 5c 44   ┆   .   P EXTRN DISIOE REQUEST ERROR    X     EXTRN DWTST STATUS    |     EXTRN D┆
0xbe22…be72               57 54 42 43 5c 42 59 54 45 20 43 4f 55 4e 54 45 52 20 00 03 00 98 00 1e 00 19 5c 45 58 54 52 4e 5c 44 57 54 45 43 42 5c 45 43 42 20 41 44 44 52 45 53 53 20 00 03 00 ba 00 24 00 20 5c 45 58 54 52 4e 5c 44 57 54 4f 52 5c 44 57 54 20 49 4e 44   ┆WTBC BYTE COUNTER          EXTRN DWTECB ECB ADDRESS      $   EXTRN DWTOR DWT IND┆
0xbe72…bec2               45 58 20 41 4e 44 20 4f 52 44 45 52 00 03 00 dc 00 1e 00 50 5c 45 58 54 52 4e 5c 44 57 54 41 33 5c 53 41 56 45 20 41 52 45 41 20 41 33 20 00 03 01 04 00 1e 00 19 5c 45 58 54 52 4e 5c 44 57 54 41 34 5c 53 41 56 45 20 41 52 45 41 20 41 34 20   ┆EX AND ORDER       P EXTRN DWTA3 SAVE AREA A3          EXTRN DWTA4 SAVE AREA A4 ┆
0xbec2…bf12               00 03 01 26 00 1e 00 19 5c 45 58 54 52 4e 5c 44 57 54 41 35 5c 53 41 56 45 20 41 52 45 41 20 41 35 20 00 03 01 48 00 26 00 21 5c 45 58 54 52 4e 5c 44 57 54 53 42 32 5c 53 54 41 43 4b 20 42 41 53 45 20 32 20 49 4e 20 44 57 54 20 00 03 01 6a   ┆   &     EXTRN DWTA5 SAVE AREA A5    H & ! EXTRN DWTSB2 STACK BASE 2 IN DWT    j┆
0xbf12…bf62 (124, 0, 398) 00 2a 00 50 5c 45 58 54 52 4e 5c 49 4e 54 53 41 56 5c 53 41 56 45 20 41 52 45 41 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 00 04 00 04 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 4c 50 30 31 20 00 04 00 32 00 06 00 50 2a 20 00 04 00 4a   ┆ * P EXTRN INTSAV SAVE AREA LAST INTERRUPT       P EJECT   DRLP01    2   P*    J┆
0xbf62…bfb2               00 06 00 50 2a 20 00 04 00 54 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 00 5e 00 22 00 50 2a 20 20 20 20 43 4f 4e 53 54 41 4e 54 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆   P*    T " P*****************************    ^ " P*    CONSTANTS              ┆
0xbfb2…c002               2a 20 00 04 00 84 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 00 aa 00 06 00 50 2a 20 00 04 00 d0 00 06 00 50 2a 20 00 04 00 da 00 12 00 50 44 57 41 4c 50 5c 45 51 55 5c 2f 30   ┆*      " P*****************************        P*        P*        PDWALP EQU /0┆
0xc002…c052               46 20 00 04 00 e4 00 26 00 50 4d 55 58 4c 50 5c 45 51 55 5c 44 57 41 4c 50 2b 44 57 41 4c 50 5c 4d 55 58 20 41 44 44 52 45 53 53 20 00 04 00 fa 00 06 00 50 2a 20 00 04 01 24 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 4c 50 30 31 20 00 04   ┆F      & PMUXLP EQU DWALP+DWALP MUX ADDRESS        P*    $   P EJECT   DRLP01   ┆
0xc052…c0a0               01 2e 00 06 00 50 2a 20 00 04 01 46 00 06 00 50 2a 20 00 04 01 50 00 2e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 01 5a 00 06 00 50 2a 20         ┆ .   P*    F   P*    P . P*****************************************    Z   P* ┆

Reduced view