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

⟦d1e2f181d⟧ 

    Length: 52598 (0xcd76)
    Notes: pts_type(SC)
    Names: »DRFD01.SC«

Derivation

└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
    └─⟦this⟧ »M:FD2/DRFD01.SC«

PTS(SC)

	IDENT DRFD01 	REL 9.2 80-11-12  870105040920 

			KST,MODIFICATION FOR DUAL CONTR. UNITS 
			=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 
	ENTRY	IHFD2	INTERRUPT HANDLER	KST
	ENTRY	DWFD02	DWT	KST 
	ENTRY	FDON2		KST 
	EJECT			DRFD01 
* 
************* 
*           * 
* EXTERNALS * 
*           * 
************* 
* 
	EXTRN	TDISP	DISPATCHER 
	EXTRN	TENDIO	ENDIO 
	EXTRN	DISIOE	REQUEST ERROR 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTECB	ECB ADDRESS 
	EXTRN	DWTOR	DWT INDEX AND ORDER
	EXTRN	DWTA2	SAVE AREA A2 
	EXTRN	DWTA5	SAVE AREA A5 
	EXTRN	DWTSB2	STACK BASE 2 IN DWT 
	EXTRN	SCTPLD	PROGRAM LOADING DEVICE
	EXTRN	SAVE8	SAVE A1-A8 ON A15 STACK
	EXTRN	SETIMP	TIMER 
	EXTRN	INTSAV	INTERRUPT SAVE AREA 
	EXTRN	INIFLG	INITIALIZATION FLAG 
	EXTRN	TASCII	EBCDIC TO ASCII TAB 
	EXTRN	TEBCDIC	ASCII TO EBCDIC TAB
	EXTRN	SPDLCI	OPEN/CLOSE STATUS FOR FD DRIVE
	EXTRN	ECBBA	ECB BUFFER ADDRESS 
	EXTRN	ECBRL	ECB REQUESTED LENGTH 
	EXTRN	ECBEL	ECB EFFECTIVE LENGTH 
	EXTRN	ECBRC	ECB RETURN CODE
	EXTRN	ECBCW	ECB CONTROL WORD 
	EJECT			DRFD01 
* 
************************
*                      *
* CONDITIONAL ASSEMBLY *
*                      *
************************
* 
* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED 
* CHANNEL BY SETTING X:A = 0
* 
X:A	EQU	1 
CHAN	EQU	1
* 
*	A PROGRAM VERSION INCLUDING TOSS DISC FORMAT
*	IS OBTAINED BY SETTING TOSS EQU 1.
* 
X:B	EQU	0 
TOSS	EQU	1
* 
*	A PROGRAM VERSION INCLUDING IBM DISC FORMAT 
*	IS OBTAINED BY SETTING IBM EQU 1. 
* 
X:C	EQU	0 
IBM	EQU	1 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
	EJECT			DRFD01 
* 
* 
*	A PROGRAM VERSION USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	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	1
* 
	EJECT			DRFD01 
* 
* 
*   MMU BUFFER SIZE 
* 
* 
X:E	EQU	256		 
DVBLEN	EQU	256		
* 
* 
*   MMU DEVICE INDEX
* 
* 
	IFT	CHAN=1 
DEVIND	EQU	2
	XIF
* 
	IFT	CHAN=0 
DEVIND	EQU	4-IBM-IBM
	XIF
* 
	EJECT			DRFD01 
* 
************* 
*           * 
* CONSTANTS * 
*           * 
************* 
* 
CUADR	EQU	09	CONTROL UNIT ADDRESS 
CUADR2	EQU	/0A	SECOND CU ADR
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
	EX	FDCIO,A6	CIO-START	KST
	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 
	RF	FDON05		KST 
FDON2	EQU	*		KST
	MSR	8,A15		KST 
	LDKL	A6,DWFD02		KST
* 
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 
	RF	IH000		KST
IHFD2	EQU	*		KST
	ST	P,INTSAV		KST 
	MSR	8,A15		KST 
	LDKL	A6,DWFD02		KST
IH000	EQU	*		KST
	IFT	CHAN=1 
	ENB
	LD	A1,DWTUB,A6	GET BUFFER POINTER
	LD	A2,DWTUBE,A6	END OF BUFFER
	SUR	A2,A1	LENGTH 
IH005	EQU	* 
	EX	FDSST,A6		KST 
	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
	EX	FDOTR,A6	WRITE	KST
	RB(NA)	IH005 
	ADK	A1,2	UPDATE BUFFER POINTER 
	SUK	A2,2 
	RB(P)	IH010
	EX	FDHLT,A6	CIO-HALT	KST 
	ABL	TDISP	GOTO DISPATCHER
* 
IH050	EQU	* 
	EX	FDINR,A6	READ	KST 
	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
	EX	FDHLT,A6	CIO-HALT	KST 
	EX	FDSST,A6	STATUS	KST 
	RB(NA)	*-2		=2 
IH:000	EQU	*		=1
	XIF
* 
	EJECT		DRFD01
* 
* 
********************	=1 END 
	IFT	CHAN=0		=2 
	EX	FDSST,A6	STATUS	KST 
	XIF			=2 
*     LDKL	A6,DWFD01	DWT ADRESS	KST 
	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,FDCIO,A6		KST 
	SLL	A3,4 
	ORS	A3,FDCIO,A6		KST 
	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
* 
FDCIO	EQU	*-DWFD01		KST 
	CIO	A2,1,CUADR		KST
FDSST	EQU	*-DWFD01		KST 
	SST	A3,CUADR		KST
FDOTR	EQU	*-DWFD01		KST 
	OTR	A3,0,CUADR 
FDHLT	EQU	*-DWFD01		KST 
	CIO	A2,0,CUADR		KST
FDINR	EQU	*-DWFD01		KST 
	INR	A3,0,CUADR		KST
* 
* 
*              NEXT DWT INTRODUCED BY KST 80-11-12
* 
DWFD02	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	DVECB2	MMU ECB ADDRESS
	XIF
* 
	DATA	0 
	DATA	0	SAVE AREA 
	DATA	0 
	DATA	0 
	DATA	0,0,0,0	STACK 
	DATA	-1
	DATA	0 
	DATA	0 
	DATA	0 
	DATA	0 
	DATA	0 
	DATA	0,0,0 
	DATA	0,0,0 
	DATA	0,0,0 
	DATA	0,0,0 
	IFT	OPCLOS=1 
	DATA	0 
	DATA	0 
	XIF
* 
	IFT	CHAN=1 
	DATA	0 
	DATA	0 
	DATA	0 
	XIF
* 
	IFT	IBM=1
	DATA	0,0,0,0 
	DATA	0,0,0,0 
	DATA	0,0,0,0 
	DATA	0,0,0,0 
	DATA	0,0,0,0 
	XIF
* 
	IFT	CHAN+TOSS=2
	IFT	MMUPAG=1 
	IFF	DSKPAG+SWPBLK=0
	DATA	0	6 BIT PHYSICAL BUFFER ADDRESS 
	DATA	0	SECOND MMU ENTRY
* 
	DATA	0	16 BIT LOGICAL BUFFER ADDRESS 
* 
	DATA	0	SAVE AREA BUFFER ADDRESS
	XIF
* 
	IFT	MMUPAG=1 
DVECB2	EQU	*
	DATA	0 
	DATA	FDBUF2
	DATA	0,0,0,0 
* 
	IFT	DEVIND=2 
FDBUF2	RES	DVBLEN+1 
	XIF
* 
	IFT	MMUPAG=1 
	IFT	DEVIND=4 
