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

⟦be4aa0fc3⟧ 

    Length: 26922 (0x692a)
    Notes: pts_type(SC)
    Names: »DRDU01.SC«

Derivation

└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
    └─⟦this⟧ »TOSSWORK/DRDU01.SC«

PTS(SC)

	IDENT DRDU01 	REL 9.2 79-11-16  870105040920 

* 
* 
**********************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRDU01 = DRIVER FOR ONE/TWO DISC UNITS X/1215 AND/OR X/1216 
* 
* 
* 
* 
* 
* 
* 
**************************************************
* 
* 
*   THIS DISC DRIVER HANDLES UP TO TWO DISC 
*   DRIVES X/1215,X/1216 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 
* 
	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 
	ENTRY	DWDU02	DWT ADDRESS DISC UNIT NO. 2 
	EJECT			DRDU01 
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	TDISP	DISPATCHER 
	EXTRN	TENDIO	END I/O 
	EXTRN	SAVE8	SAVE REGS. A1-A8 ON A15 STACK
	EXTRN	DISIOE	REQUEST ERROR 
	EXTRN	INIFLG	INITIALIZATION FLAG 
	EXTRN	INTSAV	SAVE AREA LAST INTERRUPT
	EXTRN	SETIMP	TIMER 
	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 
	EJECT			DRDU01 
* 
* 
**************************
*                        *
*  CONDITIONAL ASSEMBLY  *
*                        *
**************************
* 
* 
*   READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15
*   BY SETTING X:A = 0
* 
X:A	EQU	0 
RAW	EQU	X:A 
* 
* 
*   THIS DRIVER CAN HANDLE TWO DISC UNITS 
*   IF X:B := 2 
* 
X:B	EQU	1 
NUNITS	EQU	X:B
* 
* 
*   DRIVE 1 MAY BE A X/1216 INSTEAD OF A X/1215 
*   BY SETTING X:C = 1
* 
X:C	EQU	0 
TYPE1	EQU	X:C 
* 
* 
*   DRIVE 2 MAY BE A X/1216 INSTEAD OF A X/1215 
*   BY SETTING X:D = 1
* 
X:D	EQU	0 
TYPE2	EQU	X:D 
* 
	EJECT			DRDU01 
* 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	0
* 
* 
*   IF DISC ACCESSES ARE MADE EXCLUSIVELY BY DATA 
*   MANAGEMENT, AND MMUPAG=1, THEN X:E := 1, ELSE 0.
* 
X:E	EQU	0 
ONLYDM	EQU	X:E
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	1
* 
* 
*	A PROGRAM VERSION USING TOSS DISC PAGING
*	IS OBTAINED BY SETTING DSKPAG EQU 1.
* 
DSKPAG	EQU	0
* 
	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
* 
MAXCY5	EQU	203	MAX CYLINDER NO X/1215 
MAXCY6	EQU	407	MAX CYLINDER NO X/1216 
LENGTH	EQU	410	SECTOR LENGTH, CHARACTERS
QRETRY	EQU	4	NO OF RETRIES
TIME	EQU	1000	1 MIN 40 SEC
* 
	EJECT			DRDU01			DRDU01
* 
* 
	DATA	0	INDICATES NO MMU BUFFER 
	DATA	4	DISC DEVICE INDEX 
DUADR	DATA	DUAD	ACTIVATION ADDRESS
	DATA	0	ABORT ROUTINE ADDRESS 
* 
BUF	RES	5	SECTOR BUFFER - 200 WORDS 
	IFT	RAW=1
	RES	200	READ AFTER WRITE BUFFER
	XIF
* 
	EJECT			DRDU01 
* 
*   RETRY IS USED TO DETECT RETRIES 
* 
RETRY	DATA	0	MAX NO OF TRIES
* 
* 
*   TABLE FOR CONVERSION FROM LOGICAL TO PHYSICAL 
*   SECTOR NUMBER 
* 
* 
SECTAB	DATA	/0003,/0609,/0C0F,/0205,/080B,/0E01,/0407,/0A0D 
	DATA	/1013,/1619,/1C1F,/1215,/181B,/1E11,/1417,/1A1D 
* 
	EJECT			DRDU01			DRDU01
* 
* 
***************** 
*               * 
*  ACTIVATION   * 
*               * 
***************** 
* 
* 
DUAD	EQU	*	ACTIVATION ENTRY 
	IFT	NUNITS=2 
	LDKL	A1,/7FFF
	LDR*	A2,A6	GET OTHER DISC UNIT DWT 
	ANS	A1,DWTST,A2	SET OTHER DISC UNIT BUSY 
	XIF
* 
DUA:00	EQU	*
	LDK	A4,QRETRY	GET MAX NO OF RETRIES TO MAKE
	ADK	A7,0	SET CR
	RF(Z)	TEST	TEST STATUS ORDER 
* 
	IFT	MMUPAG=1 
	IFF	1-ONLYDM+DSKPAG=0
	LDR*	A1,A8	GET FIRST WORD OF ECB 
	ANKL	A1,/3000	GET BITS 0-1 IN 18-BIT ADDRESS 
	RF(Z)	DUA:05	BUFFER IN SYSTEM AREA?
* 
	EJECT			DRDU01 
* 
* 
	LD	A2,2,A8	GET BUFFER ADDRESS
	LDR	A3,A2
	ANKL	A2,/F000
	SRL	A2,2 
	SLL	A1,2 
	ORR	A1,A2
	ST	A1,DWT:PA,A6	PAGE NUMBER (PSEUDO MMU TABLE) 
	ANKL	A3,/FFF 
	LDR	A1,A3
	ORK	A1,1	INDICATE ADDRESS NOT ZERO 
* 
DUA:05	ST	A1,DWT:LA,A6	16 BIT LOGICAL BUFFER ADDRESS
	XIF
* 
	EJECT			DRDU01 
* 
* 
	LD	A2,DWTOR,A6	GET INDEX AND ORDER 
	ST	A2,DWTORD,A6	SAVE IT FOR RECOVERY 
	SRL	A2,7	GET INDEX (DOUBLED) 
	ADR	A2,A6
	LD	A1,DWTBSY,A2
	ABL(NZ)	END:15 
	LDR	A1,A7	CHECK ORDER
	SUK	A1,1	
	RF(Z)	DUA:30	BASIC READ
	SUK	A1,4 
	RF(Z)	DUA:30	BASIC WRITE 
	SUK	A1,12	 
	RF(Z)	DUA:30	PHYSICAL READ 
	SUK	A1,4	
	RF(Z)	DUA:30	PHYSICAL WRITE
* 
DUERR	ABL	DISIOE	REQUEST ERROR
* 
	EJECT			DRDU01			DRDU01
* 
* 
********************* 
*                   * 
*   TEST STATUS     * 
*                   * 
********************* 
* 
* 
TEST	EQU	*
	CF	A5,VO:NAM	READ VOLUME NAME
	RF	DENDIO	PERFORM ENDIO
* 
	EJECT			DRDU01 
* 
* 
DUA:30	LD	A1,4,A8	REQUESTED LENGTH
	SUKL	A1,LENGTH 
	RB(NZ)	DUERR	REQUESTED LENGTH # 410
	LD	A2,10,A8	RELATIVE SECTOR NUMBER 
	LDR	A3,A2
	ANK	A3,/1F	LOGICAL SECTOR NUMBER 
	LC	A3,SECTAB,A3	PHYSICAL SECTOR NUMBER 
	SC	A3,DWTSEC,A6	SAVE IT
	SRL	A2,5	CYLINDER NUMBER 
	CW	A2,DWTCMX,A6
	RB(G)	DUERR	CYLINDER NO GREATER THAN MAX.
	CW	A2,DWTCYL,A6	COMPARE WITH CURRENT CYLINDER NUMBER 
	RF(E)	DU:030	DISC HEAD ALREADY POSITIONED
	ST	A2,DWTCYL,A6	SAVE CYLINDER NUMBER 
* 
* 
************************
*                      *
*   SEEK SECTOR N      *
*                      *
************************
* 
* 
DU:010	CF	A5,SEEK	SEEK CYLINDER N 
	SLC	A1,5 
	RF(N)	DU:030	OK. SEEK COMPLETED
* 
	EJECT			DRDU01 
* 
* 
************************
*                      *
*   SEEK CYLINDER 0    *
*                      *
************************
* 
* 
DU:015	CF	A5,SEEKZ	SEEK CYLINDER 0
	SLC	A1,6 
	RF(N)	DU:020	SECTOR 0 NOT FOUND
	SUK	A4,1 
	RB(NZ)	DU:010	TRY AGAIN
* 
DU:020	LDKL	A3,/FFFF	ALL RETRIES DONE 
	ST	A3,DWTCYL,A6	SET ILLEGAL CYLINDER NUMBER
	LDKL	A1,/200	SEEK ERROR RETURN CODE
	RF	DENDIO	PERFORM ENDIO
* 
	EJECT			DRDU01			DRDU01
* 
* 
**************************
*                        *
*  GO AND EXECUTE ORDER  *
*                        *
**************************
* 
* 
DU:030	LDR	A1,A7	ORDER
	SUK	A1,5 
	RF(Z)	WRIT:N	BASIC WRITE 
	SUK	A1,12
	RF(NP)	READ:N	READ 
* 
* 
************************
*                      *
*   READ SECTOR N-1    *
*                      *
************************
* 
* 
P:WRIT	CF	A5,WER:R5	EXECUTE WER INSTRUCTIONS
	CF	A5,READ5	READ FIVE WORDS
	ANK	A1,2 
	RF(Z)	P:WR10	OK. CHECK CYLINDER NUMBER 
	SUK	A4,1	DECREMENT RETRY COUNTER 
	RB(NZ)	P:WRIT	TRY AGAIN? 
	RF	DENDIO	ALL RETRIES DONE, GIVE UP
* 
P:WR10	LD	A2,DWTCYL,A6	CYLINDER NUMBER
	CW	A2,BUF+1	COMPARE WITH CURRENT CYLINDER NUMBER 
	RB(NE)	DU:015	ERROR.SEEK CYLINDER 0
* 
	EJECT			DRDU01 
* 
* 
********************* 
*                   * 
*   WRITE SECTOR N  * 
*                   * 
********************* 
* 
* 
WRIT:N	CF	A5,WER:W	EXECUTE WER INSTRUCTIONS 
	CF	A5,WRITE	WRITE SECTOR N 
	ANK	A1,/1F 
	RF(Z)	WRIT20	OK. NO RETURN CODE
	SUK	A4,1	DECREMENT RETRY COUNTER 
	RB(NZ)	WRIT:N	TRY AGAIN? 
	RF	DENDIO	ALL RETRIES DONE, GIVE UP
* 
WRIT20	EQU	*
	IFT	RAW=1
	SUK	A7,5 
	RF(E)	DENDIO	JUMP IF BASIC WRITE 
	LDKL	A3,BUF	DRIVER BUFFER ADDRESS
* 
WRIT30	CF	A5,WER:R	EXECUTE WER INSTRUCTIONS 
	CF	A5,READ	READ SECTOR N 
	ANK	A1,/F
	RF(Z)	DENDIO	JUMP IF OK
	SUK	A4,1	DECREMENT RETRY COUNTER 
	RB(NZ)	WRIT30	TRY AGAIN? 
	XIF
* 
	RF	DENDIO	ALL RETRIES DONE, GIVE UP
* 
	EJECT			DRDU01			DRDU01
* 
* 
**********************
*                    *
*   READ SECTOR N    *
*                    *
**********************
* 
* 
READ:N	CF	A5,WER:R	EXECUTE WER INSTRUCTIONS 
	CF	A5,READ	READ SECTOR N 
	ANK	A1,/F
	RF(Z)	READ10	OK. NO RETURN CODE
	SUK	A4,1	DECREMENT RETRY COUNTER 
	RB(NZ)	READ:N	TRY AGAIN? 
* 
DENDIO	EQU	*	COMMON BRANCH LABEL
	ABL 	END:IO	ALL RETRIES DONE 
* 
	EJECT			DRDU01 
* 
* 
*************************** 
*                         * 
*  CHECK CYLINDER NUMBER  * 
*                         * 
*************************** 
* 
* 
READ10	EQU	*
	IFT	MMUPAG=0 
	LD*	A2,2,A8	GET CURRENT CYLINDER NUMBER
	XIF
* 
	IFT	MMUPAG=1 
	IFF	1-ONLYDM+DSKPAG=0
	LD	A2,DWT:LA,A6	GET FLAG/LOGICAL BUFFER ADDRESS
	RF(Z)	READ30	JUMP IF BUFFER IN SYSTEM AREA 
	TS	-30,A15	SAVE MMU REGISTERS ON STACK 
	TL	DWT:PA,A6	LOAD PSEUDO MMU TABLE 
	ELR	A2,A2	GET CURRENT CYLINDER NUMBER
	TL	-30,A15	RESTORE MMU REGISTERS FROM STACK
	RF	READ40
* 
READ30	EQU	*
	LD*	A2,2,A8	GET CURRENT CYLINDER NUMBER
	XIF
* 
	EJECT			DRDU01 
* 
* 
	IFT	MMUPAG=1 
	IFT	ONLYDM-DSKPAG=1
	LD*	A2,2,A8	GET CURRENT CYLINDER NUMBER
	XIF
* 
READ40	EQU	*
	CW	A2,DWTCYL,A6	COMPARE WITH REQUESTED CYLINDER NUMBER 
	RB(E)	DENDIO	OK, PERFORM ENDIO 
	RB 	DU:015	ERROR. SEEK CYLINDER 0
* 
	EJECT			DRDU01			DRDU01
* 
* 
******************************
*                            *
*  EXECUTE WER INSTRUCTIONS  *
*                            *
******************************
* 
* 
WER:R5	LDKL	A2,/8005	READ 5 WORDS 
	LDKL	A3,BUF	DRIVER BUFFER ADDRESS
	RF	EX:WER
* 
WER:R	LDKL	A2,/80CD	READ 1 SECTOR 
	CWK	A3,BUF 
	RF(E)	EX:WER 
	RF	WER:WB
* 
WER:W	LDKL	A2,/C0CD	WRITE 1 SECTOR
* 
	EJECT			DRDU01 
* 
* 
WER:WB	LD	A3,2,A8	USER BUFFER ADDRESS 
* 
	IFT	MMUPAG=1 
	IFF	1-ONLYDM+DSKPAG=0
	LDR*	A1,A8	GET FIRST WORD OF ECB 
	ANKL	A1,/3000	GET BITS 16-17 IN BUFFER ADDRESS 
	ORR	A2,A1
	XIF
* 
EX:WER	EQU	*
	EX	DWTWR1,A6	EXECUTE 1:ST WER
	EX	DWTWR2,A6	EXECUTE 2:ND WER
	RTN	A5 
* 
	EJECT			DRDU01			DRDU01
* 
* 
******************* 
*                 * 
*  SEEK CYLINDER  * 
*                 * 
******************* 
* 
* 
SEEK	LD	A2,DWTCYL,A6	CYLINDER NUMBER
	SLL	A2,3 
	ORK	A2,2 
	RF	CIO	EXECUTE CIO-START 
* 
SEEKZ	EQU	* 
	LDK	A2,3 
	RF	CIO	EXECUTE CIO-START 
* 
READ5	LC	A2,DWTSEC,A6	SECTOR NUMBER 
	ANK	A2,/1F 
	SUK	A2,3	SECTOR N-1
	ANK	A2,/1F 
	SLL	A2,2 
	RF	CIO	EXECUTE CIO-START 
* 
	EJECT			DRDU01			DRDU01
* 
* 
READ	LC	A2,DWTSEC,A6	SECTOR NUMBER
	ANK	A2,/1F 
	SLL	A2,2 
	RF	CIO	EXECUTE CIO-START 
* 
WRITE	LD	A2,DWTCYL,A6	CYLINDER NUMBER 
* 
	IFT	MMUPAG=0 
	ST*	A2,2,A8	PUT CYL. NR IN USER BUFFER 
	XIF
