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

⟦9e3d03891⟧ 

    Length: 33460 (0x82b4)
    Notes: pts_type(SC)
    Names: »DRCD01.SC«

Derivation

└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
    └─⟦this⟧ »TOSSWORK/DRCD01.SC«

PTS(SC)

	IDENT DRCD01 	REL 10.0 80-04-10 870105041000 

* 
* 
**********************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRCD01 = DRIVER FOR ONE/TWO DISC UNITS PTS 6877 
* 
* 
* 
* 
* 
* 
* 
**************************************************
* 
* 
*   THIS DISC DRIVER HANDLES UP TO TWO DISC 
*   DRIVES PTS 6877 CONNECTED TO CPU VIA
*   BUILT IN DMA CHANNEL
* 
* 
*   THE FOLLOWING ORDERS ARE TREATED :
* 
*   /00    TEST STATUS
*   /01    BASIC READ 
*   /05    BASIC WRITE
*   /11    PHYSICAL READ
*   /15    PHYSICAL WRITE 
*   /1F    FORMAT VOLUME
* 
	EJECT		DRCD01
* 
* 
********************* 
*                   * 
*   ENTRIES         * 
*                   * 
********************* 
* 
	ENTRY	CDADR	DRIVER ADDRESS BLOCK 
	ENTRY	CDON	RECOVERY ROUTINE
	ENTRY	IHCD	INTERRUPT ROUTINE 
	ENTRY	DWCD01	DWT ADDRESS 
* 
	EJECT		DRCD01
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	TDISP	DISPATCHER 
	EXTRN	TENDIO	END I/O 
	EXTRN	SAVE8	SAVE REGS. A1-A8 ON A15 STACK
	EXTRN	NVLCHK	CHECK IF NEW VOLUME LOADED
	EXTRN	VOLGET	PUT VOLUME NAME IN DWT SET NVL
	EXTRN	VOLNAM	VOLUME NAME FROM DWT TO USER BUFFER 
	EXTRN	VOLCLR	CLEAR VOLUME NAMES IN DWT 
	EXTRN	INXDWT	DOUBLED INDEX + DWT ADDRESS 
	EXTRN	DISIOE	REQUEST ERROR 
	EXTRN	INIFLG	INITIALIZATION FLAG 
	EXTRN	PFPOST	PWF POST PROCESSING FLAG
	EXTRN	INTSAV	SAVE AREA LAST INTERRUPT
	EXTRN	SETIMP	TIMER 
	EXTRN	TTB:MT 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTECB	ECB ADDRESS 
	EXTRN	DWTOR	DWT INDEX AND ORDER
	EXTRN	DWTA4	SAVE AREA A4 
	EXTRN	DWTA5	SAVE AREA A5 
	EXTRN	DWTORD	SAVE AREA FOR ORDER 
	EXTRN	ECBBA	ECB BUFFER ADDRESS 
	EXTRN	ECBRL	ECB REQUESTED LENGTH 
	EXTRN	ECBEL	ECB EFFECTIVE LENGTH 
	EXTRN	ECBRC	ECB RETURN CODE
	EXTRN	ECBCW1	ECB 1:ST CONTROL WORD 
	EXTRN	ECBCW2	ECB 2:ND CONTROL WORD 
* 
	EJECT		DRCD01
* 
* 
**************************
*                        *
*  CONDITIONAL ASSEMBLY  *
*                        *
**************************
* 
* 
*   READ AFTER WRITE MAY BE INCLUDED FOR ORDER /15
*   BY SETTING X:B = 1
* 
X:B	EQU	0 
RAW	EQU	X:B 
* 
* 
*   THIS DRIVER CAN HANDLE TWO DISC UNITS 
*   IF X:A := 2 
* 
X:A	EQU	1 
NUNITS	EQU	X:A
* 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	0
* 
CPU852	EQU	1
* 
	EJECT		DRCD01
* 
************************* 
*                       * 
*   CONSTANTS           * 
*                       * 
************************* 
* 
CUADR	EQU	/17	CONTROL UNIT ADDRESS
CUAD1	EQU	CUADR	ADDRESS UNIT 1
CUAD2	EQU	CUADR+/20	ADDRESS UNIT 2
DEVIND	EQU	10	DEVICE INDEX
RY3	EQU	3	3 RETRIES 
PHSECL	EQU	/180	PHYSICAL SECTOR LENGTH
LOSECL	EQU	/80	LOGICAL SECTOR LENGTH
SEZCOM	EQU	/E800	SEEK ZERO COMMAND CODE 
SEEKCO	EQU	/A800	SEEK COMMAND CODE
REDCOM	EQU	/0800	READ COMMAND CODE
VERCOM	EQU	/3800	VERIFY COMMAND CODE
WRICOM	EQU	/1800	WRITE COMMAND CODE 
WHACOM	EQU	/22C0	WRITE SECTOR MARKS COMMAND CODE
TIME	EQU	1000	1 MIN 40 SECONDS
MAXCYL	EQU	822	MAXIMAL CYLINDER NUMBER
MAXSE1	EQU	8	MAXIMAL NUMBER 
MAXSE2	EQU	/53C6	OF SECTORS 
INLACE	EQU	5	INTERLACING FACTOR 
* 
	EJECT		DRCD01
* 
* 
*   DRIVER ADDRESS BLOCK
* 
* 
	DATA	0	INDICATES NO MMU BUFFER 
	DATA	DEVIND	DISC DEVICE INDEX
CDADR	DATA	CDAD	ACTIVATION ADDRESS
	DATA	0	ABORT ROUTINE ADDRESS 
* 
* 
* 
*   DRIVER BUFFER 
* 
* 
BUFFER	EQU	*
	RES	256
* 
	EJECT		DRCD01
* 
* 
****************************
*                          *
*   ACTIVATION             *
*                          *
****************************
* 
CDAD	EQU	*
	LDK	A5,DWTSB3
	ADR	A5,A6	GET STACK BASE 
	LD	A4,DWTRE1,A6	GET GRAND TOTAL OF RETRIES 
	ST	A4,DWTRE2,A6	PRESENT TOTAL RETRY COUNTER
	CF	A15,NVLCHK	CHECK IF NEW VOLUME LOADED 
*			SAVE INDEX AND ORDER
	ADK	A7,0	SET CR
	RF(NZ)	CDA:00	NOT TEST STATUS ORDER
* 
	EJECT		DRCD01
* 
* 
********************* 
*                   * 
*   TEST STATUS     * 
*                   * 
********************* 
* 
* 
	ORS	A1,ECBRC,A8	NVL BIT
	IM	DWTSAV,A6	INDICATE TEST STATUS
	CF	A5,VO:NAM	READ VOLUME NAME
	ANK	A1,1 
	RF(NZ)	TESEND	NOT OPERABLE 
	LD	A8,DWTECB,A6	ECB ADDRESS
	CF	A15,VOLNAM	TRANSFER VOLUME NAME TO USER BUFFER
	LDK	A1,0	RESET RETURN CODE 
TESEND	EQU	*
	CM	DWTSAV,A6	TEST STATUS DONE
	RF	DENDIO	PERFORM ENDIO
* 
	EJECT			DRCD01 
* 
*************************************** 
*                                     * 
*   NEW VOLUME LOADED CHECK           * 
*   ORDER CODE CHECK                  * 
*                                     * 
*************************************** 
* 
*   INPUT: A1=NVL RETURN CODE FROM NVLCHK 
*          A7=ORDER CODE
* 
* 
CDA:00	EQU	*
	ADK	A1,0	CHECK IF NEW VOLUME LOADED
	RF(NZ)	DENDIO	PERFORM ENDIO
	SUK	A7,1 
	RF(Z)	CD:010	BASIC READ
	SUK	A7,4 
	RF(Z)	CD:000	BASIC WRITE 
	SUK	A7,12	 
	RF(Z)	CD:010	PHYSICAL READ 
	SUK	A7,4 
	RF(Z)	CD:000	PHYSICAL WRITE
	SUK	A7,10
	RF(Z)	FORMAT	FORMAT VOLUME 
* 
DUERR	ABL	DISIOE	REQUEST ERROR
* 
INCLEN	EQU	*	REQUESTED LENGTH ERROR 
	LDKL	A1,/8008
DENDIO	EQU	*
	ABL	END:IO	
* 
* 
	EJECT		DRCD01
* 
* 
********************************* 
*                               * 
*   FORMAT VOLUME               * 
*                               * 
********************************* 
* 
* 
FORMAT	EQU	*
	LDKL	A1,SEEKCO	SEEK OPERATION CODE 
	ST	A1,DWTSEK,A6	TO SEEK OPERATION AREA 
	CF	A5,SEEKZ	CYLINDER 0 
	RF	FOR:50
FOR:10	EQU	*
	CF	A5,SEEK 
FOR:50	EQU	*
	CF	A5,HOMEAD	WRITE SECTOR MARKS
	IM	DWTSEK,A6	NEXT CYLINDER 
	LD	A1,DWTSEK,A6
	SUKL	A1,SEEKCO+MAXCYL	SEEK ORDER CODE + MAX CYLINDER NUMBER
	RB(NZ)	FOR:10	NEXT CYLINDER
	LDKL	A2,MAXCYL-1	821 
	IFT	NUNITS=1 
	ST	A2,DWTCYL,A6	CYLINDER NUMBER
	XIF
	IFT	NUNITS=2 
	CF	A15,INXDWT
	ST	A2,DWTCYL,A4	CYLINDER NUMBER
	XIF
	RB	DENDIO	PERFORM ENDIO
* 
	EJECT		DRCD01
* 
* 
********************************************
*                                          *
*   INPUT ECB-PARAMETER CHECK              *
*                                          *
********************************************
* 
* 
CD:000	EQU	*
	LDK	A7,5	INDICATE WRITE
CD:010	EQU	*
	ML	2,ECBCW1,A8	GET SECTOR NUMBER 
	DSK	MAXSE1,MAXSE2	DECIMAL 283590 
	RB(NN)	DUERR 
	LDK	A2,0	CLEAR REGISTER
	LD	A1,ECBRL,A8	GET REQUESTED LENGTH
	RB(Z)	INCLEN	INCORRECT REQUEST 
	ECR	A2,A1	DIVIDE BY 256
	ANK	A1,/FF	REST AFTER DIVISION 
	RB(NZ)	INCLEN	INCORRECT REQUEST
	ST	A2,DWTLOS,A6	SAVE NUMBER OF LOGICAL SECTORS 
	DA	ECBCW1,A8	LOGICAL SECTOR NUMBER 
	DSK	MAXSE1,MAXSE2	DECIMAL 283590 
	RB(P)	INCLEN	INCORRECT REQUEST 
* 
	EJECT		DRCD01
* 
* 
*   GET PHYSICAL SECTOR NUMBER
*   GET BUFFER ADDRESS
*   PREPARE SECTOR MASK 
* 
* 
	IFT	MMUPAG=0 
	LD	A2,ECBBA,A8	GET 16 BIT BUFFER ADDRESS 
	ST	A2,DWTBA,A6 
	XIF
	IFT	MMUPAG=1 
	MLR	2,A8	GET 18 BIT BUFFER ADDRESS 
	SLC	A1,4	MOST SIGNIFICANT BITS 
	ANK	A1,3 
	SRL	A2,1 
	MS	2,DWTBA,A6
	XIF
	ML	2,ECBCW1,A8	GET LOGICAL SECTOR NUMBER 
	LDK	A3,0	DIVIDE MOST SIGN PART BY 3
CD:100	EQU	*
	ADK	A3,1 
	SUK	A1,3 
	RB(NN)	CD:100
	ADK	A1,3 
	SUK	A3,1 
	ST	A3,DWTSEC,A6	PHYSICAL SECTOR NUMBER 
	DVK	3	DIVIDE BY 3
	ST	A2,DWTSEC+2,A6	LEAST SIGNIFICANT PART 
	CF	A5,MASKPR	PREPARE IO MASK 
	ANK	A7,4	ORDER CHECK 
	RF(Z)	REA:00	READ ORDER
	EJECT		DRCD01
* 
* 
********************************
*                              *
*   WRITE SECTORS              *
*                              *
********************************
* 
* 
	LD	A3,DWTMAS,A6	SECTOR MASK
	SUK	A3,7 
	RF(Z)	WRI:50	TOTAL PHYSICAL SECTOR 
WRI:10	EQU	*
	ML	3,DWTBSE,A6	GET IDENTITY OF SECTORS IN DRIVER BUFFER
	OR	A3,DWTMAS,A6	GET SECTOR MASK
	SUK	A3,7 
	RF(NZ)	WRI:20	NOT COMPLETE PHYSICAL SECTOR 
	LD	A3,DWTOR,A6	GET UNIT NUMBER 
	ANKL	A3,/100 
	SUR	A1,A3
	DS	DWTSEC,A6	SECTOR NUMBER 
	RF(Z)	WRI:30	CORRECT SECTORS IN DRIVER BUFFER
* 
	EJECT		DRCD01
* 
* 
WRI:20	EQU	*
	IM	DWTTRA,A6	INDICATE NO TRANSFER
	CF	A5,READ	READ SECTORS TO DRIVER BUFFER 
* 
WRI:30	EQU	*
	CF	A5,WRITE	WRITE ONE PHYSICAL SECTOR
	IFT	RAW=1
	LD	A1,DWTOR,A6	GET ORDER 
	ANK	A1,/10 
	RF(Z)	WRI:35	BASIC WRITE 
	CF	A5,VERIFY	VERIFY IF PHYSICAL WRITE
WRI:35	EQU	*
	XIF
	CF	A5,UPDATE 
	LD	A1,DWTLOS,A6	GET NUMBER OF LOGICAL SECTORS
	RF(Z)	REA:50	LAST SECTOR DONE
	CF	A5,MASK00	PREPARE SECTOR MASK 
	LD	A1,DWTMAS,A6	GET MASK 
	SUK	A1,7 
	RB(NZ)	WRI:10	LESS THAN 3 SECTOR IO
* 
	EJECT		DRCD01
* 
* 
WRI:50	EQU	*
	IFT	RAW=1
	ML	4,DWTBA,A6	SAVE PARAMETERS FOR READ AFTER WRITE 
	MS	4,DWTRAW,A6 
	IFT	MMUPAG=1 
	LD	A1,DWTSEC+2,A6
	ST	A1,DWTRAW+8,A6
	XIF
	LDK	A3,7 
	ST	A3,DWTMAS,A6	SECTOR MASK
WRI:55	EQU	*
	CF	A5,WRITE
	IFT	RAW=1
	IM	DWTTRA,A6	INDICATE NO UPDATE OF EFFECTIVE LENGTH
	XIF
	CF	A5,UPDAT
	IFT	RAW=1
	CM	DWTTRA,A6 
	XIF
	LD	A1,DWTLOS,A6	NUMBER OF LOGICAL SECTORS
	SUK	A1,3 
	RB(NN)	WRI:55	NEXT PHYSICAL SECTOR 
	IFT	RAW=1
* 
	EJECT		DRCD01
* 
* 
	LD	A2,DWTOR,A6 
	ANK	A2,/10 
	RF(Z)	WRI:70	BASIV WRITE 
	ML	4,DWTRAW,A6	RESTORE PARAMETERS FOR VERIFY 
	MS	4,DWTBA,A6
	IFT	MMUPAG=1 
	LD	A1,DWTRAW+8,A6
	ST	A1,DWTSEC+2,A6
	XIF
	IFT	RAW=1
WRI:60	EQU	*
	CF	A5,CIOLOD 
	CF	A5,VERIFY 
	CF	A5,UPDAT
	LD	A1,DWTLOS,A6	NUMBER OF LOGICAL SECTORS
	SUK	A1,3 
	RB(NN)	WRI:60	NEXT PHYSICAL SECTOR 
	XIF
WRI:70	EQU	*
	ADK	A1,3 
	RF(Z)	REA:50	LAST SECTOR DONE
	CF	A5,MASK00	PREPARE SECTOR MASK 
	RB	WRI:10	LAST SECTORS 
* 
	EJECT		DRCD01
* 
* 
********************************
*                              *
*   READ SECTORS               *
*                              *
********************************
* 
* 
REA:00	EQU	*
	CF	A5,READ	PERFORM READ
	CF	A5,UPDATE 
	LDK	A3,7 
	ST	A3,DWTMAS,A6	SECTOR MASK
	LD	A1,DWTLOS,A6	NUMBER OF LOGICAL SECTORS
	RF(Z)	REA:50	IO READY
	SUK	A1,3 
	RB(NN)	REA:00	AT LEAST ONE PHYSICAL SECTOR 
	CF	A5,MASK00 
	CF	A5,READ 
	CF	A5,UPDATE 
	LDK	A1,0	RESET RETURN CODE 
REA:50	EQU	*
	ABL	END:00	END IO
* 
	EJECT		DRCD01
* 
* 
********************* 
*                   * 
*   READ SECTOR N   * 
*                   * 
********************* 
* 
* 
READ	EQU	*
	CF	A5,CIOLOD 
	CM	DWTBSE+4,A6	CLEAR BUFFER IND. IN CASE OF ERROR
	LDKL	A3,REDCOM	GET READ COMMAND CODE 
	ORS	A3,DWTCOP,A6	READ A RECORD COMMAND 
READ00	EQU	*
	LDK	A4,RY3	RETRIES 
READ10	CF	A5,CIO	EXECUTE READ 
	ANK	A1,/F
	RF(Z)	RET34	OK. NO RETURN CODE 
* 
* IO ERROR IN READING 
* 
	IM	DWTRE2,A6 
	SUK	A4,1	DECREMENT RETRYCOUNTER
	RB(P)	READ10	3:RD RETRY IN THIS STATE NOT DONE 
	LDK	A4,RY3	REINIT RETRYCOUNTER 
* 
	EJECT		DRCD01
* 
* 
* UPDATE READ-COMMAND 
* 
* 
	LC	A2,DWTCOP,A6
	ANK	A2,/C0	LAST RETRY WITH EARLY- OR LATE- 
	RF(NZ)	RET31	DATA STROBE ? 
	LDKL	A3,/8000	PREPARE FOR EARLY DATA STROBE
	ORS	A3,DWTCOP,A6 
	RB	READ10	RETRY 3 TIMES WITH EARLY DATA STROBE 
RET31	EQU	* 
	ANK	A2,/80 
	RF(Z)	RET32	LAST RETRIES WERE LATE DATA STROBE 
	LDKL	A3,/C000
	XRS	A3,DWTCOP,A6	CHANGE FROM EARLY- TO LATE DATA STROBE
	RB	READ10	RETRY 3 TIMES WITH LATE DATA STROBE
RET32	EQU	* 
	LDKL	A3,/3FFF
	ANS	A3,DWTCOP,A6	RESET LATE DATA STROBE
	LC	A2,DWTCOP+2,A6
	ANK	A2,/C0	LAST RETRY CARRIAGE+ OR CARRIAGE- 
	RF(NZ)	RET33 
	LDKL	A3,/8000	PREPARE FOR CARRIAGE+
	ORS	A3,DWTCOP+2,A6 
	RB	READ10	RETRY 3 TIMES WITH CARRIAGE+ 
* 
	EJECT		DRCD01
* 
* 
RET33	EQU	* 
	ANK	A2,/80 
	RF(Z)	RET35	LAST RETRY WAS A CARRIAGE- 
	LDKL	A3,/C000
	XRS	A3,DWTCOP+2,A6	CHANGE FROM CARRIAGE+TO CARRIAGE- 
	RB	READ10	RETRY 3 TIMES WITH CARRIAGE- 
RET35	EQU	* 
	LD	A2,DWTSAV,A6
	RB(Z)	REA:50	NOT VO:NAM CALLING
RET34	EQU	*	NO MORE RETRIES 
	RTN	A5 
* 
	EJECT		DRCD01
* 
* 
**************************
*                        *
*   WRITE SECTOR N       *
*                        *
**************************
* 
WRITE	EQU	* 
	CF	A5,CIOLOD 
	LDKL	A3,WRICOM	WRITE ORDER CODE
	ORS	A3,DWTCOP,A6 
	LDK	A4,RY3	RETRIES TO BE PERFORMED 
WRIT20	EQU	*
	CF	A5,CIO
	ANK	A1,/F
	RF(Z)	WRIT50	WRITE OK
	IM	DWTRE2,A6	RETRY PERFORMED 
	SUK	A4,1 
	RB(NZ)	WRIT20	RETRY
	RB	REA:50	NO MORE RETRIES
WRIT50	EQU	*
	RTN	A5 
* 
	IFT	RAW=1
	EJECT		DRCD01
* 
* 
****************************
*                          *
*   VERIFY SECTOR N        *
*                          *
****************************
* 
VERIFY	EQU	*
	LDKL	A3,VERCOM	ORDER CODE FOR VERIFY 
	ORS	A3,DWTCOP,A6 
	RB	READ00
* 
	XIF
	EJECT		DRCD01
* 
* 
*   SEEK,SEEKZ,WRITE HOME ADDRESS AND CIO 
* 
* 
SEEK	EQU	*
	LDK	A2,DWTSEK	GET EFFECTIVE ADDRESS TO SEEK OP.
	RF	EXCIO 
* 
* 
SEEKZ	EQU	* 
	LDK	A2,DWTSEZ	GET EFFECTIVE ADDRESS TO SEEK 0 OP.
	RF	EXCIO 
* 
* 
HOMEAD	EQU	*
	LDK	A2,DWTWHA	GET WRITE HOME ADDRESS OP. 
	RF	EXCIO 
* 
* 
CIO	EQU	* 
	LDK	A2,DWTCOP	GET EFFECTIVE ADDRESS TO CIO OP. 
* 
	EJECT		DRCD01
