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

⟦759ef6ea4⟧ 

    Length: 59006 (0xe67e)
    Notes: pts_type(SC)
    Names: »DRDU01.SC«

Derivation

└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »MONGEN/DRDU01.SC«

PTS(SC)

	IDENT DRDU01 	REL 11.0 81-05-18 870105041100 

			=3, CONDITION FOR CPU857 CHANGED 
			=3, REL 11.0 81-04-02
			=2, A2 AND A3 DISCS IN SAME SYSTEM 
			=2, REL 11.0 81-01-26 ,DATA CORRUPTED
			=1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY
* 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRDU01 = DRIVER FOR ONE/TWO DISC UNITS
* 
*   PTS 6875 (X1215) AND/OR PTS 6876 (X1216)
* 
* 
* 
* 
* 
**************************************************
* 
* 
*   THIS DISC DRIVER HANDLES UP TO TWO DISC 
*   DRIVES X1215,X1216 CONNECTED TO CPU VIA IOP 
*   ON MULTIPLEX 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			DRDU01			DRDU01
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	DUADR	ACTIVATION ADDRESS 
	ENTRY	DUON	RECOVERY ROUTINE
	ENTRY	IHDU1	INTERRUPT HANDLER DISC UNIT NO. 1
	ENTRY	IHDU	INTERRUPT HANDLER DISC UNIT NO. 1 
	ENTRY	IHDU2	INTERRUPT HANDLER DISC UNIT NO. 2
	ENTRY	DWDU01	DWT ADDRESS DISC UNIT NO. 1 
	EJECT			DRDU01 
* 
* 
************* 
* 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	DWTA2	SAVE AREA A2 
	EXTRN	DWTA4	SAVE AREA A4 
	EXTRN	DWTA5	SAVE AREA A5 
	EXTRN	DWTSB1	STACK BASE 1 IN DWT 
	EXTRN	DWTSB2	STACK BASE 2 IN DWT 
	EXTRN	DWTUEC	USER ECB ADDRESS
	EXTRN	DWTORD	SAVE AREA FOR ORDER 
	EXTRN	DWTNVL	NEM VOLUME LOADED INDICATORS
	EXTRN	DWTVOL	VOLUME NAMES
	EXTRN	DWTTAB	TTAB ADDRESS
	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			DRDU01 
* 
* 
**************************
*                        *
*  CONDITIONAL ASSEMBLY  *
*                        *
**************************
* 
* 
*   READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15
*   BY SETTING X:A = 0
* 
X:A	EQU	0 
RAW	EQU	1 
* 
* 
*   THIS DRIVER CAN HANDLE TWO DISC UNITS 
*   IF X:B := 2 
* 
X:B	EQU	1 
NUNITS	EQU	2
* 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
	EJECT		DRDU01
* 
* 
*	A PROGRAM VERSION USING THE INSTRUCTION SET OF
*	CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1 
* 
CPU857	EQU	1		=3
* 
* 
*	PROGRAM VERSION FOR FORMAT
*	A2 IS OBTAINED BY SETTING VERSA2 EQU 1
*	A3 IS OBTAINED BY SETTING VERSA3 EQU 1
* 
X:C	EQU	1 
VERSA2	EQU	1
* 
X:D	EQU	1 
VERSA3	EQU	1
* 
	EJECT			DRDU01			DRDU01
* 
* 
************* 
* CONSTANTS * 
************* 
* 
* 
DAF1	EQU	/28	DEVICE ADDRESS FIXED DISC NO. 1
DAC1	EQU	/08	DEVICE ADDRESS CARTRIDGE DISC NO. 1
DAF2	EQU	/38	DEVICE ADDRESS FIXED DISC NO. 2
DAC2	EQU	/18	DEVICE ADDRESS CARTRIDGE DISC NO. 2
WER1	EQU	/10	MULTIPLEXOR ADDRESS
CUADR	EQU	/08	CONTROL UNIT ADDRESS
* 
MAXSEC	EQU	6528	MAX NO OF SECTORS ON UNPACKED PTS 6875
SECLEN	EQU	256	SECTOR LENGTH, CHARACTERS
PHSECL	EQU	384	PHYSICAL SECTOR LENGTH 
QRETRY	EQU	4	NO OF RETRIES
TIME	EQU	1000	1 MIN 40 SEC
* 
DEVIND	EQU	10 
* 
	EJECT			DRDU01			DRDU01
* 
* 
	DATA	0	INDICATES NO MMU BUFFER 
	DATA	DEVIND	DISC DEVICE INDEX
DUADR	DATA	DUAD	ACTIVATION ADDRESS
	DATA	0	ABORT ROUTINE ADDRESS 
* 
	IFT	VERSA3=1 
BUFFER	RES	193
	XIF
* 
	IFT	VERSA3=0 
BUFFER	RES	25 
* 
	IFT	RAW=1
	RES	103
	XIF
	IFT	VERSA2=1		=2 
CYLBUF	RES	2	CYL ID CHECK BUFFER	=2 
	XIF			=2 
* 
	EJECT			DRDU01			DRDU01
* 
* 
***************** 
*               * 
*  ACTIVATION   * 
*               * 
***************** 
* 
* 
DUAD	EQU	*
	CM	DWTRTY,A6	RETRY INDICATOR 
	CM	DWTFBU,A6	RESET DRIVER BUFFER INDICATOR 
	LDK	A1,0 
	LC	A1,DWTOR,A6	GET INDEX 
	IFT	NUNITS=1 
	SUK	A1,1 
	XIF
	IFT	NUNITS=2 
	SUK	A1,3 
	XIF
	RF(P)	DUERR	FAULT IN INDEX 
* 
DUA:00	EQU	*
* 
	LDK	A5,DWTSB3
	ADR	A5,A6	LOAD STACK BASE
	IFT	MMUPAG=1 
	MLR	2,A8	GET 18 BIT BUFFER ADDRESS 
	SLC	A1,4	MOST SIGN. BITS 
	ANK	A1,3 
	SRL	A2,1	WORD ADDDRESS 
	CF	A5,MMULOG	GET LOGICAL ADDRESS 
	XIF
* 
	CF	A15,NVLCHK	CHECK IF NEW VOLUME LOADED 
*			SAVE INDEX AND ORDER
	ADK	A7,0	SET CR
	RF(NZ)	DUA:05	NOT TEST STATUS ORDER
* 
	EJECT		DRDU01
* 
* 
********************* 
*                   * 
*   TEST STATUS     * 
*                   * 
********************* 
* 
* 
	ORS	A1,ECBRC,A8	NVL BIT
	LDKL	A2,/200 
	ANS	A2,DWTOR,A6	VO:NAM ON FIRST OR SECOND UNIT 
	LDK	A2,1 
	ST	A2,DWTSAV,A6	INDICATE TEST STATUS 
	CF	A5,VO:NAM	READ VOLUME NAME
	ADK	A1,0 
	RF(NZ)	TESEND	NOT OPERABLE 
	LD	A2,DWTORD,A6	RESTORE INDEX AND ORDER
	ST	A2,DWTOR,A6 
	LD	A8,DWTECB,A6	ECB ADDRESS
	CF	A15,VOLNAM	TRANSFER VOLUME NAME TO USER BUFFER
	LDK	A1,0	RESET RETURN CODE 
TESEND	EQU	*
	LDKL	A2,-1 
	ST	A2,DWTSAV,A6	INDICATE TEST STATUS DONE
	ABL	END:IO	PERFORM ENDIO 
* 
	EJECT			DRDU01 
* 
*************************************** 
*                                     * 
*   NEW VOLUME LOADED CHECK           * 
*   ORDER CODE CHECK                  * 
*                                     * 
*************************************** 
* 
*   INPUT: A1=NVL RETURN CODE FROM NVLCHK 
*          A7=ORDER CODE
* 
* 
DUA:05	EQU	*
	ADK	A1,0	CHECK IF NEW VOLUME LOADED
	ABL(NZ)	END:IO	PERFORM TENDIO
	SUK	A7,1 
	RF(Z)	DUA:10	BASIC READ
	SUK	A7,4 
	RF(Z)	DUA:10	BASIC WRITE 
	SUK	A7,12	 
	RF(Z)	DUA:10	PHYSICAL READ 
	SUK	A7,4 
	RF(Z)	DUA:10	PHYSICAL WRITE
	SUK	A7,10
	RF(Z)	FORMAT	FORMAT VOLUME 
* 
DUERR	ABL	DISIOE	REQUEST ERROR
* 
INCLEN	EQU	*	REQUESTED LENGTH ERROR 
	LDKL	A1,/8008
	ABL	END:20	
	EJECT		DRDU01
* 
* 
**************************
*                        *
*   FORMAT VOLUME         * 
*                        *
**************************
* 
* 
FORMAT	EQU	*
	LDK	A7,204	NUMBER OF CYLINDERS ON PTS 6875 
	LD	A1,ECBCW1,A8	GET DISC TYPE
	IFT	VERSA2+VERSA3=2
	ECR	A2,A1
	XIF
	ANK	A1,1 
	RF(NZ)	FORM03	PTS 6875 
	ADK	A7,204	PTS 6876
FORM03	EQU	*
* 
	IFT	VERSA2+VERSA3=2
	LDKL	A3,BUFFER 
	LDKL	A1,/C001	WRITE ONE WORD 
	ANK	A2,3 
	SUK	A2,3 
	RF(NZ)	FORM05	A1 OR A2 
	LDKL	A1,/C0C1	WRITE 386 BYTES
	ADKL	A3,PHSECL 
FORM05	EQU	*
	ST	A1,DWTFBU,A6	SAVE 1ST WER 
	XIF
* 
	IFT	VERSA2=1 
	IFT	VERSA3=0 
	LDKL	A3,BUFFER 
	XIF
* 
	IFT	VERSA2=0 
	IFT	VERSA3=1 
	LDKL	A3,BUFFER+PHSECL	POSITION FOR CYL ID
	XIF
* 
	STR	A3,A6	DRIVER BUFFER POINTER
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	CM	DWTCYL,A2	CYLINDER ZERO 
	XIF
	IFT	NUNITS=1 
	CM	DWTCYL,A6	CYLINDER ZERO 
	XIF
* 
	EJECT		DRDU01
* 
* 
FORM20	EQU	*
	LDK	A4,QRETRY
FORM30	EQU	*
	IFT	NUNITS=2 
	CF	A5,INXUNI	GET UNIT INDEX
	XIF
	CF	A5,SEEK	SEEK CYLINDER 
	SLL	A1,5	STATUS
	RF(NN)	FORM40	SEEK ERROR 
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	LD	A1,DWTCYL,A2
	XIF
	IFT	NUNITS=1 
	LD	A1,DWTCYL,A6
	XIF
	ST*	A1,0,A6	PREPARE DRIVER BUFFER WITH CYL. ID 
	LDK	A3,0 
	CF	A5,SKEW	WRITE SECTOR 0 ON EVEN CYLINDERS
*			WRITE SECTOR 8 ON ODD CYLINDERS 
	ORK	A3,1	ORDER CODE: WRITE 
* 
	IFT	VERSA2+VERSA3=2
	LD	A1,DWTFBU,A6	GET 1ST WER
	XIF
* 
	IFT	VERSA2=1 
	IFT	VERSA3=0 
	LDKL	A1,/C002
	XIF
* 
	IFT	VERSA2=0 
	IFT	VERSA3=1 
	LDKL	A1,/C0C1	1ST WER WRITE 386 BYTES
	XIF
* 
	LDKL	A2,BUFFER 
	CF	A5,CIO:50	CIO:50 SECTOR 
	ANK	A1,/1F 
	RF(NZ)	FORM40	WRITE ERROR
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	IM	DWTCYL,A2 
	XIF
	IFT	NUNITS=1 
	IM	DWTCYL,A6 
	XIF
	SUK	A7,1	DECREMENT CYLINDER COUNTER
	RB(NZ)	FORM20
	LD	A2,ECBCW1,A8	GET FORMAT AND TYPE OF DISC
	ABL	TRANPA	PUT FORMAT AND TYPE IN DWT
FORM40	EQU	*
	CF	A5,SEEKZ	SEEK CYLINDER 0
	SLL	A1,6 
	RF(N)	FORM50	SEEK ERROR
	SUK	A4,1	RETRY COUNTER 
	RB(NZ)	FORM30	RETRY
FORM50	EQU	*
	LDK	A1,2	SEEK ERROR RETURN CODE
	ABL	END:IO	PERFORM END IO
	EJECT			DRDU01			DRDU01
* 
* 
************************************************* 
*                                               * 
*   CHECK IF ALLOWED SECTOR LENGTH, BUFFER SIZE * 
*   AND SECTOR NUMBER                           * 
*   SAVE BUFFER ADDRESS AND SET SECTOR COUNTER  * 
*                                               * 
************************************************* 
* 
*   INPUT: ECB
*   OUTPUT: A7=SECTOR COUNTER 
*           DWTUBU=USER BUFFER POINTER
* 
* 
DUA:10	EQU	*
	LD	A3,ECBRL,A8	REQUESTED LENGTH
	RB(Z)	INCLEN 
	ECR	A7,A3	DIVIDE BY 256 TO GET NUMBER OF SECTORS 
	ANK	A3,/FF	SET CONDITION REGISTER
	RB(NZ)	INCLEN	NOT AN INTEGER NUMBER OF SECTORS 
	LD	A3,ECBCW2,A8	SECTOR NUMBER WHERE THE BUFFER BEGIN 
	RB(N)	DUERR	INCORRECT SECTOR NUMBER
	CW	A3,DWTSMX,A2
	RB(NL)	DUERR	INCORRECT SECTOR NUMBER 
	ADR	A3,A7
	CW	A3,DWTSMX,A2
	RB(G)	INCLEN	SECTOR NUMBER OVERFLOW
* 
	IFT	MMUPAG=0 
	LD	A1,ECBBA,A8 
	ST	A1,DWTUBU,A6	USER BUFFER POINTER
	XIF
* 
	EJECT		DRDU01
* 
	IFT	VERSA2+VERSA3=2
* 
* 
******************************
*                            *
*   DISC VERSION SEPARATION  *
*                            *
***************************** 
* 
* 
	LD	A2,DWTFOR,A2
	SUK	A2,2 
	RF(Z)	RW:800	VERSION A2
	XIF
* 
	EJECT		DRDU01
* 
	IFT	VERSA3=1 
* 
************************************* 
*                                   * 
*                                   * 
*   GET PHYSICAL SECTOR NUMBER BY   * 
*   DIVIDE BY 3                     * 
*                                   * 
************************************* 
* 
	IFT	CPU852=0 
	LDK	A1,0	PREPARE FOR DIVISION
	LD	A2,ECBCW2,A8	GET LOGICAL SECTOR NUMBER
	DVK	3
*   A1=REMAINER=LOGICAL SECTOR POSITION 
*   A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC
	XIF
* 
	IFT	VERSA3=1 
	IFT	CPU852=1 
	LD	A1,ECBCW2,A8
	LDR	A3,A1	SECTOR NUMBER
	LDK	A2,0 
DVK:00	EQU	*
	ADR	A2,A3	I:= I+I/4
	SRL	A3,2	I:= I/4 
	RB(NZ)	DVK:00
	SRL	A2,2	TRUNCATE
	SUR	A1,A2
	SUR	A1,A2
	SUR	A1,A2	REST AFTER LOOP
	SUK	A2,1 
DVK:10	EQU	*
	ADK	A2,1 
	SUK	A1,3	DIVIDE BY 3 
	RB(NN)	DVK:10
	ADK	A1,3	REST
*   A1=REMAINER=LOGICAL SECTOR POSITION 
*   A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC
* 
	EJECT		DRDU01
	XIF
* 
	IFT	VERSA3=1 
* 
************************************* 
*                                   * 
*   SAVE PHYSICAL SECTOR NUMBER     * 
*   AND SECTOR POSITION             * 
*   BRANCH ACCORDING TO SECTOR      * 
*   POSITION                        * 
*                                   * 
************************************* 
* 
*   INPUT: A1=SECTOR POSITION INDICATOR 
*          A2=LOGICAL SECTOR NUMBER / 3 
* 
* 
	ADR	A2,A2
	STR	A2,A6	SAVE PHYSICAL SECTOR NUMBER
	SUK	A1,1 
	IFT	RAW=1
	ST	A1,DWTSEP,A6	SAVE SECTOR POSITION 
	ST	A2,DWTSEI,A6	SAVE 1ST PHYS. SECTOR NUMBER 
	XIF
* 
	IFT	VERSA3=1 
*			LOGICAL SECTOR POSITION 
	RF(N)	RW:300	,XXXX  ,      , 
	RF(Z)	RW:200	,    XX,XX    , 
*			,      ,  XXXX, 
* 
	EJECT		DRDU01
* 
************************************* 
*                                   * 
*   READ/WRITE FROM SECTOR IN       * 
*   POSITION ,      ,  xxxx,        * 
*                                   * 
************************************* 
* 
	IMR	A6	LOG. SECTOR IN NEXT PHYSICAL
	IFT	RAW=1
	IM	DWTSEI,A6	SAVE FOR READ AFTER WRITE 
	XIF
* 
	IFT	VERSA3=1 
	CF	A5,IOROUT 
	DATA	/0084 
	SUK	A7,1 
	RF	RW:300
* 
	EJECT		DRDU01
* 
************************************* 
*                                   * 
*   READ/WRITE FROM SECTOR IN       * 
*   POSITION ,    xx,               * 
*                                   * 
************************************* 
* 
* 
RW:200	EQU	*
	CF	A5,IOROUT 
	DATA	/0048 
	SUK	A7,2	NUMBER OF SECTORS 
	RF(N)	RW:230	1 SECTOR IN IO
	RF(NZ)	RW:260	>2 SECTORS IN IO 
*			,    XX,XXXXXX, 
	CF	A5,IOROUT 
	DATA	/00C0 
	RF	RW:600
RW:230	EQU	*	,    XX,XX    ,
	CF	A5,IOROUT 
	DATA	/0040 
	RF	RW:600
RW:260	EQU	*	,    XX,XXXXXX,
	CF	A5,IOROUT 
	DATA	/80C0 
* 
	EJECT		DRDU01
* 
************************************
*                                  *
*   DIRECT READ/WRITE AS LONG      *
*   AS POSIBLE                     *
*                                  *
************************************
* 
* 
RW:300	EQU	*
	SUK	A7,3	SECTOR COUNTER
	RF(NG)	RW:500	LESS THAN FOUR SECTORS IN IO 
	CF	A5,IOROUT 
	DATA	/80C0 
	CF	A5,IOROUT 
	DATA	/80C0 
	RB	RW:300
* 
	EJECT		DRDU01
* 
************************************
*                                  *
*   READ/WRITE ON THE LAST SECTORS *
*   IN IO                          *
*                                  *
************************************
* 
* 
RW:500	EQU	*
	RF(Z)	RW:580	3 SECTORS 
	ADK	A7,2 
	RF(P)	RW:560	2 SECTORS 
	RF(N)	RW:600	0 SECTORS 
RW:530	EQU	*	,XXXX  ,      ,
	CF	A5,IOROUT 
	DATA	/0080 
	RF	RW:600
RW:560	EQU	*	,XXXXXX,XX    ,
	CF	A5,IOROUT 
	DATA	/80C0 
	CF	A5,IOROUT 
	DATA	/0040 
	RF	RW:600
RW:580	EQU	*	,XXXXXX,XXXXXX,
	CF	A5,IOROUT 
	DATA	/80C0 
	CF	A5,IOROUT 
	DATA	/00C0 
* 
	EJECT		DRDU01
* 
* 
RW:600	EQU	*
	IFT	RAW=1
* 
************************
*                      *
*   READ AFTER WRITE   *
*                      *
************************
* 
*   DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO
*   1ST POS IN DWT=LAST PHYSICAL SECTOR NUMBER IN IO
*   A7=SECTOR COUNTER 
* 
	LD	A7,DWTOR,A6 
	ANK	A7,/FF	GET ORDER 
	SUK	A7,/15 
	RF(NZ)	RW:700	NOT PHYSICAL WRITE 
	LDKL	A2,-/100
	LD	A1,DWTSEP,A6	GET 1ST SECTOR POSITION
	RF(Z)	RW:645	,    XX,
	RF(P)	RW:640	,  XXXX,
	ADK	A2,/80 
RW:640	EQU	*
	ADK	A2,/80 
RW:645	EQU	*
	ST	A2,ECBEL,A8	PREPARE EFFECTIVE LENGTH
	LD	A1,DWTSEI,A6	RAW FROM THIS SECTOR 
	LDR*	A7,A6	GET LAST SECTOR NO
	SUR	A7,A1	GET NUMBER OF PHYSICAL SECTORS 
	STR	A1,A6
* 
	EJECT		DRDU01
* 
* 
RW:650	EQU	*
	CF	A5,IOROUT 
	DATA	/40C0 
	IMR	A6	NEXT PHYSICAL SECTOR
	LDKL	A1,PHSECL 
	ADS	A1,ECBEL,A8	UPDATE ECBEL 
	SUK	A7,1 
	RB(NZ)	RW:650
	LD	A7,ECBRL,A8 
	ST	A7,ECBEL,A8	CORRECT EFFECTIVE LENGTH
	XIF
* 
	IFT	VERSA3=1 
RW:700	EQU	*
	LDK	A1,0	RETURN CODE 
	ABL	END:20	ENDIO 
* 
	XIF
* 
	EJECT		DRDU01
* 
	IFT	VERSA2=1 
* 
* 
********************************* 
*                               * 
*   DISC FORMAT A2              * 
*                               * 
********************************* 
* 
* 
RW:800	EQU	*
	CF	A5,DIV31
	IFT	RAW=1
	ST	A7,DWTSEI,A6	SAVE NUMBER OF SECTORS FOR READ AFTER WRITE
	XIF
* 
	IFT	VERSA2=1 
RW:850	EQU	*
	CF	A5,IOROUT 
	DATA	/A080	INDICATE FORMAT A2
	LDKL	A1,/100 
	ADS	A1,DWTUBU,A6	UPDATE USER BUFFER POINTER
	SUK	A7,1 
	RB(NZ)	RW:850	MORE SECTORS IN IO 
* 
	EJECT		DRDU01
* 
* 
	IFT	RAW=1
	LD	A7,DWTOR,A6	GET ORDER 
	ANK	A7,/FF 
	SUK	A7,/15 
* 
	IFT	VERSA3=1 
	RB(NZ)	RW:700	NOT PHYSICAL WRITE 
	XIF
* 
	IFT	VERSA3=0 
	IFT	VERSA2=1 
	IFT	RAW=1
	RF(NZ)	RW:905
	XIF
* 
	IFT	VERSA2=1 
	IFT	RAW=1
	CM	ECBEL,A8	PREPARE FOR READ AFTER WRITE 
	LD	A7,DWTSEI,A6
	CF	A5,DIV31
* 
	EJECT		DRDU01
* 
* 
RW:900	EQU	*
	CF	A5,IOROUT 
	DATA	/E080	READ AFTER WRITE
	SUK	A7,1 
	RB(NZ)	RW:900
	XIF
* 
	IFT	VERSA2+VERSA3=2
	RB	RW:700
	XIF
* 
	IFT	VERSA3=0 
	IFT	VERSA2=1 
RW:905	EQU	*
	LDK	A1,0	RESET RETURN CODE 
	ABL	END:20 
	XIF
* 
	EJECT		DRDU01
* 
*********************************************** 
*                                             * 
*   IOROUT PERFORM READ OR WRITE AND SEEK     * 
*   IF NECESSARY                              * 
*                                             * 
*********************************************** 
* 
*   INPUT : ONE DATA WORD AFTER CF
*          BIT 0 :INDICATES DIRECT IO 
*          BIT 1 :INDICATES READ AFTER WRITE
*          BIT 2 :INDICATES FORMAT A2 
*          BIT 8-11:NUMBER OF WORDS/16
*          BIT12-15:START IN DRIVER BUFFER/32 
*   AFTER SEEK THE CYLINDER ID WILL BE CHECKED BY A READ
*   DWTBSE CONTAINS THE PRESENT SECTOR IN THE DRIVER BUFFER 
*   DWTRTY INDICATES RETRIES DONE 
*   DWTSWD SAVED WORD FROM USER BUFFER WHEN IO NOT VIA DRIVER BUFFER
* 
IOROUT	EQU	*
	LDR*	A3,A6	GET PHYSICAL SECTOR NUMBER
	SRL	A3,5	GET CYLINDER NUMBER 
* 
	IFT	VERSA2+VERSA3=2
	LD*	A4,4,A5	GET DATA WORD
	SLL	A4,2 
	RF(NN)	SEE:05	FORMAT A3
	ADK	A3,0 
	XIF
* 
	EJECT		DRDU01
* 
* 
	IFT	VERSA2=1 
	RF(NZ)	SEE:05	NOT CYLINDER 0 
	CF	A5,SEEKZ
	SLL	A1,6 
	RF(N)	SEE:20	ERROR 
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	CM	DWTCYL,A2	CYLINDER ZERO 
	RF	VA2BR 
	XIF
	IFT	VERSA2=1 
	IFT	NUNITS=1 
	CM	DWTCYL,A6 
	RF	VA2BR 
	XIF
* 
	EJECT		DRDU01
* 
* 
SEE:05	EQU	*
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	CW	A3,DWTCYL,A2	COMPARE WITH PRESENT 
	XIF
	IFT	NUNITS=1 
	CW	A3,DWTCYL,A6
	XIF
* 
	IFT	VERSA2=1 
	IFT	VERSA3=0 
	RF(E)	VA2:00 
	XIF
* 
	IFT	VERSA2=0 
	IFT	VERSA3=1 
	RF(E)	SEE:90	HEAD IN POSITION
	XIF
* 
	IFT	VERSA2+VERSA3=2
	RF(NE)	SEE:07	NOT SAME CYLINDER
	ADK	A4,0 
	RF(N)	VA2BR	FORMAT A2
	RF	SEE:90
* 
	EJECT		DRDU01
* 
* 
SEE:07	EQU	*
	XIF
* 
	IFT	NUNITS=1 
	ST	A3,DWTCYL,A6	NEW CYLINDER NUMBER
	XIF
* 
	IFT	NUNITS=2 
	ST	A3,DWTCYL,A2	NEW CYLINDER 
	XIF
	LDK	A4,QRETRY	NUMBER OF RETRIES
SEE:10	EQU	*
	IFT	NUNITS=2 
	CF	A5,INXUNI	DOUBLED UNIT INDEX
	XIF
	CF	A5,SEEK 
	SLC	A1,5	RETURN CODE 
	RF(N)	SEE:30	OK
* 
	EJECT		DRDU01
* 
* 
SEE:15	EQU	*
	CF	A5,SEEKZ	SEEK CYL ZERO
	SLC	A1,6	RETURN CODE 
	RF(N)	SEE:20	ERROR 
	IM	DWTRTY,A6	INDICATE RETRY
	SUK	A4,1	RETRY COUNTER 
	RB(NZ)	SEE:10	TRY AGAIN
SEE:20	EQU	*
	LDKL	A3,/FFFF
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	ST	A3,DWTCYL,A2	DUMMY CYLINDER NUMBER
	XIF
	IFT	NUNITS=1 
	ST	A3,DWTCYL,A6	DUMMY CYLINDER NUMBER
	XIF
	LDK	A1,/02	RETURN CODE 
	RF	SEE:35	END IO 
* 
	EJECT		DRDU01
* 
* 
SEE:30	EQU	*
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	XIF
	IFT	VERSA2+VERSA3=2
	LD*	A1,4,A5	GET DATA WORD
	SLL	A1,2 
	RF(NN)	SEE:31	FORMAT A3
	XIF
* 
	IFT	VERSA2=1 
	EJECT		DRDU01
* 
* 
*   FORMAT A2 
* 
	LDK	A3,0 
	CF	A5,SKEW 
	LDKL	A1,/8002	READ 2 WORDS 
	LDKL	A2,CYLBUF	READ TO CYLINDER CHECK BUFFER	=2
	CF	A5,CIO:50 
	ANK	A1,/1F	ERROR CHECK 
	RF(NZ)	SEE:32
	LD	A3,CYLBUF	GET CYLINDER ID	=2
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	CW	A3,DWTCYL,A2	CHECK IF SAME CYLINDER 
	XIF
	IFT	VERSA2=1 
	IFT	NUNITS=1 
	CW	A3,DWTCYL,A6	CHECK IF SAME CYLINDER 
	XIF
	IFT	VERSA2=1 
	RB(NE)	SEE:15	NOT SAME CYL ID
VA2BR	EQU	* 
	ABL	VA2:00 
	XIF
* 
	IFT	VERSA3=1 
	EJECT		DRDU01
* 
* 
*   FORMAT A3 
* 
SEE:31	EQU	*
	IFT	NUNITS=2 
	LD	A3,DWTCYL,A2
	XIF
	IFT	VERSA3=1 
	IFT	NUNITS=1 
	LD	A3,DWTCYL,A6
	XIF
* 
	IFT	VERSA3=1 
	SLL	A3,5	GET SECTOR NUMBER 
	ST	A3,DWTBSE,A6	SAVE FOR BSELOD
	LDK	A3,0 
	CF	A5,SKEW	TO READ SECTOR 0 OR 8 ON DISC 
	IM	DWTFBU,A6	INDICATE READ TO DRIVER BUFFER
	CF	A5,READ 
	LD	A3,DWTBSE,A6	GET SECTOR NUMBER FOR BSELOD 
	ANK	A1,/1F	ERROR CODE CHECK
	CF	A5,BSEL00 
	RF(Z)	SEE:40	OK
	XIF
* 
SEE:32	EQU	*
	IM	DWTRTY,A6	INDICATE RETRY
	SUK	A4,1	RETRY COUNTER 
	RB(NZ)	SEE:15	RETRY
SEE:35	EQU	*
	ABL	END:10 
* 
	IFT	VERSA3=1 
* 
	EJECT		DRDU01
* 
* 
SEE:40	EQU	*
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	LD	A3,DWTCYL,A2	GET CYLINDER NUMBER
	XIF
	IFT	VERSA3=1 
	IFT	NUNITS=1 
	LD	A3,DWTCYL,A6	GET CYLINDER NUMBER
	XIF
	IFT	VERSA3=1 
	CW	A3,BUFFER+PHSECL	COMPARE WITH CYL ID
	RB(NE)	SEE:15	RETRY
* 
	EJECT		DRDU01
* 
************************* 
*                       * 
*   READ AND WRITE      * 
*   FORMAT A3           * 
*                       * 
************************* 
* 
SEE:90	EQU	*
	LD	A4,DWTOR,A6	GET ORDER 
	ANK	A4,4 
	RF(Z)	READ00	READ ORDER
	LD*	A2,4,A5
	RF(N)	WRIT20	WRITE DIRECT FROM USER BUFFER 
	SLL	A2,1 
	IFT	RAW=1
	RF(N)	READWR	READ AFTER WRITE
	XIF
* 
	IFT	VERSA3=1 
	CWK	A2,PHSECL	 
	RF(E)	WRIT10	WRITE FROM DRIVER BUFFER
	IM	DWTFBU,A6	INDICATE READ TO DRIVER BUFFER
	CF	A5,REA:00	READ BEFORE WRITE 
* 
	EJECT		DRDU01
* 
* 
WRIT10	EQU	*
	LD*	A2,4,A5	GET DATA WORD
	LDR	A4,A2
	ANK	A4,/C0	GET NUMBER OF WORDS TO MOVE 
	SLL	A4,1	BYTES 
	ANK	A2,/F	BEG ADRESS IN DRIVER BUFFER
	SLL	A2,5 
	CF	A5,MOVWRI	MOVE TO DRIVER BUFFER 
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	LD	A2,DWTCYL,A2	GET CYLINDER NUMBER
	XIF
	IFT	VERSA3=1 
	IFT	NUNITS=1 
	LD	A2,DWTCYL,A6	GET CYLINDER NUMBER
	XIF
	IFT	VERSA3=1 
	ST	A2,BUFFER+PHSECL	PUT IN DRIVER BUFFER 
	IM	DWTFBU,A6	INDICATE WRITE FROM DRIVER BUFFER 
	CF	A5,WRI:00	WRITE FROM DRIVER BUFFER
	RF	SEE:95
* 
	EJECT		DRDU01
* 
* 
WRIT20	EQU	*
	IFT	MMUPAG=0 
	LDKL	A2,PHSECL	PHYSICAL SECTOR LENGTH
	ADS	A2,DWTUBU,A6	UPDATE USER BUFFER POINTER
	LD*	A4,DWTUBU,A6	GET WORD IN USER BUFFER 
	ST	A4,DWTSWD,A6	SAVE WORD
	IM	DWTFSW,A6	INDICATE SAVED WORD 
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	LD	A2,DWTCYL,A2	GET CYLINDER NUMBER
	ST*	A2,DWTUBU,A6	PUT IN USER BUFFER
	XIF
	IFT	VERSA3=1 
	IFT	MMUPAG=0 
	IFT	NUNITS=1 
	LD	A2,DWTCYL,A6
	ST*	A2,DWTUBU,A6	PUT IN USER BUFFER
	XIF
* 
	IFT	VERSA3=1 
	IFT	MMUPAG=1 
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	LD	A4,DWTCYL,A2	GET CYLINDER NUMBER
	XIF
	IFT	VERSA3=1 
	IFT	MMUPAG=1 
	IFT	NUNITS=1 
	LD	A4,DWTCYL,A6	GET CYLINDER NUMBER
	XIF
	IFT	VERSA3=1 
	IFT	MMUPAG=1 
	ML	2,DWTBA1,A6	GET PHYSICAL BUFFER ADDRESS 
	RF(Z)	WRIT30	SYSTEM AREA 
	TS	-30,A15	SAVE REGISTERS ON STACK 
	TL	DWTPAG,A6	LOAD PAGE WITH CYL ID 
	LD	A2,DWTUBU,A6	GET LOGICAL BUFFER POINTER 
	EL	A3,PHSECL,A2	GET WORD TO SAVE 
	ES	A4,PHSECL,A2	PUT CYL ID IN POSITION 
	TL	-30,A15	GET REGISTERS 
	RF	WRIT40
WRIT30	EQU	*
	SLL	A2,1	BYTE ADDRESS
	LD	A3,PHSECL,A2	GET WORD TO BE SAVED 
	ST	A4,PHSECL,A2	CYL ID IN POSITION 
WRIT40	EQU	*
	ST	A3,DWTSWD,A6	SAVA WORD
	IM	DWTFSW,A6	INDICATE SAVED WORD 
	XIF
* 
	IFT	VERSA3=1 
	CM	DWTFBU,A6	INDICATE WRITE FROM USER BUFFER 
	CF	A5,WRI:00	WRITE SECTOR FROM USER BUFFER 
	CF	A5,REWORD	RESTORE WORD TO USER BUFFER 
	RF	SEE:95
* 
	EJECT		DRDU01
* 
* 
	IFT	RAW=1
READWR	EQU	*
	CF	A5,REA:10	READ AFTER WRITE
	RF	SEE:97
	XIF
* 
	IFT	VERSA3=1 
READ00	EQU	*
	LD*	A2,4,A5	GET DATA WORD
	RF(N)	READ20	DIRECT READ 
	IM	DWTFBU,A6	INDICATE READ TO DRIVER BUFFER
	CF	A5,REA:00	READ TO DRIVER BUFFER 
	LD*	A1,4,A5	GET DATA WORD
	SLL	A1,1 
	LDR	A4,A1
	ANKL	A4,/180	GET NUMBER OF BYTES TO BE MOVED 
	ANK	A1,/18	GET POSITION
	SLL	A1,4 
	CF	A5,MOVRED 
	RF	SEE:95
READ20	EQU	*
	IFT	MMUPAG=0 
	LDKL	A3,PHSECL 
	ADS	A3,DWTUBU,A6	UPDATE USER BUFFER POINTER
	XIF
* 
	IFT	VERSA3=1 
	CM	DWTFBU,A6	INDICATE READ TO USER BUFFER
	CF	A5,REA:00	READ TO USER BUFFER 
