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

⟦96f3b1ca3⟧

    Length: 58976 (0xe660)
    Notes: pts_type(SC)
    Names: »DRDU01.SC«

Derivation

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »M:TU10/DRDU01.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »M:TU10/DRDU01.SC« 

PTS(SC)

	IDENT DRDU01 	REL 10.0 80-03-14 870105041000 

* 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRDU01 = DRIVER FOR ONE/TWO DISC UNITS
* 
*   PTS 6875 (X1215) AND/OR PTS 6876 (X1216)
* 
* 
* 
* 
* 
**************************************************
* 
* 
*   THIS DISC DRIVER HANDLES UP TO TWO DISC 
*   DRIVES X1215,X1216 CONNECTED TO CPU VIA IOP 
*   ON MULTIPLEX CHANNEL
* 
* 
*   THE FOLLOWING ORDERS ARE TREATED :
* 
*   /00    TEST STATUS
*   /01    BASIC READ 
*   /05    BASIC WRITE
*   /11    PHYSICAL READ
*   /15    PHYSICAL WRITE 
*   /1F    FORMAT VOLUME
* 
	EJECT			DRDU01			DRDU01
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	DUADR	ACTIVATION ADDRESS 
	ENTRY	DUON	RECOVERY ROUTINE
	ENTRY	IHDU1	INTERRUPT HANDLER DISC UNIT NO. 1
	ENTRY	IHDU	INTERRUPT HANDLER DISC UNIT NO. 1 
	ENTRY	IHDU2	INTERRUPT HANDLER DISC UNIT NO. 2
	ENTRY	DWDU01	DWT ADDRESS DISC UNIT NO. 1 
	EJECT			DRDU01 
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	TDISP	DISPATCHER 
	EXTRN	TENDIO	END I/O 
	EXTRN	SAVE8	SAVE REGS. A1-A8 ON A15 STACK
	EXTRN	NVLCHK	CHECK IF NEW VOLUME LOADED
	EXTRN	VOLGET	PUT VOLUME NAME IN DWT SET NVL
	EXTRN	VOLNAM	VOLUME NAME FROM DWT TO USER BUFFER 
	EXTRN	VOLCLR	CLEAR VOLUME NAMES IN DWT 
	EXTRN	INXDWT	DOUBLED INDEX + DWT ADDRESS 
	EXTRN	DISIOE	REQUEST ERROR 
	EXTRN	INIFLG	INITIALIZATION FLAG 
	EXTRN	PFPOST	PWF POST PROCESSING FLAG
	EXTRN	INTSAV	SAVE AREA LAST INTERRUPT
	EXTRN	SETIMP	TIMER 
	EXTRN	TTB:MT 
	EXTRN	DWTST	STATUS 
	EXTRN	DWTECB	ECB ADDRESS 
	EXTRN	DWTOR	DWT INDEX AND ORDER
	EXTRN	DWTA2	SAVE AREA A2 
	EXTRN	DWTA4	SAVE AREA A4 
	EXTRN	DWTA5	SAVE AREA A5 
	EXTRN	DWTSB1	STACK BASE 1 IN DWT 
	EXTRN	DWTSB2	STACK BASE 2 IN DWT 
	EXTRN	DWTUEC	USER ECB ADDRESS
	EXTRN	DWTORD	SAVE AREA FOR ORDER 
	EXTRN	DWTNVL	NEM VOLUME LOADED INDICATORS
	EXTRN	DWTVOL	VOLUME NAMES
	EXTRN	DWTTAB	TTAB ADDRESS
	EXTRN	ECBBA	ECB BUFFER ADDRESS 
	EXTRN	ECBRL	ECB REQUESTED LENGTH 
	EXTRN	ECBEL	ECB EFFECTIVE LENGTH 
	EXTRN	ECBRC	ECB RETURN CODE
	EXTRN	ECBCW1	ECB 1:ST CONTROL WORD 
	EXTRN	ECBCW2	ECB 2:ND CONTROL WORD 
	EJECT			DRDU01 
* 
* 
**************************
*                        *
*  CONDITIONAL ASSEMBLY  *
*                        *
**************************
* 
* 
*   READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15
*   BY SETTING X:A = 0
* 
X:A	EQU	0 
RAW	EQU	1 
* 
* 
*   THIS DRIVER CAN HANDLE TWO DISC UNITS 
*   IF X:B := 2 
* 
X:B	EQU	1 
NUNITS	EQU	2
* 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	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 
* 
X:E	EQU	0 
CPU857	EQU	00 
* 
* 
*	PROGRAM VERSION FOR FORMAT
*	A2 IS OBTAINED BY SETTING VERSA2 EQU 1
*	A3 IS OBTAINED BY SETTING VERSA3 EQU 1
* 
X:C	EQU	1 
VERSA2	EQU	1
* 
X:D	EQU	1 
VERSA3	EQU	1
* 
	EJECT			DRDU01			DRDU01
* 
* 
************* 
* CONSTANTS * 
************* 
* 
* 
DAF1	EQU	/28	DEVICE ADDRESS FIXED DISC NO. 1
DAC1	EQU	/08	DEVICE ADDRESS CARTRIDGE DISC NO. 1
DAF2	EQU	/38	DEVICE ADDRESS FIXED DISC NO. 2
DAC2	EQU	/18	DEVICE ADDRESS CARTRIDGE DISC NO. 2
WER1	EQU	/10	MULTIPLEXOR ADDRESS
CUADR	EQU	/08	CONTROL UNIT ADDRESS
* 
MAXSEC	EQU	6528	MAX NO OF SECTORS ON UNPACKED PTS 6875
SECLEN	EQU	256	SECTOR LENGTH, CHARACTERS
PHSECL	EQU	384	PHYSICAL SECTOR LENGTH 
QRETRY	EQU	4	NO OF RETRIES
TIME	EQU	1000	1 MIN 40 SEC
* 
DEVIND	EQU	10 
* 
	EJECT			DRDU01			DRDU01
* 
* 
	DATA	0	INDICATES NO MMU BUFFER 
	DATA	DEVIND	DISC DEVICE INDEX
DUADR	DATA	DUAD	ACTIVATION ADDRESS
	DATA	0	ABORT ROUTINE ADDRESS 
* 
	IFT	VERSA3=1 
BUFFER	RES	193
	XIF
* 
	IFT	VERSA3=0 
BUFFER	RES	25 
* 
	IFT	RAW=1
	RES	103
	XIF
* 
	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,BUFFER	READ TO DRIVER BUFFER 
	CF	A5,CIO:50 
	ANK	A1,/1F	ERROR CHECK 
	RF(NZ)	SEE:32
	LD	A3,BUFFER	GET CYL ID
	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
	CM	DWTST,A6	UNIT BUSY
	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	*
	CM	DWTST,A6	SET UNIT BUSY
	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
	ST	A1,DWTST,A6	INDICATE RECOVERY DONE
	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 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e               Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…008c               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0056}