* 
* 
EXCIO	ADR	A2,A6 
	ST	A4,DWTA4,A6	SAVE A4 
	LD	A3,PFPOST 
	RF(NZ)	CIOAB	PWF POST PROCESSING ON
	IFT	NUNITS=2 
	CF	A15,INXDWT	GET INDEXED DWT DISPLACEMENT 
	EX	DWTCIO,A4 
	XIF
	IFT	NUNITS=1 
	EX	DWTCIO,A6 
	XIF
	ABL(3)	END:30
CIOAB	EQU	* 
	ST	A5,DWTA5,A6	           A5 
	ABL	TDISP	GO TO DIPATCHER
* 
	EJECT		DRCD01
* 
* 
***************************************** 
*                                       * 
*   SUBROUTINE CIOLOD                   * 
*              PREPARE CIO WORK AREA    * 
*                                       * 
***************************************** 
* 
*   REGISTER DISPOSITION
*   A1 = WORK REGISTER
*   A2 = WORK REGISTER
*   A3 = MASK 
*   A4 = CIO WORK AREA POINTER
*   A7 = USER BUFFER POINTER
*   A8 = DRIVER BUFFER POINTER
* 
*   DWTTRA = TRANSFER INDICATOR 
*   DWTMAS = MASK INDICATING SECTORS TO/FROM USER BUFFER
*   DWTBA  = BUFFER POINTER 
* 
CIOLOD	EQU	*
	LDKL	A4,-4 
	ST	A4,DWTSAV,A6	COUNTER
	LDR	A4,A6	GET DWT ADDRESS
	ADK	A4,DWTCOP	CIO WORK AREA ADDRESS
	LDKL	A8,BUFFER	DRIVER BUFFFER ADDRESS
	LD	A3,DWTMAS,A6	GET BUFFER MASK
	SRC	A3,4	MASK IN POSITION
	LDK	A7,0	USER BUFFER POINTER 
* 
	EJECT		DRCD01
* 
* 
CIOL10	EQU	*
	ADK	A4,4 
	IM	DWTSAV,A6	COUNTER 
	RF(Z)	CIOL60	WORK AREA READY 
	SLL	A3,1 
	RF(NN)	CIOL50
	LDKL	A1,/C000+LOSECL	NO TRANSFER ORDER 
	LD	A2,DWTTRA,A6	TRANSFER INDICATOR 
	RF(NZ)	CIOL55	NO TRANSFER
* 
	IFT	MMUPAG=0 
	LDKL	A1,/4080
	LDR	A2,A7	BUFFER ADDRESS POINTER 
	AD	A2,DWTBA,A6	BUFFER ADDRESS
	MSR	2,A4	CIO WORK AREA 
	ADKL	A7,/100 
	XIF
	IFT	MMUPAG=1 
	LDR	A2,A7	USER BUFFER POINTER
	LDKL	A1,/804	SHIFTED 
	DA	DWTBA,A6	GET USER BUFFER ADDRESS
	SLL	A2,1	IN POSITION 
	SRC	A1,4	IN POSITION 
	MSR	2,A4	TO CIO WORK AREA
	ADK	A7,LOSECL	UPDATE USER BUFFER POINTER 
	XIF
	RB	CIOL10
* 
	EJECT		DRCD01
* 
* 
CIOL50	EQU	*
	LDKL	A1,/4000+LOSECL 
	LDR	A2,A8	DRIVER BUFFER
	ADKL	A8,/100	UPDATE DRIVER BUFFERPOINTER 
CIOL55	EQU	*
	MSR	2,A4	TO CIO WORK AREA
	RB	CIOL10
CIOL60	EQU	*
	LDKL	A1,/B000+LOSECL 
	ANS	A1,DWTCOP+12,A6	CLEAR BIT
	LDKL	A1,PHSECL 
	ST	A1,DWTCOP+2,A6
	CM	DWTTRA,A6	CLEAR NO TRANSFER FLAG
* 
	EJECT		DRCD01
* 
* 
***************************************** 
*                                       * 
*              PUT SECTOR NUMBER        * 
*              AND HEAD NUMBER IN POS.  * 
*                                       * 
***************************************** 
* 
*   INPUT:  PHYSICAL SECTOR NUMBER
*   OUTPUT: INTERLACED SECTOR NUMBER AND HEAD NUMBER
*           IN POSITION FOR CIO 
*   PERFORM SEEK
* 
	ML	2,DWTSEC,A6	PHYSICAL SECTOR NUMBER
	DVK	115
*   A1 = REST = HEAD NUMBER * SECTOR NUMBER 
*   A2 = QUOTIENT = CYLINDER NUMBER 
	LDR	A3,A2	SAVE CYLINDER NUMBER 
	LDR	A2,A1
	LDK	A1,0 
	DVK	23 
*   A1 = SECTOR NUMBER
*   A2 = HEAD NUMBER
	ORKL	A2,/800	INTERUPT BIT
	ST	A2,DWTCOP,A6	COP WORK AREA
	LDR	A2,A1	SECTOR NUMBER
	MUK	INLACE	INTERLACING 
	SLC	A3,1 
	RF(NN)	CIOP10	EVEN CYLINDER NUMBE
	ADK	A2,12	SKEW FACTOR
* 
	EJECT		DRCD01
* 
* 
CIOP10	EQU	*
	DVK	23	GET INTERLACED AND SKEWED SECTOR NUMBER 
	SLL	A1,5	IN POSITION 
	ORS	A1,DWTCOP,A6	COP WORK AREA 
	SRC	A3,1	RESTORE CYLINDER NUMBER IN POSITION 
	IFT	NUNITS=2 
	CF	A15,INXDWT
	CW	A3,DWTCYL,A4
	RF(E)	CIOP50	SAME CYLINDER 
	ST	A3,DWTCYL,A4	SAVE CYLINDER NUMBER 
	XIF
	IFT	NUNITS=1 
	CW	A3,DWTCYL,A6
	RF(E)	CIOP50	SAME CYLINDER 
	ST	A3,DWTCYL,A6	SAVE CYLINDER NUMBER 
	XIF
	ADKL	A3,SEEKCO	SEEK ORDER
	ST	A3,DWTSEK,A6	SEEK WORK AREA 
* 
	EJECT		DRCD01
* 
*   SEEK CYLINDER 
* 
* 
	LDK	A4,RY3	RETRIES 
SE:010	EQU	*
	CF	A5,SEEK	SEEK CYLINDER N 
	ANK	A1,2 
	RF(Z)	CIOP50	OK. SEEK COMPLETED
	IM	DWTRE2,A6 
	SUK	A4,1	DECREMENT RETRY-COUNTER 
	RF(Z)	SE:020	LAST RETRY
* 
	CF	A5,SEEKZ	SEEK CYLINDER 0
	ANK	A1,2 
	RB(Z)	SE:010	CYLINDER ZERO FOUND 
* 
SE:020	EQU	*
	RF	END:SE	SEEK ERROR END IO
CIOP50	EQU	*
	RTN	A5 
* 
	EJECT		DRCD01
* 
* 
************************************* 
*                                   * 
*   SUBROUTINE UPDATE               * 
*                                   * 
************************************* 
* 
*   UPDATES : DWTBSE   PRESENT SECTORS IN DRIVER BUFFER 
*             DWTLOS   NUMBER OF LOGICAL SECTORS LEFT IN IO 
*             DWTBA    USER BUFFER POINTER
*             DWTSEC   PHYSICAL SECTOR POINTER
*             ECBEL    EFFECTIVE LENGTH 
* 
UPDATE	EQU	*
	LDK	A2,0 
	LD	A3,DWTMAS,A6	GET SECTOR MASK
	C1R	A3,A3	COMPLIMENT 
	ANK	A3,7	3 BITS
	LD	A1,DWTOR,A6	GET INDEX 
	ANKL	A1,/100	UNIT NUMBER 
	DA	DWTSEC,A6	SECTOR NUMBER 
	MS	3,DWTBSE,A6	SAVE
UPDAT	EQU	* 
	LD	A1,DWTMAS,A6	GET SECTOR MASK
	LDK	A2,0 
	SRC	A1,3 
UPDA00	EQU	*
	RF(NN)	UPDA10	IO TO/FROM DRIVER BUFFER 
	ADK	A2,1	NUMBER OF SECTORS IN LAST IO
UPDA10	EQU	*
	SLL	A1,1 
	RB(NZ)	UPDA00	MORE SECTORS 
* 
	EJECT		DRCD01
* 
* 
	LD	A3,DWTLOS,A6	UPDATE DWTLOS
	SUR	A3,A2
	ST	A3,DWTLOS,A6
* 
	IFT	MMUPAG=1 
	SLL	A2,7	UPDATE DWTBA
	LDR	A3,A2	SAVE LENGTH
	DA	DWTBA,A6
	MS	2,DWTBA,A6
	SLL	A3,1 
	XIF
	IFT	MMUPAG=0 
	SLL	A2,8 
	ADS	A2,DWTBA,A6	UPDATE BUFFER POINTER
	XIF
* 
	IFT	RAW=1
	LD	A1,DWTTRA,A6
	RF(Z)	UPDA50	UPDATE EFFECTIVE LENGTH 
	LD	A7,DWTOR,A6	GET ORDER 
	ANK	A7,/10 
	RF(NZ)	UPDA60
	XIF
* 
	EJECT		DRCD01
* 
* 
UPDA50	EQU	*
	IFT	MMUPAG=1 
	ADS	A3,ECBEL,A8
	XIF
	IFT	MMUPAG=0 
	ADS	A2,ECBEL,A8	UPDATE EFFECTIVE LENGTH
	XIF
UPDA60	EQU	*
* 
	LDK	A1,0 
	LDK	A2,1 
	DA	DWTSEC,A6 
	MS	2,DWTSEC,A6 
* 
	RTN	A5 
	EJECT		DRCD01
* 
* 
******************************************* 
*                                         * 
*   SUBROUTINE MASKPR                     * 
*              SET BITS FOR LOGICAL       * 
*              SECTORS IN PHYSICAL        * 
*                                         * 
******************************************* 
* 
*   A1 = POSITION IN SECTOR 
*   DWTLOS = NUMBER OF SECTORS
* 
* 
MASK00	EQU	*
	LDK	A1,0 
MASKPR	EQU	*
	LD	A3,DWTLOS,A6	NUMBER OF SECTORS
	SUK	A3,2 
	LDK	A3,4	1  0  0 
	RF(N)	MASK10	1 SECTOR LEFT IN IO 
	LDK	A3,6	1  1  0 
	RF(Z)	MASK10	2 SECTORS LEFT IN IO
	LDK	A3,7	1  1  1 
MASK10	EQU	*
	SUK	A1,1 
	RF(Z)	MASK20	0  1  0 
	RF(N)	MASK30	1  0  0 
	SRL	A3,1	0  0  1 
MASK20	EQU	*
	SRL	A3,1 
MASK30	EQU	*
	ST	A3,DWTMAS,A6	SAVE MASK
	RTN	A5 
* 
	EJECT		DRCD01
* 
* 
************************* 
*                       * 
*   PERFORM END IO      * 
*                       * 
************************* 
* 
END:SE	EQU	*	SEEK ERROR 
	IFT	NUNITS=1 
	LDKL	A3,/FFFF
	ST	A3,DWTCYL,A6	DUMMY CYLINDER NUMBER
	XIF
	IFT	NUNITS=2 
	CF	A15,INXDWT
	LDKL	A3,/FFFF
	ST	A3,DWTCYL,A4	DUMMY CYLINDER NUMBER
	XIF
END:00	EQU	*
	LD	A2,DWTRE2,A6
	CW	A2,DWTRE1,A6
	RF(E)	END:IO 
	ST	A2,DWTRE1,A6	GRAND TOTAL OF RETRIES 
	ORKL	A1,/100	RETRIES PERFORMED 
* 
END:IO	EQU	*
	CF	A15,TENDIO	PERFORM TENDIO 
T:DISP	EQU	*
	ABL	TDISP
END:30	EQU	*
	LDK	A1,1 
	ST	A1,DWTST,A6 
	RB	END:IO
* 
	EJECT		DRCD01
* 
* 
**********************
*                    *
*  RECOVERY ROUTINE  *
*                    *
**********************
* 
* 
CDON	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,DWCD01 
	LDK	A5,DWTSB3	GET STACK BASE 
	ADR	A5,A6
	LDKL	A1,-1 
	ST	A1,DWTSAV,A6	INDICATE RECOVERY
	CM	DWTST,A6	UNIT BUSY
	LD	A1,INIFLG	INITIALIZATION FLAG 
	RF(NZ)	CDON05	NOT POWER UP 
* 
	EJECT		DRCD01
* 
* 
	IFT	NUNITS=2 
	CM	DWTOR,A6	1ST UNIT 
	CF	A5,SEEKZ	TEST IF OPERABLE 
	ANK	A1,1 
	RF(NZ)	CDON26	NOT OPERABLE 
	LDK	A1,1 
	SC	A1,DWTOR,A6	2ND UNIT
	XIF
	CF	A5,SEEKZ	TEST IF OPERABLE 
	ANK	A1,1 
	RF(NZ)	CDON26	NOT OPERABLE 
* 
	EJECT			DRCD01 
* 
* 
CDON05	EQU	*
	CM	DWTOR,A6	1ST UNIT 
	CF	A5,VO:NAM 
	IFT	NUNITS=2 
	LDK	A1,1	2ND UNIT
	SC	A1,DWTOR,A6 
	CF	A5,VO:NAM 
	XIF
	IM	DWTST,A6	INDICATE VOLUME NAMES READ 
	CM	DWTSAV,A6	RECOVERY DONE 
* 
	LD	A8,DWTECB,A6	GET ECB ADDRESS
	RB(Z)	END:IO	NO REQUEST ON 
* 
CDON10	LD	A7,DWTORD,A6	GET ORDER
	ST	A7,DWTOR,A6	RESTORE INDEX AND ORDER 
	ANK	A7,/3F 
* 
	CM	ECBEL,A8	RESET EFFECTIVE LENGTH 
	ABL	CDAD	REPEAT REQUEST
* 
	EJECT			DRCD01 
* 
*    READY INTERRUPT
* 
CDREDY	LD	A1,TIMER
	RF(Z)	CDON50	NO TIMER ACTIVE 
* 
	IFT	NUNITS=1 
	CM*	TIMER	KILL TIMER 
	RF	CDON40
	XIF
* 
	IFT	NUNITS=2 
	RB	T:DISP	TIMER ACTIVE 
	XIF
* 
	EJECT			DRCD01 
* 
* 
CDON26	EQU	*
	LDKL	A4,TIMER	TIMER POINTER ADDRESS
	LDR*	A3,A4 
	RF(Z)	CDON30	NO TIMER ACTIVE 
	LDKL	A1,-TIME
	STR	A1,A3	RESTART TIMER
	RB	T:DISP
* 
* 
CDON30	CF	A15,SETIMP	START TIMER
	DATA	CDON40,TIME	TIME OUT ADDRESS, TIME
	RB	T:DISP
* 
*   TIME OUT
* 
CDON40	LDKL	A6,DWCD01 
	CM	TIMER 
CDON50	EQU	*
	CM	DWTST,A6	UNIT BUSY
	LDKL	A1,-1 
	ST	A1,DWTSAV,A6	INDICATE RECOVERY
	LDK	A5,DWTSB3	GET STACK BASE 
	ADR	A5,A6
	RB	CDON05
* 
	EJECT		DRCD01
* 
* 
*********************** 
*                     * 
*  INTERRUPT HANDLER  * 
*                     * 
*********************** 
* 
* 
IHCD	EQU	*
	ST	P,INTSAV	SAVE LAST INTERRUPT
	MSR	8,A15	SAVE REGISTERS ON STACK
	LDKL	A6,DWCD01	DWT ADDRESS 
	SST	A1,CUADR	GET STATUS
	LDR	A2,A1
	SLL	A2,1 
	RB(N)	CDREDY	READY INTERRUPT 
	ANKL	A2,/1400
	RF(Z)	IHCD50 
	ORK	A1,2 
IHCD50	EQU	*
	ANK	A1,/F
	LD	A8,DWTECB,A6	GET ECB ADDRESS
	LDR	A3,A1	RETURN CODE
	LD	A2,DWTSAV,A6
	RF(NZ)	IHCD70	VO:NAM CALLING 
	ANK	A3,1 
	RB(NZ)	END:IO	NOT OPERABLE 
IHCD70	EQU	*
	LD	A5,DWTA5,A6	GET STACK POINTER 
	LD	A4,DWTA4,A6	GET RETRY COUNTER 
	RTN	A5 
* 
	EJECT		DRCD01
* 
* 
VO:NAM	EQU	*
	CF	A5,SEEKZ
	ANK	A1,3 
	RF(NZ)	VO:NA7	ERROR
	LDR	A7,A5	SAVE STACK POINTER 
	MLK	5
	DATA	/800,PHSECL,/4000+LOSECL+LOSECL 
	DATA	BUFFER,/8000+LOSECL 
	MS	5,DWTCOP,A6 
	LDR	A5,A7	RESTORE STACK POINTER
	CF	A5,READ00	READ SECTOR 0 TO DRIVER BUFFER
	CM	DWTBSE+4,A6	CLEAR IN CASE OF ERROR
	ANK	A1,/F
	RF(NZ)	VO:NA7	ERROR
	LD	A1,DWTOR,A6 
	ANKL	A1,/100	UNIT NUMBER 
	LDK	A2,0 
	LDK	A3,6 
	MS	3,DWTBSE,A6	UPDATE DRIVER BUFFER INDICATOR
	LDKL	A2,BUFFER 
	LDK	A3,/FC	FILE CODE 
	LD	A1,DWTSAV,A6
	RF(N)	VO:NA5 
	LDKL	A3,/80FC	INDICATE TEST STATUS 
VO:NA5	EQU	*
	CF	A15,VOLGET	VOLUME NAME TO DWT 
* 
	EJECT		DRCD01
* 
* 
	LDK	A1,0	RESET RETURN CODE 
	LDK	A3,0	CYLINDER NUMBER 
	RF	VO:NA8
VO:NA7	EQU	*
	LDK	A1,6	CLEAR SEX BYTES 
	CF	A15,VOLCLR
	LDR	A1,A3	RETURN CODE
	LDKL	A3,/FFFF	DUMMY CYLINDER NUMBER
VO:NA8	EQU	*
	IFT	NUNITS=1 
	ST	A3,DWTCYL,A6	HEAD POSITION
	XIF
	IFT	NUNITS=2 
	CF	A15,INXDWT
	ST	A3,DWTCYL,A4
	XIF
	RTN	A5 
* 
* 
*   TIMER POINTER 
* 
TIMER	DATA	0
* 
	EJECT		DRCD01
* 
* 
************************************* 
*                                   * 
*   DEVICE WORK TABLE               * 
*                                   * 
************************************* 
* 
* 
DWCD01	EQU	*
	DATA	0 
	DATA	/8000	DWT STATUS
	DATA	0	ECB ADDRESS 
	DATA	0	ORDER 
	DATA	CDADR	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	ECBCD1	MMU ECB ADDRESS
	XIF
* 
DWTTRA	EQU	*-DWCD01 
	DATA	0 
	DATA	0,0,0	SAVE AREA FOR REGISTERS 
DWTBSE	EQU	*-DWCD01	DRIVER BUFFER INDICATOR 
	DATA	0,0,0 
DWTSAV	EQU	*-DWCD01 
	DATA	0 
* 
	EJECT		DRCD01
* 
* 
	DATA	0 
	DATA	/8000	NEW VOLUME LOADED INDICATOR UNIT 1
	DATA	/8000	NEW VOLUME LOADED INDICATOR UNIT 2
DWTRE1	EQU	*-DWCD01	GRAND TOTAL RETRY COUNTER 
	DATA	0 
DWTRE2	EQU	*-DWCD01	TOTAL RETRY COUNTER 
	DATA	0 
	DATA	/FFFF,/FFFF,/FFFF	VOLUME NAME UNIT 1
	IFT	NUNITS=2 
	DATA	/FFFF,/FFFF,/FFFF	VOLUME NAME UNIT 2
	XIF
DWTBA	EQU	*-DWCD01	USER BUFFER POINTER
	DATA	0 
	IFT	MMUPAG=1 
	DATA	0 
	XIF
DWTLOS	EQU	*-DWCD01	LOGICAL SECTOR COUNTER
	DATA	0 
DWTSEC	EQU	*-DWCD01	PHYSICAL SECTOR NUMBER
	DATA	0,0 
DWTMAS	EQU	*-DWCD01	LOGICAL SECTOR MASK 
	DATA	0 
* 
	EJECT		DRCD01
* 
*   CIO WORK AREAS
* 
DWTCIO	EQU	*-DWCD01	CIO INTRUCTIONS AREA
	CIO	A2,1,CUAD1	CIO ON 1ST UNIT 
	IFT	NUNITS=2 
	CIO	A2,1,CUAD2	CIO ON 2ND UNIT 
	XIF
DWTSEK	EQU	*-DWCD01	SEEK OPERATION AREA 
	DATA	SEEKCO
DWTSEZ	EQU	*-DWCD01	SEEK TO ZERO OPERATION AREA 
	DATA	SEZCOM
DWTWHA	EQU	*-DWCD01	WRITE HOME ADDRESS AND SECTOR MARK
	DATA	WHACOM
	DATA	PHSECL
	DATA	WHACOM+1
	DATA	PHSECL
	DATA	WHACOM+2
	DATA	PHSECL
	DATA	WHACOM+3
	DATA	PHSECL
	DATA	WHACOM+/804	INTERRUPT BIT SET 
	DATA	PHSECL
DWTCOP	EQU	*-DWCD01	CIO WORK AREA 
	DATA	0,0,0,0 
	DATA	0,0,0,0 
* 
	EJECT		DRCD01