SEE:95	EQU	*
	IMR	A6	UPDATE PHYSICAL SECTOR POINTER
	XIF
* 
	EJECT		DRDU01
* 
* 
SEE:96	EQU	*
	LD*	A2,4,A5	GET DATA WORD
	ANK	A2,/C0	LENGTH
	SLL	A2,1 
	ADS	A2,ECBEL,A8	UPDATE ECBEL 
* 
	IFT	MMUPAG=1 
	LDK	A1,0 
	SRL	A2,1	WORD MODE 
	DA	DWTBA1,A6	UPDATE PHYSICAL BUFFER ADDRESS
	CF	A5,MMULOG	GET LOGICAL ADDRESS 
	XIF
* 
SEE:97	EQU	*
	LDK	A1,2	UPDATE RETURN 
	ADS	A1,4,A5
	RTN	A5 
* 
	EJECT		DRDU01
* 
	IFT	VERSA2=1 
* 
* 
********************************
*                              *
*   DISC FORMAT A2             *
*                              *
********************************
* 
* 
VA2:00	EQU	*
	LDK	A4,QRETRY	RETRIES
VA2:10	EQU	*
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	XIF
	IFT	VERSA2=1 
	CF	A5,INLACE	INTERLACE AND SKEW
* 
	IFT	MMUPAG=0 
	LDKL	A1,/8080	1ST WER
	IFT	RAW=1
	LD*	A2,4,A5
	SLL	A2,1 
	RF(NN)	VA2:20	NOT READ AFTER WRITE 
	LDKL	A2,BUFFER 
	RF	VA2:35
VA2:20	EQU	*
	XIF
* 
	IFT	VERSA2=1 
	IFT	MMUPAG=1 
	LDKL	A1,/0808	1ST WER SHIFTED
	XIF
* 
	IFT	VERSA2=1 
	IFT	RAW=1
	IFT	MMUPAG=1 
	LD*	A2,4,A5
	SLL	A2,1 
	RF(NN)	VA2:20	NOT READ AFTER WRITE 
	LDKL	A1,/8080
	LDKL	A2,BUFFER 
	RF	VA2:35
VA2:20	EQU	*
	XIF
* 
	IFT	VERSA2=1 
	LD	A2,DWTOR,A6	GET ORDER 
	ANK	A2,4 
	RF(Z)	VA2:30	READ
* 
	IFT	MMUPAG=0 
	LDKL	A1,/C080
	XIF
* 
	IFT	VERSA2=1 
	IFT	MMUPAG=1 
	LDKL	A1,/080C	1ST WER SHIFTED
	XIF
* 
	IFT	VERSA2=1 
	ADK	A3,1	ORDER CODE FOR WRITE
* 
	EJECT		DRDU01
* 
* 
VA2:30	EQU	*
* 
	IFT	MMUPAG=0 
	LD	A2,DWTUBU,A6	2ND WER
	XIF
* 
	IFT	VERSA2=1 
	IFT	MMUPAG=1 
	LDK	A2,0 
	DA	DWTBA1,A6 
	SRC	A1,4	1ST WER IN POSITION 
	SLL	A2,1	2ND WER IN POSITION 
	XIF
* 
	IFT	VERSA2=1 
VA2:35	EQU	*
	CF	A5,CIO:50 
	ANK	A1,/1F 
	RF(Z)	VA2:40	IO ERROR
	IM	DWTRTY,A6 
	SUK	A4,1 
	RB(NZ)	VA2:10	RETRY
	RF	WRI:50	ERROR
* 
	EJECT		DRDU01
* 
* 
VA2:40	EQU	*
	LDR*	A3,A6	GET PHYSICAL SECTOR NUMBER
	ADK	A3,1	NEXT SECTOR 
	LDR	A2,A3
	CWK	A2,31
	RF(NE)	VA2:50	NOT CYLINDER 0 
	ADK	A3,2	CYLINDER 0 TO CYLINDER 1
VA2:50	EQU	*
	ANK	A2,/1F 
	RF(NZ)	VA2:60	SAME CYLINDER
	ADK	A3,1	NEW CYLINDER
VA2:60	EQU	*
	STR	A3,A6	PHYSICAL SECTOR NUMBER 
	RB	SEE:96
	XIF
* 
	IFT	VERSA3=1 
	EJECT		DRDU01
* 
****************************
*                          *
*   SUBROUTINES FOR WRITE  *
*   FROM USER BUFFER:      *
*   FROM DRIVER     :      *
*                          *
****************************
* 
WRI:00	EQU	*
	LDK	A4,QRETRY	RETRIES
WRI:20	EQU	*
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	XIF
	IFT	VERSA3=1 
	CF	A5,INLACE	INTERLACE SECTOR NUMBER 
	CF	A5,WRITE	CIO
	ANK	A1,/1F	RETURN CODE ? 
	CF	A5,BSELOD 
	RF(Z)	WRI:80	NO RETURN CODE
	IM	DWTRTY,A6	INDICATE RETRY
	SUK	A4,1	DECREMENT RETRY COUNTER 
	RB(NZ)	WRI:20
	CF	A5,REWORD	RESTORE WORD IF NECESSARY 
	XIF
* 
WRI:50	EQU	*
	ABL	END:10	ERROR END IO
* 
	IFT	VERSA3=1 
* 
WRI:80	EQU	*
	RTN	A5 
* 
	EJECT		DRDU01
* 
********************************* 
*                               * 
*   SUBROUTINES FOR READ TO     * 
*   USER BUFFER :               * 
*   DRIVER BUFFER :             * 
*                               * 
********************************* 
* 
REA:00	EQU	*
	LD	A3,DWTOR,A6	GET INDEX 
	ANKL	A3,/300 
	SLL	A3,6	IN POSITION 
	ORR*	A3,A6	ADD SECTOR NUMBER 
	CW	A3,DWTBSE,A6	ALLREADY READ ?
	RF(E)	REA:85 
REA:10	EQU	*
	LDK	A4,QRETRY
REA:20	EQU	*
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	XIF
	IFT	VERSA3=1 
	CF	A5,INLACE	INTERLACE SECTOR NUMBER 
	CF	A5,READ	READ SECTOR 
	ANK	A1,/F
	CF	A5,BSELOD	UPDATE DRIVER BUFFER INDICATOR
	RF(Z)	REA:30	NO RETURN CODE
REA:25	EQU	*
	IM	DWTRTY,A6	INDICATE RETRY
	SUK	A4,1	DECREMENT RETRY COUNTER 
	RB(NZ)	REA:20	RETRY
	ABL	END:20 
* 
	EJECT		DRDU01
* 
* 
REA:30	EQU	*
	LD	A2,DWTFBU,A6
	RF(NZ)	REA:40	READ TO DRIVER BUFFER
	IFT	MMUPAG=0 
	LD*	A3,DWTUBU,A6	GET CYLINDER ID FROM USER BUFFER
	RF	REA:50
	XIF
* 
	IFT	VERSA3=1 
	IFT	MMUPAG=1 
	ML	2,DWTBA1,A6	GET PHYSICAL ADDRESS
	RF(Z)	REA:35	SYSTEM AREA 
	TS	-30,A15	SAVE REGISTERS
	TL	DWTPAG,A6	LOAD MMUPAGE
	LD	A3,DWTUBU,A6	GET LOGICAL BUFFER POINTER 
	EL	A3,PHSECL,A3	GET CYL ID 
	TL	-30,A15	RESET REGISTERS 
	RF	REA:50
REA:35	EQU	*
	SLL	A2,1	ADDRESS TO BYTE MODE
	LD	A3,PHSECL,A2	GET CYL ID 
	RF	REA:50
	XIF
* 
	IFT	VERSA3=1 
REA:40	EQU	*
	LD	A3,BUFFER+PHSECL	GET CYL ID 
REA:50	EQU	*
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	CW	A3,DWTCYL,A2
	XIF
	IFT	VERSA3=1 
	IFT	NUNITS=1 
	CW	A3,DWTCYL,A6
	XIF
	IFT	VERSA3=1 
	RF(E)	REA:90	RIGHT CYLINDER ID 
	LDK	A1,2	SEEK ERROR
* 
	EJECT		DRDU01
* 
* 
	RB	REA:25
REA:85	EQU	*
	LD	A1,DWTFBU,A6
	RF(NZ)	REA:90	READ TO DRIVER BUFFER
	LDKL	A4,/180	BYTES TO BE MOVED 
	IFT	MMUPAG=0 
	NGR	A2,A4
	ADS	A2,DWTUBU,A6	RESET USER BUFFER POINTER FOR DIRECT MOVE 
	XIF
	IFT	VERSA3=1 
	CF	A5,MOVRED	MOVE TO USER BUFFER 
REA:90	EQU	*
	RTN	A5 
* 
	EJECT		DRDU01
* 
* 
************************************* 
*                                   * 
*   SUBROUTINES FOR MOVING WORDS    * 
*   USER BUFFER TO DRIVER BUFFER: 
*   MOVWRI                          * 
*   DRIVER BUFFER TO USER BUFFER    * 
*   MOVRED                          * 
*                                   * 
************************************* 
* 
*   A1   BUFFER ADDRESS IN
*   A2   BUFFER ADDRESS OUT 
*   A4   BUFFER LENGTH
*   A3   USED 
* 
MOVRED	EQU	*
	ADKL	A1,BUFFER 
	IFT	MMUPAG+CPU857=0
	LD	A2,DWTUBU,A6	PRESENT POINT IN USER BUFFER 
	XIF
* 
	IFT	VERSA3=1 
	IFT	CPU852+MMUPAG=0
	IFT	CPU857=1 
	LD	A2,DWTUBU,A6	GET USER BUFFER POINTER
	ADS	A4,DWTUBU,A6	UPDATE USER BUFFER POINTER
	MVB	A4 
	XIF
* 
	IFT	VERSA3=1 
	IFT	CPU852=0 
	IFT	MMUPAG=1 
	LD	A2,DWTBA2,A6	GET PHYSICAL BUFFER ADDRESS
	SLL	A2,1	BYTE MODE 
	TS	-30,A15	SAVE REGISTERS
	TL	DWTPAG,A6 
	LD	A2,DWTUBU,A6	GET LOGICAL ADDRESS
	MVSU	A4
	XIF
* 
	IFT	VERSA3=1 
	RF	MOV:00
* 
	EJECT		DRDU01
* 
* 
MOVWRI	EQU	*
	ADKL	A2,BUFFER	DRIVER BUFFER POINTER 
	IFT	MMUPAG+CPU857=0
	LD	A1,DWTUBU,A6	PRESENT POINT IN USER BUFFER 
	XIF
* 
	IFT	VERSA3=1 
	IFT	CPU852+MMUPAG=0
	IFT	CPU857=1 
	LD	A1,DWTUBU,A6	GET USER BUFFER POINTER
	ADS	A4,DWTUBU,A6	UPDATE USER BUFFER POINTER
	MVB	A4 
	XIF
* 
	IFT	VERSA3=1 
	IFT	CPU852=0 
	IFT	MMUPAG=1 
	LD	A1,DWTBA2,A6	GET PHYSICAL BUFFER ADDRESS
	SLL	A1,1	BYTE MODE 
	TS	-30,A15	SAVE REGISTERS
	TL	DWTPAG,A6 
	LD	A1,DWTUBU,A6	GET LOGICAL ADDRESS
	MVUS	A4
	XIF
* 
	IFT	VERSA3=1 
MOV:00	EQU	*
	IFT	MMUPAG+CPU857=0
	ADS	A4,DWTUBU,A6	UPDATE USER BUFFER POINTER
	XIF
* 
	IFT	VERSA3=1 
	IFT	MMUPAG=1 
	TL	-30,A15	RESET REGISTERS 
	XIF
* 
	IFT	VERSA3=1 
	IFT	MMUPAG+CPU857=0
	IFT	CPU852=1 
* 
	EJECT		DRDU01
* 
* 
MOV:10	EQU	*
	LDR*	A3,A1 
	STR	A3,A2
	ADK	A1,2 
	ADK	A2,2 
	SUK	A4,2 
	RB(P)	MOV:10 
	XIF
* 
	IFT	VERSA3=1 
	IFT	CPU852=0 
	IFT	MMUPAG+CPU857=0
	MSR	12,A15	SAVE REGISTERS ON STACK 
	LDR	A11,A4	NUMBER OF BYTES 
	LDR	A10,A2	OUTPUT ADDRESS
	LDR	A9,A1	INPUT ADDRESS
	LDKL	A12,16	BYTES IN EACH LOOP 
MOV:15	EQU	*
	MLR	8,A9 
	MSR	8,A10
	ADR	A10,A12
	ADR	A9,A12 
	SUR	A11,A12
	RB(P)	MOV:15 
	MLR	12,A15	RESTORE REGISTERS FROM STACK
	XIF
* 
	IFT	VERSA3=1 
	RTN	A5 
* 
	XIF
* 
	IFT	VERSA2=1 
	EJECT		DRDU01
* 
* 
*************************** 
*                         * 
*   DIV31                 * 
*                         * 
*************************** 
* 
*   INPUT: ECBCW2=LOGICAL SECTOR NUMBER 
*   OUTPUT: 1ST DWT = PHYSICAL SECTOR NUMBER
* 
DIV31	EQU	* 
* 
	IFT	CPU852=1 
	LD	A1,ECBCW2,A8	GET LOGICAL SECTOR NUMBER
	LDR	A3,A1
	LDK	A2,0 
DIV:20	EQU	*
	ADR	A2,A3	I0:=I0+I1
	SRL	A3,5	I1:=I1/32 
	RB(NZ)	DIV:20
	LDR	A3,A2
	ANKL	A3,/FFE0	32*
	SRL	A2,5	TRUNCATE
	SUR	A3,A2
	SUR	A3,A1
	ADK	A3,31
	RF(P)	DIV:30 
	ADK	A2,1	NEXT CYLINDER 
DIV:30	EQU	*
	ADK	A2,0 
	RF(Z)	DIV:50	CYLINDER 0
	ADR	A1,A2
	ADK	A1,1 
* 
	EJECT		DRDU01
* 
* 
DIV:50	EQU	*
	STR	A1,A6	PUT PHYSICAL SECTOR NUMBER IN DWT
	RTN	A5 
* 
	XIF
* 
	IFT	VERSA2=1 
	IFT	CPU852=0 
	LD	A2,ECBCW2,A8	GET SECTOR NUMBER
	STR	A2,A6	PHYSICAL SECTOR NUMBER 
	LDK	A1,0 
	DVK	31 
	ADK	A2,0 
	RF(Z)	DIV:10	CYLINDER 0
	ADK	A2,1 
DIV:10	EQU	*
	ADRS	A2,A6	PHYSICAL SECTOR NUMBER
	RTN	A5 
	XIF
* 
	EJECT		DRDU01
* 
********************************* 
*                               * 
*   SUBROUTINES FOR             * 
*   INTERLACING AND/OR          * 
*   SKEWING                     * 
*                               * 
********************************* 
* 
*  OUTPUT : A3 CONTAINING INTERLACED AND SKEWED SECTOR NUMBER 
* 
INLACE	EQU	*
	LDR*	A3,A6	GET PHYSICAL SECTOR NUMBER
	LDR	A1,A3
	ADR	A3,A3
	ADR	A3,A1	INTERLACING FACTOR 3 
SKEW	EQU	*
	IFT	NUNITS=2 
	LD	A2,DWTCYL,A2	GET CYLINDER NUMBER
	XIF
	IFT	NUNITS=1 
	LD	A2,DWTCYL,A6	GET CYLINDER NUMBER
	XIF
	ANK	A2,1 
	RF(Z)	INLAC5	EVEN CYLINDER 
	ADK	A3,8	SKEW FACTOR 180 DEG.
INLAC5	EQU	*
	ANK	A3,/1F 
	SLL	A3,2	IN POSITION 
	RTN	A5 
* 
	IFT	NUNITS=2 
	EJECT		DRDU01
* 
* 
**********
* INXUNI *
**********
* 
*   OUTPUT  A2=DOUBLED UNIT INDEX + DWT ADDRESS 
* 
INXUNI	EQU	*
	LC	A2,DWTOR,A6 
	ANK	A2,2 
	ADR	A2,A6
	RTN	A5 
	XIF
* 
	IFT	MMUPAG=1 
	EJECT		DRDU01
* 
* 
******************************************
*                                        *
*   MMULOG : GET LOGICAL ADDRESS AND     *
*            PAGE                        *
*                                        *
******************************************
* 
* 
MMULOG	EQU	*
	MS	2,DWTBA1,A6	SAVE PHYSICAL WORD ADDRESS
	DLA	4
	SRC	A1,6	IN POSITION 
	ST	A1,DWTPAG,A6	PAGE 
	ADKL	A1,/400	NEXT PAGE 
	ST	A1,DWTPAG+2,A6	PSEUDO MMU TABLE 
	SRL	A2,3 
	ST	A2,DWTUBU,A6	LOGICAL ADDRESS
	RTN	A5 
* 
	XIF
* 
	EJECT			DRDU01 
* 
	IFT	VERSA3=1 
* 
* 
******************************
* 
*  UPDATE DRIVER BUFFER INDICATOR 
* 
******************************* 
* 
*   INPUT  A1=RETURN CODE (AFTER READ)
*   OUTPUT DWTBSE=DRIVER BUFFER INDICATOR 
* 
BSELOD	EQU	*
	LDR*	A3,A6	GET READ SECTOR NUMBER
BSEL00	EQU	*	FROM SEEK VERIFY 
	LD	A2,DWTFBU,A6
	RF(Z)	BSEL50	READ/WRITE TO USER BUFFER 
	LDKL	A2,/FFFF	DUMMY
	ADK	A1,0 
	RF(NZ)	BSEL40	READ ERROR 
	LD	A2,DWTOR,A6	GET INDEX 
	ANKL	A2,/300 
	SLL	A2,6 
	ORR	A2,A3
BSEL40	EQU	*
	ST	A2,DWTBSE,A6	UPDATE DRIVER BUFFER INDICATOR 
BSEL50	EQU	*
	RTN	A5 
* 
	EJECT		DRDU01
* 
* 
*************************************** 
*                                     * 
*   RESTORE WORD TO USER BUFFER       * 
*   IF NECESSARY                      * 
*                                     * 
*************************************** 
* 
*   INPUT: DWTFSW=SAVED WORD INDICATOR
*          DWTSWD=SAVED WORD
*          DWTUBU=POINTER TO USER BUFFER
* 
REWORD	EQU	*
	LD	A3,DWTFSW,A6
	RF(Z)	REWO50	NO SAVED WORD 
	LD	A3,DWTSWD,A6
	IFT	MMUPAG=1 
	ML	2,DWTBA1,A6	GET BUFFER ADDRESS
	RF(Z)	REWO20	SYSTEM AREA 
	TS	-30,A15	SAVE REGISTERS
	TL	DWTPAG,A6	SET MMU REGISTERS 
	LD	A2,DWTUBU,A6	GET LOGICAL BUFFER ADDRESS 
	ES	A3,PHSECL,A2	RESTORE SAVED WORD 
	TL	-30,A15	RESET REGISTERS 
	RF	REWO50
REWO20	EQU	*
	SLL	A2,1	BYTE MODE 
	ST	A3,PHSECL,A2	RESTORE WORD 
	XIF
* 
	IFT	VERSA3=1 
	IFT	MMUPAG=0 
	ST*	A3,DWTUBU,A6	RESTORE SAVED WORD
	XIF
* 
	IFT	VERSA3=1 
	CM	DWTFSW,A6	INDICATE NO SAVED WORD
REWO50	EQU	*
	RTN	A5 
* 
	XIF
* 
	EJECT			DRDU01			DRDU01
* 
* 
******************* 
*                 * 
*  SEEK CYLINDER  * 
*                 * 
******************* 
* 
* 
SEEK	EQU	*
	IFT	NUNITS=2 
	LD	A3,DWTCYL,A2	CYLINDER NUMBER
	XIF
	IFT	NUNITS=1 
	LD	A3,DWTCYL,A6
	XIF
	SLL	A3,3 
	ORK	A3,2 
	RF	CIO	EXECUTE CIO-START 
* 
SEEKZ	EQU	* 
	LDK	A3,3 
	RF	CIO	EXECUTE CIO-START 
* 
	EJECT		DRDU01
* 
* 
**********************************
*                                *
*   CIO: READ AND WRITE          *
*                                *
**********************************
* 
*  INPUT: A3=PHYSICAL SECTOR NUMBER SHIFTED 
* 
	IFT	VERSA3=1 
	IFT	MMUPAG=0 
READ	EQU	*
	LDKL	A1,/80C1	1ST WER
	RF	CIO:20
WRITE	EQU	* 
	LDKL	A1,/C0C1	1ST WER
	ADK	A3,1	ORDER CODE
CIO:20	EQU	*
	LD	A2,DWTFBU,A6
	RF(NZ)	CIO:30	IO FROM/TO DRIVER BUFFER 
	LD	A2,DWTUBU,A6	USER BUFFER POINTER
	SUKL	A2,PHSECL 
	RF	CIO:50
CIO:30	EQU	*
	LDKL	A2,BUFFER	DRIVER BUFFER ADDRESS 
	XIF
* 
	IFT	VERSA3=1 
	IFT	MMUPAG=1 
READ	EQU	*
	LDKL	A1,/0C18	1ST WER SHIFTED
	RF	CIO:20
WRITE	EQU	* 
	LDKL	A1,/0C1C	1ST WER SHIFTED
	ADK	A3,1	ORDER CODE
CIO:20	EQU	*
	LD	A2,DWTFBU,A6
	RF(NZ)	CIO:30	IO FROM/TO DRIVER BUFFER 
	DA	DWTBA1,A6	GET USER BUFFER ADDRESS 
	SLL	A2,1	BYTE MODE ADDRESS 
	RF	CIO:40
CIO:30	EQU	*
	LDKL	A2,BUFFER	DRIVER BUFFER ADDRESS 
CIO:40	EQU	*
	SRC	A1,4	1ST WER IN POSITION 
	XIF
* 
CIO:50	EQU	*
	WER	A1,WER1
	WER	A2,WER1+1
* 
	EJECT			DRDU01			DRDU01
* 
* 
CIO	EQU	* 
	ST	A4,DWTA4,A6	SAVE A4 
	LD	A2,PFPOST 
	RF(NZ)	CIOAB	PWF POST PROCESSING ON
	CF	A15,INXDWT	GET INDEXED DWT ADDRESS
	EX	DWTCIO,A4	EXECUTE CIO-START 
	ABL(3)	END:30	CU ADDRESS UNKNOWN 
CIOAB	EQU	* 
	ST	A5,DWTA5,A6	           A5 
	ST	A7,DWTA2,A6	SAVE SECTOR COUNTER 
* 
T:DISP	ABL	TDISP	GO TO DISPATCHER 
* 
	EJECT			DRDU01			DRDU01
* 
* 
**********************
*                    *
*  RECOVERY ROUTINE  *
*                    *
**********************
* 
* 
DUON	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,DWDU01 
	LDK	A5,DWTSB3	GET STACK BASE 
	ADR	A5,A6
	LDKL	A1,/7FFE	UNIT BUSY AND RECOVERY ON	=1 
	ANS A1,DWTST,A6		=1
	CM	DWTSAV,A6	INDICATE RECOVERY 
	LD	A1,INIFLG	INITIALIZATION FLAG 
	RF(NZ)	DUON05	NOT POWER UP 
* 
	EJECT		DRDU01
* 
* 
	CM	DWTOR,A6	1ST UNIT 
	CF	A5,SEEKZ	TEST IF OPERABLE 
	ANK	A1,1 
	RF(NZ)	DUON26	NOT OPERABLE 
	IFT	NUNITS=2 
	LDK	A1,2 
	SC	A1,DWTOR,A6	NEXT UNIT 
	CF	A5,SEEKZ
	ANK	A1,1 
	RF(NZ)	DUON26	NOT OPERABLE 
	XIF
* 
	EJECT			DRDU01 
* 
* 
DUON05	EQU	*
	CM	DWTOR,A6
	CF	A5,VO:NAM	READ VOLUME NAME
	ANK	A1,1 
	RF(Z)	DUON07	NO ERROR
	CM	DWTOR,A6	PREPARE FOR VOLCLR 
	LDK	A1,12
	CF	A15,VOLCLR
DUON07	EQU	*
	IFT	NUNITS=2 
	LDK	A1,2	OTHER DISC UNIT 
	SC	A1,DWTOR,A6 
	CF	A5,VO:NAM 
	ANK	A1,1 
	RF(Z)	DUON08	NO ERROR
	LDK	A1,2	OTHER DISC UNIT 
	SC	A1,DWTOR,A6 
	LDK	A1,12
	CF	A15,VOLCLR
DUON08	EQU	*
	XIF
	IM	DWTST,A6	INDICATE VOLUME NAMES READ 
	LDKL	A1,-1 
	ST	A1,DWTSAV,A6	RECOVERY DONE
* 
	EJECT		DRDU01
* 
* 
	LD	A8,DWTECB,A6	GET ECB ADDRESS
	RF(Z)	END:IO	NO REQUEST ON?
* 
DUON10	LD	A7,DWTORD,A6	GET ORDER
	ST	A7,DWTOR,A6	RESTORE INDEX AND ORDER 
	ANK	A7,/3F 
* 
	IFT	VERSA3=1 
	CF	A5,REWORD	RESTORE WORD IF NECESSARY 
	XIF
* 
	CM	ECBEL,A8	RESET EFFECTIVE LENGTH 
	ABL	DUA:00	REPEAT REQUEST
* 
	EJECT			DRDU01 
* 
*    READY INTERRUPT
* 
DUREDY	LD	A1,TIMER
	RF(Z)	DUON50	NO TIMER ACTIVE 
* 
	IFT	NUNITS=1 
	CM*	TIMER	KILL TIMER 
	RF	DUON40
	XIF
* 
	IFT	NUNITS=2 
	RB	T:DISP	TIMER ACTIVE 
	XIF
* 
	EJECT			DRDU01 
* 
* 
DUON26	EQU	*
	LDKL	A4,TIMER	TIMER POINTER ADDRESS
	LDR*	A3,A4 
	RF(Z)	DUON30	NO TIMER ACTIVE 
	LDKL	A1,-TIME
	STR	A1,A3	RESTART TIMER
	RB	T:DISP
* 
* 
DUON30	CF	A15,SETIMP	START TIMER
	DATA	DUON40,TIME	TIME OUT ADDRESS, TIME
	RB	T:DISP
* 
*   TIME OUT
* 
DUON40	LDKL	A6,DWDU01 
	CM	TIMER 
DUON50	EQU	*
	LDKL	A5,/7FFE	SET UNIT BUSY AND RECOVERY ON	=1 
	ANS	A5,DWTST,A6		=1
	CM	DWTSAV,A6	INDICATE RECOVERY 
	LDK	A5,DWTSB3	GET STACK BASE 
	ADR	A5,A6
	RB	DUON05
* 
	EJECT			DRDU01			DRDU01
* 
* 
*********************** 
*                     * 
*  INTERRUPT HANDLER  * 
*                     * 
*********************** 
* 
* 
IHDU	EQU	*
IHDU1	EQU	* 
IHDU2	EQU	* 
	ST	P,INTSAV	SAVE LAST INTERRUPT
* 
	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,DWDU01	DISC UNIT NO. 1 
* 
	EJECT			DRDU01 
* 
* 
IHDU10	SST	A1,CUADR	GET STATUS
IHDU20	ANKL	A1,/460F	MASK RETURN CODE 
	SLL	A1,1 
	RB(N)	DUREDY	READY INTERRUPT 
	SRL	A1,1 
	LDR	A2,A1
	ANKL	A2,/200	SEEK ERROR
	RF(Z)	IHDU30 
	ANKL	A1,/440F	MOVE SEEK ERROR BIT
	ORK	A1,/02 
IHDU30	EQU	*
	LD	A8,DWTECB,A6	ECB ADDRESS
	LD	A2,DWTSAV,A6
	RF(NN)	GET 
	LDR	A3,A1
	ANK	A3,1 
	RF(NZ)	END:IO	DISC UNIT NOT OPERABLE 
* 
GET	LD	A5,DWTA5,A6	RELOAD REGISTERS A5
	LD	A4,DWTA4,A6	                 A4 
	LD	A7,DWTA2,A6	GET SECTOR COUNTER
	RTN	A5 
* 
	EJECT			DRDU01			DRDU01
* 
* 
******************* 
*                 * 
*  PERFORM ENDIO  * 
*                 * 
******************* 
* 
* 
END:30	EQU	*	CU ADDRESS UNKNOWN 
	LDK	A1,1	NOT OPERABLE
	ORS	A1,DWTST,A6	INDICATE RECOVERY DONE	=1
	RF	END:IO
END:10	EQU	*
* 
	IFT	RAW=1
	LD*	A7,DWTSB3-2,A6	GET 1ST RETURN ADDRESS
	SLL	A7,1 
	RF(N)	END:20	READ AFTER WRITE
	LD	A7,DWTORD,A6
	ANK	A7,/FF	GET ORDER 
	SUK	A7,/15 
	RF(NZ)	END:20	NOT READ AFTER WRITE 
	CM	ECBEL,A8	RESET SECTORS DONE 
	XIF
* 
END:20	EQU	*
	LDKL	A2,/FF00
	ANS	A2,ECBEL,A8
	LD	A2,DWTRTY,A6	GET RETRY INDICATOR
	RF(Z)	END:IO	NO RETRIES DONE 
	ORKL	A1,/100	SET BIT 7 IN RETURN CODE
	EJECT		DRDU01
* 
* 
END:IO	EQU	*
	CF	A15,TENDIO	PERFORM ENDIO
 	ABL	TDISP	GO TO DISPATCHER
* 
	EJECT			DRDU01 
* 
* 
VO:NAM	EQU	*
 	CF	A5,SEEKZ	SEEK SECTOR 0 
	ANK	A1,1 
	RF(NZ)	VO:NA8	SEEK-,THROUGHPUT ERROR,NOT OPERABLE
	CMR	A6	SECTOR 0
	IFT	NUNITS=2 
	CF	A5,INXUNI 
	CM	DWTCYL,A2	CYLINDER 0
	XIF
	IFT	NUNITS=1 
	CM	DWTCYL,A6 
	XIF
	LDK	A3,0	SECTOR 0
* 
	IFT	VERSA3=1 
	IM	DWTFBU,A6	READ TO DRIVER BUFFER 
	CF	A5,READ 
	ANK	A1,3 
	CF	A5,BSELOD	UPDATE DRIVER BUFFER INDICATOR
	XIF
* 
	IFT	VERSA3=0 
	LDKL	A1,/8019	READ SECTOR ZERO 
	LDKL	A2,BUFFER	TO DRIVER BUFFER
	CF	A5,CIO:50 
	ANK	A1,3	ERROR ? 
	XIF
* 
	RF(NZ)	VO:NA8	THROUGHPUT ERROR,NOT OPERABLE
	LDKL	A2,BUFFER 
	LDK	A3,/F0	FILE CODE 
	LD	A1,DWTSAV,A6
	RF(Z)	VO:NA6 
	LDKL	A3,/80F0	INDICATE TEST STATUS 
VO:NA6	EQU	*
	CF	A15,VOLGET	VOLUMR NAME TO DWT INDICATE NVL
	EJECT			DRDU01 
* 
* 
DUNA40	EQU	*
	LDK	A1,1 
	LDK	A7,1	TO INDICATE NOT TRANSFER PARAMETER ORDER
	LD	A2,BUFFER+32	CHECK IF TOSS DISC 
	CWK	A2,'TO'
	RF(NE)	DUNA70	NO TOSS
	LD	A2,BUFFER+40	CHECK IF RELEASE 10 OR GREATER 
	CWK	A2,/2031 
	RF(NE)	DUNA70	REL LESS THAN 10 
	LD	A2,BUFFER+48	GET FORMAT AND DEVICE TYPE PARAMETER 
TRANPA	EQU	*	LABEL FOR TRANSFER PARAMETER ORDER 
	CF	A15,INXDWT	GET INDEXED DWT ADDRESS
	ECR	A3,A2	SEPARATE THE PARAMETERS
	ANK	A3,/3
	ANK	A2,/3
	ST	A3,DWTFOR,A4	SAVE FORMAT PARAMETER
	LDKL	A1,6324	SECTORS ON VERSION A2 
	SUK	A3,2	FORMAT ?
	RF(Z)	DUNA60	VERSION A2
	RF(N)	DUNA50	VERSION A1
	ADK	A1,204	VERSION A3
DUNA50	EQU	*
	ADKL	A1,9588-6324
DUNA60	EQU	*
	SUK	A2,1 
	RF(Z)	DUNA70	PTS 6875
	ADR	A1,A1	PTS 6876 2*MAXSEC ON PTS 6875
DUNA70	EQU	*
	ST	A1,DWTSMX,A4	MAX SECTOR NO IN DWT 
	LDK	A1,0	RESET RETURN CODE FOR TRANSFER PARAM. 
	ADK	A7,0	CHECK IF TRANSFER PARAMETER 
	RB(Z)	END:20 
* 
	EJECT		DRDU01
* 
* 
	LD	A4,DWTA4,A6	RESTORE RETRY COUNTER 
	LC	A1,DWTOR,A6 
	ADK	A1,1 
	SC	A1,DWTOR,A6 
	ANK	A1,1 
	RB(NZ)	VO:NAM
	RF	VO:NA9
VO:NA8	EQU	*
	LDK	A1,1	ERROR CODE
VO:NA9	EQU	*
	RTN	A5 
* 
*   TIMER POINTER 
* 
TIMER	DATA	0	TIMER POINTER
* 
	EJECT			DRDU01			DRDU01
* 
* 
************************************* 
*                                   * 
*   DEVICE WORK TABLE               * 
*                                   * 
************************************* 
* 
* 
DWDU01	EQU	*
	DATA	0	PHYSICAL SECTOR NUMBER
	DATA	/8000	DWT STATUS
	DATA	0	ECB ADDRESS 
	DATA	0	ORDER 
	DATA	DUADR	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	ECBDU1	MMU ECB ADDRESS
	XIF
* 
DWTFSW	EQU	*-DWDU01 
	DATA	0 
	DATA	0,0,0	SAVE AREA FOR REGISTERS 
DWTBSE	EQU	*-DWDU01 
	DATA	0 
DWTUBU	EQU	*-DWDU01	USER BUFFER POINTER 
	DATA	0 
DWTSWD	EQU	*-DWDU01 
	DATA	0 
* 
	EJECT		DRDU01
* 
* 
DWTRTY	EQU	*-DWDU01 
	DATA	0 
	DATA	0 
	DATA	/C000	FIXED 
	DATA	/8000	NEW VOLUME LOADED INDICATOR CARTR. 1
	DATA	/C000	FIXED 
	DATA	/8000	NEW VOLUME LOADED IND. CARTR. 2 
	DATA	/FFFF,/FFFF,/FFFF	VOLUME NAME 1ST FIXED 
	DATA	/FFFF,/FFFF,/FFFF	VOLUME NAME 1ST CARTRIDGE 
* 
	IFT	NUNITS=2 
	DATA	/FFFF,/FFFF,/FFFF	VOLUME NAME 2ND FIXED 
	DATA	/FFFF,/FFFF,/FFFF	VOLUME NAME 2ND CARTRIDGE 
	XIF
* 
	EJECT		DRDU01
* 
* 
DWTSAV	EQU	*-DWDU01 
	DATA	-1
DWTFBU	EQU	*-DWDU01	FLAG INDICATING IO TO DRIVER BUF
	DATA	0 
DWTCIO	EQU	*-DWDU01	CIO-START 
	CIO	A3,1,DAF1
	CIO	A3,1,DAC1
* 
	IFT	NUNITS=2 
	CIO	A3,1,DAF2
	CIO	A3,1,DAC2
	XIF
* 
DWTCYL	EQU	*-DWDU01 
	DATA	/FFFF	CYLINDER NUMBER 