* 
	IFT	MMUPAG=1 
	IFF	1-ONLYDM+DSKPAG=0
	LD	A1,DWT:LA,A6	GET FLAG/LOGICAL BUFFER ADDRESS
	RF(Z)	WRITE3	JUMP IF BUFFER IN SYSTEM AREA 
	TS	-30,A15	SAVE MMU REGISTERS ON STACK 
	TL	DWT:PA,A6	LOAD PSEUDO MMU TABLE 
	ESR	A2,A1	PUT CYL. NR IN USER BUFFER 
	TL	-30,A15	RESTORE MMU REGISTERS FROM STACK
	RF	WRITE4
* 
WRITE3	EQU	*
	ST*	A2,2,A8	PUT CYL. NR IN USER BUFFER 
	XIF
* 
	EJECT			DRDU01 
* 
* 
	IFT	MMUPAG=1 
	IFT	ONLYDM-DSKPAG=1
	ST*	A2,2,A8	PUT CYLNMB. IN USER BUFFER 
	XIF
* 
WRITE4	EQU	*
	LC	A2,DWTSEC,A6	SECTOR NUMBER
	SLL	A2,2 
	ADK	A2,1 
* 
	EJECT			DRDU01			DRDU01
* 
* 
CIO	EQU	* 
 	LC	A1,DWTOR,A6	 
	ANK	A1,1	INDEX 
	ADR	A1,A1	DOUBLE INDEX 
	ADR	A1,A6
	EX	DWTCIO,A1	EXECUTE CIO-START 
	LDK	A1,1 
	ABL(3)	END:20	DEVICE ADDRESS UNKNOWN?
	ST	A4,DWTA4,A6	           A4 
	ST	A5,DWTA5,A6	           A5 
* 
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 
	LD	A1,INIFLG	INITIALIZATION FLAG 
	RF(Z)	DUON20	POWER UP
* 
DURED2	EQU	*
	LDKL	A1,/7FFF
	ANS	A1,DWTST,A6	SET DISC UNIT BUSY 
* 
	IFT	NUNITS=2 
	LDR*	A6,A6	GET OTHER DWT ADDRESS 
	ANS	A1,DWTST,A6	SET DWT BUSY 
	XIF
* 
	EJECT			DRDU01 
* 
* 
DUON05	EQU	*
 	LDKL	A5,DWTSB2	STACK BASE 
	ADR	A5,A6	STACK BASE 
	CF	A5,VO:NAM	GET VOLUME NAME 
* 
	IFT	NUNITS=2 
	LDR*	A6,A6	OTHER DISC UNIT DWT ADDRESS 
	LDKL	A5,DWTSB2 
	ADR	A5,A6	STACK BASE 
	CF	A5,VO:NAM	GET VOLUME NAME 
	LD	A8,DWTECB,A6	GET ECB ADDRESS
	RF(NZ)	DUON10	ANY REQUEST ON?
	LDR*	A6,A6	NO, CHECK NEXT DRIVE
	XIF
* 
	LD	A8,DWTECB,A6	GET ECB ADDRESS
	RF(Z)	DUON15	NO REQUEST ON?
* 
DUON10	LD	A7,DWTORD,A6	GET ORDER
	ST	A7,DWTOR,A6	RESTORE INDEX AND ORDER 
	ANK	A7,/3F 
	ABL	DUA:00	REPEAT REQUEST
* 
	EJECT			DRDU01 
* 
* 
DUON15	CF	A15,TENDIO
* 
	IFT	NUNITS=2 
	LDR*	A6,A6	GET OTHER DWT ADDRESS 
	CF	A15,TENDIO
	XIF
	RB	T:DISP	DISPATCH 
* 
*    READY INTERRUPT
* 
DUREDY	LD	A1,TIMER
	RB(Z)	DURED2	NO TIMER ACTIVE 
* 
	IFT	NUNITS=1 
	CM*	TIMER	KILL TIMER 
	RF	DUON40
	XIF
* 
	RB	T:DISP	TIMER ACTIVE 
* 
	EJECT			DRDU01 
* 
*  SET DISC BUSY AND START TIMER
* 
DUON20	LDKL	A1,/7FFF
	IFT	NUNITS=2 
	ANS	A1,DWTST,A6	SET UNIT BUSY
	LDR*	A6,A6	OTHER DWT ADDRESS 
	XIF
	ANS	A1,DWTST,A6	SET UNIT BUSY
	LDKL	A5,DWTSB2	GET STACK BASE
	ADR	A5,A6
	CF	A5,VO:NAM	READ VOLUME NAME
* 
	IFT	NUNITS=2 
	LDR	A4,A1	SAVE RETURN CODE 
	LDR*	A6,A6	GET OTHER DWT ADDRESS 
	LDKL	A5,DWTSB2	GET STACK BASE
	ADR	A5,A6
	CF	A5,VO:NAM	READ VOLUME NAME
	LDR	A3,A1	SAVE RETURN CODE 
	LD	A8,DWTECB,A6	GET ECB ADDRESS
	RF(Z)	DUON23	NO REQUEST ON THIS DISC?
	ADK	A1,0	CHECK RETURN CODE 
	RB(Z)	DUON10	REPEAT REQUEST? 
* 
DUON23	EQU	*
	LDR*	A6,A6	GET OTHER DWT ADDRESS 
	LDR	A1,A4	RESTORE RETURN CODE FROM OTHER DISC
	XIF
* 
	LD	A8,DWTECB,A6	GET ECB ADDRESS
	RF(Z)	DUON26	NO REQUEST ON THIS DISC?
	ADK	A1,0	CHECK RETURN CODE 
	RB(Z)	DUON10	REPEAT REQUEST? 
* 
	EJECT			DRDU01 
* 
* 
DUON26	EQU	*
	IFT	NUNITS=2 
	ADR	A1,A3	CHECK RETURN CODES 
	RB(Z)	DUON15	NO REQUESTS AND BOTH OPERABLE?
	XIF
* 
	IFT	NUNITS=1 
	ADK	A1,0	SET CR
	RB(Z)	DUON15	NO REQUEST AND OPERABLE?
	XIF
* 
	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 
	RB	DUON05
* 
	EJECT			DRDU01			DRDU01
* 
* 
*********************** 
*                     * 
*  INTERRUPT HANDLER  * 
*                     * 
*********************** 
* 
* 
IHDU2	EQU	* 
	IFT	NUNITS=2 
	ST	P,INTSAV	SAVE LAST INTERRUPT
	IFT	CPU852=1 
	CF	A15,SAVE8	SAVE A1-A8 ON STACK 
	XIF
* 
	IFT	NUNITS=2 
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
* 
	IFT	NUNITS=2 
	LDKL	A6,DWDU02	DISC UNIT NO. 2 
	RF	IHDU10
	XIF
* 
	EJECT			DRDU01 
* 
* 
IHDU	EQU	*
IHDU1	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
	IFT	NUNITS=2 
	LDR	A2,A1
	ANK	A2,/40 
	RF(Z)	IHDU20 
	LDKL	A6,DWDU02 
	XIF
* 
IHDU20	ANKL	A1,/460F	MASK RETURN CODE 
	SLL	A1,1 
	RB(N)	DUREDY	READY INTERRUPT 
	SRL	A1,1 
	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,DWTOR,A6 
	ANK	A7,/3F	ORDER 
	LD	A8,DWTECB,A6	ECB ADDRESS
	RTN	A5 
* 
	EJECT			DRDU01			DRDU01
* 
* 
******************* 
*                 * 
*  PERFORM ENDIO  * 
*                 * 
******************* 
* 
* 
END:IO	EQU	*
	ANKL	A1,/20F	MASK RETURN CODE
	RF(NZ)	END:10	ERROR
	LD	A2,4,A8	REQUESTED LENGTH =
	ST	A2,6,A8	EFFECTIVE LENGTH
* 
END:10	EQU	*
	LDK	A2,QRETRY	GET MAX NO OF RETRIES
	CW	A2,DWTA4,A6 
	RF(E)	END:15	NO RETRY
	ORKL	A1,/100	BIT 7 = RETRIES 
* 
END:15	EQU	*
	LC	A2,DWTOR,A6	ORDER 
	ANK	A2,1	INDEX 
	ADR	A2,A2
	ADR	A2,A6
	CM	DWTBSY,A2	RESET READY WORD
* 
	EJECT			DRDU01 
* 
* 
END:20	EQU	*
	IFT	NUNITS=2 
	LDR*	A6,A6	OTHER DISC UNIT DWT ADDRESS 
	CF	A15,TENDIO	PERFORM ENDIO
	LDR*	A6,A6	ACTIVE DISC UNIT DWT ADDRESS
	XIF
* 
	CF	A15,TENDIO	PERFORM ENDIO
 	ABL	TDISP	GO TO DISPATCHER
* 
	EJECT			DRDU01 
* 
* 
VO:NAM	EQU	*
	CM	DWTSAV,A6	INDICATE VOLUME NAME READING
	CM	DWTOR,A6	INDEX=0
* 
VO:NA5	EQU	*
 	CF	A5,SEEKZ	SEEK SECTOR 0 
	ANKL	A1,/203 
	RF(NZ)	VO:NA8	SEEK-,THROUGHPUT ERROR,NOT OPERABLE
	CF	A5,WER:R5	EXECUTE WER INSTRUCTIONS
	LDK	A2,0	CYLINDER NUMBER = 0 
	ST	A2,DWTCYL,A6
	CF	A5,CIO	READ VOLUME LABEL
	ANK	A1,3 
	RF(NZ)	VO:NA8	THROUGHPUT ERROR,NOT OPERABLE
	LDK	A2,DWTNAM
	ADR	A2,A6
	LD	A3,DWTOR,A6	
	RF(Z)	DUNA10	FIXED DISC
	ADK	A2,6	CARTRIDGE DISC
* 
	EJECT			DRDU01 
* 
* 
DUNA10	LDKL	A3,BUF+2	GET BUFFER ADDRESS 
	ST	A4,DWTA4,A6	SAVE RETRY COUNTER
	LDK	A4,6 
* 
DUNA20	LDR*	A7,A3	GET VOLUME NAME 
	CWR*	A7,A2	COMPARE WITH LAST VOLUME NAME 
	RF(E)	DUNA30	SAME DISC 
	LDK	A1,/80	NEW DISC LOADED 
* 
DUNA30	STR	A7,A2	SAVE DISC NAME 
	ADK	A2,2	INCREMENT POINTERS
	ADK	A3,2 
	SUK	A4,2 
	RB(NZ)	DUNA20	GET NEXT WORD
	ADK	A1,0	SET CR
	RF(Z)	DUNA40	VOLUME MATCH
	LD	A4,INIFLG	CHECK INITIALIZATION FLAG 
	RF(NZ)	DUNA40	NOT POWER UP?
	LC	A4,DWTOR,A6	INDEX 
	ADR	A4,A4
	ADR	A4,A6
	ST	A1,DWTBSY,A4	NEW VOLUME LOADED
* 
	EJECT			DRDU01 
* 
* 
DUNA40	EQU	*
	LD	A4,DWTA4,A6	RESTORE RETRY COUNTER 
	LD	A1,DWTOR,A6	ORDER 
	RF(NZ)	VO:NA6
	LDK	A1,1 
	SC	A1,DWTOR,A6	INDEX=1 
	RB	VO:NA5
* 
VO:NA6	LDK	A1,0	RESET RETURN CODE 
* 
VO:NA8	EQU	*
	LDKL	A2,-1 
	ST	A2,DWTSAV,A6
	RTN	A5 
* 
*   TIMER POINTER 
* 
TIMER	DATA	0	TIMER POINTER
* 
	EJECT			DRDU01			DRDU01
* 
* 
*   DEVICE WORK TABLE DISC UNIT NO. 2 
* 
* 
DWDU02	EQU	*
	IFT	NUNITS=2 
	DATA	DWDU01	POINTER TO OTHER DWT 
	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	ECBDU2	MMU ECB ADDRESS
	XIF
	IFT	NUNITS=2 
	DATA	/00FF	LEFT BYTE=SECTOR NUMBER 
	DATA	0,0,0	SAVE AREA FOR REGISTERS 
	DATA	0,0	STACK 
	DATA	0,0 
	DATA	0	DISC UNIT BUSY INDICATOR
	DATA	0 
			RIGHT BYTE = CYLINDER NUMBER 
	CIO	A2,1,DAF2	CIO-START FIXED DISC 
	CIO	A2,1,DAC2	CIO-START CARTRIDGE DISC 
* 
	EJECT			DRDU01 
* 
* 
	WER	A2,WER1
	WER	A3,WER1+1
	DATA	0,0,0	VOLUME NAME FIXED DISC
	DATA	0,0,0	VOLUME NAME CARTRIDGE DISC
	DATA	-1
	DATA	0 
	DATA	/FFFF	CYLINDER NO.
	IFT	TYPE2=0
	DATA	MAXCY5	MAX CYLINDER NO
	XIF
	IFT	NUNITS+TYPE2=3 
	DATA	MAXCY6	MAX CYLINDER NO
	XIF
* 
	IFT	NUNITS=2 
	IFT	MMUPAG=1 
	DATA	0	PAGE NUMBER (PSEUDO MMU TABLE)
	DATA	0	16 BIT LOGICAL BUFFER ADDRESS 
ECBDU2	EQU	*
	DATA	0,0,0,0,0,0 
	XIF
* 
	EJECT			DRDU01			DRDU01
* 
* 
*   DEVICE WORK TABLE DISC UNIT NO. 1 
* 
* 
DWDU01	EQU	*
	DATA	DWDU02	POINTER TO OTHER DWT 
	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
DWTSEC	EQU	*-DWDU01	
	DATA	/00FF	LEFT BYTE=SECTOR NUMBER 
	DATA	0,0,0	SAVE AREA FOR REGISTERS 
	DATA	0,0	STACK 
	DATA	0,0 
DWTBSY	EQU	*-DWDU01	
	DATA	0	UNIT BUSY INDICATOR 
	DATA	0	UNIT BUSY INDICATOR 
DWTCIO	EQU	*-DWDU01	CIO-START 
	CIO	A2,1,DAF1
	CIO	A2,1,DAC1
* 
	EJECT			DRDU01 
* 
* 
DWTWR1	EQU	*-DWDU01	1:ST WER INSTRUCTION
	WER	A2,WER1
DWTWR2	EQU	*-DWDU01	2:ND WER INSTRUCTION
	WER	A3,WER1+1
DWTNAM	EQU	*-DWDU01 
	DATA	0,0,0	VOLUME NAME FIXED DISC
	DATA	0,0,0	VOLUME NAME CARTRIDGE DISC
DWTSAV	EQU	*-DWDU01 
	DATA	-1
DWTORD	EQU	*-DWDU01 
	DATA	0 
DWTCYL	EQU	*-DWDU01 
	DATA	/FFFF	CYLINDER NUMBER 
	IFT	TYPE1=0
DWTCMX	EQU	*-DWDU01 
	DATA	MAXCY5	MAX CYLINDER X/1215
	XIF
	IFT	TYPE1=1
DWTCMX	EQU	*-DWDU01 
	DATA	MAXCY6	MAX CYLINDER NO X/1216 
	XIF
* 
	EJECT			DRDU01 
* 
* 
	IFT	MMUPAG=1 
DWT:PA	EQU	*-DWDU01 
	DATA	0	PAGE NUMBER (PSEUDO MMU TABLE)
DWT:LA	EQU	*-DWDU01 
	DATA	0	16 BIT LOGICAL BUFFER ADDRESS 
ECBDU1	EQU	*
	DATA	0,0,0,0,0,0 
	XIF
