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

⟦37889247b⟧ 

    Length: 52628 (0xcd94)
    Notes: pts_type(SC)
    Names: »DRFD01.SC«

Derivation

└─⟦7f25f14aa⟧ Bits:30009683 Philips computer tape "600307"
    └─⟦this⟧ »M:92F4/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
* 
	 			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
	 			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 
	 			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 
	 			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	0 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	0
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
	 			DRFD01 
* 
* 
*	A PROGRAM VERSION USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	1
* 
* 
*	A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 
*	BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. 
* 
SWPBLK	EQU	0
* 
* 
*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER 
*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1
* 
X:D	EQU	0 
OPCLOS	EQU	0
* 
	 			DRFD01 
* 
* 
*   MMU BUFFER SIZE 
* 
* 
X:E	EQU	256		 
DVBLEN	EQU	0
* 
* 
*   MMU DEVICE INDEX
* 
* 
	IFT	CHAN=1 
DEVIND	EQU	2
	XIF
* 
	IFT	CHAN=0 
DEVIND	EQU	4-IBM-IBM
	XIF
* 
	 			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 
* 
	 			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 
* 
	 			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
* 
	 
	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 
* 
	 
* 
*   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
* 
	 			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 
	 
* 
********
*      *
* 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 
* 
	 
* 
********* 
*       * 
* 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
* 
	 			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 
* 
	 			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
	 			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
* 
	 			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
* 
	 			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
* 
	 			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
* 
	 			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 
* 
	 			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
* 
	 			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
* 
	 			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
* 
	 			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
	 			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
	 			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
	 			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
	 			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
	 			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 
* 
	 			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
	 			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
	 			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
	 			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
	IFT	CPU852=1		KST
	CF	A15,SAVE8	SAVE REGISTERS ON STACK	KST 
	XIF			KST
	IFT	CPU852=0		KST
	MSR	8,A15		KST 
	XIF			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
* 
	 			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
* 
	 			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 
* 
	 
* 
*    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
* 
	 
* 
* 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
* 
	 
* 
*  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
* 
	 
* 
*  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
	 			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 
	IFT	CPU852=1		KST
	CF	A15,SAVE8	SAVE REGISTERS ON STACK	KST 
	XIF			KST
	IFT	CPU852=0		KST
	MSR	8,A15		KST 
	XIF			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
* 
	 		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
* 
	 		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	* 
* 
	 		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 
	 			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
	 			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 
* 
	 			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 
	 			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
	 			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 
	 			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 
	 			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 
* 
	 			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
	 			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
	 			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 
	 			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 
	 			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 
	 			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 
	 			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 
	 			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
* 
	 			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…02f8               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0001, t01=0x0158}
