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

⟦3aeeb417c⟧ 

    Length: 52752 (0xce10)
    Notes: pts_type(SC)
    Names: »DRFD01.SC«

Derivation

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

PTS(SC)

	IDENT	DRFD01	REL 9.2 DUAL CHFD'S 80.11.12

			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	1 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
	 			DRFD01 
* 
* 
*	A PROGRAM VERSION USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	0
* 
* 
*	A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK 
*	BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. 
* 
SWPBLK	EQU	0
* 
* 
*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER 
*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1
* 
X:D	EQU	0 
OPCLOS	EQU	1
* 
	 			DRFD01 
* 
* 
*   MMU BUFFER SIZE 
* 
* 
X:E	EQU	256		 
DVBLEN	EQU	256		
* 
* 
*   MMU DEVICE INDEX
* 
* 
	IFT	CHAN=1 
DEVIND	EQU	2
	XIF
* 
	IFT	CHAN=0 
DEVIND	EQU	4-IBM-IBM
	XIF
* 
	 			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
	MSR	8,A15		KST 
	LDKL	A6,DWFD02		KST
* 
FDON05	EQU	*
	IM	DWTA2,A6	SET FDON FLAG
	LDKL	A5,DWTSB2 
	ADR	A5,A6	GET STACK BASE 
* 
	IFF	DSKPAG+SWPBLK=0
	LD	A2,INIFLG	CHECK INITIALIZATION FLAG 
	RF(Z)	FDON07	POWER UP? 
	LD	A2,SCTPLD	GET FILE CODE OF PROGRAM LOADING DEVICE 
	SUK	A2,/F8 
	RF(N)	FDON07	NOT FLEXIBLE DISC?
	LDR	A3,A2
	CF	A5,SETCIO	DRIVE NR IN CIO INSTRUCTION 
	CF	A5,FDIX	GET DRIVE BIT INDICATOR 
	ORS	A3,DWTLC,A6	INDICATE DRIVE LOCKED
* 
	 			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 
	MSR	8,A15		KST 
	LDKL	A6,DWFD02		KST
IH000	EQU	*		KST
	IFT	CHAN=1 
	ENB
	LD	A1,DWTUB,A6	GET BUFFER POINTER
	LD	A2,DWTUBE,A6	END OF BUFFER
	SUR	A2,A1	LENGTH 
IH005	EQU	* 
	EX	FDSST,A6		KST 
	RF(A)	IH:000	READY INTERRUPT 
	LD	A3,DWTRW,A6	READ/WRITE INDICATOR
	RF(NZ)	IH050	READ