FDBUF2	EQU	0
	XIF
	CIO	A2,1,CUADR2	CIO-START	KST
	SST	A3,CUADR2
	OTR	A3,0,CUADR2
	CIO	A2,0,CUADR2
	INR	A3,0,CUADR2
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT DRFD01  REL 9.2 80-11-12  870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0070               Head {h00=0x002e, h01=0x0050, text=»   KST,MODIFICATION FOR DUAL CONTR. UNITS «, t00=0x0000, t01=0x0042}
0x0070…009e               Head {h00=0x002a, h01=0x0050, text=»   =2,TIMING PROBLEMS IN INT. HANDLER «, t00=0x0000, t01=0x0074}
0x009e…00ba               Head {h00=0x0018, h01=0x0050, text=»   REL 9.2 79-11-16 «, t00=0x0000, t01=0x00a2}
0x00ba…00e2               Head {h00=0x0024, h01=0x0050, text=»   =1,CHANGED INTERRUPT HANDLER «, t00=0x0000, t01=0x00be}
0x00e2…00fe               Head {h00=0x0018, h01=0x0050, text=»   REL 9.1 79-05-23 «, t00=0x0000, t01=0x00e6}
0x00fe…0108               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…013e               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x010c}
0x013e…0148               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…016e               Head {h00=0x0022, h01=0x0050, text=»*  PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x014c}
0x016e…0178               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…01a4               Head {h00=0x0028, h01=0x0050, text=»*  DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x017c}
0x01a4…01ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0018}
0x01ae…01b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x01b8…01c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002c}
0x01c2…01cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0036}
0x01cc…01d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x01d6…01e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x01e0…0216               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x0054}
0x0216…024a               Head {h00=0x0030, h01=0x0050, text=»*  THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0001, t01=0x008a}
0x024a…027c               Head {h00=0x002e, h01=0x0050, text=»*  CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x00be}
0x027c…02b0               Head {h00=0x0030, h01=0x0050, text=»*  CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x00f0}
0x02b0…02da               Head {h00=0x0026, h01=0x0050, text=»*  MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x0124}
0x02da…02e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014e}
0x02e4…02fc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0001, t01=0x0158}
0x02fc…0306               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0170}
0x0306…0318               Head {h00=0x000e, h01=0x0050, text=»*  ORDERS:«, t00=0x0001, t01=0x017a}
0x0318…0322               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018c}
0x0322…033e               Head {h00=0x0018, h01=0x0050, text=»*  /00   TEST STATUS«, t00=0x0002, t01=0x0008}
0x033e…035c               Head {h00=0x001a, h01=0x0050, text=»*  /01   PHYSICAL READ«, t00=0x0002, t01=0x0024}
0x035c…03a2               Head {h00=0x0042, h01=0x0050, text=»*  /02   SEQUENTIAL READ                       -IBM DISC ONLY-«, t00=0x0002, t01=0x0042}
0x03a2…03be               Head {h00=0x0018, h01=0x0050, text=»*  /05   BASIC WRITE«, t00=0x0002, t01=0x0088}
0x03be…0406               Head {h00=0x0044, h01=0x0050, text=»*  /06   SEQUENTIAL WRITE                       -IBM DISC ONLY- «, t00=0x0002, t01=0x00a4}
0x0406…0424               Head {h00=0x001a, h01=0x0050, text=»*  /11   PHYSICAL READ«, t00=0x0002, t01=0x00ec}
0x0424…0444               Head {h00=0x001c, h01=0x0050, text=»*  /15   PHYSICAL WRITE «, t00=0x0002, t01=0x010a}
0x0444…0460               Head {h00=0x0018, h01=0x0050, text=»*  /1A   SEARCH KEY «, t00=0x0002, t01=0x012a}
0x0460…0474               Head {h00=0x0010, h01=0x0050, text=»*  /21 OPEN «, t00=0x0002, t01=0x0146}
0x0474…0488               Head {h00=0x0010, h01=0x0050, text=»*  /22 CLOSE«, t00=0x0002, t01=0x015a}
0x0488…04ac               Head {h00=0x0020, h01=0x0050, text=»*  /24   WRITE DELETED DATA «, t00=0x0002, t01=0x016e}
0x04ac…04c2 (3, 0, 400)   Head {h00=0x0012, h01=0x0050, text=»*  /26   LOCK «, t00=0x0003, t01=0x0004}
0x04c2…050a               Head {h00=0x0044, h01=0x0050, text=»*  /31   REWIND                                 -IBM DISC ONLY- «, t00=0x0003, t01=0x001a}
0x050a…0520               Head {h00=0x0012, h01=0x0050, text=»*  /37   LOAD «, t00=0x0003, t01=0x0062}
0x0520…0538               Head {h00=0x0014, h01=0x0050, text=»*  /38   UNLOAD «, t00=0x0003, t01=0x0078}
0x0538…0542               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0090}
0x0542…055e               Head {h00=0x0018, h01=0x0050, text=»*  ENTRY PARAMETERS:«, t00=0x0003, t01=0x009a}
0x055e…0568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b6}
0x0568…0584               Head {h00=0x0018, h01=0x0050, text=»*   A5   STACK BASE «, t00=0x0003, t01=0x00c0}
0x0584…05a0               Head {h00=0x0018, h01=0x0050, text=»*   A6   DWT-ADDRESS«, t00=0x0003, t01=0x00dc}
0x05a0…05b6               Head {h00=0x0012, h01=0x0050, text=»*   A7   ORDER«, t00=0x0003, t01=0x00f8}
0x05b6…05d2               Head {h00=0x0018, h01=0x0050, text=»*   A8   ECB-ADDRESS«, t00=0x0003, t01=0x010e}
0x05d2…05ea               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0003, t01=0x012a}
0x05ea…05f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0142}
0x05f4…0608               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x014c}
0x0608…061c               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x0160}
0x061c…0630               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x0174}
0x0630…0644               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x0188}
0x0644…0658               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0004, t01=0x000c}
0x0658…0662               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0020}
0x0662…068a               Head {h00=0x0024, h01=0x0050, text=» ENTRY  FDADR ACTIVATION ADDRESS«, t00=0x0004, t01=0x002a}
0x068a…06b0               Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0004, t01=0x0052}
0x06b0…06d4               Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0004, t01=0x0078}
0x06d4…06f6               Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0004, t01=0x009c}
0x06f6…0720               Head {h00=0x0026, h01=0x0050, text=» ENTRY IHFD2 INTERRUPT HANDLER KST«, t00=0x0004, t01=0x00be}
0x0720…073e               Head {h00=0x001a, h01=0x0050, text=» ENTRY DWFD02 DWT KST «, t00=0x0004, t01=0x00e8}
0x073e…0758               Head {h00=0x0016, h01=0x0050, text=» ENTRY FDON2  KST «, t00=0x0004, t01=0x0106}
0x0758…0770               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0004, t01=0x0120}
0x0770…077a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0138}
0x077a…0790               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0142}
0x0790…07a6               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x0158}
0x07a6…07bc               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x016e}
0x07bc…07d2               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x0184}
0x07d2…07e8               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x000a}
0x07e8…07f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0020}
0x07f2…0812               Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0005, t01=0x002a}
0x0812…082e               Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0005, t01=0x004a}
0x082e…0852               Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0005, t01=0x0066}
0x0852…086e               Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x008a}
0x086e…0890               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x00a6}
0x0890…08b8               Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x00c8}
0x08b8…08da               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0005, t01=0x00f0}
0x08da…08fc               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0005, t01=0x0112}
0x08fc…0926               Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0005, t01=0x0134}
0x0926…0952               Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTPLD PROGRAM LOADING DEVICE«, t00=0x0005, t01=0x015e}
0x0952…097e               Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0005, t01=0x018a}
0x097e…099a               Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0006, t01=0x0026}
0x099a…09c4               Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0006, t01=0x0042}
0x09c4…09ee               Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0006, t01=0x006c}
0x09ee…0a18               Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0006, t01=0x0096}
0x0a18…0a42               Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0006, t01=0x00c0}
0x0a42…0a76               Head {h00=0x0030, h01=0x0050, text=» EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE«, t00=0x0006, t01=0x00ea}
0x0a76…0a9e               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0006, t01=0x011e}
0x0a9e…0ac8               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0006, t01=0x0146}
0x0ac8…0af2               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0006, t01=0x0170}
0x0af2…0b16               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0007, t01=0x000a}
0x0b16…0b3c               Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0007, t01=0x002e}
0x0b3c…0b54               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0007, t01=0x0054}
0x0b54…0b5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006c}
0x0b5e…0b7e               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0076}
0x0b7e…0b9e               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x0096}
0x0b9e…0bbe               Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x00b6}
0x0bbe…0bde               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x00d6}
0x0bde…0bfe               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x00f6}
0x0bfe…0c08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0116}
0x0c08…0c3a               Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0007, t01=0x0120}
0x0c3a…0c5e               Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0007, t01=0x0152}
0x0c5e…0c68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0176}
0x0c68…0c7a               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x0180}
0x0c7a…0c8c (8, 0, 400)   Head {h00=0x000e, h01=0x0050, text=»CHAN EQU 1«, t00=0x0008, t01=0x0004}
0x0c8c…0c96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0016}
0x0c96…0ccc               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0008, t01=0x0020}
0x0ccc…0cf8               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0008, t01=0x0056}
0x0cf8…0d02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0082}
0x0d02…0d14               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x008c}
0x0d14…0d26               Head {h00=0x000e, h01=0x0050, text=»TOSS EQU 1«, t00=0x0008, t01=0x009e}
0x0d26…0d30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b0}
0x0d30…0d66               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x00ba}
0x0d66…0d92               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x00f0}
0x0d92…0d9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011c}
0x0d9c…0dae               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0008, t01=0x0126}
0x0dae…0dc0               Head {h00=0x000e, h01=0x0050, text=»IBM EQU 1 «, t00=0x0008, t01=0x0138}
0x0dc0…0dca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x014a}
0x0dca…0dfc               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0154}
0x0dfc…0e2a               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x0186}
0x0e2a…0e34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0024}
0x0e34…0e48               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0009, t01=0x002e}
0x0e48…0e52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e52…0e5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004c}
0x0e5c…0e96               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x0056}
0x0e96…0ec8               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x0090}
0x0ec8…0ed2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed2…0ee6               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0009, t01=0x00cc}
0x0ee6…0ef0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e0}
0x0ef0…0f08               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0009, t01=0x00ea}
0x0f08…0f12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0102}
0x0f12…0f1c               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x010c}
0x0f1c…0f4e               Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0009, t01=0x0116}
0x0f4e…0f7c               Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0009, t01=0x0148}
0x0f7c…0f86               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x0176}
0x0f86…0f9a               Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0009, t01=0x0180}
0x0f9a…0fa4 (10, 0, 400)  Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x000a, t01=0x0004}
0x0fa4…0fae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000e}
0x0fae…0fe8               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK «, t00=0x000a, t01=0x0018}
0x0fe8…101e               Head {h00=0x0032, h01=0x0050, text=»* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. «, t00=0x000a, t01=0x0052}
0x101e…1028               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0088}
0x1028…103c               Head {h00=0x0010, h01=0x0050, text=»SWPBLK EQU 0«, t00=0x000a, t01=0x0092}
0x103c…1046               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a6}
0x1046…1050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b0}
0x1050…1094               Head {h00=0x0040, h01=0x0050, text=»*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x000a, t01=0x00ba}
0x1094…10dc               Head {h00=0x0044, h01=0x0050, text=»*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x000a, t01=0x00fe}
0x10dc…10e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0146}
0x10e6…10f8               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x0150}
0x10f8…110c               Head {h00=0x0010, h01=0x0050, text=»OPCLOS EQU 1«, t00=0x000a, t01=0x0162}
0x110c…1116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0176}
0x1116…112e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000a, t01=0x0180}
0x112e…1138               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x1138…1142               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1142…115e               Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x000b, t01=0x001c}
0x115e…1168               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0038}
0x1168…1172               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0042}
0x1172…1188               Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256   «, t00=0x000b, t01=0x004c}
0x1188…11a0               Head {h00=0x0014, h01=0x0050, text=»DVBLEN EQU 256  «, t00=0x000b, t01=0x0062}
0x11a0…11aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007a}
0x11aa…11b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0084}
0x11b4…11d0               Head {h00=0x0018, h01=0x0050, text=»*   MMU DEVICE INDEX«, t00=0x000b, t01=0x008e}
0x11d0…11da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00aa}
0x11da…11e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b4}
0x11e4…11f8               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x000b, t01=0x00be}
0x11f8…120c               Head {h00=0x0010, h01=0x0050, text=»DEVIND EQU 2«, t00=0x000b, t01=0x00d2}
0x120c…1218               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00e6}
0x1218…1222               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00f2}
0x1222…1236               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000b, t01=0x00fc}
0x1236…1252               Head {h00=0x0018, h01=0x0050, text=»DEVIND EQU 4-IBM-IBM«, t00=0x000b, t01=0x0110}
0x1252…125e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x012c}
0x125e…1268               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0138}
0x1268…1280               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000b, t01=0x0142}
0x1280…128a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015a}
0x128a…12a0               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0164}
0x12a0…12b6               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x017a}
0x12b6…12cc               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x0190}
0x12cc…12e2               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000c, t01=0x0016}
0x12e2…12f8               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000c, t01=0x002c}
0x12f8…1302               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0042}
0x1302…132c               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000c, t01=0x004c}
0x132c…1350               Head {h00=0x0020, h01=0x0050, text=»CUADR2 EQU /0A SECOND CU ADR«, t00=0x000c, t01=0x0076}
0x1350…137a               Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000c, t01=0x009a}
0x137a…13a6               Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000c, t01=0x00c4}
0x13a6…13d4               Head {h00=0x002a, h01=0x0050, text=»STALEN EQU 512 MAX STANDARD SEC. LEN. «, t00=0x000c, t01=0x00f0}
0x13d4…1400               Head {h00=0x0028, h01=0x0050, text=»TOSLEN EQU 410 MAX TOSS SEC. LENGTH «, t00=0x000c, t01=0x011e}
0x1400…1426               Head {h00=0x0022, h01=0x0050, text=»IBMLEN EQU 128 IBM SEC. LENGTH«, t00=0x000c, t01=0x014a}
0x1426…1452               Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000c, t01=0x0170}
0x1452…147c               Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000d, t01=0x000c}
0x147c…14a4               Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000d, t01=0x0036}
0x14a4…14c8               Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000d, t01=0x005e}
0x14c8…14f2               Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000d, t01=0x0082}
0x14f2…14fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ac}
0x14fc…1518               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x00b6}
0x1518…1534               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x000d, t01=0x00d2}
0x1534…1550               Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENTS*«, t00=0x000d, t01=0x00ee}
0x1550…156c               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x000d, t01=0x010a}
0x156c…1588               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0126}
0x1588…1592               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0142}
0x1592…15c6               Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000d, t01=0x014c}
0x15c6…15d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0180}
0x15d0…15e6               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000d, t01=0x018a}
0x15e6…15fe               Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000e, t01=0x0010}
0x15fe…160a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0028}
0x160a…1614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0034}
0x1614…162a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000e, t01=0x003e}
0x162a…1644               Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000e, t01=0x0054}
0x1644…1650               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x006e}
0x1650…165a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007a}
0x165a…1676               Head {h00=0x0018, h01=0x0050, text=»DWTA3 EQU START+/04 «, t00=0x000e, t01=0x0084}
0x1676…1680               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a0}
0x1680…1698               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000e, t01=0x00aa}
0x1698…16a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c2}
0x16a2…16b4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00cc}
0x16b4…16c6               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x00de}
0x16c6…16d8               Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000e, t01=0x00f0}
0x16d8…16ea               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x0102}
0x16ea…16fc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0114}
0x16fc…1706               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0126}
0x1706…171c               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x000e, t01=0x0130}
0x171c…1748               Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000e, t01=0x0146}
0x1748…1754               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0172}
0x1754…175e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017e}
0x175e…1774               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x000e, t01=0x0188}
0x1774…179a               Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, t00=0x000f, t01=0x000e}
0x179a…17a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0034}
0x17a6…17b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0040}
0x17b0…17d2               Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000f, t01=0x004a}
0x17d2…17fc               Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000f, t01=0x006c}
0x17fc…1822               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000f, t01=0x0096}
0x1822…182c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00bc}
0x182c…1844               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x000f, t01=0x00c6}
0x1844…184e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00de}
0x184e…1864               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x00e8}
0x1864…187a               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x00fe}
0x187a…1890               Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x000f, t01=0x0114}
0x1890…18a6               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x012a}
0x18a6…18bc               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x0140}
0x18bc…18c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0156}
0x18c6…18ea               Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x000f, t01=0x0160}
0x18ea…18f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0184}
0x18f4…190a               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x000f, t01=0x018e}
0x190a…1934               Head {h00=0x0026, h01=0x0050, text=»*    CHECK IF OPEN OR CLOSE ORDER «, t00=0x0010, t01=0x0014}
0x1934…193e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003e}
0x193e…1956               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x0010, t01=0x0048}
0x1956…196a               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x0010, t01=0x0060}
0x196a…1982               Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x0010, t01=0x0074}
0x1982…1994               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0010, t01=0x008c}
0x1994…19ae               Head {h00=0x0016, h01=0x0050, text=» RF(Z) CLOSE CLOSE«, t00=0x0010, t01=0x009e}
0x19ae…19b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b8}
0x19b8…19c6               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00c2}
0x19c6…19d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00d0}
0x19d2…19dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00dc}
0x19dc…19ee               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0010, t01=0x00e6}
0x19ee…1a0c               Head {h00=0x001a, h01=0x0050, text=» LC A3,DWTOR,A6 INDEX «, t00=0x0010, t01=0x00f8}
0x1a0c…1a2c               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A3 SAVE FOR FDIX«, t00=0x0010, t01=0x0116}
0x1a2c…1a36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0136}
0x1a36…1a60               Head {h00=0x0026, h01=0x0050, text=»*  PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x0010, t01=0x0140}
0x1a60…1a6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016a}
0x1a6a…1a8e               Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x0010, t01=0x0174}
0x1a8e…1aba               Head {h00=0x0028, h01=0x0050, text=» CM DWTRCW,A6 SAVE RETURN CODE WORD «, t00=0x0011, t01=0x0008}
0x1aba…1ac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0034}
0x1ac4…1ade               Head {h00=0x0016, h01=0x0050, text=»*  CHECK IF LOCKED«, t00=0x0011, t01=0x003e}
0x1ade…1ae8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0058}
0x1ae8…1b10               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTLC,A6  LOCK INDICATOR «, t00=0x0011, t01=0x0062}
0x1b10…1b36               Head {h00=0x0022, h01=0x0050, text=» CF A5,FDIX GET BIT MASK IN A3«, t00=0x0011, t01=0x008a}
0x1b36…1b64               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK «, t00=0x0011, t01=0x00b0}
0x1b64…1b76               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A3«, t00=0x0011, t01=0x00de}
0x1b76…1b94               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) FD:ORD LOCKED «, t00=0x0011, t01=0x00f0}
0x1b94…1ba6               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0011, t01=0x010e}
0x1ba6…1bba               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/26 «, t00=0x0011, t01=0x0120}
0x1bba…1bda               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) LOAD LOCK ORDER «, t00=0x0011, t01=0x0134}
0x1bda…1bee               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/11 «, t00=0x0011, t01=0x0154}
0x1bee…1c0e               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) LOAD LOAD ORDER «, t00=0x0011, t01=0x0168}
0x1c0e…1c30               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8001 RETURN CODE«, t00=0x0011, t01=0x0188}
0x1c30…1c4a               Head {h00=0x0016, h01=0x0050, text=» ABL END:IO ENDIO «, t00=0x0012, t01=0x001a}
0x1c4a…1c54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0034}
0x1c54…1c62               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x003e}
0x1c62…1c6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x004c}
0x1c6c…1c7e               Head {h00=0x000e, h01=0x0050, text=»*   ORDER?«, t00=0x0012, t01=0x0056}
0x1c7e…1c88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0068}
0x1c88…1c9c               Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x0012, t01=0x0072}
0x1c9c…1cb4               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0012, t01=0x0086}
0x1cb4…1cca               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x009e}
0x1cca…1ce6               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0012, t01=0x00b4}
0x1ce6…1d10               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0012, t01=0x00d0}
0x1d10…1d3a               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A8 GET FIRST WORD OF ECB «, t00=0x0012, t01=0x00fa}
0x1d3a…1d72               Head {h00=0x0034, h01=0x0050, text=» ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS «, t00=0x0012, t01=0x0124}
0x1d72…1da4               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) FD:000 BUFFER NOT IN SYSTEM AREA? «, t00=0x0012, t01=0x015c}
0x1da4…1db6               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0012, t01=0x018e}
0x1db6…1dcc               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:005«, t00=0x0013, t01=0x0010}
0x1dcc…1e06               Head {h00=0x0036, h01=0x0050, text=» ADKL A3,TOSLEN CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x0013, t01=0x0026}
0x1e06…1e20               Head {h00=0x0016, h01=0x0050, text=» RF(N) FD:005 NO? «, t00=0x0013, t01=0x0060}
0x1e20…1e2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007a}
0x1e2a…1e3e               Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x0013, t01=0x0084}
0x1e3e…1e5e               Head {h00=0x001c, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE IT«, t00=0x0013, t01=0x0098}
0x1e5e…1e70               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0013, t01=0x00b8}
0x1e70…1e86               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/F000«, t00=0x0013, t01=0x00ca}
0x1e86…1e98               Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x0013, t01=0x00e0}
0x1e98…1eaa               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0013, t01=0x00f2}
0x1eaa…1ebc               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0013, t01=0x0104}
0x1ebc…1ed2               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF «, t00=0x0013, t01=0x0116}
0x1ed2…1f08               Head {h00=0x0032, h01=0x0050, text=» ST A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x0013, t01=0x012c}
0x1f08…1f38               Head {h00=0x002c, h01=0x0050, text=» ADKL A1,/400 CREATE ONE MORE MMU ENTRY «, t00=0x0013, t01=0x0162}
0x1f38…1f52 (20, 0, 400)  Head {h00=0x0016, h01=0x0050, text=» ST A1,DWT:PA+2,A6«, t00=0x0014, t01=0x0004}
0x1f52…1f64               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0014, t01=0x001e}
0x1f64…1f90               Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x0014, t01=0x0030}
0x1f90…1fbe               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,FD:BUF GET DWT BUFFER ADDRESS«, t00=0x0014, t01=0x005c}
0x1fbe…1ff4               Head {h00=0x0032, h01=0x0050, text=» ST A2,ECBBA,A8 SET NEW BUFFER ADDRESS IN ECB «, t00=0x0014, t01=0x008a}
0x1ff4…1ffe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c0}
0x1ffe…203a               Head {h00=0x0038, h01=0x0050, text=»FD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x0014, t01=0x00ca}
0x203a…2044               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0106}
0x2044…205c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0014, t01=0x0110}
0x205c…2068               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0128}
0x2068…2072               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0134}
0x2072…2084               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0014, t01=0x013e}
0x2084…20a6               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) FD:070 TEST STATUS«, t00=0x0014, t01=0x0150}
0x20a6…20b8               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0014, t01=0x0172}
0x20b8…20dc               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x0014, t01=0x0184}
0x20dc…20ee               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0015, t01=0x0018}
0x20ee…2110               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:010 BASIC WRITE «, t00=0x0015, t01=0x002a}
0x2110…2122               Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0015, t01=0x004c}
0x2122…2146               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x0015, t01=0x005e}
0x2146…2158               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0015, t01=0x0082}
0x2158…217c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:028 PHYSICAL WRITE«, t00=0x0015, t01=0x0094}
0x217c…218e               Head {h00=0x000e, h01=0x0050, text=» SUK A1,15«, t00=0x0015, t01=0x00b8}
0x218e…21b6               Head {h00=0x0024, h01=0x0050, text=» RF(Z) FD:030 WRITE DELETED DATA«, t00=0x0015, t01=0x00ca}
0x21b6…21ca               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/14 «, t00=0x0015, t01=0x00f2}
0x21ca…21ee               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) UNLOAD UNLOAD ORDER «, t00=0x0015, t01=0x0106}
0x21ee…2200               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0015, t01=0x012a}
0x2200…2214               Head {h00=0x0010, h01=0x0050, text=» ADK A1,/36 «, t00=0x0015, t01=0x013c}
0x2214…223a               Head {h00=0x0022, h01=0x0050, text=» ABL(Z) SQREAD SEQUENTIAL READ«, t00=0x0015, t01=0x0150}
0x223a…224c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0015, t01=0x0176}
0x224c…2274               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SQWRIT SEQUENTIAL WRITE «, t00=0x0015, t01=0x0188}
0x2274…2288               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2B «, t00=0x0016, t01=0x0020}
0x2288…22a6               Head {h00=0x001a, h01=0x0050, text=» ABL(Z) REWIND REWIND «, t00=0x0016, t01=0x0034}
0x22a6…22b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0052}
0x22b2…22ca               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0016, t01=0x005e}
0x22ca…22e0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0016, t01=0x0076}
0x22e0…22f2               Head {h00=0x000e, h01=0x0050, text=» ADK A1,30«, t00=0x0016, t01=0x008c}
0x22f2…2312               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:050 SEARCH KEY«, t00=0x0016, t01=0x009e}
0x2312…231e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00be}
0x231e…2326               Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x00ca}
0x2326…233a               Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x0016, t01=0x00d2}
0x233a…235c               Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x0016, t01=0x00e6}
0x235c…2366               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0108}
0x2366…237c               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0016, t01=0x0112}
0x237c…238a               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0128}
0x238a…2394               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0136}
0x2394…23a4               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x0140}
0x23a4…23b4               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0016, t01=0x0150}
0x23b4…23c4               Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0016, t01=0x0160}
0x23c4…23d4               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0016, t01=0x0170}
0x23d4…23e4               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x0180}
0x23e4…23ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0190}
0x23ee…2426               Head {h00=0x0034, h01=0x0050, text=»*    OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0017, t01=0x000a}
0x2426…245c               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0017, t01=0x0042}
0x245c…2466               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0078}
0x2466…2478               Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0017, t01=0x0082}
0x2478…249e               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0017, t01=0x0094}
0x249e…24ca               Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0017, t01=0x00ba}
0x24ca…24fe               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0017, t01=0x00e6}
0x24fe…2524               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0017, t01=0x011a}
0x2524…252e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0140}
0x252e…255c               Head {h00=0x002a, h01=0x0050, text=»*    WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0017, t01=0x014a}
0x255c…2588               Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0017, t01=0x0178}
0x2588…25b4               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0018, t01=0x0014}
0x25b4…25d4               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0018, t01=0x0040}
0x25d4…25f0               Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0018, t01=0x0060}
0x25f0…2622               Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0018, t01=0x007c}
0x2622…263a               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0018, t01=0x00ae}
0x263a…2644               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c6}
0x2644…2658               Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0018, t01=0x00d0}
0x2658…2676               Head {h00=0x001a, h01=0x0050, text=»*    TIME HAS EXPIRED «, t00=0x0018, t01=0x00e4}
0x2676…2696               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0018, t01=0x0102}
0x2696…26c6               Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0018, t01=0x0122}
0x26c6…26f0               Head {h00=0x0026, h01=0x0050, text=» RF OCLEXI COMMON OPEN/CLOSE EXIT «, t00=0x0018, t01=0x0152}
0x26f0…26fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017c}
0x26fa…2708               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0186}
0x2708…2712 (25, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0004}
0x2712…2724               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0019, t01=0x000e}
0x2724…2736               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0019, t01=0x0020}
0x2736…2748               Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0019, t01=0x0032}
0x2748…275a               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0019, t01=0x0044}
0x275a…276c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0019, t01=0x0056}
0x276c…2776               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0068}
0x2776…27ae               Head {h00=0x0034, h01=0x0050, text=»*    CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0019, t01=0x0072}
0x27ae…27e4               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0019, t01=0x00aa}
0x27e4…27ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00e0}
0x27ee…2802               Head {h00=0x0010, h01=0x0050, text=»CLOSE EQU * «, t00=0x0019, t01=0x00ea}
0x2802…2828               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0019, t01=0x00fe}
0x2828…2852               Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0019, t01=0x0124}
0x2852…2886               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0019, t01=0x014e}
0x2886…28ac               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA CLOSE FD DRIVE«, t00=0x0019, t01=0x0182}
0x28ac…28b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0018}
0x28b6…28ca               Head {h00=0x0010, h01=0x0050, text=»OCLEXI EQU *«, t00=0x001a, t01=0x0022}
0x28ca…28f2               Head {h00=0x0024, h01=0x0050, text=»*    COMMON EXIT FOR OPEN/CLOSE «, t00=0x001a, t01=0x0036}
0x28f2…2910               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x001a, t01=0x005e}
0x2910…2928               Head {h00=0x0014, h01=0x0050, text=» RF FD:090 ENDIO«, t00=0x001a, t01=0x007c}
0x2928…2932               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0094}
0x2932…293e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x009e}
0x293e…2948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00aa}
0x2948…2960               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001a, t01=0x00b4}
0x2960…296a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00cc}
0x296a…2982               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x001a, t01=0x00d6}
0x2982…299a               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x001a, t01=0x00ee}
0x299a…29b2               Head {h00=0x0014, h01=0x0050, text=»* BASIC WRITE * «, t00=0x001a, t01=0x0106}
0x29b2…29ca               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x001a, t01=0x011e}
0x29ca…29e2               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x001a, t01=0x0136}
0x29e2…29ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x014e}
0x29ec…2a04               Head {h00=0x0014, h01=0x0050, text=»FD:010 CF A5,BIO«, t00=0x001a, t01=0x0158}
0x2a04…2a16               Head {h00=0x000e, h01=0x0050, text=» ORK A2,1 «, t00=0x001a, t01=0x0170}
0x2a16…2a2a               Head {h00=0x0010, h01=0x0050, text=»FD:015 EQU *«, t00=0x001a, t01=0x0182}
0x2a2a…2a42               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001b, t01=0x0008}
0x2a42…2a5a               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x001b, t01=0x0020}
0x2a5a…2a72               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x001b, t01=0x0038}
0x2a72…2a90               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x001b, t01=0x0050}
0x2a90…2a9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x006e}
0x2a9c…2aae               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001b, t01=0x007a}
0x2aae…2ade               Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x001b, t01=0x008c}
0x2ade…2af4               Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x001b, t01=0x00bc}
0x2af4…2b08               Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x001b, t01=0x00d2}
0x2b08…2b14               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00e6}
0x2b14…2b1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f2}
0x2b1e…2b36               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001b, t01=0x00fc}
0x2b36…2b52               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+SWPBLK=2«, t00=0x001b, t01=0x0114}
0x2b52…2b8a               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x001b, t01=0x0130}
0x2b8a…2bb6               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA?«, t00=0x001b, t01=0x0168}
0x2bb6…2be2 (28, 0, 398)  Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001c, t01=0x0004}
0x2be2…2bfc               Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x001c, t01=0x0030}
0x2bfc…2c26               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 GET DWT BUFFER ADDRESS «, t00=0x001c, t01=0x004a}
0x2c26…2c50               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x001c, t01=0x0074}
0x2c50…2c7c               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x001c, t01=0x009e}
0x2c7c…2cb2               Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x001c, t01=0x00ca}
0x2cb2…2cdc               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x001c, t01=0x0100}
0x2cdc…2cfa               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x001c, t01=0x012a}
0x2cfa…2d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0148}
0x2d04…2d1c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001c, t01=0x0152}
0x2d1c…2d26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016a}
0x2d26…2d30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0174}
0x2d30…2d44               Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x001c, t01=0x017e}
0x2d44…2d50 (29, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0004}
0x2d50…2d5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0010}
0x2d5a…2d80               Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x001d, t01=0x001a}
0x2d80…2d8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0040}
0x2d8a…2da2               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001d, t01=0x004a}
0x2da2…2dbe               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+SWPBLK=2«, t00=0x001d, t01=0x0062}
0x2dbe…2de6               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWT:LA,A6 GET BUFFER FLAG«, t00=0x001d, t01=0x007e}
0x2de6…2e16               Head {h00=0x002c, h01=0x0050, text=» RF(Z) FD:025 BUFFER WAS IN SYSTEM AREA?«, t00=0x001d, t01=0x00a6}
0x2e16…2e48               Head {h00=0x002e, h01=0x0050, text=» LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS «, t00=0x001d, t01=0x00d6}
0x2e48…2e72               Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBBA,A8 RESTORE IT IN ECB «, t00=0x001d, t01=0x0108}
0x2e72…2e7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0132}
0x2e7c…2e90               Head {h00=0x0010, h01=0x0050, text=»FD:025 EQU *«, t00=0x001d, t01=0x013c}
0x2e90…2e9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0150}
0x2e9c…2ea6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015c}
0x2ea6…2ec4               Head {h00=0x001a, h01=0x0050, text=» RF FD:048 GOTO FD:RC «, t00=0x001d, t01=0x0166}
0x2ec4…2ece               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0184}
0x2ece…2ee8               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001d, t01=0x018e}
0x2ee8…2f02               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x001e, t01=0x0018}
0x2f02…2f1c               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL WRITE *«, t00=0x001e, t01=0x0032}
0x2f1c…2f36               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x001e, t01=0x004c}
0x2f36…2f50               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001e, t01=0x0066}
0x2f50…2f5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0080}
0x2f5a…2f72               Head {h00=0x0014, h01=0x0050, text=»FD:028 CF A5,BIO«, t00=0x001e, t01=0x008a}
0x2f72…2f9a               Head {h00=0x0024, h01=0x0050, text=» ORK A2,5 INSERT BIO BITS 13-15 «, t00=0x001e, t01=0x00a2}
0x2f9a…2fac               Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x001e, t01=0x00ca}
0x2fac…2fc4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x001e, t01=0x00dc}
0x2fc4…2fce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f4}
0x2fce…2fec               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001e, t01=0x00fe}
0x2fec…300a               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001e, t01=0x011c}
0x300a…3028               Head {h00=0x001a, h01=0x0050, text=»* WRITE DELETED DATA *«, t00=0x001e, t01=0x013a}
0x3028…3046               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001e, t01=0x0158}
0x3046…3064               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001e, t01=0x0176}
0x3064…306e (31, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0004}
0x306e…3086               Head {h00=0x0014, h01=0x0050, text=»FD:030 CF A5,BIO«, t00=0x001f, t01=0x000e}
0x3086…3098               Head {h00=0x000e, h01=0x0050, text=» ORK A2,6 «, t00=0x001f, t01=0x0026}
0x3098…30aa               Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x001f, t01=0x0038}
0x30aa…30b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004a}
0x30b4…30ce               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001f, t01=0x0054}
0x30ce…30e8               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x001f, t01=0x006e}
0x30e8…3102               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x001f, t01=0x0088}
0x3102…311c               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x001f, t01=0x00a2}
0x311c…3136               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001f, t01=0x00bc}
0x3136…3140               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d6}
0x3140…315c               Head {h00=0x0018, h01=0x0050, text=»FD:040 CF A5,BIO:RE «, t00=0x001f, t01=0x00e0}
0x315c…3174               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001f, t01=0x00fc}
0x3174…318c               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x001f, t01=0x0114}
0x318c…31a4               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x001f, t01=0x012c}
0x31a4…31c4               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:042 TOSS DISC «, t00=0x001f, t01=0x0144}
0x31c4…31d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0164}
0x31d0…31e2               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001f, t01=0x0170}
0x31e2…31f6               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x001f, t01=0x0182}
0x31f6…320a               Head {h00=0x0010, h01=0x0050, text=»FD:042 EQU *«, t00=0x0020, t01=0x0008}
0x320a…3216               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x001c}
0x3216…323e               Head {h00=0x0024, h01=0x0050, text=»FD:045 CF A5,FD:REA PERFORM READ«, t00=0x0020, t01=0x0028}
0x323e…3248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0050}
0x3248…3260               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0020, t01=0x005a}
0x3260…326a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0072}
0x326a…3274               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x007c}
0x3274…328c               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0020, t01=0x0086}
0x328c…32a2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0020, t01=0x009e}
0x32a2…32be               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0020, t01=0x00b4}
0x32be…32f6               Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0020, t01=0x00d0}
0x32f6…3322               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:046 BUFFER IN SYSTEM AREA?«, t00=0x0020, t01=0x0108}
0x3322…334e               Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0020, t01=0x0134}
0x334e…337c               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,FD:BUF GET DWT BUFFER ADDRESS«, t00=0x0020, t01=0x0160}
0x337c…33a6               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0020, t01=0x018e}
0x33a6…33d2               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0021, t01=0x0028}
0x33d2…3408               Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x0021, t01=0x0054}
0x3408…3432               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0021, t01=0x008a}
0x3432…3464               Head {h00=0x002e, h01=0x0050, text=» LD A2,DWT:BF,A6 GET SAVED BUFFER ADDRESS «, t00=0x0021, t01=0x00b4}
0x3464…348e               Head {h00=0x0026, h01=0x0050, text=» ST A2,ECBBA,A8 RESTORE IT IN ECB «, t00=0x0021, t01=0x00e6}
0x348e…34a0               Head {h00=0x000e, h01=0x0050, text=» RF FD:048«, t00=0x0021, t01=0x0110}
0x34a0…34aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0122}
0x34aa…34be               Head {h00=0x0010, h01=0x0050, text=»FD:046 EQU *«, t00=0x0021, t01=0x012c}
0x34be…34ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0140}
0x34ca…34d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x014c}
0x34d4…34ec               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0021, t01=0x0156}
0x34ec…3504               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0021, t01=0x016e}
0x3504…351c               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0021, t01=0x0186}
0x351c…353a               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:047 NOT IBM «, t00=0x0022, t01=0x000e}
0x353a…3546               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x002c}
0x3546…3558               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0022, t01=0x0038}
0x3558…3578               Head {h00=0x001c, h01=0x0050, text=» LD A7,ECBRL,A8 REQ LEN «, t00=0x0022, t01=0x004a}
0x3578…35a4               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS«, t00=0x0022, t01=0x006a}
0x35a4…35b8               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0022, t01=0x0096}
0x35b8…35cc               Head {h00=0x0010, h01=0x0050, text=»FD:047 EQU *«, t00=0x0022, t01=0x00aa}
0x35cc…35d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00be}
0x35d8…35ec               Head {h00=0x0010, h01=0x0050, text=»FD:048 EQU *«, t00=0x0022, t01=0x00ca}
0x35ec…35fe               Head {h00=0x000e, h01=0x0050, text=» ABL FD:RC«, t00=0x0022, t01=0x00de}
0x35fe…3608               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f0}
0x3608…3620               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0022, t01=0x00fa}
0x3620…362a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0112}
0x362a…3642               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0022, t01=0x011c}
0x3642…3658               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0022, t01=0x0134}
0x3658…3662               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x014a}
0x3662…3678               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0022, t01=0x0154}
0x3678…368e               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0022, t01=0x016a}
0x368e…36a4               Head {h00=0x0012, h01=0x0050, text=»* SEARCH KEY *«, t00=0x0022, t01=0x0180}
0x36a4…36ba               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0023, t01=0x0008}
0x36ba…36d0               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0023, t01=0x001e}
0x36d0…36da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0034}
0x36da…36ee               Head {h00=0x0010, h01=0x0050, text=»FD:050 EQU *«, t00=0x0023, t01=0x003e}
0x36ee…3714               Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 KEY AREA ADDRESS «, t00=0x0023, t01=0x0052}
0x3714…3738               Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A4 KEY AREA LENGTH «, t00=0x0023, t01=0x0078}
0x3738…374a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0023, t01=0x009c}
0x374a…3770               Head {h00=0x0022, h01=0x0050, text=» ABL(NP) END:10 ILLEGAL LENGTH«, t00=0x0023, t01=0x00ae}
0x3770…3784               Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0023, t01=0x00d4}
0x3784…37aa               Head {h00=0x0022, h01=0x0050, text=» ABL(P) END:10 ILLEGAL LENGTH «, t00=0x0023, t01=0x00e8}
0x37aa…37bc               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0023, t01=0x010e}
0x37bc…37c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0120}
0x37c6…37f4               Head {h00=0x002a, h01=0x0050, text=»*   IF ODD CHANGE TO EVEN NO OF BYTES «, t00=0x0023, t01=0x012a}
0x37f4…37fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0158}
0x37fe…3810               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x0162}
0x3810…3822               Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0023, t01=0x0174}
0x3822…3834               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0023, t01=0x0186}
0x3834…383e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0008}
0x383e…3850               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0024, t01=0x0012}
0x3850…3866               Head {h00=0x0012, h01=0x0050, text=» ORK A2,7 BIO «, t00=0x0024, t01=0x0024}
0x3866…3878               Head {h00=0x000e, h01=0x0050, text=» ADK A3,4 «, t00=0x0024, t01=0x003a}
0x3878…3896               Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 KEY ADDRESS «, t00=0x0024, t01=0x004c}
0x3896…38b6               Head {h00=0x001c, h01=0x0050, text=» CF A5,FD:WRI SEARCH KEY«, t00=0x0024, t01=0x006a}
0x38b6…38d4               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 RETURN CODE«, t00=0x0024, t01=0x008a}
0x38d4…38ea               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:048«, t00=0x0024, t01=0x00a8}
0x38ea…38f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00be}
0x38f4…390c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0024, t01=0x00c8}
0x390c…3916               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e0}
0x3916…393e               Head {h00=0x0024, h01=0x0050, text=»*  READ RECORD WITH KEY COMMAND «, t00=0x0024, t01=0x00ea}
0x393e…3948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0112}
0x3948…395c               Head {h00=0x0010, h01=0x0050, text=»FD:060 EQU *«, t00=0x0024, t01=0x011c}
0x395c…3972               Head {h00=0x0012, h01=0x0050, text=» LDK A2,4 BIO «, t00=0x0024, t01=0x0130}
0x3972…3996               Head {h00=0x0020, h01=0x0050, text=» LD A3,4,A8 REQUESTED LENGTH«, t00=0x0024, t01=0x0146}
0x3996…39aa               Head {h00=0x0010, h01=0x0050, text=» CWK A3,130 «, t00=0x0024, t01=0x016a}
0x39aa…39d0               Head {h00=0x0022, h01=0x0050, text=» ABL(NE) END:10 ILLEGAL LENGTH«, t00=0x0024, t01=0x017e}
0x39d0…39f2               Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0025, t01=0x0014}
0x39f2…3a04               Head {h00=0x000e, h01=0x0050, text=» RB FD:045«, t00=0x0025, t01=0x0036}
0x3a04…3a10               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0048}
0x3a10…3a1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0054}
0x3a1a…3a32               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0025, t01=0x005e}
0x3a32…3a3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0076}
0x3a3c…3a54               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0025, t01=0x0080}
0x3a54…3a6c               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x0025, t01=0x0098}
0x3a6c…3a84               Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x0025, t01=0x00b0}
0x3a84…3a9c               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x0025, t01=0x00c8}
0x3a9c…3ab4               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0025, t01=0x00e0}
0x3ab4…3abe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f8}
0x3abe…3ad2               Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0025, t01=0x0102}
0x3ad2…3af2               Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0025, t01=0x0116}
0x3af2…3b08               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0025, t01=0x0136}
0x3b08…3b1a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0025, t01=0x014c}
0x3b1a…3b2c               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0025, t01=0x015e}
0x3b2c…3b56               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FD:090 DISC NOT OPERABEL? «, t00=0x0025, t01=0x0170}
0x3b56…3b7c               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/200 WRITE PROTECTED?«, t00=0x0026, t01=0x000a}
0x3b7c…3b96               Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0026, t01=0x0030}
0x3b96…3bae               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0026, t01=0x004a}
0x3bae…3bd2               Head {h00=0x0020, h01=0x0050, text=» RF LOA:05 READ VOLUME NAME «, t00=0x0026, t01=0x0062}
0x3bd2…3bdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0086}
0x3bdc…3bf0               Head {h00=0x0010, h01=0x0050, text=»FD:075 EQU *«, t00=0x0026, t01=0x0090}
0x3bf0…3bfc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00a4}
0x3bfc…3c24               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTRCW,A6 GET RETURN CODE«, t00=0x0026, t01=0x00b0}
0x3c24…3c3e               Head {h00=0x0016, h01=0x0050, text=»FD:090 ABL END:IO «, t00=0x0026, t01=0x00d8}
0x3c3e…3c48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f2}
0x3c48…3c60               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0026, t01=0x00fc}
0x3c60…3c6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0114}
0x3c6a…3c7a               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0026, t01=0x011e}
0x3c7a…3c8a               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0026, t01=0x012e}
0x3c8a…3c9a               Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0026, t01=0x013e}
0x3c9a…3caa               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0026, t01=0x014e}
0x3caa…3cba               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0026, t01=0x015e}
0x3cba…3cc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x016e}
0x3cc4…3cd6               Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0026, t01=0x0178}
0x3cd6…3cee               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0026, t01=0x018a}
0x3cee…3d04               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0027, t01=0x0012}
0x3d04…3d16               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0027, t01=0x0028}
0x3d16…3d3a               Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) FD:RC NOT OPERABEL «, t00=0x0027, t01=0x003a}
0x3d3a…3d4e               Head {h00=0x0010, h01=0x0050, text=»LOA:05 EQU *«, t00=0x0027, t01=0x005e}
0x3d4e…3d66               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0027, t01=0x0072}
0x3d66…3d70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008a}
0x3d70…3d92               Head {h00=0x001e, h01=0x0050, text=»*  CHECK IF TOSS/IBM LABEL«, t00=0x0027, t01=0x0094}
0x3d92…3d9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b6}
0x3d9c…3db2               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0027, t01=0x00c0}
0x3db2…3dc6               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0027, t01=0x00d6}
0x3dc6…3de4               Head {h00=0x001a, h01=0x0050, text=» LDK A3,38 NO OF BYTES«, t00=0x0027, t01=0x00ea}
0x3de4…3dfa               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0027, t01=0x0108}
0x3dfa…3e0e               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0027, t01=0x011e}
0x3e0e…3e20               Head {h00=0x000e, h01=0x0050, text=» ADK A4,34«, t00=0x0027, t01=0x0132}
0x3e20…3e34               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0027, t01=0x0144}
0x3e34…3e48               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0027, t01=0x0158}
0x3e48…3e74               Head {h00=0x0028, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL PREASSUMED «, t00=0x0027, t01=0x016c}
0x3e74…3e86               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0028, t01=0x0008}
0x3e86…3e9a               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0028, t01=0x001a}
0x3e9a…3eae               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0028, t01=0x002e}
0x3eae…3ece               Head {h00=0x001c, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL«, t00=0x0028, t01=0x0042}
0x3ece…3eda               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0062}
0x3eda…3ee4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x006e}
0x3ee4…3efc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0028, t01=0x0078}
0x3efc…3f06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0090}
0x3f06…3f10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009a}
0x3f10…3f24               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0028, t01=0x00a4}
0x3f24…3f2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b8}
0x3f2e…3f4a               Head {h00=0x0018, h01=0x0050, text=»*  READ VOLUME NAME «, t00=0x0028, t01=0x00c2}
0x3f4a…3f54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00de}
0x3f54…3f6c               Head {h00=0x0014, h01=0x0050, text=» LDK A3,8 LENGTH«, t00=0x0028, t01=0x00e8}
0x3f6c…3f82               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0028, t01=0x0100}
0x3f82…3fb0               Head {h00=0x002a, h01=0x0050, text=» C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK«, t00=0x0028, t01=0x0116}
0x3fb0…3fde               Head {h00=0x002a, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0028, t01=0x0144}
0x3fde…3ff0               Head {h00=0x000e, h01=0x0050, text=» RF LOA:15«, t00=0x0028, t01=0x0172}
0x3ff0…3ffc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0184}
0x3ffc…400e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0028, t01=0x0190}
0x400e…402e               Head {h00=0x001c, h01=0x0050, text=»LOA:10 LDK A3,10 LENGTH «, t00=0x0029, t01=0x0012}
0x402e…4046               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0029, t01=0x0032}
0x4046…4070               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0029, t01=0x004a}
0x4070…409c               Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM DISC «, t00=0x0029, t01=0x0074}
0x409c…40c2               Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 RETURN CODE BIT 10«, t00=0x0029, t01=0x00a0}
0x40c2…40dc               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0029, t01=0x00c6}
0x40dc…40e8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00e0}
0x40e8…4100               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0029, t01=0x00ec}
0x4100…4114               Head {h00=0x0010, h01=0x0050, text=»LOA:15 EQU *«, t00=0x0029, t01=0x0104}
0x4114…4138               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0029, t01=0x0118}
0x4138…414e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0029, t01=0x013c}
0x414e…4162               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0029, t01=0x0152}
0x4162…4174               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0029, t01=0x0166}
0x4174…4180               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0178}
0x4180…4192               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0029, t01=0x0184}
0x4192…41aa               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTRCW,A6«, t00=0x002a, t01=0x0008}
0x41aa…41d2               Head {h00=0x0024, h01=0x0050, text=» ANK A7,/20 CHECK TYPE OF LABEL «, t00=0x002a, t01=0x0020}
0x41d2…41f2               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:30 TOSS LABEL«, t00=0x002a, t01=0x0048}
0x41f2…4210               Head {h00=0x001a, h01=0x0050, text=» LDK A7,10 NO OF CHAR.«, t00=0x002a, t01=0x0068}
0x4210…4224               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x002a, t01=0x0086}
0x4224…4236               Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x002a, t01=0x009a}
0x4236…424a               Head {h00=0x0010, h01=0x0050, text=»LOA:30 EQU *«, t00=0x002a, t01=0x00ac}
0x424a…4256               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x00c0}
0x4256…4260               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00cc}
0x4260…4278               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002a, t01=0x00d6}
0x4278…4282               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ee}
0x4282…428c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f8}
0x428c…42a4               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002a, t01=0x0102}
0x42a4…42ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x011a}
0x42ae…42d2               Head {h00=0x0020, h01=0x0050, text=»*  GET DWT VOL NAME ADDRESS «, t00=0x002a, t01=0x0124}
0x42d2…42dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0148}
0x42dc…4300               Head {h00=0x0020, h01=0x0050, text=» CF A5,VOLADR ADDRESS TO A2 «, t00=0x002a, t01=0x0152}
0x4300…430a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0176}
0x430a…4326               Head {h00=0x0018, h01=0x0050, text=»*  STORE NAME IN DWT«, t00=0x002a, t01=0x0180}
0x4326…4330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x000c}
0x4330…4342               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x002b, t01=0x0016}
0x4342…435e               Head {h00=0x0018, h01=0x0050, text=»LOA:40 LD A4,BUF,A1 «, t00=0x002b, t01=0x0028}
0x435e…4370               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x002b, t01=0x0044}
0x4370…4382               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x002b, t01=0x0056}
0x4382…4398               Head {h00=0x0012, h01=0x0050, text=» RF(Z) LOA:50 «, t00=0x002b, t01=0x0068}
0x4398…43aa               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x002b, t01=0x007e}
0x43aa…43bc               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x002b, t01=0x0090}
0x43bc…43ce               Head {h00=0x000e, h01=0x0050, text=» RB LOA:40«, t00=0x002b, t01=0x00a2}
0x43ce…43e2               Head {h00=0x0010, h01=0x0050, text=»LOA:50 EQU *«, t00=0x002b, t01=0x00b4}
0x43e2…4406               Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTOR+1,A6 GET ORDER «, t00=0x002b, t01=0x00c8}
0x4406…441a               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x002b, t01=0x00ec}
0x441a…4444               Head {h00=0x0026, h01=0x0050, text=» RB(Z) FD:075 JUMP IF TEST STATUS «, t00=0x002b, t01=0x0100}
0x4444…4450               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x012a}
0x4450…4462               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002b, t01=0x0136}
0x4462…446c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0148}
0x446c…448e               Head {h00=0x001e, h01=0x0050, text=»* DATA SET OPENING WANTED?«, t00=0x002b, t01=0x0152}
0x448e…4498               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0174}
0x4498…44be               Head {h00=0x0022, h01=0x0050, text=» ANK A1,/2 A1:  TOSS=6, IBM=8 «, t00=0x002b, t01=0x017e}
0x44be…44e0               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOA:70 TOSS LABEL «, t00=0x002c, t01=0x0014}
0x44e0…4500               Head {h00=0x001c, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER «, t00=0x002c, t01=0x0036}
0x4500…4516               Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2600 «, t00=0x002c, t01=0x0056}
0x4516…4536               Head {h00=0x001c, h01=0x0050, text=» RF(E) LOA:70 LOCK ORDER«, t00=0x002c, t01=0x006c}
0x4536…4540               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x008c}
0x4540…455e               Head {h00=0x001a, h01=0x0050, text=»*  READ DATA SET LABEL«, t00=0x002c, t01=0x0096}
0x455e…4568               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b4}
0x4568…458a               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW,A8 SECTOR NO «, t00=0x002c, t01=0x00be}
0x458a…459c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x002c, t01=0x00e0}
0x459c…45c0               Head {h00=0x0020, h01=0x0050, text=» ABL(N) FD:DIS REQUEST ERROR«, t00=0x002c, t01=0x00f2}
0x45c0…45d2               Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x002c, t01=0x0116}
0x45d2…45f6               Head {h00=0x0020, h01=0x0050, text=» ABL(P) FD:DIS REQUEST ERROR«, t00=0x002c, t01=0x0128}
0x45f6…4608               Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x002c, t01=0x014c}
0x4608…461e               Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x002c, t01=0x015e}
0x461e…4638               Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x002c, t01=0x0174}
0x4638…464c               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x002c, t01=0x018e}
0x464c…4662               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002d, t01=0x0012}
0x4662…4680               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x002d, t01=0x0028}
0x4680…46a4               Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x002d, t01=0x0046}
0x46a4…46c6               Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x002d, t01=0x006a}
0x46c6…46fc               Head {h00=0x0032, h01=0x0050, text=» ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL«, t00=0x002d, t01=0x008c}
0x46fc…4710               Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x002d, t01=0x00c2}
0x4710…4724               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x002d, t01=0x00d6}
0x4724…4730               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002d, t01=0x00ea}
0x4730…475e               Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW,A8 DATA SET LABEL SECTOR «, t00=0x002d, t01=0x00f6}
0x475e…4774               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x002d, t01=0x0124}
0x4774…4794               Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x002d, t01=0x013a}
0x4794…47b4               Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x002d, t01=0x015a}
0x47b4…47e6               Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x002d, t01=0x017a}
0x47e6…47fc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002e, t01=0x001c}
0x47fc…4824               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x002e, t01=0x0032}
0x4824…483a               Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x002e, t01=0x005a}
0x483a…4850               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002e, t01=0x0070}
0x4850…4864               Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x002e, t01=0x0086}
0x4864…4888               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x002e, t01=0x009a}
0x4888…489e               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002e, t01=0x00be}
0x489e…48b4               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x002e, t01=0x00d4}
0x48b4…48dc               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x002e, t01=0x00ea}
0x48dc…4900               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x002e, t01=0x0112}
0x4900…4916               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002e, t01=0x0136}
0x4916…4934               Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x002e, t01=0x014c}
0x4934…494a               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x002e, t01=0x016a}
0x494a…4972               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x002e, t01=0x0180}
0x4972…497c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0018}
0x497c…4990               Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x002f, t01=0x0022}
0x4990…499c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0036}
0x499c…49b4               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x002f, t01=0x0042}
0x49b4…49da               Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x002f, t01=0x005a}
0x49da…4a04               Head {h00=0x0026, h01=0x0050, text=»LOA:75 LD A3,DWTRCW,A6 RETURN CODE«, t00=0x002f, t01=0x0080}
0x4a04…4a1c               Head {h00=0x0014, h01=0x0050, text=»LOA:80 ABL FD:RC«, t00=0x002f, t01=0x00aa}
0x4a1c…4a26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c2}
0x4a26…4a3e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x002f, t01=0x00cc}
0x4a3e…4a48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00e4}
0x4a48…4a52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ee}
0x4a52…4a6a               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002f, t01=0x00f8}
0x4a6a…4a74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0110}
0x4a74…4a8e               Head {h00=0x0016, h01=0x0050, text=»*  ERROR , UNLOCK «, t00=0x002f, t01=0x011a}
0x4a8e…4a98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0134}
0x4a98…4aac               Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x002f, t01=0x013e}
0x4aac…4abe               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x002f, t01=0x0152}
0x4abe…4ae0               Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x002f, t01=0x0164}
0x4ae0…4afa               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x002f, t01=0x0186}
0x4afa…4b10               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0030, t01=0x0010}
0x4b10…4b22               Head {h00=0x000e, h01=0x0050, text=» RB LOA:75«, t00=0x0030, t01=0x0026}
0x4b22…4b2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0038}
0x4b2c…4b6a               Head {h00=0x003a, h01=0x0050, text=»*---------------------------------------------------- «, t00=0x0030, t01=0x0042}
0x4b6a…4b88               Head {h00=0x001a, h01=0x0050, text=»*   LD:RC  SUBROUTINE «, t00=0x0030, t01=0x0080}
0x4b88…4b92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x009e}
0x4b92…4bb0               Head {h00=0x001a, h01=0x0050, text=»LD:RC ORS A3,DWTRCW,A6«, t00=0x0030, t01=0x00a8}
0x4bb0…4bd2               Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/2007 FATAL ERROR«, t00=0x0030, t01=0x00c6}
0x4bd2…4be8               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x0030, t01=0x00e8}
0x4be8…4c12               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0030, t01=0x00fe}
0x4c12…4c22               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0030, t01=0x0128}
0x4c22…4c2e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0138}
0x4c2e…4c46               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0030, t01=0x0144}
0x4c46…4c50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015c}
0x4c50…4c62               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x0166}
0x4c62…4c74               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x0178}
0x4c74…4c86               Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0030, t01=0x018a}
0x4c86…4c98               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0031, t01=0x000c}
0x4c98…4caa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0031, t01=0x001e}
0x4caa…4cb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0030}
0x4cb4…4cc8               Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0031, t01=0x003a}
0x4cc8…4cda               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0031, t01=0x004e}
0x4cda…4ce4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0060}
0x4ce4…4d00               Head {h00=0x0018, h01=0x0050, text=»*    DATA SET OPEN? «, t00=0x0031, t01=0x006a}
0x4d00…4d0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0086}
0x4d0a…4d2c               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0031, t01=0x0090}
0x4d2c…4d42               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0031, t01=0x00b2}
0x4d42…4d60               Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0031, t01=0x00c8}
0x4d60…4d98               Head {h00=0x0034, h01=0x0050, text=» ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0031, t01=0x00e6}
0x4d98…4da2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x011e}
0x4da2…4dd2               Head {h00=0x002c, h01=0x0050, text=»*  READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0031, t01=0x0128}
0x4dd2…4ddc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0158}
0x4ddc…4e00               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0031, t01=0x0162}
0x4e00…4e2a               Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0031, t01=0x0186}
0x4e2a…4e52               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0032, t01=0x0020}
0x4e52…4e5e               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0032, t01=0x0048}
0x4e5e…4e68               Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0032, t01=0x0054}
0x4e68…4e90               Head {h00=0x0024, h01=0x0050, text=»*------------------------------ «, t00=0x0032, t01=0x005e}
0x4e90…4ed0               Head {h00=0x003c, h01=0x0050, text=»*  TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0032, t01=0x0086}
0x4ed0…4eda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c6}
0x4eda…4efc               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0032, t01=0x00d0}
0x4efc…4f06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00f2}
0x4f06…4f22               Head {h00=0x0018, h01=0x0050, text=»*  DIVIDE EOD BY 26 «, t00=0x0032, t01=0x00fc}
0x4f22…4f2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0118}
0x4f2c…4f3e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0032, t01=0x0122}
0x4f3e…4f56               Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0032, t01=0x0134}
0x4f56…4f6c               Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0032, t01=0x014c}
0x4f6c…4f7e               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0032, t01=0x0162}
0x4f7e…4f90               Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0032, t01=0x0174}
0x4f90…4fa8               Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0032, t01=0x0186}
0x4fa8…4fb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x000e}
0x4fb2…4fd2               Head {h00=0x001c, h01=0x0050, text=»*   A1 = BINARY TRACK NO«, t00=0x0033, t01=0x0018}
0x4fd2…5000               Head {h00=0x002a, h01=0x0050, text=»*   A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0033, t01=0x0038}
0x5000…500a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0066}
0x500a…5036               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0033, t01=0x0070}
0x5036…5062               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0033, t01=0x009c}
0x5062…5074               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0033, t01=0x00c8}
0x5074…5086               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x00da}
0x5086…50a2               Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0033, t01=0x00ec}
0x50a2…50c4               Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0033, t01=0x0108}
0x50c4…50dc               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0033, t01=0x012a}
0x50dc…5108               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0033, t01=0x0142}
0x5108…511a               Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0033, t01=0x016e}
0x511a…513c               Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0033, t01=0x0180}
0x513c…515a               Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x0034, t01=0x0012}
0x515a…5164               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0030}
0x5164…5184               Head {h00=0x001c, h01=0x0050, text=»*  WRITE DATA SET LABEL «, t00=0x0034, t01=0x003a}
0x5184…518e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005a}
0x518e…51b2               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0034, t01=0x0064}
0x51b2…51d2               Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0034, t01=0x0088}
0x51d2…51fe               Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0034, t01=0x00a8}
0x51fe…5226               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0034, t01=0x00d4}
0x5226…523c               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0034, t01=0x00fc}
0x523c…525e               Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0034, t01=0x0112}
0x525e…5268               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0134}
0x5268…527c               Head {h00=0x0010, h01=0x0050, text=»*    UNLOCK «, t00=0x0034, t01=0x013e}
0x527c…5286               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0152}
0x5286…5292               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x015c}
0x5292…52a6               Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0034, t01=0x0168}
0x52a6…52c0               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0034, t01=0x017c}
0x52c0…52d6               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0035, t01=0x0008}
0x52d6…52f0               Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0035, t01=0x001e}
0x52f0…5302               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0035, t01=0x0038}
0x5302…5332               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED«, t00=0x0035, t01=0x004a}
0x5332…5354               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 INDEX MASK«, t00=0x0035, t01=0x007a}
0x5354…5384               Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0035, t01=0x009c}
0x5384…5398               Head {h00=0x0010, h01=0x0050, text=»UNL:80 EQU *«, t00=0x0035, t01=0x00cc}
0x5398…53b2               Head {h00=0x0016, h01=0x0050, text=» RB LOA:75 END:IO «, t00=0x0035, t01=0x00e0}
0x53b2…53ca               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0035, t01=0x00fa}
0x53ca…53d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0112}
0x53d4…53f8               Head {h00=0x0020, h01=0x0050, text=»*   UNLOAD RETURN CODE CHECK«, t00=0x0035, t01=0x011c}
0x53f8…5402               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0140}
0x5402…5422               Head {h00=0x001c, h01=0x0050, text=»UNL:RC ORS A3,DWTRCW,A6 «, t00=0x0035, t01=0x014a}
0x5422…5442               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/7 FATAL ERROR? «, t00=0x0035, t01=0x016a}
0x5442…545e               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) UNL:80 ENDIO«, t00=0x0035, t01=0x018a}
0x545e…546e               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0036, t01=0x0016}
0x546e…547a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0026}
0x547a…548c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0036, t01=0x0032}
0x548c…54a4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0036, t01=0x0044}
0x54a4…54ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x005c}
0x54ae…54ca               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0036, t01=0x0066}
0x54ca…54e6               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0036, t01=0x0082}
0x54e6…5502               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0036, t01=0x009e}
0x5502…550c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00ba}
0x550c…5520               Head {h00=0x0010, h01=0x0050, text=»SQREAD EQU *«, t00=0x0036, t01=0x00c4}
0x5520…554e               Head {h00=0x002a, h01=0x0050, text=» CF A5,DSOPCH GET EOD AND EOD ADDRESS «, t00=0x0036, t01=0x00d8}
0x554e…5564               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0036, t01=0x0106}
0x5564…558a               Head {h00=0x0022, h01=0x0050, text=»SQR:05 ABL(Z) DISIOE NOT OPEN «, t00=0x0036, t01=0x011c}
0x558a…55bc               Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0036, t01=0x0142}
0x55bc…55d4               Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0036, t01=0x0174}
0x55d4…55ec               Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0036, t01=0x018c}
0x55ec…5616               Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBCW,A8 STORE CRN+1 IN ECB«, t00=0x0037, t01=0x0014}
0x5616…5628               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0037, t01=0x003e}
0x5628…564a               Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0037, t01=0x0050}
0x564a…5660               Head {h00=0x0012, h01=0x0050, text=» CF A5,BIO:RE «, t00=0x0037, t01=0x0072}
0x5660…5684               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0037, t01=0x0088}
0x5684…56ba               Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0037, t01=0x00ac}
0x56ba…56e6               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0037, t01=0x00e2}
0x56e6…570e               Head {h00=0x0024, h01=0x0050, text=» LD A7,ECBRL,A8 REQUESTED LENGTH«, t00=0x0037, t01=0x010e}
0x570e…5736               Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0037, t01=0x0136}
0x5736…574c               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0037, t01=0x015e}
0x574c…5760               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0037, t01=0x0174}
0x5760…577e               Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x0037, t01=0x0188}
0x577e…5788               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0016}
0x5788…57a0               Head {h00=0x0014, h01=0x0050, text=»*    END OF DATA«, t00=0x0038, t01=0x0020}
0x57a0…57aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0038}
0x57aa…57d2               Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x0038, t01=0x0042}
0x57d2…57e4               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0038, t01=0x006a}
0x57e4…57fc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0038, t01=0x007c}
0x57fc…5806               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0094}
0x5806…5822               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x009e}
0x5822…583e               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x0038, t01=0x00ba}
0x583e…585a               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x00d6}
0x585a…5864               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00f2}
0x5864…5878               Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0038, t01=0x00fc}
0x5878…5896               Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0038, t01=0x0110}
0x5896…58b8               Head {h00=0x001e, h01=0x0050, text=» ADK A7,0 EOD-NO (SET CR) «, t00=0x0038, t01=0x012e}
0x58b8…58d6               Head {h00=0x001a, h01=0x0050, text=» RB(Z) SQR:05 NOT OPEN«, t00=0x0038, t01=0x0150}
0x58d6…58e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x016e}
0x58e0…5902               Head {h00=0x001e, h01=0x0050, text=»*   CHECK IF END OF EXTENT«, t00=0x0038, t01=0x0178}
0x5902…590c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x000a}
0x590c…5922               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0039, t01=0x0014}
0x5922…594c               Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x0039, t01=0x002a}
0x594c…597a               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD IN ECB C. W.«, t00=0x0039, t01=0x0054}
0x597a…598e               Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x0039, t01=0x0082}
0x598e…59ac               Head {h00=0x001a, h01=0x0050, text=» RF(G) SQW:20 YES,EOE «, t00=0x0039, t01=0x0096}
0x59ac…59be               Head {h00=0x000e, h01=0x0050, text=» CF A5,BIO«, t00=0x0039, t01=0x00b4}
0x59be…59d2               Head {h00=0x0010, h01=0x0050, text=» LDK A7,128 «, t00=0x0039, t01=0x00c6}
0x59d2…5a02               Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x0039, t01=0x00da}
0x5a02…5a20               Head {h00=0x001a, h01=0x0050, text=» ORK A2,5 PHYS. WRITE «, t00=0x0039, t01=0x010a}
0x5a20…5a36               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0039, t01=0x0128}
0x5a36…5a4c               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0039, t01=0x013e}
0x5a4c…5a70               Head {h00=0x0020, h01=0x0050, text=»SQW:10 LDR A1,A3 RETURN CODE«, t00=0x0039, t01=0x0154}
0x5a70…5a82               Head {h00=0x000e, h01=0x0050, text=» ANK A1,/1«, t00=0x0039, t01=0x0178}
0x5a82…5aa6               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SQW:15 NOT OPERABLE «, t00=0x0039, t01=0x018a}
0x5aa6…5ad4               Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x003a, t01=0x001e}
0x5ad4…5aec               Head {h00=0x0014, h01=0x0050, text=»SQW:15 RF FD:RC «, t00=0x003a, t01=0x004c}
0x5aec…5af6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0064}
0x5af6…5b00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x006e}
0x5b00…5b18               Head {h00=0x0014, h01=0x0050, text=»*  END OF EXTENT«, t00=0x003a, t01=0x0078}
0x5b18…5b40               Head {h00=0x0024, h01=0x0050, text=»SQW:20 LDKL A1,/400 RETURN CODE «, t00=0x003a, t01=0x0090}
0x5b40…5b52               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003a, t01=0x00b8}
0x5b52…5b6a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003a, t01=0x00ca}
0x5b6a…5b74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00e2}
0x5b74…5b86               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x00ec}
0x5b86…5b98               Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003a, t01=0x00fe}
0x5b98…5baa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0110}
0x5baa…5bb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0122}
0x5bb4…5bc8               Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003a, t01=0x012c}
0x5bc8…5bde               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003a, t01=0x0140}
0x5bde…5bfc               Head {h00=0x001a, h01=0x0050, text=» ADK A7,0 EOD (SET CR)«, t00=0x003a, t01=0x0156}
0x5bfc…5c24               Head {h00=0x0024, h01=0x0050, text=» RB(Z) SQR:05 DATA SET NOT OPEN «, t00=0x003a, t01=0x0174}
0x5c24…5c48               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x003b, t01=0x000c}
0x5c48…5c5e               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x003b, t01=0x0030}
0x5c5e…5c72               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003b, t01=0x0046}
0x5c72…5c8a               Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x003b, t01=0x005a}
0x5c8a…5ca6               Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x003b, t01=0x0072}
0x5ca6…5cbc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003b, t01=0x008e}
0x5cbc…5cd0               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003b, t01=0x00a4}
0x5cd0…5cea               Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x003b, t01=0x00b8}
0x5cea…5d0a               Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x003b, t01=0x00d2}
0x5d0a…5d28               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x00f2}
0x5d28…5d3a               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003b, t01=0x0110}
0x5d3a…5d46               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0122}
0x5d46…5d5e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003b, t01=0x012e}
0x5d5e…5d68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0146}
0x5d68…5d82               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x003b, t01=0x0150}
0x5d82…5d9c               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x003b, t01=0x016a}
0x5d9c…5db6               Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x003b, t01=0x0184}
0x5db6…5dd0               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x003c, t01=0x000e}
0x5dd0…5dea               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x003c, t01=0x0028}
0x5dea…5df4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0042}
0x5df4…5dfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x004c}
0x5dfe…5e22               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A2  BIO CONTENTS «, t00=0x003c, t01=0x0056}
0x5e22…5e56               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x003c, t01=0x007a}
0x5e56…5e7c               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x003c, t01=0x00ae}
0x5e7c…5e86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d4}
0x5e86…5e9a               Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x003c, t01=0x00de}
0x5e9a…5eae               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003c, t01=0x00f2}
0x5eae…5ed0               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x003c, t01=0x0106}
0x5ed0…5edc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0128}
0x5edc…5ef0               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003c, t01=0x0134}
0x5ef0…5f1c               Head {h00=0x0028, h01=0x0050, text=» CM DWTRW,A6 INDICATOR TO WRITE MODE«, t00=0x003c, t01=0x0148}
0x5f1c…5f28               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0174}
0x5f28…5f3a               Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x003c, t01=0x0180}
0x5f3a…5f44 (61, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0004}
0x5f44…5f58               Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x003d, t01=0x000e}
0x5f58…5f6c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003d, t01=0x0022}
0x5f6c…5f7e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x003d, t01=0x0036}
0x5f7e…5fa0               Head {h00=0x001e, h01=0x0050, text=» ST A1,DWTRW,A6 READ MODE «, t00=0x003d, t01=0x0048}
0x5fa0…5fac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x006a}
0x5fac…5fc0               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003d, t01=0x0076}
0x5fc0…5fe2               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS  READ«, t00=0x003d, t01=0x008a}
0x5fe2…5fee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00ac}
0x5fee…6002               Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x003d, t01=0x00b8}
0x6002…6016               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003d, t01=0x00cc}
0x6016…603c               Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x003d, t01=0x00e0}
0x603c…6046               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0106}
0x6046…605c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x0110}
0x605c…6086               Head {h00=0x0026, h01=0x0050, text=» ORR* A1,A8 GET FIRST WORD OF ECB «, t00=0x003d, t01=0x0126}
0x6086…60b4               Head {h00=0x002a, h01=0x0050, text=» ANKL A1,/F000 KEEP FOUR LEFTMOST BITS«, t00=0x003d, t01=0x0150}
0x60b4…60c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x017e}
0x60c0…60ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x018a}
0x60ca…60de (62, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003e, t01=0x0004}
0x60de…60f0               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x003e, t01=0x0018}
0x60f0…6114               Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x003e, t01=0x002a}
0x6114…613c               Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x003e, t01=0x004e}
0x613c…6148               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0076}
0x6148…615c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003e, t01=0x0082}
0x615c…6166               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0096}
0x6166…617e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003e, t01=0x00a0}
0x617e…6188               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00b8}
0x6188…61ba               Head {h00=0x002e, h01=0x0050, text=»*  PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x003e, t01=0x00c2}
0x61ba…61c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00f4}
0x61c4…61dc               Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x003e, t01=0x00fe}
0x61dc…61ee               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x003e, t01=0x0116}
0x61ee…6214               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x003e, t01=0x0128}
0x6214…6220               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x014e}
0x6220…6234               Head {h00=0x0010, h01=0x0050, text=»FD:820 EQU *«, t00=0x003e, t01=0x015a}
0x6234…625e               Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x003e, t01=0x016e}
0x625e…6280               Head {h00=0x001e, h01=0x0050, text=» EX FDCIO,A6 CIO-START KST«, t00=0x003f, t01=0x0008}
0x6280…62ac               Head {h00=0x0028, h01=0x0050, text=» RF(3) FD:840 DEVICE ADDRESS UNKNOWN«, t00=0x003f, t01=0x002a}
0x62ac…62be               Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x003f, t01=0x0056}
0x62be…62e2               Head {h00=0x0020, h01=0x0050, text=»FD:840 LDK A1,1 NOT OPERABLE«, t00=0x003f, t01=0x0068}
0x62e2…62f4               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003f, t01=0x008c}
0x62f4…630c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x003f, t01=0x009e}
0x630c…6316               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00b6}
0x6316…6344               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x00c0}
0x6344…6372               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x003f, t01=0x00ee}
0x6372…63a0               Head {h00=0x002a, h01=0x0050, text=»*  FD:RC - STORE EFF LEN, END:IO     *«, t00=0x003f, t01=0x011c}
0x63a0…63ce               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x003f, t01=0x014a}
0x63ce…63fc               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x0178}
0x63fc…6406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0016}
0x6406…6428               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A3  RETURN CODE«, t00=0x0040, t01=0x0020}
0x6428…6432               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0042}
0x6432…6446               Head {h00=0x0010, h01=0x0050, text=»FD:RC EQU * «, t00=0x0040, t01=0x004c}
0x6446…6458               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0040, t01=0x0060}
0x6458…6462               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0072}
0x6462…6488               Head {h00=0x0022, h01=0x0050, text=»*  PUT EFFECTIVE LENGTH IN ECB«, t00=0x0040, t01=0x007c}
0x6488…6492               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00a2}
0x6492…64b4               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBRL,A8 REQ LENGTH«, t00=0x0040, t01=0x00ac}
0x64b4…64d6               Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBEL,A8 EFF LENGTH«, t00=0x0040, t01=0x00ce}
0x64d6…64ee               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0040, t01=0x00f0}
0x64ee…64f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0108}
0x64f8…650a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x0112}
0x650a…651c               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0040, t01=0x0124}
0x651c…652e               Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x0040, t01=0x0136}
0x652e…6540               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0040, t01=0x0148}
0x6540…6552               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x015a}
0x6552…655c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x016c}
0x655c…6570               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0040, t01=0x0176}
0x6570…6586               Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0040, t01=0x018a}
0x6586…659e               Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0041, t01=0x0010}
0x659e…65a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0028}
0x65a8…65b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0032}
0x65b2…65d8               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY FROM RECOVERY ROUTINE«, t00=0x0041, t01=0x003c}
0x65d8…65e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0062}
0x65e2…65f6               Head {h00=0x0010, h01=0x0050, text=»END:05 EQU *«, t00=0x0041, t01=0x006c}
0x65f6…6600               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0080}
0x6600…661a               Head {h00=0x0016, h01=0x0050, text=»*  ILLEGAL LENGTH «, t00=0x0041, t01=0x008a}
0x661a…6624               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00a4}
0x6624…6648               Head {h00=0x0020, h01=0x0050, text=»END:10 LDK A1,8 RETURN CODE «, t00=0x0041, t01=0x00ae}
0x6648…665a               Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0041, t01=0x00d2}
0x665a…6672               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0041, t01=0x00e4}
0x6672…667c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00fc}
0x667c…6698               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0041, t01=0x0106}
0x6698…66b4               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0041, t01=0x0122}
0x66b4…66d0               Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0041, t01=0x013e}
0x66d0…66ec               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0041, t01=0x015a}
0x66ec…6708               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0041, t01=0x0176}
0x6708…6712 (66, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0004}
0x6712…6724               Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x0042, t01=0x000e}
0x6724…673a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0042, t01=0x0020}
0x673a…6764               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0042, t01=0x0036}
0x6764…6770               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0060}
0x6770…677a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x006c}
0x677a…6790               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0042, t01=0x0076}
0x6790…67b6               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0042, t01=0x008c}
0x67b6…67c2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x00b2}
0x67c2…67cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00be}
0x67cc…67f0               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0042, t01=0x00c8}
0x67f0…6808               Head {h00=0x0014, h01=0x0050, text=» RF FDON05  KST «, t00=0x0042, t01=0x00ec}
0x6808…6820               Head {h00=0x0014, h01=0x0050, text=»FDON2 EQU *  KST«, t00=0x0042, t01=0x0104}
0x6820…6838               Head {h00=0x0014, h01=0x0050, text=» MSR 8,A15  KST «, t00=0x0042, t01=0x011c}
0x6838…6854               Head {h00=0x0018, h01=0x0050, text=» LDKL A6,DWFD02  KST«, t00=0x0042, t01=0x0134}
0x6854…685e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0150}
0x685e…6872               Head {h00=0x0010, h01=0x0050, text=»FDON05 EQU *«, t00=0x0042, t01=0x015a}
0x6872…6894               Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0042, t01=0x016e}
0x6894…68ac               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0042, t01=0x0190}
0x68ac…68ce               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x0043, t01=0x0018}
0x68ce…68d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x003a}
0x68d8…68f4               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0043, t01=0x0044}
0x68f4…6924               Head {h00=0x002c, h01=0x0050, text=» LD A2,INIFLG CHECK INITIALIZATION FLAG «, t00=0x0043, t01=0x0060}
0x6924…6944               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON07 POWER UP? «, t00=0x0043, t01=0x0090}
0x6944…6982               Head {h00=0x003a, h01=0x0050, text=» LD A2,SCTPLD GET FILE CODE OF PROGRAM LOADING DEVICE «, t00=0x0043, t01=0x00b0}
0x6982…6996               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F8 «, t00=0x0043, t01=0x00ee}
0x6996…69be               Head {h00=0x0024, h01=0x0050, text=» RF(N) FDON07 NOT FLEXIBLE DISC?«, t00=0x0043, t01=0x0102}
0x69be…69d0               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0043, t01=0x012a}
0x69d0…6a02               Head {h00=0x002e, h01=0x0050, text=» CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION «, t00=0x0043, t01=0x013c}
0x6a02…6a2e               Head {h00=0x0028, h01=0x0050, text=» CF A5,FDIX GET DRIVE BIT INDICATOR «, t00=0x0043, t01=0x016e}
0x6a2e…6a5c               Head {h00=0x002a, h01=0x0050, text=» ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED«, t00=0x0044, t01=0x000a}
0x6a5c…6a66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0038}
0x6a66…6a7e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0044, t01=0x0042}
0x6a7e…6a88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x005a}
0x6a88…6a92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0064}
0x6a92…6aa4               Head {h00=0x000e, h01=0x0050, text=» C1R A3,A3«, t00=0x0044, t01=0x006e}
0x6aa4…6ad2               Head {h00=0x002a, h01=0x0050, text=» ANS A3,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0044, t01=0x0080}
0x6ad2…6adc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00ae}
0x6adc…6b0a               Head {h00=0x002a, h01=0x0050, text=»* READ VOLUME NAME (A2 = 0 FROM FDIX) «, t00=0x0044, t01=0x00b8}
0x6b0a…6b14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00e6}
0x6b14…6b26               Head {h00=0x000e, h01=0x0050, text=» LDK A3,8 «, t00=0x0044, t01=0x00f0}
0x6b26…6b3a               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0044, t01=0x0102}
0x6b3a…6b50               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0044, t01=0x0116}
0x6b50…6b66               Head {h00=0x0012, h01=0x0050, text=» LD A3,SCTPLD «, t00=0x0044, t01=0x012c}
0x6b66…6b9a               Head {h00=0x0030, h01=0x0050, text=» CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT«, t00=0x0044, t01=0x0142}
0x6b9a…6bac               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0044, t01=0x0176}
0x6bac…6bbe               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x0044, t01=0x0188}
0x6bbe…6bc8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x000a}
0x6bc8…6bea               Head {h00=0x001e, h01=0x0050, text=»* MOVE VOLUME NAME TO DWT «, t00=0x0045, t01=0x0014}
0x6bea…6bf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0036}
0x6bf4…6c10               Head {h00=0x0018, h01=0x0050, text=»FDON06 LD A4,BUF,A1 «, t00=0x0045, t01=0x0040}
0x6c10…6c22               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0045, t01=0x005c}
0x6c22…6c34               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0045, t01=0x006e}
0x6c34…6c46               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0045, t01=0x0080}
0x6c46…6c58               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0045, t01=0x0092}
0x6c58…6c6e               Head {h00=0x0012, h01=0x0050, text=» RB(P) FDON06 «, t00=0x0045, t01=0x00a4}
0x6c6e…6c78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00ba}
0x6c78…6c8c               Head {h00=0x0010, h01=0x0050, text=»FDON07 EQU *«, t00=0x0045, t01=0x00c4}
0x6c8c…6c98               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x00d8}
0x6c98…6ca2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00e4}
0x6ca2…6cba               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0045, t01=0x00ee}
0x6cba…6cc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0106}
0x6cc4…6cf8               Head {h00=0x0030, h01=0x0050, text=»*  SAVE DWTST TO DWTST2 IF NOT ALREADY DONE.«, t00=0x0045, t01=0x0110}
0x6cf8…6d16               Head {h00=0x001a, h01=0x0050, text=»*    DWTST IS SET BUSY«, t00=0x0045, t01=0x0144}
0x6d16…6d20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0162}
0x6d20…6d38               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST2,A6«, t00=0x0045, t01=0x016c}
0x6d38…6d4a               Head {h00=0x000e, h01=0x0050, text=» CWK A2,-1«, t00=0x0045, t01=0x0184}
0x6d4a…6d6e               Head {h00=0x0020, h01=0x0050, text=» RF(NE) FDON08 ALREADY SAVED«, t00=0x0046, t01=0x0008}
0x6d6e…6d86               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0046, t01=0x002c}
0x6d86…6d9e               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST2,A6«, t00=0x0046, t01=0x0044}
0x6d9e…6dc2               Head {h00=0x0020, h01=0x0050, text=»FDON08 CM DWTST,A6 SET BUSY «, t00=0x0046, t01=0x005c}
0x6dc2…6dcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0080}
0x6dcc…6de2               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0046, t01=0x008a}
0x6de2…6dec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00a0}
0x6dec…6dfa               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x00aa}
0x6dfa…6e04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00b8}
0x6e04…6e42               Head {h00=0x003a, h01=0x0050, text=»*    TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x0046, t01=0x00c2}
0x6e42…6e68               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x0046, t01=0x0100}
0x6e68…6e8a               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x0046, t01=0x0126}
0x6e8a…6ea4               Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x0046, t01=0x0148}
0x6ea4…6ecc               Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x0046, t01=0x0162}
0x6ecc…6ee0               Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x0046, t01=0x018a}
0x6ee0…6eea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x000e}
0x6eea…6f24               Head {h00=0x0036, h01=0x0050, text=»*    OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x0047, t01=0x0018}
0x6f24…6f5a               Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x0047, t01=0x0052}
0x6f5a…6f64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0088}
0x6f64…6f8e               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x0047, t01=0x0092}
0x6f8e…6fb6               Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x0047, t01=0x00bc}
0x6fb6…6fd4               Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x0047, t01=0x00e4}
0x6fd4…7000               Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x0047, t01=0x0102}
0x7000…700a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x012e}
0x700a…701e               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0047, t01=0x0138}
0x701e…7048               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x0047, t01=0x014c}
0x7048…7052               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0176}
0x7052…705e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0180}
0x705e…7068               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x018c}
0x7068…7076               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0008}
0x7076…7080               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0016}
0x7080…7096               Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0048, t01=0x0020}
0x7096…70a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0036}
0x70a0…70b8               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0048, t01=0x0040}
0x70b8…70da               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0048, t01=0x0058}
0x70da…70f0               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0048, t01=0x007a}
0x70f0…7116               Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0048, t01=0x0090}
0x7116…7128               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0048, t01=0x00b6}
0x7128…7144               Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0048, t01=0x00c8}
0x7144…7156               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0048, t01=0x00e4}
0x7156…7170               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0048, t01=0x00f6}
0x7170…7186               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0048, t01=0x0110}
0x7186…71a0               Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0048, t01=0x0126}
0x71a0…71b2               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0048, t01=0x0140}
0x71b2…71bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0152}
0x71bc…71d8               Head {h00=0x0018, h01=0x0050, text=»*   TIME OUT ROUTINE«, t00=0x0048, t01=0x015c}
0x71d8…71e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0178}
0x71e2…71fa               Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0048, t01=0x0182}
0x71fa…720e               Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0049, t01=0x000a}
0x720e…7226               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0049, t01=0x001e}
0x7226…7244               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0049, t01=0x0036}
0x7244…724e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0054}
0x724e…7264               Head {h00=0x0012, h01=0x0050, text=»*  LOCK DOORS «, t00=0x0049, t01=0x005e}
0x7264…726e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0074}
0x726e…7280               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0049, t01=0x007e}
0x7280…7294               Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0049, t01=0x0090}
0x7294…72ba               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0049, t01=0x00a4}
0x72ba…72cc               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0049, t01=0x00ca}
0x72cc…72ec               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0049, t01=0x00dc}
0x72ec…7308               Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0049, t01=0x00fc}
0x7308…7312               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0118}
0x7312…7320               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0122}
0x7320…732a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0130}
0x732a…734e               Head {h00=0x0020, h01=0x0050, text=»*  PUT DRIVE NO IN CIO INSTR«, t00=0x0049, t01=0x013a}
0x734e…7358               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x015e}
0x7358…737a               Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0049, t01=0x0168}
0x737a…73a8               Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0049, t01=0x018a}
0x73a8…73c0               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x004a, t01=0x0028}
0x73c0…73d6               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x004a, t01=0x0040}
0x73d6…73f8               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x004a, t01=0x0056}
0x73f8…740a               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x004a, t01=0x0078}
0x740a…7422               Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x004a, t01=0x008a}
0x7422…744a               Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x004a, t01=0x00a2}
0x744a…745e               Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x004a, t01=0x00ca}
0x745e…7470               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004a, t01=0x00de}
0x7470…7486               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x004a, t01=0x00f0}
0x7486…749c               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x004a, t01=0x0106}
0x749c…74a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x011c}
0x74a6…74bc               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x004a, t01=0x0126}
0x74bc…74c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x013c}
0x74c6…750e               Head {h00=0x0044, h01=0x0050, text=»*    RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x004a, t01=0x0146}
0x750e…7536               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x004a, t01=0x018e}
0x7536…755c               Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x004b, t01=0x0026}
0x755c…757c               Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x004b, t01=0x004c}
0x757c…7586               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x006c}
0x7586…75ae               Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x004b, t01=0x0076}
0x75ae…75e2               Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x004b, t01=0x009e}
0x75e2…7602               Head {h00=0x001c, h01=0x0050, text=»*   BEFORE THE POWER OFF«, t00=0x004b, t01=0x00d2}
0x7602…760e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x00f2}
0x760e…7618               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00fe}
0x7618…7626               Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0108}
0x7626…7630               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0116}
0x7630…7648               Head {h00=0x0014, h01=0x0050, text=»*  ANY REQUEST? «, t00=0x004b, t01=0x0120}
0x7648…7652               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0138}
0x7652…7684               Head {h00=0x002e, h01=0x0050, text=»*  RESTORE STATUS SAVED IN DWST2 TO DWTST.«, t00=0x004b, t01=0x0142}
0x7684…76a0               Head {h00=0x0018, h01=0x0050, text=»*   SET DWTST2 TO -1«, t00=0x004b, t01=0x0174}
0x76a0…76c6               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST2,A6 SAVED STATUS «, t00=0x004b, t01=0x0190}
0x76c6…76f4               Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTST,A6 PUT IN CUURENT STATUS «, t00=0x004c, t01=0x0026}
0x76f4…7708               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x004c, t01=0x0054}
0x7708…7734               Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTST2,A6 INDICATE NOT SAVED «, t00=0x004c, t01=0x0068}
0x7734…7758               Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x004c, t01=0x0094}
0x7758…776c               Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x004c, t01=0x00b8}
0x776c…7784               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x004c, t01=0x00cc}
0x7784…77b8               Head {h00=0x0030, h01=0x0050, text=» ABL(N) END:05 NO REQUEST, RETURN VIA TENDIO«, t00=0x004c, t01=0x00e4}
0x77b8…77c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0118}
0x77c2…77da               Head {h00=0x0014, h01=0x0050, text=»*  RETRY REQUEST«, t00=0x004c, t01=0x0122}
0x77da…77e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x013a}
0x77e4…7808               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x004c, t01=0x0144}
0x7808…7820               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x004c, t01=0x0168}
0x7820…783a               Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x004c, t01=0x0180}
0x783a…785e               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x004d, t01=0x000a}
0x785e…787a               Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x004d, t01=0x002e}
0x787a…7892               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x004d, t01=0x004a}
0x7892…789c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0062}
0x789c…78ba               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x004d, t01=0x006c}
0x78ba…78d8               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x004d, t01=0x008a}
0x78d8…78f6               Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x004d, t01=0x00a8}
0x78f6…7914               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x004d, t01=0x00c6}
0x7914…7932               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x004d, t01=0x00e4}
0x7932…793c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0102}
0x793c…794e               Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x004d, t01=0x010c}
0x794e…7976               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x004d, t01=0x011e}
0x7976…799c               Head {h00=0x0022, h01=0x0050, text=»******************** =1 START «, t00=0x004d, t01=0x0146}
0x799c…79b2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x004d, t01=0x016c}
0x79b2…79e0               Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x004d, t01=0x0182}
0x79e0…79ec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0020}
0x79ec…79f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x002c}
0x79f6…7a0c               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004e, t01=0x0036}
0x7a0c…7a32               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x004e, t01=0x004c}
0x7a32…7a3e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0072}
0x7a3e…7a48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x007e}
0x7a48…7a6c               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x004e, t01=0x0088}
0x7a6c…7a82               Head {h00=0x0012, h01=0x0050, text=» RF IH000  KST«, t00=0x004e, t01=0x00ac}
0x7a82…7a9a               Head {h00=0x0014, h01=0x0050, text=»IHFD2 EQU *  KST«, t00=0x004e, t01=0x00c2}
0x7a9a…7ab4               Head {h00=0x0016, h01=0x0050, text=» ST P,INTSAV  KST «, t00=0x004e, t01=0x00da}
0x7ab4…7acc               Head {h00=0x0014, h01=0x0050, text=» MSR 8,A15  KST «, t00=0x004e, t01=0x00f4}
0x7acc…7ae8               Head {h00=0x0018, h01=0x0050, text=» LDKL A6,DWFD02  KST«, t00=0x004e, t01=0x010c}
0x7ae8…7b00               Head {h00=0x0014, h01=0x0050, text=»IH000 EQU *  KST«, t00=0x004e, t01=0x0128}
0x7b00…7b14               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x004e, t01=0x0140}
0x7b14…7b20               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x004e, t01=0x0154}
0x7b20…7b4a               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x004e, t01=0x0160}
0x7b4a…7b70               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x004e, t01=0x018a}
0x7b70…7b8a               Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x004f, t01=0x0020}
0x7b8a…7b9e               Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x004f, t01=0x003a}
0x7b9e…7bb8               Head {h00=0x0016, h01=0x0050, text=» EX FDSST,A6  KST «, t00=0x004f, t01=0x004e}
0x7bb8…7bde               Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x004f, t01=0x0068}
0x7bde…7c0a               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x004f, t01=0x008e}
0x7c0a…7c24               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x004f, t01=0x00ba}
0x7c24…7c2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00d4}
0x7c2e…7c44               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x004f, t01=0x00de}
0x7c44…7c4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00f4}
0x7c4e…7c58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00fe}
0x7c58…7c6c               Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x004f, t01=0x0108}
0x7c6c…7c94               Head {h00=0x0024, h01=0x0050, text=» LCR A3,A1 ONE BYTE FROM BUFFER «, t00=0x004f, t01=0x011c}
0x7c94…7cb4               Head {h00=0x001c, h01=0x0050, text=» ECR A3,A3 LEFT POSITION«, t00=0x004f, t01=0x0144}
0x7cb4…7cde               Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A1 RIGHT BYTE FROM BUFFER«, t00=0x004f, t01=0x0164}
0x7cde…7cfc               Head {h00=0x001a, h01=0x0050, text=» EX FDOTR,A6 WRITE KST«, t00=0x004f, t01=0x018e}
0x7cfc…7d12               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0050, t01=0x001c}
0x7d12…7d3a               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0050, t01=0x0032}
0x7d3a…7d4c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0050, t01=0x005a}
0x7d4c…7d60               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x0050, t01=0x006c}
0x7d60…7d82               Head {h00=0x001e, h01=0x0050, text=» EX FDHLT,A6 CIO-HALT KST «, t00=0x0050, t01=0x0080}
0x7d82…7da4               Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x0050, t01=0x00a2}
0x7da4…7dae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00c4}
0x7dae…7dc2               Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x0050, t01=0x00ce}
0x7dc2…7de0               Head {h00=0x001a, h01=0x0050, text=» EX FDINR,A6 READ KST «, t00=0x0050, t01=0x00e2}
0x7de0…7df6               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0050, t01=0x0100}
0x7df6…7e1e               Head {h00=0x0024, h01=0x0050, text=» SC A3,1,A1 RIGHT BYTE TO BUFFER«, t00=0x0050, t01=0x0116}
0x7e1e…7e30               Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x0050, t01=0x013e}
0x7e30…7e56               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 LEFT BYTE TO BUFFER«, t00=0x0050, t01=0x0150}
0x7e56…7e7e               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0050, t01=0x0176}
0x7e7e…7e90               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0051, t01=0x000e}
0x7e90…7ea4               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x0051, t01=0x0020}
0x7ea4…7ec6               Head {h00=0x001e, h01=0x0050, text=» EX FDHLT,A6 CIO-HALT KST «, t00=0x0051, t01=0x0034}
0x7ec6…7ee6               Head {h00=0x001c, h01=0x0050, text=» EX FDSST,A6 STATUS KST «, t00=0x0051, t01=0x0056}
0x7ee6…7efe               Head {h00=0x0014, h01=0x0050, text=» RB(NA) *-2  =2 «, t00=0x0051, t01=0x0076}
0x7efe…7f16               Head {h00=0x0014, h01=0x0050, text=»IH:000 EQU *  =1«, t00=0x0051, t01=0x008e}
0x7f16…7f22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x00a6}
0x7f22…7f2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00b2}
0x7f2c…7f42               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0051, t01=0x00bc}
0x7f42…7f4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00d2}
0x7f4c…7f56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00dc}
0x7f56…7f7a               Head {h00=0x0020, h01=0x0050, text=»******************** =1 END «, t00=0x0051, t01=0x00e6}
0x7f7a…7f92               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN=0  =2 «, t00=0x0051, t01=0x010a}
0x7f92…7fb2               Head {h00=0x001c, h01=0x0050, text=» EX FDSST,A6 STATUS KST «, t00=0x0051, t01=0x0122}
0x7fb2…7fc4               Head {h00=0x000e, h01=0x0050, text=» XIF   =2 «, t00=0x0051, t01=0x0142}
0x7fc4…7ff0               Head {h00=0x0028, h01=0x0050, text=»*     LDKL A6,DWFD01 DWT ADRESS KST «, t00=0x0051, t01=0x0154}
0x7ff0…8014               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0051, t01=0x0180}
0x8014…803a               Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0052, t01=0x0014}
0x803a…804c               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0052, t01=0x003a}
0x804c…8070               Head {h00=0x0020, h01=0x0050, text=» RF(N) FDRE READY INTERRUPT «, t00=0x0052, t01=0x004c}
0x8070…8082               Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0052, t01=0x0070}
0x8082…80a2               Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY? «, t00=0x0052, t01=0x0082}
0x80a2…80ba               Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0052, t01=0x00a2}
0x80ba…80e0               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0052, t01=0x00ba}
0x80e0…80f2               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0052, t01=0x00e0}
0x80f2…8108               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0405«, t00=0x0052, t01=0x00f2}
0x8108…812c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0052, t01=0x0108}
0x812c…813e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/4«, t00=0x0052, t01=0x012c}
0x813e…815a               Head {h00=0x0018, h01=0x0050, text=» ORR A3,A1 CRC ERROR«, t00=0x0052, t01=0x013e}
0x815a…816e               Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0052, t01=0x015a}
0x816e…8178               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x016e}
0x8178…818e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRFD01«, t00=0x0052, t01=0x0178}
0x818e…8198               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x018e}
0x8198…81c2               Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0053, t01=0x0008}
0x81c2…81cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0032}
0x81cc…81e2               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0053, t01=0x003c}
0x81e2…81f6               Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0053, t01=0x0052}
0x81f6…8208               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0053, t01=0x0066}
0x8208…822e               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0053, t01=0x0078}
0x822e…8240               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0053, t01=0x009e}
0x8240…825c               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x0053, t01=0x00b0}
0x825c…8278               Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x0053, t01=0x00cc}
0x8278…828a               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0053, t01=0x00e8}
0x828a…82a2               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0053, t01=0x00fa}
0x82a2…82b4               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0053, t01=0x0112}
0x82b4…82d0               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x0053, t01=0x0124}
0x82d0…82ea               Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x0053, t01=0x0140}
0x82ea…82fc               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0053, t01=0x015a}
0x82fc…8308               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x016c}
0x8308…831a               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0053, t01=0x0178}
0x831a…8334               Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x0053, t01=0x018a}
0x8334…834e               Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x0054, t01=0x0014}
0x834e…8360               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0054, t01=0x002e}
0x8360…837a               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x0054, t01=0x0040}
0x837a…8394               Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x0054, t01=0x005a}
0x8394…83a6               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0054, t01=0x0074}
0x83a6…83ba               Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x0054, t01=0x0086}
0x83ba…83d0               Head {h00=0x0012, h01=0x0050, text=» IFT CHAN=1 =1«, t00=0x0054, t01=0x009a}
0x83d0…83e0               Head {h00=0x000c, h01=0x0050, text=» INH  =1«, t00=0x0054, t01=0x00b0}
0x83e0…83f0               Head {h00=0x000c, h01=0x0050, text=» XIF  =1«, t00=0x0054, t01=0x00c0}
0x83f0…8400               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x00d0}
0x8400…8418               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0054, t01=0x00e0}
0x8418…8422               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00f8}
0x8422…843e               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0054, t01=0x0102}
0x843e…845a               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0054, t01=0x011e}
0x845a…8476               Head {h00=0x0018, h01=0x0050, text=»*  READY INTERRUPT *«, t00=0x0054, t01=0x013a}
0x8476…8492               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0054, t01=0x0156}
0x8492…84ae               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0054, t01=0x0172}
0x84ae…84b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x018e}
0x84b8…84ca               Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x0055, t01=0x0008}
0x84ca…84e2               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0055, t01=0x001a}
0x84e2…8512               Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE «, t00=0x0055, t01=0x0032}
0x8512…852a               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0055, t01=0x0062}
0x852a…8548               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0055, t01=0x007a}
0x8548…855a               Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x0055, t01=0x0098}
0x855a…8572               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0055, t01=0x00aa}
0x8572…857c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c2}
0x857c…85b0               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0055, t01=0x00cc}
0x85b0…85e4               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0055, t01=0x0100}
0x85e4…8618               Head {h00=0x0030, h01=0x0050, text=»*    S U B R O U T I N E S                * «, t00=0x0055, t01=0x0134}
0x8618…864c               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0055, t01=0x0168}
0x864c…8680               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0056, t01=0x000c}
0x8680…868a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0040}
0x868a…869a               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0056, t01=0x004a}
0x869a…86aa               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0056, t01=0x005a}
0x86aa…86ba               Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x0056, t01=0x006a}
0x86ba…86ca               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0056, t01=0x007a}
0x86ca…86da               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0056, t01=0x008a}
0x86da…86e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x009a}
0x86e4…86ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00a4}
0x86ee…8710               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x0056, t01=0x00ae}
0x8710…871a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00d0}
0x871a…875c               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x0056, t01=0x00da}
0x875c…8790               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x0056, t01=0x011c}
0x8790…87b6               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x0056, t01=0x0150}
0x87b6…87c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0176}
0x87c0…87d2               Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x0056, t01=0x0180}
0x87d2…87e8 (87, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» LDK A4,0 FLAG«, t00=0x0057, t01=0x0004}
0x87e8…87fa               Head {h00=0x000e, h01=0x0050, text=» RF BIO010«, t00=0x0057, t01=0x001a}
0x87fa…8812               Head {h00=0x0014, h01=0x0050, text=»BIO:RE LDK A4,1 «, t00=0x0057, t01=0x002c}
0x8812…8826               Head {h00=0x0010, h01=0x0050, text=»BIO010 EQU *«, t00=0x0057, t01=0x0044}
0x8826…8846               Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBRL,A8 REQ LEN «, t00=0x0057, t01=0x0058}
0x8846…886a               Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOERR ILLEGAL LENGTH«, t00=0x0057, t01=0x0078}
0x886a…8882               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0057, t01=0x009c}
0x8882…889a               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTLAB,A6«, t00=0x0057, t01=0x00b4}
0x889a…88b2               Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTA3,A6 «, t00=0x0057, t01=0x00cc}
0x88b2…88d2               Head {h00=0x001c, h01=0x0050, text=» RF(Z) BIO020 TOSS DISC «, t00=0x0057, t01=0x00e4}
0x88d2…88de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0104}
0x88de…88f0               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0057, t01=0x0110}
0x88f0…8906               Head {h00=0x0012, h01=0x0050, text=» LDK A7,IBMLEN«, t00=0x0057, t01=0x0122}
0x8906…8918               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0057, t01=0x0138}
0x8918…8924               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x014a}
0x8924…893c               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0057, t01=0x0156}
0x893c…894e               Head {h00=0x000e, h01=0x0050, text=» RF BIO030«, t00=0x0057, t01=0x016e}
0x894e…895a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0180}
0x895a…896e               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0057, t01=0x018c}
0x896e…898c               Head {h00=0x001a, h01=0x0050, text=»BIO020 LDKL A7,TOSLEN «, t00=0x0058, t01=0x0010}
0x898c…899e               Head {h00=0x000e, h01=0x0050, text=» LDK A2,3 «, t00=0x0058, t01=0x002e}
0x899e…89b2               Head {h00=0x0010, h01=0x0050, text=»BIO030 EQU *«, t00=0x0058, t01=0x0040}
0x89b2…89be               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0054}
0x89be…89d6               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0058, t01=0x0060}
0x89d6…89ee               Head {h00=0x0014, h01=0x0050, text=» ADK A4,0 SET CR«, t00=0x0058, t01=0x0078}
0x89ee…8a0a               Head {h00=0x0018, h01=0x0050, text=» RF(Z) BIO060 WRITE «, t00=0x0058, t01=0x0090}
0x8a0a…8a1c               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0058, t01=0x00ac}
0x8a1c…8a36               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A3 REQ LEN«, t00=0x0058, t01=0x00be}
0x8a36…8a60               Head {h00=0x0026, h01=0x0050, text=» CWR A3,A7 REQ LENGTH WITHIN RANGE«, t00=0x0058, t01=0x00d8}
0x8a60…8a78               Head {h00=0x0014, h01=0x0050, text=» RF(G) BIOERR NO«, t00=0x0058, t01=0x0102}
0x8a78…8a92               Head {h00=0x0016, h01=0x0050, text=»BIO040 SUK A1,128 «, t00=0x0058, t01=0x011a}
0x8a92…8aa8               Head {h00=0x0012, h01=0x0050, text=» RF(NP) BIO100«, t00=0x0058, t01=0x0134}
0x8aa8…8ad2               Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT NO OF SECTORS «, t00=0x0058, t01=0x014a}
0x8ad2…8ae4               Head {h00=0x000e, h01=0x0050, text=» RB BIO040«, t00=0x0058, t01=0x0174}
0x8ae4…8aee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0186}
0x8aee…8b10               Head {h00=0x001e, h01=0x0050, text=»*  WRITE, CHECK REQ LENGTH«, t00=0x0058, t01=0x0190}
0x8b10…8b1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0022}
0x8b1a…8b32               Head {h00=0x0014, h01=0x0050, text=»BIO060 CWR A3,A7«, t00=0x0059, t01=0x002c}
0x8b32…8b58               Head {h00=0x0022, h01=0x0050, text=» RF(NE) BIOERR ILLEGAL REQ LEN«, t00=0x0059, t01=0x0044}
0x8b58…8b64               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x006a}
0x8b64…8b7c               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0059, t01=0x0076}
0x8b7c…8b86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x008e}
0x8b86…8bc8               Head {h00=0x003e, h01=0x0050, text=»*  FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH«, t00=0x0059, t01=0x0098}
0x8bc8…8bd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00da}
0x8bd2…8bf0               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0059, t01=0x00e4}
0x8bf0…8c12               Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 NO OF SECTORS-1 «, t00=0x0059, t01=0x0102}
0x8c12…8c3a               Head {h00=0x0024, h01=0x0050, text=»BIO015 LDR A4,A4 READ OR WRITE? «, t00=0x0059, t01=0x0124}
0x8c3a…8c56               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BIO035 READ!«, t00=0x0059, t01=0x014c}
0x8c56…8c6a               Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0059, t01=0x0168}
0x8c6a…8c90               Head {h00=0x0022, h01=0x0050, text=» RF(Z) BIO100 REQ LEN ACCEPTED«, t00=0x0059, t01=0x017c}
0x8c90…8ca2               Head {h00=0x000e, h01=0x0050, text=» RF BIO045«, t00=0x005a, t01=0x0012}
0x8ca2…8cac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0024}
0x8cac…8cc6               Head {h00=0x0016, h01=0x0050, text=»BIO035 SUK A1,128 «, t00=0x005a, t01=0x002e}
0x8cc6…8cf0               Head {h00=0x0026, h01=0x0050, text=» RF(NP) BIO100 REQ LENGTH ACCEPTED«, t00=0x005a, t01=0x0048}
0x8cf0…8d08               Head {h00=0x0014, h01=0x0050, text=»BIO045 ADK A2,1 «, t00=0x005a, t01=0x0072}
0x8d08…8d1a               Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x005a, t01=0x008a}
0x8d1a…8d30               Head {h00=0x0012, h01=0x0050, text=» RB(NG) BIO015«, t00=0x005a, t01=0x009c}
0x8d30…8d58               Head {h00=0x0024, h01=0x0050, text=» RF BIOERR REQ LEN OUTSIDE RANGE«, t00=0x005a, t01=0x00b2}
0x8d58…8d64               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x00da}
0x8d64…8d6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00e6}
0x8d6e…8da8               Head {h00=0x0036, h01=0x0050, text=»BIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1«, t00=0x005a, t01=0x00f0}
0x8da8…8db2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x012a}
0x8db2…8de8               Head {h00=0x0032, h01=0x0050, text=»*  CHECK SECTOR NO FROM CONTROL WORD OF ECB IS«, t00=0x005a, t01=0x0134}
0x8de8…8e14               Head {h00=0x0028, h01=0x0050, text=»*  WITHIN RANGE, PUT IT IN POS 2-12 «, t00=0x005a, t01=0x016a}
0x8e14…8e1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0008}
0x8e1e…8e40               Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A8 SECTOR NO «, t00=0x005b, t01=0x0012}
0x8e40…8e64               Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOER2 OUTSIDE RANGE «, t00=0x005b, t01=0x0034}
0x8e64…8e7c               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x005b, t01=0x0058}
0x8e7c…8e8e               Head {h00=0x000e, h01=0x0050, text=» ANK A7,/A«, t00=0x005b, t01=0x0070}
0x8e8e…8eac               Head {h00=0x001a, h01=0x0050, text=» RF(Z) BIO110 IBM DISC«, t00=0x005b, t01=0x0082}
0x8eac…8eb8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x00a0}
0x8eb8…8ecc               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x005b, t01=0x00ac}
0x8ecc…8ee0               Head {h00=0x0010, h01=0x0050, text=» CWK A1,499 «, t00=0x005b, t01=0x00c0}
0x8ee0…8f02               Head {h00=0x001e, h01=0x0050, text=» RF(G) BIOER2 OUT OF RANGE«, t00=0x005b, t01=0x00d4}
0x8f02…8f32               Head {h00=0x002c, h01=0x0050, text=» SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR «, t00=0x005b, t01=0x00f6}
0x8f32…8f3e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0126}
0x8f3e…8f56               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x005b, t01=0x0132}
0x8f56…8f68               Head {h00=0x000e, h01=0x0050, text=» RF BIO120«, t00=0x005b, t01=0x014a}
0x8f68…8f74               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x015c}
0x8f74…8f86               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005b, t01=0x0168}
0x8f86…8fa0               Head {h00=0x0016, h01=0x0050, text=»BIO110 CWK A1,1923«, t00=0x005b, t01=0x017a}
0x8fa0…8fc2 (92, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» RF(P) BIOER2 OUT OF RANGE«, t00=0x005c, t01=0x0004}
0x8fc2…8fce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0026}
0x8fce…8fe6               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005c, t01=0x0032}
0x8fe6…9012               Head {h00=0x0028, h01=0x0050, text=» CWK A1,2001 SECTOR NO OUT OF RANGE «, t00=0x005c, t01=0x004a}
0x9012…902c               Head {h00=0x0016, h01=0x0050, text=» RF(G) BIOER2 YES!«, t00=0x005c, t01=0x0076}
0x902c…9038               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0090}
0x9038…904c               Head {h00=0x0010, h01=0x0050, text=»BIO120 EQU *«, t00=0x005c, t01=0x009c}
0x904c…905e               Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x005c, t01=0x00b0}
0x905e…9070               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x005c, t01=0x00c2}
0x9070…9096               Head {h00=0x0022, h01=0x0050, text=» LD A4,ECBBA,A8 BUFFER ADDRESS«, t00=0x005c, t01=0x00d4}
0x9096…90b4               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x005c, t01=0x00fa}
0x90b4…90c6               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x005c, t01=0x0118}
0x90c6…90ee               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BIOERR REQ LEN. NOT EVEN«, t00=0x005c, t01=0x012a}
0x90ee…90fe               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005c, t01=0x0152}
0x90fe…9108               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0162}
0x9108…9112               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x016c}
0x9112…9148               Head {h00=0x0032, h01=0x0050, text=»*  ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO«, t00=0x005c, t01=0x0176}
0x9148…9152               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x001c}
0x9152…916c               Head {h00=0x0016, h01=0x0050, text=»BIOERR ABL END:10 «, t00=0x005d, t01=0x0026}
0x916c…918a               Head {h00=0x001a, h01=0x0050, text=»*   ILLEGAL SECTOR NO «, t00=0x005d, t01=0x0040}
0x918a…91a4               Head {h00=0x0016, h01=0x0050, text=»BIOER2 ABL FD:DIS «, t00=0x005d, t01=0x005e}
0x91a4…91ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0078}
0x91ae…91c6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005d, t01=0x0082}
0x91c6…91d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x009a}
0x91d0…91e2               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005d, t01=0x00a4}
0x91e2…91f4               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x005d, t01=0x00b6}
0x91f4…9206               Head {h00=0x000e, h01=0x0050, text=»* FDIX  * «, t00=0x005d, t01=0x00c8}
0x9206…9218               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x005d, t01=0x00da}
0x9218…922a               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005d, t01=0x00ec}
0x922a…9234               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00fe}
0x9234…924e               Head {h00=0x0016, h01=0x0050, text=»*  INPUT:  A2   X «, t00=0x005d, t01=0x0108}
0x924e…9258               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0122}
0x9258…927a               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A3   2 POWER(X)«, t00=0x005d, t01=0x012c}
0x927a…9284               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x014e}
0x9284…929a               Head {h00=0x0012, h01=0x0050, text=»FDIX LDK A3,1 «, t00=0x005d, t01=0x0158}
0x929a…92b2               Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x005d, t01=0x016e}
0x92b2…92c6               Head {h00=0x0010, h01=0x0050, text=»FDIX10 EQU *«, t00=0x005d, t01=0x0186}
0x92c6…92dc               Head {h00=0x0012, h01=0x0050, text=» RF(Z) FDIX20 «, t00=0x005e, t01=0x000a}
0x92dc…92ee               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x005e, t01=0x0020}
0x92ee…9300               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x005e, t01=0x0032}
0x9300…9312               Head {h00=0x000e, h01=0x0050, text=» RB FDIX10«, t00=0x005e, t01=0x0044}
0x9312…9328               Head {h00=0x0012, h01=0x0050, text=»FDIX20 RTN A5 «, t00=0x005e, t01=0x0056}
0x9328…9340               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005e, t01=0x006c}
0x9340…9358               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x005e, t01=0x0084}
0x9358…9372               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x005e, t01=0x009c}
0x9372…938c               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x005e, t01=0x00b6}
0x938c…93a6               Head {h00=0x0016, h01=0x0050, text=»*  VOLADR        *«, t00=0x005e, t01=0x00d0}
0x93a6…93c0               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x005e, t01=0x00ea}
0x93c0…93da               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x005e, t01=0x0104}
0x93da…93e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x011e}
0x93e4…9406               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x005e, t01=0x0128}
0x9406…9410               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x014a}
0x9410…943a               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT: A2  VOLUME NAME ADDRESS«, t00=0x005e, t01=0x0154}
0x943a…9456               Head {h00=0x0018, h01=0x0050, text=»*          A3  ZERO «, t00=0x005e, t01=0x017e}
0x9456…9460               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x000a}
0x9460…9474               Head {h00=0x0010, h01=0x0050, text=»VOLADR EQU *«, t00=0x005f, t01=0x0014}
0x9474…9494               Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR,A6 DRIVE NO«, t00=0x005f, t01=0x0028}
0x9494…94a8               Head {h00=0x0010, h01=0x0050, text=»VOLA05 EQU *«, t00=0x005f, t01=0x0048}
0x94a8…94be               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWTVO0«, t00=0x005f, t01=0x005c}
0x94be…94d0               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x005f, t01=0x0072}
0x94d0…94e2               Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x005f, t01=0x0084}
0x94e2…94f6               Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x005f, t01=0x0096}
0x94f6…950c               Head {h00=0x0012, h01=0x0050, text=» RF(Z) VOLA20 «, t00=0x005f, t01=0x00aa}
0x950c…952c               Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 UPDATE ADDRESS«, t00=0x005f, t01=0x00c0}
0x952c…953e               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x005f, t01=0x00e0}
0x953e…9550               Head {h00=0x000e, h01=0x0050, text=» RB VOLA10«, t00=0x005f, t01=0x00f2}
0x9550…9566               Head {h00=0x0012, h01=0x0050, text=»VOLA20 RTN A5 «, t00=0x005f, t01=0x0104}
0x9566…9572               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x011a}
0x9572…957a               Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x0126}
0x957a…958c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x012e}
0x958c…95a4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x005f, t01=0x0140}
0x95a4…95ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0158}
0x95ae…95c0               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005f, t01=0x0162}
0x95c0…95d2               Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x005f, t01=0x0174}
0x95d2…95e4               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005f, t01=0x0186}
0x95e4…95ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0008}
0x95ee…962c               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x0060, t01=0x0012}
0x962c…964c               Head {h00=0x001c, h01=0x0050, text=»*             ASCII CODE«, t00=0x0060, t01=0x0050}
0x964c…967e               Head {h00=0x002e, h01=0x0050, text=»*             INPUT STRING ADDRESS IS BUF «, t00=0x0060, t01=0x0070}
0x967e…96a8               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7  NO OF CHARACTERS«, t00=0x0060, t01=0x00a2}
0x96a8…96d8               Head {h00=0x002c, h01=0x0050, text=»*             A4  OUTPUT  STRING ADDRESS«, t00=0x0060, t01=0x00cc}
0x96d8…96fa               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0060, t01=0x00fc}
0x96fa…971a               Head {h00=0x001c, h01=0x0050, text=»*             A4 CHANGED«, t00=0x0060, t01=0x011e}
0x971a…973c               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0060, t01=0x013e}
0x973c…9746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0160}
0x9746…975a               Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0060, t01=0x016a}
0x975a…9766               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0060, t01=0x017e}
0x9766…9778               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0060, t01=0x018a}
0x9778…978a               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0061, t01=0x000c}
0x978a…97a2               Head {h00=0x0014, h01=0x0050, text=»ASC:10 SUK A7,1 «, t00=0x0061, t01=0x001e}
0x97a2…97b8               Head {h00=0x0012, h01=0x0050, text=» RF(N) ASC:20 «, t00=0x0061, t01=0x0036}
0x97b8…97ca               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0061, t01=0x004c}
0x97ca…97f0               Head {h00=0x0022, h01=0x0050, text=» LC A1,BUF,A7 GET EBCDIC CHAR «, t00=0x0061, t01=0x005e}
0x97f0…981c               Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0061, t01=0x0084}
0x981c…9850               Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0061, t01=0x00b0}
0x9850…9862               Head {h00=0x000e, h01=0x0050, text=» RB ASC:10«, t00=0x0061, t01=0x00e4}
0x9862…9876               Head {h00=0x0010, h01=0x0050, text=»ASC:20 EQU *«, t00=0x0061, t01=0x00f6}
0x9876…989c               Head {h00=0x0022, h01=0x0050, text=» RF EBC:90 SET INH AND RETURN «, t00=0x0061, t01=0x010a}
0x989c…98b4               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0061, t01=0x0130}
0x98b4…98be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0148}
0x98be…98d0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0061, t01=0x0152}
0x98d0…98e2               Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0061, t01=0x0164}
0x98e2…98f4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0061, t01=0x0176}
0x98f4…98fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0188}
0x98fe…993e (98, 0, 398)  Head {h00=0x003c, h01=0x0050, text=»*  FUNCTION:  EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0062, t01=0x0004}
0x993e…9960               Head {h00=0x001e, h01=0x0050, text=»*             EBCDIC CODE «, t00=0x0062, t01=0x0044}
0x9960…999c               Head {h00=0x0038, h01=0x0050, text=»*             OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0062, t01=0x0066}
0x999c…99a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00a2}
0x99a6…99d0               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7 NO OF CHARACTERS «, t00=0x0062, t01=0x00ac}
0x99d0…99fe               Head {h00=0x002a, h01=0x0050, text=»*             A4  INPUT STRING ADDRESS«, t00=0x0062, t01=0x00d6}
0x99fe…9a08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0104}
0x9a08…9a2a               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0062, t01=0x010e}
0x9a2a…9a5a               Head {h00=0x002c, h01=0x0050, text=»*              A4  DRIVER BUFFER ADDRESS«, t00=0x0062, t01=0x0130}
0x9a5a…9a7c               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0062, t01=0x0160}
0x9a7c…9a90               Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0062, t01=0x0182}
0x9a90…9a9c               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0063, t01=0x0008}
0x9a9c…9aae               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0063, t01=0x0014}
0x9aae…9ac0               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0063, t01=0x0026}
0x9ac0…9ad8               Head {h00=0x0014, h01=0x0050, text=»EBC:10 SUK A7,1 «, t00=0x0063, t01=0x0038}
0x9ad8…9aee               Head {h00=0x0012, h01=0x0050, text=» RF(N) EBC:80 «, t00=0x0063, t01=0x0050}
0x9aee…9b00               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0063, t01=0x0066}
0x9b00…9b22               Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0063, t01=0x0078}
0x9b22…9b3c               Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0063, t01=0x009a}
0x9b3c…9b52               Head {h00=0x0012, h01=0x0050, text=» SC A1,BUF,A7 «, t00=0x0063, t01=0x00b4}
0x9b52…9b64               Head {h00=0x000e, h01=0x0050, text=» RB EBC:10«, t00=0x0063, t01=0x00ca}
0x9b64…9b78               Head {h00=0x0010, h01=0x0050, text=»EBC:80 EQU *«, t00=0x0063, t01=0x00dc}
0x9b78…9b8c               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0063, t01=0x00f0}
0x9b8c…9ba0               Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x0063, t01=0x0104}
0x9ba0…9bb6               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x0063, t01=0x0118}
0x9bb6…9bc6               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0063, t01=0x012e}
0x9bc6…9bde               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0063, t01=0x013e}
0x9bde…9be8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0156}
0x9be8…9bfa               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0063, t01=0x0160}
0x9bfa…9c0c               Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0063, t01=0x0172}
0x9c0c…9c1e               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0063, t01=0x0184}
0x9c1e…9c28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0008}
0x9c28…9c6c               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0064, t01=0x0012}
0x9c6c…9c9c               Head {h00=0x002c, h01=0x0050, text=»*              LOGICAL SECTOR (BINARY). «, t00=0x0064, t01=0x0056}
0x9c9c…9cdc               Head {h00=0x003c, h01=0x0050, text=»*             FORMAT OF PHYS. SEC.  TT0SS  (EBCDIC CODE)«, t00=0x0064, t01=0x0086}
0x9cdc…9d0a               Head {h00=0x002a, h01=0x0050, text=»*              TT = TRACK,  SS=SECTOR «, t00=0x0064, t01=0x00c6}
0x9d0a…9d14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00f4}
0x9d14…9d44               Head {h00=0x002c, h01=0x0050, text=»*  INPUT:    A4  ADDRESS TO PHYS. SECTOR«, t00=0x0064, t01=0x00fe}
0x9d44…9d4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x012e}
0x9d4e…9d78               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT:   A3  BINARY SECTOR NO «, t00=0x0064, t01=0x0138}
0x9d78…9daa               Head {h00=0x002e, h01=0x0050, text=»*            A4  ADDRESS TO PHYS. SEC. + 4«, t00=0x0064, t01=0x0162}
0x9daa…9db4 (101, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0004}
0x9db4…9dc8               Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x0065, t01=0x000e}
0x9dc8…9dde               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0065, t01=0x0022}
0x9dde…9df6               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x0065, t01=0x0038}
0x9df6…9e08               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0065, t01=0x0050}
0x9e08…9e12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0062}
0x9e12…9e2c               Head {h00=0x0016, h01=0x0050, text=»*  MULTIPLY BY 26 «, t00=0x0065, t01=0x006c}
0x9e2c…9e36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0086}
0x9e36…9e4c               Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x0065, t01=0x0090}
0x9e4c…9e5e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0065, t01=0x00a6}
0x9e5e…9e70               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0065, t01=0x00b8}
0x9e70…9e86               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x0065, t01=0x00ca}
0x9e86…9e98               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0065, t01=0x00e0}
0x9e98…9eae               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x0065, t01=0x00f2}
0x9eae…9ec4               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0065, t01=0x0108}
0x9ec4…9ed6               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0065, t01=0x011e}
0x9ed6…9ee8               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0065, t01=0x0130}
0x9ee8…9ef2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0142}
0x9ef2…9f0c               Head {h00=0x0016, h01=0x0050, text=»*  CHECK SECTOR NO«, t00=0x0065, t01=0x014c}
0x9f0c…9f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0166}
0x9f16…9f28               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0065, t01=0x0170}
0x9f28…9f3a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x0065, t01=0x0182}
0x9f3a…9f50 (102, 0, 398) Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x0066, t01=0x0004}
0x9f50…9f6e               Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD?«, t00=0x0066, t01=0x001a}
0x9f6e…9f88               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x0066, t01=0x0038}
0x9f88…9f9e               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x0066, t01=0x0052}
0x9f9e…9fb0               Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x0066, t01=0x0068}
0x9fb0…9fba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x007a}
0x9fba…9fe0               Head {h00=0x0022, h01=0x0050, text=»*  CHECK EOD LESS/EQUAL 74001 «, t00=0x0066, t01=0x0084}
0x9fe0…9fea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00aa}
0x9fea…a006               Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x0066, t01=0x00b4}
0xa006…a01a               Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x0066, t01=0x00d0}
0xa01a…a040               Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x0066, t01=0x00e4}
0xa040…a066               Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x0066, t01=0x010a}
0xa066…a076               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0066, t01=0x0130}
0xa076…a080               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0140}
0xa080…a096               Head {h00=0x0012, h01=0x0050, text=»*  FATAL ERROR«, t00=0x0066, t01=0x014a}
0xa096…a0a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0160}
0xa0a0…a0cc               Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x0066, t01=0x016a}
0xa0cc…a0f4               Head {h00=0x0024, h01=0x0050, text=»LOG:10 LDKL A1,/2000 RETURN CODE«, t00=0x0067, t01=0x0008}
0xa0f4…a10e               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0067, t01=0x0030}
0xa10e…a124               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x0067, t01=0x004a}
0xa124…a146               Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x0067, t01=0x0060}
0xa146…a150               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0082}
0xa150…a168               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0067, t01=0x008c}
0xa168…a172               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00a4}
0xa172…a184               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x00ae}
0xa184…a196               Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x0067, t01=0x00c0}
0xa196…a1a8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x00d2}
0xa1a8…a1b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00e4}
0xa1b2…a1f4               Head {h00=0x003e, h01=0x0050, text=»*  FUNCTION:  DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x0067, t01=0x00ee}
0xa1f4…a23c               Head {h00=0x0044, h01=0x0050, text=»*             BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x0067, t01=0x0130}
0xa23c…a26c               Head {h00=0x002c, h01=0x0050, text=»*     INPUT:  A4  ADDRESS TO FIRST DIGIT«, t00=0x0067, t01=0x0178}
0xa26c…a28a               Head {h00=0x001a, h01=0x0050, text=»*   OUTPUT: A1  BINARY«, t00=0x0068, t01=0x0018}
0xa28a…a2aa               Head {h00=0x001c, h01=0x0050, text=»*   WORKING REG:  A2,A7 «, t00=0x0068, t01=0x0036}
0xa2aa…a2b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0056}
0xa2b4…a2cc               Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x0068, t01=0x0060}
0xa2cc…a2de               Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0068, t01=0x0078}
0xa2de…a2fc               Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0068, t01=0x008a}
0xa2fc…a310               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0068, t01=0x00a8}
0xa310…a324               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0068, t01=0x00bc}
0xa324…a33a               Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x0068, t01=0x00d0}
0xa33a…a34c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0068, t01=0x00e6}
0xa34c…a36c               Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x0068, t01=0x00f8}
0xa36c…a37e               Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0068, t01=0x0118}
0xa37e…a390               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0068, t01=0x012a}
0xa390…a3a6               Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0068, t01=0x013c}
0xa3a6…a3d0               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0068, t01=0x0152}
0xa3d0…a3e8               Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0068, t01=0x017c}
0xa3e8…a408 (105, 0, 398) Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0069, t01=0x0004}
0xa408…a42a               Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0069, t01=0x0024}
0xa42a…a43c               Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0069, t01=0x0046}
0xa43c…a454               Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0069, t01=0x0058}
0xa454…a464               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0069, t01=0x0070}
0xa464…a470               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0080}
0xa470…a488               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0069, t01=0x008c}
0xa488…a492               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00a4}
0xa492…a4a4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x00ae}
0xa4a4…a4b6               Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0069, t01=0x00c0}
0xa4b6…a4c8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x00d2}
0xa4c8…a4d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00e4}
0xa4d2…a508               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION:  PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0069, t01=0x00ee}
0xa508…a512               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0124}
0xa512…a54e               Head {h00=0x0038, h01=0x0050, text=»*  INPUT:  A3  DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0069, t01=0x012e}
0xa54e…a558               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x016a}
0xa558…a576               Head {h00=0x001a, h01=0x0050, text=»*  OUTPUT: A3  CHANGED«, t00=0x0069, t01=0x0174}
0xa576…a594 (106, 0, 398) Head {h00=0x001a, h01=0x0050, text=»*          A4  CHANGED«, t00=0x006a, t01=0x0004}
0xa594…a59e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0022}
0xa59e…a5ba               Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x006a, t01=0x002c}
0xa5ba…a5d8               Head {h00=0x001a, h01=0x0050, text=» ANS A4,FDCIO,A6  KST «, t00=0x006a, t01=0x0048}
0xa5d8…a5ea               Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x006a, t01=0x0066}
0xa5ea…a608               Head {h00=0x001a, h01=0x0050, text=» ORS A3,FDCIO,A6  KST «, t00=0x006a, t01=0x0078}
0xa608…a618               Head {h00=0x000c, h01=0x0050, text=» RTN  A5«, t00=0x006a, t01=0x0096}
0xa618…a62a               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006a, t01=0x00a6}
0xa62a…a642               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006a, t01=0x00b8}
0xa642…a64c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00d0}
0xa64c…a65e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006a, t01=0x00da}
0xa65e…a670               Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x006a, t01=0x00ec}
0xa670…a682               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006a, t01=0x00fe}
0xa682…a68c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0110}
0xa68c…a6ca               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x006a, t01=0x011a}
0xa6ca…a6fe               Head {h00=0x0030, h01=0x0050, text=»*             EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x006a, t01=0x0158}
0xa6fe…a708               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x018c}
0xa708…a72c               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A7  BINARY NUMBER«, t00=0x006b, t01=0x0008}
0xa72c…a736               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x002c}
0xa736…a768               Head {h00=0x002e, h01=0x0050, text=»*  OUTPUT: A3  EBCDIC CODED DECIMAL DIGITS«, t00=0x006b, t01=0x0036}
0xa768…a786               Head {h00=0x001a, h01=0x0050, text=»*          A7  CHANGED«, t00=0x006b, t01=0x0068}
0xa786…a790               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0086}
0xa790…a7a8               Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x006b, t01=0x0090}
0xa7a8…a7c0               Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x006b, t01=0x00a8}
0xa7c0…a7d6               Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x006b, t01=0x00c0}
0xa7d6…a7e8               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006b, t01=0x00d6}
0xa7e8…a7fa               Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x006b, t01=0x00e8}
0xa7fa…a812               Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x006b, t01=0x00fa}
0xa812…a824               Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x006b, t01=0x0112}
0xa824…a852               Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x006b, t01=0x0124}
0xa852…a876               Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x006b, t01=0x0152}
0xa876…a886               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006b, t01=0x0176}
0xa886…a89e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006b, t01=0x0186}
0xa89e…a8b0               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006c, t01=0x000e}
0xa8b0…a8c2               Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x006c, t01=0x0020}
0xa8c2…a8d4               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006c, t01=0x0032}
0xa8d4…a8de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0044}
0xa8de…a916               Head {h00=0x0034, h01=0x0050, text=»*  FUNCTION:  PREPARE FOR READING DATA SET LABEL«, t00=0x006c, t01=0x004e}
0xa916…a920               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0086}
0xa920…a942               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x006c, t01=0x0090}
0xa942…a94c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00b2}
0xa94c…a98a               Head {h00=0x003a, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x006c, t01=0x00bc}
0xa98a…a9a6               Head {h00=0x0018, h01=0x0050, text=»*          A3   128 «, t00=0x006c, t01=0x00fa}
0xa9a6…a9d2               Head {h00=0x0028, h01=0x0050, text=»*          A4  DRIVER BUFFER ADDRESS«, t00=0x006c, t01=0x0116}
0xa9d2…a9f4               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006c, t01=0x0142}
0xa9f4…aa16               Head {h00=0x001e, h01=0x0050, text=»*           A1 IS CHANGED «, t00=0x006c, t01=0x0164}
0xaa16…aa20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0186}
0xaa20…aa3c               Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x006c, t01=0x0190}
0xaa3c…aa50               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006d, t01=0x001c}
0xaa50…aa64               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x006d, t01=0x0030}
0xaa64…aa76               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x006d, t01=0x0044}
0xaa76…aa8a               Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x006d, t01=0x0056}
0xaa8a…aa9e               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x006d, t01=0x006a}
0xaa9e…aaae               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006d, t01=0x007e}
0xaaae…aac6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006d, t01=0x008e}
0xaac6…aad0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00a6}
0xaad0…aae2               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006d, t01=0x00b0}
0xaae2…aaf4               Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x006d, t01=0x00c2}
0xaaf4…ab06               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006d, t01=0x00d4}
0xab06…ab10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00e6}
0xab10…ab4a               Head {h00=0x0036, h01=0x0050, text=»*  FUNCTION:  GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x006d, t01=0x00f0}
0xab4a…ab54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x012a}
0xab54…ab76               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x006d, t01=0x0134}
0xab76…ab80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0156}
0xab80…aba2               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A2  EOD ADDRESS«, t00=0x006d, t01=0x0160}
0xaba2…abd2               Head {h00=0x002c, h01=0x0050, text=»*          A7  EOD-NO      (0=NOT OPEN) «, t00=0x006d, t01=0x0182}
0xabd2…abf0               Head {h00=0x001a, h01=0x0050, text=»*          A1  CHANGED«, t00=0x006e, t01=0x0022}
0xabf0…ac0c               Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x006e, t01=0x0040}
0xac0c…ac20               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006e, t01=0x005c}
0xac20…ac3a               Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x006e, t01=0x0070}
0xac3a…ac4a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006e, t01=0x008a}
0xac4a…ac62               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006e, t01=0x009a}
0xac62…ac6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00b2}
0xac6c…ac7e               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006e, t01=0x00bc}
0xac7e…ac90               Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x006e, t01=0x00ce}
0xac90…aca2               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006e, t01=0x00e0}
0xaca2…acac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00f2}
0xacac…ace2               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x006e, t01=0x00fc}
0xace2…ad1c               Head {h00=0x0036, h01=0x0050, text=»*            TYPE OF DATA FOR COORESSPONDING DRIVE«, t00=0x006e, t01=0x0132}
0xad1c…ad26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x016c}
0xad26…ad48               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A1  DWT OFFSET «, t00=0x006e, t01=0x0176}
0xad48…ad6a               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006f, t01=0x0008}
0xad6a…ad74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x002a}
0xad74…ad9a               Head {h00=0x0022, h01=0x0050, text=»*  OUTPUT: A2  ADDRESS TO DATA«, t00=0x006f, t01=0x0034}
0xad9a…adbc               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006f, t01=0x005a}
0xadbc…adc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x007c}
0xadc6…adec               Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x006f, t01=0x0086}
0xadec…adfe               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x006f, t01=0x00ac}
0xadfe…ae10               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x006f, t01=0x00be}
0xae10…ae22               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x006f, t01=0x00d0}
0xae22…ae34               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x006f, t01=0x00e2}
0xae34…ae44               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006f, t01=0x00f4}
0xae44…ae5c               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x006f, t01=0x0104}
0xae5c…ae66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x011c}
0xae66…ae78               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006f, t01=0x0126}
0xae78…ae8a               Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x006f, t01=0x0138}
0xae8a…ae9c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006f, t01=0x014a}
0xae9c…aea6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x015c}
0xaea6…aee4               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x006f, t01=0x0166}
0xaee4…af02               Head {h00=0x001a, h01=0x0050, text=»*            DRIVE NO «, t00=0x0070, t01=0x0014}
0xaf02…af0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0032}
0xaf0c…af38               Head {h00=0x0028, h01=0x0050, text=»*  INPUT:    A1  OFFSET TO DWT AREA «, t00=0x0070, t01=0x003c}
0xaf38…af6a               Head {h00=0x002e, h01=0x0050, text=»*            A3  WORD TO BE STORED IN DWT «, t00=0x0070, t01=0x0068}
0xaf6a…af8e               Head {h00=0x0020, h01=0x0050, text=»*            A6  DWT ADDRESS«, t00=0x0070, t01=0x009a}
0xaf8e…af98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00be}
0xaf98…afba               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:   A1  UNCHANGED«, t00=0x0070, t01=0x00c8}
0xafba…afee               Head {h00=0x0030, h01=0x0050, text=»*            A2  ADDRESS TO WORD IN DWT AREA«, t00=0x0070, t01=0x00ea}
0xafee…b010               Head {h00=0x001e, h01=0x0050, text=»*            A3  UNCHANGED«, t00=0x0070, t01=0x011e}
0xb010…b032               Head {h00=0x001e, h01=0x0050, text=»*            A6  UNCHANGED«, t00=0x0070, t01=0x0140}
0xb032…b03c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0162}
0xb03c…b050               Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x0070, t01=0x016c}
0xb050…b064               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0070, t01=0x0180}
0xb064…b076 (113, 0, 398) Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0071, t01=0x0004}
0xb076…b086               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0071, t01=0x0016}
0xb086…b09e               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0071, t01=0x0026}
0xb09e…b0a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x003e}
0xb0a8…b0ba               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0071, t01=0x0048}
0xb0ba…b0cc               Head {h00=0x000e, h01=0x0050, text=»* SETINH *«, t00=0x0071, t01=0x005a}
0xb0cc…b0de               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0071, t01=0x006c}
0xb0de…b0e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x007e}
0xb0e8…b12c               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE «, t00=0x0071, t01=0x0088}
0xb12c…b16e               Head {h00=0x003e, h01=0x0050, text=»*             ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND «, t00=0x0071, t01=0x00cc}
0xb16e…b18a               Head {h00=0x0018, h01=0x0050, text=»*             RETURN«, t00=0x0071, t01=0x010e}
0xb18a…b194               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x012a}
0xb194…b1ba               Head {h00=0x0022, h01=0x0050, text=»*  INPUT:     A6  DWT ADDRESS «, t00=0x0071, t01=0x0134}
0xb1ba…b1c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x015a}
0xb1c4…b1d6               Head {h00=0x000e, h01=0x0050, text=»SETINH INH«, t00=0x0071, t01=0x0164}
0xb1d6…b1f2               Head {h00=0x0018, h01=0x0050, text=» LD A1,DWTA2,A6 FDON«, t00=0x0071, t01=0x0176}
0xb1f2…b212 (114, 0, 400) Head {h00=0x001c, h01=0x0050, text=» RF(Z) SET:10 NOT ACTIVE«, t00=0x0072, t01=0x0004}
0xb212…b22c               Head {h00=0x0016, h01=0x0050, text=» ABL T:DISP ESCAPE«, t00=0x0072, t01=0x0024}
0xb22c…b242               Head {h00=0x0012, h01=0x0050, text=»SET:10 RTN A5 «, t00=0x0072, t01=0x003e}
0xb242…b24e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0054}
0xb24e…b258               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0060}
0xb258…b27e               Head {h00=0x0022, h01=0x0050, text=»*    D R I V E R   B U F F E R«, t00=0x0072, t01=0x006a}
0xb27e…b296               Head {h00=0x0014, h01=0x0050, text=»BUF DATA 0,0,0,0«, t00=0x0072, t01=0x0090}
0xb296…b2a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00a8}
0xb2a0…b2b2               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0072, t01=0x00b2}
0xb2b2…b2c2               Head {h00=0x000c, h01=0x0050, text=» RES 60 «, t00=0x0072, t01=0x00c4}
0xb2c2…b2ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x00d4}
0xb2ce…b2d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00e0}
0xb2d8…b2f0               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRFD01 «, t00=0x0072, t01=0x00ea}
0xb2f0…b2fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0102}
0xb2fa…b318               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0072, t01=0x010c}
0xb318…b336               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0072, t01=0x012a}
0xb336…b354               Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0072, t01=0x0148}
0xb354…b372               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0072, t01=0x0166}
0xb372…b390               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0072, t01=0x0184}
0xb390…b39a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0012}
0xb39a…b3ae               Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0073, t01=0x001c}
0xb3ae…b3be               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x0030}
0xb3be…b3dc               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0073, t01=0x0040}
0xb3dc…b3f8               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0073, t01=0x005e}
0xb3f8…b40e               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0073, t01=0x007a}
0xb40e…b434               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0073, t01=0x0090}
0xb434…b450               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0073, t01=0x00b6}
0xb450…b478               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0073, t01=0x00d2}
0xb478…b496               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0073, t01=0x00fa}
0xb496…b4a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0118}
0xb4a0…b4b6               Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0073, t01=0x0122}
0xb4b6…b4e0               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0073, t01=0x0138}
0xb4e0…b504               Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0073, t01=0x0162}
0xb504…b510               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0073, t01=0x0186}
0xb510…b51a (116, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0004}
0xb51a…b52a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x000e}
0xb52a…b544               Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x0074, t01=0x001e}
0xb544…b554               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0038}
0xb554…b564               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0048}
0xb564…b580               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x0074, t01=0x0058}
0xb580…b5ac               Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x0074, t01=0x0074}
0xb5ac…b5bc               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0074, t01=0x00a0}
0xb5bc…b5ea               Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x0074, t01=0x00b0}
0xb5ea…b5fa               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x00de}
0xb5fa…b622               Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x0074, t01=0x00ee}
0xb622…b632               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0116}
0xb632…b65e               Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0074, t01=0x0126}
0xb65e…b66e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0152}
0xb66e…b69e               Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x0074, t01=0x0162}
0xb69e…b6ae (117, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x0004}
0xb6ae…b6de               Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x0075, t01=0x0014}
0xb6de…b6ee               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x0044}
0xb6ee…b71a               Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x0075, t01=0x0054}
0xb71a…b72e               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0075, t01=0x0080}
0xb72e…b75a               Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x0075, t01=0x0094}
0xb75a…b76e               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0075, t01=0x00c0}
0xb76e…b79a               Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x0075, t01=0x00d4}
0xb79a…b7ae               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0075, t01=0x0100}
0xb7ae…b7da               Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x0075, t01=0x0114}
0xb7da…b7ee               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0075, t01=0x0140}
0xb7ee…b804               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0075, t01=0x0154}
0xb804…b836               Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x0075, t01=0x016a}
0xb836…b846               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x000c}
0xb846…b87e               Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x0076, t01=0x001c}
0xb87e…b88e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x0054}
0xb88e…b89a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0064}
0xb89a…b8a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0070}
0xb8a4…b8b8               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0076, t01=0x007a}
0xb8b8…b8f2               Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x0076, t01=0x008e}
0xb8f2…b902               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x00c8}
0xb902…b932               Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x0076, t01=0x00d8}
0xb932…b942               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x0108}
0xb942…b972               Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x0076, t01=0x0118}
0xb972…b982               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x0148}
0xb982…b98e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0158}
0xb98e…b998               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0164}
0xb998…b9aa               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0076, t01=0x016e}
0xb9aa…b9da               Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x0076, t01=0x0180}
0xb9da…b9f0               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x0020}
0xb9f0…ba18               Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x0077, t01=0x0036}
0xba18…ba2e               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x005e}
0xba2e…ba58               Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x0077, t01=0x0074}
0xba58…ba6e               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x009e}
0xba6e…ba9c               Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x0077, t01=0x00b4}
0xba9c…bab2               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x00e2}
0xbab2…bae4               Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x0077, t01=0x00f8}
0xbae4…bafa               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x012a}
0xbafa…bb06               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x0140}
0xbb06…bb10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x014c}
0xbb10…bb28               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0077, t01=0x0156}
0xbb28…bb3e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0077, t01=0x016e}
0xbb3e…bb5a               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0077, t01=0x0184}
0xbb5a…bb76               Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x0078, t01=0x0010}
0xbb76…bba4               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x0078, t01=0x002c}
0xbba4…bbc4               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0078, t01=0x005a}
0xbbc4…bbce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x007a}
0xbbce…bbea               Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0078, t01=0x0084}
0xbbea…bc18               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0078, t01=0x00a0}
0xbc18…bc22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00ce}
0xbc22…bc3e               Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x0078, t01=0x00d8}
0xbc3e…bc66               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x0078, t01=0x00f4}
0xbc66…bc72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x011c}
0xbc72…bc7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0128}
0xbc7c…bc92               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0078, t01=0x0132}
0xbc92…bca6               Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0078, t01=0x0148}
0xbca6…bcb6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0078, t01=0x015c}
0xbcb6…bcca               Head {h00=0x0010, h01=0x0050, text=» DATA FD:BUF«, t00=0x0078, t01=0x016c}
0xbcca…bce0               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0078, t01=0x0180}
0xbce0…bcea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0008}
0xbcea…bd00               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x0079, t01=0x0012}
0xbd00…bd1c               Head {h00=0x0018, h01=0x0050, text=»FD:BUF RES DVBLEN+1 «, t00=0x0079, t01=0x0028}
0xbd1c…bd28               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x0044}
0xbd28…bd32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0050}
0xbd32…bd48               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0079, t01=0x005a}
0xbd48…bd5e               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x0079, t01=0x0070}
0xbd5e…bd72               Head {h00=0x0010, h01=0x0050, text=»FD:BUF EQU 0«, t00=0x0079, t01=0x0086}
0xbd72…bd7e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x009a}
0xbd7e…bd88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00a6}
0xbd88…bda8               Head {h00=0x001c, h01=0x0050, text=»FDCIO EQU *-DWFD01  KST «, t00=0x0079, t01=0x00b0}
0xbda8…bdc4               Head {h00=0x0018, h01=0x0050, text=» CIO A2,1,CUADR  KST«, t00=0x0079, t01=0x00d0}
0xbdc4…bde4               Head {h00=0x001c, h01=0x0050, text=»FDSST EQU *-DWFD01  KST «, t00=0x0079, t01=0x00ec}
0xbde4…bdfe               Head {h00=0x0016, h01=0x0050, text=» SST A3,CUADR  KST«, t00=0x0079, t01=0x010c}
0xbdfe…be1e               Head {h00=0x001c, h01=0x0050, text=»FDOTR EQU *-DWFD01  KST «, t00=0x0079, t01=0x0126}
0xbe1e…be36               Head {h00=0x0014, h01=0x0050, text=» OTR A3,0,CUADR «, t00=0x0079, t01=0x0146}
0xbe36…be56               Head {h00=0x001c, h01=0x0050, text=»FDHLT EQU *-DWFD01  KST «, t00=0x0079, t01=0x015e}
0xbe56…be72               Head {h00=0x0018, h01=0x0050, text=» CIO A2,0,CUADR  KST«, t00=0x0079, t01=0x017e}
0xbe72…be92               Head {h00=0x001c, h01=0x0050, text=»FDINR EQU *-DWFD01  KST «, t00=0x007a, t01=0x000a}
0xbe92…beae               Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR  KST«, t00=0x007a, t01=0x002a}
0xbeae…beb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0046}
0xbeb8…bec2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0050}
0xbec2…befc               Head {h00=0x0036, h01=0x0050, text=»*              NEXT DWT INTRODUCED BY KST 80-11-12«, t00=0x007a, t01=0x005a}
0xbefc…bf06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0094}
0xbf06…bf1a               Head {h00=0x0010, h01=0x0050, text=»DWFD02 EQU *«, t00=0x007a, t01=0x009e}
0xbf1a…bf2a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x00b2}
0xbf2a…bf48               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x007a, t01=0x00c2}
0xbf48…bf64               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x007a, t01=0x00e0}
0xbf64…bf7a               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x007a, t01=0x00fc}
0xbf7a…bfa0               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x007a, t01=0x0112}
0xbfa0…bfbc               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x007a, t01=0x0138}
0xbfbc…bfe4               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x007a, t01=0x0154}
0xbfe4…c002               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x007a, t01=0x017c}
0xc002…c00c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x000a}
0xc00c…c022               Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x007b, t01=0x0014}
0xc022…c04c               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x007b, t01=0x002a}
0xc04c…c070               Head {h00=0x0020, h01=0x0050, text=» DATA DVECB2 MMU ECB ADDRESS«, t00=0x007b, t01=0x0054}
0xc070…c07c               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x007b, t01=0x0078}
0xc07c…c086               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0084}
0xc086…c096               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x008e}
0xc096…c0b0               Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x007b, t01=0x009e}
0xc0b0…c0c0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x00b8}
0xc0c0…c0d0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x00c8}
0xc0d0…c0ec               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x007b, t01=0x00d8}
0xc0ec…c0fc               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x007b, t01=0x00f4}
0xc0fc…c10c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0104}
0xc10c…c11c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0114}
0xc11c…c12c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0124}
0xc12c…c13c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0134}
0xc13c…c14c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0144}
0xc14c…c160               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x0154}
0xc160…c174               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x0168}
0xc174…c188               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x017c}
0xc188…c19c               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x0190}
0xc19c…c1b2               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x007c, t01=0x0014}
0xc1b2…c1c2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x002a}
0xc1c2…c1d2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x003a}
0xc1d2…c1de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x004a}
0xc1de…c1e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0056}
0xc1e8…c1fc               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x007c, t01=0x0060}
0xc1fc…c20c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0074}
0xc20c…c21c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0084}
0xc21c…c22c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0094}
0xc22c…c238               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x00a4}
0xc238…c242               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00b0}
0xc242…c254               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007c, t01=0x00ba}
0xc254…c26a               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x00cc}
0xc26a…c280               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x00e2}
0xc280…c296               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x00f8}
0xc296…c2ac               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x010e}
0xc2ac…c2c2               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x0124}
0xc2c2…c2ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x013a}
0xc2ce…c2d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0146}
0xc2d8…c2f0               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x007c, t01=0x0150}
0xc2f0…c306               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007c, t01=0x0168}
0xc306…c322               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x007c, t01=0x017e}
0xc322…c350               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x007d, t01=0x000a}
0xc350…c370               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x007d, t01=0x0038}
0xc370…c37a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0058}
0xc37a…c3a8               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x007d, t01=0x0062}
0xc3a8…c3b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0090}
0xc3b2…c3da               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x007d, t01=0x009a}
0xc3da…c3e6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x00c2}
0xc3e6…c3f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00ce}
0xc3f0…c406               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007d, t01=0x00d8}
0xc406…c41a               Head {h00=0x0010, h01=0x0050, text=»DVECB2 EQU *«, t00=0x007d, t01=0x00ee}
0xc41a…c42a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0102}
0xc42a…c43e               Head {h00=0x0010, h01=0x0050, text=» DATA FDBUF2«, t00=0x007d, t01=0x0112}
0xc43e…c454               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x0126}
0xc454…c45e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x013c}
0xc45e…c474               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x007d, t01=0x0146}
0xc474…c490               Head {h00=0x0018, h01=0x0050, text=»FDBUF2 RES DVBLEN+1 «, t00=0x007d, t01=0x015c}
0xc490…c49c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x0178}
0xc49c…c4a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0184}
0xc4a6…c4bc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007d, t01=0x018e}
0xc4bc…c4d2               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x007e, t01=0x0014}
0xc4d2…c4e6               Head {h00=0x0010, h01=0x0050, text=»FDBUF2 EQU 0«, t00=0x007e, t01=0x002a}
0xc4e6…c4f2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x003e}
0xc4f2…c518               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,CUADR2 CIO-START KST«, t00=0x007e, t01=0x004a}
0xc518…c52e               Head {h00=0x0012, h01=0x0050, text=» SST A3,CUADR2«, t00=0x007e, t01=0x0070}
0xc52e…c546               Head {h00=0x0014, h01=0x0050, text=» OTR A3,0,CUADR2«, t00=0x007e, t01=0x0086}
0xc546…c55e               Head {h00=0x0014, h01=0x0050, text=» CIO A2,0,CUADR2«, t00=0x007e, t01=0x009e}
0xc55e…c576               Head {h00=0x0014, h01=0x0050, text=» INR A3,0,CUADR2«, t00=0x007e, t01=0x00b6}
0xc576…c580               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00ce}
0xc580…c58a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00d8}
0xc58a…c596               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x007e, t01=0x00e2}
0xc596…c59a               Head {h00=0x4004, h01=0x0000}
0xc59a…c59e               00 7e 00 ee                                                                                                                                                                                                                                       ┆ ~  ┆
0xc59e…c5a6 (127, 1, 8)   20 04 00 00 00 7f 00 04                                                                                                                                                                                                                           ┆        ┆
0xc5a6…c5f6 (128, 0, 400) 54 00 49 0e 54 00 ec 0c 50 00 e1 31 12 01 14 01 49 ce 5c 12 00 32 82 3b 82 5a 00 02 82 5b 00 06 82 3a f0 3a 82 d7 00 a0 82 fa 00 04 90 5b 00 04 90 5b 00 04 92 d6 00 aa 82 bb 82 d6 00 a0 8f 3a 8f 20 90 8e 00 00 00 00 00 00 00 00 00 00 00 00   ┆T I T   P  1    I    2 ; Z   [   : :         [   [             :                ┆
0xc5f6…c646               00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 6a   ┆                                                                               j┆
0xc646…c696               00 00 00 00 00 00 82 41 7d 20 82 41 00 00 82 41 00 00 a9 41 00 00 21 08 54 00 81 20 05 11 81 41 00 00 01 14 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 82 57 00 80 82 5a 00 04 9a 16   ┆       A}  A   A   A  ! T      A                                       W   Z    ┆
0xc696…c6e6               41 2e 20 7f 63 00 91 0c 92 0c 84 40 00 ac b2 11 56 04 ec 08 57 02 ea 10 55 08 81 20 01 00 f6 97 82 26 1b 01 52 0a 19 01 1a 01 e4 24 e4 29 5f 0e f0 3a 81 57 00 90 81 57 00 8c 82 57 00 92 82 57 00 8e 83 57 00 94 81 d7 00 bc 83 d7 00 be 82 8c   ┆A.  c      @    V   W   U        &  R      $ )_  : W   W   W   W   W            ┆
0xc6e6…c736               04 00 83 8c 81 d6 00 ae f6 97 85 b2 51 40 83 0a 81 56 00 90 82 56 00 ac b8 76 00 b2 78 8c 81 57 00 90 81 56 00 ac 82 56 00 8e 83 0a b8 76 00 b0 70 8c 1c 01 52 28 92 0a 00 00 00 00 40 00 00 00 00 00 08 00 00 00 00 02 00 80 00 00 04 00 00 0c   ┆            Q@   V   V   v  x  W   V   V     v  p   R(      @                   ┆
0xc736…c786 (129, 0, 400) 82 57 00 8e 83 56 00 94 9b 0a 83 57 00 94 eb 0a 5e 3c 82 8c 5f 40 01 00 82 0c c8 56 00 ae 84 08 82 d6 00 ae 5f 50 82 56 00 92 81 56 00 8c 81 d6 00 bc 83 d6 00 be f0 3a 83 d7 00 80 81 d7 00 96 84 56 00 b4 82 d6 00 b8 82 4a ff fe 81 a8 a1 a0   ┆ W   V     W    ^<  _@     V        _P V   V           :         V       J      ┆
0xc786…c7d6               fc 00 e9 90 50 08 94 20 04 00 f6 97 83 9e 83 d6 00 72 a3 a0 0f ff 81 8c f6 97 85 b2 56 0e 9b 8c 55 0c f6 97 83 9e 93 a0 10 00 5f 0c 9b 8c 56 0a f6 97 83 9e 93 a0 10 00 5a 0a 82 4b ff fe 84 57 00 b4 84 20 ff de 94 0a 84 57 00 b0 9a 10 3a 4b   ┆    P            r          V   U         _   V         Z  K   W         W    :K┆
0xc7d6…c826               aa 0e a2 20 ff fe 82 57 00 72 81 d6 00 b6 83 d7 00 8c 83 d6 00 b4 f6 97 85 b2 51 18 52 0e 83 d6 00 8c 81 d6 00 74 f6 97 85 b2 56 08 81 20 01 00 f6 97 82 26 f6 97 82 62 81 d6 00 96 83 d6 00 80 b8 76 00 b2 f0 3a 9c 20 04 00 1a 02 81 8a 91 a0   ┆       W r                Q R        t    V        &   b         v   :          ┆
0xc826…c876               ff de b2 07 56 04 e9 88 57 02 ea 06 56 06 01 10 f6 97 82 26 84 29 f0 3a 84 56 00 a2 3c 42 14 06 84 57 00 a4 83 d6 00 7c 50 04 b8 76 00 b0 d3 a2 93 90 83 d7 00 9e d3 ae b8 76 00 b2 f0 3a 81 0e 91 20 ff fc d3 24 f6 97 82 f0 9a 20 ff fc 84 56   ┆    V   W   V      & ) : V  <B   W     |P  v             v   :       $         V┆
0xc876…c8c6               00 7c 50 04 b8 76 00 b0 d2 77 00 9e b8 76 00 b2 f0 3a 81 56 00 9e 19 02 d1 24 91 20 ff fe 91 56 00 6c d3 24 f6 97 82 f0 83 56 00 9e 9a 20 ff fe 99 20 ff fe d2 4d ff fe 00 00 00 00 00 02 04 20 40 00 00 08 08 50 00 00 40 00 00 08 00 00 10 05   ┆ |P  v   w   v   : V     $     V l $     V           M          @    P  @       ┆
0xc8c6…c916 (130, 0, 400) f0 3a 86 57 00 88 06 00 84 56 00 a2 14 01 d2 52 00 06 9a 18 96 12 16 01 1a 01 52 52 d2 d8 00 10 3e e1 52 08 a2 a0 ff 00 e2 8a 57 04 a2 a0 00 ff 3e c1 ec 0a 5c 20 9c 09 d2 d2 00 06 94 0a 86 10 1c 01 3c 42 14 06 83 56 00 78 82 56 00 7c 50 04   ┆ : W     V     R          RR    > R       W     >                 <B   V x V |P ┆
0xc916…c966               b8 76 00 b0 d2 a2 94 0a d3 31 b8 76 00 b2 84 57 00 9e 82 56 00 7a 5c 60 f6 97 84 0a 5f 66 86 56 00 88 f0 3a 87 57 00 86 87 52 00 08 d7 52 00 08 f6 97 85 fc 50 16 f6 97 83 c0 f6 97 83 e6 82 57 00 78 f6 97 84 32 f6 97 86 04 5f 18 87 56 00 86   ┆ v       1 v   W   V z `    _f V   : W   R   R      P          W x   2    _  V  ┆
0xc966…c9b6               f0 3a d1 22 d3 44 ff f6 50 64 91 20 ff f2 82 84 9b 04 9b 0d 1b 14 83 57 00 86 19 14 e9 56 00 86 50 4c d3 24 3b 41 5e 0e d3 44 00 04 d3 45 00 0e d2 44 00 06 50 2e 84 04 14 14 1a 01 56 06 01 80 f6 97 82 26 50 0c 14 14 ec 0a 5c 12 01 80 f6 97   ┆ : " D  Pd             W     V  PL $;A^  D   E   D  P.      V      &P           ┆
0xc9b6…ca06               82 26 d4 50 00 02 54 06 01 80 f6 97 82 26 d4 45 00 02 5f 4a f6 97 82 f0 d2 45 00 02 5f 54 d1 22 d3 44 ff f2 54 02 03 80 d3 45 00 02 f6 97 82 f0 d2 45 ff fe d3 44 00 02 92 0c d2 45 00 02 d2 25 f0 3a d1 22 d3 52 00 06 3b 42 d2 c4 ff fa 9b 0a   ┆ & P  T      & E  _J     E  _T " D  T    E       E   D     E   % : " R  ;B      ┆
0xca06…ca56               13 04 91 0a f6 97 82 f0 d4 22 d2 d0 ff fa 9a 0a 99 0a d3 52 00 00 50 28 84 08 82 d6 00 7c 50 02 9c 04 93 08 b8 76 00 b0 d2 cc 00 08 92 90 d2 cd 00 08 d2 cc 00 0a 92 90 00 00 00 00 00 00 04 00 4a 28 00 00 00 00 40 82 10 01 00 00 10 00 00 0c   ┆         "         R  P(     |P      v                          J(    @         ┆
0xca56…caa6 (131, 0, 400) d2 cd 00 0a b8 76 00 b2 f0 3a b3 87 56 04 e9 8e 57 02 eb 86 f6 d7 00 30 f0 3a 81 20 80 00 82 56 00 a2 50 06 39 61 1a 01 5f 08 d2 22 d3 28 ab 04 d3 29 d2 38 d3 28 ab 04 d3 29 f0 3a d1 22 d1 24 82 56 00 a2 50 06 39 41 1a 01 5f 08 11 00 f6 d7   ┆     v   :  V   W      0 :     V  P 9a  _  " (   ) 8 (   ) : " $ V  P 9A  _     ┆
0xcaa6…caf6               00 30 f0 3a a0 57 00 a2 87 1c 57 06 90 57 00 a2 3f 41 50 02 5e 0a f6 d7 00 30 f0 3a 83 57 00 a0 82 3b 03 00 93 56 00 a0 1a 01 5c 08 82 3a f0 3a 81 8c 99 a0 ff de 1b 02 13 02 81 2c a1 20 fc 00 e9 20 fc 00 58 0e 83 47 ff fe f0 3a d2 a2 d1 4a   ┆ 0 : W    W  W  ?AP ^    0 : W   ;   V       : :           ,        X  G   :   J┆
0xcaf6…cb46               ff fc d4 ca ff f8 84 40 00 d0 83 30 14 02 1b 02 56 08 83 04 01 40 f6 97 82 26 82 30 e9 48 00 06 5c 16 82 57 00 b8 f0 3a 83 20 05 92 93 16 83 3f 83 20 00 c0 83 3f f7 a1 0f fc 07 00 80 c0 00 c4 85 08 d4 52 00 06 14 02 a4 20 ff fe 14 14 94 12   ┆       @   0    V    @   & 0 H     W   :       ?     ?             R            ┆
0xcb46…cb96               d6 30 1e 01 52 14 d1 50 00 04 d3 50 00 02 d2 42 00 04 f7 a1 10 58 14 04 5f 18 8f 20 5a 02 f0 3a 92 20 ff de b8 56 00 e0 b8 29 83 08 f6 97 86 28 b8 76 00 b2 f0 3a 80 9c 86 34 50 3a 98 a0 00 02 d1 22 d1 44 ff fc f6 97 86 4e 83 08 93 20 ff de   ┆ 0  R  P   P   B     X  _   Z  :     V   )     ( v   :   4P:     " D     N      ┆
0xcb96…cbe6               b8 2c 84 48 00 02 83 48 00 24 d4 4d ff fc d3 76 00 62 9b 0d 93 02 d4 2d a0 49 00 06 19 01 98 a0 00 02 1e 01 59 30 f0 3a 85 40 00 a8 80 d6 00 60 87 56 00 62 17 02 80 d7 00 00 00 00 00 00 00 00 00 00 08 08 00 09 00 00 22 01 00 08 00 00 04 05   ┆ , H   H $ M   v b     - I          Y0 : @     ` V b                    "       ┆
0xcbe6…cc36 (132, 0, 400) 00 84 80 d6 00 84 90 a0 00 02 e8 d6 00 70 50 9a 80 d7 00 84 15 02 81 14 91 60 00 a8 81 24 b8 24 81 57 00 b2 f6 97 86 44 82 c9 00 24 81 48 00 00 f6 97 86 70 82 20 00 e0 92 16 b8 29 1a 02 84 a0 fc 00 19 02 e9 08 50 04 84 a5 5f 0a d1 22 d1 3d   ┆             pP          `   $ $ W     D   $ H     p       )          P   _  " =┆
0xcc36…cc86               d4 c4 ff f8 d1 44 ff fc 17 02 86 34 1e 01 51 06 f6 97 86 ce 5f 64 11 01 f6 97 86 4e f6 97 86 70 f6 97 86 b8 f6 97 85 62 d2 3d 82 47 00 24 80 9c 17 02 f6 97 84 a4 81 56 00 b0 81 57 00 b2 b8 24 f6 97 84 d2 81 56 00 b8 a0 45 ff fe d2 a2 d1 4a   ┆     D     4  Q     _d     N   p       b = G $         V   W   $     V   E     J┆
0xcc86…ccd6               ff fc 11 01 d1 4b ff fc 5f 4e 81 56 00 72 a1 20 0f ff 82 56 00 b4 3a 42 a9 08 81 41 00 ae 81 56 00 b4 39 6e 81 41 00 ac 81 40 00 a8 81 41 00 aa a0 41 00 a8 82 20 08 2c 92 16 81 40 00 bc 88 08 81 40 00 ce 21 03 88 08 83 c0 00 aa 83 c1 00 b6   ┆     K  _N V r     V  :B   A   V  9n A   @   A   A     ,   @     @  !           ┆
0xccd6…cd26               80 96 90 a0 07 ce 07 00 ef 40 00 be 50 1a 01 00 93 a0 00 02 50 88 11 01 e9 20 00 04 50 06 eb 82 50 7c 5f 14 17 01 5f 20 81 40 00 ac 39 4e 82 40 00 ae 3a 62 a9 08 83 04 82 40 00 c0 3a 62 82 88 a1 20 fc 00 a2 20 03 00 a2 0c a9 08 81 84 86 06   ┆         @  P       P       P   P|_   _  @  9N @  :b     @  :b                  ┆
0xcd26…cd76               b6 0b 56 04 ea 98 57 02 ee 0a 55 36 9e 0a 81 18 a1 20 c0 00 54 06 81 18 39 42 57 02 01 00 02 00 93 a0 00 02 50 1c 12 01 ea 20 00 04 50 28 81 04 50 0c b3 85 56 04 eb 84 00 04 10 40 00 00 45 50 20 40 00 02 15 42 45 04 00 04 84 00 00 00 00 0c   ┆  V   W   U6        T   9BW         P       P(  P   V      @  EP @   BE         ┆

Reduced view