0x02f8…0302               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016c}
0x0302…0314               Head {h00=0x000e, h01=0x0050, text=»*  ORDERS:«, t00=0x0001, t01=0x0176}
0x0314…031e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0188}
0x031e…033a (2, 0, 400)   Head {h00=0x0018, h01=0x0050, text=»*  /00   TEST STATUS«, t00=0x0002, t01=0x0004}
0x033a…0358               Head {h00=0x001a, h01=0x0050, text=»*  /01   PHYSICAL READ«, t00=0x0002, t01=0x0020}
0x0358…039e               Head {h00=0x0042, h01=0x0050, text=»*  /02   SEQUENTIAL READ                       -IBM DISC ONLY-«, t00=0x0002, t01=0x003e}
0x039e…03ba               Head {h00=0x0018, h01=0x0050, text=»*  /05   BASIC WRITE«, t00=0x0002, t01=0x0084}
0x03ba…0402               Head {h00=0x0044, h01=0x0050, text=»*  /06   SEQUENTIAL WRITE                       -IBM DISC ONLY- «, t00=0x0002, t01=0x00a0}
0x0402…0420               Head {h00=0x001a, h01=0x0050, text=»*  /11   PHYSICAL READ«, t00=0x0002, t01=0x00e8}
0x0420…0440               Head {h00=0x001c, h01=0x0050, text=»*  /15   PHYSICAL WRITE «, t00=0x0002, t01=0x0106}
0x0440…045c               Head {h00=0x0018, h01=0x0050, text=»*  /1A   SEARCH KEY «, t00=0x0002, t01=0x0126}
0x045c…0470               Head {h00=0x0010, h01=0x0050, text=»*  /21 OPEN «, t00=0x0002, t01=0x0142}
0x0470…0484               Head {h00=0x0010, h01=0x0050, text=»*  /22 CLOSE«, t00=0x0002, t01=0x0156}
0x0484…04a8               Head {h00=0x0020, h01=0x0050, text=»*  /24   WRITE DELETED DATA «, t00=0x0002, t01=0x016a}
0x04a8…04be               Head {h00=0x0012, h01=0x0050, text=»*  /26   LOCK «, t00=0x0002, t01=0x018e}
0x04be…0506               Head {h00=0x0044, h01=0x0050, text=»*  /31   REWIND                                 -IBM DISC ONLY- «, t00=0x0003, t01=0x0014}
0x0506…051c               Head {h00=0x0012, h01=0x0050, text=»*  /37   LOAD «, t00=0x0003, t01=0x005c}
0x051c…0534               Head {h00=0x0014, h01=0x0050, text=»*  /38   UNLOAD «, t00=0x0003, t01=0x0072}
0x0534…053e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008a}
0x053e…055a               Head {h00=0x0018, h01=0x0050, text=»*  ENTRY PARAMETERS:«, t00=0x0003, t01=0x0094}
0x055a…0564               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b0}
0x0564…0580               Head {h00=0x0018, h01=0x0050, text=»*   A5   STACK BASE «, t00=0x0003, t01=0x00ba}
0x0580…059c               Head {h00=0x0018, h01=0x0050, text=»*   A6   DWT-ADDRESS«, t00=0x0003, t01=0x00d6}
0x059c…05b2               Head {h00=0x0012, h01=0x0050, text=»*   A7   ORDER«, t00=0x0003, t01=0x00f2}
0x05b2…05ce               Head {h00=0x0018, h01=0x0050, text=»*   A8   ECB-ADDRESS«, t00=0x0003, t01=0x0108}
0x05ce…05e2               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0003, t01=0x0124}
0x05e2…05ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0138}
0x05ec…0600               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x0142}
0x0600…0614               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x0156}
0x0614…0628               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x016a}
0x0628…063c               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x017e}
0x063c…0650 (4, 0, 400)   Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0004, t01=0x0004}
0x0650…065a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0018}
0x065a…0682               Head {h00=0x0024, h01=0x0050, text=» ENTRY  FDADR ACTIVATION ADDRESS«, t00=0x0004, t01=0x0022}
0x0682…06a8               Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0004, t01=0x004a}
0x06a8…06cc               Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0004, t01=0x0070}
0x06cc…06ee               Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0004, t01=0x0094}
0x06ee…0718               Head {h00=0x0026, h01=0x0050, text=» ENTRY IHFD2 INTERRUPT HANDLER KST«, t00=0x0004, t01=0x00b6}
0x0718…0736               Head {h00=0x001a, h01=0x0050, text=» ENTRY DWFD02 DWT KST «, t00=0x0004, t01=0x00e0}
0x0736…0750               Head {h00=0x0016, h01=0x0050, text=» ENTRY FDON2  KST «, t00=0x0004, t01=0x00fe}
0x0750…0764               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0004, t01=0x0118}
0x0764…076e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012c}
0x076e…0784               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0136}
0x0784…079a               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x014c}
0x079a…07b0               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0162}
0x07b0…07c6               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x0178}
0x07c6…07dc               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x018e}
0x07dc…07e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0014}
0x07e6…0806               Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0005, t01=0x001e}
0x0806…0822               Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0005, t01=0x003e}
0x0822…0846               Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0005, t01=0x005a}
0x0846…0862               Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x007e}
0x0862…0884               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x009a}
0x0884…08ac               Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x00bc}
0x08ac…08ce               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0005, t01=0x00e4}
0x08ce…08f0               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0005, t01=0x0106}
0x08f0…091a               Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0005, t01=0x0128}
0x091a…0946               Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTPLD PROGRAM LOADING DEVICE«, t00=0x0005, t01=0x0152}
0x0946…0972               Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0005, t01=0x017e}
0x0972…098e               Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0006, t01=0x001a}
0x098e…09b8               Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0006, t01=0x0036}
0x09b8…09e2               Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0006, t01=0x0060}
0x09e2…0a0c               Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0006, t01=0x008a}
0x0a0c…0a36               Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0006, t01=0x00b4}
0x0a36…0a6a               Head {h00=0x0030, h01=0x0050, text=» EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE«, t00=0x0006, t01=0x00de}
0x0a6a…0a92               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0006, t01=0x0112}
0x0a92…0abc               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0006, t01=0x013a}
0x0abc…0ae6               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0006, t01=0x0164}
0x0ae6…0b0a               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0006, t01=0x018e}
0x0b0a…0b30               Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0007, t01=0x0022}
0x0b30…0b44               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0007, t01=0x0048}
0x0b44…0b4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005c}
0x0b4e…0b6e               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x0066}
0x0b6e…0b8e               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x0086}
0x0b8e…0bae               Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x00a6}
0x0bae…0bce               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x00c6}
0x0bce…0bee               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x00e6}
0x0bee…0bf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x0bf8…0c2a               Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0007, t01=0x0110}
0x0c2a…0c4e               Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0007, t01=0x0142}
0x0c4e…0c58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0166}
0x0c58…0c6a               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x0170}
0x0c6a…0c7c               Head {h00=0x000e, h01=0x0050, text=»CHAN EQU 1«, t00=0x0007, t01=0x0182}
0x0c7c…0c86 (8, 0, 400)   Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0004}
0x0c86…0cbc               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0008, t01=0x000e}
0x0cbc…0ce8               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0008, t01=0x0044}
0x0ce8…0cf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0070}
0x0cf2…0d04               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x007a}
0x0d04…0d16               Head {h00=0x000e, h01=0x0050, text=»TOSS EQU 1«, t00=0x0008, t01=0x008c}
0x0d16…0d20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009e}
0x0d20…0d56               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x00a8}
0x0d56…0d82               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x00de}
0x0d82…0d8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010a}
0x0d8c…0d9e               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0008, t01=0x0114}
0x0d9e…0db0               Head {h00=0x000e, h01=0x0050, text=»IBM EQU 0 «, t00=0x0008, t01=0x0126}
0x0db0…0dba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0138}
0x0dba…0dec               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0142}
0x0dec…0e1a               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x0174}
0x0e1a…0e24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0012}
0x0e24…0e38               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x001c}
0x0e38…0e42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0030}
0x0e42…0e4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003a}
0x0e4c…0e86               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x0044}
0x0e86…0eb8               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x007e}
0x0eb8…0ec2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b0}
0x0ec2…0ed6               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0009, t01=0x00ba}
0x0ed6…0ee0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ce}
0x0ee0…0ef4               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0009, t01=0x00d8}
0x0ef4…0efe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ec}
0x0efe…0f08               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x00f6}
0x0f08…0f3a               Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0009, t01=0x0100}
0x0f3a…0f68               Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0009, t01=0x0132}
0x0f68…0f72               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x0160}
0x0f72…0f86               Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 1«, t00=0x0009, t01=0x016a}
0x0f86…0f90               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x017e}
0x0f90…0f9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0188}
0x0f9a…0fd4 (10, 0, 400)  Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK «, t00=0x000a, t01=0x0004}
0x0fd4…100a               Head {h00=0x0032, h01=0x0050, text=»* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. «, t00=0x000a, t01=0x003e}
0x100a…1014               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0074}
0x1014…1028               Head {h00=0x0010, h01=0x0050, text=»SWPBLK EQU 0«, t00=0x000a, t01=0x007e}
0x1028…1032               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0092}
0x1032…103c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009c}
0x103c…1080               Head {h00=0x0040, h01=0x0050, text=»*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x000a, t01=0x00a6}
0x1080…10c8               Head {h00=0x0044, h01=0x0050, text=»*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x000a, t01=0x00ea}
0x10c8…10d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0132}
0x10d2…10e4               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x013c}
0x10e4…10f8               Head {h00=0x0010, h01=0x0050, text=»OPCLOS EQU 0«, t00=0x000a, t01=0x014e}
0x10f8…1102               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0162}
0x1102…1116               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x000a, t01=0x016c}
0x1116…1120               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0180}
0x1120…112a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018a}
0x112a…1146 (11, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x000b, t01=0x0004}
0x1146…1150               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0020}
0x1150…115a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002a}
0x115a…1170               Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256   «, t00=0x000b, t01=0x0034}
0x1170…1184               Head {h00=0x0010, h01=0x0050, text=»DVBLEN EQU 0«, t00=0x000b, t01=0x004a}
0x1184…118e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005e}
0x118e…1198               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0068}
0x1198…11b4               Head {h00=0x0018, h01=0x0050, text=»*   MMU DEVICE INDEX«, t00=0x000b, t01=0x0072}
0x11b4…11be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008e}
0x11be…11c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0098}
0x11c8…11dc               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x000b, t01=0x00a2}
0x11dc…11f0               Head {h00=0x0010, h01=0x0050, text=»DEVIND EQU 2«, t00=0x000b, t01=0x00b6}
0x11f0…11fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00ca}
0x11fc…1206               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d6}
0x1206…121a               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000b, t01=0x00e0}
0x121a…1236               Head {h00=0x0018, h01=0x0050, text=»DEVIND EQU 4-IBM-IBM«, t00=0x000b, t01=0x00f4}
0x1236…1242               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0110}
0x1242…124c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011c}
0x124c…1260               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x000b, t01=0x0126}
0x1260…126a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x013a}
0x126a…1280               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0144}
0x1280…1296               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x015a}
0x1296…12ac               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x0170}
0x12ac…12c2               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x0186}
0x12c2…12d8               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000c, t01=0x000c}
0x12d8…12e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0022}
0x12e2…130c               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000c, t01=0x002c}
0x130c…1330               Head {h00=0x0020, h01=0x0050, text=»CUADR2 EQU /0A SECOND CU ADR«, t00=0x000c, t01=0x0056}
0x1330…135a               Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000c, t01=0x007a}
0x135a…1386               Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000c, t01=0x00a4}
0x1386…13b4               Head {h00=0x002a, h01=0x0050, text=»STALEN EQU 512 MAX STANDARD SEC. LEN. «, t00=0x000c, t01=0x00d0}
0x13b4…13e0               Head {h00=0x0028, h01=0x0050, text=»TOSLEN EQU 410 MAX TOSS SEC. LENGTH «, t00=0x000c, t01=0x00fe}
0x13e0…1406               Head {h00=0x0022, h01=0x0050, text=»IBMLEN EQU 128 IBM SEC. LENGTH«, t00=0x000c, t01=0x012a}
0x1406…1432               Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000c, t01=0x0150}
0x1432…145c               Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000c, t01=0x017c}
0x145c…1484               Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000d, t01=0x0016}
0x1484…14a8               Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000d, t01=0x003e}
0x14a8…14d2               Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000d, t01=0x0062}
0x14d2…14dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x008c}
0x14dc…14f8               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0096}
0x14f8…1514               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x000d, t01=0x00b2}
0x1514…1530               Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENTS*«, t00=0x000d, t01=0x00ce}
0x1530…154c               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x000d, t01=0x00ea}
0x154c…1568               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0106}
0x1568…1572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0122}
0x1572…15a6               Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000d, t01=0x012c}
0x15a6…15b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0160}
0x15b0…15c6               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000d, t01=0x016a}
0x15c6…15de               Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000d, t01=0x0180}
0x15de…15ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0008}
0x15ea…15f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0014}
0x15f4…160a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000e, t01=0x001e}
0x160a…1624               Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000e, t01=0x0034}
0x1624…1630               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x004e}
0x1630…163a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005a}
0x163a…1656               Head {h00=0x0018, h01=0x0050, text=»DWTA3 EQU START+/04 «, t00=0x000e, t01=0x0064}
0x1656…1660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0080}
0x1660…1674               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x000e, t01=0x008a}
0x1674…167e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009e}
0x167e…1690               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00a8}
0x1690…16a2               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x00ba}
0x16a2…16b4               Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000e, t01=0x00cc}
0x16b4…16c6               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x00de}
0x16c6…16d8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00f0}
0x16d8…16e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0102}
0x16e2…16f8               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x000e, t01=0x010c}
0x16f8…1724               Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000e, t01=0x0122}
0x1724…1730               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x014e}
0x1730…173a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x015a}
0x173a…1750               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x000e, t01=0x0164}
0x1750…1776               Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, t00=0x000e, t01=0x017a}
0x1776…1782               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x0010}
0x1782…178c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x001c}
0x178c…17ae               Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000f, t01=0x0026}
0x17ae…17d8               Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000f, t01=0x0048}
0x17d8…17fe               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000f, t01=0x0072}
0x17fe…1808               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0098}
0x1808…181c               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x000f, t01=0x00a2}
0x181c…1826               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b6}
0x1826…183c               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x00c0}
0x183c…1852               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x00d6}
0x1852…1868               Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x000f, t01=0x00ec}
0x1868…187e               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x0102}
0x187e…1894               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x0118}
0x1894…189e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012e}
0x189e…18c2               Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x000f, t01=0x0138}
0x18c2…18cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015c}
0x18cc…18e2               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x000f, t01=0x0166}
0x18e2…190c               Head {h00=0x0026, h01=0x0050, text=»*    CHECK IF OPEN OR CLOSE ORDER «, t00=0x000f, t01=0x017c}
0x190c…1916               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0016}
0x1916…192e               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x0010, t01=0x0020}
0x192e…1942               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x0010, t01=0x0038}
0x1942…195a               Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x0010, t01=0x004c}
0x195a…196c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0010, t01=0x0064}
0x196c…1986               Head {h00=0x0016, h01=0x0050, text=» RF(Z) CLOSE CLOSE«, t00=0x0010, t01=0x0076}
0x1986…1990               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0090}
0x1990…199a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0010, t01=0x009a}
0x199a…19a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00a4}
0x19a6…19b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b0}
0x19b0…19c2               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0010, t01=0x00ba}
0x19c2…19e0               Head {h00=0x001a, h01=0x0050, text=» LC A3,DWTOR,A6 INDEX «, t00=0x0010, t01=0x00cc}
0x19e0…1a00               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A3 SAVE FOR FDIX«, t00=0x0010, t01=0x00ea}
0x1a00…1a0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010a}
0x1a0a…1a34               Head {h00=0x0026, h01=0x0050, text=»*  PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x0010, t01=0x0114}
0x1a34…1a3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013e}
0x1a3e…1a62               Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x0010, t01=0x0148}
0x1a62…1a8e               Head {h00=0x0028, h01=0x0050, text=» CM DWTRCW,A6 SAVE RETURN CODE WORD «, t00=0x0010, t01=0x016c}
0x1a8e…1a98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a98…1ab2               Head {h00=0x0016, h01=0x0050, text=»*  CHECK IF LOCKED«, t00=0x0011, t01=0x0012}
0x1ab2…1abc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002c}
0x1abc…1ae4               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTLC,A6  LOCK INDICATOR «, t00=0x0011, t01=0x0036}
0x1ae4…1b0a               Head {h00=0x0022, h01=0x0050, text=» CF A5,FDIX GET BIT MASK IN A3«, t00=0x0011, t01=0x005e}
0x1b0a…1b38               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK «, t00=0x0011, t01=0x0084}
0x1b38…1b4a               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A3«, t00=0x0011, t01=0x00b2}
0x1b4a…1b68               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) FD:ORD LOCKED «, t00=0x0011, t01=0x00c4}
0x1b68…1b7a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0011, t01=0x00e2}
0x1b7a…1b8e               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/26 «, t00=0x0011, t01=0x00f4}
0x1b8e…1bae               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) LOAD LOCK ORDER «, t00=0x0011, t01=0x0108}
0x1bae…1bc2               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/11 «, t00=0x0011, t01=0x0128}
0x1bc2…1be2               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) LOAD LOAD ORDER «, t00=0x0011, t01=0x013c}
0x1be2…1c04               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8001 RETURN CODE«, t00=0x0011, t01=0x015c}
0x1c04…1c1e               Head {h00=0x0016, h01=0x0050, text=» ABL END:IO ENDIO «, t00=0x0011, t01=0x017e}
0x1c1e…1c28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0008}
0x1c28…1c32               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0012, t01=0x0012}
0x1c32…1c3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001c}
0x1c3c…1c4e               Head {h00=0x000e, h01=0x0050, text=»*   ORDER?«, t00=0x0012, t01=0x0026}
0x1c4e…1c58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0038}
0x1c58…1c6c               Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x0012, t01=0x0042}
0x1c6c…1c84               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0012, t01=0x0056}
0x1c84…1c9a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x006e}
0x1c9a…1cb6               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0012, t01=0x0084}
0x1cb6…1ce0               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0012, t01=0x00a0}
0x1ce0…1d0a               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A8 GET FIRST WORD OF ECB «, t00=0x0012, t01=0x00ca}
0x1d0a…1d42               Head {h00=0x0034, h01=0x0050, text=» ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS «, t00=0x0012, t01=0x00f4}
0x1d42…1d74               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) FD:000 BUFFER NOT IN SYSTEM AREA? «, t00=0x0012, t01=0x012c}
0x1d74…1d86               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0012, t01=0x015e}
0x1d86…1d9c               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:005«, t00=0x0012, t01=0x0170}
0x1d9c…1dd6               Head {h00=0x0036, h01=0x0050, text=» ADKL A3,TOSLEN CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x0012, t01=0x0186}
0x1dd6…1df0               Head {h00=0x0016, h01=0x0050, text=» RF(N) FD:005 NO? «, t00=0x0013, t01=0x0030}
0x1df0…1dfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004a}
0x1dfa…1e0e               Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x0013, t01=0x0054}
0x1e0e…1e2e               Head {h00=0x001c, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE IT«, t00=0x0013, t01=0x0068}
0x1e2e…1e40               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0013, t01=0x0088}
0x1e40…1e56               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/F000«, t00=0x0013, t01=0x009a}
0x1e56…1e68               Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x0013, t01=0x00b0}
0x1e68…1e7a               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0013, t01=0x00c2}
0x1e7a…1e8c               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0013, t01=0x00d4}
0x1e8c…1ea2               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF «, t00=0x0013, t01=0x00e6}
0x1ea2…1ed8               Head {h00=0x0032, h01=0x0050, text=» ST A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x0013, t01=0x00fc}
0x1ed8…1f08               Head {h00=0x002c, h01=0x0050, text=» ADKL A1,/400 CREATE ONE MORE MMU ENTRY «, t00=0x0013, t01=0x0132}
0x1f08…1f22               Head {h00=0x0016, h01=0x0050, text=» ST A1,DWT:PA+2,A6«, t00=0x0013, t01=0x0162}
0x1f22…1f34               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0013, t01=0x017c}
0x1f34…1f60               Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x0013, t01=0x018e}
0x1f60…1f8e               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,FD:BUF GET DWT BUFFER ADDRESS«, t00=0x0014, t01=0x002a}
0x1f8e…1fc4               Head {h00=0x0032, h01=0x0050, text=» ST A2,ECBBA,A8 SET NEW BUFFER ADDRESS IN ECB «, t00=0x0014, t01=0x0058}
0x1fc4…1fce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008e}
0x1fce…200a               Head {h00=0x0038, h01=0x0050, text=»FD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x0014, t01=0x0098}
0x200a…2014               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d4}
0x2014…2028               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0014, t01=0x00de}
0x2028…2034               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00f2}
0x2034…203e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fe}
0x203e…2050               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0014, t01=0x0108}
0x2050…2072               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) FD:070 TEST STATUS«, t00=0x0014, t01=0x011a}
0x2072…2084               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0014, t01=0x013c}
0x2084…20a8               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x0014, t01=0x014e}
0x20a8…20ba               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0014, t01=0x0172}
0x20ba…20dc               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:010 BASIC WRITE «, t00=0x0014, t01=0x0184}
0x20dc…20ee               Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0015, t01=0x0016}
0x20ee…2112               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x0015, t01=0x0028}
0x2112…2124               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0015, t01=0x004c}
0x2124…2148               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:028 PHYSICAL WRITE«, t00=0x0015, t01=0x005e}
0x2148…215a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,15«, t00=0x0015, t01=0x0082}
0x215a…2182               Head {h00=0x0024, h01=0x0050, text=» RF(Z) FD:030 WRITE DELETED DATA«, t00=0x0015, t01=0x0094}
0x2182…2196               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/14 «, t00=0x0015, t01=0x00bc}
0x2196…21ba               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) UNLOAD UNLOAD ORDER «, t00=0x0015, t01=0x00d0}
0x21ba…21cc               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0015, t01=0x00f4}
0x21cc…21e0               Head {h00=0x0010, h01=0x0050, text=» ADK A1,/36 «, t00=0x0015, t01=0x0106}
0x21e0…2206               Head {h00=0x0022, h01=0x0050, text=» ABL(Z) SQREAD SEQUENTIAL READ«, t00=0x0015, t01=0x011a}
0x2206…2218               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0015, t01=0x0140}
0x2218…2240               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SQWRIT SEQUENTIAL WRITE «, t00=0x0015, t01=0x0152}
0x2240…2254               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2B «, t00=0x0015, t01=0x017a}
0x2254…2272               Head {h00=0x001a, h01=0x0050, text=» ABL(Z) REWIND REWIND «, t00=0x0015, t01=0x018e}
0x2272…227e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x001c}
0x227e…2296               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0016, t01=0x0028}
0x2296…22ac               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0016, t01=0x0040}
0x22ac…22be               Head {h00=0x000e, h01=0x0050, text=» ADK A1,30«, t00=0x0016, t01=0x0056}
0x22be…22de               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:050 SEARCH KEY«, t00=0x0016, t01=0x0068}
0x22de…22ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0088}
0x22ea…22f2               Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0094}
0x22f2…2306               Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x0016, t01=0x009c}
0x2306…2328               Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x0016, t01=0x00b0}
0x2328…2332               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d2}
0x2332…2348               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0016, t01=0x00dc}
0x2348…2352               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0016, t01=0x00f2}
0x2352…235c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fc}
0x235c…236c               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x0106}
0x236c…237c               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0016, t01=0x0116}
0x237c…238c               Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0016, t01=0x0126}
0x238c…239c               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0016, t01=0x0136}
0x239c…23ac               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x0146}
0x23ac…23b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0156}
0x23b6…23ee               Head {h00=0x0034, h01=0x0050, text=»*    OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0016, t01=0x0160}
0x23ee…2424               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0017, t01=0x0008}
0x2424…242e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003e}
0x242e…2440               Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0017, t01=0x0048}
0x2440…2466               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0017, t01=0x005a}
0x2466…2492               Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0017, t01=0x0080}
0x2492…24c6               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0017, t01=0x00ac}
0x24c6…24ec               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0017, t01=0x00e0}
0x24ec…24f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0106}
0x24f6…2524               Head {h00=0x002a, h01=0x0050, text=»*    WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0017, t01=0x0110}
0x2524…2550               Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0017, t01=0x013e}
0x2550…257c               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0017, t01=0x016a}
0x257c…259c               Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0018, t01=0x0008}
0x259c…25b8               Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0018, t01=0x0028}
0x25b8…25ea               Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0018, t01=0x0044}
0x25ea…2602               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0018, t01=0x0076}
0x2602…260c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008e}
0x260c…2620               Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0018, t01=0x0098}
0x2620…263e               Head {h00=0x001a, h01=0x0050, text=»*    TIME HAS EXPIRED «, t00=0x0018, t01=0x00ac}
0x263e…265e               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0018, t01=0x00ca}
0x265e…268e               Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0018, t01=0x00ea}
0x268e…26b8               Head {h00=0x0026, h01=0x0050, text=» RF OCLEXI COMMON OPEN/CLOSE EXIT «, t00=0x0018, t01=0x011a}
0x26b8…26c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0144}
0x26c2…26cc               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0018, t01=0x014e}
0x26cc…26d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0158}
0x26d6…26e8               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0018, t01=0x0162}
0x26e8…26fa               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0018, t01=0x0174}
0x26fa…270c               Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0018, t01=0x0186}
0x270c…271e               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0019, t01=0x0008}
0x271e…2730               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0019, t01=0x001a}
0x2730…273a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x002c}
0x273a…2772               Head {h00=0x0034, h01=0x0050, text=»*    CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0019, t01=0x0036}
0x2772…27a8               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0019, t01=0x006e}
0x27a8…27b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a4}
0x27b2…27c6               Head {h00=0x0010, h01=0x0050, text=»CLOSE EQU * «, t00=0x0019, t01=0x00ae}
0x27c6…27ec               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0019, t01=0x00c2}
0x27ec…2816               Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0019, t01=0x00e8}
0x2816…284a               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0019, t01=0x0112}
0x284a…2870               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA CLOSE FD DRIVE«, t00=0x0019, t01=0x0146}
0x2870…287a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x016c}
0x287a…288e               Head {h00=0x0010, h01=0x0050, text=»OCLEXI EQU *«, t00=0x0019, t01=0x0176}
0x288e…28b6               Head {h00=0x0024, h01=0x0050, text=»*    COMMON EXIT FOR OPEN/CLOSE «, t00=0x0019, t01=0x018a}
0x28b6…28d4               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x001a, t01=0x0022}
0x28d4…28ec               Head {h00=0x0014, h01=0x0050, text=» RF FD:090 ENDIO«, t00=0x001a, t01=0x0040}
0x28ec…28f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x28f6…2902               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0062}
0x2902…290c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x290c…2920               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x001a, t01=0x0078}
0x2920…292a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x008c}
0x292a…2942               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x001a, t01=0x0096}
0x2942…295a               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x001a, t01=0x00ae}
0x295a…2972               Head {h00=0x0014, h01=0x0050, text=»* BASIC WRITE * «, t00=0x001a, t01=0x00c6}
0x2972…298a               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x001a, t01=0x00de}
0x298a…29a2               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x001a, t01=0x00f6}
0x29a2…29ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x010e}
0x29ac…29c4               Head {h00=0x0014, h01=0x0050, text=»FD:010 CF A5,BIO«, t00=0x001a, t01=0x0118}
0x29c4…29d6               Head {h00=0x000e, h01=0x0050, text=» ORK A2,1 «, t00=0x001a, t01=0x0130}
0x29d6…29ea               Head {h00=0x0010, h01=0x0050, text=»FD:015 EQU *«, t00=0x001a, t01=0x0142}
0x29ea…2a02               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001a, t01=0x0156}
0x2a02…2a1a               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x001a, t01=0x016e}
0x2a1a…2a32               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x001a, t01=0x0186}
0x2a32…2a50               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x001b, t01=0x000e}
0x2a50…2a5c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x002c}
0x2a5c…2a6e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001b, t01=0x0038}
0x2a6e…2a9e               Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x001b, t01=0x004a}
0x2a9e…2ab4               Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x001b, t01=0x007a}
0x2ab4…2ac8               Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x001b, t01=0x0090}
0x2ac8…2ad4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00a4}
0x2ad4…2ade               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00b0}
0x2ade…2af6               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001b, t01=0x00ba}
0x2af6…2b12               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+SWPBLK=2«, t00=0x001b, t01=0x00d2}
0x2b12…2b4a               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x001b, t01=0x00ee}
0x2b4a…2b76               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA?«, t00=0x001b, t01=0x0126}
0x2b76…2ba2               Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001b, t01=0x0152}
0x2ba2…2bbc               Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x001b, t01=0x017e}
0x2bbc…2be6               Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 GET DWT BUFFER ADDRESS «, t00=0x001c, t01=0x0008}
0x2be6…2c10               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x001c, t01=0x0032}
0x2c10…2c3c               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x001c, t01=0x005c}
0x2c3c…2c72               Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x001c, t01=0x0088}
0x2c72…2c9c               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x001c, t01=0x00be}
0x2c9c…2cba               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x001c, t01=0x00e8}
0x2cba…2cc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0106}
0x2cc4…2cd8               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x001c, t01=0x0110}
0x2cd8…2ce2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0124}
0x2ce2…2cec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x012e}
0x2cec…2d00               Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x001c, t01=0x0138}
0x2d00…2d0c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x014c}
0x2d0c…2d16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0158}
0x2d16…2d3c               Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x001c, t01=0x0162}
0x2d3c…2d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0188}
0x2d46…2d5e (29, 0, 398)  Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001d, t01=0x0004}
0x2d5e…2d7a               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+SWPBLK=2«, t00=0x001d, t01=0x001c}
0x2d7a…2da2               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWT:LA,A6 GET BUFFER FLAG«, t00=0x001d, t01=0x0038}
0x2da2…2dd2               Head {h00=0x002c, h01=0x0050, text=» RF(Z) FD:025 BUFFER WAS IN SYSTEM AREA?«, t00=0x001d, t01=0x0060}
0x2dd2…2e04               Head {h00=0x002e, h01=0x0050, text=» LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS «, t00=0x001d, t01=0x0090}
0x2e04…2e2e               Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBBA,A8 RESTORE IT IN ECB «, t00=0x001d, t01=0x00c2}
0x2e2e…2e38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ec}
0x2e38…2e4c               Head {h00=0x0010, h01=0x0050, text=»FD:025 EQU *«, t00=0x001d, t01=0x00f6}
0x2e4c…2e58               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x010a}
0x2e58…2e62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0116}
0x2e62…2e80               Head {h00=0x001a, h01=0x0050, text=» RF FD:048 GOTO FD:RC «, t00=0x001d, t01=0x0120}
0x2e80…2e8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013e}
0x2e8a…2ea4               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001d, t01=0x0148}
0x2ea4…2ebe               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x001d, t01=0x0162}
0x2ebe…2ed8               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL WRITE *«, t00=0x001d, t01=0x017c}
0x2ed8…2ef2               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x001e, t01=0x0008}
0x2ef2…2f0c               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001e, t01=0x0022}
0x2f0c…2f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x003c}
0x2f16…2f2e               Head {h00=0x0014, h01=0x0050, text=»FD:028 CF A5,BIO«, t00=0x001e, t01=0x0046}
0x2f2e…2f56               Head {h00=0x0024, h01=0x0050, text=» ORK A2,5 INSERT BIO BITS 13-15 «, t00=0x001e, t01=0x005e}
0x2f56…2f68               Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x001e, t01=0x0086}
0x2f68…2f7c               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x001e, t01=0x0098}
0x2f7c…2f86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ac}
0x2f86…2fa4               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001e, t01=0x00b6}
0x2fa4…2fc2               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001e, t01=0x00d4}
0x2fc2…2fe0               Head {h00=0x001a, h01=0x0050, text=»* WRITE DELETED DATA *«, t00=0x001e, t01=0x00f2}
0x2fe0…2ffe               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001e, t01=0x0110}
0x2ffe…301c               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001e, t01=0x012e}
0x301c…3026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014c}
0x3026…303e               Head {h00=0x0014, h01=0x0050, text=»FD:030 CF A5,BIO«, t00=0x001e, t01=0x0156}
0x303e…3050               Head {h00=0x000e, h01=0x0050, text=» ORK A2,6 «, t00=0x001e, t01=0x016e}
0x3050…3062               Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x001e, t01=0x0180}
0x3062…306c (31, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0004}
0x306c…3086               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001f, t01=0x000e}
0x3086…30a0               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x001f, t01=0x0028}
0x30a0…30ba               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x001f, t01=0x0042}
0x30ba…30d4               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x001f, t01=0x005c}
0x30d4…30ee               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001f, t01=0x0076}
0x30ee…30f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0090}
0x30f8…3114               Head {h00=0x0018, h01=0x0050, text=»FD:040 CF A5,BIO:RE «, t00=0x001f, t01=0x009a}
0x3114…312c               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001f, t01=0x00b6}
0x312c…3144               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x001f, t01=0x00ce}
0x3144…315c               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x001f, t01=0x00e6}
0x315c…317c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:042 TOSS DISC «, t00=0x001f, t01=0x00fe}
0x317c…3188               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x011e}
0x3188…319a               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001f, t01=0x012a}
0x319a…31ae               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x001f, t01=0x013c}
0x31ae…31c2               Head {h00=0x0010, h01=0x0050, text=»FD:042 EQU *«, t00=0x001f, t01=0x0150}
0x31c2…31ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0164}
0x31ce…31f6               Head {h00=0x0024, h01=0x0050, text=»FD:045 CF A5,FD:REA PERFORM READ«, t00=0x001f, t01=0x0170}
0x31f6…3200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0008}
0x3200…3214               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0020, t01=0x0012}
0x3214…321e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0026}
0x321e…3228               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0030}
0x3228…3240               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0020, t01=0x003a}
0x3240…3256               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0020, t01=0x0052}
0x3256…3272               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0020, t01=0x0068}
0x3272…32aa               Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0020, t01=0x0084}
0x32aa…32d6               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:046 BUFFER IN SYSTEM AREA?«, t00=0x0020, t01=0x00bc}
0x32d6…3302               Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0020, t01=0x00e8}
0x3302…3330               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,FD:BUF GET DWT BUFFER ADDRESS«, t00=0x0020, t01=0x0114}
0x3330…335a               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0020, t01=0x0142}
0x335a…3386               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0020, t01=0x016c}
0x3386…33bc               Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x0021, t01=0x0008}
0x33bc…33e6               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0021, t01=0x003e}
0x33e6…3418               Head {h00=0x002e, h01=0x0050, text=» LD A2,DWT:BF,A6 GET SAVED BUFFER ADDRESS «, t00=0x0021, t01=0x0068}
0x3418…3442               Head {h00=0x0026, h01=0x0050, text=» ST A2,ECBBA,A8 RESTORE IT IN ECB «, t00=0x0021, t01=0x009a}
0x3442…3454               Head {h00=0x000e, h01=0x0050, text=» RF FD:048«, t00=0x0021, t01=0x00c4}
0x3454…345e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d6}
0x345e…3472               Head {h00=0x0010, h01=0x0050, text=»FD:046 EQU *«, t00=0x0021, t01=0x00e0}
0x3472…347e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00f4}
0x347e…3488               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0100}
0x3488…34a0               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0021, t01=0x010a}
0x34a0…34b8               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0021, t01=0x0122}
0x34b8…34d0               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0021, t01=0x013a}
0x34d0…34ee               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:047 NOT IBM «, t00=0x0021, t01=0x0152}
0x34ee…34fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0170}
0x34fa…350c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0021, t01=0x017c}
0x350c…352c               Head {h00=0x001c, h01=0x0050, text=» LD A7,ECBRL,A8 REQ LEN «, t00=0x0021, t01=0x018e}
0x352c…3558               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS«, t00=0x0022, t01=0x001e}
0x3558…356c               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0022, t01=0x004a}
0x356c…3580               Head {h00=0x0010, h01=0x0050, text=»FD:047 EQU *«, t00=0x0022, t01=0x005e}
0x3580…358c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0072}
0x358c…35a0               Head {h00=0x0010, h01=0x0050, text=»FD:048 EQU *«, t00=0x0022, t01=0x007e}
0x35a0…35b2               Head {h00=0x000e, h01=0x0050, text=» ABL FD:RC«, t00=0x0022, t01=0x0092}
0x35b2…35bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a4}
0x35bc…35d0               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0022, t01=0x00ae}
0x35d0…35da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00c2}
0x35da…35f2               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0022, t01=0x00cc}
0x35f2…3608               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0022, t01=0x00e4}
0x3608…3612               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00fa}
0x3612…3628               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0022, t01=0x0104}
0x3628…363e               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0022, t01=0x011a}
0x363e…3654               Head {h00=0x0012, h01=0x0050, text=»* SEARCH KEY *«, t00=0x0022, t01=0x0130}
0x3654…366a               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0022, t01=0x0146}
0x366a…3680               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0022, t01=0x015c}
0x3680…368a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0172}
0x368a…369e               Head {h00=0x0010, h01=0x0050, text=»FD:050 EQU *«, t00=0x0022, t01=0x017c}
0x369e…36c4               Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 KEY AREA ADDRESS «, t00=0x0022, t01=0x0190}
0x36c4…36e8               Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A4 KEY AREA LENGTH «, t00=0x0023, t01=0x0026}
0x36e8…36fa               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0023, t01=0x004a}
0x36fa…3720               Head {h00=0x0022, h01=0x0050, text=» ABL(NP) END:10 ILLEGAL LENGTH«, t00=0x0023, t01=0x005c}
0x3720…3734               Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0023, t01=0x0082}
0x3734…375a               Head {h00=0x0022, h01=0x0050, text=» ABL(P) END:10 ILLEGAL LENGTH «, t00=0x0023, t01=0x0096}
0x375a…376c               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0023, t01=0x00bc}
0x376c…3776               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ce}
0x3776…37a4               Head {h00=0x002a, h01=0x0050, text=»*   IF ODD CHANGE TO EVEN NO OF BYTES «, t00=0x0023, t01=0x00d8}
0x37a4…37ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0106}
0x37ae…37c0               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x0110}
0x37c0…37d2               Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0023, t01=0x0122}
0x37d2…37e4               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0023, t01=0x0134}
0x37e4…37ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0146}
0x37ee…3800               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0023, t01=0x0150}
0x3800…3816               Head {h00=0x0012, h01=0x0050, text=» ORK A2,7 BIO «, t00=0x0023, t01=0x0162}
0x3816…3828               Head {h00=0x000e, h01=0x0050, text=» ADK A3,4 «, t00=0x0023, t01=0x0178}
0x3828…3846               Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 KEY ADDRESS «, t00=0x0023, t01=0x018a}
0x3846…3866               Head {h00=0x001c, h01=0x0050, text=» CF A5,FD:WRI SEARCH KEY«, t00=0x0024, t01=0x0018}
0x3866…3884               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 RETURN CODE«, t00=0x0024, t01=0x0038}
0x3884…389a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:048«, t00=0x0024, t01=0x0056}
0x389a…38a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x006c}
0x38a4…38b8               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0024, t01=0x0076}
0x38b8…38c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x008a}
0x38c2…38ea               Head {h00=0x0024, h01=0x0050, text=»*  READ RECORD WITH KEY COMMAND «, t00=0x0024, t01=0x0094}
0x38ea…38f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00bc}
0x38f4…3908               Head {h00=0x0010, h01=0x0050, text=»FD:060 EQU *«, t00=0x0024, t01=0x00c6}
0x3908…391e               Head {h00=0x0012, h01=0x0050, text=» LDK A2,4 BIO «, t00=0x0024, t01=0x00da}
0x391e…3942               Head {h00=0x0020, h01=0x0050, text=» LD A3,4,A8 REQUESTED LENGTH«, t00=0x0024, t01=0x00f0}
0x3942…3956               Head {h00=0x0010, h01=0x0050, text=» CWK A3,130 «, t00=0x0024, t01=0x0114}
0x3956…397c               Head {h00=0x0022, h01=0x0050, text=» ABL(NE) END:10 ILLEGAL LENGTH«, t00=0x0024, t01=0x0128}
0x397c…399e               Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0024, t01=0x014e}
0x399e…39b0               Head {h00=0x000e, h01=0x0050, text=» RB FD:045«, t00=0x0024, t01=0x0170}
0x39b0…39bc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0182}
0x39bc…39c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x018e}
0x39c6…39da               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0025, t01=0x0008}
0x39da…39e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x001c}
0x39e4…39fc               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0025, t01=0x0026}
0x39fc…3a14               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x0025, t01=0x003e}
0x3a14…3a2c               Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x0025, t01=0x0056}
0x3a2c…3a44               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x0025, t01=0x006e}
0x3a44…3a5c               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0025, t01=0x0086}
0x3a5c…3a66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009e}
0x3a66…3a7a               Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0025, t01=0x00a8}
0x3a7a…3a9a               Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0025, t01=0x00bc}
0x3a9a…3ab0               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0025, t01=0x00dc}
0x3ab0…3ac2               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0025, t01=0x00f2}
0x3ac2…3ad4               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0025, t01=0x0104}
0x3ad4…3afe               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FD:090 DISC NOT OPERABEL? «, t00=0x0025, t01=0x0116}
0x3afe…3b24               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/200 WRITE PROTECTED?«, t00=0x0025, t01=0x0140}
0x3b24…3b3e               Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0025, t01=0x0166}
0x3b3e…3b56               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0025, t01=0x0180}
0x3b56…3b7a               Head {h00=0x0020, h01=0x0050, text=» RF LOA:05 READ VOLUME NAME «, t00=0x0026, t01=0x0008}
0x3b7a…3b84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x002c}
0x3b84…3b98               Head {h00=0x0010, h01=0x0050, text=»FD:075 EQU *«, t00=0x0026, t01=0x0036}
0x3b98…3ba4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x004a}
0x3ba4…3bcc               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTRCW,A6 GET RETURN CODE«, t00=0x0026, t01=0x0056}
0x3bcc…3be6               Head {h00=0x0016, h01=0x0050, text=»FD:090 ABL END:IO «, t00=0x0026, t01=0x007e}
0x3be6…3bf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0098}
0x3bf0…3c04               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0026, t01=0x00a2}
0x3c04…3c0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b6}
0x3c0e…3c1e               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0026, t01=0x00c0}
0x3c1e…3c2e               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0026, t01=0x00d0}
0x3c2e…3c3e               Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0026, t01=0x00e0}
0x3c3e…3c4e               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0026, t01=0x00f0}
0x3c4e…3c5e               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0026, t01=0x0100}
0x3c5e…3c68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0110}
0x3c68…3c7a               Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0026, t01=0x011a}
0x3c7a…3c92               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0026, t01=0x012c}
0x3c92…3ca8               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0026, t01=0x0144}
0x3ca8…3cba               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0026, t01=0x015a}
0x3cba…3cde               Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) FD:RC NOT OPERABEL «, t00=0x0026, t01=0x016c}
0x3cde…3cf2               Head {h00=0x0010, h01=0x0050, text=»LOA:05 EQU *«, t00=0x0026, t01=0x0190}
0x3cf2…3d0a               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0027, t01=0x0014}
0x3d0a…3d14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x002c}
0x3d14…3d36               Head {h00=0x001e, h01=0x0050, text=»*  CHECK IF TOSS/IBM LABEL«, t00=0x0027, t01=0x0036}
0x3d36…3d40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0058}
0x3d40…3d56               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0027, t01=0x0062}
0x3d56…3d6a               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0027, t01=0x0078}
0x3d6a…3d88               Head {h00=0x001a, h01=0x0050, text=» LDK A3,38 NO OF BYTES«, t00=0x0027, t01=0x008c}
0x3d88…3d9e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0027, t01=0x00aa}
0x3d9e…3db2               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0027, t01=0x00c0}
0x3db2…3dc4               Head {h00=0x000e, h01=0x0050, text=» ADK A4,34«, t00=0x0027, t01=0x00d4}
0x3dc4…3dd8               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0027, t01=0x00e6}
0x3dd8…3dec               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0027, t01=0x00fa}
0x3dec…3e18               Head {h00=0x0028, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL PREASSUMED «, t00=0x0027, t01=0x010e}
0x3e18…3e2a               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0027, t01=0x013a}
0x3e2a…3e3e               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0027, t01=0x014c}
0x3e3e…3e52               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0027, t01=0x0160}
0x3e52…3e72               Head {h00=0x001c, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL«, t00=0x0027, t01=0x0174}
0x3e72…3e7e (40, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0004}
0x3e7e…3e88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0010}
0x3e88…3e9c               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0028, t01=0x001a}
0x3e9c…3ea6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x002e}
0x3ea6…3eb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0038}
0x3eb0…3ec4               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0028, t01=0x0042}
0x3ec4…3ece               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0056}
0x3ece…3eea               Head {h00=0x0018, h01=0x0050, text=»*  READ VOLUME NAME «, t00=0x0028, t01=0x0060}
0x3eea…3ef4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x007c}
0x3ef4…3f0c               Head {h00=0x0014, h01=0x0050, text=» LDK A3,8 LENGTH«, t00=0x0028, t01=0x0086}
0x3f0c…3f22               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0028, t01=0x009e}
0x3f22…3f50               Head {h00=0x002a, h01=0x0050, text=» C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK«, t00=0x0028, t01=0x00b4}
0x3f50…3f7e               Head {h00=0x002a, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0028, t01=0x00e2}
0x3f7e…3f90               Head {h00=0x000e, h01=0x0050, text=» RF LOA:15«, t00=0x0028, t01=0x0110}
0x3f90…3f9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0122}
0x3f9c…3fae               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0028, t01=0x012e}
0x3fae…3fce               Head {h00=0x001c, h01=0x0050, text=»LOA:10 LDK A3,10 LENGTH «, t00=0x0028, t01=0x0140}
0x3fce…3fe6               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0028, t01=0x0160}
0x3fe6…4010               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0028, t01=0x0178}
0x4010…403c               Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM DISC «, t00=0x0029, t01=0x0012}
0x403c…4062               Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 RETURN CODE BIT 10«, t00=0x0029, t01=0x003e}
0x4062…407c               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0029, t01=0x0064}
0x407c…4088               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x007e}
0x4088…40a0               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0029, t01=0x008a}
0x40a0…40b4               Head {h00=0x0010, h01=0x0050, text=»LOA:15 EQU *«, t00=0x0029, t01=0x00a2}
0x40b4…40d8               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0029, t01=0x00b6}
0x40d8…40ee               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0029, t01=0x00da}
0x40ee…4102               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0029, t01=0x00f0}
0x4102…4114               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0029, t01=0x0104}
0x4114…4120               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0116}
0x4120…4132               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0029, t01=0x0122}
0x4132…414a               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTRCW,A6«, t00=0x0029, t01=0x0134}
0x414a…4172               Head {h00=0x0024, h01=0x0050, text=» ANK A7,/20 CHECK TYPE OF LABEL «, t00=0x0029, t01=0x014c}
0x4172…4192               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:30 TOSS LABEL«, t00=0x0029, t01=0x0174}
0x4192…41b0 (42, 0, 400)  Head {h00=0x001a, h01=0x0050, text=» LDK A7,10 NO OF CHAR.«, t00=0x002a, t01=0x0004}
0x41b0…41c4               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x002a, t01=0x0022}
0x41c4…41d6               Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x002a, t01=0x0036}
0x41d6…41ea               Head {h00=0x0010, h01=0x0050, text=»LOA:30 EQU *«, t00=0x002a, t01=0x0048}
0x41ea…41f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x005c}
0x41f6…4200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0068}
0x4200…4214               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x002a, t01=0x0072}
0x4214…421e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0086}
0x421e…4228               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0090}
0x4228…4240               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002a, t01=0x009a}
0x4240…424a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00b2}
0x424a…426e               Head {h00=0x0020, h01=0x0050, text=»*  GET DWT VOL NAME ADDRESS «, t00=0x002a, t01=0x00bc}
0x426e…4278               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e0}
0x4278…429c               Head {h00=0x0020, h01=0x0050, text=» CF A5,VOLADR ADDRESS TO A2 «, t00=0x002a, t01=0x00ea}
0x429c…42a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x010e}
0x42a6…42c2               Head {h00=0x0018, h01=0x0050, text=»*  STORE NAME IN DWT«, t00=0x002a, t01=0x0118}
0x42c2…42cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0134}
0x42cc…42de               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x002a, t01=0x013e}
0x42de…42fa               Head {h00=0x0018, h01=0x0050, text=»LOA:40 LD A4,BUF,A1 «, t00=0x002a, t01=0x0150}
0x42fa…430c               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x002a, t01=0x016c}
0x430c…431e               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x002a, t01=0x017e}
0x431e…4334               Head {h00=0x0012, h01=0x0050, text=» RF(Z) LOA:50 «, t00=0x002a, t01=0x0190}
0x4334…4346               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x002b, t01=0x0016}
0x4346…4358               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x002b, t01=0x0028}
0x4358…436a               Head {h00=0x000e, h01=0x0050, text=» RB LOA:40«, t00=0x002b, t01=0x003a}
0x436a…437e               Head {h00=0x0010, h01=0x0050, text=»LOA:50 EQU *«, t00=0x002b, t01=0x004c}
0x437e…43a2               Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTOR+1,A6 GET ORDER «, t00=0x002b, t01=0x0060}
0x43a2…43b6               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x002b, t01=0x0084}
0x43b6…43e0               Head {h00=0x0026, h01=0x0050, text=» RB(Z) FD:075 JUMP IF TEST STATUS «, t00=0x002b, t01=0x0098}
0x43e0…43ec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00c2}
0x43ec…43fe               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002b, t01=0x00ce}
0x43fe…4408               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e0}
0x4408…442a               Head {h00=0x001e, h01=0x0050, text=»* DATA SET OPENING WANTED?«, t00=0x002b, t01=0x00ea}
0x442a…4434               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x010c}
0x4434…445a               Head {h00=0x0022, h01=0x0050, text=» ANK A1,/2 A1:  TOSS=6, IBM=8 «, t00=0x002b, t01=0x0116}
0x445a…447c               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOA:70 TOSS LABEL «, t00=0x002b, t01=0x013c}
0x447c…449c               Head {h00=0x001c, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER «, t00=0x002b, t01=0x015e}
0x449c…44b2               Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2600 «, t00=0x002b, t01=0x017e}
0x44b2…44d2 (44, 0, 398)  Head {h00=0x001c, h01=0x0050, text=» RF(E) LOA:70 LOCK ORDER«, t00=0x002c, t01=0x0004}
0x44d2…44dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0024}
0x44dc…44fa               Head {h00=0x001a, h01=0x0050, text=»*  READ DATA SET LABEL«, t00=0x002c, t01=0x002e}
0x44fa…4504               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004c}
0x4504…4526               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW,A8 SECTOR NO «, t00=0x002c, t01=0x0056}
0x4526…4538               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x002c, t01=0x0078}
0x4538…455c               Head {h00=0x0020, h01=0x0050, text=» ABL(N) FD:DIS REQUEST ERROR«, t00=0x002c, t01=0x008a}
0x455c…456e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x002c, t01=0x00ae}
0x456e…4592               Head {h00=0x0020, h01=0x0050, text=» ABL(P) FD:DIS REQUEST ERROR«, t00=0x002c, t01=0x00c0}
0x4592…45a4               Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x002c, t01=0x00e4}
0x45a4…45ba               Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x002c, t01=0x00f6}
0x45ba…45d4               Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x002c, t01=0x010c}
0x45d4…45e8               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x002c, t01=0x0126}
0x45e8…45fe               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002c, t01=0x013a}
0x45fe…461c               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x002c, t01=0x0150}
0x461c…4640               Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x002c, t01=0x016e}
0x4640…4662 (45, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x002d, t01=0x0004}
0x4662…4698               Head {h00=0x0032, h01=0x0050, text=» ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL«, t00=0x002d, t01=0x0026}
0x4698…46ac               Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x002d, t01=0x005c}
0x46ac…46c0               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x002d, t01=0x0070}
0x46c0…46cc               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002d, t01=0x0084}
0x46cc…46fa               Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW,A8 DATA SET LABEL SECTOR «, t00=0x002d, t01=0x0090}
0x46fa…4710               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x002d, t01=0x00be}
0x4710…4730               Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x002d, t01=0x00d4}
0x4730…4750               Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x002d, t01=0x00f4}
0x4750…4782               Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x002d, t01=0x0114}
0x4782…4798               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002d, t01=0x0146}
0x4798…47c0               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x002d, t01=0x015c}
0x47c0…47d6               Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x002d, t01=0x0184}
0x47d6…47ec               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002e, t01=0x000a}
0x47ec…4800               Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x002e, t01=0x0020}
0x4800…4824               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x002e, t01=0x0034}
0x4824…483a               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002e, t01=0x0058}
0x483a…4850               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x002e, t01=0x006e}
0x4850…4878               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x002e, t01=0x0084}
0x4878…489c               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x002e, t01=0x00ac}
0x489c…48b2               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002e, t01=0x00d0}
0x48b2…48d0               Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x002e, t01=0x00e6}
0x48d0…48e6               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x002e, t01=0x0104}
0x48e6…490e               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x002e, t01=0x011a}
0x490e…4918               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0142}
0x4918…492c               Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x002e, t01=0x014c}
0x492c…4938               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0160}
0x4938…4950               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x002e, t01=0x016c}
0x4950…4976               Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x002e, t01=0x0184}
0x4976…49a0               Head {h00=0x0026, h01=0x0050, text=»LOA:75 LD A3,DWTRCW,A6 RETURN CODE«, t00=0x002f, t01=0x001a}
0x49a0…49b8               Head {h00=0x0014, h01=0x0050, text=»LOA:80 ABL FD:RC«, t00=0x002f, t01=0x0044}
0x49b8…49c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x005c}
0x49c2…49d6               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x002f, t01=0x0066}
0x49d6…49e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007a}
0x49e0…49ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0084}
0x49ea…4a02               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002f, t01=0x008e}
0x4a02…4a0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a6}
0x4a0c…4a26               Head {h00=0x0016, h01=0x0050, text=»*  ERROR , UNLOCK «, t00=0x002f, t01=0x00b0}
0x4a26…4a30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ca}
0x4a30…4a44               Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x002f, t01=0x00d4}
0x4a44…4a56               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x002f, t01=0x00e8}
0x4a56…4a78               Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x002f, t01=0x00fa}
0x4a78…4a92               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x002f, t01=0x011c}
0x4a92…4aa8               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002f, t01=0x0136}
0x4aa8…4aba               Head {h00=0x000e, h01=0x0050, text=» RB LOA:75«, t00=0x002f, t01=0x014c}
0x4aba…4ac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x015e}
0x4ac4…4b02               Head {h00=0x003a, h01=0x0050, text=»*---------------------------------------------------- «, t00=0x002f, t01=0x0168}
0x4b02…4b20               Head {h00=0x001a, h01=0x0050, text=»*   LD:RC  SUBROUTINE «, t00=0x0030, t01=0x0016}
0x4b20…4b2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0034}
0x4b2a…4b48               Head {h00=0x001a, h01=0x0050, text=»LD:RC ORS A3,DWTRCW,A6«, t00=0x0030, t01=0x003e}
0x4b48…4b6a               Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/2007 FATAL ERROR«, t00=0x0030, t01=0x005c}
0x4b6a…4b80               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x0030, t01=0x007e}
0x4b80…4baa               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0030, t01=0x0094}
0x4baa…4bba               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0030, t01=0x00be}
0x4bba…4bc6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00ce}
0x4bc6…4bda               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0030, t01=0x00da}
0x4bda…4be4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00ee}
0x4be4…4bf6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00f8}
0x4bf6…4c08               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x010a}
0x4c08…4c1a               Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0030, t01=0x011c}
0x4c1a…4c2c               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x012e}
0x4c2c…4c3e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x0140}
0x4c3e…4c48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0152}
0x4c48…4c5c               Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0030, t01=0x015c}
0x4c5c…4c6e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0030, t01=0x0170}
0x4c6e…4c78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0182}
0x4c78…4c94               Head {h00=0x0018, h01=0x0050, text=»*    DATA SET OPEN? «, t00=0x0030, t01=0x018c}
0x4c94…4c9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0018}
0x4c9e…4cc0               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0031, t01=0x0022}
0x4cc0…4cd6               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0031, t01=0x0044}
0x4cd6…4cf4               Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0031, t01=0x005a}
0x4cf4…4d2c               Head {h00=0x0034, h01=0x0050, text=» ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0031, t01=0x0078}
0x4d2c…4d36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00b0}
0x4d36…4d66               Head {h00=0x002c, h01=0x0050, text=»*  READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0031, t01=0x00ba}
0x4d66…4d70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ea}
0x4d70…4d94               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0031, t01=0x00f4}
0x4d94…4dbe               Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0031, t01=0x0118}
0x4dbe…4de6               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0031, t01=0x0142}
0x4de6…4df2               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0031, t01=0x016a}
0x4df2…4dfc               Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0031, t01=0x0176}
0x4dfc…4e24               Head {h00=0x0024, h01=0x0050, text=»*------------------------------ «, t00=0x0031, t01=0x0180}
0x4e24…4e64               Head {h00=0x003c, h01=0x0050, text=»*  TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0032, t01=0x0018}
0x4e64…4e6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0058}
0x4e6e…4e90               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0032, t01=0x0062}
0x4e90…4e9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0084}
0x4e9a…4eb6               Head {h00=0x0018, h01=0x0050, text=»*  DIVIDE EOD BY 26 «, t00=0x0032, t01=0x008e}
0x4eb6…4ec0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00aa}
0x4ec0…4ed2               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0032, t01=0x00b4}
0x4ed2…4eea               Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0032, t01=0x00c6}
0x4eea…4f00               Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0032, t01=0x00de}
0x4f00…4f12               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0032, t01=0x00f4}
0x4f12…4f24               Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0032, t01=0x0106}
0x4f24…4f3c               Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0032, t01=0x0118}
0x4f3c…4f46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0130}
0x4f46…4f66               Head {h00=0x001c, h01=0x0050, text=»*   A1 = BINARY TRACK NO«, t00=0x0032, t01=0x013a}
0x4f66…4f94               Head {h00=0x002a, h01=0x0050, text=»*   A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0032, t01=0x015a}
0x4f94…4f9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0188}
0x4f9e…4fca (51, 0, 400)  Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0033, t01=0x0004}
0x4fca…4ff6               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0033, t01=0x0030}
0x4ff6…5008               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0033, t01=0x005c}
0x5008…501a               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x006e}
0x501a…5036               Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0033, t01=0x0080}
0x5036…5058               Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0033, t01=0x009c}
0x5058…5070               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0033, t01=0x00be}
0x5070…509c               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0033, t01=0x00d6}
0x509c…50ae               Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0033, t01=0x0102}
0x50ae…50d0               Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0033, t01=0x0114}
0x50d0…50ee               Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x0033, t01=0x0136}
0x50ee…50f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0154}
0x50f8…5118               Head {h00=0x001c, h01=0x0050, text=»*  WRITE DATA SET LABEL «, t00=0x0033, t01=0x015e}
0x5118…5122               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x017e}
0x5122…5146               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0033, t01=0x0188}
0x5146…5166               Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0034, t01=0x001c}
0x5166…5192               Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0034, t01=0x003c}
0x5192…51ba               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0034, t01=0x0068}
0x51ba…51d0               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0034, t01=0x0090}
0x51d0…51f2               Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0034, t01=0x00a6}
0x51f2…51fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00c8}
0x51fc…5210               Head {h00=0x0010, h01=0x0050, text=»*    UNLOCK «, t00=0x0034, t01=0x00d2}
0x5210…521a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e6}
0x521a…5226               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00f0}
0x5226…523a               Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0034, t01=0x00fc}
0x523a…5254               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0034, t01=0x0110}
0x5254…526a               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x012a}
0x526a…5284               Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0034, t01=0x0140}
0x5284…5296               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x015a}
0x5296…52c6               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED«, t00=0x0034, t01=0x016c}
0x52c6…52e8               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 INDEX MASK«, t00=0x0035, t01=0x000c}
0x52e8…5318               Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0035, t01=0x002e}
0x5318…532c               Head {h00=0x0010, h01=0x0050, text=»UNL:80 EQU *«, t00=0x0035, t01=0x005e}
0x532c…5346               Head {h00=0x0016, h01=0x0050, text=» RB LOA:75 END:IO «, t00=0x0035, t01=0x0072}
0x5346…535e               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0035, t01=0x008c}
0x535e…5368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a4}
0x5368…538c               Head {h00=0x0020, h01=0x0050, text=»*   UNLOAD RETURN CODE CHECK«, t00=0x0035, t01=0x00ae}
0x538c…5396               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d2}
0x5396…53b6               Head {h00=0x001c, h01=0x0050, text=»UNL:RC ORS A3,DWTRCW,A6 «, t00=0x0035, t01=0x00dc}
0x53b6…53d6               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/7 FATAL ERROR? «, t00=0x0035, t01=0x00fc}
0x53d6…53f2               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) UNL:80 ENDIO«, t00=0x0035, t01=0x011c}
0x53f2…5402               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0035, t01=0x0138}
0x5402…540e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0148}
0x540e…5420               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0035, t01=0x0154}
0x5420…5434               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0035, t01=0x0166}
0x5434…543e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x017a}
0x543e…545a               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0035, t01=0x0184}
0x545a…5476               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0036, t01=0x0010}
0x5476…5492               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0036, t01=0x002c}
0x5492…549c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0048}
0x549c…54b0               Head {h00=0x0010, h01=0x0050, text=»SQREAD EQU *«, t00=0x0036, t01=0x0052}
0x54b0…54de               Head {h00=0x002a, h01=0x0050, text=» CF A5,DSOPCH GET EOD AND EOD ADDRESS «, t00=0x0036, t01=0x0066}
0x54de…54f4               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0036, t01=0x0094}
0x54f4…551a               Head {h00=0x0022, h01=0x0050, text=»SQR:05 ABL(Z) DISIOE NOT OPEN «, t00=0x0036, t01=0x00aa}
0x551a…554c               Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0036, t01=0x00d0}
0x554c…5564               Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0036, t01=0x0102}
0x5564…557c               Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0036, t01=0x011a}
0x557c…55a6               Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBCW,A8 STORE CRN+1 IN ECB«, t00=0x0036, t01=0x0132}
0x55a6…55b8               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0036, t01=0x015c}
0x55b8…55da               Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0036, t01=0x016e}
0x55da…55f0               Head {h00=0x0012, h01=0x0050, text=» CF A5,BIO:RE «, t00=0x0036, t01=0x0190}
0x55f0…5614               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0037, t01=0x0016}
0x5614…564a               Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0037, t01=0x003a}
0x564a…5676               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0037, t01=0x0070}
0x5676…569e               Head {h00=0x0024, h01=0x0050, text=» LD A7,ECBRL,A8 REQUESTED LENGTH«, t00=0x0037, t01=0x009c}
0x569e…56c6               Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0037, t01=0x00c4}
0x56c6…56dc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0037, t01=0x00ec}
0x56dc…56f0               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0037, t01=0x0102}
0x56f0…570e               Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x0037, t01=0x0116}
0x570e…5718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0134}
0x5718…5730               Head {h00=0x0014, h01=0x0050, text=»*    END OF DATA«, t00=0x0037, t01=0x013e}
0x5730…573a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0156}
0x573a…5762               Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x0037, t01=0x0160}
0x5762…5774               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0037, t01=0x0188}
0x5774…5788               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0038, t01=0x000a}
0x5788…5792               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x001e}
0x5792…57ae               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x0028}
0x57ae…57ca               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x0038, t01=0x0044}
0x57ca…57e6               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x0060}
0x57e6…57f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007c}
0x57f0…5804               Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0038, t01=0x0086}
0x5804…5822               Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0038, t01=0x009a}
0x5822…5844               Head {h00=0x001e, h01=0x0050, text=» ADK A7,0 EOD-NO (SET CR) «, t00=0x0038, t01=0x00b8}
0x5844…5862               Head {h00=0x001a, h01=0x0050, text=» RB(Z) SQR:05 NOT OPEN«, t00=0x0038, t01=0x00da}
0x5862…586c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00f8}
0x586c…588e               Head {h00=0x001e, h01=0x0050, text=»*   CHECK IF END OF EXTENT«, t00=0x0038, t01=0x0102}
0x588e…5898               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0124}
0x5898…58ae               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0038, t01=0x012e}
0x58ae…58d8               Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x0038, t01=0x0144}
0x58d8…5906               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD IN ECB C. W.«, t00=0x0038, t01=0x016e}
0x5906…591a               Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x0039, t01=0x000c}
0x591a…5938               Head {h00=0x001a, h01=0x0050, text=» RF(G) SQW:20 YES,EOE «, t00=0x0039, t01=0x0020}
0x5938…594a               Head {h00=0x000e, h01=0x0050, text=» CF A5,BIO«, t00=0x0039, t01=0x003e}
0x594a…595e               Head {h00=0x0010, h01=0x0050, text=» LDK A7,128 «, t00=0x0039, t01=0x0050}
0x595e…598e               Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x0039, t01=0x0064}
0x598e…59ac               Head {h00=0x001a, h01=0x0050, text=» ORK A2,5 PHYS. WRITE «, t00=0x0039, t01=0x0094}
0x59ac…59c2               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0039, t01=0x00b2}
0x59c2…59d8               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0039, t01=0x00c8}
0x59d8…59fc               Head {h00=0x0020, h01=0x0050, text=»SQW:10 LDR A1,A3 RETURN CODE«, t00=0x0039, t01=0x00de}
0x59fc…5a0e               Head {h00=0x000e, h01=0x0050, text=» ANK A1,/1«, t00=0x0039, t01=0x0102}
0x5a0e…5a32               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SQW:15 NOT OPERABLE «, t00=0x0039, t01=0x0114}
0x5a32…5a60               Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x0039, t01=0x0138}
0x5a60…5a78               Head {h00=0x0014, h01=0x0050, text=»SQW:15 RF FD:RC «, t00=0x0039, t01=0x0166}
0x5a78…5a82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x017e}
0x5a82…5a8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0188}
0x5a8c…5aa4 (58, 0, 400)  Head {h00=0x0014, h01=0x0050, text=»*  END OF EXTENT«, t00=0x003a, t01=0x0004}
0x5aa4…5acc               Head {h00=0x0024, h01=0x0050, text=»SQW:20 LDKL A1,/400 RETURN CODE «, t00=0x003a, t01=0x001c}
0x5acc…5ade               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003a, t01=0x0044}
0x5ade…5af2               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x003a, t01=0x0056}
0x5af2…5afc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x006a}
0x5afc…5b0e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0074}
0x5b0e…5b20               Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003a, t01=0x0086}
0x5b20…5b32               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0098}
0x5b32…5b3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00aa}
0x5b3c…5b50               Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003a, t01=0x00b4}
0x5b50…5b66               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003a, t01=0x00c8}
0x5b66…5b84               Head {h00=0x001a, h01=0x0050, text=» ADK A7,0 EOD (SET CR)«, t00=0x003a, t01=0x00de}
0x5b84…5bac               Head {h00=0x0024, h01=0x0050, text=» RB(Z) SQR:05 DATA SET NOT OPEN «, t00=0x003a, t01=0x00fc}
0x5bac…5bd0               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x003a, t01=0x0124}
0x5bd0…5be6               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x003a, t01=0x0148}
0x5be6…5bfa               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003a, t01=0x015e}
0x5bfa…5c12               Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x003a, t01=0x0172}
0x5c12…5c2e               Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x003a, t01=0x018a}
0x5c2e…5c44               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003b, t01=0x0016}
0x5c44…5c58               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003b, t01=0x002c}
0x5c58…5c72               Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x003b, t01=0x0040}
0x5c72…5c92               Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x003b, t01=0x005a}
0x5c92…5cb0               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x007a}
0x5cb0…5cc2               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003b, t01=0x0098}
0x5cc2…5cce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00aa}
0x5cce…5ce2               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x003b, t01=0x00b6}
0x5ce2…5cec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ca}
0x5cec…5d06               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x003b, t01=0x00d4}
0x5d06…5d20               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x003b, t01=0x00ee}
0x5d20…5d3a               Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x003b, t01=0x0108}
0x5d3a…5d54               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x003b, t01=0x0122}
0x5d54…5d6e               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x003b, t01=0x013c}
0x5d6e…5d78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0156}
0x5d78…5d82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0160}
0x5d82…5da6               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A2  BIO CONTENTS «, t00=0x003b, t01=0x016a}
0x5da6…5dda               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x003b, t01=0x018e}
0x5dda…5e00               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x003c, t01=0x0032}
0x5e00…5e0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0058}
0x5e0a…5e1e               Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x003c, t01=0x0062}
0x5e1e…5e32               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003c, t01=0x0076}
0x5e32…5e54               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x003c, t01=0x008a}
0x5e54…5e60               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00ac}
0x5e60…5e74               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003c, t01=0x00b8}
0x5e74…5ea0               Head {h00=0x0028, h01=0x0050, text=» CM DWTRW,A6 INDICATOR TO WRITE MODE«, t00=0x003c, t01=0x00cc}
0x5ea0…5eac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00f8}
0x5eac…5ebe               Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x003c, t01=0x0104}
0x5ebe…5ec8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0116}
0x5ec8…5edc               Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x003c, t01=0x0120}
0x5edc…5ef0               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003c, t01=0x0134}
0x5ef0…5f02               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x003c, t01=0x0148}
0x5f02…5f24               Head {h00=0x001e, h01=0x0050, text=» ST A1,DWTRW,A6 READ MODE «, t00=0x003c, t01=0x015a}
0x5f24…5f30               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x017c}
0x5f30…5f44               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003c, t01=0x0188}
0x5f44…5f66               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS  READ«, t00=0x003d, t01=0x000c}
0x5f66…5f72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x002e}
0x5f72…5f86               Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x003d, t01=0x003a}
0x5f86…5f9a               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003d, t01=0x004e}
0x5f9a…5fc0               Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x003d, t01=0x0062}
0x5fc0…5fca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0088}
0x5fca…5fe0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x0092}
0x5fe0…600a               Head {h00=0x0026, h01=0x0050, text=» ORR* A1,A8 GET FIRST WORD OF ECB «, t00=0x003d, t01=0x00a8}
0x600a…6038               Head {h00=0x002a, h01=0x0050, text=» ANKL A1,/F000 KEEP FOUR LEFTMOST BITS«, t00=0x003d, t01=0x00d2}
0x6038…6044               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0100}
0x6044…604e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x010c}
0x604e…6062               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003d, t01=0x0116}
0x6062…6074               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x003d, t01=0x012a}
0x6074…6098               Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x003d, t01=0x013c}
0x6098…60c0               Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x003d, t01=0x0160}
0x60c0…60cc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0188}
0x60cc…60e0 (62, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003e, t01=0x0004}
0x60e0…60ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0018}
0x60ea…60fe               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x003e, t01=0x0022}
0x60fe…6108               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0036}
0x6108…613a               Head {h00=0x002e, h01=0x0050, text=»*  PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x003e, t01=0x0040}
0x613a…6144               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0072}
0x6144…615c               Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x003e, t01=0x007c}
0x615c…616e               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x003e, t01=0x0094}
0x616e…6194               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x003e, t01=0x00a6}
0x6194…61a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x00cc}
0x61a0…61b4               Head {h00=0x0010, h01=0x0050, text=»FD:820 EQU *«, t00=0x003e, t01=0x00d8}
0x61b4…61de               Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x003e, t01=0x00ec}
0x61de…6200               Head {h00=0x001e, h01=0x0050, text=» EX FDCIO,A6 CIO-START KST«, t00=0x003e, t01=0x0116}
0x6200…622c               Head {h00=0x0028, h01=0x0050, text=» RF(3) FD:840 DEVICE ADDRESS UNKNOWN«, t00=0x003e, t01=0x0138}
0x622c…623e               Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x003e, t01=0x0164}
0x623e…6262               Head {h00=0x0020, h01=0x0050, text=»FD:840 LDK A1,1 NOT OPERABLE«, t00=0x003e, t01=0x0176}
0x6262…6274               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003f, t01=0x000a}
0x6274…6288               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x003f, t01=0x001c}
0x6288…6292               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0030}
0x6292…62c0               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x003a}
0x62c0…62ee               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x003f, t01=0x0068}
0x62ee…631c               Head {h00=0x002a, h01=0x0050, text=»*  FD:RC - STORE EFF LEN, END:IO     *«, t00=0x003f, t01=0x0096}
0x631c…634a               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x003f, t01=0x00c4}
0x634a…6378               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x00f2}
0x6378…6382               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0120}
0x6382…63a4               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A3  RETURN CODE«, t00=0x003f, t01=0x012a}
0x63a4…63ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x014c}
0x63ae…63c2               Head {h00=0x0010, h01=0x0050, text=»FD:RC EQU * «, t00=0x003f, t01=0x0156}
0x63c2…63d4               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003f, t01=0x016a}
0x63d4…63de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x017c}
0x63de…6404               Head {h00=0x0022, h01=0x0050, text=»*  PUT EFFECTIVE LENGTH IN ECB«, t00=0x003f, t01=0x0186}
0x6404…640e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x001c}
0x640e…6430               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBRL,A8 REQ LENGTH«, t00=0x0040, t01=0x0026}
0x6430…6452               Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBEL,A8 EFF LENGTH«, t00=0x0040, t01=0x0048}
0x6452…6466               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0040, t01=0x006a}
0x6466…6470               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x007e}
0x6470…6482               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x0088}
0x6482…6494               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0040, t01=0x009a}
0x6494…64a6               Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x0040, t01=0x00ac}
0x64a6…64b8               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0040, t01=0x00be}
0x64b8…64ca               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x00d0}
0x64ca…64d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00e2}
0x64d4…64e8               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0040, t01=0x00ec}
0x64e8…64fe               Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0040, t01=0x0100}
0x64fe…6516               Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0040, t01=0x0116}
0x6516…6520               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x012e}
0x6520…652a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0138}
0x652a…6550               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY FROM RECOVERY ROUTINE«, t00=0x0040, t01=0x0142}
0x6550…655a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0168}
0x655a…656e               Head {h00=0x0010, h01=0x0050, text=»END:05 EQU *«, t00=0x0040, t01=0x0172}
0x656e…6578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0186}
0x6578…6592               Head {h00=0x0016, h01=0x0050, text=»*  ILLEGAL LENGTH «, t00=0x0040, t01=0x0190}
0x6592…659c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x001a}
0x659c…65c0               Head {h00=0x0020, h01=0x0050, text=»END:10 LDK A1,8 RETURN CODE «, t00=0x0041, t01=0x0024}
0x65c0…65d2               Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0041, t01=0x0048}
0x65d2…65e6               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0041, t01=0x005a}
0x65e6…65f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x006e}
0x65f0…660c               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0041, t01=0x0078}
0x660c…6628               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0041, t01=0x0094}
0x6628…6644               Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0041, t01=0x00b0}
0x6644…6660               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0041, t01=0x00cc}
0x6660…667c               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0041, t01=0x00e8}
0x667c…6686               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0104}
0x6686…6698               Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x0041, t01=0x010e}
0x6698…66ae               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0041, t01=0x0120}
0x66ae…66d8               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0041, t01=0x0136}
0x66d8…66e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0160}
0x66e4…66ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x016c}
0x66ee…6704               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0041, t01=0x0176}
0x6704…672a               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0041, t01=0x018c}
0x672a…6736               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0022}
0x6736…6740               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x002e}
0x6740…6764               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0042, t01=0x0038}
0x6764…677c               Head {h00=0x0014, h01=0x0050, text=» RF FDON05  KST «, t00=0x0042, t01=0x005c}
0x677c…6794               Head {h00=0x0014, h01=0x0050, text=»FDON2 EQU *  KST«, t00=0x0042, t01=0x0074}
0x6794…67ae               Head {h00=0x0016, h01=0x0050, text=» IFT CPU852=1  KST«, t00=0x0042, t01=0x008c}
0x67ae…67e0               Head {h00=0x002e, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK KST «, t00=0x0042, t01=0x00a6}
0x67e0…67f2               Head {h00=0x000e, h01=0x0050, text=» XIF   KST«, t00=0x0042, t01=0x00d8}
0x67f2…680c               Head {h00=0x0016, h01=0x0050, text=» IFT CPU852=0  KST«, t00=0x0042, t01=0x00ea}
0x680c…6824               Head {h00=0x0014, h01=0x0050, text=» MSR 8,A15  KST «, t00=0x0042, t01=0x0104}
0x6824…6836               Head {h00=0x000e, h01=0x0050, text=» XIF   KST«, t00=0x0042, t01=0x011c}
0x6836…6852               Head {h00=0x0018, h01=0x0050, text=» LDKL A6,DWFD02  KST«, t00=0x0042, t01=0x012e}
0x6852…685c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x014a}
0x685c…6870               Head {h00=0x0010, h01=0x0050, text=»FDON05 EQU *«, t00=0x0042, t01=0x0154}
0x6870…6892               Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0042, t01=0x0168}
0x6892…68aa               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0042, t01=0x018a}
0x68aa…68cc               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x0043, t01=0x0012}
0x68cc…68d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0034}
0x68d6…68f2               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0043, t01=0x003e}
0x68f2…6922               Head {h00=0x002c, h01=0x0050, text=» LD A2,INIFLG CHECK INITIALIZATION FLAG «, t00=0x0043, t01=0x005a}
0x6922…6942               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON07 POWER UP? «, t00=0x0043, t01=0x008a}
0x6942…6980               Head {h00=0x003a, h01=0x0050, text=» LD A2,SCTPLD GET FILE CODE OF PROGRAM LOADING DEVICE «, t00=0x0043, t01=0x00aa}
0x6980…6994               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F8 «, t00=0x0043, t01=0x00e8}
0x6994…69bc               Head {h00=0x0024, h01=0x0050, text=» RF(N) FDON07 NOT FLEXIBLE DISC?«, t00=0x0043, t01=0x00fc}
0x69bc…69ce               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0043, t01=0x0124}
0x69ce…6a00               Head {h00=0x002e, h01=0x0050, text=» CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION «, t00=0x0043, t01=0x0136}
0x6a00…6a2c               Head {h00=0x0028, h01=0x0050, text=» CF A5,FDIX GET DRIVE BIT INDICATOR «, t00=0x0043, t01=0x0168}
0x6a2c…6a5a (68, 0, 400)  Head {h00=0x002a, h01=0x0050, text=» ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED«, t00=0x0044, t01=0x0004}
0x6a5a…6a64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0032}
0x6a64…6a78               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0044, t01=0x003c}
0x6a78…6a82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0050}
0x6a82…6a8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x005a}
0x6a8c…6a9e               Head {h00=0x000e, h01=0x0050, text=» C1R A3,A3«, t00=0x0044, t01=0x0064}
0x6a9e…6acc               Head {h00=0x002a, h01=0x0050, text=» ANS A3,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0044, t01=0x0076}
0x6acc…6ad6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00a4}
0x6ad6…6b04               Head {h00=0x002a, h01=0x0050, text=»* READ VOLUME NAME (A2 = 0 FROM FDIX) «, t00=0x0044, t01=0x00ae}
0x6b04…6b0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00dc}
0x6b0e…6b20               Head {h00=0x000e, h01=0x0050, text=» LDK A3,8 «, t00=0x0044, t01=0x00e6}
0x6b20…6b34               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0044, t01=0x00f8}
0x6b34…6b4a               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0044, t01=0x010c}
0x6b4a…6b60               Head {h00=0x0012, h01=0x0050, text=» LD A3,SCTPLD «, t00=0x0044, t01=0x0122}
0x6b60…6b94               Head {h00=0x0030, h01=0x0050, text=» CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT«, t00=0x0044, t01=0x0138}
0x6b94…6ba6               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0044, t01=0x016c}
0x6ba6…6bb8               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x0044, t01=0x017e}
0x6bb8…6bc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0190}
0x6bc2…6be4               Head {h00=0x001e, h01=0x0050, text=»* MOVE VOLUME NAME TO DWT «, t00=0x0045, t01=0x000a}
0x6be4…6bee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x002c}
0x6bee…6c0a               Head {h00=0x0018, h01=0x0050, text=»FDON06 LD A4,BUF,A1 «, t00=0x0045, t01=0x0036}
0x6c0a…6c1c               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0045, t01=0x0052}
0x6c1c…6c2e               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0045, t01=0x0064}
0x6c2e…6c40               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0045, t01=0x0076}
0x6c40…6c52               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0045, t01=0x0088}
0x6c52…6c68               Head {h00=0x0012, h01=0x0050, text=» RB(P) FDON06 «, t00=0x0045, t01=0x009a}
0x6c68…6c72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00b0}
0x6c72…6c86               Head {h00=0x0010, h01=0x0050, text=»FDON07 EQU *«, t00=0x0045, t01=0x00ba}
0x6c86…6c92               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x00ce}
0x6c92…6c9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00da}
0x6c9c…6cb0               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0045, t01=0x00e4}
0x6cb0…6cba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00f8}
0x6cba…6cee               Head {h00=0x0030, h01=0x0050, text=»*  SAVE DWTST TO DWTST2 IF NOT ALREADY DONE.«, t00=0x0045, t01=0x0102}
0x6cee…6d0c               Head {h00=0x001a, h01=0x0050, text=»*    DWTST IS SET BUSY«, t00=0x0045, t01=0x0136}
0x6d0c…6d16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0154}
0x6d16…6d2e               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST2,A6«, t00=0x0045, t01=0x015e}
0x6d2e…6d40               Head {h00=0x000e, h01=0x0050, text=» CWK A2,-1«, t00=0x0045, t01=0x0176}
0x6d40…6d64               Head {h00=0x0020, h01=0x0050, text=» RF(NE) FDON08 ALREADY SAVED«, t00=0x0045, t01=0x0188}
0x6d64…6d7c               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0046, t01=0x001c}
0x6d7c…6d94               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST2,A6«, t00=0x0046, t01=0x0034}
0x6d94…6db8               Head {h00=0x0020, h01=0x0050, text=»FDON08 CM DWTST,A6 SET BUSY «, t00=0x0046, t01=0x004c}
0x6db8…6dc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0070}
0x6dc2…6dd8               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0046, t01=0x007a}
0x6dd8…6de2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0090}
0x6de2…6dec               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0046, t01=0x009a}
0x6dec…6df6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00a4}
0x6df6…6e34               Head {h00=0x003a, h01=0x0050, text=»*    TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x0046, t01=0x00ae}
0x6e34…6e5a               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x0046, t01=0x00ec}
0x6e5a…6e7c               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x0046, t01=0x0112}
0x6e7c…6e96               Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x0046, t01=0x0134}
0x6e96…6ebe               Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x0046, t01=0x014e}
0x6ebe…6ed2               Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x0046, t01=0x0176}
0x6ed2…6edc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x018a}
0x6edc…6f16 (71, 0, 398)  Head {h00=0x0036, h01=0x0050, text=»*    OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x0047, t01=0x0004}
0x6f16…6f4c               Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x0047, t01=0x003e}
0x6f4c…6f56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0074}
0x6f56…6f80               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x0047, t01=0x007e}
0x6f80…6fa8               Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x0047, t01=0x00a8}
0x6fa8…6fc6               Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x0047, t01=0x00d0}
0x6fc6…6ff2               Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x0047, t01=0x00ee}
0x6ff2…6ffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x011a}
0x6ffc…7010               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0047, t01=0x0124}
0x7010…703a               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x0047, t01=0x0138}
0x703a…7044               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0162}
0x7044…7050               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x016c}
0x7050…705a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0178}
0x705a…7064               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0047, t01=0x0182}
0x7064…706e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x018c}
0x706e…7084               Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0048, t01=0x0008}
0x7084…708e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x001e}
0x708e…70a6               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0048, t01=0x0028}
0x70a6…70c8               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0048, t01=0x0040}
0x70c8…70de               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0048, t01=0x0062}
0x70de…7104               Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0048, t01=0x0078}
0x7104…7116               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0048, t01=0x009e}
0x7116…7132               Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0048, t01=0x00b0}
0x7132…7144               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0048, t01=0x00cc}
0x7144…715e               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0048, t01=0x00de}
0x715e…7174               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0048, t01=0x00f8}
0x7174…718e               Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0048, t01=0x010e}
0x718e…71a0               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0048, t01=0x0128}
0x71a0…71aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x013a}
0x71aa…71c6               Head {h00=0x0018, h01=0x0050, text=»*   TIME OUT ROUTINE«, t00=0x0048, t01=0x0144}
0x71c6…71d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0160}
0x71d0…71e8               Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0048, t01=0x016a}
0x71e8…71fc               Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0048, t01=0x0182}
0x71fc…7214               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0049, t01=0x0008}
0x7214…7232               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0049, t01=0x0020}
0x7232…723c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x003e}
0x723c…7252               Head {h00=0x0012, h01=0x0050, text=»*  LOCK DOORS «, t00=0x0049, t01=0x0048}
0x7252…725c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x005e}
0x725c…726e               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0049, t01=0x0068}
0x726e…7282               Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0049, t01=0x007a}
0x7282…72a8               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0049, t01=0x008e}
0x72a8…72ba               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0049, t01=0x00b4}
0x72ba…72da               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0049, t01=0x00c6}
0x72da…72f6               Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0049, t01=0x00e6}
0x72f6…7300               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0102}
0x7300…730a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0049, t01=0x010c}
0x730a…7314               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0116}
0x7314…7338               Head {h00=0x0020, h01=0x0050, text=»*  PUT DRIVE NO IN CIO INSTR«, t00=0x0049, t01=0x0120}
0x7338…7342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0144}
0x7342…7364               Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0049, t01=0x014e}
0x7364…7392               Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0049, t01=0x0170}
0x7392…73aa               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x004a, t01=0x000e}
0x73aa…73c0               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x004a, t01=0x0026}
0x73c0…73e2               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x004a, t01=0x003c}
0x73e2…73f4               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x004a, t01=0x005e}
0x73f4…740c               Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x004a, t01=0x0070}
0x740c…7434               Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x004a, t01=0x0088}
0x7434…7448               Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x004a, t01=0x00b0}
0x7448…745a               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004a, t01=0x00c4}
0x745a…7470               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x004a, t01=0x00d6}
0x7470…7486               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x004a, t01=0x00ec}
0x7486…7490               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0102}
0x7490…74a6               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x004a, t01=0x010c}
0x74a6…74b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0122}
0x74b0…74f8               Head {h00=0x0044, h01=0x0050, text=»*    RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x004a, t01=0x012c}
0x74f8…7520               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x004a, t01=0x0174}
0x7520…7546               Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x004b, t01=0x000c}
0x7546…7566               Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x004b, t01=0x0032}
0x7566…7570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0052}
0x7570…7598               Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x004b, t01=0x005c}
0x7598…75cc               Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x004b, t01=0x0084}
0x75cc…75ec               Head {h00=0x001c, h01=0x0050, text=»*   BEFORE THE POWER OFF«, t00=0x004b, t01=0x00b8}
0x75ec…75f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x00d8}
0x75f8…7602               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e4}
0x7602…760c               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x004b, t01=0x00ee}
0x760c…7616               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00f8}
0x7616…762e               Head {h00=0x0014, h01=0x0050, text=»*  ANY REQUEST? «, t00=0x004b, t01=0x0102}
0x762e…7638               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x011a}
0x7638…766a               Head {h00=0x002e, h01=0x0050, text=»*  RESTORE STATUS SAVED IN DWST2 TO DWTST.«, t00=0x004b, t01=0x0124}
0x766a…7686               Head {h00=0x0018, h01=0x0050, text=»*   SET DWTST2 TO -1«, t00=0x004b, t01=0x0156}
0x7686…76ac               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST2,A6 SAVED STATUS «, t00=0x004b, t01=0x0172}
0x76ac…76da               Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTST,A6 PUT IN CUURENT STATUS «, t00=0x004c, t01=0x0008}
0x76da…76ee               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x004c, t01=0x0036}
0x76ee…771a               Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTST2,A6 INDICATE NOT SAVED «, t00=0x004c, t01=0x004a}
0x771a…773e               Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x004c, t01=0x0076}
0x773e…7752               Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x004c, t01=0x009a}
0x7752…776a               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x004c, t01=0x00ae}
0x776a…779e               Head {h00=0x0030, h01=0x0050, text=» ABL(N) END:05 NO REQUEST, RETURN VIA TENDIO«, t00=0x004c, t01=0x00c6}
0x779e…77a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00fa}
0x77a8…77c0               Head {h00=0x0014, h01=0x0050, text=»*  RETRY REQUEST«, t00=0x004c, t01=0x0104}
0x77c0…77ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x011c}
0x77ca…77ee               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x004c, t01=0x0126}
0x77ee…7806               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x004c, t01=0x014a}
0x7806…7820               Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x004c, t01=0x0162}
0x7820…7844               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x004c, t01=0x017c}
0x7844…7860               Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x004d, t01=0x0010}
0x7860…7874               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x004d, t01=0x002c}
0x7874…787e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0040}
0x787e…789c               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x004d, t01=0x004a}
0x789c…78ba               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x004d, t01=0x0068}
0x78ba…78d8               Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x004d, t01=0x0086}
0x78d8…78f6               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x004d, t01=0x00a4}
0x78f6…7914               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x004d, t01=0x00c2}
0x7914…791e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00e0}
0x791e…7930               Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x004d, t01=0x00ea}
0x7930…7958               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x004d, t01=0x00fc}
0x7958…797e               Head {h00=0x0022, h01=0x0050, text=»******************** =1 START «, t00=0x004d, t01=0x0124}
0x797e…7994               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x004d, t01=0x014a}
0x7994…79c2               Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x004d, t01=0x0160}
0x79c2…79ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x018e}
0x79ce…79d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x000a}
0x79d8…79ee               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004e, t01=0x0014}
0x79ee…7a14               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x004e, t01=0x002a}
0x7a14…7a20               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0050}
0x7a20…7a2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x005c}
0x7a2a…7a4e               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x004e, t01=0x0066}
0x7a4e…7a64               Head {h00=0x0012, h01=0x0050, text=» RF IH000  KST«, t00=0x004e, t01=0x008a}
0x7a64…7a7c               Head {h00=0x0014, h01=0x0050, text=»IHFD2 EQU *  KST«, t00=0x004e, t01=0x00a0}
0x7a7c…7a96               Head {h00=0x0016, h01=0x0050, text=» ST P,INTSAV  KST «, t00=0x004e, t01=0x00b8}
0x7a96…7ab0               Head {h00=0x0016, h01=0x0050, text=» IFT CPU852=1  KST«, t00=0x004e, t01=0x00d2}
0x7ab0…7ae2               Head {h00=0x002e, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK KST «, t00=0x004e, t01=0x00ec}
0x7ae2…7af4               Head {h00=0x000e, h01=0x0050, text=» XIF   KST«, t00=0x004e, t01=0x011e}
0x7af4…7b0e               Head {h00=0x0016, h01=0x0050, text=» IFT CPU852=0  KST«, t00=0x004e, t01=0x0130}
0x7b0e…7b26               Head {h00=0x0014, h01=0x0050, text=» MSR 8,A15  KST «, t00=0x004e, t01=0x014a}
0x7b26…7b38               Head {h00=0x000e, h01=0x0050, text=» XIF   KST«, t00=0x004e, t01=0x0162}
0x7b38…7b54               Head {h00=0x0018, h01=0x0050, text=» LDKL A6,DWFD02  KST«, t00=0x004e, t01=0x0174}
0x7b54…7b6c               Head {h00=0x0014, h01=0x0050, text=»IH000 EQU *  KST«, t00=0x004e, t01=0x0190}
0x7b6c…7b80               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x004f, t01=0x0018}
0x7b80…7b8c               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x004f, t01=0x002c}
0x7b8c…7bb6               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x004f, t01=0x0038}
0x7bb6…7bdc               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x004f, t01=0x0062}
0x7bdc…7bf6               Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x004f, t01=0x0088}
0x7bf6…7c0a               Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x004f, t01=0x00a2}
0x7c0a…7c24               Head {h00=0x0016, h01=0x0050, text=» EX FDSST,A6  KST «, t00=0x004f, t01=0x00b6}
0x7c24…7c4a               Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x004f, t01=0x00d0}
0x7c4a…7c76               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x004f, t01=0x00f6}
0x7c76…7c90               Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x004f, t01=0x0122}
0x7c90…7c9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x013c}
0x7c9a…7cac               Head {h00=0x000e, h01=0x0050, text=»    DRFD01«, t00=0x004f, t01=0x0146}
0x7cac…7cb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0158}
0x7cb6…7cc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0162}
0x7cc0…7cd4               Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x004f, t01=0x016c}
0x7cd4…7cfc               Head {h00=0x0024, h01=0x0050, text=» LCR A3,A1 ONE BYTE FROM BUFFER «, t00=0x004f, t01=0x0180}
0x7cfc…7d1c               Head {h00=0x001c, h01=0x0050, text=» ECR A3,A3 LEFT POSITION«, t00=0x0050, t01=0x0018}
0x7d1c…7d46               Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A1 RIGHT BYTE FROM BUFFER«, t00=0x0050, t01=0x0038}
0x7d46…7d64               Head {h00=0x001a, h01=0x0050, text=» EX FDOTR,A6 WRITE KST«, t00=0x0050, t01=0x0062}
0x7d64…7d7a               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0050, t01=0x0080}
0x7d7a…7da2               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0050, t01=0x0096}
0x7da2…7db4               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0050, t01=0x00be}
0x7db4…7dc8               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x0050, t01=0x00d0}
0x7dc8…7dea               Head {h00=0x001e, h01=0x0050, text=» EX FDHLT,A6 CIO-HALT KST «, t00=0x0050, t01=0x00e4}
0x7dea…7e0c               Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x0050, t01=0x0106}
0x7e0c…7e16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0128}
0x7e16…7e2a               Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x0050, t01=0x0132}
0x7e2a…7e48               Head {h00=0x001a, h01=0x0050, text=» EX FDINR,A6 READ KST «, t00=0x0050, t01=0x0146}
0x7e48…7e5e               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0050, t01=0x0164}
0x7e5e…7e86               Head {h00=0x0024, h01=0x0050, text=» SC A3,1,A1 RIGHT BYTE TO BUFFER«, t00=0x0050, t01=0x017a}
0x7e86…7e98               Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x0051, t01=0x0012}
0x7e98…7ebe               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 LEFT BYTE TO BUFFER«, t00=0x0051, t01=0x0024}
0x7ebe…7ee6               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0051, t01=0x004a}
0x7ee6…7ef8               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0051, t01=0x0072}
0x7ef8…7f0c               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x0051, t01=0x0084}
0x7f0c…7f2e               Head {h00=0x001e, h01=0x0050, text=» EX FDHLT,A6 CIO-HALT KST «, t00=0x0051, t01=0x0098}
0x7f2e…7f4e               Head {h00=0x001c, h01=0x0050, text=» EX FDSST,A6 STATUS KST «, t00=0x0051, t01=0x00ba}
0x7f4e…7f66               Head {h00=0x0014, h01=0x0050, text=» RB(NA) *-2  =2 «, t00=0x0051, t01=0x00da}
0x7f66…7f7e               Head {h00=0x0014, h01=0x0050, text=»IH:000 EQU *  =1«, t00=0x0051, t01=0x00f2}
0x7f7e…7f8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x010a}
0x7f8a…7f94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0116}
0x7f94…7fa6               Head {h00=0x000e, h01=0x0050, text=»    DRFD01«, t00=0x0051, t01=0x0120}
0x7fa6…7fb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0132}
0x7fb0…7fba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x013c}
0x7fba…7fde               Head {h00=0x0020, h01=0x0050, text=»******************** =1 END «, t00=0x0051, t01=0x0146}
0x7fde…7ff6               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN=0  =2 «, t00=0x0051, t01=0x016a}
0x7ff6…8016               Head {h00=0x001c, h01=0x0050, text=» EX FDSST,A6 STATUS KST «, t00=0x0051, t01=0x0182}
0x8016…8028               Head {h00=0x000e, h01=0x0050, text=» XIF   =2 «, t00=0x0052, t01=0x0012}
0x8028…8054               Head {h00=0x0028, h01=0x0050, text=»*     LDKL A6,DWFD01 DWT ADRESS KST «, t00=0x0052, t01=0x0024}
0x8054…8078               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0052, t01=0x0050}
0x8078…809e               Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0052, t01=0x0074}
0x809e…80b0               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0052, t01=0x009a}
0x80b0…80d4               Head {h00=0x0020, h01=0x0050, text=» RF(N) FDRE READY INTERRUPT «, t00=0x0052, t01=0x00ac}
0x80d4…80e6               Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0052, t01=0x00d0}
0x80e6…8106               Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY? «, t00=0x0052, t01=0x00e2}
0x8106…811e               Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0052, t01=0x0102}
0x811e…8144               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0052, t01=0x011a}
0x8144…8156               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0052, t01=0x0140}
0x8156…816c               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0405«, t00=0x0052, t01=0x0152}
0x816c…8190               Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0052, t01=0x0168}
0x8190…81a2               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/4«, t00=0x0052, t01=0x018c}
0x81a2…81be               Head {h00=0x0018, h01=0x0050, text=» ORR A3,A1 CRC ERROR«, t00=0x0053, t01=0x000e}
0x81be…81d2               Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0053, t01=0x002a}
0x81d2…81dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x003e}
0x81dc…81ee               Head {h00=0x000e, h01=0x0050, text=»    DRFD01«, t00=0x0053, t01=0x0048}
0x81ee…81f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x005a}
0x81f8…8222               Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0053, t01=0x0064}
0x8222…822c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x008e}
0x822c…8242               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0053, t01=0x0098}
0x8242…8256               Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0053, t01=0x00ae}
0x8256…8268               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0053, t01=0x00c2}
0x8268…828e               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0053, t01=0x00d4}
0x828e…82a0               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0053, t01=0x00fa}
0x82a0…82bc               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x0053, t01=0x010c}
0x82bc…82d8               Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x0053, t01=0x0128}
0x82d8…82ea               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0053, t01=0x0144}
0x82ea…8302               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0053, t01=0x0156}
0x8302…8314               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0053, t01=0x016e}
0x8314…8330               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x0053, t01=0x0180}
0x8330…834a               Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x0054, t01=0x000c}
0x834a…835c               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0054, t01=0x0026}
0x835c…8368               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0038}
0x8368…837a               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0054, t01=0x0044}
0x837a…8394               Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x0054, t01=0x0056}
0x8394…83ae               Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x0054, t01=0x0070}
0x83ae…83c0               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0054, t01=0x008a}
0x83c0…83da               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x0054, t01=0x009c}
0x83da…83f4               Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x0054, t01=0x00b6}
0x83f4…8406               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0054, t01=0x00d0}
0x8406…841a               Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x0054, t01=0x00e2}
0x841a…8430               Head {h00=0x0012, h01=0x0050, text=» IFT CHAN=1 =1«, t00=0x0054, t01=0x00f6}
0x8430…8440               Head {h00=0x000c, h01=0x0050, text=» INH  =1«, t00=0x0054, t01=0x010c}
0x8440…8450               Head {h00=0x000c, h01=0x0050, text=» XIF  =1«, t00=0x0054, t01=0x011c}
0x8450…8460               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x012c}
0x8460…8474               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0054, t01=0x013c}
0x8474…847e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0150}
0x847e…849a               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0054, t01=0x015a}
0x849a…84b6               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0054, t01=0x0176}
0x84b6…84d2 (85, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»*  READY INTERRUPT *«, t00=0x0055, t01=0x0004}
0x84d2…84ee               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0055, t01=0x0020}
0x84ee…850a               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0055, t01=0x003c}
0x850a…8514               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0058}
0x8514…8526               Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x0055, t01=0x0062}
0x8526…853e               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0055, t01=0x0074}
0x853e…856e               Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE «, t00=0x0055, t01=0x008c}
0x856e…8586               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0055, t01=0x00bc}
0x8586…85a4               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0055, t01=0x00d4}
0x85a4…85b6               Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x0055, t01=0x00f2}
0x85b6…85ca               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0055, t01=0x0104}
0x85ca…85d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0118}
0x85d4…8608               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0055, t01=0x0122}
0x8608…863c               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0055, t01=0x0156}
0x863c…8670               Head {h00=0x0030, h01=0x0050, text=»*    S U B R O U T I N E S                * «, t00=0x0055, t01=0x018a}
0x8670…86a4               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0056, t01=0x002e}
0x86a4…86d8               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0056, t01=0x0062}
0x86d8…86e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0096}
0x86e2…86f2               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0056, t01=0x00a0}
0x86f2…8702               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0056, t01=0x00b0}
0x8702…8712               Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x0056, t01=0x00c0}
0x8712…8722               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0056, t01=0x00d0}
0x8722…8732               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0056, t01=0x00e0}
0x8732…873c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00f0}
0x873c…8746               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00fa}
0x8746…8768               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x0056, t01=0x0104}
0x8768…8772               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0126}
0x8772…87b4               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x0056, t01=0x0130}
0x87b4…87e8               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x0056, t01=0x0172}
0x87e8…880e               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x0057, t01=0x0016}
0x880e…8818               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x003c}
0x8818…882a               Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x0057, t01=0x0046}
0x882a…8840               Head {h00=0x0012, h01=0x0050, text=» LDK A4,0 FLAG«, t00=0x0057, t01=0x0058}
0x8840…8852               Head {h00=0x000e, h01=0x0050, text=» RF BIO010«, t00=0x0057, t01=0x006e}
0x8852…886a               Head {h00=0x0014, h01=0x0050, text=»BIO:RE LDK A4,1 «, t00=0x0057, t01=0x0080}
0x886a…887e               Head {h00=0x0010, h01=0x0050, text=»BIO010 EQU *«, t00=0x0057, t01=0x0098}
0x887e…889e               Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBRL,A8 REQ LEN «, t00=0x0057, t01=0x00ac}
0x889e…88c2               Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOERR ILLEGAL LENGTH«, t00=0x0057, t01=0x00cc}
0x88c2…88da               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0057, t01=0x00f0}
0x88da…88f2               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTLAB,A6«, t00=0x0057, t01=0x0108}
0x88f2…890a               Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTA3,A6 «, t00=0x0057, t01=0x0120}
0x890a…892a               Head {h00=0x001c, h01=0x0050, text=» RF(Z) BIO020 TOSS DISC «, t00=0x0057, t01=0x0138}
0x892a…8936               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0158}
0x8936…8948               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0057, t01=0x0164}
0x8948…895e               Head {h00=0x0012, h01=0x0050, text=» LDK A7,IBMLEN«, t00=0x0057, t01=0x0176}
0x895e…8970               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0057, t01=0x018c}
0x8970…897c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x000e}
0x897c…8994               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0058, t01=0x001a}
0x8994…89a6               Head {h00=0x000e, h01=0x0050, text=» RF BIO030«, t00=0x0058, t01=0x0032}
0x89a6…89b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0044}
0x89b2…89c6               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0058, t01=0x0050}
0x89c6…89e4               Head {h00=0x001a, h01=0x0050, text=»BIO020 LDKL A7,TOSLEN «, t00=0x0058, t01=0x0064}
0x89e4…89f6               Head {h00=0x000e, h01=0x0050, text=» LDK A2,3 «, t00=0x0058, t01=0x0082}
0x89f6…8a0a               Head {h00=0x0010, h01=0x0050, text=»BIO030 EQU *«, t00=0x0058, t01=0x0094}
0x8a0a…8a16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x00a8}
0x8a16…8a2e               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0058, t01=0x00b4}
0x8a2e…8a46               Head {h00=0x0014, h01=0x0050, text=» ADK A4,0 SET CR«, t00=0x0058, t01=0x00cc}
0x8a46…8a62               Head {h00=0x0018, h01=0x0050, text=» RF(Z) BIO060 WRITE «, t00=0x0058, t01=0x00e4}
0x8a62…8a74               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0058, t01=0x0100}
0x8a74…8a8e               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A3 REQ LEN«, t00=0x0058, t01=0x0112}
0x8a8e…8ab8               Head {h00=0x0026, h01=0x0050, text=» CWR A3,A7 REQ LENGTH WITHIN RANGE«, t00=0x0058, t01=0x012c}
0x8ab8…8ad0               Head {h00=0x0014, h01=0x0050, text=» RF(G) BIOERR NO«, t00=0x0058, t01=0x0156}
0x8ad0…8aea               Head {h00=0x0016, h01=0x0050, text=»BIO040 SUK A1,128 «, t00=0x0058, t01=0x016e}
0x8aea…8b00               Head {h00=0x0012, h01=0x0050, text=» RF(NP) BIO100«, t00=0x0058, t01=0x0188}
0x8b00…8b2a               Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT NO OF SECTORS «, t00=0x0059, t01=0x000e}
0x8b2a…8b3c               Head {h00=0x000e, h01=0x0050, text=» RB BIO040«, t00=0x0059, t01=0x0038}
0x8b3c…8b46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x004a}
0x8b46…8b68               Head {h00=0x001e, h01=0x0050, text=»*  WRITE, CHECK REQ LENGTH«, t00=0x0059, t01=0x0054}
0x8b68…8b72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0076}
0x8b72…8b8a               Head {h00=0x0014, h01=0x0050, text=»BIO060 CWR A3,A7«, t00=0x0059, t01=0x0080}
0x8b8a…8bb0               Head {h00=0x0022, h01=0x0050, text=» RF(NE) BIOERR ILLEGAL REQ LEN«, t00=0x0059, t01=0x0098}
0x8bb0…8bbc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x00be}
0x8bbc…8bd4               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0059, t01=0x00ca}
0x8bd4…8bde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00e2}
0x8bde…8c20               Head {h00=0x003e, h01=0x0050, text=»*  FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH«, t00=0x0059, t01=0x00ec}
0x8c20…8c2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x012e}
0x8c2a…8c48               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0059, t01=0x0138}
0x8c48…8c6a               Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 NO OF SECTORS-1 «, t00=0x0059, t01=0x0156}
0x8c6a…8c92               Head {h00=0x0024, h01=0x0050, text=»BIO015 LDR A4,A4 READ OR WRITE? «, t00=0x0059, t01=0x0178}
0x8c92…8cae               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BIO035 READ!«, t00=0x005a, t01=0x0010}
0x8cae…8cc2               Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x005a, t01=0x002c}
0x8cc2…8ce8               Head {h00=0x0022, h01=0x0050, text=» RF(Z) BIO100 REQ LEN ACCEPTED«, t00=0x005a, t01=0x0040}
0x8ce8…8cfa               Head {h00=0x000e, h01=0x0050, text=» RF BIO045«, t00=0x005a, t01=0x0066}
0x8cfa…8d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0078}
0x8d04…8d1e               Head {h00=0x0016, h01=0x0050, text=»BIO035 SUK A1,128 «, t00=0x005a, t01=0x0082}
0x8d1e…8d48               Head {h00=0x0026, h01=0x0050, text=» RF(NP) BIO100 REQ LENGTH ACCEPTED«, t00=0x005a, t01=0x009c}
0x8d48…8d60               Head {h00=0x0014, h01=0x0050, text=»BIO045 ADK A2,1 «, t00=0x005a, t01=0x00c6}
0x8d60…8d72               Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x005a, t01=0x00de}
0x8d72…8d88               Head {h00=0x0012, h01=0x0050, text=» RB(NG) BIO015«, t00=0x005a, t01=0x00f0}
0x8d88…8db0               Head {h00=0x0024, h01=0x0050, text=» RF BIOERR REQ LEN OUTSIDE RANGE«, t00=0x005a, t01=0x0106}
0x8db0…8dbc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x012e}
0x8dbc…8dc6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x013a}
0x8dc6…8e00               Head {h00=0x0036, h01=0x0050, text=»BIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1«, t00=0x005a, t01=0x0144}
0x8e00…8e0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x017e}
0x8e0a…8e40               Head {h00=0x0032, h01=0x0050, text=»*  CHECK SECTOR NO FROM CONTROL WORD OF ECB IS«, t00=0x005a, t01=0x0188}
0x8e40…8e6c               Head {h00=0x0028, h01=0x0050, text=»*  WITHIN RANGE, PUT IT IN POS 2-12 «, t00=0x005b, t01=0x002e}
0x8e6c…8e76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x005a}
0x8e76…8e98               Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A8 SECTOR NO «, t00=0x005b, t01=0x0064}
0x8e98…8ebc               Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOER2 OUTSIDE RANGE «, t00=0x005b, t01=0x0086}
0x8ebc…8ed4               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x005b, t01=0x00aa}
0x8ed4…8ee6               Head {h00=0x000e, h01=0x0050, text=» ANK A7,/A«, t00=0x005b, t01=0x00c2}
0x8ee6…8f04               Head {h00=0x001a, h01=0x0050, text=» RF(Z) BIO110 IBM DISC«, t00=0x005b, t01=0x00d4}
0x8f04…8f10               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x00f2}
0x8f10…8f24               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x005b, t01=0x00fe}
0x8f24…8f38               Head {h00=0x0010, h01=0x0050, text=» CWK A1,499 «, t00=0x005b, t01=0x0112}
0x8f38…8f5a               Head {h00=0x001e, h01=0x0050, text=» RF(G) BIOER2 OUT OF RANGE«, t00=0x005b, t01=0x0126}
0x8f5a…8f8a               Head {h00=0x002c, h01=0x0050, text=» SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR «, t00=0x005b, t01=0x0148}
0x8f8a…8f96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0178}
0x8f96…8fae               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x005b, t01=0x0184}
0x8fae…8fc0               Head {h00=0x000e, h01=0x0050, text=» RF BIO120«, t00=0x005c, t01=0x000c}
0x8fc0…8fcc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x001e}
0x8fcc…8fde               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005c, t01=0x002a}
0x8fde…8ff8               Head {h00=0x0016, h01=0x0050, text=»BIO110 CWK A1,1923«, t00=0x005c, t01=0x003c}
0x8ff8…901a               Head {h00=0x001e, h01=0x0050, text=» RF(P) BIOER2 OUT OF RANGE«, t00=0x005c, t01=0x0056}
0x901a…9026               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0078}
0x9026…903e               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005c, t01=0x0084}
0x903e…906a               Head {h00=0x0028, h01=0x0050, text=» CWK A1,2001 SECTOR NO OUT OF RANGE «, t00=0x005c, t01=0x009c}
0x906a…9084               Head {h00=0x0016, h01=0x0050, text=» RF(G) BIOER2 YES!«, t00=0x005c, t01=0x00c8}
0x9084…9090               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x00e2}
0x9090…90a4               Head {h00=0x0010, h01=0x0050, text=»BIO120 EQU *«, t00=0x005c, t01=0x00ee}
0x90a4…90b6               Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x005c, t01=0x0102}
0x90b6…90c8               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x005c, t01=0x0114}
0x90c8…90ee               Head {h00=0x0022, h01=0x0050, text=» LD A4,ECBBA,A8 BUFFER ADDRESS«, t00=0x005c, t01=0x0126}
0x90ee…910c               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x005c, t01=0x014c}
0x910c…911e               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x005c, t01=0x016a}
0x911e…9146               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BIOERR REQ LEN. NOT EVEN«, t00=0x005c, t01=0x017c}
0x9146…9156               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005d, t01=0x0014}
0x9156…9160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0024}
0x9160…916a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x002e}
0x916a…91a0               Head {h00=0x0032, h01=0x0050, text=»*  ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO«, t00=0x005d, t01=0x0038}
0x91a0…91aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x006e}
0x91aa…91c4               Head {h00=0x0016, h01=0x0050, text=»BIOERR ABL END:10 «, t00=0x005d, t01=0x0078}
0x91c4…91e2               Head {h00=0x001a, h01=0x0050, text=»*   ILLEGAL SECTOR NO «, t00=0x005d, t01=0x0092}
0x91e2…91fc               Head {h00=0x0016, h01=0x0050, text=»BIOER2 ABL FD:DIS «, t00=0x005d, t01=0x00b0}
0x91fc…9206               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00ca}
0x9206…921a               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x005d, t01=0x00d4}
0x921a…9224               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00e8}
0x9224…9236               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005d, t01=0x00f2}
0x9236…9248               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x005d, t01=0x0104}
0x9248…925a               Head {h00=0x000e, h01=0x0050, text=»* FDIX  * «, t00=0x005d, t01=0x0116}
0x925a…926c               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x005d, t01=0x0128}
0x926c…927e               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005d, t01=0x013a}
0x927e…9288               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x014c}
0x9288…92a2               Head {h00=0x0016, h01=0x0050, text=»*  INPUT:  A2   X «, t00=0x005d, t01=0x0156}
0x92a2…92ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0170}
0x92ac…92ce               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A3   2 POWER(X)«, t00=0x005d, t01=0x017a}
0x92ce…92d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x000c}
0x92d8…92ee               Head {h00=0x0012, h01=0x0050, text=»FDIX LDK A3,1 «, t00=0x005e, t01=0x0016}
0x92ee…9306               Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x005e, t01=0x002c}
0x9306…931a               Head {h00=0x0010, h01=0x0050, text=»FDIX10 EQU *«, t00=0x005e, t01=0x0044}
0x931a…9330               Head {h00=0x0012, h01=0x0050, text=» RF(Z) FDIX20 «, t00=0x005e, t01=0x0058}
0x9330…9342               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x005e, t01=0x006e}
0x9342…9354               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x005e, t01=0x0080}
0x9354…9366               Head {h00=0x000e, h01=0x0050, text=» RB FDIX10«, t00=0x005e, t01=0x0092}
0x9366…937c               Head {h00=0x0012, h01=0x0050, text=»FDIX20 RTN A5 «, t00=0x005e, t01=0x00a4}
0x937c…9390               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x005e, t01=0x00ba}
0x9390…93a8               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x005e, t01=0x00ce}
0x93a8…93c2               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x005e, t01=0x00e6}
0x93c2…93dc               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x005e, t01=0x0100}
0x93dc…93f6               Head {h00=0x0016, h01=0x0050, text=»*  VOLADR        *«, t00=0x005e, t01=0x011a}
0x93f6…9410               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x005e, t01=0x0134}
0x9410…942a               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x005e, t01=0x014e}
0x942a…9434               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0168}
0x9434…9456               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x005e, t01=0x0172}
0x9456…9460 (95, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0004}
0x9460…948a               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT: A2  VOLUME NAME ADDRESS«, t00=0x005f, t01=0x000e}
0x948a…94a6               Head {h00=0x0018, h01=0x0050, text=»*          A3  ZERO «, t00=0x005f, t01=0x0038}
0x94a6…94b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0054}
0x94b0…94c4               Head {h00=0x0010, h01=0x0050, text=»VOLADR EQU *«, t00=0x005f, t01=0x005e}
0x94c4…94e4               Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR,A6 DRIVE NO«, t00=0x005f, t01=0x0072}
0x94e4…94f8               Head {h00=0x0010, h01=0x0050, text=»VOLA05 EQU *«, t00=0x005f, t01=0x0092}
0x94f8…950e               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWTVO0«, t00=0x005f, t01=0x00a6}
0x950e…9520               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x005f, t01=0x00bc}
0x9520…9532               Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x005f, t01=0x00ce}
0x9532…9546               Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x005f, t01=0x00e0}
0x9546…955c               Head {h00=0x0012, h01=0x0050, text=» RF(Z) VOLA20 «, t00=0x005f, t01=0x00f4}
0x955c…957c               Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 UPDATE ADDRESS«, t00=0x005f, t01=0x010a}
0x957c…958e               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x005f, t01=0x012a}
0x958e…95a0               Head {h00=0x000e, h01=0x0050, text=» RB VOLA10«, t00=0x005f, t01=0x013c}
0x95a0…95b6               Head {h00=0x0012, h01=0x0050, text=»VOLA20 RTN A5 «, t00=0x005f, t01=0x014e}
0x95b6…95c2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0164}
0x95c2…95ca               Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x0170}
0x95ca…95dc               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x0178}
0x95dc…95f0               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x005f, t01=0x018a}
0x95f0…95fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x000e}
0x95fa…960c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0060, t01=0x0018}
0x960c…961e               Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x0060, t01=0x002a}
0x961e…9630               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0060, t01=0x003c}
0x9630…963a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x004e}
0x963a…9678               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x0060, t01=0x0058}
0x9678…9698               Head {h00=0x001c, h01=0x0050, text=»*             ASCII CODE«, t00=0x0060, t01=0x0096}
0x9698…96ca               Head {h00=0x002e, h01=0x0050, text=»*             INPUT STRING ADDRESS IS BUF «, t00=0x0060, t01=0x00b6}
0x96ca…96f4               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7  NO OF CHARACTERS«, t00=0x0060, t01=0x00e8}
0x96f4…9724               Head {h00=0x002c, h01=0x0050, text=»*             A4  OUTPUT  STRING ADDRESS«, t00=0x0060, t01=0x0112}
0x9724…9746               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0060, t01=0x0142}
0x9746…9766               Head {h00=0x001c, h01=0x0050, text=»*             A4 CHANGED«, t00=0x0060, t01=0x0164}
0x9766…9788               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0060, t01=0x0184}
0x9788…9792               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0016}
0x9792…97a6               Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0061, t01=0x0020}
0x97a6…97b2               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0061, t01=0x0034}
0x97b2…97c4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0061, t01=0x0040}
0x97c4…97d6               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0061, t01=0x0052}
0x97d6…97ee               Head {h00=0x0014, h01=0x0050, text=»ASC:10 SUK A7,1 «, t00=0x0061, t01=0x0064}
0x97ee…9804               Head {h00=0x0012, h01=0x0050, text=» RF(N) ASC:20 «, t00=0x0061, t01=0x007c}
0x9804…9816               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0061, t01=0x0092}
0x9816…983c               Head {h00=0x0022, h01=0x0050, text=» LC A1,BUF,A7 GET EBCDIC CHAR «, t00=0x0061, t01=0x00a4}
0x983c…9868               Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0061, t01=0x00ca}
0x9868…989c               Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0061, t01=0x00f6}
0x989c…98ae               Head {h00=0x000e, h01=0x0050, text=» RB ASC:10«, t00=0x0061, t01=0x012a}
0x98ae…98c2               Head {h00=0x0010, h01=0x0050, text=»ASC:20 EQU *«, t00=0x0061, t01=0x013c}
0x98c2…98e8               Head {h00=0x0022, h01=0x0050, text=» RF EBC:90 SET INH AND RETURN «, t00=0x0061, t01=0x0150}
0x98e8…98fc               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0061, t01=0x0176}
0x98fc…9906               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x018a}
0x9906…9918 (98, 0, 400)  Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0062, t01=0x0004}
0x9918…992a               Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0062, t01=0x0016}
0x992a…993c               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0062, t01=0x0028}
0x993c…9946               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x003a}
0x9946…9986               Head {h00=0x003c, h01=0x0050, text=»*  FUNCTION:  EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0062, t01=0x0044}
0x9986…99a8               Head {h00=0x001e, h01=0x0050, text=»*             EBCDIC CODE «, t00=0x0062, t01=0x0084}
0x99a8…99e4               Head {h00=0x0038, h01=0x0050, text=»*             OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0062, t01=0x00a6}
0x99e4…99ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00e2}
0x99ee…9a18               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7 NO OF CHARACTERS «, t00=0x0062, t01=0x00ec}
0x9a18…9a46               Head {h00=0x002a, h01=0x0050, text=»*             A4  INPUT STRING ADDRESS«, t00=0x0062, t01=0x0116}
0x9a46…9a50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0144}
0x9a50…9a72               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0062, t01=0x014e}
0x9a72…9aa2               Head {h00=0x002c, h01=0x0050, text=»*              A4  DRIVER BUFFER ADDRESS«, t00=0x0062, t01=0x0170}
0x9aa2…9ac4               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0063, t01=0x0010}
0x9ac4…9ad8               Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0063, t01=0x0032}
0x9ad8…9ae4               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0063, t01=0x0046}
0x9ae4…9af6               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0063, t01=0x0052}
0x9af6…9b08               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0063, t01=0x0064}
0x9b08…9b20               Head {h00=0x0014, h01=0x0050, text=»EBC:10 SUK A7,1 «, t00=0x0063, t01=0x0076}
0x9b20…9b36               Head {h00=0x0012, h01=0x0050, text=» RF(N) EBC:80 «, t00=0x0063, t01=0x008e}
0x9b36…9b48               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0063, t01=0x00a4}
0x9b48…9b6a               Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0063, t01=0x00b6}
0x9b6a…9b84               Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0063, t01=0x00d8}
0x9b84…9b9a               Head {h00=0x0012, h01=0x0050, text=» SC A1,BUF,A7 «, t00=0x0063, t01=0x00f2}
0x9b9a…9bac               Head {h00=0x000e, h01=0x0050, text=» RB EBC:10«, t00=0x0063, t01=0x0108}
0x9bac…9bc0               Head {h00=0x0010, h01=0x0050, text=»EBC:80 EQU *«, t00=0x0063, t01=0x011a}
0x9bc0…9bd4               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0063, t01=0x012e}
0x9bd4…9be8               Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x0063, t01=0x0142}
0x9be8…9bfe               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x0063, t01=0x0156}
0x9bfe…9c0e               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0063, t01=0x016c}
0x9c0e…9c22               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0063, t01=0x017c}
0x9c22…9c2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0190}
0x9c2c…9c3e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0064, t01=0x000a}
0x9c3e…9c50               Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0064, t01=0x001c}
0x9c50…9c62               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0064, t01=0x002e}
0x9c62…9c6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0040}
0x9c6c…9cb0               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0064, t01=0x004a}
0x9cb0…9ce0               Head {h00=0x002c, h01=0x0050, text=»*              LOGICAL SECTOR (BINARY). «, t00=0x0064, t01=0x008e}
0x9ce0…9d20               Head {h00=0x003c, h01=0x0050, text=»*             FORMAT OF PHYS. SEC.  TT0SS  (EBCDIC CODE)«, t00=0x0064, t01=0x00be}
0x9d20…9d4e               Head {h00=0x002a, h01=0x0050, text=»*              TT = TRACK,  SS=SECTOR «, t00=0x0064, t01=0x00fe}
0x9d4e…9d58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x012c}
0x9d58…9d88               Head {h00=0x002c, h01=0x0050, text=»*  INPUT:    A4  ADDRESS TO PHYS. SECTOR«, t00=0x0064, t01=0x0136}
0x9d88…9d92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0166}
0x9d92…9dbc               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT:   A3  BINARY SECTOR NO «, t00=0x0064, t01=0x0170}
0x9dbc…9dee               Head {h00=0x002e, h01=0x0050, text=»*            A4  ADDRESS TO PHYS. SEC. + 4«, t00=0x0065, t01=0x000a}
0x9dee…9df8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x003c}
0x9df8…9e0c               Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x0065, t01=0x0046}
0x9e0c…9e22               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0065, t01=0x005a}
0x9e22…9e3a               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x0065, t01=0x0070}
0x9e3a…9e4c               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0065, t01=0x0088}
0x9e4c…9e56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x009a}
0x9e56…9e70               Head {h00=0x0016, h01=0x0050, text=»*  MULTIPLY BY 26 «, t00=0x0065, t01=0x00a4}
0x9e70…9e7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00be}
0x9e7a…9e90               Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x0065, t01=0x00c8}
0x9e90…9ea2               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0065, t01=0x00de}
0x9ea2…9eb4               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0065, t01=0x00f0}
0x9eb4…9eca               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x0065, t01=0x0102}
0x9eca…9edc               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0065, t01=0x0118}
0x9edc…9ef2               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x0065, t01=0x012a}
0x9ef2…9f08               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0065, t01=0x0140}
0x9f08…9f1a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0065, t01=0x0156}
0x9f1a…9f2c               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0065, t01=0x0168}
0x9f2c…9f36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x017a}
0x9f36…9f50               Head {h00=0x0016, h01=0x0050, text=»*  CHECK SECTOR NO«, t00=0x0065, t01=0x0184}
0x9f50…9f5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x000e}
0x9f5a…9f6c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0066, t01=0x0018}
0x9f6c…9f7e               Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x0066, t01=0x002a}
0x9f7e…9f94               Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x0066, t01=0x003c}
0x9f94…9fb2               Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD?«, t00=0x0066, t01=0x0052}
0x9fb2…9fcc               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x0066, t01=0x0070}
0x9fcc…9fe2               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x0066, t01=0x008a}
0x9fe2…9ff4               Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x0066, t01=0x00a0}
0x9ff4…9ffe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00b2}
0x9ffe…a024               Head {h00=0x0022, h01=0x0050, text=»*  CHECK EOD LESS/EQUAL 74001 «, t00=0x0066, t01=0x00bc}
0xa024…a02e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00e2}
0xa02e…a04a               Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x0066, t01=0x00ec}
0xa04a…a05e               Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x0066, t01=0x0108}
0xa05e…a084               Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x0066, t01=0x011c}
0xa084…a0aa               Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x0066, t01=0x0142}
0xa0aa…a0ba               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0066, t01=0x0168}
0xa0ba…a0c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0178}
0xa0c4…a0da               Head {h00=0x0012, h01=0x0050, text=»*  FATAL ERROR«, t00=0x0066, t01=0x0182}
0xa0da…a0e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0008}
0xa0e4…a110               Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x0067, t01=0x0012}
0xa110…a138               Head {h00=0x0024, h01=0x0050, text=»LOG:10 LDKL A1,/2000 RETURN CODE«, t00=0x0067, t01=0x003e}
0xa138…a152               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0067, t01=0x0066}
0xa152…a168               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x0067, t01=0x0080}
0xa168…a18a               Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x0067, t01=0x0096}
0xa18a…a194               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00b8}
0xa194…a1a8               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0067, t01=0x00c2}
0xa1a8…a1b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00d6}
0xa1b2…a1c4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x00e0}
0xa1c4…a1d6               Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x0067, t01=0x00f2}
0xa1d6…a1e8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x0104}
0xa1e8…a1f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0116}
0xa1f2…a234               Head {h00=0x003e, h01=0x0050, text=»*  FUNCTION:  DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x0067, t01=0x0120}
0xa234…a27c               Head {h00=0x0044, h01=0x0050, text=»*             BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x0067, t01=0x0162}
0xa27c…a2ac               Head {h00=0x002c, h01=0x0050, text=»*     INPUT:  A4  ADDRESS TO FIRST DIGIT«, t00=0x0068, t01=0x001a}
0xa2ac…a2ca               Head {h00=0x001a, h01=0x0050, text=»*   OUTPUT: A1  BINARY«, t00=0x0068, t01=0x004a}
0xa2ca…a2ea               Head {h00=0x001c, h01=0x0050, text=»*   WORKING REG:  A2,A7 «, t00=0x0068, t01=0x0068}
0xa2ea…a2f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0088}
0xa2f4…a30c               Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x0068, t01=0x0092}
0xa30c…a31e               Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0068, t01=0x00aa}
0xa31e…a33c               Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0068, t01=0x00bc}
0xa33c…a350               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0068, t01=0x00da}
0xa350…a364               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0068, t01=0x00ee}
0xa364…a37a               Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x0068, t01=0x0102}
0xa37a…a38c               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0068, t01=0x0118}
0xa38c…a3ac               Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x0068, t01=0x012a}
0xa3ac…a3be               Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0068, t01=0x014a}
0xa3be…a3d0               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0068, t01=0x015c}
0xa3d0…a3e6               Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0068, t01=0x016e}
0xa3e6…a410               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0068, t01=0x0184}
0xa410…a428               Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0069, t01=0x001e}
0xa428…a448               Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0069, t01=0x0036}
0xa448…a46a               Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0069, t01=0x0056}
0xa46a…a47c               Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0069, t01=0x0078}
0xa47c…a494               Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0069, t01=0x008a}
0xa494…a4a4               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0069, t01=0x00a2}
0xa4a4…a4b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x00b2}
0xa4b0…a4c4               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0069, t01=0x00be}
0xa4c4…a4ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00d2}
0xa4ce…a4e0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x00dc}
0xa4e0…a4f2               Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0069, t01=0x00ee}
0xa4f2…a504               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x0100}
0xa504…a50e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0112}
0xa50e…a544               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION:  PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0069, t01=0x011c}
0xa544…a54e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0152}
0xa54e…a58a               Head {h00=0x0038, h01=0x0050, text=»*  INPUT:  A3  DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0069, t01=0x015c}
0xa58a…a594               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0008}
0xa594…a5b2               Head {h00=0x001a, h01=0x0050, text=»*  OUTPUT: A3  CHANGED«, t00=0x006a, t01=0x0012}
0xa5b2…a5d0               Head {h00=0x001a, h01=0x0050, text=»*          A4  CHANGED«, t00=0x006a, t01=0x0030}
0xa5d0…a5da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x004e}
0xa5da…a5f6               Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x006a, t01=0x0058}
0xa5f6…a614               Head {h00=0x001a, h01=0x0050, text=» ANS A4,FDCIO,A6  KST «, t00=0x006a, t01=0x0074}
0xa614…a626               Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x006a, t01=0x0092}
0xa626…a644               Head {h00=0x001a, h01=0x0050, text=» ORS A3,FDCIO,A6  KST «, t00=0x006a, t01=0x00a4}
0xa644…a654               Head {h00=0x000c, h01=0x0050, text=» RTN  A5«, t00=0x006a, t01=0x00c2}
0xa654…a666               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x006a, t01=0x00d2}
0xa666…a67a               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x006a, t01=0x00e4}
0xa67a…a684               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00f8}
0xa684…a696               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006a, t01=0x0102}
0xa696…a6a8               Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x006a, t01=0x0114}
0xa6a8…a6ba               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006a, t01=0x0126}
0xa6ba…a6c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0138}
0xa6c4…a702               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x006a, t01=0x0142}
0xa702…a736               Head {h00=0x0030, h01=0x0050, text=»*             EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x006a, t01=0x0180}
0xa736…a740               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0024}
0xa740…a764               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A7  BINARY NUMBER«, t00=0x006b, t01=0x002e}
0xa764…a76e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0052}
0xa76e…a7a0               Head {h00=0x002e, h01=0x0050, text=»*  OUTPUT: A3  EBCDIC CODED DECIMAL DIGITS«, t00=0x006b, t01=0x005c}
0xa7a0…a7be               Head {h00=0x001a, h01=0x0050, text=»*          A7  CHANGED«, t00=0x006b, t01=0x008e}
0xa7be…a7c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00ac}
0xa7c8…a7e0               Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x006b, t01=0x00b6}
0xa7e0…a7f8               Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x006b, t01=0x00ce}
0xa7f8…a80e               Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x006b, t01=0x00e6}
0xa80e…a820               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006b, t01=0x00fc}
0xa820…a832               Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x006b, t01=0x010e}
0xa832…a84a               Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x006b, t01=0x0120}
0xa84a…a85c               Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x006b, t01=0x0138}
0xa85c…a88a               Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x006b, t01=0x014a}
0xa88a…a8ae               Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x006b, t01=0x0178}
0xa8ae…a8be               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x000c}
0xa8be…a8d2               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x006c, t01=0x001c}
0xa8d2…a8e4               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006c, t01=0x0030}
0xa8e4…a8f6               Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x006c, t01=0x0042}
0xa8f6…a908               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006c, t01=0x0054}
0xa908…a912               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0066}
0xa912…a94a               Head {h00=0x0034, h01=0x0050, text=»*  FUNCTION:  PREPARE FOR READING DATA SET LABEL«, t00=0x006c, t01=0x0070}
0xa94a…a954               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00a8}
0xa954…a976               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x006c, t01=0x00b2}
0xa976…a980               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00d4}
0xa980…a9be               Head {h00=0x003a, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x006c, t01=0x00de}
0xa9be…a9da               Head {h00=0x0018, h01=0x0050, text=»*          A3   128 «, t00=0x006c, t01=0x011c}
0xa9da…aa06               Head {h00=0x0028, h01=0x0050, text=»*          A4  DRIVER BUFFER ADDRESS«, t00=0x006c, t01=0x0138}
0xaa06…aa28               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006c, t01=0x0164}
0xaa28…aa4a               Head {h00=0x001e, h01=0x0050, text=»*           A1 IS CHANGED «, t00=0x006c, t01=0x0186}
0xaa4a…aa54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0018}
0xaa54…aa70               Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x006d, t01=0x0022}
0xaa70…aa84               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006d, t01=0x003e}
0xaa84…aa98               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x006d, t01=0x0052}
0xaa98…aaaa               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x006d, t01=0x0066}
0xaaaa…aabe               Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x006d, t01=0x0078}
0xaabe…aad2               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x006d, t01=0x008c}
0xaad2…aae2               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006d, t01=0x00a0}
0xaae2…aaf6               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x006d, t01=0x00b0}
0xaaf6…ab00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00c4}
0xab00…ab12               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006d, t01=0x00ce}
0xab12…ab24               Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x006d, t01=0x00e0}
0xab24…ab36               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006d, t01=0x00f2}
0xab36…ab40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0104}
0xab40…ab7a               Head {h00=0x0036, h01=0x0050, text=»*  FUNCTION:  GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x006d, t01=0x010e}
0xab7a…ab84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0148}
0xab84…aba6               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x006d, t01=0x0152}
0xaba6…abb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0174}
0xabb0…abd2               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A2  EOD ADDRESS«, t00=0x006d, t01=0x017e}
0xabd2…ac02               Head {h00=0x002c, h01=0x0050, text=»*          A7  EOD-NO      (0=NOT OPEN) «, t00=0x006e, t01=0x0010}
0xac02…ac20               Head {h00=0x001a, h01=0x0050, text=»*          A1  CHANGED«, t00=0x006e, t01=0x0040}
0xac20…ac3c               Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x006e, t01=0x005e}
0xac3c…ac50               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006e, t01=0x007a}
0xac50…ac6a               Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x006e, t01=0x008e}
0xac6a…ac7a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006e, t01=0x00a8}
0xac7a…ac8e               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x006e, t01=0x00b8}
0xac8e…ac98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00cc}
0xac98…acaa               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006e, t01=0x00d6}
0xacaa…acbc               Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x006e, t01=0x00e8}
0xacbc…acce               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006e, t01=0x00fa}
0xacce…acd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x010c}
0xacd8…ad0e               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x006e, t01=0x0116}
0xad0e…ad48               Head {h00=0x0036, h01=0x0050, text=»*            TYPE OF DATA FOR COORESSPONDING DRIVE«, t00=0x006e, t01=0x014c}
0xad48…ad52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0186}
0xad52…ad74               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A1  DWT OFFSET «, t00=0x006e, t01=0x0190}
0xad74…ad96               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006f, t01=0x0022}
0xad96…ada0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0044}
0xada0…adc6               Head {h00=0x0022, h01=0x0050, text=»*  OUTPUT: A2  ADDRESS TO DATA«, t00=0x006f, t01=0x004e}
0xadc6…ade8               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006f, t01=0x0074}
0xade8…adf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0096}
0xadf2…ae18               Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x006f, t01=0x00a0}
0xae18…ae2a               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x006f, t01=0x00c6}
0xae2a…ae3c               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x006f, t01=0x00d8}
0xae3c…ae4e               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x006f, t01=0x00ea}
0xae4e…ae60               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x006f, t01=0x00fc}
0xae60…ae70               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006f, t01=0x010e}
0xae70…ae84               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x006f, t01=0x011e}
0xae84…ae8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0132}
0xae8e…aea0               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006f, t01=0x013c}
0xaea0…aeb2               Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x006f, t01=0x014e}
0xaeb2…aec4               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006f, t01=0x0160}
0xaec4…aece               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0172}
0xaece…af0c               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x006f, t01=0x017c}
0xaf0c…af2a               Head {h00=0x001a, h01=0x0050, text=»*            DRIVE NO «, t00=0x0070, t01=0x002a}
0xaf2a…af34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0048}
0xaf34…af60               Head {h00=0x0028, h01=0x0050, text=»*  INPUT:    A1  OFFSET TO DWT AREA «, t00=0x0070, t01=0x0052}
0xaf60…af92               Head {h00=0x002e, h01=0x0050, text=»*            A3  WORD TO BE STORED IN DWT «, t00=0x0070, t01=0x007e}
0xaf92…afb6               Head {h00=0x0020, h01=0x0050, text=»*            A6  DWT ADDRESS«, t00=0x0070, t01=0x00b0}
0xafb6…afc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00d4}
0xafc0…afe2               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:   A1  UNCHANGED«, t00=0x0070, t01=0x00de}
0xafe2…b016               Head {h00=0x0030, h01=0x0050, text=»*            A2  ADDRESS TO WORD IN DWT AREA«, t00=0x0070, t01=0x0100}
0xb016…b038               Head {h00=0x001e, h01=0x0050, text=»*            A3  UNCHANGED«, t00=0x0070, t01=0x0134}
0xb038…b05a               Head {h00=0x001e, h01=0x0050, text=»*            A6  UNCHANGED«, t00=0x0070, t01=0x0156}
0xb05a…b064               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0178}
0xb064…b078               Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x0070, t01=0x0182}
0xb078…b08c               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0071, t01=0x0008}
0xb08c…b09e               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0071, t01=0x001c}
0xb09e…b0ae               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0071, t01=0x002e}
0xb0ae…b0c2               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0071, t01=0x003e}
0xb0c2…b0cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0052}
0xb0cc…b0de               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0071, t01=0x005c}
0xb0de…b0f0               Head {h00=0x000e, h01=0x0050, text=»* SETINH *«, t00=0x0071, t01=0x006e}
0xb0f0…b102               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0071, t01=0x0080}
0xb102…b10c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0092}
0xb10c…b150               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE «, t00=0x0071, t01=0x009c}
0xb150…b192               Head {h00=0x003e, h01=0x0050, text=»*             ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND «, t00=0x0071, t01=0x00e0}
0xb192…b1ae               Head {h00=0x0018, h01=0x0050, text=»*             RETURN«, t00=0x0071, t01=0x0122}
0xb1ae…b1b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x013e}
0xb1b8…b1de               Head {h00=0x0022, h01=0x0050, text=»*  INPUT:     A6  DWT ADDRESS «, t00=0x0071, t01=0x0148}
0xb1de…b1e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x016e}
0xb1e8…b1fa               Head {h00=0x000e, h01=0x0050, text=»SETINH INH«, t00=0x0071, t01=0x0178}
0xb1fa…b216               Head {h00=0x0018, h01=0x0050, text=» LD A1,DWTA2,A6 FDON«, t00=0x0071, t01=0x018a}
0xb216…b236               Head {h00=0x001c, h01=0x0050, text=» RF(Z) SET:10 NOT ACTIVE«, t00=0x0072, t01=0x0016}
0xb236…b250               Head {h00=0x0016, h01=0x0050, text=» ABL T:DISP ESCAPE«, t00=0x0072, t01=0x0036}
0xb250…b266               Head {h00=0x0012, h01=0x0050, text=»SET:10 RTN A5 «, t00=0x0072, t01=0x0050}
0xb266…b272               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0066}
0xb272…b27c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0072}
0xb27c…b2a2               Head {h00=0x0022, h01=0x0050, text=»*    D R I V E R   B U F F E R«, t00=0x0072, t01=0x007c}
0xb2a2…b2ba               Head {h00=0x0014, h01=0x0050, text=»BUF DATA 0,0,0,0«, t00=0x0072, t01=0x00a2}
0xb2ba…b2c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00ba}
0xb2c4…b2d6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0072, t01=0x00c4}
0xb2d6…b2e6               Head {h00=0x000c, h01=0x0050, text=» RES 60 «, t00=0x0072, t01=0x00d6}
0xb2e6…b2f2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x00e6}
0xb2f2…b2fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00f2}
0xb2fc…b310               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0072, t01=0x00fc}
0xb310…b31a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0110}
0xb31a…b338               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0072, t01=0x011a}
0xb338…b356               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0072, t01=0x0138}
0xb356…b374               Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0072, t01=0x0156}
0xb374…b392               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0072, t01=0x0174}
0xb392…b3b0 (115, 0, 398) Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0073, t01=0x0004}
0xb3b0…b3ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0022}
0xb3ba…b3ce               Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0073, t01=0x002c}
0xb3ce…b3de               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x0040}
0xb3de…b3fc               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0073, t01=0x0050}
0xb3fc…b418               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0073, t01=0x006e}
0xb418…b42e               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0073, t01=0x008a}
0xb42e…b454               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0073, t01=0x00a0}
0xb454…b470               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0073, t01=0x00c6}
0xb470…b498               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0073, t01=0x00e2}
0xb498…b4b6               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0073, t01=0x010a}
0xb4b6…b4c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0128}
0xb4c0…b4d6               Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0073, t01=0x0132}
0xb4d6…b500               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0073, t01=0x0148}
0xb500…b524               Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0073, t01=0x0172}
0xb524…b530               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0074, t01=0x0008}
0xb530…b53a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0014}
0xb53a…b54a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x001e}
0xb54a…b564               Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x0074, t01=0x002e}
0xb564…b574               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0048}
0xb574…b584               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0058}
0xb584…b5a0               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x0074, t01=0x0068}
0xb5a0…b5cc               Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x0074, t01=0x0084}
0xb5cc…b5dc               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0074, t01=0x00b0}
0xb5dc…b60a               Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x0074, t01=0x00c0}
0xb60a…b61a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x00ee}
0xb61a…b642               Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x0074, t01=0x00fe}
0xb642…b652               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0126}
0xb652…b67e               Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0074, t01=0x0136}
0xb67e…b68e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0162}
0xb68e…b6be               Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x0074, t01=0x0172}
0xb6be…b6ce               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x0012}
0xb6ce…b6fe               Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x0075, t01=0x0022}
0xb6fe…b70e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x0052}
0xb70e…b73a               Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x0075, t01=0x0062}
0xb73a…b74e               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0075, t01=0x008e}
0xb74e…b77a               Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x0075, t01=0x00a2}
0xb77a…b78e               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0075, t01=0x00ce}
0xb78e…b7ba               Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x0075, t01=0x00e2}
0xb7ba…b7ce               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0075, t01=0x010e}
0xb7ce…b7fa               Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x0075, t01=0x0122}
0xb7fa…b80e               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0075, t01=0x014e}
0xb80e…b824               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0075, t01=0x0162}
0xb824…b856               Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x0075, t01=0x0178}
0xb856…b866               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x001a}
0xb866…b89e               Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x0076, t01=0x002a}
0xb89e…b8ae               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x0062}
0xb8ae…b8ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0072}
0xb8ba…b8c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x007e}
0xb8c4…b8d8               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0076, t01=0x0088}
0xb8d8…b912               Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x0076, t01=0x009c}
0xb912…b922               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x00d6}
0xb922…b952               Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x0076, t01=0x00e6}
0xb952…b962               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x0116}
0xb962…b992               Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x0076, t01=0x0126}
0xb992…b9a2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x0156}
0xb9a2…b9ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0166}
0xb9ae…b9b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0172}
0xb9b8…b9ca               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0076, t01=0x017c}
0xb9ca…b9fa               Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x0076, t01=0x018e}
0xb9fa…ba10               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x002e}
0xba10…ba38               Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x0077, t01=0x0044}
0xba38…ba4e               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x006c}
0xba4e…ba78               Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x0077, t01=0x0082}
0xba78…ba8e               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x00ac}
0xba8e…babc               Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x0077, t01=0x00c2}
0xbabc…bad2               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x00f0}
0xbad2…bb04               Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x0077, t01=0x0106}
0xbb04…bb1a               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x0138}
0xbb1a…bb26               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x014e}
0xbb26…bb30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x015a}
0xbb30…bb48               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0077, t01=0x0164}
0xbb48…bb5e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0077, t01=0x017c}
0xbb5e…bb7a (120, 0, 400) Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0078, t01=0x0004}
0xbb7a…bb96               Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x0078, t01=0x0020}
0xbb96…bbc4               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x0078, t01=0x003c}
0xbbc4…bbe4               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0078, t01=0x006a}
0xbbe4…bbee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x008a}
0xbbee…bc0a               Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0078, t01=0x0094}
0xbc0a…bc38               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0078, t01=0x00b0}
0xbc38…bc42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00de}
0xbc42…bc5e               Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x0078, t01=0x00e8}
0xbc5e…bc86               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x0078, t01=0x0104}
0xbc86…bc92               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x012c}
0xbc92…bc9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0138}
0xbc9c…bcb2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0078, t01=0x0142}
0xbcb2…bcc6               Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0078, t01=0x0158}
0xbcc6…bcd6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0078, t01=0x016c}
0xbcd6…bcea               Head {h00=0x0010, h01=0x0050, text=» DATA FD:BUF«, t00=0x0078, t01=0x017c}
0xbcea…bd00               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0078, t01=0x0190}
0xbd00…bd0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0016}
0xbd0a…bd20               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x0079, t01=0x0020}
0xbd20…bd3c               Head {h00=0x0018, h01=0x0050, text=»FD:BUF RES DVBLEN+1 «, t00=0x0079, t01=0x0036}
0xbd3c…bd48               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x0052}
0xbd48…bd52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x005e}
0xbd52…bd68               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0079, t01=0x0068}
0xbd68…bd7e               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x0079, t01=0x007e}
0xbd7e…bd92               Head {h00=0x0010, h01=0x0050, text=»FD:BUF EQU 0«, t00=0x0079, t01=0x0094}
0xbd92…bd9e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x00a8}
0xbd9e…bda8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00b4}
0xbda8…bdc8               Head {h00=0x001c, h01=0x0050, text=»FDCIO EQU *-DWFD01  KST «, t00=0x0079, t01=0x00be}
0xbdc8…bde4               Head {h00=0x0018, h01=0x0050, text=» CIO A2,1,CUADR  KST«, t00=0x0079, t01=0x00de}
0xbde4…be04               Head {h00=0x001c, h01=0x0050, text=»FDSST EQU *-DWFD01  KST «, t00=0x0079, t01=0x00fa}
0xbe04…be1e               Head {h00=0x0016, h01=0x0050, text=» SST A3,CUADR  KST«, t00=0x0079, t01=0x011a}
0xbe1e…be3e               Head {h00=0x001c, h01=0x0050, text=»FDOTR EQU *-DWFD01  KST «, t00=0x0079, t01=0x0134}
0xbe3e…be56               Head {h00=0x0014, h01=0x0050, text=» OTR A3,0,CUADR «, t00=0x0079, t01=0x0154}
0xbe56…be76               Head {h00=0x001c, h01=0x0050, text=»FDHLT EQU *-DWFD01  KST «, t00=0x0079, t01=0x016c}
0xbe76…be92               Head {h00=0x0018, h01=0x0050, text=» CIO A2,0,CUADR  KST«, t00=0x0079, t01=0x018c}
0xbe92…beb2               Head {h00=0x001c, h01=0x0050, text=»FDINR EQU *-DWFD01  KST «, t00=0x007a, t01=0x0018}
0xbeb2…bece               Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR  KST«, t00=0x007a, t01=0x0038}
0xbece…bed8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0054}
0xbed8…bee2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x005e}
0xbee2…bf1c               Head {h00=0x0036, h01=0x0050, text=»*              NEXT DWT INTRODUCED BY KST 80-11-12«, t00=0x007a, t01=0x0068}
0xbf1c…bf26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00a2}
0xbf26…bf3a               Head {h00=0x0010, h01=0x0050, text=»DWFD02 EQU *«, t00=0x007a, t01=0x00ac}
0xbf3a…bf4a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x00c0}
0xbf4a…bf68               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x007a, t01=0x00d0}
0xbf68…bf84               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x007a, t01=0x00ee}
0xbf84…bf9a               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x007a, t01=0x010a}
0xbf9a…bfc0               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x007a, t01=0x0120}
0xbfc0…bfdc               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x007a, t01=0x0146}
0xbfdc…c004               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x007a, t01=0x0162}
0xc004…c022               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x007a, t01=0x018a}
0xc022…c02c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0018}
0xc02c…c042               Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x007b, t01=0x0022}
0xc042…c06c               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x007b, t01=0x0038}
0xc06c…c090               Head {h00=0x0020, h01=0x0050, text=» DATA DVECB2 MMU ECB ADDRESS«, t00=0x007b, t01=0x0062}
0xc090…c09c               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x007b, t01=0x0086}
0xc09c…c0a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0092}
0xc0a6…c0b6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x009c}
0xc0b6…c0d0               Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x007b, t01=0x00ac}
0xc0d0…c0e0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x00c6}
0xc0e0…c0f0               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x00d6}
0xc0f0…c10c               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x007b, t01=0x00e6}
0xc10c…c11c               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x007b, t01=0x0102}
0xc11c…c12c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0112}
0xc12c…c13c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0122}
0xc13c…c14c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0132}
0xc14c…c15c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0142}
0xc15c…c16c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0152}
0xc16c…c180               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x0162}
0xc180…c194               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x0176}
0xc194…c1a8               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x018a}
0xc1a8…c1bc               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007c, t01=0x000e}
0xc1bc…c1d2               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x007c, t01=0x0022}
0xc1d2…c1e2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0038}
0xc1e2…c1f2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0048}
0xc1f2…c1fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x0058}
0xc1fe…c208               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0064}
0xc208…c21c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x007c, t01=0x006e}
0xc21c…c22c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0082}
0xc22c…c23c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0092}
0xc23c…c24c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x00a2}
0xc24c…c258               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x00b2}
0xc258…c262               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00be}
0xc262…c274               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007c, t01=0x00c8}
0xc274…c28a               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x00da}
0xc28a…c2a0               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x00f0}
0xc2a0…c2b6               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x0106}
0xc2b6…c2cc               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x011c}
0xc2cc…c2e2               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x0132}
0xc2e2…c2ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x0148}
0xc2ee…c2f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0154}
0xc2f8…c310               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x007c, t01=0x015e}
0xc310…c326               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007c, t01=0x0176}
0xc326…c342               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x007c, t01=0x018c}
0xc342…c370               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x007d, t01=0x0018}
0xc370…c390               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x007d, t01=0x0046}
0xc390…c39a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0066}
0xc39a…c3c8               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x007d, t01=0x0070}
0xc3c8…c3d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x009e}
0xc3d2…c3fa               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x007d, t01=0x00a8}
0xc3fa…c406               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x00d0}
0xc406…c410               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00dc}
0xc410…c426               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007d, t01=0x00e6}
0xc426…c43a               Head {h00=0x0010, h01=0x0050, text=»DVECB2 EQU *«, t00=0x007d, t01=0x00fc}
0xc43a…c44a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007d, t01=0x0110}
0xc44a…c45e               Head {h00=0x0010, h01=0x0050, text=» DATA FDBUF2«, t00=0x007d, t01=0x0120}
0xc45e…c474               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x0134}
0xc474…c47e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x014a}
0xc47e…c494               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x007d, t01=0x0154}
0xc494…c4b0               Head {h00=0x0018, h01=0x0050, text=»FDBUF2 RES DVBLEN+1 «, t00=0x007d, t01=0x016a}
0xc4b0…c4bc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x0186}
0xc4bc…c4c6 (126, 2, 258) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0004}
0xc4c6…c4dc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007e, t01=0x000e}
0xc4dc…c4f2               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x007e, t01=0x0024}
0xc4f2…c506               Head {h00=0x0010, h01=0x0050, text=»FDBUF2 EQU 0«, t00=0x007e, t01=0x003a}
0xc506…c512               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x004e}
0xc512…c538               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,CUADR2 CIO-START KST«, t00=0x007e, t01=0x005a}
0xc538…c54e               Head {h00=0x0012, h01=0x0050, text=» SST A3,CUADR2«, t00=0x007e, t01=0x0080}
0xc54e…c566               Head {h00=0x0014, h01=0x0050, text=» OTR A3,0,CUADR2«, t00=0x007e, t01=0x0096}
0xc566…c57e               Head {h00=0x0014, h01=0x0050, text=» CIO A2,0,CUADR2«, t00=0x007e, t01=0x00ae}
0xc57e…c596               Head {h00=0x0014, h01=0x0050, text=» INR A3,0,CUADR2«, t00=0x007e, t01=0x00c6}
0xc596…c5a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00de}
0xc5a0…c5aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00e8}
0xc5aa…c5b6               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x007e, t01=0x00f2}
0xc5b6…c5ba               Head {h00=0x4004, h01=0x0000}
0xc5ba…c5be               00 7e 00 fe                                                                                                                                                                                                                                       ┆ ~  ┆
0xc5be…c5c6 (127, 1, 8)   20 04 00 00 00 7f 00 04                                                                                                                                                                                                                           ┆        ┆
0xc5c6…c616 (128, 0, 398) 04 cb 00 0d 01 8a 00 4a 00 46 00 22 00 44 04 80 52 17 4c 42 1a 34 00 49 1f 1e 00 80 10 02 80 11 22 80 72 0d 30 58 01 0e 80 01 f5 4c 80 52 80 5f 14 30 58 01 0e d3 80 52 34 00 00 a0 2f d3 00 a1 11 80 52 8d 80 52 dc 80 52 c4 80 52 c3 80 52 c2   ┆       J F " D  R LB 4 I        " r 0X     L R _ 0X    R4   /     R  R  R  R  R ┆
0xc616…c666               00 0e 00 0a 00 0c 00 08 00 03 06 06 04 c1 04 cb 00 0e 00 58 00 0c 00 08 00 03 06 06 04 c4 04 cb 00 0e 00 68 00 0c 00 08 00 03 06 06 04 c7 04 cb 00 0e 00 78 00 0c 00 08 00 03 05 06 04 ce 00 18 00 0e 00 88 00 0c 00 08 00 03 20 06 00 00 00 08   ┆                   X               h               x                            ┆
0xc666…c6b6               00 0e 00 98 00 0a 00 05 00 02 26 03 e1 00 00 0e 00 a8 00 0e 00 09 00 04 26 07 f0 02 00 00 00 00 00 0e 00 b6 00 0e 00 09 00 04 1a 07 00 01 10 01 42 00 00 0e 00 c8 00 0c 00 07 00 03 22 05 00 01 dd 00 00 0e 00 da 00 08 00 04 00 01 28 02 00 0e   ┆          &             &                       B           "               (   ┆
0xc6b6…c706               00 ea 00 0c 00 08 00 03 20 06 00 02 00 2d 00 0e 00 f6 00 0a 00 05 00 02 26 03 e0 01 00 0e 01 06 00 10 00 0b 00 05 26 09 c3 05 53 54 41 52 54 00 00 0e 01 14 00 0a 00 05 00 02 26 03 e1 05 00 0e 01 28 00 12 00 0d 00 06 26 0b c3 07 56 4f 4c 55   ┆             -          &             &   START           &      (      &   VOLU┆
0xc706…c754               4d 45 3d 00 00 0e 01 36 00 0e 00 09 00 04 26 07 f0 09 86 06 00 55 00 0e 01 4c 00 0c 00 07 00 03 26 05 c0 7f 11 06 00 0e 01 5e 00 0a 00 05 00 02 26 03 e1 7f 00 0e 01 6e 00 12 00 0e 00 06 26 0c c3 08 44 41 54 41 53 45 54 3d 00 0e 01 7c         ┆ME=    6      &      U   L      &        ^      &      n      &   DATASET=   |┆
0xc754…c7a4 (129, 0, 400) 00 0e 00 09 00 04 26 07 f0 09 86 06 00 41 00 0f 00 04 00 0c 00 07 00 03 26 05 c0 7a 11 06 00 0f 00 16 00 08 00 04 00 01 28 02 00 0f 00 26 00 0c 00 08 00 03 20 06 00 03 00 26 00 0f 00 32 00 0a 00 05 00 02 26 03 e0 7a 00 0f 00 42 00 16 00 12   ┆      &      A          &  z            (    &           &   2      &  z   B    ┆
0xc7a4…c7f4               00 08 16 10 00 04 00 0a 4b 4f 4d 4d 55 4e 45 20 4e 52 00 0f 00 50 00 0c 00 07 00 03 24 05 c1 00 04 06 00 0f 00 6a 00 0e 00 09 00 04 26 07 f0 0c 83 04 00 41 00 0f 00 7a 00 10 00 0c 00 05 1a 0a 00 05 10 04 5a 5a 5a 5a 00 0f 00 8c 00 0c 00 07   ┆        KOMMUNE NR   P      $        j      &      A   z            ZZZZ        ┆
0xc7f4…c844               00 03 22 05 00 05 7d 04 00 0f 00 a0 00 0a 00 05 00 02 26 03 e1 05 00 0f 00 b0 00 20 00 1b 00 0d 16 19 00 06 00 13 56 4f 4c 20 32 20 20 56 4f 4c 20 33 20 20 56 4f 4c 20 34 58 00 0f 00 be 00 0c 00 07 00 03 24 05 c1 00 06 04 00 0f 00 e2 00 0a   ┆  "   }           &                   VOL 2  VOL 3  VOL 4X          $           ┆
0xc844…c894               00 05 00 02 26 03 e1 00 00 0f 00 f2 00 0e 00 09 00 04 26 07 f0 01 86 06 00 41 00 0f 01 00 00 0c 00 07 00 03 26 05 c0 7f 12 06 00 0f 01 12 00 0e 00 09 00 04 26 07 f0 08 06 06 00 41 00 0f 01 22 00 0c 00 07 00 03 26 05 c0 7f 13 06 00 0f 01 34   ┆    &             &      A          &               &      A   "      &        4┆
0xc894…c8e4               00 0e 00 09 00 04 26 07 f0 0f 06 06 00 41 00 0f 01 44 00 0c 00 07 00 03 26 05 c0 7f 14 06 00 0f 01 56 00 08 00 04 00 01 28 02 00 0f 01 66 00 0c 00 08 00 03 20 06 00 07 00 2e 00 0f 01 72 00 0a 00 05 00 02 26 03 e0 7f 00 0f 01 82 00 0e 00 0a   ┆      &      A   D      &        V      (    f           .   r      &           ┆
0xc8e4…c934 (130, 0, 400) 00 04 1a 08 00 08 10 02 39 39 00 0f 01 90 00 0c 00 07 00 03 22 05 00 08 88 06 00 10 00 12 00 0a 00 05 00 02 26 03 e1 08 00 10 00 22 00 16 00 11 00 08 16 0f 00 09 00 09 4d 41 53 4b 49 4e 20 4e 52 4c 00 10 00 30 00 0c 00 07 00 03 24 05 c1 00   ┆        99          "               &      "            MASKIN NRL   0      $   ┆
0xc934…c984               09 06 00 10 00 4a 00 0e 00 09 00 04 26 07 f0 16 83 03 00 41 00 10 00 5a 00 10 00 0b 00 05 1a 09 00 0a 10 03 39 39 39 45 00 10 00 6c 00 0c 00 08 00 03 22 06 00 0a 67 a0 00 10 00 80 00 0a 00 05 00 02 26 03 e1 0a 00 10 00 90 00 1e 00 1a 00 0c   ┆     J      &      A   Z            999E   l      "   g           &             ┆
0xc984…c9d4               16 18 00 0b 00 12 42 45 48 4f 4c 44 4e 49 4e 47 53 54 5b 4c 4c 45 52 45 00 10 00 9e 00 0c 00 07 00 03 24 05 c1 00 0b a0 00 10 00 c0 00 0e 00 0a 00 04 26 08 f2 17 67 80 02 00 00 10 00 d0 00 0e 00 0a 00 04 1a 08 00 0c 10 02 39 39 00 10 00 e2   ┆      BEHOLDNINGST[LLERE          $               &   g                   99    ┆
0xc9d4…ca24               00 0c 00 07 00 03 22 05 00 0c 86 80 00 10 00 f4 00 0a 00 05 00 02 26 03 e1 0c 00 10 01 04 00 1a 00 16 00 0a 16 14 00 0d 00 0e 45 4a 2d 45 44 42 20 54 5b 4c 4c 45 52 20 00 10 01 12 00 0c 00 07 00 03 24 05 c1 00 0d 80 00 10 01 30 00 0e 00 0a   ┆      "               &                   EJ-EDB T[LLER           $        0    ┆
0xca24…ca74               00 04 26 08 f2 17 68 80 02 00 00 10 01 40 00 0e 00 0a 00 04 1a 08 00 0e 10 02 39 39 00 10 01 52 00 0c 00 07 00 03 22 05 00 0e 87 80 00 10 01 64 00 0a 00 05 00 02 26 03 e1 0e 00 10 01 74 00 16 00 11 00 08 16 0f 00 0f 00 09 20 45 4b 53 2e 4c   ┆  &   h      @            99   R      "        d      &      t             EKS.L┆
0xca74…cac4 (131, 0, 400) 42 4e 52 00 00 10 01 82 00 0c 00 07 00 03 24 05 c1 00 0f 80 00 11 00 0c 00 0e 00 09 00 04 26 07 f0 14 80 05 00 00 00 11 00 1c 00 12 00 0d 00 06 1a 0b 00 10 10 05 5a 5a 5a 5a 39 3d 00 11 00 2e 00 0c 00 07 00 03 22 05 00 10 f7 05 00 11 00 44   ┆BNR           $               &                       ZZZZ9=   .      "        D┆
0xcac4…cb14               00 08 00 04 00 01 28 02 00 11 00 54 00 0c 00 08 00 03 20 06 00 11 00 1a 00 11 00 60 00 0a 00 05 00 02 26 03 e0 10 00 11 00 70 00 16 00 12 00 08 16 10 00 12 00 0a 56 4f 4c 55 4d 45 20 4e 52 20 00 11 00 7e 00 0c 00 07 00 03 24 05 c1 00 12 05   ┆      (    T               `      &      p            VOLUME NR    ~      $     ┆
0xcb14…cb64               00 11 00 98 00 12 00 0d 00 06 1a 0b 00 13 10 05 39 39 39 39 39 3d 00 11 00 a8 00 0c 00 07 00 03 22 05 00 13 7c 05 00 11 00 be 00 0a 00 05 00 02 26 03 e1 13 00 11 00 ce 00 16 00 11 00 08 16 0f 00 14 00 09 44 41 47 53 2d 44 41 54 4f 20 00 11   ┆                99999=          "   |           &                   DAGS-DATO   ┆
0xcb64…cbb4               00 dc 00 0c 00 07 00 03 24 05 c1 00 14 05 00 11 00 f6 00 0e 00 09 00 04 26 07 f0 0b 86 06 c2 00 00 11 01 06 00 16 00 12 00 08 1a 10 00 15 10 0a 39 39 45 2d 39 39 45 2d 39 39 00 11 01 18 00 0c 00 07 00 03 22 05 00 15 7e 06 00 11 01 32 00 0a   ┆        $               &                       99E-99E-99          "   ~    2  ┆
0xcbb4…cc04               00 05 00 02 26 03 e1 15 00 11 01 42 00 12 00 0e 00 06 16 0c 00 16 00 06 44 41 47 20 4e 52 00 11 01 50 00 0c 00 07 00 03 24 05 c1 00 16 06 00 11 01 66 00 0e 00 0a 00 04 26 08 f2 0b 66 81 03 00 00 11 01 76 00 10 00 0b 00 05 1a 09 00 17 10 03   ┆    &      B            DAG NR   P      $        f      &   f      v            ┆
0xcc04…cc54 (132, 0, 400) 5a 5a 5a 45 00 11 01 88 00 0c 00 07 00 03 22 05 00 17 6d 81 00 12 00 0c 00 08 00 04 00 01 28 02 00 12 00 1c 00 0c 00 08 00 03 20 06 00 18 00 0d 00 12 00 28 00 0a 00 05 00 02 26 03 e0 17 00 12 00 38 00 16 00 12 00 08 16 10 00 19 00 0a 56 4f   ┆ZZZE          "   m           (                    (      &      8            VO┆
0xcc54…cca4               4c 55 4d 45 20 4e 52 20 00 12 00 46 00 0c 00 07 00 03 24 05 c1 00 19 81 00 12 00 60 00 0c 00 08 00 03 26 06 c3 02 4f 4b 00 12 00 70 00 0a 00 06 00 02 26 04 81 3f 00 12 00 80 00 0a 00 06 00 02 26 04 81 07 00 12 00 8e 00 0c 00 07 00 03 24 05   ┆LUME NR    F      $        `      &   OK   p      &  ?          &             $ ┆
0xcca4…ccf4               df 00 00 4b 00 12 00 9c 00 08 00 04 00 01 28 02 00 12 00 ac 00 0c 00 08 00 03 20 06 00 1a 00 09 00 12 00 b8 00 0a 00 05 00 02 26 03 e0 00 00 12 00 c8 00 14 00 10 00 07 16 0e 00 1b 00 08 4f 50 53 54 41 52 54 20 00 12 00 d6 00 0c 00 07 00 03   ┆   K          (                           &                   OPSTART           ┆
0xccf4…cd44               24 05 c1 00 1b 4b 00 12 00 ee 00 0a 00 06 00 02 26 04 81 3f 00 12 00 fe 00 0a 00 06 00 02 26 04 81 07 00 12 01 0c 00 0c 00 07 00 03 24 05 df 00 00 4b 00 12 01 1a 00 08 00 04 00 01 28 02 00 12 01 2a 00 0c 00 08 00 03 20 06 00 1c 00 09 00 12   ┆$    K          &  ?          &             $    K          (    *              ┆
0xcd44…cd94               01 36 00 0a 00 05 00 02 26 03 e0 00 00 12 01 46 00 14 00 0f 00 07 16 0d 00 1d 00 07 4b 4f 52 52 45 4b 54 20 00 12 01 54 00 0c 00 07 00 03 24 05 c1 00 1d 4b 00 12 01 6c 00 0a 00 06 00 02 26 04 81 3f 00 12 01 7c 00 0a 00 06 00 02 26 04 81 07   ┆ 6      &      F            KORREKT    T      $    K   l      &  ?   |      &   ┆

Reduced view