* 
	IFT	NUNITS=2 
	DATA	/FFFF	2ND UNIT
	XIF
* 
DWTSMX	EQU	*-DWDU01 
	DATA	1	MAX SECTORS ON FIXED DISC 
	DATA	1	MAX SECTORS ON CARTRIDGE
* 
	IFT	NUNITS=2 
	DATA	1	2ND UNIT
	DATA	1	2ND UNIT
	XIF
* 
DWTFOR	EQU	*-DWDU01 
	DATA	0	DISC FORMAT ON FIXED
	DATA	0	DISC FORMAT CARTRIDGE 
* 
	IFT	NUNITS=2 
	DATA	0 
	DATA	0 
	XIF
* 
	DATA	0,0	STACK 
	DATA	0,0	STACK 
	DATA	0,0 
DWTSB3	EQU	*-DWDU01-2 
* 
	IFT	RAW=1
DWTSEP	EQU	*-DWDU01 
	DATA	0 
DWTSEI	EQU	*-DWDU01 
	DATA	0 
	XIF
* 
	IFT	MMUPAG=1 
ECBDU1	EQU	*
	DATA	0,0,0,0,0,0,0 
DWTBA1	EQU	*-DWDU01 
	DATA	0 
DWTBA2	EQU	*-DWDU01 
	DATA	0 
