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

⟦7c7fb576d⟧ 

    Length: 59012 (0xe684)
    Notes: pts_type(SC)
    Names: »DRDU01.SC«

Derivation

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »TOSSWORK/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	X:A 
* 
* 
*   THIS DRIVER CAN HANDLE TWO DISC UNITS 
*   IF X:B := 2 
* 
X:B	EQU	1 
NUNITS	EQU	X:B
* 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	0
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
	EJECT		DRDU01
* 
* 
*	A PROGRAM VERSION USING THE INSTRUCTION SET OF
*	CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1 
* 
CPU857	EQU	0		=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	X:C
* 
X:D	EQU	1 
VERSA3	EQU	X:D
* 
	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…0d02               Head {h00=0x0010, h01=0x0050, text=»RAW EQU X:A «, t00=0x0008, t01=0x0072}
0x0d02…0d0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0086}
0x0d0c…0d16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0090}
0x0d16…0d48               Head {h00=0x002e, h01=0x0050, text=»*   THIS DRIVER CAN HANDLE TWO DISC UNITS «, t00=0x0008, t01=0x009a}
0x0d48…0d60               Head {h00=0x0014, h01=0x0050, text=»*   IF X:B := 2 «, t00=0x0008, t01=0x00cc}
0x0d60…0d6a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e4}
0x0d6a…0d7c               Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0008, t01=0x00ee}
0x0d7c…0d92               Head {h00=0x0012, h01=0x0050, text=»NUNITS EQU X:B«, t00=0x0008, t01=0x0100}
0x0d92…0d9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0116}
0x0d9c…0da6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0120}
0x0da6…0dd8               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x012a}
0x0dd8…0e06               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x015c}
0x0e06…0e10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e10…0e24 (9, 0, 400)   Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x0004}
0x0e24…0e2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0018}
0x0e2e…0e38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0022}
0x0e38…0e72               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0009, t01=0x002c}
0x0e72…0ea4               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0009, t01=0x0066}
0x0ea4…0eae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0098}
0x0eae…0ec2               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0009, t01=0x00a2}
0x0ec2…0ecc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b6}
0x0ecc…0ee2               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0009, t01=0x00c0}
0x0ee2…0eec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d6}
0x0eec…0ef6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e0}
0x0ef6…0f2e               Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION USING THE INSTRUCTION SET OF«, t00=0x0009, t01=0x00ea}
0x0f2e…0f64               Head {h00=0x0032, h01=0x0050, text=»* CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1 «, t00=0x0009, t01=0x0122}
0x0f64…0f6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0158}
0x0f6e…0f86               Head {h00=0x0014, h01=0x0050, text=»CPU857 EQU 0  =3«, t00=0x0009, t01=0x0162}
0x0f86…0f90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017a}
0x0f90…0f9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0184}
0x0f9a…0fbe               Head {h00=0x0020, h01=0x0050, text=»* PROGRAM VERSION FOR FORMAT«, t00=0x0009, t01=0x018e}
0x0fbe…0fee               Head {h00=0x002c, h01=0x0050, text=»* A2 IS OBTAINED BY SETTING VERSA2 EQU 1«, t00=0x000a, t01=0x0022}
0x0fee…101e               Head {h00=0x002c, h01=0x0050, text=»* A3 IS OBTAINED BY SETTING VERSA3 EQU 1«, t00=0x000a, t01=0x0052}
0x101e…1028               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0082}
0x1028…103a               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x000a, t01=0x008c}
0x103a…1050               Head {h00=0x0012, h01=0x0050, text=»VERSA2 EQU X:C«, t00=0x000a, t01=0x009e}
0x1050…105a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b4}
0x105a…106c               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x000a, t01=0x00be}
0x106c…1082               Head {h00=0x0012, h01=0x0050, text=»VERSA3 EQU X:D«, t00=0x000a, t01=0x00d0}
0x1082…108c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e6}
0x108c…10ac               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000a, t01=0x00f0}
0x10ac…10b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0110}
0x10b6…10c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011a}
0x10c0…10d6               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0124}
0x10d6…10ec               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x013a}
0x10ec…1102               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0150}
0x1102…110c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0166}
0x110c…1116               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0170}
0x1116…114a               Head {h00=0x0030, h01=0x0050, text=»DAF1 EQU /28 DEVICE ADDRESS FIXED DISC NO. 1«, t00=0x000a, t01=0x017a}
0x114a…1182               Head {h00=0x0034, h01=0x0050, text=»DAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1«, t00=0x000b, t01=0x001e}
0x1182…11b6               Head {h00=0x0030, h01=0x0050, text=»DAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2«, t00=0x000b, t01=0x0056}
0x11b6…11ee               Head {h00=0x0034, h01=0x0050, text=»DAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2«, t00=0x000b, t01=0x008a}
0x11ee…1216               Head {h00=0x0024, h01=0x0050, text=»WER1 EQU /10 MULTIPLEXOR ADDRESS«, t00=0x000b, t01=0x00c2}
0x1216…1240               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU /08 CONTROL UNIT ADDRESS«, t00=0x000b, t01=0x00ea}
0x1240…124a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0114}
0x124a…1288               Head {h00=0x003a, h01=0x0050, text=»MAXSEC EQU 6528 MAX NO OF SECTORS ON UNPACKED PTS 6875«, t00=0x000b, t01=0x011e}
0x1288…12b8               Head {h00=0x002c, h01=0x0050, text=»SECLEN EQU 256 SECTOR LENGTH, CHARACTERS«, t00=0x000b, t01=0x015c}
0x12b8…12e6               Head {h00=0x002a, h01=0x0050, text=»PHSECL EQU 384 PHYSICAL SECTOR LENGTH «, t00=0x000b, t01=0x018c}
0x12e6…1308               Head {h00=0x001e, h01=0x0050, text=»QRETRY EQU 4 NO OF RETRIES«, t00=0x000c, t01=0x002a}
0x1308…132a               Head {h00=0x001e, h01=0x0050, text=»TIME EQU 1000 1 MIN 40 SEC«, t00=0x000c, t01=0x004c}
0x132a…1334               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x006e}
0x1334…134a               Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU 10 «, t00=0x000c, t01=0x0078}
0x134a…1354               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008e}
0x1354…1374               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000c, t01=0x0098}
0x1374…137e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b8}
0x137e…1388               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c2}
0x1388…13b0               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDICATES NO MMU BUFFER «, t00=0x000c, t01=0x00cc}
0x13b0…13d6               Head {h00=0x0022, h01=0x0050, text=» DATA DEVIND DISC DEVICE INDEX«, t00=0x000c, t01=0x00f4}
0x13d6…1400               Head {h00=0x0026, h01=0x0050, text=»DUADR DATA DUAD ACTIVATION ADDRESS«, t00=0x000c, t01=0x011a}
0x1400…1426               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000c, t01=0x0144}
0x1426…1430               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016a}
0x1430…1446               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x000c, t01=0x0174}
0x1446…145c               Head {h00=0x0012, h01=0x0050, text=»BUFFER RES 193«, t00=0x000c, t01=0x018a}
0x145c…1468               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0010}
0x1468…1472               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001c}
0x1472…1488               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x000d, t01=0x0026}
0x1488…149e               Head {h00=0x0012, h01=0x0050, text=»BUFFER RES 25 «, t00=0x000d, t01=0x003c}
0x149e…14a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0052}
0x14a8…14ba               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x000d, t01=0x005c}
0x14ba…14ca               Head {h00=0x000c, h01=0x0050, text=» RES 103«, t00=0x000d, t01=0x006e}
0x14ca…14d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x007e}
0x14d6…14f0               Head {h00=0x0016, h01=0x0050, text=» IFT VERSA2=1  =2 «, t00=0x000d, t01=0x008a}
0x14f0…151c               Head {h00=0x0028, h01=0x0050, text=»CYLBUF RES 2 CYL ID CHECK BUFFER =2 «, t00=0x000d, t01=0x00a4}
0x151c…152e               Head {h00=0x000e, h01=0x0050, text=» XIF   =2 «, t00=0x000d, t01=0x00d0}
0x152e…1538               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e2}
0x1538…1558               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000d, t01=0x00ec}
0x1558…1562               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x010c}
0x1562…156c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0116}
0x156c…1586               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000d, t01=0x0120}
0x1586…15a0               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x000d, t01=0x013a}
0x15a0…15ba               Head {h00=0x0016, h01=0x0050, text=»*  ACTIVATION   * «, t00=0x000d, t01=0x0154}
0x15ba…15d4               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x000d, t01=0x016e}
0x15d4…15ee               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000d, t01=0x0188}
0x15ee…15f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0012}
0x15f8…1602               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001c}
0x1602…1614               Head {h00=0x000e, h01=0x0050, text=»DUAD EQU *«, t00=0x000e, t01=0x0026}
0x1614…163a               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RETRY INDICATOR «, t00=0x000e, t01=0x0038}
0x163a…166e               Head {h00=0x0030, h01=0x0050, text=» CM DWTFBU,A6 RESET DRIVER BUFFER INDICATOR «, t00=0x000e, t01=0x005e}
0x166e…1680               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x000e, t01=0x0092}
0x1680…16a2               Head {h00=0x001e, h01=0x0050, text=» LC A1,DWTOR,A6 GET INDEX «, t00=0x000e, t01=0x00a4}
0x16a2…16b8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x000e, t01=0x00c6}
0x16b8…16ca               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000e, t01=0x00dc}
0x16ca…16d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00ee}
0x16d6…16ec               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x000e, t01=0x00fa}
0x16ec…16fe               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x000e, t01=0x0110}
0x16fe…170a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0122}
0x170a…172e               Head {h00=0x0020, h01=0x0050, text=» RF(P) DUERR FAULT IN INDEX «, t00=0x000e, t01=0x012e}
0x172e…1738               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0152}
0x1738…174c               Head {h00=0x0010, h01=0x0050, text=»DUA:00 EQU *«, t00=0x000e, t01=0x015c}
0x174c…1756               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0170}
0x1756…176c               Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB3«, t00=0x000e, t01=0x017a}
0x176c…178e               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 LOAD STACK BASE«, t00=0x000e, t01=0x0190}
0x178e…17a4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000f, t01=0x0022}
0x17a4…17d0               Head {h00=0x0028, h01=0x0050, text=» MLR 2,A8 GET 18 BIT BUFFER ADDRESS «, t00=0x000f, t01=0x0038}
0x17d0…17f2               Head {h00=0x001e, h01=0x0050, text=» SLC A1,4 MOST SIGN. BITS «, t00=0x000f, t01=0x0064}
0x17f2…1804               Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x000f, t01=0x0086}
0x1804…1824               Head {h00=0x001c, h01=0x0050, text=» SRL A2,1 WORD ADDDRESS «, t00=0x000f, t01=0x0098}
0x1824…184e               Head {h00=0x0026, h01=0x0050, text=» CF A5,MMULOG GET LOGICAL ADDRESS «, t00=0x000f, t01=0x00b8}
0x184e…185a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00e2}
0x185a…1864               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x1864…1896               Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x000f, t01=0x00f8}
0x1896…18b6               Head {h00=0x001c, h01=0x0050, text=»*   SAVE INDEX AND ORDER«, t00=0x000f, t01=0x012a}
0x18b6…18ce               Head {h00=0x0014, h01=0x0050, text=» ADK A7,0 SET CR«, t00=0x000f, t01=0x014a}
0x18ce…18fa               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DUA:05 NOT TEST STATUS ORDER«, t00=0x000f, t01=0x0162}
0x18fa…1904               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x018e}
0x1904…191a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0010, t01=0x0008}
0x191a…1924               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001e}
0x1924…192e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0028}
0x192e…194c               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x0032}
0x194c…196a               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0010, t01=0x0050}
0x196a…1988               Head {h00=0x001a, h01=0x0050, text=»*   TEST STATUS     * «, t00=0x0010, t01=0x006e}
0x1988…19a6               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0010, t01=0x008c}
0x19a6…19c4               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x00aa}
0x19c4…19ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c8}
0x19ce…19d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19d8…19f8               Head {h00=0x001c, h01=0x0050, text=» ORS A1,ECBRC,A8 NVL BIT«, t00=0x0010, t01=0x00dc}
0x19f8…1a0e               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/200 «, t00=0x0010, t01=0x00fc}
0x1a0e…1a46               Head {h00=0x0034, h01=0x0050, text=» ANS A2,DWTOR,A6 VO:NAM ON FIRST OR SECOND UNIT «, t00=0x0010, t01=0x0112}
0x1a46…1a58               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0010, t01=0x014a}
0x1a58…1a86               Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTSAV,A6 INDICATE TEST STATUS «, t00=0x0010, t01=0x015c}
0x1a86…1aac               Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x0010, t01=0x018a}
0x1aac…1abe               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0011, t01=0x0020}
0x1abe…1ae2               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TESEND NOT OPERABLE «, t00=0x0011, t01=0x0032}
0x1ae2…1b12               Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTORD,A6 RESTORE INDEX AND ORDER«, t00=0x0011, t01=0x0056}
0x1b12…1b2a               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTOR,A6 «, t00=0x0011, t01=0x0086}
0x1b2a…1b4e               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0011, t01=0x009e}
0x1b4e…1b88               Head {h00=0x0036, h01=0x0050, text=» CF A15,VOLNAM TRANSFER VOLUME NAME TO USER BUFFER«, t00=0x0011, t01=0x00c2}
0x1b88…1bac               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0011, t01=0x00fc}
0x1bac…1bc0               Head {h00=0x0010, h01=0x0050, text=»TESEND EQU *«, t00=0x0011, t01=0x0120}
0x1bc0…1bd4               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0011, t01=0x0134}
0x1bd4…1c06               Head {h00=0x002e, h01=0x0050, text=» ST A2,DWTSAV,A6 INDICATE TEST STATUS DONE«, t00=0x0011, t01=0x0148}
0x1c06…1c28               Head {h00=0x001e, h01=0x0050, text=» ABL END:IO PERFORM ENDIO «, t00=0x0011, t01=0x017a}
0x1c28…1c32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x000c}
0x1c32…1c4a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0012, t01=0x0016}
0x1c4a…1c54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002e}
0x1c54…1c84               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0012, t01=0x0038}
0x1c84…1cb4               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x0012, t01=0x0068}
0x1cb4…1ce4               Head {h00=0x002c, h01=0x0050, text=»*   NEW VOLUME LOADED CHECK           * «, t00=0x0012, t01=0x0098}
0x1ce4…1d14               Head {h00=0x002c, h01=0x0050, text=»*   ORDER CODE CHECK                  * «, t00=0x0012, t01=0x00c8}
0x1d14…1d44               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x0012, t01=0x00f8}
0x1d44…1d74               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0012, t01=0x0128}
0x1d74…1d7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0158}
0x1d7e…1db0               Head {h00=0x002e, h01=0x0050, text=»*   INPUT: A1=NVL RETURN CODE FROM NVLCHK «, t00=0x0012, t01=0x0162}
0x1db0…1dd0 (19, 0, 400)  Head {h00=0x001c, h01=0x0050, text=»*          A7=ORDER CODE«, t00=0x0013, t01=0x0004}
0x1dd0…1dda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0024}
0x1dda…1de4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002e}
0x1de4…1df8               Head {h00=0x0010, h01=0x0050, text=»DUA:05 EQU *«, t00=0x0013, t01=0x0038}
0x1df8…1e24               Head {h00=0x0028, h01=0x0050, text=» ADK A1,0 CHECK IF NEW VOLUME LOADED«, t00=0x0013, t01=0x004c}
0x1e24…1e4a               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) END:IO PERFORM TENDIO«, t00=0x0013, t01=0x0078}
0x1e4a…1e5c               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0013, t01=0x009e}
0x1e5c…1e7c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUA:10 BASIC READ«, t00=0x0013, t01=0x00b0}
0x1e7c…1e8e               Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0013, t01=0x00d0}
0x1e8e…1eb0               Head {h00=0x001e, h01=0x0050, text=» RF(Z) DUA:10 BASIC WRITE «, t00=0x0013, t01=0x00e2}
0x1eb0…1ec4               Head {h00=0x0010, h01=0x0050, text=» SUK A7,12  «, t00=0x0013, t01=0x0104}
0x1ec4…1ee8               Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUA:10 PHYSICAL READ «, t00=0x0013, t01=0x0118}
0x1ee8…1efa               Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0013, t01=0x013c}
0x1efa…1f1e               Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUA:10 PHYSICAL WRITE«, t00=0x0013, t01=0x014e}
0x1f1e…1f30               Head {h00=0x000e, h01=0x0050, text=» SUK A7,10«, t00=0x0013, t01=0x0172}
0x1f30…1f54               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FORMAT FORMAT VOLUME «, t00=0x0013, t01=0x0184}
0x1f54…1f5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0018}
0x1f5e…1f84               Head {h00=0x0022, h01=0x0050, text=»DUERR ABL DISIOE REQUEST ERROR«, t00=0x0014, t01=0x0022}
0x1f84…1f8e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0048}
0x1f8e…1fba               Head {h00=0x0028, h01=0x0050, text=»INCLEN EQU * REQUESTED LENGTH ERROR «, t00=0x0014, t01=0x0052}
0x1fba…1fd0               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8008«, t00=0x0014, t01=0x007e}
0x1fd0…1fe4               Head {h00=0x0010, h01=0x0050, text=» ABL END:20 «, t00=0x0014, t01=0x0094}
0x1fe4…1ffa               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0014, t01=0x00a8}
0x1ffa…2004               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00be}
0x2004…200e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c8}
0x200e…2030               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0014, t01=0x00d2}
0x2030…2052               Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0014, t01=0x00f4}
0x2052…2076               Head {h00=0x0020, h01=0x0050, text=»*   FORMAT VOLUME         * «, t00=0x0014, t01=0x0116}
0x2076…2098               Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0014, t01=0x013a}
0x2098…20ba               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0014, t01=0x015c}
0x20ba…20c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017e}
0x20c4…20ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0188}
0x20ce…20e2 (21, 0, 398)  Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0015, t01=0x0004}
0x20e2…2116               Head {h00=0x0030, h01=0x0050, text=» LDK A7,204 NUMBER OF CYLINDERS ON PTS 6875 «, t00=0x0015, t01=0x0018}
0x2116…213c               Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBCW1,A8 GET DISC TYPE«, t00=0x0015, t01=0x004c}
0x213c…2158               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0015, t01=0x0072}
0x2158…216a               Head {h00=0x000e, h01=0x0050, text=» ECR A2,A1«, t00=0x0015, t01=0x008e}
0x216a…2176               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00a0}
0x2176…2188               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0015, t01=0x00ac}
0x2188…21a8               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FORM03 PTS 6875 «, t00=0x0015, t01=0x00be}
0x21a8…21c4               Head {h00=0x0018, h01=0x0050, text=» ADK A7,204 PTS 6876«, t00=0x0015, t01=0x00de}
0x21c4…21d8               Head {h00=0x0010, h01=0x0050, text=»FORM03 EQU *«, t00=0x0015, t01=0x00fa}
0x21d8…21e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010e}
0x21e2…21fe               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0015, t01=0x0118}
0x21fe…2216               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFFER «, t00=0x0015, t01=0x0134}
0x2216…223c               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/C001 WRITE ONE WORD «, t00=0x0015, t01=0x014c}
0x223c…224e               Head {h00=0x000e, h01=0x0050, text=» ANK A2,3 «, t00=0x0015, t01=0x0172}
0x224e…2260               Head {h00=0x000e, h01=0x0050, text=» SUK A2,3 «, t00=0x0015, t01=0x0184}
0x2260…2280               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FORM05 A1 OR A2 «, t00=0x0016, t01=0x0008}
0x2280…22a6               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/C0C1 WRITE 386 BYTES«, t00=0x0016, t01=0x0028}
0x22a6…22be               Head {h00=0x0014, h01=0x0050, text=» ADKL A3,PHSECL «, t00=0x0016, t01=0x004e}
0x22be…22d2               Head {h00=0x0010, h01=0x0050, text=»FORM05 EQU *«, t00=0x0016, t01=0x0066}
0x22d2…22f8               Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTFBU,A6 SAVE 1ST WER «, t00=0x0016, t01=0x007a}
0x22f8…2304               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00a0}
0x2304…230e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ac}
0x230e…2324               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0016, t01=0x00b6}
0x2324…233a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0016, t01=0x00cc}
0x233a…2352               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFFER «, t00=0x0016, t01=0x00e2}
0x2352…235e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00fa}
0x235e…2368               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0106}
0x2368…237e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=0 «, t00=0x0016, t01=0x0110}
0x237e…2394               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0016, t01=0x0126}
0x2394…23c6               Head {h00=0x002e, h01=0x0050, text=» LDKL A3,BUFFER+PHSECL POSITION FOR CYL ID«, t00=0x0016, t01=0x013c}
0x23c6…23d2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x016e}
0x23d2…23dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017a}
0x23dc…2404               Head {h00=0x0024, h01=0x0050, text=» STR A3,A6 DRIVER BUFFER POINTER«, t00=0x0016, t01=0x0184}
0x2404…241a               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0017, t01=0x001c}
0x241a…2430               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0017, t01=0x0032}
0x2430…2454               Head {h00=0x0020, h01=0x0050, text=» CM DWTCYL,A2 CYLINDER ZERO «, t00=0x0017, t01=0x0048}
0x2454…2460               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x006c}
0x2460…2476               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0017, t01=0x0078}
0x2476…249a               Head {h00=0x0020, h01=0x0050, text=» CM DWTCYL,A6 CYLINDER ZERO «, t00=0x0017, t01=0x008e}
0x249a…24a6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00b2}
0x24a6…24b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00be}
0x24b0…24c6               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0017, t01=0x00c8}
0x24c6…24d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00de}
0x24d0…24da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e8}
0x24da…24ee               Head {h00=0x0010, h01=0x0050, text=»FORM20 EQU *«, t00=0x0017, t01=0x00f2}
0x24ee…2504               Head {h00=0x0012, h01=0x0050, text=» LDK A4,QRETRY«, t00=0x0017, t01=0x0106}
0x2504…2518               Head {h00=0x0010, h01=0x0050, text=»FORM30 EQU *«, t00=0x0017, t01=0x011c}
0x2518…252e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0017, t01=0x0130}
0x252e…2552               Head {h00=0x0020, h01=0x0050, text=» CF A5,INXUNI GET UNIT INDEX«, t00=0x0017, t01=0x0146}
0x2552…255e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x016a}
0x255e…2580               Head {h00=0x001e, h01=0x0050, text=» CF A5,SEEK SEEK CYLINDER «, t00=0x0017, t01=0x0176}
0x2580…2598               Head {h00=0x0014, h01=0x0050, text=» SLL A1,5 STATUS«, t00=0x0018, t01=0x0008}
0x2598…25ba               Head {h00=0x001e, h01=0x0050, text=» RF(NN) FORM40 SEEK ERROR «, t00=0x0018, t01=0x0020}
0x25ba…25d0               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0018, t01=0x0042}
0x25d0…25e6               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0018, t01=0x0058}
0x25e6…25fe               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTCYL,A2«, t00=0x0018, t01=0x006e}
0x25fe…260a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0086}
0x260a…2620               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0018, t01=0x0092}
0x2620…2638               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTCYL,A6«, t00=0x0018, t01=0x00a8}
0x2638…2644               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00c0}
0x2644…267c               Head {h00=0x0034, h01=0x0050, text=» ST* A1,0,A6 PREPARE DRIVER BUFFER WITH CYL. ID «, t00=0x0018, t01=0x00cc}
0x267c…268e               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0018, t01=0x0104}
0x268e…26c2               Head {h00=0x0030, h01=0x0050, text=» CF A5,SKEW WRITE SECTOR 0 ON EVEN CYLINDERS«, t00=0x0018, t01=0x0116}
0x26c2…26ee               Head {h00=0x0028, h01=0x0050, text=»*   WRITE SECTOR 8 ON ODD CYLINDERS «, t00=0x0018, t01=0x014a}
0x26ee…2712               Head {h00=0x0020, h01=0x0050, text=» ORK A3,1 ORDER CODE: WRITE «, t00=0x0018, t01=0x0176}
0x2712…271c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000a}
0x271c…2738               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0019, t01=0x0014}
0x2738…275c               Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTFBU,A6 GET 1ST WER«, t00=0x0019, t01=0x0030}
0x275c…2768               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0054}
0x2768…2772               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0060}
0x2772…2788               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0019, t01=0x006a}
0x2788…279e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0019, t01=0x0080}
0x279e…27b4               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C002«, t00=0x0019, t01=0x0096}
0x27b4…27c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00ac}
0x27c0…27ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b8}
0x27ca…27e0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=0 «, t00=0x0019, t01=0x00c2}
0x27e0…27f6               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0019, t01=0x00d8}
0x27f6…2824               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/C0C1 1ST WER WRITE 386 BYTES«, t00=0x0019, t01=0x00ee}
0x2824…2830               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x011c}
0x2830…283a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0128}
0x283a…2852               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x0019, t01=0x0132}
0x2852…2876               Head {h00=0x0020, h01=0x0050, text=» CF A5,CIO:50 CIO:50 SECTOR «, t00=0x0019, t01=0x014a}
0x2876…288a               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1F «, t00=0x0019, t01=0x016e}
0x288a…28ac               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FORM40 WRITE ERROR«, t00=0x0019, t01=0x0182}
0x28ac…28c2               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x001a, t01=0x0014}
0x28c2…28d8               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x001a, t01=0x002a}
0x28d8…28ee               Head {h00=0x0012, h01=0x0050, text=» IM DWTCYL,A2 «, t00=0x001a, t01=0x0040}
0x28ee…28fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0056}
0x28fa…2910               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x001a, t01=0x0062}
0x2910…2926               Head {h00=0x0012, h01=0x0050, text=» IM DWTCYL,A6 «, t00=0x001a, t01=0x0078}
0x2926…2932               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x008e}
0x2932…295e               Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT CYLINDER COUNTER«, t00=0x001a, t01=0x009a}
0x295e…2974               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FORM20«, t00=0x001a, t01=0x00c6}
0x2974…29a8               Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBCW1,A8 GET FORMAT AND TYPE OF DISC«, t00=0x001a, t01=0x00dc}
0x29a8…29d6               Head {h00=0x002a, h01=0x0050, text=» ABL TRANPA PUT FORMAT AND TYPE IN DWT«, t00=0x001a, t01=0x0110}
0x29d6…29ea               Head {h00=0x0010, h01=0x0050, text=»FORM40 EQU *«, t00=0x001a, t01=0x013e}
0x29ea…2a0e               Head {h00=0x0020, h01=0x0050, text=» CF A5,SEEKZ SEEK CYLINDER 0«, t00=0x001a, t01=0x0152}
0x2a0e…2a20               Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x001a, t01=0x0176}
0x2a20…2a40               Head {h00=0x001c, h01=0x0050, text=» RF(N) FORM50 SEEK ERROR«, t00=0x001a, t01=0x0188}
0x2a40…2a60               Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 RETRY COUNTER «, t00=0x001b, t01=0x0018}
0x2a60…2a7c               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) FORM30 RETRY«, t00=0x001b, t01=0x0038}
0x2a7c…2a90               Head {h00=0x0010, h01=0x0050, text=»FORM50 EQU *«, t00=0x001b, t01=0x0054}
0x2a90…2ab8               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 SEEK ERROR RETURN CODE«, t00=0x001b, t01=0x0068}
0x2ab8…2ada               Head {h00=0x001e, h01=0x0050, text=» ABL END:IO PERFORM END IO«, t00=0x001b, t01=0x0090}
0x2ada…2afa               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x001b, t01=0x00b2}
0x2afa…2b04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d2}
0x2b04…2b0e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00dc}
0x2b0e…2b48               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001b, t01=0x00e6}
0x2b48…2b82               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x001b, t01=0x0120}
0x2b82…2bbc               Head {h00=0x0036, h01=0x0050, text=»*   CHECK IF ALLOWED SECTOR LENGTH, BUFFER SIZE * «, t00=0x001b, t01=0x015a}
0x2bbc…2bf6 (28, 0, 400)  Head {h00=0x0036, h01=0x0050, text=»*   AND SECTOR NUMBER                           * «, t00=0x001c, t01=0x0004}
0x2bf6…2c30               Head {h00=0x0036, h01=0x0050, text=»*   SAVE BUFFER ADDRESS AND SET SECTOR COUNTER  * «, t00=0x001c, t01=0x003e}
0x2c30…2c6a               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x001c, t01=0x0078}
0x2c6a…2ca4               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001c, t01=0x00b2}
0x2ca4…2cae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ec}
0x2cae…2cc4               Head {h00=0x0012, h01=0x0050, text=»*   INPUT: ECB«, t00=0x001c, t01=0x00f6}
0x2cc4…2cea               Head {h00=0x0022, h01=0x0050, text=»*   OUTPUT: A7=SECTOR COUNTER «, t00=0x001c, t01=0x010c}
0x2cea…2d18               Head {h00=0x002a, h01=0x0050, text=»*           DWTUBU=USER BUFFER POINTER«, t00=0x001c, t01=0x0132}
0x2d18…2d22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0160}
0x2d22…2d2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016a}
0x2d2c…2d40               Head {h00=0x0010, h01=0x0050, text=»DUA:10 EQU *«, t00=0x001c, t01=0x0174}
0x2d40…2d68               Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBRL,A8 REQUESTED LENGTH«, t00=0x001c, t01=0x0188}
0x2d68…2d7e               Head {h00=0x0012, h01=0x0050, text=» RB(Z) INCLEN «, t00=0x001d, t01=0x0020}
0x2d7e…2db8               Head {h00=0x0036, h01=0x0050, text=» ECR A7,A3 DIVIDE BY 256 TO GET NUMBER OF SECTORS «, t00=0x001d, t01=0x0036}
0x2db8…2de2               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/FF SET CONDITION REGISTER«, t00=0x001d, t01=0x0070}
0x2de2…2e1a               Head {h00=0x0034, h01=0x0050, text=» RB(NZ) INCLEN NOT AN INTEGER NUMBER OF SECTORS «, t00=0x001d, t01=0x009a}
0x2e1a…2e58               Head {h00=0x003a, h01=0x0050, text=» LD A3,ECBCW2,A8 SECTOR NUMBER WHERE THE BUFFER BEGIN «, t00=0x001d, t01=0x00d2}
0x2e58…2e84               Head {h00=0x0028, h01=0x0050, text=» RB(N) DUERR INCORRECT SECTOR NUMBER«, t00=0x001d, t01=0x0110}
0x2e84…2e9c               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTSMX,A2«, t00=0x001d, t01=0x013c}
0x2e9c…2eca               Head {h00=0x002a, h01=0x0050, text=» RB(NL) DUERR INCORRECT SECTOR NUMBER «, t00=0x001d, t01=0x0154}
0x2eca…2edc               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A7«, t00=0x001d, t01=0x0182}
0x2edc…2ef4 (30, 0, 400)  Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTSMX,A2«, t00=0x001e, t01=0x0004}
0x2ef4…2f20               Head {h00=0x0028, h01=0x0050, text=» RB(G) INCLEN SECTOR NUMBER OVERFLOW«, t00=0x001e, t01=0x001c}
0x2f20…2f2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0048}
0x2f2a…2f40               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001e, t01=0x0052}
0x2f40…2f58               Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x001e, t01=0x0068}
0x2f58…2f84               Head {h00=0x0028, h01=0x0050, text=» ST A1,DWTUBU,A6 USER BUFFER POINTER«, t00=0x001e, t01=0x0080}
0x2f84…2f90               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00ac}
0x2f90…2f9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b8}
0x2f9a…2fb0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x001e, t01=0x00c2}
0x2fb0…2fba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d8}
0x2fba…2fd6               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x001e, t01=0x00e2}
0x2fd6…2fe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fe}
0x2fe0…2fea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0108}
0x2fea…3010               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x001e, t01=0x0112}
0x3010…3036               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x001e, t01=0x0138}
0x3036…305c               Head {h00=0x0022, h01=0x0050, text=»*   DISC VERSION SEPARATION  *«, t00=0x001e, t01=0x015e}
0x305c…3082               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x001e, t01=0x0184}
0x3082…30a8               Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x001f, t01=0x001a}
0x30a8…30b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0040}
0x30b2…30bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004a}
0x30bc…30d4               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFOR,A2«, t00=0x001f, t01=0x0054}
0x30d4…30e6               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x001f, t01=0x006c}
0x30e6…3106               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RW:800 VERSION A2«, t00=0x001f, t01=0x007e}
0x3106…3112               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x009e}
0x3112…311c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00aa}
0x311c…3132               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x001f, t01=0x00b4}
0x3132…313c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ca}
0x313c…3152               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x001f, t01=0x00d4}
0x3152…315c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ea}
0x315c…318a               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001f, t01=0x00f4}
0x318a…31b8               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x001f, t01=0x0122}
0x31b8…31e6               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x001f, t01=0x0150}
0x31e6…3214               Head {h00=0x002a, h01=0x0050, text=»*   GET PHYSICAL SECTOR NUMBER BY   * «, t00=0x001f, t01=0x017e}
0x3214…3242               Head {h00=0x002a, h01=0x0050, text=»*   DIVIDE BY 3                     * «, t00=0x0020, t01=0x001c}
0x3242…3270               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0020, t01=0x004a}
0x3270…329e               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0020, t01=0x0078}
0x329e…32a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00a6}
0x32a8…32be               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0020, t01=0x00b0}
0x32be…32e4               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x0020, t01=0x00c6}
0x32e4…3316               Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBCW2,A8 GET LOGICAL SECTOR NUMBER«, t00=0x0020, t01=0x00ec}
0x3316…3324               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x0020, t01=0x011e}
0x3324…3354               Head {h00=0x002c, h01=0x0050, text=»*   A1=REMAINER=LOGICAL SECTOR POSITION «, t00=0x0020, t01=0x012c}
0x3354…338a               Head {h00=0x0032, h01=0x0050, text=»*   A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC«, t00=0x0020, t01=0x015c}
0x338a…3396 (33, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0004}
0x3396…33a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0010}
0x33a0…33b6               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0021, t01=0x001a}
0x33b6…33cc               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0021, t01=0x0030}
0x33cc…33e4               Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW2,A8«, t00=0x0021, t01=0x0046}
0x33e4…3404               Head {h00=0x001c, h01=0x0050, text=» LDR A3,A1 SECTOR NUMBER«, t00=0x0021, t01=0x005e}
0x3404…3416               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0021, t01=0x007e}
0x3416…342a               Head {h00=0x0010, h01=0x0050, text=»DVK:00 EQU *«, t00=0x0021, t01=0x0090}
0x342a…3446               Head {h00=0x0018, h01=0x0050, text=» ADR A2,A3 I:= I+I/4«, t00=0x0021, t01=0x00a4}
0x3446…3460               Head {h00=0x0016, h01=0x0050, text=» SRL A3,2 I:= I/4 «, t00=0x0021, t01=0x00c0}
0x3460…3476               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DVK:00«, t00=0x0021, t01=0x00da}
0x3476…3490               Head {h00=0x0016, h01=0x0050, text=» SRL A2,2 TRUNCATE«, t00=0x0021, t01=0x00f0}
0x3490…34a2               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x0021, t01=0x010a}
0x34a2…34b4               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x0021, t01=0x011c}
0x34b4…34d6               Head {h00=0x001e, h01=0x0050, text=» SUR A1,A2 REST AFTER LOOP«, t00=0x0021, t01=0x012e}
0x34d6…34e8               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0021, t01=0x0150}
0x34e8…34fc               Head {h00=0x0010, h01=0x0050, text=»DVK:10 EQU *«, t00=0x0021, t01=0x0162}
0x34fc…350e               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0021, t01=0x0176}
0x350e…352c               Head {h00=0x001a, h01=0x0050, text=» SUK A1,3 DIVIDE BY 3 «, t00=0x0021, t01=0x0188}
0x352c…3542               Head {h00=0x0012, h01=0x0050, text=» RB(NN) DVK:10«, t00=0x0022, t01=0x0016}
0x3542…3558               Head {h00=0x0012, h01=0x0050, text=» ADK A1,3 REST«, t00=0x0022, t01=0x002c}
0x3558…3588               Head {h00=0x002c, h01=0x0050, text=»*   A1=REMAINER=LOGICAL SECTOR POSITION «, t00=0x0022, t01=0x0042}
0x3588…35be               Head {h00=0x0032, h01=0x0050, text=»*   A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC«, t00=0x0022, t01=0x0072}
0x35be…35c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a8}
0x35c8…35de               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0022, t01=0x00b2}
0x35de…35ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00c8}
0x35ea…35f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d4}
0x35f4…360a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0022, t01=0x00de}
0x360a…3614               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f4}
0x3614…3642               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0022, t01=0x00fe}
0x3642…3670               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0022, t01=0x012c}
0x3670…369e               Head {h00=0x002a, h01=0x0050, text=»*   SAVE PHYSICAL SECTOR NUMBER     * «, t00=0x0022, t01=0x015a}
0x369e…36cc               Head {h00=0x002a, h01=0x0050, text=»*   AND SECTOR POSITION             * «, t00=0x0022, t01=0x0188}
0x36cc…36fa               Head {h00=0x002a, h01=0x0050, text=»*   BRANCH ACCORDING TO SECTOR      * «, t00=0x0023, t01=0x0026}
0x36fa…3728               Head {h00=0x002a, h01=0x0050, text=»*   POSITION                        * «, t00=0x0023, t01=0x0054}
0x3728…3756               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0023, t01=0x0082}
0x3756…3784               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0023, t01=0x00b0}
0x3784…378e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00de}
0x378e…37be               Head {h00=0x002c, h01=0x0050, text=»*   INPUT: A1=SECTOR POSITION INDICATOR «, t00=0x0023, t01=0x00e8}
0x37be…37ee               Head {h00=0x002c, h01=0x0050, text=»*          A2=LOGICAL SECTOR NUMBER / 3 «, t00=0x0023, t01=0x0118}
0x37ee…37f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0148}
0x37f8…3802               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0152}
0x3802…3814               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0023, t01=0x015c}
0x3814…3842               Head {h00=0x002a, h01=0x0050, text=» STR A2,A6 SAVE PHYSICAL SECTOR NUMBER«, t00=0x0023, t01=0x016e}
0x3842…3854               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0024, t01=0x000c}
0x3854…3866               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0024, t01=0x001e}
0x3866…3894               Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTSEP,A6 SAVE SECTOR POSITION «, t00=0x0024, t01=0x0030}
0x3894…38ca               Head {h00=0x0032, h01=0x0050, text=» ST A2,DWTSEI,A6 SAVE 1ST PHYS. SECTOR NUMBER «, t00=0x0024, t01=0x005e}
0x38ca…38d6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0094}
0x38d6…38e0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a0}
0x38e0…38f6               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0024, t01=0x00aa}
0x38f6…391a               Head {h00=0x0020, h01=0x0050, text=»*   LOGICAL SECTOR POSITION «, t00=0x0024, t01=0x00c0}
0x391a…3940               Head {h00=0x0022, h01=0x0050, text=» RF(N) RW:300 ,XXXX  ,      , «, t00=0x0024, t01=0x00e4}
0x3940…3966               Head {h00=0x0022, h01=0x0050, text=» RF(Z) RW:200 ,    XX,XX    , «, t00=0x0024, t01=0x010a}
0x3966…3982               Head {h00=0x0018, h01=0x0050, text=»*   ,      ,  XXXX, «, t00=0x0024, t01=0x0130}
0x3982…398c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014c}
0x398c…39a2               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0024, t01=0x0156}
0x39a2…39ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x016c}
0x39ac…39da               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0024, t01=0x0176}
0x39da…3a08               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0025, t01=0x0014}
0x3a08…3a36               Head {h00=0x002a, h01=0x0050, text=»*   READ/WRITE FROM SECTOR IN       * «, t00=0x0025, t01=0x0042}
0x3a36…3a64               Head {h00=0x002a, h01=0x0050, text=»*   POSITION ,      ,  xxxx,        * «, t00=0x0025, t01=0x0070}
0x3a64…3a92               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0025, t01=0x009e}
0x3a92…3ac0               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0025, t01=0x00cc}
0x3ac0…3aca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fa}
0x3aca…3af6               Head {h00=0x0028, h01=0x0050, text=» IMR A6 LOG. SECTOR IN NEXT PHYSICAL«, t00=0x0025, t01=0x0104}
0x3af6…3b08               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0025, t01=0x0130}
0x3b08…3b38               Head {h00=0x002c, h01=0x0050, text=» IM DWTSEI,A6 SAVE FOR READ AFTER WRITE «, t00=0x0025, t01=0x0142}
0x3b38…3b44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0172}
0x3b44…3b4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017e}
0x3b4e…3b64               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0025, t01=0x0188}
0x3b64…3b7a               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0026, t01=0x000e}
0x3b7a…3b8e               Head {h00=0x0010, h01=0x0050, text=» DATA /0084 «, t00=0x0026, t01=0x0024}
0x3b8e…3ba0               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0026, t01=0x0038}
0x3ba0…3bb2               Head {h00=0x000e, h01=0x0050, text=» RF RW:300«, t00=0x0026, t01=0x004a}
0x3bb2…3bbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x005c}
0x3bbc…3bd2               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0026, t01=0x0066}
0x3bd2…3bdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x007c}
0x3bdc…3c0a               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0026, t01=0x0086}
0x3c0a…3c38               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0026, t01=0x00b4}
0x3c38…3c66               Head {h00=0x002a, h01=0x0050, text=»*   READ/WRITE FROM SECTOR IN       * «, t00=0x0026, t01=0x00e2}
0x3c66…3c94               Head {h00=0x002a, h01=0x0050, text=»*   POSITION ,    xx,               * «, t00=0x0026, t01=0x0110}
0x3c94…3cc2               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0026, t01=0x013e}
0x3cc2…3cf0               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0026, t01=0x016c}
0x3cf0…3cfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x000a}
0x3cfa…3d04               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0014}
0x3d04…3d18               Head {h00=0x0010, h01=0x0050, text=»RW:200 EQU *«, t00=0x0027, t01=0x001e}
0x3d18…3d2e               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0027, t01=0x0032}
0x3d2e…3d42               Head {h00=0x0010, h01=0x0050, text=» DATA /0048 «, t00=0x0027, t01=0x0048}
0x3d42…3d66               Head {h00=0x0020, h01=0x0050, text=» SUK A7,2 NUMBER OF SECTORS «, t00=0x0027, t01=0x005c}
0x3d66…3d8a               Head {h00=0x0020, h01=0x0050, text=» RF(N) RW:230 1 SECTOR IN IO«, t00=0x0027, t01=0x0080}
0x3d8a…3db2               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) RW:260 >2 SECTORS IN IO «, t00=0x0027, t01=0x00a4}
0x3db2…3dce               Head {h00=0x0018, h01=0x0050, text=»*   ,    XX,XXXXXX, «, t00=0x0027, t01=0x00cc}
0x3dce…3de4               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0027, t01=0x00e8}
0x3de4…3df8               Head {h00=0x0010, h01=0x0050, text=» DATA /00C0 «, t00=0x0027, t01=0x00fe}
0x3df8…3e0a               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x0027, t01=0x0112}
0x3e0a…3e2e               Head {h00=0x0020, h01=0x0050, text=»RW:230 EQU * ,    XX,XX    ,«, t00=0x0027, t01=0x0124}
0x3e2e…3e44               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0027, t01=0x0148}
0x3e44…3e58               Head {h00=0x0010, h01=0x0050, text=» DATA /0040 «, t00=0x0027, t01=0x015e}
0x3e58…3e6a               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x0027, t01=0x0172}
0x3e6a…3e8e               Head {h00=0x0020, h01=0x0050, text=»RW:260 EQU * ,    XX,XXXXXX,«, t00=0x0027, t01=0x0184}
0x3e8e…3ea4               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0028, t01=0x0018}
0x3ea4…3eb8               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x0028, t01=0x002e}
0x3eb8…3ec2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0042}
0x3ec2…3ed8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0028, t01=0x004c}
0x3ed8…3ee2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0062}
0x3ee2…3f0e               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0028, t01=0x006c}
0x3f0e…3f3a               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x0028, t01=0x0098}
0x3f3a…3f66               Head {h00=0x0028, h01=0x0050, text=»*   DIRECT READ/WRITE AS LONG      *«, t00=0x0028, t01=0x00c4}
0x3f66…3f92               Head {h00=0x0028, h01=0x0050, text=»*   AS POSIBLE                     *«, t00=0x0028, t01=0x00f0}
0x3f92…3fbe               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x0028, t01=0x011c}
0x3fbe…3fea               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0028, t01=0x0148}
0x3fea…3ff4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0174}
0x3ff4…3ffe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x017e}
0x3ffe…4012               Head {h00=0x0010, h01=0x0050, text=»RW:300 EQU *«, t00=0x0028, t01=0x0188}
0x4012…4032               Head {h00=0x001c, h01=0x0050, text=» SUK A7,3 SECTOR COUNTER«, t00=0x0029, t01=0x000c}
0x4032…4066               Head {h00=0x0030, h01=0x0050, text=» RF(NG) RW:500 LESS THAN FOUR SECTORS IN IO «, t00=0x0029, t01=0x002c}
0x4066…407c               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0029, t01=0x0060}
0x407c…4090               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x0029, t01=0x0076}
0x4090…40a6               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0029, t01=0x008a}
0x40a6…40ba               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x0029, t01=0x00a0}
0x40ba…40cc               Head {h00=0x000e, h01=0x0050, text=» RB RW:300«, t00=0x0029, t01=0x00b4}
0x40cc…40d6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c6}
0x40d6…40ec               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0029, t01=0x00d0}
0x40ec…40f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e6}
0x40f6…4122               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0029, t01=0x00f0}
0x4122…414e               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x0029, t01=0x011c}
0x414e…417a               Head {h00=0x0028, h01=0x0050, text=»*   READ/WRITE ON THE LAST SECTORS *«, t00=0x0029, t01=0x0148}
0x417a…41a6               Head {h00=0x0028, h01=0x0050, text=»*   IN IO                          *«, t00=0x0029, t01=0x0174}
0x41a6…41d2               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x002a, t01=0x0010}
0x41d2…41fe               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002a, t01=0x003c}
0x41fe…4208               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0068}
0x4208…4212               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0072}
0x4212…4226               Head {h00=0x0010, h01=0x0050, text=»RW:500 EQU *«, t00=0x002a, t01=0x007c}
0x4226…4246               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RW:580 3 SECTORS «, t00=0x002a, t01=0x0090}
0x4246…4258               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x002a, t01=0x00b0}
0x4258…4278               Head {h00=0x001c, h01=0x0050, text=» RF(P) RW:560 2 SECTORS «, t00=0x002a, t01=0x00c2}
0x4278…4298               Head {h00=0x001c, h01=0x0050, text=» RF(N) RW:600 0 SECTORS «, t00=0x002a, t01=0x00e2}
0x4298…42bc               Head {h00=0x0020, h01=0x0050, text=»RW:530 EQU * ,XXXX  ,      ,«, t00=0x002a, t01=0x0102}
0x42bc…42d2               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002a, t01=0x0126}
0x42d2…42e6               Head {h00=0x0010, h01=0x0050, text=» DATA /0080 «, t00=0x002a, t01=0x013c}
0x42e6…42f8               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x002a, t01=0x0150}
0x42f8…431c               Head {h00=0x0020, h01=0x0050, text=»RW:560 EQU * ,XXXXXX,XX    ,«, t00=0x002a, t01=0x0162}
0x431c…4332               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002a, t01=0x0186}
0x4332…4346               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x002b, t01=0x000c}
0x4346…435c               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002b, t01=0x0020}
0x435c…4370               Head {h00=0x0010, h01=0x0050, text=» DATA /0040 «, t00=0x002b, t01=0x0036}
0x4370…4382               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x002b, t01=0x004a}
0x4382…43a6               Head {h00=0x0020, h01=0x0050, text=»RW:580 EQU * ,XXXXXX,XXXXXX,«, t00=0x002b, t01=0x005c}
0x43a6…43bc               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002b, t01=0x0080}
0x43bc…43d0               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x002b, t01=0x0096}
0x43d0…43e6               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002b, t01=0x00aa}
0x43e6…43fa               Head {h00=0x0010, h01=0x0050, text=» DATA /00C0 «, t00=0x002b, t01=0x00c0}
0x43fa…4404               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00d4}
0x4404…441a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x002b, t01=0x00de}
0x441a…4424               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00f4}
0x4424…442e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00fe}
0x442e…4442               Head {h00=0x0010, h01=0x0050, text=»RW:600 EQU *«, t00=0x002b, t01=0x0108}
0x4442…4454               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x002b, t01=0x011c}
0x4454…445e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x012e}
0x445e…447e               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x002b, t01=0x0138}
0x447e…449e               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x002b, t01=0x0158}
0x449e…44be               Head {h00=0x001c, h01=0x0050, text=»*   READ AFTER WRITE   *«, t00=0x002b, t01=0x0178}
0x44be…44de               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x002c, t01=0x0008}
0x44de…44fe               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x002c, t01=0x0028}
0x44fe…4508               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0048}
0x4508…453c               Head {h00=0x0030, h01=0x0050, text=»*   DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO«, t00=0x002c, t01=0x0052}
0x453c…4578               Head {h00=0x0038, h01=0x0050, text=»*   1ST POS IN DWT=LAST PHYSICAL SECTOR NUMBER IN IO«, t00=0x002c, t01=0x0086}
0x4578…4596               Head {h00=0x001a, h01=0x0050, text=»*   A7=SECTOR COUNTER «, t00=0x002c, t01=0x00c2}
0x4596…45a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e0}
0x45a0…45b8               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x002c, t01=0x00ea}
0x45b8…45d6               Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF GET ORDER «, t00=0x002c, t01=0x0102}
0x45d6…45ea               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/15 «, t00=0x002c, t01=0x0120}
0x45ea…4614               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) RW:700 NOT PHYSICAL WRITE «, t00=0x002c, t01=0x0134}
0x4614…462a               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,-/100«, t00=0x002c, t01=0x015e}
0x462a…465a               Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTSEP,A6 GET 1ST SECTOR POSITION«, t00=0x002c, t01=0x0174}
0x465a…4678               Head {h00=0x001a, h01=0x0050, text=» RF(Z) RW:645 ,    XX,«, t00=0x002d, t01=0x0014}
0x4678…4696               Head {h00=0x001a, h01=0x0050, text=» RF(P) RW:640 ,  XXXX,«, t00=0x002d, t01=0x0032}
0x4696…46aa               Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x002d, t01=0x0050}
0x46aa…46be               Head {h00=0x0010, h01=0x0050, text=»RW:640 EQU *«, t00=0x002d, t01=0x0064}
0x46be…46d2               Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x002d, t01=0x0078}
0x46d2…46e6               Head {h00=0x0010, h01=0x0050, text=»RW:645 EQU *«, t00=0x002d, t01=0x008c}
0x46e6…4716               Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBEL,A8 PREPARE EFFECTIVE LENGTH«, t00=0x002d, t01=0x00a0}
0x4716…4744               Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTSEI,A6 RAW FROM THIS SECTOR «, t00=0x002d, t01=0x00d0}
0x4744…476a               Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 GET LAST SECTOR NO«, t00=0x002d, t01=0x00fe}
0x476a…479c               Head {h00=0x002e, h01=0x0050, text=» SUR A7,A1 GET NUMBER OF PHYSICAL SECTORS «, t00=0x002d, t01=0x0124}
0x479c…47ae               Head {h00=0x000e, h01=0x0050, text=» STR A1,A6«, t00=0x002d, t01=0x0156}
0x47ae…47b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0168}
0x47b8…47ce               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x002d, t01=0x0172}
0x47ce…47d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0188}
0x47d8…47e2 (46, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0004}
0x47e2…47f6               Head {h00=0x0010, h01=0x0050, text=»RW:650 EQU *«, t00=0x002e, t01=0x000e}
0x47f6…480c               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002e, t01=0x0022}
0x480c…4820               Head {h00=0x0010, h01=0x0050, text=» DATA /40C0 «, t00=0x002e, t01=0x0038}
0x4820…4844               Head {h00=0x0020, h01=0x0050, text=» IMR A6 NEXT PHYSICAL SECTOR«, t00=0x002e, t01=0x004c}
0x4844…485c               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PHSECL «, t00=0x002e, t01=0x0070}
0x485c…4882               Head {h00=0x0022, h01=0x0050, text=» ADS A1,ECBEL,A8 UPDATE ECBEL «, t00=0x002e, t01=0x0088}
0x4882…4894               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x002e, t01=0x00ae}
0x4894…48aa               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) RW:650«, t00=0x002e, t01=0x00c0}
0x48aa…48c2               Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBRL,A8 «, t00=0x002e, t01=0x00d6}
0x48c2…48f2               Head {h00=0x002c, h01=0x0050, text=» ST A7,ECBEL,A8 CORRECT EFFECTIVE LENGTH«, t00=0x002e, t01=0x00ee}
0x48f2…48fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x011e}
0x48fe…4908               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012a}
0x4908…491e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x002e, t01=0x0134}
0x491e…4932               Head {h00=0x0010, h01=0x0050, text=»RW:700 EQU *«, t00=0x002e, t01=0x014a}
0x4932…4950               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x002e, t01=0x015e}
0x4950…496a               Head {h00=0x0016, h01=0x0050, text=» ABL END:20 ENDIO «, t00=0x002e, t01=0x017c}
0x496a…4974               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0008}
0x4974…4980               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0012}
0x4980…498a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x001e}
0x498a…49a0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x002f, t01=0x0028}
0x49a0…49aa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x003e}
0x49aa…49c0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x002f, t01=0x0048}
0x49c0…49ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x005e}
0x49ca…49d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0068}
0x49d4…49fe               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002f, t01=0x0072}
0x49fe…4a28               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x002f, t01=0x009c}
0x4a28…4a52               Head {h00=0x0026, h01=0x0050, text=»*   DISC FORMAT A2              * «, t00=0x002f, t01=0x00c6}
0x4a52…4a7c               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x002f, t01=0x00f0}
0x4a7c…4aa6               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002f, t01=0x011a}
0x4aa6…4ab0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0144}
0x4ab0…4aba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x014e}
0x4aba…4ace               Head {h00=0x0010, h01=0x0050, text=»RW:800 EQU *«, t00=0x002f, t01=0x0158}
0x4ace…4ae2               Head {h00=0x0010, h01=0x0050, text=» CF A5,DIV31«, t00=0x002f, t01=0x016c}
0x4ae2…4af4               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x002f, t01=0x0180}
0x4af4…4b38 (48, 0, 400)  Head {h00=0x0040, h01=0x0050, text=» ST A7,DWTSEI,A6 SAVE NUMBER OF SECTORS FOR READ AFTER WRITE«, t00=0x0030, t01=0x0004}
0x4b38…4b44               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0048}
0x4b44…4b4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0054}
0x4b4e…4b64               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0030, t01=0x005e}
0x4b64…4b78               Head {h00=0x0010, h01=0x0050, text=»RW:850 EQU *«, t00=0x0030, t01=0x0074}
0x4b78…4b8e               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0030, t01=0x0088}
0x4b8e…4bb4               Head {h00=0x0022, h01=0x0050, text=» DATA /A080 INDICATE FORMAT A2«, t00=0x0030, t01=0x009e}
0x4bb4…4bca               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x0030, t01=0x00c4}
0x4bca…4bfe               Head {h00=0x0030, h01=0x0050, text=» ADS A1,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x0030, t01=0x00da}
0x4bfe…4c10               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0030, t01=0x010e}
0x4c10…4c3a               Head {h00=0x0026, h01=0x0050, text=» RB(NZ) RW:850 MORE SECTORS IN IO «, t00=0x0030, t01=0x0120}
0x4c3a…4c44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x014a}
0x4c44…4c5a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0030, t01=0x0154}
0x4c5a…4c64               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x016a}
0x4c64…4c6e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0174}
0x4c6e…4c80               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0030, t01=0x017e}
0x4c80…4ca2               Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0030, t01=0x0190}
0x4ca2…4cb6               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0031, t01=0x0022}
0x4cb6…4cca               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/15 «, t00=0x0031, t01=0x0036}
0x4cca…4cd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x004a}
0x4cd4…4cea               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0031, t01=0x0054}
0x4cea…4d14               Head {h00=0x0026, h01=0x0050, text=» RB(NZ) RW:700 NOT PHYSICAL WRITE «, t00=0x0031, t01=0x006a}
0x4d14…4d20               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0094}
0x4d20…4d2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a0}
0x4d2a…4d40               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0031, t01=0x00aa}
0x4d40…4d56               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0031, t01=0x00c0}
0x4d56…4d68               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0031, t01=0x00d6}
0x4d68…4d7e               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) RW:905«, t00=0x0031, t01=0x00e8}
0x4d7e…4d8a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00fe}
0x4d8a…4d94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x010a}
0x4d94…4daa               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0031, t01=0x0114}
0x4daa…4dbc               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0031, t01=0x012a}
0x4dbc…4dee               Head {h00=0x002e, h01=0x0050, text=» CM ECBEL,A8 PREPARE FOR READ AFTER WRITE «, t00=0x0031, t01=0x013c}
0x4dee…4e06               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTSEI,A6«, t00=0x0031, t01=0x016e}
0x4e06…4e1a               Head {h00=0x0010, h01=0x0050, text=» CF A5,DIV31«, t00=0x0031, t01=0x0186}
0x4e1a…4e24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x000a}
0x4e24…4e3a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0032, t01=0x0014}
0x4e3a…4e44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x002a}
0x4e44…4e4e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0034}
0x4e4e…4e62               Head {h00=0x0010, h01=0x0050, text=»RW:900 EQU *«, t00=0x0032, t01=0x003e}
0x4e62…4e78               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0032, t01=0x0052}
0x4e78…4e9c               Head {h00=0x0020, h01=0x0050, text=» DATA /E080 READ AFTER WRITE«, t00=0x0032, t01=0x0068}
0x4e9c…4eae               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0032, t01=0x008c}
0x4eae…4ec4               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) RW:900«, t00=0x0032, t01=0x009e}
0x4ec4…4ed0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x00b4}
0x4ed0…4eda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00c0}
0x4eda…4ef6               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0032, t01=0x00ca}
0x4ef6…4f08               Head {h00=0x000e, h01=0x0050, text=» RB RW:700«, t00=0x0032, t01=0x00e6}
0x4f08…4f14               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x00f8}
0x4f14…4f1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0104}
0x4f1e…4f34               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0032, t01=0x010e}
0x4f34…4f4a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0032, t01=0x0124}
0x4f4a…4f5e               Head {h00=0x0010, h01=0x0050, text=»RW:905 EQU *«, t00=0x0032, t01=0x013a}
0x4f5e…4f82               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0032, t01=0x014e}
0x4f82…4f96               Head {h00=0x0010, h01=0x0050, text=» ABL END:20 «, t00=0x0032, t01=0x0172}
0x4f96…4fa2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0186}
0x4fa2…4fac (51, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0004}
0x4fac…4fc2               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0033, t01=0x000e}
0x4fc2…4fcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0024}
0x4fcc…5004               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0033, t01=0x002e}
0x5004…503c               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0033, t01=0x0066}
0x503c…5074               Head {h00=0x0034, h01=0x0050, text=»*   IOROUT PERFORM READ OR WRITE AND SEEK     * «, t00=0x0033, t01=0x009e}
0x5074…50ac               Head {h00=0x0034, h01=0x0050, text=»*   IF NECESSARY                              * «, t00=0x0033, t01=0x00d6}
0x50ac…50e4               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0033, t01=0x010e}
0x50e4…511c               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0033, t01=0x0146}
0x511c…5126               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x017e}
0x5126…5150               Head {h00=0x0026, h01=0x0050, text=»*   INPUT : ONE DATA WORD AFTER CF«, t00=0x0033, t01=0x0188}
0x5150…517e               Head {h00=0x002a, h01=0x0050, text=»*          BIT 0 :INDICATES DIRECT IO «, t00=0x0034, t01=0x0022}
0x517e…51b2               Head {h00=0x0030, h01=0x0050, text=»*          BIT 1 :INDICATES READ AFTER WRITE«, t00=0x0034, t01=0x0050}
0x51b2…51e0               Head {h00=0x002a, h01=0x0050, text=»*          BIT 2 :INDICATES FORMAT A2 «, t00=0x0034, t01=0x0084}
0x51e0…520e               Head {h00=0x002a, h01=0x0050, text=»*          BIT 8-11:NUMBER OF WORDS/16«, t00=0x0034, t01=0x00b2}
0x520e…5244               Head {h00=0x0032, h01=0x0050, text=»*          BIT12-15:START IN DRIVER BUFFER/32 «, t00=0x0034, t01=0x00e0}
0x5244…5284               Head {h00=0x003c, h01=0x0050, text=»*   AFTER SEEK THE CYLINDER ID WILL BE CHECKED BY A READ«, t00=0x0034, t01=0x0116}
0x5284…52c8               Head {h00=0x0040, h01=0x0050, text=»*   DWTBSE CONTAINS THE PRESENT SECTOR IN THE DRIVER BUFFER «, t00=0x0034, t01=0x0156}
0x52c8…52f2               Head {h00=0x0026, h01=0x0050, text=»*   DWTRTY INDICATES RETRIES DONE «, t00=0x0035, t01=0x000a}
0x52f2…533e               Head {h00=0x0048, h01=0x0050, text=»*   DWTSWD SAVED WORD FROM USER BUFFER WHEN IO NOT VIA DRIVER BUFFER«, t00=0x0035, t01=0x0034}
0x533e…5348               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0080}
0x5348…535c               Head {h00=0x0010, h01=0x0050, text=»IOROUT EQU *«, t00=0x0035, t01=0x008a}
0x535c…538a               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 GET PHYSICAL SECTOR NUMBER«, t00=0x0035, t01=0x009e}
0x538a…53b0               Head {h00=0x0022, h01=0x0050, text=» SRL A3,5 GET CYLINDER NUMBER «, t00=0x0035, t01=0x00cc}
0x53b0…53ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00f2}
0x53ba…53d6               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0035, t01=0x00fc}
0x53d6…53f8               Head {h00=0x001e, h01=0x0050, text=» LD* A4,4,A5 GET DATA WORD«, t00=0x0035, t01=0x0118}
0x53f8…540a               Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x0035, t01=0x013a}
0x540a…542a               Head {h00=0x001c, h01=0x0050, text=» RF(NN) SEE:05 FORMAT A3«, t00=0x0035, t01=0x014c}
0x542a…543c               Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x0035, t01=0x016c}
0x543c…5448               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x017e}
0x5448…5452               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x018a}
0x5452…5468 (54, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0036, t01=0x0004}
0x5468…5472               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x001a}
0x5472…547c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0024}
0x547c…5492               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0036, t01=0x002e}
0x5492…54b8               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) SEE:05 NOT CYLINDER 0 «, t00=0x0036, t01=0x0044}
0x54b8…54cc               Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEKZ«, t00=0x0036, t01=0x006a}
0x54cc…54de               Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x0036, t01=0x007e}
0x54de…54fa               Head {h00=0x0018, h01=0x0050, text=» RF(N) SEE:20 ERROR «, t00=0x0036, t01=0x0090}
0x54fa…5510               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0036, t01=0x00ac}
0x5510…5526               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0036, t01=0x00c2}
0x5526…554a               Head {h00=0x0020, h01=0x0050, text=» CM DWTCYL,A2 CYLINDER ZERO «, t00=0x0036, t01=0x00d8}
0x554a…555c               Head {h00=0x000e, h01=0x0050, text=» RF VA2BR «, t00=0x0036, t01=0x00fc}
0x555c…5568               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x010e}
0x5568…557e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0036, t01=0x011a}
0x557e…5594               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0036, t01=0x0130}
0x5594…55aa               Head {h00=0x0012, h01=0x0050, text=» CM DWTCYL,A6 «, t00=0x0036, t01=0x0146}
0x55aa…55bc               Head {h00=0x000e, h01=0x0050, text=» RF VA2BR «, t00=0x0036, t01=0x015c}
0x55bc…55c8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x016e}
0x55c8…55d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x017a}
0x55d2…55e8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0036, t01=0x0184}
0x55e8…55f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x000a}
0x55f2…55fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0014}
0x55fc…5610               Head {h00=0x0010, h01=0x0050, text=»SEE:05 EQU *«, t00=0x0037, t01=0x001e}
0x5610…5626               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0037, t01=0x0032}
0x5626…563c               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0037, t01=0x0048}
0x563c…566a               Head {h00=0x002a, h01=0x0050, text=» CW A3,DWTCYL,A2 COMPARE WITH PRESENT «, t00=0x0037, t01=0x005e}
0x566a…5676               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x008c}
0x5676…568c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0037, t01=0x0098}
0x568c…56a4               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A6«, t00=0x0037, t01=0x00ae}
0x56a4…56b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x00c6}
0x56b0…56ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d2}
0x56ba…56d0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0037, t01=0x00dc}
0x56d0…56e6               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0037, t01=0x00f2}
0x56e6…56fc               Head {h00=0x0012, h01=0x0050, text=» RF(E) VA2:00 «, t00=0x0037, t01=0x0108}
0x56fc…5708               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x011e}
0x5708…5712               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x012a}
0x5712…5728               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=0 «, t00=0x0037, t01=0x0134}
0x5728…573e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0037, t01=0x014a}
0x573e…5764               Head {h00=0x0022, h01=0x0050, text=» RF(E) SEE:90 HEAD IN POSITION«, t00=0x0037, t01=0x0160}
0x5764…5770               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0186}
0x5770…577a (56, 0, 398)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0004}
0x577a…5796               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0038, t01=0x000e}
0x5796…57be               Head {h00=0x0024, h01=0x0050, text=» RF(NE) SEE:07 NOT SAME CYLINDER«, t00=0x0038, t01=0x002a}
0x57be…57d0               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0038, t01=0x0052}
0x57d0…57ee               Head {h00=0x001a, h01=0x0050, text=» RF(N) VA2BR FORMAT A2«, t00=0x0038, t01=0x0064}
0x57ee…5800               Head {h00=0x000e, h01=0x0050, text=» RF SEE:90«, t00=0x0038, t01=0x0082}
0x5800…580a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0094}
0x580a…5820               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0038, t01=0x009e}
0x5820…582a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b4}
0x582a…5834               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00be}
0x5834…5848               Head {h00=0x0010, h01=0x0050, text=»SEE:07 EQU *«, t00=0x0038, t01=0x00c8}
0x5848…5854               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00dc}
0x5854…585e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e8}
0x585e…5874               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0038, t01=0x00f2}
0x5874…58a0               Head {h00=0x0028, h01=0x0050, text=» ST A3,DWTCYL,A6 NEW CYLINDER NUMBER«, t00=0x0038, t01=0x0108}
0x58a0…58ac               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0134}
0x58ac…58b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0140}
0x58b6…58cc               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0038, t01=0x014a}
0x58cc…58f2               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTCYL,A2 NEW CYLINDER «, t00=0x0038, t01=0x0160}
0x58f2…58fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0186}
0x58fe…5926 (57, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» LDK A4,QRETRY NUMBER OF RETRIES«, t00=0x0039, t01=0x0004}
0x5926…593a               Head {h00=0x0010, h01=0x0050, text=»SEE:10 EQU *«, t00=0x0039, t01=0x002c}
0x593a…5950               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0039, t01=0x0040}
0x5950…5978               Head {h00=0x0024, h01=0x0050, text=» CF A5,INXUNI DOUBLED UNIT INDEX«, t00=0x0039, t01=0x0056}
0x5978…5984               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x007e}
0x5984…5998               Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0039, t01=0x008a}
0x5998…59b6               Head {h00=0x001a, h01=0x0050, text=» SLC A1,5 RETURN CODE «, t00=0x0039, t01=0x009e}
0x59b6…59ce               Head {h00=0x0014, h01=0x0050, text=» RF(N) SEE:30 OK«, t00=0x0039, t01=0x00bc}
0x59ce…59d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d4}
0x59d8…59ee               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0039, t01=0x00de}
0x59ee…59f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f4}
0x59f8…5a02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00fe}
0x5a02…5a16               Head {h00=0x0010, h01=0x0050, text=»SEE:15 EQU *«, t00=0x0039, t01=0x0108}
0x5a16…5a38               Head {h00=0x001e, h01=0x0050, text=» CF A5,SEEKZ SEEK CYL ZERO«, t00=0x0039, t01=0x011c}
0x5a38…5a56               Head {h00=0x001a, h01=0x0050, text=» SLC A1,6 RETURN CODE «, t00=0x0039, t01=0x013e}
0x5a56…5a72               Head {h00=0x0018, h01=0x0050, text=» RF(N) SEE:20 ERROR «, t00=0x0039, t01=0x015c}
0x5a72…5a96               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0039, t01=0x0178}
0x5a96…5ab6               Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 RETRY COUNTER «, t00=0x003a, t01=0x000c}
0x5ab6…5ad6               Head {h00=0x001c, h01=0x0050, text=» RB(NZ) SEE:10 TRY AGAIN«, t00=0x003a, t01=0x002c}
0x5ad6…5aea               Head {h00=0x0010, h01=0x0050, text=»SEE:20 EQU *«, t00=0x003a, t01=0x004c}
0x5aea…5b00               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x003a, t01=0x0060}
0x5b00…5b16               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003a, t01=0x0076}
0x5b16…5b2c               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003a, t01=0x008c}
0x5b2c…5b5a               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A2 DUMMY CYLINDER NUMBER«, t00=0x003a, t01=0x00a2}
0x5b5a…5b66               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00d0}
0x5b66…5b7c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003a, t01=0x00dc}
0x5b7c…5baa               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A6 DUMMY CYLINDER NUMBER«, t00=0x003a, t01=0x00f2}
0x5baa…5bb6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0120}
0x5bb6…5bd6               Head {h00=0x001c, h01=0x0050, text=» LDK A1,/02 RETURN CODE «, t00=0x003a, t01=0x012c}
0x5bd6…5bf0               Head {h00=0x0016, h01=0x0050, text=» RF SEE:35 END IO «, t00=0x003a, t01=0x014c}
0x5bf0…5bfa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0166}
0x5bfa…5c10               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003a, t01=0x0170}
0x5c10…5c1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0186}
0x5c1a…5c24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0190}
0x5c24…5c38               Head {h00=0x0010, h01=0x0050, text=»SEE:30 EQU *«, t00=0x003b, t01=0x000a}
0x5c38…5c4e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003b, t01=0x001e}
0x5c4e…5c64               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003b, t01=0x0034}
0x5c64…5c70               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x004a}
0x5c70…5c8c               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x003b, t01=0x0056}
0x5c8c…5cae               Head {h00=0x001e, h01=0x0050, text=» LD* A1,4,A5 GET DATA WORD«, t00=0x003b, t01=0x0072}
0x5cae…5cc0               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x003b, t01=0x0094}
0x5cc0…5ce0               Head {h00=0x001c, h01=0x0050, text=» RF(NN) SEE:31 FORMAT A3«, t00=0x003b, t01=0x00a6}
0x5ce0…5cec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x00c6}
0x5cec…5cf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00d2}
0x5cf6…5d0c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x003b, t01=0x00dc}
0x5d0c…5d22               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003b, t01=0x00f2}
0x5d22…5d2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0108}
0x5d2c…5d36               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0112}
0x5d36…5d4c               Head {h00=0x0012, h01=0x0050, text=»*   FORMAT A2 «, t00=0x003b, t01=0x011c}
0x5d4c…5d56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0132}
0x5d56…5d68               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003b, t01=0x013c}
0x5d68…5d7c               Head {h00=0x0010, h01=0x0050, text=» CF A5,SKEW «, t00=0x003b, t01=0x014e}
0x5d7c…5da0               Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8002 READ 2 WORDS «, t00=0x003b, t01=0x0162}
0x5da0…5dd8               Head {h00=0x0034, h01=0x0050, text=» LDKL A2,CYLBUF READ TO CYLINDER CHECK BUFFER =2«, t00=0x003b, t01=0x0186}
0x5dd8…5dee               Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:50 «, t00=0x003c, t01=0x002e}
0x5dee…5e0e               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/1F ERROR CHECK «, t00=0x003c, t01=0x0044}
0x5e0e…5e24               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SEE:32«, t00=0x003c, t01=0x0064}
0x5e24…5e4c               Head {h00=0x0024, h01=0x0050, text=» LD A3,CYLBUF GET CYLINDER ID =2«, t00=0x003c, t01=0x007a}
0x5e4c…5e62               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003c, t01=0x00a2}
0x5e62…5e78               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003c, t01=0x00b8}
0x5e78…5ea8               Head {h00=0x002c, h01=0x0050, text=» CW A3,DWTCYL,A2 CHECK IF SAME CYLINDER «, t00=0x003c, t01=0x00ce}
0x5ea8…5eb4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x00fe}
0x5eb4…5eca               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x003c, t01=0x010a}
0x5eca…5ee0               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003c, t01=0x0120}
0x5ee0…5f10               Head {h00=0x002c, h01=0x0050, text=» CW A3,DWTCYL,A6 CHECK IF SAME CYLINDER «, t00=0x003c, t01=0x0136}
0x5f10…5f1c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0166}
0x5f1c…5f32               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x003c, t01=0x0172}
0x5f32…5f58               Head {h00=0x0022, h01=0x0050, text=» RB(NE) SEE:15 NOT SAME CYL ID«, t00=0x003c, t01=0x0188}
0x5f58…5f6c               Head {h00=0x0010, h01=0x0050, text=»VA2BR EQU * «, t00=0x003d, t01=0x001e}
0x5f6c…5f80               Head {h00=0x0010, h01=0x0050, text=» ABL VA2:00 «, t00=0x003d, t01=0x0032}
0x5f80…5f8c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0046}
0x5f8c…5f96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0052}
0x5f96…5fac               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003d, t01=0x005c}
0x5fac…5fc2               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003d, t01=0x0072}
0x5fc2…5fcc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0088}
0x5fcc…5fd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0092}
0x5fd6…5fec               Head {h00=0x0012, h01=0x0050, text=»*   FORMAT A3 «, t00=0x003d, t01=0x009c}
0x5fec…5ff6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00b2}
0x5ff6…600a               Head {h00=0x0010, h01=0x0050, text=»SEE:31 EQU *«, t00=0x003d, t01=0x00bc}
0x600a…6020               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003d, t01=0x00d0}
0x6020…6038               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTCYL,A2«, t00=0x003d, t01=0x00e6}
0x6038…6044               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00fe}
0x6044…605a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003d, t01=0x010a}
0x605a…6070               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003d, t01=0x0120}
0x6070…6088               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTCYL,A6«, t00=0x003d, t01=0x0136}
0x6088…6094               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x014e}
0x6094…609e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x015a}
0x609e…60b4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003d, t01=0x0164}
0x60b4…60d8               Head {h00=0x0020, h01=0x0050, text=» SLL A3,5 GET SECTOR NUMBER «, t00=0x003d, t01=0x017a}
0x60d8…6100               Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTBSE,A6 SAVE FOR BSELOD«, t00=0x003e, t01=0x000e}
0x6100…6112               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003e, t01=0x0036}
0x6112…6144               Head {h00=0x002e, h01=0x0050, text=» CF A5,SKEW TO READ SECTOR 0 OR 8 ON DISC «, t00=0x003e, t01=0x0048}
0x6144…6178               Head {h00=0x0030, h01=0x0050, text=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER«, t00=0x003e, t01=0x007a}
0x6178…618c               Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x003e, t01=0x00ae}
0x618c…61c2               Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTBSE,A6 GET SECTOR NUMBER FOR BSELOD «, t00=0x003e, t01=0x00c2}
0x61c2…61e6               Head {h00=0x0020, h01=0x0050, text=» ANK A1,/1F ERROR CODE CHECK«, t00=0x003e, t01=0x00f8}
0x61e6…61fc               Head {h00=0x0012, h01=0x0050, text=» CF A5,BSEL00 «, t00=0x003e, t01=0x011c}
0x61fc…6214               Head {h00=0x0014, h01=0x0050, text=» RF(Z) SEE:40 OK«, t00=0x003e, t01=0x0132}
0x6214…6220               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x014a}
0x6220…622a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0156}
0x622a…623e               Head {h00=0x0010, h01=0x0050, text=»SEE:32 EQU *«, t00=0x003e, t01=0x0160}
0x623e…6262               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x003e, t01=0x0174}
0x6262…6282               Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 RETRY COUNTER «, t00=0x003f, t01=0x0008}
0x6282…629e               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) SEE:15 RETRY«, t00=0x003f, t01=0x0028}
0x629e…62b2               Head {h00=0x0010, h01=0x0050, text=»SEE:35 EQU *«, t00=0x003f, t01=0x0044}
0x62b2…62c6               Head {h00=0x0010, h01=0x0050, text=» ABL END:10 «, t00=0x003f, t01=0x0058}
0x62c6…62d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x006c}
0x62d0…62e6               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003f, t01=0x0076}
0x62e6…62f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x008c}
0x62f0…6306               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003f, t01=0x0096}
0x6306…6310               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00ac}
0x6310…631a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00b6}
0x631a…632e               Head {h00=0x0010, h01=0x0050, text=»SEE:40 EQU *«, t00=0x003f, t01=0x00c0}
0x632e…6344               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003f, t01=0x00d4}
0x6344…635a               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003f, t01=0x00ea}
0x635a…6386               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x003f, t01=0x0100}
0x6386…6392               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x012c}
0x6392…63a8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003f, t01=0x0138}
0x63a8…63be               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003f, t01=0x014e}
0x63be…63ea               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x003f, t01=0x0164}
0x63ea…63f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0190}
0x63f6…640c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0040, t01=0x000c}
0x640c…643c               Head {h00=0x002c, h01=0x0050, text=» CW A3,BUFFER+PHSECL COMPARE WITH CYL ID«, t00=0x0040, t01=0x0022}
0x643c…6458               Head {h00=0x0018, h01=0x0050, text=» RB(NE) SEE:15 RETRY«, t00=0x0040, t01=0x0052}
0x6458…6462               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x006e}
0x6462…6478               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0040, t01=0x0078}
0x6478…6482               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x008e}
0x6482…64a4               Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0040, t01=0x0098}
0x64a4…64c6               Head {h00=0x001e, h01=0x0050, text=»*                       * «, t00=0x0040, t01=0x00ba}
0x64c6…64e8               Head {h00=0x001e, h01=0x0050, text=»*   READ AND WRITE      * «, t00=0x0040, t01=0x00dc}
0x64e8…650a               Head {h00=0x001e, h01=0x0050, text=»*   FORMAT A3           * «, t00=0x0040, t01=0x00fe}
0x650a…652c               Head {h00=0x001e, h01=0x0050, text=»*                       * «, t00=0x0040, t01=0x0120}
0x652c…654e               Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0040, t01=0x0142}
0x654e…6558               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0164}
0x6558…656c               Head {h00=0x0010, h01=0x0050, text=»SEE:90 EQU *«, t00=0x0040, t01=0x016e}
0x656c…658e               Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTOR,A6 GET ORDER «, t00=0x0040, t01=0x0182}
0x658e…65a0               Head {h00=0x000e, h01=0x0050, text=» ANK A4,4 «, t00=0x0041, t01=0x0014}
0x65a0…65c0               Head {h00=0x001c, h01=0x0050, text=» RF(Z) READ00 READ ORDER«, t00=0x0041, t01=0x0026}
0x65c0…65d4               Head {h00=0x0010, h01=0x0050, text=» LD* A2,4,A5«, t00=0x0041, t01=0x0046}
0x65d4…6608               Head {h00=0x0030, h01=0x0050, text=» RF(N) WRIT20 WRITE DIRECT FROM USER BUFFER «, t00=0x0041, t01=0x005a}
0x6608…661a               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0041, t01=0x008e}
0x661a…662c               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0041, t01=0x00a0}
0x662c…6652               Head {h00=0x0022, h01=0x0050, text=» RF(N) READWR READ AFTER WRITE«, t00=0x0041, t01=0x00b2}
0x6652…665e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00d8}
0x665e…6668               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00e4}
0x6668…667e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0041, t01=0x00ee}
0x667e…6696               Head {h00=0x0014, h01=0x0050, text=» CWK A2,PHSECL  «, t00=0x0041, t01=0x0104}
0x6696…66c4               Head {h00=0x002a, h01=0x0050, text=» RF(E) WRIT10 WRITE FROM DRIVER BUFFER«, t00=0x0041, t01=0x011c}
0x66c4…66f8               Head {h00=0x0030, h01=0x0050, text=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER«, t00=0x0041, t01=0x014a}
0x66f8…6720               Head {h00=0x0024, h01=0x0050, text=» CF A5,REA:00 READ BEFORE WRITE «, t00=0x0041, t01=0x017e}
0x6720…672a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0016}
0x672a…6740               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0042, t01=0x0020}
0x6740…674a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0036}
0x674a…6754               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0040}
0x6754…6768               Head {h00=0x0010, h01=0x0050, text=»WRIT10 EQU *«, t00=0x0042, t01=0x004a}
0x6768…678a               Head {h00=0x001e, h01=0x0050, text=» LD* A2,4,A5 GET DATA WORD«, t00=0x0042, t01=0x005e}
0x678a…679c               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0042, t01=0x0080}
0x679c…67cc               Head {h00=0x002c, h01=0x0050, text=» ANK A4,/C0 GET NUMBER OF WORDS TO MOVE «, t00=0x0042, t01=0x0092}
0x67cc…67e4               Head {h00=0x0014, h01=0x0050, text=» SLL A4,1 BYTES «, t00=0x0042, t01=0x00c2}
0x67e4…6812               Head {h00=0x002a, h01=0x0050, text=» ANK A2,/F BEG ADRESS IN DRIVER BUFFER«, t00=0x0042, t01=0x00da}
0x6812…6824               Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0042, t01=0x0108}
0x6824…6850               Head {h00=0x0028, h01=0x0050, text=» CF A5,MOVWRI MOVE TO DRIVER BUFFER «, t00=0x0042, t01=0x011a}
0x6850…6866               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0042, t01=0x0146}
0x6866…687c               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0042, t01=0x015c}
0x687c…68a8               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0042, t01=0x0172}
0x68a8…68b4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x000e}
0x68b4…68ca               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0043, t01=0x001a}
0x68ca…68e0               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0043, t01=0x0030}
0x68e0…690c               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x0043, t01=0x0046}
0x690c…6918               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x0072}
0x6918…692e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0043, t01=0x007e}
0x692e…6960               Head {h00=0x002e, h01=0x0050, text=» ST A2,BUFFER+PHSECL PUT IN DRIVER BUFFER «, t00=0x0043, t01=0x0094}
0x6960…6998               Head {h00=0x0034, h01=0x0050, text=» IM DWTFBU,A6 INDICATE WRITE FROM DRIVER BUFFER «, t00=0x0043, t01=0x00c6}
0x6998…69c6               Head {h00=0x002a, h01=0x0050, text=» CF A5,WRI:00 WRITE FROM DRIVER BUFFER«, t00=0x0043, t01=0x00fe}
0x69c6…69d8               Head {h00=0x000e, h01=0x0050, text=» RF SEE:95«, t00=0x0043, t01=0x012c}
0x69d8…69e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x013e}
0x69e2…69f8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0043, t01=0x0148}
0x69f8…6a02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x015e}
0x6a02…6a0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0168}
0x6a0c…6a20               Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x0043, t01=0x0172}
0x6a20…6a36               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0043, t01=0x0186}
0x6a36…6a64               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,PHSECL PHYSICAL SECTOR LENGTH«, t00=0x0044, t01=0x000c}
0x6a64…6a98               Head {h00=0x0030, h01=0x0050, text=» ADS A2,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x0044, t01=0x003a}
0x6a98…6aca               Head {h00=0x002e, h01=0x0050, text=» LD* A4,DWTUBU,A6 GET WORD IN USER BUFFER «, t00=0x0044, t01=0x006e}
0x6aca…6aec               Head {h00=0x001e, h01=0x0050, text=» ST A4,DWTSWD,A6 SAVE WORD«, t00=0x0044, t01=0x00a0}
0x6aec…6b16               Head {h00=0x0026, h01=0x0050, text=» IM DWTFSW,A6 INDICATE SAVED WORD «, t00=0x0044, t01=0x00c2}
0x6b16…6b2c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0044, t01=0x00ec}
0x6b2c…6b42               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0044, t01=0x0102}
0x6b42…6b6e               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0044, t01=0x0118}
0x6b6e…6b9a               Head {h00=0x0028, h01=0x0050, text=» ST* A2,DWTUBU,A6 PUT IN USER BUFFER«, t00=0x0044, t01=0x0144}
0x6b9a…6ba6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0170}
0x6ba6…6bbc               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0044, t01=0x017c}
0x6bbc…6bd2 (69, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0045, t01=0x0004}
0x6bd2…6be8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0045, t01=0x001a}
0x6be8…6c00               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTCYL,A6«, t00=0x0045, t01=0x0030}
0x6c00…6c2c               Head {h00=0x0028, h01=0x0050, text=» ST* A2,DWTUBU,A6 PUT IN USER BUFFER«, t00=0x0045, t01=0x0048}
0x6c2c…6c38               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0074}
0x6c38…6c42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0080}
0x6c42…6c58               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0045, t01=0x008a}
0x6c58…6c6e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0045, t01=0x00a0}
0x6c6e…6c84               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0045, t01=0x00b6}
0x6c84…6c9a               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0045, t01=0x00cc}
0x6c9a…6cc6               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0045, t01=0x00e2}
0x6cc6…6cd2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x010e}
0x6cd2…6ce8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0045, t01=0x011a}
0x6ce8…6cfe               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0045, t01=0x0130}
0x6cfe…6d14               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0045, t01=0x0146}
0x6d14…6d40               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x0045, t01=0x015c}
0x6d40…6d4c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0188}
0x6d4c…6d62 (70, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0046, t01=0x0004}
0x6d62…6d78               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0046, t01=0x001a}
0x6d78…6dac               Head {h00=0x0030, h01=0x0050, text=» ML 2,DWTBA1,A6 GET PHYSICAL BUFFER ADDRESS «, t00=0x0046, t01=0x0030}
0x6dac…6dce               Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRIT30 SYSTEM AREA «, t00=0x0046, t01=0x0064}
0x6dce…6dfa               Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS ON STACK «, t00=0x0046, t01=0x0086}
0x6dfa…6e26               Head {h00=0x0028, h01=0x0050, text=» TL DWTPAG,A6 LOAD PAGE WITH CYL ID «, t00=0x0046, t01=0x00b2}
0x6e26…6e5a               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTUBU,A6 GET LOGICAL BUFFER POINTER «, t00=0x0046, t01=0x00de}
0x6e5a…6e84               Head {h00=0x0026, h01=0x0050, text=» EL A3,PHSECL,A2 GET WORD TO SAVE «, t00=0x0046, t01=0x0112}
0x6e84…6eb4               Head {h00=0x002c, h01=0x0050, text=» ES A4,PHSECL,A2 PUT CYL ID IN POSITION «, t00=0x0046, t01=0x013c}
0x6eb4…6ed6               Head {h00=0x001e, h01=0x0050, text=» TL -30,A15 GET REGISTERS «, t00=0x0046, t01=0x016c}
0x6ed6…6ee8               Head {h00=0x000e, h01=0x0050, text=» RF WRIT40«, t00=0x0046, t01=0x018e}
0x6ee8…6efc               Head {h00=0x0010, h01=0x0050, text=»WRIT30 EQU *«, t00=0x0047, t01=0x0010}
0x6efc…6f1a               Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 BYTE ADDRESS«, t00=0x0047, t01=0x0024}
0x6f1a…6f48               Head {h00=0x002a, h01=0x0050, text=» LD A3,PHSECL,A2 GET WORD TO BE SAVED «, t00=0x0047, t01=0x0042}
0x6f48…6f74               Head {h00=0x0028, h01=0x0050, text=» ST A4,PHSECL,A2 CYL ID IN POSITION «, t00=0x0047, t01=0x0070}
0x6f74…6f88               Head {h00=0x0010, h01=0x0050, text=»WRIT40 EQU *«, t00=0x0047, t01=0x009c}
0x6f88…6faa               Head {h00=0x001e, h01=0x0050, text=» ST A3,DWTSWD,A6 SAVA WORD«, t00=0x0047, t01=0x00b0}
0x6faa…6fd4               Head {h00=0x0026, h01=0x0050, text=» IM DWTFSW,A6 INDICATE SAVED WORD «, t00=0x0047, t01=0x00d2}
0x6fd4…6fe0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x00fc}
0x6fe0…6fea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0108}
0x6fea…7000               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0047, t01=0x0112}
0x7000…7036               Head {h00=0x0032, h01=0x0050, text=» CM DWTFBU,A6 INDICATE WRITE FROM USER BUFFER «, t00=0x0047, t01=0x0128}
0x7036…706a               Head {h00=0x0030, h01=0x0050, text=» CF A5,WRI:00 WRITE SECTOR FROM USER BUFFER «, t00=0x0047, t01=0x015e}
0x706a…709c (72, 0, 398)  Head {h00=0x002e, h01=0x0050, text=» CF A5,REWORD RESTORE WORD TO USER BUFFER «, t00=0x0048, t01=0x0004}
0x709c…70ae               Head {h00=0x000e, h01=0x0050, text=» RF SEE:95«, t00=0x0048, t01=0x0036}
0x70ae…70b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0048}
0x70b8…70ce               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0048, t01=0x0052}
0x70ce…70d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0068}
0x70d8…70e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0072}
0x70e2…70f4               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0048, t01=0x007c}
0x70f4…7108               Head {h00=0x0010, h01=0x0050, text=»READWR EQU *«, t00=0x0048, t01=0x008e}
0x7108…712e               Head {h00=0x0022, h01=0x0050, text=» CF A5,REA:10 READ AFTER WRITE«, t00=0x0048, t01=0x00a2}
0x712e…7140               Head {h00=0x000e, h01=0x0050, text=» RF SEE:97«, t00=0x0048, t01=0x00c8}
0x7140…714c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x00da}
0x714c…7156               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00e6}
0x7156…716c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0048, t01=0x00f0}
0x716c…7180               Head {h00=0x0010, h01=0x0050, text=»READ00 EQU *«, t00=0x0048, t01=0x0106}
0x7180…71a2               Head {h00=0x001e, h01=0x0050, text=» LD* A2,4,A5 GET DATA WORD«, t00=0x0048, t01=0x011a}
0x71a2…71c4               Head {h00=0x001e, h01=0x0050, text=» RF(N) READ20 DIRECT READ «, t00=0x0048, t01=0x013c}
0x71c4…71f8               Head {h00=0x0030, h01=0x0050, text=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER«, t00=0x0048, t01=0x015e}
0x71f8…7224 (73, 0, 398)  Head {h00=0x0028, h01=0x0050, text=» CF A5,REA:00 READ TO DRIVER BUFFER «, t00=0x0049, t01=0x0004}
0x7224…7246               Head {h00=0x001e, h01=0x0050, text=» LD* A1,4,A5 GET DATA WORD«, t00=0x0049, t01=0x0030}
0x7246…7258               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0049, t01=0x0052}
0x7258…726a               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0049, t01=0x0064}
0x726a…72a0               Head {h00=0x0032, h01=0x0050, text=» ANKL A4,/180 GET NUMBER OF BYTES TO BE MOVED «, t00=0x0049, t01=0x0076}
0x72a0…72c0               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/18 GET POSITION«, t00=0x0049, t01=0x00ac}
0x72c0…72d2               Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0049, t01=0x00cc}
0x72d2…72e8               Head {h00=0x0012, h01=0x0050, text=» CF A5,MOVRED «, t00=0x0049, t01=0x00de}
0x72e8…72fa               Head {h00=0x000e, h01=0x0050, text=» RF SEE:95«, t00=0x0049, t01=0x00f4}
0x72fa…730e               Head {h00=0x0010, h01=0x0050, text=»READ20 EQU *«, t00=0x0049, t01=0x0106}
0x730e…7324               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0049, t01=0x011a}
0x7324…733c               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,PHSECL «, t00=0x0049, t01=0x0130}
0x733c…7370               Head {h00=0x0030, h01=0x0050, text=» ADS A3,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x0049, t01=0x0148}
0x7370…737c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x017c}
0x737c…7386               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0188}
0x7386…739c (74, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x004a, t01=0x0004}
0x739c…73ce               Head {h00=0x002e, h01=0x0050, text=» CM DWTFBU,A6 INDICATE READ TO USER BUFFER«, t00=0x004a, t01=0x001a}
0x73ce…73f8               Head {h00=0x0026, h01=0x0050, text=» CF A5,REA:00 READ TO USER BUFFER «, t00=0x004a, t01=0x004c}
0x73f8…740c               Head {h00=0x0010, h01=0x0050, text=»SEE:95 EQU *«, t00=0x004a, t01=0x0076}
0x740c…743a               Head {h00=0x002a, h01=0x0050, text=» IMR A6 UPDATE PHYSICAL SECTOR POINTER«, t00=0x004a, t01=0x008a}
0x743a…7446               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x00b8}
0x7446…7450               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00c4}
0x7450…7466               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x004a, t01=0x00ce}
0x7466…7470               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00e4}
0x7470…747a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00ee}
0x747a…748e               Head {h00=0x0010, h01=0x0050, text=»SEE:96 EQU *«, t00=0x004a, t01=0x00f8}
0x748e…74b0               Head {h00=0x001e, h01=0x0050, text=» LD* A2,4,A5 GET DATA WORD«, t00=0x004a, t01=0x010c}
0x74b0…74ca               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/C0 LENGTH«, t00=0x004a, t01=0x012e}
0x74ca…74dc               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004a, t01=0x0148}
0x74dc…7502               Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x004a, t01=0x015a}
0x7502…750c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0180}
0x750c…7522               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004a, t01=0x018a}
0x7522…7534               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x004b, t01=0x0010}
0x7534…7550               Head {h00=0x0018, h01=0x0050, text=» SRL A2,1 WORD MODE «, t00=0x004b, t01=0x0022}
0x7550…7584               Head {h00=0x0030, h01=0x0050, text=» DA DWTBA1,A6 UPDATE PHYSICAL BUFFER ADDRESS«, t00=0x004b, t01=0x003e}
0x7584…75ae               Head {h00=0x0026, h01=0x0050, text=» CF A5,MMULOG GET LOGICAL ADDRESS «, t00=0x004b, t01=0x0072}
0x75ae…75ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x009c}
0x75ba…75c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00a8}
0x75c4…75d8               Head {h00=0x0010, h01=0x0050, text=»SEE:97 EQU *«, t00=0x004b, t01=0x00b2}
0x75d8…75f8               Head {h00=0x001c, h01=0x0050, text=» LDK A1,2 UPDATE RETURN «, t00=0x004b, t01=0x00c6}
0x75f8…760c               Head {h00=0x0010, h01=0x0050, text=» ADS A1,4,A5«, t00=0x004b, t01=0x00e6}
0x760c…761c               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x00fa}
0x761c…7626               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x010a}
0x7626…763c               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x004b, t01=0x0114}
0x763c…7646               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x012a}
0x7646…765c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004b, t01=0x0134}
0x765c…7666               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x014a}
0x7666…7670               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0154}
0x7670…7698               Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x004b, t01=0x015e}
0x7698…76c0               Head {h00=0x0024, h01=0x0050, text=»*                              *«, t00=0x004b, t01=0x0186}
0x76c0…76e8               Head {h00=0x0024, h01=0x0050, text=»*   DISC FORMAT A2             *«, t00=0x004c, t01=0x001e}
0x76e8…7710               Head {h00=0x0024, h01=0x0050, text=»*                              *«, t00=0x004c, t01=0x0046}
0x7710…7738               Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x004c, t01=0x006e}
0x7738…7742               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0096}
0x7742…774c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00a0}
0x774c…7760               Head {h00=0x0010, h01=0x0050, text=»VA2:00 EQU *«, t00=0x004c, t01=0x00aa}
0x7760…777e               Head {h00=0x001a, h01=0x0050, text=» LDK A4,QRETRY RETRIES«, t00=0x004c, t01=0x00be}
0x777e…7792               Head {h00=0x0010, h01=0x0050, text=»VA2:10 EQU *«, t00=0x004c, t01=0x00dc}
0x7792…77a8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x004c, t01=0x00f0}
0x77a8…77be               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x004c, t01=0x0106}
0x77be…77ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004c, t01=0x011c}
0x77ca…77e0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004c, t01=0x0128}
0x77e0…7808               Head {h00=0x0024, h01=0x0050, text=» CF A5,INLACE INTERLACE AND SKEW«, t00=0x004c, t01=0x013e}
0x7808…7812               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0166}
0x7812…7828               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004c, t01=0x0170}
0x7828…7846               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/8080 1ST WER«, t00=0x004c, t01=0x0186}
0x7846…7858               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x004d, t01=0x0014}
0x7858…786c               Head {h00=0x0010, h01=0x0050, text=» LD* A2,4,A5«, t00=0x004d, t01=0x0026}
0x786c…787e               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004d, t01=0x003a}
0x787e…78aa               Head {h00=0x0028, h01=0x0050, text=» RF(NN) VA2:20 NOT READ AFTER WRITE «, t00=0x004d, t01=0x004c}
0x78aa…78c2               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x004d, t01=0x0078}
0x78c2…78d4               Head {h00=0x000e, h01=0x0050, text=» RF VA2:35«, t00=0x004d, t01=0x0090}
0x78d4…78e8               Head {h00=0x0010, h01=0x0050, text=»VA2:20 EQU *«, t00=0x004d, t01=0x00a2}
0x78e8…78f4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00b6}
0x78f4…78fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00c2}
0x78fe…7914               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004d, t01=0x00cc}
0x7914…792a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004d, t01=0x00e2}
0x792a…7950               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0808 1ST WER SHIFTED«, t00=0x004d, t01=0x00f8}
0x7950…795c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x011e}
0x795c…7966               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x012a}
0x7966…797c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004d, t01=0x0134}
0x797c…798e               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x004d, t01=0x014a}
0x798e…79a4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004d, t01=0x015c}
0x79a4…79b8               Head {h00=0x0010, h01=0x0050, text=» LD* A2,4,A5«, t00=0x004d, t01=0x0172}
0x79b8…79ca               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004d, t01=0x0186}
0x79ca…79f6               Head {h00=0x0028, h01=0x0050, text=» RF(NN) VA2:20 NOT READ AFTER WRITE «, t00=0x004e, t01=0x0008}
0x79f6…7a0c               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8080«, t00=0x004e, t01=0x0034}
0x7a0c…7a24               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x004e, t01=0x004a}
0x7a24…7a36               Head {h00=0x000e, h01=0x0050, text=» RF VA2:35«, t00=0x004e, t01=0x0062}
0x7a36…7a4a               Head {h00=0x0010, h01=0x0050, text=»VA2:20 EQU *«, t00=0x004e, t01=0x0074}
0x7a4a…7a56               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0088}
0x7a56…7a60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0094}
0x7a60…7a76               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004e, t01=0x009e}
0x7a76…7a98               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTOR,A6 GET ORDER «, t00=0x004e, t01=0x00b4}
0x7a98…7aaa               Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004e, t01=0x00d6}
0x7aaa…7ac4               Head {h00=0x0016, h01=0x0050, text=» RF(Z) VA2:30 READ«, t00=0x004e, t01=0x00e8}
0x7ac4…7ace               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0102}
0x7ace…7ae4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004e, t01=0x010c}
0x7ae4…7afa               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C080«, t00=0x004e, t01=0x0122}
0x7afa…7b06               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0138}
0x7b06…7b10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0144}
0x7b10…7b26               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004e, t01=0x014e}
0x7b26…7b3c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004e, t01=0x0164}
0x7b3c…7b62               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/080C 1ST WER SHIFTED«, t00=0x004e, t01=0x017a}
0x7b62…7b6e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0010}
0x7b6e…7b78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x001c}
0x7b78…7b8e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004f, t01=0x0026}
0x7b8e…7bb4               Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 ORDER CODE FOR WRITE«, t00=0x004f, t01=0x003c}
0x7bb4…7bbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0062}
0x7bbe…7bd4               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x004f, t01=0x006c}
0x7bd4…7bde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0082}
0x7bde…7be8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x008c}
0x7be8…7bfc               Head {h00=0x0010, h01=0x0050, text=»VA2:30 EQU *«, t00=0x004f, t01=0x0096}
0x7bfc…7c06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00aa}
0x7c06…7c1c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004f, t01=0x00b4}
0x7c1c…7c3c               Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTUBU,A6 2ND WER«, t00=0x004f, t01=0x00ca}
0x7c3c…7c48               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x00ea}
0x7c48…7c52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00f6}
0x7c52…7c68               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004f, t01=0x0100}
0x7c68…7c7e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004f, t01=0x0116}
0x7c7e…7c90               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x004f, t01=0x012c}
0x7c90…7ca6               Head {h00=0x0012, h01=0x0050, text=» DA DWTBA1,A6 «, t00=0x004f, t01=0x013e}
0x7ca6…7ccc               Head {h00=0x0022, h01=0x0050, text=» SRC A1,4 1ST WER IN POSITION «, t00=0x004f, t01=0x0154}
0x7ccc…7cf2               Head {h00=0x0022, h01=0x0050, text=» SLL A2,1 2ND WER IN POSITION «, t00=0x004f, t01=0x017a}
0x7cf2…7cfe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0010}
0x7cfe…7d08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x001c}
0x7d08…7d1e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0050, t01=0x0026}
0x7d1e…7d32               Head {h00=0x0010, h01=0x0050, text=»VA2:35 EQU *«, t00=0x0050, t01=0x003c}
0x7d32…7d48               Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:50 «, t00=0x0050, t01=0x0050}
0x7d48…7d5c               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1F «, t00=0x0050, t01=0x0066}
0x7d5c…7d7a               Head {h00=0x001a, h01=0x0050, text=» RF(Z) VA2:40 IO ERROR«, t00=0x0050, t01=0x007a}
0x7d7a…7d90               Head {h00=0x0012, h01=0x0050, text=» IM DWTRTY,A6 «, t00=0x0050, t01=0x0098}
0x7d90…7da2               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0050, t01=0x00ae}
0x7da2…7dbe               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) VA2:10 RETRY«, t00=0x0050, t01=0x00c0}
0x7dbe…7dd6               Head {h00=0x0014, h01=0x0050, text=» RF WRI:50 ERROR«, t00=0x0050, t01=0x00dc}
0x7dd6…7de0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00f4}
0x7de0…7df6               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0050, t01=0x00fe}
0x7df6…7e00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0114}
0x7e00…7e0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x011e}
0x7e0a…7e1e               Head {h00=0x0010, h01=0x0050, text=»VA2:40 EQU *«, t00=0x0050, t01=0x0128}
0x7e1e…7e4c               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 GET PHYSICAL SECTOR NUMBER«, t00=0x0050, t01=0x013c}
0x7e4c…7e6a               Head {h00=0x001a, h01=0x0050, text=» ADK A3,1 NEXT SECTOR «, t00=0x0050, t01=0x016a}
0x7e6a…7e7c               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0050, t01=0x0188}
0x7e7c…7e8e               Head {h00=0x000e, h01=0x0050, text=» CWK A2,31«, t00=0x0051, t01=0x000a}
0x7e8e…7eb4               Head {h00=0x0022, h01=0x0050, text=» RF(NE) VA2:50 NOT CYLINDER 0 «, t00=0x0051, t01=0x001c}
0x7eb4…7ede               Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 CYLINDER 0 TO CYLINDER 1«, t00=0x0051, t01=0x0042}
0x7ede…7ef2               Head {h00=0x0010, h01=0x0050, text=»VA2:50 EQU *«, t00=0x0051, t01=0x006c}
0x7ef2…7f06               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0051, t01=0x0080}
0x7f06…7f2a               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) VA2:60 SAME CYLINDER«, t00=0x0051, t01=0x0094}
0x7f2a…7f48               Head {h00=0x001a, h01=0x0050, text=» ADK A3,1 NEW CYLINDER«, t00=0x0051, t01=0x00b8}
0x7f48…7f5c               Head {h00=0x0010, h01=0x0050, text=»VA2:60 EQU *«, t00=0x0051, t01=0x00d6}
0x7f5c…7f86               Head {h00=0x0026, h01=0x0050, text=» STR A3,A6 PHYSICAL SECTOR NUMBER «, t00=0x0051, t01=0x00ea}
0x7f86…7f98               Head {h00=0x000e, h01=0x0050, text=» RB SEE:96«, t00=0x0051, t01=0x0114}
0x7f98…7fa4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0126}
0x7fa4…7fae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0132}
0x7fae…7fc4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0051, t01=0x013c}
0x7fc4…7fda               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0051, t01=0x0152}
0x7fda…7fe4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0168}
0x7fe4…8008               Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0051, t01=0x0172}
0x8008…802c               Head {h00=0x0020, h01=0x0050, text=»*                          *«, t00=0x0052, t01=0x0008}
0x802c…8050               Head {h00=0x0020, h01=0x0050, text=»*   SUBROUTINES FOR WRITE  *«, t00=0x0052, t01=0x002c}
0x8050…8074               Head {h00=0x0020, h01=0x0050, text=»*   FROM USER BUFFER:      *«, t00=0x0052, t01=0x0050}
0x8074…8098               Head {h00=0x0020, h01=0x0050, text=»*   FROM DRIVER     :      *«, t00=0x0052, t01=0x0074}
0x8098…80bc               Head {h00=0x0020, h01=0x0050, text=»*                          *«, t00=0x0052, t01=0x0098}
0x80bc…80e0               Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0052, t01=0x00bc}
0x80e0…80ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00e0}
0x80ea…80fe               Head {h00=0x0010, h01=0x0050, text=»WRI:00 EQU *«, t00=0x0052, t01=0x00ea}
0x80fe…811c               Head {h00=0x001a, h01=0x0050, text=» LDK A4,QRETRY RETRIES«, t00=0x0052, t01=0x00fe}
0x811c…8130               Head {h00=0x0010, h01=0x0050, text=»WRI:20 EQU *«, t00=0x0052, t01=0x011c}
0x8130…8146               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0052, t01=0x0130}
0x8146…815c               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0052, t01=0x0146}
0x815c…8168               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x015c}
0x8168…817e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0052, t01=0x0168}
0x817e…81ac               Head {h00=0x002a, h01=0x0050, text=» CF A5,INLACE INTERLACE SECTOR NUMBER «, t00=0x0052, t01=0x017e}
0x81ac…81c4               Head {h00=0x0014, h01=0x0050, text=» CF A5,WRITE CIO«, t00=0x0053, t01=0x001c}
0x81c4…81e6               Head {h00=0x001e, h01=0x0050, text=» ANK A1,/1F RETURN CODE ? «, t00=0x0053, t01=0x0034}
0x81e6…81fc               Head {h00=0x0012, h01=0x0050, text=» CF A5,BSELOD «, t00=0x0053, t01=0x0056}
0x81fc…8220               Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRI:80 NO RETURN CODE«, t00=0x0053, t01=0x006c}
0x8220…8244               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0053, t01=0x0090}
0x8244…826e               Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0053, t01=0x00b4}
0x826e…8284               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) WRI:20«, t00=0x0053, t01=0x00de}
0x8284…82b4               Head {h00=0x002c, h01=0x0050, text=» CF A5,REWORD RESTORE WORD IF NECESSARY «, t00=0x0053, t01=0x00f4}
0x82b4…82c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0053, t01=0x0124}
0x82c0…82ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0130}
0x82ca…82de               Head {h00=0x0010, h01=0x0050, text=»WRI:50 EQU *«, t00=0x0053, t01=0x013a}
0x82de…82fe               Head {h00=0x001c, h01=0x0050, text=» ABL END:10 ERROR END IO«, t00=0x0053, t01=0x014e}
0x82fe…8308               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x016e}
0x8308…831e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0053, t01=0x0178}
0x831e…8328               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x018e}
0x8328…833c               Head {h00=0x0010, h01=0x0050, text=»WRI:80 EQU *«, t00=0x0054, t01=0x0008}
0x833c…834c               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x001c}
0x834c…8356               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x002c}
0x8356…836c               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0054, t01=0x0036}
0x836c…8376               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x004c}
0x8376…83a0               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0054, t01=0x0056}
0x83a0…83ca               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0054, t01=0x0080}
0x83ca…83f4               Head {h00=0x0026, h01=0x0050, text=»*   SUBROUTINES FOR READ TO     * «, t00=0x0054, t01=0x00aa}
0x83f4…841e               Head {h00=0x0026, h01=0x0050, text=»*   USER BUFFER :               * «, t00=0x0054, t01=0x00d4}
0x841e…8448               Head {h00=0x0026, h01=0x0050, text=»*   DRIVER BUFFER :             * «, t00=0x0054, t01=0x00fe}
0x8448…8472               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0054, t01=0x0128}
0x8472…849c               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0054, t01=0x0152}
0x849c…84a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x017c}
0x84a6…84ba               Head {h00=0x0010, h01=0x0050, text=»REA:00 EQU *«, t00=0x0054, t01=0x0186}
0x84ba…84dc               Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTOR,A6 GET INDEX «, t00=0x0055, t01=0x000a}
0x84dc…84f2               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/300 «, t00=0x0055, t01=0x002c}
0x84f2…8510               Head {h00=0x001a, h01=0x0050, text=» SLL A3,6 IN POSITION «, t00=0x0055, t01=0x0042}
0x8510…8536               Head {h00=0x0022, h01=0x0050, text=» ORR* A3,A6 ADD SECTOR NUMBER «, t00=0x0055, t01=0x0060}
0x8536…855e               Head {h00=0x0024, h01=0x0050, text=» CW A3,DWTBSE,A6 ALLREADY READ ?«, t00=0x0055, t01=0x0086}
0x855e…8574               Head {h00=0x0012, h01=0x0050, text=» RF(E) REA:85 «, t00=0x0055, t01=0x00ae}
0x8574…8588               Head {h00=0x0010, h01=0x0050, text=»REA:10 EQU *«, t00=0x0055, t01=0x00c4}
0x8588…859e               Head {h00=0x0012, h01=0x0050, text=» LDK A4,QRETRY«, t00=0x0055, t01=0x00d8}
0x859e…85b2               Head {h00=0x0010, h01=0x0050, text=»REA:20 EQU *«, t00=0x0055, t01=0x00ee}
0x85b2…85c8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0055, t01=0x0102}
0x85c8…85de               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0055, t01=0x0118}
0x85de…85ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0055, t01=0x012e}
0x85ea…8600               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0055, t01=0x013a}
0x8600…862e               Head {h00=0x002a, h01=0x0050, text=» CF A5,INLACE INTERLACE SECTOR NUMBER «, t00=0x0055, t01=0x0150}
0x862e…864e               Head {h00=0x001c, h01=0x0050, text=» CF A5,READ READ SECTOR «, t00=0x0055, t01=0x017e}
0x864e…8660               Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0056, t01=0x000e}
0x8660…8694               Head {h00=0x0030, h01=0x0050, text=» CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR«, t00=0x0056, t01=0x0020}
0x8694…86b8               Head {h00=0x0020, h01=0x0050, text=» RF(Z) REA:30 NO RETURN CODE«, t00=0x0056, t01=0x0054}
0x86b8…86cc               Head {h00=0x0010, h01=0x0050, text=»REA:25 EQU *«, t00=0x0056, t01=0x0078}
0x86cc…86f0               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0056, t01=0x008c}
0x86f0…871a               Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0056, t01=0x00b0}
0x871a…8736               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) REA:20 RETRY«, t00=0x0056, t01=0x00da}
0x8736…874a               Head {h00=0x0010, h01=0x0050, text=» ABL END:20 «, t00=0x0056, t01=0x00f6}
0x874a…8754               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x010a}
0x8754…876a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0056, t01=0x0114}
0x876a…8774               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x012a}
0x8774…877e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0134}
0x877e…8792               Head {h00=0x0010, h01=0x0050, text=»REA:30 EQU *«, t00=0x0056, t01=0x013e}
0x8792…87aa               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x0056, t01=0x0152}
0x87aa…87d6               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) REA:40 READ TO DRIVER BUFFER«, t00=0x0056, t01=0x016a}
0x87d6…87ec               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0057, t01=0x0008}
0x87ec…8826               Head {h00=0x0036, h01=0x0050, text=» LD* A3,DWTUBU,A6 GET CYLINDER ID FROM USER BUFFER«, t00=0x0057, t01=0x001e}
0x8826…8838               Head {h00=0x000e, h01=0x0050, text=» RF REA:50«, t00=0x0057, t01=0x0058}
0x8838…8844               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x006a}
0x8844…884e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0076}
0x884e…8864               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0057, t01=0x0080}
0x8864…887a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0057, t01=0x0096}
0x887a…88a6               Head {h00=0x0028, h01=0x0050, text=» ML 2,DWTBA1,A6 GET PHYSICAL ADDRESS«, t00=0x0057, t01=0x00ac}
0x88a6…88c8               Head {h00=0x001e, h01=0x0050, text=» RF(Z) REA:35 SYSTEM AREA «, t00=0x0057, t01=0x00d8}
0x88c8…88ea               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x0057, t01=0x00fa}
0x88ea…890c               Head {h00=0x001e, h01=0x0050, text=» TL DWTPAG,A6 LOAD MMUPAGE«, t00=0x0057, t01=0x011c}
0x890c…8940               Head {h00=0x0030, h01=0x0050, text=» LD A3,DWTUBU,A6 GET LOGICAL BUFFER POINTER «, t00=0x0057, t01=0x013e}
0x8940…8964               Head {h00=0x0020, h01=0x0050, text=» EL A3,PHSECL,A3 GET CYL ID «, t00=0x0057, t01=0x0172}
0x8964…8988               Head {h00=0x0020, h01=0x0050, text=» TL -30,A15 RESET REGISTERS «, t00=0x0058, t01=0x0008}
0x8988…899a               Head {h00=0x000e, h01=0x0050, text=» RF REA:50«, t00=0x0058, t01=0x002c}
0x899a…89ae               Head {h00=0x0010, h01=0x0050, text=»REA:35 EQU *«, t00=0x0058, t01=0x003e}
0x89ae…89d4               Head {h00=0x0022, h01=0x0050, text=» SLL A2,1 ADDRESS TO BYTE MODE«, t00=0x0058, t01=0x0052}
0x89d4…89f8               Head {h00=0x0020, h01=0x0050, text=» LD A3,PHSECL,A2 GET CYL ID «, t00=0x0058, t01=0x0078}
0x89f8…8a0a               Head {h00=0x000e, h01=0x0050, text=» RF REA:50«, t00=0x0058, t01=0x009c}
0x8a0a…8a16               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x00ae}
0x8a16…8a20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00ba}
0x8a20…8a36               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0058, t01=0x00c4}
0x8a36…8a4a               Head {h00=0x0010, h01=0x0050, text=»REA:40 EQU *«, t00=0x0058, t01=0x00da}
0x8a4a…8a72               Head {h00=0x0024, h01=0x0050, text=» LD A3,BUFFER+PHSECL GET CYL ID «, t00=0x0058, t01=0x00ee}
0x8a72…8a86               Head {h00=0x0010, h01=0x0050, text=»REA:50 EQU *«, t00=0x0058, t01=0x0116}
0x8a86…8a9c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0058, t01=0x012a}
0x8a9c…8ab2               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0058, t01=0x0140}
0x8ab2…8aca               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A2«, t00=0x0058, t01=0x0156}
0x8aca…8ad6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x016e}
0x8ad6…8aec               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0058, t01=0x017a}
0x8aec…8b02               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0058, t01=0x0190}
0x8b02…8b1a               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A6«, t00=0x0059, t01=0x0016}
0x8b1a…8b26               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x002e}
0x8b26…8b3c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0059, t01=0x003a}
0x8b3c…8b64               Head {h00=0x0024, h01=0x0050, text=» RF(E) REA:90 RIGHT CYLINDER ID «, t00=0x0059, t01=0x0050}
0x8b64…8b80               Head {h00=0x0018, h01=0x0050, text=» LDK A1,2 SEEK ERROR«, t00=0x0059, t01=0x0078}
0x8b80…8b8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0094}
0x8b8a…8ba0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0059, t01=0x009e}
0x8ba0…8baa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00b4}
0x8baa…8bb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00be}
0x8bb4…8bc6               Head {h00=0x000e, h01=0x0050, text=» RB REA:25«, t00=0x0059, t01=0x00c8}
0x8bc6…8bda               Head {h00=0x0010, h01=0x0050, text=»REA:85 EQU *«, t00=0x0059, t01=0x00da}
0x8bda…8bf2               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFBU,A6«, t00=0x0059, t01=0x00ee}
0x8bf2…8c1e               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) REA:90 READ TO DRIVER BUFFER«, t00=0x0059, t01=0x0106}
0x8c1e…8c46               Head {h00=0x0024, h01=0x0050, text=» LDKL A4,/180 BYTES TO BE MOVED «, t00=0x0059, t01=0x0132}
0x8c46…8c5c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0059, t01=0x015a}
0x8c5c…8c6e               Head {h00=0x000e, h01=0x0050, text=» NGR A2,A4«, t00=0x0059, t01=0x0170}
0x8c6e…8cb2               Head {h00=0x0040, h01=0x0050, text=» ADS A2,DWTUBU,A6 RESET USER BUFFER POINTER FOR DIRECT MOVE «, t00=0x0059, t01=0x0182}
0x8cb2…8cbe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005a, t01=0x0036}
0x8cbe…8cd4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005a, t01=0x0042}
0x8cd4…8cfe               Head {h00=0x0026, h01=0x0050, text=» CF A5,MOVRED MOVE TO USER BUFFER «, t00=0x005a, t01=0x0058}
0x8cfe…8d12               Head {h00=0x0010, h01=0x0050, text=»REA:90 EQU *«, t00=0x005a, t01=0x0082}
0x8d12…8d22               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x005a, t01=0x0096}
0x8d22…8d2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00a6}
0x8d2c…8d42               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x005a, t01=0x00b0}
0x8d42…8d4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00c6}
0x8d4c…8d56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00d0}
0x8d56…8d84               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x005a, t01=0x00da}
0x8d84…8db2               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x005a, t01=0x0108}
0x8db2…8de0               Head {h00=0x002a, h01=0x0050, text=»*   SUBROUTINES FOR MOVING WORDS    * «, t00=0x005a, t01=0x0136}
0x8de0…8e0a               Head {h00=0x0026, h01=0x0050, text=»*   USER BUFFER TO DRIVER BUFFER: «, t00=0x005a, t01=0x0164}
0x8e0a…8e38               Head {h00=0x002a, h01=0x0050, text=»*   MOVWRI                          * «, t00=0x005a, t01=0x018e}
0x8e38…8e66               Head {h00=0x002a, h01=0x0050, text=»*   DRIVER BUFFER TO USER BUFFER    * «, t00=0x005b, t01=0x002c}
0x8e66…8e94               Head {h00=0x002a, h01=0x0050, text=»*   MOVRED                          * «, t00=0x005b, t01=0x005a}
0x8e94…8ec2               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x005b, t01=0x0088}
0x8ec2…8ef0               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x005b, t01=0x00b6}
0x8ef0…8efa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00e4}
0x8efa…8f1c               Head {h00=0x001e, h01=0x0050, text=»*   A1   BUFFER ADDRESS IN«, t00=0x005b, t01=0x00ee}
0x8f1c…8f40               Head {h00=0x0020, h01=0x0050, text=»*   A2   BUFFER ADDRESS OUT «, t00=0x005b, t01=0x0110}
0x8f40…8f5e               Head {h00=0x001a, h01=0x0050, text=»*   A4   BUFFER LENGTH«, t00=0x005b, t01=0x0134}
0x8f5e…8f74               Head {h00=0x0012, h01=0x0050, text=»*   A3   USED «, t00=0x005b, t01=0x0152}
0x8f74…8f7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0168}
0x8f7e…8f92               Head {h00=0x0010, h01=0x0050, text=»MOVRED EQU *«, t00=0x005b, t01=0x0172}
0x8f92…8faa               Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFFER «, t00=0x005b, t01=0x0186}
0x8faa…8fc6               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x005c, t01=0x000e}
0x8fc6…8ffc               Head {h00=0x0032, h01=0x0050, text=» LD A2,DWTUBU,A6 PRESENT POINT IN USER BUFFER «, t00=0x005c, t01=0x002a}
0x8ffc…9008               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0060}
0x9008…9012               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x006c}
0x9012…9028               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005c, t01=0x0076}
0x9028…9044               Head {h00=0x0018, h01=0x0050, text=» IFT CPU852+MMUPAG=0«, t00=0x005c, t01=0x008c}
0x9044…905a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU857=1 «, t00=0x005c, t01=0x00a8}
0x905a…908a               Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTUBU,A6 GET USER BUFFER POINTER«, t00=0x005c, t01=0x00be}
0x908a…90be               Head {h00=0x0030, h01=0x0050, text=» ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x005c, t01=0x00ee}
0x90be…90ce               Head {h00=0x000c, h01=0x0050, text=» MVB A4 «, t00=0x005c, t01=0x0122}
0x90ce…90da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0132}
0x90da…90e4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x013e}
0x90e4…90fa               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005c, t01=0x0148}
0x90fa…9110               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005c, t01=0x015e}
0x9110…9126               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005c, t01=0x0174}
0x9126…915a               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS«, t00=0x005c, t01=0x018a}
0x915a…9176               Head {h00=0x0018, h01=0x0050, text=» SLL A2,1 BYTE MODE «, t00=0x005d, t01=0x002e}
0x9176…9198               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x005d, t01=0x004a}
0x9198…91ae               Head {h00=0x0012, h01=0x0050, text=» TL DWTPAG,A6 «, t00=0x005d, t01=0x006c}
0x91ae…91da               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTUBU,A6 GET LOGICAL ADDRESS«, t00=0x005d, t01=0x0082}
0x91da…91ea               Head {h00=0x000c, h01=0x0050, text=» MVSU A4«, t00=0x005d, t01=0x00ae}
0x91ea…91f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x00be}
0x91f6…9200               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00ca}
0x9200…9216               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005d, t01=0x00d4}
0x9216…9228               Head {h00=0x000e, h01=0x0050, text=» RF MOV:00«, t00=0x005d, t01=0x00ea}
0x9228…9232               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00fc}
0x9232…9248               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x005d, t01=0x0106}
0x9248…9252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x011c}
0x9252…925c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0126}
0x925c…9270               Head {h00=0x0010, h01=0x0050, text=»MOVWRI EQU *«, t00=0x005d, t01=0x0130}
0x9270…929e               Head {h00=0x002a, h01=0x0050, text=» ADKL A2,BUFFER DRIVER BUFFER POINTER «, t00=0x005d, t01=0x0144}
0x929e…92ba               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x005d, t01=0x0172}
0x92ba…92f0               Head {h00=0x0032, h01=0x0050, text=» LD A1,DWTUBU,A6 PRESENT POINT IN USER BUFFER «, t00=0x005d, t01=0x018e}
0x92f0…92fc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0034}
0x92fc…9306               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0040}
0x9306…931c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005e, t01=0x004a}
0x931c…9338               Head {h00=0x0018, h01=0x0050, text=» IFT CPU852+MMUPAG=0«, t00=0x005e, t01=0x0060}
0x9338…934e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU857=1 «, t00=0x005e, t01=0x007c}
0x934e…937e               Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTUBU,A6 GET USER BUFFER POINTER«, t00=0x005e, t01=0x0092}
0x937e…93b2               Head {h00=0x0030, h01=0x0050, text=» ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x005e, t01=0x00c2}
0x93b2…93c2               Head {h00=0x000c, h01=0x0050, text=» MVB A4 «, t00=0x005e, t01=0x00f6}
0x93c2…93ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0106}
0x93ce…93d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0112}
0x93d8…93ee               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005e, t01=0x011c}
0x93ee…9404               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005e, t01=0x0132}
0x9404…941a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005e, t01=0x0148}
0x941a…944e               Head {h00=0x0030, h01=0x0050, text=» LD A1,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS«, t00=0x005e, t01=0x015e}
0x944e…946a (95, 0, 398)  Head {h00=0x0018, h01=0x0050, text=» SLL A1,1 BYTE MODE «, t00=0x005f, t01=0x0004}
0x946a…948c               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x005f, t01=0x0020}
0x948c…94a2               Head {h00=0x0012, h01=0x0050, text=» TL DWTPAG,A6 «, t00=0x005f, t01=0x0042}
0x94a2…94ce               Head {h00=0x0028, h01=0x0050, text=» LD A1,DWTUBU,A6 GET LOGICAL ADDRESS«, t00=0x005f, t01=0x0058}
0x94ce…94de               Head {h00=0x000c, h01=0x0050, text=» MVUS A4«, t00=0x005f, t01=0x0084}
0x94de…94ea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0094}
0x94ea…94f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00a0}
0x94f4…950a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005f, t01=0x00aa}
0x950a…951e               Head {h00=0x0010, h01=0x0050, text=»MOV:00 EQU *«, t00=0x005f, t01=0x00c0}
0x951e…953a               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x005f, t01=0x00d4}
0x953a…956e               Head {h00=0x0030, h01=0x0050, text=» ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x005f, t01=0x00f0}
0x956e…957a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x0124}
0x957a…9584               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0130}
0x9584…959a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005f, t01=0x013a}
0x959a…95b0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005f, t01=0x0150}
0x95b0…95d4               Head {h00=0x0020, h01=0x0050, text=» TL -30,A15 RESET REGISTERS «, t00=0x005f, t01=0x0166}
0x95d4…95e0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x018a}
0x95e0…95ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0008}
0x95ea…9600               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0060, t01=0x0012}
0x9600…961c               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x0060, t01=0x0028}
0x961c…9632               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0060, t01=0x0044}
0x9632…963c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x005a}
0x963c…9652               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0060, t01=0x0064}
0x9652…965c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x007a}
0x965c…9666               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0084}
0x9666…967a               Head {h00=0x0010, h01=0x0050, text=»MOV:10 EQU *«, t00=0x0060, t01=0x008e}
0x967a…968e               Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x0060, t01=0x00a2}
0x968e…96a0               Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x0060, t01=0x00b6}
0x96a0…96b2               Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0060, t01=0x00c8}
0x96b2…96c4               Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0060, t01=0x00da}
0x96c4…96d6               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0060, t01=0x00ec}
0x96d6…96ec               Head {h00=0x0012, h01=0x0050, text=» RB(P) MOV:10 «, t00=0x0060, t01=0x00fe}
0x96ec…96f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0060, t01=0x0114}
0x96f8…9702               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0120}
0x9702…9718               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0060, t01=0x012a}
0x9718…972e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0060, t01=0x0140}
0x972e…974a               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x0060, t01=0x0156}
0x974a…9776               Head {h00=0x0028, h01=0x0050, text=» MSR 12,A15 SAVE REGISTERS ON STACK «, t00=0x0060, t01=0x0172}
0x9776…979a               Head {h00=0x0020, h01=0x0050, text=» LDR A11,A4 NUMBER OF BYTES «, t00=0x0061, t01=0x000e}
0x979a…97bc               Head {h00=0x001e, h01=0x0050, text=» LDR A10,A2 OUTPUT ADDRESS«, t00=0x0061, t01=0x0032}
0x97bc…97dc               Head {h00=0x001c, h01=0x0050, text=» LDR A9,A1 INPUT ADDRESS«, t00=0x0061, t01=0x0054}
0x97dc…9804               Head {h00=0x0024, h01=0x0050, text=» LDKL A12,16 BYTES IN EACH LOOP «, t00=0x0061, t01=0x0074}
0x9804…9818               Head {h00=0x0010, h01=0x0050, text=»MOV:15 EQU *«, t00=0x0061, t01=0x009c}
0x9818…982a               Head {h00=0x000e, h01=0x0050, text=» MLR 8,A9 «, t00=0x0061, t01=0x00b0}
0x982a…983c               Head {h00=0x000e, h01=0x0050, text=» MSR 8,A10«, t00=0x0061, t01=0x00c2}
0x983c…9850               Head {h00=0x0010, h01=0x0050, text=» ADR A10,A12«, t00=0x0061, t01=0x00d4}
0x9850…9864               Head {h00=0x0010, h01=0x0050, text=» ADR A9,A12 «, t00=0x0061, t01=0x00e8}
0x9864…9878               Head {h00=0x0010, h01=0x0050, text=» SUR A11,A12«, t00=0x0061, t01=0x00fc}
0x9878…988e               Head {h00=0x0012, h01=0x0050, text=» RB(P) MOV:15 «, t00=0x0061, t01=0x0110}
0x988e…98be               Head {h00=0x002c, h01=0x0050, text=» MLR 12,A15 RESTORE REGISTERS FROM STACK«, t00=0x0061, t01=0x0126}
0x98be…98ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0156}
0x98ca…98d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0162}
0x98d4…98ea               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0061, t01=0x016c}
0x98ea…98fa               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0061, t01=0x0182}
0x98fa…9904 (98, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0004}
0x9904…9910               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0062, t01=0x000e}
0x9910…991a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x001a}
0x991a…9930               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0062, t01=0x0024}
0x9930…9946               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0062, t01=0x003a}
0x9946…9950               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0050}
0x9950…995a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x005a}
0x995a…997e               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0062, t01=0x0064}
0x997e…99a2               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0062, t01=0x0088}
0x99a2…99c6               Head {h00=0x0020, h01=0x0050, text=»*   DIV31                 * «, t00=0x0062, t01=0x00ac}
0x99c6…99ea               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0062, t01=0x00d0}
0x99ea…9a0e               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0062, t01=0x00f4}
0x9a0e…9a18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0118}
0x9a18…9a48               Head {h00=0x002c, h01=0x0050, text=»*   INPUT: ECBCW2=LOGICAL SECTOR NUMBER «, t00=0x0062, t01=0x0122}
0x9a48…9a7c               Head {h00=0x0030, h01=0x0050, text=»*   OUTPUT: 1ST DWT = PHYSICAL SECTOR NUMBER«, t00=0x0062, t01=0x0152}
0x9a7c…9a86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0186}
0x9a86…9a9a               Head {h00=0x0010, h01=0x0050, text=»DIV31 EQU * «, t00=0x0062, t01=0x0190}
0x9a9a…9aa4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0014}
0x9aa4…9aba               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0063, t01=0x001e}
0x9aba…9aec               Head {h00=0x002e, h01=0x0050, text=» LD A1,ECBCW2,A8 GET LOGICAL SECTOR NUMBER«, t00=0x0063, t01=0x0034}
0x9aec…9afe               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0063, t01=0x0066}
0x9afe…9b10               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0063, t01=0x0078}
0x9b10…9b24               Head {h00=0x0010, h01=0x0050, text=»DIV:20 EQU *«, t00=0x0063, t01=0x008a}
0x9b24…9b40               Head {h00=0x0018, h01=0x0050, text=» ADR A2,A3 I0:=I0+I1«, t00=0x0063, t01=0x009e}
0x9b40…9b5c               Head {h00=0x0018, h01=0x0050, text=» SRL A3,5 I1:=I1/32 «, t00=0x0063, t01=0x00ba}
0x9b5c…9b72               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIV:20«, t00=0x0063, t01=0x00d6}
0x9b72…9b84               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0063, t01=0x00ec}
0x9b84…9b9e               Head {h00=0x0016, h01=0x0050, text=» ANKL A3,/FFE0 32*«, t00=0x0063, t01=0x00fe}
0x9b9e…9bb8               Head {h00=0x0016, h01=0x0050, text=» SRL A2,5 TRUNCATE«, t00=0x0063, t01=0x0118}
0x9bb8…9bca               Head {h00=0x000e, h01=0x0050, text=» SUR A3,A2«, t00=0x0063, t01=0x0132}
0x9bca…9bdc               Head {h00=0x000e, h01=0x0050, text=» SUR A3,A1«, t00=0x0063, t01=0x0144}
0x9bdc…9bee               Head {h00=0x000e, h01=0x0050, text=» ADK A3,31«, t00=0x0063, t01=0x0156}
0x9bee…9c04               Head {h00=0x0012, h01=0x0050, text=» RF(P) DIV:30 «, t00=0x0063, t01=0x0168}
0x9c04…9c24               Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 NEXT CYLINDER «, t00=0x0063, t01=0x017e}
0x9c24…9c38               Head {h00=0x0010, h01=0x0050, text=»DIV:30 EQU *«, t00=0x0064, t01=0x000e}
0x9c38…9c4a               Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0064, t01=0x0022}
0x9c4a…9c6a               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV:50 CYLINDER 0«, t00=0x0064, t01=0x0034}
0x9c6a…9c7c               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0064, t01=0x0054}
0x9c7c…9c8e               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0064, t01=0x0066}
0x9c8e…9c98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0078}
0x9c98…9cae               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0064, t01=0x0082}
0x9cae…9cb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0098}
0x9cb8…9cc2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00a2}
0x9cc2…9cd6               Head {h00=0x0010, h01=0x0050, text=»DIV:50 EQU *«, t00=0x0064, t01=0x00ac}
0x9cd6…9d0a               Head {h00=0x0030, h01=0x0050, text=» STR A1,A6 PUT PHYSICAL SECTOR NUMBER IN DWT«, t00=0x0064, t01=0x00c0}
0x9d0a…9d1a               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0064, t01=0x00f4}
0x9d1a…9d24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0104}
0x9d24…9d30               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x010e}
0x9d30…9d3a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x011a}
0x9d3a…9d50               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0064, t01=0x0124}
0x9d50…9d66               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0064, t01=0x013a}
0x9d66…9d90               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x0064, t01=0x0150}
0x9d90…9dba               Head {h00=0x0026, h01=0x0050, text=» STR A2,A6 PHYSICAL SECTOR NUMBER «, t00=0x0064, t01=0x017a}
0x9dba…9dcc               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0065, t01=0x0014}
0x9dcc…9ddc               Head {h00=0x000c, h01=0x0050, text=» DVK 31 «, t00=0x0065, t01=0x0026}
0x9ddc…9dee               Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0065, t01=0x0036}
0x9dee…9e0e               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV:10 CYLINDER 0«, t00=0x0065, t01=0x0048}
0x9e0e…9e20               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0065, t01=0x0068}
0x9e20…9e34               Head {h00=0x0010, h01=0x0050, text=»DIV:10 EQU *«, t00=0x0065, t01=0x007a}
0x9e34…9e5e               Head {h00=0x0026, h01=0x0050, text=» ADRS A2,A6 PHYSICAL SECTOR NUMBER«, t00=0x0065, t01=0x008e}
0x9e5e…9e6e               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0065, t01=0x00b8}
0x9e6e…9e7a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0065, t01=0x00c8}
0x9e7a…9e84               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00d4}
0x9e84…9e9a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0065, t01=0x00de}
0x9e9a…9ea4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00f4}
0x9ea4…9ece               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0065, t01=0x00fe}
0x9ece…9ef8               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0065, t01=0x0128}
0x9ef8…9f22               Head {h00=0x0026, h01=0x0050, text=»*   SUBROUTINES FOR             * «, t00=0x0065, t01=0x0152}
0x9f22…9f4c               Head {h00=0x0026, h01=0x0050, text=»*   INTERLACING AND/OR          * «, t00=0x0065, t01=0x017c}
0x9f4c…9f76               Head {h00=0x0026, h01=0x0050, text=»*   SKEWING                     * «, t00=0x0066, t01=0x0016}
0x9f76…9fa0               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0066, t01=0x0040}
0x9fa0…9fca               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0066, t01=0x006a}
0x9fca…9fd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0094}
0x9fd4…a01a               Head {h00=0x0042, h01=0x0050, text=»*  OUTPUT : A3 CONTAINING INTERLACED AND SKEWED SECTOR NUMBER «, t00=0x0066, t01=0x009e}
0xa01a…a024               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00e4}
0xa024…a038               Head {h00=0x0010, h01=0x0050, text=»INLACE EQU *«, t00=0x0066, t01=0x00ee}
0xa038…a066               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 GET PHYSICAL SECTOR NUMBER«, t00=0x0066, t01=0x0102}
0xa066…a078               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0066, t01=0x0130}
0xa078…a08a               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A3«, t00=0x0066, t01=0x0142}
0xa08a…a0b2               Head {h00=0x0024, h01=0x0050, text=» ADR A3,A1 INTERLACING FACTOR 3 «, t00=0x0066, t01=0x0154}
0xa0b2…a0c4               Head {h00=0x000e, h01=0x0050, text=»SKEW EQU *«, t00=0x0066, t01=0x017c}
0xa0c4…a0da               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0066, t01=0x018e}
0xa0da…a106               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0067, t01=0x0014}
0xa106…a112               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x0040}
0xa112…a128               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0067, t01=0x004c}
0xa128…a154               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x0067, t01=0x0062}
0xa154…a160               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x008e}
0xa160…a172               Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0067, t01=0x009a}
0xa172…a196               Head {h00=0x0020, h01=0x0050, text=» RF(Z) INLAC5 EVEN CYLINDER «, t00=0x0067, t01=0x00ac}
0xa196…a1bc               Head {h00=0x0022, h01=0x0050, text=» ADK A3,8 SKEW FACTOR 180 DEG.«, t00=0x0067, t01=0x00d0}
0xa1bc…a1d0               Head {h00=0x0010, h01=0x0050, text=»INLAC5 EQU *«, t00=0x0067, t01=0x00f6}
0xa1d0…a1e4               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/1F «, t00=0x0067, t01=0x010a}
0xa1e4…a202               Head {h00=0x001a, h01=0x0050, text=» SLL A3,2 IN POSITION «, t00=0x0067, t01=0x011e}
0xa202…a212               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0067, t01=0x013c}
0xa212…a21c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x014c}
0xa21c…a232               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0067, t01=0x0156}
0xa232…a248               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0067, t01=0x016c}
0xa248…a252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0182}
0xa252…a25c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x018c}
0xa25c…a26e               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x0008}
0xa26e…a280               Head {h00=0x000e, h01=0x0050, text=»* INXUNI *«, t00=0x0068, t01=0x001a}
0xa280…a292               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0068, t01=0x002c}
0xa292…a29c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x003e}
0xa29c…a2d4               Head {h00=0x0034, h01=0x0050, text=»*   OUTPUT  A2=DOUBLED UNIT INDEX + DWT ADDRESS «, t00=0x0068, t01=0x0048}
0xa2d4…a2de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0080}
0xa2de…a2f2               Head {h00=0x0010, h01=0x0050, text=»INXUNI EQU *«, t00=0x0068, t01=0x008a}
0xa2f2…a30a               Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTOR,A6 «, t00=0x0068, t01=0x009e}
0xa30a…a31c               Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0068, t01=0x00b6}
0xa31c…a32e               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0068, t01=0x00c8}
0xa32e…a33e               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0068, t01=0x00da}
0xa33e…a34a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0068, t01=0x00ea}
0xa34a…a354               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00f6}
0xa354…a36a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0068, t01=0x0100}
0xa36a…a380               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0068, t01=0x0116}
0xa380…a38a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x012c}
0xa38a…a394               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0136}
0xa394…a3c6               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0068, t01=0x0140}
0xa3c6…a3f8               Head {h00=0x002e, h01=0x0050, text=»*                                        *«, t00=0x0068, t01=0x0172}
0xa3f8…a42a               Head {h00=0x002e, h01=0x0050, text=»*   MMULOG : GET LOGICAL ADDRESS AND     *«, t00=0x0069, t01=0x0014}
0xa42a…a45c               Head {h00=0x002e, h01=0x0050, text=»*            PAGE                        *«, t00=0x0069, t01=0x0046}
0xa45c…a48e               Head {h00=0x002e, h01=0x0050, text=»*                                        *«, t00=0x0069, t01=0x0078}
0xa48e…a4c0               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0069, t01=0x00aa}
0xa4c0…a4ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00dc}
0xa4ca…a4d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00e6}
0xa4d4…a4e8               Head {h00=0x0010, h01=0x0050, text=»MMULOG EQU *«, t00=0x0069, t01=0x00f0}
0xa4e8…a51a               Head {h00=0x002e, h01=0x0050, text=» MS 2,DWTBA1,A6 SAVE PHYSICAL WORD ADDRESS«, t00=0x0069, t01=0x0104}
0xa51a…a528               Head {h00=0x000a, h01=0x0050, text=» DLA 4«, t00=0x0069, t01=0x0136}
0xa528…a546               Head {h00=0x001a, h01=0x0050, text=» SRC A1,6 IN POSITION «, t00=0x0069, t01=0x0144}
0xa546…a564               Head {h00=0x001a, h01=0x0050, text=» ST A1,DWTPAG,A6 PAGE «, t00=0x0069, t01=0x0162}
0xa564…a584               Head {h00=0x001c, h01=0x0050, text=» ADKL A1,/400 NEXT PAGE «, t00=0x0069, t01=0x0180}
0xa584…a5b0               Head {h00=0x0028, h01=0x0050, text=» ST A1,DWTPAG+2,A6 PSEUDO MMU TABLE «, t00=0x006a, t01=0x0010}
0xa5b0…a5c2               Head {h00=0x000e, h01=0x0050, text=» SRL A2,3 «, t00=0x006a, t01=0x003c}
0xa5c2…a5ea               Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTUBU,A6 LOGICAL ADDRESS«, t00=0x006a, t01=0x004e}
0xa5ea…a5fa               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006a, t01=0x0076}
0xa5fa…a604               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0086}
0xa604…a610               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006a, t01=0x0090}
0xa610…a61a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x009c}
0xa61a…a632               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x006a, t01=0x00a6}
0xa632…a63c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00be}
0xa63c…a652               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x006a, t01=0x00c8}
0xa652…a65c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00de}
0xa65c…a666               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x00e8}
0xa666…a68c               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x006a, t01=0x00f2}
0xa68c…a696               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0118}
0xa696…a6c0               Head {h00=0x0026, h01=0x0050, text=»*  UPDATE DRIVER BUFFER INDICATOR «, t00=0x006a, t01=0x0122}
0xa6c0…a6ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x014c}
0xa6ca…a6f2               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x006a, t01=0x0156}
0xa6f2…a6fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x017e}
0xa6fc…a72a               Head {h00=0x002a, h01=0x0050, text=»*   INPUT  A1=RETURN CODE (AFTER READ)«, t00=0x006a, t01=0x0188}
0xa72a…a75c               Head {h00=0x002e, h01=0x0050, text=»*   OUTPUT DWTBSE=DRIVER BUFFER INDICATOR «, t00=0x006b, t01=0x0026}
0xa75c…a766               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0058}
0xa766…a77a               Head {h00=0x0010, h01=0x0050, text=»BSELOD EQU *«, t00=0x006b, t01=0x0062}
0xa77a…a7a4               Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A6 GET READ SECTOR NUMBER«, t00=0x006b, t01=0x0076}
0xa7a4…a7ca               Head {h00=0x0022, h01=0x0050, text=»BSEL00 EQU * FROM SEEK VERIFY «, t00=0x006b, t01=0x00a0}
0xa7ca…a7e2               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x006b, t01=0x00c6}
0xa7e2…a812               Head {h00=0x002c, h01=0x0050, text=» RF(Z) BSEL50 READ/WRITE TO USER BUFFER «, t00=0x006b, t01=0x00de}
0xa812…a82e               Head {h00=0x0018, h01=0x0050, text=» LDKL A2,/FFFF DUMMY«, t00=0x006b, t01=0x010e}
0xa82e…a840               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x006b, t01=0x012a}
0xa840…a862               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) BSEL40 READ ERROR «, t00=0x006b, t01=0x013c}
0xa862…a884               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTOR,A6 GET INDEX «, t00=0x006b, t01=0x015e}
0xa884…a89a               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/300 «, t00=0x006b, t01=0x0180}
0xa89a…a8ac               Head {h00=0x000e, h01=0x0050, text=» SLL A2,6 «, t00=0x006c, t01=0x0008}
0xa8ac…a8be               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A3«, t00=0x006c, t01=0x001a}
0xa8be…a8d2               Head {h00=0x0010, h01=0x0050, text=»BSEL40 EQU *«, t00=0x006c, t01=0x002c}
0xa8d2…a90a               Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR «, t00=0x006c, t01=0x0040}
0xa90a…a91e               Head {h00=0x0010, h01=0x0050, text=»BSEL50 EQU *«, t00=0x006c, t01=0x0078}
0xa91e…a92e               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006c, t01=0x008c}
0xa92e…a938               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x009c}
0xa938…a94e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x006c, t01=0x00a6}
0xa94e…a958               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00bc}
0xa958…a962               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00c6}
0xa962…a992               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x006c, t01=0x00d0}
0xa992…a9c2               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x006c, t01=0x0100}
0xa9c2…a9f2               Head {h00=0x002c, h01=0x0050, text=»*   RESTORE WORD TO USER BUFFER       * «, t00=0x006c, t01=0x0130}
0xa9f2…aa22               Head {h00=0x002c, h01=0x0050, text=»*   IF NECESSARY                      * «, t00=0x006c, t01=0x0160}
0xaa22…aa52               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x006c, t01=0x0190}
0xaa52…aa82               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x006d, t01=0x0030}
0xaa82…aa8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0060}
0xaa8c…aaba               Head {h00=0x002a, h01=0x0050, text=»*   INPUT: DWTFSW=SAVED WORD INDICATOR«, t00=0x006d, t01=0x006a}
0xaaba…aade               Head {h00=0x0020, h01=0x0050, text=»*          DWTSWD=SAVED WORD«, t00=0x006d, t01=0x0098}
0xaade…ab0e               Head {h00=0x002c, h01=0x0050, text=»*          DWTUBU=POINTER TO USER BUFFER«, t00=0x006d, t01=0x00bc}
0xab0e…ab18               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x00ec}
0xab18…ab2c               Head {h00=0x0010, h01=0x0050, text=»REWORD EQU *«, t00=0x006d, t01=0x00f6}
0xab2c…ab44               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTFSW,A6«, t00=0x006d, t01=0x010a}
0xab44…ab68               Head {h00=0x0020, h01=0x0050, text=» RF(Z) REWO50 NO SAVED WORD «, t00=0x006d, t01=0x0122}
0xab68…ab80               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTSWD,A6«, t00=0x006d, t01=0x0146}
0xab80…ab96               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x006d, t01=0x015e}
0xab96…abc0               Head {h00=0x0026, h01=0x0050, text=» ML 2,DWTBA1,A6 GET BUFFER ADDRESS«, t00=0x006d, t01=0x0174}
0xabc0…abe2               Head {h00=0x001e, h01=0x0050, text=» RF(Z) REWO20 SYSTEM AREA «, t00=0x006e, t01=0x000e}
0xabe2…ac04               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x006e, t01=0x0030}
0xac04…ac2c               Head {h00=0x0024, h01=0x0050, text=» TL DWTPAG,A6 SET MMU REGISTERS «, t00=0x006e, t01=0x0052}
0xac2c…ac60               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTUBU,A6 GET LOGICAL BUFFER ADDRESS «, t00=0x006e, t01=0x007a}
0xac60…ac8c               Head {h00=0x0028, h01=0x0050, text=» ES A3,PHSECL,A2 RESTORE SAVED WORD «, t00=0x006e, t01=0x00ae}
0xac8c…acb0               Head {h00=0x0020, h01=0x0050, text=» TL -30,A15 RESET REGISTERS «, t00=0x006e, t01=0x00da}
0xacb0…acc2               Head {h00=0x000e, h01=0x0050, text=» RF REWO50«, t00=0x006e, t01=0x00fe}
0xacc2…acd6               Head {h00=0x0010, h01=0x0050, text=»REWO20 EQU *«, t00=0x006e, t01=0x0110}
0xacd6…acf2               Head {h00=0x0018, h01=0x0050, text=» SLL A2,1 BYTE MODE «, t00=0x006e, t01=0x0124}
0xacf2…ad18               Head {h00=0x0022, h01=0x0050, text=» ST A3,PHSECL,A2 RESTORE WORD «, t00=0x006e, t01=0x0140}
0xad18…ad24               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0166}
0xad24…ad2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0172}
0xad2e…ad44               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x006e, t01=0x017c}
0xad44…ad5a (111, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x006f, t01=0x0004}
0xad5a…ad86               Head {h00=0x0028, h01=0x0050, text=» ST* A3,DWTUBU,A6 RESTORE SAVED WORD«, t00=0x006f, t01=0x001a}
0xad86…ad92               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x0046}
0xad92…ad9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0052}
0xad9c…adb2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x006f, t01=0x005c}
0xadb2…adde               Head {h00=0x0028, h01=0x0050, text=» CM DWTFSW,A6 INDICATE NO SAVED WORD«, t00=0x006f, t01=0x0072}
0xadde…adf2               Head {h00=0x0010, h01=0x0050, text=»REWO50 EQU *«, t00=0x006f, t01=0x009e}
0xadf2…ae02               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006f, t01=0x00b2}
0xae02…ae0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00c2}
0xae0c…ae18               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x00cc}
0xae18…ae22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x00d8}
0xae22…ae42               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x006f, t01=0x00e2}
0xae42…ae4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0102}
0xae4c…ae56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x010c}
0xae56…ae72               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x006f, t01=0x0116}
0xae72…ae8e               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x006f, t01=0x0132}
0xae8e…aeaa               Head {h00=0x0018, h01=0x0050, text=»*  SEEK CYLINDER  * «, t00=0x006f, t01=0x014e}
0xaeaa…aec6               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x006f, t01=0x016a}
0xaec6…aee2               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x006f, t01=0x0186}
0xaee2…aeec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0012}
0xaeec…aef6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x001c}
0xaef6…af08               Head {h00=0x000e, h01=0x0050, text=»SEEK EQU *«, t00=0x0070, t01=0x0026}
0xaf08…af1e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0070, t01=0x0038}
0xaf1e…af46               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTCYL,A2 CYLINDER NUMBER«, t00=0x0070, t01=0x004e}
0xaf46…af52               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x0076}
0xaf52…af68               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0070, t01=0x0082}
0xaf68…af80               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTCYL,A6«, t00=0x0070, t01=0x0098}
0xaf80…af8c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0070, t01=0x00b0}
0xaf8c…af9e               Head {h00=0x000e, h01=0x0050, text=» SLL A3,3 «, t00=0x0070, t01=0x00bc}
0xaf9e…afb0               Head {h00=0x000e, h01=0x0050, text=» ORK A3,2 «, t00=0x0070, t01=0x00ce}
0xafb0…afd2               Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0070, t01=0x00e0}
0xafd2…afdc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0102}
0xafdc…aff0               Head {h00=0x0010, h01=0x0050, text=»SEEKZ EQU * «, t00=0x0070, t01=0x010c}
0xaff0…b002               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x0070, t01=0x0120}
0xb002…b024               Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0070, t01=0x0132}
0xb024…b02e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0154}
0xb02e…b044               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0070, t01=0x015e}
0xb044…b04e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0174}
0xb04e…b058               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x017e}
0xb058…b082               Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0070, t01=0x0188}
0xb082…b0ac               Head {h00=0x0026, h01=0x0050, text=»*                                *«, t00=0x0071, t01=0x0022}
0xb0ac…b0d6               Head {h00=0x0026, h01=0x0050, text=»*   CIO: READ AND WRITE          *«, t00=0x0071, t01=0x004c}
0xb0d6…b100               Head {h00=0x0026, h01=0x0050, text=»*                                *«, t00=0x0071, t01=0x0076}
0xb100…b12a               Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0071, t01=0x00a0}
0xb12a…b134               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00ca}
0xb134…b168               Head {h00=0x0030, h01=0x0050, text=»*  INPUT: A3=PHYSICAL SECTOR NUMBER SHIFTED «, t00=0x0071, t01=0x00d4}
0xb168…b172               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0108}
0xb172…b188               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0071, t01=0x0112}
0xb188…b19e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0071, t01=0x0128}
0xb19e…b1b0               Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0071, t01=0x013e}
0xb1b0…b1ce               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/80C1 1ST WER«, t00=0x0071, t01=0x0150}
0xb1ce…b1e0               Head {h00=0x000e, h01=0x0050, text=» RF CIO:20«, t00=0x0071, t01=0x016e}
0xb1e0…b1f4               Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0071, t01=0x0180}
0xb1f4…b212 (114, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/C0C1 1ST WER«, t00=0x0072, t01=0x0004}
0xb212…b22e               Head {h00=0x0018, h01=0x0050, text=» ADK A3,1 ORDER CODE«, t00=0x0072, t01=0x0022}
0xb22e…b242               Head {h00=0x0010, h01=0x0050, text=»CIO:20 EQU *«, t00=0x0072, t01=0x003e}
0xb242…b25a               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x0072, t01=0x0052}
0xb25a…b28a               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER «, t00=0x0072, t01=0x006a}
0xb28a…b2b6               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTUBU,A6 USER BUFFER POINTER«, t00=0x0072, t01=0x009a}
0xb2b6…b2ce               Head {h00=0x0014, h01=0x0050, text=» SUKL A2,PHSECL «, t00=0x0072, t01=0x00c6}
0xb2ce…b2e0               Head {h00=0x000e, h01=0x0050, text=» RF CIO:50«, t00=0x0072, t01=0x00de}
0xb2e0…b2f4               Head {h00=0x0010, h01=0x0050, text=»CIO:30 EQU *«, t00=0x0072, t01=0x00f0}
0xb2f4…b322               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,BUFFER DRIVER BUFFER ADDRESS «, t00=0x0072, t01=0x0104}
0xb322…b32e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0072, t01=0x0132}
0xb32e…b338               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x013e}
0xb338…b34e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0072, t01=0x0148}
0xb34e…b364               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0072, t01=0x015e}
0xb364…b376               Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0072, t01=0x0174}
0xb376…b39c               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0C18 1ST WER SHIFTED«, t00=0x0072, t01=0x0186}
0xb39c…b3ae               Head {h00=0x000e, h01=0x0050, text=» RF CIO:20«, t00=0x0073, t01=0x001c}
0xb3ae…b3c2               Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0073, t01=0x002e}
0xb3c2…b3e8               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0C1C 1ST WER SHIFTED«, t00=0x0073, t01=0x0042}
0xb3e8…b404               Head {h00=0x0018, h01=0x0050, text=» ADK A3,1 ORDER CODE«, t00=0x0073, t01=0x0068}
0xb404…b418               Head {h00=0x0010, h01=0x0050, text=»CIO:20 EQU *«, t00=0x0073, t01=0x0084}
0xb418…b430               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x0073, t01=0x0098}
0xb430…b460               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER «, t00=0x0073, t01=0x00b0}
0xb460…b48e               Head {h00=0x002a, h01=0x0050, text=» DA DWTBA1,A6 GET USER BUFFER ADDRESS «, t00=0x0073, t01=0x00e0}
0xb48e…b4b2               Head {h00=0x0020, h01=0x0050, text=» SLL A2,1 BYTE MODE ADDRESS «, t00=0x0073, t01=0x010e}
0xb4b2…b4c4               Head {h00=0x000e, h01=0x0050, text=» RF CIO:40«, t00=0x0073, t01=0x0132}
0xb4c4…b4d8               Head {h00=0x0010, h01=0x0050, text=»CIO:30 EQU *«, t00=0x0073, t01=0x0144}
0xb4d8…b506               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,BUFFER DRIVER BUFFER ADDRESS «, t00=0x0073, t01=0x0158}
0xb506…b51a               Head {h00=0x0010, h01=0x0050, text=»CIO:40 EQU *«, t00=0x0073, t01=0x0186}
0xb51a…b540               Head {h00=0x0022, h01=0x0050, text=» SRC A1,4 1ST WER IN POSITION «, t00=0x0074, t01=0x000a}
0xb540…b54c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0074, t01=0x0030}
0xb54c…b556               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x003c}
0xb556…b56a               Head {h00=0x0010, h01=0x0050, text=»CIO:50 EQU *«, t00=0x0074, t01=0x0046}
0xb56a…b57e               Head {h00=0x0010, h01=0x0050, text=» WER A1,WER1«, t00=0x0074, t01=0x005a}
0xb57e…b594               Head {h00=0x0012, h01=0x0050, text=» WER A2,WER1+1«, t00=0x0074, t01=0x006e}
0xb594…b59e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0084}
0xb59e…b5be               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0074, t01=0x008e}
0xb5be…b5c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00ae}
0xb5c8…b5d2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00b8}
0xb5d2…b5e4               Head {h00=0x000e, h01=0x0050, text=»CIO EQU * «, t00=0x0074, t01=0x00c2}
0xb5e4…b604               Head {h00=0x001c, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE A4 «, t00=0x0074, t01=0x00d4}
0xb604…b61a               Head {h00=0x0012, h01=0x0050, text=» LD A2,PFPOST «, t00=0x0074, t01=0x00f4}
0xb61a…b646               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CIOAB PWF POST PROCESSING ON«, t00=0x0074, t01=0x010a}
0xb646…b674               Head {h00=0x002a, h01=0x0050, text=» CF A15,INXDWT GET INDEXED DWT ADDRESS«, t00=0x0074, t01=0x0136}
0xb674…b69c               Head {h00=0x0024, h01=0x0050, text=» EX DWTCIO,A4 EXECUTE CIO-START «, t00=0x0074, t01=0x0164}
0xb69c…b6c6               Head {h00=0x0026, h01=0x0050, text=» ABL(3) END:30 CU ADDRESS UNKNOWN «, t00=0x0074, t01=0x018c}
0xb6c6…b6da               Head {h00=0x0010, h01=0x0050, text=»CIOAB EQU * «, t00=0x0075, t01=0x0026}
0xb6da…b700               Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTA5,A6            A5 «, t00=0x0075, t01=0x003a}
0xb700…b72c               Head {h00=0x0028, h01=0x0050, text=» ST A7,DWTA2,A6 SAVE SECTOR COUNTER «, t00=0x0075, t01=0x0060}
0xb72c…b736               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x008c}
0xb736…b760               Head {h00=0x0026, h01=0x0050, text=»T:DISP ABL TDISP GO TO DISPATCHER «, t00=0x0075, t01=0x0096}
0xb760…b76a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00c0}
0xb76a…b78a               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0075, t01=0x00ca}
0xb78a…b794               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00ea}
0xb794…b79e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00f4}
0xb79e…b7bc               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0075, t01=0x00fe}
0xb7bc…b7da               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0075, t01=0x011c}
0xb7da…b7f8               Head {h00=0x001a, h01=0x0050, text=»*  RECOVERY ROUTINE  *«, t00=0x0075, t01=0x013a}
0xb7f8…b816               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0075, t01=0x0158}
0xb816…b834               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0075, t01=0x0176}
0xb834…b83e (118, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0004}
0xb83e…b848               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x000e}
0xb848…b85a               Head {h00=0x000e, h01=0x0050, text=»DUON EQU *«, t00=0x0076, t01=0x0018}
0xb85a…b864               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x002a}
0xb864…b87a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0076, t01=0x0034}
0xb87a…b8a4               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0076, t01=0x004a}
0xb8a4…b8b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x0074}
0xb8b0…b8ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0080}
0xb8ba…b8d0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0076, t01=0x008a}
0xb8d0…b8f6               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0076, t01=0x00a0}
0xb8f6…b902               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0076, t01=0x00c6}
0xb902…b90c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00d2}
0xb90c…b924               Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWDU01 «, t00=0x0076, t01=0x00dc}
0xb924…b94a               Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x0076, t01=0x00f4}
0xb94a…b95c               Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0076, t01=0x011a}
0xb95c…b990               Head {h00=0x0030, h01=0x0050, text=» LDKL A1,/7FFE UNIT BUSY AND RECOVERY ON =1 «, t00=0x0076, t01=0x012c}
0xb990…b9ac               Head {h00=0x0018, h01=0x0050, text=» ANS A1,DWTST,A6  =1«, t00=0x0076, t01=0x0160}
0xb9ac…b9d4               Head {h00=0x0024, h01=0x0050, text=» CM DWTSAV,A6 INDICATE RECOVERY «, t00=0x0076, t01=0x017c}
0xb9d4…b9fe               Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG INITIALIZATION FLAG «, t00=0x0077, t01=0x0014}
0xb9fe…ba22               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUON05 NOT POWER UP «, t00=0x0077, t01=0x003e}
0xba22…ba2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0062}
0xba2c…ba42               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0077, t01=0x006c}
0xba42…ba4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0082}
0xba4c…ba56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x008c}
0xba56…ba74               Head {h00=0x001a, h01=0x0050, text=» CM DWTOR,A6 1ST UNIT «, t00=0x0077, t01=0x0096}
0xba74…ba9a               Head {h00=0x0022, h01=0x0050, text=» CF A5,SEEKZ TEST IF OPERABLE «, t00=0x0077, t01=0x00b4}
0xba9a…baac               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0077, t01=0x00da}
0xbaac…bad0               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUON26 NOT OPERABLE «, t00=0x0077, t01=0x00ec}
0xbad0…bae6               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0077, t01=0x0110}
0xbae6…baf8               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0077, t01=0x0126}
0xbaf8…bb1a               Head {h00=0x001e, h01=0x0050, text=» SC A1,DWTOR,A6 NEXT UNIT «, t00=0x0077, t01=0x0138}
0xbb1a…bb2e               Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEKZ«, t00=0x0077, t01=0x015a}
0xbb2e…bb40               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0077, t01=0x016e}
0xbb40…bb64               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUON26 NOT OPERABLE «, t00=0x0077, t01=0x0180}
0xbb64…bb70               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x0014}
0xbb70…bb7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0020}
0xbb7a…bb92               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0078, t01=0x002a}
0xbb92…bb9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0042}
0xbb9c…bba6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x004c}
0xbba6…bbba               Head {h00=0x0010, h01=0x0050, text=»DUON05 EQU *«, t00=0x0078, t01=0x0056}
0xbbba…bbce               Head {h00=0x0010, h01=0x0050, text=» CM DWTOR,A6«, t00=0x0078, t01=0x006a}
0xbbce…bbf4               Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x0078, t01=0x007e}
0xbbf4…bc06               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0078, t01=0x00a4}
0xbc06…bc24               Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUON07 NO ERROR«, t00=0x0078, t01=0x00b6}
0xbc24…bc4c               Head {h00=0x0024, h01=0x0050, text=» CM DWTOR,A6 PREPARE FOR VOLCLR «, t00=0x0078, t01=0x00d4}
0xbc4c…bc5e               Head {h00=0x000e, h01=0x0050, text=» LDK A1,12«, t00=0x0078, t01=0x00fc}
0xbc5e…bc74               Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLCLR«, t00=0x0078, t01=0x010e}
0xbc74…bc88               Head {h00=0x0010, h01=0x0050, text=»DUON07 EQU *«, t00=0x0078, t01=0x0124}
0xbc88…bc9e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0078, t01=0x0138}
0xbc9e…bcc0               Head {h00=0x001e, h01=0x0050, text=» LDK A1,2 OTHER DISC UNIT «, t00=0x0078, t01=0x014e}
0xbcc0…bcd8               Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0078, t01=0x0170}
0xbcd8…bcee               Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0078, t01=0x0188}
0xbcee…bd00               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0079, t01=0x000e}
0xbd00…bd1e               Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUON08 NO ERROR«, t00=0x0079, t01=0x0020}
0xbd1e…bd40               Head {h00=0x001e, h01=0x0050, text=» LDK A1,2 OTHER DISC UNIT «, t00=0x0079, t01=0x003e}
0xbd40…bd58               Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0079, t01=0x0060}
0xbd58…bd6a               Head {h00=0x000e, h01=0x0050, text=» LDK A1,12«, t00=0x0079, t01=0x0078}
0xbd6a…bd80               Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLCLR«, t00=0x0079, t01=0x008a}
0xbd80…bd94               Head {h00=0x0010, h01=0x0050, text=»DUON08 EQU *«, t00=0x0079, t01=0x00a0}
0xbd94…bda0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x00b4}
0xbda0…bdd0               Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x0079, t01=0x00c0}
0xbdd0…bde4               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0079, t01=0x00f0}
0xbde4…be0a               Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTSAV,A6 RECOVERY DONE«, t00=0x0079, t01=0x0104}
0xbe0a…be14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x012a}
0xbe14…be2a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0079, t01=0x0134}
0xbe2a…be34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x014a}
0xbe34…be3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0154}
0xbe3e…be66               Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0079, t01=0x015e}
0xbe66…be8a               Head {h00=0x0020, h01=0x0050, text=» RF(Z) END:IO NO REQUEST ON?«, t00=0x0079, t01=0x0186}
0xbe8a…be94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x001a}
0xbe94…bebc               Head {h00=0x0024, h01=0x0050, text=»DUON10 LD A7,DWTORD,A6 GET ORDER«, t00=0x007a, t01=0x0024}
0xbebc…beec               Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x007a, t01=0x004c}
0xbeec…bf00               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x007a, t01=0x007c}
0xbf00…bf0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0090}
0xbf0a…bf20               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x007a, t01=0x009a}
0xbf20…bf50               Head {h00=0x002c, h01=0x0050, text=» CF A5,REWORD RESTORE WORD IF NECESSARY «, t00=0x007a, t01=0x00b0}
0xbf50…bf5c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007a, t01=0x00e0}
0xbf5c…bf66               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00ec}
0xbf66…bf92               Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x007a, t01=0x00f6}
0xbf92…bfb4               Head {h00=0x001e, h01=0x0050, text=» ABL DUA:00 REPEAT REQUEST«, t00=0x007a, t01=0x0122}
0xbfb4…bfbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0144}
0xbfbe…bfd6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x007a, t01=0x014e}
0xbfd6…bfe0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0166}
0xbfe0…bffc               Head {h00=0x0018, h01=0x0050, text=»*    READY INTERRUPT«, t00=0x007a, t01=0x0170}
0xbffc…c006               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x018c}
0xc006…c020               Head {h00=0x0016, h01=0x0050, text=»DUREDY LD A1,TIMER«, t00=0x007b, t01=0x0008}
0xc020…c046               Head {h00=0x0022, h01=0x0050, text=» RF(Z) DUON50 NO TIMER ACTIVE «, t00=0x007b, t01=0x0022}
0xc046…c050               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0048}
0xc050…c066               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x007b, t01=0x0052}
0xc066…c084               Head {h00=0x001a, h01=0x0050, text=» CM* TIMER KILL TIMER «, t00=0x007b, t01=0x0068}
0xc084…c096               Head {h00=0x000e, h01=0x0050, text=» RF DUON40«, t00=0x007b, t01=0x0086}
0xc096…c0a2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x0098}
0xc0a2…c0ac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00a4}
0xc0ac…c0c2               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x007b, t01=0x00ae}
0xc0c2…c0e2               Head {h00=0x001c, h01=0x0050, text=» RB T:DISP TIMER ACTIVE «, t00=0x007b, t01=0x00c4}
0xc0e2…c0ee               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007b, t01=0x00e4}
0xc0ee…c0f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00f0}
0xc0f8…c110               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x007b, t01=0x00fa}
0xc110…c11a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0112}
0xc11a…c124               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x011c}
0xc124…c138               Head {h00=0x0010, h01=0x0050, text=»DUON26 EQU *«, t00=0x007b, t01=0x0126}
0xc138…c164               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,TIMER TIMER POINTER ADDRESS«, t00=0x007b, t01=0x013a}
0xc164…c178               Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x007b, t01=0x0166}
0xc178…c19e               Head {h00=0x0022, h01=0x0050, text=» RF(Z) DUON30 NO TIMER ACTIVE «, t00=0x007b, t01=0x017a}
0xc19e…c1b4               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x007c, t01=0x0010}
0xc1b4…c1d4               Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 RESTART TIMER«, t00=0x007c, t01=0x0026}
0xc1d4…c1e6               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x007c, t01=0x0046}
0xc1e6…c1f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0058}
0xc1f0…c1fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0062}
0xc1fa…c222               Head {h00=0x0024, h01=0x0050, text=»DUON30 CF A15,SETIMP START TIMER«, t00=0x007c, t01=0x006c}
0xc222…c252               Head {h00=0x002c, h01=0x0050, text=» DATA DUON40,TIME TIME OUT ADDRESS, TIME«, t00=0x007c, t01=0x0094}
0xc252…c264               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x007c, t01=0x00c4}
0xc264…c26e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00d6}
0xc26e…c282               Head {h00=0x0010, h01=0x0050, text=»*   TIME OUT«, t00=0x007c, t01=0x00e0}
0xc282…c28c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x00f4}
0xc28c…c2aa               Head {h00=0x001a, h01=0x0050, text=»DUON40 LDKL A6,DWDU01 «, t00=0x007c, t01=0x00fe}
0xc2aa…c2bc               Head {h00=0x000e, h01=0x0050, text=» CM TIMER «, t00=0x007c, t01=0x011c}
0xc2bc…c2d0               Head {h00=0x0010, h01=0x0050, text=»DUON50 EQU *«, t00=0x007c, t01=0x012e}
0xc2d0…c308               Head {h00=0x0034, h01=0x0050, text=» LDKL A5,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x007c, t01=0x0142}
0xc308…c324               Head {h00=0x0018, h01=0x0050, text=» ANS A5,DWTST,A6  =1«, t00=0x007c, t01=0x017a}
0xc324…c34c               Head {h00=0x0024, h01=0x0050, text=» CM DWTSAV,A6 INDICATE RECOVERY «, t00=0x007d, t01=0x0008}
0xc34c…c372               Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x007d, t01=0x0030}
0xc372…c384               Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x007d, t01=0x0056}
0xc384…c396               Head {h00=0x000e, h01=0x0050, text=» RB DUON05«, t00=0x007d, t01=0x0068}
0xc396…c3a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x007a}
0xc3a0…c3c0               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x007d, t01=0x0084}
0xc3c0…c3ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00a4}
0xc3ca…c3d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00ae}
0xc3d4…c3f4               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x007d, t01=0x00b8}
0xc3f4…c414               Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x007d, t01=0x00d8}
0xc414…c434               Head {h00=0x001c, h01=0x0050, text=»*  INTERRUPT HANDLER  * «, t00=0x007d, t01=0x00f8}
0xc434…c454               Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x007d, t01=0x0118}
0xc454…c474               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x007d, t01=0x0138}
0xc474…c47e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0158}
0xc47e…c488               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0162}
0xc488…c49a               Head {h00=0x000e, h01=0x0050, text=»IHDU EQU *«, t00=0x007d, t01=0x016c}
0xc49a…c4ae               Head {h00=0x0010, h01=0x0050, text=»IHDU1 EQU * «, t00=0x007d, t01=0x017e}
0xc4ae…c4c2 (126, 0, 400) Head {h00=0x0010, h01=0x0050, text=»IHDU2 EQU * «, t00=0x007e, t01=0x0004}
0xc4c2…c4ea               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x007e, t01=0x0018}
0xc4ea…c4f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0040}
0xc4f4…c50a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x007e, t01=0x004a}
0xc50a…c534               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x007e, t01=0x0060}
0xc534…c540               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x008a}
0xc540…c54a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0096}
0xc54a…c560               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x007e, t01=0x00a0}
0xc560…c586               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x007e, t01=0x00b6}
0xc586…c592               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007e, t01=0x00dc}
0xc592…c59c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x00e8}
0xc59c…c5c4               Head {h00=0x0024, h01=0x0050, text=» LDKL A6,DWDU01 DISC UNIT NO. 1 «, t00=0x007e, t01=0x00f2}
0xc5c4…c5ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x011a}
0xc5ce…c5e6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x007e, t01=0x0124}
0xc5e6…c5f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x013c}
0xc5f0…c5fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0146}
0xc5fa…c620               Head {h00=0x0022, h01=0x0050, text=»IHDU10 SST A1,CUADR GET STATUS«, t00=0x007e, t01=0x0150}
0xc620…c64e               Head {h00=0x002a, h01=0x0050, text=»IHDU20 ANKL A1,/460F MASK RETURN CODE «, t00=0x007e, t01=0x0176}
0xc64e…c660               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x007f, t01=0x0014}
0xc660…c686               Head {h00=0x0022, h01=0x0050, text=» RB(N) DUREDY READY INTERRUPT «, t00=0x007f, t01=0x0026}
0xc686…c698               Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x007f, t01=0x004c}
0xc698…c6aa               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x007f, t01=0x005e}
0xc6aa…c6ca               Head {h00=0x001c, h01=0x0050, text=» ANKL A2,/200 SEEK ERROR«, t00=0x007f, t01=0x0070}
0xc6ca…c6e0               Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHDU30 «, t00=0x007f, t01=0x0090}
0xc6e0…c70a               Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/440F MOVE SEEK ERROR BIT«, t00=0x007f, t01=0x00a6}
0xc70a…c71e               Head {h00=0x0010, h01=0x0050, text=» ORK A1,/02 «, t00=0x007f, t01=0x00d0}
0xc71e…c732               Head {h00=0x0010, h01=0x0050, text=»IHDU30 EQU *«, t00=0x007f, t01=0x00e4}
0xc732…c756               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x007f, t01=0x00f8}
0xc756…c76e               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x007f, t01=0x011c}
0xc76e…c782               Head {h00=0x0010, h01=0x0050, text=» RF(NN) GET «, t00=0x007f, t01=0x0134}
0xc782…c794               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x007f, t01=0x0148}
0xc794…c7a6               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x007f, t01=0x015a}
0xc7a6…c7d4               Head {h00=0x002a, h01=0x0050, text=» RF(NZ) END:IO DISC UNIT NOT OPERABLE «, t00=0x007f, t01=0x016c}
0xc7d4…c7de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x000a}
0xc7de…c80c               Head {h00=0x002a, h01=0x0050, text=»GET LD A5,DWTA5,A6 RELOAD REGISTERS A5«, t00=0x0080, t01=0x0014}
0xc80c…c838               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTA4,A6                  A4 «, t00=0x0080, t01=0x0042}
0xc838…c862               Head {h00=0x0026, h01=0x0050, text=» LD A7,DWTA2,A6 GET SECTOR COUNTER«, t00=0x0080, t01=0x006e}
0xc862…c872               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0080, t01=0x0098}
0xc872…c87c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00a8}
0xc87c…c89c               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0080, t01=0x00b2}
0xc89c…c8a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00d2}
0xc8a6…c8b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x00dc}
0xc8b0…c8cc               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0080, t01=0x00e6}
0xc8cc…c8e8               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0080, t01=0x0102}
0xc8e8…c904               Head {h00=0x0018, h01=0x0050, text=»*  PERFORM ENDIO  * «, t00=0x0080, t01=0x011e}
0xc904…c920               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0080, t01=0x013a}
0xc920…c93c               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0080, t01=0x0156}
0xc93c…c946               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x0172}
0xc946…c950               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x017c}
0xc950…c978               Head {h00=0x0024, h01=0x0050, text=»END:30 EQU * CU ADDRESS UNKNOWN «, t00=0x0080, t01=0x0186}
0xc978…c996               Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x0081, t01=0x001e}
0xc996…c9c8               Head {h00=0x002e, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE RECOVERY DONE =1«, t00=0x0081, t01=0x003c}
0xc9c8…c9da               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0081, t01=0x006e}
0xc9da…c9ee               Head {h00=0x0010, h01=0x0050, text=»END:10 EQU *«, t00=0x0081, t01=0x0080}
0xc9ee…c9f8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0094}
0xc9f8…ca0a               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0081, t01=0x009e}
0xca0a…ca3c               Head {h00=0x002e, h01=0x0050, text=» LD* A7,DWTSB3-2,A6 GET 1ST RETURN ADDRESS«, t00=0x0081, t01=0x00b0}
0xca3c…ca4e               Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0081, t01=0x00e2}
0xca4e…ca74               Head {h00=0x0022, h01=0x0050, text=» RF(N) END:20 READ AFTER WRITE«, t00=0x0081, t01=0x00f4}
0xca74…ca8c               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTORD,A6«, t00=0x0081, t01=0x011a}
0xca8c…caaa               Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF GET ORDER «, t00=0x0081, t01=0x0132}
0xcaaa…cabe               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/15 «, t00=0x0081, t01=0x0150}
0xcabe…caea               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) END:20 NOT READ AFTER WRITE «, t00=0x0081, t01=0x0164}
0xcaea…cb12               Head {h00=0x0024, h01=0x0050, text=» CM ECBEL,A8 RESET SECTORS DONE «, t00=0x0081, t01=0x0190}
0xcb12…cb1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0082, t01=0x0028}
0xcb1e…cb28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0034}
0xcb28…cb3c               Head {h00=0x0010, h01=0x0050, text=»END:20 EQU *«, t00=0x0082, t01=0x003e}
0xcb3c…cb52               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FF00«, t00=0x0082, t01=0x0052}
0xcb52…cb6a               Head {h00=0x0014, h01=0x0050, text=» ANS A2,ECBEL,A8«, t00=0x0082, t01=0x0068}
0xcb6a…cb96               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTRTY,A6 GET RETRY INDICATOR«, t00=0x0082, t01=0x0080}
0xcb96…cbbc               Head {h00=0x0022, h01=0x0050, text=» RF(Z) END:IO NO RETRIES DONE «, t00=0x0082, t01=0x00ac}
0xcbbc…cbea               Head {h00=0x002a, h01=0x0050, text=» ORKL A1,/100 SET BIT 7 IN RETURN CODE«, t00=0x0082, t01=0x00d2}
0xcbea…cc00               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0082, t01=0x0100}
0xcc00…cc0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0116}
0xcc0a…cc14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0120}
0xcc14…cc28               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0082, t01=0x012a}
0xcc28…cc4c               Head {h00=0x0020, h01=0x0050, text=» CF A15,TENDIO PERFORM ENDIO«, t00=0x0082, t01=0x013e}
0xcc4c…cc70               Head {h00=0x0020, h01=0x0050, text=»  ABL TDISP GO TO DISPATCHER«, t00=0x0082, t01=0x0162}
0xcc70…cc7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x0186}
0xcc7a…cc92               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0082, t01=0x0190}
0xcc92…cc9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0018}
0xcc9c…cca6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0022}
0xcca6…ccba               Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0083, t01=0x002c}
0xccba…ccde               Head {h00=0x0020, h01=0x0050, text=»  CF A5,SEEKZ SEEK SECTOR 0 «, t00=0x0083, t01=0x0040}
0xccde…ccf0               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0083, t01=0x0064}
0xccf0…cd2a               Head {h00=0x0036, h01=0x0050, text=» RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE«, t00=0x0083, t01=0x0076}
0xcd2a…cd42               Head {h00=0x0014, h01=0x0050, text=» CMR A6 SECTOR 0«, t00=0x0083, t01=0x00b0}
0xcd42…cd58               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0083, t01=0x00c8}
0xcd58…cd6e               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0083, t01=0x00de}
0xcd6e…cd8e               Head {h00=0x001c, h01=0x0050, text=» CM DWTCYL,A2 CYLINDER 0«, t00=0x0083, t01=0x00f4}
0xcd8e…cd9a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x0114}
0xcd9a…cdb0               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0083, t01=0x0120}
0xcdb0…cdc6               Head {h00=0x0012, h01=0x0050, text=» CM DWTCYL,A6 «, t00=0x0083, t01=0x0136}
0xcdc6…cdd2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x014c}
0xcdd2…cdec               Head {h00=0x0016, h01=0x0050, text=» LDK A3,0 SECTOR 0«, t00=0x0083, t01=0x0158}
0xcdec…cdf6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x0172}
0xcdf6…ce0c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0083, t01=0x017c}
0xce0c…ce38 (132, 0, 400) Head {h00=0x0028, h01=0x0050, text=» IM DWTFBU,A6 READ TO DRIVER BUFFER «, t00=0x0084, t01=0x0004}
0xce38…ce4c               Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x0084, t01=0x0030}
0xce4c…ce5e               Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0084, t01=0x0044}
0xce5e…ce92               Head {h00=0x0030, h01=0x0050, text=» CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR«, t00=0x0084, t01=0x0056}
0xce92…ce9e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x008a}
0xce9e…cea8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0096}
0xcea8…cebe               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0084, t01=0x00a0}
0xcebe…cee6               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,/8019 READ SECTOR ZERO «, t00=0x0084, t01=0x00b6}
0xcee6…cf0e               Head {h00=0x0024, h01=0x0050, text=» LDKL A2,BUFFER TO DRIVER BUFFER«, t00=0x0084, t01=0x00de}
0xcf0e…cf24               Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:50 «, t00=0x0084, t01=0x0106}
0xcf24…cf3e               Head {h00=0x0016, h01=0x0050, text=» ANK A1,3 ERROR ? «, t00=0x0084, t01=0x011c}
0xcf3e…cf4a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0084, t01=0x0136}
0xcf4a…cf54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x0142}
0xcf54…cf88               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) VO:NA8 THROUGHPUT ERROR,NOT OPERABLE«, t00=0x0084, t01=0x014c}
0xcf88…cfa0               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x0084, t01=0x0180}
0xcfa0…cfbe               Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F0 FILE CODE «, t00=0x0085, t01=0x0008}
0xcfbe…cfd6               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTSAV,A6«, t00=0x0085, t01=0x0026}
0xcfd6…cfec               Head {h00=0x0012, h01=0x0050, text=» RF(Z) VO:NA6 «, t00=0x0085, t01=0x003e}
0xcfec…d018               Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/80F0 INDICATE TEST STATUS «, t00=0x0085, t01=0x0054}
0xd018…d02c               Head {h00=0x0010, h01=0x0050, text=»VO:NA6 EQU *«, t00=0x0085, t01=0x0080}
0xd02c…d062               Head {h00=0x0032, h01=0x0050, text=» CF A15,VOLGET VOLUMR NAME TO DWT INDICATE NVL«, t00=0x0085, t01=0x0094}
0xd062…d07a               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0085, t01=0x00ca}
0xd07a…d084               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00e2}
0xd084…d08e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0085, t01=0x00ec}
0xd08e…d0a2               Head {h00=0x0010, h01=0x0050, text=»DUNA40 EQU *«, t00=0x0085, t01=0x00f6}
0xd0a2…d0b4               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0085, t01=0x010a}
0xd0b4…d0ee               Head {h00=0x0036, h01=0x0050, text=» LDK A7,1 TO INDICATE NOT TRANSFER PARAMETER ORDER«, t00=0x0085, t01=0x011c}
0xd0ee…d11a               Head {h00=0x0028, h01=0x0050, text=» LD A2,BUFFER+32 CHECK IF TOSS DISC «, t00=0x0085, t01=0x0156}
0xd11a…d12e               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0085, t01=0x0182}
0xd12e…d14c               Head {h00=0x001a, h01=0x0050, text=» RF(NE) DUNA70 NO TOSS«, t00=0x0086, t01=0x0008}
0xd14c…d184               Head {h00=0x0034, h01=0x0050, text=» LD A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER «, t00=0x0086, t01=0x0026}
0xd184…d19a               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/2031 «, t00=0x0086, t01=0x005e}
0xd19a…d1c2               Head {h00=0x0024, h01=0x0050, text=» RF(NE) DUNA70 REL LESS THAN 10 «, t00=0x0086, t01=0x0074}
0xd1c2…d200               Head {h00=0x003a, h01=0x0050, text=» LD A2,BUFFER+48 GET FORMAT AND DEVICE TYPE PARAMETER «, t00=0x0086, t01=0x009c}
0xd200…d238               Head {h00=0x0034, h01=0x0050, text=»TRANPA EQU * LABEL FOR TRANSFER PARAMETER ORDER «, t00=0x0086, t01=0x00da}
0xd238…d266               Head {h00=0x002a, h01=0x0050, text=» CF A15,INXDWT GET INDEXED DWT ADDRESS«, t00=0x0086, t01=0x0112}
0xd266…d290               Head {h00=0x0026, h01=0x0050, text=» ECR A3,A2 SEPARATE THE PARAMETERS«, t00=0x0086, t01=0x0140}
0xd290…d2a2               Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x0086, t01=0x016a}
0xd2a2…d2b4               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0086, t01=0x017c}
0xd2b4…d2e2               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTFOR,A4 SAVE FORMAT PARAMETER«, t00=0x0086, t01=0x018e}
0xd2e2…d30e               Head {h00=0x0028, h01=0x0050, text=» LDKL A1,6324 SECTORS ON VERSION A2 «, t00=0x0087, t01=0x002c}
0xd30e…d328               Head {h00=0x0016, h01=0x0050, text=» SUK A3,2 FORMAT ?«, t00=0x0087, t01=0x0058}
0xd328…d348               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUNA60 VERSION A2«, t00=0x0087, t01=0x0072}
0xd348…d368               Head {h00=0x001c, h01=0x0050, text=» RF(N) DUNA50 VERSION A1«, t00=0x0087, t01=0x0092}
0xd368…d386               Head {h00=0x001a, h01=0x0050, text=» ADK A1,204 VERSION A3«, t00=0x0087, t01=0x00b2}
0xd386…d39a               Head {h00=0x0010, h01=0x0050, text=»DUNA50 EQU *«, t00=0x0087, t01=0x00d0}
0xd39a…d3b4               Head {h00=0x0016, h01=0x0050, text=» ADKL A1,9588-6324«, t00=0x0087, t01=0x00e4}
0xd3b4…d3c8               Head {h00=0x0010, h01=0x0050, text=»DUNA60 EQU *«, t00=0x0087, t01=0x00fe}
0xd3c8…d3da               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0087, t01=0x0112}
0xd3da…d3f8               Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUNA70 PTS 6875«, t00=0x0087, t01=0x0124}
0xd3f8…d428               Head {h00=0x002c, h01=0x0050, text=» ADR A1,A1 PTS 6876 2*MAXSEC ON PTS 6875«, t00=0x0087, t01=0x0142}
0xd428…d43c               Head {h00=0x0010, h01=0x0050, text=»DUNA70 EQU *«, t00=0x0087, t01=0x0172}
0xd43c…d46a               Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTSMX,A4 MAX SECTOR NO IN DWT «, t00=0x0087, t01=0x0186}
0xd46a…d4a2               Head {h00=0x0034, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE FOR TRANSFER PARAM. «, t00=0x0088, t01=0x0024}
0xd4a2…d4d0               Head {h00=0x002a, h01=0x0050, text=» ADK A7,0 CHECK IF TRANSFER PARAMETER «, t00=0x0088, t01=0x005c}
0xd4d0…d4e6               Head {h00=0x0012, h01=0x0050, text=» RB(Z) END:20 «, t00=0x0088, t01=0x008a}
0xd4e6…d4f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00a0}
0xd4f0…d506               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0088, t01=0x00aa}
0xd506…d510               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00c0}
0xd510…d51a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x00ca}
0xd51a…d548               Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTA4,A6 RESTORE RETRY COUNTER «, t00=0x0088, t01=0x00d4}
0xd548…d560               Head {h00=0x0014, h01=0x0050, text=» LC A1,DWTOR,A6 «, t00=0x0088, t01=0x0102}
0xd560…d572               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0088, t01=0x011a}
0xd572…d58a               Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0088, t01=0x012c}
0xd58a…d59c               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0088, t01=0x0144}
0xd59c…d5b2               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) VO:NAM«, t00=0x0088, t01=0x0156}
0xd5b2…d5c4               Head {h00=0x000e, h01=0x0050, text=» RF VO:NA9«, t00=0x0088, t01=0x016c}
0xd5c4…d5d8               Head {h00=0x0010, h01=0x0050, text=»VO:NA8 EQU *«, t00=0x0088, t01=0x017e}
0xd5d8…d5f4 (137, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 ERROR CODE«, t00=0x0089, t01=0x0004}
0xd5f4…d608               Head {h00=0x0010, h01=0x0050, text=»VO:NA9 EQU *«, t00=0x0089, t01=0x0020}
0xd608…d618               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0089, t01=0x0034}
0xd618…d622               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0044}
0xd622…d63c               Head {h00=0x0016, h01=0x0050, text=»*   TIMER POINTER «, t00=0x0089, t01=0x004e}
0xd63c…d646               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0068}
0xd646…d668               Head {h00=0x001e, h01=0x0050, text=»TIMER DATA 0 TIMER POINTER«, t00=0x0089, t01=0x0072}
0xd668…d672               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0094}
0xd672…d692               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0089, t01=0x009e}
0xd692…d69c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00be}
0xd69c…d6a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x00c8}
0xd6a6…d6d4               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0089, t01=0x00d2}
0xd6d4…d702               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0089, t01=0x0100}
0xd702…d730               Head {h00=0x002a, h01=0x0050, text=»*   DEVICE WORK TABLE               * «, t00=0x0089, t01=0x012e}
0xd730…d75e               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0089, t01=0x015c}
0xd75e…d78c               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0089, t01=0x018a}
0xd78c…d796               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0028}
0xd796…d7a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0032}
0xd7a0…d7b4               Head {h00=0x0010, h01=0x0050, text=»DWDU01 EQU *«, t00=0x008a, t01=0x003c}
0xd7b4…d7da               Head {h00=0x0022, h01=0x0050, text=» DATA 0 PHYSICAL SECTOR NUMBER«, t00=0x008a, t01=0x0050}
0xd7da…d7f8               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x008a, t01=0x0076}
0xd7f8…d814               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x008a, t01=0x0094}
0xd814…d82a               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x008a, t01=0x00b0}
0xd82a…d850               Head {h00=0x0022, h01=0x0050, text=» DATA DUADR ACTIVATION ADDRESS«, t00=0x008a, t01=0x00c6}
0xd850…d86c               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x008a, t01=0x00ec}
0xd86c…d894               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x008a, t01=0x0108}
0xd894…d8b2               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x008a, t01=0x0130}
0xd8b2…d8bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x014e}
0xd8bc…d8d2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008a, t01=0x0158}
0xd8d2…d8fc               Head {h00=0x0026, h01=0x0050, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x008a, t01=0x016e}
0xd8fc…d920               Head {h00=0x0020, h01=0x0050, text=» DATA ECBDU1 MMU ECB ADDRESS«, t00=0x008b, t01=0x0008}
0xd920…d92c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x002c}
0xd92c…d936               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0038}
0xd936…d952               Head {h00=0x0018, h01=0x0050, text=»DWTFSW EQU *-DWDU01 «, t00=0x008b, t01=0x0042}
0xd952…d962               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x005e}
0xd962…d98e               Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x008b, t01=0x006e}
0xd98e…d9aa               Head {h00=0x0018, h01=0x0050, text=»DWTBSE EQU *-DWDU01 «, t00=0x008b, t01=0x009a}
0xd9aa…d9ba               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x00b6}
0xd9ba…d9ea               Head {h00=0x002c, h01=0x0050, text=»DWTUBU EQU *-DWDU01 USER BUFFER POINTER «, t00=0x008b, t01=0x00c6}
0xd9ea…d9fa               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x00f6}
0xd9fa…da16               Head {h00=0x0018, h01=0x0050, text=»DWTSWD EQU *-DWDU01 «, t00=0x008b, t01=0x0106}
0xda16…da26               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x0122}
0xda26…da30               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0132}
0xda30…da46               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x008b, t01=0x013c}
0xda46…da50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x0152}
0xda50…da5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x015c}
0xda5a…da76               Head {h00=0x0018, h01=0x0050, text=»DWTRTY EQU *-DWDU01 «, t00=0x008b, t01=0x0166}
0xda76…da86               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008b, t01=0x0182}
0xda86…da96 (140, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008c, t01=0x0004}
0xda96…dab0               Head {h00=0x0016, h01=0x0050, text=» DATA /C000 FIXED «, t00=0x008c, t01=0x0014}
0xdab0…dae8               Head {h00=0x0034, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED INDICATOR CARTR. 1«, t00=0x008c, t01=0x002e}
0xdae8…db02               Head {h00=0x0016, h01=0x0050, text=» DATA /C000 FIXED «, t00=0x008c, t01=0x0066}
0xdb02…db36               Head {h00=0x0030, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED IND. CARTR. 2 «, t00=0x008c, t01=0x0080}
0xdb36…db6c               Head {h00=0x0032, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST FIXED «, t00=0x008c, t01=0x00b4}
0xdb6c…dba6               Head {h00=0x0036, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST CARTRIDGE «, t00=0x008c, t01=0x00ea}
0xdba6…dbb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0124}
0xdbb0…dbc6               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008c, t01=0x012e}
0xdbc6…dbfc               Head {h00=0x0032, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND FIXED «, t00=0x008c, t01=0x0144}
0xdbfc…dc36               Head {h00=0x0036, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND CARTRIDGE «, t00=0x008c, t01=0x017a}
0xdc36…dc42               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x0024}
0xdc42…dc4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0030}
0xdc4c…dc62               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x008d, t01=0x003a}
0xdc62…dc6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0050}
0xdc6c…dc76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x005a}
0xdc76…dc92               Head {h00=0x0018, h01=0x0050, text=»DWTSAV EQU *-DWDU01 «, t00=0x008d, t01=0x0064}
0xdc92…dca2               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x008d, t01=0x0080}
0xdca2…dcde               Head {h00=0x0038, h01=0x0050, text=»DWTFBU EQU *-DWDU01 FLAG INDICATING IO TO DRIVER BUF«, t00=0x008d, t01=0x0090}
0xdcde…dcee               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008d, t01=0x00cc}
0xdcee…dd14               Head {h00=0x0022, h01=0x0050, text=»DWTCIO EQU *-DWDU01 CIO-START «, t00=0x008d, t01=0x00dc}
0xdd14…dd2a               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAF1«, t00=0x008d, t01=0x0102}
0xdd2a…dd40               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAC1«, t00=0x008d, t01=0x0118}
0xdd40…dd4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x012e}
0xdd4a…dd60               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008d, t01=0x0138}
0xdd60…dd76               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAF2«, t00=0x008d, t01=0x014e}
0xdd76…dd8c               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAC2«, t00=0x008d, t01=0x0164}
0xdd8c…dd98               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x017a}
0xdd98…dda2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0186}
0xdda2…ddbe               Head {h00=0x0018, h01=0x0050, text=»DWTCYL EQU *-DWDU01 «, t00=0x008d, t01=0x0190}
0xddbe…dde2               Head {h00=0x0020, h01=0x0050, text=» DATA /FFFF CYLINDER NUMBER «, t00=0x008e, t01=0x001c}
0xdde2…ddec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0040}
0xddec…de02               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008e, t01=0x004a}
0xde02…de1e               Head {h00=0x0018, h01=0x0050, text=» DATA /FFFF 2ND UNIT«, t00=0x008e, t01=0x0060}
0xde1e…de2a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x007c}
0xde2a…de34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0088}
0xde34…de50               Head {h00=0x0018, h01=0x0050, text=»DWTSMX EQU *-DWDU01 «, t00=0x008e, t01=0x0092}
0xde50…de7a               Head {h00=0x0026, h01=0x0050, text=» DATA 1 MAX SECTORS ON FIXED DISC «, t00=0x008e, t01=0x00ae}
0xde7a…dea2               Head {h00=0x0024, h01=0x0050, text=» DATA 1 MAX SECTORS ON CARTRIDGE«, t00=0x008e, t01=0x00d8}
0xdea2…deac               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0100}
0xdeac…dec2               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008e, t01=0x010a}
0xdec2…deda               Head {h00=0x0014, h01=0x0050, text=» DATA 1 2ND UNIT«, t00=0x008e, t01=0x0120}
0xdeda…def2               Head {h00=0x0014, h01=0x0050, text=» DATA 1 2ND UNIT«, t00=0x008e, t01=0x0138}
0xdef2…defe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x0150}
0xdefe…df08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x015c}
0xdf08…df24               Head {h00=0x0018, h01=0x0050, text=»DWTFOR EQU *-DWDU01 «, t00=0x008e, t01=0x0166}
0xdf24…df48               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DISC FORMAT ON FIXED«, t00=0x008e, t01=0x0182}
0xdf48…df6e               Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISC FORMAT CARTRIDGE «, t00=0x008f, t01=0x0016}
0xdf6e…df78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x003c}
0xdf78…df8e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008f, t01=0x0046}
0xdf8e…df9e               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x005c}
0xdf9e…dfae               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x006c}
0xdfae…dfba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x007c}
0xdfba…dfc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0088}
0xdfc4…dfdc               Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x008f, t01=0x0092}
0xdfdc…dff4               Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x008f, t01=0x00aa}
0xdff4…e006               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x008f, t01=0x00c2}
0xe006…e024               Head {h00=0x001a, h01=0x0050, text=»DWTSB3 EQU *-DWDU01-2 «, t00=0x008f, t01=0x00d4}
0xe024…e02e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00f2}
0xe02e…e040               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x008f, t01=0x00fc}
0xe040…e05c               Head {h00=0x0018, h01=0x0050, text=»DWTSEP EQU *-DWDU01 «, t00=0x008f, t01=0x010e}
0xe05c…e06c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x012a}
0xe06c…e088               Head {h00=0x0018, h01=0x0050, text=»DWTSEI EQU *-DWDU01 «, t00=0x008f, t01=0x013a}
0xe088…e098               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x0156}
0xe098…e0a4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x0166}
0xe0a4…e0ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x0172}
0xe0ae…e0c4               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008f, t01=0x017c}
0xe0c4…e0d8 (144, 2, 266) Head {h00=0x0010, h01=0x0050, text=»ECBDU1 EQU *«, t00=0x0090, t01=0x0004}
0xe0d8…e0f4               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x0090, t01=0x0018}
0xe0f4…e110               Head {h00=0x0018, h01=0x0050, text=»DWTBA1 EQU *-DWDU01 «, t00=0x0090, t01=0x0034}
0xe110…e120               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0090, t01=0x0050}
0xe120…e13c               Head {h00=0x0018, h01=0x0050, text=»DWTBA2 EQU *-DWDU01 «, t00=0x0090, t01=0x0060}
0xe13c…e14c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0090, t01=0x007c}
0xe14c…e170               Head {h00=0x0020, h01=0x0050, text=»DWTPAG EQU *-DWDU01 MMU PAGE«, t00=0x0090, t01=0x008c}
0xe170…e180               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0090, t01=0x00b0}
0xe180…e190               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0090, t01=0x00c0}
0xe190…e19c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0090, t01=0x00d0}
0xe19c…e1a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00dc}
0xe1a6…e1b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00e6}
0xe1b0…e1ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0090, t01=0x00f0}
0xe1ba…e1c6               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0090, t01=0x00fa}
0xe1c6…e1ca               Head {h00=0x4004, h01=0x0000}
0xe1ca…e1ce               00 90 01 06                                                                                                                                                                                                                                       ┆    ┆
0xe1ce…e1d6 (145, 1, 8)   20 04 00 00 00 91 00 04                                                                                                                                                                                                                           ┆        ┆
0xe1d6…e226 (146, 0, 398) 41 31 5c 53 41 56 45 20 00 71 01 88 00 22 00 50 5c 41 4e 4b 4c 5c 41 31 2c 2f 33 43 30 30 5c 49 53 4f 4c 41 54 45 20 42 49 54 20 32 2d 35 00 72 00 10 00 20 00 50 5c 53 4c 4c 5c 41 31 2c 32 5c 52 4f 54 41 54 45 20 54 4f 20 42 49 54 20 30 2d   ┆A1 SAVE  q   " P ANKL A1,/3C00 ISOLATE BIT 2-5 r     P SLL A1,2 ROTATE TO BIT 0-┆
0xe226…e276               33 20 00 72 00 36 00 32 00 50 5c 4f 52 53 5c 41 31 2c 53 43 54 45 46 41 2b 32 5c 43 4f 4e 43 41 54 45 4e 41 54 45 20 57 49 54 48 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 00 72 00 5a 00 28 00 50 5c 53 4c 43 5c 41 32 2c 32 5c 50 41 52 54 49 54   ┆3  r 6 2 P ORS A1,SCTEFA+2 CONCATENATE WITH DISPLACEMENT r Z ( P SLC A2,2 PARTIT┆
0xe276…e2c6               49 4f 4e 20 4e 52 20 54 4f 20 42 49 54 20 31 34 2c 31 35 20 00 72 00 90 00 18 00 50 5c 41 4e 4b 5c 41 32 2c 33 5c 49 53 4f 4c 41 54 45 20 49 54 00 72 00 bc 00 1a 00 50 5c 53 54 5c 41 32 2c 53 43 54 45 46 41 5c 41 4e 44 20 53 41 56 45 00 72   ┆ION NR TO BIT 14,15  r     P ANK A2,3 ISOLATE IT r     P ST A2,SCTEFA AND SAVE r┆
0xe2c6…e316               00 d8 00 38 00 50 5c 4c 44 5c 41 31 2c 43 55 52 41 50 4c 2b 53 54 4b 45 4e 44 5c 53 54 41 52 54 20 4f 46 20 4c 41 53 54 20 41 50 50 4c 2e 20 43 54 52 4c 2e 20 42 4c 4f 43 4b 00 72 00 f6 00 30 00 50 5c 41 44 4b 5c 41 31 2c 41 43 42 4c 45 4e   ┆   8 P LD A1,CURAPL+STKEND START OF LAST APPL. CTRL. BLOCK r   0 P ADK A1,ACBLEN┆
0xe316…e364               5c 45 4e 44 20 4f 46 20 4c 41 53 54 20 41 50 50 4c 2e 20 43 54 52 4c 2e 20 42 4c 4f 43 4b 00 72 01 32 00 2c 00 50 5c 53 54 5c 41 31 2c 53 43 54 53 46 41 5c 55 50 44 41 54 45 20 53 54 41 52 54 20 4f 46 20 46 52 45 45 20 41 52 45 41 20         ┆ END OF LAST APPL. CTRL. BLOCK r 2 , P ST A1,SCTSFA UPDATE START OF FREE AREA ┆
0xe364…e3b4 (147, 0, 400) 00 72 01 66 00 38 00 50 5c 4c 44 5c 41 31 2c 41 50 4c 54 41 42 2b 53 54 4b 43 4f 4d 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 41 50 50 4c 2e 20 43 4f 4e 54 52 2e 20 54 41 42 4c 45 00 73 00 08 00 2c 00 50 5c 41 44 4b 5c 41 31 2c 32 5c 41 44   ┆ r f 8 P LD A1,APLTAB+STKCOM GET START OF APPL. CONTR. TABLE s   , P ADK A1,2 AD┆
0xe3b4…e404               56 41 4e 43 45 20 54 4f 20 46 49 52 53 54 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 00 73 00 44 00 34 00 50 5c 43 4d 5c 41 50 4c 4d 4d 43 2c 41 31 5c 53 45 54 20 52 45 4c 2e 20 53 54 41 52 54 20 4f 46 20 41 50 50 4c 2e 20 43 4f 4e 46 2e 20   ┆VANCE TO FIRST CONTROL BLOCK s D 4 P CM APLMMC,A1 SET REL. START OF APPL. CONF. ┆
0xe404…e454               44 41 54 41 00 73 00 74 00 2e 00 50 5c 41 44 4b 5c 41 31 2c 41 43 42 4c 45 4e 5c 41 44 56 41 4e 43 45 20 54 4f 20 4e 45 58 54 20 41 50 50 4c 49 43 41 54 49 4f 4e 00 73 00 ac 00 26 00 50 5c 53 54 5c 41 31 2c 43 55 52 41 50 4c 2b 53 54 4b 45   ┆DATA s t . P ADK A1,ACBLEN ADVANCE TO NEXT APPLICATION s   & P ST A1,CURAPL+STKE┆
0xe454…e4a4               4e 44 5c 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 00 73 00 de 00 2a 00 50 5c 4c 44 5c 41 31 2c 53 43 54 49 50 4c 5c 47 45 54 20 50 52 4f 47 52 41 4d 20 4c 4f 41 44 20 44 45 56 49 43 45 20 00 73 01 08 00 22 00 50 5c 53 55 4b 5c 41 31 2c 2f 46   ┆ND CONTROL BLOCK s   * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE  s   " P SUK A1,/F┆
0xe4a4…e4f4               30 5c 43 48 45 43 4b 20 44 45 56 49 43 45 20 54 59 50 45 20 00 73 01 36 00 20 00 50 5c 52 46 28 4e 4e 29 5c 43 4f 4e 52 41 44 5c 4e 4f 54 20 43 41 53 53 45 54 54 45 20 00 73 01 5c 00 16 00 50 5c 49 46 54 5c 43 46 54 45 53 54 2b 43 41 53 53   ┆0 CHECK DEVICE TYPE  s 6   P RF(NN) CONRAD NOT CASSETTE  s     P IFT CFTEST+CASS┆
0xe4f4…e544 (148, 0, 400) 3d 32 00 73 01 80 00 06 00 50 2a 20 00 74 00 0a 00 26 00 50 2a 20 20 50 52 4f 47 52 41 4d 20 4c 4f 41 44 20 44 45 56 49 43 45 20 3d 20 43 41 53 53 45 54 54 45 20 00 74 00 14 00 06 00 50 2a 20 00 74 00 3e 00 10 00 50 43 4f 4e 3a 33 30 5c 45   ┆=2 s     P*  t   & P*  PROGRAM LOAD DEVICE = CASSETTE  t     P*  t >   PCON:30 E┆
0xe544…e594               51 55 5c 2a 00 74 00 48 00 16 00 50 5c 4c 44 4b 4c 5c 41 31 2c 43 4f 4e 3a 34 30 2d 32 20 00 74 00 5c 00 14 00 50 5c 53 55 4b 4c 5c 41 31 2c 43 4f 52 3a 34 38 20 00 74 00 76 00 12 00 50 5c 41 44 4b 4c 5c 41 31 2c 2f 35 37 30 30 00 74 00 8e   ┆QU * t H   P LDKL A1,CON:40-2  t     P SUKL A1,COR:48  t v   P ADKL A1,/5700 t  ┆
0xe594…e5e4               00 24 00 50 5c 53 54 5c 41 31 2c 43 4f 52 3a 34 38 5c 4d 4f 44 49 46 59 20 49 4e 53 54 52 55 43 54 49 4f 4e 00 74 00 a4 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 30 31 30 30 00 74 00 cc 00 18 00 50 5c 53 54 20 41 31 2c 43 4f 52 3a 33 38 5c   ┆ $ P ST A1,COR:48 MODIFY INSTRUCTION t     P LDKL A1,/0100 t     P ST A1,COR:38 ┆
0xe5e4…e634               4d 4f 44 49 46 59 00 74 00 e2 00 1e 00 50 5c 4c 44 52 5c 41 31 2c 41 39 5c 53 54 41 52 54 20 4f 46 20 42 55 46 46 45 52 00 74 00 fe 00 22 00 50 5c 41 44 4b 4c 5c 41 31 2c 42 55 46 4c 45 4e 5c 45 4e 44 20 4f 46 20 42 55 46 46 45 52 20 00 74   ┆MODIFY t     P LDR A1,A9 START OF BUFFER t   " P ADKL A1,BUFLEN END OF BUFFER  t┆
0xe634…e684               01 20 00 2c 00 50 5c 53 54 5c 41 31 2c 50 4c 44 41 44 52 2b 53 54 4b 45 4e 44 5c 53 41 56 45 20 45 4e 44 20 4f 46 20 42 55 46 46 45 52 20 00 74 01 46 00 1e 00 50 5c 53 54 5c 41 31 2c 45 49 4e 50 42 46 2b 53 54 4b 45 4e 44 5c 53 41 56 45 20   ┆   , P ST A1,PLDADR+STKEND SAVE END OF BUFFER  t F   P ST A1,EINPBF+STKEND SAVE ┆

Reduced view