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

⟦7cfa37e37⟧ 

    Length: 48122 (0xbbfa)
    Notes: pts_type(SC)
    Names: »DRFD01.SC«

Derivation

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »TOSSWORK/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	X:A
* 
*	A PROGRAM VERSION INCLUDING TOSS DISC FORMAT
*	IS OBTAINED BY SETTING TOSS EQU 1.
* 
X:B	EQU	0 
TOSS	EQU	X:B
* 
*	A PROGRAM VERSION INCLUDING IBM DISC FORMAT 
*	IS OBTAINED BY SETTING IBM EQU 1. 
* 
X:C	EQU	0 
IBM	EQU	X:C 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	0
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
	EJECT			DRFD01 
* 
* 
*	A PROGRAM VERSION USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	0
* 
* 
*	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	X:D
* 
	EJECT			DRFD01 
* 
* 
*   MMU BUFFER SIZE 
* 
* 
X:E	EQU	256		 
DVBLEN	EQU	X:E		
* 
* 
*   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…0bfa               Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:A«, t00=0x0007, t01=0x00fa}
0x0bfa…0c04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010e}
0x0c04…0c3a               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0007, t01=0x0118}
0x0c3a…0c66               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0007, t01=0x014e}
0x0c66…0c70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017a}
0x0c70…0c82               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0007, t01=0x0184}
0x0c82…0c96               Head {h00=0x0010, h01=0x0050, text=»TOSS EQU X:B«, t00=0x0008, t01=0x0008}
0x0c96…0ca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001c}
0x0ca0…0cd6               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x0026}
0x0cd6…0d02               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x005c}
0x0d02…0d0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0088}
0x0d0c…0d1e               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0008, t01=0x0092}
0x0d1e…0d32               Head {h00=0x0010, h01=0x0050, text=»IBM EQU X:C «, t00=0x0008, t01=0x00a4}
0x0d32…0d3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b8}
0x0d3c…0d6e               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x00c2}
0x0d6e…0d9c               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00f4}
0x0d9c…0da6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0122}
0x0da6…0dba               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0008, t01=0x012c}
0x0dba…0dc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0140}
0x0dc4…0dce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x014a}
0x0dce…0e08               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0008, t01=0x0154}
0x0e08…0e3a               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x018e}
0x0e3a…0e44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0030}
0x0e44…0e58               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0009, t01=0x003a}
0x0e58…0e62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004e}
0x0e62…0e7a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0009, t01=0x0058}
0x0e7a…0e84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0070}
0x0e84…0e8e               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x007a}
0x0e8e…0ec0               Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0009, t01=0x0084}
0x0ec0…0eee               Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0009, t01=0x00b6}
0x0eee…0ef8               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x00e4}
0x0ef8…0f0c               Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0009, t01=0x00ee}
0x0f0c…0f16               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x0102}
0x0f16…0f20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x010c}
0x0f20…0f5a               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK «, t00=0x0009, t01=0x0116}
0x0f5a…0f90               Head {h00=0x0032, h01=0x0050, text=»* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. «, t00=0x0009, t01=0x0150}
0x0f90…0f9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0186}
0x0f9a…0fae               Head {h00=0x0010, h01=0x0050, text=»SWPBLK EQU 0«, t00=0x0009, t01=0x0190}
0x0fae…0fb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0014}
0x0fb8…0fc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x001e}
0x0fc2…1006               Head {h00=0x0040, h01=0x0050, text=»*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x000a, t01=0x0028}
0x1006…104e               Head {h00=0x0044, h01=0x0050, text=»*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x000a, t01=0x006c}
0x104e…1058               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b4}
0x1058…106a               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x00be}
0x106a…1080               Head {h00=0x0012, h01=0x0050, text=»OPCLOS EQU X:D«, t00=0x000a, t01=0x00d0}
0x1080…108a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e6}
0x108a…10a2               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000a, t01=0x00f0}
0x10a2…10ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0108}
0x10ac…10b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0112}
0x10b6…10d2               Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x000a, t01=0x011c}
0x10d2…10dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0138}
0x10dc…10e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0142}
0x10e6…10fc               Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256   «, t00=0x000a, t01=0x014c}
0x10fc…1114               Head {h00=0x0014, h01=0x0050, text=»DVBLEN EQU X:E  «, t00=0x000a, t01=0x0162}
0x1114…111e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017a}
0x111e…1128               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0184}
0x1128…1144               Head {h00=0x0018, h01=0x0050, text=»*   MMU DEVICE INDEX«, t00=0x000a, t01=0x018e}
0x1144…114e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001a}
0x114e…1158               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0024}
0x1158…116c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x000b, t01=0x002e}
0x116c…1180               Head {h00=0x0010, h01=0x0050, text=»DEVIND EQU 2«, t00=0x000b, t01=0x0042}
0x1180…118c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0056}
0x118c…1196               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0062}
0x1196…11aa               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000b, t01=0x006c}
0x11aa…11c6               Head {h00=0x0018, h01=0x0050, text=»DEVIND EQU 4-IBM-IBM«, t00=0x000b, t01=0x0080}
0x11c6…11d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x009c}
0x11d2…11dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a8}
0x11dc…11f4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000b, t01=0x00b2}
0x11f4…11fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ca}
0x11fe…1214               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x00d4}
0x1214…122a               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x00ea}
0x122a…1240               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x0100}
0x1240…1256               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x0116}
0x1256…126c               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x012c}
0x126c…1276               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0142}
0x1276…12a0               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000b, t01=0x014c}
0x12a0…12ca               Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000b, t01=0x0176}
0x12ca…12f6               Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000c, t01=0x0010}
0x12f6…1324               Head {h00=0x002a, h01=0x0050, text=»STALEN EQU 512 MAX STANDARD SEC. LEN. «, t00=0x000c, t01=0x003c}
0x1324…1350               Head {h00=0x0028, h01=0x0050, text=»TOSLEN EQU 410 MAX TOSS SEC. LENGTH «, t00=0x000c, t01=0x006a}
0x1350…1376               Head {h00=0x0022, h01=0x0050, text=»IBMLEN EQU 128 IBM SEC. LENGTH«, t00=0x000c, t01=0x0096}
0x1376…13a2               Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000c, t01=0x00bc}
0x13a2…13cc               Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000c, t01=0x00e8}
0x13cc…13f4               Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000c, t01=0x0112}
0x13f4…1418               Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000c, t01=0x013a}
0x1418…1442               Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000c, t01=0x015e}
0x1442…144c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0188}
0x144c…1468 (13, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0004}
0x1468…1484               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x000d, t01=0x0020}
0x1484…14a0               Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENTS*«, t00=0x000d, t01=0x003c}
0x14a0…14bc               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x000d, t01=0x0058}
0x14bc…14d8               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0074}
0x14d8…14e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0090}
0x14e2…1516               Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000d, t01=0x009a}
0x1516…1520               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ce}
0x1520…1536               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000d, t01=0x00d8}
0x1536…154e               Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000d, t01=0x00ee}
0x154e…155a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0106}
0x155a…1564               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0112}
0x1564…157a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x011c}
0x157a…1594               Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000d, t01=0x0132}
0x1594…15a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x014c}
0x15a0…15aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0158}
0x15aa…15c6               Head {h00=0x0018, h01=0x0050, text=»DWTA3 EQU START+/04 «, t00=0x000d, t01=0x0162}
0x15c6…15d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017e}
0x15d0…15e8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000d, t01=0x0188}
0x15e8…15f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0010}
0x15f2…1604               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x001a}
0x1604…1616               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x002c}
0x1616…1628               Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000e, t01=0x003e}
0x1628…163a               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x0050}
0x163a…164c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0062}
0x164c…1656               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0074}
0x1656…166c               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x000e, t01=0x007e}
0x166c…1698               Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000e, t01=0x0094}
0x1698…16a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00c0}
0x16a4…16ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16ae…16c4               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x000e, t01=0x00d6}
0x16c4…16ea               Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, t00=0x000e, t01=0x00ec}
0x16ea…16f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0112}
0x16f6…1700               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011e}
0x1700…1722               Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000e, t01=0x0128}
0x1722…174c               Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000e, t01=0x014a}
0x174c…1772               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x0174}
0x1772…177c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000a}
0x177c…1794               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000f, t01=0x0014}
0x1794…179e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002c}
0x179e…17b4               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x0036}
0x17b4…17ca               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x004c}
0x17ca…17e0               Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x000f, t01=0x0062}
0x17e0…17f6               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x0078}
0x17f6…180c               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x008e}
0x180c…1816               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a4}
0x1816…183a               Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x000f, t01=0x00ae}
0x183a…1844               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00d2}
0x1844…185a               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x000f, t01=0x00dc}
0x185a…1884               Head {h00=0x0026, h01=0x0050, text=»*    CHECK IF OPEN OR CLOSE ORDER «, t00=0x000f, t01=0x00f2}
0x1884…188e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011c}
0x188e…18a6               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x000f, t01=0x0126}
0x18a6…18ba               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x000f, t01=0x013e}
0x18ba…18d2               Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x000f, t01=0x0152}
0x18d2…18e4               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000f, t01=0x016a}
0x18e4…18fe               Head {h00=0x0016, h01=0x0050, text=» RF(Z) CLOSE CLOSE«, t00=0x000f, t01=0x017c}
0x18fe…1908               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x1908…1916               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0012}
0x1916…1922               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0020}
0x1922…192c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002c}
0x192c…193e               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0010, t01=0x0036}
0x193e…195c               Head {h00=0x001a, h01=0x0050, text=» LC A3,DWTOR,A6 INDEX «, t00=0x0010, t01=0x0048}
0x195c…197c               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A3 SAVE FOR FDIX«, t00=0x0010, t01=0x0066}
0x197c…1986               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0086}
0x1986…19b0               Head {h00=0x0026, h01=0x0050, text=»*  PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x0010, t01=0x0090}
0x19b0…19ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ba}
0x19ba…19de               Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x0010, t01=0x00c4}
0x19de…1a0a               Head {h00=0x0028, h01=0x0050, text=» CM DWTRCW,A6 SAVE RETURN CODE WORD «, t00=0x0010, t01=0x00e8}
0x1a0a…1a14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0114}
0x1a14…1a2e               Head {h00=0x0016, h01=0x0050, text=»*  CHECK IF LOCKED«, t00=0x0010, t01=0x011e}
0x1a2e…1a38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0138}
0x1a38…1a60               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTLC,A6  LOCK INDICATOR «, t00=0x0010, t01=0x0142}
0x1a60…1a86               Head {h00=0x0022, h01=0x0050, text=» CF A5,FDIX GET BIT MASK IN A3«, t00=0x0010, t01=0x016a}
0x1a86…1ab4               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK «, t00=0x0010, t01=0x0190}
0x1ab4…1ac6               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A3«, t00=0x0011, t01=0x002e}
0x1ac6…1ae4               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) FD:ORD LOCKED «, t00=0x0011, t01=0x0040}
0x1ae4…1af6               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0011, t01=0x005e}
0x1af6…1b0a               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/26 «, t00=0x0011, t01=0x0070}
0x1b0a…1b2a               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) LOAD LOCK ORDER «, t00=0x0011, t01=0x0084}
0x1b2a…1b3e               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/11 «, t00=0x0011, t01=0x00a4}
0x1b3e…1b5e               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) LOAD LOAD ORDER «, t00=0x0011, t01=0x00b8}
0x1b5e…1b80               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8001 RETURN CODE«, t00=0x0011, t01=0x00d8}
0x1b80…1b9a               Head {h00=0x0016, h01=0x0050, text=» ABL END:IO ENDIO «, t00=0x0011, t01=0x00fa}
0x1b9a…1ba4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0114}
0x1ba4…1bb2               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x011e}
0x1bb2…1bbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x012c}
0x1bbc…1bce               Head {h00=0x000e, h01=0x0050, text=»*   ORDER?«, t00=0x0011, t01=0x0136}
0x1bce…1bd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0148}
0x1bd8…1bec               Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x0011, t01=0x0152}
0x1bec…1c04               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0011, t01=0x0166}
0x1c04…1c1a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0011, t01=0x017e}
0x1c1a…1c36 (18, 0, 400)  Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0012, t01=0x0004}
0x1c36…1c60               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0012, t01=0x0020}
0x1c60…1c8a               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A8 GET FIRST WORD OF ECB «, t00=0x0012, t01=0x004a}
0x1c8a…1cc2               Head {h00=0x0034, h01=0x0050, text=» ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS «, t00=0x0012, t01=0x0074}
0x1cc2…1cf4               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) FD:000 BUFFER NOT IN SYSTEM AREA? «, t00=0x0012, t01=0x00ac}
0x1cf4…1d06               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0012, t01=0x00de}
0x1d06…1d1c               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:005«, t00=0x0012, t01=0x00f0}
0x1d1c…1d56               Head {h00=0x0036, h01=0x0050, text=» ADKL A3,TOSLEN CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x0012, t01=0x0106}
0x1d56…1d70               Head {h00=0x0016, h01=0x0050, text=» RF(N) FD:005 NO? «, t00=0x0012, t01=0x0140}
0x1d70…1d7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015a}
0x1d7a…1d8e               Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x0012, t01=0x0164}
0x1d8e…1dae               Head {h00=0x001c, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE IT«, t00=0x0012, t01=0x0178}
0x1dae…1dc0               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0013, t01=0x0008}
0x1dc0…1dd6               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/F000«, t00=0x0013, t01=0x001a}
0x1dd6…1de8               Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x0013, t01=0x0030}
0x1de8…1dfa               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0013, t01=0x0042}
0x1dfa…1e0c               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0013, t01=0x0054}
0x1e0c…1e22               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF «, t00=0x0013, t01=0x0066}
0x1e22…1e58               Head {h00=0x0032, h01=0x0050, text=» ST A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x0013, t01=0x007c}
0x1e58…1e88               Head {h00=0x002c, h01=0x0050, text=» ADKL A1,/400 CREATE ONE MORE MMU ENTRY «, t00=0x0013, t01=0x00b2}
0x1e88…1ea2               Head {h00=0x0016, h01=0x0050, text=» ST A1,DWT:PA+2,A6«, t00=0x0013, t01=0x00e2}
0x1ea2…1eb4               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0013, t01=0x00fc}
0x1eb4…1ee0               Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x0013, t01=0x010e}
0x1ee0…1f0e               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,FD:BUF GET DWT BUFFER ADDRESS«, t00=0x0013, t01=0x013a}
0x1f0e…1f44               Head {h00=0x0032, h01=0x0050, text=» ST A2,ECBBA,A8 SET NEW BUFFER ADDRESS IN ECB «, t00=0x0013, t01=0x0168}
0x1f44…1f4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000e}
0x1f4e…1f8a               Head {h00=0x0038, h01=0x0050, text=»FD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x0014, t01=0x0018}
0x1f8a…1f94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0054}
0x1f94…1fac               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0014, t01=0x005e}
0x1fac…1fb8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0076}
0x1fb8…1fc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0082}
0x1fc2…1fd4               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0014, t01=0x008c}
0x1fd4…1ff6               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) FD:070 TEST STATUS«, t00=0x0014, t01=0x009e}
0x1ff6…2008               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0014, t01=0x00c0}
0x2008…202c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x0014, t01=0x00d2}
0x202c…203e               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0014, t01=0x00f6}
0x203e…2060               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:010 BASIC WRITE «, t00=0x0014, t01=0x0108}
0x2060…2072               Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0014, t01=0x012a}
0x2072…2096               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x0014, t01=0x013c}
0x2096…20a8               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0014, t01=0x0160}
0x20a8…20cc               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:028 PHYSICAL WRITE«, t00=0x0014, t01=0x0172}
0x20cc…20de               Head {h00=0x000e, h01=0x0050, text=» SUK A1,15«, t00=0x0015, t01=0x0008}
0x20de…2106               Head {h00=0x0024, h01=0x0050, text=» RF(Z) FD:030 WRITE DELETED DATA«, t00=0x0015, t01=0x001a}
0x2106…211a               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/14 «, t00=0x0015, t01=0x0042}
0x211a…213e               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) UNLOAD UNLOAD ORDER «, t00=0x0015, t01=0x0056}
0x213e…2150               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0015, t01=0x007a}
0x2150…2164               Head {h00=0x0010, h01=0x0050, text=» ADK A1,/36 «, t00=0x0015, t01=0x008c}
0x2164…218a               Head {h00=0x0022, h01=0x0050, text=» ABL(Z) SQREAD SEQUENTIAL READ«, t00=0x0015, t01=0x00a0}
0x218a…219c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0015, t01=0x00c6}
0x219c…21c4               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SQWRIT SEQUENTIAL WRITE «, t00=0x0015, t01=0x00d8}
0x21c4…21d8               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2B «, t00=0x0015, t01=0x0100}
0x21d8…21f6               Head {h00=0x001a, h01=0x0050, text=» ABL(Z) REWIND REWIND «, t00=0x0015, t01=0x0114}
0x21f6…2202               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0132}
0x2202…221a               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0015, t01=0x013e}
0x221a…2230               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0015, t01=0x0156}
0x2230…2242               Head {h00=0x000e, h01=0x0050, text=» ADK A1,30«, t00=0x0015, t01=0x016c}
0x2242…2262               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:050 SEARCH KEY«, t00=0x0015, t01=0x017e}
0x2262…226e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x000e}
0x226e…2276               Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x001a}
0x2276…228a               Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x0016, t01=0x0022}
0x228a…22ac               Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x0016, t01=0x0036}
0x22ac…22b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0058}
0x22b6…22cc               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0016, t01=0x0062}
0x22cc…22da               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0078}
0x22da…22e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0086}
0x22e4…22f4               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x0090}
0x22f4…2304               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0016, t01=0x00a0}
0x2304…2314               Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0016, t01=0x00b0}
0x2314…2324               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0016, t01=0x00c0}
0x2324…2334               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x00d0}
0x2334…233e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e0}
0x233e…2376               Head {h00=0x0034, h01=0x0050, text=»*    OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0016, t01=0x00ea}
0x2376…23ac               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0016, t01=0x0122}
0x23ac…23b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0158}
0x23b6…23c8               Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0016, t01=0x0162}
0x23c8…23ee               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0016, t01=0x0174}
0x23ee…241a               Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0017, t01=0x000a}
0x241a…244e               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0017, t01=0x0036}
0x244e…2474               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0017, t01=0x006a}
0x2474…247e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0090}
0x247e…24ac               Head {h00=0x002a, h01=0x0050, text=»*    WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0017, t01=0x009a}
0x24ac…24d8               Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0017, t01=0x00c8}
0x24d8…2504               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0017, t01=0x00f4}
0x2504…2524               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0017, t01=0x0120}
0x2524…2540               Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0017, t01=0x0140}
0x2540…2572               Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0017, t01=0x015c}
0x2572…258a               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0017, t01=0x018e}
0x258a…2594               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0016}
0x2594…25a8               Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0018, t01=0x0020}
0x25a8…25c6               Head {h00=0x001a, h01=0x0050, text=»*    TIME HAS EXPIRED «, t00=0x0018, t01=0x0034}
0x25c6…25e6               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0018, t01=0x0052}
0x25e6…2616               Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0018, t01=0x0072}
0x2616…2640               Head {h00=0x0026, h01=0x0050, text=» RF OCLEXI COMMON OPEN/CLOSE EXIT «, t00=0x0018, t01=0x00a2}
0x2640…264a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00cc}
0x264a…2658               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00d6}
0x2658…2662               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e4}
0x2662…2674               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0018, t01=0x00ee}
0x2674…2686               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0018, t01=0x0100}
0x2686…2698               Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0018, t01=0x0112}
0x2698…26aa               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0018, t01=0x0124}
0x26aa…26bc               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0018, t01=0x0136}
0x26bc…26c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0148}
0x26c6…26fe               Head {h00=0x0034, h01=0x0050, text=»*    CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0018, t01=0x0152}
0x26fe…2734               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0018, t01=0x018a}
0x2734…273e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0030}
0x273e…2752               Head {h00=0x0010, h01=0x0050, text=»CLOSE EQU * «, t00=0x0019, t01=0x003a}
0x2752…2778               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0019, t01=0x004e}
0x2778…27a2               Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0019, t01=0x0074}
0x27a2…27d6               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0019, t01=0x009e}
0x27d6…27fc               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA CLOSE FD DRIVE«, t00=0x0019, t01=0x00d2}
0x27fc…2806               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f8}
0x2806…281a               Head {h00=0x0010, h01=0x0050, text=»OCLEXI EQU *«, t00=0x0019, t01=0x0102}
0x281a…2842               Head {h00=0x0024, h01=0x0050, text=»*    COMMON EXIT FOR OPEN/CLOSE «, t00=0x0019, t01=0x0116}
0x2842…2860               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0019, t01=0x013e}
0x2860…2878               Head {h00=0x0014, h01=0x0050, text=» RF FD:090 ENDIO«, t00=0x0019, t01=0x015c}
0x2878…2882               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0174}
0x2882…288e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x017e}
0x288e…2898               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x018a}
0x2898…28b0 (26, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001a, t01=0x0004}
0x28b0…28ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001c}
0x28ba…28d2               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x001a, t01=0x0026}
0x28d2…28ea               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x001a, t01=0x003e}
0x28ea…2902               Head {h00=0x0014, h01=0x0050, text=»* BASIC WRITE * «, t00=0x001a, t01=0x0056}
0x2902…291a               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x001a, t01=0x006e}
0x291a…2932               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x001a, t01=0x0086}
0x2932…293c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x009e}
0x293c…2954               Head {h00=0x0014, h01=0x0050, text=»FD:010 CF A5,BIO«, t00=0x001a, t01=0x00a8}
0x2954…2966               Head {h00=0x000e, h01=0x0050, text=» ORK A2,1 «, t00=0x001a, t01=0x00c0}
0x2966…297a               Head {h00=0x0010, h01=0x0050, text=»FD:015 EQU *«, t00=0x001a, t01=0x00d2}
0x297a…2992               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001a, t01=0x00e6}
0x2992…29aa               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x001a, t01=0x00fe}
0x29aa…29c2               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x001a, t01=0x0116}
0x29c2…29e0               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x001a, t01=0x012e}
0x29e0…29ec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x014c}
0x29ec…29fe               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001a, t01=0x0158}
0x29fe…2a2e               Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x001a, t01=0x016a}
0x2a2e…2a44               Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x001b, t01=0x000a}
0x2a44…2a58               Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x001b, t01=0x0020}
0x2a58…2a64               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0034}
0x2a64…2a6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0040}
0x2a6e…2a86               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001b, t01=0x004a}
0x2a86…2aa2               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+SWPBLK=2«, t00=0x001b, t01=0x0062}
0x2aa2…2ada               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x001b, t01=0x007e}
0x2ada…2b06               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA?«, t00=0x001b, t01=0x00b6}
0x2b06…2b32               Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001b, t01=0x00e2}
0x2b32…2b4c               Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x001b, t01=0x010e}
0x2b4c…2b76               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 GET DWT BUFFER ADDRESS «, t00=0x001b, t01=0x0128}
0x2b76…2ba0               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x001b, t01=0x0152}
0x2ba0…2bcc               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x001b, t01=0x017c}
0x2bcc…2c02               Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x001c, t01=0x0018}
0x2c02…2c2c               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x001c, t01=0x004e}
0x2c2c…2c4a               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x001c, t01=0x0078}
0x2c4a…2c54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0096}
0x2c54…2c6c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001c, t01=0x00a0}
0x2c6c…2c76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b8}
0x2c76…2c80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c2}
0x2c80…2c94               Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x001c, t01=0x00cc}
0x2c94…2ca0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00e0}
0x2ca0…2caa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ec}
0x2caa…2cd0               Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x001c, t01=0x00f6}
0x2cd0…2cda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x011c}
0x2cda…2cf2               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001c, t01=0x0126}
0x2cf2…2d0e               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+SWPBLK=2«, t00=0x001c, t01=0x013e}
0x2d0e…2d36               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWT:LA,A6 GET BUFFER FLAG«, t00=0x001c, t01=0x015a}
0x2d36…2d66               Head {h00=0x002c, h01=0x0050, text=» RF(Z) FD:025 BUFFER WAS IN SYSTEM AREA?«, t00=0x001c, t01=0x0182}
0x2d66…2d98               Head {h00=0x002e, h01=0x0050, text=» LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS «, t00=0x001d, t01=0x0022}
0x2d98…2dc2               Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBBA,A8 RESTORE IT IN ECB «, t00=0x001d, t01=0x0054}
0x2dc2…2dcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007e}
0x2dcc…2de0               Head {h00=0x0010, h01=0x0050, text=»FD:025 EQU *«, t00=0x001d, t01=0x0088}
0x2de0…2dec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x009c}
0x2dec…2df6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a8}
0x2df6…2e14               Head {h00=0x001a, h01=0x0050, text=» RF FD:048 GOTO FD:RC «, t00=0x001d, t01=0x00b2}
0x2e14…2e1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d0}
0x2e1e…2e38               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001d, t01=0x00da}
0x2e38…2e52               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x001d, t01=0x00f4}
0x2e52…2e6c               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL WRITE *«, t00=0x001d, t01=0x010e}
0x2e6c…2e86               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x001d, t01=0x0128}
0x2e86…2ea0               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001d, t01=0x0142}
0x2ea0…2eaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015c}
0x2eaa…2ec2               Head {h00=0x0014, h01=0x0050, text=»FD:028 CF A5,BIO«, t00=0x001d, t01=0x0166}
0x2ec2…2eea               Head {h00=0x0024, h01=0x0050, text=» ORK A2,5 INSERT BIO BITS 13-15 «, t00=0x001d, t01=0x017e}
0x2eea…2efc               Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x001e, t01=0x0016}
0x2efc…2f14               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001e, t01=0x0028}
0x2f14…2f1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0040}
0x2f1e…2f3c               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001e, t01=0x004a}
0x2f3c…2f5a               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001e, t01=0x0068}
0x2f5a…2f78               Head {h00=0x001a, h01=0x0050, text=»* WRITE DELETED DATA *«, t00=0x001e, t01=0x0086}
0x2f78…2f96               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001e, t01=0x00a4}
0x2f96…2fb4               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001e, t01=0x00c2}
0x2fb4…2fbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e0}
0x2fbe…2fd6               Head {h00=0x0014, h01=0x0050, text=»FD:030 CF A5,BIO«, t00=0x001e, t01=0x00ea}
0x2fd6…2fe8               Head {h00=0x000e, h01=0x0050, text=» ORK A2,6 «, t00=0x001e, t01=0x0102}
0x2fe8…2ffa               Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x001e, t01=0x0114}
0x2ffa…3004               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0126}
0x3004…301e               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001e, t01=0x0130}
0x301e…3038               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x001e, t01=0x014a}
0x3038…3052               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x001e, t01=0x0164}
0x3052…306c               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x001e, t01=0x017e}
0x306c…3086               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001f, t01=0x0008}
0x3086…3090               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0022}
0x3090…30ac               Head {h00=0x0018, h01=0x0050, text=»FD:040 CF A5,BIO:RE «, t00=0x001f, t01=0x002c}
0x30ac…30c4               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001f, t01=0x0048}
0x30c4…30dc               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x001f, t01=0x0060}
0x30dc…30f4               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x001f, t01=0x0078}
0x30f4…3114               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:042 TOSS DISC «, t00=0x001f, t01=0x0090}
0x3114…3120               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00b0}
0x3120…3132               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001f, t01=0x00bc}
0x3132…3146               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x001f, t01=0x00ce}
0x3146…315a               Head {h00=0x0010, h01=0x0050, text=»FD:042 EQU *«, t00=0x001f, t01=0x00e2}
0x315a…3166               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00f6}
0x3166…318e               Head {h00=0x0024, h01=0x0050, text=»FD:045 CF A5,FD:REA PERFORM READ«, t00=0x001f, t01=0x0102}
0x318e…3198               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012a}
0x3198…31b0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001f, t01=0x0134}
0x31b0…31ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x014c}
0x31ba…31c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0156}
0x31c4…31dc               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001f, t01=0x0160}
0x31dc…31f2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x0178}
0x31f2…320e               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x001f, t01=0x018e}
0x320e…3246               Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0020, t01=0x001a}
0x3246…3272               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:046 BUFFER IN SYSTEM AREA?«, t00=0x0020, t01=0x0052}
0x3272…329e               Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0020, t01=0x007e}
0x329e…32cc               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,FD:BUF GET DWT BUFFER ADDRESS«, t00=0x0020, t01=0x00aa}
0x32cc…32f6               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0020, t01=0x00d8}
0x32f6…3322               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0020, t01=0x0102}
0x3322…3358               Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x0020, t01=0x012e}
0x3358…3382               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0020, t01=0x0164}
0x3382…33b4               Head {h00=0x002e, h01=0x0050, text=» LD A2,DWT:BF,A6 GET SAVED BUFFER ADDRESS «, t00=0x0020, t01=0x018e}
0x33b4…33de               Head {h00=0x0026, h01=0x0050, text=» ST A2,ECBBA,A8 RESTORE IT IN ECB «, t00=0x0021, t01=0x0030}
0x33de…33f0               Head {h00=0x000e, h01=0x0050, text=» RF FD:048«, t00=0x0021, t01=0x005a}
0x33f0…33fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006c}
0x33fa…340e               Head {h00=0x0010, h01=0x0050, text=»FD:046 EQU *«, t00=0x0021, t01=0x0076}
0x340e…341a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x008a}
0x341a…3424               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0096}
0x3424…343c               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0021, t01=0x00a0}
0x343c…3454               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0021, t01=0x00b8}
0x3454…346c               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0021, t01=0x00d0}
0x346c…348a               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:047 NOT IBM «, t00=0x0021, t01=0x00e8}
0x348a…3496               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0106}
0x3496…34a8               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0021, t01=0x0112}
0x34a8…34c8               Head {h00=0x001c, h01=0x0050, text=» LD A7,ECBRL,A8 REQ LEN «, t00=0x0021, t01=0x0124}
0x34c8…34f4               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS«, t00=0x0021, t01=0x0144}
0x34f4…3508               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0021, t01=0x0170}
0x3508…351c               Head {h00=0x0010, h01=0x0050, text=»FD:047 EQU *«, t00=0x0021, t01=0x0184}
0x351c…3528               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0008}
0x3528…353c               Head {h00=0x0010, h01=0x0050, text=»FD:048 EQU *«, t00=0x0022, t01=0x0014}
0x353c…354e               Head {h00=0x000e, h01=0x0050, text=» ABL FD:RC«, t00=0x0022, t01=0x0028}
0x354e…3558               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x003a}
0x3558…3570               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0022, t01=0x0044}
0x3570…357a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x005c}
0x357a…3592               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0022, t01=0x0066}
0x3592…35a8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0022, t01=0x007e}
0x35a8…35b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0094}
0x35b2…35c8               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0022, t01=0x009e}
0x35c8…35de               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0022, t01=0x00b4}
0x35de…35f4               Head {h00=0x0012, h01=0x0050, text=»* SEARCH KEY *«, t00=0x0022, t01=0x00ca}
0x35f4…360a               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0022, t01=0x00e0}
0x360a…3620               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0022, t01=0x00f6}
0x3620…362a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x010c}
0x362a…363e               Head {h00=0x0010, h01=0x0050, text=»FD:050 EQU *«, t00=0x0022, t01=0x0116}
0x363e…3664               Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 KEY AREA ADDRESS «, t00=0x0022, t01=0x012a}
0x3664…3688               Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A4 KEY AREA LENGTH «, t00=0x0022, t01=0x0150}
0x3688…369a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0022, t01=0x0174}
0x369a…36c0               Head {h00=0x0022, h01=0x0050, text=» ABL(NP) END:10 ILLEGAL LENGTH«, t00=0x0022, t01=0x0186}
0x36c0…36d4               Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0023, t01=0x001c}
0x36d4…36fa               Head {h00=0x0022, h01=0x0050, text=» ABL(P) END:10 ILLEGAL LENGTH «, t00=0x0023, t01=0x0030}
0x36fa…370c               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0023, t01=0x0056}
0x370c…3716               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0068}
0x3716…3744               Head {h00=0x002a, h01=0x0050, text=»*   IF ODD CHANGE TO EVEN NO OF BYTES «, t00=0x0023, t01=0x0072}
0x3744…374e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a0}
0x374e…3760               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x00aa}
0x3760…3772               Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0023, t01=0x00bc}
0x3772…3784               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0023, t01=0x00ce}
0x3784…378e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e0}
0x378e…37a0               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0023, t01=0x00ea}
0x37a0…37b6               Head {h00=0x0012, h01=0x0050, text=» ORK A2,7 BIO «, t00=0x0023, t01=0x00fc}
0x37b6…37c8               Head {h00=0x000e, h01=0x0050, text=» ADK A3,4 «, t00=0x0023, t01=0x0112}
0x37c8…37e6               Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 KEY ADDRESS «, t00=0x0023, t01=0x0124}
0x37e6…3806               Head {h00=0x001c, h01=0x0050, text=» CF A5,FD:WRI SEARCH KEY«, t00=0x0023, t01=0x0142}
0x3806…3824               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 RETURN CODE«, t00=0x0023, t01=0x0162}
0x3824…383a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:048«, t00=0x0023, t01=0x0180}
0x383a…3844               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0008}
0x3844…385c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0024, t01=0x0012}
0x385c…3866               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x002a}
0x3866…388e               Head {h00=0x0024, h01=0x0050, text=»*  READ RECORD WITH KEY COMMAND «, t00=0x0024, t01=0x0034}
0x388e…3898               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x005c}
0x3898…38ac               Head {h00=0x0010, h01=0x0050, text=»FD:060 EQU *«, t00=0x0024, t01=0x0066}
0x38ac…38c2               Head {h00=0x0012, h01=0x0050, text=» LDK A2,4 BIO «, t00=0x0024, t01=0x007a}
0x38c2…38e6               Head {h00=0x0020, h01=0x0050, text=» LD A3,4,A8 REQUESTED LENGTH«, t00=0x0024, t01=0x0090}
0x38e6…38fa               Head {h00=0x0010, h01=0x0050, text=» CWK A3,130 «, t00=0x0024, t01=0x00b4}
0x38fa…3920               Head {h00=0x0022, h01=0x0050, text=» ABL(NE) END:10 ILLEGAL LENGTH«, t00=0x0024, t01=0x00c8}
0x3920…3942               Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0024, t01=0x00ee}
0x3942…3954               Head {h00=0x000e, h01=0x0050, text=» RB FD:045«, t00=0x0024, t01=0x0110}
0x3954…3960               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0122}
0x3960…396a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x012e}
0x396a…3982               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0024, t01=0x0138}
0x3982…398c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0150}
0x398c…39a4               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0024, t01=0x015a}
0x39a4…39bc               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x0024, t01=0x0172}
0x39bc…39d4               Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x0024, t01=0x018a}
0x39d4…39ec               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x0025, t01=0x0012}
0x39ec…3a04               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0025, t01=0x002a}
0x3a04…3a0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0042}
0x3a0e…3a22               Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0025, t01=0x004c}
0x3a22…3a42               Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0025, t01=0x0060}
0x3a42…3a58               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0025, t01=0x0080}
0x3a58…3a6a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0025, t01=0x0096}
0x3a6a…3a7c               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0025, t01=0x00a8}
0x3a7c…3aa6               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FD:090 DISC NOT OPERABEL? «, t00=0x0025, t01=0x00ba}
0x3aa6…3acc               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/200 WRITE PROTECTED?«, t00=0x0025, t01=0x00e4}
0x3acc…3ae6               Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0025, t01=0x010a}
0x3ae6…3afe               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0025, t01=0x0124}
0x3afe…3b22               Head {h00=0x0020, h01=0x0050, text=» RF LOA:05 READ VOLUME NAME «, t00=0x0025, t01=0x013c}
0x3b22…3b2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0160}
0x3b2c…3b40               Head {h00=0x0010, h01=0x0050, text=»FD:075 EQU *«, t00=0x0025, t01=0x016a}
0x3b40…3b4c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x017e}
0x3b4c…3b74               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTRCW,A6 GET RETURN CODE«, t00=0x0025, t01=0x018a}
0x3b74…3b8e               Head {h00=0x0016, h01=0x0050, text=»FD:090 ABL END:IO «, t00=0x0026, t01=0x0022}
0x3b8e…3b98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003c}
0x3b98…3bb0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0026, t01=0x0046}
0x3bb0…3bba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005e}
0x3bba…3bca               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0026, t01=0x0068}
0x3bca…3bda               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0026, t01=0x0078}
0x3bda…3bea               Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0026, t01=0x0088}
0x3bea…3bfa               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0026, t01=0x0098}
0x3bfa…3c0a               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0026, t01=0x00a8}
0x3c0a…3c14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b8}
0x3c14…3c26               Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0026, t01=0x00c2}
0x3c26…3c3e               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0026, t01=0x00d4}
0x3c3e…3c54               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0026, t01=0x00ec}
0x3c54…3c66               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0026, t01=0x0102}
0x3c66…3c8a               Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) FD:RC NOT OPERABEL «, t00=0x0026, t01=0x0114}
0x3c8a…3c9e               Head {h00=0x0010, h01=0x0050, text=»LOA:05 EQU *«, t00=0x0026, t01=0x0138}
0x3c9e…3cb6               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0026, t01=0x014c}
0x3cb6…3cc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0164}
0x3cc0…3ce2               Head {h00=0x001e, h01=0x0050, text=»*  CHECK IF TOSS/IBM LABEL«, t00=0x0026, t01=0x016e}
0x3ce2…3cec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0190}
0x3cec…3d02               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0027, t01=0x000a}
0x3d02…3d16               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0027, t01=0x0020}
0x3d16…3d34               Head {h00=0x001a, h01=0x0050, text=» LDK A3,38 NO OF BYTES«, t00=0x0027, t01=0x0034}
0x3d34…3d4a               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0027, t01=0x0052}
0x3d4a…3d5e               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0027, t01=0x0068}
0x3d5e…3d70               Head {h00=0x000e, h01=0x0050, text=» ADK A4,34«, t00=0x0027, t01=0x007c}
0x3d70…3d84               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0027, t01=0x008e}
0x3d84…3d98               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0027, t01=0x00a2}
0x3d98…3dc4               Head {h00=0x0028, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL PREASSUMED «, t00=0x0027, t01=0x00b6}
0x3dc4…3dd6               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0027, t01=0x00e2}
0x3dd6…3dea               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0027, t01=0x00f4}
0x3dea…3dfe               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0027, t01=0x0108}
0x3dfe…3e1e               Head {h00=0x001c, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL«, t00=0x0027, t01=0x011c}
0x3e1e…3e2a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x013c}
0x3e2a…3e34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0148}
0x3e34…3e4c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0027, t01=0x0152}
0x3e4c…3e56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x016a}
0x3e56…3e60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0174}
0x3e60…3e74               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0027, t01=0x017e}
0x3e74…3e7e (40, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0004}
0x3e7e…3e9a               Head {h00=0x0018, h01=0x0050, text=»*  READ VOLUME NAME «, t00=0x0028, t01=0x000e}
0x3e9a…3ea4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x002a}
0x3ea4…3ebc               Head {h00=0x0014, h01=0x0050, text=» LDK A3,8 LENGTH«, t00=0x0028, t01=0x0034}
0x3ebc…3ed2               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0028, t01=0x004c}
0x3ed2…3f00               Head {h00=0x002a, h01=0x0050, text=» C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK«, t00=0x0028, t01=0x0062}
0x3f00…3f2e               Head {h00=0x002a, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0028, t01=0x0090}
0x3f2e…3f40               Head {h00=0x000e, h01=0x0050, text=» RF LOA:15«, t00=0x0028, t01=0x00be}
0x3f40…3f4c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00d0}
0x3f4c…3f5e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0028, t01=0x00dc}
0x3f5e…3f7e               Head {h00=0x001c, h01=0x0050, text=»LOA:10 LDK A3,10 LENGTH «, t00=0x0028, t01=0x00ee}
0x3f7e…3f96               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0028, t01=0x010e}
0x3f96…3fc0               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0028, t01=0x0126}
0x3fc0…3fec               Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM DISC «, t00=0x0028, t01=0x0150}
0x3fec…4012               Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 RETURN CODE BIT 10«, t00=0x0028, t01=0x017c}
0x4012…402c               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0029, t01=0x0012}
0x402c…4038               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x002c}
0x4038…4050               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0029, t01=0x0038}
0x4050…4064               Head {h00=0x0010, h01=0x0050, text=»LOA:15 EQU *«, t00=0x0029, t01=0x0050}
0x4064…4088               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0029, t01=0x0064}
0x4088…409e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0029, t01=0x0088}
0x409e…40b2               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0029, t01=0x009e}
0x40b2…40c4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0029, t01=0x00b2}
0x40c4…40d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00c4}
0x40d0…40e2               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0029, t01=0x00d0}
0x40e2…40fa               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTRCW,A6«, t00=0x0029, t01=0x00e2}
0x40fa…4122               Head {h00=0x0024, h01=0x0050, text=» ANK A7,/20 CHECK TYPE OF LABEL «, t00=0x0029, t01=0x00fa}
0x4122…4142               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:30 TOSS LABEL«, t00=0x0029, t01=0x0122}
0x4142…4160               Head {h00=0x001a, h01=0x0050, text=» LDK A7,10 NO OF CHAR.«, t00=0x0029, t01=0x0142}
0x4160…4174               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0029, t01=0x0160}
0x4174…4186               Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x0029, t01=0x0174}
0x4186…419a               Head {h00=0x0010, h01=0x0050, text=»LOA:30 EQU *«, t00=0x0029, t01=0x0186}
0x419a…41a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x000a}
0x41a6…41b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0016}
0x41b0…41c8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002a, t01=0x0020}
0x41c8…41d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0038}
0x41d2…41dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0042}
0x41dc…41f4               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002a, t01=0x004c}
0x41f4…41fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0064}
0x41fe…4222               Head {h00=0x0020, h01=0x0050, text=»*  GET DWT VOL NAME ADDRESS «, t00=0x002a, t01=0x006e}
0x4222…422c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0092}
0x422c…4250               Head {h00=0x0020, h01=0x0050, text=» CF A5,VOLADR ADDRESS TO A2 «, t00=0x002a, t01=0x009c}
0x4250…425a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c0}
0x425a…4276               Head {h00=0x0018, h01=0x0050, text=»*  STORE NAME IN DWT«, t00=0x002a, t01=0x00ca}
0x4276…4280               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e6}
0x4280…4292               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x002a, t01=0x00f0}
0x4292…42ae               Head {h00=0x0018, h01=0x0050, text=»LOA:40 LD A4,BUF,A1 «, t00=0x002a, t01=0x0102}
0x42ae…42c0               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x002a, t01=0x011e}
0x42c0…42d2               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x002a, t01=0x0130}
0x42d2…42e8               Head {h00=0x0012, h01=0x0050, text=» RF(Z) LOA:50 «, t00=0x002a, t01=0x0142}
0x42e8…42fa               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x002a, t01=0x0158}
0x42fa…430c               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x002a, t01=0x016a}
0x430c…431e               Head {h00=0x000e, h01=0x0050, text=» RB LOA:40«, t00=0x002a, t01=0x017c}
0x431e…4332               Head {h00=0x0010, h01=0x0050, text=»LOA:50 EQU *«, t00=0x002a, t01=0x018e}
0x4332…4356               Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTOR+1,A6 GET ORDER «, t00=0x002b, t01=0x0012}
0x4356…436a               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x002b, t01=0x0036}
0x436a…4394               Head {h00=0x0026, h01=0x0050, text=» RB(Z) FD:075 JUMP IF TEST STATUS «, t00=0x002b, t01=0x004a}
0x4394…43a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0074}
0x43a0…43b2               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002b, t01=0x0080}
0x43b2…43bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0092}
0x43bc…43de               Head {h00=0x001e, h01=0x0050, text=»* DATA SET OPENING WANTED?«, t00=0x002b, t01=0x009c}
0x43de…43e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00be}
0x43e8…440e               Head {h00=0x0022, h01=0x0050, text=» ANK A1,/2 A1:  TOSS=6, IBM=8 «, t00=0x002b, t01=0x00c8}
0x440e…4430               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOA:70 TOSS LABEL «, t00=0x002b, t01=0x00ee}
0x4430…4450               Head {h00=0x001c, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER «, t00=0x002b, t01=0x0110}
0x4450…4466               Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2600 «, t00=0x002b, t01=0x0130}
0x4466…4486               Head {h00=0x001c, h01=0x0050, text=» RF(E) LOA:70 LOCK ORDER«, t00=0x002b, t01=0x0146}
0x4486…4490               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0166}
0x4490…44ae               Head {h00=0x001a, h01=0x0050, text=»*  READ DATA SET LABEL«, t00=0x002b, t01=0x0170}
0x44ae…44b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x018e}
0x44b8…44da               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW,A8 SECTOR NO «, t00=0x002c, t01=0x0008}
0x44da…44ec               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x002c, t01=0x002a}
0x44ec…4510               Head {h00=0x0020, h01=0x0050, text=» ABL(N) FD:DIS REQUEST ERROR«, t00=0x002c, t01=0x003c}
0x4510…4522               Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x002c, t01=0x0060}
0x4522…4546               Head {h00=0x0020, h01=0x0050, text=» ABL(P) FD:DIS REQUEST ERROR«, t00=0x002c, t01=0x0072}
0x4546…4558               Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x002c, t01=0x0096}
0x4558…456e               Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x002c, t01=0x00a8}
0x456e…4588               Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x002c, t01=0x00be}
0x4588…459c               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x002c, t01=0x00d8}
0x459c…45b2               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002c, t01=0x00ec}
0x45b2…45d0               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x002c, t01=0x0102}
0x45d0…45f4               Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x002c, t01=0x0120}
0x45f4…4616               Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x002c, t01=0x0144}
0x4616…464c               Head {h00=0x0032, h01=0x0050, text=» ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL«, t00=0x002c, t01=0x0166}
0x464c…4660               Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x002d, t01=0x000c}
0x4660…4674               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x002d, t01=0x0020}
0x4674…4680               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002d, t01=0x0034}
0x4680…46ae               Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW,A8 DATA SET LABEL SECTOR «, t00=0x002d, t01=0x0040}
0x46ae…46c4               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x002d, t01=0x006e}
0x46c4…46e4               Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x002d, t01=0x0084}
0x46e4…4704               Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x002d, t01=0x00a4}
0x4704…4736               Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x002d, t01=0x00c4}
0x4736…474c               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002d, t01=0x00f6}
0x474c…4774               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x002d, t01=0x010c}
0x4774…478a               Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x002d, t01=0x0134}
0x478a…47a0               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002d, t01=0x014a}
0x47a0…47b4               Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x002d, t01=0x0160}
0x47b4…47d8               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x002d, t01=0x0174}
0x47d8…47ee               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002e, t01=0x0008}
0x47ee…4804               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x002e, t01=0x001e}
0x4804…482c               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x002e, t01=0x0034}
0x482c…4850               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x002e, t01=0x005c}
0x4850…4866               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002e, t01=0x0080}
0x4866…4884               Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x002e, t01=0x0096}
0x4884…489a               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x002e, t01=0x00b4}
0x489a…48c2               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x002e, t01=0x00ca}
0x48c2…48cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f2}
0x48cc…48e0               Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x002e, t01=0x00fc}
0x48e0…48ec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0110}
0x48ec…4904               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x002e, t01=0x011c}
0x4904…492a               Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x002e, t01=0x0134}
0x492a…4954               Head {h00=0x0026, h01=0x0050, text=»LOA:75 LD A3,DWTRCW,A6 RETURN CODE«, t00=0x002e, t01=0x015a}
0x4954…496c               Head {h00=0x0014, h01=0x0050, text=»LOA:80 ABL FD:RC«, t00=0x002e, t01=0x0184}
0x496c…4976               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x000c}
0x4976…498e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002f, t01=0x0016}
0x498e…4998               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x002e}
0x4998…49a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0038}
0x49a2…49ba               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002f, t01=0x0042}
0x49ba…49c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x005a}
0x49c4…49de               Head {h00=0x0016, h01=0x0050, text=»*  ERROR , UNLOCK «, t00=0x002f, t01=0x0064}
0x49de…49e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007e}
0x49e8…49fc               Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x002f, t01=0x0088}
0x49fc…4a0e               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x002f, t01=0x009c}
0x4a0e…4a30               Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x002f, t01=0x00ae}
0x4a30…4a4a               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x002f, t01=0x00d0}
0x4a4a…4a60               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002f, t01=0x00ea}
0x4a60…4a72               Head {h00=0x000e, h01=0x0050, text=» RB LOA:75«, t00=0x002f, t01=0x0100}
0x4a72…4a7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0112}
0x4a7c…4aba               Head {h00=0x003a, h01=0x0050, text=»*---------------------------------------------------- «, t00=0x002f, t01=0x011c}
0x4aba…4ad8               Head {h00=0x001a, h01=0x0050, text=»*   LD:RC  SUBROUTINE «, t00=0x002f, t01=0x015a}
0x4ad8…4ae2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0178}
0x4ae2…4b00               Head {h00=0x001a, h01=0x0050, text=»LD:RC ORS A3,DWTRCW,A6«, t00=0x002f, t01=0x0182}
0x4b00…4b22               Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/2007 FATAL ERROR«, t00=0x0030, t01=0x0010}
0x4b22…4b38               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x0030, t01=0x0032}
0x4b38…4b62               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0030, t01=0x0048}
0x4b62…4b72               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0030, t01=0x0072}
0x4b72…4b7e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0082}
0x4b7e…4b96               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0030, t01=0x008e}
0x4b96…4ba0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00a6}
0x4ba0…4bb2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00b0}
0x4bb2…4bc4               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x00c2}
0x4bc4…4bd6               Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0030, t01=0x00d4}
0x4bd6…4be8               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x00e6}
0x4be8…4bfa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00f8}
0x4bfa…4c04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010a}
0x4c04…4c18               Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0030, t01=0x0114}
0x4c18…4c2a               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0030, t01=0x0128}
0x4c2a…4c34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013a}
0x4c34…4c50               Head {h00=0x0018, h01=0x0050, text=»*    DATA SET OPEN? «, t00=0x0030, t01=0x0144}
0x4c50…4c5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0160}
0x4c5a…4c7c               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0030, t01=0x016a}
0x4c7c…4c92               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0030, t01=0x018c}
0x4c92…4cb0               Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0031, t01=0x0012}
0x4cb0…4ce8               Head {h00=0x0034, h01=0x0050, text=» ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0031, t01=0x0030}
0x4ce8…4cf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0068}
0x4cf2…4d22               Head {h00=0x002c, h01=0x0050, text=»*  READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0031, t01=0x0072}
0x4d22…4d2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a2}
0x4d2c…4d50               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0031, t01=0x00ac}
0x4d50…4d7a               Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0031, t01=0x00d0}
0x4d7a…4da2               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0031, t01=0x00fa}
0x4da2…4dae               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0031, t01=0x0122}
0x4dae…4db8               Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0031, t01=0x012e}
0x4db8…4de0               Head {h00=0x0024, h01=0x0050, text=»*------------------------------ «, t00=0x0031, t01=0x0138}
0x4de0…4e20               Head {h00=0x003c, h01=0x0050, text=»*  TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0031, t01=0x0160}
0x4e20…4e2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0010}
0x4e2a…4e4c               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0032, t01=0x001a}
0x4e4c…4e56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003c}
0x4e56…4e72               Head {h00=0x0018, h01=0x0050, text=»*  DIVIDE EOD BY 26 «, t00=0x0032, t01=0x0046}
0x4e72…4e7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0062}
0x4e7c…4e8e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0032, t01=0x006c}
0x4e8e…4ea6               Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0032, t01=0x007e}
0x4ea6…4ebc               Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0032, t01=0x0096}
0x4ebc…4ece               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0032, t01=0x00ac}
0x4ece…4ee0               Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0032, t01=0x00be}
0x4ee0…4ef8               Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0032, t01=0x00d0}
0x4ef8…4f02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e8}
0x4f02…4f22               Head {h00=0x001c, h01=0x0050, text=»*   A1 = BINARY TRACK NO«, t00=0x0032, t01=0x00f2}
0x4f22…4f50               Head {h00=0x002a, h01=0x0050, text=»*   A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0032, t01=0x0112}
0x4f50…4f5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0140}
0x4f5a…4f86               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0032, t01=0x014a}
0x4f86…4fb2               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0032, t01=0x0176}
0x4fb2…4fc4               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0033, t01=0x0012}
0x4fc4…4fd6               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x0024}
0x4fd6…4ff2               Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0033, t01=0x0036}
0x4ff2…5014               Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0033, t01=0x0052}
0x5014…502c               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0033, t01=0x0074}
0x502c…5058               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0033, t01=0x008c}
0x5058…506a               Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0033, t01=0x00b8}
0x506a…508c               Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0033, t01=0x00ca}
0x508c…50aa               Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x0033, t01=0x00ec}
0x50aa…50b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x010a}
0x50b4…50d4               Head {h00=0x001c, h01=0x0050, text=»*  WRITE DATA SET LABEL «, t00=0x0033, t01=0x0114}
0x50d4…50de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0134}
0x50de…5102               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0033, t01=0x013e}
0x5102…5122               Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0033, t01=0x0162}
0x5122…514e               Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0033, t01=0x0182}
0x514e…5176               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0034, t01=0x001e}
0x5176…518c               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0034, t01=0x0046}
0x518c…51ae               Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0034, t01=0x005c}
0x51ae…51b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x007e}
0x51b8…51cc               Head {h00=0x0010, h01=0x0050, text=»*    UNLOCK «, t00=0x0034, t01=0x0088}
0x51cc…51d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x009c}
0x51d6…51e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00a6}
0x51e2…51f6               Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0034, t01=0x00b2}
0x51f6…5210               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0034, t01=0x00c6}
0x5210…5226               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x00e0}
0x5226…5240               Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0034, t01=0x00f6}
0x5240…5252               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x0110}
0x5252…5282               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED«, t00=0x0034, t01=0x0122}
0x5282…52a4               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 INDEX MASK«, t00=0x0034, t01=0x0152}
0x52a4…52d4               Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0034, t01=0x0174}
0x52d4…52e8               Head {h00=0x0010, h01=0x0050, text=»UNL:80 EQU *«, t00=0x0035, t01=0x0014}
0x52e8…5302               Head {h00=0x0016, h01=0x0050, text=» RB LOA:75 END:IO «, t00=0x0035, t01=0x0028}
0x5302…531a               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0035, t01=0x0042}
0x531a…5324               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x005a}
0x5324…5348               Head {h00=0x0020, h01=0x0050, text=»*   UNLOAD RETURN CODE CHECK«, t00=0x0035, t01=0x0064}
0x5348…5352               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0088}
0x5352…5372               Head {h00=0x001c, h01=0x0050, text=»UNL:RC ORS A3,DWTRCW,A6 «, t00=0x0035, t01=0x0092}
0x5372…5392               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/7 FATAL ERROR? «, t00=0x0035, t01=0x00b2}
0x5392…53ae               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) UNL:80 ENDIO«, t00=0x0035, t01=0x00d2}
0x53ae…53be               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0035, t01=0x00ee}
0x53be…53ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x00fe}
0x53ca…53dc               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0035, t01=0x010a}
0x53dc…53f4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0035, t01=0x011c}
0x53f4…53fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0134}
0x53fe…541a               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0035, t01=0x013e}
0x541a…5436               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0035, t01=0x015a}
0x5436…5452               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0035, t01=0x0176}
0x5452…545c (54, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0004}
0x545c…5470               Head {h00=0x0010, h01=0x0050, text=»SQREAD EQU *«, t00=0x0036, t01=0x000e}
0x5470…549e               Head {h00=0x002a, h01=0x0050, text=» CF A5,DSOPCH GET EOD AND EOD ADDRESS «, t00=0x0036, t01=0x0022}
0x549e…54b4               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0036, t01=0x0050}
0x54b4…54da               Head {h00=0x0022, h01=0x0050, text=»SQR:05 ABL(Z) DISIOE NOT OPEN «, t00=0x0036, t01=0x0066}
0x54da…550c               Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0036, t01=0x008c}
0x550c…5524               Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0036, t01=0x00be}
0x5524…553c               Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0036, t01=0x00d6}
0x553c…5566               Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBCW,A8 STORE CRN+1 IN ECB«, t00=0x0036, t01=0x00ee}
0x5566…5578               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0036, t01=0x0118}
0x5578…559a               Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0036, t01=0x012a}
0x559a…55b0               Head {h00=0x0012, h01=0x0050, text=» CF A5,BIO:RE «, t00=0x0036, t01=0x014c}
0x55b0…55d4               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0036, t01=0x0162}
0x55d4…560a               Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0036, t01=0x0186}
0x560a…5636               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0037, t01=0x002c}
0x5636…565e               Head {h00=0x0024, h01=0x0050, text=» LD A7,ECBRL,A8 REQUESTED LENGTH«, t00=0x0037, t01=0x0058}
0x565e…5686               Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0037, t01=0x0080}
0x5686…569c               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0037, t01=0x00a8}
0x569c…56b0               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0037, t01=0x00be}
0x56b0…56ce               Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x0037, t01=0x00d2}
0x56ce…56d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00f0}
0x56d8…56f0               Head {h00=0x0014, h01=0x0050, text=»*    END OF DATA«, t00=0x0037, t01=0x00fa}
0x56f0…56fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0112}
0x56fa…5722               Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x0037, t01=0x011c}
0x5722…5734               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0037, t01=0x0144}
0x5734…574c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0037, t01=0x0156}
0x574c…5756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x016e}
0x5756…5772               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0037, t01=0x0178}
0x5772…578e (56, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x0038, t01=0x0004}
0x578e…57aa               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x0020}
0x57aa…57b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x003c}
0x57b4…57c8               Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0038, t01=0x0046}
0x57c8…57e6               Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0038, t01=0x005a}
0x57e6…5808               Head {h00=0x001e, h01=0x0050, text=» ADK A7,0 EOD-NO (SET CR) «, t00=0x0038, t01=0x0078}
0x5808…5826               Head {h00=0x001a, h01=0x0050, text=» RB(Z) SQR:05 NOT OPEN«, t00=0x0038, t01=0x009a}
0x5826…5830               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b8}
0x5830…5852               Head {h00=0x001e, h01=0x0050, text=»*   CHECK IF END OF EXTENT«, t00=0x0038, t01=0x00c2}
0x5852…585c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e4}
0x585c…5872               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0038, t01=0x00ee}
0x5872…589c               Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x0038, t01=0x0104}
0x589c…58ca               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD IN ECB C. W.«, t00=0x0038, t01=0x012e}
0x58ca…58de               Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x0038, t01=0x015c}
0x58de…58fc               Head {h00=0x001a, h01=0x0050, text=» RF(G) SQW:20 YES,EOE «, t00=0x0038, t01=0x0170}
0x58fc…590e               Head {h00=0x000e, h01=0x0050, text=» CF A5,BIO«, t00=0x0038, t01=0x018e}
0x590e…5922               Head {h00=0x0010, h01=0x0050, text=» LDK A7,128 «, t00=0x0039, t01=0x0010}
0x5922…5952               Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x0039, t01=0x0024}
0x5952…5970               Head {h00=0x001a, h01=0x0050, text=» ORK A2,5 PHYS. WRITE «, t00=0x0039, t01=0x0054}
0x5970…5986               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0039, t01=0x0072}
0x5986…599c               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0039, t01=0x0088}
0x599c…59c0               Head {h00=0x0020, h01=0x0050, text=»SQW:10 LDR A1,A3 RETURN CODE«, t00=0x0039, t01=0x009e}
0x59c0…59d2               Head {h00=0x000e, h01=0x0050, text=» ANK A1,/1«, t00=0x0039, t01=0x00c2}
0x59d2…59f6               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SQW:15 NOT OPERABLE «, t00=0x0039, t01=0x00d4}
0x59f6…5a24               Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x0039, t01=0x00f8}
0x5a24…5a3c               Head {h00=0x0014, h01=0x0050, text=»SQW:15 RF FD:RC «, t00=0x0039, t01=0x0126}
0x5a3c…5a46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x013e}
0x5a46…5a50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0148}
0x5a50…5a68               Head {h00=0x0014, h01=0x0050, text=»*  END OF EXTENT«, t00=0x0039, t01=0x0152}
0x5a68…5a90               Head {h00=0x0024, h01=0x0050, text=»SQW:20 LDKL A1,/400 RETURN CODE «, t00=0x0039, t01=0x016a}
0x5a90…5aa2 (58, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003a, t01=0x0004}
0x5aa2…5aba               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003a, t01=0x0016}
0x5aba…5ac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x002e}
0x5ac4…5ad6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0038}
0x5ad6…5ae8               Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003a, t01=0x004a}
0x5ae8…5afa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x005c}
0x5afa…5b04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x006e}
0x5b04…5b18               Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003a, t01=0x0078}
0x5b18…5b2e               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003a, t01=0x008c}
0x5b2e…5b4c               Head {h00=0x001a, h01=0x0050, text=» ADK A7,0 EOD (SET CR)«, t00=0x003a, t01=0x00a2}
0x5b4c…5b74               Head {h00=0x0024, h01=0x0050, text=» RB(Z) SQR:05 DATA SET NOT OPEN «, t00=0x003a, t01=0x00c0}
0x5b74…5b98               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x003a, t01=0x00e8}
0x5b98…5bae               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x003a, t01=0x010c}
0x5bae…5bc2               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003a, t01=0x0122}
0x5bc2…5bda               Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x003a, t01=0x0136}
0x5bda…5bf6               Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x003a, t01=0x014e}
0x5bf6…5c0c               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003a, t01=0x016a}
0x5c0c…5c20               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003a, t01=0x0180}
0x5c20…5c3a (59, 0, 400)  Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x003b, t01=0x0004}
0x5c3a…5c5a               Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x003b, t01=0x001e}
0x5c5a…5c78               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x003e}
0x5c78…5c8a               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003b, t01=0x005c}
0x5c8a…5c96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x006e}
0x5c96…5cae               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003b, t01=0x007a}
0x5cae…5cb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0092}
0x5cb8…5cd2               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x003b, t01=0x009c}
0x5cd2…5cec               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x003b, t01=0x00b6}
0x5cec…5d06               Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x003b, t01=0x00d0}
0x5d06…5d20               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x003b, t01=0x00ea}
0x5d20…5d3a               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x003b, t01=0x0104}
0x5d3a…5d44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x011e}
0x5d44…5d4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0128}
0x5d4e…5d72               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A2  BIO CONTENTS «, t00=0x003b, t01=0x0132}
0x5d72…5da6               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x003b, t01=0x0156}
0x5da6…5dcc               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x003b, t01=0x018a}
0x5dcc…5dd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0020}
0x5dd6…5dea               Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x003c, t01=0x002a}
0x5dea…5dfe               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003c, t01=0x003e}
0x5dfe…5e20               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x003c, t01=0x0052}
0x5e20…5e2c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0074}
0x5e2c…5e40               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003c, t01=0x0080}
0x5e40…5e6c               Head {h00=0x0028, h01=0x0050, text=» CM DWTRW,A6 INDICATOR TO WRITE MODE«, t00=0x003c, t01=0x0094}
0x5e6c…5e78               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00c0}
0x5e78…5e8a               Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x003c, t01=0x00cc}
0x5e8a…5e94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00de}
0x5e94…5ea8               Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x003c, t01=0x00e8}
0x5ea8…5ebc               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003c, t01=0x00fc}
0x5ebc…5ece               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x003c, t01=0x0110}
0x5ece…5ef0               Head {h00=0x001e, h01=0x0050, text=» ST A1,DWTRW,A6 READ MODE «, t00=0x003c, t01=0x0122}
0x5ef0…5efc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0144}
0x5efc…5f10               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003c, t01=0x0150}
0x5f10…5f32               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS  READ«, t00=0x003c, t01=0x0164}
0x5f32…5f3e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0186}
0x5f3e…5f52 (61, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x003d, t01=0x0004}
0x5f52…5f66               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003d, t01=0x0018}
0x5f66…5f8c               Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x003d, t01=0x002c}
0x5f8c…5f96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0052}
0x5f96…5fac               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x005c}
0x5fac…5fd6               Head {h00=0x0026, h01=0x0050, text=» ORR* A1,A8 GET FIRST WORD OF ECB «, t00=0x003d, t01=0x0072}
0x5fd6…6004               Head {h00=0x002a, h01=0x0050, text=» ANKL A1,/F000 KEEP FOUR LEFTMOST BITS«, t00=0x003d, t01=0x009c}
0x6004…6010               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00ca}
0x6010…601a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00d6}
0x601a…602e               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003d, t01=0x00e0}
0x602e…6040               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x003d, t01=0x00f4}
0x6040…6064               Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x003d, t01=0x0106}
0x6064…608c               Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x003d, t01=0x012a}
0x608c…6098               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0152}
0x6098…60ac               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003d, t01=0x015e}
0x60ac…60b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0172}
0x60b6…60ce               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003d, t01=0x017c}
0x60ce…60d8 (62, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0004}
0x60d8…610a               Head {h00=0x002e, h01=0x0050, text=»*  PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x003e, t01=0x000e}
0x610a…6114               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0040}
0x6114…612c               Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x003e, t01=0x004a}
0x612c…613e               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x003e, t01=0x0062}
0x613e…6164               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x003e, t01=0x0074}
0x6164…6170               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x009a}
0x6170…6184               Head {h00=0x0010, h01=0x0050, text=»FD:820 EQU *«, t00=0x003e, t01=0x00a6}
0x6184…61ae               Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x003e, t01=0x00ba}
0x61ae…61d6               Head {h00=0x0024, h01=0x0050, text=»FD:CIO CIO A2,1,CUADR CIO-START «, t00=0x003e, t01=0x00e4}
0x61d6…6202               Head {h00=0x0028, h01=0x0050, text=» RF(3) FD:840 DEVICE ADDRESS UNKNOWN«, t00=0x003e, t01=0x010c}
0x6202…6214               Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x003e, t01=0x0138}
0x6214…6238               Head {h00=0x0020, h01=0x0050, text=»FD:840 LDK A1,1 NOT OPERABLE«, t00=0x003e, t01=0x014a}
0x6238…624a               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003e, t01=0x016e}
0x624a…6262               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003e, t01=0x0180}
0x6262…626c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0008}
0x626c…629a               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x0012}
0x629a…62c8               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x003f, t01=0x0040}
0x62c8…62f6               Head {h00=0x002a, h01=0x0050, text=»*  FD:RC - STORE EFF LEN, END:IO     *«, t00=0x003f, t01=0x006e}
0x62f6…6324               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x003f, t01=0x009c}
0x6324…6352               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x00ca}
0x6352…635c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00f8}
0x635c…637e               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A3  RETURN CODE«, t00=0x003f, t01=0x0102}
0x637e…6388               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0124}
0x6388…639c               Head {h00=0x0010, h01=0x0050, text=»FD:RC EQU * «, t00=0x003f, t01=0x012e}
0x639c…63ae               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003f, t01=0x0142}
0x63ae…63b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0154}
0x63b8…63de               Head {h00=0x0022, h01=0x0050, text=»*  PUT EFFECTIVE LENGTH IN ECB«, t00=0x003f, t01=0x015e}
0x63de…63e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0184}
0x63e8…640a               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBRL,A8 REQ LENGTH«, t00=0x003f, t01=0x018e}
0x640a…642c               Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBEL,A8 EFF LENGTH«, t00=0x0040, t01=0x0020}
0x642c…6444               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0040, t01=0x0042}
0x6444…644e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x005a}
0x644e…6460               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x0064}
0x6460…6472               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0040, t01=0x0076}
0x6472…6484               Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x0040, t01=0x0088}
0x6484…6496               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0040, t01=0x009a}
0x6496…64a8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x00ac}
0x64a8…64b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00be}
0x64b2…64c6               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0040, t01=0x00c8}
0x64c6…64dc               Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0040, t01=0x00dc}
0x64dc…64f4               Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0040, t01=0x00f2}
0x64f4…64fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x010a}
0x64fe…6508               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0114}
0x6508…652e               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY FROM RECOVERY ROUTINE«, t00=0x0040, t01=0x011e}
0x652e…6538               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0144}
0x6538…654c               Head {h00=0x0010, h01=0x0050, text=»END:05 EQU *«, t00=0x0040, t01=0x014e}
0x654c…6556               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0162}
0x6556…6570               Head {h00=0x0016, h01=0x0050, text=»*  ILLEGAL LENGTH «, t00=0x0040, t01=0x016c}
0x6570…657a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0186}
0x657a…659e               Head {h00=0x0020, h01=0x0050, text=»END:10 LDK A1,8 RETURN CODE «, t00=0x0040, t01=0x0190}
0x659e…65b0               Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0041, t01=0x0024}
0x65b0…65c8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0041, t01=0x0036}
0x65c8…65d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x004e}
0x65d2…65ee               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0041, t01=0x0058}
0x65ee…660a               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0041, t01=0x0074}
0x660a…6626               Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0041, t01=0x0090}
0x6626…6642               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0041, t01=0x00ac}
0x6642…665e               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0041, t01=0x00c8}
0x665e…6668               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00e4}
0x6668…667a               Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x0041, t01=0x00ee}
0x667a…6690               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0041, t01=0x0100}
0x6690…66ba               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0041, t01=0x0116}
0x66ba…66c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0140}
0x66c6…66d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x014c}
0x66d0…66e6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0041, t01=0x0156}
0x66e6…670c               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0041, t01=0x016c}
0x670c…6718 (66, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0004}
0x6718…6722               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0010}
0x6722…6746               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0042, t01=0x001a}
0x6746…6750               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x003e}
0x6750…6764               Head {h00=0x0010, h01=0x0050, text=»FDON05 EQU *«, t00=0x0042, t01=0x0048}
0x6764…6786               Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0042, t01=0x005c}
0x6786…679e               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0042, t01=0x007e}
0x679e…67c0               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x0042, t01=0x0096}
0x67c0…67ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b8}
0x67ca…67e6               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0042, t01=0x00c2}
0x67e6…6816               Head {h00=0x002c, h01=0x0050, text=» LD A2,INIFLG CHECK INITIALIZATION FLAG «, t00=0x0042, t01=0x00de}
0x6816…6836               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON07 POWER UP? «, t00=0x0042, t01=0x010e}
0x6836…6874               Head {h00=0x003a, h01=0x0050, text=» LD A2,SCTPLD GET FILE CODE OF PROGRAM LOADING DEVICE «, t00=0x0042, t01=0x012e}
0x6874…6888               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F8 «, t00=0x0042, t01=0x016c}
0x6888…68b0               Head {h00=0x0024, h01=0x0050, text=» RF(N) FDON07 NOT FLEXIBLE DISC?«, t00=0x0042, t01=0x0180}
0x68b0…68c2               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0043, t01=0x0018}
0x68c2…68f4               Head {h00=0x002e, h01=0x0050, text=» CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION «, t00=0x0043, t01=0x002a}
0x68f4…6920               Head {h00=0x0028, h01=0x0050, text=» CF A5,FDIX GET DRIVE BIT INDICATOR «, t00=0x0043, t01=0x005c}
0x6920…694e               Head {h00=0x002a, h01=0x0050, text=» ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED«, t00=0x0043, t01=0x0088}
0x694e…6958               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00b6}
0x6958…6970               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0043, t01=0x00c0}
0x6970…697a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00d8}
0x697a…6984               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00e2}
0x6984…6996               Head {h00=0x000e, h01=0x0050, text=» C1R A3,A3«, t00=0x0043, t01=0x00ec}
0x6996…69c4               Head {h00=0x002a, h01=0x0050, text=» ANS A3,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0043, t01=0x00fe}
0x69c4…69ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x012c}
0x69ce…69fc               Head {h00=0x002a, h01=0x0050, text=»* READ VOLUME NAME (A2 = 0 FROM FDIX) «, t00=0x0043, t01=0x0136}
0x69fc…6a06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0164}
0x6a06…6a18               Head {h00=0x000e, h01=0x0050, text=» LDK A3,8 «, t00=0x0043, t01=0x016e}
0x6a18…6a2c               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0043, t01=0x0180}
0x6a2c…6a42 (68, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0044, t01=0x0004}
0x6a42…6a58               Head {h00=0x0012, h01=0x0050, text=» LD A3,SCTPLD «, t00=0x0044, t01=0x001a}
0x6a58…6a8c               Head {h00=0x0030, h01=0x0050, text=» CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT«, t00=0x0044, t01=0x0030}
0x6a8c…6a9e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0044, t01=0x0064}
0x6a9e…6ab0               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x0044, t01=0x0076}
0x6ab0…6aba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0088}
0x6aba…6adc               Head {h00=0x001e, h01=0x0050, text=»* MOVE VOLUME NAME TO DWT «, t00=0x0044, t01=0x0092}
0x6adc…6ae6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00b4}
0x6ae6…6b02               Head {h00=0x0018, h01=0x0050, text=»FDON06 LD A4,BUF,A1 «, t00=0x0044, t01=0x00be}
0x6b02…6b14               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0044, t01=0x00da}
0x6b14…6b26               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0044, t01=0x00ec}
0x6b26…6b38               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0044, t01=0x00fe}
0x6b38…6b4a               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0044, t01=0x0110}
0x6b4a…6b60               Head {h00=0x0012, h01=0x0050, text=» RB(P) FDON06 «, t00=0x0044, t01=0x0122}
0x6b60…6b6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0138}
0x6b6a…6b7e               Head {h00=0x0010, h01=0x0050, text=»FDON07 EQU *«, t00=0x0044, t01=0x0142}
0x6b7e…6b8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0156}
0x6b8a…6b94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0162}
0x6b94…6bac               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0044, t01=0x016c}
0x6bac…6bb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0184}
0x6bb6…6bea               Head {h00=0x0030, h01=0x0050, text=»*  SAVE DWTST TO DWTST2 IF NOT ALREADY DONE.«, t00=0x0044, t01=0x018e}
0x6bea…6c08               Head {h00=0x001a, h01=0x0050, text=»*    DWTST IS SET BUSY«, t00=0x0045, t01=0x0032}
0x6c08…6c12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0050}
0x6c12…6c2a               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST2,A6«, t00=0x0045, t01=0x005a}
0x6c2a…6c3c               Head {h00=0x000e, h01=0x0050, text=» CWK A2,-1«, t00=0x0045, t01=0x0072}
0x6c3c…6c60               Head {h00=0x0020, h01=0x0050, text=» RF(NE) FDON08 ALREADY SAVED«, t00=0x0045, t01=0x0084}
0x6c60…6c78               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0045, t01=0x00a8}
0x6c78…6c90               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST2,A6«, t00=0x0045, t01=0x00c0}
0x6c90…6cb4               Head {h00=0x0020, h01=0x0050, text=»FDON08 CM DWTST,A6 SET BUSY «, t00=0x0045, t01=0x00d8}
0x6cb4…6cbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00fc}
0x6cbe…6cd4               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0045, t01=0x0106}
0x6cd4…6cde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x011c}
0x6cde…6cec               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x0126}
0x6cec…6cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0134}
0x6cf6…6d34               Head {h00=0x003a, h01=0x0050, text=»*    TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x0045, t01=0x013e}
0x6d34…6d5a               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x0045, t01=0x017c}
0x6d5a…6d7c               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x0046, t01=0x0012}
0x6d7c…6d96               Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x0046, t01=0x0034}
0x6d96…6dbe               Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x0046, t01=0x004e}
0x6dbe…6dd2               Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x0046, t01=0x0076}
0x6dd2…6ddc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x008a}
0x6ddc…6e16               Head {h00=0x0036, h01=0x0050, text=»*    OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x0046, t01=0x0094}
0x6e16…6e4c               Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x0046, t01=0x00ce}
0x6e4c…6e56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0104}
0x6e56…6e80               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x0046, t01=0x010e}
0x6e80…6ea8               Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x0046, t01=0x0138}
0x6ea8…6ec6               Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x0046, t01=0x0160}
0x6ec6…6ef2               Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x0046, t01=0x017e}
0x6ef2…6efc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x001a}
0x6efc…6f10               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0047, t01=0x0024}
0x6f10…6f3a               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x0047, t01=0x0038}
0x6f3a…6f44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0062}
0x6f44…6f50               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x006c}
0x6f50…6f5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0078}
0x6f5a…6f68               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0082}
0x6f68…6f72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0090}
0x6f72…6f88               Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0047, t01=0x009a}
0x6f88…6f92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00b0}
0x6f92…6faa               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0047, t01=0x00ba}
0x6faa…6fcc               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0047, t01=0x00d2}
0x6fcc…6fe2               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0047, t01=0x00f4}
0x6fe2…7008               Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0047, t01=0x010a}
0x7008…701a               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0047, t01=0x0130}
0x701a…7036               Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0047, t01=0x0142}
0x7036…7048               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0047, t01=0x015e}
0x7048…7062               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0047, t01=0x0170}
0x7062…7078               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0047, t01=0x018a}
0x7078…7092               Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0048, t01=0x0010}
0x7092…70a4               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0048, t01=0x002a}
0x70a4…70ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x003c}
0x70ae…70ca               Head {h00=0x0018, h01=0x0050, text=»*   TIME OUT ROUTINE«, t00=0x0048, t01=0x0046}
0x70ca…70d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0062}
0x70d4…70ec               Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0048, t01=0x006c}
0x70ec…7100               Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0048, t01=0x0084}
0x7100…7118               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0048, t01=0x0098}
0x7118…7136               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0048, t01=0x00b0}
0x7136…7140               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ce}
0x7140…7156               Head {h00=0x0012, h01=0x0050, text=»*  LOCK DOORS «, t00=0x0048, t01=0x00d8}
0x7156…7160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ee}
0x7160…7172               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0048, t01=0x00f8}
0x7172…7186               Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0048, t01=0x010a}
0x7186…71ac               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0048, t01=0x011e}
0x71ac…71be               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0048, t01=0x0144}
0x71be…71de               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0048, t01=0x0156}
0x71de…71fa               Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0048, t01=0x0176}
0x71fa…7204 (73, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0004}
0x7204…7212               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x000e}
0x7212…721c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x001c}
0x721c…7240               Head {h00=0x0020, h01=0x0050, text=»*  PUT DRIVE NO IN CIO INSTR«, t00=0x0049, t01=0x0026}
0x7240…724a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x004a}
0x724a…726c               Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0049, t01=0x0054}
0x726c…729a               Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0049, t01=0x0076}
0x729a…72b2               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0049, t01=0x00a4}
0x72b2…72c8               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0049, t01=0x00bc}
0x72c8…72ea               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0049, t01=0x00d2}
0x72ea…72fc               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0049, t01=0x00f4}
0x72fc…7314               Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0049, t01=0x0106}
0x7314…733c               Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0049, t01=0x011e}
0x733c…7350               Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x0049, t01=0x0146}
0x7350…7362               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0049, t01=0x015a}
0x7362…7378               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x0049, t01=0x016c}
0x7378…738e               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x0049, t01=0x0182}
0x738e…7398               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0008}
0x7398…73ae               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x004a, t01=0x0012}
0x73ae…73b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0028}
0x73b8…7400               Head {h00=0x0044, h01=0x0050, text=»*    RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x004a, t01=0x0032}
0x7400…7428               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x004a, t01=0x007a}
0x7428…744e               Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x004a, t01=0x00a2}
0x744e…746e               Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x004a, t01=0x00c8}
0x746e…7478               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00e8}
0x7478…74a0               Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x004a, t01=0x00f2}
0x74a0…74d4               Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x004a, t01=0x011a}
0x74d4…74f4               Head {h00=0x001c, h01=0x0050, text=»*   BEFORE THE POWER OFF«, t00=0x004a, t01=0x014e}
0x74f4…7500               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x016e}
0x7500…750a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x017a}
0x750a…7518               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x0184}
0x7518…7522 (75, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0004}
0x7522…753a               Head {h00=0x0014, h01=0x0050, text=»*  ANY REQUEST? «, t00=0x004b, t01=0x000e}
0x753a…7544               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0026}
0x7544…7576               Head {h00=0x002e, h01=0x0050, text=»*  RESTORE STATUS SAVED IN DWST2 TO DWTST.«, t00=0x004b, t01=0x0030}
0x7576…7592               Head {h00=0x0018, h01=0x0050, text=»*   SET DWTST2 TO -1«, t00=0x004b, t01=0x0062}
0x7592…75b8               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST2,A6 SAVED STATUS «, t00=0x004b, t01=0x007e}
0x75b8…75e6               Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTST,A6 PUT IN CUURENT STATUS «, t00=0x004b, t01=0x00a4}
0x75e6…75fa               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x004b, t01=0x00d2}
0x75fa…7626               Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTST2,A6 INDICATE NOT SAVED «, t00=0x004b, t01=0x00e6}
0x7626…764a               Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x004b, t01=0x0112}
0x764a…765e               Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x004b, t01=0x0136}
0x765e…7676               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x004b, t01=0x014a}
0x7676…76aa               Head {h00=0x0030, h01=0x0050, text=» ABL(N) END:05 NO REQUEST, RETURN VIA TENDIO«, t00=0x004b, t01=0x0162}
0x76aa…76b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0008}
0x76b4…76cc               Head {h00=0x0014, h01=0x0050, text=»*  RETRY REQUEST«, t00=0x004c, t01=0x0012}
0x76cc…76d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x002a}
0x76d6…76fa               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x004c, t01=0x0034}
0x76fa…7712               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x004c, t01=0x0058}
0x7712…772c               Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x004c, t01=0x0070}
0x772c…7750               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x004c, t01=0x008a}
0x7750…776c               Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x004c, t01=0x00ae}
0x776c…7784               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x004c, t01=0x00ca}
0x7784…778e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00e2}
0x778e…77ac               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x004c, t01=0x00ec}
0x77ac…77ca               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x004c, t01=0x010a}
0x77ca…77e8               Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x004c, t01=0x0128}
0x77e8…7806               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x004c, t01=0x0146}
0x7806…7824               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x004c, t01=0x0164}
0x7824…782e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0182}
0x782e…7840               Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x004c, t01=0x018c}
0x7840…7868               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x004d, t01=0x000e}
0x7868…788e               Head {h00=0x0022, h01=0x0050, text=»******************** =1 START «, t00=0x004d, t01=0x0036}
0x788e…78a4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x004d, t01=0x005c}
0x78a4…78d2               Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x004d, t01=0x0072}
0x78d2…78de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00a0}
0x78de…78e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00ac}
0x78e8…78fe               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004d, t01=0x00b6}
0x78fe…7924               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x004d, t01=0x00cc}
0x7924…7930               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00f2}
0x7930…793a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00fe}
0x793a…795e               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x004d, t01=0x0108}
0x795e…7972               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x004d, t01=0x012c}
0x7972…797e               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x004d, t01=0x0140}
0x797e…79a8               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x004d, t01=0x014c}
0x79a8…79ce               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x004d, t01=0x0176}
0x79ce…79e8               Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x004e, t01=0x000c}
0x79e8…79fc               Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x004e, t01=0x0026}
0x79fc…7a1c               Head {h00=0x001c, h01=0x0050, text=» SST A3,CUADR GET STATUS«, t00=0x004e, t01=0x003a}
0x7a1c…7a42               Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x004e, t01=0x005a}
0x7a42…7a6e               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x004e, t01=0x0080}
0x7a6e…7a88               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x004e, t01=0x00ac}
0x7a88…7a92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00c6}
0x7a92…7aa8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x004e, t01=0x00d0}
0x7aa8…7ab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e6}
0x7ab2…7abc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00f0}
0x7abc…7ad0               Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x004e, t01=0x00fa}
0x7ad0…7af8               Head {h00=0x0024, h01=0x0050, text=» LCR A3,A1 ONE BYTE FROM BUFFER «, t00=0x004e, t01=0x010e}
0x7af8…7b18               Head {h00=0x001c, h01=0x0050, text=» ECR A3,A3 LEFT POSITION«, t00=0x004e, t01=0x0136}
0x7b18…7b42               Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A1 RIGHT BYTE FROM BUFFER«, t00=0x004e, t01=0x0156}
0x7b42…7b60               Head {h00=0x001a, h01=0x0050, text=» OTR A3,0,CUADR WRITE «, t00=0x004e, t01=0x0180}
0x7b60…7b76               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x004f, t01=0x000e}
0x7b76…7b9e               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x004f, t01=0x0024}
0x7b9e…7bb0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004f, t01=0x004c}
0x7bb0…7bc4               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x004f, t01=0x005e}
0x7bc4…7be4               Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x004f, t01=0x0072}
0x7be4…7c06               Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x004f, t01=0x0092}
0x7c06…7c10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00b4}
0x7c10…7c24               Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x004f, t01=0x00be}
0x7c24…7c40               Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR READ«, t00=0x004f, t01=0x00d2}
0x7c40…7c56               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x004f, t01=0x00ee}
0x7c56…7c7e               Head {h00=0x0024, h01=0x0050, text=» SC A3,1,A1 RIGHT BYTE TO BUFFER«, t00=0x004f, t01=0x0104}
0x7c7e…7c90               Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x004f, t01=0x012c}
0x7c90…7cb6               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 LEFT BYTE TO BUFFER«, t00=0x004f, t01=0x013e}
0x7cb6…7cde               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x004f, t01=0x0164}
0x7cde…7cf0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004f, t01=0x018c}
0x7cf0…7d04               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x0050, t01=0x000e}
0x7d04…7d24               Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,CUADR CIO HALT«, t00=0x0050, t01=0x0022}
0x7d24…7d44               Head {h00=0x001c, h01=0x0050, text=» SST A3,CUADR STATUS =2 «, t00=0x0050, t01=0x0042}
0x7d44…7d5c               Head {h00=0x0014, h01=0x0050, text=» RB(NA) *-2  =2 «, t00=0x0050, t01=0x0062}
0x7d5c…7d74               Head {h00=0x0014, h01=0x0050, text=»IH:000 EQU *  =1«, t00=0x0050, t01=0x007a}
0x7d74…7d80               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0092}
0x7d80…7d8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x009e}
0x7d8a…7da0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0050, t01=0x00a8}
0x7da0…7daa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00be}
0x7daa…7db4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00c8}
0x7db4…7dd8               Head {h00=0x0020, h01=0x0050, text=»******************** =1 END «, t00=0x0050, t01=0x00d2}
0x7dd8…7df0               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN=0  =2 «, t00=0x0050, t01=0x00f6}
0x7df0…7e0c               Head {h00=0x0018, h01=0x0050, text=» SST A3,CUADR STATUS«, t00=0x0050, t01=0x010e}
0x7e0c…7e1e               Head {h00=0x000e, h01=0x0050, text=» XIF   =2 «, t00=0x0050, t01=0x012a}
0x7e1e…7e42               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0050, t01=0x013c}
0x7e42…7e66               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0050, t01=0x0160}
0x7e66…7e8c               Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0050, t01=0x0184}
0x7e8c…7e9e               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0051, t01=0x001a}
0x7e9e…7ec2               Head {h00=0x0020, h01=0x0050, text=» RF(N) FDRE READY INTERRUPT «, t00=0x0051, t01=0x002c}
0x7ec2…7ed4               Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0051, t01=0x0050}
0x7ed4…7ef4               Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY? «, t00=0x0051, t01=0x0062}
0x7ef4…7f0c               Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0051, t01=0x0082}
0x7f0c…7f32               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0051, t01=0x009a}
0x7f32…7f44               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0051, t01=0x00c0}
0x7f44…7f5a               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0405«, t00=0x0051, t01=0x00d2}
0x7f5a…7f7e               Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0051, t01=0x00e8}
0x7f7e…7f90               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/4«, t00=0x0051, t01=0x010c}
0x7f90…7fac               Head {h00=0x0018, h01=0x0050, text=» ORR A3,A1 CRC ERROR«, t00=0x0051, t01=0x011e}
0x7fac…7fc0               Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0051, t01=0x013a}
0x7fc0…7fca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x014e}
0x7fca…7fe0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0051, t01=0x0158}
0x7fe0…7fea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x016e}
0x7fea…8014               Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0051, t01=0x0178}
0x8014…801e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0012}
0x801e…8034               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0052, t01=0x001c}
0x8034…8048               Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0052, t01=0x0032}
0x8048…805a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0052, t01=0x0046}
0x805a…8080               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0052, t01=0x0058}
0x8080…8092               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0052, t01=0x007e}
0x8092…80ae               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x0052, t01=0x0090}
0x80ae…80ca               Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x0052, t01=0x00ac}
0x80ca…80dc               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0052, t01=0x00c8}
0x80dc…80f4               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0052, t01=0x00da}
0x80f4…8106               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0052, t01=0x00f2}
0x8106…8122               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x0052, t01=0x0104}
0x8122…813c               Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x0052, t01=0x0120}
0x813c…814e               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0052, t01=0x013a}
0x814e…815a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x014c}
0x815a…816c               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0052, t01=0x0158}
0x816c…8186               Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x0052, t01=0x016a}
0x8186…81a0               Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x0052, t01=0x0184}
0x81a0…81b2               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0053, t01=0x000e}
0x81b2…81cc               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x0053, t01=0x0020}
0x81cc…81e6               Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x0053, t01=0x003a}
0x81e6…81f8               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0053, t01=0x0054}
0x81f8…820c               Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x0053, t01=0x0066}
0x820c…8222               Head {h00=0x0012, h01=0x0050, text=» IFT CHAN=1 =1«, t00=0x0053, t01=0x007a}
0x8222…8232               Head {h00=0x000c, h01=0x0050, text=» INH  =1«, t00=0x0053, t01=0x0090}
0x8232…8242               Head {h00=0x000c, h01=0x0050, text=» XIF  =1«, t00=0x0053, t01=0x00a0}
0x8242…8252               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x00b0}
0x8252…826a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0053, t01=0x00c0}
0x826a…8274               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00d8}
0x8274…8290               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x00e2}
0x8290…82ac               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0053, t01=0x00fe}
0x82ac…82c8               Head {h00=0x0018, h01=0x0050, text=»*  READY INTERRUPT *«, t00=0x0053, t01=0x011a}
0x82c8…82e4               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0053, t01=0x0136}
0x82e4…8300               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0053, t01=0x0152}
0x8300…830a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x016e}
0x830a…831c               Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x0053, t01=0x0178}
0x831c…8334               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0053, t01=0x018a}
0x8334…8364               Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE «, t00=0x0054, t01=0x0012}
0x8364…837c               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0054, t01=0x0042}
0x837c…839a               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0054, t01=0x005a}
0x839a…83ac               Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x0054, t01=0x0078}
0x83ac…83c4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0054, t01=0x008a}
0x83c4…83ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00a2}
0x83ce…8402               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0054, t01=0x00ac}
0x8402…8436               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0054, t01=0x00e0}
0x8436…846a               Head {h00=0x0030, h01=0x0050, text=»*    S U B R O U T I N E S                * «, t00=0x0054, t01=0x0114}
0x846a…849e               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0054, t01=0x0148}
0x849e…84d2               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0054, t01=0x017c}
0x84d2…84dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0020}
0x84dc…84ec               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0055, t01=0x002a}
0x84ec…84fc               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0055, t01=0x003a}
0x84fc…850c               Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x0055, t01=0x004a}
0x850c…851c               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0055, t01=0x005a}
0x851c…852c               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0055, t01=0x006a}
0x852c…8536               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x007a}
0x8536…8540               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0084}
0x8540…8562               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x0055, t01=0x008e}
0x8562…856c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00b0}
0x856c…85ae               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x0055, t01=0x00ba}
0x85ae…85e2               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x0055, t01=0x00fc}
0x85e2…8608               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x0055, t01=0x0130}
0x8608…8612               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0156}
0x8612…8624               Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x0055, t01=0x0160}
0x8624…863a               Head {h00=0x0012, h01=0x0050, text=» LDK A4,0 FLAG«, t00=0x0055, t01=0x0172}
0x863a…864c               Head {h00=0x000e, h01=0x0050, text=» RF BIO010«, t00=0x0055, t01=0x0188}
0x864c…8664               Head {h00=0x0014, h01=0x0050, text=»BIO:RE LDK A4,1 «, t00=0x0056, t01=0x000a}
0x8664…8678               Head {h00=0x0010, h01=0x0050, text=»BIO010 EQU *«, t00=0x0056, t01=0x0022}
0x8678…8698               Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBRL,A8 REQ LEN «, t00=0x0056, t01=0x0036}
0x8698…86bc               Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOERR ILLEGAL LENGTH«, t00=0x0056, t01=0x0056}
0x86bc…86d4               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0056, t01=0x007a}
0x86d4…86ec               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTLAB,A6«, t00=0x0056, t01=0x0092}
0x86ec…8704               Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTA3,A6 «, t00=0x0056, t01=0x00aa}
0x8704…8724               Head {h00=0x001c, h01=0x0050, text=» RF(Z) BIO020 TOSS DISC «, t00=0x0056, t01=0x00c2}
0x8724…8730               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x00e2}
0x8730…8742               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0056, t01=0x00ee}
0x8742…8758               Head {h00=0x0012, h01=0x0050, text=» LDK A7,IBMLEN«, t00=0x0056, t01=0x0100}
0x8758…876a               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0056, t01=0x0116}
0x876a…8776               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x0128}
0x8776…878e               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0056, t01=0x0134}
0x878e…87a0               Head {h00=0x000e, h01=0x0050, text=» RF BIO030«, t00=0x0056, t01=0x014c}
0x87a0…87ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x015e}
0x87ac…87c0               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0056, t01=0x016a}
0x87c0…87de               Head {h00=0x001a, h01=0x0050, text=»BIO020 LDKL A7,TOSLEN «, t00=0x0056, t01=0x017e}
0x87de…87f0               Head {h00=0x000e, h01=0x0050, text=» LDK A2,3 «, t00=0x0057, t01=0x000c}
0x87f0…8804               Head {h00=0x0010, h01=0x0050, text=»BIO030 EQU *«, t00=0x0057, t01=0x001e}
0x8804…8810               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0032}
0x8810…8828               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0057, t01=0x003e}
0x8828…8840               Head {h00=0x0014, h01=0x0050, text=» ADK A4,0 SET CR«, t00=0x0057, t01=0x0056}
0x8840…885c               Head {h00=0x0018, h01=0x0050, text=» RF(Z) BIO060 WRITE «, t00=0x0057, t01=0x006e}
0x885c…886e               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0057, t01=0x008a}
0x886e…8888               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A3 REQ LEN«, t00=0x0057, t01=0x009c}
0x8888…88b2               Head {h00=0x0026, h01=0x0050, text=» CWR A3,A7 REQ LENGTH WITHIN RANGE«, t00=0x0057, t01=0x00b6}
0x88b2…88ca               Head {h00=0x0014, h01=0x0050, text=» RF(G) BIOERR NO«, t00=0x0057, t01=0x00e0}
0x88ca…88e4               Head {h00=0x0016, h01=0x0050, text=»BIO040 SUK A1,128 «, t00=0x0057, t01=0x00f8}
0x88e4…88fa               Head {h00=0x0012, h01=0x0050, text=» RF(NP) BIO100«, t00=0x0057, t01=0x0112}
0x88fa…8924               Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT NO OF SECTORS «, t00=0x0057, t01=0x0128}
0x8924…8936               Head {h00=0x000e, h01=0x0050, text=» RB BIO040«, t00=0x0057, t01=0x0152}
0x8936…8940               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0164}
0x8940…8962               Head {h00=0x001e, h01=0x0050, text=»*  WRITE, CHECK REQ LENGTH«, t00=0x0057, t01=0x016e}
0x8962…896c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0190}
0x896c…8984               Head {h00=0x0014, h01=0x0050, text=»BIO060 CWR A3,A7«, t00=0x0058, t01=0x000a}
0x8984…89aa               Head {h00=0x0022, h01=0x0050, text=» RF(NE) BIOERR ILLEGAL REQ LEN«, t00=0x0058, t01=0x0022}
0x89aa…89b6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0048}
0x89b6…89ce               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0058, t01=0x0054}
0x89ce…89d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x006c}
0x89d8…8a1a               Head {h00=0x003e, h01=0x0050, text=»*  FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH«, t00=0x0058, t01=0x0076}
0x8a1a…8a24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b8}
0x8a24…8a42               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0058, t01=0x00c2}
0x8a42…8a64               Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 NO OF SECTORS-1 «, t00=0x0058, t01=0x00e0}
0x8a64…8a8c               Head {h00=0x0024, h01=0x0050, text=»BIO015 LDR A4,A4 READ OR WRITE? «, t00=0x0058, t01=0x0102}
0x8a8c…8aa8               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BIO035 READ!«, t00=0x0058, t01=0x012a}
0x8aa8…8abc               Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0058, t01=0x0146}
0x8abc…8ae2               Head {h00=0x0022, h01=0x0050, text=» RF(Z) BIO100 REQ LEN ACCEPTED«, t00=0x0058, t01=0x015a}
0x8ae2…8af4               Head {h00=0x000e, h01=0x0050, text=» RF BIO045«, t00=0x0058, t01=0x0180}
0x8af4…8afe (89, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0004}
0x8afe…8b18               Head {h00=0x0016, h01=0x0050, text=»BIO035 SUK A1,128 «, t00=0x0059, t01=0x000e}
0x8b18…8b42               Head {h00=0x0026, h01=0x0050, text=» RF(NP) BIO100 REQ LENGTH ACCEPTED«, t00=0x0059, t01=0x0028}
0x8b42…8b5a               Head {h00=0x0014, h01=0x0050, text=»BIO045 ADK A2,1 «, t00=0x0059, t01=0x0052}
0x8b5a…8b6c               Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x0059, t01=0x006a}
0x8b6c…8b82               Head {h00=0x0012, h01=0x0050, text=» RB(NG) BIO015«, t00=0x0059, t01=0x007c}
0x8b82…8baa               Head {h00=0x0024, h01=0x0050, text=» RF BIOERR REQ LEN OUTSIDE RANGE«, t00=0x0059, t01=0x0092}
0x8baa…8bb6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x00ba}
0x8bb6…8bc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00c6}
0x8bc0…8bfa               Head {h00=0x0036, h01=0x0050, text=»BIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1«, t00=0x0059, t01=0x00d0}
0x8bfa…8c04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x010a}
0x8c04…8c3a               Head {h00=0x0032, h01=0x0050, text=»*  CHECK SECTOR NO FROM CONTROL WORD OF ECB IS«, t00=0x0059, t01=0x0114}
0x8c3a…8c66               Head {h00=0x0028, h01=0x0050, text=»*  WITHIN RANGE, PUT IT IN POS 2-12 «, t00=0x0059, t01=0x014a}
0x8c66…8c70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0176}
0x8c70…8c92               Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A8 SECTOR NO «, t00=0x0059, t01=0x0180}
0x8c92…8cb6               Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOER2 OUTSIDE RANGE «, t00=0x005a, t01=0x0012}
0x8cb6…8cce               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x005a, t01=0x0036}
0x8cce…8ce0               Head {h00=0x000e, h01=0x0050, text=» ANK A7,/A«, t00=0x005a, t01=0x004e}
0x8ce0…8cfe               Head {h00=0x001a, h01=0x0050, text=» RF(Z) BIO110 IBM DISC«, t00=0x005a, t01=0x0060}
0x8cfe…8d0a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x007e}
0x8d0a…8d1e               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x005a, t01=0x008a}
0x8d1e…8d32               Head {h00=0x0010, h01=0x0050, text=» CWK A1,499 «, t00=0x005a, t01=0x009e}
0x8d32…8d54               Head {h00=0x001e, h01=0x0050, text=» RF(G) BIOER2 OUT OF RANGE«, t00=0x005a, t01=0x00b2}
0x8d54…8d84               Head {h00=0x002c, h01=0x0050, text=» SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR «, t00=0x005a, t01=0x00d4}
0x8d84…8d90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0104}
0x8d90…8da8               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x005a, t01=0x0110}
0x8da8…8dba               Head {h00=0x000e, h01=0x0050, text=» RF BIO120«, t00=0x005a, t01=0x0128}
0x8dba…8dc6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x013a}
0x8dc6…8dd8               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005a, t01=0x0146}
0x8dd8…8df2               Head {h00=0x0016, h01=0x0050, text=»BIO110 CWK A1,1923«, t00=0x005a, t01=0x0158}
0x8df2…8e14               Head {h00=0x001e, h01=0x0050, text=» RF(P) BIOER2 OUT OF RANGE«, t00=0x005a, t01=0x0172}
0x8e14…8e20 (91, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0004}
0x8e20…8e38               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005b, t01=0x0010}
0x8e38…8e64               Head {h00=0x0028, h01=0x0050, text=» CWK A1,2001 SECTOR NO OUT OF RANGE «, t00=0x005b, t01=0x0028}
0x8e64…8e7e               Head {h00=0x0016, h01=0x0050, text=» RF(G) BIOER2 YES!«, t00=0x005b, t01=0x0054}
0x8e7e…8e8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x006e}
0x8e8a…8e9e               Head {h00=0x0010, h01=0x0050, text=»BIO120 EQU *«, t00=0x005b, t01=0x007a}
0x8e9e…8eb0               Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x005b, t01=0x008e}
0x8eb0…8ec2               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x005b, t01=0x00a0}
0x8ec2…8ee8               Head {h00=0x0022, h01=0x0050, text=» LD A4,ECBBA,A8 BUFFER ADDRESS«, t00=0x005b, t01=0x00b2}
0x8ee8…8f06               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x005b, t01=0x00d8}
0x8f06…8f18               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x005b, t01=0x00f6}
0x8f18…8f40               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BIOERR REQ LEN. NOT EVEN«, t00=0x005b, t01=0x0108}
0x8f40…8f50               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005b, t01=0x0130}
0x8f50…8f5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0140}
0x8f5a…8f64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x014a}
0x8f64…8f9a               Head {h00=0x0032, h01=0x0050, text=»*  ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO«, t00=0x005b, t01=0x0154}
0x8f9a…8fa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x018a}
0x8fa4…8fbe (92, 0, 400)  Head {h00=0x0016, h01=0x0050, text=»BIOERR ABL END:10 «, t00=0x005c, t01=0x0004}
0x8fbe…8fdc               Head {h00=0x001a, h01=0x0050, text=»*   ILLEGAL SECTOR NO «, t00=0x005c, t01=0x001e}
0x8fdc…8ff6               Head {h00=0x0016, h01=0x0050, text=»BIOER2 ABL FD:DIS «, t00=0x005c, t01=0x003c}
0x8ff6…9000               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0056}
0x9000…9018               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005c, t01=0x0060}
0x9018…9022               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0078}
0x9022…9034               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005c, t01=0x0082}
0x9034…9046               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x005c, t01=0x0094}
0x9046…9058               Head {h00=0x000e, h01=0x0050, text=»* FDIX  * «, t00=0x005c, t01=0x00a6}
0x9058…906a               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x005c, t01=0x00b8}
0x906a…907c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005c, t01=0x00ca}
0x907c…9086               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00dc}
0x9086…90a0               Head {h00=0x0016, h01=0x0050, text=»*  INPUT:  A2   X «, t00=0x005c, t01=0x00e6}
0x90a0…90aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0100}
0x90aa…90cc               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A3   2 POWER(X)«, t00=0x005c, t01=0x010a}
0x90cc…90d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x012c}
0x90d6…90ec               Head {h00=0x0012, h01=0x0050, text=»FDIX LDK A3,1 «, t00=0x005c, t01=0x0136}
0x90ec…9104               Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x005c, t01=0x014c}
0x9104…9118               Head {h00=0x0010, h01=0x0050, text=»FDIX10 EQU *«, t00=0x005c, t01=0x0164}
0x9118…912e               Head {h00=0x0012, h01=0x0050, text=» RF(Z) FDIX20 «, t00=0x005c, t01=0x0178}
0x912e…9140               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x005c, t01=0x018e}
0x9140…9152               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x005d, t01=0x0010}
0x9152…9164               Head {h00=0x000e, h01=0x0050, text=» RB FDIX10«, t00=0x005d, t01=0x0022}
0x9164…917a               Head {h00=0x0012, h01=0x0050, text=»FDIX20 RTN A5 «, t00=0x005d, t01=0x0034}
0x917a…9192               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005d, t01=0x004a}
0x9192…91aa               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x005d, t01=0x0062}
0x91aa…91c4               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x005d, t01=0x007a}
0x91c4…91de               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x005d, t01=0x0094}
0x91de…91f8               Head {h00=0x0016, h01=0x0050, text=»*  VOLADR        *«, t00=0x005d, t01=0x00ae}
0x91f8…9212               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x005d, t01=0x00c8}
0x9212…922c               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x005d, t01=0x00e2}
0x922c…9236               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00fc}
0x9236…9258               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x005d, t01=0x0106}
0x9258…9262               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0128}
0x9262…928c               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT: A2  VOLUME NAME ADDRESS«, t00=0x005d, t01=0x0132}
0x928c…92a8               Head {h00=0x0018, h01=0x0050, text=»*          A3  ZERO «, t00=0x005d, t01=0x015c}
0x92a8…92b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0178}
0x92b2…92c6               Head {h00=0x0010, h01=0x0050, text=»VOLADR EQU *«, t00=0x005d, t01=0x0182}
0x92c6…92e6               Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR,A6 DRIVE NO«, t00=0x005e, t01=0x0008}
0x92e6…92fa               Head {h00=0x0010, h01=0x0050, text=»VOLA05 EQU *«, t00=0x005e, t01=0x0028}
0x92fa…9310               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWTVO0«, t00=0x005e, t01=0x003c}
0x9310…9322               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x005e, t01=0x0052}
0x9322…9334               Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x005e, t01=0x0064}
0x9334…9348               Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x005e, t01=0x0076}
0x9348…935e               Head {h00=0x0012, h01=0x0050, text=» RF(Z) VOLA20 «, t00=0x005e, t01=0x008a}
0x935e…937e               Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 UPDATE ADDRESS«, t00=0x005e, t01=0x00a0}
0x937e…9390               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x005e, t01=0x00c0}
0x9390…93a2               Head {h00=0x000e, h01=0x0050, text=» RB VOLA10«, t00=0x005e, t01=0x00d2}
0x93a2…93b8               Head {h00=0x0012, h01=0x0050, text=»VOLA20 RTN A5 «, t00=0x005e, t01=0x00e4}
0x93b8…93c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00fa}
0x93c4…93cc               Head {h00=0x0004, h01=0x0050, t00=0x005e, t01=0x0106}
0x93cc…93de               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005e, t01=0x010e}
0x93de…93f6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005e, t01=0x0120}
0x93f6…9400               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0138}
0x9400…9412               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005e, t01=0x0142}
0x9412…9424               Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x005e, t01=0x0154}
0x9424…9436               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005e, t01=0x0166}
0x9436…9440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0178}
0x9440…947e               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x005e, t01=0x0182}
0x947e…949e               Head {h00=0x001c, h01=0x0050, text=»*             ASCII CODE«, t00=0x005f, t01=0x0030}
0x949e…94d0               Head {h00=0x002e, h01=0x0050, text=»*             INPUT STRING ADDRESS IS BUF «, t00=0x005f, t01=0x0050}
0x94d0…94fa               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7  NO OF CHARACTERS«, t00=0x005f, t01=0x0082}
0x94fa…952a               Head {h00=0x002c, h01=0x0050, text=»*             A4  OUTPUT  STRING ADDRESS«, t00=0x005f, t01=0x00ac}
0x952a…954c               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x005f, t01=0x00dc}
0x954c…956c               Head {h00=0x001c, h01=0x0050, text=»*             A4 CHANGED«, t00=0x005f, t01=0x00fe}
0x956c…958e               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x005f, t01=0x011e}
0x958e…9598               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0140}
0x9598…95ac               Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x005f, t01=0x014a}
0x95ac…95b8               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x005f, t01=0x015e}
0x95b8…95ca               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x005f, t01=0x016a}
0x95ca…95dc               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x005f, t01=0x017c}
0x95dc…95f4               Head {h00=0x0014, h01=0x0050, text=»ASC:10 SUK A7,1 «, t00=0x005f, t01=0x018e}
0x95f4…960a               Head {h00=0x0012, h01=0x0050, text=» RF(N) ASC:20 «, t00=0x0060, t01=0x0016}
0x960a…961c               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0060, t01=0x002c}
0x961c…9642               Head {h00=0x0022, h01=0x0050, text=» LC A1,BUF,A7 GET EBCDIC CHAR «, t00=0x0060, t01=0x003e}
0x9642…966e               Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0060, t01=0x0064}
0x966e…96a2               Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0060, t01=0x0090}
0x96a2…96b4               Head {h00=0x000e, h01=0x0050, text=» RB ASC:10«, t00=0x0060, t01=0x00c4}
0x96b4…96c8               Head {h00=0x0010, h01=0x0050, text=»ASC:20 EQU *«, t00=0x0060, t01=0x00d6}
0x96c8…96ee               Head {h00=0x0022, h01=0x0050, text=» RF EBC:90 SET INH AND RETURN «, t00=0x0060, t01=0x00ea}
0x96ee…9706               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0060, t01=0x0110}
0x9706…9710               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0128}
0x9710…9722               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x0132}
0x9722…9734               Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0060, t01=0x0144}
0x9734…9746               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0060, t01=0x0156}
0x9746…9750               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0168}
0x9750…9790               Head {h00=0x003c, h01=0x0050, text=»*  FUNCTION:  EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0060, t01=0x0172}
0x9790…97b2               Head {h00=0x001e, h01=0x0050, text=»*             EBCDIC CODE «, t00=0x0061, t01=0x0022}
0x97b2…97ee               Head {h00=0x0038, h01=0x0050, text=»*             OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0061, t01=0x0044}
0x97ee…97f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0080}
0x97f8…9822               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7 NO OF CHARACTERS «, t00=0x0061, t01=0x008a}
0x9822…9850               Head {h00=0x002a, h01=0x0050, text=»*             A4  INPUT STRING ADDRESS«, t00=0x0061, t01=0x00b4}
0x9850…985a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00e2}
0x985a…987c               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0061, t01=0x00ec}
0x987c…98ac               Head {h00=0x002c, h01=0x0050, text=»*              A4  DRIVER BUFFER ADDRESS«, t00=0x0061, t01=0x010e}
0x98ac…98ce               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0061, t01=0x013e}
0x98ce…98e2               Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0061, t01=0x0160}
0x98e2…98ee               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0061, t01=0x0174}
0x98ee…9900               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0061, t01=0x0180}
0x9900…9912 (98, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0062, t01=0x0004}
0x9912…992a               Head {h00=0x0014, h01=0x0050, text=»EBC:10 SUK A7,1 «, t00=0x0062, t01=0x0016}
0x992a…9940               Head {h00=0x0012, h01=0x0050, text=» RF(N) EBC:80 «, t00=0x0062, t01=0x002e}
0x9940…9952               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0062, t01=0x0044}
0x9952…9974               Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0062, t01=0x0056}
0x9974…998e               Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0062, t01=0x0078}
0x998e…99a4               Head {h00=0x0012, h01=0x0050, text=» SC A1,BUF,A7 «, t00=0x0062, t01=0x0092}
0x99a4…99b6               Head {h00=0x000e, h01=0x0050, text=» RB EBC:10«, t00=0x0062, t01=0x00a8}
0x99b6…99ca               Head {h00=0x0010, h01=0x0050, text=»EBC:80 EQU *«, t00=0x0062, t01=0x00ba}
0x99ca…99de               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0062, t01=0x00ce}
0x99de…99f2               Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x0062, t01=0x00e2}
0x99f2…9a08               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x0062, t01=0x00f6}
0x9a08…9a18               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0062, t01=0x010c}
0x9a18…9a30               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0062, t01=0x011c}
0x9a30…9a3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0134}
0x9a3a…9a4c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0062, t01=0x013e}
0x9a4c…9a5e               Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0062, t01=0x0150}
0x9a5e…9a70               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0062, t01=0x0162}
0x9a70…9a7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0174}
0x9a7a…9abe               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0062, t01=0x017e}
0x9abe…9aee               Head {h00=0x002c, h01=0x0050, text=»*              LOGICAL SECTOR (BINARY). «, t00=0x0063, t01=0x0032}
0x9aee…9b2e               Head {h00=0x003c, h01=0x0050, text=»*             FORMAT OF PHYS. SEC.  TT0SS  (EBCDIC CODE)«, t00=0x0063, t01=0x0062}
0x9b2e…9b5c               Head {h00=0x002a, h01=0x0050, text=»*              TT = TRACK,  SS=SECTOR «, t00=0x0063, t01=0x00a2}
0x9b5c…9b66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00d0}
0x9b66…9b96               Head {h00=0x002c, h01=0x0050, text=»*  INPUT:    A4  ADDRESS TO PHYS. SECTOR«, t00=0x0063, t01=0x00da}
0x9b96…9ba0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x010a}
0x9ba0…9bca               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT:   A3  BINARY SECTOR NO «, t00=0x0063, t01=0x0114}
0x9bca…9bfc               Head {h00=0x002e, h01=0x0050, text=»*            A4  ADDRESS TO PHYS. SEC. + 4«, t00=0x0063, t01=0x013e}
0x9bfc…9c06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0170}
0x9c06…9c1a               Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x0063, t01=0x017a}
0x9c1a…9c30               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0063, t01=0x018e}
0x9c30…9c48               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x0064, t01=0x0014}
0x9c48…9c5a               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0064, t01=0x002c}
0x9c5a…9c64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x003e}
0x9c64…9c7e               Head {h00=0x0016, h01=0x0050, text=»*  MULTIPLY BY 26 «, t00=0x0064, t01=0x0048}
0x9c7e…9c88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0062}
0x9c88…9c9e               Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x0064, t01=0x006c}
0x9c9e…9cb0               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0064, t01=0x0082}
0x9cb0…9cc2               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0064, t01=0x0094}
0x9cc2…9cd8               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x0064, t01=0x00a6}
0x9cd8…9cea               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0064, t01=0x00bc}
0x9cea…9d00               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x0064, t01=0x00ce}
0x9d00…9d16               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0064, t01=0x00e4}
0x9d16…9d28               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0064, t01=0x00fa}
0x9d28…9d3a               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0064, t01=0x010c}
0x9d3a…9d44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x011e}
0x9d44…9d5e               Head {h00=0x0016, h01=0x0050, text=»*  CHECK SECTOR NO«, t00=0x0064, t01=0x0128}
0x9d5e…9d68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0142}
0x9d68…9d7a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0064, t01=0x014c}
0x9d7a…9d8c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x0064, t01=0x015e}
0x9d8c…9da2               Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x0064, t01=0x0170}
0x9da2…9dc0               Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD?«, t00=0x0064, t01=0x0186}
0x9dc0…9dda               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x0065, t01=0x0014}
0x9dda…9df0               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x0065, t01=0x002e}
0x9df0…9e02               Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x0065, t01=0x0044}
0x9e02…9e0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0056}
0x9e0c…9e32               Head {h00=0x0022, h01=0x0050, text=»*  CHECK EOD LESS/EQUAL 74001 «, t00=0x0065, t01=0x0060}
0x9e32…9e3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0086}
0x9e3c…9e58               Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x0065, t01=0x0090}
0x9e58…9e6c               Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x0065, t01=0x00ac}
0x9e6c…9e92               Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x0065, t01=0x00c0}
0x9e92…9eb8               Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x0065, t01=0x00e6}
0x9eb8…9ec8               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0065, t01=0x010c}
0x9ec8…9ed2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x011c}
0x9ed2…9ee8               Head {h00=0x0012, h01=0x0050, text=»*  FATAL ERROR«, t00=0x0065, t01=0x0126}
0x9ee8…9ef2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x013c}
0x9ef2…9f1e               Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x0065, t01=0x0146}
0x9f1e…9f46               Head {h00=0x0024, h01=0x0050, text=»LOG:10 LDKL A1,/2000 RETURN CODE«, t00=0x0065, t01=0x0172}
0x9f46…9f60               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0066, t01=0x000a}
0x9f60…9f76               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x0066, t01=0x0024}
0x9f76…9f98               Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x0066, t01=0x003a}
0x9f98…9fa2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x005c}
0x9fa2…9fba               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0066, t01=0x0066}
0x9fba…9fc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x007e}
0x9fc4…9fd6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x0088}
0x9fd6…9fe8               Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x0066, t01=0x009a}
0x9fe8…9ffa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x00ac}
0x9ffa…a004               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00be}
0xa004…a046               Head {h00=0x003e, h01=0x0050, text=»*  FUNCTION:  DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x0066, t01=0x00c8}
0xa046…a08e               Head {h00=0x0044, h01=0x0050, text=»*             BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x0066, t01=0x010a}
0xa08e…a0be               Head {h00=0x002c, h01=0x0050, text=»*     INPUT:  A4  ADDRESS TO FIRST DIGIT«, t00=0x0066, t01=0x0152}
0xa0be…a0dc               Head {h00=0x001a, h01=0x0050, text=»*   OUTPUT: A1  BINARY«, t00=0x0066, t01=0x0182}
0xa0dc…a0fc               Head {h00=0x001c, h01=0x0050, text=»*   WORKING REG:  A2,A7 «, t00=0x0067, t01=0x0010}
0xa0fc…a106               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0030}
0xa106…a11e               Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x0067, t01=0x003a}
0xa11e…a130               Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0067, t01=0x0052}
0xa130…a14e               Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0067, t01=0x0064}
0xa14e…a162               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0067, t01=0x0082}
0xa162…a176               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0067, t01=0x0096}
0xa176…a18c               Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x0067, t01=0x00aa}
0xa18c…a19e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0067, t01=0x00c0}
0xa19e…a1be               Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x0067, t01=0x00d2}
0xa1be…a1d0               Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0067, t01=0x00f2}
0xa1d0…a1e2               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0067, t01=0x0104}
0xa1e2…a1f8               Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0067, t01=0x0116}
0xa1f8…a222               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0067, t01=0x012c}
0xa222…a23a               Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0067, t01=0x0156}
0xa23a…a25a               Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0067, t01=0x016e}
0xa25a…a27c               Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0067, t01=0x018e}
0xa27c…a28e               Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0068, t01=0x0020}
0xa28e…a2a6               Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0068, t01=0x0032}
0xa2a6…a2b6               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0068, t01=0x004a}
0xa2b6…a2c2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x005a}
0xa2c2…a2da               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0068, t01=0x0066}
0xa2da…a2e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x007e}
0xa2e4…a2f6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x0088}
0xa2f6…a308               Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0068, t01=0x009a}
0xa308…a31a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x00ac}
0xa31a…a324               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00be}
0xa324…a35a               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION:  PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0068, t01=0x00c8}
0xa35a…a364               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00fe}
0xa364…a3a0               Head {h00=0x0038, h01=0x0050, text=»*  INPUT:  A3  DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0068, t01=0x0108}
0xa3a0…a3aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0144}
0xa3aa…a3c8               Head {h00=0x001a, h01=0x0050, text=»*  OUTPUT: A3  CHANGED«, t00=0x0068, t01=0x014e}
0xa3c8…a3e6               Head {h00=0x001a, h01=0x0050, text=»*          A4  CHANGED«, t00=0x0068, t01=0x016c}
0xa3e6…a3f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x018a}
0xa3f0…a40c (105, 0, 400) Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x0069, t01=0x0004}
0xa40c…a422               Head {h00=0x0012, h01=0x0050, text=» ANS A4,FD:CIO«, t00=0x0069, t01=0x0020}
0xa422…a434               Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0069, t01=0x0036}
0xa434…a44a               Head {h00=0x0012, h01=0x0050, text=» ORS A3,FD:CIO«, t00=0x0069, t01=0x0048}
0xa44a…a45a               Head {h00=0x000c, h01=0x0050, text=» RTN  A5«, t00=0x0069, t01=0x005e}
0xa45a…a46c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0069, t01=0x006e}
0xa46c…a484               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0069, t01=0x0080}
0xa484…a48e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0098}
0xa48e…a4a0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x00a2}
0xa4a0…a4b2               Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x0069, t01=0x00b4}
0xa4b2…a4c4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x00c6}
0xa4c4…a4ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00d8}
0xa4ce…a50c               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x0069, t01=0x00e2}
0xa50c…a540               Head {h00=0x0030, h01=0x0050, text=»*             EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x0069, t01=0x0120}
0xa540…a54a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0154}
0xa54a…a56e               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A7  BINARY NUMBER«, t00=0x0069, t01=0x015e}
0xa56e…a578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0182}
0xa578…a5aa               Head {h00=0x002e, h01=0x0050, text=»*  OUTPUT: A3  EBCDIC CODED DECIMAL DIGITS«, t00=0x0069, t01=0x018c}
0xa5aa…a5c8               Head {h00=0x001a, h01=0x0050, text=»*          A7  CHANGED«, t00=0x006a, t01=0x002e}
0xa5c8…a5d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x004c}
0xa5d2…a5ea               Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x006a, t01=0x0056}
0xa5ea…a602               Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x006a, t01=0x006e}
0xa602…a618               Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x006a, t01=0x0086}
0xa618…a62a               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x009c}
0xa62a…a63c               Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x006a, t01=0x00ae}
0xa63c…a654               Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x006a, t01=0x00c0}
0xa654…a666               Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x006a, t01=0x00d8}
0xa666…a694               Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x006a, t01=0x00ea}
0xa694…a6b8               Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x006a, t01=0x0118}
0xa6b8…a6c8               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006a, t01=0x013c}
0xa6c8…a6e0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006a, t01=0x014c}
0xa6e0…a6f2               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006a, t01=0x0164}
0xa6f2…a704               Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x006a, t01=0x0176}
0xa704…a716               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006a, t01=0x0188}
0xa716…a720               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x000a}
0xa720…a758               Head {h00=0x0034, h01=0x0050, text=»*  FUNCTION:  PREPARE FOR READING DATA SET LABEL«, t00=0x006b, t01=0x0014}
0xa758…a762               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x004c}
0xa762…a784               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x006b, t01=0x0056}
0xa784…a78e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0078}
0xa78e…a7cc               Head {h00=0x003a, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x006b, t01=0x0082}
0xa7cc…a7e8               Head {h00=0x0018, h01=0x0050, text=»*          A3   128 «, t00=0x006b, t01=0x00c0}
0xa7e8…a814               Head {h00=0x0028, h01=0x0050, text=»*          A4  DRIVER BUFFER ADDRESS«, t00=0x006b, t01=0x00dc}
0xa814…a836               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006b, t01=0x0108}
0xa836…a858               Head {h00=0x001e, h01=0x0050, text=»*           A1 IS CHANGED «, t00=0x006b, t01=0x012a}
0xa858…a862               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x014c}
0xa862…a87e               Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x006b, t01=0x0156}
0xa87e…a892               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006b, t01=0x0172}
0xa892…a8a6               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x006b, t01=0x0186}
0xa8a6…a8b8               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x006c, t01=0x000a}
0xa8b8…a8cc               Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x006c, t01=0x001c}
0xa8cc…a8e0               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x006c, t01=0x0030}
0xa8e0…a8f0               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x0044}
0xa8f0…a908               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006c, t01=0x0054}
0xa908…a912               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x006c}
0xa912…a924               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x0076}
0xa924…a936               Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x006c, t01=0x0088}
0xa936…a948               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x009a}
0xa948…a952               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00ac}
0xa952…a98c               Head {h00=0x0036, h01=0x0050, text=»*  FUNCTION:  GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x006c, t01=0x00b6}
0xa98c…a996               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00f0}
0xa996…a9b8               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x006c, t01=0x00fa}
0xa9b8…a9c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x011c}
0xa9c2…a9e4               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A2  EOD ADDRESS«, t00=0x006c, t01=0x0126}
0xa9e4…aa14               Head {h00=0x002c, h01=0x0050, text=»*          A7  EOD-NO      (0=NOT OPEN) «, t00=0x006c, t01=0x0148}
0xaa14…aa32               Head {h00=0x001a, h01=0x0050, text=»*          A1  CHANGED«, t00=0x006c, t01=0x0178}
0xaa32…aa4e               Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x006d, t01=0x0008}
0xaa4e…aa62               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006d, t01=0x0024}
0xaa62…aa7c               Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x006d, t01=0x0038}
0xaa7c…aa8c               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006d, t01=0x0052}
0xaa8c…aaa4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006d, t01=0x0062}
0xaaa4…aaae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x007a}
0xaaae…aac0               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006d, t01=0x0084}
0xaac0…aad2               Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x006d, t01=0x0096}
0xaad2…aae4               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006d, t01=0x00a8}
0xaae4…aaee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00ba}
0xaaee…ab24               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x006d, t01=0x00c4}
0xab24…ab5e               Head {h00=0x0036, h01=0x0050, text=»*            TYPE OF DATA FOR COORESSPONDING DRIVE«, t00=0x006d, t01=0x00fa}
0xab5e…ab68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0134}
0xab68…ab8a               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A1  DWT OFFSET «, t00=0x006d, t01=0x013e}
0xab8a…abac               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006d, t01=0x0160}
0xabac…abb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0182}
0xabb6…abdc               Head {h00=0x0022, h01=0x0050, text=»*  OUTPUT: A2  ADDRESS TO DATA«, t00=0x006d, t01=0x018c}
0xabdc…abfe               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006e, t01=0x0022}
0xabfe…ac08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0044}
0xac08…ac2e               Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x006e, t01=0x004e}
0xac2e…ac40               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x006e, t01=0x0074}
0xac40…ac52               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x006e, t01=0x0086}
0xac52…ac64               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x006e, t01=0x0098}
0xac64…ac76               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x006e, t01=0x00aa}
0xac76…ac86               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006e, t01=0x00bc}
0xac86…ac9e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006e, t01=0x00cc}
0xac9e…aca8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00e4}
0xaca8…acba               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006e, t01=0x00ee}
0xacba…accc               Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x006e, t01=0x0100}
0xaccc…acde               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006e, t01=0x0112}
0xacde…ace8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0124}
0xace8…ad26               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x006e, t01=0x012e}
0xad26…ad44               Head {h00=0x001a, h01=0x0050, text=»*            DRIVE NO «, t00=0x006e, t01=0x016c}
0xad44…ad4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x018a}
0xad4e…ad7a (111, 0, 398) Head {h00=0x0028, h01=0x0050, text=»*  INPUT:    A1  OFFSET TO DWT AREA «, t00=0x006f, t01=0x0004}
0xad7a…adac               Head {h00=0x002e, h01=0x0050, text=»*            A3  WORD TO BE STORED IN DWT «, t00=0x006f, t01=0x0030}
0xadac…add0               Head {h00=0x0020, h01=0x0050, text=»*            A6  DWT ADDRESS«, t00=0x006f, t01=0x0062}
0xadd0…adda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0086}
0xadda…adfc               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:   A1  UNCHANGED«, t00=0x006f, t01=0x0090}
0xadfc…ae30               Head {h00=0x0030, h01=0x0050, text=»*            A2  ADDRESS TO WORD IN DWT AREA«, t00=0x006f, t01=0x00b2}
0xae30…ae52               Head {h00=0x001e, h01=0x0050, text=»*            A3  UNCHANGED«, t00=0x006f, t01=0x00e6}
0xae52…ae74               Head {h00=0x001e, h01=0x0050, text=»*            A6  UNCHANGED«, t00=0x006f, t01=0x0108}
0xae74…ae7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x012a}
0xae7e…ae92               Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x006f, t01=0x0134}
0xae92…aea6               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006f, t01=0x0148}
0xaea6…aeb8               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x006f, t01=0x015c}
0xaeb8…aec8               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006f, t01=0x016e}
0xaec8…aee0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006f, t01=0x017e}
0xaee0…aeea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0008}
0xaeea…aefc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0070, t01=0x0012}
0xaefc…af0e               Head {h00=0x000e, h01=0x0050, text=»* SETINH *«, t00=0x0070, t01=0x0024}
0xaf0e…af20               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0070, t01=0x0036}
0xaf20…af2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0048}
0xaf2a…af6e               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE «, t00=0x0070, t01=0x0052}
0xaf6e…afb0               Head {h00=0x003e, h01=0x0050, text=»*             ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND «, t00=0x0070, t01=0x0096}
0xafb0…afcc               Head {h00=0x0018, h01=0x0050, text=»*             RETURN«, t00=0x0070, t01=0x00d8}
0xafcc…afd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00f4}
0xafd6…affc               Head {h00=0x0022, h01=0x0050, text=»*  INPUT:     A6  DWT ADDRESS «, t00=0x0070, t01=0x00fe}
0xaffc…b006               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0124}
0xb006…b018               Head {h00=0x000e, h01=0x0050, text=»SETINH INH«, t00=0x0070, t01=0x012e}
0xb018…b034               Head {h00=0x0018, h01=0x0050, text=» LD A1,DWTA2,A6 FDON«, t00=0x0070, t01=0x0140}
0xb034…b054               Head {h00=0x001c, h01=0x0050, text=» RF(Z) SET:10 NOT ACTIVE«, t00=0x0070, t01=0x015c}
0xb054…b06e               Head {h00=0x0016, h01=0x0050, text=» ABL T:DISP ESCAPE«, t00=0x0070, t01=0x017c}
0xb06e…b084               Head {h00=0x0012, h01=0x0050, text=»SET:10 RTN A5 «, t00=0x0071, t01=0x0008}
0xb084…b090               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x001e}
0xb090…b09a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x002a}
0xb09a…b0c0               Head {h00=0x0022, h01=0x0050, text=»*    D R I V E R   B U F F E R«, t00=0x0071, t01=0x0034}
0xb0c0…b0d8               Head {h00=0x0014, h01=0x0050, text=»BUF DATA 0,0,0,0«, t00=0x0071, t01=0x005a}
0xb0d8…b0e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0072}
0xb0e2…b0f4               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0071, t01=0x007c}
0xb0f4…b104               Head {h00=0x000c, h01=0x0050, text=» RES 60 «, t00=0x0071, t01=0x008e}
0xb104…b110               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x009e}
0xb110…b11a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00aa}
0xb11a…b132               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0071, t01=0x00b4}
0xb132…b13c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00cc}
0xb13c…b15a               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0071, t01=0x00d6}
0xb15a…b178               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0071, t01=0x00f4}
0xb178…b196               Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0071, t01=0x0112}
0xb196…b1b4               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0071, t01=0x0130}
0xb1b4…b1d2               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0071, t01=0x014e}
0xb1d2…b1dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x016c}
0xb1dc…b1f0               Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0071, t01=0x0176}
0xb1f0…b200               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0071, t01=0x018a}
0xb200…b21e               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0072, t01=0x000a}
0xb21e…b23a               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0072, t01=0x0028}
0xb23a…b250               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0072, t01=0x0044}
0xb250…b276               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0072, t01=0x005a}
0xb276…b292               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0072, t01=0x0080}
0xb292…b2ba               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0072, t01=0x009c}
0xb2ba…b2d8               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0072, t01=0x00c4}
0xb2d8…b2e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00e2}
0xb2e2…b2f8               Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0072, t01=0x00ec}
0xb2f8…b322               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0072, t01=0x0102}
0xb322…b346               Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0072, t01=0x012c}
0xb346…b352               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0072, t01=0x0150}
0xb352…b35c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x015c}
0xb35c…b36c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0072, t01=0x0166}
0xb36c…b386               Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x0072, t01=0x0176}
0xb386…b396               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0072, t01=0x0190}
0xb396…b3a6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x0010}
0xb3a6…b3c2               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x0073, t01=0x0020}
0xb3c2…b3ee               Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x0073, t01=0x003c}
0xb3ee…b3fe               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0073, t01=0x0068}
0xb3fe…b42c               Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x0073, t01=0x0078}
0xb42c…b43c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x00a6}
0xb43c…b464               Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x0073, t01=0x00b6}
0xb464…b474               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x00de}
0xb474…b4a0               Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0073, t01=0x00ee}
0xb4a0…b4b0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x011a}
0xb4b0…b4e0               Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x0073, t01=0x012a}
0xb4e0…b4f0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x015a}
0xb4f0…b520               Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x0073, t01=0x016a}
0xb520…b530               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x000a}
0xb530…b55c               Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x0074, t01=0x001a}
0xb55c…b570               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x0046}
0xb570…b59c               Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x0074, t01=0x005a}
0xb59c…b5b0               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x0086}
0xb5b0…b5dc               Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x0074, t01=0x009a}
0xb5dc…b5f0               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x00c6}
0xb5f0…b61c               Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x0074, t01=0x00da}
0xb61c…b630               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x0106}
0xb630…b646               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0074, t01=0x011a}
0xb646…b678               Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x0074, t01=0x0130}
0xb678…b688               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0162}
0xb688…b6c0               Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x0074, t01=0x0172}
0xb6c0…b6d0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x001a}
0xb6d0…b6dc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x002a}
0xb6dc…b6e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0036}
0xb6e6…b6fa               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0075, t01=0x0040}
0xb6fa…b734               Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x0075, t01=0x0054}
0xb734…b744               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x008e}
0xb744…b774               Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x0075, t01=0x009e}
0xb774…b784               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x00ce}
0xb784…b7b4               Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x0075, t01=0x00de}
0xb7b4…b7c4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x010e}
0xb7c4…b7d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x011e}
0xb7d0…b7da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x012a}
0xb7da…b7ec               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0075, t01=0x0134}
0xb7ec…b81c               Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x0075, t01=0x0146}
0xb81c…b832               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0075, t01=0x0176}
0xb832…b85a               Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x0075, t01=0x018c}
0xb85a…b870               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x0024}
0xb870…b89a               Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x0076, t01=0x003a}
0xb89a…b8b0               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x0064}
0xb8b0…b8de               Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x0076, t01=0x007a}
0xb8de…b8f4               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x00a8}
0xb8f4…b926               Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x0076, t01=0x00be}
0xb926…b93c               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x00f0}
0xb93c…b948               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0106}
0xb948…b952               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0112}
0xb952…b96a               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0076, t01=0x011c}
0xb96a…b980               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0076, t01=0x0134}
0xb980…b99c               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0076, t01=0x014a}
0xb99c…b9b8               Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x0076, t01=0x0166}
0xb9b8…b9e6               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x0076, t01=0x0182}
0xb9e6…ba06               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0077, t01=0x0020}
0xba06…ba10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0040}
0xba10…ba2c               Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0077, t01=0x004a}
0xba2c…ba5a               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0077, t01=0x0066}
0xba5a…ba64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0094}
0xba64…ba80               Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x0077, t01=0x009e}
0xba80…baa8               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x0077, t01=0x00ba}
0xbaa8…bab4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x00e2}
0xbab4…babe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00ee}
0xbabe…bad4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0077, t01=0x00f8}
0xbad4…bae8               Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0077, t01=0x010e}
0xbae8…baf8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0077, t01=0x0122}
0xbaf8…bb0c               Head {h00=0x0010, h01=0x0050, text=» DATA FD:BUF«, t00=0x0077, t01=0x0132}
0xbb0c…bb22               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x0146}
0xbb22…bb2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x015c}
0xbb2c…bb42               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x0077, t01=0x0166}
0xbb42…bb5e               Head {h00=0x0018, h01=0x0050, text=»FD:BUF RES DVBLEN+1 «, t00=0x0077, t01=0x017c}
0xbb5e…bb6a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x0008}
0xbb6a…bb74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0014}
0xbb74…bb8a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0078, t01=0x001e}
0xbb8a…bba0               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x0078, t01=0x0034}
0xbba0…bbb4               Head {h00=0x0010, h01=0x0050, text=»FD:BUF EQU 0«, t00=0x0078, t01=0x004a}
0xbbb4…bbc0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x005e}
0xbbc0…bbca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x006a}
0xbbca…bbd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0074}
0xbbd4…bbde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x007e}
0xbbde…bbea               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0078, t01=0x0088}
0xbbea…bbee               Head {h00=0x4004, h01=0x0000}
0xbbee…bbf2               00 78 00 94                                                                                                                                                                                                                                       ┆ x  ┆
0xbbf2…bbfa (121, 1, 8)   20 04 00 00 00 79 00 04                                                                                                                                                                                                                           ┆     y  ┆

Reduced view