* 
* 
* 
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRDU01  REL 9.2 79-11-16  870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…0088              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0000, t01=0x0056}
0x0088…0092              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00ba              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0096}
0x00ba…00c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x00c4…010c              Head {h00=0x0044, h01=0x0050, text=»*   DRDU01 = DRIVER FOR ONE/TWO DISC UNITS X/1215 AND/OR X/1216 «, t00=0x0000, t01=0x00c8}
0x010c…0116              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…012a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x012a…0134              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012e}
0x0134…013e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0138}
0x013e…0148              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0152              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014c}
0x0152…018c              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0156}
0x018c…0196              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0190}
0x0196…01a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000a}
0x01a0…01d4              Head {h00=0x0030, h01=0x0050, text=»*   THIS DISC DRIVER HANDLES UP TO TWO DISC «, t00=0x0001, t01=0x0014}
0x01d4…020e              Head {h00=0x0036, h01=0x0050, text=»*   DRIVES X/1215,X/1216 CONNECTED TO CPU VIA IOP «, t00=0x0001, t01=0x0048}
0x020e…022e              Head {h00=0x001c, h01=0x0050, text=»*   ON MULTIPLEX CHANNEL«, t00=0x0001, t01=0x0082}
0x022e…0238              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a2}
0x0238…0242              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ac}
0x0242…0270              Head {h00=0x002a, h01=0x0050, text=»*   THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0001, t01=0x00b6}
0x0270…027a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e4}
0x027a…0298              Head {h00=0x001a, h01=0x0050, text=»*   /00    TEST STATUS«, t00=0x0001, t01=0x00ee}
0x0298…02b6              Head {h00=0x001a, h01=0x0050, text=»*   /01    BASIC READ «, t00=0x0001, t01=0x010c}
0x02b6…02d4              Head {h00=0x001a, h01=0x0050, text=»*   /05    BASIC WRITE«, t00=0x0001, t01=0x012a}
0x02d4…02f4              Head {h00=0x001c, h01=0x0050, text=»*   /11    PHYSICAL READ«, t00=0x0001, t01=0x0148}
0x02f4…0316              Head {h00=0x001e, h01=0x0050, text=»*   /15    PHYSICAL WRITE «, t00=0x0001, t01=0x0168}
0x0316…0320              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018a}
0x0320…0340 (2, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0002, t01=0x0004}
0x0340…034a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0024}
0x034a…0354              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002e}
0x0354…0368              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0038}
0x0368…037c              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x004c}
0x037c…0390              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0060}
0x0390…039a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0074}
0x039a…03a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007e}
0x03a4…03cc              Head {h00=0x0024, h01=0x0050, text=» ENTRY DUADR ACTIVATION ADDRESS «, t00=0x0002, t01=0x0088}
0x03cc…03f0              Head {h00=0x0020, h01=0x0050, text=» ENTRY DUON RECOVERY ROUTINE«, t00=0x0002, t01=0x00b0}
0x03f0…0426              Head {h00=0x0032, h01=0x0050, text=» ENTRY IHDU1 INTERRUPT HANDLER DISC UNIT NO. 1«, t00=0x0002, t01=0x00d4}
0x0426…045c              Head {h00=0x0032, h01=0x0050, text=» ENTRY IHDU INTERRUPT HANDLER DISC UNIT NO. 1 «, t00=0x0002, t01=0x010a}
0x045c…0492              Head {h00=0x0032, h01=0x0050, text=» ENTRY IHDU2 INTERRUPT HANDLER DISC UNIT NO. 2«, t00=0x0002, t01=0x0140}
0x0492…04c4              Head {h00=0x002e, h01=0x0050, text=» ENTRY DWDU01 DWT ADDRESS DISC UNIT NO. 1 «, t00=0x0002, t01=0x0176}
0x04c4…04f6              Head {h00=0x002e, h01=0x0050, text=» ENTRY DWDU02 DWT ADDRESS DISC UNIT NO. 2 «, t00=0x0003, t01=0x0018}
0x04f6…050e              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0003, t01=0x004a}
0x050e…0518              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0062}
0x0518…0522              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006c}
0x0522…0538              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0076}
0x0538…054e              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x008c}
0x054e…0564              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x00a2}
0x0564…056e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b8}
0x056e…0578              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c2}
0x0578…0598              Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x00cc}
0x0598…05b6              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0003, t01=0x00ec}
0x05b6…05e8              Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK«, t00=0x0003, t01=0x010a}
0x05e8…060c              Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0003, t01=0x013c}
0x060c…0636              Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0003, t01=0x0160}
0x0636…0664              Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0003, t01=0x018a}
0x0664…0680              Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0004, t01=0x0028}
0x0680…069c              Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0004, t01=0x0044}
0x069c…06be              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0004, t01=0x0060}
0x06be…06e6              Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0004, t01=0x0082}
0x06e6…0708              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0004, t01=0x00aa}
0x0708…072a              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0004, t01=0x00cc}
0x072a…074c              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0004, t01=0x00ee}
0x074c…0776              Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB1 STACK BASE 1 IN DWT «, t00=0x0004, t01=0x0110}
0x0776…07a0              Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0004, t01=0x013a}
0x07a0…07b8              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0004, t01=0x0164}
0x07b8…07c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017c}
0x07c2…07cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0186}
0x07cc…07ee              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0004, t01=0x0190}
0x07ee…0810              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0005, t01=0x0022}
0x0810…0832              Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  *«, t00=0x0005, t01=0x0044}
0x0832…0854              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0005, t01=0x0066}
0x0854…0876              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0005, t01=0x0088}
0x0876…0880              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00aa}
0x0880…088a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b4}
0x088a…08c4              Head {h00=0x0036, h01=0x0050, text=»*   READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15«, t00=0x0005, t01=0x00be}
0x08c4…08e2              Head {h00=0x001a, h01=0x0050, text=»*   BY SETTING X:A = 0«, t00=0x0005, t01=0x00f8}
0x08e2…08ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0116}
0x08ec…08fe              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0005, t01=0x0120}
0x08fe…0912              Head {h00=0x0010, h01=0x0050, text=»RAW EQU X:A «, t00=0x0005, t01=0x0132}
0x0912…091c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0146}
0x091c…0926              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0150}
0x0926…0958              Head {h00=0x002e, h01=0x0050, text=»*   THIS DRIVER CAN HANDLE TWO DISC UNITS «, t00=0x0005, t01=0x015a}
0x0958…0970              Head {h00=0x0014, h01=0x0050, text=»*   IF X:B := 2 «, t00=0x0005, t01=0x018c}
0x0970…097a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0014}
0x097a…098c              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0006, t01=0x001e}
0x098c…09a2              Head {h00=0x0012, h01=0x0050, text=»NUNITS EQU X:B«, t00=0x0006, t01=0x0030}
0x09a2…09ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0046}
0x09ac…09b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0050}
0x09b6…09ee              Head {h00=0x0034, h01=0x0050, text=»*   DRIVE 1 MAY BE A X/1216 INSTEAD OF A X/1215 «, t00=0x0006, t01=0x005a}
0x09ee…0a0c              Head {h00=0x001a, h01=0x0050, text=»*   BY SETTING X:C = 1«, t00=0x0006, t01=0x0092}
0x0a0c…0a16              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b0}
0x0a16…0a28              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0006, t01=0x00ba}
0x0a28…0a3e              Head {h00=0x0012, h01=0x0050, text=»TYPE1 EQU X:C «, t00=0x0006, t01=0x00cc}
0x0a3e…0a48              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e2}
0x0a48…0a52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ec}
0x0a52…0a8a              Head {h00=0x0034, h01=0x0050, text=»*   DRIVE 2 MAY BE A X/1216 INSTEAD OF A X/1215 «, t00=0x0006, t01=0x00f6}
0x0a8a…0aa8              Head {h00=0x001a, h01=0x0050, text=»*   BY SETTING X:D = 1«, t00=0x0006, t01=0x012e}
0x0aa8…0ab2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014c}
0x0ab2…0ac4              Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0006, t01=0x0156}
0x0ac4…0ada              Head {h00=0x0012, h01=0x0050, text=»TYPE2 EQU X:D «, t00=0x0006, t01=0x0168}
0x0ada…0ae4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017e}
0x0ae4…0afc              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0006, t01=0x0188}
0x0afc…0b06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0010}
0x0b06…0b10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001a}
0x0b10…0b42              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0007, t01=0x0024}
0x0b42…0b70              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x0056}
0x0b70…0b7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0084}
0x0b7a…0b8e              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0007, t01=0x008e}
0x0b8e…0b98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a2}
0x0b98…0ba2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ac}
0x0ba2…0bdc              Head {h00=0x0036, h01=0x0050, text=»*   IF DISC ACCESSES ARE MADE EXCLUSIVELY BY DATA «, t00=0x0007, t01=0x00b6}
0x0bdc…0c18              Head {h00=0x0038, h01=0x0050, text=»*   MANAGEMENT, AND MMUPAG=1, THEN X:E := 1, ELSE 0.«, t00=0x0007, t01=0x00f0}
0x0c18…0c22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012c}
0x0c22…0c34              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0007, t01=0x0136}
0x0c34…0c4a              Head {h00=0x0012, h01=0x0050, text=»ONLYDM EQU X:E«, t00=0x0007, t01=0x0148}
0x0c4a…0c54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c54…0c5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0168}
0x0c5e…0c98              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0007, t01=0x0172}
0x0c98…0cca              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x001c}
0x0cca…0cd4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cd4…0ce8              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0008, t01=0x0058}
0x0ce8…0cf2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006c}
0x0cf2…0cfc              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x0076}
0x0cfc…0d2e              Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0008, t01=0x0080}
0x0d2e…0d5c              Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0008, t01=0x00b2}
0x0d5c…0d66              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x00e0}
0x0d66…0d7a              Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0008, t01=0x00ea}
0x0d7a…0d84              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x00fe}
0x0d84…0da4              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0008, t01=0x0108}
0x0da4…0dae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0128}
0x0dae…0db8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0132}
0x0db8…0dce              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x013c}
0x0dce…0de4              Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0008, t01=0x0152}
0x0de4…0dfa              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x0168}
0x0dfa…0e04              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017e}
0x0e04…0e0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0188}
0x0e0e…0e42 (9, 0, 400)  Head {h00=0x0030, h01=0x0050, text=»DAF1 EQU /28 DEVICE ADDRESS FIXED DISC NO. 1«, t00=0x0009, t01=0x0004}
0x0e42…0e7a              Head {h00=0x0034, h01=0x0050, text=»DAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1«, t00=0x0009, t01=0x0038}
0x0e7a…0eae              Head {h00=0x0030, h01=0x0050, text=»DAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2«, t00=0x0009, t01=0x0070}
0x0eae…0ee6              Head {h00=0x0034, h01=0x0050, text=»DAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2«, t00=0x0009, t01=0x00a4}
0x0ee6…0f0e              Head {h00=0x0024, h01=0x0050, text=»WER1 EQU /10 MULTIPLEXOR ADDRESS«, t00=0x0009, t01=0x00dc}
0x0f0e…0f38              Head {h00=0x0026, h01=0x0050, text=»CUADR EQU /08 CONTROL UNIT ADDRESS«, t00=0x0009, t01=0x0104}
0x0f38…0f42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012e}
0x0f42…0f70              Head {h00=0x002a, h01=0x0050, text=»MAXCY5 EQU 203 MAX CYLINDER NO X/1215 «, t00=0x0009, t01=0x0138}
0x0f70…0f9e              Head {h00=0x002a, h01=0x0050, text=»MAXCY6 EQU 407 MAX CYLINDER NO X/1216 «, t00=0x0009, t01=0x0166}
0x0f9e…0fce (10, 0, 400) Head {h00=0x002c, h01=0x0050, text=»LENGTH EQU 410 SECTOR LENGTH, CHARACTERS«, t00=0x000a, t01=0x0004}
0x0fce…0ff0              Head {h00=0x001e, h01=0x0050, text=»QRETRY EQU 4 NO OF RETRIES«, t00=0x000a, t01=0x0034}
0x0ff0…1012              Head {h00=0x001e, h01=0x0050, text=»TIME EQU 1000 1 MIN 40 SEC«, t00=0x000a, t01=0x0056}
0x1012…101c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0078}
0x101c…103c              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000a, t01=0x0082}
0x103c…1046              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1046…1050              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ac}
0x1050…1078              Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDICATES NO MMU BUFFER «, t00=0x000a, t01=0x00b6}
0x1078…109a              Head {h00=0x001e, h01=0x0050, text=» DATA 4 DISC DEVICE INDEX «, t00=0x000a, t01=0x00de}
0x109a…10c4              Head {h00=0x0026, h01=0x0050, text=»DUADR DATA DUAD ACTIVATION ADDRESS«, t00=0x000a, t01=0x0100}
0x10c4…10ea              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000a, t01=0x012a}
0x10ea…10f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0150}
0x10f4…1120              Head {h00=0x0028, h01=0x0050, text=»BUF RES 5 SECTOR BUFFER - 200 WORDS «, t00=0x000a, t01=0x015a}
0x1120…1132              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x000a, t01=0x0186}
0x1132…115a              Head {h00=0x0024, h01=0x0050, text=» RES 200 READ AFTER WRITE BUFFER«, t00=0x000b, t01=0x0008}
0x115a…1166              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0030}
0x1166…1170              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x003c}
0x1170…1188              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x000b, t01=0x0046}
0x1188…1192              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005e}
0x1192…11be              Head {h00=0x0028, h01=0x0050, text=»*   RETRY IS USED TO DETECT RETRIES «, t00=0x000b, t01=0x0068}
0x11be…11c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0094}
0x11c8…11ec              Head {h00=0x0020, h01=0x0050, text=»RETRY DATA 0 MAX NO OF TRIES«, t00=0x000b, t01=0x009e}
0x11ec…11f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c2}
0x11f6…1200              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00cc}
0x1200…123a              Head {h00=0x0036, h01=0x0050, text=»*   TABLE FOR CONVERSION FROM LOGICAL TO PHYSICAL «, t00=0x000b, t01=0x00d6}
0x123a…1254              Head {h00=0x0016, h01=0x0050, text=»*   SECTOR NUMBER «, t00=0x000b, t01=0x0110}
0x1254…125e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012a}
0x125e…1268              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0134}
0x1268…12ac              Head {h00=0x0040, h01=0x0050, text=»SECTAB DATA /0003,/0609,/0C0F,/0205,/080B,/0E01,/0407,/0A0D «, t00=0x000b, t01=0x013e}
0x12ac…12ea              Head {h00=0x003a, h01=0x0050, text=» DATA /1013,/1619,/1C1F,/1215,/181B,/1E11,/1417,/1A1D «, t00=0x000b, t01=0x0182}
0x12ea…12f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0030}
0x12f4…1314              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000c, t01=0x003a}
0x1314…131e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005a}
0x131e…1328              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0064}
0x1328…1342              Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000c, t01=0x006e}
0x1342…135c              Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x000c, t01=0x0088}
0x135c…1376              Head {h00=0x0016, h01=0x0050, text=»*  ACTIVATION   * «, t00=0x000c, t01=0x00a2}
0x1376…1390              Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x000c, t01=0x00bc}
0x1390…13aa              Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000c, t01=0x00d6}
0x13aa…13b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f0}
0x13b4…13be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fa}
0x13be…13e2              Head {h00=0x0020, h01=0x0050, text=»DUAD EQU * ACTIVATION ENTRY «, t00=0x000c, t01=0x0104}
0x13e2…13f8              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x000c, t01=0x0128}
0x13f8…140e              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/7FFF«, t00=0x000c, t01=0x013e}
0x140e…143a              Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A6 GET OTHER DISC UNIT DWT «, t00=0x000c, t01=0x0154}
0x143a…146c              Head {h00=0x002e, h01=0x0050, text=» ANS A1,DWTST,A2 SET OTHER DISC UNIT BUSY «, t00=0x000c, t01=0x0180}
0x146c…1478              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0022}
0x1478…1482              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002e}
0x1482…1496              Head {h00=0x0010, h01=0x0050, text=»DUA:00 EQU *«, t00=0x000d, t01=0x0038}
0x1496…14ca              Head {h00=0x0030, h01=0x0050, text=» LDK A4,QRETRY GET MAX NO OF RETRIES TO MAKE«, t00=0x000d, t01=0x004c}
0x14ca…14e2              Head {h00=0x0014, h01=0x0050, text=» ADK A7,0 SET CR«, t00=0x000d, t01=0x0080}
0x14e2…1508              Head {h00=0x0022, h01=0x0050, text=» RF(Z) TEST TEST STATUS ORDER «, t00=0x000d, t01=0x0098}
0x1508…1512              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00be}
0x1512…1528              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x00c8}
0x1528…1546              Head {h00=0x001a, h01=0x0050, text=» IFF 1-ONLYDM+DSKPAG=0«, t00=0x000d, t01=0x00de}
0x1546…1570              Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A8 GET FIRST WORD OF ECB «, t00=0x000d, t01=0x00fc}
0x1570…15a6              Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/3000 GET BITS 0-1 IN 18-BIT ADDRESS «, t00=0x000d, t01=0x0126}
0x15a6…15d2              Head {h00=0x0028, h01=0x0050, text=» RF(Z) DUA:05 BUFFER IN SYSTEM AREA?«, t00=0x000d, t01=0x015c}
0x15d2…15dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0188}
0x15dc…15f4 (14, 0, 398) Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x000e, t01=0x0004}
0x15f4…15fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001c}
0x15fe…1608              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0026}
0x1608…162e              Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x000e, t01=0x0030}
0x162e…1640              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x000e, t01=0x0056}
0x1640…1656              Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/F000«, t00=0x000e, t01=0x0068}
0x1656…1668              Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x000e, t01=0x007e}
0x1668…167a              Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x000e, t01=0x0090}
0x167a…168c              Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x000e, t01=0x00a2}
0x168c…16c4              Head {h00=0x0034, h01=0x0050, text=» ST A1,DWT:PA,A6 PAGE NUMBER (PSEUDO MMU TABLE) «, t00=0x000e, t01=0x00b4}
0x16c4…16da              Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF «, t00=0x000e, t01=0x00ec}
0x16da…16ec              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x000e, t01=0x0102}
0x16ec…1718              Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x000e, t01=0x0114}
0x1718…1722              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0140}
0x1722…175e              Head {h00=0x0038, h01=0x0050, text=»DUA:05 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x000e, t01=0x014a}
0x175e…176a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0186}
0x176a…1774 (15, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0004}
0x1774…178c              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x000f, t01=0x000e}
0x178c…1796              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x1796…17a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0030}
0x17a0…17cc              Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTOR,A6 GET INDEX AND ORDER «, t00=0x000f, t01=0x003a}
0x17cc…17fa              Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE IT FOR RECOVERY «, t00=0x000f, t01=0x0066}
0x17fa…1820              Head {h00=0x0022, h01=0x0050, text=» SRL A2,7 GET INDEX (DOUBLED) «, t00=0x000f, t01=0x0094}
0x1820…1832              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x000f, t01=0x00ba}
0x1832…184a              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTBSY,A2«, t00=0x000f, t01=0x00cc}
0x184a…1862              Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) END:15 «, t00=0x000f, t01=0x00e4}
0x1862…1880              Head {h00=0x001a, h01=0x0050, text=» LDR A1,A7 CHECK ORDER«, t00=0x000f, t01=0x00fc}
0x1880…1892              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000f, t01=0x011a}
0x1892…18b2              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUA:30 BASIC READ«, t00=0x000f, t01=0x012c}
0x18b2…18c4              Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000f, t01=0x014c}
0x18c4…18e6              Head {h00=0x001e, h01=0x0050, text=» RF(Z) DUA:30 BASIC WRITE «, t00=0x000f, t01=0x015e}
0x18e6…18fa              Head {h00=0x0010, h01=0x0050, text=» SUK A1,12  «, t00=0x000f, t01=0x0180}
0x18fa…191e (16, 0, 400) Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUA:30 PHYSICAL READ «, t00=0x0010, t01=0x0004}
0x191e…1930              Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0010, t01=0x0028}
0x1930…1954              Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUA:30 PHYSICAL WRITE«, t00=0x0010, t01=0x003a}
0x1954…195e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005e}
0x195e…1984              Head {h00=0x0022, h01=0x0050, text=»DUERR ABL DISIOE REQUEST ERROR«, t00=0x0010, t01=0x0068}
0x1984…198e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008e}
0x198e…19ae              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0010, t01=0x0098}
0x19ae…19b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b8}
0x19b8…19c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c2}
0x19c2…19e0              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x00cc}
0x19e0…19fe              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0010, t01=0x00ea}
0x19fe…1a1c              Head {h00=0x001a, h01=0x0050, text=»*   TEST STATUS     * «, t00=0x0010, t01=0x0108}
0x1a1c…1a3a              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0010, t01=0x0126}
0x1a3a…1a58              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x0144}
0x1a58…1a62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0162}
0x1a62…1a6c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016c}
0x1a6c…1a7e              Head {h00=0x000e, h01=0x0050, text=»TEST EQU *«, t00=0x0010, t01=0x0176}
0x1a7e…1aa4              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x0010, t01=0x0188}
0x1aa4…1ac4              Head {h00=0x001c, h01=0x0050, text=» RF DENDIO PERFORM ENDIO«, t00=0x0011, t01=0x001e}
0x1ac4…1ace              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003e}
0x1ace…1ae6              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0011, t01=0x0048}
0x1ae6…1af0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0060}
0x1af0…1afa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006a}
0x1afa…1b24              Head {h00=0x0026, h01=0x0050, text=»DUA:30 LD A1,4,A8 REQUESTED LENGTH«, t00=0x0011, t01=0x0074}
0x1b24…1b3c              Head {h00=0x0014, h01=0x0050, text=» SUKL A1,LENGTH «, t00=0x0011, t01=0x009e}
0x1b3c…1b68              Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DUERR REQUESTED LENGTH # 410«, t00=0x0011, t01=0x00b6}
0x1b68…1b94              Head {h00=0x0028, h01=0x0050, text=» LD A2,10,A8 RELATIVE SECTOR NUMBER «, t00=0x0011, t01=0x00e2}
0x1b94…1ba6              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0011, t01=0x010e}
0x1ba6…1bd0              Head {h00=0x0026, h01=0x0050, text=» ANK A3,/1F LOGICAL SECTOR NUMBER «, t00=0x0011, t01=0x0120}
0x1bd0…1c00              Head {h00=0x002c, h01=0x0050, text=» LC A3,SECTAB,A3 PHYSICAL SECTOR NUMBER «, t00=0x0011, t01=0x014a}
0x1c00…1c20              Head {h00=0x001c, h01=0x0050, text=» SC A3,DWTSEC,A6 SAVE IT«, t00=0x0011, t01=0x017a}
0x1c20…1c42              Head {h00=0x001e, h01=0x0050, text=» SRL A2,5 CYLINDER NUMBER «, t00=0x0012, t01=0x000a}
0x1c42…1c5a              Head {h00=0x0014, h01=0x0050, text=» CW A2,DWTCMX,A6«, t00=0x0012, t01=0x002c}
0x1c5a…1c8c              Head {h00=0x002e, h01=0x0050, text=» RB(G) DUERR CYLINDER NO GREATER THAN MAX.«, t00=0x0012, t01=0x0044}
0x1c8c…1cca              Head {h00=0x003a, h01=0x0050, text=» CW A2,DWTCYL,A6 COMPARE WITH CURRENT CYLINDER NUMBER «, t00=0x0012, t01=0x0076}
0x1cca…1cfc              Head {h00=0x002e, h01=0x0050, text=» RF(E) DU:030 DISC HEAD ALREADY POSITIONED«, t00=0x0012, t01=0x00b4}
0x1cfc…1d2a              Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTCYL,A6 SAVE CYLINDER NUMBER «, t00=0x0012, t01=0x00e6}
0x1d2a…1d34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0114}
0x1d34…1d3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011e}
0x1d3e…1d5e              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0012, t01=0x0128}
0x1d5e…1d7e              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0012, t01=0x0148}
0x1d7e…1d9e              Head {h00=0x001c, h01=0x0050, text=»*   SEEK SECTOR N      *«, t00=0x0012, t01=0x0168}
0x1d9e…1dbe              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0012, t01=0x0188}
0x1dbe…1dde              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0013, t01=0x0018}
0x1dde…1de8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0038}
0x1de8…1df2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0042}
0x1df2…1e1c              Head {h00=0x0026, h01=0x0050, text=»DU:010 CF A5,SEEK SEEK CYLINDER N «, t00=0x0013, t01=0x004c}
0x1e1c…1e2e              Head {h00=0x000e, h01=0x0050, text=» SLC A1,5 «, t00=0x0013, t01=0x0076}
0x1e2e…1e56              Head {h00=0x0024, h01=0x0050, text=» RF(N) DU:030 OK. SEEK COMPLETED«, t00=0x0013, t01=0x0088}
0x1e56…1e60              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b0}
0x1e60…1e78              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0013, t01=0x00ba}
0x1e78…1e82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d2}
0x1e82…1e8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00dc}
0x1e8c…1eac              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0013, t01=0x00e6}
0x1eac…1ecc              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0013, t01=0x0106}
0x1ecc…1eec              Head {h00=0x001c, h01=0x0050, text=»*   SEEK CYLINDER 0    *«, t00=0x0013, t01=0x0126}
0x1eec…1f0c              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0013, t01=0x0146}
0x1f0c…1f2c              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0013, t01=0x0166}
0x1f2c…1f36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0186}
0x1f36…1f40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0190}
0x1f40…1f6a              Head {h00=0x0026, h01=0x0050, text=»DU:015 CF A5,SEEKZ SEEK CYLINDER 0«, t00=0x0014, t01=0x000a}
0x1f6a…1f7c              Head {h00=0x000e, h01=0x0050, text=» SLC A1,6 «, t00=0x0014, t01=0x0034}
0x1f7c…1fa4              Head {h00=0x0024, h01=0x0050, text=» RF(N) DU:020 SECTOR 0 NOT FOUND«, t00=0x0014, t01=0x0046}
0x1fa4…1fb6              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0014, t01=0x006e}
0x1fb6…1fd6              Head {h00=0x001c, h01=0x0050, text=» RB(NZ) DU:010 TRY AGAIN«, t00=0x0014, t01=0x0080}
0x1fd6…1fe0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a0}
0x1fe0…200e              Head {h00=0x002a, h01=0x0050, text=»DU:020 LDKL A3,/FFFF ALL RETRIES DONE «, t00=0x0014, t01=0x00aa}
0x200e…2042              Head {h00=0x0030, h01=0x0050, text=» ST A3,DWTCYL,A6 SET ILLEGAL CYLINDER NUMBER«, t00=0x0014, t01=0x00d8}
0x2042…206e              Head {h00=0x0028, h01=0x0050, text=» LDKL A1,/200 SEEK ERROR RETURN CODE«, t00=0x0014, t01=0x010c}
0x206e…208e              Head {h00=0x001c, h01=0x0050, text=» RF DENDIO PERFORM ENDIO«, t00=0x0014, t01=0x0138}
0x208e…2098              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0158}
0x2098…20b8              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0014, t01=0x0162}
0x20b8…20c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0182}
0x20c2…20cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018c}
0x20cc…20ee              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0015, t01=0x0008}
0x20ee…2110              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0015, t01=0x002a}
0x2110…2132              Head {h00=0x001e, h01=0x0050, text=»*  GO AND EXECUTE ORDER  *«, t00=0x0015, t01=0x004c}
0x2132…2154              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0015, t01=0x006e}
0x2154…2176              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0015, t01=0x0090}
0x2176…2180              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b2}
0x2180…218a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00bc}
0x218a…21a8              Head {h00=0x001a, h01=0x0050, text=»DU:030 LDR A1,A7 ORDER«, t00=0x0015, t01=0x00c6}
0x21a8…21ba              Head {h00=0x000e, h01=0x0050, text=» SUK A1,5 «, t00=0x0015, t01=0x00e4}
0x21ba…21dc              Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRIT:N BASIC WRITE «, t00=0x0015, t01=0x00f6}
0x21dc…21ee              Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0015, t01=0x0118}
0x21ee…220a              Head {h00=0x0018, h01=0x0050, text=» RF(NP) READ:N READ «, t00=0x0015, t01=0x012a}
0x220a…2214              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0146}
0x2214…221e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0150}
0x221e…223e              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0015, t01=0x015a}
0x223e…225e              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0015, t01=0x017a}
0x225e…227e              Head {h00=0x001c, h01=0x0050, text=»*   READ SECTOR N-1    *«, t00=0x0016, t01=0x000a}
0x227e…229e              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0016, t01=0x002a}
0x229e…22be              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0016, t01=0x004a}
0x22be…22c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x006a}
0x22c8…22d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0074}
0x22d2…2306              Head {h00=0x0030, h01=0x0050, text=»P:WRIT CF A5,WER:R5 EXECUTE WER INSTRUCTIONS«, t00=0x0016, t01=0x007e}
0x2306…232a              Head {h00=0x0020, h01=0x0050, text=» CF A5,READ5 READ FIVE WORDS«, t00=0x0016, t01=0x00b2}
0x232a…233c              Head {h00=0x000e, h01=0x0050, text=» ANK A1,2 «, t00=0x0016, t01=0x00d6}
0x233c…236c              Head {h00=0x002c, h01=0x0050, text=» RF(Z) P:WR10 OK. CHECK CYLINDER NUMBER «, t00=0x0016, t01=0x00e8}
0x236c…2396              Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0016, t01=0x0118}
0x2396…23b8              Head {h00=0x001e, h01=0x0050, text=» RB(NZ) P:WRIT TRY AGAIN? «, t00=0x0016, t01=0x0142}
0x23b8…23e4              Head {h00=0x0028, h01=0x0050, text=» RF DENDIO ALL RETRIES DONE, GIVE UP«, t00=0x0016, t01=0x0164}
0x23e4…23ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0190}
0x23ee…241c              Head {h00=0x002a, h01=0x0050, text=»P:WR10 LD A2,DWTCYL,A6 CYLINDER NUMBER«, t00=0x0017, t01=0x000a}
0x241c…2456              Head {h00=0x0036, h01=0x0050, text=» CW A2,BUF+1 COMPARE WITH CURRENT CYLINDER NUMBER «, t00=0x0017, t01=0x0038}
0x2456…2482              Head {h00=0x0028, h01=0x0050, text=» RB(NE) DU:015 ERROR.SEEK CYLINDER 0«, t00=0x0017, t01=0x0072}
0x2482…248c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009e}
0x248c…24a4              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0017, t01=0x00a8}
0x24a4…24ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c0}
0x24ae…24b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ca}
0x24b8…24d6              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0017, t01=0x00d4}
0x24d6…24f4              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0017, t01=0x00f2}
0x24f4…2512              Head {h00=0x001a, h01=0x0050, text=»*   WRITE SECTOR N  * «, t00=0x0017, t01=0x0110}
0x2512…2530              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0017, t01=0x012e}
0x2530…254e              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0017, t01=0x014c}
0x254e…2558              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016a}
0x2558…2562              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0174}
0x2562…2596              Head {h00=0x0030, h01=0x0050, text=»WRIT:N CF A5,WER:W EXECUTE WER INSTRUCTIONS «, t00=0x0017, t01=0x017e}
0x2596…25ba              Head {h00=0x0020, h01=0x0050, text=» CF A5,WRITE WRITE SECTOR N «, t00=0x0018, t01=0x0022}
0x25ba…25ce              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1F «, t00=0x0018, t01=0x0046}
0x25ce…25f6              Head {h00=0x0024, h01=0x0050, text=» RF(Z) WRIT20 OK. NO RETURN CODE«, t00=0x0018, t01=0x005a}
0x25f6…2620              Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0018, t01=0x0082}
0x2620…2642              Head {h00=0x001e, h01=0x0050, text=» RB(NZ) WRIT:N TRY AGAIN? «, t00=0x0018, t01=0x00ac}
0x2642…266e              Head {h00=0x0028, h01=0x0050, text=» RF DENDIO ALL RETRIES DONE, GIVE UP«, t00=0x0018, t01=0x00ce}
0x266e…2678              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00fa}
0x2678…268c              Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x0018, t01=0x0104}
0x268c…269e              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0018, t01=0x0118}
0x269e…26b0              Head {h00=0x000e, h01=0x0050, text=» SUK A7,5 «, t00=0x0018, t01=0x012a}
0x26b0…26da              Head {h00=0x0026, h01=0x0050, text=» RF(E) DENDIO JUMP IF BASIC WRITE «, t00=0x0018, t01=0x013c}
0x26da…2704              Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF DRIVER BUFFER ADDRESS«, t00=0x0018, t01=0x0166}
0x2704…270e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0190}
0x270e…2742              Head {h00=0x0030, h01=0x0050, text=»WRIT30 CF A5,WER:R EXECUTE WER INSTRUCTIONS «, t00=0x0019, t01=0x000a}
0x2742…2764              Head {h00=0x001e, h01=0x0050, text=» CF A5,READ READ SECTOR N «, t00=0x0019, t01=0x003e}
0x2764…2776              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0019, t01=0x0060}
0x2776…2796              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DENDIO JUMP IF OK«, t00=0x0019, t01=0x0072}
0x2796…27c0              Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0019, t01=0x0092}
0x27c0…27e2              Head {h00=0x001e, h01=0x0050, text=» RB(NZ) WRIT30 TRY AGAIN? «, t00=0x0019, t01=0x00bc}
0x27e2…27ee              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00de}
0x27ee…27f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ea}
0x27f8…2824              Head {h00=0x0028, h01=0x0050, text=» RF DENDIO ALL RETRIES DONE, GIVE UP«, t00=0x0019, t01=0x00f4}
0x2824…282e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0120}
0x282e…284e              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0019, t01=0x012a}
0x284e…2858              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014a}
0x2858…2862              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0154}
0x2862…2880              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0019, t01=0x015e}
0x2880…289e              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0019, t01=0x017c}
0x289e…28bc              Head {h00=0x001a, h01=0x0050, text=»*   READ SECTOR N    *«, t00=0x001a, t01=0x000a}
0x28bc…28da              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001a, t01=0x0028}
0x28da…28f8              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001a, t01=0x0046}
0x28f8…2902              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0064}
0x2902…290c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x290c…2940              Head {h00=0x0030, h01=0x0050, text=»READ:N CF A5,WER:R EXECUTE WER INSTRUCTIONS «, t00=0x001a, t01=0x0078}
0x2940…2962              Head {h00=0x001e, h01=0x0050, text=» CF A5,READ READ SECTOR N «, t00=0x001a, t01=0x00ac}
0x2962…2974              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x001a, t01=0x00ce}
0x2974…299c              Head {h00=0x0024, h01=0x0050, text=» RF(Z) READ10 OK. NO RETURN CODE«, t00=0x001a, t01=0x00e0}
0x299c…29c6              Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x001a, t01=0x0108}
0x29c6…29e8              Head {h00=0x001e, h01=0x0050, text=» RB(NZ) READ:N TRY AGAIN? «, t00=0x001a, t01=0x0132}
0x29e8…29f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0154}
0x29f2…2a1a              Head {h00=0x0024, h01=0x0050, text=»DENDIO EQU * COMMON BRANCH LABEL«, t00=0x001a, t01=0x015e}
0x2a1a…2a40              Head {h00=0x0022, h01=0x0050, text=» ABL  END:IO ALL RETRIES DONE «, t00=0x001a, t01=0x0186}
0x2a40…2a4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001c}
0x2a4a…2a62              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x001b, t01=0x0026}
0x2a62…2a6c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x003e}
0x2a6c…2a76              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0048}
0x2a76…2a9a              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001b, t01=0x0052}
0x2a9a…2abe              Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x001b, t01=0x0076}
0x2abe…2ae2              Head {h00=0x0020, h01=0x0050, text=»*  CHECK CYLINDER NUMBER  * «, t00=0x001b, t01=0x009a}
0x2ae2…2b06              Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x001b, t01=0x00be}
0x2b06…2b2a              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001b, t01=0x00e2}
0x2b2a…2b34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0106}
0x2b34…2b3e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0110}
0x2b3e…2b52              Head {h00=0x0010, h01=0x0050, text=»READ10 EQU *«, t00=0x001b, t01=0x011a}
0x2b52…2b68              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001b, t01=0x012e}
0x2b68…2b98              Head {h00=0x002c, h01=0x0050, text=» LD* A2,2,A8 GET CURRENT CYLINDER NUMBER«, t00=0x001b, t01=0x0144}
0x2b98…2ba4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0174}
0x2ba4…2bae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0180}
0x2bae…2bc4              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001b, t01=0x018a}
0x2bc4…2be2              Head {h00=0x001a, h01=0x0050, text=» IFF 1-ONLYDM+DSKPAG=0«, t00=0x001c, t01=0x0010}
0x2be2…2c1a              Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x001c, t01=0x002e}
0x2c1a…2c4e              Head {h00=0x0030, h01=0x0050, text=» RF(Z) READ30 JUMP IF BUFFER IN SYSTEM AREA «, t00=0x001c, t01=0x0066}
0x2c4e…2c7e              Head {h00=0x002c, h01=0x0050, text=» TS -30,A15 SAVE MMU REGISTERS ON STACK «, t00=0x001c, t01=0x009a}
0x2c7e…2caa              Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x001c, t01=0x00ca}
0x2caa…2cd8              Head {h00=0x002a, h01=0x0050, text=» ELR A2,A2 GET CURRENT CYLINDER NUMBER«, t00=0x001c, t01=0x00f6}
0x2cd8…2d0c              Head {h00=0x0030, h01=0x0050, text=» TL -30,A15 RESTORE MMU REGISTERS FROM STACK«, t00=0x001c, t01=0x0124}
0x2d0c…2d1e              Head {h00=0x000e, h01=0x0050, text=» RF READ40«, t00=0x001c, t01=0x0158}
0x2d1e…2d28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016a}
0x2d28…2d3c              Head {h00=0x0010, h01=0x0050, text=»READ30 EQU *«, t00=0x001c, t01=0x0174}
0x2d3c…2d6c              Head {h00=0x002c, h01=0x0050, text=» LD* A2,2,A8 GET CURRENT CYLINDER NUMBER«, t00=0x001c, t01=0x0188}
0x2d6c…2d78              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0028}
0x2d78…2d82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0034}
0x2d82…2d9a              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x001d, t01=0x003e}
0x2d9a…2da4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0056}
0x2da4…2dae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0060}
0x2dae…2dc4              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001d, t01=0x006a}
0x2dc4…2de0              Head {h00=0x0018, h01=0x0050, text=» IFT ONLYDM-DSKPAG=1«, t00=0x001d, t01=0x0080}
0x2de0…2e10              Head {h00=0x002c, h01=0x0050, text=» LD* A2,2,A8 GET CURRENT CYLINDER NUMBER«, t00=0x001d, t01=0x009c}
0x2e10…2e1c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00cc}
0x2e1c…2e26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00d8}
0x2e26…2e3a              Head {h00=0x0010, h01=0x0050, text=»READ40 EQU *«, t00=0x001d, t01=0x00e2}
0x2e3a…2e7a              Head {h00=0x003c, h01=0x0050, text=» CW A2,DWTCYL,A6 COMPARE WITH REQUESTED CYLINDER NUMBER «, t00=0x001d, t01=0x00f6}
0x2e7a…2ea2              Head {h00=0x0024, h01=0x0050, text=» RB(E) DENDIO OK, PERFORM ENDIO «, t00=0x001d, t01=0x0136}
0x2ea2…2ecc              Head {h00=0x0026, h01=0x0050, text=» RB  DU:015 ERROR. SEEK CYLINDER 0«, t00=0x001d, t01=0x015e}
0x2ecc…2ed6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0188}
0x2ed6…2ef6 (30, 0, 400) Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x001e, t01=0x0004}
0x2ef6…2f00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0024}
0x2f00…2f0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x002e}
0x2f0a…2f30              Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x001e, t01=0x0038}
0x2f30…2f56              Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x001e, t01=0x005e}
0x2f56…2f7c              Head {h00=0x0022, h01=0x0050, text=»*  EXECUTE WER INSTRUCTIONS  *«, t00=0x001e, t01=0x0084}
0x2f7c…2fa2              Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x001e, t01=0x00aa}
0x2fa2…2fc8              Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x001e, t01=0x00d0}
0x2fc8…2fd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f6}
0x2fd2…2fdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0100}
0x2fdc…3006              Head {h00=0x0026, h01=0x0050, text=»WER:R5 LDKL A2,/8005 READ 5 WORDS «, t00=0x001e, t01=0x010a}
0x3006…3030              Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF DRIVER BUFFER ADDRESS«, t00=0x001e, t01=0x0134}
0x3030…3042              Head {h00=0x000e, h01=0x0050, text=» RF EX:WER«, t00=0x001e, t01=0x015e}
0x3042…304c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0170}
0x304c…3076              Head {h00=0x0026, h01=0x0050, text=»WER:R LDKL A2,/80CD READ 1 SECTOR «, t00=0x001e, t01=0x017a}
0x3076…308a              Head {h00=0x0010, h01=0x0050, text=» CWK A3,BUF «, t00=0x001f, t01=0x0014}
0x308a…30a0              Head {h00=0x0012, h01=0x0050, text=» RF(E) EX:WER «, t00=0x001f, t01=0x0028}
0x30a0…30b2              Head {h00=0x000e, h01=0x0050, text=» RF WER:WB«, t00=0x001f, t01=0x003e}
0x30b2…30bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0050}
0x30bc…30e6              Head {h00=0x0026, h01=0x0050, text=»WER:W LDKL A2,/C0CD WRITE 1 SECTOR«, t00=0x001f, t01=0x005a}
0x30e6…30f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0084}
0x30f0…3108              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x001f, t01=0x008e}
0x3108…3112              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00a6}
0x3112…311c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b0}
0x311c…314a              Head {h00=0x002a, h01=0x0050, text=»WER:WB LD A3,2,A8 USER BUFFER ADDRESS «, t00=0x001f, t01=0x00ba}
0x314a…3154              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e8}
0x3154…316a              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x00f2}
0x316a…3188              Head {h00=0x001a, h01=0x0050, text=» IFF 1-ONLYDM+DSKPAG=0«, t00=0x001f, t01=0x0108}
0x3188…31b2              Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A8 GET FIRST WORD OF ECB «, t00=0x001f, t01=0x0126}
0x31b2…31ea              Head {h00=0x0034, h01=0x0050, text=» ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS «, t00=0x001f, t01=0x0150}
0x31ea…31fc              Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x001f, t01=0x0188}
0x31fc…3208              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x000a}
0x3208…3212              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0016}
0x3212…3226              Head {h00=0x0010, h01=0x0050, text=»EX:WER EQU *«, t00=0x0020, t01=0x0020}
0x3226…324c              Head {h00=0x0022, h01=0x0050, text=» EX DWTWR1,A6 EXECUTE 1:ST WER«, t00=0x0020, t01=0x0034}
0x324c…3272              Head {h00=0x0022, h01=0x0050, text=» EX DWTWR2,A6 EXECUTE 2:ND WER«, t00=0x0020, t01=0x005a}
0x3272…3282              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0020, t01=0x0080}
0x3282…328c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0090}
0x328c…32ac              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0020, t01=0x009a}
0x32ac…32b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ba}
0x32b6…32c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00c4}
0x32c0…32dc              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0020, t01=0x00ce}
0x32dc…32f8              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0020, t01=0x00ea}
0x32f8…3314              Head {h00=0x0018, h01=0x0050, text=»*  SEEK CYLINDER  * «, t00=0x0020, t01=0x0106}
0x3314…3330              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0020, t01=0x0122}
0x3330…334c              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0020, t01=0x013e}
0x334c…3356              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x015a}
0x3356…3360              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0164}
0x3360…338c              Head {h00=0x0028, h01=0x0050, text=»SEEK LD A2,DWTCYL,A6 CYLINDER NUMBER«, t00=0x0020, t01=0x016e}
0x338c…339e              Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0021, t01=0x000a}
0x339e…33b0              Head {h00=0x000e, h01=0x0050, text=» ORK A2,2 «, t00=0x0021, t01=0x001c}
0x33b0…33d2              Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0021, t01=0x002e}
0x33d2…33dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0050}
0x33dc…33f0              Head {h00=0x0010, h01=0x0050, text=»SEEKZ EQU * «, t00=0x0021, t01=0x005a}
0x33f0…3402              Head {h00=0x000e, h01=0x0050, text=» LDK A2,3 «, t00=0x0021, t01=0x006e}
0x3402…3424              Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0021, t01=0x0080}
0x3424…342e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00a2}
0x342e…345a              Head {h00=0x0028, h01=0x0050, text=»READ5 LC A2,DWTSEC,A6 SECTOR NUMBER «, t00=0x0021, t01=0x00ac}
0x345a…346e              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0021, t01=0x00d8}
0x346e…348a              Head {h00=0x0018, h01=0x0050, text=» SUK A2,3 SECTOR N-1«, t00=0x0021, t01=0x00ec}
0x348a…349e              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0021, t01=0x0108}
0x349e…34b0              Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0021, t01=0x011c}
0x34b0…34d2              Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0021, t01=0x012e}
0x34d2…34dc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0150}
0x34dc…34fc              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0021, t01=0x015a}
0x34fc…3506              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x017a}
0x3506…3510              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0184}
0x3510…353a              Head {h00=0x0026, h01=0x0050, text=»READ LC A2,DWTSEC,A6 SECTOR NUMBER«, t00=0x0021, t01=0x018e}
0x353a…354e              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0022, t01=0x0028}
0x354e…3560              Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0022, t01=0x003c}
0x3560…3582              Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0022, t01=0x004e}
0x3582…358c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0070}
0x358c…35ba              Head {h00=0x002a, h01=0x0050, text=»WRITE LD A2,DWTCYL,A6 CYLINDER NUMBER «, t00=0x0022, t01=0x007a}
0x35ba…35c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a8}
0x35c4…35da              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0022, t01=0x00b2}
0x35da…360a              Head {h00=0x002c, h01=0x0050, text=» ST* A2,2,A8 PUT CYL. NR IN USER BUFFER «, t00=0x0022, t01=0x00c8}
0x360a…3616              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00f8}
0x3616…3620              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0104}
0x3620…3636              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x010e}
0x3636…3654              Head {h00=0x001a, h01=0x0050, text=» IFF 1-ONLYDM+DSKPAG=0«, t00=0x0022, t01=0x0124}
0x3654…368c              Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0022, t01=0x0142}
0x368c…36c0              Head {h00=0x0030, h01=0x0050, text=» RF(Z) WRITE3 JUMP IF BUFFER IN SYSTEM AREA «, t00=0x0022, t01=0x017a}
0x36c0…36f0              Head {h00=0x002c, h01=0x0050, text=» TS -30,A15 SAVE MMU REGISTERS ON STACK «, t00=0x0023, t01=0x001e}
0x36f0…371c              Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0023, t01=0x004e}
0x371c…374a              Head {h00=0x002a, h01=0x0050, text=» ESR A2,A1 PUT CYL. NR IN USER BUFFER «, t00=0x0023, t01=0x007a}
0x374a…377e              Head {h00=0x0030, h01=0x0050, text=» TL -30,A15 RESTORE MMU REGISTERS FROM STACK«, t00=0x0023, t01=0x00a8}
0x377e…3790              Head {h00=0x000e, h01=0x0050, text=» RF WRITE4«, t00=0x0023, t01=0x00dc}
0x3790…379a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ee}
0x379a…37ae              Head {h00=0x0010, h01=0x0050, text=»WRITE3 EQU *«, t00=0x0023, t01=0x00f8}
0x37ae…37de              Head {h00=0x002c, h01=0x0050, text=» ST* A2,2,A8 PUT CYL. NR IN USER BUFFER «, t00=0x0023, t01=0x010c}
0x37de…37ea              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x013c}
0x37ea…37f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0148}
0x37f4…380c              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0023, t01=0x0152}
0x380c…3816              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016a}
0x3816…3820              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0174}
0x3820…3836              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0023, t01=0x017e}
0x3836…3852 (36, 0, 400) Head {h00=0x0018, h01=0x0050, text=» IFT ONLYDM-DSKPAG=1«, t00=0x0024, t01=0x0004}
0x3852…3882              Head {h00=0x002c, h01=0x0050, text=» ST* A2,2,A8 PUT CYLNMB. IN USER BUFFER «, t00=0x0024, t01=0x0020}
0x3882…388e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x0050}
0x388e…3898              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x005c}
0x3898…38ac              Head {h00=0x0010, h01=0x0050, text=»WRITE4 EQU *«, t00=0x0024, t01=0x0066}
0x38ac…38d2              Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTSEC,A6 SECTOR NUMBER«, t00=0x0024, t01=0x007a}
0x38d2…38e4              Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0024, t01=0x00a0}
0x38e4…38f6              Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0024, t01=0x00b2}
0x38f6…3900              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c4}
0x3900…3920              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0024, t01=0x00ce}
0x3920…392a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ee}
0x392a…3934              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f8}
0x3934…3946              Head {h00=0x000e, h01=0x0050, text=»CIO EQU * «, t00=0x0024, t01=0x0102}
0x3946…3960              Head {h00=0x0016, h01=0x0050, text=»  LC A1,DWTOR,A6  «, t00=0x0024, t01=0x0114}
0x3960…3978              Head {h00=0x0014, h01=0x0050, text=» ANK A1,1 INDEX «, t00=0x0024, t01=0x012e}
0x3978…3998              Head {h00=0x001c, h01=0x0050, text=» ADR A1,A1 DOUBLE INDEX «, t00=0x0024, t01=0x0146}
0x3998…39aa              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x0024, t01=0x0166}
0x39aa…39d2              Head {h00=0x0024, h01=0x0050, text=» EX DWTCIO,A1 EXECUTE CIO-START «, t00=0x0024, t01=0x0178}
0x39d2…39e4              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0025, t01=0x0010}
0x39e4…3a12              Head {h00=0x002a, h01=0x0050, text=» ABL(3) END:20 DEVICE ADDRESS UNKNOWN?«, t00=0x0025, t01=0x0022}
0x3a12…3a38              Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTA4,A6            A4 «, t00=0x0025, t01=0x0050}
0x3a38…3a5e              Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTA5,A6            A5 «, t00=0x0025, t01=0x0076}
0x3a5e…3a68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x009c}
0x3a68…3a92              Head {h00=0x0026, h01=0x0050, text=»T:DISP ABL TDISP GO TO DISPATCHER «, t00=0x0025, t01=0x00a6}
0x3a92…3a9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d0}
0x3a9c…3abc              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0025, t01=0x00da}
0x3abc…3ac6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fa}
0x3ac6…3ad0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0104}
0x3ad0…3aee              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0025, t01=0x010e}
0x3aee…3b0c              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0025, t01=0x012c}
0x3b0c…3b2a              Head {h00=0x001a, h01=0x0050, text=»*  RECOVERY ROUTINE  *«, t00=0x0025, t01=0x014a}
0x3b2a…3b48              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0025, t01=0x0168}
0x3b48…3b66              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0025, t01=0x0186}
0x3b66…3b70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0014}
0x3b70…3b7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x001e}
0x3b7a…3b8c              Head {h00=0x000e, h01=0x0050, text=»DUON EQU *«, t00=0x0026, t01=0x0028}
0x3b8c…3ba2              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0026, t01=0x003a}
0x3ba2…3bcc              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0026, t01=0x0050}
0x3bcc…3bd8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x007a}
0x3bd8…3be2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0086}
0x3be2…3bf8              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0026, t01=0x0090}
0x3bf8…3c1e              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0026, t01=0x00a6}
0x3c1e…3c2a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00cc}
0x3c2a…3c34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d8}
0x3c34…3c4c              Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWDU01 «, t00=0x0026, t01=0x00e2}
0x3c4c…3c76              Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG INITIALIZATION FLAG «, t00=0x0026, t01=0x00fa}
0x3c76…3c94              Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUON20 POWER UP«, t00=0x0026, t01=0x0124}
0x3c94…3c9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0142}
0x3c9e…3cb2              Head {h00=0x0010, h01=0x0050, text=»DURED2 EQU *«, t00=0x0026, t01=0x014c}
0x3cb2…3cc8              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/7FFF«, t00=0x0026, t01=0x0160}
0x3cc8…3cf4              Head {h00=0x0028, h01=0x0050, text=» ANS A1,DWTST,A6 SET DISC UNIT BUSY «, t00=0x0026, t01=0x0176}
0x3cf4…3cfe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0012}
0x3cfe…3d14              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0027, t01=0x001c}
0x3d14…3d3e              Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT ADDRESS «, t00=0x0027, t01=0x0032}
0x3d3e…3d64              Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTST,A6 SET DWT BUSY «, t00=0x0027, t01=0x005c}
0x3d64…3d70              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0082}
0x3d70…3d7a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008e}
0x3d7a…3d92              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0027, t01=0x0098}
0x3d92…3d9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b0}
0x3d9c…3da6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ba}
0x3da6…3dba              Head {h00=0x0010, h01=0x0050, text=»DUON05 EQU *«, t00=0x0027, t01=0x00c4}
0x3dba…3dde              Head {h00=0x0020, h01=0x0050, text=»  LDKL A5,DWTSB2 STACK BASE «, t00=0x0027, t01=0x00d8}
0x3dde…3dfc              Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0027, t01=0x00fc}
0x3dfc…3e22              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x0027, t01=0x011a}
0x3e22…3e2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0140}
0x3e2c…3e42              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0027, t01=0x014a}
0x3e42…3e72              Head {h00=0x002c, h01=0x0050, text=» LDR* A6,A6 OTHER DISC UNIT DWT ADDRESS «, t00=0x0027, t01=0x0160}
0x3e72…3e8a              Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0027, t01=0x0190}
0x3e8a…3ea8              Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0028, t01=0x0018}
0x3ea8…3ece              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x0028, t01=0x0036}
0x3ece…3ef6              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0028, t01=0x005c}
0x3ef6…3f1c              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DUON10 ANY REQUEST ON?«, t00=0x0028, t01=0x0084}
0x3f1c…3f44              Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 NO, CHECK NEXT DRIVE«, t00=0x0028, t01=0x00aa}
0x3f44…3f50              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00d2}
0x3f50…3f5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00de}
0x3f5a…3f82              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0028, t01=0x00e8}
0x3f82…3fa6              Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUON15 NO REQUEST ON?«, t00=0x0028, t01=0x0110}
0x3fa6…3fb0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0134}
0x3fb0…3fd8              Head {h00=0x0024, h01=0x0050, text=»DUON10 LD A7,DWTORD,A6 GET ORDER«, t00=0x0028, t01=0x013e}
0x3fd8…4008              Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0028, t01=0x0166}
0x4008…401c              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0029, t01=0x0008}
0x401c…403e              Head {h00=0x001e, h01=0x0050, text=» ABL DUA:00 REPEAT REQUEST«, t00=0x0029, t01=0x001c}
0x403e…4048              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x003e}
0x4048…4060              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0029, t01=0x0048}
0x4060…406a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0060}
0x406a…4074              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x006a}
0x4074…4090              Head {h00=0x0018, h01=0x0050, text=»DUON15 CF A15,TENDIO«, t00=0x0029, t01=0x0074}
0x4090…409a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0090}
0x409a…40b0              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0029, t01=0x009a}
0x40b0…40da              Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT ADDRESS «, t00=0x0029, t01=0x00b0}
0x40da…40f0              Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0029, t01=0x00da}
0x40f0…40fc              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00f0}
0x40fc…4118              Head {h00=0x0018, h01=0x0050, text=» RB T:DISP DISPATCH «, t00=0x0029, t01=0x00fc}
0x4118…4122              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0118}
0x4122…413e              Head {h00=0x0018, h01=0x0050, text=»*    READY INTERRUPT«, t00=0x0029, t01=0x0122}
0x413e…4148              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x013e}
0x4148…4162              Head {h00=0x0016, h01=0x0050, text=»DUREDY LD A1,TIMER«, t00=0x0029, t01=0x0148}
0x4162…4188              Head {h00=0x0022, h01=0x0050, text=» RB(Z) DURED2 NO TIMER ACTIVE «, t00=0x0029, t01=0x0162}
0x4188…4192              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0188}
0x4192…41a8 (42, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x002a, t01=0x0004}
0x41a8…41c6              Head {h00=0x001a, h01=0x0050, text=» CM* TIMER KILL TIMER «, t00=0x002a, t01=0x001a}
0x41c6…41d8              Head {h00=0x000e, h01=0x0050, text=» RF DUON40«, t00=0x002a, t01=0x0038}
0x41d8…41e4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x004a}
0x41e4…41ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0056}
0x41ee…420e              Head {h00=0x001c, h01=0x0050, text=» RB T:DISP TIMER ACTIVE «, t00=0x002a, t01=0x0060}
0x420e…4218              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0080}
0x4218…4230              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x002a, t01=0x008a}
0x4230…423a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00a2}
0x423a…4262              Head {h00=0x0024, h01=0x0050, text=»*  SET DISC BUSY AND START TIMER«, t00=0x002a, t01=0x00ac}
0x4262…426c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d4}
0x426c…4288              Head {h00=0x0018, h01=0x0050, text=»DUON20 LDKL A1,/7FFF«, t00=0x002a, t01=0x00de}
0x4288…429e              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002a, t01=0x00fa}
0x429e…42c4              Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTST,A6 SET UNIT BUSY«, t00=0x002a, t01=0x0110}
0x42c4…42ea              Head {h00=0x0022, h01=0x0050, text=» LDR* A6,A6 OTHER DWT ADDRESS «, t00=0x002a, t01=0x0136}
0x42ea…42f6              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x015c}
0x42f6…431c              Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTST,A6 SET UNIT BUSY«, t00=0x002a, t01=0x0168}
0x431c…4342              Head {h00=0x0022, h01=0x0050, text=» LDKL A5,DWTSB2 GET STACK BASE«, t00=0x002a, t01=0x018e}
0x4342…4354              Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x002b, t01=0x0024}
0x4354…437a              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x002b, t01=0x0036}
0x437a…4384              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x005c}
0x4384…439a              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002b, t01=0x0066}
0x439a…43be              Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 SAVE RETURN CODE «, t00=0x002b, t01=0x007c}
0x43be…43e8              Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT ADDRESS «, t00=0x002b, t01=0x00a0}
0x43e8…440e              Head {h00=0x0022, h01=0x0050, text=» LDKL A5,DWTSB2 GET STACK BASE«, t00=0x002b, t01=0x00ca}
0x440e…4420              Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x002b, t01=0x00f0}
0x4420…4446              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x002b, t01=0x0102}
0x4446…446a              Head {h00=0x0020, h01=0x0050, text=» LDR A3,A1 SAVE RETURN CODE «, t00=0x002b, t01=0x0128}
0x446a…4492              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x002b, t01=0x014c}
0x4492…44c0              Head {h00=0x002a, h01=0x0050, text=» RF(Z) DUON23 NO REQUEST ON THIS DISC?«, t00=0x002b, t01=0x0174}
0x44c0…44e4              Head {h00=0x0020, h01=0x0050, text=» ADK A1,0 CHECK RETURN CODE «, t00=0x002c, t01=0x0012}
0x44e4…450a              Head {h00=0x0022, h01=0x0050, text=» RB(Z) DUON10 REPEAT REQUEST? «, t00=0x002c, t01=0x0036}
0x450a…4514              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x005c}
0x4514…4528              Head {h00=0x0010, h01=0x0050, text=»DUON23 EQU *«, t00=0x002c, t01=0x0066}
0x4528…4552              Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT ADDRESS «, t00=0x002c, t01=0x007a}
0x4552…4588              Head {h00=0x0032, h01=0x0050, text=» LDR A1,A4 RESTORE RETURN CODE FROM OTHER DISC«, t00=0x002c, t01=0x00a4}
0x4588…4594              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00da}
0x4594…459e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e6}
0x459e…45c6              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x002c, t01=0x00f0}
0x45c6…45f4              Head {h00=0x002a, h01=0x0050, text=» RF(Z) DUON26 NO REQUEST ON THIS DISC?«, t00=0x002c, t01=0x0118}
0x45f4…4618              Head {h00=0x0020, h01=0x0050, text=» ADK A1,0 CHECK RETURN CODE «, t00=0x002c, t01=0x0146}
0x4618…463e              Head {h00=0x0022, h01=0x0050, text=» RB(Z) DUON10 REPEAT REQUEST? «, t00=0x002c, t01=0x016a}
0x463e…4648              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0190}
0x4648…4660              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x002d, t01=0x000a}
0x4660…466a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0022}
0x466a…4674              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002c}
0x4674…4688              Head {h00=0x0010, h01=0x0050, text=»DUON26 EQU *«, t00=0x002d, t01=0x0036}
0x4688…469e              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002d, t01=0x004a}
0x469e…46c4              Head {h00=0x0022, h01=0x0050, text=» ADR A1,A3 CHECK RETURN CODES «, t00=0x002d, t01=0x0060}
0x46c4…46f8              Head {h00=0x0030, h01=0x0050, text=» RB(Z) DUON15 NO REQUESTS AND BOTH OPERABLE?«, t00=0x002d, t01=0x0086}
0x46f8…4704              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00ba}
0x4704…470e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c6}
0x470e…4724              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x002d, t01=0x00d0}
0x4724…473c              Head {h00=0x0014, h01=0x0050, text=» ADK A1,0 SET CR«, t00=0x002d, t01=0x00e6}
0x473c…476a              Head {h00=0x002a, h01=0x0050, text=» RB(Z) DUON15 NO REQUEST AND OPERABLE?«, t00=0x002d, t01=0x00fe}
0x476a…4776              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x012c}
0x4776…4780              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0138}
0x4780…47ac              Head {h00=0x0028, h01=0x0050, text=» LDKL A4,TIMER TIMER POINTER ADDRESS«, t00=0x002d, t01=0x0142}
0x47ac…47c0              Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x002d, t01=0x016e}
0x47c0…47e6              Head {h00=0x0022, h01=0x0050, text=» RF(Z) DUON30 NO TIMER ACTIVE «, t00=0x002d, t01=0x0182}
0x47e6…47fc              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x002e, t01=0x0018}
0x47fc…481c              Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 RESTART TIMER«, t00=0x002e, t01=0x002e}
0x481c…482e              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x002e, t01=0x004e}
0x482e…4838              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0060}
0x4838…4860              Head {h00=0x0024, h01=0x0050, text=»DUON30 CF A15,SETIMP START TIMER«, t00=0x002e, t01=0x006a}
0x4860…4890              Head {h00=0x002c, h01=0x0050, text=» DATA DUON40,TIME TIME OUT ADDRESS, TIME«, t00=0x002e, t01=0x0092}
0x4890…48a2              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x002e, t01=0x00c2}
0x48a2…48ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00d4}
0x48ac…48c0              Head {h00=0x0010, h01=0x0050, text=»*   TIME OUT«, t00=0x002e, t01=0x00de}
0x48c0…48ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f2}
0x48ca…48e8              Head {h00=0x001a, h01=0x0050, text=»DUON40 LDKL A6,DWDU01 «, t00=0x002e, t01=0x00fc}
0x48e8…48fa              Head {h00=0x000e, h01=0x0050, text=» CM TIMER «, t00=0x002e, t01=0x011a}
0x48fa…490c              Head {h00=0x000e, h01=0x0050, text=» RB DUON05«, t00=0x002e, t01=0x012c}
0x490c…4916              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x013e}
0x4916…4936              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x002e, t01=0x0148}
0x4936…4940              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0168}
0x4940…494a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0172}
0x494a…496a              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x002e, t01=0x017c}
0x496a…498a              Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x002f, t01=0x000c}
0x498a…49aa              Head {h00=0x001c, h01=0x0050, text=»*  INTERRUPT HANDLER  * «, t00=0x002f, t01=0x002c}
0x49aa…49ca              Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x002f, t01=0x004c}
0x49ca…49ea              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x002f, t01=0x006c}
0x49ea…49f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x008c}
0x49f4…49fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0096}
0x49fe…4a12              Head {h00=0x0010, h01=0x0050, text=»IHDU2 EQU * «, t00=0x002f, t01=0x00a0}
0x4a12…4a28              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002f, t01=0x00b4}
0x4a28…4a50              Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x002f, t01=0x00ca}
0x4a50…4a66              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002f, t01=0x00f2}
0x4a66…4a90              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x002f, t01=0x0108}
0x4a90…4a9c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0132}
0x4a9c…4aa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x013e}
0x4aa6…4abc              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002f, t01=0x0148}
0x4abc…4ad2              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002f, t01=0x015e}
0x4ad2…4af8              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x002f, t01=0x0174}
0x4af8…4b04              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x000a}
0x4b04…4b0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0016}
0x4b0e…4b24              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0030, t01=0x0020}
0x4b24…4b4c              Head {h00=0x0024, h01=0x0050, text=» LDKL A6,DWDU02 DISC UNIT NO. 2 «, t00=0x0030, t01=0x0036}
0x4b4c…4b5e              Head {h00=0x000e, h01=0x0050, text=» RF IHDU10«, t00=0x0030, t01=0x005e}
0x4b5e…4b6a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0070}
0x4b6a…4b74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x007c}
0x4b74…4b8c              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0030, t01=0x0086}
0x4b8c…4b96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x009e}
0x4b96…4ba0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00a8}
0x4ba0…4bb2              Head {h00=0x000e, h01=0x0050, text=»IHDU EQU *«, t00=0x0030, t01=0x00b2}
0x4bb2…4bc6              Head {h00=0x0010, h01=0x0050, text=»IHDU1 EQU * «, t00=0x0030, t01=0x00c4}
0x4bc6…4bee              Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0030, t01=0x00d8}
0x4bee…4c04              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0030, t01=0x0100}
0x4c04…4c2e              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0030, t01=0x0116}
0x4c2e…4c3a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0140}
0x4c3a…4c44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x014c}
0x4c44…4c5a              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0030, t01=0x0156}
0x4c5a…4c80              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0030, t01=0x016c}
0x4c80…4c8c (49, 0, 398) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0004}
0x4c8c…4c96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0010}
0x4c96…4cbe              Head {h00=0x0024, h01=0x0050, text=» LDKL A6,DWDU01 DISC UNIT NO. 1 «, t00=0x0031, t01=0x001a}
0x4cbe…4cc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0042}
0x4cc8…4ce0              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0031, t01=0x004c}
0x4ce0…4cea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0064}
0x4cea…4cf4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x006e}
0x4cf4…4d1a              Head {h00=0x0022, h01=0x0050, text=»IHDU10 SST A1,CUADR GET STATUS«, t00=0x0031, t01=0x0078}
0x4d1a…4d30              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0031, t01=0x009e}
0x4d30…4d42              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0031, t01=0x00b4}
0x4d42…4d56              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/40 «, t00=0x0031, t01=0x00c6}
0x4d56…4d6c              Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHDU20 «, t00=0x0031, t01=0x00da}
0x4d6c…4d84              Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWDU02 «, t00=0x0031, t01=0x00f0}
0x4d84…4d90              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x0108}
0x4d90…4d9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0114}
0x4d9a…4dc8              Head {h00=0x002a, h01=0x0050, text=»IHDU20 ANKL A1,/460F MASK RETURN CODE «, t00=0x0031, t01=0x011e}
0x4dc8…4dda              Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0031, t01=0x014c}
0x4dda…4e00              Head {h00=0x0022, h01=0x0050, text=» RB(N) DUREDY READY INTERRUPT «, t00=0x0031, t01=0x015e}
0x4e00…4e12              Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0031, t01=0x0184}
0x4e12…4e2a              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x0032, t01=0x0008}
0x4e2a…4e3e              Head {h00=0x0010, h01=0x0050, text=» RF(NN) GET «, t00=0x0032, t01=0x0020}
0x4e3e…4e50              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0032, t01=0x0034}
0x4e50…4e62              Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0032, t01=0x0046}
0x4e62…4e90              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) END:IO DISC UNIT NOT OPERABLE «, t00=0x0032, t01=0x0058}
0x4e90…4e9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0086}
0x4e9a…4ec8              Head {h00=0x002a, h01=0x0050, text=»GET LD A5,DWTA5,A6 RELOAD REGISTERS A5«, t00=0x0032, t01=0x0090}
0x4ec8…4ef4              Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTA4,A6                  A4 «, t00=0x0032, t01=0x00be}
0x4ef4…4f0c              Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0032, t01=0x00ea}
0x4f0c…4f26              Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0032, t01=0x0102}
0x4f26…4f4a              Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0032, t01=0x011c}
0x4f4a…4f5a              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0032, t01=0x0140}
0x4f5a…4f64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0150}
0x4f64…4f84              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0032, t01=0x015a}
0x4f84…4f8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x017a}
0x4f8e…4f98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0184}
0x4f98…4fb4              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0032, t01=0x018e}
0x4fb4…4fd0              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0033, t01=0x001a}
0x4fd0…4fec              Head {h00=0x0018, h01=0x0050, text=»*  PERFORM ENDIO  * «, t00=0x0033, t01=0x0036}
0x4fec…5008              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0033, t01=0x0052}
0x5008…5024              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0033, t01=0x006e}
0x5024…502e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x008a}
0x502e…5038              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0094}
0x5038…504c              Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0033, t01=0x009e}
0x504c…5072              Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/20F MASK RETURN CODE«, t00=0x0033, t01=0x00b2}
0x5072…508e              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) END:10 ERROR«, t00=0x0033, t01=0x00d8}
0x508e…50b4              Head {h00=0x0022, h01=0x0050, text=» LD A2,4,A8 REQUESTED LENGTH =«, t00=0x0033, t01=0x00f4}
0x50b4…50d8              Head {h00=0x0020, h01=0x0050, text=» ST A2,6,A8 EFFECTIVE LENGTH«, t00=0x0033, t01=0x011a}
0x50d8…50e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x013e}
0x50e2…50f6              Head {h00=0x0010, h01=0x0050, text=»END:10 EQU *«, t00=0x0033, t01=0x0148}
0x50f6…5122              Head {h00=0x0028, h01=0x0050, text=» LDK A2,QRETRY GET MAX NO OF RETRIES«, t00=0x0033, t01=0x015c}
0x5122…513a              Head {h00=0x0014, h01=0x0050, text=» CW A2,DWTA4,A6 «, t00=0x0033, t01=0x0188}
0x513a…5158              Head {h00=0x001a, h01=0x0050, text=» RF(E) END:15 NO RETRY«, t00=0x0034, t01=0x0010}
0x5158…517e              Head {h00=0x0022, h01=0x0050, text=» ORKL A1,/100 BIT 7 = RETRIES «, t00=0x0034, t01=0x002e}
0x517e…5188              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0054}
0x5188…519c              Head {h00=0x0010, h01=0x0050, text=»END:15 EQU *«, t00=0x0034, t01=0x005e}
0x519c…51ba              Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTOR,A6 ORDER «, t00=0x0034, t01=0x0072}
0x51ba…51d2              Head {h00=0x0014, h01=0x0050, text=» ANK A2,1 INDEX «, t00=0x0034, t01=0x0090}
0x51d2…51e4              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0034, t01=0x00a8}
0x51e4…51f6              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0034, t01=0x00ba}
0x51f6…521c              Head {h00=0x0022, h01=0x0050, text=» CM DWTBSY,A2 RESET READY WORD«, t00=0x0034, t01=0x00cc}
0x521c…5226              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00f2}
0x5226…523e              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0034, t01=0x00fc}
0x523e…5248              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0114}
0x5248…5252              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x011e}
0x5252…5266              Head {h00=0x0010, h01=0x0050, text=»END:20 EQU *«, t00=0x0034, t01=0x0128}
0x5266…527c              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0034, t01=0x013c}
0x527c…52ac              Head {h00=0x002c, h01=0x0050, text=» LDR* A6,A6 OTHER DISC UNIT DWT ADDRESS «, t00=0x0034, t01=0x0152}
0x52ac…52d0              Head {h00=0x0020, h01=0x0050, text=» CF A15,TENDIO PERFORM ENDIO«, t00=0x0034, t01=0x0182}
0x52d0…5300              Head {h00=0x002c, h01=0x0050, text=» LDR* A6,A6 ACTIVE DISC UNIT DWT ADDRESS«, t00=0x0035, t01=0x0016}
0x5300…530c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0046}
0x530c…5316              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0052}
0x5316…533a              Head {h00=0x0020, h01=0x0050, text=» CF A15,TENDIO PERFORM ENDIO«, t00=0x0035, t01=0x005c}
0x533a…535e              Head {h00=0x0020, h01=0x0050, text=»  ABL TDISP GO TO DISPATCHER«, t00=0x0035, t01=0x0080}
0x535e…5368              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a4}
0x5368…5380              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0035, t01=0x00ae}
0x5380…538a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00c6}
0x538a…5394              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00d0}
0x5394…53a8              Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0035, t01=0x00da}
0x53a8…53da              Head {h00=0x002e, h01=0x0050, text=» CM DWTSAV,A6 INDICATE VOLUME NAME READING«, t00=0x0035, t01=0x00ee}
0x53da…53f6              Head {h00=0x0018, h01=0x0050, text=» CM DWTOR,A6 INDEX=0«, t00=0x0035, t01=0x0120}
0x53f6…5400              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x013c}
0x5400…5414              Head {h00=0x0010, h01=0x0050, text=»VO:NA5 EQU *«, t00=0x0035, t01=0x0146}
0x5414…5438              Head {h00=0x0020, h01=0x0050, text=»  CF A5,SEEKZ SEEK SECTOR 0 «, t00=0x0035, t01=0x015a}
0x5438…544e              Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/203 «, t00=0x0035, t01=0x017e}
0x544e…5488 (54, 0, 400) Head {h00=0x0036, h01=0x0050, text=» RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE«, t00=0x0036, t01=0x0004}
0x5488…54b6              Head {h00=0x002a, h01=0x0050, text=» CF A5,WER:R5 EXECUTE WER INSTRUCTIONS«, t00=0x0036, t01=0x003e}
0x54b6…54dc              Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 CYLINDER NUMBER = 0 «, t00=0x0036, t01=0x006c}
0x54dc…54f4              Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTCYL,A6«, t00=0x0036, t01=0x0092}
0x54f4…5518              Head {h00=0x0020, h01=0x0050, text=» CF A5,CIO READ VOLUME LABEL«, t00=0x0036, t01=0x00aa}
0x5518…552a              Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0036, t01=0x00ce}
0x552a…555e              Head {h00=0x0030, h01=0x0050, text=» RF(NZ) VO:NA8 THROUGHPUT ERROR,NOT OPERABLE«, t00=0x0036, t01=0x00e0}
0x555e…5574              Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWTNAM«, t00=0x0036, t01=0x0114}
0x5574…5586              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0036, t01=0x012a}
0x5586…559e              Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTOR,A6 «, t00=0x0036, t01=0x013c}
0x559e…55be              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUNA10 FIXED DISC«, t00=0x0036, t01=0x0154}
0x55be…55de              Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 CARTRIDGE DISC«, t00=0x0036, t01=0x0174}
0x55de…55e8 (55, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0004}
0x55e8…5600              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0037, t01=0x000e}
0x5600…560a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0026}
0x560a…5614              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0030}
0x5614…5644              Head {h00=0x002c, h01=0x0050, text=»DUNA10 LDKL A3,BUF+2 GET BUFFER ADDRESS «, t00=0x0037, t01=0x003a}
0x5644…566e              Head {h00=0x0026, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE RETRY COUNTER«, t00=0x0037, t01=0x006a}
0x566e…5680              Head {h00=0x000e, h01=0x0050, text=» LDK A4,6 «, t00=0x0037, t01=0x0094}
0x5680…568a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a6}
0x568a…56b4              Head {h00=0x0026, h01=0x0050, text=»DUNA20 LDR* A7,A3 GET VOLUME NAME «, t00=0x0037, t01=0x00b0}
0x56b4…56e6              Head {h00=0x002e, h01=0x0050, text=» CWR* A7,A2 COMPARE WITH LAST VOLUME NAME «, t00=0x0037, t01=0x00da}
0x56e6…5706              Head {h00=0x001c, h01=0x0050, text=» RF(E) DUNA30 SAME DISC «, t00=0x0037, t01=0x010c}
0x5706…572a              Head {h00=0x0020, h01=0x0050, text=» LDK A1,/80 NEW DISC LOADED «, t00=0x0037, t01=0x012c}
0x572a…5734              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0150}
0x5734…575c              Head {h00=0x0024, h01=0x0050, text=»DUNA30 STR A7,A2 SAVE DISC NAME «, t00=0x0037, t01=0x015a}
0x575c…5780              Head {h00=0x0020, h01=0x0050, text=» ADK A2,2 INCREMENT POINTERS«, t00=0x0037, t01=0x0182}
0x5780…5792              Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0038, t01=0x0016}
0x5792…57a4              Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0038, t01=0x0028}
0x57a4…57c8              Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DUNA20 GET NEXT WORD«, t00=0x0038, t01=0x003a}
0x57c8…57e0              Head {h00=0x0014, h01=0x0050, text=» ADK A1,0 SET CR«, t00=0x0038, t01=0x005e}
0x57e0…5802              Head {h00=0x001e, h01=0x0050, text=» RF(Z) DUNA40 VOLUME MATCH«, t00=0x0038, t01=0x0076}
0x5802…5832              Head {h00=0x002c, h01=0x0050, text=» LD A4,INIFLG CHECK INITIALIZATION FLAG «, t00=0x0038, t01=0x0098}
0x5832…5856              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUNA40 NOT POWER UP?«, t00=0x0038, t01=0x00c8}
0x5856…5874              Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x0038, t01=0x00ec}
0x5874…5886              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A4«, t00=0x0038, t01=0x010a}
0x5886…5898              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0038, t01=0x011c}
0x5898…58c2              Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTBSY,A4 NEW VOLUME LOADED«, t00=0x0038, t01=0x012e}
0x58c2…58cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0158}
0x58cc…58e4              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0038, t01=0x0162}
0x58e4…58ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x017a}
0x58ee…58f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0184}
0x58f8…590c              Head {h00=0x0010, h01=0x0050, text=»DUNA40 EQU *«, t00=0x0038, t01=0x018e}
0x590c…593a              Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTA4,A6 RESTORE RETRY COUNTER «, t00=0x0039, t01=0x0012}
0x593a…5958              Head {h00=0x001a, h01=0x0050, text=» LD A1,DWTOR,A6 ORDER «, t00=0x0039, t01=0x0040}
0x5958…596e              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) VO:NA6«, t00=0x0039, t01=0x005e}
0x596e…5980              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0039, t01=0x0074}
0x5980…59a0              Head {h00=0x001c, h01=0x0050, text=» SC A1,DWTOR,A6 INDEX=1 «, t00=0x0039, t01=0x0086}
0x59a0…59b2              Head {h00=0x000e, h01=0x0050, text=» RB VO:NA5«, t00=0x0039, t01=0x00a6}
0x59b2…59bc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00b8}
0x59bc…59e6              Head {h00=0x0026, h01=0x0050, text=»VO:NA6 LDK A1,0 RESET RETURN CODE «, t00=0x0039, t01=0x00c2}
0x59e6…59f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ec}
0x59f0…5a04              Head {h00=0x0010, h01=0x0050, text=»VO:NA8 EQU *«, t00=0x0039, t01=0x00f6}
0x5a04…5a18              Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0039, t01=0x010a}
0x5a18…5a30              Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTSAV,A6«, t00=0x0039, t01=0x011e}
0x5a30…5a40              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0039, t01=0x0136}
0x5a40…5a4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0146}
0x5a4a…5a64              Head {h00=0x0016, h01=0x0050, text=»*   TIMER POINTER «, t00=0x0039, t01=0x0150}
0x5a64…5a6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x016a}
0x5a6e…5a90              Head {h00=0x001e, h01=0x0050, text=»TIMER DATA 0 TIMER POINTER«, t00=0x0039, t01=0x0174}
0x5a90…5a9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0008}
0x5a9a…5aba              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x003a, t01=0x0012}
0x5aba…5ac4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0032}
0x5ac4…5ace              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x003c}
0x5ace…5afc              Head {h00=0x002a, h01=0x0050, text=»*   DEVICE WORK TABLE DISC UNIT NO. 2 «, t00=0x003a, t01=0x0046}
0x5afc…5b06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0074}
0x5b06…5b10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x007e}
0x5b10…5b24              Head {h00=0x0010, h01=0x0050, text=»DWDU02 EQU *«, t00=0x003a, t01=0x0088}
0x5b24…5b3a              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003a, t01=0x009c}
0x5b3a…5b64              Head {h00=0x0026, h01=0x0050, text=» DATA DWDU01 POINTER TO OTHER DWT «, t00=0x003a, t01=0x00b2}
0x5b64…5b82              Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x003a, t01=0x00dc}
0x5b82…5b9e              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003a, t01=0x00fa}
0x5b9e…5bb4              Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003a, t01=0x0116}
0x5bb4…5bda              Head {h00=0x0022, h01=0x0050, text=» DATA DUADR ACTIVATION ADDRESS«, t00=0x003a, t01=0x012c}
0x5bda…5bf6              Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003a, t01=0x0152}
0x5bf6…5c1e              Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003a, t01=0x016e}
0x5c1e…5c3c              Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003b, t01=0x0008}
0x5c3c…5c52              Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003b, t01=0x0026}
0x5c52…5c7c              Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003b, t01=0x003c}
0x5c7c…5ca0              Head {h00=0x0020, h01=0x0050, text=» DATA ECBDU2 MMU ECB ADDRESS«, t00=0x003b, t01=0x0066}
0x5ca0…5cac              Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003b, t01=0x008a}
0x5cac…5cc2              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003b, t01=0x0096}
0x5cc2…5cee              Head {h00=0x0028, h01=0x0050, text=» DATA /00FF LEFT BYTE=SECTOR NUMBER «, t00=0x003b, t01=0x00ac}
0x5cee…5d1a              Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x003b, t01=0x00d8}
0x5d1a…5d32              Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x003b, t01=0x0104}
0x5d32…5d44              Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x003b, t01=0x011c}
0x5d44…5d6c              Head {h00=0x0024, h01=0x0050, text=» DATA 0 DISC UNIT BUSY INDICATOR«, t00=0x003b, t01=0x012e}
0x5d6c…5d7c              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003b, t01=0x0156}
0x5d7c…5da4              Head {h00=0x0024, h01=0x0050, text=»   RIGHT BYTE = CYLINDER NUMBER «, t00=0x003b, t01=0x0166}
0x5da4…5dd0              Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,DAF2 CIO-START FIXED DISC «, t00=0x003b, t01=0x018e}
0x5dd0…5e00              Head {h00=0x002c, h01=0x0050, text=» CIO A2,1,DAC2 CIO-START CARTRIDGE DISC «, t00=0x003c, t01=0x002a}
0x5e00…5e0a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x005a}
0x5e0a…5e22              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x003c, t01=0x0064}
0x5e22…5e2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x007c}
0x5e2c…5e36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0086}
0x5e36…5e4a              Head {h00=0x0010, h01=0x0050, text=» WER A2,WER1«, t00=0x003c, t01=0x0090}
0x5e4a…5e60              Head {h00=0x0012, h01=0x0050, text=» WER A3,WER1+1«, t00=0x003c, t01=0x00a4}
0x5e60…5e8a              Head {h00=0x0026, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME FIXED DISC«, t00=0x003c, t01=0x00ba}
0x5e8a…5eb8              Head {h00=0x002a, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME CARTRIDGE DISC«, t00=0x003c, t01=0x00e4}
0x5eb8…5ec8              Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x003c, t01=0x0112}
0x5ec8…5ed8              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003c, t01=0x0122}
0x5ed8…5ef8              Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF CYLINDER NO.«, t00=0x003c, t01=0x0132}
0x5ef8…5f0c              Head {h00=0x0010, h01=0x0050, text=» IFT TYPE2=0«, t00=0x003c, t01=0x0152}
0x5f0c…5f30              Head {h00=0x0020, h01=0x0050, text=» DATA MAXCY5 MAX CYLINDER NO«, t00=0x003c, t01=0x0166}
0x5f30…5f3c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x018a}
0x5f3c…5f58              Head {h00=0x0018, h01=0x0050, text=» IFT NUNITS+TYPE2=3 «, t00=0x003d, t01=0x0008}
0x5f58…5f7c              Head {h00=0x0020, h01=0x0050, text=» DATA MAXCY6 MAX CYLINDER NO«, t00=0x003d, t01=0x0024}
0x5f7c…5f88              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0048}
0x5f88…5f92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0054}
0x5f92…5fa8              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003d, t01=0x005e}
0x5fa8…5fbe              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x0074}
0x5fbe…5fec              Head {h00=0x002a, h01=0x0050, text=» DATA 0 PAGE NUMBER (PSEUDO MMU TABLE)«, t00=0x003d, t01=0x008a}
0x5fec…601a              Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x003d, t01=0x00b8}
0x601a…602e              Head {h00=0x0010, h01=0x0050, text=»ECBDU2 EQU *«, t00=0x003d, t01=0x00e6}
0x602e…6048              Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x003d, t01=0x00fa}
0x6048…6054              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0114}
0x6054…605e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0120}
0x605e…607e              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x003d, t01=0x012a}
0x607e…6088              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x014a}
0x6088…6092              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0154}
0x6092…60c0              Head {h00=0x002a, h01=0x0050, text=»*   DEVICE WORK TABLE DISC UNIT NO. 1 «, t00=0x003d, t01=0x015e}
0x60c0…60ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x018c}
0x60ca…60d4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0008}
0x60d4…60e8              Head {h00=0x0010, h01=0x0050, text=»DWDU01 EQU *«, t00=0x003e, t01=0x0012}
0x60e8…6112              Head {h00=0x0026, h01=0x0050, text=» DATA DWDU02 POINTER TO OTHER DWT «, t00=0x003e, t01=0x0026}
0x6112…6130              Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x003e, t01=0x0050}
0x6130…614c              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003e, t01=0x006e}
0x614c…6162              Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003e, t01=0x008a}
0x6162…6188              Head {h00=0x0022, h01=0x0050, text=» DATA DUADR ACTIVATION ADDRESS«, t00=0x003e, t01=0x00a0}
0x6188…61a4              Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003e, t01=0x00c6}
0x61a4…61cc              Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003e, t01=0x00e2}
0x61cc…61ea              Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003e, t01=0x010a}
0x61ea…6200              Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003e, t01=0x0128}
0x6200…622a              Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003e, t01=0x013e}
0x622a…624e              Head {h00=0x0020, h01=0x0050, text=» DATA ECBDU1 MMU ECB ADDRESS«, t00=0x003e, t01=0x0168}
0x624e…625a              Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003e, t01=0x018c}
0x625a…6276              Head {h00=0x0018, h01=0x0050, text=»DWTSEC EQU *-DWDU01 «, t00=0x003f, t01=0x0008}
0x6276…62a2              Head {h00=0x0028, h01=0x0050, text=» DATA /00FF LEFT BYTE=SECTOR NUMBER «, t00=0x003f, t01=0x0024}
0x62a2…62ce              Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x003f, t01=0x0050}
0x62ce…62e6              Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x003f, t01=0x007c}
0x62e6…62f8              Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x003f, t01=0x0094}
0x62f8…6314              Head {h00=0x0018, h01=0x0050, text=»DWTBSY EQU *-DWDU01 «, t00=0x003f, t01=0x00a6}
0x6314…6338              Head {h00=0x0020, h01=0x0050, text=» DATA 0 UNIT BUSY INDICATOR «, t00=0x003f, t01=0x00c2}
0x6338…635c              Head {h00=0x0020, h01=0x0050, text=» DATA 0 UNIT BUSY INDICATOR «, t00=0x003f, t01=0x00e6}
0x635c…6382              Head {h00=0x0022, h01=0x0050, text=»DWTCIO EQU *-DWDU01 CIO-START «, t00=0x003f, t01=0x010a}
0x6382…6398              Head {h00=0x0012, h01=0x0050, text=» CIO A2,1,DAF1«, t00=0x003f, t01=0x0130}
0x6398…63ae              Head {h00=0x0012, h01=0x0050, text=» CIO A2,1,DAC1«, t00=0x003f, t01=0x0146}
0x63ae…63b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x015c}
0x63b8…63d0              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x003f, t01=0x0166}
0x63d0…63da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x017e}
0x63da…63e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0188}
0x63e4…6414 (64, 0, 400) Head {h00=0x002c, h01=0x0050, text=»DWTWR1 EQU *-DWDU01 1:ST WER INSTRUCTION«, t00=0x0040, t01=0x0004}
0x6414…6428              Head {h00=0x0010, h01=0x0050, text=» WER A2,WER1«, t00=0x0040, t01=0x0034}
0x6428…6458              Head {h00=0x002c, h01=0x0050, text=»DWTWR2 EQU *-DWDU01 2:ND WER INSTRUCTION«, t00=0x0040, t01=0x0048}
0x6458…646e              Head {h00=0x0012, h01=0x0050, text=» WER A3,WER1+1«, t00=0x0040, t01=0x0078}
0x646e…648a              Head {h00=0x0018, h01=0x0050, text=»DWTNAM EQU *-DWDU01 «, t00=0x0040, t01=0x008e}
0x648a…64b4              Head {h00=0x0026, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME FIXED DISC«, t00=0x0040, t01=0x00aa}
0x64b4…64e2              Head {h00=0x002a, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME CARTRIDGE DISC«, t00=0x0040, t01=0x00d4}
0x64e2…64fe              Head {h00=0x0018, h01=0x0050, text=»DWTSAV EQU *-DWDU01 «, t00=0x0040, t01=0x0102}
0x64fe…650e              Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0040, t01=0x011e}
0x650e…652a              Head {h00=0x0018, h01=0x0050, text=»DWTORD EQU *-DWDU01 «, t00=0x0040, t01=0x012e}
0x652a…653a              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0040, t01=0x014a}
0x653a…6556              Head {h00=0x0018, h01=0x0050, text=»DWTCYL EQU *-DWDU01 «, t00=0x0040, t01=0x015a}
0x6556…657a              Head {h00=0x0020, h01=0x0050, text=» DATA /FFFF CYLINDER NUMBER «, t00=0x0040, t01=0x0176}
0x657a…658e              Head {h00=0x0010, h01=0x0050, text=» IFT TYPE1=0«, t00=0x0041, t01=0x000a}
0x658e…65aa              Head {h00=0x0018, h01=0x0050, text=»DWTCMX EQU *-DWDU01 «, t00=0x0041, t01=0x001e}
0x65aa…65d2              Head {h00=0x0024, h01=0x0050, text=» DATA MAXCY5 MAX CYLINDER X/1215«, t00=0x0041, t01=0x003a}
0x65d2…65de              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0062}
0x65de…65f2              Head {h00=0x0010, h01=0x0050, text=» IFT TYPE1=1«, t00=0x0041, t01=0x006e}
0x65f2…660e              Head {h00=0x0018, h01=0x0050, text=»DWTCMX EQU *-DWDU01 «, t00=0x0041, t01=0x0082}
0x660e…663a              Head {h00=0x0028, h01=0x0050, text=» DATA MAXCY6 MAX CYLINDER NO X/1216 «, t00=0x0041, t01=0x009e}
0x663a…6646              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00ca}
0x6646…6650              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00d6}
0x6650…6668              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0041, t01=0x00e0}
0x6668…6672              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00f8}
0x6672…667c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0102}
0x667c…6692              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0041, t01=0x010c}
0x6692…66ae              Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWDU01 «, t00=0x0041, t01=0x0122}
0x66ae…66dc              Head {h00=0x002a, h01=0x0050, text=» DATA 0 PAGE NUMBER (PSEUDO MMU TABLE)«, t00=0x0041, t01=0x013e}
0x66dc…66f8              Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWDU01 «, t00=0x0041, t01=0x016c}
0x66f8…6726              Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0041, t01=0x0188}
0x6726…673a              Head {h00=0x0010, h01=0x0050, text=»ECBDU1 EQU *«, t00=0x0042, t01=0x0026}
0x673a…6754              Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0042, t01=0x003a}
0x6754…6760              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x0054}
0x6760…676a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0060}
0x676a…6774              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x006a}
0x6774…677e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0074}
0x677e…678a              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0042, t01=0x007e}
0x678a…678e              Head {h00=0x4004, h01=0x0000}
0x678e…6792              00 42 00 8a                                                                                                                                                                                                                                       ┆ B  ┆
0x6792…679a (67, 1, 8)   20 04 00 00 00 43 00 04                                                                                                                                                                                                                           ┆     C  ┆
0x679a…67ea (68, 0, 400) 55 5c 2f 31 31 20 00 33 01 8a 00 10 00 50 5c 49 46 54 5c 4d 53 56 31 3d 30 20 00 34 00 0e 00 10 00 50 57 41 43 4b 5c 45 51 55 5c 2f 33 42 00 34 00 22 00 08 00 50 5c 58 49 46 00 34 00 36 00 10 00 50 5c 49 46 54 5c 43 4f 44 45 3d 30 20 00 34   ┆U /11  3     P IFT MSV1=0  4     PWACK EQU /3B 4 "   P XIF 4 6   P IFT CODE=0  4┆
0x67ea…683a              00 42 00 10 00 50 5c 49 46 54 5c 4d 53 56 31 3d 31 20 00 34 00 56 00 30 00 50 57 41 43 4b 5c 45 51 55 5c 2f 42 46 5c 3d 57 41 42 54 20 2d 20 53 49 45 4d 45 4e 53 20 4d 53 56 31 20 50 52 4f 43 45 44 55 52 45 20 00 34 00 6a 00 08 00 50 5c 58   ┆ B   P IFT MSV1=1  4 V 0 PWACK EQU /BF =WABT - SIEMENS MSV1 PROCEDURE  4 j   P X┆
0x683a…688a              49 46 00 34 00 9e 00 10 00 50 5c 49 46 54 5c 43 4f 44 45 3d 31 20 00 34 00 aa 00 10 00 50 50 41 52 5c 45 51 55 5c 2f 30 30 20 00 34 00 be 00 10 00 50 57 41 43 4b 5c 45 51 55 5c 2f 32 43 00 34 00 d2 00 10 00 50 52 56 49 5c 45 51 55 5c 2f 34   ┆IF 4     P IFT CODE=1  4     PPAR EQU /00  4     PWACK EQU /2C 4     PRVI EQU /4┆
0x688a…68da              30 20 00 34 00 e6 00 10 00 50 41 43 4b 30 5c 45 51 55 5c 2f 31 38 00 34 00 fa 00 10 00 50 41 43 4b 31 5c 45 51 55 5c 2f 32 46 00 34 01 0e 00 12 00 50 53 59 4e 45 42 43 5c 45 51 55 5c 2f 33 32 00 34 01 22 00 08 00 50 5c 58 49 46 00 34 01 38   ┆0  4     PACK0 EQU /18 4     PACK1 EQU /2F 4     PSYNEBC EQU /32 4 "   P XIF 4 8┆
0x68da…692a              00 0a 00 50 5c 45 4a 45 43 54 00 34 01 44 00 06 00 50 2a 20 00 34 01 52 00 06 00 50 2a 20 00 34 01 5c 00 1a 00 50 2a 5c 50 52 4f 43 45 44 55 52 45 20 57 4f 52 4b 20 41 52 45 41 53 00 34 01 66 00 06 00 50 2a 20 00 34 01 84 00 06 00 50 2a 20   ┆   P EJECT 4 D   P*  4 R   P*  4     P* PROCEDURE WORK AREAS 4 f   P*  4     P* ┆

Reduced view