0x008c…0096               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00be               Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009a}
0x00be…00c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…00fa               Head {h00=0x002e, h01=0x0050, text=»*   DRDU01 = DRIVER FOR ONE/TWO DISC UNITS«, t00=0x0000, t01=0x00cc}
0x00fa…0104               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…0138               Head {h00=0x0030, h01=0x0050, text=»*   PTS 6875 (X1215) AND/OR PTS 6876 (X1216)«, t00=0x0000, t01=0x0108}
0x0138…0142               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013c}
0x0142…014c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…0156               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0150}
0x0156…0160               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015a}
0x0160…016a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0164}
0x016a…01a4               Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x016e}
0x01a4…01ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0018}
0x01ae…01b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x01b8…01ec               Head {h00=0x0030, h01=0x0050, text=»*   THIS DISC DRIVER HANDLES UP TO TWO DISC «, t00=0x0001, t01=0x002c}
0x01ec…0224               Head {h00=0x0034, h01=0x0050, text=»*   DRIVES X1215,X1216 CONNECTED TO CPU VIA IOP «, t00=0x0001, t01=0x0060}
0x0224…0244               Head {h00=0x001c, h01=0x0050, text=»*   ON MULTIPLEX CHANNEL«, t00=0x0001, t01=0x0098}
0x0244…024e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b8}
0x024e…0258               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c2}
0x0258…0286               Head {h00=0x002a, h01=0x0050, text=»*   THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0001, t01=0x00cc}
0x0286…0290               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x0290…02ae               Head {h00=0x001a, h01=0x0050, text=»*   /00    TEST STATUS«, t00=0x0001, t01=0x0104}
0x02ae…02cc               Head {h00=0x001a, h01=0x0050, text=»*   /01    BASIC READ «, t00=0x0001, t01=0x0122}
0x02cc…02ea               Head {h00=0x001a, h01=0x0050, text=»*   /05    BASIC WRITE«, t00=0x0001, t01=0x0140}
0x02ea…030a               Head {h00=0x001c, h01=0x0050, text=»*   /11    PHYSICAL READ«, t00=0x0001, t01=0x015e}
0x030a…032c               Head {h00=0x001e, h01=0x0050, text=»*   /15    PHYSICAL WRITE «, t00=0x0001, t01=0x017e}
0x032c…034c               Head {h00=0x001c, h01=0x0050, text=»*   /1F    FORMAT VOLUME«, t00=0x0002, t01=0x0010}
0x034c…0356               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0030}
0x0356…0376               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0002, t01=0x003a}
0x0376…0380               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005a}
0x0380…038a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0064}
0x038a…039e               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x006e}
0x039e…03b2               Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0082}
0x03b2…03c6               Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0096}
0x03c6…03d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00aa}
0x03d0…03da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b4}
0x03da…0402               Head {h00=0x0024, h01=0x0050, text=» ENTRY DUADR ACTIVATION ADDRESS «, t00=0x0002, t01=0x00be}
0x0402…0426               Head {h00=0x0020, h01=0x0050, text=» ENTRY DUON RECOVERY ROUTINE«, t00=0x0002, t01=0x00e6}
0x0426…045c               Head {h00=0x0032, h01=0x0050, text=» ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1«, t00=0x0002, t01=0x010a}
0x045c…0492               Head {h00=0x0032, h01=0x0050, text=» ENTRY IHDU INTERRUPT HANDLER DISC UNIT NO. 1 «, t00=0x0002, t01=0x0140}
0x0492…04c8               Head {h00=0x0032, h01=0x0050, text=» ENTRY IHDU2 INTERRUPT HANDLER DISC UNIT NO. 2«, t00=0x0002, t01=0x0176}
0x04c8…04fa               Head {h00=0x002e, h01=0x0050, text=» ENTRY DWDU01 DWT ADDRESS DISC UNIT NO. 1 «, t00=0x0003, t01=0x001c}
0x04fa…0512               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0003, t01=0x004e}
0x0512…051c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0066}
0x051c…0526               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0070}
0x0526…053c               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x007a}
0x053c…0552               Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x0090}
0x0552…0568               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x00a6}
0x0568…0572               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00bc}
0x0572…057c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c6}
0x057c…059c               Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x00d0}
0x059c…05ba               Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0003, t01=0x00f0}
0x05ba…05ec               Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK«, t00=0x0003, t01=0x010e}
0x05ec…061c               Head {h00=0x002c, h01=0x0050, text=» EXTRN NVLCHK CHECK IF NEW VOLUME LOADED«, t00=0x0003, t01=0x0140}
0x061c…0650               Head {h00=0x0030, h01=0x0050, text=» EXTRN VOLGET PUT VOLUME NAME IN DWT SET NVL«, t00=0x0003, t01=0x0170}
0x0650…068a               Head {h00=0x0036, h01=0x0050, text=» EXTRN VOLNAM VOLUME NAME FROM DWT TO USER BUFFER «, t00=0x0004, t01=0x0014}
0x068a…06ba               Head {h00=0x002c, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT «, t00=0x0004, t01=0x004e}
0x06ba…06ec               Head {h00=0x002e, h01=0x0050, text=» EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS «, t00=0x0004, t01=0x007e}
0x06ec…0710               Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0004, t01=0x00b0}
0x0710…073a               Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0004, t01=0x00d4}
0x073a…0768               Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0004, t01=0x00fe}
0x0768…0796               Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0004, t01=0x012c}
0x0796…07b2               Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0004, t01=0x015a}
0x07b2…07c8               Head {h00=0x0012, h01=0x0050, text=» EXTRN TTB:MT «, t00=0x0004, t01=0x0176}
0x07c8…07e4               Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0004, t01=0x018c}
0x07e4…0806               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0005, t01=0x0018}
0x0806…082e               Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0005, t01=0x003a}
0x082e…0850               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0005, t01=0x0062}
0x0850…0872               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0005, t01=0x0084}
0x0872…0894               Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0005, t01=0x00a6}
0x0894…08be               Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB1 STACK BASE 1 IN DWT «, t00=0x0005, t01=0x00c8}
0x08be…08e8               Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0005, t01=0x00f2}
0x08e8…090e               Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0005, t01=0x011c}
0x090e…0938               Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTORD SAVE AREA FOR ORDER «, t00=0x0005, t01=0x0142}
0x0938…096a               Head {h00=0x002e, h01=0x0050, text=» EXTRN DWTNVL NEM VOLUME LOADED INDICATORS«, t00=0x0005, t01=0x016c}
0x096a…098c               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTVOL VOLUME NAMES«, t00=0x0006, t01=0x000e}
0x098c…09ae               Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0006, t01=0x0030}
0x09ae…09d6               Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0006, t01=0x0052}
0x09d6…0a00               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0006, t01=0x007a}
0x0a00…0a2a               Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0006, t01=0x00a4}
0x0a2a…0a4e               Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0006, t01=0x00ce}
0x0a4e…0a7a               Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW1 ECB 1:ST CONTROL WORD «, t00=0x0006, t01=0x00f2}
0x0a7a…0aa6               Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW2 ECB 2:ND CONTROL WORD «, t00=0x0006, t01=0x011e}
0x0aa6…0abe               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0006, t01=0x014a}
0x0abe…0ac8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0162}
0x0ac8…0ad2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x016c}
0x0ad2…0af4               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0006, t01=0x0176}
0x0af4…0b16               Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0007, t01=0x0008}
0x0b16…0b38               Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  *«, t00=0x0007, t01=0x002a}
0x0b38…0b5a               Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0007, t01=0x004c}
0x0b5a…0b7c               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0007, t01=0x006e}
0x0b7c…0b86               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0090}
0x0b86…0b90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009a}
0x0b90…0bca               Head {h00=0x0036, h01=0x0050, text=»*   READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15«, t00=0x0007, t01=0x00a4}
0x0bca…0be8               Head {h00=0x001a, h01=0x0050, text=»*   BY SETTING X:A = 0«, t00=0x0007, t01=0x00de}
0x0be8…0bf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fc}
0x0bf2…0c04               Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0007, t01=0x0106}
0x0c04…0c16               Head {h00=0x000e, h01=0x0050, text=»RAW EQU 1 «, t00=0x0007, t01=0x0118}
0x0c16…0c20               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012a}
0x0c20…0c2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0134}
0x0c2a…0c5c               Head {h00=0x002e, h01=0x0050, text=»*   THIS DRIVER CAN HANDLE TWO DISC UNITS «, t00=0x0007, t01=0x013e}
0x0c5c…0c74               Head {h00=0x0014, h01=0x0050, text=»*   IF X:B := 2 «, t00=0x0007, t01=0x0170}
0x0c74…0c7e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0188}
0x0c7e…0c90 (8, 0, 400)   Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0008, t01=0x0004}
0x0c90…0ca4               Head {h00=0x0010, h01=0x0050, text=»NUNITS EQU 2«, t00=0x0008, t01=0x0016}
0x0ca4…0cae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002a}
0x0cae…0cb8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0034}
0x0cb8…0cea               Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x003e}
0x0cea…0d18               Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x0070}
0x0d18…0d22               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009e}
0x0d22…0d36               Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0008, t01=0x00a8}
0x0d36…0d40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00bc}
0x0d40…0d4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c6}
0x0d4a…0d84               Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0008, t01=0x00d0}
0x0d84…0db6               Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x010a}
0x0db6…0dc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013c}
0x0dc0…0dd4               Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0008, t01=0x0146}
0x0dd4…0dde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015a}
0x0dde…0df4               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0008, t01=0x0164}
0x0df4…0dfe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017a}
0x0dfe…0e08               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0184}
0x0e08…0e40               Head {h00=0x0034, h01=0x0050, text=»* A PROGRAM VERSION USING THE INSTRUCTION SET OF«, t00=0x0008, t01=0x018e}
0x0e40…0e76               Head {h00=0x0032, h01=0x0050, text=»* CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1 «, t00=0x0009, t01=0x0036}
0x0e76…0e80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006c}
0x0e80…0e92               Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0009, t01=0x0076}
0x0e92…0ea8               Head {h00=0x0012, h01=0x0050, text=»CPU857 EQU 00 «, t00=0x0009, t01=0x0088}
0x0ea8…0eb2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x009e}
0x0eb2…0ebc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a8}
0x0ebc…0ee0               Head {h00=0x0020, h01=0x0050, text=»* PROGRAM VERSION FOR FORMAT«, t00=0x0009, t01=0x00b2}
0x0ee0…0f10               Head {h00=0x002c, h01=0x0050, text=»* A2 IS OBTAINED BY SETTING VERSA2 EQU 1«, t00=0x0009, t01=0x00d6}
0x0f10…0f40               Head {h00=0x002c, h01=0x0050, text=»* A3 IS OBTAINED BY SETTING VERSA3 EQU 1«, t00=0x0009, t01=0x0106}
0x0f40…0f4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0136}
0x0f4a…0f5c               Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x0009, t01=0x0140}
0x0f5c…0f70               Head {h00=0x0010, h01=0x0050, text=»VERSA2 EQU 1«, t00=0x0009, t01=0x0152}
0x0f70…0f7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0166}
0x0f7a…0f8c               Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x0009, t01=0x0170}
0x0f8c…0fa0               Head {h00=0x0010, h01=0x0050, text=»VERSA3 EQU 1«, t00=0x0009, t01=0x0182}
0x0fa0…0faa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0008}
0x0faa…0fca               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000a, t01=0x0012}
0x0fca…0fd4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0032}
0x0fd4…0fde               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003c}
0x0fde…0ff4               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0046}
0x0ff4…100a               Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x005c}
0x100a…1020               Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0072}
0x1020…102a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0088}
0x102a…1034               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0092}
0x1034…1068               Head {h00=0x0030, h01=0x0050, text=»DAF1 EQU /28 DEVICE ADDRESS FIXED DISC NO. 1«, t00=0x000a, t01=0x009c}
0x1068…10a0               Head {h00=0x0034, h01=0x0050, text=»DAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1«, t00=0x000a, t01=0x00d0}
0x10a0…10d4               Head {h00=0x0030, h01=0x0050, text=»DAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2«, t00=0x000a, t01=0x0108}
0x10d4…110c               Head {h00=0x0034, h01=0x0050, text=»DAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2«, t00=0x000a, t01=0x013c}
0x110c…1134               Head {h00=0x0024, h01=0x0050, text=»WER1 EQU /10 MULTIPLEXOR ADDRESS«, t00=0x000a, t01=0x0174}
0x1134…115e               Head {h00=0x0026, h01=0x0050, text=»CUADR EQU /08 CONTROL UNIT ADDRESS«, t00=0x000b, t01=0x000c}
0x115e…1168               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0036}
0x1168…11a6               Head {h00=0x003a, h01=0x0050, text=»MAXSEC EQU 6528 MAX NO OF SECTORS ON UNPACKED PTS 6875«, t00=0x000b, t01=0x0040}
0x11a6…11d6               Head {h00=0x002c, h01=0x0050, text=»SECLEN EQU 256 SECTOR LENGTH, CHARACTERS«, t00=0x000b, t01=0x007e}
0x11d6…1204               Head {h00=0x002a, h01=0x0050, text=»PHSECL EQU 384 PHYSICAL SECTOR LENGTH «, t00=0x000b, t01=0x00ae}
0x1204…1226               Head {h00=0x001e, h01=0x0050, text=»QRETRY EQU 4 NO OF RETRIES«, t00=0x000b, t01=0x00dc}
0x1226…1248               Head {h00=0x001e, h01=0x0050, text=»TIME EQU 1000 1 MIN 40 SEC«, t00=0x000b, t01=0x00fe}
0x1248…1252               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0120}
0x1252…1268               Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU 10 «, t00=0x000b, t01=0x012a}
0x1268…1272               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0140}
0x1272…1292               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000b, t01=0x014a}
0x1292…129c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016a}
0x129c…12a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0174}
0x12a6…12ce               Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDICATES NO MMU BUFFER «, t00=0x000b, t01=0x017e}
0x12ce…12f4               Head {h00=0x0022, h01=0x0050, text=» DATA DEVIND DISC DEVICE INDEX«, t00=0x000c, t01=0x0016}
0x12f4…131e               Head {h00=0x0026, h01=0x0050, text=»DUADR DATA DUAD ACTIVATION ADDRESS«, t00=0x000c, t01=0x003c}
0x131e…1344               Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000c, t01=0x0066}
0x1344…134e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008c}
0x134e…1364               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x000c, t01=0x0096}
0x1364…137a               Head {h00=0x0012, h01=0x0050, text=»BUFFER RES 193«, t00=0x000c, t01=0x00ac}
0x137a…1386               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x00c2}
0x1386…1390               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ce}
0x1390…13a6               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x000c, t01=0x00d8}
0x13a6…13bc               Head {h00=0x0012, h01=0x0050, text=»BUFFER RES 25 «, t00=0x000c, t01=0x00ee}
0x13bc…13c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13c6…13d8               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x000c, t01=0x010e}
0x13d8…13e8               Head {h00=0x000c, h01=0x0050, text=» RES 103«, t00=0x000c, t01=0x0120}
0x13e8…13f4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0130}
0x13f4…13fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013c}
0x13fe…141e               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000c, t01=0x0146}
0x141e…1428               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0166}
0x1428…1432               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0170}
0x1432…144c               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000c, t01=0x017a}
0x144c…1466 (13, 0, 400)  Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x000d, t01=0x0004}
0x1466…1480               Head {h00=0x0016, h01=0x0050, text=»*  ACTIVATION   * «, t00=0x000d, t01=0x001e}
0x1480…149a               Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x000d, t01=0x0038}
0x149a…14b4               Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000d, t01=0x0052}
0x14b4…14be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006c}
0x14be…14c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0076}
0x14c8…14da               Head {h00=0x000e, h01=0x0050, text=»DUAD EQU *«, t00=0x000d, t01=0x0080}
0x14da…1500               Head {h00=0x0022, h01=0x0050, text=» CM DWTRTY,A6 RETRY INDICATOR «, t00=0x000d, t01=0x0092}
0x1500…1534               Head {h00=0x0030, h01=0x0050, text=» CM DWTFBU,A6 RESET DRIVER BUFFER INDICATOR «, t00=0x000d, t01=0x00b8}
0x1534…1546               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x000d, t01=0x00ec}
0x1546…1568               Head {h00=0x001e, h01=0x0050, text=» LC A1,DWTOR,A6 GET INDEX «, t00=0x000d, t01=0x00fe}
0x1568…157e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x000d, t01=0x0120}
0x157e…1590               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000d, t01=0x0136}
0x1590…159c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0148}
0x159c…15b2               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x000d, t01=0x0154}
0x15b2…15c4               Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x000d, t01=0x016a}
0x15c4…15d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x017c}
0x15d0…15f4               Head {h00=0x0020, h01=0x0050, text=» RF(P) DUERR FAULT IN INDEX «, t00=0x000d, t01=0x0188}
0x15f4…15fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001c}
0x15fe…1612               Head {h00=0x0010, h01=0x0050, text=»DUA:00 EQU *«, t00=0x000e, t01=0x0026}
0x1612…161c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003a}
0x161c…1632               Head {h00=0x0012, h01=0x0050, text=» LDK A5,DWTSB3«, t00=0x000e, t01=0x0044}
0x1632…1654               Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 LOAD STACK BASE«, t00=0x000e, t01=0x005a}
0x1654…166a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000e, t01=0x007c}
0x166a…1696               Head {h00=0x0028, h01=0x0050, text=» MLR 2,A8 GET 18 BIT BUFFER ADDRESS «, t00=0x000e, t01=0x0092}
0x1696…16b8               Head {h00=0x001e, h01=0x0050, text=» SLC A1,4 MOST SIGN. BITS «, t00=0x000e, t01=0x00be}
0x16b8…16ca               Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x000e, t01=0x00e0}
0x16ca…16ea               Head {h00=0x001c, h01=0x0050, text=» SRL A2,1 WORD ADDDRESS «, t00=0x000e, t01=0x00f2}
0x16ea…1714               Head {h00=0x0026, h01=0x0050, text=» CF A5,MMULOG GET LOGICAL ADDRESS «, t00=0x000e, t01=0x0112}
0x1714…1720               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x013c}
0x1720…172a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0148}
0x172a…175c               Head {h00=0x002e, h01=0x0050, text=» CF A15,NVLCHK CHECK IF NEW VOLUME LOADED «, t00=0x000e, t01=0x0152}
0x175c…177c               Head {h00=0x001c, h01=0x0050, text=»*   SAVE INDEX AND ORDER«, t00=0x000e, t01=0x0184}
0x177c…1794               Head {h00=0x0014, h01=0x0050, text=» ADK A7,0 SET CR«, t00=0x000f, t01=0x0014}
0x1794…17c0               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DUA:05 NOT TEST STATUS ORDER«, t00=0x000f, t01=0x002c}
0x17c0…17ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0058}
0x17ca…17e0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x000f, t01=0x0062}
0x17e0…17ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0078}
0x17ea…17f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0082}
0x17f4…1812               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000f, t01=0x008c}
0x1812…1830               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x000f, t01=0x00aa}
0x1830…184e               Head {h00=0x001a, h01=0x0050, text=»*   TEST STATUS     * «, t00=0x000f, t01=0x00c8}
0x184e…186c               Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x000f, t01=0x00e6}
0x186c…188a               Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000f, t01=0x0104}
0x188a…1894               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0122}
0x1894…189e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x012c}
0x189e…18be               Head {h00=0x001c, h01=0x0050, text=» ORS A1,ECBRC,A8 NVL BIT«, t00=0x000f, t01=0x0136}
0x18be…18d4               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/200 «, t00=0x000f, t01=0x0156}
0x18d4…190c               Head {h00=0x0034, h01=0x0050, text=» ANS A2,DWTOR,A6 VO:NAM ON FIRST OR SECOND UNIT «, t00=0x000f, t01=0x016c}
0x190c…191e               Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0010, t01=0x0014}
0x191e…194c               Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTSAV,A6 INDICATE TEST STATUS «, t00=0x0010, t01=0x0026}
0x194c…1972               Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x0010, t01=0x0054}
0x1972…1984               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0010, t01=0x007a}
0x1984…19a8               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) TESEND NOT OPERABLE «, t00=0x0010, t01=0x008c}
0x19a8…19d8               Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTORD,A6 RESTORE INDEX AND ORDER«, t00=0x0010, t01=0x00b0}
0x19d8…19f0               Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTOR,A6 «, t00=0x0010, t01=0x00e0}
0x19f0…1a14               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0010, t01=0x00f8}
0x1a14…1a4e               Head {h00=0x0036, h01=0x0050, text=» CF A15,VOLNAM TRANSFER VOLUME NAME TO USER BUFFER«, t00=0x0010, t01=0x011c}
0x1a4e…1a72               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0010, t01=0x0156}
0x1a72…1a86               Head {h00=0x0010, h01=0x0050, text=»TESEND EQU *«, t00=0x0010, t01=0x017a}
0x1a86…1a9a               Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0010, t01=0x018e}
0x1a9a…1acc               Head {h00=0x002e, h01=0x0050, text=» ST A2,DWTSAV,A6 INDICATE TEST STATUS DONE«, t00=0x0011, t01=0x0012}
0x1acc…1aee               Head {h00=0x001e, h01=0x0050, text=» ABL END:IO PERFORM ENDIO «, t00=0x0011, t01=0x0044}
0x1aee…1af8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0066}
0x1af8…1b10               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0011, t01=0x0070}
0x1b10…1b1a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0088}
0x1b1a…1b4a               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0011, t01=0x0092}
0x1b4a…1b7a               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x0011, t01=0x00c2}
0x1b7a…1baa               Head {h00=0x002c, h01=0x0050, text=»*   NEW VOLUME LOADED CHECK           * «, t00=0x0011, t01=0x00f2}
0x1baa…1bda               Head {h00=0x002c, h01=0x0050, text=»*   ORDER CODE CHECK                  * «, t00=0x0011, t01=0x0122}
0x1bda…1c0a               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x0011, t01=0x0152}
0x1c0a…1c3a               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0011, t01=0x0182}
0x1c3a…1c44               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0022}
0x1c44…1c76               Head {h00=0x002e, h01=0x0050, text=»*   INPUT: A1=NVL RETURN CODE FROM NVLCHK «, t00=0x0012, t01=0x002c}
0x1c76…1c96               Head {h00=0x001c, h01=0x0050, text=»*          A7=ORDER CODE«, t00=0x0012, t01=0x005e}
0x1c96…1ca0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007e}
0x1ca0…1caa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0088}
0x1caa…1cbe               Head {h00=0x0010, h01=0x0050, text=»DUA:05 EQU *«, t00=0x0012, t01=0x0092}
0x1cbe…1cea               Head {h00=0x0028, h01=0x0050, text=» ADK A1,0 CHECK IF NEW VOLUME LOADED«, t00=0x0012, t01=0x00a6}
0x1cea…1d10               Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) END:IO PERFORM TENDIO«, t00=0x0012, t01=0x00d2}
0x1d10…1d22               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0012, t01=0x00f8}
0x1d22…1d42               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUA:10 BASIC READ«, t00=0x0012, t01=0x010a}
0x1d42…1d54               Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0012, t01=0x012a}
0x1d54…1d76               Head {h00=0x001e, h01=0x0050, text=» RF(Z) DUA:10 BASIC WRITE «, t00=0x0012, t01=0x013c}
0x1d76…1d8a               Head {h00=0x0010, h01=0x0050, text=» SUK A7,12  «, t00=0x0012, t01=0x015e}
0x1d8a…1dae               Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUA:10 PHYSICAL READ «, t00=0x0012, t01=0x0172}
0x1dae…1dc0               Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x0013, t01=0x0008}
0x1dc0…1de4               Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUA:10 PHYSICAL WRITE«, t00=0x0013, t01=0x001a}
0x1de4…1df6               Head {h00=0x000e, h01=0x0050, text=» SUK A7,10«, t00=0x0013, t01=0x003e}
0x1df6…1e1a               Head {h00=0x0020, h01=0x0050, text=» RF(Z) FORMAT FORMAT VOLUME «, t00=0x0013, t01=0x0050}
0x1e1a…1e24               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0074}
0x1e24…1e4a               Head {h00=0x0022, h01=0x0050, text=»DUERR ABL DISIOE REQUEST ERROR«, t00=0x0013, t01=0x007e}
0x1e4a…1e54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a4}
0x1e54…1e80               Head {h00=0x0028, h01=0x0050, text=»INCLEN EQU * REQUESTED LENGTH ERROR «, t00=0x0013, t01=0x00ae}
0x1e80…1e96               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8008«, t00=0x0013, t01=0x00da}
0x1e96…1eaa               Head {h00=0x0010, h01=0x0050, text=» ABL END:20 «, t00=0x0013, t01=0x00f0}
0x1eaa…1ec0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0013, t01=0x0104}
0x1ec0…1eca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011a}
0x1eca…1ed4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0124}
0x1ed4…1ef6               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0013, t01=0x012e}
0x1ef6…1f18               Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0013, t01=0x0150}
0x1f18…1f3c               Head {h00=0x0020, h01=0x0050, text=»*   FORMAT VOLUME         * «, t00=0x0013, t01=0x0172}
0x1f3c…1f5e               Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0014, t01=0x0008}
0x1f5e…1f80               Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0014, t01=0x002a}
0x1f80…1f8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x004c}
0x1f8a…1f94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0056}
0x1f94…1fa8               Head {h00=0x0010, h01=0x0050, text=»FORMAT EQU *«, t00=0x0014, t01=0x0060}
0x1fa8…1fdc               Head {h00=0x0030, h01=0x0050, text=» LDK A7,204 NUMBER OF CYLINDERS ON PTS 6875 «, t00=0x0014, t01=0x0074}
0x1fdc…2002               Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBCW1,A8 GET DISC TYPE«, t00=0x0014, t01=0x00a8}
0x2002…201e               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0014, t01=0x00ce}
0x201e…2030               Head {h00=0x000e, h01=0x0050, text=» ECR A2,A1«, t00=0x0014, t01=0x00ea}
0x2030…203c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00fc}
0x203c…204e               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0014, t01=0x0108}
0x204e…206e               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FORM03 PTS 6875 «, t00=0x0014, t01=0x011a}
0x206e…208a               Head {h00=0x0018, h01=0x0050, text=» ADK A7,204 PTS 6876«, t00=0x0014, t01=0x013a}
0x208a…209e               Head {h00=0x0010, h01=0x0050, text=»FORM03 EQU *«, t00=0x0014, t01=0x0156}
0x209e…20a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x016a}
0x20a8…20c4               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0014, t01=0x0174}
0x20c4…20dc               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFFER «, t00=0x0014, t01=0x0190}
0x20dc…2102               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/C001 WRITE ONE WORD «, t00=0x0015, t01=0x0018}
0x2102…2114               Head {h00=0x000e, h01=0x0050, text=» ANK A2,3 «, t00=0x0015, t01=0x003e}
0x2114…2126               Head {h00=0x000e, h01=0x0050, text=» SUK A2,3 «, t00=0x0015, t01=0x0050}
0x2126…2146               Head {h00=0x001c, h01=0x0050, text=» RF(NZ) FORM05 A1 OR A2 «, t00=0x0015, t01=0x0062}
0x2146…216c               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/C0C1 WRITE 386 BYTES«, t00=0x0015, t01=0x0082}
0x216c…2184               Head {h00=0x0014, h01=0x0050, text=» ADKL A3,PHSECL «, t00=0x0015, t01=0x00a8}
0x2184…2198               Head {h00=0x0010, h01=0x0050, text=»FORM05 EQU *«, t00=0x0015, t01=0x00c0}
0x2198…21be               Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTFBU,A6 SAVE 1ST WER «, t00=0x0015, t01=0x00d4}
0x21be…21ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x00fa}
0x21ca…21d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0106}
0x21d4…21ea               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0015, t01=0x0110}
0x21ea…2200               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0015, t01=0x0126}
0x2200…2218               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,BUFFER «, t00=0x0015, t01=0x013c}
0x2218…2224               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0015, t01=0x0154}
0x2224…222e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0160}
0x222e…2244               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=0 «, t00=0x0015, t01=0x016a}
0x2244…225a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0015, t01=0x0180}
0x225a…228c               Head {h00=0x002e, h01=0x0050, text=» LDKL A3,BUFFER+PHSECL POSITION FOR CYL ID«, t00=0x0016, t01=0x0008}
0x228c…2298               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x003a}
0x2298…22a2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0046}
0x22a2…22ca               Head {h00=0x0024, h01=0x0050, text=» STR A3,A6 DRIVER BUFFER POINTER«, t00=0x0016, t01=0x0050}
0x22ca…22e0               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0016, t01=0x0078}
0x22e0…22f6               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0016, t01=0x008e}
0x22f6…231a               Head {h00=0x0020, h01=0x0050, text=» CM DWTCYL,A2 CYLINDER ZERO «, t00=0x0016, t01=0x00a4}
0x231a…2326               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x00c8}
0x2326…233c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0016, t01=0x00d4}
0x233c…2360               Head {h00=0x0020, h01=0x0050, text=» CM DWTCYL,A6 CYLINDER ZERO «, t00=0x0016, t01=0x00ea}
0x2360…236c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x010e}
0x236c…2376               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x011a}
0x2376…238c               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0016, t01=0x0124}
0x238c…2396               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x013a}
0x2396…23a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0144}
0x23a0…23b4               Head {h00=0x0010, h01=0x0050, text=»FORM20 EQU *«, t00=0x0016, t01=0x014e}
0x23b4…23ca               Head {h00=0x0012, h01=0x0050, text=» LDK A4,QRETRY«, t00=0x0016, t01=0x0162}
0x23ca…23de               Head {h00=0x0010, h01=0x0050, text=»FORM30 EQU *«, t00=0x0016, t01=0x0178}
0x23de…23f4               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0016, t01=0x018c}
0x23f4…2418               Head {h00=0x0020, h01=0x0050, text=» CF A5,INXUNI GET UNIT INDEX«, t00=0x0017, t01=0x0012}
0x2418…2424               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x0036}
0x2424…2446               Head {h00=0x001e, h01=0x0050, text=» CF A5,SEEK SEEK CYLINDER «, t00=0x0017, t01=0x0042}
0x2446…245e               Head {h00=0x0014, h01=0x0050, text=» SLL A1,5 STATUS«, t00=0x0017, t01=0x0064}
0x245e…2480               Head {h00=0x001e, h01=0x0050, text=» RF(NN) FORM40 SEEK ERROR «, t00=0x0017, t01=0x007c}
0x2480…2496               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0017, t01=0x009e}
0x2496…24ac               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0017, t01=0x00b4}
0x24ac…24c4               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTCYL,A2«, t00=0x0017, t01=0x00ca}
0x24c4…24d0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00e2}
0x24d0…24e6               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0017, t01=0x00ee}
0x24e6…24fe               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTCYL,A6«, t00=0x0017, t01=0x0104}
0x24fe…250a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x011c}
0x250a…2542               Head {h00=0x0034, h01=0x0050, text=» ST* A1,0,A6 PREPARE DRIVER BUFFER WITH CYL. ID «, t00=0x0017, t01=0x0128}
0x2542…2554               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0017, t01=0x0160}
0x2554…2588               Head {h00=0x0030, h01=0x0050, text=» CF A5,SKEW WRITE SECTOR 0 ON EVEN CYLINDERS«, t00=0x0017, t01=0x0172}
0x2588…25b4               Head {h00=0x0028, h01=0x0050, text=»*   WRITE SECTOR 8 ON ODD CYLINDERS «, t00=0x0018, t01=0x0016}
0x25b4…25d8               Head {h00=0x0020, h01=0x0050, text=» ORK A3,1 ORDER CODE: WRITE «, t00=0x0018, t01=0x0042}
0x25d8…25e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0066}
0x25e2…25fe               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0018, t01=0x0070}
0x25fe…2622               Head {h00=0x0020, h01=0x0050, text=» LD A1,DWTFBU,A6 GET 1ST WER«, t00=0x0018, t01=0x008c}
0x2622…262e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x00b0}
0x262e…2638               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00bc}
0x2638…264e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0018, t01=0x00c6}
0x264e…2664               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0018, t01=0x00dc}
0x2664…267a               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C002«, t00=0x0018, t01=0x00f2}
0x267a…2686               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0108}
0x2686…2690               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0114}
0x2690…26a6               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=0 «, t00=0x0018, t01=0x011e}
0x26a6…26bc               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0018, t01=0x0134}
0x26bc…26ea               Head {h00=0x002a, h01=0x0050, text=» LDKL A1,/C0C1 1ST WER WRITE 386 BYTES«, t00=0x0018, t01=0x014a}
0x26ea…26f6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0018, t01=0x0178}
0x26f6…2700               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0184}
0x2700…2718               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x0018, t01=0x018e}
0x2718…273c               Head {h00=0x0020, h01=0x0050, text=» CF A5,CIO:50 CIO:50 SECTOR «, t00=0x0019, t01=0x0016}
0x273c…2750               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1F «, t00=0x0019, t01=0x003a}
0x2750…2772               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FORM40 WRITE ERROR«, t00=0x0019, t01=0x004e}
0x2772…2788               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0019, t01=0x0070}
0x2788…279e               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0019, t01=0x0086}
0x279e…27b4               Head {h00=0x0012, h01=0x0050, text=» IM DWTCYL,A2 «, t00=0x0019, t01=0x009c}
0x27b4…27c0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00b2}
0x27c0…27d6               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0019, t01=0x00be}
0x27d6…27ec               Head {h00=0x0012, h01=0x0050, text=» IM DWTCYL,A6 «, t00=0x0019, t01=0x00d4}
0x27ec…27f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00ea}
0x27f8…2824               Head {h00=0x0028, h01=0x0050, text=» SUK A7,1 DECREMENT CYLINDER COUNTER«, t00=0x0019, t01=0x00f6}
0x2824…283a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) FORM20«, t00=0x0019, t01=0x0122}
0x283a…286e               Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBCW1,A8 GET FORMAT AND TYPE OF DISC«, t00=0x0019, t01=0x0138}
0x286e…289c               Head {h00=0x002a, h01=0x0050, text=» ABL TRANPA PUT FORMAT AND TYPE IN DWT«, t00=0x0019, t01=0x016c}
0x289c…28b0               Head {h00=0x0010, h01=0x0050, text=»FORM40 EQU *«, t00=0x001a, t01=0x000a}
0x28b0…28d4               Head {h00=0x0020, h01=0x0050, text=» CF A5,SEEKZ SEEK CYLINDER 0«, t00=0x001a, t01=0x001e}
0x28d4…28e6               Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x001a, t01=0x0042}
0x28e6…2906               Head {h00=0x001c, h01=0x0050, text=» RF(N) FORM50 SEEK ERROR«, t00=0x001a, t01=0x0054}
0x2906…2926               Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 RETRY COUNTER «, t00=0x001a, t01=0x0074}
0x2926…2942               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) FORM30 RETRY«, t00=0x001a, t01=0x0094}
0x2942…2956               Head {h00=0x0010, h01=0x0050, text=»FORM50 EQU *«, t00=0x001a, t01=0x00b0}
0x2956…297e               Head {h00=0x0024, h01=0x0050, text=» LDK A1,2 SEEK ERROR RETURN CODE«, t00=0x001a, t01=0x00c4}
0x297e…29a0               Head {h00=0x001e, h01=0x0050, text=» ABL END:IO PERFORM END IO«, t00=0x001a, t01=0x00ec}
0x29a0…29c0               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x001a, t01=0x010e}
0x29c0…29ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012e}
0x29ca…29d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0138}
0x29d4…2a0e               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001a, t01=0x0142}
0x2a0e…2a48               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x001a, t01=0x017c}
0x2a48…2a82               Head {h00=0x0036, h01=0x0050, text=»*   CHECK IF ALLOWED SECTOR LENGTH, BUFFER SIZE * «, t00=0x001b, t01=0x0026}
0x2a82…2abc               Head {h00=0x0036, h01=0x0050, text=»*   AND SECTOR NUMBER                           * «, t00=0x001b, t01=0x0060}
0x2abc…2af6               Head {h00=0x0036, h01=0x0050, text=»*   SAVE BUFFER ADDRESS AND SET SECTOR COUNTER  * «, t00=0x001b, t01=0x009a}
0x2af6…2b30               Head {h00=0x0036, h01=0x0050, text=»*                                               * «, t00=0x001b, t01=0x00d4}
0x2b30…2b6a               Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001b, t01=0x010e}
0x2b6a…2b74               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0148}
0x2b74…2b8a               Head {h00=0x0012, h01=0x0050, text=»*   INPUT: ECB«, t00=0x001b, t01=0x0152}
0x2b8a…2bb0               Head {h00=0x0022, h01=0x0050, text=»*   OUTPUT: A7=SECTOR COUNTER «, t00=0x001b, t01=0x0168}
0x2bb0…2bde               Head {h00=0x002a, h01=0x0050, text=»*           DWTUBU=USER BUFFER POINTER«, t00=0x001b, t01=0x018e}
0x2bde…2be8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x002c}
0x2be8…2bf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0036}
0x2bf2…2c06               Head {h00=0x0010, h01=0x0050, text=»DUA:10 EQU *«, t00=0x001c, t01=0x0040}
0x2c06…2c2e               Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBRL,A8 REQUESTED LENGTH«, t00=0x001c, t01=0x0054}
0x2c2e…2c44               Head {h00=0x0012, h01=0x0050, text=» RB(Z) INCLEN «, t00=0x001c, t01=0x007c}
0x2c44…2c7e               Head {h00=0x0036, h01=0x0050, text=» ECR A7,A3 DIVIDE BY 256 TO GET NUMBER OF SECTORS «, t00=0x001c, t01=0x0092}
0x2c7e…2ca8               Head {h00=0x0026, h01=0x0050, text=» ANK A3,/FF SET CONDITION REGISTER«, t00=0x001c, t01=0x00cc}
0x2ca8…2ce0               Head {h00=0x0034, h01=0x0050, text=» RB(NZ) INCLEN NOT AN INTEGER NUMBER OF SECTORS «, t00=0x001c, t01=0x00f6}
0x2ce0…2d1e               Head {h00=0x003a, h01=0x0050, text=» LD A3,ECBCW2,A8 SECTOR NUMBER WHERE THE BUFFER BEGIN «, t00=0x001c, t01=0x012e}
0x2d1e…2d4a               Head {h00=0x0028, h01=0x0050, text=» RB(N) DUERR INCORRECT SECTOR NUMBER«, t00=0x001c, t01=0x016c}
0x2d4a…2d62               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTSMX,A2«, t00=0x001d, t01=0x0008}
0x2d62…2d90               Head {h00=0x002a, h01=0x0050, text=» RB(NL) DUERR INCORRECT SECTOR NUMBER «, t00=0x001d, t01=0x0020}
0x2d90…2da2               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A7«, t00=0x001d, t01=0x004e}
0x2da2…2dba               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTSMX,A2«, t00=0x001d, t01=0x0060}
0x2dba…2de6               Head {h00=0x0028, h01=0x0050, text=» RB(G) INCLEN SECTOR NUMBER OVERFLOW«, t00=0x001d, t01=0x0078}
0x2de6…2df0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a4}
0x2df0…2e06               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001d, t01=0x00ae}
0x2e06…2e1e               Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBBA,A8 «, t00=0x001d, t01=0x00c4}
0x2e1e…2e4a               Head {h00=0x0028, h01=0x0050, text=» ST A1,DWTUBU,A6 USER BUFFER POINTER«, t00=0x001d, t01=0x00dc}
0x2e4a…2e56               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0108}
0x2e56…2e60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0114}
0x2e60…2e76               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x001d, t01=0x011e}
0x2e76…2e80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0134}
0x2e80…2e9c               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x001d, t01=0x013e}
0x2e9c…2ea6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015a}
0x2ea6…2eb0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0164}
0x2eb0…2ed6               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x001d, t01=0x016e}
0x2ed6…2efc (30, 0, 400)  Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x001e, t01=0x0004}
0x2efc…2f22               Head {h00=0x0022, h01=0x0050, text=»*   DISC VERSION SEPARATION  *«, t00=0x001e, t01=0x002a}
0x2f22…2f48               Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x001e, t01=0x0050}
0x2f48…2f6e               Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x001e, t01=0x0076}
0x2f6e…2f78               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x009c}
0x2f78…2f82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a6}
0x2f82…2f9a               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFOR,A2«, t00=0x001e, t01=0x00b0}
0x2f9a…2fac               Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x001e, t01=0x00c8}
0x2fac…2fcc               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RW:800 VERSION A2«, t00=0x001e, t01=0x00da}
0x2fcc…2fd8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00fa}
0x2fd8…2fe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0106}
0x2fe2…2ff8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x001e, t01=0x0110}
0x2ff8…3002               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0126}
0x3002…3018               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x001e, t01=0x0130}
0x3018…3022               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0146}
0x3022…3050               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001e, t01=0x0150}
0x3050…307e               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x001e, t01=0x017e}
0x307e…30ac               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x001f, t01=0x001c}
0x30ac…30da               Head {h00=0x002a, h01=0x0050, text=»*   GET PHYSICAL SECTOR NUMBER BY   * «, t00=0x001f, t01=0x004a}
0x30da…3108               Head {h00=0x002a, h01=0x0050, text=»*   DIVIDE BY 3                     * «, t00=0x001f, t01=0x0078}
0x3108…3136               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x001f, t01=0x00a6}
0x3136…3164               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x001f, t01=0x00d4}
0x3164…316e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0102}
0x316e…3184               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001f, t01=0x010c}
0x3184…31aa               Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 PREPARE FOR DIVISION«, t00=0x001f, t01=0x0122}
0x31aa…31dc               Head {h00=0x002e, h01=0x0050, text=» LD A2,ECBCW2,A8 GET LOGICAL SECTOR NUMBER«, t00=0x001f, t01=0x0148}
0x31dc…31ea               Head {h00=0x000a, h01=0x0050, text=» DVK 3«, t00=0x001f, t01=0x017a}
0x31ea…321a               Head {h00=0x002c, h01=0x0050, text=»*   A1=REMAINER=LOGICAL SECTOR POSITION «, t00=0x001f, t01=0x0188}
0x321a…3250               Head {h00=0x0032, h01=0x0050, text=»*   A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC«, t00=0x0020, t01=0x0028}
0x3250…325c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x005e}
0x325c…3266               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x006a}
0x3266…327c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0020, t01=0x0074}
0x327c…3292               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0020, t01=0x008a}
0x3292…32aa               Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW2,A8«, t00=0x0020, t01=0x00a0}
0x32aa…32ca               Head {h00=0x001c, h01=0x0050, text=» LDR A3,A1 SECTOR NUMBER«, t00=0x0020, t01=0x00b8}
0x32ca…32dc               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0020, t01=0x00d8}
0x32dc…32f0               Head {h00=0x0010, h01=0x0050, text=»DVK:00 EQU *«, t00=0x0020, t01=0x00ea}
0x32f0…330c               Head {h00=0x0018, h01=0x0050, text=» ADR A2,A3 I:= I+I/4«, t00=0x0020, t01=0x00fe}
0x330c…3326               Head {h00=0x0016, h01=0x0050, text=» SRL A3,2 I:= I/4 «, t00=0x0020, t01=0x011a}
0x3326…333c               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DVK:00«, t00=0x0020, t01=0x0134}
0x333c…3356               Head {h00=0x0016, h01=0x0050, text=» SRL A2,2 TRUNCATE«, t00=0x0020, t01=0x014a}
0x3356…3368               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x0020, t01=0x0164}
0x3368…337a               Head {h00=0x000e, h01=0x0050, text=» SUR A1,A2«, t00=0x0020, t01=0x0176}
0x337a…339c               Head {h00=0x001e, h01=0x0050, text=» SUR A1,A2 REST AFTER LOOP«, t00=0x0020, t01=0x0188}
0x339c…33ae               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0021, t01=0x001a}
0x33ae…33c2               Head {h00=0x0010, h01=0x0050, text=»DVK:10 EQU *«, t00=0x0021, t01=0x002c}
0x33c2…33d4               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0021, t01=0x0040}
0x33d4…33f2               Head {h00=0x001a, h01=0x0050, text=» SUK A1,3 DIVIDE BY 3 «, t00=0x0021, t01=0x0052}
0x33f2…3408               Head {h00=0x0012, h01=0x0050, text=» RB(NN) DVK:10«, t00=0x0021, t01=0x0070}
0x3408…341e               Head {h00=0x0012, h01=0x0050, text=» ADK A1,3 REST«, t00=0x0021, t01=0x0086}
0x341e…344e               Head {h00=0x002c, h01=0x0050, text=»*   A1=REMAINER=LOGICAL SECTOR POSITION «, t00=0x0021, t01=0x009c}
0x344e…3484               Head {h00=0x0032, h01=0x0050, text=»*   A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC«, t00=0x0021, t01=0x00cc}
0x3484…348e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0102}
0x348e…34a4               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0021, t01=0x010c}
0x34a4…34b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x0122}
0x34b0…34ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x012e}
0x34ba…34d0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0021, t01=0x0138}
0x34d0…34da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x014e}
0x34da…3508               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0021, t01=0x0158}
0x3508…3536               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0021, t01=0x0186}
0x3536…3564               Head {h00=0x002a, h01=0x0050, text=»*   SAVE PHYSICAL SECTOR NUMBER     * «, t00=0x0022, t01=0x0024}
0x3564…3592               Head {h00=0x002a, h01=0x0050, text=»*   AND SECTOR POSITION             * «, t00=0x0022, t01=0x0052}
0x3592…35c0               Head {h00=0x002a, h01=0x0050, text=»*   BRANCH ACCORDING TO SECTOR      * «, t00=0x0022, t01=0x0080}
0x35c0…35ee               Head {h00=0x002a, h01=0x0050, text=»*   POSITION                        * «, t00=0x0022, t01=0x00ae}
0x35ee…361c               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0022, t01=0x00dc}
0x361c…364a               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0022, t01=0x010a}
0x364a…3654               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0138}
0x3654…3684               Head {h00=0x002c, h01=0x0050, text=»*   INPUT: A1=SECTOR POSITION INDICATOR «, t00=0x0022, t01=0x0142}
0x3684…36b4               Head {h00=0x002c, h01=0x0050, text=»*          A2=LOGICAL SECTOR NUMBER / 3 «, t00=0x0022, t01=0x0172}
0x36b4…36be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0012}
0x36be…36c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x001c}
0x36c8…36da               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0023, t01=0x0026}
0x36da…3708               Head {h00=0x002a, h01=0x0050, text=» STR A2,A6 SAVE PHYSICAL SECTOR NUMBER«, t00=0x0023, t01=0x0038}
0x3708…371a               Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0023, t01=0x0066}
0x371a…372c               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0023, t01=0x0078}
0x372c…375a               Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTSEP,A6 SAVE SECTOR POSITION «, t00=0x0023, t01=0x008a}
0x375a…3790               Head {h00=0x0032, h01=0x0050, text=» ST A2,DWTSEI,A6 SAVE 1ST PHYS. SECTOR NUMBER «, t00=0x0023, t01=0x00b8}
0x3790…379c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00ee}
0x379c…37a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00fa}
0x37a6…37bc               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0023, t01=0x0104}
0x37bc…37e0               Head {h00=0x0020, h01=0x001b, text=»*   LOGICAL SECTOR POSITION «, t00=0x0023, t01=0x011a}
0x37e0…3806               Head {h00=0x0022, h01=0x0050, text=» RF(N) RW:300 ,XXXX  ,      , «, t00=0x0023, t01=0x013e}
0x3806…382c               Head {h00=0x0022, h01=0x0050, text=» RF(Z) RW:200 ,    XX,XX    , «, t00=0x0023, t01=0x0164}
0x382c…3848               Head {h00=0x0018, h01=0x0013, text=»*   ,      ,  XXXX, «, t00=0x0023, t01=0x018a}
0x3848…3852               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x0016}
0x3852…3868               Head {h00=0x0012, h01=0x000e, text=» EJECT  DRDU01«, t00=0x0024, t01=0x0020}
0x3868…3872               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x0036}
0x3872…38a0               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0024, t01=0x0040}
0x38a0…38ce               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0024, t01=0x006e}
0x38ce…38fc               Head {h00=0x002a, h01=0x0050, text=»*   READ/WRITE FROM SECTOR IN       * «, t00=0x0024, t01=0x009c}
0x38fc…392a               Head {h00=0x002a, h01=0x0050, text=»*   POSITION ,      ,  xxxx,        * «, t00=0x0024, t01=0x00ca}
0x392a…3958               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0024, t01=0x00f8}
0x3958…3986               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0024, t01=0x0126}
0x3986…3990               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0024, t01=0x0154}
0x3990…39bc               Head {h00=0x0028, h01=0x0050, text=» IMR A6 LOG. SECTOR IN NEXT PHYSICAL«, t00=0x0024, t01=0x015e}
0x39bc…39ce               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0024, t01=0x018a}
0x39ce…39fe               Head {h00=0x002c, h01=0x0050, text=» IM DWTSEI,A6 SAVE FOR READ AFTER WRITE «, t00=0x0025, t01=0x000c}
0x39fe…3a0a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x003c}
0x3a0a…3a14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0048}
0x3a14…3a2a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0025, t01=0x0052}
0x3a2a…3a40               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0025, t01=0x0068}
0x3a40…3a54               Head {h00=0x0010, h01=0x0050, text=» DATA /0084 «, t00=0x0025, t01=0x007e}
0x3a54…3a66               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0025, t01=0x0092}
0x3a66…3a78               Head {h00=0x000e, h01=0x0050, text=» RF RW:300«, t00=0x0025, t01=0x00a4}
0x3a78…3a82               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b6}
0x3a82…3a98               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0025, t01=0x00c0}
0x3a98…3aa2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d6}
0x3aa2…3ad0               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0025, t01=0x00e0}
0x3ad0…3afe               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0025, t01=0x010e}
0x3afe…3b2c               Head {h00=0x002a, h01=0x0050, text=»*   READ/WRITE FROM SECTOR IN       * «, t00=0x0025, t01=0x013c}
0x3b2c…3b5a               Head {h00=0x002a, h01=0x0050, text=»*   POSITION ,    xx,               * «, t00=0x0025, t01=0x016a}
0x3b5a…3b88               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0026, t01=0x0008}
0x3b88…3bb6               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0026, t01=0x0036}
0x3bb6…3bc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0064}
0x3bc0…3bca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x006e}
0x3bca…3bde               Head {h00=0x0010, h01=0x0050, text=»RW:200 EQU *«, t00=0x0026, t01=0x0078}
0x3bde…3bf4               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0026, t01=0x008c}
0x3bf4…3c08               Head {h00=0x0010, h01=0x0050, text=» DATA /0048 «, t00=0x0026, t01=0x00a2}
0x3c08…3c2c               Head {h00=0x0020, h01=0x0050, text=» SUK A7,2 NUMBER OF SECTORS «, t00=0x0026, t01=0x00b6}
0x3c2c…3c50               Head {h00=0x0020, h01=0x0050, text=» RF(N) RW:230 1 SECTOR IN IO«, t00=0x0026, t01=0x00da}
0x3c50…3c78               Head {h00=0x0024, h01=0x0050, text=» RF(NZ) RW:260 >2 SECTORS IN IO «, t00=0x0026, t01=0x00fe}
0x3c78…3c94               Head {h00=0x0018, h01=0x0050, text=»*   ,    XX,XXXXXX, «, t00=0x0026, t01=0x0126}
0x3c94…3caa               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0026, t01=0x0142}
0x3caa…3cbe               Head {h00=0x0010, h01=0x0050, text=» DATA /00C0 «, t00=0x0026, t01=0x0158}
0x3cbe…3cd0               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x0026, t01=0x016c}
0x3cd0…3cf4               Head {h00=0x0020, h01=0x0050, text=»RW:230 EQU * ,    XX,XX    ,«, t00=0x0026, t01=0x017e}
0x3cf4…3d0a               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0027, t01=0x0012}
0x3d0a…3d1e               Head {h00=0x0010, h01=0x0050, text=» DATA /0040 «, t00=0x0027, t01=0x0028}
0x3d1e…3d30               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x0027, t01=0x003c}
0x3d30…3d54               Head {h00=0x0020, h01=0x0050, text=»RW:260 EQU * ,    XX,XXXXXX,«, t00=0x0027, t01=0x004e}
0x3d54…3d6a               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0027, t01=0x0072}
0x3d6a…3d7e               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x0027, t01=0x0088}
0x3d7e…3d88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x009c}
0x3d88…3d9e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0027, t01=0x00a6}
0x3d9e…3da8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00bc}
0x3da8…3dd4               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0027, t01=0x00c6}
0x3dd4…3e00               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x0027, t01=0x00f2}
0x3e00…3e2c               Head {h00=0x0028, h01=0x0050, text=»*   DIRECT READ/WRITE AS LONG      *«, t00=0x0027, t01=0x011e}
0x3e2c…3e58               Head {h00=0x0028, h01=0x0050, text=»*   AS POSIBLE                     *«, t00=0x0027, t01=0x014a}
0x3e58…3e84               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x0027, t01=0x0176}
0x3e84…3eb0               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0028, t01=0x0012}
0x3eb0…3eba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x003e}
0x3eba…3ec4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0048}
0x3ec4…3ed8               Head {h00=0x0010, h01=0x0050, text=»RW:300 EQU *«, t00=0x0028, t01=0x0052}
0x3ed8…3ef8               Head {h00=0x001c, h01=0x0050, text=» SUK A7,3 SECTOR COUNTER«, t00=0x0028, t01=0x0066}
0x3ef8…3f2c               Head {h00=0x0030, h01=0x0050, text=» RF(NG) RW:500 LESS THAN FOUR SECTORS IN IO «, t00=0x0028, t01=0x0086}
0x3f2c…3f42               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0028, t01=0x00ba}
0x3f42…3f56               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x0028, t01=0x00d0}
0x3f56…3f6c               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0028, t01=0x00e4}
0x3f6c…3f80               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x0028, t01=0x00fa}
0x3f80…3f92               Head {h00=0x000e, h01=0x0050, text=» RB RW:300«, t00=0x0028, t01=0x010e}
0x3f92…3f9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0120}
0x3f9c…3fb2               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0028, t01=0x012a}
0x3fb2…3fbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0140}
0x3fbc…3fe8               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0028, t01=0x014a}
0x3fe8…4014               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x0028, t01=0x0176}
0x4014…4040               Head {h00=0x0028, h01=0x0050, text=»*   READ/WRITE ON THE LAST SECTORS *«, t00=0x0029, t01=0x0012}
0x4040…406c               Head {h00=0x0028, h01=0x0050, text=»*   IN IO                          *«, t00=0x0029, t01=0x003e}
0x406c…4098               Head {h00=0x0028, h01=0x0050, text=»*                                  *«, t00=0x0029, t01=0x006a}
0x4098…40c4               Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0029, t01=0x0096}
0x40c4…40ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c2}
0x40ce…40d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00cc}
0x40d8…40ec               Head {h00=0x0010, h01=0x0050, text=»RW:500 EQU *«, t00=0x0029, t01=0x00d6}
0x40ec…410c               Head {h00=0x001c, h01=0x0050, text=» RF(Z) RW:580 3 SECTORS «, t00=0x0029, t01=0x00ea}
0x410c…411e               Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0029, t01=0x010a}
0x411e…413e               Head {h00=0x001c, h01=0x0050, text=» RF(P) RW:560 2 SECTORS «, t00=0x0029, t01=0x011c}
0x413e…415e               Head {h00=0x001c, h01=0x0050, text=» RF(N) RW:600 0 SECTORS «, t00=0x0029, t01=0x013c}
0x415e…4182               Head {h00=0x0020, h01=0x0050, text=»RW:530 EQU * ,XXXX  ,      ,«, t00=0x0029, t01=0x015c}
0x4182…4198               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0029, t01=0x0180}
0x4198…41ac               Head {h00=0x0010, h01=0x0050, text=» DATA /0080 «, t00=0x002a, t01=0x0008}
0x41ac…41be               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x002a, t01=0x001c}
0x41be…41e2               Head {h00=0x0020, h01=0x0050, text=»RW:560 EQU * ,XXXXXX,XX    ,«, t00=0x002a, t01=0x002e}
0x41e2…41f8               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002a, t01=0x0052}
0x41f8…420c               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x002a, t01=0x0068}
0x420c…4222               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002a, t01=0x007c}
0x4222…4236               Head {h00=0x0010, h01=0x0050, text=» DATA /0040 «, t00=0x002a, t01=0x0092}
0x4236…4248               Head {h00=0x000e, h01=0x0050, text=» RF RW:600«, t00=0x002a, t01=0x00a6}
0x4248…426c               Head {h00=0x0020, h01=0x0050, text=»RW:580 EQU * ,XXXXXX,XXXXXX,«, t00=0x002a, t01=0x00b8}
0x426c…4282               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002a, t01=0x00dc}
0x4282…4296               Head {h00=0x0010, h01=0x0050, text=» DATA /80C0 «, t00=0x002a, t01=0x00f2}
0x4296…42ac               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002a, t01=0x0106}
0x42ac…42c0               Head {h00=0x0010, h01=0x0050, text=» DATA /00C0 «, t00=0x002a, t01=0x011c}
0x42c0…42ca               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0130}
0x42ca…42e0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x002a, t01=0x013a}
0x42e0…42ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0150}
0x42ea…42f4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x015a}
0x42f4…4308               Head {h00=0x0010, h01=0x0050, text=»RW:600 EQU *«, t00=0x002a, t01=0x0164}
0x4308…431a               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x002a, t01=0x0178}
0x431a…4324               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x018a}
0x4324…4344 (43, 0, 400)  Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x002b, t01=0x0004}
0x4344…4364               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x002b, t01=0x0024}
0x4364…4384               Head {h00=0x001c, h01=0x0050, text=»*   READ AFTER WRITE   *«, t00=0x002b, t01=0x0044}
0x4384…43a4               Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x002b, t01=0x0064}
0x43a4…43c4               Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x002b, t01=0x0084}
0x43c4…43ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a4}
0x43ce…4402               Head {h00=0x0030, h01=0x0050, text=»*   DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO«, t00=0x002b, t01=0x00ae}
0x4402…443e               Head {h00=0x0038, h01=0x0050, text=»*   1ST POS IN DWT=LAST PHYSICAL SECTOR NUMBER IN IO«, t00=0x002b, t01=0x00e2}
0x443e…445c               Head {h00=0x001a, h01=0x0050, text=»*   A7=SECTOR COUNTER «, t00=0x002b, t01=0x011e}
0x445c…4466               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x013c}
0x4466…447e               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x002b, t01=0x0146}
0x447e…449c               Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF GET ORDER «, t00=0x002b, t01=0x015e}
0x449c…44b0               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/15 «, t00=0x002b, t01=0x017c}
0x44b0…44da               Head {h00=0x0026, h01=0x0050, text=» RF(NZ) RW:700 NOT PHYSICAL WRITE «, t00=0x002b, t01=0x0190}
0x44da…44f0               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,-/100«, t00=0x002c, t01=0x002a}
0x44f0…4520               Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTSEP,A6 GET 1ST SECTOR POSITION«, t00=0x002c, t01=0x0040}
0x4520…453e               Head {h00=0x001a, h01=0x0050, text=» RF(Z) RW:645 ,    XX,«, t00=0x002c, t01=0x0070}
0x453e…455c               Head {h00=0x001a, h01=0x0050, text=» RF(P) RW:640 ,  XXXX,«, t00=0x002c, t01=0x008e}
0x455c…4570               Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x002c, t01=0x00ac}
0x4570…4584               Head {h00=0x0010, h01=0x0050, text=»RW:640 EQU *«, t00=0x002c, t01=0x00c0}
0x4584…4598               Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x002c, t01=0x00d4}
0x4598…45ac               Head {h00=0x0010, h01=0x0050, text=»RW:645 EQU *«, t00=0x002c, t01=0x00e8}
0x45ac…45dc               Head {h00=0x002c, h01=0x0050, text=» ST A2,ECBEL,A8 PREPARE EFFECTIVE LENGTH«, t00=0x002c, t01=0x00fc}
0x45dc…460a               Head {h00=0x002a, h01=0x0050, text=» LD A1,DWTSEI,A6 RAW FROM THIS SECTOR «, t00=0x002c, t01=0x012c}
0x460a…4630               Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 GET LAST SECTOR NO«, t00=0x002c, t01=0x015a}
0x4630…4662               Head {h00=0x002e, h01=0x0050, text=» SUR A7,A1 GET NUMBER OF PHYSICAL SECTORS «, t00=0x002c, t01=0x0180}
0x4662…4674               Head {h00=0x000e, h01=0x0050, text=» STR A1,A6«, t00=0x002d, t01=0x0022}
0x4674…467e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0034}
0x467e…4694               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x002d, t01=0x003e}
0x4694…469e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0054}
0x469e…46a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005e}
0x46a8…46bc               Head {h00=0x0010, h01=0x0050, text=»RW:650 EQU *«, t00=0x002d, t01=0x0068}
0x46bc…46d2               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002d, t01=0x007c}
0x46d2…46e6               Head {h00=0x0010, h01=0x0050, text=» DATA /40C0 «, t00=0x002d, t01=0x0092}
0x46e6…470a               Head {h00=0x0020, h01=0x0050, text=» IMR A6 NEXT PHYSICAL SECTOR«, t00=0x002d, t01=0x00a6}
0x470a…4722               Head {h00=0x0014, h01=0x0050, text=» LDKL A1,PHSECL «, t00=0x002d, t01=0x00ca}
0x4722…4748               Head {h00=0x0022, h01=0x0050, text=» ADS A1,ECBEL,A8 UPDATE ECBEL «, t00=0x002d, t01=0x00e2}
0x4748…475a               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x002d, t01=0x0108}
0x475a…4770               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) RW:650«, t00=0x002d, t01=0x011a}
0x4770…4788               Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBRL,A8 «, t00=0x002d, t01=0x0130}
0x4788…47b8               Head {h00=0x002c, h01=0x0050, text=» ST A7,ECBEL,A8 CORRECT EFFECTIVE LENGTH«, t00=0x002d, t01=0x0148}
0x47b8…47c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x0178}
0x47c4…47ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0184}
0x47ce…47e4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x002d, t01=0x018e}
0x47e4…47f8               Head {h00=0x0010, h01=0x0050, text=»RW:700 EQU *«, t00=0x002e, t01=0x0014}
0x47f8…4816               Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x002e, t01=0x0028}
0x4816…4830               Head {h00=0x0016, h01=0x0050, text=» ABL END:20 ENDIO «, t00=0x002e, t01=0x0046}
0x4830…483a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0060}
0x483a…4846               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x006a}
0x4846…4850               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0076}
0x4850…4866               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x002e, t01=0x0080}
0x4866…4870               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0096}
0x4870…4886               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x002e, t01=0x00a0}
0x4886…4890               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b6}
0x4890…489a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00c0}
0x489a…48c4               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002e, t01=0x00ca}
0x48c4…48ee               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x002e, t01=0x00f4}
0x48ee…4918               Head {h00=0x0026, h01=0x0050, text=»*   DISC FORMAT A2              * «, t00=0x002e, t01=0x011e}
0x4918…4942               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x002e, t01=0x0148}
0x4942…496c               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002e, t01=0x0172}
0x496c…4976               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x000c}
0x4976…4980               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0016}
0x4980…4994               Head {h00=0x0010, h01=0x0050, text=»RW:800 EQU *«, t00=0x002f, t01=0x0020}
0x4994…49a8               Head {h00=0x0010, h01=0x0050, text=» CF A5,DIV31«, t00=0x002f, t01=0x0034}
0x49a8…49ba               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x002f, t01=0x0048}
0x49ba…49fe               Head {h00=0x0040, h01=0x0050, text=» ST A7,DWTSEI,A6 SAVE NUMBER OF SECTORS FOR READ AFTER WRITE«, t00=0x002f, t01=0x005a}
0x49fe…4a0a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x009e}
0x4a0a…4a14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00aa}
0x4a14…4a2a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x002f, t01=0x00b4}
0x4a2a…4a3e               Head {h00=0x0010, h01=0x0050, text=»RW:850 EQU *«, t00=0x002f, t01=0x00ca}
0x4a3e…4a54               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x002f, t01=0x00de}
0x4a54…4a7a               Head {h00=0x0022, h01=0x0050, text=» DATA /A080 INDICATE FORMAT A2«, t00=0x002f, t01=0x00f4}
0x4a7a…4a90               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x002f, t01=0x011a}
0x4a90…4ac4               Head {h00=0x0030, h01=0x0050, text=» ADS A1,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x002f, t01=0x0130}
0x4ac4…4ad6               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x002f, t01=0x0164}
0x4ad6…4b00               Head {h00=0x0026, h01=0x0050, text=» RB(NZ) RW:850 MORE SECTORS IN IO «, t00=0x002f, t01=0x0176}
0x4b00…4b0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0010}
0x4b0a…4b20               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0030, t01=0x001a}
0x4b20…4b2a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0030}
0x4b2a…4b34               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x003a}
0x4b34…4b46               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0030, t01=0x0044}
0x4b46…4b68               Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x0030, t01=0x0056}
0x4b68…4b7c               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0030, t01=0x0078}
0x4b7c…4b90               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/15 «, t00=0x0030, t01=0x008c}
0x4b90…4b9a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00a0}
0x4b9a…4bb0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0030, t01=0x00aa}
0x4bb0…4bda               Head {h00=0x0026, h01=0x0050, text=» RB(NZ) RW:700 NOT PHYSICAL WRITE «, t00=0x0030, t01=0x00c0}
0x4bda…4be6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x00ea}
0x4be6…4bf0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00f6}
0x4bf0…4c06               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0030, t01=0x0100}
0x4c06…4c1c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0030, t01=0x0116}
0x4c1c…4c2e               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0030, t01=0x012c}
0x4c2e…4c44               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) RW:905«, t00=0x0030, t01=0x013e}
0x4c44…4c50               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0154}
0x4c50…4c5a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0160}
0x4c5a…4c70               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0030, t01=0x016a}
0x4c70…4c82               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0030, t01=0x0180}
0x4c82…4cb4 (49, 0, 398)  Head {h00=0x002e, h01=0x0050, text=» CM ECBEL,A8 PREPARE FOR READ AFTER WRITE «, t00=0x0031, t01=0x0004}
0x4cb4…4ccc               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTSEI,A6«, t00=0x0031, t01=0x0036}
0x4ccc…4ce0               Head {h00=0x0010, h01=0x0050, text=» CF A5,DIV31«, t00=0x0031, t01=0x004e}
0x4ce0…4cea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0062}
0x4cea…4d00               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0031, t01=0x006c}
0x4d00…4d0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0082}
0x4d0a…4d14               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x008c}
0x4d14…4d28               Head {h00=0x0010, h01=0x0050, text=»RW:900 EQU *«, t00=0x0031, t01=0x0096}
0x4d28…4d3e               Head {h00=0x0012, h01=0x0050, text=» CF A5,IOROUT «, t00=0x0031, t01=0x00aa}
0x4d3e…4d62               Head {h00=0x0020, h01=0x0050, text=» DATA /E080 READ AFTER WRITE«, t00=0x0031, t01=0x00c0}
0x4d62…4d74               Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0031, t01=0x00e4}
0x4d74…4d8a               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) RW:900«, t00=0x0031, t01=0x00f6}
0x4d8a…4d96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x010c}
0x4d96…4da0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0118}
0x4da0…4dbc               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0031, t01=0x0122}
0x4dbc…4dce               Head {h00=0x000e, h01=0x0050, text=» RB RW:700«, t00=0x0031, t01=0x013e}
0x4dce…4dda               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0150}
0x4dda…4de4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015c}
0x4de4…4dfa               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0031, t01=0x0166}
0x4dfa…4e10               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0031, t01=0x017c}
0x4e10…4e24 (50, 0, 400)  Head {h00=0x0010, h01=0x0050, text=»RW:905 EQU *«, t00=0x0032, t01=0x0004}
0x4e24…4e48               Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x0032, t01=0x0018}
0x4e48…4e5c               Head {h00=0x0010, h01=0x0050, text=» ABL END:20 «, t00=0x0032, t01=0x003c}
0x4e5c…4e68               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0032, t01=0x0050}
0x4e68…4e72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x005c}
0x4e72…4e88               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0032, t01=0x0066}
0x4e88…4e92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x007c}
0x4e92…4eca               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0032, t01=0x0086}
0x4eca…4f02               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0032, t01=0x00be}
0x4f02…4f3a               Head {h00=0x0034, h01=0x0050, text=»*   IOROUT PERFORM READ OR WRITE AND SEEK     * «, t00=0x0032, t01=0x00f6}
0x4f3a…4f72               Head {h00=0x0034, h01=0x0050, text=»*   IF NECESSARY                              * «, t00=0x0032, t01=0x012e}
0x4f72…4faa               Head {h00=0x0034, h01=0x0050, text=»*                                             * «, t00=0x0032, t01=0x0166}
0x4faa…4fe2               Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0033, t01=0x000e}
0x4fe2…4fec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0046}
0x4fec…5016               Head {h00=0x0026, h01=0x0050, text=»*   INPUT : ONE DATA WORD AFTER CF«, t00=0x0033, t01=0x0050}
0x5016…5044               Head {h00=0x002a, h01=0x0050, text=»*          BIT 0 :INDICATES DIRECT IO «, t00=0x0033, t01=0x007a}
0x5044…5078               Head {h00=0x0030, h01=0x0050, text=»*          BIT 1 :INDICATES READ AFTER WRITE«, t00=0x0033, t01=0x00a8}
0x5078…50a6               Head {h00=0x002a, h01=0x0050, text=»*          BIT 2 :INDICATES FORMAT A2 «, t00=0x0033, t01=0x00dc}
0x50a6…50d4               Head {h00=0x002a, h01=0x0050, text=»*          BIT 8-11:NUMBER OF WORDS/16«, t00=0x0033, t01=0x010a}
0x50d4…510a               Head {h00=0x0032, h01=0x0050, text=»*          BIT12-15:START IN DRIVER BUFFER/32 «, t00=0x0033, t01=0x0138}
0x510a…514a               Head {h00=0x003c, h01=0x0050, text=»*   AFTER SEEK THE CYLINDER ID WILL BE CHECKED BY A READ«, t00=0x0033, t01=0x016e}
0x514a…518e               Head {h00=0x0040, h01=0x0050, text=»*   DWTBSE CONTAINS THE PRESENT SECTOR IN THE DRIVER BUFFER «, t00=0x0034, t01=0x001e}
0x518e…51b8               Head {h00=0x0026, h01=0x0050, text=»*   DWTRTY INDICATES RETRIES DONE «, t00=0x0034, t01=0x0062}
0x51b8…5204               Head {h00=0x0048, h01=0x0050, text=»*   DWTSWD SAVED WORD FROM USER BUFFER WHEN IO NOT VIA DRIVER BUFFER«, t00=0x0034, t01=0x008c}
0x5204…520e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00d8}
0x520e…5222               Head {h00=0x0010, h01=0x0050, text=»IOROUT EQU *«, t00=0x0034, t01=0x00e2}
0x5222…5250               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 GET PHYSICAL SECTOR NUMBER«, t00=0x0034, t01=0x00f6}
0x5250…5276               Head {h00=0x0022, h01=0x0050, text=» SRL A3,5 GET CYLINDER NUMBER «, t00=0x0034, t01=0x0124}
0x5276…5280               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x014a}
0x5280…529c               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0034, t01=0x0154}
0x529c…52be               Head {h00=0x001e, h01=0x0050, text=» LD* A4,4,A5 GET DATA WORD«, t00=0x0034, t01=0x0170}
0x52be…52d0 (53, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» SLL A4,2 «, t00=0x0035, t01=0x0004}
0x52d0…52f0               Head {h00=0x001c, h01=0x0050, text=» RF(NN) SEE:05 FORMAT A3«, t00=0x0035, t01=0x0016}
0x52f0…5302               Head {h00=0x000e, h01=0x0050, text=» ADK A3,0 «, t00=0x0035, t01=0x0036}
0x5302…530e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0048}
0x530e…5318               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0054}
0x5318…532e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0035, t01=0x005e}
0x532e…5338               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0074}
0x5338…5342               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x007e}
0x5342…5358               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0035, t01=0x0088}
0x5358…537e               Head {h00=0x0022, h01=0x0050, text=» RF(NZ) SEE:05 NOT CYLINDER 0 «, t00=0x0035, t01=0x009e}
0x537e…5392               Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEKZ«, t00=0x0035, t01=0x00c4}
0x5392…53a4               Head {h00=0x000e, h01=0x0050, text=» SLL A1,6 «, t00=0x0035, t01=0x00d8}
0x53a4…53c0               Head {h00=0x0018, h01=0x0050, text=» RF(N) SEE:20 ERROR «, t00=0x0035, t01=0x00ea}
0x53c0…53d6               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0035, t01=0x0106}
0x53d6…53ec               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0035, t01=0x011c}
0x53ec…5410               Head {h00=0x0020, h01=0x0050, text=» CM DWTCYL,A2 CYLINDER ZERO «, t00=0x0035, t01=0x0132}
0x5410…5422               Head {h00=0x000e, h01=0x0050, text=» RF VA2BR «, t00=0x0035, t01=0x0156}
0x5422…542e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0168}
0x542e…5444               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0035, t01=0x0174}
0x5444…545a               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0035, t01=0x018a}
0x545a…5470               Head {h00=0x0012, h01=0x0050, text=» CM DWTCYL,A6 «, t00=0x0036, t01=0x0010}
0x5470…5482               Head {h00=0x000e, h01=0x0050, text=» RF VA2BR «, t00=0x0036, t01=0x0026}
0x5482…548e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0038}
0x548e…5498               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0044}
0x5498…54ae               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0036, t01=0x004e}
0x54ae…54b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0064}
0x54b8…54c2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x006e}
0x54c2…54d6               Head {h00=0x0010, h01=0x0050, text=»SEE:05 EQU *«, t00=0x0036, t01=0x0078}
0x54d6…54ec               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0036, t01=0x008c}
0x54ec…5502               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0036, t01=0x00a2}
0x5502…5530               Head {h00=0x002a, h01=0x0050, text=» CW A3,DWTCYL,A2 COMPARE WITH PRESENT «, t00=0x0036, t01=0x00b8}
0x5530…553c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x00e6}
0x553c…5552               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0036, t01=0x00f2}
0x5552…556a               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A6«, t00=0x0036, t01=0x0108}
0x556a…5576               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0120}
0x5576…5580               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x012c}
0x5580…5596               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0036, t01=0x0136}
0x5596…55ac               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0036, t01=0x014c}
0x55ac…55c2               Head {h00=0x0012, h01=0x0050, text=» RF(E) VA2:00 «, t00=0x0036, t01=0x0162}
0x55c2…55ce               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x0178}
0x55ce…55d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0184}
0x55d8…55ee               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=0 «, t00=0x0036, t01=0x018e}
0x55ee…5604               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0037, t01=0x0014}
0x5604…562a               Head {h00=0x0022, h01=0x0050, text=» RF(E) SEE:90 HEAD IN POSITION«, t00=0x0037, t01=0x002a}
0x562a…5636               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0050}
0x5636…5640               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x005c}
0x5640…565c               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x0037, t01=0x0066}
0x565c…5684               Head {h00=0x0024, h01=0x0050, text=» RF(NE) SEE:07 NOT SAME CYLINDER«, t00=0x0037, t01=0x0082}
0x5684…5696               Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x0037, t01=0x00aa}
0x5696…56b4               Head {h00=0x001a, h01=0x0050, text=» RF(N) VA2BR FORMAT A2«, t00=0x0037, t01=0x00bc}
0x56b4…56c6               Head {h00=0x000e, h01=0x0050, text=» RF SEE:90«, t00=0x0037, t01=0x00da}
0x56c6…56d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00ec}
0x56d0…56e6               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0037, t01=0x00f6}
0x56e6…56f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x010c}
0x56f0…56fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0116}
0x56fa…570e               Head {h00=0x0010, h01=0x0050, text=»SEE:07 EQU *«, t00=0x0037, t01=0x0120}
0x570e…571a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x0134}
0x571a…5724               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0140}
0x5724…573a               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0037, t01=0x014a}
0x573a…5766               Head {h00=0x0028, h01=0x0050, text=» ST A3,DWTCYL,A6 NEW CYLINDER NUMBER«, t00=0x0037, t01=0x0160}
0x5766…5772               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x018c}
0x5772…577c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0008}
0x577c…5792               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0038, t01=0x0012}
0x5792…57b8               Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTCYL,A2 NEW CYLINDER «, t00=0x0038, t01=0x0028}
0x57b8…57c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x004e}
0x57c4…57ec               Head {h00=0x0024, h01=0x0050, text=» LDK A4,QRETRY NUMBER OF RETRIES«, t00=0x0038, t01=0x005a}
0x57ec…5800               Head {h00=0x0010, h01=0x0050, text=»SEE:10 EQU *«, t00=0x0038, t01=0x0082}
0x5800…5816               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0038, t01=0x0096}
0x5816…583e               Head {h00=0x0024, h01=0x0050, text=» CF A5,INXUNI DOUBLED UNIT INDEX«, t00=0x0038, t01=0x00ac}
0x583e…584a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00d4}
0x584a…585e               Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0038, t01=0x00e0}
0x585e…587c               Head {h00=0x001a, h01=0x0050, text=» SLC A1,5 RETURN CODE «, t00=0x0038, t01=0x00f4}
0x587c…5894               Head {h00=0x0014, h01=0x0050, text=» RF(N) SEE:30 OK«, t00=0x0038, t01=0x0112}
0x5894…589e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x012a}
0x589e…58b4               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0038, t01=0x0134}
0x58b4…58be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x014a}
0x58be…58c8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0154}
0x58c8…58dc               Head {h00=0x0010, h01=0x0050, text=»SEE:15 EQU *«, t00=0x0038, t01=0x015e}
0x58dc…58fe               Head {h00=0x001e, h01=0x0050, text=» CF A5,SEEKZ SEEK CYL ZERO«, t00=0x0038, t01=0x0172}
0x58fe…591c (57, 0, 400)  Head {h00=0x001a, h01=0x0050, text=» SLC A1,6 RETURN CODE «, t00=0x0039, t01=0x0004}
0x591c…5938               Head {h00=0x0018, h01=0x0050, text=» RF(N) SEE:20 ERROR «, t00=0x0039, t01=0x0022}
0x5938…595c               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0039, t01=0x003e}
0x595c…597c               Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 RETRY COUNTER «, t00=0x0039, t01=0x0062}
0x597c…599c               Head {h00=0x001c, h01=0x0050, text=» RB(NZ) SEE:10 TRY AGAIN«, t00=0x0039, t01=0x0082}
0x599c…59b0               Head {h00=0x0010, h01=0x0050, text=»SEE:20 EQU *«, t00=0x0039, t01=0x00a2}
0x59b0…59c6               Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFF«, t00=0x0039, t01=0x00b6}
0x59c6…59dc               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0039, t01=0x00cc}
0x59dc…59f2               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0039, t01=0x00e2}
0x59f2…5a20               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A2 DUMMY CYLINDER NUMBER«, t00=0x0039, t01=0x00f8}
0x5a20…5a2c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0126}
0x5a2c…5a42               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0039, t01=0x0132}
0x5a42…5a70               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTCYL,A6 DUMMY CYLINDER NUMBER«, t00=0x0039, t01=0x0148}
0x5a70…5a7c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0039, t01=0x0176}
0x5a7c…5a9c               Head {h00=0x001c, h01=0x0050, text=» LDK A1,/02 RETURN CODE «, t00=0x0039, t01=0x0182}
0x5a9c…5ab6               Head {h00=0x0016, h01=0x0050, text=» RF SEE:35 END IO «, t00=0x003a, t01=0x0012}
0x5ab6…5ac0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x002c}
0x5ac0…5ad6               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003a, t01=0x0036}
0x5ad6…5ae0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x004c}
0x5ae0…5aea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0056}
0x5aea…5afe               Head {h00=0x0010, h01=0x0050, text=»SEE:30 EQU *«, t00=0x003a, t01=0x0060}
0x5afe…5b14               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003a, t01=0x0074}
0x5b14…5b2a               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003a, t01=0x008a}
0x5b2a…5b36               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x00a0}
0x5b36…5b52               Head {h00=0x0018, h01=0x0050, text=» IFT VERSA2+VERSA3=2«, t00=0x003a, t01=0x00ac}
0x5b52…5b74               Head {h00=0x001e, h01=0x0050, text=» LD* A1,4,A5 GET DATA WORD«, t00=0x003a, t01=0x00c8}
0x5b74…5b86               Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x003a, t01=0x00ea}
0x5b86…5ba6               Head {h00=0x001c, h01=0x0050, text=» RF(NN) SEE:31 FORMAT A3«, t00=0x003a, t01=0x00fc}
0x5ba6…5bb2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x011c}
0x5bb2…5bbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0128}
0x5bbc…5bd2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x003a, t01=0x0132}
0x5bd2…5be8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003a, t01=0x0148}
0x5be8…5bf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x015e}
0x5bf2…5bfc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0168}
0x5bfc…5c12               Head {h00=0x0012, h01=0x0050, text=»*   FORMAT A2 «, t00=0x003a, t01=0x0172}
0x5c12…5c1c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0188}
0x5c1c…5c2e (59, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003b, t01=0x0004}
0x5c2e…5c42               Head {h00=0x0010, h01=0x0050, text=» CF A5,SKEW «, t00=0x003b, t01=0x0016}
0x5c42…5c66               Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/8002 READ 2 WORDS «, t00=0x003b, t01=0x002a}
0x5c66…5c94               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,BUFFER READ TO DRIVER BUFFER «, t00=0x003b, t01=0x004e}
0x5c94…5caa               Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:50 «, t00=0x003b, t01=0x007c}
0x5caa…5cca               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/1F ERROR CHECK «, t00=0x003b, t01=0x0092}
0x5cca…5ce0               Head {h00=0x0012, h01=0x0050, text=» RF(NZ) SEE:32«, t00=0x003b, t01=0x00b2}
0x5ce0…5d00               Head {h00=0x001c, h01=0x0050, text=» LD A3,BUFFER GET CYL ID«, t00=0x003b, t01=0x00c8}
0x5d00…5d16               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003b, t01=0x00e8}
0x5d16…5d2c               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003b, t01=0x00fe}
0x5d2c…5d5c               Head {h00=0x002c, h01=0x0050, text=» CW A3,DWTCYL,A2 CHECK IF SAME CYLINDER «, t00=0x003b, t01=0x0114}
0x5d5c…5d68               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0144}
0x5d68…5d7e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x003b, t01=0x0150}
0x5d7e…5d94               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003b, t01=0x0166}
0x5d94…5dc4               Head {h00=0x002c, h01=0x0050, text=» CW A3,DWTCYL,A6 CHECK IF SAME CYLINDER «, t00=0x003b, t01=0x017c}
0x5dc4…5dd0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x001c}
0x5dd0…5de6               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x003c, t01=0x0028}
0x5de6…5e0c               Head {h00=0x0022, h01=0x0050, text=» RB(NE) SEE:15 NOT SAME CYL ID«, t00=0x003c, t01=0x003e}
0x5e0c…5e20               Head {h00=0x0010, h01=0x0050, text=»VA2BR EQU * «, t00=0x003c, t01=0x0064}
0x5e20…5e34               Head {h00=0x0010, h01=0x0050, text=» ABL VA2:00 «, t00=0x003c, t01=0x0078}
0x5e34…5e40               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x008c}
0x5e40…5e4a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0098}
0x5e4a…5e60               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003c, t01=0x00a2}
0x5e60…5e76               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003c, t01=0x00b8}
0x5e76…5e80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00ce}
0x5e80…5e8a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00d8}
0x5e8a…5ea0               Head {h00=0x0012, h01=0x0050, text=»*   FORMAT A3 «, t00=0x003c, t01=0x00e2}
0x5ea0…5eaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00f8}
0x5eaa…5ebe               Head {h00=0x0010, h01=0x0050, text=»SEE:31 EQU *«, t00=0x003c, t01=0x0102}
0x5ebe…5ed4               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003c, t01=0x0116}
0x5ed4…5eec               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTCYL,A2«, t00=0x003c, t01=0x012c}
0x5eec…5ef8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0144}
0x5ef8…5f0e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003c, t01=0x0150}
0x5f0e…5f24               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003c, t01=0x0166}
0x5f24…5f3c               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTCYL,A6«, t00=0x003c, t01=0x017c}
0x5f3c…5f48 (61, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0004}
0x5f48…5f52               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0010}
0x5f52…5f68               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003d, t01=0x001a}
0x5f68…5f8c               Head {h00=0x0020, h01=0x0050, text=» SLL A3,5 GET SECTOR NUMBER «, t00=0x003d, t01=0x0030}
0x5f8c…5fb4               Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTBSE,A6 SAVE FOR BSELOD«, t00=0x003d, t01=0x0054}
0x5fb4…5fc6               Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003d, t01=0x007c}
0x5fc6…5ff8               Head {h00=0x002e, h01=0x0050, text=» CF A5,SKEW TO READ SECTOR 0 OR 8 ON DISC «, t00=0x003d, t01=0x008e}
0x5ff8…602c               Head {h00=0x0030, h01=0x0050, text=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER«, t00=0x003d, t01=0x00c0}
0x602c…6040               Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x003d, t01=0x00f4}
0x6040…6076               Head {h00=0x0032, h01=0x0050, text=» LD A3,DWTBSE,A6 GET SECTOR NUMBER FOR BSELOD «, t00=0x003d, t01=0x0108}
0x6076…609a               Head {h00=0x0020, h01=0x0050, text=» ANK A1,/1F ERROR CODE CHECK«, t00=0x003d, t01=0x013e}
0x609a…60b0               Head {h00=0x0012, h01=0x0050, text=» CF A5,BSEL00 «, t00=0x003d, t01=0x0162}
0x60b0…60c8               Head {h00=0x0014, h01=0x0050, text=» RF(Z) SEE:40 OK«, t00=0x003d, t01=0x0178}
0x60c8…60d4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0190}
0x60d4…60de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x000c}
0x60de…60f2               Head {h00=0x0010, h01=0x0050, text=»SEE:32 EQU *«, t00=0x003e, t01=0x0016}
0x60f2…6116               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x003e, t01=0x002a}
0x6116…6136               Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 RETRY COUNTER «, t00=0x003e, t01=0x004e}
0x6136…6152               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) SEE:15 RETRY«, t00=0x003e, t01=0x006e}
0x6152…6166               Head {h00=0x0010, h01=0x0050, text=»SEE:35 EQU *«, t00=0x003e, t01=0x008a}
0x6166…617a               Head {h00=0x0010, h01=0x0050, text=» ABL END:10 «, t00=0x003e, t01=0x009e}
0x617a…6184               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00b2}
0x6184…619a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003e, t01=0x00bc}
0x619a…61a4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00d2}
0x61a4…61ba               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003e, t01=0x00dc}
0x61ba…61c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00f2}
0x61c4…61ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00fc}
0x61ce…61e2               Head {h00=0x0010, h01=0x0050, text=»SEE:40 EQU *«, t00=0x003e, t01=0x0106}
0x61e2…61f8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003e, t01=0x011a}
0x61f8…620e               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x003e, t01=0x0130}
0x620e…623a               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x003e, t01=0x0146}
0x623a…6246               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0172}
0x6246…625c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003e, t01=0x017e}
0x625c…6272 (63, 0, 400)  Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x003f, t01=0x0004}
0x6272…629e               Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x003f, t01=0x001a}
0x629e…62aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0046}
0x62aa…62c0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x003f, t01=0x0052}
0x62c0…62f0               Head {h00=0x002c, h01=0x0050, text=» CW A3,BUFFER+PHSECL COMPARE WITH CYL ID«, t00=0x003f, t01=0x0068}
0x62f0…630c               Head {h00=0x0018, h01=0x0050, text=» RB(NE) SEE:15 RETRY«, t00=0x003f, t01=0x0098}
0x630c…6316               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00b4}
0x6316…632c               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x003f, t01=0x00be}
0x632c…6336               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00d4}
0x6336…6358               Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003f, t01=0x00de}
0x6358…637a               Head {h00=0x001e, h01=0x0050, text=»*                       * «, t00=0x003f, t01=0x0100}
0x637a…639c               Head {h00=0x001e, h01=0x0050, text=»*   READ AND WRITE      * «, t00=0x003f, t01=0x0122}
0x639c…63be               Head {h00=0x001e, h01=0x0050, text=»*   FORMAT A3           * «, t00=0x003f, t01=0x0144}
0x63be…63e0               Head {h00=0x001e, h01=0x0050, text=»*                       * «, t00=0x003f, t01=0x0166}
0x63e0…6402               Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x003f, t01=0x0188}
0x6402…640c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x001a}
0x640c…6420               Head {h00=0x0010, h01=0x0050, text=»SEE:90 EQU *«, t00=0x0040, t01=0x0024}
0x6420…6442               Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTOR,A6 GET ORDER «, t00=0x0040, t01=0x0038}
0x6442…6454               Head {h00=0x000e, h01=0x0050, text=» ANK A4,4 «, t00=0x0040, t01=0x005a}
0x6454…6474               Head {h00=0x001c, h01=0x0050, text=» RF(Z) READ00 READ ORDER«, t00=0x0040, t01=0x006c}
0x6474…6488               Head {h00=0x0010, h01=0x0050, text=» LD* A2,4,A5«, t00=0x0040, t01=0x008c}
0x6488…64bc               Head {h00=0x0030, h01=0x0050, text=» RF(N) WRIT20 WRITE DIRECT FROM USER BUFFER «, t00=0x0040, t01=0x00a0}
0x64bc…64ce               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0040, t01=0x00d4}
0x64ce…64e0               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0040, t01=0x00e6}
0x64e0…6506               Head {h00=0x0022, h01=0x0050, text=» RF(N) READWR READ AFTER WRITE«, t00=0x0040, t01=0x00f8}
0x6506…6512               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x011e}
0x6512…651c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x012a}
0x651c…6532               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0040, t01=0x0134}
0x6532…654a               Head {h00=0x0014, h01=0x0050, text=» CWK A2,PHSECL  «, t00=0x0040, t01=0x014a}
0x654a…6578               Head {h00=0x002a, h01=0x0050, text=» RF(E) WRIT10 WRITE FROM DRIVER BUFFER«, t00=0x0040, t01=0x0162}
0x6578…65ac               Head {h00=0x0030, h01=0x0050, text=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER«, t00=0x0040, t01=0x0190}
0x65ac…65d4               Head {h00=0x0024, h01=0x0050, text=» CF A5,REA:00 READ BEFORE WRITE «, t00=0x0041, t01=0x0034}
0x65d4…65de               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x005c}
0x65de…65f4               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0041, t01=0x0066}
0x65f4…65fe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x007c}
0x65fe…6608               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0086}
0x6608…661c               Head {h00=0x0010, h01=0x0050, text=»WRIT10 EQU *«, t00=0x0041, t01=0x0090}
0x661c…663e               Head {h00=0x001e, h01=0x0050, text=» LD* A2,4,A5 GET DATA WORD«, t00=0x0041, t01=0x00a4}
0x663e…6650               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0041, t01=0x00c6}
0x6650…6680               Head {h00=0x002c, h01=0x0050, text=» ANK A4,/C0 GET NUMBER OF WORDS TO MOVE «, t00=0x0041, t01=0x00d8}
0x6680…6698               Head {h00=0x0014, h01=0x0050, text=» SLL A4,1 BYTES «, t00=0x0041, t01=0x0108}
0x6698…66c6               Head {h00=0x002a, h01=0x0050, text=» ANK A2,/F BEG ADRESS IN DRIVER BUFFER«, t00=0x0041, t01=0x0120}
0x66c6…66d8               Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x0041, t01=0x014e}
0x66d8…6704               Head {h00=0x0028, h01=0x0050, text=» CF A5,MOVWRI MOVE TO DRIVER BUFFER «, t00=0x0041, t01=0x0160}
0x6704…671a               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0041, t01=0x018c}
0x671a…6730               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0042, t01=0x0012}
0x6730…675c               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0042, t01=0x0028}
0x675c…6768               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0054}
0x6768…677e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0042, t01=0x0060}
0x677e…6794               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0042, t01=0x0076}
0x6794…67c0               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x0042, t01=0x008c}
0x67c0…67cc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x00b8}
0x67cc…67e2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0042, t01=0x00c4}
0x67e2…6814               Head {h00=0x002e, h01=0x0050, text=» ST A2,BUFFER+PHSECL PUT IN DRIVER BUFFER «, t00=0x0042, t01=0x00da}
0x6814…684c               Head {h00=0x0034, h01=0x0050, text=» IM DWTFBU,A6 INDICATE WRITE FROM DRIVER BUFFER «, t00=0x0042, t01=0x010c}
0x684c…687a               Head {h00=0x002a, h01=0x0050, text=» CF A5,WRI:00 WRITE FROM DRIVER BUFFER«, t00=0x0042, t01=0x0144}
0x687a…688c               Head {h00=0x000e, h01=0x0050, text=» RF SEE:95«, t00=0x0042, t01=0x0172}
0x688c…6896               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0184}
0x6896…68ac               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0042, t01=0x018e}
0x68ac…68b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0014}
0x68b6…68c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x001e}
0x68c0…68d4               Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x0043, t01=0x0028}
0x68d4…68ea               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0043, t01=0x003c}
0x68ea…6918               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,PHSECL PHYSICAL SECTOR LENGTH«, t00=0x0043, t01=0x0052}
0x6918…694c               Head {h00=0x0030, h01=0x0050, text=» ADS A2,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x0043, t01=0x0080}
0x694c…697e               Head {h00=0x002e, h01=0x0050, text=» LD* A4,DWTUBU,A6 GET WORD IN USER BUFFER «, t00=0x0043, t01=0x00b4}
0x697e…69a0               Head {h00=0x001e, h01=0x0050, text=» ST A4,DWTSWD,A6 SAVE WORD«, t00=0x0043, t01=0x00e6}
0x69a0…69ca               Head {h00=0x0026, h01=0x0050, text=» IM DWTFSW,A6 INDICATE SAVED WORD «, t00=0x0043, t01=0x0108}
0x69ca…69e0               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0043, t01=0x0132}
0x69e0…69f6               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0043, t01=0x0148}
0x69f6…6a22               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0043, t01=0x015e}
0x6a22…6a4e               Head {h00=0x0028, h01=0x0050, text=» ST* A2,DWTUBU,A6 PUT IN USER BUFFER«, t00=0x0043, t01=0x018a}
0x6a4e…6a5a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0026}
0x6a5a…6a70               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0044, t01=0x0032}
0x6a70…6a86               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0044, t01=0x0048}
0x6a86…6a9c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0044, t01=0x005e}
0x6a9c…6ab4               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTCYL,A6«, t00=0x0044, t01=0x0074}
0x6ab4…6ae0               Head {h00=0x0028, h01=0x0050, text=» ST* A2,DWTUBU,A6 PUT IN USER BUFFER«, t00=0x0044, t01=0x008c}
0x6ae0…6aec               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x00b8}
0x6aec…6af6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00c4}
0x6af6…6b0c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0044, t01=0x00ce}
0x6b0c…6b22               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0044, t01=0x00e4}
0x6b22…6b38               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0044, t01=0x00fa}
0x6b38…6b4e               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0044, t01=0x0110}
0x6b4e…6b7a               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0044, t01=0x0126}
0x6b7a…6b86               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0152}
0x6b86…6b9c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0044, t01=0x015e}
0x6b9c…6bb2               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0044, t01=0x0174}
0x6bb2…6bc8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0044, t01=0x018a}
0x6bc8…6bf4               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x0045, t01=0x0010}
0x6bf4…6c00               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x003c}
0x6c00…6c16               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0045, t01=0x0048}
0x6c16…6c2c               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0045, t01=0x005e}
0x6c2c…6c60               Head {h00=0x0030, h01=0x0050, text=» ML 2,DWTBA1,A6 GET PHYSICAL BUFFER ADDRESS «, t00=0x0045, t01=0x0074}
0x6c60…6c82               Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRIT30 SYSTEM AREA «, t00=0x0045, t01=0x00a8}
0x6c82…6cae               Head {h00=0x0028, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS ON STACK «, t00=0x0045, t01=0x00ca}
0x6cae…6cda               Head {h00=0x0028, h01=0x0050, text=» TL DWTPAG,A6 LOAD PAGE WITH CYL ID «, t00=0x0045, t01=0x00f6}
0x6cda…6d0e               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTUBU,A6 GET LOGICAL BUFFER POINTER «, t00=0x0045, t01=0x0122}
0x6d0e…6d38               Head {h00=0x0026, h01=0x0050, text=» EL A3,PHSECL,A2 GET WORD TO SAVE «, t00=0x0045, t01=0x0156}
0x6d38…6d68               Head {h00=0x002c, h01=0x0050, text=» ES A4,PHSECL,A2 PUT CYL ID IN POSITION «, t00=0x0045, t01=0x0180}
0x6d68…6d8a               Head {h00=0x001e, h01=0x0050, text=» TL -30,A15 GET REGISTERS «, t00=0x0046, t01=0x0020}
0x6d8a…6d9c               Head {h00=0x000e, h01=0x0050, text=» RF WRIT40«, t00=0x0046, t01=0x0042}
0x6d9c…6db0               Head {h00=0x0010, h01=0x0050, text=»WRIT30 EQU *«, t00=0x0046, t01=0x0054}
0x6db0…6dce               Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 BYTE ADDRESS«, t00=0x0046, t01=0x0068}
0x6dce…6dfc               Head {h00=0x002a, h01=0x0050, text=» LD A3,PHSECL,A2 GET WORD TO BE SAVED «, t00=0x0046, t01=0x0086}
0x6dfc…6e28               Head {h00=0x0028, h01=0x0050, text=» ST A4,PHSECL,A2 CYL ID IN POSITION «, t00=0x0046, t01=0x00b4}
0x6e28…6e3c               Head {h00=0x0010, h01=0x0050, text=»WRIT40 EQU *«, t00=0x0046, t01=0x00e0}
0x6e3c…6e5e               Head {h00=0x001e, h01=0x0050, text=» ST A3,DWTSWD,A6 SAVA WORD«, t00=0x0046, t01=0x00f4}
0x6e5e…6e88               Head {h00=0x0026, h01=0x0050, text=» IM DWTFSW,A6 INDICATE SAVED WORD «, t00=0x0046, t01=0x0116}
0x6e88…6e94               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0140}
0x6e94…6e9e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x014c}
0x6e9e…6eb4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0046, t01=0x0156}
0x6eb4…6eea               Head {h00=0x0032, h01=0x0050, text=» CM DWTFBU,A6 INDICATE WRITE FROM USER BUFFER «, t00=0x0046, t01=0x016c}
0x6eea…6f1e               Head {h00=0x0030, h01=0x0050, text=» CF A5,WRI:00 WRITE SECTOR FROM USER BUFFER «, t00=0x0047, t01=0x0012}
0x6f1e…6f50               Head {h00=0x002e, h01=0x0050, text=» CF A5,REWORD RESTORE WORD TO USER BUFFER «, t00=0x0047, t01=0x0046}
0x6f50…6f62               Head {h00=0x000e, h01=0x0050, text=» RF SEE:95«, t00=0x0047, t01=0x0078}
0x6f62…6f6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x008a}
0x6f6c…6f82               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0047, t01=0x0094}
0x6f82…6f8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00aa}
0x6f8c…6f96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00b4}
0x6f96…6fa8               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0047, t01=0x00be}
0x6fa8…6fbc               Head {h00=0x0010, h01=0x0050, text=»READWR EQU *«, t00=0x0047, t01=0x00d0}
0x6fbc…6fe2               Head {h00=0x0022, h01=0x0050, text=» CF A5,REA:10 READ AFTER WRITE«, t00=0x0047, t01=0x00e4}
0x6fe2…6ff4               Head {h00=0x000e, h01=0x0050, text=» RF SEE:97«, t00=0x0047, t01=0x010a}
0x6ff4…7000               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x011c}
0x7000…700a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0128}
0x700a…7020               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0047, t01=0x0132}
0x7020…7034               Head {h00=0x0010, h01=0x0050, text=»READ00 EQU *«, t00=0x0047, t01=0x0148}
0x7034…7056               Head {h00=0x001e, h01=0x0050, text=» LD* A2,4,A5 GET DATA WORD«, t00=0x0047, t01=0x015c}
0x7056…7078               Head {h00=0x001e, h01=0x0050, text=» RF(N) READ20 DIRECT READ «, t00=0x0047, t01=0x017e}
0x7078…70ac               Head {h00=0x0030, h01=0x0050, text=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER«, t00=0x0048, t01=0x0010}
0x70ac…70d8               Head {h00=0x0028, h01=0x0050, text=» CF A5,REA:00 READ TO DRIVER BUFFER «, t00=0x0048, t01=0x0044}
0x70d8…70fa               Head {h00=0x001e, h01=0x0050, text=» LD* A1,4,A5 GET DATA WORD«, t00=0x0048, t01=0x0070}
0x70fa…710c               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0048, t01=0x0092}
0x710c…711e               Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0048, t01=0x00a4}
0x711e…7154               Head {h00=0x0032, h01=0x0050, text=» ANKL A4,/180 GET NUMBER OF BYTES TO BE MOVED «, t00=0x0048, t01=0x00b6}
0x7154…7174               Head {h00=0x001c, h01=0x0050, text=» ANK A1,/18 GET POSITION«, t00=0x0048, t01=0x00ec}
0x7174…7186               Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0048, t01=0x010c}
0x7186…719c               Head {h00=0x0012, h01=0x0050, text=» CF A5,MOVRED «, t00=0x0048, t01=0x011e}
0x719c…71ae               Head {h00=0x000e, h01=0x0050, text=» RF SEE:95«, t00=0x0048, t01=0x0134}
0x71ae…71c2               Head {h00=0x0010, h01=0x0050, text=»READ20 EQU *«, t00=0x0048, t01=0x0146}
0x71c2…71d8               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0048, t01=0x015a}
0x71d8…71f0               Head {h00=0x0014, h01=0x0050, text=» LDKL A3,PHSECL «, t00=0x0048, t01=0x0170}
0x71f0…7224               Head {h00=0x0030, h01=0x0050, text=» ADS A3,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x0048, t01=0x0188}
0x7224…7230               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x002c}
0x7230…723a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0038}
0x723a…7250               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0049, t01=0x0042}
0x7250…7282               Head {h00=0x002e, h01=0x0050, text=» CM DWTFBU,A6 INDICATE READ TO USER BUFFER«, t00=0x0049, t01=0x0058}
0x7282…72ac               Head {h00=0x0026, h01=0x0050, text=» CF A5,REA:00 READ TO USER BUFFER «, t00=0x0049, t01=0x008a}
0x72ac…72c0               Head {h00=0x0010, h01=0x0050, text=»SEE:95 EQU *«, t00=0x0049, t01=0x00b4}
0x72c0…72ee               Head {h00=0x002a, h01=0x0050, text=» IMR A6 UPDATE PHYSICAL SECTOR POINTER«, t00=0x0049, t01=0x00c8}
0x72ee…72fa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0049, t01=0x00f6}
0x72fa…7304               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0102}
0x7304…731a               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0049, t01=0x010c}
0x731a…7324               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0122}
0x7324…732e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x012c}
0x732e…7342               Head {h00=0x0010, h01=0x0050, text=»SEE:96 EQU *«, t00=0x0049, t01=0x0136}
0x7342…7364               Head {h00=0x001e, h01=0x0050, text=» LD* A2,4,A5 GET DATA WORD«, t00=0x0049, t01=0x014a}
0x7364…737e               Head {h00=0x0016, h01=0x0050, text=» ANK A2,/C0 LENGTH«, t00=0x0049, t01=0x016c}
0x737e…7390               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0049, t01=0x0186}
0x7390…73b6               Head {h00=0x0022, h01=0x0050, text=» ADS A2,ECBEL,A8 UPDATE ECBEL «, t00=0x004a, t01=0x0008}
0x73b6…73c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x002e}
0x73c0…73d6               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004a, t01=0x0038}
0x73d6…73e8               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x004a, t01=0x004e}
0x73e8…7404               Head {h00=0x0018, h01=0x0050, text=» SRL A2,1 WORD MODE «, t00=0x004a, t01=0x0060}
0x7404…7438               Head {h00=0x0030, h01=0x0050, text=» DA DWTBA1,A6 UPDATE PHYSICAL BUFFER ADDRESS«, t00=0x004a, t01=0x007c}
0x7438…7462               Head {h00=0x0026, h01=0x0050, text=» CF A5,MMULOG GET LOGICAL ADDRESS «, t00=0x004a, t01=0x00b0}
0x7462…746e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x00da}
0x746e…7478               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00e6}
0x7478…748c               Head {h00=0x0010, h01=0x0050, text=»SEE:97 EQU *«, t00=0x004a, t01=0x00f0}
0x748c…74ac               Head {h00=0x001c, h01=0x0050, text=» LDK A1,2 UPDATE RETURN «, t00=0x004a, t01=0x0104}
0x74ac…74c0               Head {h00=0x0010, h01=0x0050, text=» ADS A1,4,A5«, t00=0x004a, t01=0x0124}
0x74c0…74d0               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004a, t01=0x0138}
0x74d0…74da               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0148}
0x74da…74f0               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x004a, t01=0x0152}
0x74f0…74fa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0168}
0x74fa…7510               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004a, t01=0x0172}
0x7510…751a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0188}
0x751a…7524 (75, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0004}
0x7524…754c               Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x004b, t01=0x000e}
0x754c…7574               Head {h00=0x0024, h01=0x0050, text=»*                              *«, t00=0x004b, t01=0x0036}
0x7574…759c               Head {h00=0x0024, h01=0x0050, text=»*   DISC FORMAT A2             *«, t00=0x004b, t01=0x005e}
0x759c…75c4               Head {h00=0x0024, h01=0x0050, text=»*                              *«, t00=0x004b, t01=0x0086}
0x75c4…75ec               Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x004b, t01=0x00ae}
0x75ec…75f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d6}
0x75f6…7600               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e0}
0x7600…7614               Head {h00=0x0010, h01=0x0050, text=»VA2:00 EQU *«, t00=0x004b, t01=0x00ea}
0x7614…7632               Head {h00=0x001a, h01=0x0050, text=» LDK A4,QRETRY RETRIES«, t00=0x004b, t01=0x00fe}
0x7632…7646               Head {h00=0x0010, h01=0x0050, text=»VA2:10 EQU *«, t00=0x004b, t01=0x011c}
0x7646…765c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x004b, t01=0x0130}
0x765c…7672               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x004b, t01=0x0146}
0x7672…767e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004b, t01=0x015c}
0x767e…7694               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004b, t01=0x0168}
0x7694…76bc               Head {h00=0x0024, h01=0x0050, text=» CF A5,INLACE INTERLACE AND SKEW«, t00=0x004b, t01=0x017e}
0x76bc…76c6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0016}
0x76c6…76dc               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004c, t01=0x0020}
0x76dc…76fa               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/8080 1ST WER«, t00=0x004c, t01=0x0036}
0x76fa…770c               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x004c, t01=0x0054}
0x770c…7720               Head {h00=0x0010, h01=0x0050, text=» LD* A2,4,A5«, t00=0x004c, t01=0x0066}
0x7720…7732               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004c, t01=0x007a}
0x7732…775e               Head {h00=0x0028, h01=0x0050, text=» RF(NN) VA2:20 NOT READ AFTER WRITE «, t00=0x004c, t01=0x008c}
0x775e…7776               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x004c, t01=0x00b8}
0x7776…7788               Head {h00=0x000e, h01=0x0050, text=» RF VA2:35«, t00=0x004c, t01=0x00d0}
0x7788…779c               Head {h00=0x0010, h01=0x0050, text=»VA2:20 EQU *«, t00=0x004c, t01=0x00e2}
0x779c…77a8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004c, t01=0x00f6}
0x77a8…77b2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0102}
0x77b2…77c8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004c, t01=0x010c}
0x77c8…77de               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004c, t01=0x0122}
0x77de…7804               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0808 1ST WER SHIFTED«, t00=0x004c, t01=0x0138}
0x7804…7810               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004c, t01=0x015e}
0x7810…781a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x016a}
0x781a…7830               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004c, t01=0x0174}
0x7830…7842               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x004c, t01=0x018a}
0x7842…7858               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004d, t01=0x000c}
0x7858…786c               Head {h00=0x0010, h01=0x0050, text=» LD* A2,4,A5«, t00=0x004d, t01=0x0022}
0x786c…787e               Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x004d, t01=0x0036}
0x787e…78aa               Head {h00=0x0028, h01=0x0050, text=» RF(NN) VA2:20 NOT READ AFTER WRITE «, t00=0x004d, t01=0x0048}
0x78aa…78c0               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8080«, t00=0x004d, t01=0x0074}
0x78c0…78d8               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x004d, t01=0x008a}
0x78d8…78ea               Head {h00=0x000e, h01=0x0050, text=» RF VA2:35«, t00=0x004d, t01=0x00a2}
0x78ea…78fe               Head {h00=0x0010, h01=0x0050, text=»VA2:20 EQU *«, t00=0x004d, t01=0x00b4}
0x78fe…790a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x00c8}
0x790a…7914               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00d4}
0x7914…792a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004d, t01=0x00de}
0x792a…794c               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTOR,A6 GET ORDER «, t00=0x004d, t01=0x00f4}
0x794c…795e               Head {h00=0x000e, h01=0x0050, text=» ANK A2,4 «, t00=0x004d, t01=0x0116}
0x795e…7978               Head {h00=0x0016, h01=0x0050, text=» RF(Z) VA2:30 READ«, t00=0x004d, t01=0x0128}
0x7978…7982               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0142}
0x7982…7998               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004d, t01=0x014c}
0x7998…79ae               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C080«, t00=0x004d, t01=0x0162}
0x79ae…79ba               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x0178}
0x79ba…79c4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0184}
0x79c4…79da               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004d, t01=0x018e}
0x79da…79f0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004e, t01=0x0014}
0x79f0…7a16               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/080C 1ST WER SHIFTED«, t00=0x004e, t01=0x002a}
0x7a16…7a22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0050}
0x7a22…7a2c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x005c}
0x7a2c…7a42               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004e, t01=0x0066}
0x7a42…7a68               Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 ORDER CODE FOR WRITE«, t00=0x004e, t01=0x007c}
0x7a68…7a72               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00a2}
0x7a72…7a88               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x004e, t01=0x00ac}
0x7a88…7a92               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00c2}
0x7a92…7a9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00cc}
0x7a9c…7ab0               Head {h00=0x0010, h01=0x0050, text=»VA2:30 EQU *«, t00=0x004e, t01=0x00d6}
0x7ab0…7aba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00ea}
0x7aba…7ad0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x004e, t01=0x00f4}
0x7ad0…7af0               Head {h00=0x001c, h01=0x0050, text=» LD A2,DWTUBU,A6 2ND WER«, t00=0x004e, t01=0x010a}
0x7af0…7afc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x012a}
0x7afc…7b06               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0136}
0x7b06…7b1c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004e, t01=0x0140}
0x7b1c…7b32               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x004e, t01=0x0156}
0x7b32…7b44               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x004e, t01=0x016c}
0x7b44…7b5a               Head {h00=0x0012, h01=0x0050, text=» DA DWTBA1,A6 «, t00=0x004e, t01=0x017e}
0x7b5a…7b80 (79, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» SRC A1,4 1ST WER IN POSITION «, t00=0x004f, t01=0x0004}
0x7b80…7ba6               Head {h00=0x0022, h01=0x0050, text=» SLL A2,1 2ND WER IN POSITION «, t00=0x004f, t01=0x002a}
0x7ba6…7bb2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004f, t01=0x0050}
0x7bb2…7bbc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x005c}
0x7bbc…7bd2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x004f, t01=0x0066}
0x7bd2…7be6               Head {h00=0x0010, h01=0x0050, text=»VA2:35 EQU *«, t00=0x004f, t01=0x007c}
0x7be6…7bfc               Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:50 «, t00=0x004f, t01=0x0090}
0x7bfc…7c10               Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1F «, t00=0x004f, t01=0x00a6}
0x7c10…7c2e               Head {h00=0x001a, h01=0x0050, text=» RF(Z) VA2:40 IO ERROR«, t00=0x004f, t01=0x00ba}
0x7c2e…7c44               Head {h00=0x0012, h01=0x0050, text=» IM DWTRTY,A6 «, t00=0x004f, t01=0x00d8}
0x7c44…7c56               Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004f, t01=0x00ee}
0x7c56…7c72               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) VA2:10 RETRY«, t00=0x004f, t01=0x0100}
0x7c72…7c8a               Head {h00=0x0014, h01=0x0050, text=» RF WRI:50 ERROR«, t00=0x004f, t01=0x011c}
0x7c8a…7c94               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0134}
0x7c94…7caa               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x004f, t01=0x013e}
0x7caa…7cb4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0154}
0x7cb4…7cbe               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x015e}
0x7cbe…7cd2               Head {h00=0x0010, h01=0x0050, text=»VA2:40 EQU *«, t00=0x004f, t01=0x0168}
0x7cd2…7d00               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 GET PHYSICAL SECTOR NUMBER«, t00=0x004f, t01=0x017c}
0x7d00…7d1e               Head {h00=0x001a, h01=0x0050, text=» ADK A3,1 NEXT SECTOR «, t00=0x0050, t01=0x001a}
0x7d1e…7d30               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0050, t01=0x0038}
0x7d30…7d42               Head {h00=0x000e, h01=0x0050, text=» CWK A2,31«, t00=0x0050, t01=0x004a}
0x7d42…7d68               Head {h00=0x0022, h01=0x0050, text=» RF(NE) VA2:50 NOT CYLINDER 0 «, t00=0x0050, t01=0x005c}
0x7d68…7d92               Head {h00=0x0026, h01=0x0050, text=» ADK A3,2 CYLINDER 0 TO CYLINDER 1«, t00=0x0050, t01=0x0082}
0x7d92…7da6               Head {h00=0x0010, h01=0x0050, text=»VA2:50 EQU *«, t00=0x0050, t01=0x00ac}
0x7da6…7dba               Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0050, t01=0x00c0}
0x7dba…7dde               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) VA2:60 SAME CYLINDER«, t00=0x0050, t01=0x00d4}
0x7dde…7dfc               Head {h00=0x001a, h01=0x0050, text=» ADK A3,1 NEW CYLINDER«, t00=0x0050, t01=0x00f8}
0x7dfc…7e10               Head {h00=0x0010, h01=0x0050, text=»VA2:60 EQU *«, t00=0x0050, t01=0x0116}
0x7e10…7e3a               Head {h00=0x0026, h01=0x0050, text=» STR A3,A6 PHYSICAL SECTOR NUMBER «, t00=0x0050, t01=0x012a}
0x7e3a…7e4c               Head {h00=0x000e, h01=0x0050, text=» RB SEE:96«, t00=0x0050, t01=0x0154}
0x7e4c…7e58               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0050, t01=0x0166}
0x7e58…7e62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0172}
0x7e62…7e78               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0050, t01=0x017c}
0x7e78…7e8e (81, 0, 400)  Head {h00=0x0012, h01=0x000e, text=» EJECT  DRDU01«, t00=0x0051, t01=0x0004}
0x7e8e…7e98               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0051, t01=0x001a}
0x7e98…7ebc               Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0051, t01=0x0024}
0x7ebc…7ee0               Head {h00=0x0020, h01=0x0050, text=»*                          *«, t00=0x0051, t01=0x0048}
0x7ee0…7f04               Head {h00=0x0020, h01=0x0050, text=»*   SUBROUTINES FOR WRITE  *«, t00=0x0051, t01=0x006c}
0x7f04…7f28               Head {h00=0x0020, h01=0x0050, text=»*   FROM USER BUFFER:      *«, t00=0x0051, t01=0x0090}
0x7f28…7f4c               Head {h00=0x0020, h01=0x0050, text=»*   FROM DRIVER     :      *«, t00=0x0051, t01=0x00b4}
0x7f4c…7f70               Head {h00=0x0020, h01=0x0050, text=»*                          *«, t00=0x0051, t01=0x00d8}
0x7f70…7f94               Head {h00=0x0020, h01=0x0050, text=»****************************«, t00=0x0051, t01=0x00fc}
0x7f94…7f9e               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0051, t01=0x0120}
0x7f9e…7fb2               Head {h00=0x0010, h01=0x0050, text=»WRI:00 EQU *«, t00=0x0051, t01=0x012a}
0x7fb2…7fd0               Head {h00=0x001a, h01=0x0016, text=» LDK A4,QRETRY RETRIES«, t00=0x0051, t01=0x013e}
0x7fd0…7fe4               Head {h00=0x0010, h01=0x0050, text=»WRI:20 EQU *«, t00=0x0051, t01=0x015c}
0x7fe4…7ffa               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0051, t01=0x0170}
0x7ffa…8010               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0051, t01=0x0186}
0x8010…801c               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x000c}
0x801c…8032               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0052, t01=0x0018}
0x8032…8060               Head {h00=0x002a, h01=0x0050, text=» CF A5,INLACE INTERLACE SECTOR NUMBER «, t00=0x0052, t01=0x002e}
0x8060…8078               Head {h00=0x0014, h01=0x0010, text=» CF A5,WRITE CIO«, t00=0x0052, t01=0x005c}
0x8078…809a               Head {h00=0x001e, h01=0x0019, text=» ANK A1,/1F RETURN CODE ? «, t00=0x0052, t01=0x0074}
0x809a…80b0               Head {h00=0x0012, h01=0x0050, text=» CF A5,BSELOD «, t00=0x0052, t01=0x0096}
0x80b0…80d4               Head {h00=0x0020, h01=0x0050, text=» RF(Z) WRI:80 NO RETURN CODE«, t00=0x0052, t01=0x00ac}
0x80d4…80f8               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0052, t01=0x00d0}
0x80f8…8122               Head {h00=0x0026, h01=0x0021, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0052, t01=0x00f4}
0x8122…8138               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) WRI:20«, t00=0x0052, t01=0x011e}
0x8138…8168               Head {h00=0x002c, h01=0x0050, text=» CF A5,REWORD RESTORE WORD IF NECESSARY «, t00=0x0052, t01=0x0134}
0x8168…8174               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0052, t01=0x0164}
0x8174…817e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0170}
0x817e…8192               Head {h00=0x0010, h01=0x0050, text=»WRI:50 EQU *«, t00=0x0052, t01=0x017a}
0x8192…81b2               Head {h00=0x001c, h01=0x0050, text=» ABL END:10 ERROR END IO«, t00=0x0052, t01=0x018e}
0x81b2…81bc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x001e}
0x81bc…81d2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0053, t01=0x0028}
0x81d2…81dc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x003e}
0x81dc…81f0               Head {h00=0x0010, h01=0x0050, text=»WRI:80 EQU *«, t00=0x0053, t01=0x0048}
0x81f0…8200               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x005c}
0x8200…820a               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0053, t01=0x006c}
0x820a…8220               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0053, t01=0x0076}
0x8220…822a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x008c}
0x822a…8254               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0053, t01=0x0096}
0x8254…827e               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0053, t01=0x00c0}
0x827e…82a8               Head {h00=0x0026, h01=0x0050, text=»*   SUBROUTINES FOR READ TO     * «, t00=0x0053, t01=0x00ea}
0x82a8…82d2               Head {h00=0x0026, h01=0x0050, text=»*   USER BUFFER :               * «, t00=0x0053, t01=0x0114}
0x82d2…82fc               Head {h00=0x0026, h01=0x0050, text=»*   DRIVER BUFFER :             * «, t00=0x0053, t01=0x013e}
0x82fc…8326               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0053, t01=0x0168}
0x8326…8350 (84, 0, 398)  Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0054, t01=0x0004}
0x8350…835a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x002e}
0x835a…836e               Head {h00=0x0010, h01=0x0050, text=»REA:00 EQU *«, t00=0x0054, t01=0x0038}
0x836e…8390               Head {h00=0x001e, h01=0x0050, text=» LD A3,DWTOR,A6 GET INDEX «, t00=0x0054, t01=0x004c}
0x8390…83a6               Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/300 «, t00=0x0054, t01=0x006e}
0x83a6…83c4               Head {h00=0x001a, h01=0x0050, text=» SLL A3,6 IN POSITION «, t00=0x0054, t01=0x0084}
0x83c4…83ea               Head {h00=0x0022, h01=0x0050, text=» ORR* A3,A6 ADD SECTOR NUMBER «, t00=0x0054, t01=0x00a2}
0x83ea…8412               Head {h00=0x0024, h01=0x0050, text=» CW A3,DWTBSE,A6 ALLREADY READ ?«, t00=0x0054, t01=0x00c8}
0x8412…8428               Head {h00=0x0012, h01=0x0050, text=» RF(E) REA:85 «, t00=0x0054, t01=0x00f0}
0x8428…843c               Head {h00=0x0010, h01=0x0050, text=»REA:10 EQU *«, t00=0x0054, t01=0x0106}
0x843c…8452               Head {h00=0x0012, h01=0x0050, text=» LDK A4,QRETRY«, t00=0x0054, t01=0x011a}
0x8452…8466               Head {h00=0x0010, h01=0x0050, text=»REA:20 EQU *«, t00=0x0054, t01=0x0130}
0x8466…847c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0054, t01=0x0144}
0x847c…8492               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0054, t01=0x015a}
0x8492…849e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0054, t01=0x0170}
0x849e…84b4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0054, t01=0x017c}
0x84b4…84e2 (85, 0, 398)  Head {h00=0x002a, h01=0x0050, text=» CF A5,INLACE INTERLACE SECTOR NUMBER «, t00=0x0055, t01=0x0004}
0x84e2…8502               Head {h00=0x001c, h01=0x0050, text=» CF A5,READ READ SECTOR «, t00=0x0055, t01=0x0032}
0x8502…8514               Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0055, t01=0x0052}
0x8514…8548               Head {h00=0x0030, h01=0x0050, text=» CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR«, t00=0x0055, t01=0x0064}
0x8548…856c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) REA:30 NO RETURN CODE«, t00=0x0055, t01=0x0098}
0x856c…8580               Head {h00=0x0010, h01=0x0050, text=»REA:25 EQU *«, t00=0x0055, t01=0x00bc}
0x8580…85a4               Head {h00=0x0020, h01=0x0050, text=» IM DWTRTY,A6 INDICATE RETRY«, t00=0x0055, t01=0x00d0}
0x85a4…85ce               Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0055, t01=0x00f4}
0x85ce…85ea               Head {h00=0x0018, h01=0x0050, text=» RB(NZ) REA:20 RETRY«, t00=0x0055, t01=0x011e}
0x85ea…85fe               Head {h00=0x0010, h01=0x0050, text=» ABL END:20 «, t00=0x0055, t01=0x013a}
0x85fe…8608               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x014e}
0x8608…861e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0055, t01=0x0158}
0x861e…8628               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x016e}
0x8628…8632               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0178}
0x8632…8646               Head {h00=0x0010, h01=0x0050, text=»REA:30 EQU *«, t00=0x0055, t01=0x0182}
0x8646…865e               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x0056, t01=0x0008}
0x865e…868a               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) REA:40 READ TO DRIVER BUFFER«, t00=0x0056, t01=0x0020}
0x868a…86a0               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0056, t01=0x004c}
0x86a0…86da               Head {h00=0x0036, h01=0x0050, text=» LD* A3,DWTUBU,A6 GET CYLINDER ID FROM USER BUFFER«, t00=0x0056, t01=0x0062}
0x86da…86ec               Head {h00=0x000e, h01=0x0050, text=» RF REA:50«, t00=0x0056, t01=0x009c}
0x86ec…86f8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0056, t01=0x00ae}
0x86f8…8702               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00ba}
0x8702…8718               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0056, t01=0x00c4}
0x8718…872e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0056, t01=0x00da}
0x872e…875a               Head {h00=0x0028, h01=0x0050, text=» ML 2,DWTBA1,A6 GET PHYSICAL ADDRESS«, t00=0x0056, t01=0x00f0}
0x875a…877c               Head {h00=0x001e, h01=0x0050, text=» RF(Z) REA:35 SYSTEM AREA «, t00=0x0056, t01=0x011c}
0x877c…879e               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x0056, t01=0x013e}
0x879e…87c0               Head {h00=0x001e, h01=0x0050, text=» TL DWTPAG,A6 LOAD MMUPAGE«, t00=0x0056, t01=0x0160}
0x87c0…87f4               Head {h00=0x0030, h01=0x0050, text=» LD A3,DWTUBU,A6 GET LOGICAL BUFFER POINTER «, t00=0x0056, t01=0x0182}
0x87f4…8818               Head {h00=0x0020, h01=0x0050, text=» EL A3,PHSECL,A3 GET CYL ID «, t00=0x0057, t01=0x0026}
0x8818…883c               Head {h00=0x0020, h01=0x0050, text=» TL -30,A15 RESET REGISTERS «, t00=0x0057, t01=0x004a}
0x883c…884e               Head {h00=0x000e, h01=0x0050, text=» RF REA:50«, t00=0x0057, t01=0x006e}
0x884e…8862               Head {h00=0x0010, h01=0x0050, text=»REA:35 EQU *«, t00=0x0057, t01=0x0080}
0x8862…8888               Head {h00=0x0022, h01=0x0050, text=» SLL A2,1 ADDRESS TO BYTE MODE«, t00=0x0057, t01=0x0094}
0x8888…88ac               Head {h00=0x0020, h01=0x0050, text=» LD A3,PHSECL,A2 GET CYL ID «, t00=0x0057, t01=0x00ba}
0x88ac…88be               Head {h00=0x000e, h01=0x0050, text=» RF REA:50«, t00=0x0057, t01=0x00de}
0x88be…88ca               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0057, t01=0x00f0}
0x88ca…88d4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00fc}
0x88d4…88ea               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0057, t01=0x0106}
0x88ea…88fe               Head {h00=0x0010, h01=0x0050, text=»REA:40 EQU *«, t00=0x0057, t01=0x011c}
0x88fe…8926               Head {h00=0x0024, h01=0x0050, text=» LD A3,BUFFER+PHSECL GET CYL ID «, t00=0x0057, t01=0x0130}
0x8926…893a               Head {h00=0x0010, h01=0x0050, text=»REA:50 EQU *«, t00=0x0057, t01=0x0158}
0x893a…8950               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0057, t01=0x016c}
0x8950…8966               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0057, t01=0x0182}
0x8966…897e               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A2«, t00=0x0058, t01=0x0008}
0x897e…898a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0020}
0x898a…89a0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0058, t01=0x002c}
0x89a0…89b6               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0058, t01=0x0042}
0x89b6…89ce               Head {h00=0x0014, h01=0x0050, text=» CW A3,DWTCYL,A6«, t00=0x0058, t01=0x0058}
0x89ce…89da               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0058, t01=0x0070}
0x89da…89f0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0058, t01=0x007c}
0x89f0…8a18               Head {h00=0x0024, h01=0x0050, text=» RF(E) REA:90 RIGHT CYLINDER ID «, t00=0x0058, t01=0x0092}
0x8a18…8a34               Head {h00=0x0018, h01=0x0050, text=» LDK A1,2 SEEK ERROR«, t00=0x0058, t01=0x00ba}
0x8a34…8a3e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00d6}
0x8a3e…8a54               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0058, t01=0x00e0}
0x8a54…8a5e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00f6}
0x8a5e…8a68               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0100}
0x8a68…8a7a               Head {h00=0x000e, h01=0x0050, text=» RB REA:25«, t00=0x0058, t01=0x010a}
0x8a7a…8a8e               Head {h00=0x0010, h01=0x0050, text=»REA:85 EQU *«, t00=0x0058, t01=0x011c}
0x8a8e…8aa6               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTFBU,A6«, t00=0x0058, t01=0x0130}
0x8aa6…8ad2               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) REA:90 READ TO DRIVER BUFFER«, t00=0x0058, t01=0x0148}
0x8ad2…8afa               Head {h00=0x0024, h01=0x0050, text=» LDKL A4,/180 BYTES TO BE MOVED «, t00=0x0058, t01=0x0174}
0x8afa…8b10               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0059, t01=0x000c}
0x8b10…8b22               Head {h00=0x000e, h01=0x0050, text=» NGR A2,A4«, t00=0x0059, t01=0x0022}
0x8b22…8b66               Head {h00=0x0040, h01=0x0050, text=» ADS A2,DWTUBU,A6 RESET USER BUFFER POINTER FOR DIRECT MOVE «, t00=0x0059, t01=0x0034}
0x8b66…8b72               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0059, t01=0x0078}
0x8b72…8b88               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0059, t01=0x0084}
0x8b88…8bb2               Head {h00=0x0026, h01=0x0050, text=» CF A5,MOVRED MOVE TO USER BUFFER «, t00=0x0059, t01=0x009a}
0x8bb2…8bc6               Head {h00=0x0010, h01=0x0050, text=»REA:90 EQU *«, t00=0x0059, t01=0x00c4}
0x8bc6…8bd6               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0059, t01=0x00d8}
0x8bd6…8be0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00e8}
0x8be0…8bf6               Head {h00=0x0012, h01=0x000e, text=» EJECT  DRDU01«, t00=0x0059, t01=0x00f2}
0x8bf6…8c00               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0059, t01=0x0108}
0x8c00…8c0a               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0059, t01=0x0112}
0x8c0a…8c38               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0059, t01=0x011c}
0x8c38…8c66               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0059, t01=0x014a}
0x8c66…8c94               Head {h00=0x002a, h01=0x0050, text=»*   SUBROUTINES FOR MOVING WORDS    * «, t00=0x0059, t01=0x0178}
0x8c94…8cbe               Head {h00=0x0026, h01=0x0050, text=»*   USER BUFFER TO DRIVER BUFFER: «, t00=0x005a, t01=0x0016}
0x8cbe…8cec               Head {h00=0x002a, h01=0x0050, text=»*   MOVWRI                          * «, t00=0x005a, t01=0x0040}
0x8cec…8d1a               Head {h00=0x002a, h01=0x0050, text=»*   DRIVER BUFFER TO USER BUFFER    * «, t00=0x005a, t01=0x006e}
0x8d1a…8d48               Head {h00=0x002a, h01=0x0050, text=»*   MOVRED                          * «, t00=0x005a, t01=0x009c}
0x8d48…8d76               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x005a, t01=0x00ca}
0x8d76…8da4               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x005a, t01=0x00f8}
0x8da4…8dae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0126}
0x8dae…8dd0               Head {h00=0x001e, h01=0x001a, text=»*   A1   BUFFER ADDRESS IN«, t00=0x005a, t01=0x0130}
0x8dd0…8df4               Head {h00=0x0020, h01=0x001b, text=»*   A2   BUFFER ADDRESS OUT «, t00=0x005a, t01=0x0152}
0x8df4…8e12               Head {h00=0x001a, h01=0x0016, text=»*   A4   BUFFER LENGTH«, t00=0x005a, t01=0x0176}
0x8e12…8e28 (91, 0, 400)  Head {h00=0x0012, h01=0x000d, text=»*   A3   USED «, t00=0x005b, t01=0x0004}
0x8e28…8e32               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x001a}
0x8e32…8e46               Head {h00=0x0010, h01=0x0050, text=»MOVRED EQU *«, t00=0x005b, t01=0x0024}
0x8e46…8e5e               Head {h00=0x0014, h01=0x0050, text=» ADKL A1,BUFFER «, t00=0x005b, t01=0x0038}
0x8e5e…8e7a               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x005b, t01=0x0050}
0x8e7a…8eb0               Head {h00=0x0032, h01=0x0050, text=» LD A2,DWTUBU,A6 PRESENT POINT IN USER BUFFER «, t00=0x005b, t01=0x006c}
0x8eb0…8ebc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x00a2}
0x8ebc…8ec6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00ae}
0x8ec6…8edc               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005b, t01=0x00b8}
0x8edc…8ef8               Head {h00=0x0018, h01=0x0050, text=» IFT CPU852+MMUPAG=0«, t00=0x005b, t01=0x00ce}
0x8ef8…8f0e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU857=1 «, t00=0x005b, t01=0x00ea}
0x8f0e…8f3e               Head {h00=0x002c, h01=0x0050, text=» LD A2,DWTUBU,A6 GET USER BUFFER POINTER«, t00=0x005b, t01=0x0100}
0x8f3e…8f72               Head {h00=0x0030, h01=0x0050, text=» ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x005b, t01=0x0130}
0x8f72…8f82               Head {h00=0x000c, h01=0x0050, text=» MVB A4 «, t00=0x005b, t01=0x0164}
0x8f82…8f8e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005b, t01=0x0174}
0x8f8e…8f98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0180}
0x8f98…8fae               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005b, t01=0x018a}
0x8fae…8fc4               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005c, t01=0x0010}
0x8fc4…8fda               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005c, t01=0x0026}
0x8fda…900e               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS«, t00=0x005c, t01=0x003c}
0x900e…902a               Head {h00=0x0018, h01=0x0050, text=» SLL A2,1 BYTE MODE «, t00=0x005c, t01=0x0070}
0x902a…904c               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x005c, t01=0x008c}
0x904c…9062               Head {h00=0x0012, h01=0x0050, text=» TL DWTPAG,A6 «, t00=0x005c, t01=0x00ae}
0x9062…908e               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTUBU,A6 GET LOGICAL ADDRESS«, t00=0x005c, t01=0x00c4}
0x908e…909e               Head {h00=0x000c, h01=0x0050, text=» MVSU A4«, t00=0x005c, t01=0x00f0}
0x909e…90aa               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005c, t01=0x0100}
0x90aa…90b4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x010c}
0x90b4…90ca               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005c, t01=0x0116}
0x90ca…90dc               Head {h00=0x000e, h01=0x0050, text=» RF MOV:00«, t00=0x005c, t01=0x012c}
0x90dc…90e6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x013e}
0x90e6…90fc               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x005c, t01=0x0148}
0x90fc…9106               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x015e}
0x9106…9110               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0168}
0x9110…9124               Head {h00=0x0010, h01=0x0050, text=»MOVWRI EQU *«, t00=0x005c, t01=0x0172}
0x9124…9152               Head {h00=0x002a, h01=0x0050, text=» ADKL A2,BUFFER DRIVER BUFFER POINTER «, t00=0x005c, t01=0x0186}
0x9152…916e               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x005d, t01=0x0024}
0x916e…91a4               Head {h00=0x0032, h01=0x0050, text=» LD A1,DWTUBU,A6 PRESENT POINT IN USER BUFFER «, t00=0x005d, t01=0x0040}
0x91a4…91b0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x0076}
0x91b0…91ba               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0082}
0x91ba…91d0               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005d, t01=0x008c}
0x91d0…91ec               Head {h00=0x0018, h01=0x0050, text=» IFT CPU852+MMUPAG=0«, t00=0x005d, t01=0x00a2}
0x91ec…9202               Head {h00=0x0012, h01=0x0050, text=» IFT CPU857=1 «, t00=0x005d, t01=0x00be}
0x9202…9232               Head {h00=0x002c, h01=0x0050, text=» LD A1,DWTUBU,A6 GET USER BUFFER POINTER«, t00=0x005d, t01=0x00d4}
0x9232…9266               Head {h00=0x0030, h01=0x0050, text=» ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x005d, t01=0x0104}
0x9266…9276               Head {h00=0x000c, h01=0x0050, text=» MVB A4 «, t00=0x005d, t01=0x0138}
0x9276…9282               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005d, t01=0x0148}
0x9282…928c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0154}
0x928c…92a2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005d, t01=0x015e}
0x92a2…92b8               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005d, t01=0x0174}
0x92b8…92ce               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005d, t01=0x018a}
0x92ce…9302               Head {h00=0x0030, h01=0x0050, text=» LD A1,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS«, t00=0x005e, t01=0x0010}
0x9302…931e               Head {h00=0x0018, h01=0x0050, text=» SLL A1,1 BYTE MODE «, t00=0x005e, t01=0x0044}
0x931e…9340               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x005e, t01=0x0060}
0x9340…9356               Head {h00=0x0012, h01=0x0050, text=» TL DWTPAG,A6 «, t00=0x005e, t01=0x0082}
0x9356…9382               Head {h00=0x0028, h01=0x0050, text=» LD A1,DWTUBU,A6 GET LOGICAL ADDRESS«, t00=0x005e, t01=0x0098}
0x9382…9392               Head {h00=0x000c, h01=0x0050, text=» MVUS A4«, t00=0x005e, t01=0x00c4}
0x9392…939e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x00d4}
0x939e…93a8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00e0}
0x93a8…93be               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005e, t01=0x00ea}
0x93be…93d2               Head {h00=0x0010, h01=0x000c, text=»MOV:00 EQU *«, t00=0x005e, t01=0x0100}
0x93d2…93ee               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x005e, t01=0x0114}
0x93ee…9422               Head {h00=0x0030, h01=0x0050, text=» ADS A4,DWTUBU,A6 UPDATE USER BUFFER POINTER«, t00=0x005e, t01=0x0130}
0x9422…942e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005e, t01=0x0164}
0x942e…9438               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0170}
0x9438…944e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005e, t01=0x017a}
0x944e…9464               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x005e, t01=0x0190}
0x9464…9488               Head {h00=0x0020, h01=0x0050, text=» TL -30,A15 RESET REGISTERS «, t00=0x005f, t01=0x0016}
0x9488…9494               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x005f, t01=0x003a}
0x9494…949e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0046}
0x949e…94b4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005f, t01=0x0050}
0x94b4…94d0               Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x005f, t01=0x0066}
0x94d0…94e6               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x005f, t01=0x0082}
0x94e6…94f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0098}
0x94f0…9506               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x005f, t01=0x00a2}
0x9506…9510               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00b8}
0x9510…951a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00c2}
0x951a…952e               Head {h00=0x0010, h01=0x0050, text=»MOV:10 EQU *«, t00=0x005f, t01=0x00cc}
0x952e…9542               Head {h00=0x0010, h01=0x000b, text=» LDR* A3,A1 «, t00=0x005f, t01=0x00e0}
0x9542…9554               Head {h00=0x000e, h01=0x000a, text=» STR A3,A2«, t00=0x005f, t01=0x00f4}
0x9554…9566               Head {h00=0x000e, h01=0x0009, text=» ADK A1,2 «, t00=0x005f, t01=0x0106}
0x9566…9578               Head {h00=0x000e, h01=0x0009, text=» ADK A2,2 «, t00=0x005f, t01=0x0118}
0x9578…958a               Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x005f, t01=0x012a}
0x958a…95a0               Head {h00=0x0012, h01=0x0050, text=» RB(P) MOV:10 «, t00=0x005f, t01=0x013c}
0x95a0…95ac               Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x005f, t01=0x0152}
0x95ac…95b6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x015e}
0x95b6…95cc               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x005f, t01=0x0168}
0x95cc…95e2               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x005f, t01=0x017e}
0x95e2…95fe (96, 0, 400)  Head {h00=0x0018, h01=0x0050, text=» IFT MMUPAG+CPU857=0«, t00=0x0060, t01=0x0004}
0x95fe…962a               Head {h00=0x0028, h01=0x0050, text=» MSR 12,A15 SAVE REGISTERS ON STACK «, t00=0x0060, t01=0x0020}
0x962a…964e               Head {h00=0x0020, h01=0x0050, text=» LDR A11,A4 NUMBER OF BYTES «, t00=0x0060, t01=0x004c}
0x964e…9670               Head {h00=0x001e, h01=0x0050, text=» LDR A10,A2 OUTPUT ADDRESS«, t00=0x0060, t01=0x0070}
0x9670…9690               Head {h00=0x001c, h01=0x0050, text=» LDR A9,A1 INPUT ADDRESS«, t00=0x0060, t01=0x0092}
0x9690…96b8               Head {h00=0x0024, h01=0x0050, text=» LDKL A12,16 BYTES IN EACH LOOP «, t00=0x0060, t01=0x00b2}
0x96b8…96cc               Head {h00=0x0010, h01=0x0050, text=»MOV:15 EQU *«, t00=0x0060, t01=0x00da}
0x96cc…96de               Head {h00=0x000e, h01=0x0050, text=» MLR 8,A9 «, t00=0x0060, t01=0x00ee}
0x96de…96f0               Head {h00=0x000e, h01=0x0050, text=» MSR 8,A10«, t00=0x0060, t01=0x0100}
0x96f0…9704               Head {h00=0x0010, h01=0x0050, text=» ADR A10,A12«, t00=0x0060, t01=0x0112}
0x9704…9718               Head {h00=0x0010, h01=0x0050, text=» ADR A9,A12 «, t00=0x0060, t01=0x0126}
0x9718…972c               Head {h00=0x0010, h01=0x0050, text=» SUR A11,A12«, t00=0x0060, t01=0x013a}
0x972c…9742               Head {h00=0x0012, h01=0x0050, text=» RB(P) MOV:15 «, t00=0x0060, t01=0x014e}
0x9742…9772               Head {h00=0x002c, h01=0x0050, text=» MLR 12,A15 RESTORE REGISTERS FROM STACK«, t00=0x0060, t01=0x0164}
0x9772…977e (97, 0, 400)  Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x0004}
0x977e…9788               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0010}
0x9788…979e               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0061, t01=0x001a}
0x979e…97ae               Head {h00=0x000c, h01=0x0007, text=» RTN A5 «, t00=0x0061, t01=0x0030}
0x97ae…97b8               Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0061, t01=0x0040}
0x97b8…97c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0061, t01=0x004a}
0x97c4…97ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0056}
0x97ce…97e4               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0061, t01=0x0060}
0x97e4…97fa               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0061, t01=0x0076}
0x97fa…9804               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x008c}
0x9804…980e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0096}
0x980e…9832               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0061, t01=0x00a0}
0x9832…9856               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0061, t01=0x00c4}
0x9856…987a               Head {h00=0x0020, h01=0x0050, text=»*   DIV31                 * «, t00=0x0061, t01=0x00e8}
0x987a…989e               Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x0061, t01=0x010c}
0x989e…98c2               Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0061, t01=0x0130}
0x98c2…98cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0154}
0x98cc…98fc               Head {h00=0x002c, h01=0x0050, text=»*   INPUT: ECBCW2=LOGICAL SECTOR NUMBER «, t00=0x0061, t01=0x015e}
0x98fc…9930               Head {h00=0x0030, h01=0x0050, text=»*   OUTPUT: 1ST DWT = PHYSICAL SECTOR NUMBER«, t00=0x0061, t01=0x018e}
0x9930…993a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0032}
0x993a…994e               Head {h00=0x0010, h01=0x0050, text=»DIV31 EQU * «, t00=0x0062, t01=0x003c}
0x994e…9958               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0050}
0x9958…996e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0062, t01=0x005a}
0x996e…99a0               Head {h00=0x002e, h01=0x0050, text=» LD A1,ECBCW2,A8 GET LOGICAL SECTOR NUMBER«, t00=0x0062, t01=0x0070}
0x99a0…99b2               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0062, t01=0x00a2}
0x99b2…99c4               Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0062, t01=0x00b4}
0x99c4…99d8               Head {h00=0x0010, h01=0x0050, text=»DIV:20 EQU *«, t00=0x0062, t01=0x00c6}
0x99d8…99f4               Head {h00=0x0018, h01=0x0050, text=» ADR A2,A3 I0:=I0+I1«, t00=0x0062, t01=0x00da}
0x99f4…9a10               Head {h00=0x0018, h01=0x0050, text=» SRL A3,5 I1:=I1/32 «, t00=0x0062, t01=0x00f6}
0x9a10…9a26               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) DIV:20«, t00=0x0062, t01=0x0112}
0x9a26…9a38               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0062, t01=0x0128}
0x9a38…9a52               Head {h00=0x0016, h01=0x0050, text=» ANKL A3,/FFE0 32*«, t00=0x0062, t01=0x013a}
0x9a52…9a6c               Head {h00=0x0016, h01=0x0050, text=» SRL A2,5 TRUNCATE«, t00=0x0062, t01=0x0154}
0x9a6c…9a7e               Head {h00=0x000e, h01=0x0050, text=» SUR A3,A2«, t00=0x0062, t01=0x016e}
0x9a7e…9a90               Head {h00=0x000e, h01=0x0050, text=» SUR A3,A1«, t00=0x0062, t01=0x0180}
0x9a90…9aa2 (99, 0, 400)  Head {h00=0x000e, h01=0x0050, text=» ADK A3,31«, t00=0x0063, t01=0x0004}
0x9aa2…9ab8               Head {h00=0x0012, h01=0x0050, text=» RF(P) DIV:30 «, t00=0x0063, t01=0x0016}
0x9ab8…9ad8               Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 NEXT CYLINDER «, t00=0x0063, t01=0x002c}
0x9ad8…9aec               Head {h00=0x0010, h01=0x0050, text=»DIV:30 EQU *«, t00=0x0063, t01=0x004c}
0x9aec…9afe               Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0063, t01=0x0060}
0x9afe…9b1e               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV:50 CYLINDER 0«, t00=0x0063, t01=0x0072}
0x9b1e…9b30               Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0063, t01=0x0092}
0x9b30…9b42               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0063, t01=0x00a4}
0x9b42…9b4c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00b6}
0x9b4c…9b62               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0063, t01=0x00c0}
0x9b62…9b6c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00d6}
0x9b6c…9b76               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00e0}
0x9b76…9b8a               Head {h00=0x0010, h01=0x0050, text=»DIV:50 EQU *«, t00=0x0063, t01=0x00ea}
0x9b8a…9bbe               Head {h00=0x0030, h01=0x0050, text=» STR A1,A6 PUT PHYSICAL SECTOR NUMBER IN DWT«, t00=0x0063, t01=0x00fe}
0x9bbe…9bce               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0063, t01=0x0132}
0x9bce…9bd8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0142}
0x9bd8…9be4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0063, t01=0x014c}
0x9be4…9bee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0158}
0x9bee…9c04               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA2=1 «, t00=0x0063, t01=0x0162}
0x9c04…9c1a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0063, t01=0x0178}
0x9c1a…9c44               Head {h00=0x0026, h01=0x0050, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x0063, t01=0x018e}
0x9c44…9c6e               Head {h00=0x0026, h01=0x0050, text=» STR A2,A6 PHYSICAL SECTOR NUMBER «, t00=0x0064, t01=0x0028}
0x9c6e…9c80               Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0064, t01=0x0052}
0x9c80…9c90               Head {h00=0x000c, h01=0x0050, text=» DVK 31 «, t00=0x0064, t01=0x0064}
0x9c90…9ca2               Head {h00=0x000e, h01=0x0050, text=» ADK A2,0 «, t00=0x0064, t01=0x0074}
0x9ca2…9cc2               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DIV:10 CYLINDER 0«, t00=0x0064, t01=0x0086}
0x9cc2…9cd4               Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0064, t01=0x00a6}
0x9cd4…9ce8               Head {h00=0x0010, h01=0x0050, text=»DIV:10 EQU *«, t00=0x0064, t01=0x00b8}
0x9ce8…9d12               Head {h00=0x0026, h01=0x0050, text=» ADRS A2,A6 PHYSICAL SECTOR NUMBER«, t00=0x0064, t01=0x00cc}
0x9d12…9d22               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0064, t01=0x00f6}
0x9d22…9d2e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0064, t01=0x0106}
0x9d2e…9d38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0112}
0x9d38…9d4e               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0064, t01=0x011c}
0x9d4e…9d58               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0132}
0x9d58…9d82               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0064, t01=0x013c}
0x9d82…9dac               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0064, t01=0x0166}
0x9dac…9dd6               Head {h00=0x0026, h01=0x0050, text=»*   SUBROUTINES FOR             * «, t00=0x0064, t01=0x0190}
0x9dd6…9e00               Head {h00=0x0026, h01=0x0050, text=»*   INTERLACING AND/OR          * «, t00=0x0065, t01=0x002a}
0x9e00…9e2a               Head {h00=0x0026, h01=0x0050, text=»*   SKEWING                     * «, t00=0x0065, t01=0x0054}
0x9e2a…9e54               Head {h00=0x0026, h01=0x0050, text=»*                               * «, t00=0x0065, t01=0x007e}
0x9e54…9e7e               Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0065, t01=0x00a8}
0x9e7e…9e88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00d2}
0x9e88…9ece               Head {h00=0x0042, h01=0x0050, text=»*  OUTPUT : A3 CONTAINING INTERLACED AND SKEWED SECTOR NUMBER «, t00=0x0065, t01=0x00dc}
0x9ece…9ed8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0122}
0x9ed8…9eec               Head {h00=0x0010, h01=0x0050, text=»INLACE EQU *«, t00=0x0065, t01=0x012c}
0x9eec…9f1a               Head {h00=0x002a, h01=0x0050, text=» LDR* A3,A6 GET PHYSICAL SECTOR NUMBER«, t00=0x0065, t01=0x0140}
0x9f1a…9f2c               Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x0065, t01=0x016e}
0x9f2c…9f3e               Head {h00=0x000e, h01=0x0050, text=» ADR A3,A3«, t00=0x0065, t01=0x0180}
0x9f3e…9f66 (102, 0, 398) Head {h00=0x0024, h01=0x0050, text=» ADR A3,A1 INTERLACING FACTOR 3 «, t00=0x0066, t01=0x0004}
0x9f66…9f78               Head {h00=0x000e, h01=0x0050, text=»SKEW EQU *«, t00=0x0066, t01=0x002c}
0x9f78…9f8e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0066, t01=0x003e}
0x9f8e…9fba               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A2 GET CYLINDER NUMBER«, t00=0x0066, t01=0x0054}
0x9fba…9fc6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x0080}
0x9fc6…9fdc               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0066, t01=0x008c}
0x9fdc…a008               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTCYL,A6 GET CYLINDER NUMBER«, t00=0x0066, t01=0x00a2}
0xa008…a014               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0066, t01=0x00ce}
0xa014…a026               Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x0066, t01=0x00da}
0xa026…a04a               Head {h00=0x0020, h01=0x0050, text=» RF(Z) INLAC5 EVEN CYLINDER «, t00=0x0066, t01=0x00ec}
0xa04a…a070               Head {h00=0x0022, h01=0x0050, text=» ADK A3,8 SKEW FACTOR 180 DEG.«, t00=0x0066, t01=0x0110}
0xa070…a084               Head {h00=0x0010, h01=0x0050, text=»INLAC5 EQU *«, t00=0x0066, t01=0x0136}
0xa084…a098               Head {h00=0x0010, h01=0x0050, text=» ANK A3,/1F «, t00=0x0066, t01=0x014a}
0xa098…a0b6               Head {h00=0x001a, h01=0x0050, text=» SLL A3,2 IN POSITION «, t00=0x0066, t01=0x015e}
0xa0b6…a0c6               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0066, t01=0x017c}
0xa0c6…a0d0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x018c}
0xa0d0…a0e6               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0067, t01=0x0008}
0xa0e6…a0fc               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0067, t01=0x001e}
0xa0fc…a106               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0034}
0xa106…a110               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x003e}
0xa110…a122               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x0048}
0xa122…a134               Head {h00=0x000e, h01=0x0050, text=»* INXUNI *«, t00=0x0067, t01=0x005a}
0xa134…a146               Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0067, t01=0x006c}
0xa146…a150               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x007e}
0xa150…a188               Head {h00=0x0034, h01=0x0050, text=»*   OUTPUT  A2=DOUBLED UNIT INDEX + DWT ADDRESS «, t00=0x0067, t01=0x0088}
0xa188…a192               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00c0}
0xa192…a1a6               Head {h00=0x0010, h01=0x0050, text=»INXUNI EQU *«, t00=0x0067, t01=0x00ca}
0xa1a6…a1be               Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTOR,A6 «, t00=0x0067, t01=0x00de}
0xa1be…a1d0               Head {h00=0x000e, h01=0x0050, text=» ANK A2,2 «, t00=0x0067, t01=0x00f6}
0xa1d0…a1e2               Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0067, t01=0x0108}
0xa1e2…a1f2               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0067, t01=0x011a}
0xa1f2…a1fe               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0067, t01=0x012a}
0xa1fe…a208               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0136}
0xa208…a21e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0067, t01=0x0140}
0xa21e…a234               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0067, t01=0x0156}
0xa234…a23e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x016c}
0xa23e…a248               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0176}
0xa248…a27a               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0067, t01=0x0180}
0xa27a…a2ac               Head {h00=0x002e, h01=0x0050, text=»*                                        *«, t00=0x0068, t01=0x0022}
0xa2ac…a2de               Head {h00=0x002e, h01=0x0050, text=»*   MMULOG : GET LOGICAL ADDRESS AND     *«, t00=0x0068, t01=0x0054}
0xa2de…a310               Head {h00=0x002e, h01=0x0050, text=»*            PAGE                        *«, t00=0x0068, t01=0x0086}
0xa310…a342               Head {h00=0x002e, h01=0x0050, text=»*                                        *«, t00=0x0068, t01=0x00b8}
0xa342…a374               Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0068, t01=0x00ea}
0xa374…a37e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x011c}
0xa37e…a388               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0126}
0xa388…a39c               Head {h00=0x0010, h01=0x0050, text=»MMULOG EQU *«, t00=0x0068, t01=0x0130}
0xa39c…a3ce               Head {h00=0x002e, h01=0x0050, text=» MS 2,DWTBA1,A6 SAVE PHYSICAL WORD ADDRESS«, t00=0x0068, t01=0x0144}
0xa3ce…a3dc               Head {h00=0x000a, h01=0x0050, text=» DLA 4«, t00=0x0068, t01=0x0176}
0xa3dc…a3fa               Head {h00=0x001a, h01=0x0050, text=» SRC A1,6 IN POSITION «, t00=0x0068, t01=0x0184}
0xa3fa…a418               Head {h00=0x001a, h01=0x0050, text=» ST A1,DWTPAG,A6 PAGE «, t00=0x0069, t01=0x0012}
0xa418…a438               Head {h00=0x001c, h01=0x0050, text=» ADKL A1,/400 NEXT PAGE «, t00=0x0069, t01=0x0030}
0xa438…a464               Head {h00=0x0028, h01=0x0050, text=» ST A1,DWTPAG+2,A6 PSEUDO MMU TABLE «, t00=0x0069, t01=0x0050}
0xa464…a476               Head {h00=0x000e, h01=0x0050, text=» SRL A2,3 «, t00=0x0069, t01=0x007c}
0xa476…a49e               Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTUBU,A6 LOGICAL ADDRESS«, t00=0x0069, t01=0x008e}
0xa49e…a4ae               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0069, t01=0x00b6}
0xa4ae…a4b8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00c6}
0xa4b8…a4c4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x00d0}
0xa4c4…a4ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00dc}
0xa4ce…a4e6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0069, t01=0x00e6}
0xa4e6…a4f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00fe}
0xa4f0…a506               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0069, t01=0x0108}
0xa506…a510               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x011e}
0xa510…a51a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0128}
0xa51a…a540               Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0069, t01=0x0132}
0xa540…a54a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0158}
0xa54a…a574               Head {h00=0x0026, h01=0x0050, text=»*  UPDATE DRIVER BUFFER INDICATOR «, t00=0x0069, t01=0x0162}
0xa574…a57e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x018c}
0xa57e…a5a6               Head {h00=0x0024, h01=0x0050, text=»******************************* «, t00=0x006a, t01=0x0008}
0xa5a6…a5b0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0030}
0xa5b0…a5de               Head {h00=0x002a, h01=0x0050, text=»*   INPUT  A1=RETURN CODE (AFTER READ)«, t00=0x006a, t01=0x003a}
0xa5de…a610               Head {h00=0x002e, h01=0x0050, text=»*   OUTPUT DWTBSE=DRIVER BUFFER INDICATOR «, t00=0x006a, t01=0x0068}
0xa610…a61a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x009a}
0xa61a…a62e               Head {h00=0x0010, h01=0x0050, text=»BSELOD EQU *«, t00=0x006a, t01=0x00a4}
0xa62e…a658               Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A6 GET READ SECTOR NUMBER«, t00=0x006a, t01=0x00b8}
0xa658…a67e               Head {h00=0x0022, h01=0x0050, text=»BSEL00 EQU * FROM SEEK VERIFY «, t00=0x006a, t01=0x00e2}
0xa67e…a696               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x006a, t01=0x0108}
0xa696…a6c6               Head {h00=0x002c, h01=0x0050, text=» RF(Z) BSEL50 READ/WRITE TO USER BUFFER «, t00=0x006a, t01=0x0120}
0xa6c6…a6e2               Head {h00=0x0018, h01=0x0050, text=» LDKL A2,/FFFF DUMMY«, t00=0x006a, t01=0x0150}
0xa6e2…a6f4               Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x006a, t01=0x016c}
0xa6f4…a716               Head {h00=0x001e, h01=0x0050, text=» RF(NZ) BSEL40 READ ERROR «, t00=0x006a, t01=0x017e}
0xa716…a738               Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTOR,A6 GET INDEX «, t00=0x006b, t01=0x0010}
0xa738…a74e               Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/300 «, t00=0x006b, t01=0x0032}
0xa74e…a760               Head {h00=0x000e, h01=0x0050, text=» SLL A2,6 «, t00=0x006b, t01=0x0048}
0xa760…a772               Head {h00=0x000e, h01=0x0050, text=» ORR A2,A3«, t00=0x006b, t01=0x005a}
0xa772…a786               Head {h00=0x0010, h01=0x0050, text=»BSEL40 EQU *«, t00=0x006b, t01=0x006c}
0xa786…a7be               Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR «, t00=0x006b, t01=0x0080}
0xa7be…a7d2               Head {h00=0x0010, h01=0x0050, text=»BSEL50 EQU *«, t00=0x006b, t01=0x00b8}
0xa7d2…a7e2               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006b, t01=0x00cc}
0xa7e2…a7ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00dc}
0xa7ec…a802               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x006b, t01=0x00e6}
0xa802…a80c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x00fc}
0xa80c…a816               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0106}
0xa816…a846               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x006b, t01=0x0110}
0xa846…a876               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x006b, t01=0x0140}
0xa876…a8a6               Head {h00=0x002c, h01=0x0050, text=»*   RESTORE WORD TO USER BUFFER       * «, t00=0x006b, t01=0x0170}
0xa8a6…a8d6               Head {h00=0x002c, h01=0x0050, text=»*   IF NECESSARY                      * «, t00=0x006c, t01=0x0010}
0xa8d6…a906               Head {h00=0x002c, h01=0x0050, text=»*                                     * «, t00=0x006c, t01=0x0040}
0xa906…a936               Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x006c, t01=0x0070}
0xa936…a940               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00a0}
0xa940…a96e               Head {h00=0x002a, h01=0x0050, text=»*   INPUT: DWTFSW=SAVED WORD INDICATOR«, t00=0x006c, t01=0x00aa}
0xa96e…a992               Head {h00=0x0020, h01=0x0050, text=»*          DWTSWD=SAVED WORD«, t00=0x006c, t01=0x00d8}
0xa992…a9c2               Head {h00=0x002c, h01=0x0050, text=»*          DWTUBU=POINTER TO USER BUFFER«, t00=0x006c, t01=0x00fc}
0xa9c2…a9cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x012c}
0xa9cc…a9e0               Head {h00=0x0010, h01=0x0050, text=»REWORD EQU *«, t00=0x006c, t01=0x0136}
0xa9e0…a9f8               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTFSW,A6«, t00=0x006c, t01=0x014a}
0xa9f8…aa1c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) REWO50 NO SAVED WORD «, t00=0x006c, t01=0x0162}
0xaa1c…aa34               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTSWD,A6«, t00=0x006c, t01=0x0186}
0xaa34…aa4a               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x006d, t01=0x000e}
0xaa4a…aa74               Head {h00=0x0026, h01=0x0050, text=» ML 2,DWTBA1,A6 GET BUFFER ADDRESS«, t00=0x006d, t01=0x0024}
0xaa74…aa96               Head {h00=0x001e, h01=0x0050, text=» RF(Z) REWO20 SYSTEM AREA «, t00=0x006d, t01=0x004e}
0xaa96…aab8               Head {h00=0x001e, h01=0x0050, text=» TS -30,A15 SAVE REGISTERS«, t00=0x006d, t01=0x0070}
0xaab8…aae0               Head {h00=0x0024, h01=0x0050, text=» TL DWTPAG,A6 SET MMU REGISTERS «, t00=0x006d, t01=0x0092}
0xaae0…ab14               Head {h00=0x0030, h01=0x0050, text=» LD A2,DWTUBU,A6 GET LOGICAL BUFFER ADDRESS «, t00=0x006d, t01=0x00ba}
0xab14…ab40               Head {h00=0x0028, h01=0x0050, text=» ES A3,PHSECL,A2 RESTORE SAVED WORD «, t00=0x006d, t01=0x00ee}
0xab40…ab64               Head {h00=0x0020, h01=0x0050, text=» TL -30,A15 RESET REGISTERS «, t00=0x006d, t01=0x011a}
0xab64…ab76               Head {h00=0x000e, h01=0x0050, text=» RF REWO50«, t00=0x006d, t01=0x013e}
0xab76…ab8a               Head {h00=0x0010, h01=0x0050, text=»REWO20 EQU *«, t00=0x006d, t01=0x0150}
0xab8a…aba6               Head {h00=0x0018, h01=0x0050, text=» SLL A2,1 BYTE MODE «, t00=0x006d, t01=0x0164}
0xaba6…abcc               Head {h00=0x0022, h01=0x0050, text=» ST A3,PHSECL,A2 RESTORE WORD «, t00=0x006d, t01=0x0180}
0xabcc…abd8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0016}
0xabd8…abe2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0022}
0xabe2…abf8               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x006e, t01=0x002c}
0xabf8…ac0e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x006e, t01=0x0042}
0xac0e…ac3a               Head {h00=0x0028, h01=0x0050, text=» ST* A3,DWTUBU,A6 RESTORE SAVED WORD«, t00=0x006e, t01=0x0058}
0xac3a…ac46               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x0084}
0xac46…ac50               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0090}
0xac50…ac66               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x006e, t01=0x009a}
0xac66…ac92               Head {h00=0x0028, h01=0x0050, text=» CM DWTFSW,A6 INDICATE NO SAVED WORD«, t00=0x006e, t01=0x00b0}
0xac92…aca6               Head {h00=0x0010, h01=0x0050, text=»REWO50 EQU *«, t00=0x006e, t01=0x00dc}
0xaca6…acb6               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x006e, t01=0x00f0}
0xacb6…acc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0100}
0xacc0…accc               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006e, t01=0x010a}
0xaccc…acd6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0116}
0xacd6…acf6               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x006e, t01=0x0120}
0xacf6…ad00               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0140}
0xad00…ad0a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x014a}
0xad0a…ad26               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x006e, t01=0x0154}
0xad26…ad42               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x006e, t01=0x0170}
0xad42…ad5e               Head {h00=0x0018, h01=0x0050, text=»*  SEEK CYLINDER  * «, t00=0x006e, t01=0x018c}
0xad5e…ad7a               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x006f, t01=0x0018}
0xad7a…ad96               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x006f, t01=0x0034}
0xad96…ada0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0050}
0xada0…adaa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x005a}
0xadaa…adbc               Head {h00=0x000e, h01=0x0050, text=»SEEK EQU *«, t00=0x006f, t01=0x0064}
0xadbc…add2               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x006f, t01=0x0076}
0xadd2…adfa               Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTCYL,A2 CYLINDER NUMBER«, t00=0x006f, t01=0x008c}
0xadfa…ae06               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x00b4}
0xae06…ae1c               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x006f, t01=0x00c0}
0xae1c…ae34               Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTCYL,A6«, t00=0x006f, t01=0x00d6}
0xae34…ae40               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x006f, t01=0x00ee}
0xae40…ae52               Head {h00=0x000e, h01=0x0050, text=» SLL A3,3 «, t00=0x006f, t01=0x00fa}
0xae52…ae64               Head {h00=0x000e, h01=0x0050, text=» ORK A3,2 «, t00=0x006f, t01=0x010c}
0xae64…ae86               Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x006f, t01=0x011e}
0xae86…ae90               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0140}
0xae90…aea4               Head {h00=0x0010, h01=0x0050, text=»SEEKZ EQU * «, t00=0x006f, t01=0x014a}
0xaea4…aeb6               Head {h00=0x000e, h01=0x0050, text=» LDK A3,3 «, t00=0x006f, t01=0x015e}
0xaeb6…aed8               Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x006f, t01=0x0170}
0xaed8…aee2 (112, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0004}
0xaee2…aef8               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0070, t01=0x000e}
0xaef8…af02               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0024}
0xaf02…af0c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x002e}
0xaf0c…af36               Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0070, t01=0x0038}
0xaf36…af60               Head {h00=0x0026, h01=0x0050, text=»*                                *«, t00=0x0070, t01=0x0062}
0xaf60…af8a               Head {h00=0x0026, h01=0x0050, text=»*   CIO: READ AND WRITE          *«, t00=0x0070, t01=0x008c}
0xaf8a…afb4               Head {h00=0x0026, h01=0x0050, text=»*                                *«, t00=0x0070, t01=0x00b6}
0xafb4…afde               Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0070, t01=0x00e0}
0xafde…afe8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x010a}
0xafe8…b01c               Head {h00=0x0030, h01=0x0050, text=»*  INPUT: A3=PHYSICAL SECTOR NUMBER SHIFTED «, t00=0x0070, t01=0x0114}
0xb01c…b026               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x0148}
0xb026…b03c               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0070, t01=0x0152}
0xb03c…b052               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0070, t01=0x0168}
0xb052…b064               Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0070, t01=0x017e}
0xb064…b082               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/80C1 1ST WER«, t00=0x0070, t01=0x0190}
0xb082…b094               Head {h00=0x000e, h01=0x0050, text=» RF CIO:20«, t00=0x0071, t01=0x001e}
0xb094…b0a8               Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0071, t01=0x0030}
0xb0a8…b0c6               Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/C0C1 1ST WER«, t00=0x0071, t01=0x0044}
0xb0c6…b0e2               Head {h00=0x0018, h01=0x0050, text=» ADK A3,1 ORDER CODE«, t00=0x0071, t01=0x0062}
0xb0e2…b0f6               Head {h00=0x0010, h01=0x0050, text=»CIO:20 EQU *«, t00=0x0071, t01=0x007e}
0xb0f6…b10e               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x0071, t01=0x0092}
0xb10e…b13e               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER «, t00=0x0071, t01=0x00aa}
0xb13e…b16a               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTUBU,A6 USER BUFFER POINTER«, t00=0x0071, t01=0x00da}
0xb16a…b182               Head {h00=0x0014, h01=0x0050, text=» SUKL A2,PHSECL «, t00=0x0071, t01=0x0106}
0xb182…b194               Head {h00=0x000e, h01=0x0050, text=» RF CIO:50«, t00=0x0071, t01=0x011e}
0xb194…b1a8               Head {h00=0x0010, h01=0x0050, text=»CIO:30 EQU *«, t00=0x0071, t01=0x0130}
0xb1a8…b1d6               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,BUFFER DRIVER BUFFER ADDRESS «, t00=0x0071, t01=0x0144}
0xb1d6…b1e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0071, t01=0x0172}
0xb1e2…b1ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x017e}
0xb1ec…b202               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0071, t01=0x0188}
0xb202…b218               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0072, t01=0x000e}
0xb218…b22a               Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0072, t01=0x0024}
0xb22a…b250               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0C18 1ST WER SHIFTED«, t00=0x0072, t01=0x0036}
0xb250…b262               Head {h00=0x000e, h01=0x0050, text=» RF CIO:20«, t00=0x0072, t01=0x005c}
0xb262…b276               Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0072, t01=0x006e}
0xb276…b29c               Head {h00=0x0022, h01=0x0050, text=» LDKL A1,/0C1C 1ST WER SHIFTED«, t00=0x0072, t01=0x0082}
0xb29c…b2b8               Head {h00=0x0018, h01=0x0050, text=» ADK A3,1 ORDER CODE«, t00=0x0072, t01=0x00a8}
0xb2b8…b2cc               Head {h00=0x0010, h01=0x0050, text=»CIO:20 EQU *«, t00=0x0072, t01=0x00c4}
0xb2cc…b2e4               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTFBU,A6«, t00=0x0072, t01=0x00d8}
0xb2e4…b314               Head {h00=0x002c, h01=0x0050, text=» RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER «, t00=0x0072, t01=0x00f0}
0xb314…b342               Head {h00=0x002a, h01=0x0050, text=» DA DWTBA1,A6 GET USER BUFFER ADDRESS «, t00=0x0072, t01=0x0120}
0xb342…b366               Head {h00=0x0020, h01=0x0050, text=» SLL A2,1 BYTE MODE ADDRESS «, t00=0x0072, t01=0x014e}
0xb366…b378               Head {h00=0x000e, h01=0x0050, text=» RF CIO:40«, t00=0x0072, t01=0x0172}
0xb378…b38c               Head {h00=0x0010, h01=0x0050, text=»CIO:30 EQU *«, t00=0x0072, t01=0x0184}
0xb38c…b3ba               Head {h00=0x002a, h01=0x0050, text=» LDKL A2,BUFFER DRIVER BUFFER ADDRESS «, t00=0x0073, t01=0x0008}
0xb3ba…b3ce               Head {h00=0x0010, h01=0x0050, text=»CIO:40 EQU *«, t00=0x0073, t01=0x0036}
0xb3ce…b3f4               Head {h00=0x0022, h01=0x0050, text=» SRC A1,4 1ST WER IN POSITION «, t00=0x0073, t01=0x004a}
0xb3f4…b400               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0073, t01=0x0070}
0xb400…b40a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x007c}
0xb40a…b41e               Head {h00=0x0010, h01=0x0050, text=»CIO:50 EQU *«, t00=0x0073, t01=0x0086}
0xb41e…b432               Head {h00=0x0010, h01=0x0050, text=» WER A1,WER1«, t00=0x0073, t01=0x009a}
0xb432…b448               Head {h00=0x0012, h01=0x0050, text=» WER A2,WER1+1«, t00=0x0073, t01=0x00ae}
0xb448…b452               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00c4}
0xb452…b472               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0073, t01=0x00ce}
0xb472…b47c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00ee}
0xb47c…b486               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00f8}
0xb486…b498               Head {h00=0x000e, h01=0x0050, text=»CIO EQU * «, t00=0x0073, t01=0x0102}
0xb498…b4b8               Head {h00=0x001c, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE A4 «, t00=0x0073, t01=0x0114}
0xb4b8…b4ce               Head {h00=0x0012, h01=0x0050, text=» LD A2,PFPOST «, t00=0x0073, t01=0x0134}
0xb4ce…b4fa               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CIOAB PWF POST PROCESSING ON«, t00=0x0073, t01=0x014a}
0xb4fa…b528               Head {h00=0x002a, h01=0x0050, text=» CF A15,INXDWT GET INDEXED DWT ADDRESS«, t00=0x0073, t01=0x0176}
0xb528…b550               Head {h00=0x0024, h01=0x0050, text=» EX DWTCIO,A4 EXECUTE CIO-START «, t00=0x0074, t01=0x0014}
0xb550…b57a               Head {h00=0x0026, h01=0x0050, text=» ABL(3) END:30 CU ADDRESS UNKNOWN «, t00=0x0074, t01=0x003c}
0xb57a…b58e               Head {h00=0x0010, h01=0x0050, text=»CIOAB EQU * «, t00=0x0074, t01=0x0066}
0xb58e…b5b4               Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTA5,A6            A5 «, t00=0x0074, t01=0x007a}
0xb5b4…b5e0               Head {h00=0x0028, h01=0x0050, text=» ST A7,DWTA2,A6 SAVE SECTOR COUNTER «, t00=0x0074, t01=0x00a0}
0xb5e0…b5ea               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00cc}
0xb5ea…b614               Head {h00=0x0026, h01=0x0050, text=»T:DISP ABL TDISP GO TO DISPATCHER «, t00=0x0074, t01=0x00d6}
0xb614…b61e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0100}
0xb61e…b63e               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0074, t01=0x010a}
0xb63e…b648               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x012a}
0xb648…b652               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0134}
0xb652…b670               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0074, t01=0x013e}
0xb670…b68e               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0074, t01=0x015c}
0xb68e…b6ac               Head {h00=0x001a, h01=0x0050, text=»*  RECOVERY ROUTINE  *«, t00=0x0074, t01=0x017a}
0xb6ac…b6ca               Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0075, t01=0x0008}
0xb6ca…b6e8               Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0075, t01=0x0026}
0xb6e8…b6f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0044}
0xb6f2…b6fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x004e}
0xb6fc…b70e               Head {h00=0x000e, h01=0x0050, text=»DUON EQU *«, t00=0x0075, t01=0x0058}
0xb70e…b718               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x006a}
0xb718…b72e               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0075, t01=0x0074}
0xb72e…b758               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0075, t01=0x008a}
0xb758…b764               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x00b4}
0xb764…b76e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x00c0}
0xb76e…b784               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0075, t01=0x00ca}
0xb784…b7aa               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0075, t01=0x00e0}
0xb7aa…b7b6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0075, t01=0x0106}
0xb7b6…b7c0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0112}
0xb7c0…b7d8               Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWDU01 «, t00=0x0075, t01=0x011c}
0xb7d8…b7fe               Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x0075, t01=0x0134}
0xb7fe…b810               Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0075, t01=0x015a}
0xb810…b82e               Head {h00=0x001a, h01=0x0050, text=» CM DWTST,A6 UNIT BUSY«, t00=0x0075, t01=0x016c}
0xb82e…b856               Head {h00=0x0024, h01=0x0050, text=» CM DWTSAV,A6 INDICATE RECOVERY «, t00=0x0075, t01=0x018a}
0xb856…b880               Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG INITIALIZATION FLAG «, t00=0x0076, t01=0x0022}
0xb880…b8a4               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUON05 NOT POWER UP «, t00=0x0076, t01=0x004c}
0xb8a4…b8ae               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0070}
0xb8ae…b8c4               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0076, t01=0x007a}
0xb8c4…b8ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0090}
0xb8ce…b8d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x009a}
0xb8d8…b8f6               Head {h00=0x001a, h01=0x0050, text=» CM DWTOR,A6 1ST UNIT «, t00=0x0076, t01=0x00a4}
0xb8f6…b91c               Head {h00=0x0022, h01=0x0050, text=» CF A5,SEEKZ TEST IF OPERABLE «, t00=0x0076, t01=0x00c2}
0xb91c…b92e               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0076, t01=0x00e8}
0xb92e…b952               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUON26 NOT OPERABLE «, t00=0x0076, t01=0x00fa}
0xb952…b968               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0076, t01=0x011e}
0xb968…b97a               Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0076, t01=0x0134}
0xb97a…b99c               Head {h00=0x001e, h01=0x0050, text=» SC A1,DWTOR,A6 NEXT UNIT «, t00=0x0076, t01=0x0146}
0xb99c…b9b0               Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEKZ«, t00=0x0076, t01=0x0168}
0xb9b0…b9c2               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0076, t01=0x017c}
0xb9c2…b9e6               Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUON26 NOT OPERABLE «, t00=0x0076, t01=0x018e}
0xb9e6…b9f2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0077, t01=0x0022}
0xb9f2…b9fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x002e}
0xb9fc…ba14               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0077, t01=0x0038}
0xba14…ba1e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0050}
0xba1e…ba28               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x005a}
0xba28…ba3c               Head {h00=0x0010, h01=0x0050, text=»DUON05 EQU *«, t00=0x0077, t01=0x0064}
0xba3c…ba50               Head {h00=0x0010, h01=0x0050, text=» CM DWTOR,A6«, t00=0x0077, t01=0x0078}
0xba50…ba76               Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x0077, t01=0x008c}
0xba76…ba88               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0077, t01=0x00b2}
0xba88…baa6               Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUON07 NO ERROR«, t00=0x0077, t01=0x00c4}
0xbaa6…bace               Head {h00=0x0024, h01=0x0050, text=» CM DWTOR,A6 PREPARE FOR VOLCLR «, t00=0x0077, t01=0x00e2}
0xbace…bae0               Head {h00=0x000e, h01=0x0050, text=» LDK A1,12«, t00=0x0077, t01=0x010a}
0xbae0…baf6               Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLCLR«, t00=0x0077, t01=0x011c}
0xbaf6…bb0a               Head {h00=0x0010, h01=0x0050, text=»DUON07 EQU *«, t00=0x0077, t01=0x0132}
0xbb0a…bb20               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0077, t01=0x0146}
0xbb20…bb42               Head {h00=0x001e, h01=0x0050, text=» LDK A1,2 OTHER DISC UNIT «, t00=0x0077, t01=0x015c}
0xbb42…bb5a               Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0077, t01=0x017e}
0xbb5a…bb70               Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x0078, t01=0x0008}
0xbb70…bb82               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0078, t01=0x001e}
0xbb82…bba0               Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUON08 NO ERROR«, t00=0x0078, t01=0x0030}
0xbba0…bbc2               Head {h00=0x001e, h01=0x0050, text=» LDK A1,2 OTHER DISC UNIT «, t00=0x0078, t01=0x004e}
0xbbc2…bbda               Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0078, t01=0x0070}
0xbbda…bbec               Head {h00=0x000e, h01=0x0050, text=» LDK A1,12«, t00=0x0078, t01=0x0088}
0xbbec…bc02               Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLCLR«, t00=0x0078, t01=0x009a}
0xbc02…bc16               Head {h00=0x0010, h01=0x0050, text=»DUON08 EQU *«, t00=0x0078, t01=0x00b0}
0xbc16…bc22               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0078, t01=0x00c4}
0xbc22…bc52               Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x0078, t01=0x00d0}
0xbc52…bc66               Head {h00=0x0010, h01=0x0050, text=» LDKL A1,-1 «, t00=0x0078, t01=0x0100}
0xbc66…bc8c               Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTSAV,A6 RECOVERY DONE«, t00=0x0078, t01=0x0114}
0xbc8c…bc96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x013a}
0xbc96…bcac               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0078, t01=0x0144}
0xbcac…bcb6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x015a}
0xbcb6…bcc0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0164}
0xbcc0…bce8               Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0078, t01=0x016e}
0xbce8…bd0c               Head {h00=0x0020, h01=0x0050, text=» RF(Z) END:IO NO REQUEST ON?«, t00=0x0079, t01=0x0008}
0xbd0c…bd16               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x002c}
0xbd16…bd3e               Head {h00=0x0024, h01=0x0050, text=»DUON10 LD A7,DWTORD,A6 GET ORDER«, t00=0x0079, t01=0x0036}
0xbd3e…bd6e               Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0079, t01=0x005e}
0xbd6e…bd82               Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0079, t01=0x008e}
0xbd82…bd8c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00a2}
0xbd8c…bda2               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0079, t01=0x00ac}
0xbda2…bdd2               Head {h00=0x002c, h01=0x0050, text=» CF A5,REWORD RESTORE WORD IF NECESSARY «, t00=0x0079, t01=0x00c2}
0xbdd2…bdde               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0079, t01=0x00f2}
0xbdde…bde8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00fe}
0xbde8…be14               Head {h00=0x0028, h01=0x0050, text=» CM ECBEL,A8 RESET EFFECTIVE LENGTH «, t00=0x0079, t01=0x0108}
0xbe14…be36               Head {h00=0x001e, h01=0x0050, text=» ABL DUA:00 REPEAT REQUEST«, t00=0x0079, t01=0x0134}
0xbe36…be40               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0156}
0xbe40…be58               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0079, t01=0x0160}
0xbe58…be62               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0178}
0xbe62…be7e               Head {h00=0x0018, h01=0x0050, text=»*    READY INTERRUPT«, t00=0x0079, t01=0x0182}
0xbe7e…be88               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x000e}
0xbe88…bea2               Head {h00=0x0016, h01=0x0050, text=»DUREDY LD A1,TIMER«, t00=0x007a, t01=0x0018}
0xbea2…bec8               Head {h00=0x0022, h01=0x0050, text=» RF(Z) DUON50 NO TIMER ACTIVE «, t00=0x007a, t01=0x0032}
0xbec8…bed2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0058}
0xbed2…bee8               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x007a, t01=0x0062}
0xbee8…bf06               Head {h00=0x001a, h01=0x0050, text=» CM* TIMER KILL TIMER «, t00=0x007a, t01=0x0078}
0xbf06…bf18               Head {h00=0x000e, h01=0x0050, text=» RF DUON40«, t00=0x007a, t01=0x0096}
0xbf18…bf24               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007a, t01=0x00a8}
0xbf24…bf2e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00b4}
0xbf2e…bf44               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x007a, t01=0x00be}
0xbf44…bf64               Head {h00=0x001c, h01=0x0050, text=» RB T:DISP TIMER ACTIVE «, t00=0x007a, t01=0x00d4}
0xbf64…bf70               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007a, t01=0x00f4}
0xbf70…bf7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0100}
0xbf7a…bf92               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x007a, t01=0x010a}
0xbf92…bf9c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0122}
0xbf9c…bfa6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x012c}
0xbfa6…bfba               Head {h00=0x0010, h01=0x0050, text=»DUON26 EQU *«, t00=0x007a, t01=0x0136}
0xbfba…bfe6               Head {h00=0x0028, h01=0x0050, text=» LDKL A4,TIMER TIMER POINTER ADDRESS«, t00=0x007a, t01=0x014a}
0xbfe6…bffa               Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x007a, t01=0x0176}
0xbffa…c020               Head {h00=0x0022, h01=0x0050, text=» RF(Z) DUON30 NO TIMER ACTIVE «, t00=0x007a, t01=0x018a}
0xc020…c036               Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x007b, t01=0x0020}
0xc036…c056               Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 RESTART TIMER«, t00=0x007b, t01=0x0036}
0xc056…c068               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x007b, t01=0x0056}
0xc068…c072               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0068}
0xc072…c07c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0072}
0xc07c…c0a4               Head {h00=0x0024, h01=0x0050, text=»DUON30 CF A15,SETIMP START TIMER«, t00=0x007b, t01=0x007c}
0xc0a4…c0d4               Head {h00=0x002c, h01=0x0050, text=» DATA DUON40,TIME TIME OUT ADDRESS, TIME«, t00=0x007b, t01=0x00a4}
0xc0d4…c0e6               Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x007b, t01=0x00d4}
0xc0e6…c0f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00e6}
0xc0f0…c104               Head {h00=0x0010, h01=0x0050, text=»*   TIME OUT«, t00=0x007b, t01=0x00f0}
0xc104…c10e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0104}
0xc10e…c12c               Head {h00=0x001a, h01=0x0050, text=»DUON40 LDKL A6,DWDU01 «, t00=0x007b, t01=0x010e}
0xc12c…c13e               Head {h00=0x000e, h01=0x0050, text=» CM TIMER «, t00=0x007b, t01=0x012c}
0xc13e…c152               Head {h00=0x0010, h01=0x0050, text=»DUON50 EQU *«, t00=0x007b, t01=0x013e}
0xc152…c174               Head {h00=0x001e, h01=0x0050, text=» CM DWTST,A6 SET UNIT BUSY«, t00=0x007b, t01=0x0152}
0xc174…c19c               Head {h00=0x0024, h01=0x0050, text=» CM DWTSAV,A6 INDICATE RECOVERY «, t00=0x007b, t01=0x0174}
0xc19c…c1c2               Head {h00=0x0022, h01=0x0050, text=» LDK A5,DWTSB3 GET STACK BASE «, t00=0x007c, t01=0x000c}
0xc1c2…c1d4               Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x007c, t01=0x0032}
0xc1d4…c1e6               Head {h00=0x000e, h01=0x0050, text=» RB DUON05«, t00=0x007c, t01=0x0044}
0xc1e6…c1f0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0056}
0xc1f0…c210               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x007c, t01=0x0060}
0xc210…c21a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0080}
0xc21a…c224               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x008a}
0xc224…c244               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x007c, t01=0x0094}
0xc244…c264               Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x007c, t01=0x00b4}
0xc264…c284               Head {h00=0x001c, h01=0x0050, text=»*  INTERRUPT HANDLER  * «, t00=0x007c, t01=0x00d4}
0xc284…c2a4               Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x007c, t01=0x00f4}
0xc2a4…c2c4               Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x007c, t01=0x0114}
0xc2c4…c2ce               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x0134}
0xc2ce…c2d8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007c, t01=0x013e}
0xc2d8…c2ea               Head {h00=0x000e, h01=0x0050, text=»IHDU EQU *«, t00=0x007c, t01=0x0148}
0xc2ea…c2fe               Head {h00=0x0010, h01=0x0050, text=»IHDU1 EQU * «, t00=0x007c, t01=0x015a}
0xc2fe…c312               Head {h00=0x0010, h01=0x0050, text=»IHDU2 EQU * «, t00=0x007c, t01=0x016e}
0xc312…c33a               Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x007c, t01=0x0182}
0xc33a…c344               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x001a}
0xc344…c35a               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x007d, t01=0x0024}
0xc35a…c384               Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x007d, t01=0x003a}
0xc384…c390               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x0064}
0xc390…c39a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0070}
0xc39a…c3b0               Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x007d, t01=0x007a}
0xc3b0…c3d6               Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x007d, t01=0x0090}
0xc3d6…c3e2               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x007d, t01=0x00b6}
0xc3e2…c3ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00c2}
0xc3ec…c414               Head {h00=0x0024, h01=0x0050, text=» LDKL A6,DWDU01 DISC UNIT NO. 1 «, t00=0x007d, t01=0x00cc}
0xc414…c41e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00f4}
0xc41e…c436               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x007d, t01=0x00fe}
0xc436…c440               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0116}
0xc440…c44a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0120}
0xc44a…c470               Head {h00=0x0022, h01=0x0050, text=»IHDU10 SST A1,CUADR GET STATUS«, t00=0x007d, t01=0x012a}
0xc470…c49e               Head {h00=0x002a, h01=0x0050, text=»IHDU20 ANKL A1,/460F MASK RETURN CODE «, t00=0x007d, t01=0x0150}
0xc49e…c4b0               Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x007d, t01=0x017e}
0xc4b0…c4d6               Head {h00=0x0022, h01=0x0050, text=» RB(N) DUREDY READY INTERRUPT «, t00=0x007d, t01=0x0190}
0xc4d6…c4e8               Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x007e, t01=0x0026}
0xc4e8…c4fa               Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x007e, t01=0x0038}
0xc4fa…c51a               Head {h00=0x001c, h01=0x0050, text=» ANKL A2,/200 SEEK ERROR«, t00=0x007e, t01=0x004a}
0xc51a…c530               Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHDU30 «, t00=0x007e, t01=0x006a}
0xc530…c55a               Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/440F MOVE SEEK ERROR BIT«, t00=0x007e, t01=0x0080}
0xc55a…c56e               Head {h00=0x0010, h01=0x0050, text=» ORK A1,/02 «, t00=0x007e, t01=0x00aa}
0xc56e…c582               Head {h00=0x0010, h01=0x0050, text=»IHDU30 EQU *«, t00=0x007e, t01=0x00be}
0xc582…c5a6               Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x007e, t01=0x00d2}
0xc5a6…c5be               Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x007e, t01=0x00f6}
0xc5be…c5d2               Head {h00=0x0010, h01=0x0050, text=» RF(NN) GET «, t00=0x007e, t01=0x010e}
0xc5d2…c5e4               Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x007e, t01=0x0122}
0xc5e4…c5f6               Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x007e, t01=0x0134}
0xc5f6…c624               Head {h00=0x002a, h01=0x0050, text=» RF(NZ) END:IO DISC UNIT NOT OPERABLE «, t00=0x007e, t01=0x0146}
0xc624…c62e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0174}
0xc62e…c65c               Head {h00=0x002a, h01=0x0050, text=»GET LD A5,DWTA5,A6 RELOAD REGISTERS A5«, t00=0x007e, t01=0x017e}
0xc65c…c688               Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTA4,A6                  A4 «, t00=0x007f, t01=0x001c}
0xc688…c6b2               Head {h00=0x0026, h01=0x0050, text=» LD A7,DWTA2,A6 GET SECTOR COUNTER«, t00=0x007f, t01=0x0048}
0xc6b2…c6c2               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x007f, t01=0x0072}
0xc6c2…c6cc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0082}
0xc6cc…c6ec               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x007f, t01=0x008c}
0xc6ec…c6f6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00ac}
0xc6f6…c700               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x00b6}
0xc700…c71c               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x007f, t01=0x00c0}
0xc71c…c738               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x007f, t01=0x00dc}
0xc738…c754               Head {h00=0x0018, h01=0x0050, text=»*  PERFORM ENDIO  * «, t00=0x007f, t01=0x00f8}
0xc754…c770               Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x007f, t01=0x0114}
0xc770…c78c               Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x007f, t01=0x0130}
0xc78c…c796               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x014c}
0xc796…c7a0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0156}
0xc7a0…c7c8               Head {h00=0x0024, h01=0x0050, text=»END:30 EQU * CU ADDRESS UNKNOWN «, t00=0x007f, t01=0x0160}
0xc7c8…c7e6               Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x007f, t01=0x0188}
0xc7e6…c814               Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTST,A6 INDICATE RECOVERY DONE«, t00=0x0080, t01=0x0016}
0xc814…c826               Head {h00=0x000e, h01=0x0050, text=» RF END:IO«, t00=0x0080, t01=0x0044}
0xc826…c83a               Head {h00=0x0010, h01=0x0050, text=»END:10 EQU *«, t00=0x0080, t01=0x0056}
0xc83a…c844               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0080, t01=0x006a}
0xc844…c856               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0080, t01=0x0074}
0xc856…c888               Head {h00=0x002e, h01=0x0050, text=» LD* A7,DWTSB3-2,A6 GET 1ST RETURN ADDRESS«, t00=0x0080, t01=0x0086}
0xc888…c89a               Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0080, t01=0x00b8}
0xc89a…c8c0               Head {h00=0x0022, h01=0x0050, text=» RF(N) END:20 READ AFTER WRITE«, t00=0x0080, t01=0x00ca}
0xc8c0…c8d8               Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTORD,A6«, t00=0x0080, t01=0x00f0}
0xc8d8…c8f6               Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF GET ORDER «, t00=0x0080, t01=0x0108}
0xc8f6…c90a               Head {h00=0x0010, h01=0x0050, text=» SUK A7,/15 «, t00=0x0080, t01=0x0126}
0xc90a…c936               Head {h00=0x0028, h01=0x0050, text=» RF(NZ) END:20 NOT READ AFTER WRITE «, t00=0x0080, t01=0x013a}
0xc936…c95e               Head {h00=0x0024, h01=0x0050, text=» CM ECBEL,A8 RESET SECTORS DONE «, t00=0x0080, t01=0x0166}
0xc95e…c96a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0080, t01=0x018e}
0xc96a…c974               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x000a}
0xc974…c988               Head {h00=0x0010, h01=0x0050, text=»END:20 EQU *«, t00=0x0081, t01=0x0014}
0xc988…c99e               Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FF00«, t00=0x0081, t01=0x0028}
0xc99e…c9b6               Head {h00=0x0014, h01=0x0050, text=» ANS A2,ECBEL,A8«, t00=0x0081, t01=0x003e}
0xc9b6…c9e2               Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTRTY,A6 GET RETRY INDICATOR«, t00=0x0081, t01=0x0056}
0xc9e2…ca08               Head {h00=0x0022, h01=0x0050, text=» RF(Z) END:IO NO RETRIES DONE «, t00=0x0081, t01=0x0082}
0xca08…ca36               Head {h00=0x002a, h01=0x0050, text=» ORKL A1,/100 SET BIT 7 IN RETURN CODE«, t00=0x0081, t01=0x00a8}
0xca36…ca4c               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0081, t01=0x00d6}
0xca4c…ca56               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00ec}
0xca56…ca60               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x00f6}
0xca60…ca74               Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0081, t01=0x0100}
0xca74…ca98               Head {h00=0x0020, h01=0x0050, text=» CF A15,TENDIO PERFORM ENDIO«, t00=0x0081, t01=0x0114}
0xca98…cabc               Head {h00=0x0020, h01=0x0050, text=»  ABL TDISP GO TO DISPATCHER«, t00=0x0081, t01=0x0138}
0xcabc…cac6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x015c}
0xcac6…cade               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0081, t01=0x0166}
0xcade…cae8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x017e}
0xcae8…caf2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0188}
0xcaf2…cb06 (130, 0, 398) Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0082, t01=0x0004}
0xcb06…cb2a               Head {h00=0x0020, h01=0x0050, text=»  CF A5,SEEKZ SEEK SECTOR 0 «, t00=0x0082, t01=0x0018}
0xcb2a…cb3c               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0082, t01=0x003c}
0xcb3c…cb76               Head {h00=0x0036, h01=0x0050, text=» RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE«, t00=0x0082, t01=0x004e}
0xcb76…cb8e               Head {h00=0x0014, h01=0x0050, text=» CMR A6 SECTOR 0«, t00=0x0082, t01=0x0088}
0xcb8e…cba4               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0082, t01=0x00a0}
0xcba4…cbba               Head {h00=0x0012, h01=0x0050, text=» CF A5,INXUNI «, t00=0x0082, t01=0x00b6}
0xcbba…cbda               Head {h00=0x001c, h01=0x0050, text=» CM DWTCYL,A2 CYLINDER 0«, t00=0x0082, t01=0x00cc}
0xcbda…cbe6               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0082, t01=0x00ec}
0xcbe6…cbfc               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0082, t01=0x00f8}
0xcbfc…cc12               Head {h00=0x0012, h01=0x0050, text=» CM DWTCYL,A6 «, t00=0x0082, t01=0x010e}
0xcc12…cc1e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0082, t01=0x0124}
0xcc1e…cc38               Head {h00=0x0016, h01=0x0050, text=» LDK A3,0 SECTOR 0«, t00=0x0082, t01=0x0130}
0xcc38…cc42               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0082, t01=0x014a}
0xcc42…cc58               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=1 «, t00=0x0082, t01=0x0154}
0xcc58…cc84               Head {h00=0x0028, h01=0x0050, text=» IM DWTFBU,A6 READ TO DRIVER BUFFER «, t00=0x0082, t01=0x016a}
0xcc84…cc98               Head {h00=0x0010, h01=0x0050, text=» CF A5,READ «, t00=0x0083, t01=0x0008}
0xcc98…ccaa               Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0083, t01=0x001c}
0xccaa…ccde               Head {h00=0x0030, h01=0x0050, text=» CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR«, t00=0x0083, t01=0x002e}
0xccde…ccea               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x0062}
0xccea…ccf4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x006e}
0xccf4…cd0a               Head {h00=0x0012, h01=0x0050, text=» IFT VERSA3=0 «, t00=0x0083, t01=0x0078}
0xcd0a…cd32               Head {h00=0x0024, h01=0x0050, text=» LDKL A1,/8019 READ SECTOR ZERO «, t00=0x0083, t01=0x008e}
0xcd32…cd5a               Head {h00=0x0024, h01=0x0050, text=» LDKL A2,BUFFER TO DRIVER BUFFER«, t00=0x0083, t01=0x00b6}
0xcd5a…cd70               Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:50 «, t00=0x0083, t01=0x00de}
0xcd70…cd8a               Head {h00=0x0016, h01=0x0050, text=» ANK A1,3 ERROR ? «, t00=0x0083, t01=0x00f4}
0xcd8a…cd96               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0083, t01=0x010e}
0xcd96…cda0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0083, t01=0x011a}
0xcda0…cdd4               Head {h00=0x0030, h01=0x0050, text=» RF(NZ) VO:NA8 THROUGHPUT ERROR,NOT OPERABLE«, t00=0x0083, t01=0x0124}
0xcdd4…cdec               Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x0083, t01=0x0158}
0xcdec…ce0a               Head {h00=0x001a, h01=0x0050, text=» LDK A3,/F0 FILE CODE «, t00=0x0083, t01=0x0170}
0xce0a…ce22               Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTSAV,A6«, t00=0x0083, t01=0x018e}
0xce22…ce38               Head {h00=0x0012, h01=0x0050, text=» RF(Z) VO:NA6 «, t00=0x0084, t01=0x0016}
0xce38…ce64               Head {h00=0x0028, h01=0x0050, text=» LDKL A3,/80F0 INDICATE TEST STATUS «, t00=0x0084, t01=0x002c}
0xce64…ce78               Head {h00=0x0010, h01=0x0050, text=»VO:NA6 EQU *«, t00=0x0084, t01=0x0058}
0xce78…ceae               Head {h00=0x0032, h01=0x0050, text=» CF A15,VOLGET VOLUMR NAME TO DWT INDICATE NVL«, t00=0x0084, t01=0x006c}
0xceae…cec6               Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0084, t01=0x00a2}
0xcec6…ced0               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00ba}
0xced0…ceda               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0084, t01=0x00c4}
0xceda…ceee               Head {h00=0x0010, h01=0x0050, text=»DUNA40 EQU *«, t00=0x0084, t01=0x00ce}
0xceee…cf00               Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0084, t01=0x00e2}
0xcf00…cf3a               Head {h00=0x0036, h01=0x0050, text=» LDK A7,1 TO INDICATE NOT TRANSFER PARAMETER ORDER«, t00=0x0084, t01=0x00f4}
0xcf3a…cf66               Head {h00=0x0028, h01=0x0050, text=» LD A2,BUFFER+32 CHECK IF TOSS DISC «, t00=0x0084, t01=0x012e}
0xcf66…cf7a               Head {h00=0x0010, h01=0x0050, text=» CWK A2,'TO'«, t00=0x0084, t01=0x015a}
0xcf7a…cf98               Head {h00=0x001a, h01=0x0050, text=» RF(NE) DUNA70 NO TOSS«, t00=0x0084, t01=0x016e}
0xcf98…cfd0               Head {h00=0x0034, h01=0x0050, text=» LD A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER «, t00=0x0084, t01=0x018c}
0xcfd0…cfe6               Head {h00=0x0012, h01=0x0050, text=» CWK A2,/2031 «, t00=0x0085, t01=0x0034}
0xcfe6…d00e               Head {h00=0x0024, h01=0x0050, text=» RF(NE) DUNA70 REL LESS THAN 10 «, t00=0x0085, t01=0x004a}
0xd00e…d04c               Head {h00=0x003a, h01=0x0050, text=» LD A2,BUFFER+48 GET FORMAT AND DEVICE TYPE PARAMETER «, t00=0x0085, t01=0x0072}
0xd04c…d084               Head {h00=0x0034, h01=0x0050, text=»TRANPA EQU * LABEL FOR TRANSFER PARAMETER ORDER «, t00=0x0085, t01=0x00b0}
0xd084…d0b2               Head {h00=0x002a, h01=0x0050, text=» CF A15,INXDWT GET INDEXED DWT ADDRESS«, t00=0x0085, t01=0x00e8}
0xd0b2…d0dc               Head {h00=0x0026, h01=0x0050, text=» ECR A3,A2 SEPARATE THE PARAMETERS«, t00=0x0085, t01=0x0116}
0xd0dc…d0ee               Head {h00=0x000e, h01=0x0050, text=» ANK A3,/3«, t00=0x0085, t01=0x0140}
0xd0ee…d100               Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0085, t01=0x0152}
0xd100…d12e               Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTFOR,A4 SAVE FORMAT PARAMETER«, t00=0x0085, t01=0x0164}
0xd12e…d15a (134, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDKL A1,6324 SECTORS ON VERSION A2 «, t00=0x0086, t01=0x0004}
0xd15a…d174               Head {h00=0x0016, h01=0x0050, text=» SUK A3,2 FORMAT ?«, t00=0x0086, t01=0x0030}
0xd174…d194               Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUNA60 VERSION A2«, t00=0x0086, t01=0x004a}
0xd194…d1b4               Head {h00=0x001c, h01=0x0050, text=» RF(N) DUNA50 VERSION A1«, t00=0x0086, t01=0x006a}
0xd1b4…d1d2               Head {h00=0x001a, h01=0x0050, text=» ADK A1,204 VERSION A3«, t00=0x0086, t01=0x008a}
0xd1d2…d1e6               Head {h00=0x0010, h01=0x0050, text=»DUNA50 EQU *«, t00=0x0086, t01=0x00a8}
0xd1e6…d200               Head {h00=0x0016, h01=0x0050, text=» ADKL A1,9588-6324«, t00=0x0086, t01=0x00bc}
0xd200…d214               Head {h00=0x0010, h01=0x0050, text=»DUNA60 EQU *«, t00=0x0086, t01=0x00d6}
0xd214…d226               Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0086, t01=0x00ea}
0xd226…d244               Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUNA70 PTS 6875«, t00=0x0086, t01=0x00fc}
0xd244…d274               Head {h00=0x002c, h01=0x0050, text=» ADR A1,A1 PTS 6876 2*MAXSEC ON PTS 6875«, t00=0x0086, t01=0x011a}
0xd274…d288               Head {h00=0x0010, h01=0x0050, text=»DUNA70 EQU *«, t00=0x0086, t01=0x014a}
0xd288…d2b6               Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTSMX,A4 MAX SECTOR NO IN DWT «, t00=0x0086, t01=0x015e}
0xd2b6…d2ee               Head {h00=0x0034, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE FOR TRANSFER PARAM. «, t00=0x0086, t01=0x018c}
0xd2ee…d31c               Head {h00=0x002a, h01=0x0050, text=» ADK A7,0 CHECK IF TRANSFER PARAMETER «, t00=0x0087, t01=0x0034}
0xd31c…d332               Head {h00=0x0012, h01=0x0050, text=» RB(Z) END:20 «, t00=0x0087, t01=0x0062}
0xd332…d33c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0078}
0xd33c…d352               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x0087, t01=0x0082}
0xd352…d35c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x0098}
0xd35c…d366               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0087, t01=0x00a2}
0xd366…d394               Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTA4,A6 RESTORE RETRY COUNTER «, t00=0x0087, t01=0x00ac}
0xd394…d3ac               Head {h00=0x0014, h01=0x0050, text=» LC A1,DWTOR,A6 «, t00=0x0087, t01=0x00da}
0xd3ac…d3be               Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0087, t01=0x00f2}
0xd3be…d3d6               Head {h00=0x0014, h01=0x0050, text=» SC A1,DWTOR,A6 «, t00=0x0087, t01=0x0104}
0xd3d6…d3e8               Head {h00=0x000e, h01=0x0050, text=» ANK A1,1 «, t00=0x0087, t01=0x011c}
0xd3e8…d3fe               Head {h00=0x0012, h01=0x0050, text=» RB(NZ) VO:NAM«, t00=0x0087, t01=0x012e}
0xd3fe…d410               Head {h00=0x000e, h01=0x0050, text=» RF VO:NA9«, t00=0x0087, t01=0x0144}
0xd410…d424               Head {h00=0x0010, h01=0x0050, text=»VO:NA8 EQU *«, t00=0x0087, t01=0x0156}
0xd424…d440               Head {h00=0x0018, h01=0x0050, text=» LDK A1,1 ERROR CODE«, t00=0x0087, t01=0x016a}
0xd440…d454               Head {h00=0x0010, h01=0x0050, text=»VO:NA9 EQU *«, t00=0x0087, t01=0x0186}
0xd454…d464               Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0088, t01=0x000a}
0xd464…d46e               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x001a}
0xd46e…d488               Head {h00=0x0016, h01=0x0050, text=»*   TIMER POINTER «, t00=0x0088, t01=0x0024}
0xd488…d492               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x003e}
0xd492…d4b4               Head {h00=0x001e, h01=0x0050, text=»TIMER DATA 0 TIMER POINTER«, t00=0x0088, t01=0x0048}
0xd4b4…d4be               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x006a}
0xd4be…d4de               Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0088, t01=0x0074}
0xd4de…d4e8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x0094}
0xd4e8…d4f2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x009e}
0xd4f2…d520               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0088, t01=0x00a8}
0xd520…d54e               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0088, t01=0x00d6}
0xd54e…d57c               Head {h00=0x002a, h01=0x0050, text=»*   DEVICE WORK TABLE               * «, t00=0x0088, t01=0x0104}
0xd57c…d5aa               Head {h00=0x002a, h01=0x0050, text=»*                                   * «, t00=0x0088, t01=0x0132}
0xd5aa…d5d8               Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0088, t01=0x0160}
0xd5d8…d5e2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0088, t01=0x018e}
0xd5e2…d5ec               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0008}
0xd5ec…d600               Head {h00=0x0010, h01=0x0050, text=»DWDU01 EQU *«, t00=0x0089, t01=0x0012}
0xd600…d626               Head {h00=0x0022, h01=0x0050, text=» DATA 0 PHYSICAL SECTOR NUMBER«, t00=0x0089, t01=0x0026}
0xd626…d644               Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x0089, t01=0x004c}
0xd644…d660               Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0089, t01=0x006a}
0xd660…d676               Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0089, t01=0x0086}
0xd676…d69c               Head {h00=0x0022, h01=0x0050, text=» DATA DUADR ACTIVATION ADDRESS«, t00=0x0089, t01=0x009c}
0xd69c…d6b8               Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x0089, t01=0x00c2}
0xd6b8…d6e0               Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0089, t01=0x00de}
0xd6e0…d6fe               Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0089, t01=0x0106}
0xd6fe…d708               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0089, t01=0x0124}
0xd708…d71e               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0089, t01=0x012e}
0xd71e…d748               Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0089, t01=0x0144}
0xd748…d76c               Head {h00=0x0020, h01=0x0050, text=» DATA ECBDU1 MMU ECB ADDRESS«, t00=0x0089, t01=0x016e}
0xd76c…d778 (138, 0, 400) Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x008a, t01=0x0004}
0xd778…d782               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0010}
0xd782…d79e               Head {h00=0x0018, h01=0x0050, text=»DWTFSW EQU *-DWDU01 «, t00=0x008a, t01=0x001a}
0xd79e…d7ae               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008a, t01=0x0036}
0xd7ae…d7da               Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x008a, t01=0x0046}
0xd7da…d7f6               Head {h00=0x0018, h01=0x0050, text=»DWTBSE EQU *-DWDU01 «, t00=0x008a, t01=0x0072}
0xd7f6…d806               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008a, t01=0x008e}
0xd806…d836               Head {h00=0x002c, h01=0x0050, text=»DWTUBU EQU *-DWDU01 USER BUFFER POINTER «, t00=0x008a, t01=0x009e}
0xd836…d846               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008a, t01=0x00ce}
0xd846…d862               Head {h00=0x0018, h01=0x0050, text=»DWTSWD EQU *-DWDU01 «, t00=0x008a, t01=0x00de}
0xd862…d872               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008a, t01=0x00fa}
0xd872…d87c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x010a}
0xd87c…d892               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x008a, t01=0x0114}
0xd892…d89c               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x012a}
0xd89c…d8a6               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008a, t01=0x0134}
0xd8a6…d8c2               Head {h00=0x0018, h01=0x0050, text=»DWTRTY EQU *-DWDU01 «, t00=0x008a, t01=0x013e}
0xd8c2…d8d2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008a, t01=0x015a}
0xd8d2…d8e2               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008a, t01=0x016a}
0xd8e2…d8fc               Head {h00=0x0016, h01=0x0050, text=» DATA /C000 FIXED «, t00=0x008a, t01=0x017a}
0xd8fc…d934 (139, 0, 398) Head {h00=0x0034, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED INDICATOR CARTR. 1«, t00=0x008b, t01=0x0004}
0xd934…d94e               Head {h00=0x0016, h01=0x0050, text=» DATA /C000 FIXED «, t00=0x008b, t01=0x003c}
0xd94e…d982               Head {h00=0x0030, h01=0x0050, text=» DATA /8000 NEW VOLUME LOADED IND. CARTR. 2 «, t00=0x008b, t01=0x0056}
0xd982…d9b8               Head {h00=0x0032, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST FIXED «, t00=0x008b, t01=0x008a}
0xd9b8…d9f2               Head {h00=0x0036, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST CARTRIDGE «, t00=0x008b, t01=0x00c0}
0xd9f2…d9fc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008b, t01=0x00fa}
0xd9fc…da12               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008b, t01=0x0104}
0xda12…da48               Head {h00=0x0032, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND FIXED «, t00=0x008b, t01=0x011a}
0xda48…da82               Head {h00=0x0036, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME 2ND CARTRIDGE «, t00=0x008b, t01=0x0150}
0xda82…da8e               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008b, t01=0x018a}
0xda8e…da98               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0008}
0xda98…daae               Head {h00=0x0012, h01=0x0050, text=» EJECT  DRDU01«, t00=0x008c, t01=0x0012}
0xdaae…dab8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0028}
0xdab8…dac2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0032}
0xdac2…dade               Head {h00=0x0018, h01=0x0050, text=»DWTSAV EQU *-DWDU01 «, t00=0x008c, t01=0x003c}
0xdade…daee               Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x008c, t01=0x0058}
0xdaee…db2a               Head {h00=0x0038, h01=0x0050, text=»DWTFBU EQU *-DWDU01 FLAG INDICATING IO TO DRIVER BUF«, t00=0x008c, t01=0x0068}
0xdb2a…db3a               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008c, t01=0x00a4}
0xdb3a…db60               Head {h00=0x0022, h01=0x0050, text=»DWTCIO EQU *-DWDU01 CIO-START «, t00=0x008c, t01=0x00b4}
0xdb60…db76               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAF1«, t00=0x008c, t01=0x00da}
0xdb76…db8c               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAC1«, t00=0x008c, t01=0x00f0}
0xdb8c…db96               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x0106}
0xdb96…dbac               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008c, t01=0x0110}
0xdbac…dbc2               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAF2«, t00=0x008c, t01=0x0126}
0xdbc2…dbd8               Head {h00=0x0012, h01=0x0050, text=» CIO A3,1,DAC2«, t00=0x008c, t01=0x013c}
0xdbd8…dbe4               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008c, t01=0x0152}
0xdbe4…dbee               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008c, t01=0x015e}
0xdbee…dc0a               Head {h00=0x0018, h01=0x0050, text=»DWTCYL EQU *-DWDU01 «, t00=0x008c, t01=0x0168}
0xdc0a…dc2e               Head {h00=0x0020, h01=0x0050, text=» DATA /FFFF CYLINDER NUMBER «, t00=0x008c, t01=0x0184}
0xdc2e…dc38               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0018}
0xdc38…dc4e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008d, t01=0x0022}
0xdc4e…dc6a               Head {h00=0x0018, h01=0x0050, text=» DATA /FFFF 2ND UNIT«, t00=0x008d, t01=0x0038}
0xdc6a…dc76               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x0054}
0xdc76…dc80               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0060}
0xdc80…dc9c               Head {h00=0x0018, h01=0x0050, text=»DWTSMX EQU *-DWDU01 «, t00=0x008d, t01=0x006a}
0xdc9c…dcc6               Head {h00=0x0026, h01=0x0050, text=» DATA 1 MAX SECTORS ON FIXED DISC «, t00=0x008d, t01=0x0086}
0xdcc6…dcee               Head {h00=0x0024, h01=0x0050, text=» DATA 1 MAX SECTORS ON CARTRIDGE«, t00=0x008d, t01=0x00b0}
0xdcee…dcf8               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x00d8}
0xdcf8…dd0e               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008d, t01=0x00e2}
0xdd0e…dd26               Head {h00=0x0014, h01=0x0050, text=» DATA 1 2ND UNIT«, t00=0x008d, t01=0x00f8}
0xdd26…dd3e               Head {h00=0x0014, h01=0x0050, text=» DATA 1 2ND UNIT«, t00=0x008d, t01=0x0110}
0xdd3e…dd4a               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008d, t01=0x0128}
0xdd4a…dd54               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008d, t01=0x0134}
0xdd54…dd70               Head {h00=0x0018, h01=0x0050, text=»DWTFOR EQU *-DWDU01 «, t00=0x008d, t01=0x013e}
0xdd70…dd94               Head {h00=0x0020, h01=0x0050, text=» DATA 0 DISC FORMAT ON FIXED«, t00=0x008d, t01=0x015a}
0xdd94…ddba               Head {h00=0x0022, h01=0x0050, text=» DATA 0 DISC FORMAT CARTRIDGE «, t00=0x008d, t01=0x017e}
0xddba…ddc4               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0014}
0xddc4…ddda               Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x008e, t01=0x001e}
0xddda…ddea               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008e, t01=0x0034}
0xddea…ddfa               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008e, t01=0x0044}
0xddfa…de06               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x0054}
0xde06…de10               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x0060}
0xde10…de28               Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x008e, t01=0x006a}
0xde28…de40               Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x008e, t01=0x0082}
0xde40…de52               Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x008e, t01=0x009a}
0xde52…de70               Head {h00=0x001a, h01=0x0050, text=»DWTSB3 EQU *-DWDU01-2 «, t00=0x008e, t01=0x00ac}
0xde70…de7a               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x00ca}
0xde7a…de8c               Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x008e, t01=0x00d4}
0xde8c…dea8               Head {h00=0x0018, h01=0x0050, text=»DWTSEP EQU *-DWDU01 «, t00=0x008e, t01=0x00e6}
0xdea8…deb8               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008e, t01=0x0102}
0xdeb8…ded4               Head {h00=0x0018, h01=0x0050, text=»DWTSEI EQU *-DWDU01 «, t00=0x008e, t01=0x0112}
0xded4…dee4               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008e, t01=0x012e}
0xdee4…def0               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008e, t01=0x013e}
0xdef0…defa               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008e, t01=0x014a}
0xdefa…df10               Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x008e, t01=0x0154}
0xdf10…df24               Head {h00=0x0010, h01=0x0050, text=»ECBDU1 EQU *«, t00=0x008e, t01=0x016a}
0xdf24…df40               Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x008e, t01=0x017e}
0xdf40…df5c               Head {h00=0x0018, h01=0x0050, text=»DWTBA1 EQU *-DWDU01 «, t00=0x008f, t01=0x000a}
0xdf5c…df6c               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x0026}
0xdf6c…df88               Head {h00=0x0018, h01=0x0050, text=»DWTBA2 EQU *-DWDU01 «, t00=0x008f, t01=0x0036}
0xdf88…df98               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x0052}
0xdf98…dfbc               Head {h00=0x0020, h01=0x0050, text=»DWTPAG EQU *-DWDU01 MMU PAGE«, t00=0x008f, t01=0x0062}
0xdfbc…dfcc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x0086}
0xdfcc…dfdc               Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x008f, t01=0x0096}
0xdfdc…dfe8               Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x008f, t01=0x00a6}
0xdfe8…dff2               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00b2}
0xdff2…dffc               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00bc}
0xdffc…e006               Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x008f, t01=0x00c6}
0xe006…e012               Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x008f, t01=0x00d0}
0xe012…e016               Head {h00=0x4004, h01=0x0000}
0xe016…e01a               00 8f 00 dc                                                                                                                                                                                                                                       ┆    ┆
0xe01a…e022 (144, 1, 8)   20 04 00 00 00 90 00 04                                                                                                                                                                                                                           ┆        ┆
0xe022…e072 (145, 0, 400) 20 57 49 54 48 20 38 20 52 45 47 49 53 54 45 52 53 20 4f 4e 20 41 31 35 20 53 54 41 43 4b 2e 20 00 00 01 76 00 3e 00 50 2a 20 20 20 54 48 45 20 44 49 53 50 41 54 43 48 45 52 20 43 48 45 43 4b 53 20 49 46 20 54 48 45 52 45 20 49 53 20 41 20   ┆ WITH 8 REGISTERS ON A15 STACK.    v > P*   THE DISPATCHER CHECKS IF THERE IS A ┆
0xe072…e0c2               54 41 53 4b 20 49 4e 20 44 49 53 50 41 54 43 48 45 52 00 01 00 28 00 3c 00 50 2a 20 20 20 51 55 45 55 45 20 57 49 54 48 20 48 49 47 48 45 52 20 50 52 49 4f 52 49 54 59 20 54 48 41 4e 20 49 4e 54 45 52 52 55 50 54 45 44 20 50 52 4f 47 52 41   ┆TASK IN DISPATCHER   ( < P*   QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRA┆
0xe0c2…e112               4d 2e 00 01 00 6a 00 3a 00 50 2a 20 20 20 2d 20 49 46 20 53 4f 2c 20 54 48 45 20 52 55 4e 4e 49 4e 47 20 54 41 53 4b 20 49 53 20 51 55 45 55 45 44 20 41 4e 44 20 54 48 45 20 48 49 47 48 45 52 00 01 00 aa 00 24 00 50 2a 20 20 20 20 20 50 52   ┆M.   j : P*   - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER     $ P*     PR┆
0xe112…e162               49 4f 52 49 54 59 20 54 41 53 4b 20 49 53 20 53 54 41 52 54 45 44 2e 20 00 01 00 e8 00 3a 00 50 2a 20 20 20 2d 20 49 46 20 4e 4f 54 2c 20 52 45 54 55 52 4e 20 49 53 20 47 49 56 45 4e 20 54 4f 20 49 4e 54 45 52 52 55 50 54 45 44 20 50 52 4f   ┆IORITY TASK IS STARTED.      : P*   - IF NOT, RETURN IS GIVEN TO INTERRUPTED PRO┆
0xe162…e1b2               47 52 41 4d 2e 20 00 01 01 10 00 06 00 50 2a 20 00 01 01 4e 00 32 00 50 2a 20 20 20 45 4e 54 52 59 20 27 44 49 53 45 4e 44 27 20 43 41 4c 4c 53 20 54 45 4e 44 49 4f 20 42 45 46 4f 52 45 20 54 44 49 53 50 2e 20 00 01 01 58 00 06 00 50 2a 20   ┆GRAM.        P*    N 2 P*   ENTRY 'DISEND' CALLS TENDIO BEFORE TDISP.    X   P* ┆
0xe1b2…e202 (146, 0, 400) 00 01 01 8e 00 36 00 50 2a 20 20 20 45 4e 54 52 59 20 27 44 49 53 49 4f 45 27 20 53 45 54 53 20 42 49 54 20 30 20 49 4e 20 41 31 20 42 45 46 4f 52 45 20 44 49 53 45 4e 44 2e 00 02 00 08 00 06 00 50 2a 20 00 02 00 42 00 38 00 50 2a 20 20 20   ┆     6 P*   ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND.       P*    B 8 P*   ┆
0xe202…e252               45 4e 54 52 59 20 27 4d 45 58 49 54 27 20 45 58 49 54 53 20 41 20 4d 4f 4e 49 54 4f 52 20 54 41 53 4b 20 42 45 46 4f 52 45 20 54 44 49 53 50 2e 00 02 00 4c 00 06 00 50 2a 20 00 02 00 88 00 48 00 50 2a 20 20 20 45 4e 54 52 59 20 27 51 4d 45   ┆ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP.   L   P*      H P*   ENTRY 'QME┆
0xe252…e2a2               58 49 54 27 20 43 41 4c 4c 53 20 51 54 4a 4f 42 20 42 45 46 4f 52 45 20 45 58 49 54 20 49 53 20 4d 41 44 45 20 4f 4e 20 4d 4f 4e 49 54 4f 52 20 54 41 53 4b 2e 20 00 02 00 92 00 06 00 50 2a 20 00 02 00 de 00 30 00 50 2a 20 20 20 45 4e 54 52   ┆XIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK.        P*      0 P*   ENTR┆
0xe2a2…e2f2               59 20 27 54 45 58 49 54 27 20 45 58 49 54 53 20 41 20 54 41 53 4b 20 42 45 46 4f 52 45 20 54 44 49 53 50 2e 00 02 00 e8 00 06 00 50 2a 20 00 02 01 1c 00 40 00 50 2a 20 20 20 45 4e 54 52 59 20 27 54 50 41 55 53 45 27 20 53 45 54 53 20 41 20   ┆Y 'TEXIT' EXITS A TASK BEFORE TDISP.       P*      @ P*   ENTRY 'TPAUSE' SETS A ┆
0xe2f2…e342               54 41 53 4b 20 49 4e 20 50 41 55 53 45 20 53 54 41 54 45 20 42 45 46 4f 52 45 20 54 44 49 53 50 2e 20 00 02 01 26 00 06 00 50 2a 20 00 02 01 6a 00 36 00 50 2a 20 20 20 45 4e 54 52 59 20 27 41 43 54 44 49 53 27 20 41 43 54 49 56 41 54 45 53   ┆TASK IN PAUSE STATE BEFORE TDISP.    &   P*    j 6 P*   ENTRY 'ACTDIS' ACTIVATES┆
0xe342…e392 (147, 0, 400) 20 41 20 54 41 53 4b 20 42 45 46 4f 52 45 20 54 44 49 53 50 2e 20 00 02 01 74 00 06 00 50 2a 20 00 03 00 1e 00 44 00 50 2a 20 20 20 45 4e 54 52 59 20 27 52 45 54 55 52 38 27 20 4c 4f 41 44 53 20 38 20 52 45 47 49 53 54 45 52 53 20 46 52 4f   ┆ A TASK BEFORE TDISP.    t   P*      D P*   ENTRY 'RETUR8' LOADS 8 REGISTERS FRO┆
0xe392…e3e2               4d 20 41 31 35 20 53 54 41 43 4b 20 41 4e 44 20 52 45 54 55 52 4e 53 2e 00 03 00 28 00 06 00 50 2a 20 00 03 00 70 00 12 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 44 49 53 50 00 03 00 7a 00 06 00 50 2a 20 00 03 00 90 00 06 00 50 2a 20 00 03 00 9a   ┆M A15 STACK AND RETURNS.   (   P*    p   P EJECT   TDISP   z   P*        P*     ┆
0xe3e2…e432               00 10 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 00 a4 00 10 00 50 2a 20 45 4e 54 52 49 45 53 20 2a 20 00 03 00 b8 00 10 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 03 00 cc 00 06 00 50 2a 20 00 03 00 e0 00 06 00 50 2a 20 00 03 00 ea   ┆   P***********        P* ENTRIES *        P***********        P*        P*     ┆
0xe432…e482               00 22 00 50 5c 45 4e 54 52 59 5c 54 44 49 53 50 5c 44 49 53 50 41 54 43 48 45 52 20 45 4e 54 52 59 20 00 03 00 f4 00 1c 00 50 5c 45 4e 54 52 59 5c 54 50 41 55 53 45 5c 50 41 55 53 45 20 54 41 53 4b 00 03 01 1a 00 1a 00 50 5c 45 4e 54 52 59   ┆ " P ENTRY TDISP DISPATCHER ENTRY        P ENTRY TPAUSE PAUSE TASK       P ENTRY┆
0xe482…e4d2               5c 54 45 58 49 54 5c 45 58 49 54 20 54 41 53 4b 00 03 01 3a 00 22 00 50 5c 45 4e 54 52 59 5c 4d 45 58 49 54 5c 45 58 49 54 20 4d 4f 4e 49 54 4f 52 20 54 41 53 4b 00 03 01 58 00 32 00 50 5c 45 4e 54 52 59 5c 51 4d 45 58 49 54 5c 51 55 45 55   ┆ TEXIT EXIT TASK   : " P ENTRY MEXIT EXIT MONITOR TASK   X 2 P ENTRY QMEXIT QUEU┆
0xe4d2…e522 (148, 0, 398) 45 20 54 41 53 4b 20 41 4e 44 20 45 58 49 54 20 4d 4f 4e 49 54 4f 52 20 54 41 53 4b 00 03 01 7e 00 2c 00 50 5c 45 4e 54 52 59 5c 41 43 54 44 49 53 5c 41 43 54 49 56 41 54 45 20 54 41 53 4b 20 41 4e 44 20 44 49 53 50 41 54 43 48 00 04 00 24   ┆E TASK AND EXIT MONITOR TASK   ~ , P ENTRY ACTDIS ACTIVATE TASK AND DISPATCH   $┆
0xe522…e572               00 22 00 50 5c 45 4e 54 52 59 5c 44 49 53 49 4f 45 5c 49 2f 4f 20 45 52 52 4f 52 20 45 4e 54 52 59 20 00 04 00 54 00 26 00 50 5c 45 4e 54 52 59 5c 44 49 53 45 4e 44 5c 45 4e 44 20 49 2f 4f 20 41 4e 44 20 44 49 53 50 41 54 43 48 00 04 00 7a   ┆ " P ENTRY DISIOE I/O ERROR ENTRY    T & P ENTRY DISEND END I/O AND DISPATCH   z┆
0xe572…e5c2               00 36 00 50 5c 45 4e 54 52 59 5c 44 49 53 51 55 45 5c 50 4f 49 4e 54 45 52 20 54 4f 20 46 49 52 53 54 20 54 41 53 4b 20 49 4e 20 44 49 53 50 2e 20 51 55 45 55 45 00 04 00 a4 00 2c 00 50 5c 45 4e 54 52 59 5c 50 52 55 4e 5c 54 54 41 42 20 41   ┆ 6 P ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE     , P ENTRY PRUN TTAB A┆
0xe5c2…e612               44 44 52 45 53 53 20 4f 46 20 52 55 4e 4e 49 4e 47 20 54 41 53 4b 00 04 00 de 00 2e 00 50 5c 45 4e 54 52 59 5c 52 45 54 55 52 38 5c 4c 4f 41 44 20 38 20 52 45 47 49 53 54 45 52 53 20 41 4e 44 20 52 45 54 55 52 4e 20 00 04 01 0e 00 12 00 50   ┆DDRESS OF RUNNING TASK     . P ENTRY RETUR8 LOAD 8 REGISTERS AND RETURN        P┆
0xe612…e660               5c 45 4a 45 43 54 5c 5c 5c 54 44 49 53 50 00 04 01 40 00 06 00 50 2a 20 00 04 01 56 00 06 00 50 2a 20 00 04 01 60 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 01 6a 00 12 00 50 2a 20 45 58 54 45 52 4e 41 4c 53 20 2a 20         ┆ EJECT   TDISP   @   P*    V   P*    `   P*************    j   P* EXTERNALS * ┆

Reduced view