* 
* 
DWTCYL	EQU	*-DWCD01	PRESENT CYLINDER NUMBER 
	DATA	/FFFF	UNIT 1
	IFT	NUNITS=2 
	DATA	/FFFF	UNIT 2
	XIF
	DATA	0,0 
	DATA	0,0 
	DATA	0,0 
DWTSB3	EQU	*-DWCD01-2	STACK 
	IFT	RAW=1
DWTRAW	EQU	*-DWCD01	READ AFTER WRITE SAVE AREA
	DATA	0,0,0,0 
	IFT	MMUPAG=1 
	DATA	0 
	XIF
	IFT	MMUPAG=1 
ECBCD1	EQU	*
	DATA	0,0,0,0,0,0,0 
	XIF
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRCD01  REL 10.0 80-04-10 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0088              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0056}
0x0088…0092              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00ba              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0096}
0x00ba…00c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x00c4…0100              Head {h00=0x0038, h01=0x0050, text=»*   DRCD01 = DRIVER FOR ONE/TWO DISC UNITS PTS 6877 «, t00=0x0000, t01=0x00c8}
0x0100…010a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…011e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0128              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0132              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012c}
0x0132…013c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…0146              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0140}
0x0146…0180              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x014a}
0x0180…018a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0184}
0x018a…0194              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018e}
0x0194…01c8              Head {h00=0x0030, h01=0x0050, text=»*   THIS DISC DRIVER HANDLES UP TO TWO DISC «, t00=0x0001, t01=0x0008}
0x01c8…01f8              Head {h00=0x002c, h01=0x0050, text=»*   DRIVES PTS 6877 CONNECTED TO CPU VIA«, t00=0x0001, t01=0x003c}
0x01f8…0218              Head {h00=0x001c, h01=0x0050, text=»*   BUILT IN DMA CHANNEL«, t00=0x0001, t01=0x006c}
0x0218…0222              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008c}
0x0222…022c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x022c…025a              Head {h00=0x002a, h01=0x0050, text=»*   THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0001, t01=0x00a0}
0x025a…0264              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ce}
0x0264…0282              Head {h00=0x001a, h01=0x0050, text=»*   /00    TEST STATUS«, t00=0x0001, t01=0x00d8}
0x0282…02a0              Head {h00=0x001a, h01=0x0050, text=»*   /01    BASIC READ «, t00=0x0001, t01=0x00f6}
0x02a0…02be              Head {h00=0x001a, h01=0x0050, text=»*   /05    BASIC WRITE«, t00=0x0001, t01=0x0114}
0x02be…02de              Head {h00=0x001c, h01=0x0050, text=»*   /11    PHYSICAL READ«, t00=0x0001, t01=0x0132}
0x02de…0300              Head {h00=0x001e, h01=0x0050, text=»*   /15    PHYSICAL WRITE «, t00=0x0001, t01=0x0152}
0x0300…0320              Head {h00=0x001c, h01=0x0050, text=»*   /1F    FORMAT VOLUME«, t00=0x0001, t01=0x0174}
0x0320…032a (2, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x032a…0340              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0002, t01=0x000e}
0x0340…034a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0024}
0x034a…0354              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0354…0372              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0002, t01=0x0038}
0x0372…0390              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0002, t01=0x0056}
0x0390…03ae              Head {h00=0x001a, h01=0x0050, text=»*   ENTRIES         * «, t00=0x0002, t01=0x0074}
0x03ae…03cc              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0002, t01=0x0092}
0x03cc…03ea              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0002, t01=0x00b0}
0x03ea…03f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ce}
0x03f4…041e              Head {h00=0x0026, h01=0x0050, text=» ENTRY CDADR DRIVER ADDRESS BLOCK «, t00=0x0002, t01=0x00d8}
0x041e…0442              Head {h00=0x0020, h01=0x0050, text=» ENTRY CDON RECOVERY ROUTINE«, t00=0x0002, t01=0x0102}
0x0442…0468              Head {h00=0x0022, h01=0x0050, text=» ENTRY IHCD INTERRUPT ROUTINE «, t00=0x0002, t01=0x0126}
0x0468…048a              Head {h00=0x001e, h01=0x0050, text=» ENTRY DWCD01 DWT ADDRESS «, t00=0x0002, t01=0x014c}
0x048a…0494              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016e}
0x0494…04aa              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0002, t01=0x0178}
0x04aa…04b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018e}
0x04b4…04be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0008}
0x04be…04d4              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0012}
0x04d4…04ea              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x0028}
0x04ea…0500              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x003e}
0x0500…050a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0054}
0x050a…0514              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005e}
0x0514…0534              Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x0068}
0x0534…0552              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0003, t01=0x0088}
0x0552…0584              Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK«, t00=0x0003, t01=0x00a6}
0x0584…05b4              Head {h00=0x002c, h01=0x0050, text=» EXTRN NVLCHK CHECK IF NEW VOLUME LOADED«, t00=0x0003, t01=0x00d8}
0x05b4…05e8              Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET PUT VOLUME NAME IN DWT SET NVL«, t00=0x0003, t01=0x0108}
0x05e8…0622              Head {h00=0x0036, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME FROM DWT TO USER BUFFER «, t00=0x0003, t01=0x013c}
0x0622…0652              Head {h00=0x002c, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT «, t00=0x0003, t01=0x0176}
0x0652…0684              Head {h00=0x002e, h01=0x0050, text=» EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS «, t00=0x0004, t01=0x0016}
0x0684…06a8              Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x0048}
0x06a8…06d2              Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0004, t01=0x006c}
0x06d2…0700              Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0004, t01=0x0096}
0x0700…072e              Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0004, t01=0x00c4}
0x072e…074a              Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0004, t01=0x00f2}
0x074a…0760              Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:MT «, t00=0x0004, t01=0x010e}
0x0760…077c              Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0004, t01=0x0124}
0x077c…079e              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0004, t01=0x0140}
0x079e…07c6              Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0004, t01=0x0162}
0x07c6…07e8              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0004, t01=0x018a}
0x07e8…080a              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0005, t01=0x001c}
0x080a…0834              Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTORD SAVE AREA FOR ORDER «, t00=0x0005, t01=0x003e}
0x0834…085c              Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x0068}
0x085c…0886              Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0005, t01=0x0090}
0x0886…08b0              Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0005, t01=0x00ba}
0x08b0…08d4              Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0005, t01=0x00e4}
0x08d4…0900              Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW1 ECB 1:ST CONTROL WORD «, t00=0x0005, t01=0x0108}
0x0900…092c              Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW2 ECB 2:ND CONTROL WORD «, t00=0x0005, t01=0x0134}
0x092c…0936              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0160}
0x0936…094c              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0005, t01=0x016a}
0x094c…0956              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0180}
0x0956…0960              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018a}
0x0960…0982 (6, 0, 400)  Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0006, t01=0x0004}
0x0982…09a4              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0006, t01=0x0026}
0x09a4…09c6              Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  *«, t00=0x0006, t01=0x0048}
0x09c6…09e8              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0006, t01=0x006a}
0x09e8…0a0a              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0006, t01=0x008c}
0x0a0a…0a14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ae}
0x0a14…0a1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b8}
0x0a1e…0a58              Head {h00=0x0036, h01=0x0050, text=»*   READ AFTER WRITE MAY BE INCLUDED FOR ORDER /15«, t00=0x0006, t01=0x00c2}
0x0a58…0a76              Head {h00=0x001a, h01=0x0050, text=»*   BY SETTING X:B = 1«, t00=0x0006, t01=0x00fc}
0x0a76…0a80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011a}
0x0a80…0a92              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0006, t01=0x0124}
0x0a92…0aa6              Head {h00=0x0010, h01=0x0050, text=»RAW EQU X:B «, t00=0x0006, t01=0x0136}
0x0aa6…0ab0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014a}
0x0ab0…0aba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0154}
0x0aba…0aec              Head {h00=0x002e, h01=0x0050, text=»*   THIS DRIVER CAN HANDLE TWO DISC UNITS «, t00=0x0006, t01=0x015e}
0x0aec…0b04              Head {h00=0x0014, h01=0x0050, text=»*   IF X:A := 2 «, t00=0x0006, t01=0x0190}
0x0b04…0b0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0018}
0x0b0e…0b20              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x0022}
0x0b20…0b36              Head {h00=0x0012, h01=0x0050, text=»NUNITS EQU X:A«, t00=0x0007, t01=0x0034}
0x0b36…0b40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004a}
0x0b40…0b4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0054}
0x0b4a…0b7c              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0007, t01=0x005e}
0x0b7c…0baa              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x0090}
0x0baa…0bb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00be}
0x0bb4…0bc8              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0007, t01=0x00c8}
0x0bc8…0bd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00dc}
0x0bd2…0be6              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0007, t01=0x00e6}
0x0be6…0bf0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fa}
0x0bf0…0c06              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0007, t01=0x0104}
0x0c06…0c10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011a}
0x0c10…0c32              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0007, t01=0x0124}
0x0c32…0c54              Head {h00=0x001e, h01=0x0050, text=»*                       * «, t00=0x0007, t01=0x0146}
0x0c54…0c76              Head {h00=0x001e, h01=0x0050, text=»*   CONSTANTS           * «, t00=0x0007, t01=0x0168}
0x0c76…0c98              Head {h00=0x001e, h01=0x0050, text=»*                       * «, t00=0x0007, t01=0x018a}
0x0c98…0cba              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0008, t01=0x001c}
0x0cba…0cc4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cc4…0cee              Head {h00=0x0026, h01=0x0050, text=»CUADR EQU /17 CONTROL UNIT ADDRESS«, t00=0x0008, t01=0x0048}
0x0cee…0d14              Head {h00=0x0022, h01=0x0050, text=»CUAD1 EQU CUADR ADDRESS UNIT 1«, t00=0x0008, t01=0x0072}
0x0d14…0d3e              Head {h00=0x0026, h01=0x0050, text=»CUAD2 EQU CUADR+/20 ADDRESS UNIT 2«, t00=0x0008, t01=0x0098}
0x0d3e…0d60              Head {h00=0x001e, h01=0x0050, text=»DEVIND EQU 10 DEVICE INDEX«, t00=0x0008, t01=0x00c2}
0x0d60…0d7c              Head {h00=0x0018, h01=0x0050, text=»RY3 EQU 3 3 RETRIES «, t00=0x0008, t01=0x00e4}
0x0d7c…0daa              Head {h00=0x002a, h01=0x0050, text=»PHSECL EQU /180 PHYSICAL SECTOR LENGTH«, t00=0x0008, t01=0x0100}
0x0daa…0dd6              Head {h00=0x0028, h01=0x0050, text=»LOSECL EQU /80 LOGICAL SECTOR LENGTH«, t00=0x0008, t01=0x012e}
0x0dd6…0e06              Head {h00=0x002c, h01=0x0050, text=»SEZCOM EQU /E800 SEEK ZERO COMMAND CODE «, t00=0x0008, t01=0x015a}
0x0e06…0e30              Head {h00=0x0026, h01=0x0050, text=»SEEKCO EQU /A800 SEEK COMMAND CODE«, t00=0x0008, t01=0x018a}
0x0e30…0e5a              Head {h00=0x0026, h01=0x0050, text=»REDCOM EQU /0800 READ COMMAND CODE«, t00=0x0009, t01=0x0024}
0x0e5a…0e86              Head {h00=0x0028, h01=0x0050, text=»VERCOM EQU /3800 VERIFY COMMAND CODE«, t00=0x0009, t01=0x004e}
0x0e86…0eb2              Head {h00=0x0028, h01=0x0050, text=»WRICOM EQU /1800 WRITE COMMAND CODE «, t00=0x0009, t01=0x007a}
0x0eb2…0eea              Head {h00=0x0034, h01=0x0050, text=»WHACOM EQU /22C0 WRITE SECTOR MARKS COMMAND CODE«, t00=0x0009, t01=0x00a6}
0x0eea…0f10              Head {h00=0x0022, h01=0x0050, text=»TIME EQU 1000 1 MIN 40 SECONDS«, t00=0x0009, t01=0x00de}
0x0f10…0f3e              Head {h00=0x002a, h01=0x0050, text=»MAXCYL EQU 822 MAXIMAL CYLINDER NUMBER«, t00=0x0009, t01=0x0104}
0x0f3e…0f62              Head {h00=0x0020, h01=0x0050, text=»MAXSE1 EQU 8 MAXIMAL NUMBER «, t00=0x0009, t01=0x0132}
0x0f62…0f86              Head {h00=0x0020, h01=0x0050, text=»MAXSE2 EQU /53C6 OF SECTORS «, t00=0x0009, t01=0x0156}
0x0f86…0fae              Head {h00=0x0024, h01=0x0050, text=»INLACE EQU 5 INTERLACING FACTOR «, t00=0x0009, t01=0x017a}
0x0fae…0fb8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb8…0fce              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x000a, t01=0x001c}
0x0fce…0fd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0032}
0x0fd8…0fe2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003c}
0x0fe2…1002              Head {h00=0x001c, h01=0x0050, text=»*   DRIVER ADDRESS BLOCK«, t00=0x000a, t01=0x0046}
0x1002…100c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0066}
0x100c…1016              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0070}
0x1016…103e              Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDICATES NO MMU BUFFER «, t00=0x000a, t01=0x007a}
0x103e…1064              Head {h00=0x0022, h01=0x0050, text=» DATA DEVIND DISC DEVICE INDEX«, t00=0x000a, t01=0x00a2}
0x1064…108e              Head {h00=0x0026, h01=0x0050, text=»CDADR DATA CDAD ACTIVATION ADDRESS«, t00=0x000a, t01=0x00c8}
0x108e…10b4              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000a, t01=0x00f2}
0x10b4…10be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0118}
0x10be…10c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0122}
0x10c8…10d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012c}
0x10d2…10ec              Head {h00=0x0016, h01=0x0050, text=»*   DRIVER BUFFER «, t00=0x000a, t01=0x0136}
0x10ec…10f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0150}
0x10f6…1100              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015a}
0x1100…1114              Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x000a, t01=0x0164}
0x1114…1124              Head {h00=0x000c, h01=0x0050, text=» RES 256«, t00=0x000a, t01=0x0178}
0x1124…112e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0188}
0x112e…1144 (11, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x000b, t01=0x0004}
0x1144…114e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001a}
0x114e…1158              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0024}
0x1158…117c              Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000b, t01=0x002e}
0x117c…11a0              Head {h00=0x0020, h01=0x0050, text=»*                          *«, t00=0x000b, t01=0x0052}
0x11a0…11c4              Head {h00=0x0020, h01=0x0050, text=»*   ACTIVATION             *«, t00=0x000b, t01=0x0076}
0x11c4…11e8              Head {h00=0x0020, h01=0x0050, text=»*                          *«, t00=0x000b, t01=0x009a}
0x11e8…120c              Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x000b, t01=0x00be}
0x120c…1216              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e2}
0x1216…1228              Head {h00=0x000e, h01=0x0050, text=»CDAD EQU *«, t00=0x000b, t01=0x00ec}
0x1228…123e              Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB3«, t00=0x000b, t01=0x00fe}
0x123e…1260              Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x000b, t01=0x0114}
0x1260…1294              Head {h00=0x0030, h01=0x0050, text=» LD A4,DWTRE1,A6 GET GRAND TOTAL OF RETRIES «, t00=0x000b, t01=0x0136}
0x1294…12c8              Head {h00=0x0030, h01=0x0050, text=» ST A4,DWTRE2,A6 PRESENT TOTAL RETRY COUNTER«, t00=0x000b, t01=0x016a}
0x12c8…12fa              Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x000c, t01=0x000e}
0x12fa…131a              Head {h00=0x001c, h01=0x0050, text=»*   SAVE INDEX AND ORDER«, t00=0x000c, t01=0x0040}
0x131a…1332              Head {h00=0x0014, h01=0x0050, text=» ADK A7,0 SET CR«, t00=0x000c, t01=0x0060}
0x1332…135e              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CDA:00 NOT TEST STATUS ORDER«, t00=0x000c, t01=0x0078}
0x135e…1368              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a4}
0x1368…137e              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x000c, t01=0x00ae}
0x137e…1388              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c4}
0x1388…1392              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ce}
0x1392…13b0              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000c, t01=0x00d8}
0x13b0…13ce              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x000c, t01=0x00f6}
0x13ce…13ec              Head {h00=0x001a, h01=0x0050, text=»*   TEST STATUS     * «, t00=0x000c, t01=0x0114}
0x13ec…140a              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x000c, t01=0x0132}
0x140a…1428              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000c, t01=0x0150}
0x1428…1432              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016e}
0x1432…143c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0178}
0x143c…145c              Head {h00=0x001c, h01=0x0050, text=» ORS A1,ECBRC,A8 NVL BIT«, t00=0x000c, t01=0x0182}
0x145c…1486              Head {h00=0x0026, h01=0x0050, text=» IM DWTSAV,A6 INDICATE TEST STATUS«, t00=0x000d, t01=0x0012}
0x1486…14ac              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x000d, t01=0x003c}
0x14ac…14be              Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x000d, t01=0x0062}
0x14be…14e2              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TESEND NOT OPERABLE «, t00=0x000d, t01=0x0074}
0x14e2…1506              Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x000d, t01=0x0098}
0x1506…1540              Head {h00=0x0036, h01=0x0050, text=» CF A15,VOLNAM TRANSFER VOLUME NAME TO USER BUFFER«, t00=0x000d, t01=0x00bc}
0x1540…1564              Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x000d, t01=0x00f6}
0x1564…1578              Head {h00=0x0010, h01=0x0050, text=»TESEND EQU *«, t00=0x000d, t01=0x011a}
0x1578…159e              Head {h00=0x0022, h01=0x0050, text=» CM DWTSAV,A6 TEST STATUS DONE«, t00=0x000d, t01=0x012e}
0x159e…15be              Head {h00=0x001c, h01=0x0050, text=» RF DENDIO PERFORM ENDIO«, t00=0x000d, t01=0x0154}
0x15be…15c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0174}
0x15c8…15e0              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRCD01 «, t00=0x000d, t01=0x017e}
0x15e0…15ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15ea…161a              Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000e, t01=0x0012}
0x161a…164a              Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x000e, t01=0x0042}
0x164a…167a              Head {h00=0x002c, h01=0x0050, text=»*   NEW VOLUME LOADED CHECK           * «, t00=0x000e, t01=0x0072}
0x167a…16aa              Head {h00=0x002c, h01=0x0050, text=»*   ORDER CODE CHECK                  * «, t00=0x000e, t01=0x00a2}
0x16aa…16da              Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x000e, t01=0x00d2}
0x16da…170a              Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000e, t01=0x0102}
0x170a…1714              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0132}
0x1714…1746              Head {h00=0x002e, h01=0x0050, text=»*   INPUT: A1=NVL RETURN CODE FROM NVLCHK «, t00=0x000e, t01=0x013c}
0x1746…1766              Head {h00=0x001c, h01=0x0050, text=»*          A7=ORDER CODE«, t00=0x000e, t01=0x016e}
0x1766…1770              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018e}
0x1770…177a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0008}
0x177a…178e              Head {h00=0x0010, h01=0x0050, text=»CDA:00 EQU *«, t00=0x000f, t01=0x0012}
0x178e…17ba              Head {h00=0x0028, h01=0x0050, text=» ADK A1,0 CHECK IF NEW VOLUME LOADED«, t00=0x000f, t01=0x0026}
0x17ba…17de              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DENDIO PERFORM ENDIO«, t00=0x000f, t01=0x0052}
0x17de…17f0              Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x000f, t01=0x0076}
0x17f0…1810              Head {h00=0x001c, h01=0x0050, text=» RF(Z) CD:010 BASIC READ«, t00=0x000f, t01=0x0088}
0x1810…1822              Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x000f, t01=0x00a8}
0x1822…1844              Head {h00=0x001e, h01=0x0050, text=» RF(Z) CD:000 BASIC WRITE «, t00=0x000f, t01=0x00ba}
0x1844…1858              Head {h00=0x0010, h01=0x0050, text=» SUK A7,12  «, t00=0x000f, t01=0x00dc}
0x1858…187c              Head {h00=0x0020, h01=0x0050, text=» RF(Z) CD:010 PHYSICAL READ «, t00=0x000f, t01=0x00f0}
0x187c…188e              Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x000f, t01=0x0114}
0x188e…18b2              Head {h00=0x0020, h01=0x0050, text=» RF(Z) CD:000 PHYSICAL WRITE«, t00=0x000f, t01=0x0126}
0x18b2…18c4              Head {h00=0x000e, h01=0x0050, text=» SUK A7,10«, t00=0x000f, t01=0x014a}
0x18c4…18e8              Head {h00=0x0020, h01=0x0050, text=» RF(Z) FORMAT FORMAT VOLUME «, t00=0x000f, t01=0x015c}
0x18e8…18f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0180}
0x18f2…1918              Head {h00=0x0022, h01=0x0050, text=»DUERR ABL DISIOE REQUEST ERROR«, t00=0x000f, t01=0x018a}
0x1918…1922              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0020}
0x1922…194e              Head {h00=0x0028, h01=0x0050, text=»INCLEN EQU * REQUESTED LENGTH ERROR «, t00=0x0010, t01=0x002a}
0x194e…1964              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8008«, t00=0x0010, t01=0x0056}
0x1964…1978              Head {h00=0x0010, h01=0x0050, text=»DENDIO EQU *«, t00=0x0010, t01=0x006c}
0x1978…198c              Head {h00=0x0010, h01=0x0050, text=» ABL END:IO «, t00=0x0010, t01=0x0080}
0x198c…1996              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0094}
0x1996…19a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009e}
0x19a0…19b6              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0010, t01=0x00a8}
0x19b6…19c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00be}
0x19c0…19ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c8}
0x19ca…19f4              Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0010, t01=0x00d2}
0x19f4…1a1e              Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0010, t01=0x00fc}
0x1a1e…1a48              Head {h00=0x0026, h01=0x0050, text=»*   FORMAT VOLUME               * «, t00=0x0010, t01=0x0126}
0x1a48…1a72              Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0010, t01=0x0150}
0x1a72…1a9c              Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0010, t01=0x017a}
0x1a9c…1aa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0014}
0x1aa6…1ab0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001e}
0x1ab0…1ac4              Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0011, t01=0x0028}
0x1ac4…1af0              Head {h00=0x0028, h01=0x0050, text=» LDKL A1,SEEKCO SEEK OPERATION CODE «, t00=0x0011, t01=0x003c}
0x1af0…1b20              Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTSEK,A6 TO SEEK OPERATION AREA «, t00=0x0011, t01=0x0068}
0x1b20…1b40              Head {h00=0x001c, h01=0x0050, text=» CF A5,SEEKZ CYLINDER 0 «, t00=0x0011, t01=0x0098}
0x1b40…1b52              Head {h00=0x000e, h01=0x0050, text=» RF FOR:50«, t00=0x0011, t01=0x00b8}
0x1b52…1b66              Head {h00=0x0010, h01=0x0050, text=»FOR:10 EQU *«, t00=0x0011, t01=0x00ca}
0x1b66…1b7a              Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0011, t01=0x00de}
0x1b7a…1b8e              Head {h00=0x0010, h01=0x0050, text=»FOR:50 EQU *«, t00=0x0011, t01=0x00f2}
0x1b8e…1bb6              Head {h00=0x0024, h01=0x0050, text=» CF A5,HOMEAD WRITE SECTOR MARKS«, t00=0x0011, t01=0x0106}
0x1bb6…1bda              Head {h00=0x0020, h01=0x0050, text=» IM DWTSEK,A6 NEXT CYLINDER «, t00=0x0011, t01=0x012e}
0x1bda…1bf2              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTSEK,A6«, t00=0x0011, t01=0x0152}
0x1bf2…1c36              Head {h00=0x0040, h01=0x0050, text=» SUKL A1,SEEKCO+MAXCYL SEEK ORDER CODE + MAX CYLINDER NUMBER«, t00=0x0011, t01=0x016a}
0x1c36…1c5a              Head {h00=0x0020, h01=0x0050, text=» RB(NZ) FOR:10 NEXT CYLINDER«, t00=0x0012, t01=0x001e}
0x1c5a…1c78              Head {h00=0x001a, h01=0x0050, text=» LDKL A2,MAXCYL-1 821 «, t00=0x0012, t01=0x0042}
0x1c78…1c8e              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0012, t01=0x0060}
0x1c8e…1cb6              Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTCYL,A6 CYLINDER NUMBER«, t00=0x0012, t01=0x0076}
0x1cb6…1cc2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x009e}
0x1cc2…1cd8              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0012, t01=0x00aa}
0x1cd8…1cee              Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0012, t01=0x00c0}
0x1cee…1d16              Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTCYL,A4 CYLINDER NUMBER«, t00=0x0012, t01=0x00d6}
0x1d16…1d22              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x00fe}
0x1d22…1d42              Head {h00=0x001c, h01=0x0050, text=» RB DENDIO PERFORM ENDIO«, t00=0x0012, t01=0x010a}
0x1d42…1d4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x012a}
0x1d4c…1d62              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0012, t01=0x0134}
0x1d62…1d6c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x014a}
0x1d6c…1d76              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0154}
0x1d76…1daa              Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0012, t01=0x015e}
0x1daa…1dde (19, 0, 400) Head {h00=0x0030, h01=0x002c, text=»*                                          *«, t00=0x0013, t01=0x0004}
0x1dde…1e12              Head {h00=0x0030, h01=0x002c, text=»*   INPUT ECB-PARAMETER CHECK              *«, t00=0x0013, t01=0x0038}
0x1e12…1e46              Head {h00=0x0030, h01=0x002c, text=»*                                          *«, t00=0x0013, t01=0x006c}
0x1e46…1e7a              Head {h00=0x0030, h01=0x002c, text=»********************************************«, t00=0x0013, t01=0x00a0}
0x1e7a…1e84              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00d4}
0x1e84…1e8e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00de}
0x1e8e…1ea2              Head {h00=0x0010, h01=0x0050, text=»CD:000 EQU *«, t00=0x0013, t01=0x00e8}
0x1ea2…1ec2              Head {h00=0x001c, h01=0x0050, text=» LDK A7,5 INDICATE WRITE«, t00=0x0013, t01=0x00fc}
0x1ec2…1ed6              Head {h00=0x0010, h01=0x0050, text=»CD:010 EQU *«, t00=0x0013, t01=0x011c}
0x1ed6…1f00              Head {h00=0x0026, h01=0x0050, text=» ML 2,ECBCW1,A8 GET SECTOR NUMBER «, t00=0x0013, t01=0x0130}
0x1f00…1f2a              Head {h00=0x0026, h01=0x0050, text=» DSK MAXSE1,MAXSE2 DECIMAL 283590 «, t00=0x0013, t01=0x015a}
0x1f2a…1f40              Head {h00=0x0012, h01=0x0050, text=» RB(NN) DUERR «, t00=0x0013, t01=0x0184}
0x1f40…1f60              Head {h00=0x001c, h01=0x0018, text=» LDK A2,0 CLEAR REGISTER«, t00=0x0014, t01=0x000a}
0x1f60…1f8c              Head {h00=0x0028, h01=0x0024, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0014, t01=0x002a}
0x1f8c…1fb4              Head {h00=0x0024, h01=0x0050, text=» RB(Z) INCLEN INCORRECT REQUEST «, t00=0x0014, t01=0x0056}
0x1fb4…1fd4              Head {h00=0x001c, h01=0x0018, text=» ECR A2,A1 DIVIDE BY 256«, t00=0x0014, t01=0x007e}
0x1fd4…1ffc              Head {h00=0x0024, h01=0x001f, text=» ANK A1,/FF REST AFTER DIVISION «, t00=0x0014, t01=0x009e}
0x1ffc…2024              Head {h00=0x0024, h01=0x0050, text=» RB(NZ) INCLEN INCORRECT REQUEST«, t00=0x0014, t01=0x00c6}
0x2024…205c              Head {h00=0x0034, h01=0x002f, text=» ST A2,DWTLOS,A6 SAVE NUMBER OF LOGICAL SECTORS «, t00=0x0014, t01=0x00ee}
0x205c…2088              Head {h00=0x0028, h01=0x0023, text=» DA ECBCW1,A8 LOGICAL SECTOR NUMBER «, t00=0x0014, t01=0x0126}
0x2088…20b2              Head {h00=0x0026, h01=0x0050, text=» DSK MAXSE1,MAXSE2 DECIMAL 283590 «, t00=0x0014, t01=0x0152}
0x20b2…20da              Head {h00=0x0024, h01=0x0050, text=» RB(P) INCLEN INCORRECT REQUEST «, t00=0x0014, t01=0x017c}
0x20da…20e4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0014}
0x20e4…20fa              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0015, t01=0x001e}
0x20fa…2104              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0034}
0x2104…210e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x003e}
0x210e…2134              Head {h00=0x0022, h01=0x001e, text=»*   GET PHYSICAL SECTOR NUMBER«, t00=0x0015, t01=0x0048}
0x2134…2152              Head {h00=0x001a, h01=0x0050, text=»*   GET BUFFER ADDRESS«, t00=0x0015, t01=0x006e}
0x2152…2172              Head {h00=0x001c, h01=0x0050, text=»*   PREPARE SECTOR MASK «, t00=0x0015, t01=0x008c}
0x2172…217c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00ac}
0x217c…2186              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00b6}
0x2186…219c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0015, t01=0x00c0}
0x219c…21ce              Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBBA,A8 GET 16 BIT BUFFER ADDRESS «, t00=0x0015, t01=0x00d6}
0x21ce…21e6              Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTBA,A6 «, t00=0x0015, t01=0x0108}
0x21e6…21f2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0120}
0x21f2…2208              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0015, t01=0x012c}
0x2208…2234              Head {h00=0x0028, h01=0x0050, text=» MLR 2,A8 GET 18 BIT BUFFER ADDRESS «, t00=0x0015, t01=0x0142}
0x2234…225c              Head {h00=0x0024, h01=0x0050, text=» SLC A1,4 MOST SIGNIFICANT BITS «, t00=0x0015, t01=0x016e}
0x225c…226e              Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0016, t01=0x0008}
0x226e…2280              Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x0016, t01=0x001a}
0x2280…2296              Head {h00=0x0012, h01=0x0050, text=» MS 2,DWTBA,A6«, t00=0x0016, t01=0x002c}
0x2296…22a2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0042}
0x22a2…22d4              Head {h00=0x002e, h01=0x0029, text=» ML 2,ECBCW1,A8 GET LOGICAL SECTOR NUMBER «, t00=0x0016, t01=0x004e}
0x22d4…2300              Head {h00=0x0028, h01=0x0050, text=» LDK A3,0 DIVIDE MOST SIGN PART BY 3«, t00=0x0016, t01=0x0080}
0x2300…2314              Head {h00=0x0010, h01=0x0050, text=»CD:100 EQU *«, t00=0x0016, t01=0x00ac}
0x2314…2326              Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0016, t01=0x00c0}
0x2326…2338              Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0016, t01=0x00d2}
0x2338…234e              Head {h00=0x0012, h01=0x0050, text=» RB(NN) CD:100«, t00=0x0016, t01=0x00e4}
0x234e…2360              Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x0016, t01=0x00fa}
0x2360…2372              Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x010c}
0x2372…23a2              Head {h00=0x002c, h01=0x0050, text=» ST A3,DWTSEC,A6 PHYSICAL SECTOR NUMBER «, t00=0x0016, t01=0x011e}
0x23a2…23bc              Head {h00=0x0016, h01=0x0050, text=» DVK 3 DIVIDE BY 3«, t00=0x0016, t01=0x014e}
0x23bc…23ee              Head {h00=0x002e, h01=0x0050, text=» ST A2,DWTSEC+2,A6 LEAST SIGNIFICANT PART «, t00=0x0016, t01=0x0168}
0x23ee…2414              Head {h00=0x0022, h01=0x0050, text=» CF A5,MASKPR PREPARE IO MASK «, t00=0x0017, t01=0x000a}
0x2414…2432              Head {h00=0x001a, h01=0x0050, text=» ANK A7,4 ORDER CHECK «, t00=0x0017, t01=0x0030}
0x2432…2452              Head {h00=0x001c, h01=0x0050, text=» RF(Z) REA:00 READ ORDER«, t00=0x0017, t01=0x004e}
0x2452…2468              Head {h00=0x0012, h01=0x000e, text=» EJECT  DRCD01«, t00=0x0017, t01=0x006e}
0x2468…2472              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0084}
0x2472…247c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x008e}
0x247c…24a4              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0017, t01=0x0098}
0x24a4…24cc              Head {h00=0x0024, h01=0x0050, text=»*                              *«, t00=0x0017, t01=0x00c0}
0x24cc…24f4              Head {h00=0x0024, h01=0x0050, text=»*   WRITE SECTORS              *«, t00=0x0017, t01=0x00e8}
0x24f4…251c              Head {h00=0x0024, h01=0x0050, text=»*                              *«, t00=0x0017, t01=0x0110}
0x251c…2544              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0017, t01=0x0138}
0x2544…254e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0160}
0x254e…2558              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016a}
0x2558…257c              Head {h00=0x0020, h01=0x0050, text=» LD A3,DWTMAS,A6 SECTOR MASK«, t00=0x0017, t01=0x0174}
0x257c…258e              Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x0018, t01=0x0008}
0x258e…25ba              Head {h00=0x0028, h01=0x0050, text=» RF(Z) WRI:50 TOTAL PHYSICAL SECTOR «, t00=0x0018, t01=0x001a}
0x25ba…25ce              Head {h00=0x0010, h01=0x0050, text=»WRI:10 EQU *«, t00=0x0018, t01=0x0046}
0x25ce…260e              Head {h00=0x003c, h01=0x0050, text=» ML 3,DWTBSE,A6 GET IDENTITY OF SECTORS IN DRIVER BUFFER«, t00=0x0018, t01=0x005a}
0x260e…2636              Head {h00=0x0024, h01=0x0050, text=» OR A3,DWTMAS,A6 GET SECTOR MASK«, t00=0x0018, t01=0x009a}
0x2636…2648              Head {h00=0x000e, h01=0x0050, text=» SUK A3,7 «, t00=0x0018, t01=0x00c2}
0x2648…267c              Head {h00=0x0030, h01=0x0050, text=» RF(NZ) WRI:20 NOT COMPLETE PHYSICAL SECTOR «, t00=0x0018, t01=0x00d4}
0x267c…26a4              Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTOR,A6 GET UNIT NUMBER «, t00=0x0018, t01=0x0108}
0x26a4…26ba              Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/100 «, t00=0x0018, t01=0x0130}
0x26ba…26cc              Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x0018, t01=0x0146}
0x26cc…26f0              Head {h00=0x0020, h01=0x0050, text=» DS DWTSEC,A6 SECTOR NUMBER «, t00=0x0018, t01=0x0158}
0x26f0…2726              Head {h00=0x0032, h01=0x0050, text=» RF(Z) WRI:30 CORRECT SECTORS IN DRIVER BUFFER«, t00=0x0018, t01=0x017c}
0x2726…2730              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0022}
0x2730…2746              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0019, t01=0x002c}
0x2746…2750              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0042}
0x2750…275a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004c}
0x275a…276e              Head {h00=0x0010, h01=0x0050, text=»WRI:20 EQU *«, t00=0x0019, t01=0x0056}
0x276e…2798              Head {h00=0x0026, h01=0x0050, text=» IM DWTTRA,A6 INDICATE NO TRANSFER«, t00=0x0019, t01=0x006a}
0x2798…27ca              Head {h00=0x002e, h01=0x0050, text=» CF A5,READ READ SECTORS TO DRIVER BUFFER «, t00=0x0019, t01=0x0094}
0x27ca…27d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c6}
0x27d4…27e8              Head {h00=0x0010, h01=0x0050, text=»WRI:30 EQU *«, t00=0x0019, t01=0x00d0}
0x27e8…2816              Head {h00=0x002a, h01=0x0050, text=» CF A5,WRITE WRITE ONE PHYSICAL SECTOR«, t00=0x0019, t01=0x00e4}
0x2816…2828              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0019, t01=0x0112}
0x2828…284a              Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTOR,A6 GET ORDER «, t00=0x0019, t01=0x0124}
0x284a…285e              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/10 «, t00=0x0019, t01=0x0146}
0x285e…2880              Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRI:35 BASIC WRITE «, t00=0x0019, t01=0x015a}
0x2880…28ae              Head {h00=0x002a, h01=0x0050, text=» CF A5,VERIFY VERIFY IF PHYSICAL WRITE«, t00=0x0019, t01=0x017c}
0x28ae…28c2              Head {h00=0x0010, h01=0x0050, text=»WRI:35 EQU *«, t00=0x001a, t01=0x001a}
0x28c2…28ce              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x002e}
0x28ce…28e4              Head {h00=0x0012, h01=0x0050, text=» CF A5,UPDATE «, t00=0x001a, t01=0x003a}
0x28e4…291a              Head {h00=0x0032, h01=0x0050, text=» LD A1,DWTLOS,A6 GET NUMBER OF LOGICAL SECTORS«, t00=0x001a, t01=0x0050}
0x291a…2940              Head {h00=0x0022, h01=0x0050, text=» RF(Z) REA:50 LAST SECTOR DONE«, t00=0x001a, t01=0x0086}
0x2940…296a              Head {h00=0x0026, h01=0x0050, text=» CF A5,MASK00 PREPARE SECTOR MASK «, t00=0x001a, t01=0x00ac}
0x296a…298c              Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTMAS,A6 GET MASK «, t00=0x001a, t01=0x00d6}
0x298c…299e              Head {h00=0x000e, h01=0x0050, text=» SUK A1,7 «, t00=0x001a, t01=0x00f8}
0x299e…29ca              Head {h00=0x0028, h01=0x0050, text=» RB(NZ) WRI:10 LESS THAN 3 SECTOR IO«, t00=0x001a, t01=0x010a}
0x29ca…29d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0136}
0x29d4…29ea              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x001a, t01=0x0140}
0x29ea…29f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0156}
0x29f4…29fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0160}
0x29fe…2a12              Head {h00=0x0010, h01=0x0050, text=»WRI:50 EQU *«, t00=0x001a, t01=0x016a}
0x2a12…2a24              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001a, t01=0x017e}
0x2a24…2a60              Head {h00=0x0038, h01=0x0050, text=» ML 4,DWTBA,A6 SAVE PARAMETERS FOR READ AFTER WRITE «, t00=0x001a, t01=0x0190}
0x2a60…2a78              Head {h00=0x0014, h01=0x0050, text=» MS 4,DWTRAW,A6 «, t00=0x001b, t01=0x003c}
0x2a78…2a8e              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001b, t01=0x0054}
0x2a8e…2aa8              Head {h00=0x0016, h01=0x0050, text=» LD A1,DWTSEC+2,A6«, t00=0x001b, t01=0x006a}
0x2aa8…2ac2              Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTRAW+8,A6«, t00=0x001b, t01=0x0084}
0x2ac2…2ace              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x009e}
0x2ace…2ae0              Head {h00=0x000e, h01=0x0050, text=» LDK A3,7 «, t00=0x001b, t01=0x00aa}
0x2ae0…2b04              Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTMAS,A6 SECTOR MASK«, t00=0x001b, t01=0x00bc}
0x2b04…2b18              Head {h00=0x0010, h01=0x0050, text=»WRI:55 EQU *«, t00=0x001b, t01=0x00e0}
0x2b18…2b2c              Head {h00=0x0010, h01=0x0050, text=» CF A5,WRITE«, t00=0x001b, t01=0x00f4}
0x2b2c…2b3e              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001b, t01=0x0108}
0x2b3e…2b7a              Head {h00=0x0038, h01=0x0050, text=» IM DWTTRA,A6 INDICATE NO UPDATE OF EFFECTIVE LENGTH«, t00=0x001b, t01=0x011a}
0x2b7a…2b86              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0156}
0x2b86…2b9a              Head {h00=0x0010, h01=0x0050, text=» CF A5,UPDAT«, t00=0x001b, t01=0x0162}
0x2b9a…2bac              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001b, t01=0x0176}
0x2bac…2bc2              Head {h00=0x0012, h01=0x0050, text=» CM DWTTRA,A6 «, t00=0x001b, t01=0x0188}
0x2bc2…2bce              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x000e}
0x2bce…2c00              Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS«, t00=0x001c, t01=0x001a}
0x2c00…2c12              Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x001c, t01=0x004c}
0x2c12…2c3e              Head {h00=0x0028, h01=0x0050, text=» RB(NN) WRI:55 NEXT PHYSICAL SECTOR «, t00=0x001c, t01=0x005e}
0x2c3e…2c50              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001c, t01=0x008a}
0x2c50…2c5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009c}
0x2c5a…2c70              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x001c, t01=0x00a6}
0x2c70…2c7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00bc}
0x2c7a…2c84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c6}
0x2c84…2c9c              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A6 «, t00=0x001c, t01=0x00d0}
0x2c9c…2cb0              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/10 «, t00=0x001c, t01=0x00e8}
0x2cb0…2cd2              Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRI:70 BASIV WRITE «, t00=0x001c, t01=0x00fc}
0x2cd2…2d08              Head {h00=0x0032, h01=0x0050, text=» ML 4,DWTRAW,A6 RESTORE PARAMETERS FOR VERIFY «, t00=0x001c, t01=0x011e}
0x2d08…2d1e              Head {h00=0x0012, h01=0x0050, text=» MS 4,DWTBA,A6«, t00=0x001c, t01=0x0154}
0x2d1e…2d34              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001c, t01=0x016a}
0x2d34…2d4e              Head {h00=0x0016, h01=0x0050, text=» LD A1,DWTRAW+8,A6«, t00=0x001c, t01=0x0180}
0x2d4e…2d68              Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTSEC+2,A6«, t00=0x001d, t01=0x000a}
0x2d68…2d74              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0024}
0x2d74…2d86              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001d, t01=0x0030}
0x2d86…2d9a              Head {h00=0x0010, h01=0x0050, text=»WRI:60 EQU *«, t00=0x001d, t01=0x0042}
0x2d9a…2db0              Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOLOD «, t00=0x001d, t01=0x0056}
0x2db0…2dc6              Head {h00=0x0012, h01=0x0050, text=» CF A5,VERIFY «, t00=0x001d, t01=0x006c}
0x2dc6…2dda              Head {h00=0x0010, h01=0x0050, text=» CF A5,UPDAT«, t00=0x001d, t01=0x0082}
0x2dda…2e0c              Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS«, t00=0x001d, t01=0x0096}
0x2e0c…2e1e              Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x001d, t01=0x00c8}
0x2e1e…2e4a              Head {h00=0x0028, h01=0x0050, text=» RB(NN) WRI:60 NEXT PHYSICAL SECTOR «, t00=0x001d, t01=0x00da}
0x2e4a…2e56              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0106}
0x2e56…2e6a              Head {h00=0x0010, h01=0x0050, text=»WRI:70 EQU *«, t00=0x001d, t01=0x0112}
0x2e6a…2e7c              Head {h00=0x000e, h01=0x0050, text=» ADK A1,3 «, t00=0x001d, t01=0x0126}
0x2e7c…2ea2              Head {h00=0x0022, h01=0x0050, text=» RF(Z) REA:50 LAST SECTOR DONE«, t00=0x001d, t01=0x0138}
0x2ea2…2ecc              Head {h00=0x0026, h01=0x0050, text=» CF A5,MASK00 PREPARE SECTOR MASK «, t00=0x001d, t01=0x015e}
0x2ecc…2eec              Head {h00=0x001c, h01=0x0050, text=» RB WRI:10 LAST SECTORS «, t00=0x001d, t01=0x0188}
0x2eec…2ef6              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x0018}
0x2ef6…2f0c              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x001e, t01=0x0022}
0x2f0c…2f16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0038}
0x2f16…2f20              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f20…2f48              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x001e, t01=0x004c}
0x2f48…2f70              Head {h00=0x0024, h01=0x0050, text=»*                              *«, t00=0x001e, t01=0x0074}
0x2f70…2f98              Head {h00=0x0024, h01=0x0050, text=»*   READ SECTORS               *«, t00=0x001e, t01=0x009c}
0x2f98…2fc0              Head {h00=0x0024, h01=0x0050, text=»*                              *«, t00=0x001e, t01=0x00c4}
0x2fc0…2fe8              Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x001e, t01=0x00ec}
0x2fe8…2ff2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0114}
0x2ff2…2ffc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x011e}
0x2ffc…3010              Head {h00=0x0010, h01=0x0050, text=»REA:00 EQU *«, t00=0x001e, t01=0x0128}
0x3010…3030              Head {h00=0x001c, h01=0x0050, text=» CF A5,READ PERFORM READ«, t00=0x001e, t01=0x013c}
0x3030…3046              Head {h00=0x0012, h01=0x0050, text=» CF A5,UPDATE «, t00=0x001e, t01=0x015c}
0x3046…3058              Head {h00=0x000e, h01=0x0050, text=» LDK A3,7 «, t00=0x001e, t01=0x0172}
0x3058…307c              Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTMAS,A6 SECTOR MASK«, t00=0x001e, t01=0x0184}
0x307c…30ae              Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTLOS,A6 NUMBER OF LOGICAL SECTORS«, t00=0x001f, t01=0x0018}
0x30ae…30cc              Head {h00=0x001a, h01=0x0050, text=» RF(Z) REA:50 IO READY«, t00=0x001f, t01=0x004a}
0x30cc…30de              Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x001f, t01=0x0068}
0x30de…3112              Head {h00=0x0030, h01=0x0050, text=» RB(NN) REA:00 AT LEAST ONE PHYSICAL SECTOR «, t00=0x001f, t01=0x007a}
0x3112…3128              Head {h00=0x0012, h01=0x0050, text=» CF A5,MASK00 «, t00=0x001f, t01=0x00ae}
0x3128…313c              Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x001f, t01=0x00c4}
0x313c…3152              Head {h00=0x0012, h01=0x0050, text=» CF A5,UPDATE «, t00=0x001f, t01=0x00d8}
0x3152…3176              Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x001f, t01=0x00ee}
0x3176…318a              Head {h00=0x0010, h01=0x0050, text=»REA:50 EQU *«, t00=0x001f, t01=0x0112}
0x318a…31a4              Head {h00=0x0016, h01=0x0050, text=» ABL END:00 END IO«, t00=0x001f, t01=0x0126}
0x31a4…31ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0140}
0x31ae…31c4              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x001f, t01=0x014a}
0x31c4…31ce              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x0160}
0x31ce…31d8              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001f, t01=0x016a}
0x31d8…31f6              Head {h00=0x001a, h01=0x0015, text=»********************* «, t00=0x001f, t01=0x0174}
0x31f6…3214 (32, 0, 400) Head {h00=0x001a, h01=0x0015, text=»*                   * «, t00=0x0020, t01=0x0004}
0x3214…3232              Head {h00=0x001a, h01=0x0015, text=»*   READ SECTOR N   * «, t00=0x0020, t01=0x0022}
0x3232…3250              Head {h00=0x001a, h01=0x0015, text=»*                   * «, t00=0x0020, t01=0x0040}
0x3250…326e              Head {h00=0x001a, h01=0x0015, text=»********************* «, t00=0x0020, t01=0x005e}
0x326e…3278              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0020, t01=0x007c}
0x3278…3282              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0020, t01=0x0086}
0x3282…3294              Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0020, t01=0x0090}
0x3294…32aa              Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOLOD «, t00=0x0020, t01=0x00a2}
0x32aa…32e4              Head {h00=0x0036, h01=0x0050, text=» CM DWTBSE+4,A6 CLEAR BUFFER IND. IN CASE OF ERROR«, t00=0x0020, t01=0x00b8}
0x32e4…3312              Head {h00=0x002a, h01=0x0025, text=» LDKL A3,REDCOM GET READ COMMAND CODE «, t00=0x0020, t01=0x00f2}
0x3312…3342              Head {h00=0x002c, h01=0x0050, text=» ORS A3,DWTCOP,A6 READ A RECORD COMMAND «, t00=0x0020, t01=0x0120}
0x3342…3356              Head {h00=0x0010, h01=0x0050, text=»READ00 EQU *«, t00=0x0020, t01=0x0150}
0x3356…3372              Head {h00=0x0018, h01=0x0050, text=» LDK A4,RY3 RETRIES «, t00=0x0020, t01=0x0164}
0x3372…3398              Head {h00=0x0022, h01=0x001d, text=»READ10 CF A5,CIO EXECUTE READ «, t00=0x0020, t01=0x0180}
0x3398…33aa              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0021, t01=0x0016}
0x33aa…33d2              Head {h00=0x0024, h01=0x001f, text=» RF(Z) RET34 OK. NO RETURN CODE «, t00=0x0021, t01=0x0028}
0x33d2…33dc              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0050}
0x33dc…33fa              Head {h00=0x001a, h01=0x0015, text=»* IO ERROR IN READING «, t00=0x0021, t01=0x005a}
0x33fa…3404              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0078}
0x3404…341a              Head {h00=0x0012, h01=0x0050, text=» IM DWTRE2,A6 «, t00=0x0021, t01=0x0082}
0x341a…3442              Head {h00=0x0024, h01=0x0020, text=» SUK A4,1 DECREMENT RETRYCOUNTER«, t00=0x0021, t01=0x0098}
0x3442…347a              Head {h00=0x0034, h01=0x0050, text=» RB(P) READ10 3:RD RETRY IN THIS STATE NOT DONE «, t00=0x0021, t01=0x00c0}
0x347a…34a2              Head {h00=0x0024, h01=0x001f, text=» LDK A4,RY3 REINIT RETRYCOUNTER «, t00=0x0021, t01=0x00f8}
0x34a2…34ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0120}
0x34ac…34c2              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0021, t01=0x012a}
0x34c2…34cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0140}
0x34cc…34d6              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x014a}
0x34d6…34f4              Head {h00=0x001a, h01=0x0015, text=»* UPDATE READ-COMMAND «, t00=0x0021, t01=0x0154}
0x34f4…34fe              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0021, t01=0x0172}
0x34fe…3508              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x017c}
0x3508…3520              Head {h00=0x0014, h01=0x0010, text=» LC A2,DWTCOP,A6«, t00=0x0021, t01=0x0186}
0x3520…3554              Head {h00=0x0030, h01=0x002b, text=» ANK A2,/C0 LAST RETRY WITH EARLY- OR LATE- «, t00=0x0022, t01=0x000e}
0x3554…3578              Head {h00=0x0020, h01=0x001b, text=» RF(NZ) RET31 DATA STROBE ? «, t00=0x0022, t01=0x0042}
0x3578…35ac              Head {h00=0x0030, h01=0x002c, text=» LDKL A3,/8000 PREPARE FOR EARLY DATA STROBE«, t00=0x0022, t01=0x0066}
0x35ac…35c6              Head {h00=0x0016, h01=0x0011, text=» ORS A3,DWTCOP,A6 «, t00=0x0022, t01=0x009a}
0x35c6…35fe              Head {h00=0x0034, h01=0x002f, text=» RB READ10 RETRY 3 TIMES WITH EARLY DATA STROBE «, t00=0x0022, t01=0x00b4}
0x35fe…3612              Head {h00=0x0010, h01=0x000b, text=»RET31 EQU * «, t00=0x0022, t01=0x00ec}
0x3612…3626              Head {h00=0x0010, h01=0x000b, text=» ANK A2,/80 «, t00=0x0022, t01=0x0100}
0x3626…365e              Head {h00=0x0034, h01=0x002f, text=» RF(Z) RET32 LAST RETRIES WERE LATE DATA STROBE «, t00=0x0022, t01=0x0114}
0x365e…3674              Head {h00=0x0012, h01=0x000e, text=» LDKL A3,/C000«, t00=0x0022, t01=0x014c}
0x3674…36b4              Head {h00=0x003c, h01=0x0038, text=» XRS A3,DWTCOP,A6 CHANGE FROM EARLY- TO LATE DATA STROBE«, t00=0x0022, t01=0x0162}
0x36b4…36ea              Head {h00=0x0032, h01=0x002e, text=» RB READ10 RETRY 3 TIMES WITH LATE DATA STROBE«, t00=0x0023, t01=0x0012}
0x36ea…36fe              Head {h00=0x0010, h01=0x000b, text=»RET32 EQU * «, t00=0x0023, t01=0x0048}
0x36fe…3714              Head {h00=0x0012, h01=0x000e, text=» LDKL A3,/3FFF«, t00=0x0023, t01=0x005c}
0x3714…3744              Head {h00=0x002c, h01=0x0028, text=» ANS A3,DWTCOP,A6 RESET LATE DATA STROBE«, t00=0x0023, t01=0x0072}
0x3744…375e              Head {h00=0x0016, h01=0x0012, text=» LC A2,DWTCOP+2,A6«, t00=0x0023, t01=0x00a2}
0x375e…3794              Head {h00=0x0032, h01=0x002d, text=» ANK A2,/C0 LAST RETRY CARRIAGE+ OR CARRIAGE- «, t00=0x0023, t01=0x00bc}
0x3794…37aa              Head {h00=0x0012, h01=0x000d, text=» RF(NZ) RET33 «, t00=0x0023, t01=0x00f2}
0x37aa…37d6              Head {h00=0x0028, h01=0x0024, text=» LDKL A3,/8000 PREPARE FOR CARRIAGE+«, t00=0x0023, t01=0x0108}
0x37d6…37f2              Head {h00=0x0018, h01=0x0013, text=» ORS A3,DWTCOP+2,A6 «, t00=0x0023, t01=0x0134}
0x37f2…3822              Head {h00=0x002c, h01=0x0027, text=» RB READ10 RETRY 3 TIMES WITH CARRIAGE+ «, t00=0x0023, t01=0x0150}
0x3822…382c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0180}
0x382c…3842              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0023, t01=0x018a}
0x3842…384c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0010}
0x384c…3856              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001a}
0x3856…386a              Head {h00=0x0010, h01=0x000b, text=»RET33 EQU * «, t00=0x0024, t01=0x0024}
0x386a…387e              Head {h00=0x0010, h01=0x000b, text=» ANK A2,/80 «, t00=0x0024, t01=0x0038}
0x387e…38ae              Head {h00=0x002c, h01=0x0050, text=» RF(Z) RET35 LAST RETRY WAS A CARRIAGE- «, t00=0x0024, t01=0x004c}
0x38ae…38c4              Head {h00=0x0012, h01=0x000e, text=» LDKL A3,/C000«, t00=0x0024, t01=0x007c}
0x38c4…3902              Head {h00=0x003a, h01=0x0035, text=» XRS A3,DWTCOP+2,A6 CHANGE FROM CARRIAGE+TO CARRIAGE- «, t00=0x0024, t01=0x0092}
0x3902…3932              Head {h00=0x002c, h01=0x0027, text=» RB READ10 RETRY 3 TIMES WITH CARRIAGE- «, t00=0x0024, t01=0x00d0}
0x3932…3946              Head {h00=0x0010, h01=0x0050, text=»RET35 EQU * «, t00=0x0024, t01=0x0100}
0x3946…395e              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x0024, t01=0x0114}
0x395e…3986              Head {h00=0x0024, h01=0x0050, text=» RB(Z) REA:50 NOT VO:NAM CALLING«, t00=0x0024, t01=0x012c}
0x3986…39aa              Head {h00=0x0020, h01=0x001b, text=»RET34 EQU * NO MORE RETRIES «, t00=0x0024, t01=0x0154}
0x39aa…39ba              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0024, t01=0x0178}
0x39ba…39c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0188}
0x39c4…39da (37, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0025, t01=0x0004}
0x39da…39e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x001a}
0x39e4…39ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0024}
0x39ee…3a10              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0025, t01=0x002e}
0x3a10…3a32              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0025, t01=0x0050}
0x3a32…3a54              Head {h00=0x001e, h01=0x0050, text=»*   WRITE SECTOR N       *«, t00=0x0025, t01=0x0072}
0x3a54…3a76              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0025, t01=0x0094}
0x3a76…3a98              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0025, t01=0x00b6}
0x3a98…3aa2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d8}
0x3aa2…3ab6              Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0025, t01=0x00e2}
0x3ab6…3acc              Head {h00=0x0012, h01=0x0050, text=» CF A5,CIOLOD «, t00=0x0025, t01=0x00f6}
0x3acc…3af4              Head {h00=0x0024, h01=0x0050, text=» LDKL A3,WRICOM WRITE ORDER CODE«, t00=0x0025, t01=0x010c}
0x3af4…3b0e              Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTCOP,A6 «, t00=0x0025, t01=0x0134}
0x3b0e…3b3a              Head {h00=0x0028, h01=0x0050, text=» LDK A4,RY3 RETRIES TO BE PERFORMED «, t00=0x0025, t01=0x014e}
0x3b3a…3b4e              Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x0025, t01=0x017a}
0x3b4e…3b60              Head {h00=0x000e, h01=0x0050, text=» CF A5,CIO«, t00=0x0025, t01=0x018e}
0x3b60…3b72              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0026, t01=0x0010}
0x3b72…3b90              Head {h00=0x001a, h01=0x0050, text=» RF(Z) WRIT50 WRITE OK«, t00=0x0026, t01=0x0022}
0x3b90…3bb6              Head {h00=0x0022, h01=0x0050, text=» IM DWTRE2,A6 RETRY PERFORMED «, t00=0x0026, t01=0x0040}
0x3bb6…3bc8              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0026, t01=0x0066}
0x3bc8…3be4              Head {h00=0x0018, h01=0x0050, text=» RB(NZ) WRIT20 RETRY«, t00=0x0026, t01=0x0078}
0x3be4…3c06              Head {h00=0x001e, h01=0x0050, text=» RB REA:50 NO MORE RETRIES«, t00=0x0026, t01=0x0094}
0x3c06…3c1a              Head {h00=0x0010, h01=0x0050, text=»WRIT50 EQU *«, t00=0x0026, t01=0x00b6}
0x3c1a…3c2a              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0026, t01=0x00ca}
0x3c2a…3c34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00da}
0x3c34…3c46              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0026, t01=0x00e4}
0x3c46…3c5c              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0026, t01=0x00f6}
0x3c5c…3c66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x010c}
0x3c66…3c70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0116}
0x3c70…3c94              Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0026, t01=0x0120}
0x3c94…3cb8              Head {h00=0x0020, h01=0x0050, text=»*                          *«, t00=0x0026, t01=0x0144}
0x3cb8…3cdc              Head {h00=0x0020, h01=0x0050, text=»*   VERIFY SECTOR N        *«, t00=0x0026, t01=0x0168}
0x3cdc…3d00              Head {h00=0x0020, h01=0x0050, text=»*                          *«, t00=0x0026, t01=0x018c}
0x3d00…3d24              Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0027, t01=0x0020}
0x3d24…3d2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0044}
0x3d2e…3d42              Head {h00=0x0010, h01=0x0050, text=»VERIFY EQU *«, t00=0x0027, t01=0x004e}
0x3d42…3d70              Head {h00=0x002a, h01=0x0050, text=» LDKL A3,VERCOM ORDER CODE FOR VERIFY «, t00=0x0027, t01=0x0062}
0x3d70…3d8a              Head {h00=0x0016, h01=0x0050, text=» ORS A3,DWTCOP,A6 «, t00=0x0027, t01=0x0090}
0x3d8a…3d9c              Head {h00=0x000e, h01=0x0050, text=» RB READ00«, t00=0x0027, t01=0x00aa}
0x3d9c…3da6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00bc}
0x3da6…3db2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00c6}
0x3db2…3dc8              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0027, t01=0x00d2}
0x3dc8…3dd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00e8}
0x3dd2…3ddc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f2}
0x3ddc…3e0e              Head {h00=0x002e, h01=0x0050, text=»*   SEEK,SEEKZ,WRITE HOME ADDRESS AND CIO «, t00=0x0027, t01=0x00fc}
0x3e0e…3e18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x012e}
0x3e18…3e22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0138}
0x3e22…3e34              Head {h00=0x000e, h01=0x0050, text=»SEEK EQU *«, t00=0x0027, t01=0x0142}
0x3e34…3e6c              Head {h00=0x0034, h01=0x0050, text=» LDK A2,DWTSEK GET EFFECTIVE ADDRESS TO SEEK OP.«, t00=0x0027, t01=0x0154}
0x3e6c…3e7e              Head {h00=0x000e, h01=0x0050, text=» RF EXCIO «, t00=0x0027, t01=0x018c}
0x3e7e…3e88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x000e}
0x3e88…3e92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0018}
0x3e92…3ea6              Head {h00=0x0010, h01=0x0050, text=»SEEKZ EQU * «, t00=0x0028, t01=0x0022}
0x3ea6…3ee0              Head {h00=0x0036, h01=0x0050, text=» LDK A2,DWTSEZ GET EFFECTIVE ADDRESS TO SEEK 0 OP.«, t00=0x0028, t01=0x0036}
0x3ee0…3ef2              Head {h00=0x000e, h01=0x0050, text=» RF EXCIO «, t00=0x0028, t01=0x0070}
0x3ef2…3efc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0082}
0x3efc…3f06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x008c}
0x3f06…3f1a              Head {h00=0x0010, h01=0x0050, text=»HOMEAD EQU *«, t00=0x0028, t01=0x0096}
0x3f1a…3f4c              Head {h00=0x002e, h01=0x0050, text=» LDK A2,DWTWHA GET WRITE HOME ADDRESS OP. «, t00=0x0028, t01=0x00aa}
0x3f4c…3f5e              Head {h00=0x000e, h01=0x0050, text=» RF EXCIO «, t00=0x0028, t01=0x00dc}
0x3f5e…3f68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ee}
0x3f68…3f72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00f8}
0x3f72…3f84              Head {h00=0x000e, h01=0x0050, text=»CIO EQU * «, t00=0x0028, t01=0x0102}
0x3f84…3fbc              Head {h00=0x0034, h01=0x0050, text=» LDK A2,DWTCOP GET EFFECTIVE ADDRESS TO CIO OP. «, t00=0x0028, t01=0x0114}
0x3fbc…3fc6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x014c}
0x3fc6…3fdc              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0028, t01=0x0156}
0x3fdc…3fe6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x016c}
0x3fe6…3ff0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0176}
0x3ff0…4008              Head {h00=0x0014, h01=0x0050, text=»EXCIO ADR A2,A6 «, t00=0x0028, t01=0x0180}
0x4008…4028              Head {h00=0x001c, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE A4 «, t00=0x0029, t01=0x0008}
0x4028…403e              Head {h00=0x0012, h01=0x0050, text=» LD A3,PFPOST «, t00=0x0029, t01=0x0028}
0x403e…406a              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CIOAB PWF POST PROCESSING ON«, t00=0x0029, t01=0x003e}
0x406a…4080              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0029, t01=0x006a}
0x4080…40b4              Head {h00=0x0030, h01=0x0050, text=» CF A15,INXDWT GET INDEXED DWT DISPLACEMENT «, t00=0x0029, t01=0x0080}
0x40b4…40ca              Head {h00=0x0012, h01=0x0050, text=» EX DWTCIO,A4 «, t00=0x0029, t01=0x00b4}
0x40ca…40d6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00ca}
0x40d6…40ec              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0029, t01=0x00d6}
0x40ec…4102              Head {h00=0x0012, h01=0x0050, text=» EX DWTCIO,A6 «, t00=0x0029, t01=0x00ec}
0x4102…410e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0102}
0x410e…4124              Head {h00=0x0012, h01=0x0050, text=» ABL(3) END:30«, t00=0x0029, t01=0x010e}
0x4124…4138              Head {h00=0x0010, h01=0x0050, text=»CIOAB EQU * «, t00=0x0029, t01=0x0124}
0x4138…415e              Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTA5,A6            A5 «, t00=0x0029, t01=0x0138}
0x415e…4180              Head {h00=0x001e, h01=0x0050, text=» ABL TDISP GO TO DIPATCHER«, t00=0x0029, t01=0x015e}
0x4180…418a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0180}
0x418a…41a0              Head {h00=0x0012, h01=0x000e, text=» EJECT  DRCD01«, t00=0x0029, t01=0x018a}
0x41a0…41aa              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0010}
0x41aa…41b4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x001a}
0x41b4…41e6              Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x002a, t01=0x0024}
0x41e6…4218              Head {h00=0x002e, h01=0x0029, text=»*                                       * «, t00=0x002a, t01=0x0056}
0x4218…424a              Head {h00=0x002e, h01=0x0029, text=»*   SUBROUTINE CIOLOD                   * «, t00=0x002a, t01=0x0088}
0x424a…427c              Head {h00=0x002e, h01=0x0029, text=»*              PREPARE CIO WORK AREA    * «, t00=0x002a, t01=0x00ba}
0x427c…42ae              Head {h00=0x002e, h01=0x0029, text=»*                                       * «, t00=0x002a, t01=0x00ec}
0x42ae…42e0              Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x002a, t01=0x011e}
0x42e0…42ea              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002a, t01=0x0150}
0x42ea…430a              Head {h00=0x001c, h01=0x0050, text=»*   REGISTER DISPOSITION«, t00=0x002a, t01=0x015a}
0x430a…4328              Head {h00=0x001a, h01=0x0050, text=»*   A1 = WORK REGISTER«, t00=0x002a, t01=0x017a}
0x4328…4346              Head {h00=0x001a, h01=0x0050, text=»*   A2 = WORK REGISTER«, t00=0x002b, t01=0x0008}
0x4346…435c              Head {h00=0x0012, h01=0x0050, text=»*   A3 = MASK «, t00=0x002b, t01=0x0026}
0x435c…4382              Head {h00=0x0022, h01=0x0050, text=»*   A4 = CIO WORK AREA POINTER«, t00=0x002b, t01=0x003c}
0x4382…43a6              Head {h00=0x0020, h01=0x0050, text=»*   A7 = USER BUFFER POINTER«, t00=0x002b, t01=0x0062}
0x43a6…43cc              Head {h00=0x0022, h01=0x0050, text=»*   A8 = DRIVER BUFFER POINTER«, t00=0x002b, t01=0x0086}
0x43cc…43d6              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002b, t01=0x00ac}
0x43d6…43fe              Head {h00=0x0024, h01=0x0050, text=»*   DWTTRA = TRANSFER INDICATOR «, t00=0x002b, t01=0x00b6}
0x43fe…443e              Head {h00=0x003c, h01=0x0050, text=»*   DWTMAS = MASK INDICATING SECTORS TO/FROM USER BUFFER«, t00=0x002b, t01=0x00de}
0x443e…4462              Head {h00=0x0020, h01=0x0050, text=»*   DWTBA  = BUFFER POINTER «, t00=0x002b, t01=0x011e}
0x4462…446c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0142}
0x446c…4480              Head {h00=0x0010, h01=0x000c, text=»CIOLOD EQU *«, t00=0x002b, t01=0x014c}
0x4480…4494              Head {h00=0x0010, h01=0x0050, text=» LDKL A4,-4 «, t00=0x002b, t01=0x0160}
0x4494…44b4              Head {h00=0x001c, h01=0x0050, text=» ST A4,DWTSAV,A6 COUNTER«, t00=0x002b, t01=0x0174}
0x44b4…44d6 (44, 0, 400) Head {h00=0x001e, h01=0x0050, text=» LDR A4,A6 GET DWT ADDRESS«, t00=0x002c, t01=0x0004}
0x44d6…4502              Head {h00=0x0028, h01=0x0050, text=» ADK A4,DWTCOP CIO WORK AREA ADDRESS«, t00=0x002c, t01=0x0026}
0x4502…4530              Head {h00=0x002a, h01=0x0050, text=» LDKL A8,BUFFER DRIVER BUFFFER ADDRESS«, t00=0x002c, t01=0x0052}
0x4530…4558              Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTMAS,A6 GET BUFFER MASK«, t00=0x002c, t01=0x0080}
0x4558…457a              Head {h00=0x001e, h01=0x0050, text=» SRC A3,4 MASK IN POSITION«, t00=0x002c, t01=0x00a8}
0x457a…45a0              Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 USER BUFFER POINTER «, t00=0x002c, t01=0x00ca}
0x45a0…45aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f0}
0x45aa…45c0              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x002c, t01=0x00fa}
0x45c0…45ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0110}
0x45ca…45d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x011a}
0x45d4…45e8              Head {h00=0x0010, h01=0x0050, text=»CIOL10 EQU *«, t00=0x002c, t01=0x0124}
0x45e8…45fa              Head {h00=0x000e, h01=0x0050, text=» ADK A4,4 «, t00=0x002c, t01=0x0138}
0x45fa…4618              Head {h00=0x001a, h01=0x0050, text=» IM DWTSAV,A6 COUNTER «, t00=0x002c, t01=0x014a}
0x4618…463e              Head {h00=0x0022, h01=0x0050, text=» RF(Z) CIOL60 WORK AREA READY «, t00=0x002c, t01=0x0168}
0x463e…4650              Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x002c, t01=0x018e}
0x4650…4666              Head {h00=0x0012, h01=0x0050, text=» RF(NN) CIOL50«, t00=0x002d, t01=0x0010}
0x4666…4696              Head {h00=0x002c, h01=0x0050, text=» LDKL A1,/C000+LOSECL NO TRANSFER ORDER «, t00=0x002d, t01=0x0026}
0x4696…46c2              Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTTRA,A6 TRANSFER INDICATOR «, t00=0x002d, t01=0x0056}
0x46c2…46e4              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) CIOL55 NO TRANSFER«, t00=0x002d, t01=0x0082}
0x46e4…46ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00a4}
0x46ee…4704              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x002d, t01=0x00ae}
0x4704…471a              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/4080«, t00=0x002d, t01=0x00c4}
0x471a…4744              Head {h00=0x0026, h01=0x0050, text=» LDR A2,A7 BUFFER ADDRESS POINTER «, t00=0x002d, t01=0x00da}
0x4744…476a              Head {h00=0x0022, h01=0x0050, text=» AD A2,DWTBA,A6 BUFFER ADDRESS«, t00=0x002d, t01=0x0104}
0x476a…478a              Head {h00=0x001c, h01=0x0050, text=» MSR 2,A4 CIO WORK AREA «, t00=0x002d, t01=0x012a}
0x478a…47a0              Head {h00=0x0012, h01=0x0050, text=» ADKL A7,/100 «, t00=0x002d, t01=0x014a}
0x47a0…47ac              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0160}
0x47ac…47c2              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002d, t01=0x016c}
0x47c2…47e8              Head {h00=0x0022, h01=0x0050, text=» LDR A2,A7 USER BUFFER POINTER«, t00=0x002d, t01=0x0182}
0x47e8…4806              Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/804 SHIFTED «, t00=0x002e, t01=0x0018}
0x4806…4832              Head {h00=0x0028, h01=0x0050, text=» DA DWTBA,A6 GET USER BUFFER ADDRESS«, t00=0x002e, t01=0x0036}
0x4832…4850              Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 IN POSITION «, t00=0x002e, t01=0x0062}
0x4850…486e              Head {h00=0x001a, h01=0x0050, text=» SRC A1,4 IN POSITION «, t00=0x002e, t01=0x0080}
0x486e…4890              Head {h00=0x001e, h01=0x0050, text=» MSR 2,A4 TO CIO WORK AREA«, t00=0x002e, t01=0x009e}
0x4890…48c2              Head {h00=0x002e, h01=0x0050, text=» ADK A7,LOSECL UPDATE USER BUFFER POINTER «, t00=0x002e, t01=0x00c0}
0x48c2…48ce              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x00f2}
0x48ce…48e0              Head {h00=0x000e, h01=0x0050, text=» RB CIOL10«, t00=0x002e, t01=0x00fe}
0x48e0…48ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0110}
0x48ea…4900              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x002e, t01=0x011a}
0x4900…490a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0130}
0x490a…4914              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x013a}
0x4914…4928              Head {h00=0x0010, h01=0x0050, text=»CIOL50 EQU *«, t00=0x002e, t01=0x0144}
0x4928…4946              Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/4000+LOSECL «, t00=0x002e, t01=0x0158}
0x4946…4966              Head {h00=0x001c, h01=0x0050, text=» LDR A2,A8 DRIVER BUFFER«, t00=0x002e, t01=0x0176}
0x4966…4998              Head {h00=0x002e, h01=0x0050, text=» ADKL A8,/100 UPDATE DRIVER BUFFERPOINTER «, t00=0x002f, t01=0x0008}
0x4998…49ac              Head {h00=0x0010, h01=0x0050, text=»CIOL55 EQU *«, t00=0x002f, t01=0x003a}
0x49ac…49ce              Head {h00=0x001e, h01=0x0050, text=» MSR 2,A4 TO CIO WORK AREA«, t00=0x002f, t01=0x004e}
0x49ce…49e0              Head {h00=0x000e, h01=0x0050, text=» RB CIOL10«, t00=0x002f, t01=0x0070}
0x49e0…49f4              Head {h00=0x0010, h01=0x0050, text=»CIOL60 EQU *«, t00=0x002f, t01=0x0082}
0x49f4…4a12              Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/B000+LOSECL «, t00=0x002f, t01=0x0096}
0x4a12…4a38              Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTCOP+12,A6 CLEAR BIT«, t00=0x002f, t01=0x00b4}
0x4a38…4a50              Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PHSECL «, t00=0x002f, t01=0x00da}
0x4a50…4a6a              Head {h00=0x0016, h01=0x0050, text=» ST A1,DWTCOP+2,A6«, t00=0x002f, t01=0x00f2}
0x4a6a…4a96              Head {h00=0x0028, h01=0x0050, text=» CM DWTTRA,A6 CLEAR NO TRANSFER FLAG«, t00=0x002f, t01=0x010c}
0x4a96…4aa0              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002f, t01=0x0138}
0x4aa0…4ab6              Head {h00=0x0012, h01=0x000e, text=» EJECT  DRCD01«, t00=0x002f, t01=0x0142}
0x4ab6…4ac0              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002f, t01=0x0158}
0x4ac0…4aca              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x002f, t01=0x0162}
0x4aca…4afc              Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x002f, t01=0x016c}
0x4afc…4b2e              Head {h00=0x002e, h01=0x0029, text=»*                                       * «, t00=0x0030, t01=0x000e}
0x4b2e…4b60              Head {h00=0x002e, h01=0x0029, text=»*              PUT SECTOR NUMBER        * «, t00=0x0030, t01=0x0040}
0x4b60…4b92              Head {h00=0x002e, h01=0x0029, text=»*              AND HEAD NUMBER IN POS.  * «, t00=0x0030, t01=0x0072}
0x4b92…4bc4              Head {h00=0x002e, h01=0x0029, text=»*                                       * «, t00=0x0030, t01=0x00a4}
0x4bc4…4bf6              Head {h00=0x002e, h01=0x0029, text=»***************************************** «, t00=0x0030, t01=0x00d6}
0x4bf6…4c00              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0030, t01=0x0108}
0x4c00…4c2a              Head {h00=0x0026, h01=0x0022, text=»*   INPUT:  PHYSICAL SECTOR NUMBER«, t00=0x0030, t01=0x0112}
0x4c2a…4c66              Head {h00=0x0038, h01=0x0034, text=»*   OUTPUT: INTERLACED SECTOR NUMBER AND HEAD NUMBER«, t00=0x0030, t01=0x013c}
0x4c66…4c8e              Head {h00=0x0024, h01=0x001f, text=»*           IN POSITION FOR CIO «, t00=0x0030, t01=0x0178}
0x4c8e…4ca6              Head {h00=0x0014, h01=0x0010, text=»*   PERFORM SEEK«, t00=0x0031, t01=0x0010}
0x4ca6…4cb0              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0031, t01=0x0028}
0x4cb0…4cde              Head {h00=0x002a, h01=0x0050, text=» ML 2,DWTSEC,A6 PHYSICAL SECTOR NUMBER«, t00=0x0031, t01=0x0032}
0x4cde…4cee              Head {h00=0x000c, h01=0x0050, text=» DVK 115«, t00=0x0031, t01=0x0060}
0x4cee…4d22              Head {h00=0x0030, h01=0x0050, text=»*   A1 = REST = HEAD NUMBER * SECTOR NUMBER «, t00=0x0031, t01=0x0070}
0x4d22…4d4e              Head {h00=0x0028, h01=0x0050, text=»*   A2 = QUOTIENT = CYLINDER NUMBER «, t00=0x0031, t01=0x00a4}
0x4d4e…4d76              Head {h00=0x0024, h01=0x0050, text=» LDR A3,A2 SAVE CYLINDER NUMBER «, t00=0x0031, t01=0x00d0}
0x4d76…4d88              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0031, t01=0x00f8}
0x4d88…4d9a              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0031, t01=0x010a}
0x4d9a…4daa              Head {h00=0x000c, h01=0x0050, text=» DVK 23 «, t00=0x0031, t01=0x011c}
0x4daa…4dc8              Head {h00=0x001a, h01=0x0050, text=»*   A1 = SECTOR NUMBER«, t00=0x0031, t01=0x012c}
0x4dc8…4de4              Head {h00=0x0018, h01=0x0050, text=»*   A2 = HEAD NUMBER«, t00=0x0031, t01=0x014a}
0x4de4…4e06              Head {h00=0x001e, h01=0x0050, text=» ORKL A2,/800 INTERUPT BIT«, t00=0x0031, t01=0x0166}
0x4e06…4e2c              Head {h00=0x0022, h01=0x0050, text=» ST A2,DWTCOP,A6 COP WORK AREA«, t00=0x0031, t01=0x0188}
0x4e2c…4e4c              Head {h00=0x001c, h01=0x0050, text=» LDR A2,A1 SECTOR NUMBER«, t00=0x0032, t01=0x001e}
0x4e4c…4e6c              Head {h00=0x001c, h01=0x0050, text=» MUK INLACE INTERLACING «, t00=0x0032, t01=0x003e}
0x4e6c…4e7e              Head {h00=0x000e, h01=0x0050, text=» SLC A3,1 «, t00=0x0032, t01=0x005e}
0x4e7e…4ea8              Head {h00=0x0026, h01=0x0050, text=» RF(NN) CIOP10 EVEN CYLINDER NUMBE«, t00=0x0032, t01=0x0070}
0x4ea8…4ec6              Head {h00=0x001a, h01=0x0050, text=» ADK A2,12 SKEW FACTOR«, t00=0x0032, t01=0x009a}
0x4ec6…4ed0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b8}
0x4ed0…4ee6              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0032, t01=0x00c2}
0x4ee6…4ef0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00d8}
0x4ef0…4efa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e2}
0x4efa…4f0e              Head {h00=0x0010, h01=0x0050, text=»CIOP10 EQU *«, t00=0x0032, t01=0x00ec}
0x4f0e…4f46              Head {h00=0x0034, h01=0x0050, text=» DVK 23 GET INTERLACED AND SKEWED SECTOR NUMBER «, t00=0x0032, t01=0x0100}
0x4f46…4f64              Head {h00=0x001a, h01=0x0050, text=» SLL A1,5 IN POSITION «, t00=0x0032, t01=0x0138}
0x4f64…4f8c              Head {h00=0x0024, h01=0x0050, text=» ORS A1,DWTCOP,A6 COP WORK AREA «, t00=0x0032, t01=0x0156}
0x4f8c…4fc2              Head {h00=0x0032, h01=0x0050, text=» SRC A3,1 RESTORE CYLINDER NUMBER IN POSITION «, t00=0x0032, t01=0x017e}
0x4fc2…4fd8              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0033, t01=0x0024}
0x4fd8…4fee              Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0033, t01=0x003a}
0x4fee…5006              Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A4«, t00=0x0033, t01=0x0050}
0x5006…502a              Head {h00=0x0020, h01=0x0050, text=» RF(E) CIOP50 SAME CYLINDER «, t00=0x0033, t01=0x0068}
0x502a…5058              Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A4 SAVE CYLINDER NUMBER «, t00=0x0033, t01=0x008c}
0x5058…5064              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x00ba}
0x5064…507a              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0033, t01=0x00c6}
0x507a…5092              Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A6«, t00=0x0033, t01=0x00dc}
0x5092…50b6              Head {h00=0x0020, h01=0x0050, text=» RF(E) CIOP50 SAME CYLINDER «, t00=0x0033, t01=0x00f4}
0x50b6…50e4              Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A6 SAVE CYLINDER NUMBER «, t00=0x0033, t01=0x0118}
0x50e4…50f0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0033, t01=0x0146}
0x50f0…5112              Head {h00=0x001e, h01=0x0050, text=» ADKL A3,SEEKCO SEEK ORDER«, t00=0x0033, t01=0x0152}
0x5112…513a              Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTSEK,A6 SEEK WORK AREA «, t00=0x0033, t01=0x0174}
0x513a…5144              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x000c}
0x5144…515a              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0034, t01=0x0016}
0x515a…5164              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x002c}
0x5164…517e              Head {h00=0x0016, h01=0x0050, text=»*   SEEK CYLINDER «, t00=0x0034, t01=0x0036}
0x517e…5188              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0050}
0x5188…5192              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x005a}
0x5192…51ae              Head {h00=0x0018, h01=0x0050, text=» LDK A4,RY3 RETRIES «, t00=0x0034, t01=0x0064}
0x51ae…51c2              Head {h00=0x0010, h01=0x0050, text=»SE:010 EQU *«, t00=0x0034, t01=0x0080}
0x51c2…51e6              Head {h00=0x0020, h01=0x0050, text=» CF A5,SEEK SEEK CYLINDER N «, t00=0x0034, t01=0x0094}
0x51e6…51f8              Head {h00=0x000e, h01=0x0050, text=» ANK A1,2 «, t00=0x0034, t01=0x00b8}
0x51f8…5220              Head {h00=0x0024, h01=0x0050, text=» RF(Z) CIOP50 OK. SEEK COMPLETED«, t00=0x0034, t01=0x00ca}
0x5220…5236              Head {h00=0x0012, h01=0x0050, text=» IM DWTRE2,A6 «, t00=0x0034, t01=0x00f2}
0x5236…5260              Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY-COUNTER «, t00=0x0034, t01=0x0108}
0x5260…5280              Head {h00=0x001c, h01=0x0050, text=» RF(Z) SE:020 LAST RETRY«, t00=0x0034, t01=0x0132}
0x5280…528a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x0152}
0x528a…52ae              Head {h00=0x0020, h01=0x001c, text=» CF A5,SEEKZ SEEK CYLINDER 0«, t00=0x0034, t01=0x015c}
0x52ae…52c0              Head {h00=0x000e, h01=0x0050, text=» ANK A1,2 «, t00=0x0034, t01=0x0180}
0x52c0…52ea (53, 0, 400) Head {h00=0x0026, h01=0x0050, text=» RB(Z) SE:010 CYLINDER ZERO FOUND «, t00=0x0035, t01=0x0004}
0x52ea…52f4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0035, t01=0x002e}
0x52f4…5308              Head {h00=0x0010, h01=0x0050, text=»SE:020 EQU *«, t00=0x0035, t01=0x0038}
0x5308…532c              Head {h00=0x0020, h01=0x0050, text=» RF END:SE SEEK ERROR END IO«, t00=0x0035, t01=0x004c}
0x532c…5340              Head {h00=0x0010, h01=0x0050, text=»CIOP50 EQU *«, t00=0x0035, t01=0x0070}
0x5340…5350              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0035, t01=0x0084}
0x5350…535a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0094}
0x535a…5370              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0035, t01=0x009e}
0x5370…537a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b4}
0x537a…5384              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00be}
0x5384…53b2              Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0035, t01=0x00c8}
0x53b2…53e0              Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0035, t01=0x00f6}
0x53e0…540e              Head {h00=0x002a, h01=0x0050, text=»*   SUBROUTINE UPDATE               * «, t00=0x0035, t01=0x0124}
0x540e…543c              Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0035, t01=0x0152}
0x543c…546a              Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0035, t01=0x0180}
0x546a…5474              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x001e}
0x5474…54b4              Head {h00=0x003c, h01=0x0050, text=»*   UPDATES : DWTBSE   PRESENT SECTORS IN DRIVER BUFFER «, t00=0x0036, t01=0x0028}
0x54b4…54f8              Head {h00=0x0040, h01=0x0050, text=»*             DWTLOS   NUMBER OF LOGICAL SECTORS LEFT IN IO «, t00=0x0036, t01=0x0068}
0x54f8…552a              Head {h00=0x002e, h01=0x0050, text=»*             DWTBA    USER BUFFER POINTER«, t00=0x0036, t01=0x00ac}
0x552a…5560              Head {h00=0x0032, h01=0x0050, text=»*             DWTSEC   PHYSICAL SECTOR POINTER«, t00=0x0036, t01=0x00de}
0x5560…5590              Head {h00=0x002c, h01=0x0050, text=»*             ECBEL    EFFECTIVE LENGTH «, t00=0x0036, t01=0x0114}
0x5590…559a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0144}
0x559a…55ae              Head {h00=0x0010, h01=0x0050, text=»UPDATE EQU *«, t00=0x0036, t01=0x014e}
0x55ae…55c0              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0036, t01=0x0162}
0x55c0…55e8              Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTMAS,A6 GET SECTOR MASK«, t00=0x0036, t01=0x0174}
0x55e8…5606              Head {h00=0x001a, h01=0x0050, text=» C1R A3,A3 COMPLIMENT «, t00=0x0037, t01=0x000c}
0x5606…561e              Head {h00=0x0014, h01=0x0050, text=» ANK A3,7 3 BITS«, t00=0x0037, t01=0x002a}
0x561e…5640              Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTOR,A6 GET INDEX «, t00=0x0037, t01=0x0042}
0x5640…5662              Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/100 UNIT NUMBER «, t00=0x0037, t01=0x0064}
0x5662…5686              Head {h00=0x0020, h01=0x0050, text=» DA DWTSEC,A6 SECTOR NUMBER «, t00=0x0037, t01=0x0086}
0x5686…56a2              Head {h00=0x0018, h01=0x0050, text=» MS 3,DWTBSE,A6 SAVE«, t00=0x0037, t01=0x00aa}
0x56a2…56b6              Head {h00=0x0010, h01=0x0050, text=»UPDAT EQU * «, t00=0x0037, t01=0x00c6}
0x56b6…56de              Head {h00=0x0024, h01=0x0050, text=» LD A1,DWTMAS,A6 GET SECTOR MASK«, t00=0x0037, t01=0x00da}
0x56de…56f0              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0037, t01=0x0102}
0x56f0…5702              Head {h00=0x000e, h01=0x0050, text=» SRC A1,3 «, t00=0x0037, t01=0x0114}
0x5702…5716              Head {h00=0x0010, h01=0x0050, text=»UPDA00 EQU *«, t00=0x0037, t01=0x0126}
0x5716…5746              Head {h00=0x002c, h01=0x0050, text=» RF(NN) UPDA10 IO TO/FROM DRIVER BUFFER «, t00=0x0037, t01=0x013a}
0x5746…5774              Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 NUMBER OF SECTORS IN LAST IO«, t00=0x0037, t01=0x016a}
0x5774…5788              Head {h00=0x0010, h01=0x0050, text=»UPDA10 EQU *«, t00=0x0038, t01=0x0008}
0x5788…579a              Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0038, t01=0x001c}
0x579a…57be              Head {h00=0x0020, h01=0x0050, text=» RB(NZ) UPDA00 MORE SECTORS «, t00=0x0038, t01=0x002e}
0x57be…57c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0052}
0x57c8…57de              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0038, t01=0x005c}
0x57de…57e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0072}
0x57e8…57f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007c}
0x57f2…5818              Head {h00=0x0022, h01=0x0050, text=» LD A3,DWTLOS,A6 UPDATE DWTLOS«, t00=0x0038, t01=0x0086}
0x5818…582a              Head {h00=0x000e, h01=0x0050, text=» SUR A3,A2«, t00=0x0038, t01=0x00ac}
0x582a…5842              Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTLOS,A6«, t00=0x0038, t01=0x00be}
0x5842…584c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00d6}
0x584c…5862              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0038, t01=0x00e0}
0x5862…5880              Head {h00=0x001a, h01=0x0050, text=» SLL A2,7 UPDATE DWTBA«, t00=0x0038, t01=0x00f6}
0x5880…589e              Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 SAVE LENGTH«, t00=0x0038, t01=0x0114}
0x589e…58b2              Head {h00=0x0010, h01=0x0050, text=» DA DWTBA,A6«, t00=0x0038, t01=0x0132}
0x58b2…58c8              Head {h00=0x0012, h01=0x0050, text=» MS 2,DWTBA,A6«, t00=0x0038, t01=0x0146}
0x58c8…58da              Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x0038, t01=0x015c}
0x58da…58e6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x016e}
0x58e6…58fc              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0038, t01=0x017a}
0x58fc…590e              Head {h00=0x000e, h01=0x0050, text=» SLL A2,8 «, t00=0x0038, t01=0x0190}
0x590e…593c              Head {h00=0x002a, h01=0x0050, text=» ADS A2,DWTBA,A6 UPDATE BUFFER POINTER«, t00=0x0039, t01=0x0012}
0x593c…5948              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0040}
0x5948…5952              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x004c}
0x5952…5964              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0039, t01=0x0056}
0x5964…597c              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTTRA,A6«, t00=0x0039, t01=0x0068}
0x597c…59aa              Head {h00=0x002a, h01=0x0050, text=» RF(Z) UPDA50 UPDATE EFFECTIVE LENGTH «, t00=0x0039, t01=0x0080}
0x59aa…59cc              Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0039, t01=0x00ae}
0x59cc…59e0              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0039, t01=0x00d0}
0x59e0…59f6              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) UPDA60«, t00=0x0039, t01=0x00e4}
0x59f6…5a02              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x00fa}
0x5a02…5a0c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0106}
0x5a0c…5a22              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0039, t01=0x0110}
0x5a22…5a2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0126}
0x5a2c…5a36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0130}
0x5a36…5a4a              Head {h00=0x0010, h01=0x0050, text=»UPDA50 EQU *«, t00=0x0039, t01=0x013a}
0x5a4a…5a60              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0039, t01=0x014e}
0x5a60…5a78              Head {h00=0x0014, h01=0x0050, text=» ADS A3,ECBEL,A8«, t00=0x0039, t01=0x0164}
0x5a78…5a84              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x017c}
0x5a84…5a9a              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0039, t01=0x0188}
0x5a9a…5aca              Head {h00=0x002c, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE EFFECTIVE LENGTH«, t00=0x003a, t01=0x000e}
0x5aca…5ad6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x003e}
0x5ad6…5aea              Head {h00=0x0010, h01=0x0050, text=»UPDA60 EQU *«, t00=0x003a, t01=0x004a}
0x5aea…5af4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x005e}
0x5af4…5b06              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003a, t01=0x0068}
0x5b06…5b18              Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x003a, t01=0x007a}
0x5b18…5b2e              Head {h00=0x0012, h01=0x0050, text=» DA DWTSEC,A6 «, t00=0x003a, t01=0x008c}
0x5b2e…5b46              Head {h00=0x0014, h01=0x0050, text=» MS 2,DWTSEC,A6 «, t00=0x003a, t01=0x00a2}
0x5b46…5b50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ba}
0x5b50…5b60              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003a, t01=0x00c4}
0x5b60…5b76              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x003a, t01=0x00d4}
0x5b76…5b80              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00ea}
0x5b80…5b8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00f4}
0x5b8a…5bbe              Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003a, t01=0x00fe}
0x5bbe…5bf2              Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x003a, t01=0x0132}
0x5bf2…5c26              Head {h00=0x0030, h01=0x0050, text=»*   SUBROUTINE MASKPR                     * «, t00=0x003a, t01=0x0166}
0x5c26…5c5a              Head {h00=0x0030, h01=0x0050, text=»*              SET BITS FOR LOGICAL       * «, t00=0x003b, t01=0x000a}
0x5c5a…5c8e              Head {h00=0x0030, h01=0x0050, text=»*              SECTORS IN PHYSICAL        * «, t00=0x003b, t01=0x003e}
0x5c8e…5cc2              Head {h00=0x0030, h01=0x0050, text=»*                                         * «, t00=0x003b, t01=0x0072}
0x5cc2…5cf6              Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x003b, t01=0x00a6}
0x5cf6…5d00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00da}
0x5d00…5d24              Head {h00=0x0020, h01=0x0050, text=»*   A1 = POSITION IN SECTOR «, t00=0x003b, t01=0x00e4}
0x5d24…5d4a              Head {h00=0x0022, h01=0x0050, text=»*   DWTLOS = NUMBER OF SECTORS«, t00=0x003b, t01=0x0108}
0x5d4a…5d54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x012e}
0x5d54…5d5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0138}
0x5d5e…5d72              Head {h00=0x0010, h01=0x0050, text=»MASK00 EQU *«, t00=0x003b, t01=0x0142}
0x5d72…5d84              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003b, t01=0x0156}
0x5d84…5d98              Head {h00=0x0010, h01=0x0050, text=»MASKPR EQU *«, t00=0x003b, t01=0x0168}
0x5d98…5dc2              Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTLOS,A6 NUMBER OF SECTORS«, t00=0x003b, t01=0x017c}
0x5dc2…5dd4              Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x003c, t01=0x0016}
0x5dd4…5dee              Head {h00=0x0016, h01=0x0050, text=» LDK A3,4 1  0  0 «, t00=0x003c, t01=0x0028}
0x5dee…5e18              Head {h00=0x0026, h01=0x0050, text=» RF(N) MASK10 1 SECTOR LEFT IN IO «, t00=0x003c, t01=0x0042}
0x5e18…5e32              Head {h00=0x0016, h01=0x0050, text=» LDK A3,6 1  1  0 «, t00=0x003c, t01=0x006c}
0x5e32…5e5c              Head {h00=0x0026, h01=0x0050, text=» RF(Z) MASK10 2 SECTORS LEFT IN IO«, t00=0x003c, t01=0x0086}
0x5e5c…5e76              Head {h00=0x0016, h01=0x0050, text=» LDK A3,7 1  1  1 «, t00=0x003c, t01=0x00b0}
0x5e76…5e8a              Head {h00=0x0010, h01=0x0050, text=»MASK10 EQU *«, t00=0x003c, t01=0x00ca}
0x5e8a…5e9c              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003c, t01=0x00de}
0x5e9c…5eba              Head {h00=0x001a, h01=0x0050, text=» RF(Z) MASK20 0  1  0 «, t00=0x003c, t01=0x00f0}
0x5eba…5ed8              Head {h00=0x001a, h01=0x0050, text=» RF(N) MASK30 1  0  0 «, t00=0x003c, t01=0x010e}
0x5ed8…5ef2              Head {h00=0x0016, h01=0x0050, text=» SRL A3,1 0  0  1 «, t00=0x003c, t01=0x012c}
0x5ef2…5f06              Head {h00=0x0010, h01=0x0050, text=»MASK20 EQU *«, t00=0x003c, t01=0x0146}
0x5f06…5f18              Head {h00=0x000e, h01=0x0050, text=» SRL A3,1 «, t00=0x003c, t01=0x015a}
0x5f18…5f2c              Head {h00=0x0010, h01=0x0050, text=»MASK30 EQU *«, t00=0x003c, t01=0x016c}
0x5f2c…5f4e              Head {h00=0x001e, h01=0x0050, text=» ST A3,DWTMAS,A6 SAVE MASK«, t00=0x003c, t01=0x0180}
0x5f4e…5f5e              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x003d, t01=0x0012}
0x5f5e…5f68              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x003d, t01=0x0022}
0x5f68…5f7e              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x003d, t01=0x002c}
0x5f7e…5f88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0042}
0x5f88…5f92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x004c}
0x5f92…5fb4              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003d, t01=0x0056}
0x5fb4…5fd6              Head {h00=0x001e, h01=0x0050, text=»*                       * «, t00=0x003d, t01=0x0078}
0x5fd6…5ff8              Head {h00=0x001e, h01=0x0050, text=»*   PERFORM END IO      * «, t00=0x003d, t01=0x009a}
0x5ff8…601a              Head {h00=0x001e, h01=0x0050, text=»*                       * «, t00=0x003d, t01=0x00bc}
0x601a…603c              Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003d, t01=0x00de}
0x603c…6046              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0100}
0x6046…6066              Head {h00=0x001c, h01=0x0050, text=»END:SE EQU * SEEK ERROR «, t00=0x003d, t01=0x010a}
0x6066…607c              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003d, t01=0x012a}
0x607c…6092              Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x003d, t01=0x0140}
0x6092…60c0              Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A6 DUMMY CYLINDER NUMBER«, t00=0x003d, t01=0x0156}
0x60c0…60cc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0184}
0x60cc…60e2              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003d, t01=0x0190}
0x60e2…60f8              Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x003e, t01=0x0016}
0x60f8…610e              Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x003e, t01=0x002c}
0x610e…613c              Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A4 DUMMY CYLINDER NUMBER«, t00=0x003e, t01=0x0042}
0x613c…6148              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0070}
0x6148…615c              Head {h00=0x0010, h01=0x0050, text=»END:00 EQU *«, t00=0x003e, t01=0x007c}
0x615c…6174              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTRE2,A6«, t00=0x003e, t01=0x0090}
0x6174…618c              Head {h00=0x0014, h01=0x0050, text=» CW A2,DWTRE1,A6«, t00=0x003e, t01=0x00a8}
0x618c…61a2              Head {h00=0x0012, h01=0x0050, text=» RF(E) END:IO «, t00=0x003e, t01=0x00c0}
0x61a2…61d2              Head {h00=0x002c, h01=0x0050, text=» ST A2,DWTRE1,A6 GRAND TOTAL OF RETRIES «, t00=0x003e, t01=0x00d6}
0x61d2…61fa              Head {h00=0x0024, h01=0x0050, text=» ORKL A1,/100 RETRIES PERFORMED «, t00=0x003e, t01=0x0106}
0x61fa…6204              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x012e}
0x6204…6218              Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x003e, t01=0x0138}
0x6218…623e              Head {h00=0x0022, h01=0x0050, text=» CF A15,TENDIO PERFORM TENDIO «, t00=0x003e, t01=0x014c}
0x623e…6252              Head {h00=0x0010, h01=0x0050, text=»T:DISP EQU *«, t00=0x003e, t01=0x0172}
0x6252…6264              Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x003e, t01=0x0186}
0x6264…6278              Head {h00=0x0010, h01=0x0050, text=»END:30 EQU *«, t00=0x003f, t01=0x0008}
0x6278…628a              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x003f, t01=0x001c}
0x628a…62a2              Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTST,A6 «, t00=0x003f, t01=0x002e}
0x62a2…62b4              Head {h00=0x000e, h01=0x0050, text=» RB END:IO«, t00=0x003f, t01=0x0046}
0x62b4…62be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0058}
0x62be…62d4              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x003f, t01=0x0062}
0x62d4…62de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0078}
0x62de…62e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0082}
0x62e8…6306              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x003f, t01=0x008c}
0x6306…6324              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x003f, t01=0x00aa}
0x6324…6342              Head {h00=0x001a, h01=0x0050, text=»*  RECOVERY ROUTINE  *«, t00=0x003f, t01=0x00c8}
0x6342…6360              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x003f, t01=0x00e6}
0x6360…637e              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x003f, t01=0x0104}
0x637e…6388              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0122}
0x6388…6392              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x012c}
0x6392…63a4              Head {h00=0x000e, h01=0x0050, text=»CDON EQU *«, t00=0x003f, t01=0x0136}
0x63a4…63ba              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003f, t01=0x0148}
0x63ba…63e4              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x003f, t01=0x015e}
0x63e4…63f0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0188}
0x63f0…63fa (64, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0004}
0x63fa…6410              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0040, t01=0x000e}
0x6410…6436              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0040, t01=0x0024}
0x6436…6442              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x004a}
0x6442…644c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0056}
0x644c…6464              Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWCD01 «, t00=0x0040, t01=0x0060}
0x6464…648a              Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x0040, t01=0x0078}
0x648a…649c              Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0040, t01=0x009e}
0x649c…64b0              Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0040, t01=0x00b0}
0x64b0…64da              Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTSAV,A6 INDICATE RECOVERY«, t00=0x0040, t01=0x00c4}
0x64da…64f8              Head {h00=0x001a, h01=0x0050, text=» CM DWTST,A6 UNIT BUSY«, t00=0x0040, t01=0x00ee}
0x64f8…6522              Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG INITIALIZATION FLAG «, t00=0x0040, t01=0x010c}
0x6522…6546              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CDON05 NOT POWER UP «, t00=0x0040, t01=0x0136}
0x6546…6550              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x015a}
0x6550…6566              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0040, t01=0x0164}
0x6566…6570              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x017a}
0x6570…657a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0184}
0x657a…6590              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0040, t01=0x018e}
0x6590…65ae              Head {h00=0x001a, h01=0x0050, text=» CM DWTOR,A6 1ST UNIT «, t00=0x0041, t01=0x0014}
0x65ae…65d4              Head {h00=0x0022, h01=0x0050, text=» CF A5,SEEKZ TEST IF OPERABLE «, t00=0x0041, t01=0x0032}
0x65d4…65e6              Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0041, t01=0x0058}
0x65e6…660a              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CDON26 NOT OPERABLE «, t00=0x0041, t01=0x006a}
0x660a…661c              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0041, t01=0x008e}
0x661c…663c              Head {h00=0x001c, h01=0x0050, text=» SC A1,DWTOR,A6 2ND UNIT«, t00=0x0041, t01=0x00a0}
0x663c…6648              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00c0}
0x6648…666e              Head {h00=0x0022, h01=0x0050, text=» CF A5,SEEKZ TEST IF OPERABLE «, t00=0x0041, t01=0x00cc}
0x666e…6680              Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0041, t01=0x00f2}
0x6680…66a4              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) CDON26 NOT OPERABLE «, t00=0x0041, t01=0x0104}
0x66a4…66ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0128}
0x66ae…66c6              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRCD01 «, t00=0x0041, t01=0x0132}
0x66c6…66d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x014a}
0x66d0…66da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0154}
0x66da…66ee              Head {h00=0x0010, h01=0x0050, text=»CDON05 EQU *«, t00=0x0041, t01=0x015e}
0x66ee…670c              Head {h00=0x001a, h01=0x0050, text=» CM DWTOR,A6 1ST UNIT «, t00=0x0041, t01=0x0172}
0x670c…6722              Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0041, t01=0x0190}
0x6722…6738              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0042, t01=0x0016}
0x6738…6752              Head {h00=0x0016, h01=0x0050, text=» LDK A1,1 2ND UNIT«, t00=0x0042, t01=0x002c}
0x6752…676a              Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0042, t01=0x0046}
0x676a…6780              Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0042, t01=0x005e}
0x6780…678c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0074}
0x678c…67bc              Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x0042, t01=0x0080}
0x67bc…67e0              Head {h00=0x0020, h01=0x0050, text=» CM DWTSAV,A6 RECOVERY DONE «, t00=0x0042, t01=0x00b0}
0x67e0…67ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00d4}
0x67ea…6812              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0042, t01=0x00de}
0x6812…6836              Head {h00=0x0020, h01=0x0050, text=» RB(Z) END:IO NO REQUEST ON «, t00=0x0042, t01=0x0106}
0x6836…6840              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x012a}
0x6840…6868              Head {h00=0x0024, h01=0x0050, text=»CDON10 LD A7,DWTORD,A6 GET ORDER«, t00=0x0042, t01=0x0134}
0x6868…6898              Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0042, t01=0x015c}
0x6898…68ac              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0042, t01=0x018c}
0x68ac…68b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0010}
0x68b6…68e2              Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0043, t01=0x001a}
0x68e2…6902              Head {h00=0x001c, h01=0x0050, text=» ABL CDAD REPEAT REQUEST«, t00=0x0043, t01=0x0046}
0x6902…690c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0066}
0x690c…6924              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRCD01 «, t00=0x0043, t01=0x0070}
0x6924…692e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0088}
0x692e…694a              Head {h00=0x0018, h01=0x0050, text=»*    READY INTERRUPT«, t00=0x0043, t01=0x0092}
0x694a…6954              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00ae}
0x6954…696e              Head {h00=0x0016, h01=0x0050, text=»CDREDY LD A1,TIMER«, t00=0x0043, t01=0x00b8}
0x696e…6994              Head {h00=0x0022, h01=0x0050, text=» RF(Z) CDON50 NO TIMER ACTIVE «, t00=0x0043, t01=0x00d2}
0x6994…699e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00f8}
0x699e…69b4              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0043, t01=0x0102}
0x69b4…69d2              Head {h00=0x001a, h01=0x0050, text=» CM* TIMER KILL TIMER «, t00=0x0043, t01=0x0118}
0x69d2…69e4              Head {h00=0x000e, h01=0x0050, text=» RF CDON40«, t00=0x0043, t01=0x0136}
0x69e4…69f0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x0148}
0x69f0…69fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0154}
0x69fa…6a10              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0043, t01=0x015e}
0x6a10…6a30              Head {h00=0x001c, h01=0x0050, text=» RB T:DISP TIMER ACTIVE «, t00=0x0043, t01=0x0174}
0x6a30…6a3c (68, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0004}
0x6a3c…6a46              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0010}
0x6a46…6a5e              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRCD01 «, t00=0x0044, t01=0x001a}
0x6a5e…6a68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0032}
0x6a68…6a72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x003c}
0x6a72…6a86              Head {h00=0x0010, h01=0x0050, text=»CDON26 EQU *«, t00=0x0044, t01=0x0046}
0x6a86…6ab2              Head {h00=0x0028, h01=0x0050, text=» LDKL A4,TIMER TIMER POINTER ADDRESS«, t00=0x0044, t01=0x005a}
0x6ab2…6ac6              Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0044, t01=0x0086}
0x6ac6…6aec              Head {h00=0x0022, h01=0x0050, text=» RF(Z) CDON30 NO TIMER ACTIVE «, t00=0x0044, t01=0x009a}
0x6aec…6b02              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x0044, t01=0x00c0}
0x6b02…6b22              Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 RESTART TIMER«, t00=0x0044, t01=0x00d6}
0x6b22…6b34              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0044, t01=0x00f6}
0x6b34…6b3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0108}
0x6b3e…6b48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0112}
0x6b48…6b70              Head {h00=0x0024, h01=0x0050, text=»CDON30 CF A15,SETIMP START TIMER«, t00=0x0044, t01=0x011c}
0x6b70…6ba0              Head {h00=0x002c, h01=0x0050, text=» DATA CDON40,TIME TIME OUT ADDRESS, TIME«, t00=0x0044, t01=0x0144}
0x6ba0…6bb2              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0044, t01=0x0174}
0x6bb2…6bbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0186}
0x6bbc…6bd0              Head {h00=0x0010, h01=0x0050, text=»*   TIME OUT«, t00=0x0044, t01=0x0190}
0x6bd0…6bda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0014}
0x6bda…6bf8              Head {h00=0x001a, h01=0x0050, text=»CDON40 LDKL A6,DWCD01 «, t00=0x0045, t01=0x001e}
0x6bf8…6c0a              Head {h00=0x000e, h01=0x0050, text=» CM TIMER «, t00=0x0045, t01=0x003c}
0x6c0a…6c1e              Head {h00=0x0010, h01=0x0050, text=»CDON50 EQU *«, t00=0x0045, t01=0x004e}
0x6c1e…6c3c              Head {h00=0x001a, h01=0x0050, text=» CM DWTST,A6 UNIT BUSY«, t00=0x0045, t01=0x0062}
0x6c3c…6c50              Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0045, t01=0x0080}
0x6c50…6c7a              Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTSAV,A6 INDICATE RECOVERY«, t00=0x0045, t01=0x0094}
0x6c7a…6ca0              Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x0045, t01=0x00be}
0x6ca0…6cb2              Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0045, t01=0x00e4}
0x6cb2…6cc4              Head {h00=0x000e, h01=0x0050, text=» RB CDON05«, t00=0x0045, t01=0x00f6}
0x6cc4…6cce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0108}
0x6cce…6ce4              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0045, t01=0x0112}
0x6ce4…6cee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0128}
0x6cee…6cf8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0132}
0x6cf8…6d18              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0045, t01=0x013c}
0x6d18…6d38              Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x0045, t01=0x015c}
0x6d38…6d58              Head {h00=0x001c, h01=0x0050, text=»*  INTERRUPT HANDLER  * «, t00=0x0045, t01=0x017c}
0x6d58…6d78              Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x0046, t01=0x000c}
0x6d78…6d98              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0046, t01=0x002c}
0x6d98…6da2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x004c}
0x6da2…6dac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0056}
0x6dac…6dbe              Head {h00=0x000e, h01=0x0050, text=»IHCD EQU *«, t00=0x0046, t01=0x0060}
0x6dbe…6de6              Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0046, t01=0x0072}
0x6de6…6e10              Head {h00=0x0026, h01=0x0050, text=» MSR 8,A15 SAVE REGISTERS ON STACK«, t00=0x0046, t01=0x009a}
0x6e10…6e34              Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWCD01 DWT ADDRESS «, t00=0x0046, t01=0x00c4}
0x6e34…6e54              Head {h00=0x001c, h01=0x0050, text=» SST A1,CUADR GET STATUS«, t00=0x0046, t01=0x00e8}
0x6e54…6e66              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0046, t01=0x0108}
0x6e66…6e78              Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0046, t01=0x011a}
0x6e78…6e9e              Head {h00=0x0022, h01=0x0050, text=» RB(N) CDREDY READY INTERRUPT «, t00=0x0046, t01=0x012c}
0x6e9e…6eb4              Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/1400«, t00=0x0046, t01=0x0152}
0x6eb4…6eca              Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHCD50 «, t00=0x0046, t01=0x0168}
0x6eca…6edc              Head {h00=0x000e, h01=0x0050, text=» ORK A1,2 «, t00=0x0046, t01=0x017e}
0x6edc…6ef0              Head {h00=0x0010, h01=0x0050, text=»IHCD50 EQU *«, t00=0x0046, t01=0x0190}
0x6ef0…6f02              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0047, t01=0x0014}
0x6f02…6f2a              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0047, t01=0x0026}
0x6f2a…6f48              Head {h00=0x001a, h01=0x0050, text=» LDR A3,A1 RETURN CODE«, t00=0x0047, t01=0x004e}
0x6f48…6f60              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x0047, t01=0x006c}
0x6f60…6f86              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) IHCD70 VO:NAM CALLING «, t00=0x0047, t01=0x0084}
0x6f86…6f98              Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0047, t01=0x00aa}
0x6f98…6fbc              Head {h00=0x0020, h01=0x0050, text=» RB(NZ) END:IO NOT OPERABLE «, t00=0x0047, t01=0x00bc}
0x6fbc…6fd0              Head {h00=0x0010, h01=0x0050, text=»IHCD70 EQU *«, t00=0x0047, t01=0x00e0}
0x6fd0…6ffa              Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTA5,A6 GET STACK POINTER «, t00=0x0047, t01=0x00f4}
0x6ffa…7024              Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6 GET RETRY COUNTER «, t00=0x0047, t01=0x011e}
0x7024…7034              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0047, t01=0x0148}
0x7034…703e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0158}
0x703e…7054              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0047, t01=0x0162}
0x7054…705e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0178}
0x705e…7068              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0182}
0x7068…707c              Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0047, t01=0x018c}
0x707c…7090              Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEKZ«, t00=0x0048, t01=0x0010}
0x7090…70a2              Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0048, t01=0x0024}
0x70a2…70be              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VO:NA7 ERROR«, t00=0x0048, t01=0x0036}
0x70be…70e4              Head {h00=0x0022, h01=0x0050, text=» LDR A7,A5 SAVE STACK POINTER «, t00=0x0048, t01=0x0052}
0x70e4…70f2              Head {h00=0x000a, h01=0x0050, text=» MLK 5«, t00=0x0048, t01=0x0078}
0x70f2…7120              Head {h00=0x002a, h01=0x0050, text=» DATA /800,PHSECL,/4000+LOSECL+LOSECL «, t00=0x0048, t01=0x0086}
0x7120…7142              Head {h00=0x001e, h01=0x0050, text=» DATA BUFFER,/8000+LOSECL «, t00=0x0048, t01=0x00b4}
0x7142…715a              Head {h00=0x0014, h01=0x0050, text=» MS 5,DWTCOP,A6 «, t00=0x0048, t01=0x00d6}
0x715a…7182              Head {h00=0x0024, h01=0x0050, text=» LDR A5,A7 RESTORE STACK POINTER«, t00=0x0048, t01=0x00ee}
0x7182…71b6              Head {h00=0x0030, h01=0x0050, text=» CF A5,READ00 READ SECTOR 0 TO DRIVER BUFFER«, t00=0x0048, t01=0x0116}
0x71b6…71e4              Head {h00=0x002a, h01=0x0050, text=» CM DWTBSE+4,A6 CLEAR IN CASE OF ERROR«, t00=0x0048, t01=0x014a}
0x71e4…71f6              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0048, t01=0x0178}
0x71f6…7212              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VO:NA7 ERROR«, t00=0x0048, t01=0x018a}
0x7212…722a              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x0049, t01=0x0016}
0x722a…724c              Head {h00=0x001e, h01=0x0050, text=» ANKL A1,/100 UNIT NUMBER «, t00=0x0049, t01=0x002e}
0x724c…725e              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0049, t01=0x0050}
0x725e…7270              Head {h00=0x000e, h01=0x0050, text=» LDK A3,6 «, t00=0x0049, t01=0x0062}
0x7270…72a6              Head {h00=0x0032, h01=0x0050, text=» MS 3,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR«, t00=0x0049, t01=0x0074}
0x72a6…72be              Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x0049, t01=0x00aa}
0x72be…72dc              Head {h00=0x001a, h01=0x0050, text=» LDK A3,/FC FILE CODE «, t00=0x0049, t01=0x00c2}
0x72dc…72f4              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTSAV,A6«, t00=0x0049, t01=0x00e0}
0x72f4…730a              Head {h00=0x0012, h01=0x0050, text=» RF(N) VO:NA5 «, t00=0x0049, t01=0x00f8}
0x730a…7336              Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/80FC INDICATE TEST STATUS «, t00=0x0049, t01=0x010e}
0x7336…734a              Head {h00=0x0010, h01=0x0050, text=»VO:NA5 EQU *«, t00=0x0049, t01=0x013a}
0x734a…7374              Head {h00=0x0026, h01=0x0050, text=» CF A15,VOLGET VOLUME NAME TO DWT «, t00=0x0049, t01=0x014e}
0x7374…737e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0178}
0x737e…7394              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0049, t01=0x0182}
0x7394…739e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0008}
0x739e…73a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0012}
0x73a8…73cc              Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x004a, t01=0x001c}
0x73cc…73ee              Head {h00=0x001e, h01=0x0050, text=» LDK A3,0 CYLINDER NUMBER «, t00=0x004a, t01=0x0040}
0x73ee…7400              Head {h00=0x000e, h01=0x0050, text=» RF VO:NA8«, t00=0x004a, t01=0x0062}
0x7400…7414              Head {h00=0x0010, h01=0x0050, text=»VO:NA7 EQU *«, t00=0x004a, t01=0x0074}
0x7414…7436              Head {h00=0x001e, h01=0x0050, text=» LDK A1,6 CLEAR SEX BYTES «, t00=0x004a, t01=0x0088}
0x7436…744c              Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLCLR«, t00=0x004a, t01=0x00aa}
0x744c…746a              Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 RETURN CODE«, t00=0x004a, t01=0x00c0}
0x746a…7496              Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/FFFF DUMMY CYLINDER NUMBER«, t00=0x004a, t01=0x00de}
0x7496…74aa              Head {h00=0x0010, h01=0x0050, text=»VO:NA8 EQU *«, t00=0x004a, t01=0x010a}
0x74aa…74c0              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x004a, t01=0x011e}
0x74c0…74e6              Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTCYL,A6 HEAD POSITION«, t00=0x004a, t01=0x0134}
0x74e6…74f2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x015a}
0x74f2…7508              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x004a, t01=0x0166}
0x7508…751e              Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x004a, t01=0x017c}
0x751e…7536 (75, 0, 400) Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTCYL,A4«, t00=0x004b, t01=0x0004}
0x7536…7542              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x001c}
0x7542…7552              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x0028}
0x7552…755c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0038}
0x755c…7566              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0042}
0x7566…7580              Head {h00=0x0016, h01=0x0050, text=»*   TIMER POINTER «, t00=0x004b, t01=0x004c}
0x7580…758a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0066}
0x758a…759e              Head {h00=0x0010, h01=0x0050, text=»TIMER DATA 0«, t00=0x004b, t01=0x0070}
0x759e…75a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0084}
0x75a8…75be              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x004b, t01=0x008e}
0x75be…75c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00a4}
0x75c8…75d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00ae}
0x75d2…7600              Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x004b, t01=0x00b8}
0x7600…762e              Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x004b, t01=0x00e6}
0x762e…765c              Head {h00=0x002a, h01=0x0050, text=»*   DEVICE WORK TABLE               * «, t00=0x004b, t01=0x0114}
0x765c…768a              Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x004b, t01=0x0142}
0x768a…76b8              Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x004b, t01=0x0170}
0x76b8…76c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x000e}
0x76c2…76cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0018}
0x76cc…76e0              Head {h00=0x0010, h01=0x0050, text=»DWCD01 EQU *«, t00=0x004c, t01=0x0022}
0x76e0…76f0              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x004c, t01=0x0036}
0x76f0…770e              Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x004c, t01=0x0046}
0x770e…772a              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x004c, t01=0x0064}
0x772a…7740              Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x004c, t01=0x0080}
0x7740…7766              Head {h00=0x0022, h01=0x0050, text=» DATA CDADR ACTIVATION ADDRESS«, t00=0x004c, t01=0x0096}
0x7766…7782              Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x004c, t01=0x00bc}
0x7782…77aa              Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x004c, t01=0x00d8}
0x77aa…77c8              Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x004c, t01=0x0100}
0x77c8…77d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x011e}
0x77d2…77e8              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004c, t01=0x0128}
0x77e8…7812              Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x004c, t01=0x013e}
0x7812…7836              Head {h00=0x0020, h01=0x0050, text=» DATA ECBCD1 MMU ECB ADDRESS«, t00=0x004c, t01=0x0168}
0x7836…7842              Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x004c, t01=0x018c}
0x7842…784c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0008}
0x784c…7868              Head {h00=0x0018, h01=0x0050, text=»DWTTRA EQU *-DWCD01 «, t00=0x004d, t01=0x0012}
0x7868…7878              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x004d, t01=0x002e}
0x7878…78a4              Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x004d, t01=0x003e}
0x78a4…78d8              Head {h00=0x0030, h01=0x0050, text=»DWTBSE EQU *-DWCD01 DRIVER BUFFER INDICATOR «, t00=0x004d, t01=0x006a}
0x78d8…78ec              Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x004d, t01=0x009e}
0x78ec…7908              Head {h00=0x0018, h01=0x0050, text=»DWTSAV EQU *-DWCD01 «, t00=0x004d, t01=0x00b2}
0x7908…7918              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x004d, t01=0x00ce}
0x7918…7922              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00de}
0x7922…7938              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x004d, t01=0x00e8}
0x7938…7942              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00fe}
0x7942…794c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0108}
0x794c…795c              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x004d, t01=0x0112}
0x795c…7992              Head {h00=0x0032, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 1«, t00=0x004d, t01=0x0122}
0x7992…79c8              Head {h00=0x0032, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED INDICATOR UNIT 2«, t00=0x004d, t01=0x0158}
0x79c8…79fe              Head {h00=0x0032, h01=0x0050, text=»DWTRE1 EQU *-DWCD01 GRAND TOTAL RETRY COUNTER «, t00=0x004d, t01=0x018e}
0x79fe…7a0e              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x004e, t01=0x0034}
0x7a0e…7a3e              Head {h00=0x002c, h01=0x0050, text=»DWTRE2 EQU *-DWCD01 TOTAL RETRY COUNTER «, t00=0x004e, t01=0x0044}
0x7a3e…7a4e              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x004e, t01=0x0074}
0x7a4e…7a80              Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1«, t00=0x004e, t01=0x0084}
0x7a80…7a96              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x004e, t01=0x00b6}
0x7a96…7ac8              Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 2«, t00=0x004e, t01=0x00cc}
0x7ac8…7ad4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x00fe}
0x7ad4…7b02              Head {h00=0x002a, h01=0x0050, text=»DWTBA EQU *-DWCD01 USER BUFFER POINTER«, t00=0x004e, t01=0x010a}
0x7b02…7b12              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x004e, t01=0x0138}
0x7b12…7b28              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004e, t01=0x0148}
0x7b28…7b38              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x004e, t01=0x015e}
0x7b38…7b44              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x016e}
0x7b44…7b76              Head {h00=0x002e, h01=0x0050, text=»DWTLOS EQU *-DWCD01 LOGICAL SECTOR COUNTER«, t00=0x004e, t01=0x017a}
0x7b76…7b86              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x004f, t01=0x001c}
0x7b86…7bb8              Head {h00=0x002e, h01=0x0050, text=»DWTSEC EQU *-DWCD01 PHYSICAL SECTOR NUMBER«, t00=0x004f, t01=0x002c}
0x7bb8…7bca              Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x004f, t01=0x005e}
0x7bca…7bfa              Head {h00=0x002c, h01=0x0050, text=»DWTMAS EQU *-DWCD01 LOGICAL SECTOR MASK «, t00=0x004f, t01=0x0070}
0x7bfa…7c0a              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x004f, t01=0x00a0}
0x7c0a…7c14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00b0}
0x7c14…7c2a              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x004f, t01=0x00ba}
0x7c2a…7c34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00d0}
0x7c34…7c4e              Head {h00=0x0016, h01=0x0050, text=»*   CIO WORK AREAS«, t00=0x004f, t01=0x00da}
0x7c4e…7c58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00f4}
0x7c58…7c88              Head {h00=0x002c, h01=0x0050, text=»DWTCIO EQU *-DWCD01 CIO INTRUCTIONS AREA«, t00=0x004f, t01=0x00fe}
0x7c88…7cb0              Head {h00=0x0024, h01=0x0050, text=» CIO A2,1,CUAD1 CIO ON 1ST UNIT «, t00=0x004f, t01=0x012e}
0x7cb0…7cc6              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x004f, t01=0x0156}
0x7cc6…7cee              Head {h00=0x0024, h01=0x0050, text=» CIO A2,1,CUAD2 CIO ON 2ND UNIT «, t00=0x004f, t01=0x016c}
0x7cee…7cfa (80, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0004}
0x7cfa…7d2a              Head {h00=0x002c, h01=0x0050, text=»DWTSEK EQU *-DWCD01 SEEK OPERATION AREA «, t00=0x0050, t01=0x0010}
0x7d2a…7d3e              Head {h00=0x0010, h01=0x0050, text=» DATA SEEKCO«, t00=0x0050, t01=0x0040}
0x7d3e…7d76              Head {h00=0x0034, h01=0x0050, text=»DWTSEZ EQU *-DWCD01 SEEK TO ZERO OPERATION AREA «, t00=0x0050, t01=0x0054}
0x7d76…7d8a              Head {h00=0x0010, h01=0x0050, text=» DATA SEZCOM«, t00=0x0050, t01=0x008c}
0x7d8a…7dc8              Head {h00=0x003a, h01=0x0050, text=»DWTWHA EQU *-DWCD01 WRITE HOME ADDRESS AND SECTOR MARK«, t00=0x0050, t01=0x00a0}
0x7dc8…7ddc              Head {h00=0x0010, h01=0x0050, text=» DATA WHACOM«, t00=0x0050, t01=0x00de}
0x7ddc…7df0              Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x0050, t01=0x00f2}
0x7df0…7e06              Head {h00=0x0012, h01=0x0050, text=» DATA WHACOM+1«, t00=0x0050, t01=0x0106}
0x7e06…7e1a              Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x0050, t01=0x011c}
0x7e1a…7e30              Head {h00=0x0012, h01=0x0050, text=» DATA WHACOM+2«, t00=0x0050, t01=0x0130}
0x7e30…7e44              Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x0050, t01=0x0146}
0x7e44…7e5a              Head {h00=0x0012, h01=0x0050, text=» DATA WHACOM+3«, t00=0x0050, t01=0x015a}
0x7e5a…7e6e              Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x0050, t01=0x0170}
0x7e6e…7e9a              Head {h00=0x0028, h01=0x0050, text=» DATA WHACOM+/804 INTERRUPT BIT SET «, t00=0x0050, t01=0x0184}
0x7e9a…7eae              Head {h00=0x0010, h01=0x0050, text=» DATA PHSECL«, t00=0x0051, t01=0x0020}
0x7eae…7ed8              Head {h00=0x0026, h01=0x0050, text=»DWTCOP EQU *-DWCD01 CIO WORK AREA «, t00=0x0051, t01=0x0034}
0x7ed8…7eee              Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0051, t01=0x005e}
0x7eee…7f04              Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0051, t01=0x0074}
0x7f04…7f0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x008a}
0x7f0e…7f24              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRCD01«, t00=0x0051, t01=0x0094}
0x7f24…7f2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00aa}
0x7f2e…7f38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00b4}
0x7f38…7f6c              Head {h00=0x0030, h01=0x0050, text=»DWTCYL EQU *-DWCD01 PRESENT CYLINDER NUMBER «, t00=0x0051, t01=0x00be}
0x7f6c…7f86              Head {h00=0x0016, h01=0x0050, text=» DATA /FFFF UNIT 1«, t00=0x0051, t01=0x00f2}
0x7f86…7f9c              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0051, t01=0x010c}
0x7f9c…7fb6              Head {h00=0x0016, h01=0x0050, text=» DATA /FFFF UNIT 2«, t00=0x0051, t01=0x0122}
0x7fb6…7fc2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x013c}
0x7fc2…7fd4              Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0051, t01=0x0148}
0x7fd4…7fe6              Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0051, t01=0x015a}
0x7fe6…7ff8              Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x0051, t01=0x016c}
0x7ff8…801c              Head {h00=0x0020, h01=0x0050, text=»DWTSB3 EQU *-DWCD01-2 STACK «, t00=0x0051, t01=0x017e}
0x801c…802e              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0052, t01=0x0012}
0x802e…8064              Head {h00=0x0032, h01=0x0050, text=»DWTRAW EQU *-DWCD01 READ AFTER WRITE SAVE AREA«, t00=0x0052, t01=0x0024}
0x8064…807a              Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0052, t01=0x005a}
0x807a…8090              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0052, t01=0x0070}
0x8090…80a0              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0052, t01=0x0086}
0x80a0…80ac              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0096}
0x80ac…80c2              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0052, t01=0x00a2}
0x80c2…80d6              Head {h00=0x0010, h01=0x0050, text=»ECBCD1 EQU *«, t00=0x0052, t01=0x00b8}
0x80d6…80f2              Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0052, t01=0x00cc}
0x80f2…80fe              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x00e8}
0x80fe…8108              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00f4}
0x8108…8114              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0052, t01=0x00fe}
0x8114…8118              Head {h00=0x4004, h01=0x0000}
0x8118…811c              00 52 01 0a                                                                                                                                                                                                                                       ┆ R  ┆
0x811c…8124 (83, 1, 8)   20 04 00 00 00 53 00 04                                                                                                                                                                                                                           ┆     S  ┆
0x8124…8174 (84, 0, 400) 00 43 01 8e 00 06 00 50 2a 20 00 44 00 08 00 1c 00 50 44 45 4c 45 54 45 5c 45 51 55 5c 2a 5c 44 45 4c 45 54 45 20 46 49 4c 45 00 44 00 12 00 1a 00 50 2a 5c 5c 5c 54 4f 20 42 45 20 49 4d 50 4c 45 4d 45 4e 54 45 44 20 00 44 00 32 00 14 00 0f   ┆ C     P*  D     PDELETE EQU * DELETE FILE D     P*   TO BE IMPLEMENTED  D 2    ┆
0x8174…81c4              5c 45 4a 45 43 54 5c 5c 5c 46 4d 54 41 53 4b 20 00 44 00 50 00 06 00 03 2a 20 00 44 00 68 00 06 00 03 2a 20 00 44 00 72 00 0e 00 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 44 00 7c 00 0e 00 0a 2a 20 46 4d 52 44 46 50 20 2a 00 44 00 8e 00 0e 00 0a   ┆ EJECT   FMTASK  D P    *  D h    *  D r    ********** D |    * FMRDFP * D      ┆
0x81c4…8214              2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 44 00 a0 00 06 00 03 2a 20 00 44 00 b2 00 06 00 50 2a 20 00 44 00 bc 00 32 00 50 2a 20 20 20 46 49 4c 45 20 4d 41 4e 41 47 45 4d 45 4e 54 20 41 44 4d 49 4e 49 53 54 52 41 54 49 4f 4e 20 46 55 4e 43 54 49 4f   ┆********** D      *  D     P*  D   2 P*   FILE MANAGEMENT ADMINISTRATION FUNCTIO┆
0x8214…8264              4e 53 3a 20 00 44 00 c6 00 1c 00 50 2a 20 20 20 52 45 41 44 20 46 49 4c 45 20 50 41 52 41 4d 45 54 45 52 53 00 44 00 fc 00 06 00 50 2a 20 00 44 01 1c 00 1a 00 50 2a 20 20 20 45 4e 54 52 59 20 50 41 52 41 4d 45 54 45 52 53 3a 20 00 44 01 26   ┆NS:  D     P*   READ FILE PARAMETERS D     P*  D     P*   ENTRY PARAMETERS:  D &┆
0x8264…82b4              00 06 00 50 2a 20 00 44 01 44 00 1a 00 50 2a 20 20 20 41 31 20 3d 20 4f 52 44 45 52 20 4f 50 54 49 4f 4e 20 00 44 01 4e 00 2a 00 50 2a 20 20 20 41 35 20 3d 20 54 54 41 42 20 41 44 44 52 45 53 53 20 4f 46 20 43 41 4c 4c 49 4e 47 20 54 41 53   ┆   P*  D D   P*   A1 = ORDER OPTION  D N * P*   A5 = TTAB ADDRESS OF CALLING TAS┆

Reduced view