DWTPAG	EQU	*-DWDU01	MMU PAGE
	DATA	0 
	DATA	0 
	XIF
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)   Head {h00=0x0032, h01=0x0050, text=» IDENT DRDU01  REL 11.0 81-05-18 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…006a               Head {h00=0x0028, h01=0x0050, text=»   =3, CONDITION FOR CPU857 CHANGED «, t00=0x0000, t01=0x0042}
0x006a…008a               Head {h00=0x001c, h01=0x0050, text=»   =3, REL 11.0 81-04-02«, t00=0x0000, t01=0x006e}
0x008a…00b8               Head {h00=0x002a, h01=0x0050, text=»   =2, A2 AND A3 DISCS IN SAME SYSTEM «, t00=0x0000, t01=0x008e}
0x00b8…00e8               Head {h00=0x002c, h01=0x0050, text=»   =2, REL 11.0 81-01-26 ,DATA CORRUPTED«, t00=0x0000, t01=0x00bc}
0x00e8…0128               Head {h00=0x003c, h01=0x0050, text=»   =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY«, t00=0x0000, t01=0x00ec}
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…0176               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0140}
0x0176…0180               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017a}
0x0180…01a8               Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0184}
0x01a8…01b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001c}
0x01b2…01e4               Head {h00=0x002e, h01=0x0050, text=»*   DRDU01 = DRIVER FOR ONE/TWO DISC UNITS«, t00=0x0001, t01=0x0026}
0x01e4…01ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0058}
0x01ee…0222               Head {h00=0x0030, h01=0x0050, text=»*   PTS 6875 (X1215) AND/OR PTS 6876 (X1216)«, t00=0x0001, t01=0x0062}
0x0222…022c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x022c…0236               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a0}
0x0236…0240               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00aa}
0x0240…024a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b4}
0x024a…0254               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00be}
0x0254…028e               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x00c8}
0x028e…0298               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0102}
0x0298…02a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x02a2…02d6               Head {h00=0x0030, h01=0x0050, text=»*   THIS DISC DRIVER HANDLES UP TO TWO DISC «, t00=0x0001, t01=0x0116}
0x02d6…030e               Head {h00=0x0034, h01=0x0050, text=»*   DRIVES X1215,X1216 CONNECTED TO CPU VIA IOP «, t00=0x0001, t01=0x014a}
0x030e…032e               Head {h00=0x001c, h01=0x0050, text=»*   ON MULTIPLEX CHANNEL«, t00=0x0001, t01=0x0182}
0x032e…0338               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0012}
0x0338…0342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0342…0370               Head {h00=0x002a, h01=0x0050, text=»*   THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0002, t01=0x0026}
0x0370…037a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0054}
0x037a…0398               Head {h00=0x001a, h01=0x0050, text=»*   /00    TEST STATUS«, t00=0x0002, t01=0x005e}
0x0398…03b6               Head {h00=0x001a, h01=0x0050, text=»*   /01    BASIC READ «, t00=0x0002, t01=0x007c}
0x03b6…03d4               Head {h00=0x001a, h01=0x0050, text=»*   /05    BASIC WRITE«, t00=0x0002, t01=0x009a}
0x03d4…03f4               Head {h00=0x001c, h01=0x0050, text=»*   /11    PHYSICAL READ«, t00=0x0002, t01=0x00b8}
0x03f4…0416               Head {h00=0x001e, h01=0x0050, text=»*   /15    PHYSICAL WRITE «, t00=0x0002, t01=0x00d8}
0x0416…0436               Head {h00=0x001c, h01=0x0050, text=»*   /1F    FORMAT VOLUME«, t00=0x0002, t01=0x00fa}
0x0436…0440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x011a}
0x0440…0460               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0002, t01=0x0124}
0x0460…046a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0144}
0x046a…0474               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014e}
0x0474…0488               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0158}
0x0488…049c               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x016c}
0x049c…04b0               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0180}
0x04b0…04ba (3, 0, 400)   Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0004}
0x04ba…04c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000e}
0x04c4…04ec               Head {h00=0x0024, h01=0x0050, text=» ENTRY DUADR ACTIVATION ADDRESS «, t00=0x0003, t01=0x0018}
0x04ec…0510               Head {h00=0x0020, h01=0x0050, text=» ENTRY DUON RECOVERY ROUTINE«, t00=0x0003, t01=0x0040}
0x0510…0546               Head {h00=0x0032, h01=0x0050, text=» ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1«, t00=0x0003, t01=0x0064}
0x0546…057c               Head {h00=0x0032, h01=0x0050, text=» ENTRY IHDU INTERRUPT HANDLER DISC UNIT NO. 1 «, t00=0x0003, t01=0x009a}
0x057c…05b2               Head {h00=0x0032, h01=0x0050, text=» ENTRY IHDU2 INTERRUPT HANDLER DISC UNIT NO. 2«, t00=0x0003, t01=0x00d0}
0x05b2…05e4               Head {h00=0x002e, h01=0x0050, text=» ENTRY DWDU01 DWT ADDRESS DISC UNIT NO. 1 «, t00=0x0003, t01=0x0106}
0x05e4…05fc               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0003, t01=0x0138}
0x05fc…0606               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0150}
0x0606…0610               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015a}
0x0610…0626               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0164}
0x0626…063c               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x017a}
0x063c…0652               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0190}
0x0652…065c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0016}
0x065c…0666               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0020}
0x0666…0686               Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x002a}
0x0686…06a4               Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0004, t01=0x004a}
0x06a4…06d6               Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK«, t00=0x0004, t01=0x0068}
0x06d6…0706               Head {h00=0x002c, h01=0x0050, text=» EXTRN NVLCHK CHECK IF NEW VOLUME LOADED«, t00=0x0004, t01=0x009a}
0x0706…073a               Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET PUT VOLUME NAME IN DWT SET NVL«, t00=0x0004, t01=0x00ca}
0x073a…0774               Head {h00=0x0036, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME FROM DWT TO USER BUFFER «, t00=0x0004, t01=0x00fe}
0x0774…07a4               Head {h00=0x002c, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT «, t00=0x0004, t01=0x0138}
0x07a4…07d6               Head {h00=0x002e, h01=0x0050, text=» EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS «, t00=0x0004, t01=0x0168}
0x07d6…07fa               Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0005, t01=0x000a}
0x07fa…0824               Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0005, t01=0x002e}
0x0824…0852               Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0005, t01=0x0058}
0x0852…0880               Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0005, t01=0x0086}
0x0880…089c               Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0005, t01=0x00b4}
0x089c…08b2               Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:MT «, t00=0x0005, t01=0x00d0}
0x08b2…08ce               Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x00e6}
0x08ce…08f0               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x0102}
0x08f0…0918               Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x0124}
0x0918…093a               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0005, t01=0x014c}
0x093a…095c               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0005, t01=0x016e}
0x095c…097e               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0005, t01=0x0190}
0x097e…09a8               Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB1 STACK BASE 1 IN DWT «, t00=0x0006, t01=0x0022}
0x09a8…09d2               Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0006, t01=0x004c}
0x09d2…09f8               Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0006, t01=0x0076}
0x09f8…0a22               Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTORD SAVE AREA FOR ORDER «, t00=0x0006, t01=0x009c}
0x0a22…0a54               Head {h00=0x002e, h01=0x0050, text=» EXTRN DWTNVL NEM VOLUME LOADED INDICATORS«, t00=0x0006, t01=0x00c6}
0x0a54…0a76               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTVOL VOLUME NAMES«, t00=0x0006, t01=0x00f8}
0x0a76…0a98               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0006, t01=0x011a}
0x0a98…0ac0               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0006, t01=0x013c}
0x0ac0…0aea               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0006, t01=0x0164}
0x0aea…0b14               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0006, t01=0x018e}
0x0b14…0b38               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0007, t01=0x0028}
0x0b38…0b64               Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW1 ECB 1:ST CONTROL WORD «, t00=0x0007, t01=0x004c}
0x0b64…0b90               Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW2 ECB 2:ND CONTROL WORD «, t00=0x0007, t01=0x0078}
0x0b90…0ba8               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0007, t01=0x00a4}
0x0ba8…0bb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00bc}
0x0bb2…0bbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c6}
0x0bbc…0bde               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0007, t01=0x00d0}
0x0bde…0c00               Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0007, t01=0x00f2}
0x0c00…0c22               Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  *«, t00=0x0007, t01=0x0114}
0x0c22…0c44               Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0007, t01=0x0136}
0x0c44…0c66               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0007, t01=0x0158}
0x0c66…0c70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017a}
0x0c70…0c7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0184}
0x0c7a…0cb4               Head {h00=0x0036, h01=0x0050, text=»*   READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15«, t00=0x0007, t01=0x018e}
0x0cb4…0cd2               Head {h00=0x001a, h01=0x0050, text=»*   BY SETTING X:A = 0«, t00=0x0008, t01=0x0038}
0x0cd2…0cdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0056}
0x0cdc…0cee               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x0060}
0x0cee…0d00               Head {h00=0x000e, h01=0x0050, text=»RAW EQU 1 «, t00=0x0008, t01=0x0072}
0x0d00…0d0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0084}
0x0d0a…0d14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008e}
0x0d14…0d46               Head {h00=0x002e, h01=0x0050, text=»*   THIS DRIVER CAN HANDLE TWO DISC UNITS «, t00=0x0008, t01=0x0098}
0x0d46…0d5e               Head {h00=0x0014, h01=0x0050, text=»*   IF X:B := 2 «, t00=0x0008, t01=0x00ca}
0x0d5e…0d68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e2}
0x0d68…0d7a               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0008, t01=0x00ec}
0x0d7a…0d8e               Head {h00=0x0010, h01=0x0050, text=»NUNITS EQU 2«, t00=0x0008, t01=0x00fe}
0x0d8e…0d98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0112}
0x0d98…0da2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011c}
0x0da2…0dd4               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0126}
0x0dd4…0e02               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x0158}
0x0e02…0e0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0186}
0x0e0c…0e20               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0008, t01=0x0190}
0x0e20…0e2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0014}
0x0e2a…0e34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001e}
0x0e34…0e6e               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x0028}
0x0e6e…0ea0               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x0062}
0x0ea0…0eaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0094}
0x0eaa…0ebe               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0009, t01=0x009e}
0x0ebe…0ec8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b2}
0x0ec8…0ede               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0009, t01=0x00bc}
0x0ede…0ee8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d2}
0x0ee8…0ef2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00dc}
0x0ef2…0f2a               Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION USING THE INSTRUCTION SET OF«, t00=0x0009, t01=0x00e6}
0x0f2a…0f60               Head {h00=0x0032, h01=0x0050, text=»* CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1 «, t00=0x0009, t01=0x011e}
0x0f60…0f6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0154}
0x0f6a…0f82               Head {h00=0x0014, h01=0x0050, text=»CPU857 EQU 1  =3«, t00=0x0009, t01=0x015e}
0x0f82…0f8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0176}
0x0f8c…0f96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0180}
0x0f96…0fba               Head {h00=0x0020, h01=0x0050, text=»* PROGRAM VERSION FOR FORMAT«, t00=0x0009, t01=0x018a}
0x0fba…0fea               Head {h00=0x002c, h01=0x0050, text=»* A2 IS OBTAINED BY SETTING VERSA2 EQU 1«, t00=0x000a, t01=0x001e}
0x0fea…101a               Head {h00=0x002c, h01=0x0050, text=»* A3 IS OBTAINED BY SETTING VERSA3 EQU 1«, t00=0x000a, t01=0x004e}
0x101a…1024               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007e}
0x1024…1036               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000a, t01=0x0088}
0x1036…104a               Head {h00=0x0010, h01=0x0050, text=»VERSA2 EQU 1«, t00=0x000a, t01=0x009a}
0x104a…1054               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ae}
0x1054…1066               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x000a, t01=0x00b8}
0x1066…107a               Head {h00=0x0010, h01=0x0050, text=»VERSA3 EQU 1«, t00=0x000a, t01=0x00ca}
0x107a…1084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00de}
0x1084…10a4               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000a, t01=0x00e8}
0x10a4…10ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0108}
0x10ae…10b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0112}
0x10b8…10ce               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x011c}
0x10ce…10e4               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x0132}
0x10e4…10fa               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0148}
0x10fa…1104               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015e}
0x1104…110e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0168}
0x110e…1142               Head {h00=0x0030, h01=0x0050, text=»DAF1 EQU /28 DEVICE ADDRESS FIXED DISC NO. 1«, t00=0x000a, t01=0x0172}
0x1142…117a               Head {h00=0x0034, h01=0x0050, text=»DAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1«, t00=0x000b, t01=0x0016}
0x117a…11ae               Head {h00=0x0030, h01=0x0050, text=»DAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2«, t00=0x000b, t01=0x004e}
0x11ae…11e6               Head {h00=0x0034, h01=0x0050, text=»DAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2«, t00=0x000b, t01=0x0082}
0x11e6…120e               Head {h00=0x0024, h01=0x0050, text=»WER1 EQU /10 MULTIPLEXOR ADDRESS«, t00=0x000b, t01=0x00ba}
0x120e…1238               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU /08 CONTROL UNIT ADDRESS«, t00=0x000b, t01=0x00e2}
0x1238…1242               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010c}
0x1242…1280               Head {h00=0x003a, h01=0x0050, text=»MAXSEC EQU 6528 MAX NO OF SECTORS ON UNPACKED PTS 6875«, t00=0x000b, t01=0x0116}
0x1280…12b0               Head {h00=0x002c, h01=0x0050, text=»SECLEN EQU 256 SECTOR LENGTH, CHARACTERS«, t00=0x000b, t01=0x0154}
0x12b0…12de               Head {h00=0x002a, h01=0x0050, text=»PHSECL EQU 384 PHYSICAL SECTOR LENGTH «, t00=0x000b, t01=0x0184}
0x12de…1300               Head {h00=0x001e, h01=0x0050, text=»QRETRY EQU 4 NO OF RETRIES«, t00=0x000c, t01=0x0022}
0x1300…1322               Head {h00=0x001e, h01=0x0050, text=»TIME EQU 1000 1 MIN 40 SEC«, t00=0x000c, t01=0x0044}
0x1322…132c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0066}
0x132c…1342               Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU 10 «, t00=0x000c, t01=0x0070}
0x1342…134c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0086}
0x134c…136c               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000c, t01=0x0090}
0x136c…1376               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b0}
0x1376…1380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ba}
0x1380…13a8               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDICATES NO MMU BUFFER «, t00=0x000c, t01=0x00c4}
0x13a8…13ce               Head {h00=0x0022, h01=0x0050, text=» DATA DEVIND DISC DEVICE INDEX«, t00=0x000c, t01=0x00ec}
0x13ce…13f8               Head {h00=0x0026, h01=0x0050, text=»DUADR DATA DUAD ACTIVATION ADDRESS«, t00=0x000c, t01=0x0112}
0x13f8…141e               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000c, t01=0x013c}
0x141e…1428               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0162}
0x1428…143e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x000c, t01=0x016c}
0x143e…1454               Head {h00=0x0012, h01=0x0050, text=»BUFFER RES 193«, t00=0x000c, t01=0x0182}
0x1454…1460               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0008}
0x1460…146a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0014}
0x146a…1480               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x000d, t01=0x001e}
0x1480…1496               Head {h00=0x0012, h01=0x0050, text=»BUFFER RES 25 «, t00=0x000d, t01=0x0034}
0x1496…14a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004a}
0x14a0…14b2               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x000d, t01=0x0054}
0x14b2…14c2               Head {h00=0x000c, h01=0x0050, text=» RES 103«, t00=0x000d, t01=0x0066}
0x14c2…14ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0076}
0x14ce…14e8               Head {h00=0x0016, h01=0x0050, text=» IFT VERSA2=1  =2 «, t00=0x000d, t01=0x0082}
0x14e8…1514               Head {h00=0x0028, h01=0x0050, text=»CYLBUF RES 2 CYL ID CHECK BUFFER =2 «, t00=0x000d, t01=0x009c}
0x1514…1526               Head {h00=0x000e, h01=0x0050, text=» XIF   =2 «, t00=0x000d, t01=0x00c8}
0x1526…1530               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00da}
0x1530…1550               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000d, t01=0x00e4}
0x1550…155a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0104}
0x155a…1564               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010e}
0x1564…157e               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000d, t01=0x0118}
0x157e…1598               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x000d, t01=0x0132}
0x1598…15b2               Head {h00=0x0016, h01=0x0050, text=»*  ACTIVATION   * «, t00=0x000d, t01=0x014c}
0x15b2…15cc               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x000d, t01=0x0166}
0x15cc…15e6               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000d, t01=0x0180}
0x15e6…15f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000a}
0x15f0…15fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0014}
0x15fa…160c               Head {h00=0x000e, h01=0x0050, text=»DUAD EQU *«, t00=0x000e, t01=0x001e}
0x160c…1632               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RETRY INDICATOR «, t00=0x000e, t01=0x0030}
0x1632…1666               Head {h00=0x0030, h01=0x0050, text=» CM DWTFBU,A6 RESET DRIVER BUFFER INDICATOR «, t00=0x000e, t01=0x0056}
0x1666…1678               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x000e, t01=0x008a}
0x1678…169a               Head {h00=0x001e, h01=0x0050, text=» LC A1,DWTOR,A6 GET INDEX «, t00=0x000e, t01=0x009c}
0x169a…16b0               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x000e, t01=0x00be}
0x16b0…16c2               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000e, t01=0x00d4}
0x16c2…16ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00e6}
0x16ce…16e4               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x000e, t01=0x00f2}
0x16e4…16f6               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x000e, t01=0x0108}
0x16f6…1702               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x011a}
0x1702…1726               Head {h00=0x0020, h01=0x0050, text=» RF(P) DUERR FAULT IN INDEX «, t00=0x000e, t01=0x0126}
0x1726…1730               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014a}
0x1730…1744               Head {h00=0x0010, h01=0x0050, text=»DUA:00 EQU *«, t00=0x000e, t01=0x0154}
0x1744…174e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0168}
0x174e…1764               Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB3«, t00=0x000e, t01=0x0172}
0x1764…1786               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 LOAD STACK BASE«, t00=0x000e, t01=0x0188}
0x1786…179c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x001a}
0x179c…17c8               Head {h00=0x0028, h01=0x0050, text=» MLR 2,A8 GET 18 BIT BUFFER ADDRESS «, t00=0x000f, t01=0x0030}
0x17c8…17ea               Head {h00=0x001e, h01=0x0050, text=» SLC A1,4 MOST SIGN. BITS «, t00=0x000f, t01=0x005c}
0x17ea…17fc               Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x000f, t01=0x007e}
0x17fc…181c               Head {h00=0x001c, h01=0x0050, text=» SRL A2,1 WORD ADDDRESS «, t00=0x000f, t01=0x0090}
0x181c…1846               Head {h00=0x0026, h01=0x0050, text=» CF A5,MMULOG GET LOGICAL ADDRESS «, t00=0x000f, t01=0x00b0}
0x1846…1852               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00da}
0x1852…185c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e6}
0x185c…188e               Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x000f, t01=0x00f0}
0x188e…18ae               Head {h00=0x001c, h01=0x0050, text=»*   SAVE INDEX AND ORDER«, t00=0x000f, t01=0x0122}
0x18ae…18c6               Head {h00=0x0014, h01=0x0050, text=» ADK A7,0 SET CR«, t00=0x000f, t01=0x0142}
0x18c6…18f2               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DUA:05 NOT TEST STATUS ORDER«, t00=0x000f, t01=0x015a}
0x18f2…18fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0186}
0x18fc…1912               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x000f, t01=0x0190}
0x1912…191c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0016}
0x191c…1926               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0020}
0x1926…1944               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x002a}
0x1944…1962               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0010, t01=0x0048}
0x1962…1980               Head {h00=0x001a, h01=0x0050, text=»*   TEST STATUS     * «, t00=0x0010, t01=0x0066}
0x1980…199e               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0010, t01=0x0084}
0x199e…19bc               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x00a2}
0x19bc…19c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c0}
0x19c6…19d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ca}
0x19d0…19f0               Head {h00=0x001c, h01=0x0050, text=» ORS A1,ECBRC,A8 NVL BIT«, t00=0x0010, t01=0x00d4}
0x19f0…1a06               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/200 «, t00=0x0010, t01=0x00f4}
0x1a06…1a3e               Head {h00=0x0034, h01=0x0050, text=» ANS A2,DWTOR,A6 VO:NAM ON FIRST OR SECOND UNIT «, t00=0x0010, t01=0x010a}
0x1a3e…1a50               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0010, t01=0x0142}
0x1a50…1a7e               Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTSAV,A6 INDICATE TEST STATUS «, t00=0x0010, t01=0x0154}
0x1a7e…1aa4               Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x0010, t01=0x0182}
0x1aa4…1ab6               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0011, t01=0x0018}
0x1ab6…1ada               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TESEND NOT OPERABLE «, t00=0x0011, t01=0x002a}
0x1ada…1b0a               Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTORD,A6 RESTORE INDEX AND ORDER«, t00=0x0011, t01=0x004e}
0x1b0a…1b22               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTOR,A6 «, t00=0x0011, t01=0x007e}
0x1b22…1b46               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0011, t01=0x0096}
0x1b46…1b80               Head {h00=0x0036, h01=0x0050, text=» CF A15,VOLNAM TRANSFER VOLUME NAME TO USER BUFFER«, t00=0x0011, t01=0x00ba}
0x1b80…1ba4               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0011, t01=0x00f4}
0x1ba4…1bb8               Head {h00=0x0010, h01=0x0050, text=»TESEND EQU *«, t00=0x0011, t01=0x0118}
0x1bb8…1bcc               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0011, t01=0x012c}
0x1bcc…1bfe               Head {h00=0x002e, h01=0x0050, text=» ST A2,DWTSAV,A6 INDICATE TEST STATUS DONE«, t00=0x0011, t01=0x0140}
0x1bfe…1c20               Head {h00=0x001e, h01=0x0050, text=» ABL END:IO PERFORM ENDIO «, t00=0x0011, t01=0x0172}
0x1c20…1c2a (18, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0004}
0x1c2a…1c42               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0012, t01=0x000e}
0x1c42…1c4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0026}
0x1c4c…1c7c               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0012, t01=0x0030}
0x1c7c…1cac               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x0012, t01=0x0060}
0x1cac…1cdc               Head {h00=0x002c, h01=0x0050, text=»*   NEW VOLUME LOADED CHECK           * «, t00=0x0012, t01=0x0090}
0x1cdc…1d0c               Head {h00=0x002c, h01=0x0050, text=»*   ORDER CODE CHECK                  * «, t00=0x0012, t01=0x00c0}
0x1d0c…1d3c               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x0012, t01=0x00f0}
0x1d3c…1d6c               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0012, t01=0x0120}
0x1d6c…1d76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0150}
0x1d76…1da8               Head {h00=0x002e, h01=0x0050, text=»*   INPUT: A1=NVL RETURN CODE FROM NVLCHK «, t00=0x0012, t01=0x015a}
0x1da8…1dc8               Head {h00=0x001c, h01=0x0050, text=»*          A7=ORDER CODE«, t00=0x0012, t01=0x018c}
0x1dc8…1dd2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001c}
0x1dd2…1ddc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0026}
0x1ddc…1df0               Head {h00=0x0010, h01=0x0050, text=»DUA:05 EQU *«, t00=0x0013, t01=0x0030}
0x1df0…1e1c               Head {h00=0x0028, h01=0x0050, text=» ADK A1,0 CHECK IF NEW VOLUME LOADED«, t00=0x0013, t01=0x0044}
0x1e1c…1e42               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) END:IO PERFORM TENDIO«, t00=0x0013, t01=0x0070}
0x1e42…1e54               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0013, t01=0x0096}
0x1e54…1e74               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUA:10 BASIC READ«, t00=0x0013, t01=0x00a8}
0x1e74…1e86               Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0013, t01=0x00c8}
0x1e86…1ea8               Head {h00=0x001e, h01=0x0050, text=» RF(Z) DUA:10 BASIC WRITE «, t00=0x0013, t01=0x00da}
0x1ea8…1ebc               Head {h00=0x0010, h01=0x0050, text=» SUK A7,12  «, t00=0x0013, t01=0x00fc}
0x1ebc…1ee0               Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUA:10 PHYSICAL READ «, t00=0x0013, t01=0x0110}
0x1ee0…1ef2               Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0013, t01=0x0134}
0x1ef2…1f16               Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUA:10 PHYSICAL WRITE«, t00=0x0013, t01=0x0146}
0x1f16…1f28               Head {h00=0x000e, h01=0x0050, text=» SUK A7,10«, t00=0x0013, t01=0x016a}
0x1f28…1f4c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FORMAT FORMAT VOLUME «, t00=0x0013, t01=0x017c}
0x1f4c…1f56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0010}
0x1f56…1f7c               Head {h00=0x0022, h01=0x0050, text=»DUERR ABL DISIOE REQUEST ERROR«, t00=0x0014, t01=0x001a}
0x1f7c…1f86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0040}
0x1f86…1fb2               Head {h00=0x0028, h01=0x0050, text=»INCLEN EQU * REQUESTED LENGTH ERROR «, t00=0x0014, t01=0x004a}
0x1fb2…1fc8               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8008«, t00=0x0014, t01=0x0076}
0x1fc8…1fdc               Head {h00=0x0010, h01=0x0050, text=» ABL END:20 «, t00=0x0014, t01=0x008c}
0x1fdc…1ff2               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0014, t01=0x00a0}
0x1ff2…1ffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b6}
0x1ffc…2006               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c0}
0x2006…2028               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0014, t01=0x00ca}
0x2028…204a               Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0014, t01=0x00ec}
0x204a…206e               Head {h00=0x0020, h01=0x0050, text=»*   FORMAT VOLUME         * «, t00=0x0014, t01=0x010e}
0x206e…2090               Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0014, t01=0x0132}
0x2090…20b2               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0014, t01=0x0154}
0x20b2…20bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0176}
0x20bc…20c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0180}
0x20c6…20da               Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0014, t01=0x018a}
0x20da…210e               Head {h00=0x0030, h01=0x0050, text=» LDK A7,204 NUMBER OF CYLINDERS ON PTS 6875 «, t00=0x0015, t01=0x000e}
0x210e…2134               Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBCW1,A8 GET DISC TYPE«, t00=0x0015, t01=0x0042}
0x2134…2150               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0015, t01=0x0068}
0x2150…2162               Head {h00=0x000e, h01=0x0050, text=» ECR A2,A1«, t00=0x0015, t01=0x0084}
0x2162…216e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0096}
0x216e…2180               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0015, t01=0x00a2}
0x2180…21a0               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FORM03 PTS 6875 «, t00=0x0015, t01=0x00b4}
0x21a0…21bc               Head {h00=0x0018, h01=0x0050, text=» ADK A7,204 PTS 6876«, t00=0x0015, t01=0x00d4}
0x21bc…21d0               Head {h00=0x0010, h01=0x0050, text=»FORM03 EQU *«, t00=0x0015, t01=0x00f0}
0x21d0…21da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0104}
0x21da…21f6               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0015, t01=0x010e}
0x21f6…220e               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFFER «, t00=0x0015, t01=0x012a}
0x220e…2234               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/C001 WRITE ONE WORD «, t00=0x0015, t01=0x0142}
0x2234…2246               Head {h00=0x000e, h01=0x0050, text=» ANK A2,3 «, t00=0x0015, t01=0x0168}
0x2246…2258               Head {h00=0x000e, h01=0x0050, text=» SUK A2,3 «, t00=0x0015, t01=0x017a}
0x2258…2278               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FORM05 A1 OR A2 «, t00=0x0015, t01=0x018c}
0x2278…229e               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/C0C1 WRITE 386 BYTES«, t00=0x0016, t01=0x001c}
0x229e…22b6               Head {h00=0x0014, h01=0x0050, text=» ADKL A3,PHSECL «, t00=0x0016, t01=0x0042}
0x22b6…22ca               Head {h00=0x0010, h01=0x0050, text=»FORM05 EQU *«, t00=0x0016, t01=0x005a}
0x22ca…22f0               Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTFBU,A6 SAVE 1ST WER «, t00=0x0016, t01=0x006e}
0x22f0…22fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0094}
0x22fc…2306               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a0}
0x2306…231c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0016, t01=0x00aa}
0x231c…2332               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0016, t01=0x00c0}
0x2332…234a               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFFER «, t00=0x0016, t01=0x00d6}
0x234a…2356               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00ee}
0x2356…2360               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fa}
0x2360…2376               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=0 «, t00=0x0016, t01=0x0104}
0x2376…238c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0016, t01=0x011a}
0x238c…23be               Head {h00=0x002e, h01=0x0050, text=» LDKL A3,BUFFER+PHSECL POSITION FOR CYL ID«, t00=0x0016, t01=0x0130}
0x23be…23ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0162}
0x23ca…23d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x016e}
0x23d4…23fc               Head {h00=0x0024, h01=0x0050, text=» STR A3,A6 DRIVER BUFFER POINTER«, t00=0x0016, t01=0x0178}
0x23fc…2412               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0017, t01=0x0010}
0x2412…2428               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0017, t01=0x0026}
0x2428…244c               Head {h00=0x0020, h01=0x0050, text=» CM DWTCYL,A2 CYLINDER ZERO «, t00=0x0017, t01=0x003c}
0x244c…2458               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0060}
0x2458…246e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0017, t01=0x006c}
0x246e…2492               Head {h00=0x0020, h01=0x0050, text=» CM DWTCYL,A6 CYLINDER ZERO «, t00=0x0017, t01=0x0082}
0x2492…249e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00a6}
0x249e…24a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b2}
0x24a8…24be               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0017, t01=0x00bc}
0x24be…24c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d2}
0x24c8…24d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00dc}
0x24d2…24e6               Head {h00=0x0010, h01=0x0050, text=»FORM20 EQU *«, t00=0x0017, t01=0x00e6}
0x24e6…24fc               Head {h00=0x0012, h01=0x0050, text=» LDK A4,QRETRY«, t00=0x0017, t01=0x00fa}
0x24fc…2510               Head {h00=0x0010, h01=0x0050, text=»FORM30 EQU *«, t00=0x0017, t01=0x0110}
0x2510…2526               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0017, t01=0x0124}
0x2526…254a               Head {h00=0x0020, h01=0x0050, text=» CF A5,INXUNI GET UNIT INDEX«, t00=0x0017, t01=0x013a}
0x254a…2556               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x015e}
0x2556…2578               Head {h00=0x001e, h01=0x0050, text=» CF A5,SEEK SEEK CYLINDER «, t00=0x0017, t01=0x016a}
0x2578…2590               Head {h00=0x0014, h01=0x0050, text=» SLL A1,5 STATUS«, t00=0x0017, t01=0x018c}
0x2590…25b2               Head {h00=0x001e, h01=0x0050, text=» RF(NN) FORM40 SEEK ERROR «, t00=0x0018, t01=0x0014}
0x25b2…25c8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0018, t01=0x0036}
0x25c8…25de               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0018, t01=0x004c}
0x25de…25f6               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTCYL,A2«, t00=0x0018, t01=0x0062}
0x25f6…2602               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x007a}
0x2602…2618               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0018, t01=0x0086}
0x2618…2630               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTCYL,A6«, t00=0x0018, t01=0x009c}
0x2630…263c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00b4}
0x263c…2674               Head {h00=0x0034, h01=0x0050, text=» ST* A1,0,A6 PREPARE DRIVER BUFFER WITH CYL. ID «, t00=0x0018, t01=0x00c0}
0x2674…2686               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0018, t01=0x00f8}
0x2686…26ba               Head {h00=0x0030, h01=0x0050, text=» CF A5,SKEW WRITE SECTOR 0 ON EVEN CYLINDERS«, t00=0x0018, t01=0x010a}
0x26ba…26e6               Head {h00=0x0028, h01=0x0050, text=»*   WRITE SECTOR 8 ON ODD CYLINDERS «, t00=0x0018, t01=0x013e}
0x26e6…270a               Head {h00=0x0020, h01=0x0050, text=» ORK A3,1 ORDER CODE: WRITE «, t00=0x0018, t01=0x016a}
0x270a…2714               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x018e}
0x2714…2730               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0019, t01=0x0008}
0x2730…2754               Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTFBU,A6 GET 1ST WER«, t00=0x0019, t01=0x0024}
0x2754…2760               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0048}
0x2760…276a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0054}
0x276a…2780               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0019, t01=0x005e}
0x2780…2796               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0019, t01=0x0074}
0x2796…27ac               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C002«, t00=0x0019, t01=0x008a}
0x27ac…27b8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00a0}
0x27b8…27c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ac}
0x27c2…27d8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=0 «, t00=0x0019, t01=0x00b6}
0x27d8…27ee               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0019, t01=0x00cc}
0x27ee…281c               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/C0C1 1ST WER WRITE 386 BYTES«, t00=0x0019, t01=0x00e2}
0x281c…2828               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0110}
0x2828…2832               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x011c}
0x2832…284a               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x0019, t01=0x0126}
0x284a…286e               Head {h00=0x0020, h01=0x0050, text=» CF A5,CIO:50 CIO:50 SECTOR «, t00=0x0019, t01=0x013e}
0x286e…2882               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1F «, t00=0x0019, t01=0x0162}
0x2882…28a4               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FORM40 WRITE ERROR«, t00=0x0019, t01=0x0176}
0x28a4…28ba               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x001a, t01=0x0008}
0x28ba…28d0               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x001a, t01=0x001e}
0x28d0…28e6               Head {h00=0x0012, h01=0x0050, text=» IM DWTCYL,A2 «, t00=0x001a, t01=0x0034}
0x28e6…28f2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x004a}
0x28f2…2908               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x001a, t01=0x0056}
0x2908…291e               Head {h00=0x0012, h01=0x0050, text=» IM DWTCYL,A6 «, t00=0x001a, t01=0x006c}
0x291e…292a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0082}
0x292a…2956               Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT CYLINDER COUNTER«, t00=0x001a, t01=0x008e}
0x2956…296c               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FORM20«, t00=0x001a, t01=0x00ba}
0x296c…29a0               Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBCW1,A8 GET FORMAT AND TYPE OF DISC«, t00=0x001a, t01=0x00d0}
0x29a0…29ce               Head {h00=0x002a, h01=0x0050, text=» ABL TRANPA PUT FORMAT AND TYPE IN DWT«, t00=0x001a, t01=0x0104}
0x29ce…29e2               Head {h00=0x0010, h01=0x0050, text=»FORM40 EQU *«, t00=0x001a, t01=0x0132}
0x29e2…2a06               Head {h00=0x0020, h01=0x0050, text=» CF A5,SEEKZ SEEK CYLINDER 0«, t00=0x001a, t01=0x0146}
0x2a06…2a18               Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x001a, t01=0x016a}
0x2a18…2a38               Head {h00=0x001c, h01=0x0050, text=» RF(N) FORM50 SEEK ERROR«, t00=0x001a, t01=0x017c}
0x2a38…2a58               Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 RETRY COUNTER «, t00=0x001b, t01=0x000c}
0x2a58…2a74               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) FORM30 RETRY«, t00=0x001b, t01=0x002c}
0x2a74…2a88               Head {h00=0x0010, h01=0x0050, text=»FORM50 EQU *«, t00=0x001b, t01=0x0048}
0x2a88…2ab0               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 SEEK ERROR RETURN CODE«, t00=0x001b, t01=0x005c}
0x2ab0…2ad2               Head {h00=0x001e, h01=0x0050, text=» ABL END:IO PERFORM END IO«, t00=0x001b, t01=0x0084}
0x2ad2…2af2               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x001b, t01=0x00a6}
0x2af2…2afc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c6}
0x2afc…2b06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d0}
0x2b06…2b40               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001b, t01=0x00da}
0x2b40…2b7a               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x001b, t01=0x0114}
0x2b7a…2bb4               Head {h00=0x0036, h01=0x0050, text=»*   CHECK IF ALLOWED SECTOR LENGTH, BUFFER SIZE * «, t00=0x001b, t01=0x014e}
0x2bb4…2bee               Head {h00=0x0036, h01=0x0050, text=»*   AND SECTOR NUMBER                           * «, t00=0x001b, t01=0x0188}
0x2bee…2c28               Head {h00=0x0036, h01=0x0050, text=»*   SAVE BUFFER ADDRESS AND SET SECTOR COUNTER  * «, t00=0x001c, t01=0x0032}
0x2c28…2c62               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x001c, t01=0x006c}
0x2c62…2c9c               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001c, t01=0x00a6}
0x2c9c…2ca6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e0}
0x2ca6…2cbc               Head {h00=0x0012, h01=0x0050, text=»*   INPUT: ECB«, t00=0x001c, t01=0x00ea}
0x2cbc…2ce2               Head {h00=0x0022, h01=0x0050, text=»*   OUTPUT: A7=SECTOR COUNTER «, t00=0x001c, t01=0x0100}
0x2ce2…2d10               Head {h00=0x002a, h01=0x0050, text=»*           DWTUBU=USER BUFFER POINTER«, t00=0x001c, t01=0x0126}
0x2d10…2d1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0154}
0x2d1a…2d24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x015e}
0x2d24…2d38               Head {h00=0x0010, h01=0x0050, text=»DUA:10 EQU *«, t00=0x001c, t01=0x0168}
0x2d38…2d60               Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBRL,A8 REQUESTED LENGTH«, t00=0x001c, t01=0x017c}
0x2d60…2d76               Head {h00=0x0012, h01=0x0050, text=» RB(Z) INCLEN «, t00=0x001d, t01=0x0014}
0x2d76…2db0               Head {h00=0x0036, h01=0x0050, text=» ECR A7,A3 DIVIDE BY 256 TO GET NUMBER OF SECTORS «, t00=0x001d, t01=0x002a}
0x2db0…2dda               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/FF SET CONDITION REGISTER«, t00=0x001d, t01=0x0064}
0x2dda…2e12               Head {h00=0x0034, h01=0x0050, text=» RB(NZ) INCLEN NOT AN INTEGER NUMBER OF SECTORS «, t00=0x001d, t01=0x008e}
0x2e12…2e50               Head {h00=0x003a, h01=0x0050, text=» LD A3,ECBCW2,A8 SECTOR NUMBER WHERE THE BUFFER BEGIN «, t00=0x001d, t01=0x00c6}
0x2e50…2e7c               Head {h00=0x0028, h01=0x0050, text=» RB(N) DUERR INCORRECT SECTOR NUMBER«, t00=0x001d, t01=0x0104}
0x2e7c…2e94               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTSMX,A2«, t00=0x001d, t01=0x0130}
0x2e94…2ec2               Head {h00=0x002a, h01=0x0050, text=» RB(NL) DUERR INCORRECT SECTOR NUMBER «, t00=0x001d, t01=0x0148}
0x2ec2…2ed4               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A7«, t00=0x001d, t01=0x0176}
0x2ed4…2eec               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTSMX,A2«, t00=0x001d, t01=0x0188}
0x2eec…2f18               Head {h00=0x0028, h01=0x0050, text=» RB(G) INCLEN SECTOR NUMBER OVERFLOW«, t00=0x001e, t01=0x0010}
0x2f18…2f22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x003c}
0x2f22…2f38               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001e, t01=0x0046}
0x2f38…2f50               Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x001e, t01=0x005c}
0x2f50…2f7c               Head {h00=0x0028, h01=0x0050, text=» ST A1,DWTUBU,A6 USER BUFFER POINTER«, t00=0x001e, t01=0x0074}
0x2f7c…2f88               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00a0}
0x2f88…2f92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ac}
0x2f92…2fa8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x001e, t01=0x00b6}
0x2fa8…2fb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00cc}
0x2fb2…2fce               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x001e, t01=0x00d6}
0x2fce…2fd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f2}
0x2fd8…2fe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fc}
0x2fe2…3008               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x001e, t01=0x0106}
0x3008…302e               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x001e, t01=0x012c}
0x302e…3054               Head {h00=0x0022, h01=0x0050, text=»*   DISC VERSION SEPARATION  *«, t00=0x001e, t01=0x0152}
0x3054…307a               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x001e, t01=0x0178}
0x307a…30a0               Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x001f, t01=0x000e}
0x30a0…30aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0034}
0x30aa…30b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x003e}
0x30b4…30cc               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFOR,A2«, t00=0x001f, t01=0x0048}
0x30cc…30de               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x001f, t01=0x0060}
0x30de…30fe               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RW:800 VERSION A2«, t00=0x001f, t01=0x0072}
0x30fe…310a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0092}
0x310a…3114               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x009e}
0x3114…312a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x001f, t01=0x00a8}
0x312a…3134               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00be}
0x3134…314a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x001f, t01=0x00c8}
0x314a…3154               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00de}
0x3154…3182               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001f, t01=0x00e8}
0x3182…31b0               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x001f, t01=0x0116}
0x31b0…31de               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x001f, t01=0x0144}
0x31de…320c               Head {h00=0x002a, h01=0x0050, text=»*   GET PHYSICAL SECTOR NUMBER BY   * «, t00=0x001f, t01=0x0172}
0x320c…323a               Head {h00=0x002a, h01=0x0050, text=»*   DIVIDE BY 3                     * «, t00=0x0020, t01=0x0010}
0x323a…3268               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0020, t01=0x003e}
0x3268…3296               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0020, t01=0x006c}
0x3296…32a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x009a}
0x32a0…32b6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0020, t01=0x00a4}
0x32b6…32dc               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x0020, t01=0x00ba}
0x32dc…330e               Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBCW2,A8 GET LOGICAL SECTOR NUMBER«, t00=0x0020, t01=0x00e0}
0x330e…331c               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0020, t01=0x0112}
0x331c…334c               Head {h00=0x002c, h01=0x0050, text=»*   A1=REMAINER=LOGICAL SECTOR POSITION «, t00=0x0020, t01=0x0120}
0x334c…3382               Head {h00=0x0032, h01=0x0050, text=»*   A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC«, t00=0x0020, t01=0x0150}
0x3382…338e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0186}
0x338e…3398 (33, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0004}
0x3398…33ae               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0021, t01=0x000e}
0x33ae…33c4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0021, t01=0x0024}
0x33c4…33dc               Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW2,A8«, t00=0x0021, t01=0x003a}
0x33dc…33fc               Head {h00=0x001c, h01=0x0050, text=» LDR A3,A1 SECTOR NUMBER«, t00=0x0021, t01=0x0052}
0x33fc…340e               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0021, t01=0x0072}
0x340e…3422               Head {h00=0x0010, h01=0x0050, text=»DVK:00 EQU *«, t00=0x0021, t01=0x0084}
0x3422…343e               Head {h00=0x0018, h01=0x0050, text=» ADR A2,A3 I:= I+I/4«, t00=0x0021, t01=0x0098}
0x343e…3458               Head {h00=0x0016, h01=0x0050, text=» SRL A3,2 I:= I/4 «, t00=0x0021, t01=0x00b4}
0x3458…346e               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DVK:00«, t00=0x0021, t01=0x00ce}
0x346e…3488               Head {h00=0x0016, h01=0x0050, text=» SRL A2,2 TRUNCATE«, t00=0x0021, t01=0x00e4}
0x3488…349a               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x0021, t01=0x00fe}
0x349a…34ac               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x0021, t01=0x0110}
0x34ac…34ce               Head {h00=0x001e, h01=0x0050, text=» SUR A1,A2 REST AFTER LOOP«, t00=0x0021, t01=0x0122}
0x34ce…34e0               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0021, t01=0x0144}
0x34e0…34f4               Head {h00=0x0010, h01=0x0050, text=»DVK:10 EQU *«, t00=0x0021, t01=0x0156}
0x34f4…3506               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0021, t01=0x016a}
0x3506…3524               Head {h00=0x001a, h01=0x0050, text=» SUK A1,3 DIVIDE BY 3 «, t00=0x0021, t01=0x017c}
0x3524…353a               Head {h00=0x0012, h01=0x0050, text=» RB(NN) DVK:10«, t00=0x0022, t01=0x000a}
0x353a…3550               Head {h00=0x0012, h01=0x0050, text=» ADK A1,3 REST«, t00=0x0022, t01=0x0020}
0x3550…3580               Head {h00=0x002c, h01=0x0050, text=»*   A1=REMAINER=LOGICAL SECTOR POSITION «, t00=0x0022, t01=0x0036}
0x3580…35b6               Head {h00=0x0032, h01=0x0050, text=»*   A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC«, t00=0x0022, t01=0x0066}
0x35b6…35c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x009c}
0x35c0…35d6               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0022, t01=0x00a6}
0x35d6…35e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00bc}
0x35e2…35ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00c8}
0x35ec…3602               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0022, t01=0x00d2}
0x3602…360c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e8}
0x360c…363a               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0022, t01=0x00f2}
0x363a…3668               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0022, t01=0x0120}
0x3668…3696               Head {h00=0x002a, h01=0x0050, text=»*   SAVE PHYSICAL SECTOR NUMBER     * «, t00=0x0022, t01=0x014e}
0x3696…36c4               Head {h00=0x002a, h01=0x0050, text=»*   AND SECTOR POSITION             * «, t00=0x0022, t01=0x017c}
0x36c4…36f2               Head {h00=0x002a, h01=0x0050, text=»*   BRANCH ACCORDING TO SECTOR      * «, t00=0x0023, t01=0x001a}
0x36f2…3720               Head {h00=0x002a, h01=0x0050, text=»*   POSITION                        * «, t00=0x0023, t01=0x0048}
0x3720…374e               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0023, t01=0x0076}
0x374e…377c               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0023, t01=0x00a4}
0x377c…3786               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00d2}
0x3786…37b6               Head {h00=0x002c, h01=0x0050, text=»*   INPUT: A1=SECTOR POSITION INDICATOR «, t00=0x0023, t01=0x00dc}
0x37b6…37e6               Head {h00=0x002c, h01=0x0050, text=»*          A2=LOGICAL SECTOR NUMBER / 3 «, t00=0x0023, t01=0x010c}
0x37e6…37f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x013c}
0x37f0…37fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0146}
0x37fa…380c               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0023, t01=0x0150}
0x380c…383a               Head {h00=0x002a, h01=0x0050, text=» STR A2,A6 SAVE PHYSICAL SECTOR NUMBER«, t00=0x0023, t01=0x0162}
0x383a…384c               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0023, t01=0x0190}
0x384c…385e               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0024, t01=0x0012}
0x385e…388c               Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTSEP,A6 SAVE SECTOR POSITION «, t00=0x0024, t01=0x0024}
0x388c…38c2               Head {h00=0x0032, h01=0x0050, text=» ST A2,DWTSEI,A6 SAVE 1ST PHYS. SECTOR NUMBER «, t00=0x0024, t01=0x0052}
0x38c2…38ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0088}
0x38ce…38d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0094}
0x38d8…38ee               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0024, t01=0x009e}
0x38ee…3912               Head {h00=0x0020, h01=0x0050, text=»*   LOGICAL SECTOR POSITION «, t00=0x0024, t01=0x00b4}
0x3912…3938               Head {h00=0x0022, h01=0x0050, text=» RF(N) RW:300 ,XXXX  ,      , «, t00=0x0024, t01=0x00d8}
0x3938…395e               Head {h00=0x0022, h01=0x0050, text=» RF(Z) RW:200 ,    XX,XX    , «, t00=0x0024, t01=0x00fe}
0x395e…397a               Head {h00=0x0018, h01=0x0050, text=»*   ,      ,  XXXX, «, t00=0x0024, t01=0x0124}
0x397a…3984               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0140}
0x3984…399a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0024, t01=0x014a}
0x399a…39a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0160}
0x39a4…39d2               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0024, t01=0x016a}
0x39d2…3a00               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0025, t01=0x0008}
0x3a00…3a2e               Head {h00=0x002a, h01=0x0050, text=»*   READ/WRITE FROM SECTOR IN       * «, t00=0x0025, t01=0x0036}
0x3a2e…3a5c               Head {h00=0x002a, h01=0x0050, text=»*   POSITION ,      ,  xxxx,        * «, t00=0x0025, t01=0x0064}
0x3a5c…3a8a               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0025, t01=0x0092}
0x3a8a…3ab8               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0025, t01=0x00c0}
0x3ab8…3ac2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ee}
0x3ac2…3aee               Head {h00=0x0028, h01=0x0050, text=» IMR A6 LOG. SECTOR IN NEXT PHYSICAL«, t00=0x0025, t01=0x00f8}
0x3aee…3b00               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0025, t01=0x0124}
0x3b00…3b30               Head {h00=0x002c, h01=0x0050, text=» IM DWTSEI,A6 SAVE FOR READ AFTER WRITE «, t00=0x0025, t01=0x0136}
0x3b30…3b3c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0166}
0x3b3c…3b46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0172}
0x3b46…3b5c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0025, t01=0x017c}
0x3b5c…3b72 (38, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0026, t01=0x0004}
0x3b72…3b86               Head {h00=0x0010, h01=0x0050, text=» DATA /0084 «, t00=0x0026, t01=0x001a}
0x3b86…3b98               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0026, t01=0x002e}
0x3b98…3baa               Head {h00=0x000e, h01=0x0050, text=» RF RW:300«, t00=0x0026, t01=0x0040}
0x3baa…3bb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0052}
0x3bb4…3bca               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0026, t01=0x005c}
0x3bca…3bd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0072}
0x3bd4…3c02               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0026, t01=0x007c}
0x3c02…3c30               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0026, t01=0x00aa}
0x3c30…3c5e               Head {h00=0x002a, h01=0x0050, text=»*   READ/WRITE FROM SECTOR IN       * «, t00=0x0026, t01=0x00d8}
0x3c5e…3c8c               Head {h00=0x002a, h01=0x0050, text=»*   POSITION ,    xx,               * «, t00=0x0026, t01=0x0106}
0x3c8c…3cba               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0026, t01=0x0134}
0x3cba…3ce8               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0026, t01=0x0162}
0x3ce8…3cf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0190}
0x3cf2…3cfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x000a}
0x3cfc…3d10               Head {h00=0x0010, h01=0x0050, text=»RW:200 EQU *«, t00=0x0027, t01=0x0014}
0x3d10…3d26               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0027, t01=0x0028}
0x3d26…3d3a               Head {h00=0x0010, h01=0x0050, text=» DATA /0048 «, t00=0x0027, t01=0x003e}
0x3d3a…3d5e               Head {h00=0x0020, h01=0x0050, text=» SUK A7,2 NUMBER OF SECTORS «, t00=0x0027, t01=0x0052}
0x3d5e…3d82               Head {h00=0x0020, h01=0x0050, text=» RF(N) RW:230 1 SECTOR IN IO«, t00=0x0027, t01=0x0076}
0x3d82…3daa               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) RW:260 >2 SECTORS IN IO «, t00=0x0027, t01=0x009a}
0x3daa…3dc6               Head {h00=0x0018, h01=0x0050, text=»*   ,    XX,XXXXXX, «, t00=0x0027, t01=0x00c2}
0x3dc6…3ddc               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0027, t01=0x00de}
0x3ddc…3df0               Head {h00=0x0010, h01=0x0050, text=» DATA /00C0 «, t00=0x0027, t01=0x00f4}
0x3df0…3e02               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x0027, t01=0x0108}
0x3e02…3e26               Head {h00=0x0020, h01=0x0050, text=»RW:230 EQU * ,    XX,XX    ,«, t00=0x0027, t01=0x011a}
0x3e26…3e3c               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0027, t01=0x013e}
0x3e3c…3e50               Head {h00=0x0010, h01=0x0050, text=» DATA /0040 «, t00=0x0027, t01=0x0154}
0x3e50…3e62               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x0027, t01=0x0168}
0x3e62…3e86               Head {h00=0x0020, h01=0x0050, text=»RW:260 EQU * ,    XX,XXXXXX,«, t00=0x0027, t01=0x017a}
0x3e86…3e9c               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0028, t01=0x000e}
0x3e9c…3eb0               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x0028, t01=0x0024}
0x3eb0…3eba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0038}
0x3eba…3ed0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0028, t01=0x0042}
0x3ed0…3eda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0058}
0x3eda…3f06               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0028, t01=0x0062}
0x3f06…3f32               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x0028, t01=0x008e}
0x3f32…3f5e               Head {h00=0x0028, h01=0x0050, text=»*   DIRECT READ/WRITE AS LONG      *«, t00=0x0028, t01=0x00ba}
0x3f5e…3f8a               Head {h00=0x0028, h01=0x0050, text=»*   AS POSIBLE                     *«, t00=0x0028, t01=0x00e6}
0x3f8a…3fb6               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x0028, t01=0x0112}
0x3fb6…3fe2               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0028, t01=0x013e}
0x3fe2…3fec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x016a}
0x3fec…3ff6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0174}
0x3ff6…400a               Head {h00=0x0010, h01=0x0050, text=»RW:300 EQU *«, t00=0x0028, t01=0x017e}
0x400a…402a (41, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» SUK A7,3 SECTOR COUNTER«, t00=0x0029, t01=0x0004}
0x402a…405e               Head {h00=0x0030, h01=0x0050, text=» RF(NG) RW:500 LESS THAN FOUR SECTORS IN IO «, t00=0x0029, t01=0x0024}
0x405e…4074               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0029, t01=0x0058}
0x4074…4088               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x0029, t01=0x006e}
0x4088…409e               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0029, t01=0x0082}
0x409e…40b2               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x0029, t01=0x0098}
0x40b2…40c4               Head {h00=0x000e, h01=0x0050, text=» RB RW:300«, t00=0x0029, t01=0x00ac}
0x40c4…40ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00be}
0x40ce…40e4               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0029, t01=0x00c8}
0x40e4…40ee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00de}
0x40ee…411a               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0029, t01=0x00e8}
0x411a…4146               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x0029, t01=0x0114}
0x4146…4172               Head {h00=0x0028, h01=0x0050, text=»*   READ/WRITE ON THE LAST SECTORS *«, t00=0x0029, t01=0x0140}
0x4172…419e               Head {h00=0x0028, h01=0x0050, text=»*   IN IO                          *«, t00=0x0029, t01=0x016c}
0x419e…41ca               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x002a, t01=0x0008}
0x41ca…41f6               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002a, t01=0x0034}
0x41f6…4200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0060}
0x4200…420a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x006a}
0x420a…421e               Head {h00=0x0010, h01=0x0050, text=»RW:500 EQU *«, t00=0x002a, t01=0x0074}
0x421e…423e               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RW:580 3 SECTORS «, t00=0x002a, t01=0x0088}
0x423e…4250               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x002a, t01=0x00a8}
0x4250…4270               Head {h00=0x001c, h01=0x0050, text=» RF(P) RW:560 2 SECTORS «, t00=0x002a, t01=0x00ba}
0x4270…4290               Head {h00=0x001c, h01=0x0050, text=» RF(N) RW:600 0 SECTORS «, t00=0x002a, t01=0x00da}
0x4290…42b4               Head {h00=0x0020, h01=0x0050, text=»RW:530 EQU * ,XXXX  ,      ,«, t00=0x002a, t01=0x00fa}
0x42b4…42ca               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002a, t01=0x011e}
0x42ca…42de               Head {h00=0x0010, h01=0x0050, text=» DATA /0080 «, t00=0x002a, t01=0x0134}
0x42de…42f0               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x002a, t01=0x0148}
0x42f0…4314               Head {h00=0x0020, h01=0x0050, text=»RW:560 EQU * ,XXXXXX,XX    ,«, t00=0x002a, t01=0x015a}
0x4314…432a               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002a, t01=0x017e}
0x432a…433e (43, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x002b, t01=0x0004}
0x433e…4354               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002b, t01=0x0018}
0x4354…4368               Head {h00=0x0010, h01=0x0050, text=» DATA /0040 «, t00=0x002b, t01=0x002e}
0x4368…437a               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x002b, t01=0x0042}
0x437a…439e               Head {h00=0x0020, h01=0x0050, text=»RW:580 EQU * ,XXXXXX,XXXXXX,«, t00=0x002b, t01=0x0054}
0x439e…43b4               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002b, t01=0x0078}
0x43b4…43c8               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x002b, t01=0x008e}
0x43c8…43de               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002b, t01=0x00a2}
0x43de…43f2               Head {h00=0x0010, h01=0x0050, text=» DATA /00C0 «, t00=0x002b, t01=0x00b8}
0x43f2…43fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00cc}
0x43fc…4412               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x002b, t01=0x00d6}
0x4412…441c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ec}
0x441c…4426               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f6}
0x4426…443a               Head {h00=0x0010, h01=0x0050, text=»RW:600 EQU *«, t00=0x002b, t01=0x0100}
0x443a…444c               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x002b, t01=0x0114}
0x444c…4456               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0126}
0x4456…4476               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x002b, t01=0x0130}
0x4476…4496               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x002b, t01=0x0150}
0x4496…44b6               Head {h00=0x001c, h01=0x0050, text=»*   READ AFTER WRITE   *«, t00=0x002b, t01=0x0170}
0x44b6…44d6               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x002b, t01=0x0190}
0x44d6…44f6               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x002c, t01=0x0020}
0x44f6…4500               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0040}
0x4500…4534               Head {h00=0x0030, h01=0x0050, text=»*   DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO«, t00=0x002c, t01=0x004a}
0x4534…4570               Head {h00=0x0038, h01=0x0050, text=»*   1ST POS IN DWT=LAST PHYSICAL SECTOR NUMBER IN IO«, t00=0x002c, t01=0x007e}
0x4570…458e               Head {h00=0x001a, h01=0x0050, text=»*   A7=SECTOR COUNTER «, t00=0x002c, t01=0x00ba}
0x458e…4598               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d8}
0x4598…45b0               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x002c, t01=0x00e2}
0x45b0…45ce               Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF GET ORDER «, t00=0x002c, t01=0x00fa}
0x45ce…45e2               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/15 «, t00=0x002c, t01=0x0118}
0x45e2…460c               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) RW:700 NOT PHYSICAL WRITE «, t00=0x002c, t01=0x012c}
0x460c…4622               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,-/100«, t00=0x002c, t01=0x0156}
0x4622…4652               Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTSEP,A6 GET 1ST SECTOR POSITION«, t00=0x002c, t01=0x016c}
0x4652…4670               Head {h00=0x001a, h01=0x0050, text=» RF(Z) RW:645 ,    XX,«, t00=0x002d, t01=0x000c}
0x4670…468e               Head {h00=0x001a, h01=0x0050, text=» RF(P) RW:640 ,  XXXX,«, t00=0x002d, t01=0x002a}
0x468e…46a2               Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x002d, t01=0x0048}
0x46a2…46b6               Head {h00=0x0010, h01=0x0050, text=»RW:640 EQU *«, t00=0x002d, t01=0x005c}
0x46b6…46ca               Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x002d, t01=0x0070}
0x46ca…46de               Head {h00=0x0010, h01=0x0050, text=»RW:645 EQU *«, t00=0x002d, t01=0x0084}
0x46de…470e               Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBEL,A8 PREPARE EFFECTIVE LENGTH«, t00=0x002d, t01=0x0098}
0x470e…473c               Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTSEI,A6 RAW FROM THIS SECTOR «, t00=0x002d, t01=0x00c8}
0x473c…4762               Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 GET LAST SECTOR NO«, t00=0x002d, t01=0x00f6}
0x4762…4794               Head {h00=0x002e, h01=0x0050, text=» SUR A7,A1 GET NUMBER OF PHYSICAL SECTORS «, t00=0x002d, t01=0x011c}
0x4794…47a6               Head {h00=0x000e, h01=0x0050, text=» STR A1,A6«, t00=0x002d, t01=0x014e}
0x47a6…47b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0160}
0x47b0…47c6               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x002d, t01=0x016a}
0x47c6…47d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0180}
0x47d0…47da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x018a}
0x47da…47ee (46, 0, 398)  Head {h00=0x0010, h01=0x0050, text=»RW:650 EQU *«, t00=0x002e, t01=0x0004}
0x47ee…4804               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002e, t01=0x0018}
0x4804…4818               Head {h00=0x0010, h01=0x0050, text=» DATA /40C0 «, t00=0x002e, t01=0x002e}
0x4818…483c               Head {h00=0x0020, h01=0x0050, text=» IMR A6 NEXT PHYSICAL SECTOR«, t00=0x002e, t01=0x0042}
0x483c…4854               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PHSECL «, t00=0x002e, t01=0x0066}
0x4854…487a               Head {h00=0x0022, h01=0x0050, text=» ADS A1,ECBEL,A8 UPDATE ECBEL «, t00=0x002e, t01=0x007e}
0x487a…488c               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x002e, t01=0x00a4}
0x488c…48a2               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) RW:650«, t00=0x002e, t01=0x00b6}
0x48a2…48ba               Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBRL,A8 «, t00=0x002e, t01=0x00cc}
0x48ba…48ea               Head {h00=0x002c, h01=0x0050, text=» ST A7,ECBEL,A8 CORRECT EFFECTIVE LENGTH«, t00=0x002e, t01=0x00e4}
0x48ea…48f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0114}
0x48f6…4900               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0120}
0x4900…4916               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x002e, t01=0x012a}
0x4916…492a               Head {h00=0x0010, h01=0x0050, text=»RW:700 EQU *«, t00=0x002e, t01=0x0140}
0x492a…4948               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x002e, t01=0x0154}
0x4948…4962               Head {h00=0x0016, h01=0x0050, text=» ABL END:20 ENDIO «, t00=0x002e, t01=0x0172}
0x4962…496c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x018c}
0x496c…4978               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0008}
0x4978…4982               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0014}
0x4982…4998               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x002f, t01=0x001e}
0x4998…49a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0034}
0x49a2…49b8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x002f, t01=0x003e}
0x49b8…49c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0054}
0x49c2…49cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x005e}
0x49cc…49f6               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002f, t01=0x0068}
0x49f6…4a20               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x002f, t01=0x0092}
0x4a20…4a4a               Head {h00=0x0026, h01=0x0050, text=»*   DISC FORMAT A2              * «, t00=0x002f, t01=0x00bc}
0x4a4a…4a74               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x002f, t01=0x00e6}
0x4a74…4a9e               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002f, t01=0x0110}
0x4a9e…4aa8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x013a}
0x4aa8…4ab2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0144}
0x4ab2…4ac6               Head {h00=0x0010, h01=0x0050, text=»RW:800 EQU *«, t00=0x002f, t01=0x014e}
0x4ac6…4ada               Head {h00=0x0010, h01=0x0050, text=» CF A5,DIV31«, t00=0x002f, t01=0x0162}
0x4ada…4aec               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x002f, t01=0x0176}
0x4aec…4b30               Head {h00=0x0040, h01=0x0050, text=» ST A7,DWTSEI,A6 SAVE NUMBER OF SECTORS FOR READ AFTER WRITE«, t00=0x002f, t01=0x0188}
0x4b30…4b3c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x003c}
0x4b3c…4b46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0048}
0x4b46…4b5c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0030, t01=0x0052}
0x4b5c…4b70               Head {h00=0x0010, h01=0x0050, text=»RW:850 EQU *«, t00=0x0030, t01=0x0068}
0x4b70…4b86               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0030, t01=0x007c}
0x4b86…4bac               Head {h00=0x0022, h01=0x0050, text=» DATA /A080 INDICATE FORMAT A2«, t00=0x0030, t01=0x0092}
0x4bac…4bc2               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x0030, t01=0x00b8}
0x4bc2…4bf6               Head {h00=0x0030, h01=0x0050, text=» ADS A1,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x0030, t01=0x00ce}
0x4bf6…4c08               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0030, t01=0x0102}
0x4c08…4c32               Head {h00=0x0026, h01=0x0050, text=» RB(NZ) RW:850 MORE SECTORS IN IO «, t00=0x0030, t01=0x0114}
0x4c32…4c3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013e}
0x4c3c…4c52               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0030, t01=0x0148}
0x4c52…4c5c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x015e}
0x4c5c…4c66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0168}
0x4c66…4c78               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0030, t01=0x0172}
0x4c78…4c9a               Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0030, t01=0x0184}
0x4c9a…4cae               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0031, t01=0x0016}
0x4cae…4cc2               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/15 «, t00=0x0031, t01=0x002a}
0x4cc2…4ccc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003e}
0x4ccc…4ce2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0031, t01=0x0048}
0x4ce2…4d0c               Head {h00=0x0026, h01=0x0050, text=» RB(NZ) RW:700 NOT PHYSICAL WRITE «, t00=0x0031, t01=0x005e}
0x4d0c…4d18               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0088}
0x4d18…4d22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0094}
0x4d22…4d38               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0031, t01=0x009e}
0x4d38…4d4e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0031, t01=0x00b4}
0x4d4e…4d60               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0031, t01=0x00ca}
0x4d60…4d76               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) RW:905«, t00=0x0031, t01=0x00dc}
0x4d76…4d82               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00f2}
0x4d82…4d8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00fe}
0x4d8c…4da2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0031, t01=0x0108}
0x4da2…4db4               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0031, t01=0x011e}
0x4db4…4de6               Head {h00=0x002e, h01=0x0050, text=» CM ECBEL,A8 PREPARE FOR READ AFTER WRITE «, t00=0x0031, t01=0x0130}
0x4de6…4dfe               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTSEI,A6«, t00=0x0031, t01=0x0162}
0x4dfe…4e12               Head {h00=0x0010, h01=0x0050, text=» CF A5,DIV31«, t00=0x0031, t01=0x017a}
0x4e12…4e1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x018e}
0x4e1c…4e32               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0032, t01=0x0008}
0x4e32…4e3c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x001e}
0x4e3c…4e46               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0028}
0x4e46…4e5a               Head {h00=0x0010, h01=0x0050, text=»RW:900 EQU *«, t00=0x0032, t01=0x0032}
0x4e5a…4e70               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0032, t01=0x0046}
0x4e70…4e94               Head {h00=0x0020, h01=0x0050, text=» DATA /E080 READ AFTER WRITE«, t00=0x0032, t01=0x005c}
0x4e94…4ea6               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0032, t01=0x0080}
0x4ea6…4ebc               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) RW:900«, t00=0x0032, t01=0x0092}
0x4ebc…4ec8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x00a8}
0x4ec8…4ed2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b4}
0x4ed2…4eee               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0032, t01=0x00be}
0x4eee…4f00               Head {h00=0x000e, h01=0x0050, text=» RB RW:700«, t00=0x0032, t01=0x00da}
0x4f00…4f0c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x00ec}
0x4f0c…4f16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00f8}
0x4f16…4f2c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0032, t01=0x0102}
0x4f2c…4f42               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0032, t01=0x0118}
0x4f42…4f56               Head {h00=0x0010, h01=0x0050, text=»RW:905 EQU *«, t00=0x0032, t01=0x012e}
0x4f56…4f7a               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0032, t01=0x0142}
0x4f7a…4f8e               Head {h00=0x0010, h01=0x0050, text=» ABL END:20 «, t00=0x0032, t01=0x0166}
0x4f8e…4f9a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x017a}
0x4f9a…4fa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0186}
0x4fa4…4fba               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0032, t01=0x0190}
0x4fba…4fc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0016}
0x4fc4…4ffc               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0033, t01=0x0020}
0x4ffc…5034               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0033, t01=0x0058}
0x5034…506c               Head {h00=0x0034, h01=0x0050, text=»*   IOROUT PERFORM READ OR WRITE AND SEEK     * «, t00=0x0033, t01=0x0090}
0x506c…50a4               Head {h00=0x0034, h01=0x0050, text=»*   IF NECESSARY                              * «, t00=0x0033, t01=0x00c8}
0x50a4…50dc               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0033, t01=0x0100}
0x50dc…5114               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0033, t01=0x0138}
0x5114…511e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0170}
0x511e…5148               Head {h00=0x0026, h01=0x0050, text=»*   INPUT : ONE DATA WORD AFTER CF«, t00=0x0033, t01=0x017a}
0x5148…5176               Head {h00=0x002a, h01=0x0050, text=»*          BIT 0 :INDICATES DIRECT IO «, t00=0x0034, t01=0x0014}
0x5176…51aa               Head {h00=0x0030, h01=0x0050, text=»*          BIT 1 :INDICATES READ AFTER WRITE«, t00=0x0034, t01=0x0042}
0x51aa…51d8               Head {h00=0x002a, h01=0x0050, text=»*          BIT 2 :INDICATES FORMAT A2 «, t00=0x0034, t01=0x0076}
0x51d8…5206               Head {h00=0x002a, h01=0x0050, text=»*          BIT 8-11:NUMBER OF WORDS/16«, t00=0x0034, t01=0x00a4}
0x5206…523c               Head {h00=0x0032, h01=0x0050, text=»*          BIT12-15:START IN DRIVER BUFFER/32 «, t00=0x0034, t01=0x00d2}
0x523c…527c               Head {h00=0x003c, h01=0x0050, text=»*   AFTER SEEK THE CYLINDER ID WILL BE CHECKED BY A READ«, t00=0x0034, t01=0x0108}
0x527c…52c0               Head {h00=0x0040, h01=0x0050, text=»*   DWTBSE CONTAINS THE PRESENT SECTOR IN THE DRIVER BUFFER «, t00=0x0034, t01=0x0148}
0x52c0…52ea               Head {h00=0x0026, h01=0x0050, text=»*   DWTRTY INDICATES RETRIES DONE «, t00=0x0034, t01=0x018c}
0x52ea…5336               Head {h00=0x0048, h01=0x0050, text=»*   DWTSWD SAVED WORD FROM USER BUFFER WHEN IO NOT VIA DRIVER BUFFER«, t00=0x0035, t01=0x0026}
0x5336…5340               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0072}
0x5340…5354               Head {h00=0x0010, h01=0x0050, text=»IOROUT EQU *«, t00=0x0035, t01=0x007c}
0x5354…5382               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 GET PHYSICAL SECTOR NUMBER«, t00=0x0035, t01=0x0090}
0x5382…53a8               Head {h00=0x0022, h01=0x0050, text=» SRL A3,5 GET CYLINDER NUMBER «, t00=0x0035, t01=0x00be}
0x53a8…53b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00e4}
0x53b2…53ce               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0035, t01=0x00ee}
0x53ce…53f0               Head {h00=0x001e, h01=0x0050, text=» LD* A4,4,A5 GET DATA WORD«, t00=0x0035, t01=0x010a}
0x53f0…5402               Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x0035, t01=0x012c}
0x5402…5422               Head {h00=0x001c, h01=0x0050, text=» RF(NN) SEE:05 FORMAT A3«, t00=0x0035, t01=0x013e}
0x5422…5434               Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x0035, t01=0x015e}
0x5434…5440               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0170}
0x5440…544a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x017c}
0x544a…5460               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0035, t01=0x0186}
0x5460…546a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x000c}
0x546a…5474               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0016}
0x5474…548a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0036, t01=0x0020}
0x548a…54b0               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) SEE:05 NOT CYLINDER 0 «, t00=0x0036, t01=0x0036}
0x54b0…54c4               Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEKZ«, t00=0x0036, t01=0x005c}
0x54c4…54d6               Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x0036, t01=0x0070}
0x54d6…54f2               Head {h00=0x0018, h01=0x0050, text=» RF(N) SEE:20 ERROR «, t00=0x0036, t01=0x0082}
0x54f2…5508               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0036, t01=0x009e}
0x5508…551e               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0036, t01=0x00b4}
0x551e…5542               Head {h00=0x0020, h01=0x0050, text=» CM DWTCYL,A2 CYLINDER ZERO «, t00=0x0036, t01=0x00ca}
0x5542…5554               Head {h00=0x000e, h01=0x0050, text=» RF VA2BR «, t00=0x0036, t01=0x00ee}
0x5554…5560               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0100}
0x5560…5576               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0036, t01=0x010c}
0x5576…558c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0036, t01=0x0122}
0x558c…55a2               Head {h00=0x0012, h01=0x0050, text=» CM DWTCYL,A6 «, t00=0x0036, t01=0x0138}
0x55a2…55b4               Head {h00=0x000e, h01=0x0050, text=» RF VA2BR «, t00=0x0036, t01=0x014e}
0x55b4…55c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0160}
0x55c0…55ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x016c}
0x55ca…55e0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0036, t01=0x0176}
0x55e0…55ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x018c}
0x55ea…55f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0008}
0x55f4…5608               Head {h00=0x0010, h01=0x0050, text=»SEE:05 EQU *«, t00=0x0037, t01=0x0012}
0x5608…561e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0037, t01=0x0026}
0x561e…5634               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0037, t01=0x003c}
0x5634…5662               Head {h00=0x002a, h01=0x0050, text=» CW A3,DWTCYL,A2 COMPARE WITH PRESENT «, t00=0x0037, t01=0x0052}
0x5662…566e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0080}
0x566e…5684               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0037, t01=0x008c}
0x5684…569c               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A6«, t00=0x0037, t01=0x00a2}
0x569c…56a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00ba}
0x56a8…56b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00c6}
0x56b2…56c8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0037, t01=0x00d0}
0x56c8…56de               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0037, t01=0x00e6}
0x56de…56f4               Head {h00=0x0012, h01=0x0050, text=» RF(E) VA2:00 «, t00=0x0037, t01=0x00fc}
0x56f4…5700               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0112}
0x5700…570a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x011e}
0x570a…5720               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=0 «, t00=0x0037, t01=0x0128}
0x5720…5736               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0037, t01=0x013e}
0x5736…575c               Head {h00=0x0022, h01=0x0050, text=» RF(E) SEE:90 HEAD IN POSITION«, t00=0x0037, t01=0x0154}
0x575c…5768               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x017a}
0x5768…5772               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0186}
0x5772…578e               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0037, t01=0x0190}
0x578e…57b6               Head {h00=0x0024, h01=0x0050, text=» RF(NE) SEE:07 NOT SAME CYLINDER«, t00=0x0038, t01=0x001c}
0x57b6…57c8               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0038, t01=0x0044}
0x57c8…57e6               Head {h00=0x001a, h01=0x0050, text=» RF(N) VA2BR FORMAT A2«, t00=0x0038, t01=0x0056}
0x57e6…57f8               Head {h00=0x000e, h01=0x0050, text=» RF SEE:90«, t00=0x0038, t01=0x0074}
0x57f8…5802               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0086}
0x5802…5818               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0038, t01=0x0090}
0x5818…5822               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a6}
0x5822…582c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b0}
0x582c…5840               Head {h00=0x0010, h01=0x0050, text=»SEE:07 EQU *«, t00=0x0038, t01=0x00ba}
0x5840…584c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00ce}
0x584c…5856               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00da}
0x5856…586c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0038, t01=0x00e4}
0x586c…5898               Head {h00=0x0028, h01=0x0050, text=» ST A3,DWTCYL,A6 NEW CYLINDER NUMBER«, t00=0x0038, t01=0x00fa}
0x5898…58a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0126}
0x58a4…58ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0132}
0x58ae…58c4               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0038, t01=0x013c}
0x58c4…58ea               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTCYL,A2 NEW CYLINDER «, t00=0x0038, t01=0x0152}
0x58ea…58f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0178}
0x58f6…591e               Head {h00=0x0024, h01=0x0050, text=» LDK A4,QRETRY NUMBER OF RETRIES«, t00=0x0038, t01=0x0184}
0x591e…5932               Head {h00=0x0010, h01=0x0050, text=»SEE:10 EQU *«, t00=0x0039, t01=0x001c}
0x5932…5948               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0039, t01=0x0030}
0x5948…5970               Head {h00=0x0024, h01=0x0050, text=» CF A5,INXUNI DOUBLED UNIT INDEX«, t00=0x0039, t01=0x0046}
0x5970…597c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x006e}
0x597c…5990               Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0039, t01=0x007a}
0x5990…59ae               Head {h00=0x001a, h01=0x0050, text=» SLC A1,5 RETURN CODE «, t00=0x0039, t01=0x008e}
0x59ae…59c6               Head {h00=0x0014, h01=0x0050, text=» RF(N) SEE:30 OK«, t00=0x0039, t01=0x00ac}
0x59c6…59d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00c4}
0x59d0…59e6               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0039, t01=0x00ce}
0x59e6…59f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00e4}
0x59f0…59fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ee}
0x59fa…5a0e               Head {h00=0x0010, h01=0x0050, text=»SEE:15 EQU *«, t00=0x0039, t01=0x00f8}
0x5a0e…5a30               Head {h00=0x001e, h01=0x0050, text=» CF A5,SEEKZ SEEK CYL ZERO«, t00=0x0039, t01=0x010c}
0x5a30…5a4e               Head {h00=0x001a, h01=0x0050, text=» SLC A1,6 RETURN CODE «, t00=0x0039, t01=0x012e}
0x5a4e…5a6a               Head {h00=0x0018, h01=0x0050, text=» RF(N) SEE:20 ERROR «, t00=0x0039, t01=0x014c}
0x5a6a…5a8e               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0039, t01=0x0168}
0x5a8e…5aae               Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 RETRY COUNTER «, t00=0x0039, t01=0x018c}
0x5aae…5ace               Head {h00=0x001c, h01=0x0050, text=» RB(NZ) SEE:10 TRY AGAIN«, t00=0x003a, t01=0x001c}
0x5ace…5ae2               Head {h00=0x0010, h01=0x0050, text=»SEE:20 EQU *«, t00=0x003a, t01=0x003c}
0x5ae2…5af8               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x003a, t01=0x0050}
0x5af8…5b0e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003a, t01=0x0066}
0x5b0e…5b24               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003a, t01=0x007c}
0x5b24…5b52               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A2 DUMMY CYLINDER NUMBER«, t00=0x003a, t01=0x0092}
0x5b52…5b5e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00c0}
0x5b5e…5b74               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003a, t01=0x00cc}
0x5b74…5ba2               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A6 DUMMY CYLINDER NUMBER«, t00=0x003a, t01=0x00e2}
0x5ba2…5bae               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0110}
0x5bae…5bce               Head {h00=0x001c, h01=0x0050, text=» LDK A1,/02 RETURN CODE «, t00=0x003a, t01=0x011c}
0x5bce…5be8               Head {h00=0x0016, h01=0x0050, text=» RF SEE:35 END IO «, t00=0x003a, t01=0x013c}
0x5be8…5bf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0156}
0x5bf2…5c08               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003a, t01=0x0160}
0x5c08…5c12               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0176}
0x5c12…5c1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0180}
0x5c1c…5c30               Head {h00=0x0010, h01=0x0050, text=»SEE:30 EQU *«, t00=0x003a, t01=0x018a}
0x5c30…5c46               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003b, t01=0x000e}
0x5c46…5c5c               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003b, t01=0x0024}
0x5c5c…5c68               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x003a}
0x5c68…5c84               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x003b, t01=0x0046}
0x5c84…5ca6               Head {h00=0x001e, h01=0x0050, text=» LD* A1,4,A5 GET DATA WORD«, t00=0x003b, t01=0x0062}
0x5ca6…5cb8               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x003b, t01=0x0084}
0x5cb8…5cd8               Head {h00=0x001c, h01=0x0050, text=» RF(NN) SEE:31 FORMAT A3«, t00=0x003b, t01=0x0096}
0x5cd8…5ce4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00b6}
0x5ce4…5cee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00c2}
0x5cee…5d04               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x003b, t01=0x00cc}
0x5d04…5d1a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003b, t01=0x00e2}
0x5d1a…5d24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f8}
0x5d24…5d2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0102}
0x5d2e…5d44               Head {h00=0x0012, h01=0x0050, text=»*   FORMAT A2 «, t00=0x003b, t01=0x010c}
0x5d44…5d4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0122}
0x5d4e…5d60               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003b, t01=0x012c}
0x5d60…5d74               Head {h00=0x0010, h01=0x0050, text=» CF A5,SKEW «, t00=0x003b, t01=0x013e}
0x5d74…5d98               Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8002 READ 2 WORDS «, t00=0x003b, t01=0x0152}
0x5d98…5dd0               Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CYLBUF READ TO CYLINDER CHECK BUFFER =2«, t00=0x003b, t01=0x0176}
0x5dd0…5de6               Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:50 «, t00=0x003c, t01=0x001e}
0x5de6…5e06               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/1F ERROR CHECK «, t00=0x003c, t01=0x0034}
0x5e06…5e1c               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SEE:32«, t00=0x003c, t01=0x0054}
0x5e1c…5e44               Head {h00=0x0024, h01=0x0050, text=» LD A3,CYLBUF GET CYLINDER ID =2«, t00=0x003c, t01=0x006a}
0x5e44…5e5a               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003c, t01=0x0092}
0x5e5a…5e70               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003c, t01=0x00a8}
0x5e70…5ea0               Head {h00=0x002c, h01=0x0050, text=» CW A3,DWTCYL,A2 CHECK IF SAME CYLINDER «, t00=0x003c, t01=0x00be}
0x5ea0…5eac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00ee}
0x5eac…5ec2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x003c, t01=0x00fa}
0x5ec2…5ed8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003c, t01=0x0110}
0x5ed8…5f08               Head {h00=0x002c, h01=0x0050, text=» CW A3,DWTCYL,A6 CHECK IF SAME CYLINDER «, t00=0x003c, t01=0x0126}
0x5f08…5f14               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0156}
0x5f14…5f2a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x003c, t01=0x0162}
0x5f2a…5f50               Head {h00=0x0022, h01=0x0050, text=» RB(NE) SEE:15 NOT SAME CYL ID«, t00=0x003c, t01=0x0178}
0x5f50…5f64               Head {h00=0x0010, h01=0x0050, text=»VA2BR EQU * «, t00=0x003d, t01=0x000e}
0x5f64…5f78               Head {h00=0x0010, h01=0x0050, text=» ABL VA2:00 «, t00=0x003d, t01=0x0022}
0x5f78…5f84               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0036}
0x5f84…5f8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0042}
0x5f8e…5fa4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003d, t01=0x004c}
0x5fa4…5fba               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003d, t01=0x0062}
0x5fba…5fc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0078}
0x5fc4…5fce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0082}
0x5fce…5fe4               Head {h00=0x0012, h01=0x0050, text=»*   FORMAT A3 «, t00=0x003d, t01=0x008c}
0x5fe4…5fee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00a2}
0x5fee…6002               Head {h00=0x0010, h01=0x0050, text=»SEE:31 EQU *«, t00=0x003d, t01=0x00ac}
0x6002…6018               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003d, t01=0x00c0}
0x6018…6030               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTCYL,A2«, t00=0x003d, t01=0x00d6}
0x6030…603c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00ee}
0x603c…6052               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003d, t01=0x00fa}
0x6052…6068               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003d, t01=0x0110}
0x6068…6080               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTCYL,A6«, t00=0x003d, t01=0x0126}
0x6080…608c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x013e}
0x608c…6096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x014a}
0x6096…60ac               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003d, t01=0x0154}
0x60ac…60d0               Head {h00=0x0020, h01=0x0050, text=» SLL A3,5 GET SECTOR NUMBER «, t00=0x003d, t01=0x016a}
0x60d0…60f8               Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTBSE,A6 SAVE FOR BSELOD«, t00=0x003d, t01=0x018e}
0x60f8…610a               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003e, t01=0x0026}
0x610a…613c               Head {h00=0x002e, h01=0x0050, text=» CF A5,SKEW TO READ SECTOR 0 OR 8 ON DISC «, t00=0x003e, t01=0x0038}
0x613c…6170               Head {h00=0x0030, h01=0x0050, text=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER«, t00=0x003e, t01=0x006a}
0x6170…6184               Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x003e, t01=0x009e}
0x6184…61ba               Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTBSE,A6 GET SECTOR NUMBER FOR BSELOD «, t00=0x003e, t01=0x00b2}
0x61ba…61de               Head {h00=0x0020, h01=0x0050, text=» ANK A1,/1F ERROR CODE CHECK«, t00=0x003e, t01=0x00e8}
0x61de…61f4               Head {h00=0x0012, h01=0x0050, text=» CF A5,BSEL00 «, t00=0x003e, t01=0x010c}
0x61f4…620c               Head {h00=0x0014, h01=0x0050, text=» RF(Z) SEE:40 OK«, t00=0x003e, t01=0x0122}
0x620c…6218               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x013a}
0x6218…6222               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0146}
0x6222…6236               Head {h00=0x0010, h01=0x0050, text=»SEE:32 EQU *«, t00=0x003e, t01=0x0150}
0x6236…625a               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x003e, t01=0x0164}
0x625a…627a               Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 RETRY COUNTER «, t00=0x003e, t01=0x0188}
0x627a…6296               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) SEE:15 RETRY«, t00=0x003f, t01=0x0018}
0x6296…62aa               Head {h00=0x0010, h01=0x0050, text=»SEE:35 EQU *«, t00=0x003f, t01=0x0034}
0x62aa…62be               Head {h00=0x0010, h01=0x0050, text=» ABL END:10 «, t00=0x003f, t01=0x0048}
0x62be…62c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x005c}
0x62c8…62de               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003f, t01=0x0066}
0x62de…62e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x007c}
0x62e8…62fe               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003f, t01=0x0086}
0x62fe…6308               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x009c}
0x6308…6312               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00a6}
0x6312…6326               Head {h00=0x0010, h01=0x0050, text=»SEE:40 EQU *«, t00=0x003f, t01=0x00b0}
0x6326…633c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003f, t01=0x00c4}
0x633c…6352               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003f, t01=0x00da}
0x6352…637e               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x003f, t01=0x00f0}
0x637e…638a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x011c}
0x638a…63a0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003f, t01=0x0128}
0x63a0…63b6               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003f, t01=0x013e}
0x63b6…63e2               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x003f, t01=0x0154}
0x63e2…63ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0180}
0x63ee…6404               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003f, t01=0x018c}
0x6404…6434               Head {h00=0x002c, h01=0x0050, text=» CW A3,BUFFER+PHSECL COMPARE WITH CYL ID«, t00=0x0040, t01=0x0012}
0x6434…6450               Head {h00=0x0018, h01=0x0050, text=» RB(NE) SEE:15 RETRY«, t00=0x0040, t01=0x0042}
0x6450…645a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x005e}
0x645a…6470               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0040, t01=0x0068}
0x6470…647a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x007e}
0x647a…649c               Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0040, t01=0x0088}
0x649c…64be               Head {h00=0x001e, h01=0x0050, text=»*                       * «, t00=0x0040, t01=0x00aa}
0x64be…64e0               Head {h00=0x001e, h01=0x0050, text=»*   READ AND WRITE      * «, t00=0x0040, t01=0x00cc}
0x64e0…6502               Head {h00=0x001e, h01=0x0050, text=»*   FORMAT A3           * «, t00=0x0040, t01=0x00ee}
0x6502…6524               Head {h00=0x001e, h01=0x0050, text=»*                       * «, t00=0x0040, t01=0x0110}
0x6524…6546               Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0040, t01=0x0132}
0x6546…6550               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0154}
0x6550…6564               Head {h00=0x0010, h01=0x0050, text=»SEE:90 EQU *«, t00=0x0040, t01=0x015e}
0x6564…6586               Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTOR,A6 GET ORDER «, t00=0x0040, t01=0x0172}
0x6586…6598 (65, 0, 398)  Head {h00=0x000e, h01=0x0050, text=» ANK A4,4 «, t00=0x0041, t01=0x0004}
0x6598…65b8               Head {h00=0x001c, h01=0x0050, text=» RF(Z) READ00 READ ORDER«, t00=0x0041, t01=0x0016}
0x65b8…65cc               Head {h00=0x0010, h01=0x0050, text=» LD* A2,4,A5«, t00=0x0041, t01=0x0036}
0x65cc…6600               Head {h00=0x0030, h01=0x0050, text=» RF(N) WRIT20 WRITE DIRECT FROM USER BUFFER «, t00=0x0041, t01=0x004a}
0x6600…6612               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0041, t01=0x007e}
0x6612…6624               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0041, t01=0x0090}
0x6624…664a               Head {h00=0x0022, h01=0x0050, text=» RF(N) READWR READ AFTER WRITE«, t00=0x0041, t01=0x00a2}
0x664a…6656               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00c8}
0x6656…6660               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00d4}
0x6660…6676               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0041, t01=0x00de}
0x6676…668e               Head {h00=0x0014, h01=0x0050, text=» CWK A2,PHSECL  «, t00=0x0041, t01=0x00f4}
0x668e…66bc               Head {h00=0x002a, h01=0x0050, text=» RF(E) WRIT10 WRITE FROM DRIVER BUFFER«, t00=0x0041, t01=0x010c}
0x66bc…66f0               Head {h00=0x0030, h01=0x0050, text=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER«, t00=0x0041, t01=0x013a}
0x66f0…6718               Head {h00=0x0024, h01=0x0050, text=» CF A5,REA:00 READ BEFORE WRITE «, t00=0x0041, t01=0x016e}
0x6718…6722               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0008}
0x6722…6738               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0042, t01=0x0012}
0x6738…6742               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0028}
0x6742…674c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0032}
0x674c…6760               Head {h00=0x0010, h01=0x0050, text=»WRIT10 EQU *«, t00=0x0042, t01=0x003c}
0x6760…6782               Head {h00=0x001e, h01=0x0050, text=» LD* A2,4,A5 GET DATA WORD«, t00=0x0042, t01=0x0050}
0x6782…6794               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0042, t01=0x0072}
0x6794…67c4               Head {h00=0x002c, h01=0x0050, text=» ANK A4,/C0 GET NUMBER OF WORDS TO MOVE «, t00=0x0042, t01=0x0084}
0x67c4…67dc               Head {h00=0x0014, h01=0x0050, text=» SLL A4,1 BYTES «, t00=0x0042, t01=0x00b4}
0x67dc…680a               Head {h00=0x002a, h01=0x0050, text=» ANK A2,/F BEG ADRESS IN DRIVER BUFFER«, t00=0x0042, t01=0x00cc}
0x680a…681c               Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0042, t01=0x00fa}
0x681c…6848               Head {h00=0x0028, h01=0x0050, text=» CF A5,MOVWRI MOVE TO DRIVER BUFFER «, t00=0x0042, t01=0x010c}
0x6848…685e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0042, t01=0x0138}
0x685e…6874               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0042, t01=0x014e}
0x6874…68a0               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0042, t01=0x0164}
0x68a0…68ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0190}
0x68ac…68c2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0043, t01=0x000c}
0x68c2…68d8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0043, t01=0x0022}
0x68d8…6904               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x0043, t01=0x0038}
0x6904…6910               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x0064}
0x6910…6926               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0043, t01=0x0070}
0x6926…6958               Head {h00=0x002e, h01=0x0050, text=» ST A2,BUFFER+PHSECL PUT IN DRIVER BUFFER «, t00=0x0043, t01=0x0086}
0x6958…6990               Head {h00=0x0034, h01=0x0050, text=» IM DWTFBU,A6 INDICATE WRITE FROM DRIVER BUFFER «, t00=0x0043, t01=0x00b8}
0x6990…69be               Head {h00=0x002a, h01=0x0050, text=» CF A5,WRI:00 WRITE FROM DRIVER BUFFER«, t00=0x0043, t01=0x00f0}
0x69be…69d0               Head {h00=0x000e, h01=0x0050, text=» RF SEE:95«, t00=0x0043, t01=0x011e}
0x69d0…69da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0130}
0x69da…69f0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0043, t01=0x013a}
0x69f0…69fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0150}
0x69fa…6a04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x015a}
0x6a04…6a18               Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x0043, t01=0x0164}
0x6a18…6a2e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0043, t01=0x0178}
0x6a2e…6a5c               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,PHSECL PHYSICAL SECTOR LENGTH«, t00=0x0043, t01=0x018e}
0x6a5c…6a90               Head {h00=0x0030, h01=0x0050, text=» ADS A2,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x0044, t01=0x002c}
0x6a90…6ac2               Head {h00=0x002e, h01=0x0050, text=» LD* A4,DWTUBU,A6 GET WORD IN USER BUFFER «, t00=0x0044, t01=0x0060}
0x6ac2…6ae4               Head {h00=0x001e, h01=0x0050, text=» ST A4,DWTSWD,A6 SAVE WORD«, t00=0x0044, t01=0x0092}
0x6ae4…6b0e               Head {h00=0x0026, h01=0x0050, text=» IM DWTFSW,A6 INDICATE SAVED WORD «, t00=0x0044, t01=0x00b4}
0x6b0e…6b24               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0044, t01=0x00de}
0x6b24…6b3a               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0044, t01=0x00f4}
0x6b3a…6b66               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0044, t01=0x010a}
0x6b66…6b92               Head {h00=0x0028, h01=0x0050, text=» ST* A2,DWTUBU,A6 PUT IN USER BUFFER«, t00=0x0044, t01=0x0136}
0x6b92…6b9e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0162}
0x6b9e…6bb4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0044, t01=0x016e}
0x6bb4…6bca               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0044, t01=0x0184}
0x6bca…6be0               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0045, t01=0x000a}
0x6be0…6bf8               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTCYL,A6«, t00=0x0045, t01=0x0020}
0x6bf8…6c24               Head {h00=0x0028, h01=0x0050, text=» ST* A2,DWTUBU,A6 PUT IN USER BUFFER«, t00=0x0045, t01=0x0038}
0x6c24…6c30               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0064}
0x6c30…6c3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0070}
0x6c3a…6c50               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0045, t01=0x007a}
0x6c50…6c66               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0045, t01=0x0090}
0x6c66…6c7c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0045, t01=0x00a6}
0x6c7c…6c92               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0045, t01=0x00bc}
0x6c92…6cbe               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0045, t01=0x00d2}
0x6cbe…6cca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x00fe}
0x6cca…6ce0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0045, t01=0x010a}
0x6ce0…6cf6               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0045, t01=0x0120}
0x6cf6…6d0c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0045, t01=0x0136}
0x6d0c…6d38               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x0045, t01=0x014c}
0x6d38…6d44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0178}
0x6d44…6d5a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0045, t01=0x0184}
0x6d5a…6d70               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0046, t01=0x000a}
0x6d70…6da4               Head {h00=0x0030, h01=0x0050, text=» ML 2,DWTBA1,A6 GET PHYSICAL BUFFER ADDRESS «, t00=0x0046, t01=0x0020}
0x6da4…6dc6               Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRIT30 SYSTEM AREA «, t00=0x0046, t01=0x0054}
0x6dc6…6df2               Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS ON STACK «, t00=0x0046, t01=0x0076}
0x6df2…6e1e               Head {h00=0x0028, h01=0x0050, text=» TL DWTPAG,A6 LOAD PAGE WITH CYL ID «, t00=0x0046, t01=0x00a2}
0x6e1e…6e52               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTUBU,A6 GET LOGICAL BUFFER POINTER «, t00=0x0046, t01=0x00ce}
0x6e52…6e7c               Head {h00=0x0026, h01=0x0050, text=» EL A3,PHSECL,A2 GET WORD TO SAVE «, t00=0x0046, t01=0x0102}
0x6e7c…6eac               Head {h00=0x002c, h01=0x0050, text=» ES A4,PHSECL,A2 PUT CYL ID IN POSITION «, t00=0x0046, t01=0x012c}
0x6eac…6ece               Head {h00=0x001e, h01=0x0050, text=» TL -30,A15 GET REGISTERS «, t00=0x0046, t01=0x015c}
0x6ece…6ee0               Head {h00=0x000e, h01=0x0050, text=» RF WRIT40«, t00=0x0046, t01=0x017e}
0x6ee0…6ef4               Head {h00=0x0010, h01=0x0050, text=»WRIT30 EQU *«, t00=0x0046, t01=0x0190}
0x6ef4…6f12               Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 BYTE ADDRESS«, t00=0x0047, t01=0x0014}
0x6f12…6f40               Head {h00=0x002a, h01=0x0050, text=» LD A3,PHSECL,A2 GET WORD TO BE SAVED «, t00=0x0047, t01=0x0032}
0x6f40…6f6c               Head {h00=0x0028, h01=0x0050, text=» ST A4,PHSECL,A2 CYL ID IN POSITION «, t00=0x0047, t01=0x0060}
0x6f6c…6f80               Head {h00=0x0010, h01=0x0050, text=»WRIT40 EQU *«, t00=0x0047, t01=0x008c}
0x6f80…6fa2               Head {h00=0x001e, h01=0x0050, text=» ST A3,DWTSWD,A6 SAVA WORD«, t00=0x0047, t01=0x00a0}
0x6fa2…6fcc               Head {h00=0x0026, h01=0x0050, text=» IM DWTFSW,A6 INDICATE SAVED WORD «, t00=0x0047, t01=0x00c2}
0x6fcc…6fd8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x00ec}
0x6fd8…6fe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00f8}
0x6fe2…6ff8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0047, t01=0x0102}
0x6ff8…702e               Head {h00=0x0032, h01=0x0050, text=» CM DWTFBU,A6 INDICATE WRITE FROM USER BUFFER «, t00=0x0047, t01=0x0118}
0x702e…7062               Head {h00=0x0030, h01=0x0050, text=» CF A5,WRI:00 WRITE SECTOR FROM USER BUFFER «, t00=0x0047, t01=0x014e}
0x7062…7094               Head {h00=0x002e, h01=0x0050, text=» CF A5,REWORD RESTORE WORD TO USER BUFFER «, t00=0x0047, t01=0x0182}
0x7094…70a6               Head {h00=0x000e, h01=0x0050, text=» RF SEE:95«, t00=0x0048, t01=0x0024}
0x70a6…70b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0036}
0x70b0…70c6               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0048, t01=0x0040}
0x70c6…70d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0056}
0x70d0…70da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0060}
0x70da…70ec               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0048, t01=0x006a}
0x70ec…7100               Head {h00=0x0010, h01=0x0050, text=»READWR EQU *«, t00=0x0048, t01=0x007c}
0x7100…7126               Head {h00=0x0022, h01=0x0050, text=» CF A5,REA:10 READ AFTER WRITE«, t00=0x0048, t01=0x0090}
0x7126…7138               Head {h00=0x000e, h01=0x0050, text=» RF SEE:97«, t00=0x0048, t01=0x00b6}
0x7138…7144               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x00c8}
0x7144…714e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00d4}
0x714e…7164               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0048, t01=0x00de}
0x7164…7178               Head {h00=0x0010, h01=0x0050, text=»READ00 EQU *«, t00=0x0048, t01=0x00f4}
0x7178…719a               Head {h00=0x001e, h01=0x0050, text=» LD* A2,4,A5 GET DATA WORD«, t00=0x0048, t01=0x0108}
0x719a…71bc               Head {h00=0x001e, h01=0x0050, text=» RF(N) READ20 DIRECT READ «, t00=0x0048, t01=0x012a}
0x71bc…71f0               Head {h00=0x0030, h01=0x0050, text=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER«, t00=0x0048, t01=0x014c}
0x71f0…721c               Head {h00=0x0028, h01=0x0050, text=» CF A5,REA:00 READ TO DRIVER BUFFER «, t00=0x0048, t01=0x0180}
0x721c…723e               Head {h00=0x001e, h01=0x0050, text=» LD* A1,4,A5 GET DATA WORD«, t00=0x0049, t01=0x001c}
0x723e…7250               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0049, t01=0x003e}
0x7250…7262               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0049, t01=0x0050}
0x7262…7298               Head {h00=0x0032, h01=0x0050, text=» ANKL A4,/180 GET NUMBER OF BYTES TO BE MOVED «, t00=0x0049, t01=0x0062}
0x7298…72b8               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/18 GET POSITION«, t00=0x0049, t01=0x0098}
0x72b8…72ca               Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0049, t01=0x00b8}
0x72ca…72e0               Head {h00=0x0012, h01=0x0050, text=» CF A5,MOVRED «, t00=0x0049, t01=0x00ca}
0x72e0…72f2               Head {h00=0x000e, h01=0x0050, text=» RF SEE:95«, t00=0x0049, t01=0x00e0}
0x72f2…7306               Head {h00=0x0010, h01=0x0050, text=»READ20 EQU *«, t00=0x0049, t01=0x00f2}
0x7306…731c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0049, t01=0x0106}
0x731c…7334               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,PHSECL «, t00=0x0049, t01=0x011c}
0x7334…7368               Head {h00=0x0030, h01=0x0050, text=» ADS A3,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x0049, t01=0x0134}
0x7368…7374               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x0168}
0x7374…737e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0174}
0x737e…7394               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0049, t01=0x017e}
0x7394…73c6 (74, 0, 400)  Head {h00=0x002e, h01=0x0050, text=» CM DWTFBU,A6 INDICATE READ TO USER BUFFER«, t00=0x004a, t01=0x0004}
0x73c6…73f0               Head {h00=0x0026, h01=0x0050, text=» CF A5,REA:00 READ TO USER BUFFER «, t00=0x004a, t01=0x0036}
0x73f0…7404               Head {h00=0x0010, h01=0x0050, text=»SEE:95 EQU *«, t00=0x004a, t01=0x0060}
0x7404…7432               Head {h00=0x002a, h01=0x0050, text=» IMR A6 UPDATE PHYSICAL SECTOR POINTER«, t00=0x004a, t01=0x0074}
0x7432…743e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x00a2}
0x743e…7448               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ae}
0x7448…745e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x004a, t01=0x00b8}
0x745e…7468               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ce}
0x7468…7472               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00d8}
0x7472…7486               Head {h00=0x0010, h01=0x0050, text=»SEE:96 EQU *«, t00=0x004a, t01=0x00e2}
0x7486…74a8               Head {h00=0x001e, h01=0x0050, text=» LD* A2,4,A5 GET DATA WORD«, t00=0x004a, t01=0x00f6}
0x74a8…74c2               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/C0 LENGTH«, t00=0x004a, t01=0x0118}
0x74c2…74d4               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004a, t01=0x0132}
0x74d4…74fa               Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x004a, t01=0x0144}
0x74fa…7504               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x016a}
0x7504…751a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004a, t01=0x0174}
0x751a…752c               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x004a, t01=0x018a}
0x752c…7548               Head {h00=0x0018, h01=0x0050, text=» SRL A2,1 WORD MODE «, t00=0x004b, t01=0x000c}
0x7548…757c               Head {h00=0x0030, h01=0x0050, text=» DA DWTBA1,A6 UPDATE PHYSICAL BUFFER ADDRESS«, t00=0x004b, t01=0x0028}
0x757c…75a6               Head {h00=0x0026, h01=0x0050, text=» CF A5,MMULOG GET LOGICAL ADDRESS «, t00=0x004b, t01=0x005c}
0x75a6…75b2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x0086}
0x75b2…75bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0092}
0x75bc…75d0               Head {h00=0x0010, h01=0x0050, text=»SEE:97 EQU *«, t00=0x004b, t01=0x009c}
0x75d0…75f0               Head {h00=0x001c, h01=0x0050, text=» LDK A1,2 UPDATE RETURN «, t00=0x004b, t01=0x00b0}
0x75f0…7604               Head {h00=0x0010, h01=0x0050, text=» ADS A1,4,A5«, t00=0x004b, t01=0x00d0}
0x7604…7614               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x00e4}
0x7614…761e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00f4}
0x761e…7634               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x004b, t01=0x00fe}
0x7634…763e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0114}
0x763e…7654               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004b, t01=0x011e}
0x7654…765e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0134}
0x765e…7668               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x013e}
0x7668…7690               Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x004b, t01=0x0148}
0x7690…76b8               Head {h00=0x0024, h01=0x0050, text=»*                              *«, t00=0x004b, t01=0x0170}
0x76b8…76e0               Head {h00=0x0024, h01=0x0050, text=»*   DISC FORMAT A2             *«, t00=0x004c, t01=0x0008}
0x76e0…7708               Head {h00=0x0024, h01=0x0050, text=»*                              *«, t00=0x004c, t01=0x0030}
0x7708…7730               Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x004c, t01=0x0058}
0x7730…773a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0080}
0x773a…7744               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x008a}
0x7744…7758               Head {h00=0x0010, h01=0x0050, text=»VA2:00 EQU *«, t00=0x004c, t01=0x0094}
0x7758…7776               Head {h00=0x001a, h01=0x0050, text=» LDK A4,QRETRY RETRIES«, t00=0x004c, t01=0x00a8}
0x7776…778a               Head {h00=0x0010, h01=0x0050, text=»VA2:10 EQU *«, t00=0x004c, t01=0x00c6}
0x778a…77a0               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x004c, t01=0x00da}
0x77a0…77b6               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x004c, t01=0x00f0}
0x77b6…77c2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004c, t01=0x0106}
0x77c2…77d8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004c, t01=0x0112}
0x77d8…7800               Head {h00=0x0024, h01=0x0050, text=» CF A5,INLACE INTERLACE AND SKEW«, t00=0x004c, t01=0x0128}
0x7800…780a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0150}
0x780a…7820               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004c, t01=0x015a}
0x7820…783e               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/8080 1ST WER«, t00=0x004c, t01=0x0170}
0x783e…7850               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x004c, t01=0x018e}
0x7850…7864               Head {h00=0x0010, h01=0x0050, text=» LD* A2,4,A5«, t00=0x004d, t01=0x0010}
0x7864…7876               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004d, t01=0x0024}
0x7876…78a2               Head {h00=0x0028, h01=0x0050, text=» RF(NN) VA2:20 NOT READ AFTER WRITE «, t00=0x004d, t01=0x0036}
0x78a2…78ba               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x004d, t01=0x0062}
0x78ba…78cc               Head {h00=0x000e, h01=0x0050, text=» RF VA2:35«, t00=0x004d, t01=0x007a}
0x78cc…78e0               Head {h00=0x0010, h01=0x0050, text=»VA2:20 EQU *«, t00=0x004d, t01=0x008c}
0x78e0…78ec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00a0}
0x78ec…78f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00ac}
0x78f6…790c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004d, t01=0x00b6}
0x790c…7922               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004d, t01=0x00cc}
0x7922…7948               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0808 1ST WER SHIFTED«, t00=0x004d, t01=0x00e2}
0x7948…7954               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x0108}
0x7954…795e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0114}
0x795e…7974               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004d, t01=0x011e}
0x7974…7986               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x004d, t01=0x0134}
0x7986…799c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004d, t01=0x0146}
0x799c…79b0               Head {h00=0x0010, h01=0x0050, text=» LD* A2,4,A5«, t00=0x004d, t01=0x015c}
0x79b0…79c2               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004d, t01=0x0170}
0x79c2…79ee               Head {h00=0x0028, h01=0x0050, text=» RF(NN) VA2:20 NOT READ AFTER WRITE «, t00=0x004d, t01=0x0182}
0x79ee…7a04               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8080«, t00=0x004e, t01=0x001e}
0x7a04…7a1c               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x004e, t01=0x0034}
0x7a1c…7a2e               Head {h00=0x000e, h01=0x0050, text=» RF VA2:35«, t00=0x004e, t01=0x004c}
0x7a2e…7a42               Head {h00=0x0010, h01=0x0050, text=»VA2:20 EQU *«, t00=0x004e, t01=0x005e}
0x7a42…7a4e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0072}
0x7a4e…7a58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x007e}
0x7a58…7a6e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004e, t01=0x0088}
0x7a6e…7a90               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTOR,A6 GET ORDER «, t00=0x004e, t01=0x009e}
0x7a90…7aa2               Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004e, t01=0x00c0}
0x7aa2…7abc               Head {h00=0x0016, h01=0x0050, text=» RF(Z) VA2:30 READ«, t00=0x004e, t01=0x00d2}
0x7abc…7ac6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00ec}
0x7ac6…7adc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004e, t01=0x00f6}
0x7adc…7af2               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C080«, t00=0x004e, t01=0x010c}
0x7af2…7afe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0122}
0x7afe…7b08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x012e}
0x7b08…7b1e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004e, t01=0x0138}
0x7b1e…7b34               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004e, t01=0x014e}
0x7b34…7b5a               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/080C 1ST WER SHIFTED«, t00=0x004e, t01=0x0164}
0x7b5a…7b66               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x018a}
0x7b66…7b70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0008}
0x7b70…7b86               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004f, t01=0x0012}
0x7b86…7bac               Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 ORDER CODE FOR WRITE«, t00=0x004f, t01=0x0028}
0x7bac…7bb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x004e}
0x7bb6…7bcc               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x004f, t01=0x0058}
0x7bcc…7bd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x006e}
0x7bd6…7be0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0078}
0x7be0…7bf4               Head {h00=0x0010, h01=0x0050, text=»VA2:30 EQU *«, t00=0x004f, t01=0x0082}
0x7bf4…7bfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0096}
0x7bfe…7c14               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004f, t01=0x00a0}
0x7c14…7c34               Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTUBU,A6 2ND WER«, t00=0x004f, t01=0x00b6}
0x7c34…7c40               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00d6}
0x7c40…7c4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00e2}
0x7c4a…7c60               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004f, t01=0x00ec}
0x7c60…7c76               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004f, t01=0x0102}
0x7c76…7c88               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x004f, t01=0x0118}
0x7c88…7c9e               Head {h00=0x0012, h01=0x0050, text=» DA DWTBA1,A6 «, t00=0x004f, t01=0x012a}
0x7c9e…7cc4               Head {h00=0x0022, h01=0x0050, text=» SRC A1,4 1ST WER IN POSITION «, t00=0x004f, t01=0x0140}
0x7cc4…7cea               Head {h00=0x0022, h01=0x0050, text=» SLL A2,1 2ND WER IN POSITION «, t00=0x004f, t01=0x0166}
0x7cea…7cf6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x018c}
0x7cf6…7d00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0008}
0x7d00…7d16               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0050, t01=0x0012}
0x7d16…7d2a               Head {h00=0x0010, h01=0x0050, text=»VA2:35 EQU *«, t00=0x0050, t01=0x0028}
0x7d2a…7d40               Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:50 «, t00=0x0050, t01=0x003c}
0x7d40…7d54               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1F «, t00=0x0050, t01=0x0052}
0x7d54…7d72               Head {h00=0x001a, h01=0x0050, text=» RF(Z) VA2:40 IO ERROR«, t00=0x0050, t01=0x0066}
0x7d72…7d88               Head {h00=0x0012, h01=0x0050, text=» IM DWTRTY,A6 «, t00=0x0050, t01=0x0084}
0x7d88…7d9a               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0050, t01=0x009a}
0x7d9a…7db6               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) VA2:10 RETRY«, t00=0x0050, t01=0x00ac}
0x7db6…7dce               Head {h00=0x0014, h01=0x0050, text=» RF WRI:50 ERROR«, t00=0x0050, t01=0x00c8}
0x7dce…7dd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00e0}
0x7dd8…7dee               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0050, t01=0x00ea}
0x7dee…7df8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0100}
0x7df8…7e02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x010a}
0x7e02…7e16               Head {h00=0x0010, h01=0x0050, text=»VA2:40 EQU *«, t00=0x0050, t01=0x0114}
0x7e16…7e44               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 GET PHYSICAL SECTOR NUMBER«, t00=0x0050, t01=0x0128}
0x7e44…7e62               Head {h00=0x001a, h01=0x0050, text=» ADK A3,1 NEXT SECTOR «, t00=0x0050, t01=0x0156}
0x7e62…7e74               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0050, t01=0x0174}
0x7e74…7e86               Head {h00=0x000e, h01=0x0050, text=» CWK A2,31«, t00=0x0050, t01=0x0186}
0x7e86…7eac               Head {h00=0x0022, h01=0x0050, text=» RF(NE) VA2:50 NOT CYLINDER 0 «, t00=0x0051, t01=0x0008}
0x7eac…7ed6               Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 CYLINDER 0 TO CYLINDER 1«, t00=0x0051, t01=0x002e}
0x7ed6…7eea               Head {h00=0x0010, h01=0x0050, text=»VA2:50 EQU *«, t00=0x0051, t01=0x0058}
0x7eea…7efe               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0051, t01=0x006c}
0x7efe…7f22               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) VA2:60 SAME CYLINDER«, t00=0x0051, t01=0x0080}
0x7f22…7f40               Head {h00=0x001a, h01=0x0050, text=» ADK A3,1 NEW CYLINDER«, t00=0x0051, t01=0x00a4}
0x7f40…7f54               Head {h00=0x0010, h01=0x0050, text=»VA2:60 EQU *«, t00=0x0051, t01=0x00c2}
0x7f54…7f7e               Head {h00=0x0026, h01=0x0050, text=» STR A3,A6 PHYSICAL SECTOR NUMBER «, t00=0x0051, t01=0x00d6}
0x7f7e…7f90               Head {h00=0x000e, h01=0x0050, text=» RB SEE:96«, t00=0x0051, t01=0x0100}
0x7f90…7f9c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0112}
0x7f9c…7fa6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x011e}
0x7fa6…7fbc               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0051, t01=0x0128}
0x7fbc…7fd2               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0051, t01=0x013e}
0x7fd2…7fdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0154}
0x7fdc…8000               Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0051, t01=0x015e}
0x8000…8024               Head {h00=0x0020, h01=0x0050, text=»*                          *«, t00=0x0051, t01=0x0182}
0x8024…8048               Head {h00=0x0020, h01=0x0050, text=»*   SUBROUTINES FOR WRITE  *«, t00=0x0052, t01=0x0016}
0x8048…806c               Head {h00=0x0020, h01=0x0050, text=»*   FROM USER BUFFER:      *«, t00=0x0052, t01=0x003a}
0x806c…8090               Head {h00=0x0020, h01=0x0050, text=»*   FROM DRIVER     :      *«, t00=0x0052, t01=0x005e}
0x8090…80b4               Head {h00=0x0020, h01=0x0050, text=»*                          *«, t00=0x0052, t01=0x0082}
0x80b4…80d8               Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0052, t01=0x00a6}
0x80d8…80e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00ca}
0x80e2…80f6               Head {h00=0x0010, h01=0x0050, text=»WRI:00 EQU *«, t00=0x0052, t01=0x00d4}
0x80f6…8114               Head {h00=0x001a, h01=0x0050, text=» LDK A4,QRETRY RETRIES«, t00=0x0052, t01=0x00e8}
0x8114…8128               Head {h00=0x0010, h01=0x0050, text=»WRI:20 EQU *«, t00=0x0052, t01=0x0106}
0x8128…813e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0052, t01=0x011a}
0x813e…8154               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0052, t01=0x0130}
0x8154…8160               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0146}
0x8160…8176               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0052, t01=0x0152}
0x8176…81a4               Head {h00=0x002a, h01=0x0050, text=» CF A5,INLACE INTERLACE SECTOR NUMBER «, t00=0x0052, t01=0x0168}
0x81a4…81bc               Head {h00=0x0014, h01=0x0050, text=» CF A5,WRITE CIO«, t00=0x0053, t01=0x0008}
0x81bc…81de               Head {h00=0x001e, h01=0x0050, text=» ANK A1,/1F RETURN CODE ? «, t00=0x0053, t01=0x0020}
0x81de…81f4               Head {h00=0x0012, h01=0x0050, text=» CF A5,BSELOD «, t00=0x0053, t01=0x0042}
0x81f4…8218               Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRI:80 NO RETURN CODE«, t00=0x0053, t01=0x0058}
0x8218…823c               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0053, t01=0x007c}
0x823c…8266               Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0053, t01=0x00a0}
0x8266…827c               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) WRI:20«, t00=0x0053, t01=0x00ca}
0x827c…82ac               Head {h00=0x002c, h01=0x0050, text=» CF A5,REWORD RESTORE WORD IF NECESSARY «, t00=0x0053, t01=0x00e0}
0x82ac…82b8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0110}
0x82b8…82c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x011c}
0x82c2…82d6               Head {h00=0x0010, h01=0x0050, text=»WRI:50 EQU *«, t00=0x0053, t01=0x0126}
0x82d6…82f6               Head {h00=0x001c, h01=0x0050, text=» ABL END:10 ERROR END IO«, t00=0x0053, t01=0x013a}
0x82f6…8300               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x015a}
0x8300…8316               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0053, t01=0x0164}
0x8316…8320               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x017a}
0x8320…8334               Head {h00=0x0010, h01=0x0050, text=»WRI:80 EQU *«, t00=0x0053, t01=0x0184}
0x8334…8344               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x0008}
0x8344…834e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0018}
0x834e…8364               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0054, t01=0x0022}
0x8364…836e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0038}
0x836e…8398               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0054, t01=0x0042}
0x8398…83c2               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0054, t01=0x006c}
0x83c2…83ec               Head {h00=0x0026, h01=0x0050, text=»*   SUBROUTINES FOR READ TO     * «, t00=0x0054, t01=0x0096}
0x83ec…8416               Head {h00=0x0026, h01=0x0050, text=»*   USER BUFFER :               * «, t00=0x0054, t01=0x00c0}
0x8416…8440               Head {h00=0x0026, h01=0x0050, text=»*   DRIVER BUFFER :             * «, t00=0x0054, t01=0x00ea}
0x8440…846a               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0054, t01=0x0114}
0x846a…8494               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0054, t01=0x013e}
0x8494…849e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0168}
0x849e…84b2               Head {h00=0x0010, h01=0x0050, text=»REA:00 EQU *«, t00=0x0054, t01=0x0172}
0x84b2…84d4               Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTOR,A6 GET INDEX «, t00=0x0054, t01=0x0186}
0x84d4…84ea               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/300 «, t00=0x0055, t01=0x0018}
0x84ea…8508               Head {h00=0x001a, h01=0x0050, text=» SLL A3,6 IN POSITION «, t00=0x0055, t01=0x002e}
0x8508…852e               Head {h00=0x0022, h01=0x0050, text=» ORR* A3,A6 ADD SECTOR NUMBER «, t00=0x0055, t01=0x004c}
0x852e…8556               Head {h00=0x0024, h01=0x0050, text=» CW A3,DWTBSE,A6 ALLREADY READ ?«, t00=0x0055, t01=0x0072}
0x8556…856c               Head {h00=0x0012, h01=0x0050, text=» RF(E) REA:85 «, t00=0x0055, t01=0x009a}
0x856c…8580               Head {h00=0x0010, h01=0x0050, text=»REA:10 EQU *«, t00=0x0055, t01=0x00b0}
0x8580…8596               Head {h00=0x0012, h01=0x0050, text=» LDK A4,QRETRY«, t00=0x0055, t01=0x00c4}
0x8596…85aa               Head {h00=0x0010, h01=0x0050, text=»REA:20 EQU *«, t00=0x0055, t01=0x00da}
0x85aa…85c0               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0055, t01=0x00ee}
0x85c0…85d6               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0055, t01=0x0104}
0x85d6…85e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x011a}
0x85e2…85f8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0055, t01=0x0126}
0x85f8…8626               Head {h00=0x002a, h01=0x0050, text=» CF A5,INLACE INTERLACE SECTOR NUMBER «, t00=0x0055, t01=0x013c}
0x8626…8646               Head {h00=0x001c, h01=0x0050, text=» CF A5,READ READ SECTOR «, t00=0x0055, t01=0x016a}
0x8646…8658               Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0055, t01=0x018a}
0x8658…868c               Head {h00=0x0030, h01=0x0050, text=» CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR«, t00=0x0056, t01=0x000c}
0x868c…86b0               Head {h00=0x0020, h01=0x0050, text=» RF(Z) REA:30 NO RETURN CODE«, t00=0x0056, t01=0x0040}
0x86b0…86c4               Head {h00=0x0010, h01=0x0050, text=»REA:25 EQU *«, t00=0x0056, t01=0x0064}
0x86c4…86e8               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0056, t01=0x0078}
0x86e8…8712               Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0056, t01=0x009c}
0x8712…872e               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) REA:20 RETRY«, t00=0x0056, t01=0x00c6}
0x872e…8742               Head {h00=0x0010, h01=0x0050, text=» ABL END:20 «, t00=0x0056, t01=0x00e2}
0x8742…874c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00f6}
0x874c…8762               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0056, t01=0x0100}
0x8762…876c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0116}
0x876c…8776               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0120}
0x8776…878a               Head {h00=0x0010, h01=0x0050, text=»REA:30 EQU *«, t00=0x0056, t01=0x012a}
0x878a…87a2               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x0056, t01=0x013e}
0x87a2…87ce               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) REA:40 READ TO DRIVER BUFFER«, t00=0x0056, t01=0x0156}
0x87ce…87e4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0056, t01=0x0182}
0x87e4…881e               Head {h00=0x0036, h01=0x0050, text=» LD* A3,DWTUBU,A6 GET CYLINDER ID FROM USER BUFFER«, t00=0x0057, t01=0x0008}
0x881e…8830               Head {h00=0x000e, h01=0x0050, text=» RF REA:50«, t00=0x0057, t01=0x0042}
0x8830…883c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x0054}
0x883c…8846               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0060}
0x8846…885c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0057, t01=0x006a}
0x885c…8872               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0057, t01=0x0080}
0x8872…889e               Head {h00=0x0028, h01=0x0050, text=» ML 2,DWTBA1,A6 GET PHYSICAL ADDRESS«, t00=0x0057, t01=0x0096}
0x889e…88c0               Head {h00=0x001e, h01=0x0050, text=» RF(Z) REA:35 SYSTEM AREA «, t00=0x0057, t01=0x00c2}
0x88c0…88e2               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x0057, t01=0x00e4}
0x88e2…8904               Head {h00=0x001e, h01=0x0050, text=» TL DWTPAG,A6 LOAD MMUPAGE«, t00=0x0057, t01=0x0106}
0x8904…8938               Head {h00=0x0030, h01=0x0050, text=» LD A3,DWTUBU,A6 GET LOGICAL BUFFER POINTER «, t00=0x0057, t01=0x0128}
0x8938…895c               Head {h00=0x0020, h01=0x0050, text=» EL A3,PHSECL,A3 GET CYL ID «, t00=0x0057, t01=0x015c}
0x895c…8980               Head {h00=0x0020, h01=0x0050, text=» TL -30,A15 RESET REGISTERS «, t00=0x0057, t01=0x0180}
0x8980…8992               Head {h00=0x000e, h01=0x0050, text=» RF REA:50«, t00=0x0058, t01=0x0014}
0x8992…89a6               Head {h00=0x0010, h01=0x0050, text=»REA:35 EQU *«, t00=0x0058, t01=0x0026}
0x89a6…89cc               Head {h00=0x0022, h01=0x0050, text=» SLL A2,1 ADDRESS TO BYTE MODE«, t00=0x0058, t01=0x003a}
0x89cc…89f0               Head {h00=0x0020, h01=0x0050, text=» LD A3,PHSECL,A2 GET CYL ID «, t00=0x0058, t01=0x0060}
0x89f0…8a02               Head {h00=0x000e, h01=0x0050, text=» RF REA:50«, t00=0x0058, t01=0x0084}
0x8a02…8a0e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0096}
0x8a0e…8a18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00a2}
0x8a18…8a2e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0058, t01=0x00ac}
0x8a2e…8a42               Head {h00=0x0010, h01=0x0050, text=»REA:40 EQU *«, t00=0x0058, t01=0x00c2}
0x8a42…8a6a               Head {h00=0x0024, h01=0x0050, text=» LD A3,BUFFER+PHSECL GET CYL ID «, t00=0x0058, t01=0x00d6}
0x8a6a…8a7e               Head {h00=0x0010, h01=0x0050, text=»REA:50 EQU *«, t00=0x0058, t01=0x00fe}
0x8a7e…8a94               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0058, t01=0x0112}
0x8a94…8aaa               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0058, t01=0x0128}
0x8aaa…8ac2               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A2«, t00=0x0058, t01=0x013e}
0x8ac2…8ace               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0156}
0x8ace…8ae4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0058, t01=0x0162}
0x8ae4…8afa               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0058, t01=0x0178}
0x8afa…8b12               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A6«, t00=0x0058, t01=0x018e}
0x8b12…8b1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0016}
0x8b1e…8b34               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0059, t01=0x0022}
0x8b34…8b5c               Head {h00=0x0024, h01=0x0050, text=» RF(E) REA:90 RIGHT CYLINDER ID «, t00=0x0059, t01=0x0038}
0x8b5c…8b78               Head {h00=0x0018, h01=0x0050, text=» LDK A1,2 SEEK ERROR«, t00=0x0059, t01=0x0060}
0x8b78…8b82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x007c}
0x8b82…8b98               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0059, t01=0x0086}
0x8b98…8ba2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x009c}
0x8ba2…8bac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00a6}
0x8bac…8bbe               Head {h00=0x000e, h01=0x0050, text=» RB REA:25«, t00=0x0059, t01=0x00b0}
0x8bbe…8bd2               Head {h00=0x0010, h01=0x0050, text=»REA:85 EQU *«, t00=0x0059, t01=0x00c2}
0x8bd2…8bea               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFBU,A6«, t00=0x0059, t01=0x00d6}
0x8bea…8c16               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) REA:90 READ TO DRIVER BUFFER«, t00=0x0059, t01=0x00ee}
0x8c16…8c3e               Head {h00=0x0024, h01=0x0050, text=» LDKL A4,/180 BYTES TO BE MOVED «, t00=0x0059, t01=0x011a}
0x8c3e…8c54               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0059, t01=0x0142}
0x8c54…8c66               Head {h00=0x000e, h01=0x0050, text=» NGR A2,A4«, t00=0x0059, t01=0x0158}
0x8c66…8caa               Head {h00=0x0040, h01=0x0050, text=» ADS A2,DWTUBU,A6 RESET USER BUFFER POINTER FOR DIRECT MOVE «, t00=0x0059, t01=0x016a}
0x8caa…8cb6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x001e}
0x8cb6…8ccc               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005a, t01=0x002a}
0x8ccc…8cf6               Head {h00=0x0026, h01=0x0050, text=» CF A5,MOVRED MOVE TO USER BUFFER «, t00=0x005a, t01=0x0040}
0x8cf6…8d0a               Head {h00=0x0010, h01=0x0050, text=»REA:90 EQU *«, t00=0x005a, t01=0x006a}
0x8d0a…8d1a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005a, t01=0x007e}
0x8d1a…8d24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x008e}
0x8d24…8d3a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x005a, t01=0x0098}
0x8d3a…8d44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00ae}
0x8d44…8d4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00b8}
0x8d4e…8d7c               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x005a, t01=0x00c2}
0x8d7c…8daa               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x005a, t01=0x00f0}
0x8daa…8dd8               Head {h00=0x002a, h01=0x0050, text=»*   SUBROUTINES FOR MOVING WORDS    * «, t00=0x005a, t01=0x011e}
0x8dd8…8e02               Head {h00=0x0026, h01=0x0050, text=»*   USER BUFFER TO DRIVER BUFFER: «, t00=0x005a, t01=0x014c}
0x8e02…8e30               Head {h00=0x002a, h01=0x0050, text=»*   MOVWRI                          * «, t00=0x005a, t01=0x0176}
0x8e30…8e5e               Head {h00=0x002a, h01=0x0050, text=»*   DRIVER BUFFER TO USER BUFFER    * «, t00=0x005b, t01=0x0014}
0x8e5e…8e8c               Head {h00=0x002a, h01=0x0050, text=»*   MOVRED                          * «, t00=0x005b, t01=0x0042}
0x8e8c…8eba               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x005b, t01=0x0070}
0x8eba…8ee8               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x005b, t01=0x009e}
0x8ee8…8ef2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00cc}
0x8ef2…8f14               Head {h00=0x001e, h01=0x0050, text=»*   A1   BUFFER ADDRESS IN«, t00=0x005b, t01=0x00d6}
0x8f14…8f38               Head {h00=0x0020, h01=0x0050, text=»*   A2   BUFFER ADDRESS OUT «, t00=0x005b, t01=0x00f8}
0x8f38…8f56               Head {h00=0x001a, h01=0x0050, text=»*   A4   BUFFER LENGTH«, t00=0x005b, t01=0x011c}
0x8f56…8f6c               Head {h00=0x0012, h01=0x0050, text=»*   A3   USED «, t00=0x005b, t01=0x013a}
0x8f6c…8f76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0150}
0x8f76…8f8a               Head {h00=0x0010, h01=0x0050, text=»MOVRED EQU *«, t00=0x005b, t01=0x015a}
0x8f8a…8fa2               Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFFER «, t00=0x005b, t01=0x016e}
0x8fa2…8fbe               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x005b, t01=0x0186}
0x8fbe…8ff4               Head {h00=0x0032, h01=0x0050, text=» LD A2,DWTUBU,A6 PRESENT POINT IN USER BUFFER «, t00=0x005c, t01=0x0012}
0x8ff4…9000               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0048}
0x9000…900a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0054}
0x900a…9020               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005c, t01=0x005e}
0x9020…903c               Head {h00=0x0018, h01=0x0050, text=» IFT CPU852+MMUPAG=0«, t00=0x005c, t01=0x0074}
0x903c…9052               Head {h00=0x0012, h01=0x0050, text=» IFT CPU857=1 «, t00=0x005c, t01=0x0090}
0x9052…9082               Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTUBU,A6 GET USER BUFFER POINTER«, t00=0x005c, t01=0x00a6}
0x9082…90b6               Head {h00=0x0030, h01=0x0050, text=» ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x005c, t01=0x00d6}
0x90b6…90c6               Head {h00=0x000c, h01=0x0050, text=» MVB A4 «, t00=0x005c, t01=0x010a}
0x90c6…90d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x011a}
0x90d2…90dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0126}
0x90dc…90f2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005c, t01=0x0130}
0x90f2…9108               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005c, t01=0x0146}
0x9108…911e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005c, t01=0x015c}
0x911e…9152               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS«, t00=0x005c, t01=0x0172}
0x9152…916e               Head {h00=0x0018, h01=0x0050, text=» SLL A2,1 BYTE MODE «, t00=0x005d, t01=0x0016}
0x916e…9190               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x005d, t01=0x0032}
0x9190…91a6               Head {h00=0x0012, h01=0x0050, text=» TL DWTPAG,A6 «, t00=0x005d, t01=0x0054}
0x91a6…91d2               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTUBU,A6 GET LOGICAL ADDRESS«, t00=0x005d, t01=0x006a}
0x91d2…91e2               Head {h00=0x000c, h01=0x0050, text=» MVSU A4«, t00=0x005d, t01=0x0096}
0x91e2…91ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x00a6}
0x91ee…91f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00b2}
0x91f8…920e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005d, t01=0x00bc}
0x920e…9220               Head {h00=0x000e, h01=0x0050, text=» RF MOV:00«, t00=0x005d, t01=0x00d2}
0x9220…922a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00e4}
0x922a…9240               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x005d, t01=0x00ee}
0x9240…924a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0104}
0x924a…9254               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x010e}
0x9254…9268               Head {h00=0x0010, h01=0x0050, text=»MOVWRI EQU *«, t00=0x005d, t01=0x0118}
0x9268…9296               Head {h00=0x002a, h01=0x0050, text=» ADKL A2,BUFFER DRIVER BUFFER POINTER «, t00=0x005d, t01=0x012c}
0x9296…92b2               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x005d, t01=0x015a}
0x92b2…92e8               Head {h00=0x0032, h01=0x0050, text=» LD A1,DWTUBU,A6 PRESENT POINT IN USER BUFFER «, t00=0x005d, t01=0x0176}
0x92e8…92f4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x001c}
0x92f4…92fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0028}
0x92fe…9314               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005e, t01=0x0032}
0x9314…9330               Head {h00=0x0018, h01=0x0050, text=» IFT CPU852+MMUPAG=0«, t00=0x005e, t01=0x0048}
0x9330…9346               Head {h00=0x0012, h01=0x0050, text=» IFT CPU857=1 «, t00=0x005e, t01=0x0064}
0x9346…9376               Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTUBU,A6 GET USER BUFFER POINTER«, t00=0x005e, t01=0x007a}
0x9376…93aa               Head {h00=0x0030, h01=0x0050, text=» ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x005e, t01=0x00aa}
0x93aa…93ba               Head {h00=0x000c, h01=0x0050, text=» MVB A4 «, t00=0x005e, t01=0x00de}
0x93ba…93c6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00ee}
0x93c6…93d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00fa}
0x93d0…93e6               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005e, t01=0x0104}
0x93e6…93fc               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005e, t01=0x011a}
0x93fc…9412               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005e, t01=0x0130}
0x9412…9446               Head {h00=0x0030, h01=0x0050, text=» LD A1,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS«, t00=0x005e, t01=0x0146}
0x9446…9462               Head {h00=0x0018, h01=0x0050, text=» SLL A1,1 BYTE MODE «, t00=0x005e, t01=0x017a}
0x9462…9484               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x005f, t01=0x0008}
0x9484…949a               Head {h00=0x0012, h01=0x0050, text=» TL DWTPAG,A6 «, t00=0x005f, t01=0x002a}
0x949a…94c6               Head {h00=0x0028, h01=0x0050, text=» LD A1,DWTUBU,A6 GET LOGICAL ADDRESS«, t00=0x005f, t01=0x0040}
0x94c6…94d6               Head {h00=0x000c, h01=0x0050, text=» MVUS A4«, t00=0x005f, t01=0x006c}
0x94d6…94e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x007c}
0x94e2…94ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0088}
0x94ec…9502               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005f, t01=0x0092}
0x9502…9516               Head {h00=0x0010, h01=0x0050, text=»MOV:00 EQU *«, t00=0x005f, t01=0x00a8}
0x9516…9532               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x005f, t01=0x00bc}
0x9532…9566               Head {h00=0x0030, h01=0x0050, text=» ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x005f, t01=0x00d8}
0x9566…9572               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x010c}
0x9572…957c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0118}
0x957c…9592               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005f, t01=0x0122}
0x9592…95a8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005f, t01=0x0138}
0x95a8…95cc               Head {h00=0x0020, h01=0x0050, text=» TL -30,A15 RESET REGISTERS «, t00=0x005f, t01=0x014e}
0x95cc…95d8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0172}
0x95d8…95e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x017e}
0x95e2…95f8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005f, t01=0x0188}
0x95f8…9614               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x0060, t01=0x000e}
0x9614…962a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0060, t01=0x002a}
0x962a…9634               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0040}
0x9634…964a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0060, t01=0x004a}
0x964a…9654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0060}
0x9654…965e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x006a}
0x965e…9672               Head {h00=0x0010, h01=0x0050, text=»MOV:10 EQU *«, t00=0x0060, t01=0x0074}
0x9672…9686               Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x0060, t01=0x0088}
0x9686…9698               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0060, t01=0x009c}
0x9698…96aa               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0060, t01=0x00ae}
0x96aa…96bc               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0060, t01=0x00c0}
0x96bc…96ce               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0060, t01=0x00d2}
0x96ce…96e4               Head {h00=0x0012, h01=0x0050, text=» RB(P) MOV:10 «, t00=0x0060, t01=0x00e4}
0x96e4…96f0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x00fa}
0x96f0…96fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0106}
0x96fa…9710               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0060, t01=0x0110}
0x9710…9726               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0060, t01=0x0126}
0x9726…9742               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x0060, t01=0x013c}
0x9742…976e               Head {h00=0x0028, h01=0x0050, text=» MSR 12,A15 SAVE REGISTERS ON STACK «, t00=0x0060, t01=0x0158}
0x976e…9792               Head {h00=0x0020, h01=0x0050, text=» LDR A11,A4 NUMBER OF BYTES «, t00=0x0060, t01=0x0184}
0x9792…97b4               Head {h00=0x001e, h01=0x0050, text=» LDR A10,A2 OUTPUT ADDRESS«, t00=0x0061, t01=0x0018}
0x97b4…97d4               Head {h00=0x001c, h01=0x0050, text=» LDR A9,A1 INPUT ADDRESS«, t00=0x0061, t01=0x003a}
0x97d4…97fc               Head {h00=0x0024, h01=0x0050, text=» LDKL A12,16 BYTES IN EACH LOOP «, t00=0x0061, t01=0x005a}
0x97fc…9810               Head {h00=0x0010, h01=0x0050, text=»MOV:15 EQU *«, t00=0x0061, t01=0x0082}
0x9810…9822               Head {h00=0x000e, h01=0x0050, text=» MLR 8,A9 «, t00=0x0061, t01=0x0096}
0x9822…9834               Head {h00=0x000e, h01=0x0050, text=» MSR 8,A10«, t00=0x0061, t01=0x00a8}
0x9834…9848               Head {h00=0x0010, h01=0x0050, text=» ADR A10,A12«, t00=0x0061, t01=0x00ba}
0x9848…985c               Head {h00=0x0010, h01=0x0050, text=» ADR A9,A12 «, t00=0x0061, t01=0x00ce}
0x985c…9870               Head {h00=0x0010, h01=0x0050, text=» SUR A11,A12«, t00=0x0061, t01=0x00e2}
0x9870…9886               Head {h00=0x0012, h01=0x0050, text=» RB(P) MOV:15 «, t00=0x0061, t01=0x00f6}
0x9886…98b6               Head {h00=0x002c, h01=0x0050, text=» MLR 12,A15 RESTORE REGISTERS FROM STACK«, t00=0x0061, t01=0x010c}
0x98b6…98c2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x013c}
0x98c2…98cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0148}
0x98cc…98e2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0061, t01=0x0152}
0x98e2…98f2               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0061, t01=0x0168}
0x98f2…98fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0178}
0x98fc…9908               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0182}
0x9908…9912               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x018e}
0x9912…9928               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0062, t01=0x0008}
0x9928…993e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0062, t01=0x001e}
0x993e…9948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0034}
0x9948…9952               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x003e}
0x9952…9976               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0062, t01=0x0048}
0x9976…999a               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0062, t01=0x006c}
0x999a…99be               Head {h00=0x0020, h01=0x0050, text=»*   DIV31                 * «, t00=0x0062, t01=0x0090}
0x99be…99e2               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0062, t01=0x00b4}
0x99e2…9a06               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0062, t01=0x00d8}
0x9a06…9a10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00fc}
0x9a10…9a40               Head {h00=0x002c, h01=0x0050, text=»*   INPUT: ECBCW2=LOGICAL SECTOR NUMBER «, t00=0x0062, t01=0x0106}
0x9a40…9a74               Head {h00=0x0030, h01=0x0050, text=»*   OUTPUT: 1ST DWT = PHYSICAL SECTOR NUMBER«, t00=0x0062, t01=0x0136}
0x9a74…9a7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x016a}
0x9a7e…9a92               Head {h00=0x0010, h01=0x0050, text=»DIV31 EQU * «, t00=0x0062, t01=0x0174}
0x9a92…9a9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0188}
0x9a9c…9ab2 (99, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0063, t01=0x0004}
0x9ab2…9ae4               Head {h00=0x002e, h01=0x0050, text=» LD A1,ECBCW2,A8 GET LOGICAL SECTOR NUMBER«, t00=0x0063, t01=0x001a}
0x9ae4…9af6               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0063, t01=0x004c}
0x9af6…9b08               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0063, t01=0x005e}
0x9b08…9b1c               Head {h00=0x0010, h01=0x0050, text=»DIV:20 EQU *«, t00=0x0063, t01=0x0070}
0x9b1c…9b38               Head {h00=0x0018, h01=0x0050, text=» ADR A2,A3 I0:=I0+I1«, t00=0x0063, t01=0x0084}
0x9b38…9b54               Head {h00=0x0018, h01=0x0050, text=» SRL A3,5 I1:=I1/32 «, t00=0x0063, t01=0x00a0}
0x9b54…9b6a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIV:20«, t00=0x0063, t01=0x00bc}
0x9b6a…9b7c               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0063, t01=0x00d2}
0x9b7c…9b96               Head {h00=0x0016, h01=0x0050, text=» ANKL A3,/FFE0 32*«, t00=0x0063, t01=0x00e4}
0x9b96…9bb0               Head {h00=0x0016, h01=0x0050, text=» SRL A2,5 TRUNCATE«, t00=0x0063, t01=0x00fe}
0x9bb0…9bc2               Head {h00=0x000e, h01=0x0050, text=» SUR A3,A2«, t00=0x0063, t01=0x0118}
0x9bc2…9bd4               Head {h00=0x000e, h01=0x0050, text=» SUR A3,A1«, t00=0x0063, t01=0x012a}
0x9bd4…9be6               Head {h00=0x000e, h01=0x0050, text=» ADK A3,31«, t00=0x0063, t01=0x013c}
0x9be6…9bfc               Head {h00=0x0012, h01=0x0050, text=» RF(P) DIV:30 «, t00=0x0063, t01=0x014e}
0x9bfc…9c1c               Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 NEXT CYLINDER «, t00=0x0063, t01=0x0164}
0x9c1c…9c30               Head {h00=0x0010, h01=0x0050, text=»DIV:30 EQU *«, t00=0x0063, t01=0x0184}
0x9c30…9c42               Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0064, t01=0x0008}
0x9c42…9c62               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV:50 CYLINDER 0«, t00=0x0064, t01=0x001a}
0x9c62…9c74               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0064, t01=0x003a}
0x9c74…9c86               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0064, t01=0x004c}
0x9c86…9c90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x005e}
0x9c90…9ca6               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0064, t01=0x0068}
0x9ca6…9cb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x007e}
0x9cb0…9cba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0088}
0x9cba…9cce               Head {h00=0x0010, h01=0x0050, text=»DIV:50 EQU *«, t00=0x0064, t01=0x0092}
0x9cce…9d02               Head {h00=0x0030, h01=0x0050, text=» STR A1,A6 PUT PHYSICAL SECTOR NUMBER IN DWT«, t00=0x0064, t01=0x00a6}
0x9d02…9d12               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0064, t01=0x00da}
0x9d12…9d1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00ea}
0x9d1c…9d28               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x00f4}
0x9d28…9d32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0100}
0x9d32…9d48               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0064, t01=0x010a}
0x9d48…9d5e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0064, t01=0x0120}
0x9d5e…9d88               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x0064, t01=0x0136}
0x9d88…9db2               Head {h00=0x0026, h01=0x0050, text=» STR A2,A6 PHYSICAL SECTOR NUMBER «, t00=0x0064, t01=0x0160}
0x9db2…9dc4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0064, t01=0x018a}
0x9dc4…9dd4               Head {h00=0x000c, h01=0x0050, text=» DVK 31 «, t00=0x0065, t01=0x000c}
0x9dd4…9de6               Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0065, t01=0x001c}
0x9de6…9e06               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV:10 CYLINDER 0«, t00=0x0065, t01=0x002e}
0x9e06…9e18               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0065, t01=0x004e}
0x9e18…9e2c               Head {h00=0x0010, h01=0x0050, text=»DIV:10 EQU *«, t00=0x0065, t01=0x0060}
0x9e2c…9e56               Head {h00=0x0026, h01=0x0050, text=» ADRS A2,A6 PHYSICAL SECTOR NUMBER«, t00=0x0065, t01=0x0074}
0x9e56…9e66               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0065, t01=0x009e}
0x9e66…9e72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x00ae}
0x9e72…9e7c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00ba}
0x9e7c…9e92               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0065, t01=0x00c4}
0x9e92…9e9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00da}
0x9e9c…9ec6               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0065, t01=0x00e4}
0x9ec6…9ef0               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0065, t01=0x010e}
0x9ef0…9f1a               Head {h00=0x0026, h01=0x0050, text=»*   SUBROUTINES FOR             * «, t00=0x0065, t01=0x0138}
0x9f1a…9f44               Head {h00=0x0026, h01=0x0050, text=»*   INTERLACING AND/OR          * «, t00=0x0065, t01=0x0162}
0x9f44…9f6e               Head {h00=0x0026, h01=0x0050, text=»*   SKEWING                     * «, t00=0x0065, t01=0x018c}
0x9f6e…9f98               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0066, t01=0x0026}
0x9f98…9fc2               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0066, t01=0x0050}
0x9fc2…9fcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x007a}
0x9fcc…a012               Head {h00=0x0042, h01=0x0050, text=»*  OUTPUT : A3 CONTAINING INTERLACED AND SKEWED SECTOR NUMBER «, t00=0x0066, t01=0x0084}
0xa012…a01c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00ca}
0xa01c…a030               Head {h00=0x0010, h01=0x0050, text=»INLACE EQU *«, t00=0x0066, t01=0x00d4}
0xa030…a05e               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 GET PHYSICAL SECTOR NUMBER«, t00=0x0066, t01=0x00e8}
0xa05e…a070               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0066, t01=0x0116}
0xa070…a082               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A3«, t00=0x0066, t01=0x0128}
0xa082…a0aa               Head {h00=0x0024, h01=0x0050, text=» ADR A3,A1 INTERLACING FACTOR 3 «, t00=0x0066, t01=0x013a}
0xa0aa…a0bc               Head {h00=0x000e, h01=0x0050, text=»SKEW EQU *«, t00=0x0066, t01=0x0162}
0xa0bc…a0d2               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0066, t01=0x0174}
0xa0d2…a0fe               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0066, t01=0x018a}
0xa0fe…a10a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x0026}
0xa10a…a120               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0067, t01=0x0032}
0xa120…a14c               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x0067, t01=0x0048}
0xa14c…a158               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x0074}
0xa158…a16a               Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0067, t01=0x0080}
0xa16a…a18e               Head {h00=0x0020, h01=0x0050, text=» RF(Z) INLAC5 EVEN CYLINDER «, t00=0x0067, t01=0x0092}
0xa18e…a1b4               Head {h00=0x0022, h01=0x0050, text=» ADK A3,8 SKEW FACTOR 180 DEG.«, t00=0x0067, t01=0x00b6}
0xa1b4…a1c8               Head {h00=0x0010, h01=0x0050, text=»INLAC5 EQU *«, t00=0x0067, t01=0x00dc}
0xa1c8…a1dc               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/1F «, t00=0x0067, t01=0x00f0}
0xa1dc…a1fa               Head {h00=0x001a, h01=0x0050, text=» SLL A3,2 IN POSITION «, t00=0x0067, t01=0x0104}
0xa1fa…a20a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0067, t01=0x0122}
0xa20a…a214               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0132}
0xa214…a22a               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0067, t01=0x013c}
0xa22a…a240               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0067, t01=0x0152}
0xa240…a24a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0168}
0xa24a…a254               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0172}
0xa254…a266               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x017c}
0xa266…a278               Head {h00=0x000e, h01=0x0050, text=»* INXUNI *«, t00=0x0067, t01=0x018e}
0xa278…a28a               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x0010}
0xa28a…a294               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0022}
0xa294…a2cc               Head {h00=0x0034, h01=0x0050, text=»*   OUTPUT  A2=DOUBLED UNIT INDEX + DWT ADDRESS «, t00=0x0068, t01=0x002c}
0xa2cc…a2d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0064}
0xa2d6…a2ea               Head {h00=0x0010, h01=0x0050, text=»INXUNI EQU *«, t00=0x0068, t01=0x006e}
0xa2ea…a302               Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTOR,A6 «, t00=0x0068, t01=0x0082}
0xa302…a314               Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0068, t01=0x009a}
0xa314…a326               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0068, t01=0x00ac}
0xa326…a336               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0068, t01=0x00be}
0xa336…a342               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x00ce}
0xa342…a34c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00da}
0xa34c…a362               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0068, t01=0x00e4}
0xa362…a378               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0068, t01=0x00fa}
0xa378…a382               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0110}
0xa382…a38c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x011a}
0xa38c…a3be               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0068, t01=0x0124}
0xa3be…a3f0               Head {h00=0x002e, h01=0x0050, text=»*                                        *«, t00=0x0068, t01=0x0156}
0xa3f0…a422               Head {h00=0x002e, h01=0x0050, text=»*   MMULOG : GET LOGICAL ADDRESS AND     *«, t00=0x0068, t01=0x0188}
0xa422…a454               Head {h00=0x002e, h01=0x0050, text=»*            PAGE                        *«, t00=0x0069, t01=0x002a}
0xa454…a486               Head {h00=0x002e, h01=0x0050, text=»*                                        *«, t00=0x0069, t01=0x005c}
0xa486…a4b8               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0069, t01=0x008e}
0xa4b8…a4c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00c0}
0xa4c2…a4cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00ca}
0xa4cc…a4e0               Head {h00=0x0010, h01=0x0050, text=»MMULOG EQU *«, t00=0x0069, t01=0x00d4}
0xa4e0…a512               Head {h00=0x002e, h01=0x0050, text=» MS 2,DWTBA1,A6 SAVE PHYSICAL WORD ADDRESS«, t00=0x0069, t01=0x00e8}
0xa512…a520               Head {h00=0x000a, h01=0x0050, text=» DLA 4«, t00=0x0069, t01=0x011a}
0xa520…a53e               Head {h00=0x001a, h01=0x0050, text=» SRC A1,6 IN POSITION «, t00=0x0069, t01=0x0128}
0xa53e…a55c               Head {h00=0x001a, h01=0x0050, text=» ST A1,DWTPAG,A6 PAGE «, t00=0x0069, t01=0x0146}
0xa55c…a57c               Head {h00=0x001c, h01=0x0050, text=» ADKL A1,/400 NEXT PAGE «, t00=0x0069, t01=0x0164}
0xa57c…a5a8               Head {h00=0x0028, h01=0x0050, text=» ST A1,DWTPAG+2,A6 PSEUDO MMU TABLE «, t00=0x0069, t01=0x0184}
0xa5a8…a5ba               Head {h00=0x000e, h01=0x0050, text=» SRL A2,3 «, t00=0x006a, t01=0x0020}
0xa5ba…a5e2               Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTUBU,A6 LOGICAL ADDRESS«, t00=0x006a, t01=0x0032}
0xa5e2…a5f2               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006a, t01=0x005a}
0xa5f2…a5fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x006a}
0xa5fc…a608               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x0074}
0xa608…a612               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0080}
0xa612…a62a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x006a, t01=0x008a}
0xa62a…a634               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00a2}
0xa634…a64a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x006a, t01=0x00ac}
0xa64a…a654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00c2}
0xa654…a65e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00cc}
0xa65e…a684               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x006a, t01=0x00d6}
0xa684…a68e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00fc}
0xa68e…a6b8               Head {h00=0x0026, h01=0x0050, text=»*  UPDATE DRIVER BUFFER INDICATOR «, t00=0x006a, t01=0x0106}
0xa6b8…a6c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0130}
0xa6c2…a6ea               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x006a, t01=0x013a}
0xa6ea…a6f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0162}
0xa6f4…a722               Head {h00=0x002a, h01=0x0050, text=»*   INPUT  A1=RETURN CODE (AFTER READ)«, t00=0x006a, t01=0x016c}
0xa722…a754               Head {h00=0x002e, h01=0x0050, text=»*   OUTPUT DWTBSE=DRIVER BUFFER INDICATOR «, t00=0x006b, t01=0x000a}
0xa754…a75e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x003c}
0xa75e…a772               Head {h00=0x0010, h01=0x0050, text=»BSELOD EQU *«, t00=0x006b, t01=0x0046}
0xa772…a79c               Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A6 GET READ SECTOR NUMBER«, t00=0x006b, t01=0x005a}
0xa79c…a7c2               Head {h00=0x0022, h01=0x0050, text=»BSEL00 EQU * FROM SEEK VERIFY «, t00=0x006b, t01=0x0084}
0xa7c2…a7da               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x006b, t01=0x00aa}
0xa7da…a80a               Head {h00=0x002c, h01=0x0050, text=» RF(Z) BSEL50 READ/WRITE TO USER BUFFER «, t00=0x006b, t01=0x00c2}
0xa80a…a826               Head {h00=0x0018, h01=0x0050, text=» LDKL A2,/FFFF DUMMY«, t00=0x006b, t01=0x00f2}
0xa826…a838               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x006b, t01=0x010e}
0xa838…a85a               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) BSEL40 READ ERROR «, t00=0x006b, t01=0x0120}
0xa85a…a87c               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTOR,A6 GET INDEX «, t00=0x006b, t01=0x0142}
0xa87c…a892               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/300 «, t00=0x006b, t01=0x0164}
0xa892…a8a4               Head {h00=0x000e, h01=0x0050, text=» SLL A2,6 «, t00=0x006b, t01=0x017a}
0xa8a4…a8b6               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A3«, t00=0x006b, t01=0x018c}
0xa8b6…a8ca               Head {h00=0x0010, h01=0x0050, text=»BSEL40 EQU *«, t00=0x006c, t01=0x000e}
0xa8ca…a902               Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR «, t00=0x006c, t01=0x0022}
0xa902…a916               Head {h00=0x0010, h01=0x0050, text=»BSEL50 EQU *«, t00=0x006c, t01=0x005a}
0xa916…a926               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x006e}
0xa926…a930               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x007e}
0xa930…a946               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x006c, t01=0x0088}
0xa946…a950               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x009e}
0xa950…a95a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00a8}
0xa95a…a98a               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x006c, t01=0x00b2}
0xa98a…a9ba               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x006c, t01=0x00e2}
0xa9ba…a9ea               Head {h00=0x002c, h01=0x0050, text=»*   RESTORE WORD TO USER BUFFER       * «, t00=0x006c, t01=0x0112}
0xa9ea…aa1a               Head {h00=0x002c, h01=0x0050, text=»*   IF NECESSARY                      * «, t00=0x006c, t01=0x0142}
0xaa1a…aa4a               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x006c, t01=0x0172}
0xaa4a…aa7a               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x006d, t01=0x0012}
0xaa7a…aa84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0042}
0xaa84…aab2               Head {h00=0x002a, h01=0x0050, text=»*   INPUT: DWTFSW=SAVED WORD INDICATOR«, t00=0x006d, t01=0x004c}
0xaab2…aad6               Head {h00=0x0020, h01=0x0050, text=»*          DWTSWD=SAVED WORD«, t00=0x006d, t01=0x007a}
0xaad6…ab06               Head {h00=0x002c, h01=0x0050, text=»*          DWTUBU=POINTER TO USER BUFFER«, t00=0x006d, t01=0x009e}
0xab06…ab10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00ce}
0xab10…ab24               Head {h00=0x0010, h01=0x0050, text=»REWORD EQU *«, t00=0x006d, t01=0x00d8}
0xab24…ab3c               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTFSW,A6«, t00=0x006d, t01=0x00ec}
0xab3c…ab60               Head {h00=0x0020, h01=0x0050, text=» RF(Z) REWO50 NO SAVED WORD «, t00=0x006d, t01=0x0104}
0xab60…ab78               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTSWD,A6«, t00=0x006d, t01=0x0128}
0xab78…ab8e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x006d, t01=0x0140}
0xab8e…abb8               Head {h00=0x0026, h01=0x0050, text=» ML 2,DWTBA1,A6 GET BUFFER ADDRESS«, t00=0x006d, t01=0x0156}
0xabb8…abda               Head {h00=0x001e, h01=0x0050, text=» RF(Z) REWO20 SYSTEM AREA «, t00=0x006d, t01=0x0180}
0xabda…abfc               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x006e, t01=0x0012}
0xabfc…ac24               Head {h00=0x0024, h01=0x0050, text=» TL DWTPAG,A6 SET MMU REGISTERS «, t00=0x006e, t01=0x0034}
0xac24…ac58               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTUBU,A6 GET LOGICAL BUFFER ADDRESS «, t00=0x006e, t01=0x005c}
0xac58…ac84               Head {h00=0x0028, h01=0x0050, text=» ES A3,PHSECL,A2 RESTORE SAVED WORD «, t00=0x006e, t01=0x0090}
0xac84…aca8               Head {h00=0x0020, h01=0x0050, text=» TL -30,A15 RESET REGISTERS «, t00=0x006e, t01=0x00bc}
0xaca8…acba               Head {h00=0x000e, h01=0x0050, text=» RF REWO50«, t00=0x006e, t01=0x00e0}
0xacba…acce               Head {h00=0x0010, h01=0x0050, text=»REWO20 EQU *«, t00=0x006e, t01=0x00f2}
0xacce…acea               Head {h00=0x0018, h01=0x0050, text=» SLL A2,1 BYTE MODE «, t00=0x006e, t01=0x0106}
0xacea…ad10               Head {h00=0x0022, h01=0x0050, text=» ST A3,PHSECL,A2 RESTORE WORD «, t00=0x006e, t01=0x0122}
0xad10…ad1c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0148}
0xad1c…ad26               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0154}
0xad26…ad3c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x006e, t01=0x015e}
0xad3c…ad52               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x006e, t01=0x0174}
0xad52…ad7e               Head {h00=0x0028, h01=0x0050, text=» ST* A3,DWTUBU,A6 RESTORE SAVED WORD«, t00=0x006e, t01=0x018a}
0xad7e…ad8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x0026}
0xad8a…ad94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0032}
0xad94…adaa               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x006f, t01=0x003c}
0xadaa…add6               Head {h00=0x0028, h01=0x0050, text=» CM DWTFSW,A6 INDICATE NO SAVED WORD«, t00=0x006f, t01=0x0052}
0xadd6…adea               Head {h00=0x0010, h01=0x0050, text=»REWO50 EQU *«, t00=0x006f, t01=0x007e}
0xadea…adfa               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006f, t01=0x0092}
0xadfa…ae04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00a2}
0xae04…ae10               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x00ac}
0xae10…ae1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00b8}
0xae1a…ae3a               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x006f, t01=0x00c2}
0xae3a…ae44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00e2}
0xae44…ae4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00ec}
0xae4e…ae6a               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x006f, t01=0x00f6}
0xae6a…ae86               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x006f, t01=0x0112}
0xae86…aea2               Head {h00=0x0018, h01=0x0050, text=»*  SEEK CYLINDER  * «, t00=0x006f, t01=0x012e}
0xaea2…aebe               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x006f, t01=0x014a}
0xaebe…aeda               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x006f, t01=0x0166}
0xaeda…aee4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0182}
0xaee4…aeee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x018c}
0xaeee…af00               Head {h00=0x000e, h01=0x0050, text=»SEEK EQU *«, t00=0x0070, t01=0x0008}
0xaf00…af16               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0070, t01=0x001a}
0xaf16…af3e               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTCYL,A2 CYLINDER NUMBER«, t00=0x0070, t01=0x0030}
0xaf3e…af4a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x0058}
0xaf4a…af60               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0070, t01=0x0064}
0xaf60…af78               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTCYL,A6«, t00=0x0070, t01=0x007a}
0xaf78…af84               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x0092}
0xaf84…af96               Head {h00=0x000e, h01=0x0050, text=» SLL A3,3 «, t00=0x0070, t01=0x009e}
0xaf96…afa8               Head {h00=0x000e, h01=0x0050, text=» ORK A3,2 «, t00=0x0070, t01=0x00b0}
0xafa8…afca               Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0070, t01=0x00c2}
0xafca…afd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00e4}
0xafd4…afe8               Head {h00=0x0010, h01=0x0050, text=»SEEKZ EQU * «, t00=0x0070, t01=0x00ee}
0xafe8…affa               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x0070, t01=0x0102}
0xaffa…b01c               Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0070, t01=0x0114}
0xb01c…b026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0136}
0xb026…b03c               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0070, t01=0x0140}
0xb03c…b046               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0156}
0xb046…b050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0160}
0xb050…b07a               Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0070, t01=0x016a}
0xb07a…b0a4 (113, 0, 400) Head {h00=0x0026, h01=0x0050, text=»*                                *«, t00=0x0071, t01=0x0004}
0xb0a4…b0ce               Head {h00=0x0026, h01=0x0050, text=»*   CIO: READ AND WRITE          *«, t00=0x0071, t01=0x002e}
0xb0ce…b0f8               Head {h00=0x0026, h01=0x0050, text=»*                                *«, t00=0x0071, t01=0x0058}
0xb0f8…b122               Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0071, t01=0x0082}
0xb122…b12c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00ac}
0xb12c…b160               Head {h00=0x0030, h01=0x0050, text=»*  INPUT: A3=PHYSICAL SECTOR NUMBER SHIFTED «, t00=0x0071, t01=0x00b6}
0xb160…b16a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00ea}
0xb16a…b180               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0071, t01=0x00f4}
0xb180…b196               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0071, t01=0x010a}
0xb196…b1a8               Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0071, t01=0x0120}
0xb1a8…b1c6               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/80C1 1ST WER«, t00=0x0071, t01=0x0132}
0xb1c6…b1d8               Head {h00=0x000e, h01=0x0050, text=» RF CIO:20«, t00=0x0071, t01=0x0150}
0xb1d8…b1ec               Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0071, t01=0x0162}
0xb1ec…b20a               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/C0C1 1ST WER«, t00=0x0071, t01=0x0176}
0xb20a…b226 (114, 0, 400) Head {h00=0x0018, h01=0x0050, text=» ADK A3,1 ORDER CODE«, t00=0x0072, t01=0x0004}
0xb226…b23a               Head {h00=0x0010, h01=0x0050, text=»CIO:20 EQU *«, t00=0x0072, t01=0x0020}
0xb23a…b252               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x0072, t01=0x0034}
0xb252…b282               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER «, t00=0x0072, t01=0x004c}
0xb282…b2ae               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTUBU,A6 USER BUFFER POINTER«, t00=0x0072, t01=0x007c}
0xb2ae…b2c6               Head {h00=0x0014, h01=0x0050, text=» SUKL A2,PHSECL «, t00=0x0072, t01=0x00a8}
0xb2c6…b2d8               Head {h00=0x000e, h01=0x0050, text=» RF CIO:50«, t00=0x0072, t01=0x00c0}
0xb2d8…b2ec               Head {h00=0x0010, h01=0x0050, text=»CIO:30 EQU *«, t00=0x0072, t01=0x00d2}
0xb2ec…b31a               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,BUFFER DRIVER BUFFER ADDRESS «, t00=0x0072, t01=0x00e6}
0xb31a…b326               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0114}
0xb326…b330               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0120}
0xb330…b346               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0072, t01=0x012a}
0xb346…b35c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0072, t01=0x0140}
0xb35c…b36e               Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0072, t01=0x0156}
0xb36e…b394               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0C18 1ST WER SHIFTED«, t00=0x0072, t01=0x0168}
0xb394…b3a6               Head {h00=0x000e, h01=0x0050, text=» RF CIO:20«, t00=0x0072, t01=0x018e}
0xb3a6…b3ba               Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0073, t01=0x0010}
0xb3ba…b3e0               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0C1C 1ST WER SHIFTED«, t00=0x0073, t01=0x0024}
0xb3e0…b3fc               Head {h00=0x0018, h01=0x0050, text=» ADK A3,1 ORDER CODE«, t00=0x0073, t01=0x004a}
0xb3fc…b410               Head {h00=0x0010, h01=0x0050, text=»CIO:20 EQU *«, t00=0x0073, t01=0x0066}
0xb410…b428               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x0073, t01=0x007a}
0xb428…b458               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER «, t00=0x0073, t01=0x0092}
0xb458…b486               Head {h00=0x002a, h01=0x0050, text=» DA DWTBA1,A6 GET USER BUFFER ADDRESS «, t00=0x0073, t01=0x00c2}
0xb486…b4aa               Head {h00=0x0020, h01=0x0050, text=» SLL A2,1 BYTE MODE ADDRESS «, t00=0x0073, t01=0x00f0}
0xb4aa…b4bc               Head {h00=0x000e, h01=0x0050, text=» RF CIO:40«, t00=0x0073, t01=0x0114}
0xb4bc…b4d0               Head {h00=0x0010, h01=0x0050, text=»CIO:30 EQU *«, t00=0x0073, t01=0x0126}
0xb4d0…b4fe               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,BUFFER DRIVER BUFFER ADDRESS «, t00=0x0073, t01=0x013a}
0xb4fe…b512               Head {h00=0x0010, h01=0x0050, text=»CIO:40 EQU *«, t00=0x0073, t01=0x0168}
0xb512…b538               Head {h00=0x0022, h01=0x0050, text=» SRC A1,4 1ST WER IN POSITION «, t00=0x0073, t01=0x017c}
0xb538…b544               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x0012}
0xb544…b54e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x001e}
0xb54e…b562               Head {h00=0x0010, h01=0x0050, text=»CIO:50 EQU *«, t00=0x0074, t01=0x0028}
0xb562…b576               Head {h00=0x0010, h01=0x0050, text=» WER A1,WER1«, t00=0x0074, t01=0x003c}
0xb576…b58c               Head {h00=0x0012, h01=0x0050, text=» WER A2,WER1+1«, t00=0x0074, t01=0x0050}
0xb58c…b596               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0066}
0xb596…b5b6               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0074, t01=0x0070}
0xb5b6…b5c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0090}
0xb5c0…b5ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x009a}
0xb5ca…b5dc               Head {h00=0x000e, h01=0x0050, text=»CIO EQU * «, t00=0x0074, t01=0x00a4}
0xb5dc…b5fc               Head {h00=0x001c, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE A4 «, t00=0x0074, t01=0x00b6}
0xb5fc…b612               Head {h00=0x0012, h01=0x0050, text=» LD A2,PFPOST «, t00=0x0074, t01=0x00d6}
0xb612…b63e               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CIOAB PWF POST PROCESSING ON«, t00=0x0074, t01=0x00ec}
0xb63e…b66c               Head {h00=0x002a, h01=0x0050, text=» CF A15,INXDWT GET INDEXED DWT ADDRESS«, t00=0x0074, t01=0x0118}
0xb66c…b694               Head {h00=0x0024, h01=0x0050, text=» EX DWTCIO,A4 EXECUTE CIO-START «, t00=0x0074, t01=0x0146}
0xb694…b6be               Head {h00=0x0026, h01=0x0050, text=» ABL(3) END:30 CU ADDRESS UNKNOWN «, t00=0x0074, t01=0x016e}
0xb6be…b6d2               Head {h00=0x0010, h01=0x0050, text=»CIOAB EQU * «, t00=0x0075, t01=0x0008}
0xb6d2…b6f8               Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTA5,A6            A5 «, t00=0x0075, t01=0x001c}
0xb6f8…b724               Head {h00=0x0028, h01=0x0050, text=» ST A7,DWTA2,A6 SAVE SECTOR COUNTER «, t00=0x0075, t01=0x0042}
0xb724…b72e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x006e}
0xb72e…b758               Head {h00=0x0026, h01=0x0050, text=»T:DISP ABL TDISP GO TO DISPATCHER «, t00=0x0075, t01=0x0078}
0xb758…b762               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00a2}
0xb762…b782               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0075, t01=0x00ac}
0xb782…b78c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00cc}
0xb78c…b796               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00d6}
0xb796…b7b4               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0075, t01=0x00e0}
0xb7b4…b7d2               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0075, t01=0x00fe}
0xb7d2…b7f0               Head {h00=0x001a, h01=0x0050, text=»*  RECOVERY ROUTINE  *«, t00=0x0075, t01=0x011c}
0xb7f0…b80e               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0075, t01=0x013a}
0xb80e…b82c               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0075, t01=0x0158}
0xb82c…b836               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0176}
0xb836…b840               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0180}
0xb840…b852               Head {h00=0x000e, h01=0x0050, text=»DUON EQU *«, t00=0x0075, t01=0x018a}
0xb852…b85c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x000c}
0xb85c…b872               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0076, t01=0x0016}
0xb872…b89c               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0076, t01=0x002c}
0xb89c…b8a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0056}
0xb8a8…b8b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0062}
0xb8b2…b8c8               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0076, t01=0x006c}
0xb8c8…b8ee               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0076, t01=0x0082}
0xb8ee…b8fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x00a8}
0xb8fa…b904               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00b4}
0xb904…b91c               Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWDU01 «, t00=0x0076, t01=0x00be}
0xb91c…b942               Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x0076, t01=0x00d6}
0xb942…b954               Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0076, t01=0x00fc}
0xb954…b988               Head {h00=0x0030, h01=0x0050, text=» LDKL A1,/7FFE UNIT BUSY AND RECOVERY ON =1 «, t00=0x0076, t01=0x010e}
0xb988…b9a4               Head {h00=0x0018, h01=0x0050, text=» ANS A1,DWTST,A6  =1«, t00=0x0076, t01=0x0142}
0xb9a4…b9cc               Head {h00=0x0024, h01=0x0050, text=» CM DWTSAV,A6 INDICATE RECOVERY «, t00=0x0076, t01=0x015e}
0xb9cc…b9f6               Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG INITIALIZATION FLAG «, t00=0x0076, t01=0x0186}
0xb9f6…ba1a               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUON05 NOT POWER UP «, t00=0x0077, t01=0x0020}
0xba1a…ba24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0044}
0xba24…ba3a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0077, t01=0x004e}
0xba3a…ba44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0064}
0xba44…ba4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x006e}
0xba4e…ba6c               Head {h00=0x001a, h01=0x0050, text=» CM DWTOR,A6 1ST UNIT «, t00=0x0077, t01=0x0078}
0xba6c…ba92               Head {h00=0x0022, h01=0x0050, text=» CF A5,SEEKZ TEST IF OPERABLE «, t00=0x0077, t01=0x0096}
0xba92…baa4               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0077, t01=0x00bc}
0xbaa4…bac8               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUON26 NOT OPERABLE «, t00=0x0077, t01=0x00ce}
0xbac8…bade               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0077, t01=0x00f2}
0xbade…baf0               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0077, t01=0x0108}
0xbaf0…bb12               Head {h00=0x001e, h01=0x0050, text=» SC A1,DWTOR,A6 NEXT UNIT «, t00=0x0077, t01=0x011a}
0xbb12…bb26               Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEKZ«, t00=0x0077, t01=0x013c}
0xbb26…bb38               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0077, t01=0x0150}
0xbb38…bb5c               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUON26 NOT OPERABLE «, t00=0x0077, t01=0x0162}
0xbb5c…bb68               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x0186}
0xbb68…bb72 (120, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0004}
0xbb72…bb8a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0078, t01=0x000e}
0xbb8a…bb94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0026}
0xbb94…bb9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0030}
0xbb9e…bbb2               Head {h00=0x0010, h01=0x0050, text=»DUON05 EQU *«, t00=0x0078, t01=0x003a}
0xbbb2…bbc6               Head {h00=0x0010, h01=0x0050, text=» CM DWTOR,A6«, t00=0x0078, t01=0x004e}
0xbbc6…bbec               Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x0078, t01=0x0062}
0xbbec…bbfe               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0078, t01=0x0088}
0xbbfe…bc1c               Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUON07 NO ERROR«, t00=0x0078, t01=0x009a}
0xbc1c…bc44               Head {h00=0x0024, h01=0x0050, text=» CM DWTOR,A6 PREPARE FOR VOLCLR «, t00=0x0078, t01=0x00b8}
0xbc44…bc56               Head {h00=0x000e, h01=0x0050, text=» LDK A1,12«, t00=0x0078, t01=0x00e0}
0xbc56…bc6c               Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLCLR«, t00=0x0078, t01=0x00f2}
0xbc6c…bc80               Head {h00=0x0010, h01=0x0050, text=»DUON07 EQU *«, t00=0x0078, t01=0x0108}
0xbc80…bc96               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0078, t01=0x011c}
0xbc96…bcb8               Head {h00=0x001e, h01=0x0050, text=» LDK A1,2 OTHER DISC UNIT «, t00=0x0078, t01=0x0132}
0xbcb8…bcd0               Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0078, t01=0x0154}
0xbcd0…bce6               Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0078, t01=0x016c}
0xbce6…bcf8               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0078, t01=0x0182}
0xbcf8…bd16 (121, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUON08 NO ERROR«, t00=0x0079, t01=0x0004}
0xbd16…bd38               Head {h00=0x001e, h01=0x0050, text=» LDK A1,2 OTHER DISC UNIT «, t00=0x0079, t01=0x0022}
0xbd38…bd50               Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0079, t01=0x0044}
0xbd50…bd62               Head {h00=0x000e, h01=0x0050, text=» LDK A1,12«, t00=0x0079, t01=0x005c}
0xbd62…bd78               Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLCLR«, t00=0x0079, t01=0x006e}
0xbd78…bd8c               Head {h00=0x0010, h01=0x0050, text=»DUON08 EQU *«, t00=0x0079, t01=0x0084}
0xbd8c…bd98               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x0098}
0xbd98…bdc8               Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x0079, t01=0x00a4}
0xbdc8…bddc               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0079, t01=0x00d4}
0xbddc…be02               Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTSAV,A6 RECOVERY DONE«, t00=0x0079, t01=0x00e8}
0xbe02…be0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x010e}
0xbe0c…be22               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0079, t01=0x0118}
0xbe22…be2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x012e}
0xbe2c…be36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0138}
0xbe36…be5e               Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0079, t01=0x0142}
0xbe5e…be82               Head {h00=0x0020, h01=0x0050, text=» RF(Z) END:IO NO REQUEST ON?«, t00=0x0079, t01=0x016a}
0xbe82…be8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x018e}
0xbe8c…beb4               Head {h00=0x0024, h01=0x0050, text=»DUON10 LD A7,DWTORD,A6 GET ORDER«, t00=0x007a, t01=0x0008}
0xbeb4…bee4               Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x007a, t01=0x0030}
0xbee4…bef8               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x007a, t01=0x0060}
0xbef8…bf02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0074}
0xbf02…bf18               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x007a, t01=0x007e}
0xbf18…bf48               Head {h00=0x002c, h01=0x0050, text=» CF A5,REWORD RESTORE WORD IF NECESSARY «, t00=0x007a, t01=0x0094}
0xbf48…bf54               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007a, t01=0x00c4}
0xbf54…bf5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00d0}
0xbf5e…bf8a               Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x007a, t01=0x00da}
0xbf8a…bfac               Head {h00=0x001e, h01=0x0050, text=» ABL DUA:00 REPEAT REQUEST«, t00=0x007a, t01=0x0106}
0xbfac…bfb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0128}
0xbfb6…bfce               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x007a, t01=0x0132}
0xbfce…bfd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x014a}
0xbfd8…bff4               Head {h00=0x0018, h01=0x0050, text=»*    READY INTERRUPT«, t00=0x007a, t01=0x0154}
0xbff4…bffe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0170}
0xbffe…c018               Head {h00=0x0016, h01=0x0050, text=»DUREDY LD A1,TIMER«, t00=0x007a, t01=0x017a}
0xc018…c03e (123, 0, 400) Head {h00=0x0022, h01=0x0050, text=» RF(Z) DUON50 NO TIMER ACTIVE «, t00=0x007b, t01=0x0004}
0xc03e…c048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x002a}
0xc048…c05e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x007b, t01=0x0034}
0xc05e…c07c               Head {h00=0x001a, h01=0x0050, text=» CM* TIMER KILL TIMER «, t00=0x007b, t01=0x004a}
0xc07c…c08e               Head {h00=0x000e, h01=0x0050, text=» RF DUON40«, t00=0x007b, t01=0x0068}
0xc08e…c09a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x007a}
0xc09a…c0a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0086}
0xc0a4…c0ba               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x007b, t01=0x0090}
0xc0ba…c0da               Head {h00=0x001c, h01=0x0050, text=» RB T:DISP TIMER ACTIVE «, t00=0x007b, t01=0x00a6}
0xc0da…c0e6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x00c6}
0xc0e6…c0f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00d2}
0xc0f0…c108               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x007b, t01=0x00dc}
0xc108…c112               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00f4}
0xc112…c11c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00fe}
0xc11c…c130               Head {h00=0x0010, h01=0x0050, text=»DUON26 EQU *«, t00=0x007b, t01=0x0108}
0xc130…c15c               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,TIMER TIMER POINTER ADDRESS«, t00=0x007b, t01=0x011c}
0xc15c…c170               Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x007b, t01=0x0148}
0xc170…c196               Head {h00=0x0022, h01=0x0050, text=» RF(Z) DUON30 NO TIMER ACTIVE «, t00=0x007b, t01=0x015c}
0xc196…c1ac               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x007b, t01=0x0182}
0xc1ac…c1cc               Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 RESTART TIMER«, t00=0x007c, t01=0x0008}
0xc1cc…c1de               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x007c, t01=0x0028}
0xc1de…c1e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x003a}
0xc1e8…c1f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0044}
0xc1f2…c21a               Head {h00=0x0024, h01=0x0050, text=»DUON30 CF A15,SETIMP START TIMER«, t00=0x007c, t01=0x004e}
0xc21a…c24a               Head {h00=0x002c, h01=0x0050, text=» DATA DUON40,TIME TIME OUT ADDRESS, TIME«, t00=0x007c, t01=0x0076}
0xc24a…c25c               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x007c, t01=0x00a6}
0xc25c…c266               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00b8}
0xc266…c27a               Head {h00=0x0010, h01=0x0050, text=»*   TIME OUT«, t00=0x007c, t01=0x00c2}
0xc27a…c284               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00d6}
0xc284…c2a2               Head {h00=0x001a, h01=0x0050, text=»DUON40 LDKL A6,DWDU01 «, t00=0x007c, t01=0x00e0}
0xc2a2…c2b4               Head {h00=0x000e, h01=0x0050, text=» CM TIMER «, t00=0x007c, t01=0x00fe}
0xc2b4…c2c8               Head {h00=0x0010, h01=0x0050, text=»DUON50 EQU *«, t00=0x007c, t01=0x0110}
0xc2c8…c300               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x007c, t01=0x0124}
0xc300…c31c               Head {h00=0x0018, h01=0x0050, text=» ANS A5,DWTST,A6  =1«, t00=0x007c, t01=0x015c}
0xc31c…c344               Head {h00=0x0024, h01=0x0050, text=» CM DWTSAV,A6 INDICATE RECOVERY «, t00=0x007c, t01=0x0178}
0xc344…c36a               Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x007d, t01=0x0010}
0xc36a…c37c               Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x007d, t01=0x0036}
0xc37c…c38e               Head {h00=0x000e, h01=0x0050, text=» RB DUON05«, t00=0x007d, t01=0x0048}
0xc38e…c398               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x005a}
0xc398…c3b8               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x007d, t01=0x0064}
0xc3b8…c3c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0084}
0xc3c2…c3cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x008e}
0xc3cc…c3ec               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x007d, t01=0x0098}
0xc3ec…c40c               Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x007d, t01=0x00b8}
0xc40c…c42c               Head {h00=0x001c, h01=0x0050, text=»*  INTERRUPT HANDLER  * «, t00=0x007d, t01=0x00d8}
0xc42c…c44c               Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x007d, t01=0x00f8}
0xc44c…c46c               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x007d, t01=0x0118}
0xc46c…c476               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0138}
0xc476…c480               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0142}
0xc480…c492               Head {h00=0x000e, h01=0x0050, text=»IHDU EQU *«, t00=0x007d, t01=0x014c}
0xc492…c4a6               Head {h00=0x0010, h01=0x0050, text=»IHDU1 EQU * «, t00=0x007d, t01=0x015e}
0xc4a6…c4ba               Head {h00=0x0010, h01=0x0050, text=»IHDU2 EQU * «, t00=0x007d, t01=0x0172}
0xc4ba…c4e2               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x007d, t01=0x0186}
0xc4e2…c4ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x001e}
0xc4ec…c502               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x007e, t01=0x0028}
0xc502…c52c               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x007e, t01=0x003e}
0xc52c…c538               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x0068}
0xc538…c542               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0074}
0xc542…c558               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x007e, t01=0x007e}
0xc558…c57e               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x007e, t01=0x0094}
0xc57e…c58a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x00ba}
0xc58a…c594               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00c6}
0xc594…c5bc               Head {h00=0x0024, h01=0x0050, text=» LDKL A6,DWDU01 DISC UNIT NO. 1 «, t00=0x007e, t01=0x00d0}
0xc5bc…c5c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00f8}
0xc5c6…c5de               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x007e, t01=0x0102}
0xc5de…c5e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x011a}
0xc5e8…c5f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0124}
0xc5f2…c618               Head {h00=0x0022, h01=0x0050, text=»IHDU10 SST A1,CUADR GET STATUS«, t00=0x007e, t01=0x012e}
0xc618…c646               Head {h00=0x002a, h01=0x0050, text=»IHDU20 ANKL A1,/460F MASK RETURN CODE «, t00=0x007e, t01=0x0154}
0xc646…c658               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x007e, t01=0x0182}
0xc658…c67e (127, 0, 400) Head {h00=0x0022, h01=0x0050, text=» RB(N) DUREDY READY INTERRUPT «, t00=0x007f, t01=0x0004}
0xc67e…c690               Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x007f, t01=0x002a}
0xc690…c6a2               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x007f, t01=0x003c}
0xc6a2…c6c2               Head {h00=0x001c, h01=0x0050, text=» ANKL A2,/200 SEEK ERROR«, t00=0x007f, t01=0x004e}
0xc6c2…c6d8               Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHDU30 «, t00=0x007f, t01=0x006e}
0xc6d8…c702               Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/440F MOVE SEEK ERROR BIT«, t00=0x007f, t01=0x0084}
0xc702…c716               Head {h00=0x0010, h01=0x0050, text=» ORK A1,/02 «, t00=0x007f, t01=0x00ae}
0xc716…c72a               Head {h00=0x0010, h01=0x0050, text=»IHDU30 EQU *«, t00=0x007f, t01=0x00c2}
0xc72a…c74e               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x007f, t01=0x00d6}
0xc74e…c766               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x007f, t01=0x00fa}
0xc766…c77a               Head {h00=0x0010, h01=0x0050, text=» RF(NN) GET «, t00=0x007f, t01=0x0112}
0xc77a…c78c               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x007f, t01=0x0126}
0xc78c…c79e               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x007f, t01=0x0138}
0xc79e…c7cc               Head {h00=0x002a, h01=0x0050, text=» RF(NZ) END:IO DISC UNIT NOT OPERABLE «, t00=0x007f, t01=0x014a}
0xc7cc…c7d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0178}
0xc7d6…c804               Head {h00=0x002a, h01=0x0050, text=»GET LD A5,DWTA5,A6 RELOAD REGISTERS A5«, t00=0x007f, t01=0x0182}
0xc804…c830               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTA4,A6                  A4 «, t00=0x0080, t01=0x0020}
0xc830…c85a               Head {h00=0x0026, h01=0x0050, text=» LD A7,DWTA2,A6 GET SECTOR COUNTER«, t00=0x0080, t01=0x004c}
0xc85a…c86a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0080, t01=0x0076}
0xc86a…c874               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0086}
0xc874…c894               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0080, t01=0x0090}
0xc894…c89e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00b0}
0xc89e…c8a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00ba}
0xc8a8…c8c4               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0080, t01=0x00c4}
0xc8c4…c8e0               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0080, t01=0x00e0}
0xc8e0…c8fc               Head {h00=0x0018, h01=0x0050, text=»*  PERFORM ENDIO  * «, t00=0x0080, t01=0x00fc}
0xc8fc…c918               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0080, t01=0x0118}
0xc918…c934               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0080, t01=0x0134}
0xc934…c93e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0150}
0xc93e…c948               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x015a}
0xc948…c970               Head {h00=0x0024, h01=0x0050, text=»END:30 EQU * CU ADDRESS UNKNOWN «, t00=0x0080, t01=0x0164}
0xc970…c98e               Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x0080, t01=0x018c}
0xc98e…c9c0               Head {h00=0x002e, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE RECOVERY DONE =1«, t00=0x0081, t01=0x001a}
0xc9c0…c9d2               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0081, t01=0x004c}
0xc9d2…c9e6               Head {h00=0x0010, h01=0x0050, text=»END:10 EQU *«, t00=0x0081, t01=0x005e}
0xc9e6…c9f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0072}
0xc9f0…ca02               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0081, t01=0x007c}
0xca02…ca34               Head {h00=0x002e, h01=0x0050, text=» LD* A7,DWTSB3-2,A6 GET 1ST RETURN ADDRESS«, t00=0x0081, t01=0x008e}
0xca34…ca46               Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0081, t01=0x00c0}
0xca46…ca6c               Head {h00=0x0022, h01=0x0050, text=» RF(N) END:20 READ AFTER WRITE«, t00=0x0081, t01=0x00d2}
0xca6c…ca84               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTORD,A6«, t00=0x0081, t01=0x00f8}
0xca84…caa2               Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF GET ORDER «, t00=0x0081, t01=0x0110}
0xcaa2…cab6               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/15 «, t00=0x0081, t01=0x012e}
0xcab6…cae2               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) END:20 NOT READ AFTER WRITE «, t00=0x0081, t01=0x0142}
0xcae2…cb0a               Head {h00=0x0024, h01=0x0050, text=» CM ECBEL,A8 RESET SECTORS DONE «, t00=0x0081, t01=0x016e}
0xcb0a…cb16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0082, t01=0x0008}
0xcb16…cb20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0014}
0xcb20…cb34               Head {h00=0x0010, h01=0x0050, text=»END:20 EQU *«, t00=0x0082, t01=0x001e}
0xcb34…cb4a               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FF00«, t00=0x0082, t01=0x0032}
0xcb4a…cb62               Head {h00=0x0014, h01=0x0050, text=» ANS A2,ECBEL,A8«, t00=0x0082, t01=0x0048}
0xcb62…cb8e               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTRTY,A6 GET RETRY INDICATOR«, t00=0x0082, t01=0x0060}
0xcb8e…cbb4               Head {h00=0x0022, h01=0x0050, text=» RF(Z) END:IO NO RETRIES DONE «, t00=0x0082, t01=0x008c}
0xcbb4…cbe2               Head {h00=0x002a, h01=0x0050, text=» ORKL A1,/100 SET BIT 7 IN RETURN CODE«, t00=0x0082, t01=0x00b2}
0xcbe2…cbf8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0082, t01=0x00e0}
0xcbf8…cc02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x00f6}
0xcc02…cc0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0100}
0xcc0c…cc20               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0082, t01=0x010a}
0xcc20…cc44               Head {h00=0x0020, h01=0x0050, text=» CF A15,TENDIO PERFORM ENDIO«, t00=0x0082, t01=0x011e}
0xcc44…cc68               Head {h00=0x0020, h01=0x0050, text=»  ABL TDISP GO TO DISPATCHER«, t00=0x0082, t01=0x0142}
0xcc68…cc72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0166}
0xcc72…cc8a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0082, t01=0x0170}
0xcc8a…cc94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0188}
0xcc94…cc9e (131, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0004}
0xcc9e…ccb2               Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0083, t01=0x000e}
0xccb2…ccd6               Head {h00=0x0020, h01=0x0050, text=»  CF A5,SEEKZ SEEK SECTOR 0 «, t00=0x0083, t01=0x0022}
0xccd6…cce8               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0083, t01=0x0046}
0xcce8…cd22               Head {h00=0x0036, h01=0x0050, text=» RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE«, t00=0x0083, t01=0x0058}
0xcd22…cd3a               Head {h00=0x0014, h01=0x0050, text=» CMR A6 SECTOR 0«, t00=0x0083, t01=0x0092}
0xcd3a…cd50               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0083, t01=0x00aa}
0xcd50…cd66               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0083, t01=0x00c0}
0xcd66…cd86               Head {h00=0x001c, h01=0x0050, text=» CM DWTCYL,A2 CYLINDER 0«, t00=0x0083, t01=0x00d6}
0xcd86…cd92               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x00f6}
0xcd92…cda8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0083, t01=0x0102}
0xcda8…cdbe               Head {h00=0x0012, h01=0x0050, text=» CM DWTCYL,A6 «, t00=0x0083, t01=0x0118}
0xcdbe…cdca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x012e}
0xcdca…cde4               Head {h00=0x0016, h01=0x0050, text=» LDK A3,0 SECTOR 0«, t00=0x0083, t01=0x013a}
0xcde4…cdee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0154}
0xcdee…ce04               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0083, t01=0x015e}
0xce04…ce30               Head {h00=0x0028, h01=0x0050, text=» IM DWTFBU,A6 READ TO DRIVER BUFFER «, t00=0x0083, t01=0x0174}
0xce30…ce44               Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x0084, t01=0x0010}
0xce44…ce56               Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0084, t01=0x0024}
0xce56…ce8a               Head {h00=0x0030, h01=0x0050, text=» CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR«, t00=0x0084, t01=0x0036}
0xce8a…ce96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x006a}
0xce96…cea0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0076}
0xcea0…ceb6               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0084, t01=0x0080}
0xceb6…cede               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,/8019 READ SECTOR ZERO «, t00=0x0084, t01=0x0096}
0xcede…cf06               Head {h00=0x0024, h01=0x0050, text=» LDKL A2,BUFFER TO DRIVER BUFFER«, t00=0x0084, t01=0x00be}
0xcf06…cf1c               Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:50 «, t00=0x0084, t01=0x00e6}
0xcf1c…cf36               Head {h00=0x0016, h01=0x0050, text=» ANK A1,3 ERROR ? «, t00=0x0084, t01=0x00fc}
0xcf36…cf42               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x0116}
0xcf42…cf4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0122}
0xcf4c…cf80               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) VO:NA8 THROUGHPUT ERROR,NOT OPERABLE«, t00=0x0084, t01=0x012c}
0xcf80…cf98               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x0084, t01=0x0160}
0xcf98…cfb6               Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F0 FILE CODE «, t00=0x0084, t01=0x0178}
0xcfb6…cfce               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTSAV,A6«, t00=0x0085, t01=0x0008}
0xcfce…cfe4               Head {h00=0x0012, h01=0x0050, text=» RF(Z) VO:NA6 «, t00=0x0085, t01=0x0020}
0xcfe4…d010               Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/80F0 INDICATE TEST STATUS «, t00=0x0085, t01=0x0036}
0xd010…d024               Head {h00=0x0010, h01=0x0050, text=»VO:NA6 EQU *«, t00=0x0085, t01=0x0062}
0xd024…d05a               Head {h00=0x0032, h01=0x0050, text=» CF A15,VOLGET VOLUMR NAME TO DWT INDICATE NVL«, t00=0x0085, t01=0x0076}
0xd05a…d072               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0085, t01=0x00ac}
0xd072…d07c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00c4}
0xd07c…d086               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00ce}
0xd086…d09a               Head {h00=0x0010, h01=0x0050, text=»DUNA40 EQU *«, t00=0x0085, t01=0x00d8}
0xd09a…d0ac               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0085, t01=0x00ec}
0xd0ac…d0e6               Head {h00=0x0036, h01=0x0050, text=» LDK A7,1 TO INDICATE NOT TRANSFER PARAMETER ORDER«, t00=0x0085, t01=0x00fe}
0xd0e6…d112               Head {h00=0x0028, h01=0x0050, text=» LD A2,BUFFER+32 CHECK IF TOSS DISC «, t00=0x0085, t01=0x0138}
0xd112…d126               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0085, t01=0x0164}
0xd126…d144               Head {h00=0x001a, h01=0x0050, text=» RF(NE) DUNA70 NO TOSS«, t00=0x0085, t01=0x0178}
0xd144…d17c               Head {h00=0x0034, h01=0x0050, text=» LD A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER «, t00=0x0086, t01=0x0008}
0xd17c…d192               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/2031 «, t00=0x0086, t01=0x0040}
0xd192…d1ba               Head {h00=0x0024, h01=0x0050, text=» RF(NE) DUNA70 REL LESS THAN 10 «, t00=0x0086, t01=0x0056}
0xd1ba…d1f8               Head {h00=0x003a, h01=0x0050, text=» LD A2,BUFFER+48 GET FORMAT AND DEVICE TYPE PARAMETER «, t00=0x0086, t01=0x007e}
0xd1f8…d230               Head {h00=0x0034, h01=0x0050, text=»TRANPA EQU * LABEL FOR TRANSFER PARAMETER ORDER «, t00=0x0086, t01=0x00bc}
0xd230…d25e               Head {h00=0x002a, h01=0x0050, text=» CF A15,INXDWT GET INDEXED DWT ADDRESS«, t00=0x0086, t01=0x00f4}
0xd25e…d288               Head {h00=0x0026, h01=0x0050, text=» ECR A3,A2 SEPARATE THE PARAMETERS«, t00=0x0086, t01=0x0122}
0xd288…d29a               Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x0086, t01=0x014c}
0xd29a…d2ac               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0086, t01=0x015e}
0xd2ac…d2da               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTFOR,A4 SAVE FORMAT PARAMETER«, t00=0x0086, t01=0x0170}
0xd2da…d306               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,6324 SECTORS ON VERSION A2 «, t00=0x0087, t01=0x000e}
0xd306…d320               Head {h00=0x0016, h01=0x0050, text=» SUK A3,2 FORMAT ?«, t00=0x0087, t01=0x003a}
0xd320…d340               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUNA60 VERSION A2«, t00=0x0087, t01=0x0054}
0xd340…d360               Head {h00=0x001c, h01=0x0050, text=» RF(N) DUNA50 VERSION A1«, t00=0x0087, t01=0x0074}
0xd360…d37e               Head {h00=0x001a, h01=0x0050, text=» ADK A1,204 VERSION A3«, t00=0x0087, t01=0x0094}
0xd37e…d392               Head {h00=0x0010, h01=0x0050, text=»DUNA50 EQU *«, t00=0x0087, t01=0x00b2}
0xd392…d3ac               Head {h00=0x0016, h01=0x0050, text=» ADKL A1,9588-6324«, t00=0x0087, t01=0x00c6}
0xd3ac…d3c0               Head {h00=0x0010, h01=0x0050, text=»DUNA60 EQU *«, t00=0x0087, t01=0x00e0}
0xd3c0…d3d2               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0087, t01=0x00f4}
0xd3d2…d3f0               Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUNA70 PTS 6875«, t00=0x0087, t01=0x0106}
0xd3f0…d420               Head {h00=0x002c, h01=0x0050, text=» ADR A1,A1 PTS 6876 2*MAXSEC ON PTS 6875«, t00=0x0087, t01=0x0124}
0xd420…d434               Head {h00=0x0010, h01=0x0050, text=»DUNA70 EQU *«, t00=0x0087, t01=0x0154}
0xd434…d462               Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTSMX,A4 MAX SECTOR NO IN DWT «, t00=0x0087, t01=0x0168}
0xd462…d49a               Head {h00=0x0034, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE FOR TRANSFER PARAM. «, t00=0x0088, t01=0x0008}
0xd49a…d4c8               Head {h00=0x002a, h01=0x0050, text=» ADK A7,0 CHECK IF TRANSFER PARAMETER «, t00=0x0088, t01=0x0040}
0xd4c8…d4de               Head {h00=0x0012, h01=0x0050, text=» RB(Z) END:20 «, t00=0x0088, t01=0x006e}
0xd4de…d4e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0084}
0xd4e8…d4fe               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0088, t01=0x008e}
0xd4fe…d508               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00a4}
0xd508…d512               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00ae}
0xd512…d540               Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTA4,A6 RESTORE RETRY COUNTER «, t00=0x0088, t01=0x00b8}
0xd540…d558               Head {h00=0x0014, h01=0x0050, text=» LC A1,DWTOR,A6 «, t00=0x0088, t01=0x00e6}
0xd558…d56a               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0088, t01=0x00fe}
0xd56a…d582               Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0088, t01=0x0110}
0xd582…d594               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0088, t01=0x0128}
0xd594…d5aa               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) VO:NAM«, t00=0x0088, t01=0x013a}
0xd5aa…d5bc               Head {h00=0x000e, h01=0x0050, text=» RF VO:NA9«, t00=0x0088, t01=0x0150}
0xd5bc…d5d0               Head {h00=0x0010, h01=0x0050, text=»VO:NA8 EQU *«, t00=0x0088, t01=0x0162}
0xd5d0…d5ec               Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 ERROR CODE«, t00=0x0088, t01=0x0176}
0xd5ec…d600 (137, 0, 400) Head {h00=0x0010, h01=0x0050, text=»VO:NA9 EQU *«, t00=0x0089, t01=0x0004}
0xd600…d610               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0089, t01=0x0018}
0xd610…d61a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0028}
0xd61a…d634               Head {h00=0x0016, h01=0x0050, text=»*   TIMER POINTER «, t00=0x0089, t01=0x0032}
0xd634…d63e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x004c}
0xd63e…d660               Head {h00=0x001e, h01=0x0050, text=»TIMER DATA 0 TIMER POINTER«, t00=0x0089, t01=0x0056}
0xd660…d66a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0078}
0xd66a…d68a               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0089, t01=0x0082}
0xd68a…d694               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00a2}
0xd694…d69e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00ac}
0xd69e…d6cc               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0089, t01=0x00b6}
0xd6cc…d6fa               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0089, t01=0x00e4}
0xd6fa…d728               Head {h00=0x002a, h01=0x0050, text=»*   DEVICE WORK TABLE               * «, t00=0x0089, t01=0x0112}
0xd728…d756               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0089, t01=0x0140}
0xd756…d784               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0089, t01=0x016e}
0xd784…d78e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x000c}
0xd78e…d798               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0016}
0xd798…d7ac               Head {h00=0x0010, h01=0x0050, text=»DWDU01 EQU *«, t00=0x008a, t01=0x0020}
0xd7ac…d7d2               Head {h00=0x0022, h01=0x0050, text=» DATA 0 PHYSICAL SECTOR NUMBER«, t00=0x008a, t01=0x0034}
0xd7d2…d7f0               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x008a, t01=0x005a}
0xd7f0…d80c               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x008a, t01=0x0078}
0xd80c…d822               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x008a, t01=0x0094}
0xd822…d848               Head {h00=0x0022, h01=0x0050, text=» DATA DUADR ACTIVATION ADDRESS«, t00=0x008a, t01=0x00aa}
0xd848…d864               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x008a, t01=0x00d0}
0xd864…d88c               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x008a, t01=0x00ec}
0xd88c…d8aa               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x008a, t01=0x0114}
0xd8aa…d8b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0132}
0xd8b4…d8ca               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008a, t01=0x013c}
0xd8ca…d8f4               Head {h00=0x0026, h01=0x0050, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x008a, t01=0x0152}
0xd8f4…d918               Head {h00=0x0020, h01=0x0050, text=» DATA ECBDU1 MMU ECB ADDRESS«, t00=0x008a, t01=0x017c}
0xd918…d924               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x0010}
0xd924…d92e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x001c}
0xd92e…d94a               Head {h00=0x0018, h01=0x0050, text=»DWTFSW EQU *-DWDU01 «, t00=0x008b, t01=0x0026}
0xd94a…d95a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x0042}
0xd95a…d986               Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x008b, t01=0x0052}
0xd986…d9a2               Head {h00=0x0018, h01=0x0050, text=»DWTBSE EQU *-DWDU01 «, t00=0x008b, t01=0x007e}
0xd9a2…d9b2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x009a}
0xd9b2…d9e2               Head {h00=0x002c, h01=0x0050, text=»DWTUBU EQU *-DWDU01 USER BUFFER POINTER «, t00=0x008b, t01=0x00aa}
0xd9e2…d9f2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x00da}
0xd9f2…da0e               Head {h00=0x0018, h01=0x0050, text=»DWTSWD EQU *-DWDU01 «, t00=0x008b, t01=0x00ea}
0xda0e…da1e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x0106}
0xda1e…da28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0116}
0xda28…da3e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x008b, t01=0x0120}
0xda3e…da48               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0136}
0xda48…da52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0140}
0xda52…da6e               Head {h00=0x0018, h01=0x0050, text=»DWTRTY EQU *-DWDU01 «, t00=0x008b, t01=0x014a}
0xda6e…da7e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x0166}
0xda7e…da8e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x0176}
0xda8e…daa8               Head {h00=0x0016, h01=0x0050, text=» DATA /C000 FIXED «, t00=0x008b, t01=0x0186}
0xdaa8…dae0               Head {h00=0x0034, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED INDICATOR CARTR. 1«, t00=0x008c, t01=0x0010}
0xdae0…dafa               Head {h00=0x0016, h01=0x0050, text=» DATA /C000 FIXED «, t00=0x008c, t01=0x0048}
0xdafa…db2e               Head {h00=0x0030, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED IND. CARTR. 2 «, t00=0x008c, t01=0x0062}
0xdb2e…db64               Head {h00=0x0032, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST FIXED «, t00=0x008c, t01=0x0096}
0xdb64…db9e               Head {h00=0x0036, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST CARTRIDGE «, t00=0x008c, t01=0x00cc}
0xdb9e…dba8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0106}
0xdba8…dbbe               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008c, t01=0x0110}
0xdbbe…dbf4               Head {h00=0x0032, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND FIXED «, t00=0x008c, t01=0x0126}
0xdbf4…dc2e               Head {h00=0x0036, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND CARTRIDGE «, t00=0x008c, t01=0x015c}
0xdc2e…dc3a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x0008}
0xdc3a…dc44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0014}
0xdc44…dc5a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x008d, t01=0x001e}
0xdc5a…dc64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0034}
0xdc64…dc6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x003e}
0xdc6e…dc8a               Head {h00=0x0018, h01=0x0050, text=»DWTSAV EQU *-DWDU01 «, t00=0x008d, t01=0x0048}
0xdc8a…dc9a               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x008d, t01=0x0064}
0xdc9a…dcd6               Head {h00=0x0038, h01=0x0050, text=»DWTFBU EQU *-DWDU01 FLAG INDICATING IO TO DRIVER BUF«, t00=0x008d, t01=0x0074}
0xdcd6…dce6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008d, t01=0x00b0}
0xdce6…dd0c               Head {h00=0x0022, h01=0x0050, text=»DWTCIO EQU *-DWDU01 CIO-START «, t00=0x008d, t01=0x00c0}
0xdd0c…dd22               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAF1«, t00=0x008d, t01=0x00e6}
0xdd22…dd38               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAC1«, t00=0x008d, t01=0x00fc}
0xdd38…dd42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0112}
0xdd42…dd58               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008d, t01=0x011c}
0xdd58…dd6e               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAF2«, t00=0x008d, t01=0x0132}
0xdd6e…dd84               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAC2«, t00=0x008d, t01=0x0148}
0xdd84…dd90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x015e}
0xdd90…dd9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x016a}
0xdd9a…ddb6               Head {h00=0x0018, h01=0x0050, text=»DWTCYL EQU *-DWDU01 «, t00=0x008d, t01=0x0174}
0xddb6…ddda               Head {h00=0x0020, h01=0x0050, text=» DATA /FFFF CYLINDER NUMBER «, t00=0x008d, t01=0x0190}
0xddda…dde4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0024}
0xdde4…ddfa               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008e, t01=0x002e}
0xddfa…de16               Head {h00=0x0018, h01=0x0050, text=» DATA /FFFF 2ND UNIT«, t00=0x008e, t01=0x0044}
0xde16…de22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x0060}
0xde22…de2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x006c}
0xde2c…de48               Head {h00=0x0018, h01=0x0050, text=»DWTSMX EQU *-DWDU01 «, t00=0x008e, t01=0x0076}
0xde48…de72               Head {h00=0x0026, h01=0x0050, text=» DATA 1 MAX SECTORS ON FIXED DISC «, t00=0x008e, t01=0x0092}
0xde72…de9a               Head {h00=0x0024, h01=0x0050, text=» DATA 1 MAX SECTORS ON CARTRIDGE«, t00=0x008e, t01=0x00bc}
0xde9a…dea4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x00e4}
0xdea4…deba               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008e, t01=0x00ee}
0xdeba…ded2               Head {h00=0x0014, h01=0x0050, text=» DATA 1 2ND UNIT«, t00=0x008e, t01=0x0104}
0xded2…deea               Head {h00=0x0014, h01=0x0050, text=» DATA 1 2ND UNIT«, t00=0x008e, t01=0x011c}
0xdeea…def6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x0134}
0xdef6…df00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0140}
0xdf00…df1c               Head {h00=0x0018, h01=0x0050, text=»DWTFOR EQU *-DWDU01 «, t00=0x008e, t01=0x014a}
0xdf1c…df40               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DISC FORMAT ON FIXED«, t00=0x008e, t01=0x0166}
0xdf40…df66               Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISC FORMAT CARTRIDGE «, t00=0x008e, t01=0x018a}
0xdf66…df70               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0020}
0xdf70…df86               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008f, t01=0x002a}
0xdf86…df96               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x0040}
0xdf96…dfa6               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x0050}
0xdfa6…dfb2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0060}
0xdfb2…dfbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x006c}
0xdfbc…dfd4               Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x008f, t01=0x0076}
0xdfd4…dfec               Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x008f, t01=0x008e}
0xdfec…dffe               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x008f, t01=0x00a6}
0xdffe…e01c               Head {h00=0x001a, h01=0x0050, text=»DWTSB3 EQU *-DWDU01-2 «, t00=0x008f, t01=0x00b8}
0xe01c…e026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00d6}
0xe026…e038               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x008f, t01=0x00e0}
0xe038…e054               Head {h00=0x0018, h01=0x0050, text=»DWTSEP EQU *-DWDU01 «, t00=0x008f, t01=0x00f2}
0xe054…e064               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x010e}
0xe064…e080               Head {h00=0x0018, h01=0x0050, text=»DWTSEI EQU *-DWDU01 «, t00=0x008f, t01=0x011e}
0xe080…e090               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x013a}
0xe090…e09c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x014a}
0xe09c…e0a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0156}
0xe0a6…e0bc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008f, t01=0x0160}
0xe0bc…e0d0               Head {h00=0x0010, h01=0x0050, text=»ECBDU1 EQU *«, t00=0x008f, t01=0x0176}
0xe0d0…e0ec               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x008f, t01=0x018a}
0xe0ec…e108               Head {h00=0x0018, h01=0x0050, text=»DWTBA1 EQU *-DWDU01 «, t00=0x0090, t01=0x0016}
0xe108…e118               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0090, t01=0x0032}
0xe118…e134               Head {h00=0x0018, h01=0x0050, text=»DWTBA2 EQU *-DWDU01 «, t00=0x0090, t01=0x0042}
0xe134…e144               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0090, t01=0x005e}
0xe144…e168               Head {h00=0x0020, h01=0x0050, text=»DWTPAG EQU *-DWDU01 MMU PAGE«, t00=0x0090, t01=0x006e}
0xe168…e178               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0090, t01=0x0092}
0xe178…e188               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0090, t01=0x00a2}
0xe188…e194               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0090, t01=0x00b2}
0xe194…e19e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00be}
0xe19e…e1a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00c8}
0xe1a8…e1b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00d2}
0xe1b2…e1be               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0090, t01=0x00dc}
0xe1be…e1c2               Head {h00=0x4004, h01=0x0000}
0xe1c2…e1c6               00 90 00 e8                                                                                                                                                                                                                                       ┆    ┆
0xe1c6…e1ce (145, 1, 8)   20 04 00 00 00 91 00 04                                                                                                                                                                                                                           ┆        ┆
0xe1ce…e21e (146, 0, 400) 51 55 5c 2a 01 09 01 88 00 10 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 31 20 01 0a 00 0c 00 0e 00 50 5c 53 54 52 5c 41 36 2c 41 32 01 0a 00 20 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 32 20 01 0a 00 32 00 0e 00 50 5c 41 44 4b 5c 41 32 2c 32 20 01 0a   ┆QU *       P LDR* A6,A1        P STR A6,A2       P ADK A1,2    2   P ADK A2,2   ┆
0xe21e…e26e               00 44 00 0e 00 50 5c 53 55 4b 5c 41 33 2c 31 20 01 0a 00 56 00 1c 00 50 5c 52 42 28 50 29 5c 52 4d 4f 56 31 30 5c 4e 45 58 54 20 57 4f 52 44 20 01 0a 00 68 00 0c 00 50 5c 52 42 5c 54 55 52 4e 01 0a 00 88 00 04 00 50 01 0a 00 98 00 04 00 50   ┆ D   P SUK A3,1    V   P RB(P) RMOV10 NEXT WORD    h   P RB TURN       P       P┆
0xe26e…e2be               01 0a 00 a0 00 04 00 50 01 0a 00 a8 00 10 00 50 4e 4f 46 4f 4e 44 5c 45 51 55 5c 2a 01 0a 00 b0 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 32 20 01 0a 00 c4 00 26 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 5c 49 4e 44 49 43 41 54 45 20 52   ┆       P       PNOFOND EQU *       P LDKL A1,LMP2      & P CALL ERROR INDICATE R┆
0xe2be…e30e               45 41 44 49 4e 47 20 45 52 52 4f 52 01 0a 00 da 00 0a 00 50 5c 45 4a 45 43 54 01 0a 01 04 00 06 00 50 2a 20 01 0a 01 12 00 1a 00 50 2a 5c 49 4f 20 45 52 52 4f 52 20 49 4e 20 52 45 41 44 49 4e 47 20 01 0a 01 1c 00 06 00 50 2a 20 01 0a 01 3a   ┆EADING ERROR       P EJECT       P*        P* IO ERROR IN READING        P*    :┆
0xe30e…e35e               00 10 00 50 52 45 54 33 30 5c 45 51 55 5c 2a 20 01 0a 01 44 00 0e 00 50 5c 53 55 4b 5c 41 36 2c 31 20 01 0a 01 58 00 1a 00 50 5c 52 42 28 4e 5a 29 5c 52 45 41 31 30 30 5c 4e 45 57 20 54 52 59 01 0a 01 6a 00 12 00 50 5c 4c 43 5c 41 31 2c 43   ┆   PRET30 EQU *    D   P SUK A6,1    X   P RB(NZ) REA100 NEW TRY   j   P LC A1,C┆
0xe35e…e3ae (147, 0, 400) 49 4f 54 41 42 20 01 0a 01 88 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 43 30 20 01 0b 00 0e 00 34 00 50 5c 52 46 28 4e 5a 29 5c 52 45 54 33 31 5c 4c 41 53 54 20 52 45 54 52 59 20 57 49 54 48 20 45 41 52 4c 59 20 4f 52 20 4c 41 54 45 20 44 2e   ┆IOTAB        P ANK A1,/C0      4 P RF(NZ) RET31 LAST RETRY WITH EARLY OR LATE D.┆
0xe3ae…e3fe               53 20 01 0b 00 22 00 12 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 38 30 30 30 01 0b 00 5a 00 30 00 50 5c 4f 52 53 5c 41 32 2c 43 49 4f 54 41 42 5c 50 52 45 50 41 52 45 20 46 4f 52 20 45 41 52 4c 59 20 44 41 54 41 20 53 54 52 4f 42 45 01 0b 00 70   ┆S    "   P LDKL A2,/8000   Z 0 P ORS A2,CIOTAB PREPARE FOR EARLY DATA STROBE   p┆
0xe3fe…e44e               00 0e 00 50 5c 52 42 5c 52 45 41 44 45 52 01 0b 00 a4 00 10 00 50 52 45 54 33 31 5c 45 51 55 5c 2a 20 01 0b 00 b6 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 38 30 20 01 0b 00 ca 00 32 00 50 5c 52 46 28 5a 29 5c 52 45 54 33 32 5c 4c 41 53 54 20   ┆   P RB READER       PRET31 EQU *        P ANK A1,/80      2 P RF(Z) RET32 LAST ┆
0xe44e…e49e               52 45 54 52 59 20 57 49 54 48 20 4c 41 54 45 20 44 41 54 41 20 53 54 52 4f 42 45 20 01 0b 00 de 00 12 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 43 30 30 30 01 0b 01 14 00 30 00 50 5c 58 52 53 5c 41 32 2c 43 49 4f 54 41 42 5c 43 48 41 4e 47 45 20   ┆RETRY WITH LATE DATA STROBE        P LDKL A2,/C000     0 P XRS A2,CIOTAB CHANGE ┆
0xe49e…e4ee               46 52 4f 4d 20 45 41 52 4c 59 20 54 4f 20 4c 41 54 45 20 44 2e 53 01 0b 01 2a 00 0e 00 50 5c 52 42 5c 52 45 41 44 45 52 01 0b 01 5e 00 10 00 50 52 45 54 33 32 5c 45 51 55 5c 2a 20 01 0b 01 70 00 12 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 33 46   ┆FROM EARLY TO LATE D.S   *   P RB READER   ^   PRET32 EQU *    p   P LDKL A2,/3F┆
0xe4ee…e53e (148, 0, 400) 46 46 01 0b 01 84 00 2a 00 50 5c 41 4e 53 5c 41 32 2c 43 49 4f 54 41 42 5c 52 45 53 45 54 20 4c 41 54 45 20 44 41 54 41 20 53 54 52 4f 42 45 20 01 0c 00 0a 00 12 00 50 5c 4c 43 5c 41 31 2c 43 49 4f 54 4f 54 20 01 0c 00 38 00 10 00 50 5c 41   ┆FF     * P ANS A2,CIOTAB RESET LATE DATA STROBE        P LC A1,CIOTOT    8   P A┆
0xe53e…e58e               4e 4b 5c 41 31 2c 2f 43 30 20 01 0c 00 4e 00 34 00 50 5c 52 46 28 4e 5a 29 5c 52 45 54 33 33 5c 4c 41 53 54 20 52 45 54 52 59 20 43 41 52 52 49 41 47 45 2b 20 4f 52 20 43 41 52 52 49 41 47 45 2d 20 01 0c 00 62 00 12 00 50 5c 4c 44 4b 4c 5c   ┆NK A1,/C0    N 4 P RF(NZ) RET33 LAST RETRY CARRIAGE+ OR CARRIAGE-    b   P LDKL ┆
0xe58e…e5de               41 32 2c 2f 38 30 30 30 01 0c 00 9a 00 28 00 50 5c 4f 52 53 5c 41 32 2c 43 49 4f 54 4f 54 5c 50 52 45 50 41 52 45 20 46 4f 52 20 43 41 52 52 49 41 47 45 2b 01 0c 00 b0 00 0e 00 50 5c 52 42 5c 52 45 41 44 45 52 01 0c 00 dc 00 10 00 50 52 45   ┆A2,/8000     ( P ORS A2,CIOTOT PREPARE FOR CARRIAGE+       P RB READER       PRE┆
0xe5de…e62e               54 33 33 5c 45 51 55 5c 2a 20 01 0c 00 ee 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 38 30 20 01 0c 01 02 00 20 00 50 5c 52 42 28 5a 29 5c 4e 4f 46 4f 4e 44 5c 52 45 41 44 49 4e 47 20 45 52 52 4f 52 20 01 0c 01 16 00 12 00 50 5c 4c 44 4b 4c 5c   ┆T33 EQU *        P ANK A1,/80        P RB(Z) NOFOND READING ERROR        P LDKL ┆
0xe62e…e67e               41 32 2c 2f 43 30 30 30 01 0c 01 3a 00 2e 00 50 5c 58 52 53 5c 41 32 2c 43 49 4f 54 4f 54 5c 46 52 4f 4d 20 43 41 52 52 49 41 47 45 2b 20 54 4f 20 43 41 52 52 49 47 45 2d 20 01 0c 01 50 00 0e 00 50 5c 52 42 5c 52 45 41 44 45 52 01 0c 01 82   ┆A2,/C000   : . P XRS A2,CIOTOT FROM CARRIAGE+ TO CARRIGE-    P   P RB READER    ┆

Reduced view