* 
	 		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…0032 (0, 0, 400)   Head {h00=0x002e, h01=0x0050, text=» IDENT DRFD01 REL 9.2 DUAL CHFD'S 80.11.12«, t00=0x0000, t01=0x0004}
0x0032…003a               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…006c               Head {h00=0x002e, h01=0x0050, text=»   KST,MODIFICATION FOR DUAL CONTR. UNITS «, t00=0x0000, t01=0x003e}
0x006c…009a               Head {h00=0x002a, h01=0x0050, text=»   =2,TIMING PROBLEMS IN INT. HANDLER «, t00=0x0000, t01=0x0070}
0x009a…00b6               Head {h00=0x0018, h01=0x0050, text=»   REL 9.2 79-11-16 «, t00=0x0000, t01=0x009e}
0x00b6…00de               Head {h00=0x0024, h01=0x0050, text=»   =1,CHANGED INTERRUPT HANDLER «, t00=0x0000, t01=0x00ba}
0x00de…00fa               Head {h00=0x0018, h01=0x0050, text=»   REL 9.1 79-05-23 «, t00=0x0000, t01=0x00e2}
0x00fa…0104               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…013a               Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0108}
0x013a…0144               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013e}
0x0144…016a               Head {h00=0x0022, h01=0x0050, text=»*  PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x0148}
0x016a…0174               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…01a0               Head {h00=0x0028, h01=0x0050, text=»*  DRFD01 = DRIVER FOR FLEXIBLE DISK«, t00=0x0000, t01=0x0178}
0x01a0…01aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0014}
0x01aa…01b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001e}
0x01b4…01be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0028}
0x01be…01c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0032}
0x01c8…01d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x003c}
0x01d2…01dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0046}
0x01dc…0212               Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0001, t01=0x0050}
0x0212…0246               Head {h00=0x0030, h01=0x0050, text=»*  THIS DISK DRIVER HANDLES UP TO FOUR DAISY«, t00=0x0001, t01=0x0086}
0x0246…0278               Head {h00=0x002e, h01=0x0050, text=»*  CHAINED FLEXIBLE DISK DRIVES PTS 6879, «, t00=0x0001, t01=0x00ba}
0x0278…02ac               Head {h00=0x0030, h01=0x0050, text=»*  CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON«, t00=0x0001, t01=0x00ec}
0x02ac…02d6               Head {h00=0x0026, h01=0x0050, text=»*  MULTIPLEX OR PROGRAMMED CHANNEL«, t00=0x0001, t01=0x0120}
0x02d6…02e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014a}
0x02e0…02f4               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0001, t01=0x0154}
0x02f4…02fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0168}
0x02fe…0310               Head {h00=0x000e, h01=0x0050, text=»*  ORDERS:«, t00=0x0001, t01=0x0172}
0x0310…031a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0184}
0x031a…0336               Head {h00=0x0018, h01=0x0050, text=»*  /00   TEST STATUS«, t00=0x0001, t01=0x018e}
0x0336…0354               Head {h00=0x001a, h01=0x0050, text=»*  /01   PHYSICAL READ«, t00=0x0002, t01=0x001a}
0x0354…039a               Head {h00=0x0042, h01=0x0050, text=»*  /02   SEQUENTIAL READ                       -IBM DISC ONLY-«, t00=0x0002, t01=0x0038}
0x039a…03b6               Head {h00=0x0018, h01=0x0050, text=»*  /05   BASIC WRITE«, t00=0x0002, t01=0x007e}
0x03b6…03fe               Head {h00=0x0044, h01=0x0050, text=»*  /06   SEQUENTIAL WRITE                       -IBM DISC ONLY- «, t00=0x0002, t01=0x009a}
0x03fe…041c               Head {h00=0x001a, h01=0x0050, text=»*  /11   PHYSICAL READ«, t00=0x0002, t01=0x00e2}
0x041c…043c               Head {h00=0x001c, h01=0x0050, text=»*  /15   PHYSICAL WRITE «, t00=0x0002, t01=0x0100}
0x043c…0458               Head {h00=0x0018, h01=0x0050, text=»*  /1A   SEARCH KEY «, t00=0x0002, t01=0x0120}
0x0458…046c               Head {h00=0x0010, h01=0x0050, text=»*  /21 OPEN «, t00=0x0002, t01=0x013c}
0x046c…0480               Head {h00=0x0010, h01=0x0050, text=»*  /22 CLOSE«, t00=0x0002, t01=0x0150}
0x0480…04a4               Head {h00=0x0020, h01=0x0050, text=»*  /24   WRITE DELETED DATA «, t00=0x0002, t01=0x0164}
0x04a4…04ba               Head {h00=0x0012, h01=0x0050, text=»*  /26   LOCK «, t00=0x0002, t01=0x0188}
0x04ba…0502               Head {h00=0x0044, h01=0x0050, text=»*  /31   REWIND                                 -IBM DISC ONLY- «, t00=0x0003, t01=0x000e}
0x0502…0518               Head {h00=0x0012, h01=0x0050, text=»*  /37   LOAD «, t00=0x0003, t01=0x0056}
0x0518…0530               Head {h00=0x0014, h01=0x0050, text=»*  /38   UNLOAD «, t00=0x0003, t01=0x006c}
0x0530…053a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0084}
0x053a…0556               Head {h00=0x0018, h01=0x0050, text=»*  ENTRY PARAMETERS:«, t00=0x0003, t01=0x008e}
0x0556…0560               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00aa}
0x0560…057c               Head {h00=0x0018, h01=0x0050, text=»*   A5   STACK BASE «, t00=0x0003, t01=0x00b4}
0x057c…0598               Head {h00=0x0018, h01=0x0050, text=»*   A6   DWT-ADDRESS«, t00=0x0003, t01=0x00d0}
0x0598…05ae               Head {h00=0x0012, h01=0x0050, text=»*   A7   ORDER«, t00=0x0003, t01=0x00ec}
0x05ae…05ca               Head {h00=0x0018, h01=0x0050, text=»*   A8   ECB-ADDRESS«, t00=0x0003, t01=0x0102}
0x05ca…05de               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0003, t01=0x011e}
0x05de…05e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0132}
0x05e8…05fc               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x013c}
0x05fc…0610               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x0150}
0x0610…0624               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0003, t01=0x0164}
0x0624…0638               Head {h00=0x0010, h01=0x0050, text=»*         * «, t00=0x0003, t01=0x0178}
0x0638…064c               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0003, t01=0x018c}
0x064c…0656               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0010}
0x0656…067e               Head {h00=0x0024, h01=0x0050, text=» ENTRY  FDADR ACTIVATION ADDRESS«, t00=0x0004, t01=0x001a}
0x067e…06a4               Head {h00=0x0022, h01=0x0050, text=» ENTRY IHFD INTERRUPT HANDLER «, t00=0x0004, t01=0x0042}
0x06a4…06c8               Head {h00=0x0020, h01=0x0050, text=» ENTRY FDON RECOVERY ROUTINE«, t00=0x0004, t01=0x0068}
0x06c8…06ea               Head {h00=0x001e, h01=0x0050, text=» ENTRY DWFD01 DWT-ADDRESS «, t00=0x0004, t01=0x008c}
0x06ea…0714               Head {h00=0x0026, h01=0x0050, text=» ENTRY IHFD2 INTERRUPT HANDLER KST«, t00=0x0004, t01=0x00ae}
0x0714…0732               Head {h00=0x001a, h01=0x0050, text=» ENTRY DWFD02 DWT KST «, t00=0x0004, t01=0x00d8}
0x0732…074c               Head {h00=0x0016, h01=0x0050, text=» ENTRY FDON2  KST «, t00=0x0004, t01=0x00f6}
0x074c…0760               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0004, t01=0x0110}
0x0760…076a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0124}
0x076a…0780               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x012e}
0x0780…0796               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x0144}
0x0796…07ac               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x015a}
0x07ac…07c2               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x0004, t01=0x0170}
0x07c2…07d8               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0186}
0x07d8…07e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000c}
0x07e2…0802               Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0005, t01=0x0016}
0x0802…081e               Head {h00=0x0018, h01=0x0050, text=» EXTRN TENDIO ENDIO «, t00=0x0005, t01=0x0036}
0x081e…0842               Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0005, t01=0x0052}
0x0842…085e               Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x0076}
0x085e…0880               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x0092}
0x0880…08a8               Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x00b4}
0x08a8…08ca               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0005, t01=0x00dc}
0x08ca…08ec               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0005, t01=0x00fe}
0x08ec…0916               Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0005, t01=0x0120}
0x0916…0942               Head {h00=0x0028, h01=0x0050, text=» EXTRN SCTPLD PROGRAM LOADING DEVICE«, t00=0x0005, t01=0x014a}
0x0942…096e               Head {h00=0x0028, h01=0x0050, text=» EXTRN SAVE8 SAVE A1-A8 ON A15 STACK«, t00=0x0005, t01=0x0176}
0x096e…098a               Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0006, t01=0x0012}
0x098a…09b4               Head {h00=0x0026, h01=0x0050, text=» EXTRN INTSAV INTERRUPT SAVE AREA «, t00=0x0006, t01=0x002e}
0x09b4…09de               Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0006, t01=0x0058}
0x09de…0a08               Head {h00=0x0026, h01=0x0050, text=» EXTRN TASCII EBCDIC TO ASCII TAB «, t00=0x0006, t01=0x0082}
0x0a08…0a32               Head {h00=0x0026, h01=0x0050, text=» EXTRN TEBCDIC ASCII TO EBCDIC TAB«, t00=0x0006, t01=0x00ac}
0x0a32…0a66               Head {h00=0x0030, h01=0x0050, text=» EXTRN SPDLCI OPEN/CLOSE STATUS FOR FD DRIVE«, t00=0x0006, t01=0x00d6}
0x0a66…0a8e               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0006, t01=0x010a}
0x0a8e…0ab8               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0006, t01=0x0132}
0x0ab8…0ae2               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0006, t01=0x015c}
0x0ae2…0b06               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0006, t01=0x0186}
0x0b06…0b2c               Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBCW ECB CONTROL WORD «, t00=0x0007, t01=0x001a}
0x0b2c…0b40               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0007, t01=0x0040}
0x0b40…0b4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0054}
0x0b4a…0b6a               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x005e}
0x0b6a…0b8a               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x007e}
0x0b8a…0baa               Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0007, t01=0x009e}
0x0baa…0bca               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0007, t01=0x00be}
0x0bca…0bea               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x00de}
0x0bea…0bf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fe}
0x0bf4…0c26               Head {h00=0x002e, h01=0x0050, text=»* MULTIPLEX CHANNEL INSTEAD OF PROGRAMMED «, t00=0x0007, t01=0x0108}
0x0c26…0c4a               Head {h00=0x0020, h01=0x0050, text=»* CHANNEL BY SETTING X:A = 0«, t00=0x0007, t01=0x013a}
0x0c4a…0c54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c54…0c66               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x0168}
0x0c66…0c78               Head {h00=0x000e, h01=0x0050, text=»CHAN EQU 1«, t00=0x0007, t01=0x017a}
0x0c78…0c82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018c}
0x0c82…0cb8               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT«, t00=0x0008, t01=0x0008}
0x0cb8…0ce4               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING TOSS EQU 1.«, t00=0x0008, t01=0x003e}
0x0ce4…0cee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006a}
0x0cee…0d00               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x0074}
0x0d00…0d12               Head {h00=0x000e, h01=0x0050, text=»TOSS EQU 1«, t00=0x0008, t01=0x0086}
0x0d12…0d1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0098}
0x0d1c…0d52               Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING IBM DISC FORMAT «, t00=0x0008, t01=0x00a2}
0x0d52…0d7e               Head {h00=0x0028, h01=0x0050, text=»* IS OBTAINED BY SETTING IBM EQU 1. «, t00=0x0008, t01=0x00d8}
0x0d7e…0d88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0104}
0x0d88…0d9a               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0008, t01=0x010e}
0x0d9a…0dac               Head {h00=0x000e, h01=0x0050, text=»IBM EQU 1 «, t00=0x0008, t01=0x0120}
0x0dac…0db6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0132}
0x0db6…0de8               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x013c}
0x0de8…0e16               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x016e}
0x0e16…0e20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000c}
0x0e20…0e34               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0009, t01=0x0016}
0x0e34…0e3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002a}
0x0e3e…0e48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0034}
0x0e48…0e82               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x003e}
0x0e82…0eb4               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x0078}
0x0eb4…0ebe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00aa}
0x0ebe…0ed2               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0009, t01=0x00b4}
0x0ed2…0edc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c8}
0x0edc…0ef0               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0009, t01=0x00d2}
0x0ef0…0efa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e6}
0x0efa…0f04               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x00f0}
0x0f04…0f36               Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0009, t01=0x00fa}
0x0f36…0f64               Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0009, t01=0x012c}
0x0f64…0f6e               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x015a}
0x0f6e…0f82               Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0009, t01=0x0164}
0x0f82…0f8c               Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0009, t01=0x0178}
0x0f8c…0f96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0182}
0x0f96…0fd0               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK «, t00=0x0009, t01=0x018c}
0x0fd0…1006               Head {h00=0x0032, h01=0x0050, text=»* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. «, t00=0x000a, t01=0x0036}
0x1006…1010               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006c}
0x1010…1024               Head {h00=0x0010, h01=0x0050, text=»SWPBLK EQU 0«, t00=0x000a, t01=0x0076}
0x1024…102e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008a}
0x102e…1038               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0094}
0x1038…107c               Head {h00=0x0040, h01=0x0050, text=»*    ORDERS /21 OPEN AND /22 CLOSE WHICH CONTROLS THE POWER «, t00=0x000a, t01=0x009e}
0x107c…10c4               Head {h00=0x0044, h01=0x0050, text=»*    TO THE DISK DRIVE UNIT CAN BE INCLUDED BY SETTING OPCLOS =1«, t00=0x000a, t01=0x00e2}
0x10c4…10ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012a}
0x10ce…10e0               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000a, t01=0x0134}
0x10e0…10f4               Head {h00=0x0010, h01=0x0050, text=»OPCLOS EQU 1«, t00=0x000a, t01=0x0146}
0x10f4…10fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015a}
0x10fe…1112               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x000a, t01=0x0164}
0x1112…111c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0178}
0x111c…1126               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0182}
0x1126…1142               Head {h00=0x0018, h01=0x0050, text=»*   MMU BUFFER SIZE «, t00=0x000a, t01=0x018c}
0x1142…114c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0018}
0x114c…1156               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0022}
0x1156…116c               Head {h00=0x0012, h01=0x0050, text=»X:E EQU 256   «, t00=0x000b, t01=0x002c}
0x116c…1184               Head {h00=0x0014, h01=0x0050, text=»DVBLEN EQU 256  «, t00=0x000b, t01=0x0042}
0x1184…118e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005a}
0x118e…1198               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0064}
0x1198…11b4               Head {h00=0x0018, h01=0x0050, text=»*   MMU DEVICE INDEX«, t00=0x000b, t01=0x006e}
0x11b4…11be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008a}
0x11be…11c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0094}
0x11c8…11dc               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x000b, t01=0x009e}
0x11dc…11f0               Head {h00=0x0010, h01=0x0050, text=»DEVIND EQU 2«, t00=0x000b, t01=0x00b2}
0x11f0…11fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00c6}
0x11fc…1206               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d2}
0x1206…121a               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000b, t01=0x00dc}
0x121a…1236               Head {h00=0x0018, h01=0x0050, text=»DEVIND EQU 4-IBM-IBM«, t00=0x000b, t01=0x00f0}
0x1236…1242               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x010c}
0x1242…124c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x124c…1260               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x000b, t01=0x0122}
0x1260…126a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0136}
0x126a…1280               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x0140}
0x1280…1296               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x0156}
0x1296…12ac               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x016c}
0x12ac…12c2               Head {h00=0x0012, h01=0x0050, text=»*           * «, t00=0x000b, t01=0x0182}
0x12c2…12d8               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000c, t01=0x0008}
0x12d8…12e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001e}
0x12e2…130c               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU 09 CONTROL UNIT ADDRESS «, t00=0x000c, t01=0x0028}
0x130c…1330               Head {h00=0x0020, h01=0x0050, text=»CUADR2 EQU /0A SECOND CU ADR«, t00=0x000c, t01=0x0052}
0x1330…135a               Head {h00=0x0026, h01=0x0050, text=»MUXADR EQU CUADR+CUADR MUX-ADDRESS«, t00=0x000c, t01=0x0076}
0x135a…1386               Head {h00=0x0028, h01=0x0050, text=»SOPDA EQU /2E S.O.P. DEVICE ADDRESS «, t00=0x000c, t01=0x00a0}
0x1386…13b4               Head {h00=0x002a, h01=0x0050, text=»STALEN EQU 512 MAX STANDARD SEC. LEN. «, t00=0x000c, t01=0x00cc}
0x13b4…13e0               Head {h00=0x0028, h01=0x0050, text=»TOSLEN EQU 410 MAX TOSS SEC. LENGTH «, t00=0x000c, t01=0x00fa}
0x13e0…1406               Head {h00=0x0022, h01=0x0050, text=»IBMLEN EQU 128 IBM SEC. LENGTH«, t00=0x000c, t01=0x0126}
0x1406…1432               Head {h00=0x0028, h01=0x0050, text=»BOE EQU 28 BEGIN OF EXTENT POSITION «, t00=0x000c, t01=0x014c}
0x1432…145c               Head {h00=0x0026, h01=0x0050, text=»EOE EQU 34 END OF EXTENT POSITION «, t00=0x000c, t01=0x0178}
0x145c…1484               Head {h00=0x0024, h01=0x0050, text=»EOD EQU 74 END OF DATA POSITION «, t00=0x000d, t01=0x0012}
0x1484…14a8               Head {h00=0x0020, h01=0x0050, text=»TIME EQU 20 DELAY - POWER ON«, t00=0x000d, t01=0x003a}
0x14a8…14d2               Head {h00=0x0026, h01=0x0050, text=»OPENTI EQU 10 DELAY AT OPEN ORDERS«, t00=0x000d, t01=0x005e}
0x14d2…14dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0088}
0x14dc…14f8               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0092}
0x14f8…1514               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x000d, t01=0x00ae}
0x1514…1530               Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENTS*«, t00=0x000d, t01=0x00ca}
0x1530…154c               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x000d, t01=0x00e6}
0x154c…1568               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0102}
0x1568…1572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011e}
0x1572…15a6               Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000d, t01=0x0128}
0x15a6…15b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015c}
0x15b0…15c6               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000d, t01=0x0166}
0x15c6…15de               Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000d, t01=0x017c}
0x15de…15ea (14, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0004}
0x15ea…15f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0010}
0x15f4…160a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000e, t01=0x001a}
0x160a…1624               Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000e, t01=0x0030}
0x1624…1630               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x004a}
0x1630…163a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0056}
0x163a…1656               Head {h00=0x0018, h01=0x0050, text=»DWTA3 EQU START+/04 «, t00=0x000e, t01=0x0060}
0x1656…1660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007c}
0x1660…1674               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x000e, t01=0x0086}
0x1674…167e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009a}
0x167e…1690               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00a4}
0x1690…16a2               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x00b6}
0x16a2…16b4               Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000e, t01=0x00c8}
0x16b4…16c6               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x000e, t01=0x00da}
0x16c6…16d8               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x00ec}
0x16d8…16e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00fe}
0x16e2…16f8               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x000e, t01=0x0108}
0x16f8…1724               Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x000e, t01=0x011e}
0x1724…1730               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x014a}
0x1730…173a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0156}
0x173a…1750               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x000e, t01=0x0160}
0x1750…1776               Head {h00=0x0022, h01=0x0050, text=» DATA 0 INDICATE NO MMU BUFFER«, t00=0x000e, t01=0x0176}
0x1776…1782               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x000c}
0x1782…178c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0018}
0x178c…17ae               Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000f, t01=0x0022}
0x17ae…17d8               Head {h00=0x0026, h01=0x0050, text=»FDADR DATA FDAD ACTIVATION ADDRESS«, t00=0x000f, t01=0x0044}
0x17d8…17fe               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000f, t01=0x006e}
0x17fe…1808               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0094}
0x1808…181c               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x000f, t01=0x009e}
0x181c…1826               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b2}
0x1826…183c               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x00bc}
0x183c…1852               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x00d2}
0x1852…1868               Head {h00=0x0012, h01=0x0050, text=»* ACTIVATION *«, t00=0x000f, t01=0x00e8}
0x1868…187e               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x000f, t01=0x00fe}
0x187e…1894               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000f, t01=0x0114}
0x1894…189e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012a}
0x189e…18c2               Head {h00=0x0020, h01=0x0050, text=»FDAD EQU * ACTIVATION ENTRY «, t00=0x000f, t01=0x0134}
0x18c2…18cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0158}
0x18cc…18e2               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x000f, t01=0x0162}
0x18e2…190c               Head {h00=0x0026, h01=0x0050, text=»*    CHECK IF OPEN OR CLOSE ORDER «, t00=0x000f, t01=0x0178}
0x190c…1916               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0012}
0x1916…192e               Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x0010, t01=0x001c}
0x192e…1942               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/21 «, t00=0x0010, t01=0x0034}
0x1942…195a               Head {h00=0x0014, h01=0x0050, text=» RF(Z) OPEN OPEN«, t00=0x0010, t01=0x0048}
0x195a…196c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0010, t01=0x0060}
0x196c…1986               Head {h00=0x0016, h01=0x0050, text=» RF(Z) CLOSE CLOSE«, t00=0x0010, t01=0x0072}
0x1986…1990               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008c}
0x1990…199a               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0010, t01=0x0096}
0x199a…19a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x00a0}
0x19a6…19b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ac}
0x19b0…19c2               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0010, t01=0x00b6}
0x19c2…19e0               Head {h00=0x001a, h01=0x0050, text=» LC A3,DWTOR,A6 INDEX «, t00=0x0010, t01=0x00c8}
0x19e0…1a00               Head {h00=0x001c, h01=0x0050, text=» LDR A2,A3 SAVE FOR FDIX«, t00=0x0010, t01=0x00e6}
0x1a00…1a0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0106}
0x1a0a…1a34               Head {h00=0x0026, h01=0x0050, text=»*  PUT DRIVE NO IN CIO-INSTRUCTION«, t00=0x0010, t01=0x0110}
0x1a34…1a3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013a}
0x1a3e…1a62               Head {h00=0x0020, h01=0x0050, text=» CF A5,SETCIO A3,A4 AFFECTED«, t00=0x0010, t01=0x0144}
0x1a62…1a8e               Head {h00=0x0028, h01=0x0050, text=» CM DWTRCW,A6 SAVE RETURN CODE WORD «, t00=0x0010, t01=0x0168}
0x1a8e…1a98 (17, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0004}
0x1a98…1ab2               Head {h00=0x0016, h01=0x0050, text=»*  CHECK IF LOCKED«, t00=0x0011, t01=0x000e}
0x1ab2…1abc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0028}
0x1abc…1ae4               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTLC,A6  LOCK INDICATOR «, t00=0x0011, t01=0x0032}
0x1ae4…1b0a               Head {h00=0x0022, h01=0x0050, text=» CF A5,FDIX GET BIT MASK IN A3«, t00=0x0011, t01=0x005a}
0x1b0a…1b38               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE DRIVE INDEX MASK «, t00=0x0011, t01=0x0080}
0x1b38…1b4a               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A3«, t00=0x0011, t01=0x00ae}
0x1b4a…1b68               Head {h00=0x001a, h01=0x0050, text=» RF(NZ) FD:ORD LOCKED «, t00=0x0011, t01=0x00c0}
0x1b68…1b7a               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0011, t01=0x00de}
0x1b7a…1b8e               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/26 «, t00=0x0011, t01=0x00f0}
0x1b8e…1bae               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) LOAD LOCK ORDER «, t00=0x0011, t01=0x0104}
0x1bae…1bc2               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/11 «, t00=0x0011, t01=0x0124}
0x1bc2…1be2               Head {h00=0x001c, h01=0x0050, text=» ABL(Z) LOAD LOAD ORDER «, t00=0x0011, t01=0x0138}
0x1be2…1c04               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8001 RETURN CODE«, t00=0x0011, t01=0x0158}
0x1c04…1c1e               Head {h00=0x0016, h01=0x0050, text=» ABL END:IO ENDIO «, t00=0x0011, t01=0x017a}
0x1c1e…1c28 (18, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0004}
0x1c28…1c32               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0012, t01=0x000e}
0x1c32…1c3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0018}
0x1c3c…1c4e               Head {h00=0x000e, h01=0x0050, text=»*   ORDER?«, t00=0x0012, t01=0x0022}
0x1c4e…1c58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0034}
0x1c58…1c6c               Head {h00=0x0010, h01=0x0050, text=»FD:ORD EQU *«, t00=0x0012, t01=0x003e}
0x1c6c…1c84               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0012, t01=0x0052}
0x1c84…1c9a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x006a}
0x1c9a…1cb6               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0012, t01=0x0080}
0x1cb6…1ce0               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0012, t01=0x009c}
0x1ce0…1d0a               Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A8 GET FIRST WORD OF ECB «, t00=0x0012, t01=0x00c6}
0x1d0a…1d42               Head {h00=0x0034, h01=0x0050, text=» ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS «, t00=0x0012, t01=0x00f0}
0x1d42…1d74               Head {h00=0x002e, h01=0x0050, text=» RF(NZ) FD:000 BUFFER NOT IN SYSTEM AREA? «, t00=0x0012, t01=0x0128}
0x1d74…1d86               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0012, t01=0x015a}
0x1d86…1d9c               Head {h00=0x0012, h01=0x0050, text=» RF(NN) FD:005«, t00=0x0012, t01=0x016c}
0x1d9c…1dd6               Head {h00=0x0036, h01=0x0050, text=» ADKL A3,TOSLEN CHECK IF 64K LIMIT WILL BE PASSED «, t00=0x0012, t01=0x0182}
0x1dd6…1df0               Head {h00=0x0016, h01=0x0050, text=» RF(N) FD:005 NO? «, t00=0x0013, t01=0x002c}
0x1df0…1dfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0046}
0x1dfa…1e0e               Head {h00=0x0010, h01=0x0050, text=»FD:000 EQU *«, t00=0x0013, t01=0x0050}
0x1e0e…1e2e               Head {h00=0x001c, h01=0x0050, text=» ST A2,DWT:BF,A6 SAVE IT«, t00=0x0013, t01=0x0064}
0x1e2e…1e40               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0013, t01=0x0084}
0x1e40…1e56               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/F000«, t00=0x0013, t01=0x0096}
0x1e56…1e68               Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x0013, t01=0x00ac}
0x1e68…1e7a               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0013, t01=0x00be}
0x1e7a…1e8c               Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0013, t01=0x00d0}
0x1e8c…1ea2               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF «, t00=0x0013, t01=0x00e2}
0x1ea2…1ed8               Head {h00=0x0032, h01=0x0050, text=» ST A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS«, t00=0x0013, t01=0x00f8}
0x1ed8…1f08               Head {h00=0x002c, h01=0x0050, text=» ADKL A1,/400 CREATE ONE MORE MMU ENTRY «, t00=0x0013, t01=0x012e}
0x1f08…1f22               Head {h00=0x0016, h01=0x0050, text=» ST A1,DWT:PA+2,A6«, t00=0x0013, t01=0x015e}
0x1f22…1f34               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0013, t01=0x0178}
0x1f34…1f60               Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x0013, t01=0x018a}
0x1f60…1f8e               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,FD:BUF GET DWT BUFFER ADDRESS«, t00=0x0014, t01=0x0026}
0x1f8e…1fc4               Head {h00=0x0032, h01=0x0050, text=» ST A2,ECBBA,A8 SET NEW BUFFER ADDRESS IN ECB «, t00=0x0014, t01=0x0054}
0x1fc4…1fce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008a}
0x1fce…200a               Head {h00=0x0038, h01=0x0050, text=»FD:005 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x0014, t01=0x0094}
0x200a…2014               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d0}
0x2014…2028               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0014, t01=0x00da}
0x2028…2034               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00ee}
0x2034…203e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00fa}
0x203e…2050               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0014, t01=0x0104}
0x2050…2072               Head {h00=0x001e, h01=0x0050, text=» ABL(Z) FD:070 TEST STATUS«, t00=0x0014, t01=0x0116}
0x2072…2084               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0014, t01=0x0138}
0x2084…20a8               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x0014, t01=0x014a}
0x20a8…20ba               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0014, t01=0x016e}
0x20ba…20dc               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FD:010 BASIC WRITE «, t00=0x0014, t01=0x0180}
0x20dc…20ee               Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0015, t01=0x0012}
0x20ee…2112               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:040 PHYSICAL READ «, t00=0x0015, t01=0x0024}
0x2112…2124               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0015, t01=0x0048}
0x2124…2148               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FD:028 PHYSICAL WRITE«, t00=0x0015, t01=0x005a}
0x2148…215a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,15«, t00=0x0015, t01=0x007e}
0x215a…2182               Head {h00=0x0024, h01=0x0050, text=» RF(Z) FD:030 WRITE DELETED DATA«, t00=0x0015, t01=0x0090}
0x2182…2196               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/14 «, t00=0x0015, t01=0x00b8}
0x2196…21ba               Head {h00=0x0020, h01=0x0050, text=» ABL(Z) UNLOAD UNLOAD ORDER «, t00=0x0015, t01=0x00cc}
0x21ba…21cc               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0015, t01=0x00f0}
0x21cc…21e0               Head {h00=0x0010, h01=0x0050, text=» ADK A1,/36 «, t00=0x0015, t01=0x0102}
0x21e0…2206               Head {h00=0x0022, h01=0x0050, text=» ABL(Z) SQREAD SEQUENTIAL READ«, t00=0x0015, t01=0x0116}
0x2206…2218               Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0015, t01=0x013c}
0x2218…2240               Head {h00=0x0024, h01=0x0050, text=» ABL(Z) SQWRIT SEQUENTIAL WRITE «, t00=0x0015, t01=0x014e}
0x2240…2254               Head {h00=0x0010, h01=0x0050, text=» SUK A1,/2B «, t00=0x0015, t01=0x0176}
0x2254…2272               Head {h00=0x001a, h01=0x0050, text=» ABL(Z) REWIND REWIND «, t00=0x0015, t01=0x018a}
0x2272…227e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0018}
0x227e…2296               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0016, t01=0x0024}
0x2296…22ac               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0016, t01=0x003c}
0x22ac…22be               Head {h00=0x000e, h01=0x0050, text=» ADK A1,30«, t00=0x0016, t01=0x0052}
0x22be…22de               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:050 SEARCH KEY«, t00=0x0016, t01=0x0064}
0x22de…22ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0084}
0x22ea…22f2               Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0090}
0x22f2…2306               Head {h00=0x0010, h01=0x0050, text=»FD:DIS EQU *«, t00=0x0016, t01=0x0098}
0x2306…2328               Head {h00=0x001e, h01=0x0050, text=» ABL DISIOE REQUEST ERROR «, t00=0x0016, t01=0x00ac}
0x2328…2332               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ce}
0x2332…2348               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0016, t01=0x00d8}
0x2348…2352               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0016, t01=0x00ee}
0x2352…235c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f8}
0x235c…236c               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x0102}
0x236c…237c               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0016, t01=0x0112}
0x237c…238c               Head {h00=0x000c, h01=0x0050, text=»* OPEN *«, t00=0x0016, t01=0x0122}
0x238c…239c               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0016, t01=0x0132}
0x239c…23ac               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0016, t01=0x0142}
0x23ac…23b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0152}
0x23b6…23ee               Head {h00=0x0034, h01=0x0050, text=»*    OPEN IS PERFORMED BY WRITING A ZERO TO BIT «, t00=0x0016, t01=0x015c}
0x23ee…2424 (23, 0, 398)  Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER.«, t00=0x0017, t01=0x0004}
0x2424…242e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003a}
0x242e…2440               Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0017, t01=0x0044}
0x2440…2466               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/7FFF MASK FOR BIT 0 «, t00=0x0017, t01=0x0056}
0x2466…2492               Head {h00=0x0028, h01=0x0050, text=» ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT «, t00=0x0017, t01=0x007c}
0x2492…24c6               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0017, t01=0x00a8}
0x24c6…24ec               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA OPEN FD DRIVE «, t00=0x0017, t01=0x00dc}
0x24ec…24f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0102}
0x24f6…2524               Head {h00=0x002a, h01=0x0050, text=»*    WAIT FOR DRIVE TO BECOME OPERABLE«, t00=0x0017, t01=0x010c}
0x2524…2550               Head {h00=0x0028, h01=0x0050, text=» LDK A4,DWTTP2 TIMER POINTER OFFSET «, t00=0x0017, t01=0x013a}
0x2550…257c               Head {h00=0x0028, h01=0x0050, text=» ADR A4,A6 A4:=TIMER POINTER ADDRESS«, t00=0x0017, t01=0x0166}
0x257c…259c (24, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDR«, t00=0x0018, t01=0x0004}
0x259c…25b8               Head {h00=0x0018, h01=0x0050, text=» CF A15,SETIMP WAIT «, t00=0x0018, t01=0x0024}
0x25b8…25ea               Head {h00=0x002e, h01=0x0050, text=» DATA OPENRE,OPENTI START ADDR, WAIT TIME «, t00=0x0018, t01=0x0040}
0x25ea…2602               Head {h00=0x0014, h01=0x0050, text=» ABL TDISP EXIT «, t00=0x0018, t01=0x0072}
0x2602…260c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008a}
0x260c…2620               Head {h00=0x0010, h01=0x0050, text=»OPENRE EQU *«, t00=0x0018, t01=0x0094}
0x2620…263e               Head {h00=0x001a, h01=0x0050, text=»*    TIME HAS EXPIRED «, t00=0x0018, t01=0x00a8}
0x263e…265e               Head {h00=0x001c, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDR «, t00=0x0018, t01=0x00c6}
0x265e…268e               Head {h00=0x002c, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER RUNNING «, t00=0x0018, t01=0x00e6}
0x268e…26b8               Head {h00=0x0026, h01=0x0050, text=» RF OCLEXI COMMON OPEN/CLOSE EXIT «, t00=0x0018, t01=0x0116}
0x26b8…26c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0140}
0x26c2…26cc               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0018, t01=0x014a}
0x26cc…26d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0154}
0x26d6…26e8               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0018, t01=0x015e}
0x26e8…26fa               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0018, t01=0x0170}
0x26fa…270c               Head {h00=0x000e, h01=0x0050, text=»* CLOSE * «, t00=0x0018, t01=0x0182}
0x270c…271e (25, 0, 400)  Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x0019, t01=0x0004}
0x271e…2730               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0019, t01=0x0016}
0x2730…273a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0028}
0x273a…2772               Head {h00=0x0034, h01=0x0050, text=»*    CLOSE IS PERFORMED BY WRITING A ONE TO BIT «, t00=0x0019, t01=0x0032}
0x2772…27a8               Head {h00=0x0032, h01=0x0050, text=»*    ZERO OF THE SOP LIGHTS EXTERNAL REGISTER «, t00=0x0019, t01=0x006a}
0x27a8…27b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a0}
0x27b2…27c6               Head {h00=0x0010, h01=0x0050, text=»CLOSE EQU * «, t00=0x0019, t01=0x00aa}
0x27c6…27ec               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/8000 MASK FOR BIT 0 «, t00=0x0019, t01=0x00be}
0x27ec…2816               Head {h00=0x0026, h01=0x0050, text=» ORS A1,SPDLCI SET OPEN/CLOSE BIT «, t00=0x0019, t01=0x00e4}
0x2816…284a               Head {h00=0x0030, h01=0x0050, text=» LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA«, t00=0x0019, t01=0x010e}
0x284a…2870               Head {h00=0x0022, h01=0x0050, text=» OTR A1,0,SOPDA CLOSE FD DRIVE«, t00=0x0019, t01=0x0142}
0x2870…287a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0168}
0x287a…288e               Head {h00=0x0010, h01=0x0050, text=»OCLEXI EQU *«, t00=0x0019, t01=0x0172}
0x288e…28b6               Head {h00=0x0024, h01=0x0050, text=»*    COMMON EXIT FOR OPEN/CLOSE «, t00=0x0019, t01=0x0186}
0x28b6…28d4               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x001a, t01=0x001e}
0x28d4…28ec               Head {h00=0x0014, h01=0x0050, text=» RF FD:090 ENDIO«, t00=0x001a, t01=0x003c}
0x28ec…28f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0054}
0x28f6…2902               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x005e}
0x2902…290c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006a}
0x290c…2920               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x001a, t01=0x0074}
0x2920…292a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0088}
0x292a…2942               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x001a, t01=0x0092}
0x2942…295a               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x001a, t01=0x00aa}
0x295a…2972               Head {h00=0x0014, h01=0x0050, text=»* BASIC WRITE * «, t00=0x001a, t01=0x00c2}
0x2972…298a               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x001a, t01=0x00da}
0x298a…29a2               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x001a, t01=0x00f2}
0x29a2…29ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x010a}
0x29ac…29c4               Head {h00=0x0014, h01=0x0050, text=»FD:010 CF A5,BIO«, t00=0x001a, t01=0x0114}
0x29c4…29d6               Head {h00=0x000e, h01=0x0050, text=» ORK A2,1 «, t00=0x001a, t01=0x012c}
0x29d6…29ea               Head {h00=0x0010, h01=0x0050, text=»FD:015 EQU *«, t00=0x001a, t01=0x013e}
0x29ea…2a02               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001a, t01=0x0152}
0x2a02…2a1a               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x001a, t01=0x016a}
0x2a1a…2a32               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x001a, t01=0x0182}
0x2a32…2a50               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:018 NOT IBM «, t00=0x001b, t01=0x000a}
0x2a50…2a5c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0028}
0x2a5c…2a6e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001b, t01=0x0034}
0x2a6e…2a9e               Head {h00=0x002c, h01=0x0050, text=» LDR A7,A3 NO OF CHAR. TO BE TRANSFORMED«, t00=0x001b, t01=0x0046}
0x2a9e…2ab4               Head {h00=0x0012, h01=0x0050, text=» CF A5,EBCDIC «, t00=0x001b, t01=0x0076}
0x2ab4…2ac8               Head {h00=0x0010, h01=0x0050, text=»FD:018 EQU *«, t00=0x001b, t01=0x008c}
0x2ac8…2ad4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00a0}
0x2ad4…2ade               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ac}
0x2ade…2af6               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001b, t01=0x00b6}
0x2af6…2b12               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+SWPBLK=2«, t00=0x001b, t01=0x00ce}
0x2b12…2b4a               Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x001b, t01=0x00ea}
0x2b4a…2b76               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:019 BUFFER IN SYSTEM AREA?«, t00=0x001b, t01=0x0122}
0x2b76…2ba2               Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x001b, t01=0x014e}
0x2ba2…2bbc               Head {h00=0x0016, h01=0x0050, text=» LDR A8,A2 SAVE A2«, t00=0x001b, t01=0x017a}
0x2bbc…2be6 (28, 0, 400)  Head {h00=0x0026, h01=0x0050, text=» LDR A2,A4 GET DWT BUFFER ADDRESS «, t00=0x001c, t01=0x0004}
0x2be6…2c10               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x001c, t01=0x002e}
0x2c10…2c3c               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x001c, t01=0x0058}
0x2c3c…2c72               Head {h00=0x0032, h01=0x0050, text=» MVUS A7 MOVE BUFFER FROM USER TO SYSTEM AREA «, t00=0x001c, t01=0x0084}
0x2c72…2c9c               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x001c, t01=0x00ba}
0x2c9c…2cba               Head {h00=0x001a, h01=0x0050, text=» LDR A2,A8 RESTORE A2 «, t00=0x001c, t01=0x00e4}
0x2cba…2cc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0102}
0x2cc4…2cd8               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x001c, t01=0x010c}
0x2cd8…2ce2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0120}
0x2ce2…2cec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x012a}
0x2cec…2d00               Head {h00=0x0010, h01=0x0050, text=»FD:019 EQU *«, t00=0x001c, t01=0x0134}
0x2d00…2d0c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x0148}
0x2d0c…2d16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0154}
0x2d16…2d3c               Head {h00=0x0022, h01=0x0050, text=» CF A5,FD:WRITE PERFORME WRITE«, t00=0x001c, t01=0x015e}
0x2d3c…2d46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0184}
0x2d46…2d5e               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x001c, t01=0x018e}
0x2d5e…2d7a               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+SWPBLK=2«, t00=0x001d, t01=0x0016}
0x2d7a…2da2               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWT:LA,A6 GET BUFFER FLAG«, t00=0x001d, t01=0x0032}
0x2da2…2dd2               Head {h00=0x002c, h01=0x0050, text=» RF(Z) FD:025 BUFFER WAS IN SYSTEM AREA?«, t00=0x001d, t01=0x005a}
0x2dd2…2e04               Head {h00=0x002e, h01=0x0050, text=» LD A1,DWT:BF,A6 GET SAVED BUFFER ADDRESS «, t00=0x001d, t01=0x008a}
0x2e04…2e2e               Head {h00=0x0026, h01=0x0050, text=» ST A1,ECBBA,A8 RESTORE IT IN ECB «, t00=0x001d, t01=0x00bc}
0x2e2e…2e38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00e6}
0x2e38…2e4c               Head {h00=0x0010, h01=0x0050, text=»FD:025 EQU *«, t00=0x001d, t01=0x00f0}
0x2e4c…2e58               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0104}
0x2e58…2e62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0110}
0x2e62…2e80               Head {h00=0x001a, h01=0x0050, text=» RF FD:048 GOTO FD:RC «, t00=0x001d, t01=0x011a}
0x2e80…2e8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0138}
0x2e8a…2ea4               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001d, t01=0x0142}
0x2ea4…2ebe               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x001d, t01=0x015c}
0x2ebe…2ed8               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL WRITE *«, t00=0x001d, t01=0x0176}
0x2ed8…2ef2               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x001d, t01=0x0190}
0x2ef2…2f0c               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x001e, t01=0x001a}
0x2f0c…2f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0034}
0x2f16…2f2e               Head {h00=0x0014, h01=0x0050, text=»FD:028 CF A5,BIO«, t00=0x001e, t01=0x003e}
0x2f2e…2f56               Head {h00=0x0024, h01=0x0050, text=» ORK A2,5 INSERT BIO BITS 13-15 «, t00=0x001e, t01=0x0056}
0x2f56…2f68               Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x001e, t01=0x007e}
0x2f68…2f7c               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x001e, t01=0x0090}
0x2f7c…2f86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a4}
0x2f86…2fa4               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001e, t01=0x00ae}
0x2fa4…2fc2               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001e, t01=0x00cc}
0x2fc2…2fe0               Head {h00=0x001a, h01=0x0050, text=»* WRITE DELETED DATA *«, t00=0x001e, t01=0x00ea}
0x2fe0…2ffe               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001e, t01=0x0108}
0x2ffe…301c               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001e, t01=0x0126}
0x301c…3026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0144}
0x3026…303e               Head {h00=0x0014, h01=0x0050, text=»FD:030 CF A5,BIO«, t00=0x001e, t01=0x014e}
0x303e…3050               Head {h00=0x000e, h01=0x0050, text=» ORK A2,6 «, t00=0x001e, t01=0x0166}
0x3050…3062               Head {h00=0x000e, h01=0x0050, text=» RB FD:015«, t00=0x001e, t01=0x0178}
0x3062…306c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x018a}
0x306c…3086 (31, 0, 400)  Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001f, t01=0x0004}
0x3086…30a0               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x001f, t01=0x001e}
0x30a0…30ba               Head {h00=0x0016, h01=0x0050, text=»* PHYSICAL READ * «, t00=0x001f, t01=0x0038}
0x30ba…30d4               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x001f, t01=0x0052}
0x30d4…30ee               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x001f, t01=0x006c}
0x30ee…30f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0086}
0x30f8…3114               Head {h00=0x0018, h01=0x0050, text=»FD:040 CF A5,BIO:RE «, t00=0x001f, t01=0x0090}
0x3114…312c               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x001f, t01=0x00ac}
0x312c…3144               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x001f, t01=0x00c4}
0x3144…315c               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x001f, t01=0x00dc}
0x315c…317c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FD:042 TOSS DISC «, t00=0x001f, t01=0x00f4}
0x317c…3188               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0114}
0x3188…319a               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x001f, t01=0x0120}
0x319a…31ae               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x001f, t01=0x0132}
0x31ae…31c2               Head {h00=0x0010, h01=0x0050, text=»FD:042 EQU *«, t00=0x001f, t01=0x0146}
0x31c2…31ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x015a}
0x31ce…31f6               Head {h00=0x0024, h01=0x0050, text=»FD:045 CF A5,FD:REA PERFORM READ«, t00=0x001f, t01=0x0166}
0x31f6…3200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x018e}
0x3200…3214               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0020, t01=0x0008}
0x3214…321e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x001c}
0x321e…3228               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0026}
0x3228…3240               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0020, t01=0x0030}
0x3240…3256               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0020, t01=0x0048}
0x3256…3272               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0020, t01=0x005e}
0x3272…32aa               Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0020, t01=0x007a}
0x32aa…32d6               Head {h00=0x0028, h01=0x0050, text=» RF(Z) FD:046 BUFFER IN SYSTEM AREA?«, t00=0x0020, t01=0x00b2}
0x32d6…3302               Head {h00=0x0028, h01=0x0050, text=» LD A7,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0020, t01=0x00de}
0x3302…3330               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,FD:BUF GET DWT BUFFER ADDRESS«, t00=0x0020, t01=0x010a}
0x3330…335a               Head {h00=0x0026, h01=0x0050, text=» TS -30,A15 SAVE RUNNING TASK MMU «, t00=0x0020, t01=0x0138}
0x335a…3386               Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0020, t01=0x0162}
0x3386…33bc               Head {h00=0x0032, h01=0x0050, text=» MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA «, t00=0x0020, t01=0x018e}
0x33bc…33e6               Head {h00=0x0026, h01=0x0050, text=» TL -30,A15 RESTORE MMU FROM STACK«, t00=0x0021, t01=0x0034}
0x33e6…3418               Head {h00=0x002e, h01=0x0050, text=» LD A2,DWT:BF,A6 GET SAVED BUFFER ADDRESS «, t00=0x0021, t01=0x005e}
0x3418…3442               Head {h00=0x0026, h01=0x0050, text=» ST A2,ECBBA,A8 RESTORE IT IN ECB «, t00=0x0021, t01=0x0090}
0x3442…3454               Head {h00=0x000e, h01=0x0050, text=» RF FD:048«, t00=0x0021, t01=0x00ba}
0x3454…345e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00cc}
0x345e…3472               Head {h00=0x0010, h01=0x0050, text=»FD:046 EQU *«, t00=0x0021, t01=0x00d6}
0x3472…347e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x00ea}
0x347e…3488               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00f6}
0x3488…34a0               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0021, t01=0x0100}
0x34a0…34b8               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTLAB,A6«, t00=0x0021, t01=0x0118}
0x34b8…34d0               Head {h00=0x0014, h01=0x0050, text=» AN A1,DWTA3,A6 «, t00=0x0021, t01=0x0130}
0x34d0…34ee               Head {h00=0x001a, h01=0x0050, text=» RF(Z) FD:047 NOT IBM «, t00=0x0021, t01=0x0148}
0x34ee…34fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0166}
0x34fa…350c               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0021, t01=0x0172}
0x350c…352c               Head {h00=0x001c, h01=0x0050, text=» LD A7,ECBRL,A8 REQ LEN «, t00=0x0021, t01=0x0184}
0x352c…3558               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 ASCII OUTPUT ADDRESS«, t00=0x0022, t01=0x0014}
0x3558…356c               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x0022, t01=0x0040}
0x356c…3580               Head {h00=0x0010, h01=0x0050, text=»FD:047 EQU *«, t00=0x0022, t01=0x0054}
0x3580…358c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x0068}
0x358c…35a0               Head {h00=0x0010, h01=0x0050, text=»FD:048 EQU *«, t00=0x0022, t01=0x0074}
0x35a0…35b2               Head {h00=0x000e, h01=0x0050, text=» ABL FD:RC«, t00=0x0022, t01=0x0088}
0x35b2…35bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x009a}
0x35bc…35d0               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0022, t01=0x00a4}
0x35d0…35da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b8}
0x35da…35f2               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0022, t01=0x00c2}
0x35f2…3608               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0022, t01=0x00da}
0x3608…3612               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f0}
0x3612…3628               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0022, t01=0x00fa}
0x3628…363e               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0022, t01=0x0110}
0x363e…3654               Head {h00=0x0012, h01=0x0050, text=»* SEARCH KEY *«, t00=0x0022, t01=0x0126}
0x3654…366a               Head {h00=0x0012, h01=0x0050, text=»*            *«, t00=0x0022, t01=0x013c}
0x366a…3680               Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0022, t01=0x0152}
0x3680…368a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0168}
0x368a…369e               Head {h00=0x0010, h01=0x0050, text=»FD:050 EQU *«, t00=0x0022, t01=0x0172}
0x369e…36c4               Head {h00=0x0022, h01=0x0050, text=» LD A4,10,A8 KEY AREA ADDRESS «, t00=0x0022, t01=0x0186}
0x36c4…36e8               Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A4 KEY AREA LENGTH «, t00=0x0023, t01=0x001c}
0x36e8…36fa               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0023, t01=0x0040}
0x36fa…3720               Head {h00=0x0022, h01=0x0050, text=» ABL(NP) END:10 ILLEGAL LENGTH«, t00=0x0023, t01=0x0052}
0x3720…3734               Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0023, t01=0x0078}
0x3734…375a               Head {h00=0x0022, h01=0x0050, text=» ABL(P) END:10 ILLEGAL LENGTH «, t00=0x0023, t01=0x008c}
0x375a…376c               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0023, t01=0x00b2}
0x376c…3776               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c4}
0x3776…37a4               Head {h00=0x002a, h01=0x0050, text=»*   IF ODD CHANGE TO EVEN NO OF BYTES «, t00=0x0023, t01=0x00ce}
0x37a4…37ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00fc}
0x37ae…37c0               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0023, t01=0x0106}
0x37c0…37d2               Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0023, t01=0x0118}
0x37d2…37e4               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0023, t01=0x012a}
0x37e4…37ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x013c}
0x37ee…3800               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0023, t01=0x0146}
0x3800…3816               Head {h00=0x0012, h01=0x0050, text=» ORK A2,7 BIO «, t00=0x0023, t01=0x0158}
0x3816…3828               Head {h00=0x000e, h01=0x0050, text=» ADK A3,4 «, t00=0x0023, t01=0x016e}
0x3828…3846               Head {h00=0x001a, h01=0x0050, text=» ADK A4,2 KEY ADDRESS «, t00=0x0023, t01=0x0180}
0x3846…3866               Head {h00=0x001c, h01=0x0050, text=» CF A5,FD:WRI SEARCH KEY«, t00=0x0024, t01=0x000e}
0x3866…3884               Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 RETURN CODE«, t00=0x0024, t01=0x002e}
0x3884…389a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FD:048«, t00=0x0024, t01=0x004c}
0x389a…38a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0062}
0x38a4…38b8               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0024, t01=0x006c}
0x38b8…38c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0080}
0x38c2…38ea               Head {h00=0x0024, h01=0x0050, text=»*  READ RECORD WITH KEY COMMAND «, t00=0x0024, t01=0x008a}
0x38ea…38f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b2}
0x38f4…3908               Head {h00=0x0010, h01=0x0050, text=»FD:060 EQU *«, t00=0x0024, t01=0x00bc}
0x3908…391e               Head {h00=0x0012, h01=0x0050, text=» LDK A2,4 BIO «, t00=0x0024, t01=0x00d0}
0x391e…3942               Head {h00=0x0020, h01=0x0050, text=» LD A3,4,A8 REQUESTED LENGTH«, t00=0x0024, t01=0x00e6}
0x3942…3956               Head {h00=0x0010, h01=0x0050, text=» CWK A3,130 «, t00=0x0024, t01=0x010a}
0x3956…397c               Head {h00=0x0022, h01=0x0050, text=» ABL(NE) END:10 ILLEGAL LENGTH«, t00=0x0024, t01=0x011e}
0x397c…399e               Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0024, t01=0x0144}
0x399e…39b0               Head {h00=0x000e, h01=0x0050, text=» RB FD:045«, t00=0x0024, t01=0x0166}
0x39b0…39bc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0178}
0x39bc…39c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0184}
0x39c6…39da               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0024, t01=0x018e}
0x39da…39e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0012}
0x39e4…39fc               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0025, t01=0x001c}
0x39fc…3a14               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x0025, t01=0x0034}
0x3a14…3a2c               Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS * «, t00=0x0025, t01=0x004c}
0x3a2c…3a44               Head {h00=0x0014, h01=0x0050, text=»*             * «, t00=0x0025, t01=0x0064}
0x3a44…3a5c               Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0025, t01=0x007c}
0x3a5c…3a66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0094}
0x3a66…3a7a               Head {h00=0x0010, h01=0x0050, text=»FD:070 EQU *«, t00=0x0025, t01=0x009e}
0x3a7a…3a9a               Head {h00=0x001c, h01=0x0050, text=» LDKL A2,/FFF9 BIO DUMMY«, t00=0x0025, t01=0x00b2}
0x3a9a…3ab0               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0025, t01=0x00d2}
0x3ab0…3ac2               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0025, t01=0x00e8}
0x3ac2…3ad4               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0025, t01=0x00fa}
0x3ad4…3afe               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) FD:090 DISC NOT OPERABEL? «, t00=0x0025, t01=0x010c}
0x3afe…3b24               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/200 WRITE PROTECTED?«, t00=0x0025, t01=0x0136}
0x3b24…3b3e               Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0025, t01=0x015c}
0x3b3e…3b56               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0025, t01=0x0176}
0x3b56…3b7a               Head {h00=0x0020, h01=0x0050, text=» RF LOA:05 READ VOLUME NAME «, t00=0x0025, t01=0x018e}
0x3b7a…3b84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0022}
0x3b84…3b98               Head {h00=0x0010, h01=0x0050, text=»FD:075 EQU *«, t00=0x0026, t01=0x002c}
0x3b98…3ba4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0040}
0x3ba4…3bcc               Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTRCW,A6 GET RETURN CODE«, t00=0x0026, t01=0x004c}
0x3bcc…3be6               Head {h00=0x0016, h01=0x0050, text=»FD:090 ABL END:IO «, t00=0x0026, t01=0x0074}
0x3be6…3bf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008e}
0x3bf0…3c04               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0026, t01=0x0098}
0x3c04…3c0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ac}
0x3c0e…3c1e               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0026, t01=0x00b6}
0x3c1e…3c2e               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0026, t01=0x00c6}
0x3c2e…3c3e               Head {h00=0x000c, h01=0x0050, text=»* LOAD *«, t00=0x0026, t01=0x00d6}
0x3c3e…3c4e               Head {h00=0x000c, h01=0x0050, text=»*      *«, t00=0x0026, t01=0x00e6}
0x3c4e…3c5e               Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0026, t01=0x00f6}
0x3c5e…3c68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0106}
0x3c68…3c7a               Head {h00=0x000e, h01=0x0050, text=»LOAD EQU *«, t00=0x0026, t01=0x0110}
0x3c7a…3c92               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0026, t01=0x0122}
0x3c92…3ca8               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0026, t01=0x013a}
0x3ca8…3cba               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0026, t01=0x0150}
0x3cba…3cde               Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) FD:RC NOT OPERABEL «, t00=0x0026, t01=0x0162}
0x3cde…3cf2               Head {h00=0x0010, h01=0x0050, text=»LOA:05 EQU *«, t00=0x0026, t01=0x0186}
0x3cf2…3d0a               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0027, t01=0x000a}
0x3d0a…3d14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0022}
0x3d14…3d36               Head {h00=0x001e, h01=0x0050, text=»*  CHECK IF TOSS/IBM LABEL«, t00=0x0027, t01=0x002c}
0x3d36…3d40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x004e}
0x3d40…3d56               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0027, t01=0x0058}
0x3d56…3d6a               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0027, t01=0x006e}
0x3d6a…3d88               Head {h00=0x001a, h01=0x0050, text=» LDK A3,38 NO OF BYTES«, t00=0x0027, t01=0x0082}
0x3d88…3d9e               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0027, t01=0x00a0}
0x3d9e…3db2               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0027, t01=0x00b6}
0x3db2…3dc4               Head {h00=0x000e, h01=0x0050, text=» ADK A4,34«, t00=0x0027, t01=0x00ca}
0x3dc4…3dd8               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0027, t01=0x00dc}
0x3dd8…3dec               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0027, t01=0x00f0}
0x3dec…3e18               Head {h00=0x0028, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL PREASSUMED «, t00=0x0027, t01=0x0104}
0x3e18…3e2a               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0027, t01=0x0130}
0x3e2a…3e3e               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0027, t01=0x0142}
0x3e3e…3e52               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'SS'«, t00=0x0027, t01=0x0156}
0x3e52…3e72               Head {h00=0x001c, h01=0x0050, text=» RF(NE) LOA:10 IBM LABEL«, t00=0x0027, t01=0x016a}
0x3e72…3e7e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x018a}
0x3e7e…3e88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0008}
0x3e88…3e9c               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0028, t01=0x0012}
0x3e9c…3ea6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0026}
0x3ea6…3eb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0030}
0x3eb0…3ec4               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0028, t01=0x003a}
0x3ec4…3ece               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x004e}
0x3ece…3eea               Head {h00=0x0018, h01=0x0050, text=»*  READ VOLUME NAME «, t00=0x0028, t01=0x0058}
0x3eea…3ef4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0074}
0x3ef4…3f0c               Head {h00=0x0014, h01=0x0050, text=» LDK A3,8 LENGTH«, t00=0x0028, t01=0x007e}
0x3f0c…3f22               Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 BIO «, t00=0x0028, t01=0x0096}
0x3f22…3f50               Head {h00=0x002a, h01=0x0050, text=» C1 A1,DWTA3,A6 1 COMP. DRIVE BIT MASK«, t00=0x0028, t01=0x00ac}
0x3f50…3f7e               Head {h00=0x002a, h01=0x0050, text=» ANS A1,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0028, t01=0x00da}
0x3f7e…3f90               Head {h00=0x000e, h01=0x0050, text=» RF LOA:15«, t00=0x0028, t01=0x0108}
0x3f90…3f9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x011a}
0x3f9c…3fae               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0028, t01=0x0126}
0x3fae…3fce               Head {h00=0x001c, h01=0x0050, text=»LOA:10 LDK A3,10 LENGTH «, t00=0x0028, t01=0x0138}
0x3fce…3fe6               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/30 BIO «, t00=0x0028, t01=0x0158}
0x3fe6…4010               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTA3,A6 DRIVE NO BIT MASK «, t00=0x0028, t01=0x0170}
0x4010…403c               Head {h00=0x0028, h01=0x0050, text=» ORS A1,DWTLAB,A6 INDICATE IBM DISC «, t00=0x0029, t01=0x000a}
0x403c…4062               Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 RETURN CODE BIT 10«, t00=0x0029, t01=0x0036}
0x4062…407c               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0029, t01=0x005c}
0x407c…4088               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0076}
0x4088…40a0               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0029, t01=0x0082}
0x40a0…40b4               Head {h00=0x0010, h01=0x0050, text=»LOA:15 EQU *«, t00=0x0029, t01=0x009a}
0x40b4…40d8               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0029, t01=0x00ae}
0x40d8…40ee               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0029, t01=0x00d2}
0x40ee…4102               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x0029, t01=0x00e8}
0x4102…4114               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0029, t01=0x00fc}
0x4114…4120               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x010e}
0x4120…4132               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0029, t01=0x011a}
0x4132…414a               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTRCW,A6«, t00=0x0029, t01=0x012c}
0x414a…4172               Head {h00=0x0024, h01=0x0050, text=» ANK A7,/20 CHECK TYPE OF LABEL «, t00=0x0029, t01=0x0144}
0x4172…4192               Head {h00=0x001c, h01=0x0050, text=» RF(Z) LOA:30 TOSS LABEL«, t00=0x0029, t01=0x016c}
0x4192…41b0               Head {h00=0x001a, h01=0x0050, text=» LDK A7,10 NO OF CHAR.«, t00=0x0029, t01=0x018c}
0x41b0…41c4               Head {h00=0x0010, h01=0x0050, text=» CF A5,ASCII«, t00=0x002a, t01=0x001a}
0x41c4…41d6               Head {h00=0x000e, h01=0x0050, text=» LDK A1,4 «, t00=0x002a, t01=0x002e}
0x41d6…41ea               Head {h00=0x0010, h01=0x0050, text=»LOA:30 EQU *«, t00=0x002a, t01=0x0040}
0x41ea…41f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0054}
0x41f6…4200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0060}
0x4200…4214               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x002a, t01=0x006a}
0x4214…421e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x007e}
0x421e…4228               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0088}
0x4228…4240               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002a, t01=0x0092}
0x4240…424a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00aa}
0x424a…426e               Head {h00=0x0020, h01=0x0050, text=»*  GET DWT VOL NAME ADDRESS «, t00=0x002a, t01=0x00b4}
0x426e…4278               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d8}
0x4278…429c               Head {h00=0x0020, h01=0x0050, text=» CF A5,VOLADR ADDRESS TO A2 «, t00=0x002a, t01=0x00e2}
0x429c…42a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0106}
0x42a6…42c2               Head {h00=0x0018, h01=0x0050, text=»*  STORE NAME IN DWT«, t00=0x002a, t01=0x0110}
0x42c2…42cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012c}
0x42cc…42de               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x002a, t01=0x0136}
0x42de…42fa               Head {h00=0x0018, h01=0x0050, text=»LOA:40 LD A4,BUF,A1 «, t00=0x002a, t01=0x0148}
0x42fa…430c               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x002a, t01=0x0164}
0x430c…431e               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x002a, t01=0x0176}
0x431e…4334               Head {h00=0x0012, h01=0x0050, text=» RF(Z) LOA:50 «, t00=0x002a, t01=0x0188}
0x4334…4346               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x002b, t01=0x000e}
0x4346…4358               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x002b, t01=0x0020}
0x4358…436a               Head {h00=0x000e, h01=0x0050, text=» RB LOA:40«, t00=0x002b, t01=0x0032}
0x436a…437e               Head {h00=0x0010, h01=0x0050, text=»LOA:50 EQU *«, t00=0x002b, t01=0x0044}
0x437e…43a2               Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTOR+1,A6 GET ORDER «, t00=0x002b, t01=0x0058}
0x43a2…43b6               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x002b, t01=0x007c}
0x43b6…43e0               Head {h00=0x0026, h01=0x0050, text=» RB(Z) FD:075 JUMP IF TEST STATUS «, t00=0x002b, t01=0x0090}
0x43e0…43ec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00ba}
0x43ec…43fe               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x002b, t01=0x00c6}
0x43fe…4408               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d8}
0x4408…442a               Head {h00=0x001e, h01=0x0050, text=»* DATA SET OPENING WANTED?«, t00=0x002b, t01=0x00e2}
0x442a…4434               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0104}
0x4434…445a               Head {h00=0x0022, h01=0x0050, text=» ANK A1,/2 A1:  TOSS=6, IBM=8 «, t00=0x002b, t01=0x010e}
0x445a…447c               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOA:70 TOSS LABEL «, t00=0x002b, t01=0x0134}
0x447c…449c               Head {h00=0x001c, h01=0x0050, text=» LC A1,DWTOR+1,A6 ORDER «, t00=0x002b, t01=0x0156}
0x449c…44b2               Head {h00=0x0012, h01=0x0050, text=» CCK A1,/2600 «, t00=0x002b, t01=0x0176}
0x44b2…44d2               Head {h00=0x001c, h01=0x0050, text=» RF(E) LOA:70 LOCK ORDER«, t00=0x002b, t01=0x018c}
0x44d2…44dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001c}
0x44dc…44fa               Head {h00=0x001a, h01=0x0050, text=»*  READ DATA SET LABEL«, t00=0x002c, t01=0x0026}
0x44fa…4504               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0044}
0x4504…4526               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBCW,A8 SECTOR NO «, t00=0x002c, t01=0x004e}
0x4526…4538               Head {h00=0x000e, h01=0x0050, text=» SUK A2,7 «, t00=0x002c, t01=0x0070}
0x4538…455c               Head {h00=0x0020, h01=0x0050, text=» ABL(N) FD:DIS REQUEST ERROR«, t00=0x002c, t01=0x0082}
0x455c…456e               Head {h00=0x000e, h01=0x0050, text=» SUK A2,18«, t00=0x002c, t01=0x00a6}
0x456e…4592               Head {h00=0x0020, h01=0x0050, text=» ABL(P) FD:DIS REQUEST ERROR«, t00=0x002c, t01=0x00b8}
0x4592…45a4               Head {h00=0x000e, h01=0x0050, text=» ADK A2,25«, t00=0x002c, t01=0x00dc}
0x45a4…45ba               Head {h00=0x0012, h01=0x0050, text=» SLL A2,3 BIO «, t00=0x002c, t01=0x00ee}
0x45ba…45d4               Head {h00=0x0016, h01=0x0050, text=» LDK A3,80 LENGTH «, t00=0x002c, t01=0x0104}
0x45d4…45e8               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x002c, t01=0x011e}
0x45e8…45fe               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002c, t01=0x0132}
0x45fe…461c               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x002c, t01=0x0148}
0x461c…4640               Head {h00=0x0020, h01=0x0050, text=» SLL A1,4 CHECK NO DATA BIT «, t00=0x002c, t01=0x0166}
0x4640…4662               Head {h00=0x001e, h01=0x0050, text=» RF(NN) LOA:60 NOT NO DATA«, t00=0x002c, t01=0x018a}
0x4662…4698               Head {h00=0x0032, h01=0x0050, text=» ORKL A3,/2000 INDICATE ILLEGAL DATA SET LABEL«, t00=0x002d, t01=0x001c}
0x4698…46ac               Head {h00=0x0010, h01=0x0050, text=»LOA:60 EQU *«, t00=0x002d, t01=0x0052}
0x46ac…46c0               Head {h00=0x0010, h01=0x0050, text=» CF A5,LD:RC«, t00=0x002d, t01=0x0066}
0x46c0…46cc               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002d, t01=0x007a}
0x46cc…46fa               Head {h00=0x002a, h01=0x0050, text=» LD A3,ECBCW,A8 DATA SET LABEL SECTOR «, t00=0x002d, t01=0x0086}
0x46fa…4710               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTDSS«, t00=0x002d, t01=0x00b4}
0x4710…4730               Head {h00=0x001c, h01=0x0050, text=» CF A5,STDWT SAVE IN DWT«, t00=0x002d, t01=0x00ca}
0x4730…4750               Head {h00=0x001c, h01=0x0050, text=» ADK A4,BOE BOE ADDRESS «, t00=0x002d, t01=0x00ea}
0x4750…4782               Head {h00=0x002e, h01=0x0050, text=» CF A5,LOGSEC TRANSFORM TO LOGICAL SECTOR «, t00=0x002d, t01=0x010a}
0x4782…4798               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x002d, t01=0x013c}
0x4798…47c0               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE BOE NO IN DWT«, t00=0x002d, t01=0x0152}
0x47c0…47d6               Head {h00=0x0012, h01=0x0050, text=» SUK A3,1 CRN «, t00=0x002d, t01=0x017a}
0x47d6…47ec               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x002d, t01=0x0190}
0x47ec…4800               Head {h00=0x0010, h01=0x0050, text=» CF A5,STDWT«, t00=0x002e, t01=0x0016}
0x4800…4824               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOE-BOE EOE ADDRESS «, t00=0x002e, t01=0x002a}
0x4824…483a               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002e, t01=0x004e}
0x483a…4850               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x002e, t01=0x0064}
0x4850…4878               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOE NO IN DWT«, t00=0x002e, t01=0x007a}
0x4878…489c               Head {h00=0x0020, h01=0x0050, text=» ADK A4,EOD-EOE EOD ADDRESS «, t00=0x002e, t01=0x00a2}
0x489c…48b2               Head {h00=0x0012, h01=0x0050, text=» CF A5,LOGSEC «, t00=0x002e, t01=0x00c6}
0x48b2…48d0               Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x002e, t01=0x00dc}
0x48d0…48e6               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOD«, t00=0x002e, t01=0x00fa}
0x48e6…490e               Head {h00=0x0024, h01=0x0050, text=» CF A5,STDWT STORE EOD NO IN DWT«, t00=0x002e, t01=0x0110}
0x490e…4918               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0138}
0x4918…492c               Head {h00=0x0010, h01=0x0050, text=»LOA:70 EQU *«, t00=0x002e, t01=0x0142}
0x492c…4938               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0156}
0x4938…4950               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA3,A6 «, t00=0x002e, t01=0x0162}
0x4950…4976               Head {h00=0x0022, h01=0x0050, text=» ORS A2,DWTLC,A6 INDICATE LOCK«, t00=0x002e, t01=0x017a}
0x4976…49a0               Head {h00=0x0026, h01=0x0050, text=»LOA:75 LD A3,DWTRCW,A6 RETURN CODE«, t00=0x002f, t01=0x0010}
0x49a0…49b8               Head {h00=0x0014, h01=0x0050, text=»LOA:80 ABL FD:RC«, t00=0x002f, t01=0x003a}
0x49b8…49c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0052}
0x49c2…49d6               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x002f, t01=0x005c}
0x49d6…49e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0070}
0x49e0…49ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007a}
0x49ea…4a02               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x002f, t01=0x0084}
0x4a02…4a0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x009c}
0x4a0c…4a26               Head {h00=0x0016, h01=0x0050, text=»*  ERROR , UNLOCK «, t00=0x002f, t01=0x00a6}
0x4a26…4a30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00c0}
0x4a30…4a44               Head {h00=0x0010, h01=0x0050, text=»LOA:90 EQU *«, t00=0x002f, t01=0x00ca}
0x4a44…4a56               Head {h00=0x000e, h01=0x0050, text=» LDR A5,A6«, t00=0x002f, t01=0x00de}
0x4a56…4a78               Head {h00=0x001e, h01=0x0050, text=» ADKL A5,DWTSB2 STACK BASE«, t00=0x002f, t01=0x00f0}
0x4a78…4a92               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x002f, t01=0x0112}
0x4a92…4aa8               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x002f, t01=0x012c}
0x4aa8…4aba               Head {h00=0x000e, h01=0x0050, text=» RB LOA:75«, t00=0x002f, t01=0x0142}
0x4aba…4ac4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0154}
0x4ac4…4b02               Head {h00=0x003a, h01=0x0050, text=»*---------------------------------------------------- «, t00=0x002f, t01=0x015e}
0x4b02…4b20               Head {h00=0x001a, h01=0x0050, text=»*   LD:RC  SUBROUTINE «, t00=0x0030, t01=0x000c}
0x4b20…4b2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x002a}
0x4b2a…4b48               Head {h00=0x001a, h01=0x0050, text=»LD:RC ORS A3,DWTRCW,A6«, t00=0x0030, t01=0x0034}
0x4b48…4b6a               Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/2007 FATAL ERROR«, t00=0x0030, t01=0x0052}
0x4b6a…4b80               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) LOA:90«, t00=0x0030, t01=0x0074}
0x4b80…4baa               Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BUF DRIVER BUFFER ADDRESS«, t00=0x0030, t01=0x008a}
0x4baa…4bba               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0030, t01=0x00b4}
0x4bba…4bc6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00c4}
0x4bc6…4bda               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0030, t01=0x00d0}
0x4bda…4be4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e4}
0x4be4…4bf6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x00ee}
0x4bf6…4c08               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x0100}
0x4c08…4c1a               Head {h00=0x000e, h01=0x0050, text=»* UNLOAD *«, t00=0x0030, t01=0x0112}
0x4c1a…4c2c               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0030, t01=0x0124}
0x4c2c…4c3e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0030, t01=0x0136}
0x4c3e…4c48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0148}
0x4c48…4c5c               Head {h00=0x0010, h01=0x0050, text=»UNLOAD EQU *«, t00=0x0030, t01=0x0152}
0x4c5c…4c6e               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0030, t01=0x0166}
0x4c6e…4c78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0178}
0x4c78…4c94               Head {h00=0x0018, h01=0x0050, text=»*    DATA SET OPEN? «, t00=0x0030, t01=0x0182}
0x4c94…4c9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x000e}
0x4c9e…4cc0               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH A1,AFFECTED «, t00=0x0031, t01=0x0018}
0x4cc0…4cd6               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0031, t01=0x003a}
0x4cd6…4cf4               Head {h00=0x001a, h01=0x0050, text=» RF(Z) UNL:70 NOT OPEN«, t00=0x0031, t01=0x0050}
0x4cf4…4d2c               Head {h00=0x0034, h01=0x0050, text=» ST A7,10,A8 STORE EOD-NO IN CONTROL WORD OF ECB«, t00=0x0031, t01=0x006e}
0x4d2c…4d36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a6}
0x4d36…4d66               Head {h00=0x002c, h01=0x0050, text=»*  READ DATA SET LABEL TO DRIVER BUFFER «, t00=0x0031, t01=0x00b0}
0x4d66…4d70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e0}
0x4d70…4d94               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0031, t01=0x00ea}
0x4d94…4dbe               Head {h00=0x0026, h01=0x0050, text=» CF A5,FD:REA READ DATA SET LABEL «, t00=0x0031, t01=0x010e}
0x4dbe…4de6               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC RETURN CODE CHECK «, t00=0x0031, t01=0x0138}
0x4de6…4df2               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0031, t01=0x0160}
0x4df2…4dfc               Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0031, t01=0x016c}
0x4dfc…4e24               Head {h00=0x0024, h01=0x0050, text=»*------------------------------ «, t00=0x0031, t01=0x0176}
0x4e24…4e64               Head {h00=0x003c, h01=0x0050, text=»*  TRANSFORM RETURN CODE TO IBM SECTOR NO (EBCDIC-CODED)«, t00=0x0032, t01=0x000e}
0x4e64…4e6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x004e}
0x4e6e…4e90               Head {h00=0x001e, h01=0x0050, text=» CF A5,DSOPCH EOD-NO TO A7«, t00=0x0032, t01=0x0058}
0x4e90…4e9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x007a}
0x4e9a…4eb6               Head {h00=0x0018, h01=0x0050, text=»*  DIVIDE EOD BY 26 «, t00=0x0032, t01=0x0084}
0x4eb6…4ec0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00a0}
0x4ec0…4ed2               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0032, t01=0x00aa}
0x4ed2…4eea               Head {h00=0x0014, h01=0x0050, text=»UNL:10 SUK A7,26«, t00=0x0032, t01=0x00bc}
0x4eea…4f00               Head {h00=0x0012, h01=0x0050, text=» RF(N) UNL:20 «, t00=0x0032, t01=0x00d4}
0x4f00…4f12               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0032, t01=0x00ea}
0x4f12…4f24               Head {h00=0x000e, h01=0x0050, text=» RB UNL:10«, t00=0x0032, t01=0x00fc}
0x4f24…4f3c               Head {h00=0x0014, h01=0x0050, text=»UNL:20 ADK A7,27«, t00=0x0032, t01=0x010e}
0x4f3c…4f46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0126}
0x4f46…4f66               Head {h00=0x001c, h01=0x0050, text=»*   A1 = BINARY TRACK NO«, t00=0x0032, t01=0x0130}
0x4f66…4f94               Head {h00=0x002a, h01=0x0050, text=»*   A7 = SECTOR NO WITHIN TRACK (0-25)«, t00=0x0032, t01=0x0150}
0x4f94…4f9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x017e}
0x4f9e…4fca               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC TRANSFORM SEC.NO TO A3«, t00=0x0032, t01=0x0188}
0x4fca…4ff6               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUF+EOD+4 ADDRESS TO POS 79«, t00=0x0033, t01=0x0024}
0x4ff6…5008               Head {h00=0x000e, h01=0x0050, text=» SCR A3,A4«, t00=0x0033, t01=0x0050}
0x5008…501a               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0033, t01=0x0062}
0x501a…5036               Head {h00=0x0018, h01=0x0050, text=» SRL A3,8 LEFT BYTE «, t00=0x0033, t01=0x0074}
0x5036…5058               Head {h00=0x001e, h01=0x0050, text=» SCR A3,A4 STORE IN BUFFER«, t00=0x0033, t01=0x0090}
0x5058…5070               Head {h00=0x0014, h01=0x0050, text=» LDR A7,A1 TRACK«, t00=0x0033, t01=0x00b2}
0x5070…509c               Head {h00=0x0028, h01=0x0050, text=» CF A5,BINDEC DEC EBCDIC-CODED IN A3«, t00=0x0033, t01=0x00ca}
0x509c…50ae               Head {h00=0x000e, h01=0x0050, text=» SUK A4,3 «, t00=0x0033, t01=0x00f6}
0x50ae…50d0               Head {h00=0x001e, h01=0x0050, text=» STR A3,A4 TRACK INTO BUF «, t00=0x0033, t01=0x0108}
0x50d0…50ee               Head {h00=0x001a, h01=0x0050, text=» CF A5,SETINH INHIBIT «, t00=0x0033, t01=0x012a}
0x50ee…50f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0148}
0x50f8…5118               Head {h00=0x001c, h01=0x0050, text=»*  WRITE DATA SET LABEL «, t00=0x0033, t01=0x0152}
0x5118…5122               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0172}
0x5122…5146               Head {h00=0x0020, h01=0x0050, text=» CF A5,DSLIO PREPARE FOR I/O«, t00=0x0033, t01=0x017c}
0x5146…5166               Head {h00=0x001c, h01=0x0050, text=» ORK A2,5 PHYSICAL WRITE«, t00=0x0034, t01=0x0010}
0x5166…5192               Head {h00=0x0028, h01=0x0050, text=» CF A5,FD:WRITE WRITE DATA SET LEBEL«, t00=0x0034, t01=0x0030}
0x5192…51ba               Head {h00=0x0024, h01=0x0050, text=» CF A5,UNL:RC CHECK RETURN CODE «, t00=0x0034, t01=0x005c}
0x51ba…51d0               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0034, t01=0x0084}
0x51d0…51f2               Head {h00=0x001e, h01=0x0050, text=» CMR A2 INDICATE NOT OPEN «, t00=0x0034, t01=0x009a}
0x51f2…51fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00bc}
0x51fc…5210               Head {h00=0x0010, h01=0x0050, text=»*    UNLOCK «, t00=0x0034, t01=0x00c6}
0x5210…521a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00da}
0x521a…5226               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00e4}
0x5226…523a               Head {h00=0x0010, h01=0x0050, text=»UNL:70 EQU *«, t00=0x0034, t01=0x00f0}
0x523a…5254               Head {h00=0x0016, h01=0x0050, text=» LDK A2,/C UNLOCK «, t00=0x0034, t01=0x0104}
0x5254…526a               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0034, t01=0x011e}
0x526a…5284               Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTRCW,A6 «, t00=0x0034, t01=0x0134}
0x5284…5296               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0034, t01=0x014e}
0x5296…52c6               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) UNL:80 NOT OPERABLE,STILL LOCKED«, t00=0x0034, t01=0x0160}
0x52c6…52e8               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 INDEX MASK«, t00=0x0034, t01=0x0190}
0x52e8…5318               Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK IN DWT «, t00=0x0035, t01=0x0022}
0x5318…532c               Head {h00=0x0010, h01=0x0050, text=»UNL:80 EQU *«, t00=0x0035, t01=0x0052}
0x532c…5346               Head {h00=0x0016, h01=0x0050, text=» RB LOA:75 END:IO «, t00=0x0035, t01=0x0066}
0x5346…535e               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0035, t01=0x0080}
0x535e…5368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0098}
0x5368…538c               Head {h00=0x0020, h01=0x0050, text=»*   UNLOAD RETURN CODE CHECK«, t00=0x0035, t01=0x00a2}
0x538c…5396               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00c6}
0x5396…53b6               Head {h00=0x001c, h01=0x0050, text=»UNL:RC ORS A3,DWTRCW,A6 «, t00=0x0035, t01=0x00d0}
0x53b6…53d6               Head {h00=0x001c, h01=0x0050, text=» ANK A3,/7 FATAL ERROR? «, t00=0x0035, t01=0x00f0}
0x53d6…53f2               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) UNL:80 ENDIO«, t00=0x0035, t01=0x0110}
0x53f2…5402               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0035, t01=0x012c}
0x5402…540e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x013c}
0x540e…5420               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0035, t01=0x0148}
0x5420…5434               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0035, t01=0x015a}
0x5434…543e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x016e}
0x543e…545a               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0035, t01=0x0178}
0x545a…5476 (54, 0, 400)  Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL READ * «, t00=0x0036, t01=0x0004}
0x5476…5492               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0036, t01=0x0020}
0x5492…549c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x003c}
0x549c…54b0               Head {h00=0x0010, h01=0x0050, text=»SQREAD EQU *«, t00=0x0036, t01=0x0046}
0x54b0…54de               Head {h00=0x002a, h01=0x0050, text=» CF A5,DSOPCH GET EOD AND EOD ADDRESS «, t00=0x0036, t01=0x005a}
0x54de…54f4               Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 EOD«, t00=0x0036, t01=0x0088}
0x54f4…551a               Head {h00=0x0022, h01=0x0050, text=»SQR:05 ABL(Z) DISIOE NOT OPEN «, t00=0x0036, t01=0x009e}
0x551a…554c               Head {h00=0x002e, h01=0x0050, text=» ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN «, t00=0x0036, t01=0x00c4}
0x554c…5564               Head {h00=0x0014, h01=0x0050, text=» LDR* A3,A2 CRN «, t00=0x0036, t01=0x00f6}
0x5564…557c               Head {h00=0x0014, h01=0x0050, text=» ADK A3,1 CRN+1 «, t00=0x0036, t01=0x010e}
0x557c…55a6               Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBCW,A8 STORE CRN+1 IN ECB«, t00=0x0036, t01=0x0126}
0x55a6…55b8               Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0036, t01=0x0150}
0x55b8…55da               Head {h00=0x001e, h01=0x0050, text=» RF(NL) SQR:10 END OF DATA«, t00=0x0036, t01=0x0162}
0x55da…55f0               Head {h00=0x0012, h01=0x0050, text=» CF A5,BIO:RE «, t00=0x0036, t01=0x0184}
0x55f0…5614               Head {h00=0x0020, h01=0x0050, text=» LDKL A4,BUF BUFFER ADDRESS «, t00=0x0037, t01=0x000a}
0x5614…564a               Head {h00=0x0032, h01=0x0050, text=» CF A5,FD:REA READ SECTOR POINTED AT BY CRN+1 «, t00=0x0037, t01=0x002e}
0x564a…5676               Head {h00=0x0028, h01=0x0050, text=» LD A4,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x0037, t01=0x0064}
0x5676…569e               Head {h00=0x0024, h01=0x0050, text=» LD A7,ECBRL,A8 REQUESTED LENGTH«, t00=0x0037, t01=0x0090}
0x569e…56c6               Head {h00=0x0024, h01=0x0050, text=» CF A5,ASCII TRANSFORM TO ASCII «, t00=0x0037, t01=0x00b8}
0x56c6…56dc               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x0037, t01=0x00e0}
0x56dc…56f0               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0037, t01=0x00f6}
0x56f0…570e               Head {h00=0x001a, h01=0x0050, text=» RF SQW:10 UPDATE CRN «, t00=0x0037, t01=0x010a}
0x570e…5718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0128}
0x5718…5730               Head {h00=0x0014, h01=0x0050, text=»*    END OF DATA«, t00=0x0037, t01=0x0132}
0x5730…573a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x014a}
0x573a…5762               Head {h00=0x0024, h01=0x0050, text=»SQR:10 LDKL A1,/1000 RETURN CODE«, t00=0x0037, t01=0x0154}
0x5762…5774               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0037, t01=0x017c}
0x5774…5788               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0037, t01=0x018e}
0x5788…5792               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0012}
0x5792…57ae               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x001c}
0x57ae…57ca               Head {h00=0x0018, h01=0x0050, text=»* SEQUENTIAL WRITE *«, t00=0x0038, t01=0x0038}
0x57ca…57e6               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0038, t01=0x0054}
0x57e6…57f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0070}
0x57f0…5804               Head {h00=0x0010, h01=0x0050, text=»SQWRIT EQU *«, t00=0x0038, t01=0x007a}
0x5804…5822               Head {h00=0x001a, h01=0x0050, text=» CF A5,DSOPCH GET EOD «, t00=0x0038, t01=0x008e}
0x5822…5844               Head {h00=0x001e, h01=0x0050, text=» ADK A7,0 EOD-NO (SET CR) «, t00=0x0038, t01=0x00ac}
0x5844…5862               Head {h00=0x001a, h01=0x0050, text=» RB(Z) SQR:05 NOT OPEN«, t00=0x0038, t01=0x00ce}
0x5862…586c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ec}
0x586c…588e               Head {h00=0x001e, h01=0x0050, text=»*   CHECK IF END OF EXTENT«, t00=0x0038, t01=0x00f6}
0x588e…5898               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0118}
0x5898…58ae               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTEOE«, t00=0x0038, t01=0x0122}
0x58ae…58d8               Head {h00=0x0026, h01=0x0050, text=» CF A5,DSPAD EOE-NO ADDRESS TO A2 «, t00=0x0038, t01=0x0138}
0x58d8…5906               Head {h00=0x002a, h01=0x0050, text=» ST A7,ECBCW,A8 STORE EOD IN ECB C. W.«, t00=0x0038, t01=0x0162}
0x5906…591a               Head {h00=0x0010, h01=0x0050, text=» CWR* A7,A2 «, t00=0x0038, t01=0x0190}
0x591a…5938               Head {h00=0x001a, h01=0x0050, text=» RF(G) SQW:20 YES,EOE «, t00=0x0039, t01=0x0014}
0x5938…594a               Head {h00=0x000e, h01=0x0050, text=» CF A5,BIO«, t00=0x0039, t01=0x0032}
0x594a…595e               Head {h00=0x0010, h01=0x0050, text=» LDK A7,128 «, t00=0x0039, t01=0x0044}
0x595e…598e               Head {h00=0x002c, h01=0x0050, text=» CF A5,EBCDIC TRANSFORM AND MOVE TO BUF «, t00=0x0039, t01=0x0058}
0x598e…59ac               Head {h00=0x001a, h01=0x0050, text=» ORK A2,5 PHYS. WRITE «, t00=0x0039, t01=0x0088}
0x59ac…59c2               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:WRI «, t00=0x0039, t01=0x00a6}
0x59c2…59d8               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x0039, t01=0x00bc}
0x59d8…59fc               Head {h00=0x0020, h01=0x0050, text=»SQW:10 LDR A1,A3 RETURN CODE«, t00=0x0039, t01=0x00d2}
0x59fc…5a0e               Head {h00=0x000e, h01=0x0050, text=» ANK A1,/1«, t00=0x0039, t01=0x00f6}
0x5a0e…5a32               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) SQW:15 NOT OPERABLE «, t00=0x0039, t01=0x0108}
0x5a32…5a60               Head {h00=0x002a, h01=0x0050, text=» IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT «, t00=0x0039, t01=0x012c}
0x5a60…5a78               Head {h00=0x0014, h01=0x0050, text=»SQW:15 RF FD:RC «, t00=0x0039, t01=0x015a}
0x5a78…5a82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0172}
0x5a82…5a8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x017c}
0x5a8c…5aa4               Head {h00=0x0014, h01=0x0050, text=»*  END OF EXTENT«, t00=0x0039, t01=0x0186}
0x5aa4…5acc               Head {h00=0x0024, h01=0x0050, text=»SQW:20 LDKL A1,/400 RETURN CODE «, t00=0x003a, t01=0x000e}
0x5acc…5ade               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003a, t01=0x0036}
0x5ade…5af2               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x003a, t01=0x0048}
0x5af2…5afc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x005c}
0x5afc…5b0e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x0066}
0x5b0e…5b20               Head {h00=0x000e, h01=0x0050, text=»* REWIND *«, t00=0x003a, t01=0x0078}
0x5b20…5b32               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x003a, t01=0x008a}
0x5b32…5b3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x009c}
0x5b3c…5b50               Head {h00=0x0010, h01=0x0050, text=»REWIND EQU *«, t00=0x003a, t01=0x00a6}
0x5b50…5b66               Head {h00=0x0012, h01=0x0050, text=» CF A5,DSOPCH «, t00=0x003a, t01=0x00ba}
0x5b66…5b84               Head {h00=0x001a, h01=0x0050, text=» ADK A7,0 EOD (SET CR)«, t00=0x003a, t01=0x00d0}
0x5b84…5bac               Head {h00=0x0024, h01=0x0050, text=» RB(Z) SQR:05 DATA SET NOT OPEN «, t00=0x003a, t01=0x00ee}
0x5bac…5bd0               Head {h00=0x0020, h01=0x0050, text=» LDR A3,A2 SAVE EOD ADDRESS «, t00=0x003a, t01=0x0116}
0x5bd0…5be6               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTBOE«, t00=0x003a, t01=0x013a}
0x5be6…5bfa               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003a, t01=0x0150}
0x5bfa…5c12               Head {h00=0x0014, h01=0x0050, text=» LDR* A4,A2 BOE «, t00=0x003a, t01=0x0164}
0x5c12…5c2e               Head {h00=0x0018, h01=0x0050, text=» STR A4,A3 EOD = BOE«, t00=0x003a, t01=0x017c}
0x5c2e…5c44               Head {h00=0x0012, h01=0x0050, text=» LDK A1,DWTCRN«, t00=0x003b, t01=0x0008}
0x5c44…5c58               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x003b, t01=0x001e}
0x5c58…5c72               Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 BOE - 1 «, t00=0x003b, t01=0x0032}
0x5c72…5c92               Head {h00=0x001c, h01=0x0050, text=» STR A4,A2 CRN = BOE -1 «, t00=0x003b, t01=0x004c}
0x5c92…5cb0               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x003b, t01=0x006c}
0x5cb0…5cc2               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003b, t01=0x008a}
0x5cc2…5cce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x009c}
0x5cce…5ce2               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x003b, t01=0x00a8}
0x5ce2…5cec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00bc}
0x5cec…5d06               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x003b, t01=0x00c6}
0x5d06…5d20               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x003b, t01=0x00e0}
0x5d20…5d3a               Head {h00=0x0016, h01=0x0050, text=»* PERFORM ORDER * «, t00=0x003b, t01=0x00fa}
0x5d3a…5d54               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x003b, t01=0x0114}
0x5d54…5d6e               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x003b, t01=0x012e}
0x5d6e…5d78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0148}
0x5d78…5d82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0152}
0x5d82…5da6               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A2  BIO CONTENTS «, t00=0x003b, t01=0x015c}
0x5da6…5dda               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x003b, t01=0x0180}
0x5dda…5e00               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x003c, t01=0x0024}
0x5e00…5e0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x004a}
0x5e0a…5e1e               Head {h00=0x0010, h01=0x0050, text=»FD:WRI EQU *«, t00=0x003c, t01=0x0054}
0x5e1e…5e32               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003c, t01=0x0068}
0x5e32…5e54               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 WORDS,WRITE«, t00=0x003c, t01=0x007c}
0x5e54…5e60               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x009e}
0x5e60…5e74               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003c, t01=0x00aa}
0x5e74…5ea0               Head {h00=0x0028, h01=0x0050, text=» CM DWTRW,A6 INDICATOR TO WRITE MODE«, t00=0x003c, t01=0x00be}
0x5ea0…5eac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00ea}
0x5eac…5ebe               Head {h00=0x000e, h01=0x0050, text=» RF FD:800«, t00=0x003c, t01=0x00f6}
0x5ebe…5ec8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0108}
0x5ec8…5edc               Head {h00=0x0010, h01=0x0050, text=»FD:REA EQU *«, t00=0x003c, t01=0x0112}
0x5edc…5ef0               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003c, t01=0x0126}
0x5ef0…5f02               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x003c, t01=0x013a}
0x5f02…5f24               Head {h00=0x001e, h01=0x0050, text=» ST A1,DWTRW,A6 READ MODE «, t00=0x003c, t01=0x014c}
0x5f24…5f30               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x016e}
0x5f30…5f44               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003c, t01=0x017a}
0x5f44…5f66               Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/8000 WORDS  READ«, t00=0x003c, t01=0x018e}
0x5f66…5f72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0020}
0x5f72…5f86               Head {h00=0x0010, h01=0x0050, text=»FD:800 EQU *«, t00=0x003d, t01=0x002c}
0x5f86…5f9a               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003d, t01=0x0040}
0x5f9a…5fc0               Head {h00=0x0022, h01=0x0050, text=» SRL A3,1 FROM BYTES TO WORDS «, t00=0x003d, t01=0x0054}
0x5fc0…5fca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x007a}
0x5fca…5fe0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x0084}
0x5fe0…600a               Head {h00=0x0026, h01=0x0050, text=» ORR* A1,A8 GET FIRST WORD OF ECB «, t00=0x003d, t01=0x009a}
0x600a…6038               Head {h00=0x002a, h01=0x0050, text=» ANKL A1,/F000 KEEP FOUR LEFTMOST BITS«, t00=0x003d, t01=0x00c4}
0x6038…6044               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00f2}
0x6044…604e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00fe}
0x604e…6062               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x003d, t01=0x0108}
0x6062…6074               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x003d, t01=0x011c}
0x6074…6098               Head {h00=0x0020, h01=0x0050, text=»WER1 WER A3,MUXADR FIRST WER«, t00=0x003d, t01=0x012e}
0x6098…60c0               Head {h00=0x0024, h01=0x0050, text=»WER2 WER A4,MUXADR+1 SECOND WER «, t00=0x003d, t01=0x0152}
0x60c0…60cc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x017a}
0x60cc…60e0               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x003d, t01=0x0186}
0x60e0…60ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x000a}
0x60ea…60fe               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x003e, t01=0x0014}
0x60fe…6108               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0028}
0x6108…613a               Head {h00=0x002e, h01=0x0050, text=»*  PUT BUFFER START AND END ADDRESS IN DWT«, t00=0x003e, t01=0x0032}
0x613a…6144               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0064}
0x6144…615c               Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTUB,A6 «, t00=0x003e, t01=0x006e}
0x615c…616e               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x003e, t01=0x0086}
0x616e…6194               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTUBE,A6 END ADDRESS+2«, t00=0x003e, t01=0x0098}
0x6194…61a0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x00be}
0x61a0…61b4               Head {h00=0x0010, h01=0x0050, text=»FD:820 EQU *«, t00=0x003e, t01=0x00ca}
0x61b4…61de               Head {h00=0x0026, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE STACK POINTER«, t00=0x003e, t01=0x00de}
0x61de…6200               Head {h00=0x001e, h01=0x0050, text=» EX FDCIO,A6 CIO-START KST«, t00=0x003e, t01=0x0108}
0x6200…622c               Head {h00=0x0028, h01=0x0050, text=» RF(3) FD:840 DEVICE ADDRESS UNKNOWN«, t00=0x003e, t01=0x012a}
0x622c…623e               Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x003e, t01=0x0156}
0x623e…6262               Head {h00=0x0020, h01=0x0050, text=»FD:840 LDK A1,1 NOT OPERABLE«, t00=0x003e, t01=0x0168}
0x6262…6274               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x003e, t01=0x018c}
0x6274…6288               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x003f, t01=0x000e}
0x6288…6292               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0022}
0x6292…62c0               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x002c}
0x62c0…62ee               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x003f, t01=0x005a}
0x62ee…631c               Head {h00=0x002a, h01=0x0050, text=»*  FD:RC - STORE EFF LEN, END:IO     *«, t00=0x003f, t01=0x0088}
0x631c…634a               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x003f, t01=0x00b6}
0x634a…6378               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x003f, t01=0x00e4}
0x6378…6382               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0112}
0x6382…63a4               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A3  RETURN CODE«, t00=0x003f, t01=0x011c}
0x63a4…63ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x013e}
0x63ae…63c2               Head {h00=0x0010, h01=0x0050, text=»FD:RC EQU * «, t00=0x003f, t01=0x0148}
0x63c2…63d4               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x003f, t01=0x015c}
0x63d4…63de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x016e}
0x63de…6404               Head {h00=0x0022, h01=0x0050, text=»*  PUT EFFECTIVE LENGTH IN ECB«, t00=0x003f, t01=0x0178}
0x6404…640e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x000e}
0x640e…6430               Head {h00=0x001e, h01=0x0050, text=» LD A2,ECBRL,A8 REQ LENGTH«, t00=0x0040, t01=0x0018}
0x6430…6452               Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBEL,A8 EFF LENGTH«, t00=0x0040, t01=0x003a}
0x6452…6466               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0040, t01=0x005c}
0x6466…6470               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0070}
0x6470…6482               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x007a}
0x6482…6494               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0040, t01=0x008c}
0x6494…64a6               Head {h00=0x000e, h01=0x0050, text=»* END:IO *«, t00=0x0040, t01=0x009e}
0x64a6…64b8               Head {h00=0x000e, h01=0x0050, text=»*        *«, t00=0x0040, t01=0x00b0}
0x64b8…64ca               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0040, t01=0x00c2}
0x64ca…64d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d4}
0x64d4…64e8               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0040, t01=0x00de}
0x64e8…64fe               Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0040, t01=0x00f2}
0x64fe…6516               Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0040, t01=0x0108}
0x6516…6520               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0120}
0x6520…652a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x012a}
0x652a…6550               Head {h00=0x0022, h01=0x0050, text=»*  ENTRY FROM RECOVERY ROUTINE«, t00=0x0040, t01=0x0134}
0x6550…655a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x015a}
0x655a…656e               Head {h00=0x0010, h01=0x0050, text=»END:05 EQU *«, t00=0x0040, t01=0x0164}
0x656e…6578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0178}
0x6578…6592               Head {h00=0x0016, h01=0x0050, text=»*  ILLEGAL LENGTH «, t00=0x0040, t01=0x0182}
0x6592…659c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x000c}
0x659c…65c0               Head {h00=0x0020, h01=0x0050, text=»END:10 LDK A1,8 RETURN CODE «, t00=0x0041, t01=0x0016}
0x65c0…65d2               Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x0041, t01=0x003a}
0x65d2…65e6               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0041, t01=0x004c}
0x65e6…65f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0060}
0x65f0…660c               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0041, t01=0x006a}
0x660c…6628               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0041, t01=0x0086}
0x6628…6644               Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE *«, t00=0x0041, t01=0x00a2}
0x6644…6660               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0041, t01=0x00be}
0x6660…667c               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0041, t01=0x00da}
0x667c…6686               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00f6}
0x6686…6698               Head {h00=0x000e, h01=0x0050, text=»FDON EQU *«, t00=0x0041, t01=0x0100}
0x6698…66ae               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0041, t01=0x0112}
0x66ae…66d8               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0041, t01=0x0128}
0x66d8…66e4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0152}
0x66e4…66ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x015e}
0x66ee…6704               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0041, t01=0x0168}
0x6704…672a               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0041, t01=0x017e}
0x672a…6736               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0014}
0x6736…6740               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0020}
0x6740…6764               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x0042, t01=0x002a}
0x6764…677c               Head {h00=0x0014, h01=0x0050, text=» RF FDON05  KST «, t00=0x0042, t01=0x004e}
0x677c…6794               Head {h00=0x0014, h01=0x0050, text=»FDON2 EQU *  KST«, t00=0x0042, t01=0x0066}
0x6794…67ac               Head {h00=0x0014, h01=0x0050, text=» MSR 8,A15  KST «, t00=0x0042, t01=0x007e}
0x67ac…67c8               Head {h00=0x0018, h01=0x0050, text=» LDKL A6,DWFD02  KST«, t00=0x0042, t01=0x0096}
0x67c8…67d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b2}
0x67d2…67e6               Head {h00=0x0010, h01=0x0050, text=»FDON05 EQU *«, t00=0x0042, t01=0x00bc}
0x67e6…6808               Head {h00=0x001e, h01=0x0050, text=» IM DWTA2,A6 SET FDON FLAG«, t00=0x0042, t01=0x00d0}
0x6808…6820               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0042, t01=0x00f2}
0x6820…6842               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x0042, t01=0x010a}
0x6842…684c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x012c}
0x684c…6868               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0042, t01=0x0136}
0x6868…6898               Head {h00=0x002c, h01=0x0050, text=» LD A2,INIFLG CHECK INITIALIZATION FLAG «, t00=0x0042, t01=0x0152}
0x6898…68b8               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON07 POWER UP? «, t00=0x0042, t01=0x0182}
0x68b8…68f6               Head {h00=0x003a, h01=0x0050, text=» LD A2,SCTPLD GET FILE CODE OF PROGRAM LOADING DEVICE «, t00=0x0043, t01=0x0012}
0x68f6…690a               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F8 «, t00=0x0043, t01=0x0050}
0x690a…6932               Head {h00=0x0024, h01=0x0050, text=» RF(N) FDON07 NOT FLEXIBLE DISC?«, t00=0x0043, t01=0x0064}
0x6932…6944               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0043, t01=0x008c}
0x6944…6976               Head {h00=0x002e, h01=0x0050, text=» CF A5,SETCIO DRIVE NR IN CIO INSTRUCTION «, t00=0x0043, t01=0x009e}
0x6976…69a2               Head {h00=0x0028, h01=0x0050, text=» CF A5,FDIX GET DRIVE BIT INDICATOR «, t00=0x0043, t01=0x00d0}
0x69a2…69d0               Head {h00=0x002a, h01=0x0050, text=» ORS A3,DWTLC,A6 INDICATE DRIVE LOCKED«, t00=0x0043, t01=0x00fc}
0x69d0…69da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x012a}
0x69da…69ee               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0043, t01=0x0134}
0x69ee…69f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0148}
0x69f8…6a02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0152}
0x6a02…6a14               Head {h00=0x000e, h01=0x0050, text=» C1R A3,A3«, t00=0x0043, t01=0x015c}
0x6a14…6a42               Head {h00=0x002a, h01=0x0050, text=» ANS A3,DWTLAB,A6 INDICATE TOSS LABEL «, t00=0x0043, t01=0x016e}
0x6a42…6a4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x000c}
0x6a4c…6a7a               Head {h00=0x002a, h01=0x0050, text=»* READ VOLUME NAME (A2 = 0 FROM FDIX) «, t00=0x0044, t01=0x0016}
0x6a7a…6a84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0044}
0x6a84…6a96               Head {h00=0x000e, h01=0x0050, text=» LDK A3,8 «, t00=0x0044, t01=0x004e}
0x6a96…6aaa               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0044, t01=0x0060}
0x6aaa…6ac0               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0044, t01=0x0074}
0x6ac0…6ad6               Head {h00=0x0012, h01=0x0050, text=» LD A3,SCTPLD «, t00=0x0044, t01=0x008a}
0x6ad6…6b0a               Head {h00=0x0030, h01=0x0050, text=» CF A5,VOLA05 GET VOLUME NAME ADDRESS IN DWT«, t00=0x0044, t01=0x00a0}
0x6b0a…6b1c               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0044, t01=0x00d4}
0x6b1c…6b2e               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x0044, t01=0x00e6}
0x6b2e…6b38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00f8}
0x6b38…6b5a               Head {h00=0x001e, h01=0x0050, text=»* MOVE VOLUME NAME TO DWT «, t00=0x0044, t01=0x0102}
0x6b5a…6b64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0124}
0x6b64…6b80               Head {h00=0x0018, h01=0x0050, text=»FDON06 LD A4,BUF,A1 «, t00=0x0044, t01=0x012e}
0x6b80…6b92               Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x0044, t01=0x014a}
0x6b92…6ba4               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0044, t01=0x015c}
0x6ba4…6bb6               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0044, t01=0x016e}
0x6bb6…6bc8               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0044, t01=0x0180}
0x6bc8…6bde (69, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» RB(P) FDON06 «, t00=0x0045, t01=0x0004}
0x6bde…6be8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x001a}
0x6be8…6bfc               Head {h00=0x0010, h01=0x0050, text=»FDON07 EQU *«, t00=0x0045, t01=0x0024}
0x6bfc…6c08               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0038}
0x6c08…6c12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0044}
0x6c12…6c26               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0045, t01=0x004e}
0x6c26…6c30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0062}
0x6c30…6c64               Head {h00=0x0030, h01=0x0050, text=»*  SAVE DWTST TO DWTST2 IF NOT ALREADY DONE.«, t00=0x0045, t01=0x006c}
0x6c64…6c82               Head {h00=0x001a, h01=0x0050, text=»*    DWTST IS SET BUSY«, t00=0x0045, t01=0x00a0}
0x6c82…6c8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00be}
0x6c8c…6ca4               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST2,A6«, t00=0x0045, t01=0x00c8}
0x6ca4…6cb6               Head {h00=0x000e, h01=0x0050, text=» CWK A2,-1«, t00=0x0045, t01=0x00e0}
0x6cb6…6cda               Head {h00=0x0020, h01=0x0050, text=» RF(NE) FDON08 ALREADY SAVED«, t00=0x0045, t01=0x00f2}
0x6cda…6cf2               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x0045, t01=0x0116}
0x6cf2…6d0a               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST2,A6«, t00=0x0045, t01=0x012e}
0x6d0a…6d2e               Head {h00=0x0020, h01=0x0050, text=»FDON08 CM DWTST,A6 SET BUSY «, t00=0x0045, t01=0x0146}
0x6d2e…6d38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x016a}
0x6d38…6d4e               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0045, t01=0x0174}
0x6d4e…6d58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x018a}
0x6d58…6d62 (70, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0046, t01=0x0004}
0x6d62…6d6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x000e}
0x6d6c…6daa               Head {h00=0x003a, h01=0x0050, text=»*    TERMINATE WAIT REQUEST FOR OPEN ORDER IF RUNNING «, t00=0x0046, t01=0x0018}
0x6daa…6dd0               Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP2,A6 TIMER POINTER«, t00=0x0046, t01=0x0056}
0x6dd0…6df2               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON09 NOT RUNNING «, t00=0x0046, t01=0x007c}
0x6df2…6e0c               Head {h00=0x0016, h01=0x0050, text=» CMR A4 STOP TIMER«, t00=0x0046, t01=0x009e}
0x6e0c…6e34               Head {h00=0x0024, h01=0x0050, text=» CM DWTTP2,A6 INDICATE NO TIMER «, t00=0x0046, t01=0x00b8}
0x6e34…6e48               Head {h00=0x0010, h01=0x0050, text=»FDON09 EQU *«, t00=0x0046, t01=0x00e0}
0x6e48…6e52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00f4}
0x6e52…6e8c               Head {h00=0x0036, h01=0x0050, text=»*    OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE«, t00=0x0046, t01=0x00fe}
0x6e8c…6ec2               Head {h00=0x0032, h01=0x0050, text=» LDKL A4,SPDLCI OPEN/CLOSE STATUS WORD ADDRESS«, t00=0x0046, t01=0x0138}
0x6ec2…6ecc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x016e}
0x6ecc…6ef6               Head {h00=0x0026, h01=0x0050, text=» LDKL A2,/8000 OPEN/CLOSE BIT MASK«, t00=0x0046, t01=0x0178}
0x6ef6…6f1e               Head {h00=0x0024, h01=0x0050, text=» ANR* A2,A4 A2:=OPEN/CLOSE FLAG «, t00=0x0047, t01=0x0012}
0x6f1e…6f3c               Head {h00=0x001a, h01=0x0050, text=» ORS A2,DWTOCF,A6 SAVE«, t00=0x0047, t01=0x003a}
0x6f3c…6f68               Head {h00=0x0028, h01=0x0050, text=» XRRS A2,A4 SET STATUS WORD TO OPEN «, t00=0x0047, t01=0x0058}
0x6f68…6f72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0084}
0x6f72…6f86               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A4 «, t00=0x0047, t01=0x008e}
0x6f86…6fb0               Head {h00=0x0026, h01=0x0050, text=» OTR A2,0,SOPDA SET DRIVE TO OPEN «, t00=0x0047, t01=0x00a2}
0x6fb0…6fba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00cc}
0x6fba…6fc6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x00d6}
0x6fc6…6fd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00e2}
0x6fd0…6fda               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0047, t01=0x00ec}
0x6fda…6fe4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00f6}
0x6fe4…6ffa               Head {h00=0x0012, h01=0x0050, text=»* DELAY 2 SEC «, t00=0x0047, t01=0x0100}
0x6ffa…7004               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0116}
0x7004…701c               Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTTP,A6 «, t00=0x0047, t01=0x0120}
0x701c…703e               Head {h00=0x001e, h01=0x0050, text=» RF(Z) FDON10 NO TIMER SET«, t00=0x0047, t01=0x0138}
0x703e…7054               Head {h00=0x0012, h01=0x0050, text=» LDKL A4,-TIME«, t00=0x0047, t01=0x015a}
0x7054…707a               Head {h00=0x0022, h01=0x0050, text=» ST* A4,DWTTP,A6 RESTART TIMER«, t00=0x0047, t01=0x0170}
0x707a…708c               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0048, t01=0x0008}
0x708c…70a8               Head {h00=0x0018, h01=0x0050, text=»FDON10 LDK A4,DWTTP «, t00=0x0048, t01=0x001a}
0x70a8…70ba               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0048, t01=0x0036}
0x70ba…70d4               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 SAVE A6«, t00=0x0048, t01=0x0048}
0x70d4…70ea               Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x0048, t01=0x0062}
0x70ea…7104               Head {h00=0x0016, h01=0x0050, text=» DATA FDON20,TIME «, t00=0x0048, t01=0x0078}
0x7104…7116               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0048, t01=0x0092}
0x7116…7120               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00a4}
0x7120…713c               Head {h00=0x0018, h01=0x0050, text=»*   TIME OUT ROUTINE«, t00=0x0048, t01=0x00ae}
0x713c…7146               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00ca}
0x7146…715e               Head {h00=0x0014, h01=0x0050, text=»FDON20 LDR A6,A1«, t00=0x0048, t01=0x00d4}
0x715e…7172               Head {h00=0x0010, h01=0x0050, text=» CM DWTTP,A6«, t00=0x0048, t01=0x00ec}
0x7172…718a               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0048, t01=0x0100}
0x718a…71a8               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0048, t01=0x0118}
0x71a8…71b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0136}
0x71b2…71c8               Head {h00=0x0012, h01=0x0050, text=»*  LOCK DOORS «, t00=0x0048, t01=0x0140}
0x71c8…71d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0156}
0x71d2…71e4               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0048, t01=0x0160}
0x71e4…71f8               Head {h00=0x0010, h01=0x0050, text=»FDON25 EQU *«, t00=0x0048, t01=0x0172}
0x71f8…721e               Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTLC,A6 LOCK INDICATOR«, t00=0x0048, t01=0x0186}
0x721e…7230               Head {h00=0x000e, h01=0x0050, text=» ANR A1,A2«, t00=0x0049, t01=0x001c}
0x7230…7250               Head {h00=0x001c, h01=0x0050, text=» RF(Z) FDON30 NOT LOCKED«, t00=0x0049, t01=0x002e}
0x7250…726c               Head {h00=0x0018, h01=0x0050, text=» ST A2,DWTA3,A6 SAVE«, t00=0x0049, t01=0x004e}
0x726c…7276               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x006a}
0x7276…7280               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0049, t01=0x0074}
0x7280…728a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x007e}
0x728a…72ae               Head {h00=0x0020, h01=0x0050, text=»*  PUT DRIVE NO IN CIO INSTR«, t00=0x0049, t01=0x0088}
0x72ae…72b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00ac}
0x72b8…72da               Head {h00=0x001e, h01=0x0050, text=» SRN A2,A3 DRIVE NO IN A3 «, t00=0x0049, t01=0x00b6}
0x72da…7308               Head {h00=0x002a, h01=0x0050, text=» CF A5,SETCIO PUT DRVE NO IN CIO-INSTR«, t00=0x0049, t01=0x00d8}
0x7308…7320               Head {h00=0x0014, h01=0x0050, text=» LDK A2,/14 LOCK«, t00=0x0049, t01=0x0106}
0x7320…7336               Head {h00=0x0012, h01=0x0050, text=» CF A5,FD:REA «, t00=0x0049, t01=0x011e}
0x7336…7358               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTA3,A6 DRIVE IND.«, t00=0x0049, t01=0x0134}
0x7358…736a               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0049, t01=0x0156}
0x736a…7382               Head {h00=0x0014, h01=0x0050, text=» RF(Z) FDON30 OK«, t00=0x0049, t01=0x0168}
0x7382…73aa               Head {h00=0x0024, h01=0x0050, text=» XRS A2,DWTLC,A6 INDICATE UNLOCK«, t00=0x0049, t01=0x0180}
0x73aa…73be               Head {h00=0x0010, h01=0x0050, text=»FDON30 EQU *«, t00=0x004a, t01=0x0018}
0x73be…73d0               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004a, t01=0x002c}
0x73d0…73e6               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/0010 «, t00=0x004a, t01=0x003e}
0x73e6…73fc               Head {h00=0x0012, h01=0x0050, text=» RB(NE) FDON25«, t00=0x004a, t01=0x0054}
0x73fc…7406               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x006a}
0x7406…741c               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x004a, t01=0x0074}
0x741c…7426               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x008a}
0x7426…746e               Head {h00=0x0044, h01=0x0050, text=»*    RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF«, t00=0x004a, t01=0x0094}
0x746e…7496               Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOCF,A6 OPEN/CLOSE FLAG«, t00=0x004a, t01=0x00dc}
0x7496…74bc               Head {h00=0x0022, h01=0x0050, text=» ORS A2,SPDLCI TO STATUS WORD «, t00=0x004a, t01=0x0104}
0x74bc…74dc               Head {h00=0x001c, h01=0x0050, text=» CM DWTOCF,A6 CLEAR FLAG«, t00=0x004a, t01=0x012a}
0x74dc…74e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x014a}
0x74e6…750e               Head {h00=0x0024, h01=0x0050, text=» LD A2,SPDLCI OPEN/CLOSE STATUS «, t00=0x004a, t01=0x0154}
0x750e…7542               Head {h00=0x0030, h01=0x0050, text=» OTR A2,0,SOPDA CLOSE DRIVE IF IT WAS CLOSED«, t00=0x004a, t01=0x017c}
0x7542…7562               Head {h00=0x001c, h01=0x0050, text=»*   BEFORE THE POWER OFF«, t00=0x004b, t01=0x0020}
0x7562…756e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x0040}
0x756e…7578               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x004c}
0x7578…7582               Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x004b, t01=0x0056}
0x7582…758c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0060}
0x758c…75a4               Head {h00=0x0014, h01=0x0050, text=»*  ANY REQUEST? «, t00=0x004b, t01=0x006a}
0x75a4…75ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0082}
0x75ae…75e0               Head {h00=0x002e, h01=0x0050, text=»*  RESTORE STATUS SAVED IN DWST2 TO DWTST.«, t00=0x004b, t01=0x008c}
0x75e0…75fc               Head {h00=0x0018, h01=0x0050, text=»*   SET DWTST2 TO -1«, t00=0x004b, t01=0x00be}
0x75fc…7622               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST2,A6 SAVED STATUS «, t00=0x004b, t01=0x00da}
0x7622…7650               Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTST,A6 PUT IN CUURENT STATUS «, t00=0x004b, t01=0x0100}
0x7650…7664               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x004b, t01=0x012e}
0x7664…7690               Head {h00=0x0028, h01=0x0050, text=» ST A2,DWTST2,A6 INDICATE NOT SAVED «, t00=0x004b, t01=0x0142}
0x7690…76b4               Head {h00=0x0020, h01=0x0050, text=» CM DWTA2,A6 RESET FDON FLAG«, t00=0x004b, t01=0x016e}
0x76b4…76c8 (76, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»FDON60 EQU *«, t00=0x004c, t01=0x0004}
0x76c8…76e0               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTST,A6 «, t00=0x004c, t01=0x0018}
0x76e0…7714               Head {h00=0x0030, h01=0x0050, text=» ABL(N) END:05 NO REQUEST, RETURN VIA TENDIO«, t00=0x004c, t01=0x0030}
0x7714…771e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0064}
0x771e…7736               Head {h00=0x0014, h01=0x0050, text=»*  RETRY REQUEST«, t00=0x004c, t01=0x006e}
0x7736…7740               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0086}
0x7740…7764               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x004c, t01=0x0090}
0x7764…777c               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x004c, t01=0x00b4}
0x777c…7796               Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x004c, t01=0x00cc}
0x7796…77ba               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x004c, t01=0x00e6}
0x77ba…77d6               Head {h00=0x0018, h01=0x0050, text=» ABL FDAD REACTIVATE«, t00=0x004c, t01=0x010a}
0x77d6…77ea               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x004c, t01=0x0126}
0x77ea…77f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x013a}
0x77f4…7812               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x004c, t01=0x0144}
0x7812…7830               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x004c, t01=0x0162}
0x7830…784e               Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER * «, t00=0x004c, t01=0x0180}
0x784e…786c               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x004d, t01=0x000e}
0x786c…788a               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x004d, t01=0x002c}
0x788a…7894               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x004a}
0x7894…78a6               Head {h00=0x000e, h01=0x0050, text=»IHFD EQU *«, t00=0x004d, t01=0x0054}
0x78a6…78ce               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x004d, t01=0x0066}
0x78ce…78f4               Head {h00=0x0022, h01=0x0050, text=»******************** =1 START «, t00=0x004d, t01=0x008e}
0x78f4…790a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x004d, t01=0x00b4}
0x790a…7938               Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS ON STACK «, t00=0x004d, t01=0x00ca}
0x7938…7944               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00f8}
0x7944…794e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0104}
0x794e…7964               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x004d, t01=0x010e}
0x7964…798a               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x004d, t01=0x0124}
0x798a…7996               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x014a}
0x7996…79a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0156}
0x79a0…79c4               Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWFD01 DWT ADDRESS «, t00=0x004d, t01=0x0160}
0x79c4…79da               Head {h00=0x0012, h01=0x0050, text=» RF IH000  KST«, t00=0x004d, t01=0x0184}
0x79da…79f2               Head {h00=0x0014, h01=0x0050, text=»IHFD2 EQU *  KST«, t00=0x004e, t01=0x000a}
0x79f2…7a0c               Head {h00=0x0016, h01=0x0050, text=» ST P,INTSAV  KST «, t00=0x004e, t01=0x0022}
0x7a0c…7a24               Head {h00=0x0014, h01=0x0050, text=» MSR 8,A15  KST «, t00=0x004e, t01=0x003c}
0x7a24…7a40               Head {h00=0x0018, h01=0x0050, text=» LDKL A6,DWFD02  KST«, t00=0x004e, t01=0x0054}
0x7a40…7a58               Head {h00=0x0014, h01=0x0050, text=»IH000 EQU *  KST«, t00=0x004e, t01=0x0070}
0x7a58…7a6c               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x004e, t01=0x0088}
0x7a6c…7a78               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x004e, t01=0x009c}
0x7a78…7aa2               Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTUB,A6 GET BUFFER POINTER«, t00=0x004e, t01=0x00a8}
0x7aa2…7ac8               Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTUBE,A6 END OF BUFFER«, t00=0x004e, t01=0x00d2}
0x7ac8…7ae2               Head {h00=0x0016, h01=0x0050, text=» SUR A2,A1 LENGTH «, t00=0x004e, t01=0x00f8}
0x7ae2…7af6               Head {h00=0x0010, h01=0x0050, text=»IH005 EQU * «, t00=0x004e, t01=0x0112}
0x7af6…7b10               Head {h00=0x0016, h01=0x0050, text=» EX FDSST,A6  KST «, t00=0x004e, t01=0x0126}
0x7b10…7b36               Head {h00=0x0022, h01=0x0050, text=» RF(A) IH:000 READY INTERRUPT «, t00=0x004e, t01=0x0140}
0x7b36…7b62               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTRW,A6 READ/WRITE INDICATOR«, t00=0x004e, t01=0x0166}
0x7b62…7b7c (79, 0, 400)  Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IH050 READ«, t00=0x004f, t01=0x0004}
0x7b7c…7b86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x001e}
0x7b86…7b98               Head {h00=0x000e, h01=0x0050, text=»    DRFD01«, t00=0x004f, t01=0x0028}
0x7b98…7ba2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x003a}
0x7ba2…7bac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0044}
0x7bac…7bc0               Head {h00=0x0010, h01=0x0050, text=»IH010 EQU * «, t00=0x004f, t01=0x004e}
0x7bc0…7be8               Head {h00=0x0024, h01=0x0050, text=» LCR A3,A1 ONE BYTE FROM BUFFER «, t00=0x004f, t01=0x0062}
0x7be8…7c08               Head {h00=0x001c, h01=0x0050, text=» ECR A3,A3 LEFT POSITION«, t00=0x004f, t01=0x008a}
0x7c08…7c32               Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A1 RIGHT BYTE FROM BUFFER«, t00=0x004f, t01=0x00aa}
0x7c32…7c50               Head {h00=0x001a, h01=0x0050, text=» EX FDOTR,A6 WRITE KST«, t00=0x004f, t01=0x00d4}
0x7c50…7c66               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x004f, t01=0x00f2}
0x7c66…7c8e               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x004f, t01=0x0108}
0x7c8e…7ca0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004f, t01=0x0130}
0x7ca0…7cb4               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH010«, t00=0x004f, t01=0x0142}
0x7cb4…7cd6               Head {h00=0x001e, h01=0x0050, text=» EX FDHLT,A6 CIO-HALT KST «, t00=0x004f, t01=0x0156}
0x7cd6…7cf8               Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GOTO DISPATCHER«, t00=0x004f, t01=0x0178}
0x7cf8…7d02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x000a}
0x7d02…7d16               Head {h00=0x0010, h01=0x0050, text=»IH050 EQU * «, t00=0x0050, t01=0x0014}
0x7d16…7d34               Head {h00=0x001a, h01=0x0050, text=» EX FDINR,A6 READ KST «, t00=0x0050, t01=0x0028}
0x7d34…7d4a               Head {h00=0x0012, h01=0x0050, text=» RB(NA) IH005 «, t00=0x0050, t01=0x0046}
0x7d4a…7d72               Head {h00=0x0024, h01=0x0050, text=» SC A3,1,A1 RIGHT BYTE TO BUFFER«, t00=0x0050, t01=0x005c}
0x7d72…7d84               Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x0050, t01=0x0084}
0x7d84…7daa               Head {h00=0x0022, h01=0x0050, text=» SCR A3,A1 LEFT BYTE TO BUFFER«, t00=0x0050, t01=0x0096}
0x7daa…7dd2               Head {h00=0x0024, h01=0x0050, text=» ADK A1,2 UPDATE BUFFER POINTER «, t00=0x0050, t01=0x00bc}
0x7dd2…7de4               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0050, t01=0x00e4}
0x7de4…7df8               Head {h00=0x0010, h01=0x0050, text=» RB(P) IH050«, t00=0x0050, t01=0x00f6}
0x7df8…7e1a               Head {h00=0x001e, h01=0x0050, text=» EX FDHLT,A6 CIO-HALT KST «, t00=0x0050, t01=0x010a}
0x7e1a…7e3a               Head {h00=0x001c, h01=0x0050, text=» EX FDSST,A6 STATUS KST «, t00=0x0050, t01=0x012c}
0x7e3a…7e52               Head {h00=0x0014, h01=0x0050, text=» RB(NA) *-2  =2 «, t00=0x0050, t01=0x014c}
0x7e52…7e6a               Head {h00=0x0014, h01=0x0050, text=»IH:000 EQU *  =1«, t00=0x0050, t01=0x0164}
0x7e6a…7e76               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x017c}
0x7e76…7e80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0188}
0x7e80…7e92 (81, 0, 400)  Head {h00=0x000e, h01=0x0050, text=»    DRFD01«, t00=0x0051, t01=0x0004}
0x7e92…7e9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0016}
0x7e9c…7ea6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0020}
0x7ea6…7eca               Head {h00=0x0020, h01=0x0050, text=»******************** =1 END «, t00=0x0051, t01=0x002a}
0x7eca…7ee2               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN=0  =2 «, t00=0x0051, t01=0x004e}
0x7ee2…7f02               Head {h00=0x001c, h01=0x0050, text=» EX FDSST,A6 STATUS KST «, t00=0x0051, t01=0x0066}
0x7f02…7f14               Head {h00=0x000e, h01=0x0050, text=» XIF   =2 «, t00=0x0051, t01=0x0086}
0x7f14…7f40               Head {h00=0x0028, h01=0x0050, text=»*     LDKL A6,DWFD01 DWT ADRESS KST «, t00=0x0051, t01=0x0098}
0x7f40…7f64               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0051, t01=0x00c4}
0x7f64…7f8a               Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTA5,A6 STACK POINTER «, t00=0x0051, t01=0x00e8}
0x7f8a…7f9c               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0051, t01=0x010e}
0x7f9c…7fc0               Head {h00=0x0020, h01=0x0050, text=» RF(N) FDRE READY INTERRUPT «, t00=0x0051, t01=0x0120}
0x7fc0…7fd2               Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x0051, t01=0x0144}
0x7fd2…7ff2               Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTRTY,A6 RETRY? «, t00=0x0051, t01=0x0156}
0x7ff2…800a               Head {h00=0x0014, h01=0x0050, text=» RF(Z) IH:10 NO «, t00=0x0051, t01=0x0176}
0x800a…8030               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RESET RETRY FLAG«, t00=0x0051, t01=0x018e}
0x8030…8042               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0052, t01=0x0024}
0x8042…8058               Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0405«, t00=0x0052, t01=0x0036}
0x8058…807c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) IH:10 RETURN CODE OK «, t00=0x0052, t01=0x004c}
0x807c…808e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,/4«, t00=0x0052, t01=0x0070}
0x808e…80aa               Head {h00=0x0018, h01=0x0050, text=» ORR A3,A1 CRC ERROR«, t00=0x0052, t01=0x0082}
0x80aa…80be               Head {h00=0x0010, h01=0x0050, text=»IH:10 EQU * «, t00=0x0052, t01=0x009e}
0x80be…80c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00b2}
0x80c8…80da               Head {h00=0x000e, h01=0x0050, text=»    DRFD01«, t00=0x0052, t01=0x00bc}
0x80da…80e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00ce}
0x80e4…810e               Head {h00=0x0026, h01=0x0050, text=»* TRANSFORM RETURN CODE, CU - ECB «, t00=0x0052, t01=0x00d8}
0x810e…8118               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0102}
0x8118…812e               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FF37«, t00=0x0052, t01=0x010c}
0x812e…8142               Head {h00=0x0010, h01=0x0050, text=» RF(Z) IH:80«, t00=0x0052, t01=0x0122}
0x8142…8154               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0052, t01=0x0136}
0x8154…817a               Head {h00=0x0022, h01=0x0050, text=» ANKL A3,/0A05 UNCHANGED BITS «, t00=0x0052, t01=0x0148}
0x817a…818c               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0052, t01=0x016e}
0x818c…81a8               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/0400 BIT 5«, t00=0x0052, t01=0x0180}
0x81a8…81c4               Head {h00=0x0018, h01=0x0050, text=» SLC A4,7 TO BIT 14 «, t00=0x0053, t01=0x000c}
0x81c4…81d6               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0053, t01=0x0028}
0x81d6…81ee               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0053, t01=0x003a}
0x81ee…8200               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0053, t01=0x0052}
0x8200…821c               Head {h00=0x0018, h01=0x0050, text=» ANKL A4,/2000 BIT 2«, t00=0x0053, t01=0x0064}
0x821c…8236               Head {h00=0x0016, h01=0x0050, text=» SLL A4,1 TO BIT 1«, t00=0x0053, t01=0x0080}
0x8236…8248               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0053, t01=0x009a}
0x8248…8254               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x00ac}
0x8254…8266               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0053, t01=0x00b8}
0x8266…8280               Head {h00=0x0016, h01=0x0050, text=» ANK A4,/20 BIT 10«, t00=0x0053, t01=0x00ca}
0x8280…829a               Head {h00=0x0016, h01=0x0050, text=» SLL A4,3 TO BIT 7«, t00=0x0053, t01=0x00e4}
0x829a…82ac               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0053, t01=0x00fe}
0x82ac…82c6               Head {h00=0x0016, h01=0x0050, text=» ANK A1,/10 BIT 11«, t00=0x0053, t01=0x0110}
0x82c6…82e0               Head {h00=0x0016, h01=0x0050, text=» SRC A1,5 TO BIT 0«, t00=0x0053, t01=0x012a}
0x82e0…82f2               Head {h00=0x000e, h01=0x0050, text=» ORR A3,A1«, t00=0x0053, t01=0x0144}
0x82f2…8306               Head {h00=0x0010, h01=0x0050, text=»IH:80 EQU * «, t00=0x0053, t01=0x0156}
0x8306…831c               Head {h00=0x0012, h01=0x0050, text=» IFT CHAN=1 =1«, t00=0x0053, t01=0x016a}
0x831c…832c               Head {h00=0x000c, h01=0x0050, text=» INH  =1«, t00=0x0053, t01=0x0180}
0x832c…833c               Head {h00=0x000c, h01=0x0050, text=» XIF  =1«, t00=0x0053, t01=0x0190}
0x833c…834c               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x0010}
0x834c…8360               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0054, t01=0x0020}
0x8360…836a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0034}
0x836a…8386               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0054, t01=0x003e}
0x8386…83a2               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0054, t01=0x005a}
0x83a2…83be               Head {h00=0x0018, h01=0x0050, text=»*  READY INTERRUPT *«, t00=0x0054, t01=0x0076}
0x83be…83da               Head {h00=0x0018, h01=0x0050, text=»*                  *«, t00=0x0054, t01=0x0092}
0x83da…83f6               Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0054, t01=0x00ae}
0x83f6…8400               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00ca}
0x8400…8412               Head {h00=0x000e, h01=0x0050, text=»FDRE EQU *«, t00=0x0054, t01=0x00d4}
0x8412…842a               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0054, t01=0x00e6}
0x842a…845a               Head {h00=0x002c, h01=0x0050, text=» ABL(NZ) T:DISP POWER ON ROUTINE ACTIVE «, t00=0x0054, t01=0x00fe}
0x845a…8472               Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0054, t01=0x012e}
0x8472…8490               Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0054, t01=0x0146}
0x8490…84a2               Head {h00=0x000e, h01=0x0050, text=» RB FDON60«, t00=0x0054, t01=0x0164}
0x84a2…84b6               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0054, t01=0x0176}
0x84b6…84c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x018a}
0x84c0…84f4 (85, 0, 400)  Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0055, t01=0x0004}
0x84f4…8528               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0055, t01=0x0038}
0x8528…855c               Head {h00=0x0030, h01=0x0050, text=»*    S U B R O U T I N E S                * «, t00=0x0055, t01=0x006c}
0x855c…8590               Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x0055, t01=0x00a0}
0x8590…85c4               Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0055, t01=0x00d4}
0x85c4…85ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0108}
0x85ce…85de               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0055, t01=0x0112}
0x85de…85ee               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0055, t01=0x0122}
0x85ee…85fe               Head {h00=0x000c, h01=0x0050, text=»* BIO * «, t00=0x0055, t01=0x0132}
0x85fe…860e               Head {h00=0x000c, h01=0x0050, text=»*     * «, t00=0x0055, t01=0x0142}
0x860e…861e               Head {h00=0x000c, h01=0x0050, text=»******* «, t00=0x0055, t01=0x0152}
0x861e…8628               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0162}
0x8628…8632               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x016c}
0x8632…8654               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A8  ECB ADDRESS«, t00=0x0055, t01=0x0176}
0x8654…865e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0008}
0x865e…86a0               Head {h00=0x003e, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 OF CONTROL WORD USED BY CIO START«, t00=0x0056, t01=0x0012}
0x86a0…86d4               Head {h00=0x0030, h01=0x0050, text=»*          A3  NO OF BYTES TO BE TRANSFERED «, t00=0x0056, t01=0x0054}
0x86d4…86fa               Head {h00=0x0022, h01=0x0050, text=»*          A4  BUFFER ADDRESS «, t00=0x0056, t01=0x0088}
0x86fa…8704               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00ae}
0x8704…8716               Head {h00=0x000e, h01=0x0050, text=»BIO EQU * «, t00=0x0056, t01=0x00b8}
0x8716…872c               Head {h00=0x0012, h01=0x0050, text=» LDK A4,0 FLAG«, t00=0x0056, t01=0x00ca}
0x872c…873e               Head {h00=0x000e, h01=0x0050, text=» RF BIO010«, t00=0x0056, t01=0x00e0}
0x873e…8756               Head {h00=0x0014, h01=0x0050, text=»BIO:RE LDK A4,1 «, t00=0x0056, t01=0x00f2}
0x8756…876a               Head {h00=0x0010, h01=0x0050, text=»BIO010 EQU *«, t00=0x0056, t01=0x010a}
0x876a…878a               Head {h00=0x001c, h01=0x0050, text=» LD A3,ECBRL,A8 REQ LEN «, t00=0x0056, t01=0x011e}
0x878a…87ae               Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOERR ILLEGAL LENGTH«, t00=0x0056, t01=0x013e}
0x87ae…87c6               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0056, t01=0x0162}
0x87c6…87de               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTLAB,A6«, t00=0x0056, t01=0x017a}
0x87de…87f6 (87, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» AN A2,DWTA3,A6 «, t00=0x0057, t01=0x0004}
0x87f6…8816               Head {h00=0x001c, h01=0x0050, text=» RF(Z) BIO020 TOSS DISC «, t00=0x0057, t01=0x001c}
0x8816…8822               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x003c}
0x8822…8834               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0057, t01=0x0048}
0x8834…884a               Head {h00=0x0012, h01=0x0050, text=» LDK A7,IBMLEN«, t00=0x0057, t01=0x005a}
0x884a…885c               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0057, t01=0x0070}
0x885c…8868               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0082}
0x8868…8880               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x0057, t01=0x008e}
0x8880…8892               Head {h00=0x000e, h01=0x0050, text=» RF BIO030«, t00=0x0057, t01=0x00a6}
0x8892…889e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x00b8}
0x889e…88b2               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x0057, t01=0x00c4}
0x88b2…88d0               Head {h00=0x001a, h01=0x0050, text=»BIO020 LDKL A7,TOSLEN «, t00=0x0057, t01=0x00d8}
0x88d0…88e2               Head {h00=0x000e, h01=0x0050, text=» LDK A2,3 «, t00=0x0057, t01=0x00f6}
0x88e2…88f6               Head {h00=0x0010, h01=0x0050, text=»BIO030 EQU *«, t00=0x0057, t01=0x0108}
0x88f6…8902               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x011c}
0x8902…891a               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x0057, t01=0x0128}
0x891a…8932               Head {h00=0x0014, h01=0x0050, text=» ADK A4,0 SET CR«, t00=0x0057, t01=0x0140}
0x8932…894e               Head {h00=0x0018, h01=0x0050, text=» RF(Z) BIO060 WRITE «, t00=0x0057, t01=0x0158}
0x894e…8960               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0057, t01=0x0174}
0x8960…897a               Head {h00=0x0016, h01=0x0050, text=» LDR A1,A3 REQ LEN«, t00=0x0057, t01=0x0186}
0x897a…89a4               Head {h00=0x0026, h01=0x0050, text=» CWR A3,A7 REQ LENGTH WITHIN RANGE«, t00=0x0058, t01=0x0010}
0x89a4…89bc               Head {h00=0x0014, h01=0x0050, text=» RF(G) BIOERR NO«, t00=0x0058, t01=0x003a}
0x89bc…89d6               Head {h00=0x0016, h01=0x0050, text=»BIO040 SUK A1,128 «, t00=0x0058, t01=0x0052}
0x89d6…89ec               Head {h00=0x0012, h01=0x0050, text=» RF(NP) BIO100«, t00=0x0058, t01=0x006c}
0x89ec…8a16               Head {h00=0x0026, h01=0x0050, text=» ADK A2,1 INCREMENT NO OF SECTORS «, t00=0x0058, t01=0x0082}
0x8a16…8a28               Head {h00=0x000e, h01=0x0050, text=» RB BIO040«, t00=0x0058, t01=0x00ac}
0x8a28…8a32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00be}
0x8a32…8a54               Head {h00=0x001e, h01=0x0050, text=»*  WRITE, CHECK REQ LENGTH«, t00=0x0058, t01=0x00c8}
0x8a54…8a5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00ea}
0x8a5e…8a76               Head {h00=0x0014, h01=0x0050, text=»BIO060 CWR A3,A7«, t00=0x0058, t01=0x00f4}
0x8a76…8a9c               Head {h00=0x0022, h01=0x0050, text=» RF(NE) BIOERR ILLEGAL REQ LEN«, t00=0x0058, t01=0x010c}
0x8a9c…8aa8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0132}
0x8aa8…8ac0               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x0058, t01=0x013e}
0x8ac0…8aca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0156}
0x8aca…8b0c               Head {h00=0x003e, h01=0x0050, text=»*  FIND NO OF SECTORS TO BE READ/WRITTEN, CHECK REQ LENGTH«, t00=0x0058, t01=0x0160}
0x8b0c…8b16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0012}
0x8b16…8b34               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x0059, t01=0x001c}
0x8b34…8b56               Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 NO OF SECTORS-1 «, t00=0x0059, t01=0x003a}
0x8b56…8b7e               Head {h00=0x0024, h01=0x0050, text=»BIO015 LDR A4,A4 READ OR WRITE? «, t00=0x0059, t01=0x005c}
0x8b7e…8b9a               Head {h00=0x0018, h01=0x0050, text=» RF(NZ) BIO035 READ!«, t00=0x0059, t01=0x0084}
0x8b9a…8bae               Head {h00=0x0010, h01=0x0050, text=» SUK A1,128 «, t00=0x0059, t01=0x00a0}
0x8bae…8bd4               Head {h00=0x0022, h01=0x0050, text=» RF(Z) BIO100 REQ LEN ACCEPTED«, t00=0x0059, t01=0x00b4}
0x8bd4…8be6               Head {h00=0x000e, h01=0x0050, text=» RF BIO045«, t00=0x0059, t01=0x00da}
0x8be6…8bf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00ec}
0x8bf0…8c0a               Head {h00=0x0016, h01=0x0050, text=»BIO035 SUK A1,128 «, t00=0x0059, t01=0x00f6}
0x8c0a…8c34               Head {h00=0x0026, h01=0x0050, text=» RF(NP) BIO100 REQ LENGTH ACCEPTED«, t00=0x0059, t01=0x0110}
0x8c34…8c4c               Head {h00=0x0014, h01=0x0050, text=»BIO045 ADK A2,1 «, t00=0x0059, t01=0x013a}
0x8c4c…8c5e               Head {h00=0x000e, h01=0x0050, text=» CWK A2,3 «, t00=0x0059, t01=0x0152}
0x8c5e…8c74               Head {h00=0x0012, h01=0x0050, text=» RB(NG) BIO015«, t00=0x0059, t01=0x0164}
0x8c74…8c9c               Head {h00=0x0024, h01=0x0050, text=» RF BIOERR REQ LEN OUTSIDE RANGE«, t00=0x0059, t01=0x017a}
0x8c9c…8ca8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0012}
0x8ca8…8cb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x001e}
0x8cb2…8cec               Head {h00=0x0036, h01=0x0050, text=»BIO100 SRC A2,2 SHIFT NO OF SECTORS-1 INTO POS 0-1«, t00=0x005a, t01=0x0028}
0x8cec…8cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0062}
0x8cf6…8d2c               Head {h00=0x0032, h01=0x0050, text=»*  CHECK SECTOR NO FROM CONTROL WORD OF ECB IS«, t00=0x005a, t01=0x006c}
0x8d2c…8d58               Head {h00=0x0028, h01=0x0050, text=»*  WITHIN RANGE, PUT IT IN POS 2-12 «, t00=0x005a, t01=0x00a2}
0x8d58…8d62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00ce}
0x8d62…8d84               Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBCW,A8 SECTOR NO «, t00=0x005a, t01=0x00d8}
0x8d84…8da8               Head {h00=0x0020, h01=0x0050, text=» RF(N) BIOER2 OUTSIDE RANGE «, t00=0x005a, t01=0x00fa}
0x8da8…8dc0               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x005a, t01=0x011e}
0x8dc0…8dd2               Head {h00=0x000e, h01=0x0050, text=» ANK A7,/A«, t00=0x005a, t01=0x0136}
0x8dd2…8df0               Head {h00=0x001a, h01=0x0050, text=» RF(Z) BIO110 IBM DISC«, t00=0x005a, t01=0x0148}
0x8df0…8dfc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0166}
0x8dfc…8e10               Head {h00=0x0010, h01=0x0050, text=» IFT TOSS=1 «, t00=0x005a, t01=0x0172}
0x8e10…8e24               Head {h00=0x0010, h01=0x0050, text=» CWK A1,499 «, t00=0x005a, t01=0x0186}
0x8e24…8e46               Head {h00=0x001e, h01=0x0050, text=» RF(G) BIOER2 OUT OF RANGE«, t00=0x005b, t01=0x000a}
0x8e46…8e76               Head {h00=0x002c, h01=0x0050, text=» SLL A1,2 MULTIPLY BY 4TO GET DM SECTOR «, t00=0x005b, t01=0x002c}
0x8e76…8e82               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x005c}
0x8e82…8e9a               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=2 «, t00=0x005b, t01=0x0068}
0x8e9a…8eac               Head {h00=0x000e, h01=0x0050, text=» RF BIO120«, t00=0x005b, t01=0x0080}
0x8eac…8eb8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0092}
0x8eb8…8eca               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005b, t01=0x009e}
0x8eca…8ee4               Head {h00=0x0016, h01=0x0050, text=»BIO110 CWK A1,1923«, t00=0x005b, t01=0x00b0}
0x8ee4…8f06               Head {h00=0x001e, h01=0x0050, text=» RF(P) BIOER2 OUT OF RANGE«, t00=0x005b, t01=0x00ca}
0x8f06…8f12               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x00ec}
0x8f12…8f2a               Head {h00=0x0014, h01=0x0050, text=» IFT TOSS+IBM=0 «, t00=0x005b, t01=0x00f8}
0x8f2a…8f56               Head {h00=0x0028, h01=0x0050, text=» CWK A1,2001 SECTOR NO OUT OF RANGE «, t00=0x005b, t01=0x0110}
0x8f56…8f70               Head {h00=0x0016, h01=0x0050, text=» RF(G) BIOER2 YES!«, t00=0x005b, t01=0x013c}
0x8f70…8f7c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0156}
0x8f7c…8f90               Head {h00=0x0010, h01=0x0050, text=»BIO120 EQU *«, t00=0x005b, t01=0x0162}
0x8f90…8fa2               Head {h00=0x000e, h01=0x0050, text=» SLL A1,3 «, t00=0x005b, t01=0x0176}
0x8fa2…8fb4               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x005b, t01=0x0188}
0x8fb4…8fda               Head {h00=0x0022, h01=0x0050, text=» LD A4,ECBBA,A8 BUFFER ADDRESS«, t00=0x005c, t01=0x000a}
0x8fda…8ff8               Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 REQ LENGTH «, t00=0x005c, t01=0x0030}
0x8ff8…900a               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x005c, t01=0x004e}
0x900a…9032               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) BIOERR REQ LEN. NOT EVEN«, t00=0x005c, t01=0x0060}
0x9032…9042               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005c, t01=0x0088}
0x9042…904c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0098}
0x904c…9056               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00a2}
0x9056…908c               Head {h00=0x0032, h01=0x0050, text=»*  ILLEGAL REQUESTED LENGTH, RETURN VIA TENDIO«, t00=0x005c, t01=0x00ac}
0x908c…9096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00e2}
0x9096…90b0               Head {h00=0x0016, h01=0x0050, text=»BIOERR ABL END:10 «, t00=0x005c, t01=0x00ec}
0x90b0…90ce               Head {h00=0x001a, h01=0x0050, text=»*   ILLEGAL SECTOR NO «, t00=0x005c, t01=0x0106}
0x90ce…90e8               Head {h00=0x0016, h01=0x0050, text=»BIOER2 ABL FD:DIS «, t00=0x005c, t01=0x0124}
0x90e8…90f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x013e}
0x90f2…9106               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x005c, t01=0x0148}
0x9106…9110               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x015c}
0x9110…9122               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005c, t01=0x0166}
0x9122…9134               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x005c, t01=0x0178}
0x9134…9146               Head {h00=0x000e, h01=0x0050, text=»* FDIX  * «, t00=0x005c, t01=0x018a}
0x9146…9158               Head {h00=0x000e, h01=0x0050, text=»*       * «, t00=0x005d, t01=0x000c}
0x9158…916a               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005d, t01=0x001e}
0x916a…9174               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0030}
0x9174…918e               Head {h00=0x0016, h01=0x0050, text=»*  INPUT:  A2   X «, t00=0x005d, t01=0x003a}
0x918e…9198               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0054}
0x9198…91ba               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A3   2 POWER(X)«, t00=0x005d, t01=0x005e}
0x91ba…91c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0080}
0x91c4…91da               Head {h00=0x0012, h01=0x0050, text=»FDIX LDK A3,1 «, t00=0x005d, t01=0x008a}
0x91da…91f2               Head {h00=0x0014, h01=0x0050, text=» ADK A2,0 SET CR«, t00=0x005d, t01=0x00a0}
0x91f2…9206               Head {h00=0x0010, h01=0x0050, text=»FDIX10 EQU *«, t00=0x005d, t01=0x00b8}
0x9206…921c               Head {h00=0x0012, h01=0x0050, text=» RF(Z) FDIX20 «, t00=0x005d, t01=0x00cc}
0x921c…922e               Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x005d, t01=0x00e2}
0x922e…9240               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x005d, t01=0x00f4}
0x9240…9252               Head {h00=0x000e, h01=0x0050, text=» RB FDIX10«, t00=0x005d, t01=0x0106}
0x9252…9268               Head {h00=0x0012, h01=0x0050, text=»FDIX20 RTN A5 «, t00=0x005d, t01=0x0118}
0x9268…927c               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x005d, t01=0x012e}
0x927c…9294               Head {h00=0x0014, h01=0x0050, text=» IFF TOSS+IBM=0 «, t00=0x005d, t01=0x0142}
0x9294…92ae               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x005d, t01=0x015a}
0x92ae…92c8               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x005d, t01=0x0174}
0x92c8…92e2               Head {h00=0x0016, h01=0x0050, text=»*  VOLADR        *«, t00=0x005d, t01=0x018e}
0x92e2…92fc               Head {h00=0x0016, h01=0x0050, text=»*                *«, t00=0x005e, t01=0x0018}
0x92fc…9316               Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x005e, t01=0x0032}
0x9316…9320               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x004c}
0x9320…9342               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x005e, t01=0x0056}
0x9342…934c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0078}
0x934c…9376               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT: A2  VOLUME NAME ADDRESS«, t00=0x005e, t01=0x0082}
0x9376…9392               Head {h00=0x0018, h01=0x0050, text=»*          A3  ZERO «, t00=0x005e, t01=0x00ac}
0x9392…939c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00c8}
0x939c…93b0               Head {h00=0x0010, h01=0x0050, text=»VOLADR EQU *«, t00=0x005e, t01=0x00d2}
0x93b0…93d0               Head {h00=0x001c, h01=0x0050, text=» LC A3,DWTOR,A6 DRIVE NO«, t00=0x005e, t01=0x00e6}
0x93d0…93e4               Head {h00=0x0010, h01=0x0050, text=»VOLA05 EQU *«, t00=0x005e, t01=0x0106}
0x93e4…93fa               Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWTVO0«, t00=0x005e, t01=0x011a}
0x93fa…940c               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x005e, t01=0x0130}
0x940c…941e               Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x005e, t01=0x0142}
0x941e…9432               Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x005e, t01=0x0154}
0x9432…9448               Head {h00=0x0012, h01=0x0050, text=» RF(Z) VOLA20 «, t00=0x005e, t01=0x0168}
0x9448…9468               Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 UPDATE ADDRESS«, t00=0x005e, t01=0x017e}
0x9468…947a               Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x005f, t01=0x000e}
0x947a…948c               Head {h00=0x000e, h01=0x0050, text=» RB VOLA10«, t00=0x005f, t01=0x0020}
0x948c…94a2               Head {h00=0x0012, h01=0x0050, text=»VOLA20 RTN A5 «, t00=0x005f, t01=0x0032}
0x94a2…94ae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0048}
0x94ae…94b6               Head {h00=0x0004, h01=0x0050, t00=0x005f, t01=0x0054}
0x94b6…94c8               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x005f, t01=0x005c}
0x94c8…94dc               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x005f, t01=0x006e}
0x94dc…94e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0082}
0x94e6…94f8               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005f, t01=0x008c}
0x94f8…950a               Head {h00=0x000e, h01=0x0050, text=»* ASCII * «, t00=0x005f, t01=0x009e}
0x950a…951c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x005f, t01=0x00b0}
0x951c…9526               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00c2}
0x9526…9564               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  ASCII TRANSFORMS A STRING FROM EBCDIC TO«, t00=0x005f, t01=0x00cc}
0x9564…9584               Head {h00=0x001c, h01=0x0050, text=»*             ASCII CODE«, t00=0x005f, t01=0x010a}
0x9584…95b6               Head {h00=0x002e, h01=0x0050, text=»*             INPUT STRING ADDRESS IS BUF «, t00=0x005f, t01=0x012a}
0x95b6…95e0               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7  NO OF CHARACTERS«, t00=0x005f, t01=0x015c}
0x95e0…9610               Head {h00=0x002c, h01=0x0050, text=»*             A4  OUTPUT  STRING ADDRESS«, t00=0x005f, t01=0x0186}
0x9610…9632               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0060, t01=0x0026}
0x9632…9652               Head {h00=0x001c, h01=0x0050, text=»*             A4 CHANGED«, t00=0x0060, t01=0x0048}
0x9652…9674               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0060, t01=0x0068}
0x9674…967e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x008a}
0x967e…9692               Head {h00=0x0010, h01=0x0050, text=»ASCII EQU * «, t00=0x0060, t01=0x0094}
0x9692…969e               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0060, t01=0x00a8}
0x969e…96b0               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0060, t01=0x00b4}
0x96b0…96c2               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0060, t01=0x00c6}
0x96c2…96da               Head {h00=0x0014, h01=0x0050, text=»ASC:10 SUK A7,1 «, t00=0x0060, t01=0x00d8}
0x96da…96f0               Head {h00=0x0012, h01=0x0050, text=» RF(N) ASC:20 «, t00=0x0060, t01=0x00f0}
0x96f0…9702               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0060, t01=0x0106}
0x9702…9728               Head {h00=0x0022, h01=0x0050, text=» LC A1,BUF,A7 GET EBCDIC CHAR «, t00=0x0060, t01=0x0118}
0x9728…9754               Head {h00=0x0028, h01=0x0050, text=» LC A1,TASCII,A1 TRANSFORM TO ASCII «, t00=0x0060, t01=0x013e}
0x9754…9788               Head {h00=0x0030, h01=0x0050, text=» SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER «, t00=0x0060, t01=0x016a}
0x9788…979a               Head {h00=0x000e, h01=0x0050, text=» RB ASC:10«, t00=0x0061, t01=0x000e}
0x979a…97ae               Head {h00=0x0010, h01=0x0050, text=»ASC:20 EQU *«, t00=0x0061, t01=0x0020}
0x97ae…97d4               Head {h00=0x0022, h01=0x0050, text=» RF EBC:90 SET INH AND RETURN «, t00=0x0061, t01=0x0034}
0x97d4…97e8               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0061, t01=0x005a}
0x97e8…97f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x006e}
0x97f2…9804               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0061, t01=0x0078}
0x9804…9816               Head {h00=0x000e, h01=0x0050, text=»* EBCDIC *«, t00=0x0061, t01=0x008a}
0x9816…9828               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0061, t01=0x009c}
0x9828…9832               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x00ae}
0x9832…9872               Head {h00=0x003c, h01=0x0050, text=»*  FUNCTION:  EBCDIC TRANSFORMES A STRING FROM ASCII TO «, t00=0x0061, t01=0x00b8}
0x9872…9894               Head {h00=0x001e, h01=0x0050, text=»*             EBCDIC CODE «, t00=0x0061, t01=0x00f8}
0x9894…98d0               Head {h00=0x0038, h01=0x0050, text=»*             OUTPUT STRING IS PUT IN DRIVER BUFFER «, t00=0x0061, t01=0x011a}
0x98d0…98da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0156}
0x98da…9904               Head {h00=0x0026, h01=0x0050, text=»*  INPUT:     A7 NO OF CHARACTERS «, t00=0x0061, t01=0x0160}
0x9904…9932               Head {h00=0x002a, h01=0x0050, text=»*             A4  INPUT STRING ADDRESS«, t00=0x0061, t01=0x018a}
0x9932…993c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0028}
0x993c…995e               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:    A1  CHANGED «, t00=0x0062, t01=0x0032}
0x995e…998e               Head {h00=0x002c, h01=0x0050, text=»*              A4  DRIVER BUFFER ADDRESS«, t00=0x0062, t01=0x0054}
0x998e…99b0               Head {h00=0x001e, h01=0x0050, text=»*             A7  CHANGED «, t00=0x0062, t01=0x0084}
0x99b0…99c4               Head {h00=0x0010, h01=0x0050, text=»EBCDIC EQU *«, t00=0x0062, t01=0x00a6}
0x99c4…99d0               Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0062, t01=0x00ba}
0x99d0…99e2               Head {h00=0x000e, h01=0x0050, text=» ADR A4,A7«, t00=0x0062, t01=0x00c6}
0x99e2…99f4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0062, t01=0x00d8}
0x99f4…9a0c               Head {h00=0x0014, h01=0x0050, text=»EBC:10 SUK A7,1 «, t00=0x0062, t01=0x00ea}
0x9a0c…9a22               Head {h00=0x0012, h01=0x0050, text=» RF(N) EBC:80 «, t00=0x0062, t01=0x0102}
0x9a22…9a34               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0062, t01=0x0118}
0x9a34…9a56               Head {h00=0x001e, h01=0x0050, text=» LCR A1,A4 GET ASCII CHAR.«, t00=0x0062, t01=0x012a}
0x9a56…9a70               Head {h00=0x0016, h01=0x0050, text=» LC A1,TEBCDIC,A1 «, t00=0x0062, t01=0x014c}
0x9a70…9a86               Head {h00=0x0012, h01=0x0050, text=» SC A1,BUF,A7 «, t00=0x0062, t01=0x0166}
0x9a86…9a98               Head {h00=0x000e, h01=0x0050, text=» RB EBC:10«, t00=0x0062, t01=0x017c}
0x9a98…9aac               Head {h00=0x0010, h01=0x0050, text=»EBC:80 EQU *«, t00=0x0062, t01=0x018e}
0x9aac…9ac0               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x0063, t01=0x0012}
0x9ac0…9ad4               Head {h00=0x0010, h01=0x0050, text=»EBC:90 EQU *«, t00=0x0063, t01=0x0026}
0x9ad4…9aea               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x0063, t01=0x003a}
0x9aea…9afa               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0063, t01=0x0050}
0x9afa…9b0e               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0063, t01=0x0060}
0x9b0e…9b18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0074}
0x9b18…9b2a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0063, t01=0x007e}
0x9b2a…9b3c               Head {h00=0x000e, h01=0x0050, text=»* LOGSEC *«, t00=0x0063, t01=0x0090}
0x9b3c…9b4e               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x0063, t01=0x00a2}
0x9b4e…9b58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00b4}
0x9b58…9b9c               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD «, t00=0x0063, t01=0x00be}
0x9b9c…9bcc               Head {h00=0x002c, h01=0x0050, text=»*              LOGICAL SECTOR (BINARY). «, t00=0x0063, t01=0x0102}
0x9bcc…9c0c               Head {h00=0x003c, h01=0x0050, text=»*             FORMAT OF PHYS. SEC.  TT0SS  (EBCDIC CODE)«, t00=0x0063, t01=0x0132}
0x9c0c…9c3a               Head {h00=0x002a, h01=0x0050, text=»*              TT = TRACK,  SS=SECTOR «, t00=0x0063, t01=0x0172}
0x9c3a…9c44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0010}
0x9c44…9c74               Head {h00=0x002c, h01=0x0050, text=»*  INPUT:    A4  ADDRESS TO PHYS. SECTOR«, t00=0x0064, t01=0x001a}
0x9c74…9c7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x004a}
0x9c7e…9ca8               Head {h00=0x0026, h01=0x0050, text=»*  OUTPUT:   A3  BINARY SECTOR NO «, t00=0x0064, t01=0x0054}
0x9ca8…9cda               Head {h00=0x002e, h01=0x0050, text=»*            A4  ADDRESS TO PHYS. SEC. + 4«, t00=0x0064, t01=0x007e}
0x9cda…9ce4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00b0}
0x9ce4…9cf8               Head {h00=0x0010, h01=0x0050, text=»LOGSEC EQU *«, t00=0x0064, t01=0x00ba}
0x9cf8…9d0e               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0064, t01=0x00ce}
0x9d0e…9d26               Head {h00=0x0014, h01=0x0050, text=» LDR A3,A1 SAVE «, t00=0x0064, t01=0x00e4}
0x9d26…9d38               Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0064, t01=0x00fc}
0x9d38…9d42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x010e}
0x9d42…9d5c               Head {h00=0x0016, h01=0x0050, text=»*  MULTIPLY BY 26 «, t00=0x0064, t01=0x0118}
0x9d5c…9d66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0132}
0x9d66…9d7c               Head {h00=0x0012, h01=0x0050, text=» SLL A3,5 *32 «, t00=0x0064, t01=0x013c}
0x9d7c…9d8e               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0064, t01=0x0152}
0x9d8e…9da0               Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0064, t01=0x0164}
0x9da0…9db6               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A2 *28«, t00=0x0064, t01=0x0176}
0x9db6…9dc8               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0064, t01=0x018c}
0x9dc8…9dde               Head {h00=0x0012, h01=0x0050, text=» SUR A3,A1 *26«, t00=0x0065, t01=0x000e}
0x9dde…9df4               Head {h00=0x0012, h01=0x0050, text=» CF A5,DECBIN «, t00=0x0065, t01=0x0024}
0x9df4…9e06               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0065, t01=0x003a}
0x9e06…9e18               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0065, t01=0x004c}
0x9e18…9e22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x005e}
0x9e22…9e3c               Head {h00=0x0016, h01=0x0050, text=»*  CHECK SECTOR NO«, t00=0x0065, t01=0x0068}
0x9e3c…9e46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0082}
0x9e46…9e58               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0065, t01=0x008c}
0x9e58…9e6a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,25«, t00=0x0065, t01=0x009e}
0x9e6a…9e80               Head {h00=0x0012, h01=0x0050, text=» RF(NP) LOG:10«, t00=0x0065, t01=0x00b0}
0x9e80…9e9e               Head {h00=0x001a, h01=0x0050, text=» CWK A4,BUF+EOD+4 EOD?«, t00=0x0065, t01=0x00c6}
0x9e9e…9eb8               Head {h00=0x0016, h01=0x0050, text=» RF(E) LOG:02 YES!«, t00=0x0065, t01=0x00e4}
0x9eb8…9ece               Head {h00=0x0012, h01=0x0050, text=» SUKL A1,1898 «, t00=0x0065, t01=0x00fe}
0x9ece…9ee0               Head {h00=0x000e, h01=0x0050, text=» RF LOG:04«, t00=0x0065, t01=0x0114}
0x9ee0…9eea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0126}
0x9eea…9f10               Head {h00=0x0022, h01=0x0050, text=»*  CHECK EOD LESS/EQUAL 74001 «, t00=0x0065, t01=0x0130}
0x9f10…9f1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0156}
0x9f1a…9f36               Head {h00=0x0018, h01=0x0050, text=»LOG:02 SUKL A1,1899 «, t00=0x0065, t01=0x0160}
0x9f36…9f4a               Head {h00=0x0010, h01=0x0050, text=»LOG:04 EQU *«, t00=0x0065, t01=0x017c}
0x9f4a…9f70               Head {h00=0x0022, h01=0x0050, text=» RF(P) LOG:10 NOT ACC SEC. NO «, t00=0x0065, t01=0x0190}
0x9f70…9f96               Head {h00=0x0022, h01=0x0050, text=» SUK A4,4 RESET BUFFER POINTER«, t00=0x0066, t01=0x0026}
0x9f96…9fa6               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0066, t01=0x004c}
0x9fa6…9fb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x005c}
0x9fb0…9fc6               Head {h00=0x0012, h01=0x0050, text=»*  FATAL ERROR«, t00=0x0066, t01=0x0066}
0x9fc6…9fd0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x007c}
0x9fd0…9ffc               Head {h00=0x0028, h01=0x0050, text=»LOG:05 ADK A5,4 ADJUST STACK POINTER«, t00=0x0066, t01=0x0086}
0x9ffc…a024               Head {h00=0x0024, h01=0x0050, text=»LOG:10 LDKL A1,/2000 RETURN CODE«, t00=0x0066, t01=0x00b2}
0xa024…a03e               Head {h00=0x0016, h01=0x0050, text=» ORS A1,DWTRCW,A6 «, t00=0x0066, t01=0x00da}
0xa03e…a054               Head {h00=0x0012, h01=0x0050, text=» CF A5,SETINH «, t00=0x0066, t01=0x00f4}
0xa054…a076               Head {h00=0x001e, h01=0x0050, text=» ABL LOA:90 ERROR ROUTINE «, t00=0x0066, t01=0x010a}
0xa076…a080               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x012c}
0xa080…a094               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0066, t01=0x0136}
0xa094…a09e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x014a}
0xa09e…a0b0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x0154}
0xa0b0…a0c2               Head {h00=0x000e, h01=0x0050, text=»* DECBIN* «, t00=0x0066, t01=0x0166}
0xa0c2…a0d4               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0066, t01=0x0178}
0xa0d4…a0de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x018a}
0xa0de…a120 (103, 0, 400) Head {h00=0x003e, h01=0x0050, text=»*  FUNCTION:  DECBIN TRANSFORMS TWO EBCDIC CODED DIGITS TO«, t00=0x0067, t01=0x0004}
0xa120…a168               Head {h00=0x0044, h01=0x0050, text=»*             BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED «, t00=0x0067, t01=0x0046}
0xa168…a198               Head {h00=0x002c, h01=0x0050, text=»*     INPUT:  A4  ADDRESS TO FIRST DIGIT«, t00=0x0067, t01=0x008e}
0xa198…a1b6               Head {h00=0x001a, h01=0x0050, text=»*   OUTPUT: A1  BINARY«, t00=0x0067, t01=0x00be}
0xa1b6…a1d6               Head {h00=0x001c, h01=0x0050, text=»*   WORKING REG:  A2,A7 «, t00=0x0067, t01=0x00dc}
0xa1d6…a1e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00fc}
0xa1e0…a1f8               Head {h00=0x0014, h01=0x0050, text=»DECBIN LDK A1,0 «, t00=0x0067, t01=0x0106}
0xa1f8…a20a               Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0067, t01=0x011e}
0xa20a…a228               Head {h00=0x001a, h01=0x0050, text=»DEC:10 LCR A2,A4 DIGIT«, t00=0x0067, t01=0x0130}
0xa228…a23c               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0067, t01=0x014e}
0xa23c…a250               Head {h00=0x0010, h01=0x0050, text=» SUK A2,/F0 «, t00=0x0067, t01=0x0162}
0xa250…a266               Head {h00=0x0012, h01=0x0050, text=» RB(N) LOG:05 «, t00=0x0067, t01=0x0176}
0xa266…a278               Head {h00=0x000e, h01=0x0050, text=» SUK A2,9 «, t00=0x0067, t01=0x018c}
0xa278…a298               Head {h00=0x001c, h01=0x0050, text=» RB(P) LOG:05 NOT DIGIT «, t00=0x0068, t01=0x000e}
0xa298…a2aa               Head {h00=0x000e, h01=0x0050, text=» ADK A2,9 «, t00=0x0068, t01=0x002e}
0xa2aa…a2bc               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0068, t01=0x0040}
0xa2bc…a2d2               Head {h00=0x0012, h01=0x0050, text=» RF(Z) DEC:30 «, t00=0x0068, t01=0x0052}
0xa2d2…a2fc               Head {h00=0x0026, h01=0x0050, text=» ADK A4,1 ADDRESS TO SECOND DIGIT «, t00=0x0068, t01=0x0068}
0xa2fc…a314               Head {h00=0x0014, h01=0x0050, text=»DEC:20 SUK A2,1 «, t00=0x0068, t01=0x0092}
0xa314…a334               Head {h00=0x001c, h01=0x0050, text=» RB(N) DEC:10 NEXT DIGIT«, t00=0x0068, t01=0x00aa}
0xa334…a356               Head {h00=0x001e, h01=0x0050, text=» ADK A1,/A MULTIPLY BY 10 «, t00=0x0068, t01=0x00ca}
0xa356…a368               Head {h00=0x000e, h01=0x0050, text=» RB DEC:20«, t00=0x0068, t01=0x00ec}
0xa368…a380               Head {h00=0x0014, h01=0x0050, text=»DEC:30 ADR A1,A2«, t00=0x0068, t01=0x00fe}
0xa380…a390               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0068, t01=0x0116}
0xa390…a39c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x0126}
0xa39c…a3b0               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0068, t01=0x0132}
0xa3b0…a3ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0146}
0xa3ba…a3cc               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x0150}
0xa3cc…a3de               Head {h00=0x000e, h01=0x0050, text=»* SETCIO *«, t00=0x0068, t01=0x0162}
0xa3de…a3f0               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x0174}
0xa3f0…a3fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0186}
0xa3fa…a430               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION:  PUT DRIVE NO IN CIO INSTRUCTION «, t00=0x0068, t01=0x0190}
0xa430…a43a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0036}
0xa43a…a476               Head {h00=0x0038, h01=0x0050, text=»*  INPUT:  A3  DRIVE NO , (BITS 0-13 MUST BE ZEROES «, t00=0x0069, t01=0x0040}
0xa476…a480               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x007c}
0xa480…a49e               Head {h00=0x001a, h01=0x0050, text=»*  OUTPUT: A3  CHANGED«, t00=0x0069, t01=0x0086}
0xa49e…a4bc               Head {h00=0x001a, h01=0x0050, text=»*          A4  CHANGED«, t00=0x0069, t01=0x00a4}
0xa4bc…a4c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00c2}
0xa4c6…a4e2               Head {h00=0x0018, h01=0x0050, text=»SETCIO LDKL A4,/FFCF«, t00=0x0069, t01=0x00cc}
0xa4e2…a500               Head {h00=0x001a, h01=0x0050, text=» ANS A4,FDCIO,A6  KST «, t00=0x0069, t01=0x00e8}
0xa500…a512               Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x0069, t01=0x0106}
0xa512…a530               Head {h00=0x001a, h01=0x0050, text=» ORS A3,FDCIO,A6  KST «, t00=0x0069, t01=0x0118}
0xa530…a540               Head {h00=0x000c, h01=0x0050, text=» RTN  A5«, t00=0x0069, t01=0x0136}
0xa540…a552               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0069, t01=0x0146}
0xa552…a566               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0069, t01=0x0158}
0xa566…a570               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x016c}
0xa570…a582               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0069, t01=0x0176}
0xa582…a594               Head {h00=0x000e, h01=0x0050, text=»* BINDEC *«, t00=0x0069, t01=0x0188}
0xa594…a5a6               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006a, t01=0x000a}
0xa5a6…a5b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x001c}
0xa5b0…a5ee               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION:  BINDEC TRANSFORMS A BINARY NUMBER TO TWO«, t00=0x006a, t01=0x0026}
0xa5ee…a622               Head {h00=0x0030, h01=0x0050, text=»*             EBCDIC-CODED DIGITS (DECIMAL) «, t00=0x006a, t01=0x0064}
0xa622…a62c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0098}
0xa62c…a650               Head {h00=0x0020, h01=0x0050, text=»*  INPUT:  A7  BINARY NUMBER«, t00=0x006a, t01=0x00a2}
0xa650…a65a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00c6}
0xa65a…a68c               Head {h00=0x002e, h01=0x0050, text=»*  OUTPUT: A3  EBCDIC CODED DECIMAL DIGITS«, t00=0x006a, t01=0x00d0}
0xa68c…a6aa               Head {h00=0x001a, h01=0x0050, text=»*          A7  CHANGED«, t00=0x006a, t01=0x0102}
0xa6aa…a6b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0120}
0xa6b4…a6cc               Head {h00=0x0014, h01=0x0050, text=»BINDEC LDK A3,0 «, t00=0x006a, t01=0x012a}
0xa6cc…a6e4               Head {h00=0x0014, h01=0x0050, text=»BIN:10 SUK A7,10«, t00=0x006a, t01=0x0142}
0xa6e4…a6fa               Head {h00=0x0012, h01=0x0050, text=» RF(N) BIN:20 «, t00=0x006a, t01=0x015a}
0xa6fa…a70c               Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x0170}
0xa70c…a71e               Head {h00=0x000e, h01=0x0050, text=» RB BIN:10«, t00=0x006a, t01=0x0182}
0xa71e…a736 (107, 0, 400) Head {h00=0x0014, h01=0x0050, text=»BIN:20 ADK A7,10«, t00=0x006b, t01=0x0004}
0xa736…a748               Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x006b, t01=0x001c}
0xa748…a776               Head {h00=0x002a, h01=0x0050, text=» ORR A3,A7 DECIMAL CONVERTED NO IN A3 «, t00=0x006b, t01=0x002e}
0xa776…a79a               Head {h00=0x0020, h01=0x0050, text=» ORKL A3,/F0F0 EBCDIC CODED «, t00=0x006b, t01=0x005c}
0xa79a…a7aa               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006b, t01=0x0080}
0xa7aa…a7be               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x006b, t01=0x0090}
0xa7be…a7d0               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006b, t01=0x00a4}
0xa7d0…a7e2               Head {h00=0x000e, h01=0x0050, text=»* DSLIO * «, t00=0x006b, t01=0x00b6}
0xa7e2…a7f4               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006b, t01=0x00c8}
0xa7f4…a7fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00da}
0xa7fe…a836               Head {h00=0x0034, h01=0x0050, text=»*  FUNCTION:  PREPARE FOR READING DATA SET LABEL«, t00=0x006b, t01=0x00e4}
0xa836…a840               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x011c}
0xa840…a862               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x006b, t01=0x0126}
0xa862…a86c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0148}
0xa86c…a8aa               Head {h00=0x003a, h01=0x0050, text=»*  OUTPUT: A2  BITS 0-12 SECTOR NO, BITS 13-15 ZEROES «, t00=0x006b, t01=0x0152}
0xa8aa…a8c6               Head {h00=0x0018, h01=0x0050, text=»*          A3   128 «, t00=0x006b, t01=0x0190}
0xa8c6…a8f2               Head {h00=0x0028, h01=0x0050, text=»*          A4  DRIVER BUFFER ADDRESS«, t00=0x006c, t01=0x001c}
0xa8f2…a914               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006c, t01=0x0048}
0xa914…a936               Head {h00=0x001e, h01=0x0050, text=»*           A1 IS CHANGED «, t00=0x006c, t01=0x006a}
0xa936…a940               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x008c}
0xa940…a95c               Head {h00=0x0018, h01=0x0050, text=»DSLIO LDK A1,DWTDSS «, t00=0x006c, t01=0x0096}
0xa95c…a970               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006c, t01=0x00b2}
0xa970…a984               Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A2 «, t00=0x006c, t01=0x00c6}
0xa984…a996               Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x006c, t01=0x00da}
0xa996…a9aa               Head {h00=0x0010, h01=0x0050, text=» LDK A3,128 «, t00=0x006c, t01=0x00ec}
0xa9aa…a9be               Head {h00=0x0010, h01=0x0050, text=» LDKL A4,BUF«, t00=0x006c, t01=0x0100}
0xa9be…a9ce               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x0114}
0xa9ce…a9e2               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x006c, t01=0x0124}
0xa9e2…a9ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0138}
0xa9ec…a9fe               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x0142}
0xa9fe…aa10               Head {h00=0x000e, h01=0x0050, text=»* DSOPCH *«, t00=0x006c, t01=0x0154}
0xaa10…aa22               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x006c, t01=0x0166}
0xaa22…aa2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0178}
0xaa2c…aa66               Head {h00=0x0036, h01=0x0050, text=»*  FUNCTION:  GET EOD-NO AND EOD-NO ADDRESS IN DWT«, t00=0x006c, t01=0x0182}
0xaa66…aa70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x002c}
0xaa70…aa92               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A6  DWT ADDRESS«, t00=0x006d, t01=0x0036}
0xaa92…aa9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0058}
0xaa9c…aabe               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT: A2  EOD ADDRESS«, t00=0x006d, t01=0x0062}
0xaabe…aaee               Head {h00=0x002c, h01=0x0050, text=»*          A7  EOD-NO      (0=NOT OPEN) «, t00=0x006d, t01=0x0084}
0xaaee…ab0c               Head {h00=0x001a, h01=0x0050, text=»*          A1  CHANGED«, t00=0x006d, t01=0x00b4}
0xab0c…ab28               Head {h00=0x0018, h01=0x0050, text=»DSOPCH LDK A1,DWTEOD«, t00=0x006d, t01=0x00d2}
0xab28…ab3c               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x006d, t01=0x00ee}
0xab3c…ab56               Head {h00=0x0016, h01=0x0050, text=» LDR* A7,A2 EOD-NO«, t00=0x006d, t01=0x0102}
0xab56…ab66               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006d, t01=0x011c}
0xab66…ab7a               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x006d, t01=0x012c}
0xab7a…ab84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0140}
0xab84…ab96               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006d, t01=0x014a}
0xab96…aba8               Head {h00=0x000e, h01=0x0050, text=»* DSPAD * «, t00=0x006d, t01=0x015c}
0xaba8…abba               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006d, t01=0x016e}
0xabba…abc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0180}
0xabc4…abfa               Head {h00=0x0032, h01=0x0050, text=»*  FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED«, t00=0x006d, t01=0x018a}
0xabfa…ac34               Head {h00=0x0036, h01=0x0050, text=»*            TYPE OF DATA FOR COORESSPONDING DRIVE«, t00=0x006e, t01=0x0030}
0xac34…ac3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x006a}
0xac3e…ac60               Head {h00=0x001e, h01=0x0050, text=»*  INPUT:  A1  DWT OFFSET «, t00=0x006e, t01=0x0074}
0xac60…ac82               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006e, t01=0x0096}
0xac82…ac8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00b8}
0xac8c…acb2               Head {h00=0x0022, h01=0x0050, text=»*  OUTPUT: A2  ADDRESS TO DATA«, t00=0x006e, t01=0x00c2}
0xacb2…acd4               Head {h00=0x001e, h01=0x0050, text=»*          A6  DWT ADDRESS«, t00=0x006e, t01=0x00e8}
0xacd4…acde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x010a}
0xacde…ad04               Head {h00=0x0022, h01=0x0050, text=»DSPAD LC A2,DWTOR,A6 DRIVE NO «, t00=0x006e, t01=0x0114}
0xad04…ad16               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x006e, t01=0x013a}
0xad16…ad28               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x006e, t01=0x014c}
0xad28…ad3a               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x006e, t01=0x015e}
0xad3a…ad4c               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x006e, t01=0x0170}
0xad4c…ad5c               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006e, t01=0x0182}
0xad5c…ad70 (111, 0, 400) Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x006f, t01=0x0004}
0xad70…ad7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0018}
0xad7a…ad8c               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006f, t01=0x0022}
0xad8c…ad9e               Head {h00=0x000e, h01=0x0050, text=»* STDWT * «, t00=0x006f, t01=0x0034}
0xad9e…adb0               Head {h00=0x000e, h01=0x0050, text=»********* «, t00=0x006f, t01=0x0046}
0xadb0…adba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0058}
0xadba…adf8               Head {h00=0x003a, h01=0x0050, text=»*  FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF«, t00=0x006f, t01=0x0062}
0xadf8…ae16               Head {h00=0x001a, h01=0x0050, text=»*            DRIVE NO «, t00=0x006f, t01=0x00a0}
0xae16…ae20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00be}
0xae20…ae4c               Head {h00=0x0028, h01=0x0050, text=»*  INPUT:    A1  OFFSET TO DWT AREA «, t00=0x006f, t01=0x00c8}
0xae4c…ae7e               Head {h00=0x002e, h01=0x0050, text=»*            A3  WORD TO BE STORED IN DWT «, t00=0x006f, t01=0x00f4}
0xae7e…aea2               Head {h00=0x0020, h01=0x0050, text=»*            A6  DWT ADDRESS«, t00=0x006f, t01=0x0126}
0xaea2…aeac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x014a}
0xaeac…aece               Head {h00=0x001e, h01=0x0050, text=»*  OUTPUT:   A1  UNCHANGED«, t00=0x006f, t01=0x0154}
0xaece…af02               Head {h00=0x0030, h01=0x0050, text=»*            A2  ADDRESS TO WORD IN DWT AREA«, t00=0x006f, t01=0x0176}
0xaf02…af24               Head {h00=0x001e, h01=0x0050, text=»*            A3  UNCHANGED«, t00=0x0070, t01=0x001a}
0xaf24…af46               Head {h00=0x001e, h01=0x0050, text=»*            A6  UNCHANGED«, t00=0x0070, t01=0x003c}
0xaf46…af50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x005e}
0xaf50…af64               Head {h00=0x0010, h01=0x0050, text=»STDWT EQU * «, t00=0x0070, t01=0x0068}
0xaf64…af78               Head {h00=0x0010, h01=0x0050, text=» CF A5,DSPAD«, t00=0x0070, t01=0x007c}
0xaf78…af8a               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0070, t01=0x0090}
0xaf8a…af9a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0070, t01=0x00a2}
0xaf9a…afae               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0070, t01=0x00b2}
0xafae…afb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00c6}
0xafb8…afca               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0070, t01=0x00d0}
0xafca…afdc               Head {h00=0x000e, h01=0x0050, text=»* SETINH *«, t00=0x0070, t01=0x00e2}
0xafdc…afee               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0070, t01=0x00f4}
0xafee…aff8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0106}
0xaff8…b03c               Head {h00=0x0040, h01=0x0050, text=»*  FUNCTION:  INHIBIT INTERRUPTS, IF FDON ROUTINE IS ACTIVE «, t00=0x0070, t01=0x0110}
0xb03c…b07e               Head {h00=0x003e, h01=0x0050, text=»*             ESCAPE VIA DISPATCHER ELSE RESET DWTENB AND «, t00=0x0070, t01=0x0154}
0xb07e…b09a               Head {h00=0x0018, h01=0x0050, text=»*             RETURN«, t00=0x0071, t01=0x0008}
0xb09a…b0a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0024}
0xb0a4…b0ca               Head {h00=0x0022, h01=0x0050, text=»*  INPUT:     A6  DWT ADDRESS «, t00=0x0071, t01=0x002e}
0xb0ca…b0d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0054}
0xb0d4…b0e6               Head {h00=0x000e, h01=0x0050, text=»SETINH INH«, t00=0x0071, t01=0x005e}
0xb0e6…b102               Head {h00=0x0018, h01=0x0050, text=» LD A1,DWTA2,A6 FDON«, t00=0x0071, t01=0x0070}
0xb102…b122               Head {h00=0x001c, h01=0x0050, text=» RF(Z) SET:10 NOT ACTIVE«, t00=0x0071, t01=0x008c}
0xb122…b13c               Head {h00=0x0016, h01=0x0050, text=» ABL T:DISP ESCAPE«, t00=0x0071, t01=0x00ac}
0xb13c…b152               Head {h00=0x0012, h01=0x0050, text=»SET:10 RTN A5 «, t00=0x0071, t01=0x00c6}
0xb152…b15e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x00dc}
0xb15e…b168               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00e8}
0xb168…b18e               Head {h00=0x0022, h01=0x0050, text=»*    D R I V E R   B U F F E R«, t00=0x0071, t01=0x00f2}
0xb18e…b1a6               Head {h00=0x0014, h01=0x0050, text=»BUF DATA 0,0,0,0«, t00=0x0071, t01=0x0118}
0xb1a6…b1b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0130}
0xb1b0…b1c2               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0071, t01=0x013a}
0xb1c2…b1d2               Head {h00=0x000c, h01=0x0050, text=» RES 60 «, t00=0x0071, t01=0x014c}
0xb1d2…b1de               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x015c}
0xb1de…b1e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0168}
0xb1e8…b1fc               Head {h00=0x0010, h01=0x0050, text=»     DRFD01 «, t00=0x0071, t01=0x0172}
0xb1fc…b206               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0186}
0xb206…b224               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0071, t01=0x0190}
0xb224…b242               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0072, t01=0x001e}
0xb242…b260               Head {h00=0x001a, h01=0x0050, text=»* DEVICE WORK TABLE * «, t00=0x0072, t01=0x003c}
0xb260…b27e               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0072, t01=0x005a}
0xb27e…b29c               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0072, t01=0x0078}
0xb29c…b2a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0096}
0xb2a6…b2ba               Head {h00=0x0010, h01=0x0050, text=»DWFD01 EQU *«, t00=0x0072, t01=0x00a0}
0xb2ba…b2ca               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0072, t01=0x00b4}
0xb2ca…b2e8               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0072, t01=0x00c4}
0xb2e8…b304               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0072, t01=0x00e2}
0xb304…b31a               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0072, t01=0x00fe}
0xb31a…b340               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0072, t01=0x0114}
0xb340…b35c               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0072, t01=0x013a}
0xb35c…b384               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0072, t01=0x0156}
0xb384…b3a2               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0072, t01=0x017e}
0xb3a2…b3ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x000c}
0xb3ac…b3c2               Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0073, t01=0x0016}
0xb3c2…b3ec               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0073, t01=0x002c}
0xb3ec…b410               Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0073, t01=0x0056}
0xb410…b41c               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0073, t01=0x007a}
0xb41c…b426               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0086}
0xb426…b436               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x0090}
0xb436…b450               Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x0073, t01=0x00a0}
0xb450…b460               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x00ba}
0xb460…b470               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x00ca}
0xb470…b48c               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x0073, t01=0x00da}
0xb48c…b4b8               Head {h00=0x0028, h01=0x0050, text=»DWTST2 EQU *-DWFD01 SAVE STATUS WORD«, t00=0x0073, t01=0x00f6}
0xb4b8…b4c8               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0073, t01=0x0122}
0xb4c8…b4f6               Head {h00=0x002a, h01=0x0050, text=»DWTRTY EQU *-DWFD01 RETRY REQUEST FLAG«, t00=0x0073, t01=0x0132}
0xb4f6…b506               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0073, t01=0x0160}
0xb506…b52e               Head {h00=0x0024, h01=0x0050, text=»DWTTP EQU *-DWFD01 TIMER POINTER«, t00=0x0073, t01=0x0170}
0xb52e…b53e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0008}
0xb53e…b56a               Head {h00=0x0028, h01=0x0050, text=»DWTRCW EQU *-DWFD01 TEMP RETURN CODE«, t00=0x0074, t01=0x0018}
0xb56a…b57a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0044}
0xb57a…b5aa               Head {h00=0x002c, h01=0x0050, text=»DWTLAB EQU *-DWFD01 DISC LABEL INDICATOR«, t00=0x0074, t01=0x0054}
0xb5aa…b5ba               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x0084}
0xb5ba…b5ea               Head {h00=0x002c, h01=0x0050, text=»DWTLC EQU *-DWFD01 DRIVE LOCK INDICATOR «, t00=0x0074, t01=0x0094}
0xb5ea…b5fa               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0074, t01=0x00c4}
0xb5fa…b626               Head {h00=0x0028, h01=0x0050, text=»DWTVO0 EQU *-DWFD01 VOLUME NAME NO 0«, t00=0x0074, t01=0x00d4}
0xb626…b63a               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x0100}
0xb63a…b666               Head {h00=0x0028, h01=0x0050, text=»DWTVO1 EQU *-DWFD01 VOLUME NAME NO 1«, t00=0x0074, t01=0x0114}
0xb666…b67a               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x0140}
0xb67a…b6a6               Head {h00=0x0028, h01=0x0050, text=»DWTVO2 EQU *-DWFD01 VOLUME NAME NO 2«, t00=0x0074, t01=0x0154}
0xb6a6…b6ba               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0074, t01=0x0180}
0xb6ba…b6e6 (117, 0, 400) Head {h00=0x0028, h01=0x0050, text=»DWTVO3 EQU *-DWFD01 VOLUME NAME NO 3«, t00=0x0075, t01=0x0004}
0xb6e6…b6fa               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0075, t01=0x0030}
0xb6fa…b710               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x0075, t01=0x0044}
0xb710…b742               Head {h00=0x002e, h01=0x0050, text=»DWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN«, t00=0x0075, t01=0x005a}
0xb742…b752               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x008c}
0xb752…b78a               Head {h00=0x0034, h01=0x0050, text=»DWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON «, t00=0x0075, t01=0x009c}
0xb78a…b79a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x00d4}
0xb79a…b7a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x00e4}
0xb7a6…b7b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00f0}
0xb7b0…b7c4               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0075, t01=0x00fa}
0xb7c4…b7fe               Head {h00=0x0036, h01=0x0050, text=»DWTUB EQU *-DWFD01 POINTER AT NEXT WORD IN BUFFER «, t00=0x0075, t01=0x010e}
0xb7fe…b80e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x0148}
0xb80e…b83e               Head {h00=0x002c, h01=0x0050, text=»DWTUBE EQU *-DWFD01 BUFFER END ADDRESS+2«, t00=0x0075, t01=0x0158}
0xb83e…b84e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0075, t01=0x0188}
0xb84e…b87e               Head {h00=0x002c, h01=0x0050, text=»DWTRW EQU *-DWFD01 READ/WRITE INDICATOR «, t00=0x0076, t01=0x0008}
0xb87e…b88e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0076, t01=0x0038}
0xb88e…b89a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0048}
0xb89a…b8a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0054}
0xb8a4…b8b6               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x0076, t01=0x005e}
0xb8b6…b8e6               Head {h00=0x002c, h01=0x0050, text=»DWTBOE EQU *-DWFD01 BEGINNING OF EXTENT «, t00=0x0076, t01=0x0070}
0xb8e6…b8fc               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x00a0}
0xb8fc…b924               Head {h00=0x0024, h01=0x0050, text=»DWTEOD EQU *-DWFD01 END OF DATA «, t00=0x0076, t01=0x00b6}
0xb924…b93a               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x00de}
0xb93a…b964               Head {h00=0x0026, h01=0x0050, text=»DWTEOE EQU *-DWFD01 END OF EXTENT «, t00=0x0076, t01=0x00f4}
0xb964…b97a               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x011e}
0xb97a…b9a8               Head {h00=0x002a, h01=0x0050, text=»DWTCRN EQU *-DWFD01 CURRENT RECORD NO «, t00=0x0076, t01=0x0134}
0xb9a8…b9be               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0076, t01=0x0162}
0xb9be…b9f0               Head {h00=0x002e, h01=0x0050, text=»DWTDSS EQU *-DWFD01 DATA SET LABEL SECTOR «, t00=0x0076, t01=0x0178}
0xb9f0…ba06               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0077, t01=0x001a}
0xba06…ba12               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x0030}
0xba12…ba1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x003c}
0xba1c…ba34               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x0077, t01=0x0046}
0xba34…ba4a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0077, t01=0x005e}
0xba4a…ba66               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x0077, t01=0x0074}
0xba66…ba82               Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWFD01 «, t00=0x0077, t01=0x0090}
0xba82…bab0               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x0077, t01=0x00ac}
0xbab0…bad0               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x0077, t01=0x00da}
0xbad0…bada               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00fa}
0xbada…baf6               Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWFD01 «, t00=0x0077, t01=0x0104}
0xbaf6…bb24               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0077, t01=0x0120}
0xbb24…bb2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x014e}
0xbb2e…bb4a               Head {h00=0x0018, h01=0x0050, text=»DWT:BF EQU *-DWFD01 «, t00=0x0077, t01=0x0158}
0xbb4a…bb72               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x0077, t01=0x0174}
0xbb72…bb7e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x000c}
0xbb7e…bb88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0018}
0xbb88…bb9e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0078, t01=0x0022}
0xbb9e…bbb2               Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0078, t01=0x0038}
0xbbb2…bbc2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0078, t01=0x004c}
0xbbc2…bbd6               Head {h00=0x0010, h01=0x0050, text=» DATA FD:BUF«, t00=0x0078, t01=0x005c}
0xbbd6…bbec               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0078, t01=0x0070}
0xbbec…bbf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0086}
0xbbf6…bc0c               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x0078, t01=0x0090}
0xbc0c…bc28               Head {h00=0x0018, h01=0x0050, text=»FD:BUF RES DVBLEN+1 «, t00=0x0078, t01=0x00a6}
0xbc28…bc34               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x00c2}
0xbc34…bc3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00ce}
0xbc3e…bc54               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0078, t01=0x00d8}
0xbc54…bc6a               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x0078, t01=0x00ee}
0xbc6a…bc7e               Head {h00=0x0010, h01=0x0050, text=»FD:BUF EQU 0«, t00=0x0078, t01=0x0104}
0xbc7e…bc8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x0118}
0xbc8a…bc94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0124}
0xbc94…bcb4               Head {h00=0x001c, h01=0x0050, text=»FDCIO EQU *-DWFD01  KST «, t00=0x0078, t01=0x012e}
0xbcb4…bcd0               Head {h00=0x0018, h01=0x0050, text=» CIO A2,1,CUADR  KST«, t00=0x0078, t01=0x014e}
0xbcd0…bcf0               Head {h00=0x001c, h01=0x0050, text=»FDSST EQU *-DWFD01  KST «, t00=0x0078, t01=0x016a}
0xbcf0…bd0a               Head {h00=0x0016, h01=0x0050, text=» SST A3,CUADR  KST«, t00=0x0078, t01=0x018a}
0xbd0a…bd2a               Head {h00=0x001c, h01=0x0050, text=»FDOTR EQU *-DWFD01  KST «, t00=0x0079, t01=0x0014}
0xbd2a…bd42               Head {h00=0x0014, h01=0x0050, text=» OTR A3,0,CUADR «, t00=0x0079, t01=0x0034}
0xbd42…bd62               Head {h00=0x001c, h01=0x0050, text=»FDHLT EQU *-DWFD01  KST «, t00=0x0079, t01=0x004c}
0xbd62…bd7e               Head {h00=0x0018, h01=0x0050, text=» CIO A2,0,CUADR  KST«, t00=0x0079, t01=0x006c}
0xbd7e…bd9e               Head {h00=0x001c, h01=0x0050, text=»FDINR EQU *-DWFD01  KST «, t00=0x0079, t01=0x0088}
0xbd9e…bdba               Head {h00=0x0018, h01=0x0050, text=» INR A3,0,CUADR  KST«, t00=0x0079, t01=0x00a8}
0xbdba…bdc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00c4}
0xbdc4…bdce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00ce}
0xbdce…be08               Head {h00=0x0036, h01=0x0050, text=»*              NEXT DWT INTRODUCED BY KST 80-11-12«, t00=0x0079, t01=0x00d8}
0xbe08…be12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0112}
0xbe12…be26               Head {h00=0x0010, h01=0x0050, text=»DWFD02 EQU *«, t00=0x0079, t01=0x011c}
0xbe26…be36               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0079, t01=0x0130}
0xbe36…be54               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0079, t01=0x0140}
0xbe54…be70               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0079, t01=0x015e}
0xbe70…be86               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0079, t01=0x017a}
0xbe86…beac               Head {h00=0x0022, h01=0x0050, text=» DATA FDADR ACTIVATION ADDRESS«, t00=0x0079, t01=0x0190}
0xbeac…bec8               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x007a, t01=0x0026}
0xbec8…bef0               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x007a, t01=0x0042}
0xbef0…bf0e               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x007a, t01=0x006a}
0xbf0e…bf18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0088}
0xbf18…bf2e               Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x007a, t01=0x0092}
0xbf2e…bf58               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x007a, t01=0x00a8}
0xbf58…bf7c               Head {h00=0x0020, h01=0x0050, text=» DATA DVECB2 MMU ECB ADDRESS«, t00=0x007a, t01=0x00d2}
0xbf7c…bf88               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x007a, t01=0x00f6}
0xbf88…bf92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0102}
0xbf92…bfa2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x010c}
0xbfa2…bfbc               Head {h00=0x0016, h01=0x0050, text=» DATA 0 SAVE AREA «, t00=0x007a, t01=0x011c}
0xbfbc…bfcc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x0136}
0xbfcc…bfdc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x0146}
0xbfdc…bff8               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0 STACK «, t00=0x007a, t01=0x0156}
0xbff8…c008               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x007a, t01=0x0172}
0xc008…c018               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007a, t01=0x0182}
0xc018…c028 (123, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0004}
0xc028…c038               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0014}
0xc038…c048               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0024}
0xc048…c058               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0034}
0xc058…c06c               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x0044}
0xc06c…c080               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x0058}
0xc080…c094               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x006c}
0xc094…c0a8               Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x007b, t01=0x0080}
0xc0a8…c0be               Head {h00=0x0012, h01=0x0050, text=» IFT OPCLOS=1 «, t00=0x007b, t01=0x0094}
0xc0be…c0ce               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x00aa}
0xc0ce…c0de               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x00ba}
0xc0de…c0ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x00ca}
0xc0ea…c0f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00d6}
0xc0f4…c108               Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x007b, t01=0x00e0}
0xc108…c118               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x00f4}
0xc118…c128               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0104}
0xc128…c138               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007b, t01=0x0114}
0xc138…c144               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x0124}
0xc144…c14e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0130}
0xc14e…c160               Head {h00=0x000e, h01=0x0050, text=» IFT IBM=1«, t00=0x007b, t01=0x013a}
0xc160…c176               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007b, t01=0x014c}
0xc176…c18c               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007b, t01=0x0162}
0xc18c…c1a2               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007b, t01=0x0178}
0xc1a2…c1b8               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007b, t01=0x018e}
0xc1b8…c1ce               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007c, t01=0x0014}
0xc1ce…c1da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x002a}
0xc1da…c1e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0036}
0xc1e4…c1fc               Head {h00=0x0014, h01=0x0050, text=» IFT CHAN+TOSS=2«, t00=0x007c, t01=0x0040}
0xc1fc…c212               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007c, t01=0x0058}
0xc212…c22e               Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x007c, t01=0x006e}
0xc22e…c25c               Head {h00=0x002a, h01=0x0050, text=» DATA 0 6 BIT PHYSICAL BUFFER ADDRESS «, t00=0x007c, t01=0x008a}
0xc25c…c27c               Head {h00=0x001c, h01=0x0050, text=» DATA 0 SECOND MMU ENTRY«, t00=0x007c, t01=0x00b8}
0xc27c…c286               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00d8}
0xc286…c2b4               Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x007c, t01=0x00e2}
0xc2b4…c2be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0110}
0xc2be…c2e6               Head {h00=0x0024, h01=0x0050, text=» DATA 0 SAVE AREA BUFFER ADDRESS«, t00=0x007c, t01=0x011a}
0xc2e6…c2f2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007c, t01=0x0142}
0xc2f2…c2fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x014e}
0xc2fc…c312               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007c, t01=0x0158}
0xc312…c326               Head {h00=0x0010, h01=0x0050, text=»DVECB2 EQU *«, t00=0x007c, t01=0x016e}
0xc326…c336               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x007c, t01=0x0182}
0xc336…c34a (125, 2, 372) Head {h00=0x0010, h01=0x0050, text=» DATA FDBUF2«, t00=0x007d, t01=0x0004}
0xc34a…c360               Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x007d, t01=0x0018}
0xc360…c36a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x002e}
0xc36a…c380               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=2 «, t00=0x007d, t01=0x0038}
0xc380…c39c               Head {h00=0x0018, h01=0x0050, text=»FDBUF2 RES DVBLEN+1 «, t00=0x007d, t01=0x004e}
0xc39c…c3a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x006a}
0xc3a8…c3b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0076}
0xc3b2…c3c8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x007d, t01=0x0080}
0xc3c8…c3de               Head {h00=0x0012, h01=0x0050, text=» IFT DEVIND=4 «, t00=0x007d, t01=0x0096}
0xc3de…c3f2               Head {h00=0x0010, h01=0x0050, text=»FDBUF2 EQU 0«, t00=0x007d, t01=0x00ac}
0xc3f2…c3fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x00c0}
0xc3fe…c424               Head {h00=0x0022, h01=0x0050, text=» CIO A2,1,CUADR2 CIO-START KST«, t00=0x007d, t01=0x00cc}
0xc424…c43a               Head {h00=0x0012, h01=0x0050, text=» SST A3,CUADR2«, t00=0x007d, t01=0x00f2}
0xc43a…c452               Head {h00=0x0014, h01=0x0050, text=» OTR A3,0,CUADR2«, t00=0x007d, t01=0x0108}
0xc452…c46a               Head {h00=0x0014, h01=0x0050, text=» CIO A2,0,CUADR2«, t00=0x007d, t01=0x0120}
0xc46a…c482               Head {h00=0x0014, h01=0x0050, text=» INR A3,0,CUADR2«, t00=0x007d, t01=0x0138}
0xc482…c48c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0150}
0xc48c…c496               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x015a}
0xc496…c4a2               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x007d, t01=0x0164}
0xc4a2…c4a6               Head {h00=0x4004, h01=0x0000}
0xc4a6…c4aa               00 7d 01 70                                                                                                                                                                                                                                       ┆ } p┆
0xc4aa…c4b2 (126, 1, 8)   20 04 00 00 00 7e 00 04                                                                                                                                                                                                                           ┆     ~  ┆
0xc4b2…c502 (127, 0, 398) 2a 5c 44 45 46 49 4e 45 20 4f 4e 45 20 4f 46 20 54 48 45 20 46 55 4e 43 54 49 4f 4e 53 20 55 4e 44 45 52 20 50 46 31 2d 50 46 31 32 00 5e 01 90 00 06 00 50 2a 20 00 5f 00 34 00 06 00 50 2a 20 00 5f 00 3e 00 0e 00 50 50 46 45 58 5c 45 51 55   ┆* DEFINE ONE OF THE FUNCTIONS UNDER PF1-PF12 ^     P*  _ 4   P*  _ >   PPFEX EQU┆
0xc502…c552               5c 2a 00 5f 00 48 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 50 46 45 58 41 00 5f 00 5a 00 0e 00 50 5c 52 46 5c 50 46 4e 58 54 20 00 5f 00 70 00 10 00 50 50 46 45 58 41 5c 45 51 55 5c 2a 20 00 5f 00 82 00 16 00 50 5c 43 4d 5c 52 44 4d 4f 52 45   ┆ * _ H   P LDKL A1,PFEXA _ Z   P RF PFNXT  _ p   PPFEXA EQU *  _     P CM RDMORE┆
0xc552…c5a2               2c 54 43 41 42 41 53 20 00 5f 00 96 00 1c 00 50 5c 53 55 4b 5c 41 32 2c 2f 33 30 5c 4c 45 47 41 4c 20 43 48 41 52 20 3f 00 5f 00 b0 00 2c 00 50 5c 52 46 28 4c 29 5c 50 46 45 52 52 5c 49 4c 4c 45 47 41 4c 2c 47 4f 20 54 4f 20 45 52 52 2e 48   ┆,TCABAS  _     P SUK A2,/30 LEGAL CHAR ? _   , P RF(L) PFERR ILLEGAL,GO TO ERR.H┆
0xc5a2…c5f2               41 4e 44 4c 49 4e 47 20 00 5f 00 d0 00 26 00 50 5c 52 46 28 5a 29 5c 50 46 30 5c 46 49 52 53 54 20 4e 55 4d 2e 20 30 20 47 4f 20 54 4f 20 50 46 30 20 00 5f 01 00 00 1e 00 50 5c 53 55 4b 5c 41 32 2c 2f 31 5c 46 49 52 53 54 20 4e 55 4d 2e 20   ┆ANDLING  _   & P RF(Z) PF0 FIRST NUM. 0 GO TO PF0  _     P SUK A2,/1 FIRST NUM. ┆
0xc5f2…c640               31 20 3f 20 00 5f 01 2a 00 1e 00 50 5c 52 46 28 47 29 5c 50 46 45 52 52 5c 49 4c 4c 45 47 41 4c 20 4e 55 4d 2e 20 00 5f 01 4c 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 50 46 31 41 20 00 5f 01 6e 00 0e 00 50 5c 52 46 5c 50 46 4e 58 54 20         ┆1 ?  _ *   P RF(G) PFERR ILLEGAL NUM.  _ L   P LDKL A1,PF1A  _ n   P RF PFNXT ┆
0xc640…c690 (128, 0, 400) 00 5f 01 84 00 0e 00 50 50 46 31 41 5c 45 51 55 5c 2a 00 60 00 08 00 16 00 50 5c 43 4d 5c 52 44 4d 4f 52 45 2c 54 43 41 42 41 53 20 00 60 00 1a 00 1c 00 50 5c 53 55 4b 5c 41 32 2c 2f 33 30 5c 4c 45 47 41 4c 20 4e 55 4d 2e 3f 20 00 60 00 34   ┆ _     PPF1A EQU * `     P CM RDMORE,TCABAS  `     P SUK A2,/30 LEGAL NUM.?  ` 4┆
0xc690…c6e0               00 2c 00 50 5c 52 46 28 4c 29 5c 50 46 45 52 52 5c 49 4c 4c 45 47 41 4c 20 47 4f 20 54 4f 20 45 52 52 2e 48 41 4e 44 4c 49 4e 47 20 00 60 00 54 00 1a 00 50 5c 53 55 4b 5c 41 32 2c 2f 32 5c 4c 45 47 41 4c 20 4e 55 4d 20 3f 00 60 00 84 00 2c   ┆ , P RF(L) PFERR ILLEGAL GO TO ERR.HANDLING  ` T   P SUK A2,/2 LEGAL NUM ? `   ,┆
0xc6e0…c730               00 50 5c 52 46 28 47 29 5c 50 46 45 52 52 5c 49 4c 4c 45 47 41 4c 20 47 4f 20 54 4f 20 45 52 52 2e 48 41 4e 44 4c 49 4e 47 20 00 60 00 a2 00 1c 00 50 5c 41 44 4b 5c 41 32 2c 2f 33 43 5c 50 46 31 30 2d 31 32 20 50 4f 53 20 00 60 00 d2 00 0e   ┆ P RF(G) PFERR ILLEGAL GO TO ERR.HANDLING  `     P ADK A2,/3C PF10-12 POS  `    ┆
0xc730…c780               00 50 5c 52 42 5c 45 4e 54 31 30 30 00 60 00 f2 00 04 00 50 00 60 01 04 00 0e 00 50 50 46 30 5c 45 51 55 5c 2a 20 00 60 01 0c 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 50 46 30 41 20 00 60 01 1e 00 10 00 50 50 46 4e 58 54 5c 45 51 55 5c 2a 20   ┆ P RB ENT100 `     P `     PPF0 EQU *  `     P LDKL A1,PF0A  `     PPFNXT EQU * ┆
0xc780…c7d0               00 60 01 34 00 18 00 50 5c 53 54 5c 41 31 2c 52 44 4d 4f 52 45 2c 54 43 41 42 41 53 00 60 01 48 00 0c 00 50 5c 52 54 4e 5c 41 31 34 00 60 01 64 00 0e 00 50 50 46 30 41 5c 45 51 55 5c 2a 00 60 01 74 00 16 00 50 5c 43 4d 5c 52 44 4d 4f 52 45   ┆ ` 4   P ST A1,RDMORE,TCABAS ` H   P RTN A14 ` d   PPF0A EQU * ` t   P CM RDMORE┆
0xc7d0…c820 (129, 0, 400) 2c 54 43 41 42 41 53 20 00 60 01 86 00 1c 00 50 5c 53 55 4b 5c 41 32 2c 2f 33 31 5c 4c 45 47 41 4c 20 4e 55 4d 20 3f 20 00 61 00 10 00 2c 00 50 5c 52 46 28 4c 29 5c 50 46 45 52 52 5c 49 4c 4c 45 47 41 4c 20 47 4f 20 54 4f 20 45 52 52 2e 48   ┆,TCABAS  `     P SUK A2,/31 LEGAL NUM ?  a   , P RF(L) PFERR ILLEGAL GO TO ERR.H┆
0xc820…c870               41 4e 44 4c 49 4e 47 20 00 61 00 30 00 1a 00 50 5c 53 55 4b 5c 41 32 2c 2f 38 5c 4c 45 47 41 4c 20 4e 55 4d 20 3f 00 61 00 60 00 2c 00 50 5c 52 46 28 47 29 5c 50 46 45 52 52 5c 49 4c 4c 45 47 41 4c 20 47 4f 20 54 4f 20 45 52 52 2e 48 41 4e   ┆ANDLING  a 0   P SUK A2,/8 LEGAL NUM ? a ` , P RF(G) PFERR ILLEGAL GO TO ERR.HAN┆
0xc870…c8c0               44 4c 49 4e 47 20 00 61 00 7e 00 1a 00 50 5c 41 44 4b 5c 41 32 2c 2f 33 39 5c 50 46 31 2d 39 20 50 4f 53 20 00 61 00 ae 00 0e 00 50 5c 52 42 5c 45 4e 54 31 30 30 00 61 00 cc 00 08 00 50 5c 58 49 46 00 61 00 de 00 10 00 50 50 46 45 52 52 5c   ┆DLING  a ~   P ADK A2,/39 PF1-9 POS  a     P RB ENT100 a     P XIF a     PPFERR ┆
0xc8c0…c910               45 51 55 5c 2a 20 00 61 00 ea 00 2a 00 50 5c 43 46 5c 41 31 34 2c 45 52 52 4f 52 5c 47 4f 20 54 4f 20 45 52 52 2d 48 41 4e 44 4c 49 4e 47 20 52 55 54 49 4e 00 61 00 fe 00 24 00 50 5c 52 54 4e 5c 41 31 34 5c 47 4f 20 54 4f 20 4d 41 49 4e 20   ┆EQU *  a   * P CF A14,ERROR GO TO ERR-HANDLING RUTIN a   $ P RTN A14 GO TO MAIN ┆
0xc910…c960               52 45 41 44 20 4d 4f 44 55 4c 45 20 00 61 01 2c 00 04 00 50 00 61 01 54 00 04 00 50 00 61 01 5c 00 0c 00 50 50 46 5c 45 51 55 5c 2a 00 61 01 64 00 10 00 50 5c 53 55 4b 5c 41 32 2c 2f 35 43 20 00 61 01 74 00 0e 00 50 5c 52 42 5c 45 4e 54 31   ┆READ MODULE  a ,   P a T   P a     PPF EQU * a d   P SUK A2,/5C  a t   P RB ENT1┆
0xc960…c9b0 (130, 0, 400) 30 30 00 61 01 88 00 0c 00 50 5c 5c 5c 5c 44 42 31 20 00 62 00 0a 00 06 00 50 2a 20 00 62 00 1a 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆00 a     P    DB1  b     P*  b   6 P********************************************┆
0xc9b0…ca00               2a 2a 2a 2a 2a 20 00 62 00 24 00 06 00 50 2a 20 00 62 00 5e 00 14 00 50 2a 20 20 20 20 20 20 20 20 4c 4f 47 52 55 54 20 00 62 00 68 00 2a 00 50 2a 20 20 20 20 20 20 20 20 53 50 45 43 49 41 4c 20 52 55 54 49 4e 45 20 46 4f 52 20 44 41 4e 49   ┆*****  b $   P*  b ^   P*        LOGRUT  b h * P*        SPECIAL RUTINE FOR DANI┆
0xca00…ca50               53 48 20 50 54 54 00 62 00 80 00 06 00 50 2a 20 00 62 00 ae 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 62 00 b8 00 06   ┆SH PTT b     P*  b   6 P*************************************************  b    ┆
0xca50…caa0               00 50 2a 20 00 62 00 f2 00 10 00 50 4c 4f 47 52 55 54 5c 45 51 55 5c 2a 00 62 00 fc 00 06 00 50 2a 20 00 62 01 10 00 0e 00 50 5c 52 46 5c 4f 46 4c 49 30 35 00 62 01 1a 00 12 00 50 2a 20 37 39 31 31 30 33 20 4e 4a 20 2a 20 00 62 01 2c 00 0c   ┆ P*  b     PLOGRUT EQU * b     P*  b     P RF OFLI05 b     P* 791103 NJ *  b ,  ┆
0xcaa0…caf0               00 50 5c 5c 5c 5c 44 45 31 20 00 62 01 42 00 10 00 50 5c 49 46 54 5c 4f 46 4c 49 4e 3d 31 00 62 01 52 00 0a 00 50 5c 45 4a 45 43 54 00 62 01 66 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆ P    DE1  b B   P IFT OFLIN=1 b R   P EJECT b f @ P****************************┆
0xcaf0…cb40 (131, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 62 01 74 00 06 00 50 2a 20 00 63 00 28 00 0c 00 50 2a 5c 4f 46 4c 49 4e 45 00 63 00 32 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 54   ┆******************************** b t   P*  c (   P* OFLINE c 2 < P*            T┆
0xcb40…cb90               48 45 20 4f 46 46 4c 49 4e 45 20 53 57 49 54 43 48 20 22 4f 46 46 46 4c 47 22 20 49 53 20 53 45 54 20 3d 20 31 20 41 4e 44 20 00 63 00 42 00 38 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 41 20 42 52 41 4e 43 48 20 49 53 20 4d 41 44 45 20 42   ┆HE OFFLINE SWITCH "OFFFLG" IS SET = 1 AND  c B 8 P*           A BRANCH IS MADE B┆
0xcb90…cbe0               41 43 4b 20 54 4f 20 43 52 45 44 49 54 20 50 52 4f 47 52 41 4d 20 00 63 00 82 00 06 00 50 2a 20 00 63 00 be 00 42 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a   ┆ACK TO CREDIT PROGRAM  c     P*  c   B P****************************************┆
0xcbe0…cc30               2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 63 00 c8 00 10 00 50 4f 46 4c 49 4e 45 5c 45 51 55 5c 2a 00 63 01 0e 00 12 00 50 5c 43 46 5c 41 31 34 2c 43 4c 45 41 52 20 00 63 01 22 00 10 00 50 4f 46 4c 49 30 35 5c 45   ┆*********************  c     POFLINE EQU * c     P CF A14,CLEAR  c "   POFLI05 E┆
0xcc30…cc80               51 55 5c 2a 00 63 01 38 00 12 00 50 5c 43 46 5c 41 31 34 2c 52 45 53 45 54 20 00 63 01 4c 00 10 00 50 5c 49 46 54 5c 44 43 4c 49 4e 3d 32 00 63 01 62 00 16 00 50 5c 4c 44 5c 41 37 2c 4d 41 49 4e 2c 54 43 41 42 41 53 00 63 01 76 00 0e 00 50   ┆QU * c 8   P CF A14,RESET  c L   P IFT DCLIN=2 c b   P LD A7,MAIN,TCABAS c v   P┆
0xcc80…ccd0 (132, 0, 400) 5c 58 52 4b 5c 41 37 2c 31 20 00 63 01 90 00 16 00 50 5c 53 54 5c 41 37 2c 4d 41 49 4e 2c 54 43 41 42 41 53 00 64 00 12 00 30 00 50 5c 43 46 5c 41 31 34 2c 44 43 41 42 4f 52 5c 41 42 4f 52 54 20 52 45 51 55 45 53 54 20 4e 4f 54 20 43 55 52   ┆ XRK A7,1  c     P ST A7,MAIN,TCABAS d   0 P CF A14,DCABOR ABORT REQUEST NOT CUR┆
0xccd0…cd20               52 45 4e 54 20 4d 46 20 00 64 00 2c 00 08 00 50 5c 58 49 46 00 64 00 60 00 10 00 50 5c 49 46 54 5c 4f 46 4c 49 4e 3d 31 00 64 00 6c 00 36 00 50 5c 4c 44 4b 5c 41 31 2c 30 5c 44 56 20 41 44 44 52 45 53 53 20 3a 3a 3d 20 30 4d 45 53 53 41 47   ┆RENT MF  d ,   P XIF d `   P IFT OFLIN=1 d l 6 P LDK A1,0 DV ADDRESS ::= 0MESSAG┆
0xcd20…cd70               45 53 20 54 4f 20 56 44 55 20 49 47 4e 4f 52 45 44 20 00 64 00 80 00 1a 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 44 43 5c 4d 46 20 23 20 31 20 00 64 00 ba 00 26 00 50 5c 43 46 5c 41 31 34 2c 45 4d 55 4c 41 5c 54 52 41 4e 53 46 45 52 20 50   ┆ES TO VDU IGNORED  d     P LDKL A8,ECBDC MF # 1  d   & P CF A14,EMULA TRANSFER P┆
0xcd70…cdc0               41 52 41 4d 45 54 45 52 53 20 00 64 00 d8 00 10 00 50 5c 49 46 54 5c 44 43 4c 49 4e 3d 32 00 64 01 02 00 1a 00 50 5c 4c 44 4b 4c 5c 41 38 2c 45 43 42 44 43 32 5c 4d 46 20 23 20 32 00 64 01 16 00 26 00 50 5c 43 46 5c 41 31 34 2c 45 4d 55 4c   ┆ARAMETERS  d     P IFT DCLIN=2 d     P LDKL A8,ECBDC2 MF # 2 d   & P CF A14,EMUL┆
0xcdc0…ce10               41 5c 54 52 41 4e 53 46 45 52 20 50 41 52 41 4d 45 54 45 52 53 20 00 64 01 34 00 08 00 50 5c 58 49 46 00 64 01 5e 00 10 00 50 5c 49 46 54 5c 4f 46 4c 49 4e 3d 31 00 64 01 6a 00 12 00 50 5c 43 46 5c 41 31 34 2c 4c 4d 46 31 4f 46 00 64 01 7e   ┆A TRANSFER PARAMETERS  d 4   P XIF d ^   P IFT OFLIN=1 d j   P CF A14,LMF1OF d ~┆

Reduced view